2013-09-26 17:14:40 +02:00

16 lines
532 B
Plaintext

$NetBSD: patch-yg,v 1.1.1.1 2009/10/28 06:13:40 dholland Exp $
Fix integer types for modern ocaml.
--- Pict/lexer.src.orig 1998-03-22 18:27:14.000000000 -0500
+++ Pict/lexer.src 2009-10-27 21:26:43.000000000 -0400
@@ -183,7 +183,7 @@ rule main = parse
| ['0'-'9']+
| '-'?['0'-'9']+
- { Parser.INTV{i=info lexbuf; v=int_of_string (text lexbuf)} }
+ { Parser.INTV{i=info lexbuf; v=Int32.of_string (text lexbuf)} }
| ['A'-'Z' 'a'-'z' '_']['A'-'Z' 'a'-'z' '_' '0'-'9' '\'']*
{ createID (info lexbuf) (text lexbuf) }