cvs commit: parrot/src dynext.c

[Jens Rieks]

cvsuser     04/05/26 06:04:07

  Modified:    src      dynext.c
  Log:
  temporarily disabled _PARROTLIB; make testr is not working
  
  Revision  Changes    Path
  1.26      +13 -2     parrot/src/dynext.c
  
  Index: dynext.c
  ===================================================================
  RCS file: /cvs/public/parrot/src/dynext.c,v
  retrieving revision 1.25
  retrieving revision 1.26
  diff -u -w -r1.25 -r1.26
  --- dynext.c  26 May 2004 12:19:27 -0000      1.25
  +++ dynext.c  26 May 2004 13:04:07 -0000      1.26
  @@ -1,6 +1,6 @@
   /*
   Copyright: 2001-2003 The Perl Foundation.  All Rights Reserved.
  -$Id: dynext.c,v 1.25 2004/05/26 12:19:27 jrieks Exp $
  +$Id: dynext.c,v 1.26 2004/05/26 13:04:07 jrieks Exp $
   
   =head1 NAME
   
  @@ -20,7 +20,7 @@
   #include "parrot/dynext.h"
   
   /* _PARROTLIB is now the default */
  -#define _PARROTLIB
  +/*#define _PARROTLIB not working: "make testr" */
   
   /*
   
  @@ -186,6 +186,17 @@
           *handle = Parrot_dlopen(cpath);
       }
       if (!*handle) {
  +        /*
  +         * then in runtime/ with no extension
  +         */
  +        /* TODO only if not an absolute path */
  +        string_cstring_free(cpath);
  +        path = Parrot_sprintf_c(interpreter, "runtime/parrot/%Ss",
  +                                lib);
  +        cpath = string_to_cstring(interpreter, path);
  +        *handle = Parrot_dlopen(cpath);
  +    }
  +    if (!*handle) {
           const char * err = Parrot_dlerror();
           fprintf(stderr, "Couldn't load '%s': %s\n",
                   cpath, err ? err : "unknown reason");