diff options
| author | Xavier Leroy <xavier.leroy@inria.fr> | 2003-03-03 15:58:06 +0000 |
|---|---|---|
| committer | Xavier Leroy <xavier.leroy@inria.fr> | 2003-03-03 15:58:06 +0000 |
| commit | fa97920376f70f54f171cdee1f371aad4851e84e (patch) | |
| tree | 2bd37613f2167eaa2b0175aa25b9591aa3491335 | |
| parent | 1f955eb17e76e0a4f87bbb50d48a552866b85ebc (diff) | |
Typo fldl1 -> fld1
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@5413 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
| -rw-r--r-- | asmcomp/i386/emit.mlp | 2 | ||||
| -rw-r--r-- | asmcomp/i386/emit_nt.mlp | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/asmcomp/i386/emit.mlp b/asmcomp/i386/emit.mlp index 821928e23..91e360744 100644 --- a/asmcomp/i386/emit.mlp +++ b/asmcomp/i386/emit.mlp @@ -355,7 +355,7 @@ let emit_float_test cmp neg arg lbl = (* Emit a Ifloatspecial instruction *) let emit_floatspecial = function - "atan" -> ` fldl1; fpatan\n` + "atan" -> ` fld1; fpatan\n` | "atan2" -> ` fpatan\n` | "cos" -> ` fcos\n` | "log" -> ` fldln2; fxch; fyl2x\n` diff --git a/asmcomp/i386/emit_nt.mlp b/asmcomp/i386/emit_nt.mlp index 49d19cf53..367847e7c 100644 --- a/asmcomp/i386/emit_nt.mlp +++ b/asmcomp/i386/emit_nt.mlp @@ -329,7 +329,7 @@ let emit_float_test cmp neg arg lbl = (* Emit a Ifloatspecial instruction *) let emit_floatspecial = function - "atan" -> ` fldl1\n\tfpatan\n` + "atan" -> ` fld1\n\tfpatan\n` | "atan2" -> ` fpatan\n` | "cos" -> ` fcos\n` | "log" -> ` fldln2\n\tfxch\n\tfyl2x\n` |