Add workaround for issue parrot#742

gerdr · Mar 18, 2012 · fd5866e · fd5866e
1 parent ecaac1a
commit fd5866e
Showing 1 changed file with 8 additions and 4 deletions.
diff --git a/src/interp/inter_cb.c b/src/interp/inter_cb.c
@@ -314,16 +314,20 @@ Parrot_run_callback(PARROT_INTERP,
         pasm_sig[1] = 'v';
         break;
       case 'l':
-        i_param = (INTVAL)(long) external_data;
+        // FIXME: issue #742
+        i_param = (INTVAL) external_data;
         goto case_I;
       case 'i':
-        i_param = (INTVAL)(int)(long) external_data;
+        // FIXME: issue #742
+        i_param = (INTVAL)(int)(INTVAL) external_data;
         goto case_I;
       case 's':
-        i_param = (INTVAL)(short)(long) external_data;
+        // FIXME: issue #742
+        i_param = (INTVAL)(short)(INTVAL) external_data;
         goto case_I;
       case 'c':
-        i_param = (INTVAL)(char)(long)external_data;
+        // FIXME: issue #742
+        i_param = (INTVAL)(char)(INTVAL) external_data;
 case_I:
         pasm_sig[1] = 'I';
         param = (void*) i_param;