Changeset 1585


Ignore:
Timestamp:
Oct 27, 2004, 8:40:34 PM (16 years ago)
Author:
orlov
Message:
  • Another fix for $trap compilation.
File:
1 edited

Legend:

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

    r1558 r1585  
    290290        <Comp-Calls <R 0 v.fails> e.calls> :: e.comp-calls,
    291291        {
    292           e.Snt : /*empty*/, s.tail? : Tail =
     292          e.Snt : /*empty*/, Tail Tail-in-Trap : e s.tail? e =
    293293            <Split-Re (<? &Out-Format>) e.last-Re> :: e.splited-Re,
    294294            <Prepare-Res e.splited-Re> :: e.splited-Re,
     
    370370    {
    371371      \{ e.source? : v; e.Snt : v; } = ((Comp Source) <R 0 v.fails>) Notail;
    372       s.tail? : Tail = () Tail;
    373       () Notail;
     372      () s.tail?;
    374373    } :: (e.source?) s.tail-branch?,
    375374    /*
     
    469468  (TRY (BRANCH e.try) e.catch) e.Snt =
    470469    <Save-Snt-State>,
    471     <Comp-Sentence s.tail? ((FATAL)) () e.try e.Snt> :: e.comp-try,
     470    {
     471      s.tail? : Tail = Tail-in-Trap;
     472      s.tail?;
     473    } :: s.tail-in-trap?,
     474    <Comp-Sentence s.tail-in-trap? ((FATAL)) () e.try e.Snt> :: e.comp-try,
    472475    <Pop-Snt-State>,
    473476    <Gener-Err-Var> :: t.var,
Note: See TracChangeset for help on using the changeset viewer.