Changeset 3919


Ignore:
Timestamp:
Sep 16, 2008, 5:02:08 PM (12 years ago)
Author:
orlov
Message:
  • Some $const-s are working in T.
File:
1 edited

Legend:

Unmodified
Added
Removed
  • to-imperative/trunk/compiler/refal/org/refal/plus/compiler/rfp_asail_tpp.rf

    r3916 r3919  
    333333      <Namespace_Control e.qualifiers>
    334334      (e.linkage 'Expr ' <Name_To_CPP "DECL-OBJ" t.name> ';');
    335     ("DECL-OBJ" t.name) =
    336       <Extract_Qualifiers t.name> :: (e.qualifiers) e,
    337       <Namespace_Control e.qualifiers>
    338       ('extern Expr ' <Name_To_CPP "DECL-OBJ" t.name> ';');
     335    ("DECL-OBJ" t.name) = ;
     336//T/      <Extract_Qualifiers t.name> :: (e.qualifiers) e,
     337//T/      <Namespace_Control e.qualifiers>
     338//T/      ('extern Expr ' <Name_To_CPP "DECL-OBJ" t.name> ';');
    339339    ("DECL-FUNC" t.name) =
    340340      <Lookup &Decls "DECL-FUNC" t.name> : s.tag e.proto_args,
     
    403403    'TExpr (' <Expr_Ref_To_CPP s.tvars e.expr> ', '
    404404        <Expr_Int_To_CPP e.pos>   ', ' <Expr_Int_To_CPP e.len> ')';
    405   (REF t.name) = <Name_To_CPP "DECL-OBJ" t.name>;
     405  (REF t.name) =
     406    <Bind &Used_Consts (t.name) ()>,
     407    <Name_To_CPP "DECL-OBJ" t.name>;
    406408  "ERROR-EXPR" = 'err';
    407409  (STATIC t.name) =
     
    517519      <Bind &Used_Consts ((STATIC e.name)) ()>,
    518520      '.add('<Rfp2Cpp (STATIC e.name)>')';
     521    (PAREN (REF t.name)) =
     522      <Bind &Used_Consts (t.name) ()>,
     523      '.add('<Name_To_CPP "DECL-OBJ" t.name>')';
    519524    (PAREN e.paren_expr) =
    520525      '.add('<Const_Expr_To_CPP e.paren_expr>')';
    521526//T/      ' + (' <Const_Expr_To_CPP e.paren_expr> ') ()';
    522527    (REF t.name) =
    523       '.add(' <Name_To_CPP "DECL-OBJ" t.name>')';
     528      <Bind &Used_Consts (t.name) ()>,
     529      '.concat(' <Name_To_CPP "DECL-OBJ" t.name>')';
    524530//      ' + Expr::create<ObjectRef>(' <Name-To-CPP t.name> ')';
    525531//T/    (STATIC e) =
Note: See TracChangeset for help on using the changeset viewer.