$NetBSD: patch-ye,v 1.1.1.1 2009/10/28 06:13:40 dholland Exp $

Fix integer types for modern ocaml.

--- Pict/inter.ml.orig	2009-10-27 20:34:18.000000000 -0400
+++ Pict/inter.ml	2009-10-27 20:42:04.000000000 -0400
@@ -65,7 +65,7 @@ type proc =
   | SKIP 
 
 and atom =
-    INT of int
+    INT of int32
   | CHAR of char
   | BOOL of bool
   | ADDR of Var.var
@@ -170,7 +170,7 @@ and printBoxProc bi p =
   Format.open_hvbox 0; printProc bi p; Format.close_box()
 
 and printAtom = function
-  INT(i) -> Format.print_int i
+  INT(i) -> Format.print_string (Int32.to_string i)
 | CHAR(c) ->
     Format.print_string "'"; Format.print_char c; Format.print_string "'"
 | COERCION(co,a) ->
@@ -217,7 +217,7 @@ and printCCode ci sl l =
 in
   Format.open_hbox();
   Format.print_string "(ccode ";
-  Format.print_int ci.Ccode.alloc; Format.print_string " ";
+  Format.print_int (Int32.to_int ci.Ccode.alloc); Format.print_string " ";
   printCi ci; print sl l; Format.print_string ")";
   Format.close_box()
 
@@ -228,7 +228,7 @@ and printCCall ci s l =
 in
   Format.open_hbox();
   Format.print_string "(ccode ";
-  Format.print_int ci.Ccode.alloc; Format.print_string " ";
+  Format.print_int (Int32.to_int ci.Ccode.alloc); Format.print_string " ";
   printCi ci; Format.print_string s; Format.print_string " ";
   print false l; Format.print_string ")";
   Format.close_box()