/[ascend]/trunk/base/generic/compiler/bintoken.c
ViewVC logotype

Diff of /trunk/base/generic/compiler/bintoken.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 157 by johnpye, Thu Dec 22 15:18:02 2005 UTC revision 158 by johnpye, Mon Jan 2 09:02:52 2006 UTC
# Line 69  TIMESTAMP = -DTIMESTAMP="\"by `whoami`@` Line 69  TIMESTAMP = -DTIMESTAMP="\"by `whoami`@`
69    
70  #define CLINE(a) FPRINTF(fp,"%s\n",(a))  #define CLINE(a) FPRINTF(fp,"%s\n",(a))
71    
 #if (defined(__HPUX__) || defined(__ALPHA_OSF__) || \  
      defined(__WIN32__) || defined(__SUN_SOLARIS__) || \  
      defined(__SUN_SUNOS__) || defined(__SGI_IRIX__))  
 #define HAVE_DL_UNLOAD 1  
 #endif  
 /* we don't know about ultrix, aix, and others */  
   
72  enum bintoken_error {  enum bintoken_error {
73    BTE_ok,    BTE_ok,
74    BTE_badrel,    BTE_badrel,
# Line 227  void BinTokenDeleteReference(int btable) Line 220  void BinTokenDeleteReference(int btable)
220    g_bt_data.tables[btable].refcount--;    g_bt_data.tables[btable].refcount--;
221    if (g_bt_data.tables[btable].refcount == 0) {    if (g_bt_data.tables[btable].refcount == 0) {
222      /* unload the library if possible here */      /* unload the library if possible here */
223        error_reporter(ASC_PROG_ERR,NULL,0,"No more references to bintoken");
224  #if HAVE_DL_UNLOAD  #if HAVE_DL_UNLOAD
225        error_reporter(ASC_PROG_ERR,NULL,0,"UNLOADING %s",g_bt_data.tables[btable].name);
226      Asc_DynamicUnLoad(g_bt_data.tables[btable].name);      Asc_DynamicUnLoad(g_bt_data.tables[btable].name);
227  #endif /* havedlunload */  #endif /* havedlunload */
228      ascfree(g_bt_data.tables[btable].name);      ascfree(g_bt_data.tables[btable].name);

Legend:
Removed from v.157  
changed lines
  Added in v.158

john.pye@anu.edu.au
ViewVC Help
Powered by ViewVC 1.1.22