Changeset 3864 for devel-tools

Timestamp:

Jul 23, 2008, 3:34:11 PM (13 years ago)

Author:

yura

Message:

• (NATIVE s.linkage s.tag t.pragma (e.qname) t.in t.out e.value2) -> (s.linkage s.tag t.pragma (e.qname) t.in t.out (NATIVE e.value2))

Location:

devel-tools/trunk/eclipse

Files:

• org.refal.rfpdt.core/src/org/refal/rfpdt/compiler/RefalASGenerator.java (modified) (2 diffs)
• org.refal.rfpdt.lib/rfpc.jar (modified) (previous)

devel-tools/trunk/eclipse/org.refal.rfpdt.core/src/org/refal/rfpdt/compiler/RefalASGenerator.java

@@ -117 +117 @@
     public void visit (AstFuncDecl astFuncDecl, Expr.Concatenator e) {
         Expr.Concatenator items = Expr.getConcatenator();
-        if (astFuncDecl.funcDef instanceof AstNative)
-            items.toRight(NATIVE);
         if (astFuncDecl.funcDef == null)
             items.toRight(IMPORT);
@@ -134 +132 @@
         astFuncDecl.outFormat.accept(this, outFormat);
         items.toRight((Comparable<?>) outFormat.yield());
-        if (astFuncDecl.funcDef instanceof AstNative)
-            items.toRight(((AstNative) astFuncDecl.funcDef).right.identifier);
-        else if (astFuncDecl.funcDef instanceof AstFuncDef) {
+        if (astFuncDecl.funcDef instanceof AstNative) {
+            Expr.Concatenator body = Expr.getConcatenator();
+            body.toRight(NATIVE);
+            body.toRight(((AstNative) astFuncDecl.funcDef).right.identifier);
+            items.toRight((Comparable<?>) body.yield());
+        } else if (astFuncDecl.funcDef instanceof AstFuncDef) {
             Expr.Concatenator body = Expr.getConcatenator();
             body.toRight(BRANCH);