cvs commit: parrot/config/gen/platform darwin.c

[dan]

cvsuser     02/11/22 08:24:06

  Modified:    config/gen/platform darwin.c
  Log:
  Make the dynaloader code a bit more forthcoming with errors
  
  Revision  Changes    Path
  1.4       +23 -0     parrot/config/gen/platform/darwin.c
  
  Index: darwin.c
  ===================================================================
  RCS file: /cvs/public/parrot/config/gen/platform/darwin.c,v
  retrieving revision 1.3
  retrieving revision 1.4
  diff -u -w -r1.3 -r1.4
  --- darwin.c  9 Jun 2002 18:17:41 -0000       1.3
  +++ darwin.c  22 Nov 2002 16:24:06 -0000      1.4
  @@ -76,6 +76,29 @@
       NSModule handle = NULL;
   
       dyld_result = NSCreateObjectFileImageFromFile(filename, &ofile);
  +    if (NSObjectFileImageSuccess != dyld_result) {
  +        switch(dyld_result) {
  +        case NSObjectFileImageFailure:
  +            fprintf(stderr, "open result was Failure (%i)\n", dyld_result);
  +            break;
  +        case NSObjectFileImageInappropriateFile:
  +            fprintf(stderr, "open result was InappropriateFile (%i)\n", 
dyld_result);
  +            break;
  +        case NSObjectFileImageArch:
  +            fprintf(stderr, "open result was Arch (%i)\n", dyld_result);
  +            break;
  +        case NSObjectFileImageFormat:
  +            fprintf(stderr, "open result was Format (%i)\n", dyld_result);
  +            break;
  +        case NSObjectFileImageAccess:
  +            fprintf(stderr, "open result was Access (%i)\n", dyld_result);
  +            break;
  +        default:
  +            fprintf(stderr, "open result was unknown (%i)\n", dyld_result);
  +            break;
  +        }
  +        exit(1);
  +    }
       handle = NSLinkModule(ofile, filename, TRUE);
       NSDestroyObjectFileImage(ofile);