diff options
Diffstat (limited to 'src/vm_loader.c')
-rw-r--r-- | src/vm_loader.c | 24 |
1 files changed, 12 insertions, 12 deletions
diff --git a/src/vm_loader.c b/src/vm_loader.c index 0fd8b6b33..d0046f345 100644 --- a/src/vm_loader.c +++ b/src/vm_loader.c @@ -51,7 +51,7 @@ VM_DEFINE_LOADER (load_integer, "load-integer") long val = 0; while (len-- > 0) val = (val << 8) + FETCH (); - SYNC_BEFORE_GC (); + SYNC_REGISTER (); PUSH (scm_from_ulong (val)); NEXT; } @@ -64,7 +64,7 @@ VM_DEFINE_LOADER (load_number, "load-number") size_t len; FETCH_LENGTH (len); - SYNC_BEFORE_GC (); + SYNC_REGISTER (); PUSH (scm_string_to_number (scm_from_locale_stringn ((char *)ip, len), SCM_UNDEFINED /* radix = 10 */)); /* Was: scm_istring2number (ip, len, 10)); */ @@ -76,7 +76,7 @@ VM_DEFINE_LOADER (load_string, "load-string") { size_t len; FETCH_LENGTH (len); - SYNC_BEFORE_GC (); + SYNC_REGISTER (); PUSH (scm_from_locale_stringn ((char *)ip, len)); /* Was: scm_makfromstr (ip, len, 0) */ ip += len; @@ -87,7 +87,7 @@ VM_DEFINE_LOADER (load_symbol, "load-symbol") { size_t len; FETCH_LENGTH (len); - SYNC_BEFORE_GC (); + SYNC_REGISTER (); PUSH (scm_from_locale_symboln ((char *)ip, len)); ip += len; NEXT; @@ -97,7 +97,7 @@ VM_DEFINE_LOADER (load_keyword, "load-keyword") { size_t len; FETCH_LENGTH (len); - SYNC_BEFORE_GC (); + SYNC_REGISTER (); PUSH (scm_from_locale_keywordn ((char *)ip, len)); ip += len; NEXT; @@ -107,7 +107,7 @@ VM_DEFINE_LOADER (load_module, "load-module") { size_t len; FETCH_LENGTH (len); - SYNC_BEFORE_GC (); + SYNC_REGISTER (); PUSH (scm_c_lookup_env (scm_from_locale_symboln ((char *)ip, len))); ip += len; NEXT; @@ -120,7 +120,7 @@ VM_DEFINE_LOADER (load_program, "load-program") struct scm_program *p; FETCH_LENGTH (len); - SYNC_BEFORE_GC (); + SYNC_REGISTER (); prog = scm_c_make_program (ip, len, program); p = SCM_PROGRAM_DATA (prog); ip += len; @@ -188,7 +188,7 @@ VM_DEFINE_INSTRUCTION (link_now, "link-now", 0, 1, 1) { SCM sym; POP (sym); - SYNC_BEFORE_GC (); + SYNC_REGISTER (); PUSH (scm_lookup (sym)); /* might longjmp */ NEXT; } @@ -198,7 +198,7 @@ VM_DEFINE_INSTRUCTION (link_later, "link-later", 0, 2, 1) SCM modname, sym; POP (sym); POP (modname); - SYNC_BEFORE_GC (); + SYNC_REGISTER (); PUSH (scm_cons (modname, sym)); NEXT; } @@ -209,11 +209,11 @@ VM_DEFINE_LOADER (define, "define") size_t len; FETCH_LENGTH (len); - SYNC_BEFORE_GC (); + SYNC_REGISTER (); sym = scm_from_locale_symboln ((char *)ip, len); ip += len; - SYNC_BEFORE_GC (); + SYNC_REGISTER (); PUSH (scm_sym2var (sym, scm_current_module_lookup_closure (), SCM_BOOL_T)); NEXT; } @@ -224,7 +224,7 @@ VM_DEFINE_LOADER (late_bind, "late-bind") size_t len; FETCH_LENGTH (len); - SYNC_BEFORE_GC (); + SYNC_REGISTER (); sym = scm_from_locale_symboln ((char *)ip, len); ip += len; |