Changeset 2353


Ignore:
Timestamp:
Feb 9, 2007, 2:20:48 PM (14 years ago)
Author:
orlov
Message:
  • Small rearrangements.
File:
1 edited

Legend:

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

    r2352 r2353  
    2525$box Func-Name;
    2626
    27 $box Ress;
    28 $table Result;
    29 $box Res-Assigns;
    30 
    3127$func Module-To-JBC s.cw e.module = ;
    3228
    3329$func ASAIL-To-JBC e.body = ;
    3430
    35 $func ASAIL-To-JBC-Temp e.body = e.java-code;
    36 
    3731$func Expr-Ref-To-JBC e.ASAIL-Expr-Ref = ;
    3832
     
    4236
    4337$func Const-Expr-To-JBC e.ASAIL-const-expr = ;
    44 
    45 $func Expr-Args-To-JBC e.args = e.aux-arrays (e.java-args);
    4638
    4739$func Symbol-To-JBC s.RFP-Symbol = e.JAVA-String;
     
    177169
    178170$func Qualified-Module-Name s.module-name = s.qualified-module-name;
     171
    179172Qualified-Module-Name s.module-name =
    180173  <Lookup &RFP-Includes s.module-name> : {
     
    206199      <"+" &"ACC_STATIC" <Access-Mode t.name>> :: s.accessMode,
    207200      t.name : (s s.funcName),
    208       { <? &Entry> : e t.name e = <Store &Entry-Name <To-Word <Rfp2Java s.funcName>>>;; },
    209201      <To-Word <Rfp2Java s.funcName>> :: s.funcName,
     202      { <? &Entry> : e t.name e = <Store &Entry-Name s.funcName>;; },
    210203      <To-Word '(' <Replicate <Length e.args> "Lorg/refal/plus/Expr;">
    211204        <Replicate <Length e.ress> "Lorg/refal/plus/Result;">')' s.retType> :: s.desc,
     
    216209        FUNC? = <MVvisitInsn <MV> &"ICONST_1"> <MVvisitInsn <MV> &IRETURN>;
    217210      },
    218         <MVvisitMaxs <MV> 0 0>,
     211      <MVvisitMaxs <MV> 0 0>,
    219212      <MVvisitEnd <MV>>;
    220213    (CONSTEXPR s.linkage t.name (e.comment) e.expr) =
     
    365358            '"This is for avoiding \'Unreachable code\' errors");'
    366359        )   )
    367         <ASAIL-To-JBC-Temp e.body>
     360//        <ASAIL-To-JBC-Temp e.body>
    368361      ) '}') : e;
    369362    (CATCH-ERROR e.body) =
    370363      ('catch (RefalException error) {' (
    371364        ('Expr err = error.getExpr ();')
    372         (<ASAIL-To-JBC-Temp e.body>)
     365//        (<ASAIL-To-JBC-Temp e.body>)
    373366      ) '}') : e;
    374367    FATAL =
     
    418411};
    419412
    420 ASAIL-To-JBC-Temp e = ;
    421 
    422413$func Term-Ref-To-JBC t.term = ;
    423414
     
    669660};
    670661
    671 Expr-Args-To-JBC e.args =
    672   e.args (/*e.type*/) (/*e.java-args*/) (/*e.arrays*/) $iter {
    673     e.args : s.t e.rest =
    674       e.rest (s.t) (e.java-args) (e.arrays);
    675     e.args : (e.arg) e.rest =
    676       {
    677         e.rest : e (e) e = ', ';
    678         /*empty*/;
    679       } :: e.comma,
    680       {
    681         /*e.type : empty =
    682           <Expr-Ref-To-JBC e.arg> :: e.a (e.j-arg),
    683           e.rest (e.type) (e.java-args e.j-arg e.comma) (e.arrays e.a);*/
    684         e.rest (e.type) (e.java-args e.arg e.comma) (e.arrays);
    685       };
    686   } :: e.args (e.type) (e.java-args) (e.arrays),
    687   e.args : /*empty*/ =
    688   e.arrays (e.java-args);
    689 
    690662Var-To-JBC t.var =
    691663  <Lookup-Var t.var> :: s.type s.i,
Note: See TracChangeset for help on using the changeset viewer.