--- 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!