[svn:parrot] r36512 - in branches/kill_pccinvoke: . config/gen/makefiles include/parrot src/call
allison at svn.parrot.org
allison at svn.parrot.org
Mon Feb 9 23:59:07 UTC 2009
Author: allison
Date: Mon Feb 9 23:59:06 2009
New Revision: 36512
URL: https://trac.parrot.org/parrot/changeset/36512
Log:
[pcc] Auxillary changes for calling convention file moves.
Modified:
branches/kill_pccinvoke/MANIFEST
branches/kill_pccinvoke/config/gen/makefiles/root.in
branches/kill_pccinvoke/include/parrot/call.h
branches/kill_pccinvoke/include/parrot/interpreter.h
branches/kill_pccinvoke/include/parrot/parrot.h
branches/kill_pccinvoke/src/call/ops.c
branches/kill_pccinvoke/src/call/pcc.c
Modified: branches/kill_pccinvoke/MANIFEST
==============================================================================
--- branches/kill_pccinvoke/MANIFEST Mon Feb 9 23:33:51 2009 (r36511)
+++ branches/kill_pccinvoke/MANIFEST Mon Feb 9 23:59:06 2009 (r36512)
@@ -1,7 +1,7 @@
# ex: set ro:
# $Id$
#
-# generated by tools/dev/mk_manifest_and_skip.pl Mon Feb 9 06:46:28 2009 UT
+# generated by tools/dev/mk_manifest_and_skip.pl Mon Feb 9 23:44:15 2009 UT
#
# See tools/dev/install_files.pl for documentation on the
# format of this file.
@@ -898,6 +898,7 @@
include/parrot/atomic/gcc_x86.h [main]include
include/parrot/atomic/sparc.h [main]include
include/parrot/caches.h [main]include
+include/parrot/call.h [main]include
include/parrot/cclass.h [main]include
include/parrot/charset.h [main]include
include/parrot/compiler.h [main]include
@@ -920,7 +921,6 @@
include/parrot/hash.h [main]include
include/parrot/hll.h [main]include
include/parrot/imcc.h [main]include
-include/parrot/inter_call.h [main]include
include/parrot/interpreter.h [main]include
include/parrot/io.h [main]include
include/parrot/io_portable.h [main]include
@@ -2526,6 +2526,8 @@
src/atomic/gcc_x86.c []
src/atomic/sparc_v9.s []
src/byteorder.c []
+src/call/ops.c []
+src/call/pcc.c []
src/datatypes.c []
src/debug.c []
src/dynext.c []
@@ -2567,11 +2569,9 @@
src/global_setup.c []
src/hash.c []
src/hll.c []
-src/inter_call.c []
src/inter_cb.c []
src/inter_create.c []
src/inter_misc.c []
-src/inter_run.c []
src/interp_guts.h []
src/interpreter.c []
src/io/api.c []
Modified: branches/kill_pccinvoke/config/gen/makefiles/root.in
==============================================================================
--- branches/kill_pccinvoke/config/gen/makefiles/root.in Mon Feb 9 23:33:51 2009 (r36511)
+++ branches/kill_pccinvoke/config/gen/makefiles/root.in Mon Feb 9 23:59:06 2009 (r36512)
@@ -395,12 +395,12 @@
$(SRC_DIR)/global_setup$(O) \
$(SRC_DIR)/hash$(O) \
$(SRC_DIR)/hll$(O) \
- $(SRC_DIR)/inter_call$(O) \
+ $(SRC_DIR)/call/pcc$(O) \
$(SRC_DIR)/inter_cb$(O) \
$(SRC_DIR)/inter_create$(O) \
$(SRC_DIR)/inter_misc$(O) \
$(SRC_DIR)/interpreter$(O) \
- $(SRC_DIR)/inter_run$(O) \
+ $(SRC_DIR)/call/ops$(O) \
$(SRC_DIR)/key$(O) \
$(SRC_DIR)/library$(O) \
$(SRC_DIR)/list$(O) \
@@ -572,7 +572,7 @@
$(SRC_DIR)/global.str \
$(SRC_DIR)/global_setup.str \
$(SRC_DIR)/hll.str \
- $(SRC_DIR)/inter_call.str \
+ $(SRC_DIR)/call/pcc.str \
$(SRC_DIR)/inter_cb.str \
$(SRC_DIR)/inter_create.str \
$(SRC_DIR)/inter_misc.str \
@@ -1084,8 +1084,8 @@
$(SRC_DIR)/interpreter$(O) : $(SRC_DIR)/interpreter.c $(GENERAL_H_FILES)
-$(SRC_DIR)/inter_call$(O) : $(SRC_DIR)/inter_call.c $(GENERAL_H_FILES) \
- $(SRC_DIR)/inter_call.str $(SRC_DIR)/pmc/pmc_fixedintegerarray.h
+$(SRC_DIR)/call/pcc$(O) : $(SRC_DIR)/call/pcc.c $(GENERAL_H_FILES) \
+ $(SRC_DIR)/call/pcc.str $(SRC_DIR)/pmc/pmc_fixedintegerarray.h
$(SRC_DIR)/inter_cb$(O) : $(SRC_DIR)/inter_cb.c $(GENERAL_H_FILES) \
$(SRC_DIR)/inter_cb.str
@@ -1096,7 +1096,7 @@
$(SRC_DIR)/inter_create$(O) : $(SRC_DIR)/inter_create.c $(GENERAL_H_FILES) \
$(SRC_DIR)/inter_create.str
-$(SRC_DIR)/inter_run$(O) : $(SRC_DIR)/inter_run.c $(GENERAL_H_FILES)
+$(SRC_DIR)/call/ops$(O) : $(SRC_DIR)/call/ops.c $(GENERAL_H_FILES)
$(IO_DIR)/api$(O) : $(GENERAL_H_FILES) $(IO_DIR)/io_private.h $(IO_DIR)/api.str
Modified: branches/kill_pccinvoke/include/parrot/call.h
==============================================================================
--- branches/kill_pccinvoke/include/parrot/call.h Mon Feb 9 23:33:51 2009 (r36511)
+++ branches/kill_pccinvoke/include/parrot/call.h Mon Feb 9 23:59:06 2009 (r36512)
@@ -1,4 +1,4 @@
-/* inter_call.h
+/* call.h
* Copyright (C) 2001-2008, The Perl Foundation.
* SVN Info
* $Id$
@@ -88,7 +88,7 @@
PARROT_PASS_RESULTS = 0x01
} arg_pass_t;
-/* HEADERIZER BEGIN: src/inter_call.c */
+/* HEADERIZER BEGIN: src/call/pcc.c */
/* Don't modify between HEADERIZER BEGIN / HEADERIZER END. Your changes will be lost. */
PARROT_EXPORT
@@ -350,7 +350,282 @@
PARROT_ASSERT_ARG(interp) \
|| PARROT_ASSERT_ARG(ctx)
/* Don't modify between HEADERIZER BEGIN / HEADERIZER END. Your changes will be lost. */
-/* HEADERIZER END: src/inter_call.c */
+/* HEADERIZER END: src/call/pcc.c */
+
+/* HEADERIZER BEGIN: src/call/ops.c */
+/* Don't modify between HEADERIZER BEGIN / HEADERIZER END. Your changes will be lost. */
+
+PARROT_EXPORT
+void free_runloop_jump_point(PARROT_INTERP)
+ __attribute__nonnull__(1);
+
+PARROT_EXPORT
+void new_runloop_jump_point(PARROT_INTERP)
+ __attribute__nonnull__(1);
+
+PARROT_EXPORT
+PARROT_IGNORABLE_RESULT
+PARROT_CAN_RETURN_NULL
+void * Parrot_run_meth_fromc(PARROT_INTERP,
+ ARGIN(PMC *sub),
+ ARGIN_NULLOK(PMC *obj),
+ SHIM(STRING *meth))
+ __attribute__nonnull__(1)
+ __attribute__nonnull__(2);
+
+PARROT_EXPORT
+PARROT_IGNORABLE_RESULT
+PARROT_CAN_RETURN_NULL
+void* Parrot_run_meth_fromc_arglist(PARROT_INTERP,
+ ARGIN(PMC *sub),
+ ARGIN_NULLOK(PMC *obj),
+ ARGIN(STRING *meth),
+ ARGIN(const char *sig),
+ va_list args)
+ __attribute__nonnull__(1)
+ __attribute__nonnull__(2)
+ __attribute__nonnull__(4)
+ __attribute__nonnull__(5);
+
+PARROT_EXPORT
+PARROT_IGNORABLE_RESULT
+FLOATVAL Parrot_run_meth_fromc_arglist_retf(PARROT_INTERP,
+ ARGIN(PMC *sub),
+ ARGIN_NULLOK(PMC *obj),
+ ARGIN(STRING *meth),
+ ARGIN(const char *sig),
+ va_list args)
+ __attribute__nonnull__(1)
+ __attribute__nonnull__(2)
+ __attribute__nonnull__(4)
+ __attribute__nonnull__(5);
+
+PARROT_EXPORT
+PARROT_IGNORABLE_RESULT
+PARROT_CAN_RETURN_NULL
+INTVAL Parrot_run_meth_fromc_arglist_reti(PARROT_INTERP,
+ ARGIN(PMC *sub),
+ ARGIN_NULLOK(PMC *obj),
+ ARGIN(STRING *meth),
+ ARGIN(const char *sig),
+ va_list args)
+ __attribute__nonnull__(1)
+ __attribute__nonnull__(2)
+ __attribute__nonnull__(4)
+ __attribute__nonnull__(5);
+
+PARROT_EXPORT
+PARROT_IGNORABLE_RESULT
+PARROT_CAN_RETURN_NULL
+void* Parrot_run_meth_fromc_args(PARROT_INTERP,
+ ARGIN(PMC *sub),
+ ARGIN_NULLOK(PMC *obj),
+ ARGIN(STRING *meth),
+ ARGIN(const char *sig),
+ ...)
+ __attribute__nonnull__(1)
+ __attribute__nonnull__(2)
+ __attribute__nonnull__(4)
+ __attribute__nonnull__(5);
+
+PARROT_EXPORT
+PARROT_IGNORABLE_RESULT
+FLOATVAL Parrot_run_meth_fromc_args_retf(PARROT_INTERP,
+ ARGIN(PMC *sub),
+ ARGIN_NULLOK(PMC *obj),
+ ARGIN(STRING *meth),
+ ARGIN(const char *sig),
+ ...)
+ __attribute__nonnull__(1)
+ __attribute__nonnull__(2)
+ __attribute__nonnull__(4)
+ __attribute__nonnull__(5);
+
+PARROT_EXPORT
+PARROT_IGNORABLE_RESULT
+INTVAL Parrot_run_meth_fromc_args_reti(PARROT_INTERP,
+ ARGIN(PMC *sub),
+ ARGIN_NULLOK(PMC *obj),
+ ARGIN(STRING *meth),
+ ARGIN(const char *sig),
+ ...)
+ __attribute__nonnull__(1)
+ __attribute__nonnull__(2)
+ __attribute__nonnull__(4)
+ __attribute__nonnull__(5);
+
+PARROT_EXPORT
+PARROT_IGNORABLE_RESULT
+PARROT_CANNOT_RETURN_NULL
+Parrot_Context * Parrot_runops_fromc(PARROT_INTERP, ARGIN(PMC *sub))
+ __attribute__nonnull__(1)
+ __attribute__nonnull__(2);
+
+PARROT_EXPORT
+PARROT_IGNORABLE_RESULT
+PARROT_CAN_RETURN_NULL
+void * Parrot_runops_fromc_arglist(PARROT_INTERP,
+ ARGIN(PMC *sub),
+ ARGIN(const char *sig),
+ va_list args)
+ __attribute__nonnull__(1)
+ __attribute__nonnull__(2)
+ __attribute__nonnull__(3);
+
+PARROT_EXPORT
+PARROT_IGNORABLE_RESULT
+FLOATVAL Parrot_runops_fromc_arglist_retf(PARROT_INTERP,
+ ARGIN(PMC *sub),
+ ARGIN(const char *sig),
+ va_list args)
+ __attribute__nonnull__(1)
+ __attribute__nonnull__(2)
+ __attribute__nonnull__(3);
+
+PARROT_EXPORT
+PARROT_IGNORABLE_RESULT
+INTVAL Parrot_runops_fromc_arglist_reti(PARROT_INTERP,
+ ARGIN(PMC *sub),
+ ARGIN(const char *sig),
+ va_list args)
+ __attribute__nonnull__(1)
+ __attribute__nonnull__(2)
+ __attribute__nonnull__(3);
+
+PARROT_EXPORT
+PARROT_IGNORABLE_RESULT
+PARROT_CAN_RETURN_NULL
+PMC * Parrot_runops_fromc_args(PARROT_INTERP,
+ ARGIN(PMC *sub),
+ ARGIN(const char *sig),
+ ...)
+ __attribute__nonnull__(1)
+ __attribute__nonnull__(2)
+ __attribute__nonnull__(3);
+
+PARROT_EXPORT
+PARROT_IGNORABLE_RESULT
+PARROT_CAN_RETURN_NULL
+void * Parrot_runops_fromc_args_event(PARROT_INTERP,
+ ARGIN(PMC *sub),
+ ARGIN(const char *sig),
+ ...)
+ __attribute__nonnull__(1)
+ __attribute__nonnull__(2)
+ __attribute__nonnull__(3);
+
+PARROT_EXPORT
+PARROT_IGNORABLE_RESULT
+FLOATVAL Parrot_runops_fromc_args_retf(PARROT_INTERP,
+ ARGIN(PMC *sub),
+ ARGIN(const char *sig),
+ ...)
+ __attribute__nonnull__(1)
+ __attribute__nonnull__(2)
+ __attribute__nonnull__(3);
+
+PARROT_EXPORT
+PARROT_IGNORABLE_RESULT
+INTVAL Parrot_runops_fromc_args_reti(PARROT_INTERP,
+ ARGIN(PMC *sub),
+ ARGIN(const char *sig),
+ ...)
+ __attribute__nonnull__(1)
+ __attribute__nonnull__(2)
+ __attribute__nonnull__(3);
+
+void destroy_runloop_jump_points(PARROT_INTERP)
+ __attribute__nonnull__(1);
+
+void really_destroy_runloop_jump_points(
+ ARGIN_NULLOK(Parrot_runloop *jump_point));
+
+void runops(PARROT_INTERP, size_t offs)
+ __attribute__nonnull__(1);
+
+#define ASSERT_ARGS_free_runloop_jump_point __attribute__unused__ int _ASSERT_ARGS_CHECK = \
+ PARROT_ASSERT_ARG(interp)
+#define ASSERT_ARGS_new_runloop_jump_point __attribute__unused__ int _ASSERT_ARGS_CHECK = \
+ PARROT_ASSERT_ARG(interp)
+#define ASSERT_ARGS_Parrot_run_meth_fromc __attribute__unused__ int _ASSERT_ARGS_CHECK = \
+ PARROT_ASSERT_ARG(interp) \
+ || PARROT_ASSERT_ARG(sub)
+#define ASSERT_ARGS_Parrot_run_meth_fromc_arglist __attribute__unused__ int _ASSERT_ARGS_CHECK = \
+ PARROT_ASSERT_ARG(interp) \
+ || PARROT_ASSERT_ARG(sub) \
+ || PARROT_ASSERT_ARG(meth) \
+ || PARROT_ASSERT_ARG(sig)
+#define ASSERT_ARGS_Parrot_run_meth_fromc_arglist_retf \
+ __attribute__unused__ int _ASSERT_ARGS_CHECK = \
+ PARROT_ASSERT_ARG(interp) \
+ || PARROT_ASSERT_ARG(sub) \
+ || PARROT_ASSERT_ARG(meth) \
+ || PARROT_ASSERT_ARG(sig)
+#define ASSERT_ARGS_Parrot_run_meth_fromc_arglist_reti \
+ __attribute__unused__ int _ASSERT_ARGS_CHECK = \
+ PARROT_ASSERT_ARG(interp) \
+ || PARROT_ASSERT_ARG(sub) \
+ || PARROT_ASSERT_ARG(meth) \
+ || PARROT_ASSERT_ARG(sig)
+#define ASSERT_ARGS_Parrot_run_meth_fromc_args __attribute__unused__ int _ASSERT_ARGS_CHECK = \
+ PARROT_ASSERT_ARG(interp) \
+ || PARROT_ASSERT_ARG(sub) \
+ || PARROT_ASSERT_ARG(meth) \
+ || PARROT_ASSERT_ARG(sig)
+#define ASSERT_ARGS_Parrot_run_meth_fromc_args_retf \
+ __attribute__unused__ int _ASSERT_ARGS_CHECK = \
+ PARROT_ASSERT_ARG(interp) \
+ || PARROT_ASSERT_ARG(sub) \
+ || PARROT_ASSERT_ARG(meth) \
+ || PARROT_ASSERT_ARG(sig)
+#define ASSERT_ARGS_Parrot_run_meth_fromc_args_reti \
+ __attribute__unused__ int _ASSERT_ARGS_CHECK = \
+ PARROT_ASSERT_ARG(interp) \
+ || PARROT_ASSERT_ARG(sub) \
+ || PARROT_ASSERT_ARG(meth) \
+ || PARROT_ASSERT_ARG(sig)
+#define ASSERT_ARGS_Parrot_runops_fromc __attribute__unused__ int _ASSERT_ARGS_CHECK = \
+ PARROT_ASSERT_ARG(interp) \
+ || PARROT_ASSERT_ARG(sub)
+#define ASSERT_ARGS_Parrot_runops_fromc_arglist __attribute__unused__ int _ASSERT_ARGS_CHECK = \
+ PARROT_ASSERT_ARG(interp) \
+ || PARROT_ASSERT_ARG(sub) \
+ || PARROT_ASSERT_ARG(sig)
+#define ASSERT_ARGS_Parrot_runops_fromc_arglist_retf \
+ __attribute__unused__ int _ASSERT_ARGS_CHECK = \
+ PARROT_ASSERT_ARG(interp) \
+ || PARROT_ASSERT_ARG(sub) \
+ || PARROT_ASSERT_ARG(sig)
+#define ASSERT_ARGS_Parrot_runops_fromc_arglist_reti \
+ __attribute__unused__ int _ASSERT_ARGS_CHECK = \
+ PARROT_ASSERT_ARG(interp) \
+ || PARROT_ASSERT_ARG(sub) \
+ || PARROT_ASSERT_ARG(sig)
+#define ASSERT_ARGS_Parrot_runops_fromc_args __attribute__unused__ int _ASSERT_ARGS_CHECK = \
+ PARROT_ASSERT_ARG(interp) \
+ || PARROT_ASSERT_ARG(sub) \
+ || PARROT_ASSERT_ARG(sig)
+#define ASSERT_ARGS_Parrot_runops_fromc_args_event \
+ __attribute__unused__ int _ASSERT_ARGS_CHECK = \
+ PARROT_ASSERT_ARG(interp) \
+ || PARROT_ASSERT_ARG(sub) \
+ || PARROT_ASSERT_ARG(sig)
+#define ASSERT_ARGS_Parrot_runops_fromc_args_retf __attribute__unused__ int _ASSERT_ARGS_CHECK = \
+ PARROT_ASSERT_ARG(interp) \
+ || PARROT_ASSERT_ARG(sub) \
+ || PARROT_ASSERT_ARG(sig)
+#define ASSERT_ARGS_Parrot_runops_fromc_args_reti __attribute__unused__ int _ASSERT_ARGS_CHECK = \
+ PARROT_ASSERT_ARG(interp) \
+ || PARROT_ASSERT_ARG(sub) \
+ || PARROT_ASSERT_ARG(sig)
+#define ASSERT_ARGS_destroy_runloop_jump_points __attribute__unused__ int _ASSERT_ARGS_CHECK = \
+ PARROT_ASSERT_ARG(interp)
+#define ASSERT_ARGS_really_destroy_runloop_jump_points \
+ __attribute__unused__ int _ASSERT_ARGS_CHECK = 0
+#define ASSERT_ARGS_runops __attribute__unused__ int _ASSERT_ARGS_CHECK = \
+ PARROT_ASSERT_ARG(interp)
+/* Don't modify between HEADERIZER BEGIN / HEADERIZER END. Your changes will be lost. */
+/* HEADERIZER END: src/call/ops.c */
#define ASSERT_SIG_PMC(sig) \
PARROT_ASSERT(PObj_is_PMC_TEST(sig)); \
Modified: branches/kill_pccinvoke/include/parrot/interpreter.h
==============================================================================
--- branches/kill_pccinvoke/include/parrot/interpreter.h Mon Feb 9 23:33:51 2009 (r36511)
+++ branches/kill_pccinvoke/include/parrot/interpreter.h Mon Feb 9 23:59:06 2009 (r36512)
@@ -526,281 +526,6 @@
/* Don't modify between HEADERIZER BEGIN / HEADERIZER END. Your changes will be lost. */
/* HEADERIZER END: src/inter_create.c */
-/* HEADERIZER BEGIN: src/inter_run.c */
-/* Don't modify between HEADERIZER BEGIN / HEADERIZER END. Your changes will be lost. */
-
-PARROT_EXPORT
-void free_runloop_jump_point(PARROT_INTERP)
- __attribute__nonnull__(1);
-
-PARROT_EXPORT
-void new_runloop_jump_point(PARROT_INTERP)
- __attribute__nonnull__(1);
-
-PARROT_EXPORT
-PARROT_IGNORABLE_RESULT
-PARROT_CAN_RETURN_NULL
-void * Parrot_run_meth_fromc(PARROT_INTERP,
- ARGIN(PMC *sub),
- ARGIN_NULLOK(PMC *obj),
- SHIM(STRING *meth))
- __attribute__nonnull__(1)
- __attribute__nonnull__(2);
-
-PARROT_EXPORT
-PARROT_IGNORABLE_RESULT
-PARROT_CAN_RETURN_NULL
-void* Parrot_run_meth_fromc_arglist(PARROT_INTERP,
- ARGIN(PMC *sub),
- ARGIN_NULLOK(PMC *obj),
- ARGIN(STRING *meth),
- ARGIN(const char *sig),
- va_list args)
- __attribute__nonnull__(1)
- __attribute__nonnull__(2)
- __attribute__nonnull__(4)
- __attribute__nonnull__(5);
-
-PARROT_EXPORT
-PARROT_IGNORABLE_RESULT
-FLOATVAL Parrot_run_meth_fromc_arglist_retf(PARROT_INTERP,
- ARGIN(PMC *sub),
- ARGIN_NULLOK(PMC *obj),
- ARGIN(STRING *meth),
- ARGIN(const char *sig),
- va_list args)
- __attribute__nonnull__(1)
- __attribute__nonnull__(2)
- __attribute__nonnull__(4)
- __attribute__nonnull__(5);
-
-PARROT_EXPORT
-PARROT_IGNORABLE_RESULT
-PARROT_CAN_RETURN_NULL
-INTVAL Parrot_run_meth_fromc_arglist_reti(PARROT_INTERP,
- ARGIN(PMC *sub),
- ARGIN_NULLOK(PMC *obj),
- ARGIN(STRING *meth),
- ARGIN(const char *sig),
- va_list args)
- __attribute__nonnull__(1)
- __attribute__nonnull__(2)
- __attribute__nonnull__(4)
- __attribute__nonnull__(5);
-
-PARROT_EXPORT
-PARROT_IGNORABLE_RESULT
-PARROT_CAN_RETURN_NULL
-void* Parrot_run_meth_fromc_args(PARROT_INTERP,
- ARGIN(PMC *sub),
- ARGIN_NULLOK(PMC *obj),
- ARGIN(STRING *meth),
- ARGIN(const char *sig),
- ...)
- __attribute__nonnull__(1)
- __attribute__nonnull__(2)
- __attribute__nonnull__(4)
- __attribute__nonnull__(5);
-
-PARROT_EXPORT
-PARROT_IGNORABLE_RESULT
-FLOATVAL Parrot_run_meth_fromc_args_retf(PARROT_INTERP,
- ARGIN(PMC *sub),
- ARGIN_NULLOK(PMC *obj),
- ARGIN(STRING *meth),
- ARGIN(const char *sig),
- ...)
- __attribute__nonnull__(1)
- __attribute__nonnull__(2)
- __attribute__nonnull__(4)
- __attribute__nonnull__(5);
-
-PARROT_EXPORT
-PARROT_IGNORABLE_RESULT
-INTVAL Parrot_run_meth_fromc_args_reti(PARROT_INTERP,
- ARGIN(PMC *sub),
- ARGIN_NULLOK(PMC *obj),
- ARGIN(STRING *meth),
- ARGIN(const char *sig),
- ...)
- __attribute__nonnull__(1)
- __attribute__nonnull__(2)
- __attribute__nonnull__(4)
- __attribute__nonnull__(5);
-
-PARROT_EXPORT
-PARROT_IGNORABLE_RESULT
-PARROT_CANNOT_RETURN_NULL
-Parrot_Context * Parrot_runops_fromc(PARROT_INTERP, ARGIN(PMC *sub))
- __attribute__nonnull__(1)
- __attribute__nonnull__(2);
-
-PARROT_EXPORT
-PARROT_IGNORABLE_RESULT
-PARROT_CAN_RETURN_NULL
-void * Parrot_runops_fromc_arglist(PARROT_INTERP,
- ARGIN(PMC *sub),
- ARGIN(const char *sig),
- va_list args)
- __attribute__nonnull__(1)
- __attribute__nonnull__(2)
- __attribute__nonnull__(3);
-
-PARROT_EXPORT
-PARROT_IGNORABLE_RESULT
-FLOATVAL Parrot_runops_fromc_arglist_retf(PARROT_INTERP,
- ARGIN(PMC *sub),
- ARGIN(const char *sig),
- va_list args)
- __attribute__nonnull__(1)
- __attribute__nonnull__(2)
- __attribute__nonnull__(3);
-
-PARROT_EXPORT
-PARROT_IGNORABLE_RESULT
-INTVAL Parrot_runops_fromc_arglist_reti(PARROT_INTERP,
- ARGIN(PMC *sub),
- ARGIN(const char *sig),
- va_list args)
- __attribute__nonnull__(1)
- __attribute__nonnull__(2)
- __attribute__nonnull__(3);
-
-PARROT_EXPORT
-PARROT_IGNORABLE_RESULT
-PARROT_CAN_RETURN_NULL
-PMC * Parrot_runops_fromc_args(PARROT_INTERP,
- ARGIN(PMC *sub),
- ARGIN(const char *sig),
- ...)
- __attribute__nonnull__(1)
- __attribute__nonnull__(2)
- __attribute__nonnull__(3);
-
-PARROT_EXPORT
-PARROT_IGNORABLE_RESULT
-PARROT_CAN_RETURN_NULL
-void * Parrot_runops_fromc_args_event(PARROT_INTERP,
- ARGIN(PMC *sub),
- ARGIN(const char *sig),
- ...)
- __attribute__nonnull__(1)
- __attribute__nonnull__(2)
- __attribute__nonnull__(3);
-
-PARROT_EXPORT
-PARROT_IGNORABLE_RESULT
-FLOATVAL Parrot_runops_fromc_args_retf(PARROT_INTERP,
- ARGIN(PMC *sub),
- ARGIN(const char *sig),
- ...)
- __attribute__nonnull__(1)
- __attribute__nonnull__(2)
- __attribute__nonnull__(3);
-
-PARROT_EXPORT
-PARROT_IGNORABLE_RESULT
-INTVAL Parrot_runops_fromc_args_reti(PARROT_INTERP,
- ARGIN(PMC *sub),
- ARGIN(const char *sig),
- ...)
- __attribute__nonnull__(1)
- __attribute__nonnull__(2)
- __attribute__nonnull__(3);
-
-void destroy_runloop_jump_points(PARROT_INTERP)
- __attribute__nonnull__(1);
-
-void really_destroy_runloop_jump_points(
- ARGIN_NULLOK(Parrot_runloop *jump_point));
-
-void runops(PARROT_INTERP, size_t offs)
- __attribute__nonnull__(1);
-
-#define ASSERT_ARGS_free_runloop_jump_point __attribute__unused__ int _ASSERT_ARGS_CHECK = \
- PARROT_ASSERT_ARG(interp)
-#define ASSERT_ARGS_new_runloop_jump_point __attribute__unused__ int _ASSERT_ARGS_CHECK = \
- PARROT_ASSERT_ARG(interp)
-#define ASSERT_ARGS_Parrot_run_meth_fromc __attribute__unused__ int _ASSERT_ARGS_CHECK = \
- PARROT_ASSERT_ARG(interp) \
- || PARROT_ASSERT_ARG(sub)
-#define ASSERT_ARGS_Parrot_run_meth_fromc_arglist __attribute__unused__ int _ASSERT_ARGS_CHECK = \
- PARROT_ASSERT_ARG(interp) \
- || PARROT_ASSERT_ARG(sub) \
- || PARROT_ASSERT_ARG(meth) \
- || PARROT_ASSERT_ARG(sig)
-#define ASSERT_ARGS_Parrot_run_meth_fromc_arglist_retf \
- __attribute__unused__ int _ASSERT_ARGS_CHECK = \
- PARROT_ASSERT_ARG(interp) \
- || PARROT_ASSERT_ARG(sub) \
- || PARROT_ASSERT_ARG(meth) \
- || PARROT_ASSERT_ARG(sig)
-#define ASSERT_ARGS_Parrot_run_meth_fromc_arglist_reti \
- __attribute__unused__ int _ASSERT_ARGS_CHECK = \
- PARROT_ASSERT_ARG(interp) \
- || PARROT_ASSERT_ARG(sub) \
- || PARROT_ASSERT_ARG(meth) \
- || PARROT_ASSERT_ARG(sig)
-#define ASSERT_ARGS_Parrot_run_meth_fromc_args __attribute__unused__ int _ASSERT_ARGS_CHECK = \
- PARROT_ASSERT_ARG(interp) \
- || PARROT_ASSERT_ARG(sub) \
- || PARROT_ASSERT_ARG(meth) \
- || PARROT_ASSERT_ARG(sig)
-#define ASSERT_ARGS_Parrot_run_meth_fromc_args_retf \
- __attribute__unused__ int _ASSERT_ARGS_CHECK = \
- PARROT_ASSERT_ARG(interp) \
- || PARROT_ASSERT_ARG(sub) \
- || PARROT_ASSERT_ARG(meth) \
- || PARROT_ASSERT_ARG(sig)
-#define ASSERT_ARGS_Parrot_run_meth_fromc_args_reti \
- __attribute__unused__ int _ASSERT_ARGS_CHECK = \
- PARROT_ASSERT_ARG(interp) \
- || PARROT_ASSERT_ARG(sub) \
- || PARROT_ASSERT_ARG(meth) \
- || PARROT_ASSERT_ARG(sig)
-#define ASSERT_ARGS_Parrot_runops_fromc __attribute__unused__ int _ASSERT_ARGS_CHECK = \
- PARROT_ASSERT_ARG(interp) \
- || PARROT_ASSERT_ARG(sub)
-#define ASSERT_ARGS_Parrot_runops_fromc_arglist __attribute__unused__ int _ASSERT_ARGS_CHECK = \
- PARROT_ASSERT_ARG(interp) \
- || PARROT_ASSERT_ARG(sub) \
- || PARROT_ASSERT_ARG(sig)
-#define ASSERT_ARGS_Parrot_runops_fromc_arglist_retf \
- __attribute__unused__ int _ASSERT_ARGS_CHECK = \
- PARROT_ASSERT_ARG(interp) \
- || PARROT_ASSERT_ARG(sub) \
- || PARROT_ASSERT_ARG(sig)
-#define ASSERT_ARGS_Parrot_runops_fromc_arglist_reti \
- __attribute__unused__ int _ASSERT_ARGS_CHECK = \
- PARROT_ASSERT_ARG(interp) \
- || PARROT_ASSERT_ARG(sub) \
- || PARROT_ASSERT_ARG(sig)
-#define ASSERT_ARGS_Parrot_runops_fromc_args __attribute__unused__ int _ASSERT_ARGS_CHECK = \
- PARROT_ASSERT_ARG(interp) \
- || PARROT_ASSERT_ARG(sub) \
- || PARROT_ASSERT_ARG(sig)
-#define ASSERT_ARGS_Parrot_runops_fromc_args_event \
- __attribute__unused__ int _ASSERT_ARGS_CHECK = \
- PARROT_ASSERT_ARG(interp) \
- || PARROT_ASSERT_ARG(sub) \
- || PARROT_ASSERT_ARG(sig)
-#define ASSERT_ARGS_Parrot_runops_fromc_args_retf __attribute__unused__ int _ASSERT_ARGS_CHECK = \
- PARROT_ASSERT_ARG(interp) \
- || PARROT_ASSERT_ARG(sub) \
- || PARROT_ASSERT_ARG(sig)
-#define ASSERT_ARGS_Parrot_runops_fromc_args_reti __attribute__unused__ int _ASSERT_ARGS_CHECK = \
- PARROT_ASSERT_ARG(interp) \
- || PARROT_ASSERT_ARG(sub) \
- || PARROT_ASSERT_ARG(sig)
-#define ASSERT_ARGS_destroy_runloop_jump_points __attribute__unused__ int _ASSERT_ARGS_CHECK = \
- PARROT_ASSERT_ARG(interp)
-#define ASSERT_ARGS_really_destroy_runloop_jump_points \
- __attribute__unused__ int _ASSERT_ARGS_CHECK = 0
-#define ASSERT_ARGS_runops __attribute__unused__ int _ASSERT_ARGS_CHECK = \
- PARROT_ASSERT_ARG(interp)
-/* Don't modify between HEADERIZER BEGIN / HEADERIZER END. Your changes will be lost. */
-/* HEADERIZER END: src/inter_run.c */
-
/* HEADERIZER BEGIN: src/inter_cb.c */
/* Don't modify between HEADERIZER BEGIN / HEADERIZER END. Your changes will be lost. */
Modified: branches/kill_pccinvoke/include/parrot/parrot.h
==============================================================================
--- branches/kill_pccinvoke/include/parrot/parrot.h Mon Feb 9 23:33:51 2009 (r36511)
+++ branches/kill_pccinvoke/include/parrot/parrot.h Mon Feb 9 23:59:06 2009 (r36512)
@@ -302,7 +302,7 @@
#include "parrot/string_funcs.h"
#include "parrot/misc.h"
#include "parrot/sub.h"
-#include "parrot/inter_call.h"
+#include "parrot/call.h"
#include "parrot/key.h"
#include "parrot/exit.h"
#include "parrot/nci.h"
Modified: branches/kill_pccinvoke/src/call/ops.c
==============================================================================
--- branches/kill_pccinvoke/src/call/ops.c Mon Feb 9 23:33:51 2009 (r36511)
+++ branches/kill_pccinvoke/src/call/ops.c Mon Feb 9 23:59:06 2009 (r36512)
@@ -2,11 +2,9 @@
Copyright (C) 2001-2008, The Perl Foundation.
$Id$
-=head1 NAME
+=head1 Calling Ops
-src/inter_run.c - Parrot Interpreter - Run Ops and Methods
-
-=head1 DESCRIPTION
+=head1 Description
Various functions that call the run loop.
@@ -22,7 +20,7 @@
#include "parrot/parrot.h"
#include "parrot/oplib/ops.h"
-/* HEADERIZER HFILE: include/parrot/interpreter.h */
+/* HEADERIZER HFILE: include/parrot/call.h */
/* HEADERIZER BEGIN: static */
/* Don't modify between HEADERIZER BEGIN / HEADERIZER END. Your changes will be lost. */
Modified: branches/kill_pccinvoke/src/call/pcc.c
==============================================================================
--- branches/kill_pccinvoke/src/call/pcc.c Mon Feb 9 23:33:51 2009 (r36511)
+++ branches/kill_pccinvoke/src/call/pcc.c Mon Feb 9 23:59:06 2009 (r36512)
@@ -2,11 +2,9 @@
Copyright (C) 2001-2008, The Perl Foundation.
$Id$
-=head1 NAME
+=head1 Parrot Calling Conventions
-src/inter_call.c - Parrot Interpreter - Argument passing code
-
-=head1 DESCRIPTION
+=head1 Description
Functions in this file handle argument/return value passing to and from
subroutines.
@@ -21,9 +19,9 @@
#include "parrot/parrot.h"
#include "parrot/oplib/ops.h"
-#include "inter_call.str"
+#include "pcc.str"
-/* HEADERIZER HFILE: include/parrot/inter_call.h */
+/* HEADERIZER HFILE: include/parrot/call.h */
/* HEADERIZER BEGIN: static */
/* Don't modify between HEADERIZER BEGIN / HEADERIZER END. Your changes will be lost. */
More information about the parrot-commits
mailing list