Ekdohibs
/
ocaml
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Minor fix in display of float values in errors messages (camlp4) 

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@11124 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
master
Xavier Clerc 2011-07-20 12:07:05 +00:00
parent c91db736b1
commit 90e27e2019
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
camlp4/Camlp4/ErrorHandler.ml
View File

@ -92,7 +92,7 @@ module ObjTools = struct
| x when x = Obj.string_tag ->
"\"" ^ String.escaped (Obj.magic r : string) ^ "\""
| x when x = Obj.double_tag ->
string_of_float (Obj.magic r : float)
Camlp4_import.Oprint.float_repres (Obj.magic r : float)
| x when x = Obj.abstract_tag ->
opaque "abstract"
| x when x = Obj.custom_tag ->

2
camlp4/boot/Camlp4.ml
View File

@ -2938,7 +2938,7 @@ module ErrorHandler :
| x when x = Obj.string_tag ->
"\"" ^ ((String.escaped (Obj.magic r : string)) ^ "\"")
| x when x = Obj.double_tag ->
string_of_float (Obj.magic r : float)
Camlp4_import.Oprint.float_repres (Obj.magic r : float)
| x when x = Obj.abstract_tag -> opaque "abstract"
| x when x = Obj.custom_tag -> opaque "custom"
| x when x = Obj.final_tag -> opaque "final"