/* voc 2.1.0 [2017/07/17] for gcc LP64 on arch xtpam */ #define SHORTINT INT8 #define INTEGER INT16 #define LONGINT INT32 #define SET UINT32 #include "SYSTEM.h" #include "Out.h" typedef INT16 Test_Vector[3]; typedef Test_Vector *Test_PVector; static Test_PVector Test_a; static Test_Vector Test_b; static void EnumPtrs(void (*P)(void*)) { P(Test_a); } export int main(int argc, char **argv) { __INIT(argc, argv); __MODULE_IMPORT(Out); __REGMAIN("Test", EnumPtrs); /* BEGIN */ Out_Open(); Test_a = __NEWARR(NIL, 2, 2, 1, 0, ((INT64)(3))); __MOVE(Test_b, *Test_a, 6); Out_Flush(); __FINI; }