Changeset 3959


Ignore:
Timestamp:
Oct 7, 2008, 3:47:32 PM (12 years ago)
Author:
yura
Message:
  • No temp variables in debugging.
  • Show origin name for variables.
  • LineNumbers? are generated from beginning of constructions (not from COMMA).
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • devel-tools/trunk/eclipse/org.refal.rfpdt.core/src/org/refal/rfpdt/compiler/RefalASGenerator.java

    r3866 r3959  
    205205
    206206    public void visit (AstAlt astAlt, Expr.Concatenator e) {
     207        //addLineNumber(astAlt, e);
    207208        Expr.Concatenator items = Expr.getConcatenator();
    208209        items.toRight(astAlt.failMode.select(ALT_Q, ALT));
     
    217218
    218219    public void visit (AstComma astComma, Expr.Concatenator e) {
    219         addLineNumber(astComma, e);
     220        //addLineNumber(astComma, e);
    220221    }
    221222
     
    249250
    250251    public void visit (AstFormat astFormat, Expr.Concatenator e) {
     252        //addLineNumber(astFormat, e);
    251253        Expr.Concatenator format = Expr.getConcatenator();
    252254        format.toRight(FORMAT);
     
    256258
    257259    public void visit (AstIter astIter, Expr.Concatenator e) {
     260        //addLineNumber(astIter, e);
    258261        Expr.Concatenator iter = Expr.getConcatenator();
    259262        iter.toRight(ITER);
     
    278281
    279282    public void visit (AstPattern astPattern, Expr.Concatenator e) {
     283        //addLineNumber(astPattern, e);
    280284        Expr.Concatenator items = Expr.getConcatenator();
    281285        items.toRight(astPattern.dir.select(LEFT, RIGHT));
     
    285289
    286290    public void visit (AstResult astResult, Expr.Concatenator e) {
     291        addLineNumber(astResult, e);
    287292        Expr.Concatenator items = Expr.getConcatenator();
    288293        items.toRight(RESULT);
     
    292297
    293298    public void visit (AstSentence astSentence, Expr.Concatenator e) {
     299        //addLineNumber(astSentence, e);
    294300        for (AstStatement statement : astSentence.statementList)
    295301            statement.accept(this, e);
  • to-imperative/trunk/compiler/refal/org/refal/plus/compiler/rfp_asail_jbc.rf

    r3887 r3959  
    893893      # <IsInTable s.block_table1 VAR t.var>,
    894894      t.var : \{
    895         (SVAR (e.name)) = <ToWord 's.' e.name>;
    896         (TVAR (e.name)) = <ToWord 't.' e.name>;
    897         (VVAR (e.name)) = <ToWord 'v.' e.name>;
    898         (EVAR (e.name)) = <ToWord 'e.' e.name>;
    899       } :: s.name,
    900       # \{ <ToChars s.name> : e '$' e; },
     895        (SVAR (e.name)) = 's.' e.name;
     896        (TVAR (e.name)) = 't.' e.name;
     897        (VVAR (e.name)) = 'v.' e.name;
     898        (EVAR (e.name)) = 'e.' e.name;
     899      } :: e.name,
     900      # \{ e.name : \{ e '$' e; e "aux" e; }; },
     901      { e.name : e.head s1, <IsInt s1> = e.head; e.name; } :: e.name,
     902      <ToWord e.name> :: s.name,
    901903      s.type : \{
    902904        Expr = <IIMVvisitLocalVariable <MV> s.name "Lorg/refal/plus/Expr;" <Null> s.start s.stop sind>;
Note: See TracChangeset for help on using the changeset viewer.