Subversion Repositories Kolibri OS

Rev

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);