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

Fixed some bugs

Browse source
This commit is contained in:
ceriel 1987-05-20 17:15:22 +00:00
parent 479d45d2d9
commit a8db0ab298
4 changed files with 9 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
mach/pdp/as/mach0.c
View file

@ -21,3 +21,5 @@
#define ALIGNWORD 2
#undef ALIGNSECT
#define ALIGNSECT 2
#undef BITMAX
#define BITMAX 4000

8
mach/pdp/as/mach3.c
View file

@ -136,11 +136,11 @@
0, FOP_FSO_FR, 0172000, "addf",
0, FOP_FSO_FR, 0173000, "subf",
0, FOP_FSO_FR, 0171000, "mulf",
0, FOP_FSO_FR, 0174600, "divf",
0, FOP_FSO_FR, 0173600, "cmpf",
0, FOP_FSO_FR, 0171600, "modf",
0, FOP_FSO_FR, 0174400, "divf",
0, FOP_FSO_FR, 0173400, "cmpf",
0, FOP_FSO_FR, 0171400, "modf",
0, FOP_FSO, 0170400, "clrf",
0, FOP_FSO, 0070700, "negf",
0, FOP_FSO, 0170700, "negf",
0, FOP_FSO, 0170600, "absf",
0, FOP_FSO, 0170500, "tstf",
0, FOP_SO, 0170100, "ldfps",

4
mach/pdp/as/mach4.c
View file

@ -52,9 +52,9 @@ operation
| FOP_SO opr1
{ emit2( $1 | $2); op1($2); }
| MOVF fop2 ',' fregister
{ emit2(OPSTF | ($4 << 6) | $2); op2($2);}
{ emit2(OPLDF | ($4 << 6) | $2); op2($2);}
| MOVF fregister ',' fopr1
{ emit2(OPLDF | ($2 << 6) | $4); op1($4); }
{ emit2(OPSTF | ($2 << 6) | $4); op1($4); }
| FOP_SO_FR opr1 ',' fregister
{ emit2($1 | ($4 << 6) | $2); op1($2); }
| FOP_FR_SO fregister ',' opr1

2
mach/pdp/as/mach5.c
View file

@ -70,7 +70,7 @@ ejump(opc, exp) expr_t exp; {
else {
# endif
if (opc != OPBRA) {
emit2((opc^0400) | 04);
emit2((opc^0400) | 02);
}
exp_1 = exp;