Changeset 3713 for to-imperative/trunk/compiler/refal/org/refal/plus/compiler/rfp_asail_jbc.rf

Timestamp:

Apr 16, 2008, 7:50:59 PM (13 years ago)

Author:

yura

Message:

• No dots in variables name in JBC.
• Use interface Func in runtime.

File:

• to-imperative/trunk/compiler/refal/org/refal/plus/compiler/rfp_asail_jbc.rf (modified) (1 diff)

to-imperative/trunk/compiler/refal/org/refal/plus/compiler/rfp_asail_jbc.rf

@@ -892 +892 @@
       # <IsInTable s.block_table1 VAR t.var>,
       t.var : \{
-        (SVAR (e.name)) = <ToWord 's.' e.name>;
-        (TVAR (e.name)) = <ToWord 't.' e.name>;
-        (VVAR (e.name)) = <ToWord 'v.' e.name>;
-        (EVAR (e.name)) = <ToWord 'e.' e.name>;
+        (SVAR (e.name)) = <ToWord 's_' e.name>;
+        (TVAR (e.name)) = <ToWord 't_' e.name>;
+        (VVAR (e.name)) = <ToWord 'v_' e.name>;
+        (EVAR (e.name)) = <ToWord 'e_' e.name>;
       } :: s.name,
       # \{ <ToChars s.name> : e '$' e; },