mirror of
https://github.com/vishapoberon/compiler.git
synced 2026-04-06 18:02:25 +00:00
Some support in makefile for 32 bit model.
This commit is contained in:
parent
b158671cf8
commit
b40dc4e2f8
27 changed files with 141 additions and 116 deletions
|
|
@ -65,7 +65,7 @@ MODULE Console; (* J. Templ, 29-June-96 *)
|
|||
END Hex;
|
||||
|
||||
PROCEDURE Read*(VAR ch: CHAR);
|
||||
VAR n: LONGINT; error: Platform.ErrorCode;
|
||||
VAR n: SYSTEM.ADDRESS; error: Platform.ErrorCode;
|
||||
BEGIN Flush();
|
||||
error := Platform.ReadBuf(Platform.StdIn, ch, n);
|
||||
IF n # 1 THEN ch := 0X END
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue