Subversion Repositories Kolibri OS

Rev

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

Rev 7983 Rev 8097
Line 10... Line 10...
10 
IMPORT SYSTEM;
 10 
IMPORT SYSTEM;
Line 11... Line 11...
11 
 
 11 
 
Line -... Line 12...
- 
 
 12 
 
- 
 
 13 
CONST
12 
 
 14 
 
Line 13... Line 15...
13 
CONST
 15 
    eol* = 0DX + 0AX;
14 
 
 16 
 
15 
    SectionAlignment = 1000H;
 17 
    SectionAlignment = 1000H;
16 
 
 18 
 
Line -... Line 19...
- 
 
 19 
    DLL_PROCESS_ATTACH = 1;
- 
 
 20 
    DLL_THREAD_ATTACH  = 2;
- 
 
 21 
    DLL_THREAD_DETACH  = 3;
Line 17... Line 22...
17 
    DLL_PROCESS_ATTACH = 1;
 22 
    DLL_PROCESS_DETACH = 0;
Line 18... Line 23...
18 
    DLL_THREAD_ATTACH  = 2;
 23 
 
Line 19... Line 24...
19 
    DLL_THREAD_DETACH  = 3;
 24 
    KERNEL = "kernel32.dll";
Line 20... Line -...
20 
    DLL_PROCESS_DETACH = 0;
 - 
 
21 
 
 25 
    USER   = "user32.dll";
22 
 
 26 
 
Line 23... Line 27...
23 
TYPE
 27 
 
24 
 
 28 
TYPE
25 
    DLL_ENTRY* = PROCEDURE (hinstDLL, fdwReason, lpvReserved: INTEGER);
 29 
 
Line 26... Line 30...
26 
 
 30 
    DLL_ENTRY* = PROCEDURE (hinstDLL, fdwReason, lpvReserved: INTEGER);
27 
 
 31 
 
28 
VAR
 32 
 
29 
 
 33 
VAR
30 
    eol*:  ARRAY 3 OF CHAR;
 34 
 
31 
    base*: INTEGER;
 - 
 
32 
    heap:  INTEGER;
 35 
    base*: INTEGER;
Line 33... Line 36...
33 
 
 36 
    heap:  INTEGER;
34 
    process_detach,
 37 
 
35 
    thread_detach,
 38 
    process_detach,
Line 66... Line 69...
66 
PROCEDURE init* (reserved, code: INTEGER);
 69 
PROCEDURE init* (reserved, code: INTEGER);
67 
BEGIN
 70 
BEGIN
68 
    process_detach := NIL;
 71 
    process_detach := NIL;
69 
    thread_detach  := NIL;
 72 
    thread_detach  := NIL;
70 
    thread_attach  := NIL;
 73 
    thread_attach  := NIL;
71 
    eol[0] := 0DX; eol[1] := 0AX; eol[2] := 0X;
 - 
 
72 
    base := code - SectionAlignment;
 74 
    base := code - SectionAlignment;
73 
    heap := GetProcessHeap()
 75 
    heap := GetProcessHeap()
74 
END init;
 76 
END init;