Subversion Repositories Kolibri OS

Rev

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

Rev 7693 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, 2019, Anton Krotov
 4 
    Copyright (c) 2018-2019, Anton Krotov
5 
    All rights reserved.
 5 
    All rights reserved.
Line 6... Line 6...
6 
*)
 6 
*)
Line 7... Line 7...
7 
 
 7 
 
Line -... Line 8...
- 
 
 8 
MODULE API;
- 
 
 9 
 
- 
 
 10 
IMPORT SYSTEM;
- 
 
 11 
 
- 
 
 12 
 
- 
 
 13 
CONST
8 
MODULE API;
 14 
 
Line 9... Line 15...
9 
 
 15 
    SectionAlignment = 1000H;
10 
IMPORT SYSTEM;
 16 
 
11 
 
 17 
 
Line 44... Line 50...
44 
 
 50 
 
45 
 
 51 
 
46 
PROCEDURE init* (reserved, code: INTEGER);
 52 
PROCEDURE init* (reserved, code: INTEGER);
47 
BEGIN
 53 
BEGIN
48 
    eol[0] := 0DX; eol[1] := 0AX; eol[2] := 0X;
 54 
    eol[0] := 0DX; eol[1] := 0AX; eol[2] := 0X;
49 
    base := code - 4096;
 55 
    base := code - SectionAlignment;
Line 50... Line 56...
50 
    heap := GetProcessHeap()
 56 
    heap := GetProcessHeap()