test/Test.c

   1 /* voc 2.1.0 [2017/07/17] for gcc LP64 on arch xtpam */
   2
   3 #define SHORTINT INT8
   4 #define INTEGER  INT16
   5 #define LONGINT  INT32
   6 #define SET      UINT32
   7
   8 #include "SYSTEM.h"
   9 #include "Out.h"
  10
  11 typedef
  12         INT16 Test_Vector[3];
  13
  14 typedef
  15         Test_Vector *Test_PVector;
  16
  17
  18 static Test_PVector Test_a;
  19 static Test_Vector Test_b;
  20
  21
  22
  23
  24 static void EnumPtrs(void (*P)(void*))
  25 {
  26         P(Test_a);
  27 }
  28
  29
  30 export int main(int argc, char **argv)
  31 {
  32         __INIT(argc, argv);
  33         __MODULE_IMPORT(Out);
  34         __REGMAIN("Test", EnumPtrs);
  35 /* BEGIN */
  36         Out_Open();
  37         Test_a = __NEWARR(NIL, 2, 2, 1, 0, ((INT64)(3)));
  38         __MOVE(Test_b, *Test_a, 6);
  39         Out_Flush();
  40         __FINI;
  41 }