i seem to have sent the email without the patch. DOH.
--- Genesis-1.1.8-STABLE/src/ops/misc.c Tue Jul 13 17:05:03 1999
+++ driver-src/src/ops/misc.c Thu Dec 2 10:02:52 1999
@@ -85,6 +85,13 @@
} else
time(&t);
+#ifdef __BORLANDC__
+ if (t < 18000) {
+ THROW((type_id,
+ "Borland's time util is broken, and requires time values above 18000"))
+ }
+#endif
+
tms = localtime(&t);
l = list_new(12);
@@ -154,6 +161,14 @@
return;
tval = (num_args) ? args[0].u.val : time(NULL);
+
+#ifdef __BORLANDC__
+ if (tval < 18000) {
+ THROW((type_id,
+ "Borland's time util is broken, and requires time values above 18000"))
+ }
+#endif
+
timestr = ctime(&tval);
str = string_from_chars(timestr, 24);
|