Re: [Gcl-devel] configure and make failed on FreeBSD

[GOTO Kentaro]

Hi, 

With previous patches and some additional changes attached below, 
I got raw_gcl but saved_gcl was not created as follows:

  echo " (in-package \"USER\")(system:save-system \"saved_gcl\")" >>foo
  ./raw_gcl ./ -libdir /usr/home/gotoken/savannah/gcl/ < foo
  GCL (GNU Common Lisp)  April 1994  32768 pages
  Building symbol table for ./raw_gcl ..
  loading ./../lsp/export.lsp
  Initializing defmacro.o
  Can't open file ~s
  Lisp initialization failed.
  gmake[1]: Leaving directory `/usr/home/gotoken/savannah/gcl/unixport'
[...]
  gmake[1]: Entering directory `/usr/home/gotoken/savannah/gcl/cmpnew'
  ../unixport/saved_gcl ../unixport/ -compile collectfn.lsp
  gmake[1]: ../unixport/saved_gcl: Command not found
  gmake[1]: *** [collectfn.o] Error 127
  gmake[1]: Leaving directory `/usr/home/gotoken/savannah/gcl/cmpnew'
  gmake: *** [cmpnew/collectfn.o] Error 2


Any advises are greatly appreciated.


Gotoken

Index: h/FreeBSD.h
===================================================================
RCS file: /cvsroot/gcl/gcl/h/FreeBSD.h,v
retrieving revision 1.1.1.1
diff -u -r1.1.1.1 FreeBSD.h
@@ -75,6 +77,24 @@
 #define INSTALL_SEGMENTATION_CATCHER \
         (void) gcl_signal(SIGSEGV, segmentation_catcher); \
         (void) gcl_signal(SIGBUS, segmentation_catcher)
+
+#include <stdio.h>
+#define SEEK_TO_END_OFILE(x) fseek((x), 0L, SEEK_END)
+
+#ifdef USE_DLOPEN
+#define SPECIAL_RSYM "rsym_elf.c"
+#define SEPARATE_SFASL_FILE "fasldlsym.c"
+#else
+#ifdef HAVE_LIBBFD
+#define SEPARATE_SFASL_FILE "sfaslbfd.c"
+#else
+#if !defined(__i386__) && !defined(__sparc__)
+#error Can only do non-bfd relocs for i386 and sparc
+#endif
+#define SPECIAL_RSYM "rsym_elf.c"
+#define SEPARATE_SFASL_FILE "sfaslelf.c"
+#endif
+#endif
 
 /*
  * The next two defines are for SGC,
Index: h/ptable.h
===================================================================
RCS file: /cvsroot/gcl/gcl/h/ptable.h,v
retrieving revision 1.4
diff -u -r1.4 ptable.h
--- h/ptable.h  12 Jul 2002 22:00:48 -0000      1.4
+++ h/ptable.h  30 Oct 2002 10:27:46 -0000
@@ -50,6 +50,8 @@
 #ifdef SPECIAL_RSYM
 struct string_address_table c_table;
 #else
+#include "bfd.h"
+#include "bfdlink.h"
 static struct bfd_link_info link_info;
 #endif
 struct string_address_table combined_table;
Index: unixport/rsym.c
===================================================================
RCS file: /cvsroot/gcl/gcl/unixport/rsym.c,v
retrieving revision 1.2
diff -u -r1.2 rsym.c
--- unixport/rsym.c     25 Jul 2002 21:49:47 -0000      1.2
+++ unixport/rsym.c     30 Oct 2002 10:27:49 -0000
@@ -59,9 +59,8 @@
 them out to a file together with their addresses */
 static char *outfile;
 
-main(argc,argv)
-int argc ;
-char *argv[];
+int
+main(int argc, char **argv, char **env)
 {
   if (argc!=3) {perror("bad arg count");
                fflush(stdout);
@@ -80,7 +79,7 @@
        unsigned int i;
        FILE *fp;
        int string_size=0;
-       extern char *malloc();
+       extern void *malloc();
         
        fp = fopen(filename, RDONLY);
        

#end of patch