| 123456789101112 |
- MODULE TCsize;
- (* C size_t/ssize_t are 64-bit on amd64. *)
- FROM SYSTEM IMPORT CSIZE_T, CSSIZE_T, COFF_T;
- VAR ExitCode : INTEGER;
- BEGIN
- IF (SIZE(CSIZE_T) = 8) AND (SIZE(CSSIZE_T) = 8)
- AND (SIZE(COFF_T) = 8) THEN
- ExitCode := 42
- ELSE
- ExitCode := 1
- END
- END TCsize.
|