1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
|
--- 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 */
|
