🚀 go-pugleaf

Compiling a program which somehow gets linked against /unix, I found
that the version of collect2 in gcc 2.7.2 reported:

collect2: / : library not found.

It turns out that the scan_libraries function used when XCOFF_SCAN_LIBS
is defined wasn't using the proper format.  (At least for AIX 3.2.3.)

The patch below corrects scan_libraries so that it properly deals with
the 3 NUL terminated fields of each entry in the shared library
dependency list.

-Rob Ryan
Andrew Consortium
Thu Dec 07 16:47:38 1995 Rob Ryan <robr@cmu.edu>

        * collect2.c: The scan_libraries function used when
          XCOFFF_SCAN_LIBS is defined is corrected to deal
          with the 3 NUL terminated fields used under AIX 3.2.3
          at least.

*** collect2.c.orig	Thu Dec  7 16:40:13 1995
--- collect2.c	Thu Dec  7 16:40:21 1995
***************
*** 2615,2639 ****
        FREAD (impbuf, ldh.l_istlen, 1, ldptr);
        idx = strlen (impbuf) + 1;
        idx += strlen (impbuf+idx) + 1;
        if (debug)
  	fprintf (stderr, "LIBPATH=%s\n", impbuf);
        prefix_from_string (impbuf, &libpath);
        while (idx < ldh.l_istlen)
! 	{
! 	  char *implib = impbuf + idx;
  	  char *impmem = implib + strlen (implib) + 1;
  	  char *soname = 0;
  	  LDFILE *libptr = NULL;
  	  struct prefix_list *pl;
  	  ARCHDR ah;
  	  idx += strlen (implib) + 1;
- 	  if (!implib[0])
- 	    continue;
  	  idx += strlen (impmem) + 1;
! 	  if (*implib == '/')
  	    {
! 	      if (access (soname, R_OK) == 0)
! 		soname = implib;
  	    }
  	  else
  	    {
--- 2615,2652 ----
        FREAD (impbuf, ldh.l_istlen, 1, ldptr);
        idx = strlen (impbuf) + 1;
        idx += strlen (impbuf+idx) + 1;
+       idx += strlen (impbuf+idx) + 1;
        if (debug)
  	fprintf (stderr, "LIBPATH=%s\n", impbuf);
        prefix_from_string (impbuf, &libpath);
        while (idx < ldh.l_istlen)
!       {
! 	  char *imppath = impbuf + idx;
! 	  char *implib = imppath + strlen(imppath) + 1;
  	  char *impmem = implib + strlen (implib) + 1;
  	  char *soname = 0;
  	  LDFILE *libptr = NULL;
  	  struct prefix_list *pl;
  	  ARCHDR ah;
+ 	  idx += strlen (imppath) + 1;
  	  idx += strlen (implib) + 1;
  	  idx += strlen (impmem) + 1;
! 	  if (debug)
! 	    {
! 	      fprintf(stderr, "path '%s'\n", imppath);
! 	      fprintf(stderr, "lib '%s'\n", implib);
! 	      fprintf(stderr, "member '%s'\n", impmem);
! 	    }
! 	  if (!implib[0])
! 	      continue;
! 	  if (*imppath)
  	    {
! 	      char *loc=alloca(strlen(imppath)+strlen(implib)+1);
! 	      strcpy(loc, imppath);
! 	      strcat(loc, implib);
! 	      if (access (loc, R_OK) == 0) {
! 		  soname=loc;
! 	      }
  	    }
  	  else
  	    {