Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Add workaround for issue #742

  • Loading branch information...
commit fd5866e705e831029918dc3e5cd95d98d68809a0 1 parent ecaac1a
@gerdr authored
Showing with 8 additions and 4 deletions.
  1. +8 −4 src/interp/inter_cb.c
View
12 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;
Please sign in to comment.
Something went wrong with that request. Please try again.