mirror of
https://github.com/Stichting-MINIX-Research-Foundation/pkgsrc-ng.git
synced 2025-09-24 04:03:34 -04:00
43 lines
1.3 KiB
Plaintext
43 lines
1.3 KiB
Plaintext
$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()
|