@@ -17,8 +17,10 @@ void rpn_add(operand val1, operand val2) {
17
17
if (val2 .type == VAR ) {
18
18
dereference (val2 );
19
19
}
20
- val1 .dval = val1 .dval + val2 .dval ;
20
+ printf ("rpn_add() | %lf + %lf\n" , val1 .dvalue , val2 .dvalue );
21
+ val1 .dvalue = val1 .dvalue + val2 .dvalue ;
21
22
val1 .type = VAL ;
23
+ printf ("rpn_add() | called (new dvalue %lf).\n" , val1 .dvalue );
22
24
push (val1 );
23
25
}
24
26
@@ -29,7 +31,7 @@ void rpn_subtract(operand val1, operand val2) {
29
31
if (val2 .type == VAR ) {
30
32
dereference (val2 );
31
33
}
32
- val1 .dval = val1 .dval - val2 .dval ;
34
+ val1 .dvalue = val1 .dvalue - val2 .dvalue ;
33
35
val1 .type = VAL ;
34
36
push (val1 );
35
37
}
@@ -41,7 +43,7 @@ void rpn_multiply(operand val1, operand val2) {
41
43
if (val2 .type == VAR ) {
42
44
dereference (val2 );
43
45
}
44
- val1 .dval = val1 .dval * val2 .dval ;
46
+ val1 .dvalue = val1 .dvalue * val2 .dvalue ;
45
47
val1 .type = VAL ;
46
48
push (val1 );
47
49
}
@@ -53,11 +55,11 @@ void rpn_divide(operand val1, operand val2) {
53
55
if (val2 .type == VAR ) {
54
56
dereference (val2 );
55
57
}
56
- if (double_eq (val2 .dval , 0.0 )) {
58
+ if (double_eq (val2 .dvalue , 0.0 )) {
57
59
printf ("Error: division by zero.\n" );
58
60
return ;
59
61
}
60
- val1 .dval = val1 .dval / val2 .dval ;
62
+ val1 .dvalue = val1 .dvalue / val2 .dvalue ;
61
63
val1 .type = VAL ;
62
64
push (val1 );
63
65
}
@@ -69,12 +71,12 @@ void rpn_modulus(operand val1, operand val2) {
69
71
if (val2 .type == VAR ) {
70
72
dereference (val2 );
71
73
}
72
- if (double_eq (val2 .dval , 0.0 )) {
74
+ if (double_eq (val2 .dvalue , 0.0 )) {
73
75
printf ("Error: modulo by zero.\n" );
74
76
return ;
75
77
}
76
78
77
- val1 .dval = (int )val1 .dval % (int )val2 .dval ;
79
+ val1 .dvalue = (int )val1 .dvalue % (int )val2 .dvalue ;
78
80
val1 .type = VAL ;
79
81
push (val1 );
80
82
}
@@ -84,7 +86,7 @@ void rpn_sin(operand val1) {
84
86
dereference (val1 );
85
87
}
86
88
87
- val1 .dval = sin (val1 .dval );
89
+ val1 .dvalue = sin (val1 .dvalue );
88
90
val1 .type = VAL ;
89
91
push (val1 );
90
92
}
@@ -94,7 +96,7 @@ void rpn_cos(operand val1) {
94
96
dereference (val1 );
95
97
}
96
98
97
- val1 .dval = cos (val1 .dval );
99
+ val1 .dvalue = cos (val1 .dvalue );
98
100
val1 .type = VAL ;
99
101
push (val1 );
100
102
}
@@ -104,7 +106,7 @@ void rpn_tan(operand val1) {
104
106
dereference (val1 );
105
107
}
106
108
107
- val1 .dval = tan (val1 .dval );
109
+ val1 .dvalue = tan (val1 .dvalue );
108
110
val1 .type = VAL ;
109
111
push (val1 );
110
112
}
@@ -114,7 +116,7 @@ void rpn_asin(operand val1) {
114
116
dereference (val1 );
115
117
}
116
118
117
- val1 .dval = asin (val1 .dval );
119
+ val1 .dvalue = asin (val1 .dvalue );
118
120
val1 .type = VAL ;
119
121
push (val1 );
120
122
}
@@ -124,7 +126,7 @@ void rpn_acos(operand val1) {
124
126
dereference (val1 );
125
127
}
126
128
127
- val1 .dval = acos (val1 .dval );
129
+ val1 .dvalue = acos (val1 .dvalue );
128
130
val1 .type = VAL ;
129
131
push (val1 );
130
132
}
@@ -134,7 +136,7 @@ void rpn_atan(operand val1) {
134
136
dereference (val1 );
135
137
}
136
138
137
- val1 .dval = atan (val1 .dval );
139
+ val1 .dvalue = atan (val1 .dvalue );
138
140
val1 .type = VAL ;
139
141
push (val1 );
140
142
}
@@ -147,7 +149,7 @@ void rpn_pow(operand val1, operand val2) {
147
149
dereference (val2 );
148
150
}
149
151
150
- val1 .dval = pow (val1 .dval , val2 .dval );
152
+ val1 .dvalue = pow (val1 .dvalue , val2 .dvalue );
151
153
val1 .type = VAL ;
152
154
push (val1 );
153
155
}
@@ -157,7 +159,7 @@ void rpn_exp(operand val1) {
157
159
dereference (val1 );
158
160
}
159
161
160
- val1 .dval = exp (val1 .dval );
162
+ val1 .dvalue = exp (val1 .dvalue );
161
163
val1 .type = VAL ;
162
164
push (val1 );
163
165
}
@@ -167,7 +169,7 @@ void rpn_sqrt(operand val1) {
167
169
dereference (val1 );
168
170
}
169
171
170
- val1 .dval = sqrt (val1 .dval );
172
+ val1 .dvalue = sqrt (val1 .dvalue );
171
173
val1 .type = VAL ;
172
174
push (val1 );
173
175
}
@@ -177,7 +179,7 @@ void rpn_floor(operand val1) {
177
179
dereference (val1 );
178
180
}
179
181
180
- val1 .dval = floor (val1 .dval );
182
+ val1 .dvalue = floor (val1 .dvalue );
181
183
val1 .type = VAL ;
182
184
push (val1 );
183
185
}
0 commit comments