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

diff --git a/interpreters/glulxe/funcs.c b/interpreters/glulxe/funcs.c
index c0aac4d..2e03ccd 100644
--- a/interpreters/glulxe/funcs.c
+++ b/interpreters/glulxe/funcs.c
@@ -23,14 +23,14 @@ void enter_function(glui32 addr, glui32 argc, glui32 *argv)
 
   accelfunc = accel_get_func(addr);
   if (accelfunc) {
-    profile_in(addr, TRUE);
+    profile_in(addr, stackptr, TRUE);
     val = accelfunc(argc, argv);
-    profile_out();
+    profile_out(stackptr);
     pop_callstub(val);
     return;
   }
     
-  profile_in(addr, FALSE);
+  profile_in(addr, stackptr, FALSE);
 
   /* Check the Glulx type identifier byte. */
   functype = Mem1(addr);
@@ -190,8 +190,8 @@ void enter_function(glui32 addr, glui32 argc, glui32 *argv)
 */
 void leave_function()
 {
+  profile_out(stackptr);
   stackptr = frameptr;
-  profile_out();
 }
 
 /* push_callstub():