sanitize floats that start with .

paulfitz · Feb 12, 2015 · c86d0a6 · c86d0a6
1 parent 92aa5ae
commit c86d0a6
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/genrb.ml b/genrb.ml
@@ -537,6 +537,7 @@ let is_dynamic_iterator ctx e =
 let gen_constant ctx p = function
 	| TInt i -> print ctx "%ld" i
 	| TFloat s -> 
+	    if (s.[0] == '.') then spr ctx "0";
 	    spr ctx s;
 	    if (s.[(String.length s)-1] == '.') then spr ctx "0"
 	| TString s -> print ctx "\"%s\"" (Ast.s_escape s)