microoptimise i386.S

ocaml-flambda · Nov 4, 2019 · b215ff2 · b215ff2
1 parent 7fe3604
commit b215ff2
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 4 deletions.
diff --git a/runtime/i386.S b/runtime/i386.S
@@ -148,8 +148,7 @@ LBL(caml_call_gc):
         popl    %edi; CFI_ADJUST(-4)
         popl    %ebp; CFI_ADJUST(-4)
     /* Return to caller. Returns young_ptr in %eax. */
-        movl    G(Caml_state), %eax
-        movl    CAML_STATE(young_ptr, %eax), %eax
+        movl    CAML_STATE(young_ptr, %ebx), %eax
         ret
         CFI_ENDPROC
         ENDFUNCTION(caml_call_gc)

diff --git a/runtime/i386nt.asm b/runtime/i386nt.asm
@@ -64,8 +64,7 @@ _caml_call_gc:
         pop     edi
         pop     ebp
     ; Return to caller. Returns young_ptr in eax
-        mov     eax, _Caml_state
-        Load_young_ptr eax, eax
+        Load_young_ptr ebx, eax
         ret
 
         ALIGN  4