From df223b96a45692d4d407b520e5019ca681c7cd89 Mon Sep 17 00:00:00 2001
From: norayr <norayr@arnet.am>
Date: Fri, 9 Oct 2015 13:36:54 +0400
Subject: [PATCH] support for SYSTEM.ADR("x") added, i. e. for chars. sync with
 jtempl's version; -- noch

Former-commit-id: 8887c4edb075acb639ade8f56a4b0557e90b80fb
---
 src/voc/OPB.Mod                           | 3 +++
 vocstatic.linux.gcc.x86_64.REMOVED.git-id | 2 +-
 2 files changed, 4 insertions(+), 1 deletion(-)

diff --git a/src/voc/OPB.Mod b/src/voc/OPB.Mod
index 1bf703a4..6e4430d0 100644
--- a/src/voc/OPB.Mod
+++ b/src/voc/OPB.Mod
@@ -409,6 +409,9 @@ MODULE OPB;  (* RC 6.3.89 / 21.2.94 *)  (* object model 17.1.93 *)
           END ;
           z^.typ := OPT.booltyp
       | adr: (*SYSTEM.ADR*)
+		  IF (z^.class = Nconst) & (f = Char) & (z^.conval^.intval >= 20H) THEN
+		    CharToString(z); f := String
+		  END ;
           IF (z^.class < Nconst) OR (f = String) THEN z := NewOp(op, typ, z)
           ELSE err(127)
           END ;
diff --git a/vocstatic.linux.gcc.x86_64.REMOVED.git-id b/vocstatic.linux.gcc.x86_64.REMOVED.git-id
index 6d32b957..0e677c7b 100644
--- a/vocstatic.linux.gcc.x86_64.REMOVED.git-id
+++ b/vocstatic.linux.gcc.x86_64.REMOVED.git-id
@@ -1 +1 @@
-a7a837dd44a4c74f85ac685d62b8179041dd783c
\ No newline at end of file
+a113ad22927e0094e5f94f603c617f48146ed169
\ No newline at end of file