[svn:parrot] r41648 - branches/pcc_reapply/src

[bacek at svn.parrot.org]

Author: bacek
Date: Sat Oct  3 22:24:57 2009
New Revision: 41648
URL: https://trac.parrot.org/parrot/changeset/41648

Log:
Make frame_builder.c buildable but broken

Modified:
   branches/pcc_reapply/src/frame_builder.c

Modified: branches/pcc_reapply/src/frame_builder.c
==============================================================================
--- branches/pcc_reapply/src/frame_builder.c	Sat Oct  3 21:07:35 2009	(r41647)
+++ branches/pcc_reapply/src/frame_builder.c	Sat Oct  3 22:24:57 2009	(r41648)
@@ -177,53 +177,6 @@
         return NULL;
 }
 
-/*
- * set return value
- */
-void
-set_nci_I(PARROT_INTERP, ARGOUT(call_state *st), INTVAL val)
-{
-    Parrot_init_ret_nci(interp, st, "I");
-    if (st->dest.i < st->dest.n) {
-        UVal_int(st->val) = val;
-        Parrot_convert_arg(interp, st);
-        Parrot_store_arg(interp, st);
-    }
-}
-
-void
-set_nci_N(PARROT_INTERP, ARGOUT(call_state *st), FLOATVAL val)
-{
-    Parrot_init_ret_nci(interp, st, "N");
-    if (st->dest.i < st->dest.n) {
-        UVal_num(st->val) = val;
-        Parrot_convert_arg(interp, st);
-        Parrot_store_arg(interp, st);
-    }
-}
-
-void
-set_nci_S(PARROT_INTERP, ARGOUT(call_state *st), STRING *val)
-{
-    Parrot_init_ret_nci(interp, st, "S");
-    if (st->dest.i < st->dest.n) {
-        UVal_str(st->val) = val;
-        Parrot_convert_arg(interp, st);
-        Parrot_store_arg(interp, st);
-    }
-}
-
-void
-set_nci_P(PARROT_INTERP, ARGOUT(call_state *st), PMC* val)
-{
-    Parrot_init_ret_nci(interp, st, "P");
-    if (st->dest.i < st->dest.n) {
-        UVal_pmc(st->val) = val;
-        Parrot_convert_arg(interp, st);
-        Parrot_store_arg(interp, st);
-    }
-}
-
 int
 emit_is8bit(long disp)
 {
@@ -461,8 +414,9 @@
     emitm_movl_m_r(interp, pc, emit_EAX, emit_EBP, 0, 1, 8);
     emitm_movl_r_m(interp, pc, emit_EAX, emit_EBP, 0, 1, temp_calls_offset + 0);
 
-    if (sig && *sig)
-      emitm_call_cfunc(pc, Parrot_init_arg_nci);
+    // FIXME This whole function require major rework
+    //if (sig && *sig)
+    //  emitm_call_cfunc(pc, Parrot_init_arg_nci);
 
     while (*sig) {
         emitm_movl_i_m(pc, arg_count, emit_EBP, 0, 1, temp_calls_offset + 8);