Rev 7597 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed
| Rev 7597 | Rev 7667 | ||
|---|---|---|---|
| Line 1859... | Line 1859... | ||
| 1859 | END; |
1859 | END; |
| Line 1860... | Line 1860... | ||
| 1860 | 1860 | ||
| 1861 | IF e.obj = eCONST THEN |
1861 | IF e.obj = eCONST THEN |
| 1862 | CODE.AddCmd(CODE.opCONST, ORD(ARITH.getBool(e.value))) |
1862 | CODE.AddCmd(CODE.opCONST, ORD(ARITH.getBool(e.value))) |
| - | 1863 | END; |
|
| 1863 | END; |
1864 | CODE.AddCmd0(CODE.opACC); |
| 1864 | CODE.AddJmpCmd(CODE.opJZ, label); |
1865 | CODE.AddJmpCmd(CODE.opJZ, label); |
| 1865 | CODE.drop |
1866 | CODE.drop |
| 1866 | END |
1867 | END |
| Line 1981... | Line 1982... | ||
| 1981 | ARITH.opBoolean(e.value, e1.value, "&") |
1982 | ARITH.opBoolean(e.value, e1.value, "&") |
| 1982 | ELSE |
1983 | ELSE |
| 1983 | e.obj := eEXPR; |
1984 | e.obj := eEXPR; |
| 1984 | IF e1.obj = eCONST THEN |
1985 | IF e1.obj = eCONST THEN |
| 1985 | CODE.AddCmd(CODE.opCONST, ORD(ARITH.getBool(e1.value))) |
1986 | CODE.AddCmd(CODE.opCONST, ORD(ARITH.getBool(e1.value))) |
| 1986 | END |
1987 | END; |
| - | 1988 | CODE.AddCmd0(CODE.opACC) |
|
| 1987 | END |
1989 | END |
| Line 1988... | Line 1990... | ||
| 1988 | 1990 | ||
| 1989 | END |
1991 | END |
| Line 2054... | Line 2056... | ||
| 2054 | END; |
2056 | END; |
| Line 2055... | Line 2057... | ||
| 2055 | 2057 | ||
| 2056 | IF e.obj = eCONST THEN |
2058 | IF e.obj = eCONST THEN |
| 2057 | CODE.AddCmd(CODE.opCONST, ORD(ARITH.getBool(e.value))) |
2059 | CODE.AddCmd(CODE.opCONST, ORD(ARITH.getBool(e.value))) |
| - | 2060 | END; |
|
| 2058 | END; |
2061 | CODE.AddCmd0(CODE.opACC); |
| 2059 | CODE.AddJmpCmd(CODE.opJNZ, label); |
2062 | CODE.AddJmpCmd(CODE.opJNZ, label); |
| 2060 | CODE.drop |
2063 | CODE.drop |
| Line 2061... | Line 2064... | ||
| 2061 | END |
2064 | END |
| Line 2120... | Line 2123... | ||
| 2120 | ARITH.opBoolean(e.value, e1.value, "|") |
2123 | ARITH.opBoolean(e.value, e1.value, "|") |
| 2121 | ELSE |
2124 | ELSE |
| 2122 | e.obj := eEXPR; |
2125 | e.obj := eEXPR; |
| 2123 | IF e1.obj = eCONST THEN |
2126 | IF e1.obj = eCONST THEN |
| 2124 | CODE.AddCmd(CODE.opCONST, ORD(ARITH.getBool(e1.value))) |
2127 | CODE.AddCmd(CODE.opCONST, ORD(ARITH.getBool(e1.value))) |
| 2125 | END |
2128 | END; |
| - | 2129 | CODE.AddCmd0(CODE.opACC) |
|
| 2126 | END |
2130 | END |
| Line 2127... | Line 2131... | ||
| 2127 | 2131 | ||
| 2128 | END |
2132 | END |