/[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 158 by johnpye, Mon Jan 2 09:02:52 2006 UTC revision 159 by johnpye, Mon Jan 2 09:54:52 2006 UTC
# Line 224  void BinTokenDeleteReference(int btable) Line 224  void BinTokenDeleteReference(int btable)
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);      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    #else
228        error_reporter(ASC_PROG_ERR,NULL,0,"Dynamic Unloading not available in this build");
229  #endif /* havedlunload */  #endif /* havedlunload */
230      ascfree(g_bt_data.tables[btable].name);      ascfree(g_bt_data.tables[btable].name);
231      g_bt_data.tables[btable].name = NULL;      g_bt_data.tables[btable].name = NULL;
232      g_bt_data.tables[btable].tu = NULL;      g_bt_data.tables[btable].tu = NULL;
233      g_bt_data.tables[btable].type = BT_error;      g_bt_data.tables[btable].type = BT_error;
234      }else{
235        CONSOLE_DEBUG("Deleting one reference...");
236    }    }
237  }  }
238    
# Line 702  enum bintoken_error BinTokenLoadC(struct Line 706  enum bintoken_error BinTokenLoadC(struct
706    BinTokenCheckCapacity();    BinTokenCheckCapacity();
707    status = Asc_DynamicLoad(libname,regname);    status = Asc_DynamicLoad(libname,regname);
708    if (status != 0) {    if (status != 0) {
709      FPRINTF(ASCERR,"Load failure of %s:%s\n",libname,regname);      error_reporter(ASC_PROG_WARNING,libname,0,"Failed to load library (init function %s)",regname);
710      BinTokenResetHooks();      BinTokenResetHooks();
711      /*  could do this maybe, but not needed if we want each      /*  could do this maybe, but not needed if we want each
712       * relation to get one shot only..       * relation to get one shot only..
# Line 736  void BinTokenErrorMessage(enum bintoken_ Line 740  void BinTokenErrorMessage(enum bintoken_
740    char *mess;    char *mess;
741    
742    (void)root;    (void)root;
   (void)filename;  
743    (void)buildcommand;    (void)buildcommand;
744    
745    switch(err) {    switch(err) {
# Line 762  void BinTokenErrorMessage(enum bintoken_ Line 765  void BinTokenErrorMessage(enum bintoken_
765      mess="Unknown error in BinTokenErrorMessage";      mess="Unknown error in BinTokenErrorMessage";
766      break;      break;
767    }    }
768    FPRINTF(ASCERR,"%s: %s\n",__FILE__,mess);    error_reporter(ASC_PROG_ERR,filename,0,"%s",mess);
769  }  }
770    
771  void BinTokensCreate(struct Instance *root, enum bintoken_kind method)  void BinTokensCreate(struct Instance *root, enum bintoken_kind method)

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

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