diff options
| author | Xavier Leroy <xavier.leroy@inria.fr> | 2004-08-12 14:29:00 +0000 |
|---|---|---|
| committer | Xavier Leroy <xavier.leroy@inria.fr> | 2004-08-12 14:29:00 +0000 |
| commit | 357b5b7166aff542544185dc197aea187f1cb2c4 (patch) | |
| tree | 3846f3f42cf8cb8cd65d74eecf71aa1b01d40982 | |
| parent | fbd8a75492cc6b485f8572b6cd5f8f2ad44690eb (diff) | |
Referencer caml_extra_params de maniere portable
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@6595 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
| -rw-r--r-- | asmcomp/i386/emit.mlp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/asmcomp/i386/emit.mlp b/asmcomp/i386/emit.mlp index fb6aadd83..2a9e7e164 100644 --- a/asmcomp/i386/emit.mlp +++ b/asmcomp/i386/emit.mlp @@ -112,7 +112,7 @@ let emit_reg = function { loc = Reg r } -> emit_string (register_name r) | { loc = Stack(Incoming n | Outgoing n) } when n < 0 -> - `caml_extra_params + {emit_int (n + 64)}` + `{emit_symbol "caml_extra_params"} + {emit_int (n + 64)}` | { loc = Stack s } as r -> let ofs = slot_offset s (register_class r) in `{emit_int ofs}(%esp)` |