@@ -17,6 +17,7 @@
*/
mes 2,EM_WSIZE,EM_PSIZE
+#ifndef NOFLOAT
exp $frexp
pro $frexp,0
lal 0
@@ -27,3 +28,4 @@
sti EM_WSIZE
ret EM_DSIZE
end
+#endif
@@ -30,11 +30,11 @@ _penvp
exp $m_a_i_n
pro $m_a_i_n,0
#if EM_WSIZE==1
- ldc 256
+ ldc 1288 ; EIOVFL | EIUND | ECONV
#else
- loc 256
+ loc 1288
#endif
- sim ; EIUND is ignored
+ sim ; ignored
lal EM_WSIZE+EM_PSIZE
loi EM_PSIZE
lae environ
@@ -18,7 +18,7 @@ extern bcopy();
#define BUGFIX 0
-extern char *sbrk();
+extern char *sbrk(), *brk();
static char *bottom, *top;
static grow(len)
exp $modf
pro $modf,0
@@ -31,3 +32,4 @@
sti EM_DSIZE