Subversion Repositories Kolibri OS

Rev

Rev 7597 | Go to most recent revision | Show entire file | Ignore 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;
20 
PROCEDURE [windows-, "kernel32.dll", "GlobalAlloc"]  Alloc (uFlags, dwBytes: INTEGER): INTEGER;
 22 
PROCEDURE [windows-, "kernel32.dll", "HeapAlloc"]      HeapAlloc (hHeap, dwFlags, dwBytes: INTEGER): INTEGER;
21 
PROCEDURE [windows-, "kernel32.dll", "GlobalFree"]   Free (hMem: INTEGER): INTEGER;
 23 
PROCEDURE [windows-, "kernel32.dll", "HeapFree"]       HeapFree(hHeap, dwFlags, lpMem: INTEGER);
22 
 
 24 
 
Line 23... Line 25...
23 
PROCEDURE [windows-, "user32.dll", "MessageBoxA"]    MessageBoxA (hWnd, lpText, lpCaption, uType: INTEGER): INTEGER;
 25 
PROCEDURE [windows-, "user32.dll", "MessageBoxA"]      MessageBoxA (hWnd, lpText, lpCaption, uType: INTEGER): INTEGER;
24 
 
 26 
 
25 
 
 27 
 
Line 26... Line 28...
26 
PROCEDURE DebugMsg* (lpText, lpCaption: INTEGER);
 28 
PROCEDURE DebugMsg* (lpText, lpCaption: INTEGER);
- 
 
 29 
BEGIN
- 
 
 30 
    MessageBoxA(0, lpText, lpCaption, 16)
27 
BEGIN
 31 
END DebugMsg;
28 
    MessageBoxA(0, lpText, lpCaption, 16)
 32 
 
Line 29... Line 33...
29 
END DebugMsg;
 33 
 
30 
 
 34 
PROCEDURE _NEW* (size: INTEGER): INTEGER;
31 
 
 35 
    RETURN HeapAlloc(heap, 8, size)
32 
PROCEDURE _NEW* (size: INTEGER): INTEGER;
 36 
END _NEW;
- 
 
 37 
 
33 
    RETURN Alloc(64, size)
 38 
 
Line 34... Line 39...
34 
END _NEW;
 39 
PROCEDURE _DISPOSE* (p: INTEGER): INTEGER;
35 
 
 40 
BEGIN