/[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 94 by johnpye, Wed Dec 7 15:44:43 2005 UTC revision 95 by johnpye, Thu Dec 8 16:20:25 2005 UTC
# Line 457  enum bintoken_error WriteResidualCode(FI Line 457  enum bintoken_error WriteResidualCode(FI
457    }    }
458    
459    CLINE("static");    CLINE("static");
460    FPRINTF(fp, "void r_%d(double *x,double *residual){", nrel);    FPRINTF(fp, "void r_%d(double *x,double *residual){\n", nrel);
461    CLINE("\t*residual =");    CLINE("\t*residual =");
462  #define FMTNORMAL 1  #define FMTNORMAL 1
463  #if FMTNORMAL  #if FMTNORMAL
# Line 632  enum bintoken_error BinTokenSharesToC(st Line 632  enum bintoken_error BinTokenSharesToC(st
632    /* so long as makefile deletes previous dll, windows is ok though */    /* so long as makefile deletes previous dll, windows is ok though */
633    sprintf(g_bt_data.regname,"BinTokenArch_%d_%d",++(g_bt_data.nextid),(int)pid);    sprintf(g_bt_data.regname,"BinTokenArch_%d_%d",++(g_bt_data.nextid),(int)pid);
634    FPRINTF(fp,"int DLEXPORT %s(){\n",g_bt_data.regname);    FPRINTF(fp,"int DLEXPORT %s(){\n",g_bt_data.regname);
   CLINE("{");  
635    CLINE("\tint status;");    CLINE("\tint status;");
636    FPRINTF(fp,"\tstatic struct TableC g_ctable[%lu] =\n",len+1);    FPRINTF(fp,"\tstatic struct TableC g_ctable[%lu] =\n",len+1);
637    CLINE("\t\t{ {NULL, NULL},");    CLINE("\t\t{ {NULL, NULL},");

Legend:
Removed from v.94  
changed lines
  Added in v.95

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