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

platforms.


Former-commit-id: 15274cbfb0

src/lib/system/darwin/clang/x86_64/Unix.Mod

@@ -536,6 +536,28 @@ from man gettimeofday
       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.

src/lib/system/freebsd/clang/x86_64/Unix.Mod

@@ -557,6 +557,28 @@ from man gettimeofday
       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.

src/lib/system/linux/clang/armv6j_hardfp/Unix.Mod

@@ -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.

src/lib/system/linux/clang/powerpc/Unix.Mod

@@ -439,4 +439,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.

src/lib/system/linux/clang/x86/Unix.Mod

@@ -439,4 +439,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.

src/lib/system/linux/clang/x86_64/Unix.Mod

@@ -492,6 +492,28 @@ from man gettimeofday
       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.

src/lib/system/linux/gcc/armv6j_hardfp/Unix.Mod

@@ -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.

src/lib/system/linux/gcc/powerpc/Unix.Mod

@@ -439,4 +439,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.

src/lib/system/linux/gcc/x86/Unix.Mod

@@ -439,4 +439,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.

src/lib/system/linux/gcc/x86_64/Unix.Mod

@@ -492,6 +492,28 @@ from man gettimeofday
       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.

vocstatic.linux.gcc.x86_64.REMOVED.git-id

@@ -1 +1 @@
-82105aa4959ab990f96645db6fee788397ea97e2
+7db4dcd699d480d460219139ee1d2cc1f7c9ec19