cvsuser     04/04/11 03:41:22

  Modified:    config/gen/platform/darwin dl.c
               t/native_pbc number.t
  Log:
  This is most assuredly an incomplete patch - but since src/dynext.c is
  searching in multiple locations for files on behalf of the op
  "loadlib", you get multiple warnings to stderr as a matter of course
  when running loadlib.
  
  Courtesy of Will Coleda <[EMAIL PROTECTED]>
  
  Revision  Changes    Path
  1.2       +1 -19     parrot/config/gen/platform/darwin/dl.c
  
  Index: dl.c
  ===================================================================
  RCS file: /cvs/public/parrot/config/gen/platform/darwin/dl.c,v
  retrieving revision 1.1
  retrieving revision 1.2
  diff -u -w -r1.1 -r1.2
  --- dl.c      19 Feb 2004 17:06:10 -0000      1.1
  +++ dl.c      11 Apr 2004 10:41:17 -0000      1.2
  @@ -50,30 +50,12 @@
           { /* that didn't work either; go ahead and report the orignal error */
   
               switch(dyld_result) {
  +            /* XXX for now, ignore all the known errors */
               case NSObjectFileImageFailure:
  -                fprintf(stderr,
  -                        "open result was Failure (%i) for filename [%s]\n",
  -                        dyld_result, filename);
  -                break;
               case NSObjectFileImageInappropriateFile:
  -                fprintf(stderr,
  -                        "open result was InappropriateFile (%i) for filename 
[%s]\n",
  -                        dyld_result, filename);
  -                break;
               case NSObjectFileImageArch:
  -                fprintf(stderr,
  -                        "open result was Arch (%i) for filename [%s]\n",
  -                        dyld_result, filename);
  -                break;
               case NSObjectFileImageFormat:
  -                fprintf(stderr,
  -                        "open result was Format (%i) for filename [%s]\n",
  -                        dyld_result, filename);
  -                break;
               case NSObjectFileImageAccess:
  -                fprintf(stderr,
  -                        "open result was Access (%i) for filename [%s]\n",
  -                        dyld_result, filename);
                   break;
               default:
                   fprintf(stderr,
  
  
  
  1.20      +2 -2      parrot/t/native_pbc/number.t
  
  Index: number.t
  ===================================================================
  RCS file: /cvs/public/parrot/t/native_pbc/number.t,v
  retrieving revision 1.19
  retrieving revision 1.20
  diff -u -w -r1.19 -r1.20
  --- number.t  11 Apr 2004 09:37:42 -0000      1.19
  +++ number.t  11 Apr 2004 10:41:22 -0000      1.20
  @@ -1,6 +1,6 @@
   #! perl -w
   # Copyright: 2001-2003 The Perl Foundation.  All Rights Reserved.
  -# $Id: number.t,v 1.19 2004/04/11 09:37:42 leo Exp $
  +# $Id: number.t,v 1.20 2004/04/11 10:41:22 leo Exp $
   
   =head1 NAME
   
  @@ -32,7 +32,7 @@
   # - increase number of tests
   # - include the pdump header info for reference
   # - put the file into MANIFEST
  -# - add the file as binary and commit it
  +# - add the file as binary (cvs add -kb) and commit it
   # thanks -leo
   
   EOC
  
  
  

Reply via email to