Subversion Repositories Kolibri OS

Rev

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

Rev 7597 Rev 7696
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, Anton Krotov
 4 
    Copyright (c) 2018, Anton Krotov
5 
    All rights reserved.
 5 
    All rights reserved.
Line 16... Line 16...
16 
    HEAP_SIZE =  1 * 100000H;
 16 
    HEAP_SIZE =  1 * 100000H;
Line 17... Line 17...
17 
 
 17 
 
18 
    _new = 1;
 18 
    _new = 1;
Line -... Line 19...
- 
 
 19 
    _dispose = 2;
- 
 
 20 
 
Line 19... Line 21...
19 
    _dispose = 2;
 21 
    SizeOfHeader = 36;
Line 20... Line 22...
20 
 
 22 
 
Line 292... Line 294...
292 
 
 294 
 
293 
PROCEDURE init* (_import, code: INTEGER);
 295 
PROCEDURE init* (_import, code: INTEGER);
294 
BEGIN
 296 
BEGIN
295 
    multi := FALSE;
 297 
    multi := FALSE;
296 
    eol[0] := 0DX; eol[1] := 0AX; eol[2] := 0X;
 298 
    eol[0] := 0DX; eol[1] := 0AX; eol[2] := 0X;
297 
    base := code - 36;
 299 
    base := code - SizeOfHeader;
298 
    K.sysfunc2(68, 11);
 300 
    K.sysfunc2(68, 11);
299 
    InitializeCriticalSection(CriticalSection);
 301 
    InitializeCriticalSection(CriticalSection);
300 
    K._init;
 302 
    K._init;
301 
    import := (K.dll_Load(_import) = 0) & (K.imp_error.error = 0);
 303 
    import := (K.dll_Load(_import) = 0) & (K.imp_error.error = 0);