Mercurial > hg > octave-nkf

comparison src/sysdep.cc @ 1255:fa24599e3d2c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1995-04-11 17:49:27 by jwe]
author jwe
date Tue, 11 Apr 1995 17:49:27 +0000
parents cb032139cb9f
children 611d403c7f3d
comparison
equal deleted inserted replaced
1254:ecf3dc595ecb 1255:fa24599e3d2c
69 #include <sgtty.h> 69 #include <sgtty.h>
70 #else 70 #else
71 LOSE! LOSE! 71 LOSE! LOSE!
72 #endif 72 #endif
73 73
74 extern double F77_FCN (d1mach) (const int&); 74 extern double F77_FCN (d1mach, D1MACH) (const int&);
75 } 75 }
76 76
77 #ifndef STDIN_FILENO 77 #ifndef STDIN_FILENO
78 #define STDIN_FILENO 1 78 #define STDIN_FILENO 1
79 #endif 79 #endif
229 0, 0, 229 0, 0,
230 0, 0); 230 0, 0);
231 231
232 equiv mach_fp_par[4]; 232 equiv mach_fp_par[4];
233 233
234 mach_fp_par[0].d = F77_FCN (d1mach) (1); 234 mach_fp_par[0].d = F77_FCN (d1mach, D1MACH) (1);
235 mach_fp_par[1].d = F77_FCN (d1mach) (2); 235 mach_fp_par[1].d = F77_FCN (d1mach, D1MACH) (2);
236 mach_fp_par[2].d = F77_FCN (d1mach) (3); 236 mach_fp_par[2].d = F77_FCN (d1mach, D1MACH) (3);
237 mach_fp_par[3].d = F77_FCN (d1mach) (4); 237 mach_fp_par[3].d = F77_FCN (d1mach, D1MACH) (4);
238 238
239 int i = 0; 239 int i = 0;
240 do 240 do
241 { 241 {
242 if (equiv_compare (fp[i].fp_par, mach_fp_par, 4)) 242 if (equiv_compare (fp[i].fp_par, mach_fp_par, 4))