/[ascend]/trunk/tcltk98/generic/interface/CodeGen.c
ViewVC logotype

Diff of /trunk/tcltk98/generic/interface/CodeGen.c

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

revision 40 by jds, Sat Jan 22 14:22:13 2005 UTC revision 89 by johnpye, Wed Dec 7 15:44:43 2005 UTC
# Line 979  int CodeGen_WriteBuiltInFuncs(FILE *f, T Line 979  int CodeGen_WriteBuiltInFuncs(FILE *f, T
979        count += FPRINTF(f,",2]");        count += FPRINTF(f,",2]");
980        return;        return;
981      case F_SQRT: count += FPRINTF(f,"Sqrt["); break;      case F_SQRT: count += FPRINTF(f,"Sqrt["); break;
982      case F_ERF:  count += FPRINTF(f,"Erf["); break;  #ifdef HAVE_ERF
983        case F_ERF:  count += FPRINTF(f,"Erf["); break;
984    #endif
985      case F_LNM:  count += FPRINTF(f,"Log["); break;      case F_LNM:  count += FPRINTF(f,"Log["); break;
986      case F_SINH: count += FPRINTF(f,"Sinh["); break;      case F_SINH: count += FPRINTF(f,"Sinh["); break;
987      case F_COSH: count += FPRINTF(f,"Cosh["); break;      case F_COSH: count += FPRINTF(f,"Cosh["); break;
# Line 1018  int CodeGen_WriteBuiltInFuncs(FILE *f, T Line 1020  int CodeGen_WriteBuiltInFuncs(FILE *f, T
1020        count = FPRINTF(f,")/SIN("); break;        count = FPRINTF(f,")/SIN("); break;
1021      case F_SQR: count += FPRINTF(f,"SQR("); break;      case F_SQR: count += FPRINTF(f,"SQR("); break;
1022      case F_SQRT: count += FPRINTF(f,"SQRT("); break;      case F_SQRT: count += FPRINTF(f,"SQRT("); break;
1023    #ifdef HAVE_ERF
1024      case F_ERF:  count += FPRINTF(f,"ERF("); break;      case F_ERF:  count += FPRINTF(f,"ERF("); break;
1025    #endif
1026      case F_LNM:  count += FPRINTF(f,"LOG"); break;      case F_LNM:  count += FPRINTF(f,"LOG"); break;
1027          /* WARNING: lnm not implemented here */          /* WARNING: lnm not implemented here */
1028      case F_SINH: count += FPRINTF(f,"0.5*(EXP(");      case F_SINH: count += FPRINTF(f,"0.5*(EXP(");

Legend:
Removed from v.40  
changed lines
  Added in v.89

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