[prev in list] [next in list] [prev in thread] [next in thread] 

List:       nix-dev
Subject:    [Nix-dev] Patch for Ocaml 3.11 for MIPS
From:       rixed () happyleptic ! org (rixed at happyleptic ! org)
Date:       2010-10-25 20:42:10
Message-ID: 20101025204210.GA1658 () yeeloong
[Download RAW message or body]

The current ocaml package for MIPS is already patched to allow
native code generation, which is great. Anyway, for little endian
MIPS (such as lemote machines) a bug is yet to be patched (related
to stack handling when more than 5 parameters are passed to a function).

The patch yet to be applied is attached, or the whole patch against
vanilla ocaml sources is attached (for a long time now) to ocaml
bugtracker [1].

[1]: http://caml.inria.fr/mantis/file_download.php?file_id=336&type=bug



-------------- next part --------------
diff -r asmcomp/mips/proc.ml /debian/home/rixed/src/my_ocaml/asmcomp/mips/proc.ml
117c117
<           ofs := !ofs + size_int
---
>           ofs := !ofs + 8
146c146
<    (i.e. at +4 from natural address). *)   
---
>    (i.e. at +4 from natural address for big endians). *)   
161c161
<       | ty    -> loc.(i) <- stack_slot (Outgoing (!ofs + 4)) ty
---
>       | ty    -> loc.(i) <- stack_slot (Outgoing (!ofs + (if big_endian then 4 else 0))) ty

[prev in list] [next in list] [prev in thread] [next in thread]