From: Adam Chlipala <adamc@hcoop.net>
Date: Thu, 12 Aug 2004 04:30:30 +0000 (+0000)
Subject: Updated for SML/NJ 110.46
X-Git-Url: https://git.hcoop.net/hcoop/smlsql.git/commitdiff_plain/8ed75bdee3efeba19532d5d9d06470b98343271f?ds=sidebyside

Updated for SML/NJ 110.46
---

diff --git a/.cvsignore b/.cvsignore
index be80172..854c999 100644
--- a/.cvsignore
+++ b/.cvsignore
@@ -1 +1,2 @@
+.cm
 CM
\ No newline at end of file
diff --git a/libpq/.cvsignore b/libpq/.cvsignore
index be80172..854c999 100644
--- a/libpq/.cvsignore
+++ b/libpq/.cvsignore
@@ -1 +1,2 @@
+.cm
 CM
\ No newline at end of file
diff --git a/libpq/FFI/.cvsignore b/libpq/FFI/.cvsignore
index be80172..854c999 100644
--- a/libpq/FFI/.cvsignore
+++ b/libpq/FFI/.cvsignore
@@ -1 +1,2 @@
+.cm
 CM
\ No newline at end of file
diff --git a/libpq/pg.sml b/libpq/pg.sml
index d240dad..63d2720 100644
--- a/libpq/pg.sml
+++ b/libpq/pg.sml
@@ -204,7 +204,7 @@ struct
     fun offsetStr NONE = "+00"
       | offsetStr (SOME n) =
 	let
-	    val n = Int32.toInt (Time.toSeconds n) div 3600
+	    val n = LargeInt.toInt (Time.toSeconds n) div 3600
 	in
 	    if n < 0 then
 		"-" ^ pad (~n, 2)
@@ -230,7 +230,7 @@ struct
 		[year, mon, day, hour, minute, second, _, offset] =>
 		Date.toTime (Date.date {day = intFromSql day, hour = intFromSql hour, minute = intFromSql minute,
 					month = toMonth (intFromSql mon),
-					offset = SOME (Time.fromSeconds (Int32.fromInt (intFromSql offset * 3600))),
+					offset = SOME (Time.fromSeconds (LargeInt.fromInt (intFromSql offset * 3600))),
 					second = intFromSql second div 1000, year = intFromSql year})
 	      | [year, mon, day, hour, minute, second, _] =>
 		Date.toTime (Date.date {day = intFromSql day, hour = intFromSql hour, minute = intFromSql minute,