Diff for /gforth/engine/support.c between versions 1.32 and 1.33

version 1.32, 2008/08/09 13:24:25 version 1.33, 2008/10/09 16:30:56
Line 532  void gforth_ms(UCell u) Line 532  void gforth_ms(UCell u)
   (void)select(0,0,0,0,&timeout);    (void)select(0,0,0,0,&timeout);
 #endif /* !defined(HAVE_NANOSLEEP) */  #endif /* !defined(HAVE_NANOSLEEP) */
 }  }
   
   UCell gforth_dlopen(Char *c_addr, UCell u)
   {
     char * file=tilde_cstr(c_addr, u, 1);
   #ifdef HAVE_LIBLTDL
     return (UCell)lt_dlopen(file);
   #elif defined(HAVE_LIBDL) || defined(HAVE_DLOPEN)
   #ifndef RTLD_GLOBAL
   #define RTLD_GLOBAL 0
   #endif
     return (UCell)dlopen(file, RTLD_GLOBAL | RTLD_LAZY);
   #else
   #  ifdef _WIN32
     return (Cell) GetModuleHandle(file);
   #  else
   #warning Define open-lib!
     return 0;
   #  endif
   #endif
   }
   
 #endif /* !defined(STANDALONE) */  #endif /* !defined(STANDALONE) */
   
   

Removed from v.1.32  
changed lines
  Added in v.1.33


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>