Changeset 901


Ignore:
Timestamp:
Jun 30, 2003, 12:20:54 AM (18 years ago)
Author:
orlov
Message:
  • Fixes concerning formats with $const'ants.
File:
1 edited

Legend:

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

    r683 r901  
    7272        <Split-Rt t.Ft t.Rt> <Split-Re (e.Fe) e.Re>;
    7373    };
    74   (e.Fe t.Ft) e.Re t.Rt,
     74  (v.Fe t.Ft) v.Re t.Rt,
    7575    \{
    7676      /*
     
    8181        <Format-Exp t.Rt> : (REF e);
    8282      } =
    83         <Split-Re (e.Fe) e.Re> <Split-Rt t.Ft t.Rt>;
     83        <Split-Re (v.Fe) v.Re> <Split-Rt t.Ft t.Rt>;
    8484    };
    8585  ((REF t.name) e.Fe) e.Re, {
     
    8787    <Split-Re (<Middle 3 0 <Lookup &Const t.name>> e.Fe) e.Re>;
    8888  };
    89   (e.Fe (REF t.name)) e.Re, {
    90     e.Re : e.Rest t.Rt, <Format-Exp t.Rt> : (REF t.name) = <Split-Re (e.Fe) e.Rest>;
    91     <Split-Re (e.Fe <Middle 3 0 <Lookup &Const t.name>>) e.Re>;
     89  (v.Fe (REF t.name)) e.Re, {
     90    e.Re : e.Rest t.Rt, <Format-Exp t.Rt> : (REF t.name) = <Split-Re (v.Fe) e.Rest>;
     91    <Split-Re (v.Fe <Middle 3 0 <Lookup &Const t.name>>) e.Re>;
    9292  };
    9393  (e.Fe) t.Rt e.Re, <Format-Exp t.Rt> : (REF t.name) =
    94     <Split-Re (e.Fe) <Ref-To-Var <Middle 3 0 <Lookup &Const t.name>>> e.Re>;
    95   (e.Fe) e.Re t.Rt, <Format-Exp t.Rt> : (REF t.name) =
    96     <Split-Re (e.Fe) e.Re <Ref-To-Var <Middle 3 0 <Lookup &Const t.name>>>>;
     94    <Split-Re (e.Fe) <Middle 3 0 <Lookup &Const t.name>> e.Re>;
     95  (e.Fe) v.Re t.Rt, <Format-Exp t.Rt> : (REF t.name) =
     96    <Split-Re (e.Fe) v.Re <Middle 3 0 <Lookup &Const t.name>>>;
    9797  ((VVAR)) e.Re = (e.Re);
    9898  ((EVAR)) e.Re = (e.Re);
     
    222222        t1 : \{
    223223          (REF t.Name), <Get-Const-Term t.Name> : term =
    224             term : s.ObjectSymbol,
     224            term : \{
     225              s.ObjectSymbol;
     226              (REF e);        // Reference to an object
     227            },
    225228            <Empty-Expr? e2>;
    226229          s.ObjectSymbol = <Empty-Expr? e2>;
Note: See TracChangeset for help on using the changeset viewer.