Update Glulxe to 0.4.7

[projects/chimara/chimara.git] / interpreters / glulxe / exec.c

diff --git a/interpreters/glulxe/exec.c b/interpreters/glulxe/exec.c
index 4dd3fcdc757d7c36f9e5159b11088bbe766f13c6..af69189b4cf2ef85ec7294d2e965b8b39653821c 100644 (file)
--- a/interpreters/glulxe/exec.c
+++ b/interpreters/glulxe/exec.c
@@ -523,27 +523,27 @@ void execute_loop()
         break;
 
       case op_streamchar:
-        profile_in(2, FALSE);
+        profile_in(0xE0000001, stackptr, FALSE);
         value = inst[0].value & 0xFF;
         (*stream_char_handler)(value);
-        profile_out();
+        profile_out(stackptr);
         break;
       case op_streamunichar:
-        profile_in(2, FALSE);
+        profile_in(0xE0000002, stackptr, FALSE);
         value = inst[0].value;
         (*stream_unichar_handler)(value);
-        profile_out();
+        profile_out(stackptr);
         break;
       case op_streamnum:
-        profile_in(2, FALSE);
+        profile_in(0xE0000003, stackptr, FALSE);
         vals0 = inst[0].value;
         stream_num(vals0, FALSE, 0);
-        profile_out();
+        profile_out(stackptr);
         break;
       case op_streamstr:
-        profile_in(2, FALSE);
+        profile_in(0xE0000004, stackptr, FALSE);
         stream_string(inst[0].value, 0, 0);
-        profile_out();
+        profile_out(stackptr);
         break;
 
       default:
@@ -615,12 +615,12 @@ void execute_loop()
         break;
 
       case op_glk:
-        profile_in(1, FALSE);
+        profile_in(0xF0000000+inst[0].value, stackptr, FALSE);
         value = inst[1].value;
         arglist = pop_arguments(value, 0);
         val0 = perform_glk(inst[0].value, value, arglist);
         store_operand(inst[2].desttype, inst[2].value, val0);
-        profile_out();
+        profile_out(stackptr);
         break;
 
       case op_random: