DEADSOFTWARE

Реализованы неявные объявления типов наперёд
[dsw-obn.git] / test / Test.c
1 /* voc 2.1.0 [2017/06/08] for gcc LP64 on arch xtpam */
3 #define SHORTINT INT8
4 #define INTEGER INT16
5 #define LONGINT INT32
6 #define SET UINT32
8 #include "SYSTEM.h"
10 struct Test__1 {
11 char _prvt0[1];
12 };
14 typedef
15 struct Test__1 *Test_MyRecDesc;
19 export ADDRESS *Test__1__typ;
23 __TDESC(Test__1, 1, 0) = {__TDFLDS("", 1), {-8}};
25 export int main(int argc, char **argv)
26 {
27 __INIT(argc, argv);
28 __REGMAIN("Test", 0);
29 __INITYP(Test__1, Test__1, 0);
30 /* BEGIN */
31 __FINI;
32 }