diff options
| author | Xavier Leroy <xavier.leroy@inria.fr> | 2009-03-31 11:50:48 +0000 |
|---|---|---|
| committer | Xavier Leroy <xavier.leroy@inria.fr> | 2009-03-31 11:50:48 +0000 |
| commit | ace551abfb4f26b678bc36a62b276c2175598df0 (patch) | |
| tree | e5f336491e627009801eafcc949af1b08ae70f74 | |
| parent | 467a82f7bd8354ca087023667b225405cbf9b575 (diff) | |
| download | ocaml-ace551abfb4f26b678bc36a62b276c2175598df0.tar.gz | |
PR#4759: bad merge of emit_call, etc
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@9215 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
| -rw-r--r-- | asmcomp/amd64/emit.mlp | 19 |
1 files changed, 0 insertions, 19 deletions
diff --git a/asmcomp/amd64/emit.mlp b/asmcomp/amd64/emit.mlp index 4ab379bdaf..d80b974aff 100644 --- a/asmcomp/amd64/emit.mlp +++ b/asmcomp/amd64/emit.mlp @@ -80,25 +80,6 @@ let load_symbol_addr s = then `leaq {emit_symbol s}(%rip)` else `movq ${emit_symbol s}` - -let emit_call s = - if !Clflags.dlcode - then `call {emit_symbol s}@PLT` - else `call {emit_symbol s}` - -let emit_jump s = - if !Clflags.dlcode - then `jmp {emit_symbol s}@PLT` - else `jmp {emit_symbol s}` - -let load_symbol_addr s = - if !Clflags.dlcode - then `movq {emit_symbol s}@GOTPCREL(%rip)` - else if !pic_code - then `leaq {emit_symbol s}(%rip)` - else `movq ${emit_symbol s}` - - (* Output a label *) let emit_label lbl = |