conservatory/elk
4
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

elk (3.0-9) unstable; urgency=low

Browse Source 
* New maintainer.
  * Packaging updates:
    + Fixed spelling in the package description (Closes: #161056).
    + Updated standards version to 3.5.9.0.
    + Changed SCM_DIR from /usr/lib/elk/scm to /usr/share/elk/scm because
      scheme scripts are platform-independent.
  * Massive code cleanups:
    + Added -Wall to the build rules to make error spotting easier, and fixed
      all compilation warnings in the main program.
    + Replaced sys_errlist with strerror, bcopy with memcpy, bzero with memset.
    + Fixed many uninitialized variables.
  * Fixed some pointer/integer type confusions which caused elk to crash
    on alpha (Closes: #59893) and probably ia64.
  * Fixed a read overflow in heap-gen.c:AllocPage() that was corrupting the
    internal heap (Closes: #57621).
  * Fixed a missing memory area initialization in heap-gen.c:ExpandHeap() that
    was causing garbage collector crashes.
  * Fixed an integer sign issue in main.c:Max_Stack (Closes: #176190).
  * Made `quit' an alias for `exit' in toplevel.scm.
 -- Samuel Hocevar <sam@zoy.org>  Tue,  1 Apr 2003 11:33:23 +0200


git-svn-id: svn://svn.zoy.org/elk/trunk@3 55e467fa-43c5-0310-a8a2-de718669efc6
This commit is contained in:
sam
2003-08-19 19:24:23 +00:00
parent f37781fa62
commit d51c970c8d
71 changed files with 1748 additions and 1459 deletions
Download Patch File Download Diff File Expand all files Collapse all files
lib/misc/bitstring.c
+9 -9
View File
@@ -15,15 +15,15 @@ static int masks2[] = { 0, 0x1, 0x3, 0x7, 0xF, 0x1F, 0x3F, 0x7F, 0xFF };
int T_Bitstring;
static Object P_Bitstringp(x) Object x; {
static Object P_Bitstringp(Object x) {
return TYPE(x) == T_Bitstring ? True : False;
}
static int Bitstring_Size(b) Object b; {
static int Bitstring_Size(Object b) {
return sizeof(struct S_Bitstring) + bits_to_bytes(BITSTRING(b)->len) - 1;
}
static Bitstring_Equal(b1, b2) Object b1, b2; {
static Bitstring_Equal(Object b1, Object b2) {
struct S_Bitstring *a = BITSTRING(b1), *b = BITSTRING(b2);
if (a->len != b->len)
@@ -31,11 +31,11 @@ static Bitstring_Equal(b1, b2) Object b1, b2; {
return !bcmp(a->data, b->data, bits_to_bytes(a->len));
}
static Object P_Bitstring_Equalp(a, b) Object a, b; {
static Object P_Bitstring_Equalp(Object a, Object b) {
return Bitstring_Equal(a, b) ? True : False;
}
static char *Digits(c, n) unsigned char c; int n; {
static char *Digits(unsigned char c, int n) {
static char buf[9];
int i = 0;
@@ -47,7 +47,7 @@ static char *Digits(c, n) unsigned char c; int n; {
/* Print starting with MSB
*/
static Bitstring_Print(x, port, raw, depth, length) Object x, port; {
static Bitstring_Print(Object x, Object port, int raw, int depth, int length) {
int i, rem;
struct S_Bitstring *b = BITSTRING(x);
GC_Node2;
@@ -62,7 +62,7 @@ static Bitstring_Print(x, port, raw, depth, length) Object x, port; {
GC_Unlink;
}
static Object Make_Bitstring(len) unsigned len; {
static Object Make_Bitstring(unsigned int len) {
Object b;
int nbytes = bits_to_bytes(len);
@@ -73,7 +73,7 @@ static Object Make_Bitstring(len) unsigned len; {
return b;
}
static void Fill_Bitstring(bs, fill) Object bs; int fill; {
static void Fill_Bitstring(Object bs, int fill) {
struct S_Bitstring *b = BITSTRING(bs);
int i, rem;
unsigned char val = fill ? ~0 : 0;
@@ -85,7 +85,7 @@ static void Fill_Bitstring(bs, fill) Object bs; int fill; {
b->data[i] = val;
}
static Object P_Make_Bitstring(len, init) Object len, init; {
static Object P_Make_Bitstring(Object len, Object init) {
Object ret;
int n, fill;
lib/misc/newhandler.c
+1 -1
View File
@@ -10,7 +10,7 @@ static void New_Handler_Proc () {
(void)Funcall (New_Handler, Null, 0);
}
static Object P_Set_New_Handler (p) Object p; {
static Object P_Set_New_Handler (Object p) {
Object old;
Check_Procedure (p);