JVM: исправлены указатели на процедуры: больше не требуется поддержка со стороны...

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

diff --git a/src/test.c b/src/test.c
index 03ac7fc3ab12979d8fcaadac8c5ccd244769f4bc..d2950b968189c70a5f4b743c5131cd9682498959 100644 (file)
--- a/src/test.c
+++ b/src/test.c
@@ -22,12 +22,14 @@ static char source_test[] =
        ""
        "TYPE"
        "  Ident = ARRAY 20 OF CHAR;"
+       "  PrintString = PROCEDURE (str : ARRAY OF CHAR);"
        ""
        "VAR"
        "  hello : Ident;"
-       "  cc : CHAR;"
+       "  print : PrintString;"
        ""
        "BEGIN"
+       "  print := Out.String;"
        "  hello[0] := h;"
        "  hello[1] := e;"
        "  hello[2] := l;"
@@ -42,7 +44,7 @@ static char source_test[] =
        "  hello[11] := bang;"
        "  hello[12] := null;"
        "  Out.Open;"
-       "  Out.String(hello);"
+       "  print(hello);"
        "  Out.Ln;"
        "END Test."
 ;