Changeset 3877

Timestamp:

Jul 23, 2008, 10:16:23 PM (13 years ago)

Author:

yura

Message:

• NATIVE in cpp- and tpp-backends.

Location:

to-imperative/trunk/compiler/refal/org/refal/plus/compiler

Files:

• rfp_asail_cpp.rf (modified) (1 diff)
• rfp_asail_jbc.rf (modified) (1 diff)
• rfp_asail_tpp.rf (modified) (1 diff)

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

@@ -120 +120 @@
     (s.tag UNDEF e) = ;
     (LINENUMBER sN) = ;
+    (NATIVE s.tag t.qname (e.in) (e.out) e.native) = ;    
     (s.linkage s.tag (e.name) (e.in) (e.out) (NATIVE e.native)) =
         <Del_Pragmas <Gener_Var_Indices 1 (<Vars e.in>) 'arg'>> : e.rfArg s,

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

@@ -995 +995 @@
 Module_Item_To_JBC {
   (s.tag IMPORT e) = /*empty*/;
+  (NATIVE s.tag t.qname (e.in) (e.out) e.native) = <WrapGen2 s.tag t.qname (e.in) (e.out) e.native>;
   (s.linkage s.tag t.qname (e.in) (e.out) (NATIVE e.native)) = <WrapGen s.linkage s.tag t.qname (e.in) (e.out) e.native>;
-  (NATIVE s.tag t.qname (e.in) (e.out) e.native) = <WrapGen2 s.tag t.qname (e.in) (e.out) e.native>;
   (s.tag s.linkage t.qname (e.args) (e.ress) e.body),
     s.tag : \{

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

@@ -144 +144 @@
     (s.tag UNDEF e) = ;
     (LINENUMBER sN) = ;
+    (NATIVE s.tag t.qname (e.in) (e.out) e.native) = ;    
     (s.linkage s.tag (e.name) (e.in) (e.out) (NATIVE e.native)) =
         <Del_Pragmas <Gener_Var_Indices 1 (<Vars e.in>) 'arg'>> : e.rfArg s,