/[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 153 by johnpye, Mon Dec 19 06:12:40 2005 UTC revision 154 by johnpye, Thu Dec 22 15:18:02 2005 UTC
# Line 393  void WritePrologue(FILE *fp, struct Inst Line 393  void WritePrologue(FILE *fp, struct Inst
393                     unsigned long len, int verbose)                     unsigned long len, int verbose)
394  {  {
395    if (verbose) {    if (verbose) {
396      CLINE("/* BinTokenSharesToC $Revision: 1.12 $");      CLINE("/*\n\tBinTokenSharesToC $Revision: 1.12 $");
397      FPRINTF(fp," * %lu relations in\n * ",len);      FPRINTF(fp,"\t%lu relations in instance '",len);
398      WriteInstanceName(fp,root,NULL);      WriteInstanceName(fp,root,NULL);
399      CLINE("\n * (possibly fewer C functions required)\n */");      CLINE("'\n\t(possibly fewer C functions required)\n*/");
400    }    }
401  #ifdef HAVE_ERF  #ifdef HAVE_ERF
402    /* need to define this for btprolog.h to do the right thing */    /* need to define this for btprolog.h to do the right thing */
# Line 655  enum bintoken_error BinTokenSharesToC(st Line 655  enum bintoken_error BinTokenSharesToC(st
655    CLINE("\treturn status;");    CLINE("\treturn status;");
656    if (verbose) {    if (verbose) {
657      FPRINTF(fp,"\t/* %lu unique equations */\n",gl_length(eql.ue));      FPRINTF(fp,"\t/* %lu unique equations */\n",gl_length(eql.ue));
658      FPRINTF(ASCERR,"C Functions: %lu\n",gl_length(eql.ue));      FPRINTF(ASCERR,"Prepared %lu external C functions.\n",gl_length(eql.ue));
659    }    }
660    CLINE("}");    CLINE("}");
661    
# Line 669  static Line 669  static
669  enum bintoken_error BinTokenCompileC(char *buildcommand)  enum bintoken_error BinTokenCompileC(char *buildcommand)
670  {  {
671    int status;    int status;
672    error_reporter(ASC_PROG_NOTE,NULL,0,"Starting build, command:\n%s",buildcommand);    error_reporter(ASC_PROG_NOTE,NULL,0,"Starting build, command:\n%s\n",buildcommand);
673    status = system(buildcommand);    status = system(buildcommand);
674    if (status) {    if (status) {
675      FPRINTF(ASCERR,"\nBUILD returned %d\n",status);      FPRINTF(ASCERR,"\nBUILD returned %d\n",status);

Legend:
Removed from v.153  
changed lines
  Added in v.154

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