[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