develooper Front page | perl.cvs.parrot | Postings from December 2008

[svn:parrot] r33748 - in branches/calling_conventions: compilers/imcc include/parrot src/jit/i386

From:
particle
Date:
December 10, 2008 00:13
Subject:
[svn:parrot] r33748 - in branches/calling_conventions: compilers/imcc include/parrot src/jit/i386
Message ID:
20081210081303.DA20ACB9AF@x12.develooper.com
Author: particle
Date: Wed Dec 10 00:13:02 2008
New Revision: 33748

Modified:
   branches/calling_conventions/compilers/imcc/imc.h
   branches/calling_conventions/compilers/imcc/pbc.c
   branches/calling_conventions/include/parrot/inter_call.h
   branches/calling_conventions/include/parrot/multidispatch.h
   branches/calling_conventions/src/jit/i386/exec_dep.h

Log:
[src] headerizer updates

Modified: branches/calling_conventions/compilers/imcc/imc.h
==============================================================================
--- branches/calling_conventions/compilers/imcc/imc.h	(original)
+++ branches/calling_conventions/compilers/imcc/imc.h	Wed Dec 10 00:13:02 2008
@@ -129,9 +129,9 @@
 
 
 /* HEADERIZER BEGIN: compilers/imcc/imcparser.c */
+/* Don't modify between HEADERIZER BEGIN / HEADERIZER END.  Your changes will be lost. */
 
-PARROT_WARN_UNUSED_RESULT
-PARROT_CAN_RETURN_NULL
+PARROT_CANNOT_RETURN_NULL
 Instruction * IMCC_create_itcall_label(PARROT_INTERP)
         __attribute__nonnull__(1);
 
@@ -139,15 +139,16 @@
         __attribute__nonnull__(1)
         __attribute__nonnull__(2);
 
-PARROT_WARN_UNUSED_RESULT
 PARROT_CANNOT_RETURN_NULL
 Instruction * INS_LABEL(PARROT_INTERP,
     ARGMOD_NULLOK(IMC_Unit *unit),
-    ARGIN(SymReg *r0),
+    ARGMOD(SymReg *r0),
     int emit)
         __attribute__nonnull__(1)
-        __attribute__nonnull__(3);
+        __attribute__nonnull__(3)
+        FUNC_MODIFIES(*r0);
 
+/* Don't modify between HEADERIZER BEGIN / HEADERIZER END.  Your changes will be lost. */
 /* HEADERIZER END: compilers/imcc/imcparser.c */
 
 /* HEADERIZER BEGIN: compilers/imcc/parser_util.c */

Modified: branches/calling_conventions/compilers/imcc/pbc.c
==============================================================================
--- branches/calling_conventions/compilers/imcc/pbc.c	(original)
+++ branches/calling_conventions/compilers/imcc/pbc.c	Wed Dec 10 00:13:02 2008
@@ -114,14 +114,14 @@
     ARGIN(const char *name),
     ARGIN(const subs_t *sym),
     ARGOUT(int *pc),
-    ARGOUT(int *sub_id))
+    ARGOUT(int *subid_matched))
         __attribute__nonnull__(1)
         __attribute__nonnull__(2)
         __attribute__nonnull__(3)
         __attribute__nonnull__(4)
         __attribute__nonnull__(5)
         FUNC_MODIFIES(*pc)
-        FUNC_MODIFIES(*sub_id);
+        FUNC_MODIFIES(*subid_matched);
 
 PARROT_WARN_UNUSED_RESULT
 PARROT_CAN_RETURN_NULL

Modified: branches/calling_conventions/include/parrot/inter_call.h
==============================================================================
--- branches/calling_conventions/include/parrot/inter_call.h	(original)
+++ branches/calling_conventions/include/parrot/inter_call.h	Wed Dec 10 00:13:02 2008
@@ -175,10 +175,9 @@
         FUNC_MODIFIES(*dest_indexes);
 
 PARROT_EXPORT
-void Parrot_pcc_invoke_sub_from_c_args(PARROT_INTERP,
+void Parrot_pcc_invoke_from_sig_object(PARROT_INTERP,
     ARGIN(PMC *sub_obj),
-    ARGIN(const char *sig),
-    ...)
+    ARGIN(PMC *sig_obj))
         __attribute__nonnull__(1)
         __attribute__nonnull__(2)
         __attribute__nonnull__(3);
@@ -196,6 +195,15 @@
         FUNC_MODIFIES(*method_name);
 
 PARROT_EXPORT
+void Parrot_pcc_invoke_sub_from_c_args(PARROT_INTERP,
+    ARGIN(PMC *sub_obj),
+    ARGIN(const char *sig),
+    ...)
+        __attribute__nonnull__(1)
+        __attribute__nonnull__(2)
+        __attribute__nonnull__(3);
+
+PARROT_EXPORT
 void Parrot_process_args(PARROT_INTERP,
     ARGMOD(call_state *st),
     arg_pass_t param_or_result)
@@ -220,14 +228,6 @@
         __attribute__nonnull__(4)
         FUNC_MODIFIES(*dest);
 
-PARROT_EXPORT
-void Parrot_pcc_invoke_from_sig_object(PARROT_INTERP,
-    ARGIN(PMC *sub_obj),
-    ARGIN(PMC *sig_obj))
-        __attribute__nonnull__(1)
-        __attribute__nonnull__(2)
-        __attribute__nonnull__(3);
-
 PARROT_WARN_UNUSED_RESULT
 PARROT_CAN_RETURN_NULL
 void * set_retval(PARROT_INTERP, int sig_ret, ARGIN(Parrot_Context *ctx))

Modified: branches/calling_conventions/include/parrot/multidispatch.h
==============================================================================
--- branches/calling_conventions/include/parrot/multidispatch.h	(original)
+++ branches/calling_conventions/include/parrot/multidispatch.h	Wed Dec 10 00:13:02 2008
@@ -72,11 +72,10 @@
 PARROT_WARN_UNUSED_RESULT
 PARROT_CANNOT_RETURN_NULL
 PMC* Parrot_build_sig_object_from_varargs(PARROT_INTERP,
-    ARGIN(PMC* obj),
+    ARGIN_NULLOK(PMC* obj),
     ARGIN(const char *sig),
     va_list args)
         __attribute__nonnull__(1)
-        __attribute__nonnull__(2)
         __attribute__nonnull__(3);
 
 PARROT_EXPORT

Modified: branches/calling_conventions/src/jit/i386/exec_dep.h
==============================================================================
--- branches/calling_conventions/src/jit/i386/exec_dep.h	(original)
+++ branches/calling_conventions/src/jit/i386/exec_dep.h	Wed Dec 10 00:13:02 2008
@@ -19,35 +19,18 @@
 /* HEADERIZER BEGIN: src/exec_dep.c */
 /* Don't modify between HEADERIZER BEGIN / HEADERIZER END.  Your changes will be lost. */
 
-void offset_fixup(ARGMOD(Parrot_exec_objfile_t *obj))
-        __attribute__nonnull__(1)
-        FUNC_MODIFIES(*obj);
-
-void Parrot_exec_cpcf_op(ARGMOD(Parrot_jit_info_t *jit_info), PARROT_INTERP)
-        __attribute__nonnull__(1)
-        __attribute__nonnull__(2)
-        FUNC_MODIFIES(*jit_info);
-
-void Parrot_exec_normal_op(
-    ARGMOD(Parrot_jit_info_t *jit_info),
-    PARROT_INTERP)
-        __attribute__nonnull__(1)
-        __attribute__nonnull__(2)
-        FUNC_MODIFIES(*jit_info);
-
-void Parrot_exec_normal_op(
-    ARGMOD(Parrot_jit_info_t *jit_info),
-    PARROT_INTERP)
-        __attribute__nonnull__(1)
-        __attribute__nonnull__(2)
-        FUNC_MODIFIES(*jit_info);
-
-void Parrot_exec_restart_op(
-    ARGMOD(Parrot_jit_info_t *jit_info),
-    PARROT_INTERP)
-        __attribute__nonnull__(1)
-        __attribute__nonnull__(2)
-        FUNC_MODIFIES(*jit_info);
+void offset_fixup(Parrot_exec_objfile_t *obj);
+void Parrot_exec_cpcf_op(Parrot_jit_info_t *jit_info, PARROT_INTERP)
+        __attribute__nonnull__(2);
+
+void Parrot_exec_normal_op(Parrot_jit_info_t *jit_info, PARROT_INTERP)
+        __attribute__nonnull__(2);
+
+void Parrot_exec_normal_op(Parrot_jit_info_t *jit_info, PARROT_INTERP)
+        __attribute__nonnull__(2);
+
+void Parrot_exec_restart_op(Parrot_jit_info_t *jit_info, PARROT_INTERP)
+        __attribute__nonnull__(2);
 
 /* Don't modify between HEADERIZER BEGIN / HEADERIZER END.  Your changes will be lost. */
 /* HEADERIZER END: src/exec_dep.c */



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About