Suite a la nouvelle interface avec le GC: stocker les offsets dans les frame descriptors sans le 96 en plus

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@1803 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
master
Xavier Leroy 1997-11-25 12:59:56 +00:00
parent 20d3b7872e
commit ba8856fa7b
1 changed files with 2 additions and 1 deletions

View File

@ -175,7 +175,8 @@ let record_frame live =
{typ = Addr; loc = Reg r} ->
live_offset := ((r lsl 1) + 1) :: !live_offset
| {typ = Addr; loc = Stack s} as reg ->
live_offset := slot_offset s (register_class reg) :: !live_offset
live_offset :=
slot_offset s (register_class reg) - 96 :: !live_offset
| _ -> ())
live;
frame_descriptors :=