Changeset 2042


Ignore:
Timestamp:
Jul 27, 2006, 9:32:44 PM (14 years ago)
Author:
orlov
Message:
  • Fixed generation of debugging info for some cases.
Location:
to-imperative/trunk/compiler
Files:
2 edited

Legend:

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

    r2034 r2042  
    114114      eL e.assigns (RESULT t.Pragma e.Re) (<Format-Exp e.Re>);
    115115    };
     116  (NOT (BRANCH t.p1 e.body)) eR =
     117    <Unstick-Blocks e.body> :: e.body t.empty,
     118    eL (NOT (BRANCH t.p1 e.body)) <Unstick-Blocks eR>;
    116119  (ITER (BRANCH t.p1 e.body) t.IterVars (BRANCH t.p2 e.condition)) =
    117120    <Unstick-Blocks e.body> :: e.body t,
     
    130133Flatten-Result s.N (e.Re) e.items, e.items : {
    131134  t1 e.rest, t1 : \{ (BLOCK e); (BLOCK? e); } =
    132     <Gener-Var-Indices s.N (<Format-Exp e.Re>) "aux" "result"> :: e.aux1 s.N,
     135    <Format-Exp e.Re> :: e.Fe,
     136    <MSG (e.Fe) (e.Fe)> :: e.Fe,  // hack for avoiding non-hard formats
     137    <Gener-Var-Indices s.N (e.Fe) "aux" "result"> :: e.aux1 s.N,
    133138    <Unstick-Blocks t1> :: e1 (e.Format),
    134139    <Gener-Var-Indices s.N (e.Format) "aux" "block"> :: e.aux2 s.N,
  • to-imperative/trunk/compiler/rfp_parse.rf

    r2034 r2042  
    101101  REF = "'&'";
    102102  NOT = "'#'";
     103  EQUAL = "'='";
    103104  EOF = "end of file";
    104105  EVAR = "e-variable";
Note: See TracChangeset for help on using the changeset viewer.