Changeset 2346


Ignore:
Timestamp:
Feb 7, 2007, 4:57:40 PM (14 years ago)
Author:
yura
Message:
  • no tabs
File:
1 edited

Legend:

Unmodified
Added
Removed
  • to-imperative/trunk/compiler/rfp_asail_jbc.rf

    r2345 r2346  
    11// $Id$
     2// vim: set et ts=2 sw=2 :
    23
    34$use Access Apply Arithm Box Class Compare Convert File JavaMangle List StdIO Table Java;
     
    149150  e.module : e t.item e, t.item : {
    150151    (s.tag t.name (e.args) (e.ress) e.body),
    151                         s.tag : \{
    152                                 FUNC  = 'V';
    153                                 FUNC? = 'Z';
    154                         } : s.retType,
     152      s.tag : \{
     153        FUNC  = 'V';
     154        FUNC? = 'Z';
     155      } : s.retType,
    155156      <Clear-Table &Vars>,
    156157      <Store &Var-Idx 0>,
     
    165166      <Func-To-JBC s.mv e.body>,
    166167      s.tag : {
    167                                 FUNC  = <MVvisitInsn s.mv &RETURN>;
    168                                 FUNC? = <MVvisitInsn s.mv &"ICONST_1"> <MVvisitInsn s.mv &IRETURN>;
     168        FUNC  = <MVvisitInsn s.mv &RETURN>;
     169        FUNC? = <MVvisitInsn s.mv &"ICONST_1"> <MVvisitInsn s.mv &IRETURN>;
    169170      },
    170171      <MVvisitEnd s.mv>;
     
    189190      //<RFP-Extract-Qualifiers t.name> :: (e.qualifiers) e.n,
    190191      //('static '<Access-Mode t.name>' final Expr '<Name-To-JBC t.name>
    191       //        ' = new Expr (new 'e.class-name' ("'e.n'"));');
     192      //  ' = new Expr (new 'e.class-name' ("'e.n'"));');
    192193    (DECL-OBJ t.name) = ;
    193194    (DECL-FUNC t.name) = ;
Note: See TracChangeset for help on using the changeset viewer.