Rev 9177 | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 9177 | Rev 9893 | ||
---|---|---|---|
Line 1... | Line 1... | ||
1 | (* |
1 | (* |
2 | BSD 2-Clause License |
2 | BSD 2-Clause License |
Line 3... | Line 3... | ||
3 | 3 | ||
4 | Copyright (c) 2020-2021, Anton Krotov |
4 | Copyright (c) 2020-2022, Anton Krotov |
5 | All rights reserved. |
5 | All rights reserved. |
Line 6... | Line 6... | ||
6 | *) |
6 | *) |
Line 788... | Line 788... | ||
788 | 788 | ||
789 | |IL.opLSR2: |
789 | |IL.opLSR2: |
790 | UnOp(r1); |
790 | UnOp(r1); |
Line 791... | Line -... | ||
791 | Emit(opLSRC, r1, param2 MOD (szWord * 8)) |
- | |
792 | - | ||
793 | |IL.opCHR: |
- | |
794 | UnOp(r1); |
- | |
795 | Emit(opANDC, r1, 255) |
- | |
796 | - | ||
797 | |IL.opWCHR: |
- | |
798 | UnOp(r1); |
- | |
799 | Emit(opANDC, r1, 65535) |
791 | Emit(opLSRC, r1, param2 MOD (szWord * 8)) |
800 | 792 | ||
801 | |IL.opABS: |
793 | |IL.opABS: |
802 | UnOp(r1); |
794 | UnOp(r1); |
803 | Emit(opCMPC, r1, 0); |
795 | Emit(opCMPC, r1, 0); |
Line 956... | Line 948... | ||
956 | ELSE |
948 | ELSE |
957 | Emit(opSNE, r1, 0) |
949 | Emit(opSNE, r1, 0) |
958 | END; |
950 | END; |
959 | drop |
951 | drop |
Line 960... | Line -... | ||
960 | - | ||
961 | |IL.opCHKBYTE: |
- | |
962 | BinOp(r1, r2); |
- | |
963 | Emit(opCMPC, r1, 256); |
- | |
964 | Emit(opJBT, param1, 0) |
- | |
965 | 952 | ||
966 | |IL.opCHKIDX: |
953 | |IL.opCHKIDX: |
967 | UnOp(r1); |
954 | UnOp(r1); |
968 | Emit(opCMPC, r1, param2); |
955 | Emit(opCMPC, r1, param2); |