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 7693
Line 11... Line 11...
11 
 
 11 
 
Line 12... Line 12...
12 
VAR
 12 
VAR
13 
 
 13 
 
- 
 
 14 
    eol*:  ARRAY 3 OF CHAR;
Line 14... Line 15...
14 
    eol*:  ARRAY 3 OF CHAR;
 15 
    base*: INTEGER;
15 
    base*: INTEGER;
 16 
    heap:  INTEGER;
- 
 
 17 
 
16 
 
 18 
 
17 
 
 19 
PROCEDURE [windows-, "kernel32.dll", "ExitProcess"]    ExitProcess (code: INTEGER);
Line 18... Line 20...
18 
PROCEDURE [windows-, "kernel32.dll", "ExitProcess"]  ExitProcess (code: INTEGER);
 20 
PROCEDURE [windows-, "kernel32.dll", "ExitThread"]     ExitThread (code: INTEGER);
Line 19... Line 21...
19 
PROCEDURE [windows-, "kernel32.dll", "ExitThread"]   ExitThread (code: INTEGER);
 21 
PROCEDURE [windows-, "kernel32.dll", "GetProcessHeap"] GetProcessHeap (): INTEGER;
Line 28... Line 30...
28 
    MessageBoxA(0, lpText, lpCaption, 16)
 30 
    MessageBoxA(0, lpText, lpCaption, 16)
29 
END DebugMsg;
 31 
END DebugMsg;
Line 30... Line 32...
30 
 
 32 
 
31 
 
 33 
 
32 
PROCEDURE _NEW* (size: INTEGER): INTEGER;
 34 
PROCEDURE _NEW* (size: INTEGER): INTEGER;
Line 33... Line 35...
33 
    RETURN Alloc(64, size)
 35 
    RETURN HeapAlloc(heap, 8, size)
- 
 
 36 
END _NEW;
- 
 
 37 
 
34 
END _NEW;
 38 
 
35 
 
 39 
PROCEDURE _DISPOSE* (p: INTEGER): INTEGER;
Line 36... Line 40...
36 
 
 40 
BEGIN
37 
PROCEDURE _DISPOSE* (p: INTEGER): INTEGER;
 41 
    HeapFree(heap, 0, p)
38 
    RETURN Free(p)
 42 
    RETURN 0
39 
END _DISPOSE;
 43 
END _DISPOSE;
- 
 
 44 
 
40 
 
 45 
 
Line 41... Line 46...
41 
 
 46 
PROCEDURE init* (reserved, code: INTEGER);
42 
PROCEDURE init* (reserved, code: INTEGER);
 47 
BEGIN