Revision 1897

trunk/src/linad99/xgradclc.cpp (revision 1897)
68 68

  
69 69
void funnel_derivatives(void);
70 70

  
71
#if (defined(__ZTC__) && !defined(DOS386))
71
#if defined(__ZTC__)
72 72
  void _far * _cdecl _farptr_norm(void _far *);
73 73
  void _far * _cdecl _farptr_fromlong(unsigned long);
74 74
  long _cdecl _farptr_tolong(void _far *);
......
136 136

  
137 137
  double * zptr;
138 138

  
139
   for (i=0 ; i< (max_last_offset/size) ; i++ )
139
   for (i = 0; i < (max_last_offset/size); i++)
140 140
   {
141 141
     tmp->x = 0;
142
     #if defined (__ZTC__)
143
       #if defined(DOS386)
144
       tmp++;
145
       #else
146
        tmp = (double_and_int  *) _farptr_norm( (void*) (++tmp)  );
147
       #endif
148
     #endif
149
     #if defined (__BORLANDC__)
150
        tmp++;
151
     #endif
152
     #if (!defined (__ZTC__) && !defined (__BORLANDC__))
153
       tmp++;
154
     #endif
142
#if defined (__ZTC__)
143
     tmp = (double_and_int*)_farptr_norm((void*)(++tmp));
144
#else
145
     tmp++;
146
#endif
155 147
   }
156 148

  
157
    * gradient_structure::GRAD_STACK1->ptr->dep_addr  = 1;
149
    *gradient_structure::GRAD_STACK1->ptr->dep_addr = 1;
158 150
    zptr = gradient_structure::GRAD_STACK1->ptr->dep_addr;
159 151

  
160
//double z;
161 152
int break_flag=1;
162 153
int funnel_flag=0;
163 154

  

Also available in: Unified diff