Добавлены открытые массивы

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

diff --git a/test/Test.c b/test/Test.c
index 8f1b741fb78b8d84351a99400a889a365b784ff5..f40f1381381d285e7d7284048e22e9fc4e24f846 100644 (file)
--- a/test/Test.c
+++ b/test/Test.c
@@ -8,22 +8,15 @@
 #include "SYSTEM.h"
 #include "Out.h"
 
-typedef
-       INT16 Test_Vector[3];
 
-typedef
-       Test_Vector *Test_PVector;
+static INT16 Test_a[3];
 
 
-static Test_PVector Test_a;
-static Test_Vector Test_b;
+static void Test_Ax (INT16 *x, ADDRESS x__len);
 
 
-
-
-static void EnumPtrs(void (*P)(void*))
+static void Test_Ax (INT16 *x, ADDRESS x__len)
 {
-       P(Test_a);
 }
 
 
@@ -31,11 +24,10 @@ export int main(int argc, char **argv)
 {
        __INIT(argc, argv);
        __MODULE_IMPORT(Out);
-       __REGMAIN("Test", EnumPtrs);
+       __REGMAIN("Test", 0);
 /* BEGIN */
        Out_Open();
-       Test_a = __NEWARR(NIL, 2, 2, 1, 0, ((INT64)(3)));
-       __MOVE(Test_b, *Test_a, 6);
+       Test_Ax((void*)Test_a, 3);
        Out_Flush();
        __FINI;
 }