cfad47cfa3/t3compiler/tads3/test/data/obj_and_expr.t
Download diff| 4b825dc642cb6eb9a060e54bf8d69288fbee4904 | cfad47cfa334b206c65f22086bcc5d63e6f70944 | ||
|---|---|---|---|
1 | /* | ||
2 | * test of 'if (objName && expr)' - a bug in the compiler caused this to | ||
3 | * generate incorrect code | ||
4 | */ | ||
5 | main(args) | ||
6 | { | ||
7 | if (myObject && myObject.location) | ||
8 | "then crash"; | ||
9 | } | ||
10 | |||
11 | myObject: object | ||
12 | ; | ||
13 | |||
14 | otherObject: object | ||
15 | location = nil | ||
16 | ; | ||
17 |