Erreur dans la sequence d'appel du GC a partir de caml_alloc.

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@852 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
bmeurer · May 29, 1996 · c8cf7ab · c8cf7ab
1 parent 9e9163f
commit c8cf7ab
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 0 deletions.
diff --git a/asmrun/i386.S b/asmrun/i386.S
@@ -123,6 +123,7 @@ G(caml_alloc):
 L103:   subl	G(young_ptr), %eax      /* eax = - size */
         negl    %eax                    /* eax = size */
         pushl   %eax                    /* save desired size */
+        subl    %eax, G(young_ptr)      /* must update young_ptr */
         movl    4(%esp), %eax
         movl    %eax, G(caml_last_return_address)
         leal    8(%esp), %eax

diff --git a/asmrun/i386nt.asm b/asmrun/i386nt.asm
@@ -130,6 +130,7 @@ _caml_alloc:
 L103:   sub     eax, _young_ptr         ; eax = - size
         neg     eax                     ; eax = size
         push    eax                     ; save desired size
+        sub     _young_ptr, eax         ; must update young_ptr
         mov	eax, [esp+4]
         mov     _caml_last_return_address, eax
         lea     eax, [esp+8]