Changeset 1217


Ignore:
Timestamp:
Aug 14, 2003, 5:36:06 PM (17 years ago)
Author:
sveta
Message:
  • Unused code is deleted.
File:
1 edited

Legend:

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

    r1029 r1217  
    2020
    2121$func Optim-MIN e.x = e.y;
    22 // $func Optim-MIN (e.work-int) (e.res) e.rest = e.expr-min;
    2322
    2423$func Optim-Add (s.res) (e.expr) e.expr-int = e.add;
     
    4847$func Optim-Log-Expr e.log-expr = e.res;
    4948
    50 // function for Stack-Int
     49// function for Stack-Int: expr-level control
    5150$func Push = ;
    5251
     
    126125        (<Push> <Optim-Int e.pos>)
    127126        (<Push> <Optim-Int e.len> ) ) ;
    128 //  RETURN=RETURN;
    129 //  RETFAIL=RETFAIL;
    130 //  FATAL=FATAL;
    131 //  (DECL e1) = (DECL e1);
    132 //  (DROP e1) = (DROP e1);
    133127    (CONTINUE t.label) = 
    134128      <Bind &Used-Label (t.label) ()>
     
    137131      <Bind &Used-Label (t.label) ()>
    138132      (BREAK t.label ) ;
    139 //  (ERROR e1) = (ERROR e1);
    140 //  (CONSTEXPR e1) = (CONSTEXPR e1);
    141 //  (DECL-CONST t.name) = (DECL-CONST t.name);
    142 //  (DECL-OBJ e.obj) = (DECL-OBJ e.obj);
    143 //  (DECL-FUNC e1) = (DECL-FUNC e1);
    144 //  (s.call t.name (e.exprs) (e.ress)) = (s.call t.name (e.exprs)(e.ress));
    145133    t.item = t.item ;
    146134    } :: e.cpp-item,
     
    433421
    434422Optim-Cond-Log s.op e.res =
    435 // <Optim-Cond () e.args> :: e.res,
    436 //  {
    437423{  e.res :  t.result = t.result;
    438424  {
     
    496482      };
    497483    };
    498 // e.args : (0)  (e.arg2) = s.op : {
    499 //  "<=" = 1;
    500 //  ">" = 0;
    501 //  s.op =      (INFIX s.op e.args);
    502 //  };
    503 // e.args : (e.arg1) (0) = s.op : {
    504 //  "<" = 0;
    505 //  ">=" = 1;
    506 //  s.op =      (INFIX s.op e.args);
    507 //  };
    508484  e.args : (e.arg1)(e.arg1) = s.op:{
    509485    "==" = (1);
Note: See TracChangeset for help on using the changeset viewer.