Changeset 2729


Ignore:
Timestamp:
Apr 24, 2007, 6:56:04 AM (14 years ago)
Author:
orlov
Message:
  • Fixed compilation of AS without pragmas.
Location:
to-imperative/trunk/compiler
Files:
5 edited

Legend:

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

    r2727 r2729  
    214214        (e.Pe) e.Snt;
    215215      <Gener_Var_Indices 1 (e.in) "arg"> :: e.in_expr s =
    216         (e.in_expr) (RESULT { s.pragmas : With_pragmas = (PRAGMA) e.in_expr; <Del_Pragmas e.in_expr>; }) e.Sentence;
     216        {
     217          s.pragmas : Without_pragmas =
     218            <Del_Pragmas e.in_expr> :: e.in_expr,
     219            (e.in_expr) (RESULT e.in_expr) e.Sentence;
     220          (e.in_expr) (RESULT (PRAGMA) e.in_expr) e.Sentence;
     221        };
    217222    };
    218223  /*
  • to-imperative/trunk/compiler/rfp_asail_jbc.rf

    r2727 r2729  
    221221  s.i;
    222222
    223 Lookup_Var t.var = <WriteLn Lookup_Var t.var>, <Lookup <Get_Block_Table> VAR t.var> : s.type s.i = s.type s.i;
     223Lookup_Var t.var = <Lookup <Get_Block_Table> VAR t.var> : s.type s.i = s.type s.i;
    224224
    225225Bind_Iter_Var e.expr t.var1 t.var2 =
  • to-imperative/trunk/compiler/rfp_compile.rf

    r2727 r2729  
    181181  <ClearTable &Prep_Vars>,
    182182  <Init_Vars>,
    183   <Vars <Gener_Vars (e.out) "res">> :: e.res_vars,
     183  <Vars <Gener_Vars (<Format_Exp e.out>) "res">> :: e.res_vars,
    184184  <Vars_Decl Result e.res_vars> : e,
    185185  <Store &Res_Vars e.res_vars>,
  • to-imperative/trunk/compiler/rfp_src.rf

    r2715 r2729  
    88$use "org.refal.plus.wrappers.java.lang.ClassLoader";
    99$use "org.refal.plus.wrappers.org.refal.plus.comp.CompilerEnvironment";
    10 $use "org.refal.plus.wrappers.org.refal.plus.comp.FormatReader.";
     10$use "org.refal.plus.wrappers.org.refal.plus.comp.FormatReader";
    1111
    1212$func  Arg_GetImplementationReader t.fileId = (e.qname) (e.inter_reader) (e.implem_reader) ;
  • to-imperative/trunk/compiler/rfpc.rf

    r2727 r2729  
    9191CompileASToJBC s.env t.as =
    9292  t.as : (s t.ModuleName e.Items),
    93   <WriteLn Compiling t.ModuleName>,
    9493  <Get_Ready_For_Compilation e.Items>,
    9594  <RFP_As2As_Transform e.Items> :: e.Items,
Note: See TracChangeset for help on using the changeset viewer.