Mercurial > hg > octave-nkf

diff liboctave/mach-info.cc @ 3887:7da18459c08b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2002-04-04 00:44:21 by jwe]
author jwe
date Thu, 04 Apr 2002 00:46:37 +0000
parents 5eef8a2294bd
children 6cb22b9e3942
line wrap: on
line diff
--- a/liboctave/mach-info.cc
+++ b/liboctave/mach-info.cc
@@ -30,7 +30,7 @@
 
 extern "C"
 {
-  double F77_FCN (d1mach, D1MACH) (const int&);
+  double F77_FUNC (d1mach, D1MACH) (const int&);
 }
 
 oct_mach_info *oct_mach_info::instance = 0;
@@ -106,10 +106,10 @@
 
   equiv mach_fp_par[4];
 
-  mach_fp_par[0].d = F77_FCN (d1mach, D1MACH) (1);
-  mach_fp_par[1].d = F77_FCN (d1mach, D1MACH) (2);
-  mach_fp_par[2].d = F77_FCN (d1mach, D1MACH) (3);
-  mach_fp_par[3].d = F77_FCN (d1mach, D1MACH) (4);
+  mach_fp_par[0].d = F77_FUNC (d1mach, D1MACH) (1);
+  mach_fp_par[1].d = F77_FUNC (d1mach, D1MACH) (2);
+  mach_fp_par[2].d = F77_FUNC (d1mach, D1MACH) (3);
+  mach_fp_par[3].d = F77_FUNC (d1mach, D1MACH) (4);
 
   int i = 0;
   do