| 1,5 → 1,5 |
|---|
| (* |
| Copyright 2016 Anton Krotov |
| (* |
| Copyright 2016, 2018 Anton Krotov |
| |
| This program is free software: you can redistribute it and/or modify |
| it under the terms of the GNU Lesser General Public License as published by |
| 31,10 → 31,6 |
|---|
| RETURN File.Read(F, sys.ADR(x), sys.SIZE(REAL)) = sys.SIZE(REAL) |
| END Real; |
| |
| PROCEDURE LongReal*(F: File.FS; VAR x: LONGREAL): BOOLEAN; |
| RETURN File.Read(F, sys.ADR(x), sys.SIZE(LONGREAL)) = sys.SIZE(LONGREAL) |
| END LongReal; |
| |
| PROCEDURE Boolean*(F: File.FS; VAR x: BOOLEAN): BOOLEAN; |
| RETURN File.Read(F, sys.ADR(x), sys.SIZE(BOOLEAN)) = sys.SIZE(BOOLEAN) |
| END Boolean; |