| 12,6 → 12,8 |
|---|
| |
| CONST |
| |
| eol* = 0DX + 0AX; |
| |
| MAX_SIZE = 16 * 400H; |
| HEAP_SIZE = 1 * 100000H; |
| |
| 33,9 → 35,8 |
|---|
| |
| CriticalSection: CRITICAL_SECTION; |
| |
| import*, multi: BOOLEAN; |
| _import*, multi: BOOLEAN; |
| |
| eol*: ARRAY 3 OF CHAR; |
| base*: INTEGER; |
| |
| |
| 284,24 → 285,24 |
|---|
| BEGIN |
| OutString("import error: "); |
| IF K.imp_error.error = 1 THEN |
| OutString("can't load "); OutString(K.imp_error.lib) |
| OutString("can't load '"); OutString(K.imp_error.lib) |
| ELSIF K.imp_error.error = 2 THEN |
| OutString("not found "); OutString(K.imp_error.proc); OutString(" in "); OutString(K.imp_error.lib) |
| OutString("not found '"); OutString(K.imp_error.proc); OutString("' in '"); OutString(K.imp_error.lib) |
| END; |
| OutString("'"); |
| OutLn |
| END imp_error; |
| |
| |
| PROCEDURE init* (_import, code: INTEGER); |
| PROCEDURE init* (import_, code: INTEGER); |
| BEGIN |
| multi := FALSE; |
| eol[0] := 0DX; eol[1] := 0AX; eol[2] := 0X; |
| base := code - SizeOfHeader; |
| K.sysfunc2(68, 11); |
| InitializeCriticalSection(CriticalSection); |
| K._init; |
| import := (K.dll_Load(_import) = 0) & (K.imp_error.error = 0); |
| IF ~import THEN |
| _import := (K.dll_Load(import_) = 0) & (K.imp_error.error = 0); |
| IF ~_import THEN |
| imp_error |
| END |
| END init; |