/[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 996 by johnpye, Thu Oct 26 10:18:53 2006 UTC revision 997 by johnpye, Sun Dec 24 01:33:59 2006 UTC
# Line 869  int BinTokenCalcResidual(int btable, int Line 869  int BinTokenCalcResidual(int btable, int
869        func = ctable[bindex].F;        func = ctable[bindex].F;
870  #if 0 /* setting this to 1 is a major performance hit. */  #if 0 /* setting this to 1 is a major performance hit. */
871        if (func != NULL) {        if (func != NULL) {
872          if (setjmp(g_fpe_env)==0) {          if (SETJMP(g_fpe_env)==0) {
873            (*func)(vars,residual);            (*func)(vars,residual);
874            return 0;            return 0;
875          } else {          } else {
# Line 898  int BinTokenCalcResidual(int btable, int Line 898  int BinTokenCalcResidual(int btable, int
898          ForG = BinTokenRESIDUAL;          ForG = BinTokenRESIDUAL;
899  #ifndef NO_SIGNAL_TRAPS  #ifndef NO_SIGNAL_TRAPS
900          Asc_SignalHandlerPush(SIGFPE,Asc_SignalTrap);          Asc_SignalHandlerPush(SIGFPE,Asc_SignalTrap);
901          if (setjmp(g_fpe_env)==0) {          if (SETJMP(g_fpe_env)==0) {
902  #endif /* NO_SIGNAL_TRAPS */  #endif /* NO_SIGNAL_TRAPS */
903            (*subroutine)(vars,NULL,residual,&ForG,&bindex,&status);            (*subroutine)(vars,NULL,residual,&ForG,&bindex,&status);
904  #ifndef NO_SIGNAL_TRAPS  #ifndef NO_SIGNAL_TRAPS
# Line 947  int BinTokenCalcGradient(int btable, int Line 947  int BinTokenCalcGradient(int btable, int
947        if (func != NULL) {        if (func != NULL) {
948  #ifndef NO_SIGNAL_TRAPS  #ifndef NO_SIGNAL_TRAPS
949          Asc_SignalHandlerPush(SIGFPE,Asc_SignalTrap);          Asc_SignalHandlerPush(SIGFPE,Asc_SignalTrap);
950          if (setjmp(g_fpe_env)==0) {          if (SETJMP(g_fpe_env)==0) {
951  #endif /* NO_SIGNAL_TRAPS */  #endif /* NO_SIGNAL_TRAPS */
952            (*func)(vars,gradient,residual);            (*func)(vars,gradient,residual);
953  #ifndef NO_SIGNAL_TRAPS  #ifndef NO_SIGNAL_TRAPS
# Line 977  int BinTokenCalcGradient(int btable, int Line 977  int BinTokenCalcGradient(int btable, int
977          ForG = BinTokenGRADIENT;          ForG = BinTokenGRADIENT;
978  #ifndef NO_SIGNAL_TRAPS  #ifndef NO_SIGNAL_TRAPS
979          Asc_SignalHandlerPush(SIGFPE,Asc_SignalTrap);          Asc_SignalHandlerPush(SIGFPE,Asc_SignalTrap);
980          if (setjmp(g_fpe_env)==0) {          if (SETJMP(g_fpe_env)==0) {
981  #endif /* NO_SIGNAL_TRAPS */  #endif /* NO_SIGNAL_TRAPS */
982            (*subroutine)(vars,gradient,residual,&ForG,&bindex,&status);            (*subroutine)(vars,gradient,residual,&ForG,&bindex,&status);
983  #ifndef NO_SIGNAL_TRAPS  #ifndef NO_SIGNAL_TRAPS
Legend:
Removed from v.996  
changed lines
  Added in v.997
john.pye@anu.edu.au
 ViewVC Help
Powered by ViewVC 1.1.22