Subversion Repositories Kolibri OS

Rev

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

Rev 6613 Rev 7107
Line 1... Line 1...
1 
(*
 1 
(*
2 
    Copyright 2016 Anton Krotov
 2 
    Copyright 2016 Anton Krotov
Line 3... Line 3...
3 
 
 3 
 
4 
    This program is free software: you can redistribute it and/or modify
 4 
    This program is free software: you can redistribute it and/or modify
5 
    it under the terms of the GNU Lesser General Public License as published by
 5 
    it under the terms of the GNU Lesser General Public License as published by
Line 101... Line 101...
101 
PROCEDURE ExitProcess* (code: INTEGER);
 101 
PROCEDURE ExitProcess* (code: INTEGER);
102 
BEGIN
 102 
BEGIN
103 
  exit(code)
 103 
  exit(code)
104 
END ExitProcess;
 104 
END ExitProcess;
Line -... Line 105...
- 
 
 105 
 
- 
 
 106 
PROCEDURE ExitThread* (code: INTEGER);
- 
 
 107 
BEGIN
- 
 
 108 
  exit(code)
- 
 
 109 
END ExitThread;
105 
 
 110 
 
106 
PROCEDURE GetProc(name: ARRAY OF CHAR; hMOD, adr: INTEGER);
 111 
PROCEDURE GetProc(name: ARRAY OF CHAR; hMOD, adr: INTEGER);
107 
VAR H: INTEGER;
 112 
VAR H: INTEGER;
108 
BEGIN
 113 
BEGIN
109 
  H := dlsym(hMOD, sys.ADR(name[0]));
 114 
  H := dlsym(hMOD, sys.ADR(name[0]));