X-Git-Url: https://git.stderr.nl/gitweb?a=blobdiff_plain;f=interpreters%2Fglulxe%2Fexec.c;h=af69189b4cf2ef85ec7294d2e965b8b39653821c;hb=2ab029c7428eb3e4894e7d165815c90fbc39a8b2;hp=4dd3fcdc757d7c36f9e5159b11088bbe766f13c6;hpb=c4142afddd5b220686eb64c4bd346a722f9e20c1;p=projects%2Fchimara%2Fchimara.git

diff --git a/interpreters/glulxe/exec.c b/interpreters/glulxe/exec.c
index 4dd3fcd..af69189 100644
--- 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: