Re: [Gcl-devel] Re: GCL working on MacOS X

[Camm Maguire]

Greetings, and thank you so much for this!

So with this file, we can build the symbol table, but we'd still need
some agency to do the relocation.  We have three choices: 1) bfd
(premature mach-o support) 2) native relocation (requires a sfaslelf.c
equivalent) or 3) no native relocation, use dlopen.  I take it that 3)
is the quickest, albeit less featureful.

Do you have a working build using dlopen?  In case you haven't tried
this yet, you can do

./configure --disable-statsysbfd --enable-dlopen.

You should be able to build maxima, acl2, and axiom, but you have to
rely on the --enable-gcl-alt-link maxima configuration option, for
example.

Please let me know how this is going.  It would be great if we could
arrange for a native Mac OS-X binary tarball on the ftp site.

Take care,



Aurelien Chanudet <address@hidden> writes:

> Hi all,
> 
> As a quick follow-up to my previous post, BFD is only used on Mac OS X
> by gdb.
> The Mac OS X binary tools don't use BFD, so for instance, ld has it's
> own
> binary format reader, and provides its own nm, etc. Pretty much all
> BFD is
> needed for in gdb is to open and parse the segments and sections of
> Mach-O
> object files.  That part of it works quite well.  But no other part
> has been tested, since the tools that exercise them are not supported.
> For this reason, using BFD to load object code on Mac OS X isn't
> encouraged.
> Instead, the dynamic loader comes with its own API's to do all this.
> 
> Below is a SPECIAL_RSYM file to grab external symbols from a Mach-O
> object
> file.
> 
> Cheers,
> Aurelien
> 
> /*
>     File rsym_macosx.c
>     
>     Build an executable rsym for Mac OS X (31 July 2003).
>     
>     Grab only the external symbols from a Mach-O object file, and put
> them
>     in a simple format. This information will be used for relocation.
>     
>     Aurelien Chanudet (aurelienDOTchanudetATm4xDOTorg)
> */
> 
> #include <mach-o/loader.h>
> #include <mach-o/nlist.h>
> 
> #include <mach/mach.h>
> 
> /* #include <stdio.h> */
> #include <fcntl.h>
> #include <stdlib.h>
> #include <unistd.h>
> #include <sys/types.h>
> #include <sys/stat.h>
> 
> #define IN_RSYM 1
> 
> /* #include "config.h" */
> #include "ext_sym.h"
> 
> void rsym_error (char *format, ...)
> {
>     va_list ap;
>     
>     va_start (ap, format);
>     fprintf (stderr, "rsym: ");
>     vfprintf (stderr, format, ap);
>     fprintf (stderr, "\n");
>     va_end (ap);
>     exit (1);
> }
> 
> int rsym_select_symbol(struct nlist *symbol)
> {
>     if (symbol->n_type & N_STAB) {
>         return(FALSE);
>     }
>     if (symbol->n_sect == NO_SECT) {
>         return(FALSE);
>     }
>     return (symbol->n_type & N_EXT);
> }
> 
> void rsym_doit2 (struct nlist *symbols, unsigned long nsyms, char
> *outfile)
> {
>     unsigned long i;
>     struct lsymbol_table tab;
>     FILE *symout;
>     
>     if (!(symout = fopen (outfile, "wb"))) {
>         rsym_error ("cannot open file for writing: %s", outfile);
>     }
> 
>     tab.n_symbols=0;
>     tab.tot_leng=0;
>     
>     fseek (symout, sizeof(tab), 0);
>     
>     for (i=0 ; i < nsyms ; i++)
>     {
>         int addr = (int) symbols[i].n_value;
>         char *name = symbols[i].n_un.n_name;
>         
>         if (addr && name)
>         {
>             tab.n_symbols++;
>             fwrite (&addr, sizeof (int), 1, symout);
>             while (tab.tot_leng++, *name)
>                 putc (*name++, symout);
>             putc (0, symout);
>         }
>         else {
>             fprintf (stderr, "warning: malformed symbol\n");
>         }
>     }
>     
>     fseek (symout, 0, 0);
>     fwrite (&tab, sizeof(tab), 1, symout);
>     
>     fclose (symout);
> }
> 
> void rsym_doit1 (char *infile, char *outfile)
> {
>     struct stat stat_buf;
>     struct mach_header *mh;
>     struct load_command *lc;
>     struct symtab_command *st;
>     struct dysymtab_command *dyst;
>     unsigned long nsyms, i, size;
>     unsigned long strsize;
>     struct nlist *symtab, *selected_symbols;
>     kern_return_t r;
>     char *strtab;
>     char *addr;
>     int fd;
>     
>     if ((fd = open (infile, O_RDONLY, 0)) < 0) {
>         rsym_error ("cannot open input file: %s", infile);
>     }
>     
>     if (fstat (fd, &stat_buf) == -1) {
>         rsym_error ("cannot fstat file: %s", infile);
>     }
>     
>     size = stat_buf.st_size;
>     
>     if ((r = map_fd (fd, (vm_offset_t) 0, (vm_offset_t *) &addr,
>             (boolean_t) TRUE, (vm_size_t) size)) != KERN_SUCCESS) {
>         rsym_error ("cannot map file in memory: %s", infile);
>     }
>     
>     mh = (struct mach_header *) addr;
>     lc = (struct load_command *) ((char *) addr + sizeof(struct
> mach_header));
>     
>     for (i=0 ; i < mh->ncmds ; i++) {
>         if (lc->cmd == LC_SYMTAB) {
>             st = (struct symtab_command *) lc;
>         }
>         else if (lc->cmd == LC_DYSYMTAB) {
>             dyst = (struct dysymtab_command *) lc;
>         }
>         lc = (struct load_command *) ((char *) lc + lc->cmdsize);
>     }
>     
>     symtab = (struct nlist *) ((char *) addr + st->symoff);
>     selected_symbols = (struct nlist *) malloc (sizeof(struct nlist) *
> st->nsyms);
>     nsyms = 0;
>     
>     for (i = 0 ; i < st->nsyms ; i++) {
>         if (rsym_select_symbol (symtab + i))
>             selected_symbols[nsyms++] = symtab[i];
>     }
>     
>     strtab = addr + st->stroff;
>     strsize = st->strsize;
>     
>     for (i = 0 ; i < nsyms ; i++) {
>         if (selected_symbols[i].n_un.n_strx == 0)
>             selected_symbols[i].n_un.n_name = "";
>         else if (selected_symbols[i].n_un.n_strx < 0 ||
>                 selected_symbols[i].n_un.n_strx > strsize)
>             selected_symbols[i].n_un.n_name = "bad string index";
>         else
>             selected_symbols[i].n_un.n_name =
> selected_symbols[i].n_un.n_strx + strtab;
>         
>         fprintf (stderr, "debug: %8x %s\n", (unsigned int)
> selected_symbols[i].n_value,
>             selected_symbols[i].n_un.n_name);
>     }
>     
>     rsym_doit2 (selected_symbols, nsyms, outfile);
>     
>     free (selected_symbols);
>     
>     if (vm_deallocate (mach_task_self (), (vm_address_t) addr,
> (vm_size_t) size) != KERN_SUCCESS) {
>         fprintf (stderr, "warning: failed to deallocate mapped
> file\n");
>     }
>     
>     close (fd);
> }
> 
> int main (int argc, char **argv, char **envp)
> {
>     if (argc != 3) {
>         fprintf (stderr, "usage: rsym <infile> <outfile>\n");
>         exit (1);
>     }
>     
>     rsym_doit1 (argv[1], argv[2]);
>     
>     return 0;
> }
> _______________________________________________
> Gcl-devel mailing list
> address@hidden
> http://mail.gnu.org/mailman/listinfo/gcl-devel

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