Some minor adaptions
This commit is contained in:
parent
93e08cb946
commit
5c7379738b
|
@ -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
|
||||
#endif
|
||||
|
||||
extern char *sbrk();
|
||||
extern char *sbrk(), *brk();
|
||||
static char *bottom, *top;
|
||||
|
||||
static grow(len)
|
||||
|
|
|
@ -17,6 +17,7 @@
|
|||
*/
|
||||
|
||||
mes 2,EM_WSIZE,EM_PSIZE
|
||||
#ifndef NOFLOAT
|
||||
exp $modf
|
||||
pro $modf,0
|
||||
lal 0
|
||||
|
@ -31,3 +32,4 @@
|
|||
sti EM_DSIZE
|
||||
ret EM_DSIZE
|
||||
end
|
||||
#endif
|
||||
|
|
Loading…
Reference in a new issue