27 |
#pragma option -a- /* Turn off alignment. */ |
#pragma option -a- /* Turn off alignment. */ |
28 |
#endif |
#endif |
29 |
|
|
30 |
|
/* Find 32-bit signed integer type. */ |
31 |
|
#if SIZEOF_SHORT == 4 |
32 |
|
#define int32 short |
33 |
|
#elif SIZEOF_INT == 4 |
34 |
|
#define int32 int |
35 |
|
#elif SIZEOF_LONG == 4 |
36 |
|
#define int32 long |
37 |
|
#else |
38 |
|
#error Which one of your basic types is 32-bit signed integer? |
39 |
|
#endif |
40 |
|
|
41 |
|
/* Find 64-bit floating-point type. */ |
42 |
|
#if SIZEOF_FLOAT == 8 |
43 |
|
#define flt64 float |
44 |
|
#define FLT64_MAX FLT_MAX |
45 |
|
#elif SIZEOF_DOUBLE == 8 |
46 |
|
#define flt64 double |
47 |
|
#define FLT64_MAX DBL_MAX |
48 |
|
#elif SIZEOF_LONG_DOUBLE == 8 |
49 |
|
#define flt64 long double |
50 |
|
#define FLT64_MAX LDBL_MAX |
51 |
|
#else |
52 |
|
#error Which one of your basic types is 64-bit floating point? |
53 |
|
#define flt64 double |
54 |
|
#define FLT64_MAX DBL_MAX |
55 |
|
#endif |
56 |
|
|
57 |
|
/* Figure out SYSMIS value for flt64. */ |
58 |
|
#if SIZEOF_DOUBLE == 8 |
59 |
|
#define second_lowest_flt64 second_lowest_value |
60 |
|
#else |
61 |
|
#error Must define second_lowest_flt64 for your architecture. |
62 |
|
#endif |
63 |
|
|
64 |
/* Record Type 1: General Information. */ |
/* Record Type 1: General Information. */ |
65 |
struct sysfile_header |
struct sysfile_header |
66 |
{ |
{ |