Quick Search:

Mode

Context

Displaying 3 lines of context. None | Less | More | Full

Other Diffs

Ignore

Blank Lines Whitespace: Expand:

Diff

1.271
 
1.272
 
MAIN:ragge:20090906164107
 
pftn.c
_>117117 NODE *arrstk[10];
 118118 int arrstkp;
 119119 static int intcompare;
<>120 -static NODE *parlink;
  120+NODE *parlink;
121121 
 122122 void fixtype(NODE *p, int class);
 123123 int fixclass(int class, TWORD type);
     
 !
432432                         oalloc(p, &autooff);
 433433                 break;
 434434         case PARAM:
<>435 -                if (ISARY(p->stype)) {
 436 -                        /* remove array type on parameters before oalloc */
 437 -                        p->stype += (PTR-ARY);
 438 -                        p->sdf++;
 439 -                }
 440 -                if (arrstkp)
  435+                if (arrstkp) {
441436                         dynalloc(p, &argoff);
<>442 -                else
  437+                } else {
  438+                        if (ISARY(p->stype)) {
  439+                        /* remove array type on parameters before oalloc */
  440+                                p->stype += (PTR-ARY);
  441+                                p->sdf++;
  442+                        }
443443                         oalloc(p, &argoff);
<> 444+                }
444445                 break;
 445446                 
 446447         case STATIC:
     
 !
26342635                         /* may be declared without dimension */
 26352636                         if (dsym->ddim == NOOFFSET)
 26362637                                 dsym->ddim = ddef->ddim;
<>2637 -                        if (ddef->ddim != NOOFFSET && dsym->ddim != ddef->ddim)
  2638+                        if (dsym->ddim < 0 && ddef->ddim < 0)
  2639+                                ; /* dynamic arrays as arguments */
  2640+                        else if (ddef->ddim > 0 && dsym->ddim != ddef->ddim)
<_26382641                                 return 1;
 26392642                         dsym++, ddef++;
 26402643                         break;
FishEye: Open Source License registered to PCC.
Your maintenance has expired. You can renew your license at http://www.atlassian.com/fisheye/renew
Atlassian FishEye, CVS analysis. (Version:1.6.3 Build:build-336 2008-11-04) - Administration - Page generated 2014-09-16 11:27 +0200