Only in Genesis-1.1.12-pre1: CVS
Only in Genesis-1.1.12-pre1/bin: CVS
Only in Genesis-1.1.12-pre1/doc: CVS
Only in Genesis-1.1.12-pre1/etc: CVS
diff -r -u Genesis-1.1.12-pre1/etc/notes Genesis-1.1.12-STABLE/etc/notes
--- Genesis-1.1.12-pre1/etc/notes	2004-01-03 17:17:14.000000000 -0800
+++ Genesis-1.1.12-STABLE/etc/notes	2004-05-07 22:28:08.000000000 -0700
@@ -10,7 +10,9 @@
       http://web.cold.org/contact.html
 
 RELEASE INFORMATION:
-1.1.12 [??/??/???]
+1.1.12 [5/7/2004]
+      * remove some improper win32 borland compiler logic (Jon Lambert)
+      * fix origin bug in listidx (Will Robertson)
       * fix `[buffer1] in `[buffer2] where buffer2 is empty to return 0 (Brad)
       * overhaul the configure script for db header and library finding (Brad)
 
diff -r -u Genesis-1.1.12-pre1/etc/version Genesis-1.1.12-STABLE/etc/version
--- Genesis-1.1.12-pre1/etc/version	2002-06-28 20:42:48.000000000 -0700
+++ Genesis-1.1.12-STABLE/etc/version	2004-05-07 22:28:08.000000000 -0700
@@ -1 +1 @@
-1.1.11
+1.1.12-STABLE
Only in Genesis-1.1.12-pre1/src: CVS
Only in Genesis-1.1.12-pre1/src/data: CVS
diff -r -u Genesis-1.1.12-pre1/src/data/list.c Genesis-1.1.12-STABLE/src/data/list.c
--- Genesis-1.1.12-pre1/src/data/list.c	2001-01-06 16:45:05.000000000 -0800
+++ Genesis-1.1.12-STABLE/src/data/list.c	2004-05-07 22:28:09.000000000 -0700
@@ -379,8 +379,7 @@
                 return (d - start) + 1;
         }
     } else {
-        start += origin;
-        for (d = start; d < end; d++) {
+        for (d = start + origin; d < end; d++) {
             if (data_cmp(search, d) == 0)
                 return (d - start) + 1;
         }
Only in Genesis-1.1.12-pre1/src/include: CVS
Only in Genesis-1.1.12-pre1/src/modules: CVS
diff -r -u Genesis-1.1.12-pre1/src/modules/cdc_misc.c Genesis-1.1.12-STABLE/src/modules/cdc_misc.c
--- Genesis-1.1.12-pre1/src/modules/cdc_misc.c	2002-05-23 23:09:55.000000000 -0700
+++ Genesis-1.1.12-STABLE/src/modules/cdc_misc.c	2004-05-07 22:28:09.000000000 -0700
@@ -16,12 +16,6 @@
 #include "net.h"
 #include "dns.h"
 
-#if defined(__Win32__) && !defined(__MSVC__)
-#define FTIME _lstrftime
-#else
-#define FTIME strftime
-#endif
-
 NATIVE_METHOD(strftime) {
     char        s[LINE];
     char      * fmt;
@@ -57,7 +51,7 @@
     if (fmt[strlen(fmt)] == '%')
         fmt[strlen(fmt)] = (char) NULL;
 
-    if (FTIME(s, LINE, fmt, t) == (size_t) 0)
+    if (strftime(s, LINE, fmt, t) == (size_t) 0)
        THROW((range_id,"Format results in a string longer than 80 characters."))
 
     CLEAN_RETURN_STRING(string_from_chars(s, strlen(s)));
Only in Genesis-1.1.12-pre1/src/ops: CVS
Only in Genesis-1.1.12-pre1/test: CVS
diff -r -u Genesis-1.1.12-pre1/test/test.in Genesis-1.1.12-STABLE/test/test.in
--- Genesis-1.1.12-pre1/test/test.in	2003-06-11 12:08:32.000000000 -0700
+++ Genesis-1.1.12-STABLE/test/test.in	2004-05-07 22:28:10.000000000 -0700
@@ -1999,8 +1999,11 @@
 
 		List test 6
 		  [1], 1 -> 1
+		  ['a, 'a, 'v], 'a, 2 -> 2
 		  [1, 2, 3, 4, 5, 5], 1 -> 1
 		  [1, 2, 3, 4, 5, 5], 5 -> 5
+		  [1, 2, 3, 4, 5, 5], 3, 2 -> 3
+		  [1, 2, 3, 4, 5, 5], 5, 4 -> 5
 		  [1, 2, 3, 4, 5, 5], 5, -1 -> 6
 		  [1, 2, 3, 4, 5, 5], 5, -3 -> 0
 		  [1, 2, 3, 4, 5, 5], [5, 6] -> 0
@@ -2016,9 +2019,14 @@
     dblog("List test 6");
     dblog("  " + toliteral(a) + ", 1 -> " + toliteral(listidx(a, 1)));
 
+    a = ['a, 'a, 'v];
+    dblog("  " + toliteral(a) + ", 'a, 2 -> " + toliteral(listidx(a, 'a, 2)));
+
     a = [1, 2, 3, 4, 5, 5];
     dblog("  " + toliteral(a) + ", 1 -> " + toliteral(listidx(a, 1)));
     dblog("  " + toliteral(a) + ", 5 -> " + toliteral(listidx(a, 5)));
+    dblog("  " + toliteral(a) + ", 3, 2 -> " + toliteral(listidx(a, 3, 2)));
+    dblog("  " + toliteral(a) + ", 5, 4 -> " + toliteral(listidx(a, 5, 4)));
     dblog("  " + toliteral(a) + ", 5, -1 -> " + toliteral(listidx(a, 5, -1)));
     dblog("  " + toliteral(a) + ", 5, -3 -> " + toliteral(listidx(a, 5, -3)));
     dblog("  " + toliteral(a) + ", [5, 6] -> " + toliteral(listidx(a, [5, 6])));