several fixes for new basic compiler

1988-07-01 17:30:06 +00:00
parent 4d9965a774
commit a693896a67
5 changed files with 35 additions and 13 deletions
--- a/lang/basic/lib/sgn.c
+++ b/lang/basic/lib/sgn.c
@@ -7,3 +7,10 @@ double v;
 	if( v<0) return(-1);
 	return(0);
 }
+
+_forsgn(v)
+double v;
+{
+	if (v >= 0) return 1;
+	return -1;
+}