[Nickle] nickle: Branch 'refs/tags/2.63' - 3 commits

Keith Packard keithp at keithp.com
Sat Dec 29 16:16:03 PST 2007


Rebased ref, commits from common ancestor:
commit cafadd2f2655b30fcc86df0b76492ac5afbf4152
Author: Keith Packard <keithp at keithp.com>
Date:   Sat Dec 29 16:08:07 2007 -0800

    Update to version 2.63

diff --git a/configure.in b/configure.in
index 91cd2cc..7eaa968 100644
--- a/configure.in
+++ b/configure.in
@@ -7,7 +7,7 @@ dnl for licensing information.
 AC_PREREQ(2.59)
 
 AC_INIT([nickle],
-	2.62,
+	2.63,
 	[http://nickle.org],
 	nickle)
 
diff --git a/debian/changelog b/debian/changelog
index b10c941..68c4aeb 100644
--- a/debian/changelog
+++ b/debian/changelog
@@ -1,3 +1,11 @@
+nickle (2.63-1) unstable; urgency=low
+  * Avoid using extra libraries unless necessary
+  * Fix -Wl,-E testing by using AC_LINK_IFELSE
+  * Make foreign objects equal when they point at the same data
+  * Bump to version 2.63
+
+ -- Keith Packard <keithp at keithp.com>  Sat, 29 Dec 2007 16:02:57 -0800
+
 nickle (2.62-1) unstable; urgency=low
   * Add modulus test case
   * Fix % and // operators to follow modulus rules
commit b0638d82ad3ad22e6de8c0c371bf76330db489d3
Author: Keith Packard <keithp at keithp.com>
Date:   Sat Dec 29 15:56:28 2007 -0800

    Make foreign objects equal when they point at the same data.

diff --git a/foreign.c b/foreign.c
index 3ed8ee5..bcbe2f4 100644
--- a/foreign.c
+++ b/foreign.c
@@ -11,7 +11,7 @@
 static Value
 ForeignEqual (Value av, Value bv, int expandOk)
 {
-    if (av == bv)
+    if (av->foreign.data == bv->foreign.data)
 	return TrueVal;
     return FalseVal;
 }
commit 974283319c7ef54fa301df9b5eda26d3195e49e4
Author: Bart Massey <bart at cs.pdx.edu>
Date:   Sat Dec 29 00:59:41 2007 -0800

    added newlines where missing in calls to panic()

diff --git a/mem.c b/mem.c
index 99993ff..984d884 100644
--- a/mem.c
+++ b/mem.c
@@ -272,7 +272,7 @@ MemAddRoot (void *object)
 	    RootSize *= 2;
 	roots = malloc (sizeof (void *) * RootSize);
 	if (!roots)
-	    panic ("Out of memory");
+	    panic ("Out of memory\n");
 	memcpy (roots, Roots, RootCount * sizeof (void *));
 	if (Roots)
 	    free (Roots);
diff --git a/stack.c b/stack.c
index 32ce28a..e36157a 100644
--- a/stack.c
+++ b/stack.c
@@ -79,7 +79,7 @@ StackPop (StackObject *stack)
 	}
 	stack->current = previous;
 	if (!stack->current)
-	    panic ("Stack underflow");
+	    panic ("Stack underflow\n");
 	STACK_TOP(stack) = previous->elements;
     }
     return *STACK_TOP(stack)++;
@@ -109,7 +109,7 @@ StackDrop (StackObject *stack, int i)
 	}
 	stack->current = previous;
 	if (!stack->current)
-	    panic ("Stack underflow");
+	    panic ("Stack underflow\n");
 	STACK_TOP(stack) = CHUNK_MIN(previous);
     }
     STACK_ASSERT (stack);
@@ -130,7 +130,7 @@ StackReset (StackObject *stack, StackPointer stackPointer)
 	}
 	stack->current = previous;
 	if (!stack->current)
-	    panic ("Stack underflow");
+	    panic ("Stack underflow\n");
 	STACK_TOP(stack) = CHUNK_MIN(previous);
     }
     STACK_TOP(stack) = stackPointer;
@@ -159,7 +159,7 @@ StackElt (StackObject *stack, int i)
 	i -= CHUNK_MAX(chunk) - stackPointer;
 	chunk = chunk->previous;
 	if (!chunk)
-	    panic ("StackElt underflow");
+	    panic ("StackElt underflow\n");
 	stackPointer = CHUNK_MIN(chunk);
     }
     return stackPointer[i];


More information about the Nickle mailing list