d0p1/ack
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

generate code for ACK assembler, including floats

Browse source
This commit is contained in:
ceriel 1987-05-14 14:58:21 +00:00
parent 235871bf4b
commit 5053f2a183
2 changed files with 36 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

44
mach/pdp/cg/mach.c
View file

@ -50,24 +50,50 @@ con_mult(sz) word sz; {
* The next function is difficult to do when not running on a PDP 11 or VAX
* The strategy followed is to assume the code generator is running on a PDP 11
* unless the ACK_ASS define is on.
* In the last case floating point constants are simply not handled
*/
con_float() {
#ifdef ACK_ASS
static int been_here;
double f, f1;
double atof(), frexp(), modf();
int i, j;
int sign = 0;
int fraction ;
if (argval != 4 && argval != 8)
fatal("bad fcon size");
fprintf(codefile,".data4\t");
if (argval == 8)
fprintf(codefile,"F_DUM,");
fprintf(codefile,"F_DUM\n");
if ( !been_here++)
fprintf(stderr,"Warning : dummy float-constant(s)\n");
f = atof(str);
f = frexp(f, &i);
if (f < 0) {
f = -f;
sign = 1;
}
while (f < 0.5) {
f += f;
i --;
}
f = modf(2 * f, &f1); /* hidden bit */
i = (i + 128) & 0377;
fraction = (sign << 15) | (i << 7);
for (j = 6; j>= 0; j--) {
if (f >= 0.5) fraction |= (1 << j);
f = modf(2*f, &f1);
}
fprintf(codefile, ".data2 0%o", fraction);
for (i = argval / 2 - 1; i; i--) {
fraction = 0;
for (j = 15; j>= 0; j--) {
if (f >= 0.5) fraction |= (1 << j);
f = modf(2*f, &f1);
}
fprintf(codefile, ", 0%o", fraction);
}
putc('\n', codefile);
#else
double f;
register short *p,i;
double atof();
int i;
short *p;
if (argval != 4 && argval != 8)
fatal("bad fcon size");

2
mach/pdp/cg/mach.h
View file

@ -8,7 +8,7 @@
* or for the standard UNIX V7 assembler.
* If on code is generated for the ACK assembler.
*/
/* #define ACK_ASS /* code for ACK assembler */
#define ACK_ASS /* code for ACK assembler */
#ifdef ACK_ASS
#define COMMENTCHAR '!'