bruce pointed out a missing pop (thanks), and now i can find them. i
think. whee. anyway, revised patch follows.
--- 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:47:20 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,15 @@
return;
tval = (num_args) ? args[0].u.val : time(NULL);
+
+#ifdef __BORLANDC__
+ if (tval < 18000) {
+ pop(num_args);
+ 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);
|