equal
deleted
inserted
replaced
1221 self assert: l = 0.0. |
1221 self assert: l = 0.0. |
1222 self assert: l isNegativeZero. |
1222 self assert: l isNegativeZero. |
1223 ! |
1223 ! |
1224 |
1224 |
1225 test_literals_negativeZero_stc |
1225 test_literals_negativeZero_stc |
1226 | m l | |
1226 | m negZero | |
1227 |
1227 |
1228 m := self class >> #method_negativeZero_01. |
1228 m := self class >> #method_negativeZero_01. |
1229 |
1229 |
1230 self compile: m source mode: #stc. |
1230 self compile: m source mode: #stc. |
1231 |
1231 |
1232 l := self method_negativeZero_01. |
1232 negZero := self stc_method_negativeZero_01. |
1233 self assert: l = 0.0. |
1233 self assert: negZero = 0.0. |
1234 self assert: l isNegativeZero. |
1234 self assert: negZero isNegativeZero. |
1235 ! |
1235 ! |
1236 |
1236 |
1237 test_literals_symbol_01_bc |
1237 test_literals_symbol_01_bc |
1238 | m l | |
1238 | m l | |
1239 |
1239 |