[Gcl-devel] Re: still a problem with interrupts in 64-bit GCL

[Camm Maguire]

Greetings!  Could you please verify that the following patch is in
your rebuilt newly checked out cvs source?

Take care,

cvs -z9 -q diff -u -r 1.11.4.1.4.2 -r 1.11.4.1.4.2.14.1 usig2.c
Index: usig2.c
===================================================================
RCS file: /sources/gcl/gcl/o/usig2.c,v
retrieving revision 1.11.4.1.4.2
retrieving revision 1.11.4.1.4.2.14.1
diff -u -r1.11.4.1.4.2 -r1.11.4.1.4.2.14.1
--- usig2.c     14 Sep 2003 02:30:45 -0000      1.11.4.1.4.2
+++ usig2.c     26 Feb 2009 18:08:02 -0000      1.11.4.1.4.2.14.1
@@ -228,13 +228,13 @@
              SS1(p->free2[i],OBJ_LINK(p->free1[i]));
              ad->tm_nfree --;
              bcopy(beg ,&(p->buf[i]), amt);
-             bzero(beg+8,amt-8);
+             bzero(beg+sizeof(struct freelist),amt-sizeof(struct freelist));
              x->d.m = 0;
              if (p->free2[i])
                { x = (object) p->free2[i];
                  beg = (char *)x;
                  x->d.m = 0;
-                 bzero(beg+8,amt-8);
+                 bzero(beg+sizeof(struct freelist),amt-sizeof(struct 
freelist));
                  SS1(ad->tm_free,OBJ_LINK(p->free2[i]));
                  ad->tm_nfree --;
                }

-- 
Camm Maguire                                        address@hidden
==========================================================================
"The earth is but one country, and mankind its citizens."  --  Baha'u'llah