Subversion Repositories Kolibri OS

Rev

Rev 8097 | Rev 9177 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 8097 Rev 8859
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) 2018-2020, Anton Krotov
 4 
    Copyright (c) 2018-2021, Anton Krotov
5 
    All rights reserved.
 5 
    All rights reserved.
Line 6... Line 6...
6 
*)
 6 
*)
Line 21... Line 21...
21 
 
 21 
 
22 
    min32* = -2147483647-1;
 22 
    min32* = -2147483647-1;
Line 23... Line 23...
23 
    max32* =  2147483647;
 23 
    max32* =  2147483647;
24 
 
 24 
 
- 
 
 25 
    vMajor* = 1;
Line 25... Line 26...
25 
    vMajor* = 1;
 26 
    vMinor* = 52;
26 
    vMinor* = 43;
 27 
    Date* = "07-may-2021";
Line 27... Line 28...
27 
 
 28 
 
Line 160... Line 161...
160 
    RETURN ASR(n, 8 * idx) MOD 256
 161 
    RETURN ASR(n, 8 * idx) MOD 256
161 
END Byte;
 162 
END Byte;
Line 162... Line 163...
162 
 
 163 
 
163 
 
 - 
 
164 
PROCEDURE Align* (VAR bytes: INTEGER; align: INTEGER): BOOLEAN;
 - 
 
165 
VAR
 - 
 
166 
    res: BOOLEAN;
 164 
 
167 
 
 - 
 
168 
BEGIN
 - 
 
169 
    IF bytes MOD align # 0 THEN
 - 
 
170 
        res := maxint - bytes >= align - (bytes MOD align);
 165 
PROCEDURE Align* (VAR bytes: INTEGER; align: INTEGER): BOOLEAN;
171 
        IF res THEN
 - 
 
172 
            bytes := bytes + align - (bytes MOD align)
 - 
 
173 
        END
 - 
 
174 
    ELSE
 - 
 
175 
        res := TRUE
 - 
 
176 
    END
 166 
BEGIN
177 
 
 167 
    INC(bytes, (-bytes) MOD align)
Line 178... Line 168...
178 
    RETURN res
 168 
    RETURN bytes >= 0
179 
END Align;
 169 
END Align;
Line 219... Line 209...
219 
    RETURN n
 209 
    RETURN n
220 
END hexdgt;
 210 
END hexdgt;
Line 221... Line 211...
221 
 
 211 
 
222 
 
 212 
 
223 
BEGIN
 213 
BEGIN
224 
    time := GetTickCount();
 214 
    time := HOST.GetTickCount();
225 
    maxreal := HOST.maxreal
 215 
    maxreal := HOST.maxreal