[Gcl-devel] PLT patch

[Jerry James]

This is the patch I used to resolve the recent issue with .iplt
sections and compilation of open-axiom:

diff -dur gcl-2.6.8.ORIG/o/makefile gcl-2.6.8/o/makefile
--- gcl-2.6.8.ORIG/o/makefile   2009-08-11 15:11:17.769474923 -0600
+++ gcl-2.6.8/o/makefile        2009-08-11 15:11:46.167645473 -0600
@@ -149,7 +149,7 @@
        $(CC) -c $(CFLAGS) $(DEFS) $*.c $(AUX_INFO)

 plt.h: plttest.o
-       nm $< | $(AWK) '/ U / {if ($$NF!=2) next;a=$$2;if (k) sub("^_","",a);\
+       nm $< | $(AWK) '/ U / {if (NF!=2) next;a=$$2;if (k) sub("^_","",a);\
                             print a}' \
                        k=$(LEADING_UNDERSCORE) |\
                        sort | \
diff -dur gcl-2.6.8.ORIG/o/plt.c gcl-2.6.8/o/plt.c
--- gcl-2.6.8.ORIG/o/plt.c      2008-08-03 09:16:22.000000000 -0600
+++ gcl-2.6.8/o/plt.c   2009-08-11 15:12:26.627506327 -0600
@@ -135,7 +135,7 @@
   for (i=j=0,li=Cnil;fgets(b,sizeof(b),f);) {
     if (!memchr(b,10,sizeof(b)-1))
       FEerror("plt buffer too small", 0);
-    if (memcmp(b," .plt",4) && !i)
+    if ((memcmp(b," .plt",5) || memcmp(b," .iplt",6)) && !i)
       continue;
     if (*b=='\r' || *b=='\n') {
       i=0;

-- 
Jerry James
http://www.jamezone.org/