7c084f620e
- fix build failures in i386 and amd64 due to compiler changes - fix numerous compilation warnings and logical errors that may trap in the future - convert all distribution files from DOS format to ease future changes - convert legacy patch file to new naming convention PR: 214990 Submitted by: bob@eager.cx (maintainer)
111 lines
5.7 KiB
C
111 lines
5.7 KiB
C
--- PDP18B/pdp18b_fpp.c.orig 2016-12-01 22:43:42 UTC
|
|
+++ PDP18B/pdp18b_fpp.c
|
|
@@ -253,7 +253,7 @@ switch (fop) {
|
|
break;
|
|
|
|
case FOP_SUB: /* subtract */
|
|
- if (sta = fp15_opnd (fir, ar, &fmb)) /* fetch op to FMB */
|
|
+ if ((sta = fp15_opnd (fir, ar, &fmb))) /* fetch op to FMB */
|
|
break;
|
|
if (fir & FI_FP) /* fp? */
|
|
sta = fp15_fadd (fir, &fma, &fmb, 1); /* yes, fp sub */
|
|
@@ -262,7 +262,7 @@ switch (fop) {
|
|
|
|
case FOP_RSUB: /* reverse sub */
|
|
fmb = fma; /* FMB <- FMA */
|
|
- if (sta = fp15_opnd (fir, ar, &fma)) /* fetch op to FMA */
|
|
+ if ((sta = fp15_opnd (fir, ar, &fma))) /* fetch op to FMA */
|
|
break;
|
|
if (fir & FI_FP) /* fp? */
|
|
sta = fp15_fadd (fir, &fma, &fmb, 1); /* yes, fp sub */
|
|
@@ -270,7 +270,7 @@ switch (fop) {
|
|
break;
|
|
|
|
case FOP_MUL: /* multiply */
|
|
- if (sta = fp15_opnd (fir, ar, &fmb)) /* fetch op to FMB */
|
|
+ if ((sta = fp15_opnd (fir, ar, &fmb))) /* fetch op to FMB */
|
|
break;
|
|
if (fir & FI_FP) /* fp? */
|
|
sta = fp15_fmul (fir, &fma, &fmb); /* yes, fp mul */
|
|
@@ -278,9 +278,9 @@ switch (fop) {
|
|
break;
|
|
|
|
case FOP_DIV: /* divide */
|
|
- if (sta = fp15_opnd (fir, ar, &fmb)) /* fetch op to FMB */
|
|
+ if ((sta = fp15_opnd (fir, ar, &fmb))) /* fetch op to FMB */
|
|
break;
|
|
- if (sta = fp15_opnd (fir, ar, &fmb)) break; /* fetch op to FMB */
|
|
+ if ((sta = fp15_opnd (fir, ar, &fmb))) break; /* fetch op to FMB */
|
|
if (fir & FI_FP) /* fp? */
|
|
sta = fp15_fdiv (fir, &fma, &fmb); /* yes, fp div */
|
|
else sta = fp15_idiv (fir, &fma, &fmb); /* no, int div */
|
|
@@ -288,7 +288,7 @@ switch (fop) {
|
|
|
|
case FOP_RDIV: /* reverse divide */
|
|
fmb = fma; /* FMB <- FMA */
|
|
- if (sta = fp15_opnd (fir, ar, &fma)) /* fetch op to FMA */
|
|
+ if ((sta = fp15_opnd (fir, ar, &fma))) /* fetch op to FMA */
|
|
break;
|
|
if (fir & FI_FP) /* fp? */
|
|
sta = fp15_fdiv (fir, &fma, &fmb); /* yes, fp div */
|
|
@@ -296,7 +296,7 @@ switch (fop) {
|
|
break;
|
|
|
|
case FOP_LD: /* load */
|
|
- if (sta = fp15_opnd (fir, ar, &fma)) /* fetch op to FMA */
|
|
+ if ((sta = fp15_opnd (fir, ar, &fma))) /* fetch op to FMA */
|
|
break;
|
|
fp15_asign (fir, &fma); /* modify A sign */
|
|
if (fir & FI_FP) /* fp? */
|
|
@@ -309,7 +309,7 @@ switch (fop) {
|
|
break;
|
|
|
|
case FOP_FLT: /* float */
|
|
- if (sta = fp15_opnd (fir, ar, &fma)) /* fetch op to FMA */
|
|
+ if ((sta = fp15_opnd (fir, ar, &fma))) /* fetch op to FMA */
|
|
break;
|
|
fma.exp = 35;
|
|
fp15_asign (fir, &fma); /* adjust A sign */
|
|
@@ -317,13 +317,13 @@ switch (fop) {
|
|
break;
|
|
|
|
case FOP_FIX: /* fix */
|
|
- if (sta = fp15_opnd (fir, ar, &fma)) /* fetch op to FMA */
|
|
+ if ((sta = fp15_opnd (fir, ar, &fma))) /* fetch op to FMA */
|
|
break;
|
|
sta = fp15_fix (fir, &fma); /* fix */
|
|
break;
|
|
|
|
case FOP_LFMQ: /* load FMQ */
|
|
- if (sta = fp15_opnd (fir, ar, &fma)) /* fetch op to FMA */
|
|
+ if ((sta = fp15_opnd (fir, ar, &fma))) /* fetch op to FMA */
|
|
break;
|
|
dp_swap (&fma, &fmq); /* swap FMA, FMQ */
|
|
fp15_asign (fir, &fma); /* adjust A sign */
|
|
@@ -337,7 +337,7 @@ switch (fop) {
|
|
sta = Write (ar, dat, WR);
|
|
}
|
|
else { /* no, load */
|
|
- if (sta = Read (ar, &dat, RD))
|
|
+ if ((sta = Read (ar, &dat, RD)))
|
|
break;
|
|
fguard = (dat >> JEA_V_GUARD) & 1;
|
|
jea = dat & JEA_EAMASK;
|
|
@@ -345,7 +345,7 @@ switch (fop) {
|
|
break;
|
|
|
|
case FOP_ADD: /* add */
|
|
- if (sta = fp15_opnd (fir, ar, &fmb)) /* fetch op to FMB */
|
|
+ if ((sta = fp15_opnd (fir, ar, &fmb))) /* fetch op to FMB */
|
|
break;
|
|
if (fir & FI_FP) /* fp? */
|
|
sta = fp15_fadd (fir, &fma, &fmb, 0); /* yes, fp add */
|
|
@@ -429,7 +429,7 @@ t_stat sta;
|
|
|
|
fguard = 0; /* clear guard */
|
|
if (ir & FI_FP) { /* fp? */
|
|
- if (sta = fp15_norm (ir, a, NULL, 0)) /* normalize */
|
|
+ if ((sta = fp15_norm (ir, a, NULL, 0))) /* normalize */
|
|
return sta;
|
|
if (ir & FI_DP) { /* dp? */
|
|
wd[0] = a->exp & DMASK; /* exponent */
|