Subversion Repositories Kolibri OS

Rev

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

Rev 7696 Rev 7983
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) 2019, Anton Krotov
 4 
    Copyright (c) 2019-2020, Anton Krotov
5 
    All rights reserved.
 5 
    All rights reserved.
Line 6... Line 6...
6 
*)
 6 
*)
Line 11... Line 11...
11 
 
 11 
 
Line 12... Line 12...
12 
 
 12 
 
- 
 
 13 
CONST
Line 13... Line 14...
13 
CONST
 14 
 
Line 14... Line 15...
14 
 
 15 
    RTLD_LAZY* = 1;
- 
 
 16 
    BIT_DEPTH* = 32;
Line 15... Line 17...
15 
    RTLD_LAZY* = 1;
 17 
 
Line 16... Line 18...
16 
 
 18 
 
Line 44... Line 46...
44 
    fclose*        : PROCEDURE [linux] (file: INTEGER): INTEGER;
 46 
    fclose*        : PROCEDURE [linux] (file: INTEGER): INTEGER;
Line 45... Line 47...
45 
 
 47 
 
46 
    clock_gettime* : PROCEDURE [linux] (clock_id: INTEGER; VAR tp: TP): INTEGER;
 48 
    clock_gettime* : PROCEDURE [linux] (clock_id: INTEGER; VAR tp: TP): INTEGER;
Line -... Line 49...
- 
 
 49 
    time*          : PROCEDURE [linux] (ptr: INTEGER): INTEGER;
- 
 
 50 
 
Line 47... Line 51...
47 
    time*          : PROCEDURE [linux] (ptr: INTEGER): INTEGER;
 51 
    fini: SOFINI;
48 
 
 52 
 
49 
 
 53 
 
Line 101... Line 105...
101 
END GetProcAdr;
 105 
END GetProcAdr;
Line 102... Line 106...
102 
 
 106 
 
103 
 
 107 
 
- 
 
 108 
PROCEDURE init* (sp, code: INTEGER);
104 
PROCEDURE init* (sp, code: INTEGER);
 109 
BEGIN
105 
BEGIN
 110 
    fini := NIL;
106 
    SYSTEM.GET(code - 1000H - SYSTEM.SIZE(INTEGER) * 2, dlopen);
 111 
    SYSTEM.GET(code - 1000H - SYSTEM.SIZE(INTEGER) * 2, dlopen);
107 
    SYSTEM.GET(code - 1000H - SYSTEM.SIZE(INTEGER),     dlsym);
 112 
    SYSTEM.GET(code - 1000H - SYSTEM.SIZE(INTEGER),     dlsym);
Line 140... Line 145...
140 
BEGIN
 145 
BEGIN
141 
    _exit(code)
 146 
    _exit(code)
142 
END exit_thread;
 147 
END exit_thread;
Line -... Line 148...
- 
 
 148 
 
- 
 
 149 
 
- 
 
 150 
PROCEDURE dllentry* (hinstDLL, fdwReason, lpvReserved: INTEGER): INTEGER;
- 
 
 151 
    RETURN 0
- 
 
 152 
END dllentry;
- 
 
 153 
 
- 
 
 154 
 
- 
 
 155 
PROCEDURE sofinit*;
- 
 
 156 
BEGIN
- 
 
 157 
    IF fini # NIL THEN
- 
 
 158 
        fini
- 
 
 159 
    END
- 
 
 160 
END sofinit;
- 
 
 161 
 
- 
 
 162 
 
- 
 
 163 
PROCEDURE SetFini* (ProcFini: SOFINI);
- 
 
 164 
BEGIN
- 
 
 165 
    fini := ProcFini
- 
 
 166 
END SetFini;
143 
 
 167