Changeset 3877


Ignore:
Timestamp:
Jul 23, 2008, 10:16:23 PM (12 years ago)
Author:
yura
Message:
  • NATIVE in cpp- and tpp-backends.
Location:
to-imperative/trunk/compiler/refal/org/refal/plus/compiler
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • to-imperative/trunk/compiler/refal/org/refal/plus/compiler/rfp_asail_cpp.rf

    r3864 r3877  
    120120    (s.tag UNDEF e) = ;
    121121    (LINENUMBER sN) = ;
     122    (NATIVE s.tag t.qname (e.in) (e.out) e.native) = ;   
    122123    (s.linkage s.tag (e.name) (e.in) (e.out) (NATIVE e.native)) =
    123124        <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

    r3867 r3877  
    995995Module_Item_To_JBC {
    996996  (s.tag IMPORT e) = /*empty*/;
     997  (NATIVE s.tag t.qname (e.in) (e.out) e.native) = <WrapGen2 s.tag t.qname (e.in) (e.out) e.native>;
    997998  (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>;
    998   (NATIVE s.tag t.qname (e.in) (e.out) e.native) = <WrapGen2 s.tag t.qname (e.in) (e.out) e.native>;
    999999  (s.tag s.linkage t.qname (e.args) (e.ress) e.body),
    10001000    s.tag : \{
  • to-imperative/trunk/compiler/refal/org/refal/plus/compiler/rfp_asail_tpp.rf

    r3864 r3877  
    144144    (s.tag UNDEF e) = ;
    145145    (LINENUMBER sN) = ;
     146    (NATIVE s.tag t.qname (e.in) (e.out) e.native) = ;   
    146147    (s.linkage s.tag (e.name) (e.in) (e.out) (NATIVE e.native)) =
    147148        <Del_Pragmas <Gener_Var_Indices 1 (<Vars e.in>) 'arg'>> : e.rfArg s,
Note: See TracChangeset for help on using the changeset viewer.