use con_float file, and use new interface to fif and fef routines

This commit is contained in:
ceriel
1989-07-31 14:50:19 +00:00
parent f675fc1252
commit d9a86af8ea
5 changed files with 17 additions and 168 deletions

View File

@@ -2,6 +2,5 @@ Makefile
mach.c
mach.h
table
fppsim.h
tables1.c
tables1.h

View File

@@ -12,8 +12,6 @@ static char rcsid[] = "$Header$";
* machine dependent back end routines for the Motorola 68000
*/
#include "fppsim.h"
con_part(sz,w) register sz; word w; {
while (part_size % sz)
@@ -39,7 +37,8 @@ con_mult(sz) word sz; {
fprintf(codefile,".data4 %s\n",str);
}
#define ACKFLOAT 1
#define IEEEFLOAT
#define CODE_GENERATOR
#include <con_float>
#ifdef REGVARS

View File

@@ -1023,20 +1023,10 @@ dvf $1==4 | | | | cal ".dvf4" asp 4 |
dvf $1==8 | | | | cal ".dvf8" asp 8 |
ngf $1==4 | | | | cal ".ngf4" |
ngf $1==8 | | | | cal ".ngf8" |
fif $1==4 | | | | cal ".fif4" |
fif $1==8 | | | | cal ".fif8" |
fef $1==4 | |
remove(ALL)
"move.l (sp)+,d0"
"clr.w -(sp)"
"move.l d0,-(sp)" | | cal ".fef4" |
fef $1==8 | |
remove(ALL)
"move.l (sp)+,d0"
"move.l (sp)+,d1"
"clr.w -(sp)"
"move.l d1,-(sp)"
"move.l d0,-(sp)" | | cal ".fef8" |
fif $1==4 | | | | lor 1 cal ".fif4" asp 4 |
fif $1==8 | | | | lor 1 cal ".fif8" asp 4 |
fef $1==4 | | | | lor 1 adp 0-2 cal ".fef4" asp 2 |
fef $1==8 | | | | lor 1 adp 0-2 cal ".fef8" asp 2 |
/* G R O U P VI : P O I N T E R A R I T H M E T I C */