From 36accda8aaef4bd8daaf23e3eb369c2ca540f224 Mon Sep 17 00:00:00 2001
From: Araq <rumpf_a@web.de>
Date: Sat, 29 Jan 2011 14:18:43 +0100
Subject: unary <; countup two type parameters; --recursivePath should work now

---
 lib/system/sysio.nim | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

(limited to 'lib/system/sysio.nim')

diff --git a/lib/system/sysio.nim b/lib/system/sysio.nim
index e342296c7..80d9b1495 100755
--- a/lib/system/sysio.nim
+++ b/lib/system/sysio.nim
@@ -1,7 +1,7 @@
 #
 #
 #            Nimrod's Runtime Library
-#        (c) Copyright 2009 Andreas Rumpf
+#        (c) Copyright 2011 Andreas Rumpf
 #
 #    See the file "copying.txt", included in this
 #    distribution, for details about the copyright.
@@ -59,11 +59,19 @@ proc write(f: TFile, i: int) =
     fprintf(f, "%lld", i)
   else:
     fprintf(f, "%ld", i)
+
+proc write(f: TFile, i: biggestInt) = 
+  when sizeof(biggestint) == 8:
+    fprintf(f, "%lld", i)
+  else:
+    fprintf(f, "%ld", i)
     
 proc write(f: TFile, b: bool) =
   if b: write(f, "true")
   else: write(f, "false")
 proc write(f: TFile, r: float) = fprintf(f, "%g", r)
+proc write(f: TFile, r: biggestFloat) = fprintf(f, "%g", r)
+
 proc write(f: TFile, c: Char) = putc(c, f)
 proc write(f: TFile, a: openArray[string]) =
   for x in items(a): write(f, x)
-- 
cgit 1.4.1-2-gfad0