Добавлены многомерные массивы и статическая проверка индексов

[dsw-obn.git] / test / Test.c

diff --git a/test/Test.c b/test/Test.c
index c1cde1214ebe48b9550515f502d30fb6f1aff2ab..8f1b741fb78b8d84351a99400a889a365b784ff5 100644 (file)
--- a/test/Test.c
+++ b/test/Test.c
@@ -1,4 +1,4 @@
-/* voc 2.1.0 [2017/06/08] for gcc LP64 on arch xtpam */
+/* voc 2.1.0 [2017/07/17] for gcc LP64 on arch xtpam */
 
 #define SHORTINT INT8
 #define INTEGER  INT16
@@ -6,27 +6,36 @@
 #define SET      UINT32
 
 #include "SYSTEM.h"
+#include "Out.h"
 
-struct Test__1 {
-       char _prvt0[1];
-};
+typedef
+       INT16 Test_Vector[3];
 
 typedef
-       struct Test__1 *Test_MyRecDesc;
+       Test_Vector *Test_PVector;
+
 
+static Test_PVector Test_a;
+static Test_Vector Test_b;
 
 
-export ADDRESS *Test__1__typ;
 
 
+static void EnumPtrs(void (*P)(void*))
+{
+       P(Test_a);
+}
 
-__TDESC(Test__1, 1, 0) = {__TDFLDS("", 1), {-8}};
 
 export int main(int argc, char **argv)
 {
        __INIT(argc, argv);
-       __REGMAIN("Test", 0);
-       __INITYP(Test__1, Test__1, 0);
+       __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;
 }