| /programs/develop/oberon07/Lib/Windows32/API.ob07 |
|---|
| 1,7 → 1,7 |
| (* |
| (* |
| BSD 2-Clause License |
| Copyright (c) 2018, 2019, Anton Krotov |
| Copyright (c) 2018-2019, Anton Krotov |
| All rights reserved. |
| *) |
| 9,6 → 9,12 |
| IMPORT SYSTEM; |
| CONST |
| SectionAlignment = 1000H; |
| VAR |
| eol*: ARRAY 3 OF CHAR; |
| 46,7 → 52,7 |
| PROCEDURE init* (reserved, code: INTEGER); |
| BEGIN |
| eol[0] := 0DX; eol[1] := 0AX; eol[2] := 0X; |
| base := code - 4096; |
| base := code - SectionAlignment; |
| heap := GetProcessHeap() |
| END init; |