[svn:parrot] r41661 - branches/pcc_reapply/src/call

[bacek at svn.parrot.org]

Author: bacek
Date: Sun Oct  4 01:26:57 2009
New Revision: 41661
URL: https://trac.parrot.org/parrot/changeset/41661

Log:
Simplify fill_returns functions values handling. CPointer will cast values by it self.

Modified:
   branches/pcc_reapply/src/call/args.c

Modified: branches/pcc_reapply/src/call/args.c
==============================================================================
--- branches/pcc_reapply/src/call/args.c	Sun Oct  4 01:08:56 2009	(r41660)
+++ branches/pcc_reapply/src/call/args.c	Sun Oct  4 01:26:57 2009	(r41661)
@@ -1155,10 +1155,6 @@
 
         switch (PARROT_ARG_TYPE_MASK_MASK(return_flags)) {
             case PARROT_ARG_INTVAL:
-                if (Parrot_str_equal(interp, item_sig, CONST_STRING(interp, "P"))) {
-                    VTABLE_set_pmc(interp, result_item,
-                            pmc_new(interp, Parrot_get_ctx_HLL_type(interp, enum_class_Integer)));
-                }
                 if (constant)
                     VTABLE_set_integer_native(interp, result_item, raw_index);
                 else
@@ -1166,10 +1162,6 @@
                 return_list_index++;
                 break;
             case PARROT_ARG_FLOATVAL:
-                if (Parrot_str_equal(interp, item_sig, CONST_STRING(interp, "P"))) {
-                    VTABLE_set_pmc(interp, result_item,
-                        pmc_new(interp, Parrot_get_ctx_HLL_type(interp, enum_class_Float)));
-                }
                 if (constant)
                     VTABLE_set_number_native(interp, result_item,
                             Parrot_pcc_get_num_constant(interp, ctx, raw_index));
@@ -1178,10 +1170,6 @@
                 return_list_index++;
                 break;
             case PARROT_ARG_STRING:
-                if (Parrot_str_equal(interp, item_sig, CONST_STRING(interp, "P"))) {
-                    VTABLE_set_pmc(interp, result_item,
-                            pmc_new(interp, Parrot_get_ctx_HLL_type(interp, enum_class_String)));
-                }
                 if (constant)
                     VTABLE_set_string_native(interp, result_item, Parrot_str_new_COW(interp,
                             Parrot_pcc_get_string_constant(interp, ctx, raw_index)));
@@ -1298,26 +1286,14 @@
 
         switch (PARROT_ARG_TYPE_MASK_MASK(return_flags)) {
             case PARROT_ARG_INTVAL:
-                if (Parrot_str_equal(interp, item_sig, CONST_STRING(interp, "P"))) {
-                    VTABLE_set_pmc(interp, result_item, pmc_new(
-                        interp, Parrot_get_ctx_HLL_type(interp, enum_class_Integer)));
-                }
                 VTABLE_set_integer_native(interp, result_item, va_arg(args, INTVAL));
                 return_list_index++;
                 break;
             case PARROT_ARG_FLOATVAL:
-                if (Parrot_str_equal(interp, item_sig, CONST_STRING(interp, "P"))) {
-                    VTABLE_set_pmc(interp, result_item, pmc_new(
-                        interp, Parrot_get_ctx_HLL_type(interp, enum_class_Float)));
-                }
                 VTABLE_set_number_native(interp, result_item, va_arg(args, FLOATVAL));
                 return_list_index++;
                 break;
             case PARROT_ARG_STRING:
-                if (Parrot_str_equal(interp, item_sig, CONST_STRING(interp, "P"))) {
-                    VTABLE_set_pmc(interp, result_item, pmc_new(
-                        interp, Parrot_get_ctx_HLL_type(interp, enum_class_String)));
-                }
                 VTABLE_set_string_native(interp, result_item,
                         Parrot_str_new_COW(interp, va_arg(args, STRING *)));
                 return_list_index++;