From 8ed75bdee3efeba19532d5d9d06470b98343271f Mon Sep 17 00:00:00 2001 From: Adam Chlipala Date: Thu, 12 Aug 2004 04:30:30 +0000 Subject: [PATCH] Updated for SML/NJ 110.46 --- .cvsignore | 1 + libpq/.cvsignore | 1 + libpq/FFI/.cvsignore | 1 + libpq/pg.sml | 4 ++-- 4 files changed, 5 insertions(+), 2 deletions(-) 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, -- 2.20.1