vishapoberon/compiler
1
0
Fork 0
mirror of https://github.com/vishapoberon/compiler.git synced 2026-04-06 13:22:26 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

added struct stat size check to Unix.Mod, will test it on different

Browse source 
platforms.


Former-commit-id: 15274cbfb0
This commit is contained in:
norayr 2015-05-20 18:40:48 +04:00
parent 9dde57e9cd
commit da7c2ed8b0
11 changed files with 227 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

23
src/lib/system/linux/gcc/armv6j_hardfp/Unix.Mod
View file

@ -456,4 +456,27 @@ TYPE
RETURN r
END System;
PROCEDURE -SizeofUnixStat(): INTEGER
"sizeof(Unix_Status)";
PROCEDURE -SizeofStat(): INTEGER
"sizeof(struct stat)";
PROCEDURE -Error(msg: ARRAY OF CHAR; len: INTEGER)
"write(1/*stdout*/, msg, len); char ch = 0xa; write(1, &ch, 1)";
PROCEDURE StatCheck;
VAR x, y: LONGINT;
BEGIN
x := SizeofUnixStat();
y := SizeofStat();
IF x # y THEN
Error("Unix.StatCheck: inconsistent usage of struct stat", 49);
Exit(1);
END
END StatCheck;
BEGIN
StatCheck();
END Unix.