Float.st
changeset 3128 a4b5ef1e1bd5
parent 3127 590c7d2bb4b9
child 3129 d38fc293dbf9
--- a/Float.st	Mon Dec 15 11:35:05 1997 +0100
+++ b/Float.st	Mon Dec 15 13:35:39 1997 +0100
@@ -26,6 +26,39 @@
 #endif
 #include <math.h>
 
+#if 0
+#ifdef acos
+  double acos();
+#endif
+#ifdef asin
+  double asin();
+#endif
+#ifndef atan
+  double atan();
+#endif
+#ifndef cos
+  double cos();
+#endif
+#ifndef sin
+  double sin();
+#endif
+#ifndef pow
+  double pow();
+#endif
+#ifndef log
+  double log();
+#endif
+#ifndef exp
+  double exp();
+#endif
+#ifndef sqrt
+  double sqrt();
+#endif
+#ifndef tan
+  double tan();
+#endif
+#endif
+
 /*
  * on some systems errno is a macro ... check for it here
  */
@@ -656,7 +689,6 @@
 
 %{  /* NOCONTEXT */
 
-    double acos();
     double rslt;
     OBJ newFloat;
 
@@ -675,7 +707,6 @@
 
 %{  /* NOCONTEXT */
 
-    double asin();
     double rslt;
     OBJ newFloat;
 
@@ -694,7 +725,6 @@
 
 %{  /* NOCONTEXT */
 
-    double atan();
     double rslt;
     OBJ newFloat;
 
@@ -713,7 +743,6 @@
 
 %{  /* NOCONTEXT */
 
-    double cos();
     double rslt;
     OBJ newFloat;
 
@@ -732,7 +761,6 @@
 
 %{  /* NOCONTEXT */
 
-    double exp();
     double rslt;
     OBJ newFloat;
 
@@ -751,7 +779,6 @@
 
 %{  /* NOCONTEXT */
 
-    double log();
     double rslt;
     OBJ newFloat;
 
@@ -775,7 +802,6 @@
 
     n := aNumber asFloat.
 %{
-    double pow();
     double rslt;
     OBJ newFloat;
 
@@ -802,7 +828,6 @@
 
 %{  /* NOCONTEXT */
 
-    double sin();
     double rslt;
     OBJ newFloat;
 
@@ -821,7 +846,6 @@
 
 %{  /* NOCONTEXT */
 
-    double sqrt();
     double rslt;
     OBJ newFloat;
 
@@ -840,7 +864,6 @@
 
 %{  /* NOCONTEXT */
 
-    double tan();
     double rslt;
     OBJ newFloat;
 
@@ -1382,6 +1405,6 @@
 !Float class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Float.st,v 1.65 1997-12-15 10:35:05 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Float.st,v 1.66 1997-12-15 12:35:39 cg Exp $'
 ! !
 Float initialize!