Ignore:
Timestamp:
May 21, 2003, 4:43:54 PM (18 years ago)
Author:
orlov
Message:
  • Work towards clashes compilation.
File:
1 edited

Legend:

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

    r712 r744  
    183183
    184184
    185 Create-Int-Var (e.prefix) t.var e.expr =
    186   <Gener-Vars ((VAR)) e.prefix t.var> : t.int-var,
     185Create-Int-Var (e.prefix) t.var e.expr, {
     186  t.var : Aux = (VAR <Box 0 e.prefix>);
     187  (VAR <Box 1 e.prefix t.var>);
     188} :: t.int-var =
    187189  t.int-var (INT t.int-var e.expr);
    188190
Note: See TracChangeset for help on using the changeset viewer.