diff options
| author | Xavier Leroy <xavier.leroy@inria.fr> | 1996-03-07 13:45:57 +0000 |
|---|---|---|
| committer | Xavier Leroy <xavier.leroy@inria.fr> | 1996-03-07 13:45:57 +0000 |
| commit | 38d0c776bfbb463a0302d98b35cdcc33812eb425 (patch) | |
| tree | bdb16571229f101023c297e7b68199f0d196fc4e /bytecomp/printlambda.ml | |
| parent | 669bf28452b60cb13d5c0de3dfc3032cdc4c2cbe (diff) | |
| download | ocaml-38d0c776bfbb463a0302d98b35cdcc33812eb425.tar.gz | |
Ajout de la primitive %absfloat (valeur absolue flottante).
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@683 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'bytecomp/printlambda.ml')
| -rw-r--r-- | bytecomp/printlambda.ml | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/bytecomp/printlambda.ml b/bytecomp/printlambda.ml index 7668bedafb..36ebfcb9a1 100644 --- a/bytecomp/printlambda.ml +++ b/bytecomp/printlambda.ml @@ -89,6 +89,7 @@ let primitive = function | Pintoffloat -> print_string "int_of_float" | Pfloatofint -> print_string "float_of_int" | Pnegfloat -> print_string "~." + | Pabsfloat -> print_string "abs." | Paddfloat -> print_string "+." | Psubfloat -> print_string "-." | Pmulfloat -> print_string "*." |