/[ascend]/trunk/ascend/compiler/typelint.c
ViewVC logotype

Diff of /trunk/ascend/compiler/typelint.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 2586 by jpye, Tue Feb 7 21:01:01 2012 UTC revision 2587 by jpye, Tue Apr 10 20:27:46 2012 UTC
# Line 435  enum typelinterr TypeLintIllegalBodyStat Line 435  enum typelinterr TypeLintIllegalBodyStat
435          WriteStatement(fp,s,2);          WriteStatement(fp,s,2);
436        }        }
437        break;        break;
438           case UNLNK:      case UNLNK:
439        if(TLINT_STYLE){        if(TLINT_STYLE){
440          FPRINTF(fp,"%sType \"%s\" contains UNLNK:\n",          FPRINTF(fp,"%sType \"%s\" contains UNLNK:\n",
441                  StatioLabel(1),SCP(name));                  StatioLabel(1),SCP(name));
# Line 657  enum typelinterr TypeLintIllegalParamSta Line 657  enum typelinterr TypeLintIllegalParamSta
657      case WNBTS:      case WNBTS:
658      case AA:      case AA:
659      case LNK:      case LNK:
660          case UNLNK:      case UNLNK:
661      case FOR: /* eventually for legal and fk_expect required */      case FOR: /* eventually for legal and fk_expect required */
662      case REL:      case REL:
663      case LOGREL:      case LOGREL:
# Line 730  TypeLintIllegalWhereStats(FILE * fp, Line 730  TypeLintIllegalWhereStats(FILE * fp,
730      case ATS:      case ATS:
731      case AA:      case AA:
732      case LNK:      case LNK:
733          case UNLNK:      case UNLNK:
734      case ASGN:      case ASGN:
735      case WHEN:      case WHEN:
736      case FNAME:      case FNAME:
# Line 794  TypeLintIllegalReductionStats(FILE * fp, Line 794  TypeLintIllegalReductionStats(FILE * fp,
794      case WNBTS:      case WNBTS:
795      case AA:      case AA:
796      case LNK:      case LNK:
797          case UNLNK:      case UNLNK:
798      case FOR: /* probably should be legal now and require fk_create */      case FOR: /* probably should be legal now and require fk_create */
799      case REL:      case REL:
800      case LOGREL:      case LOGREL:
# Line 892  TypeLintIllegalMethodStatList(FILE *fp, Line 892  TypeLintIllegalMethodStatList(FILE *fp,
892          rval = DEF_STAT_MISLOCATED;          rval = DEF_STAT_MISLOCATED;
893        }        }
894        break;        break;
895        case LNK:
896        case UNLNK:
897          /* DS: in case we provide functionality for other statements inside LINK, check their legal status */
898          /* DS: in case we provide functionality for other statements inside UNLINK, check their legal status */
899          break;
900      case ASGN:      case ASGN:
901      case RUN:      case RUN:
902          case FIX:      case FIX:
903      case LNK:      case FREE:
904          /* DS: in case we provide functionality for other statements inside LINK, check their legal status */      case CALL:
905              break;      case SOLVER:
906          case UNLNK:      case OPTION:
907          /* DS: in case we provide functionality for other statements inside UNLINK, check their legal status */      case SOLVE:
             break;  
         case FREE:  
     case CALL:  
     case SOLVER:  
     case OPTION:  
     case SOLVE:  
908        break;        break;
909      case WHILE:      case WHILE:
910        if (WhileStatBlock(s) != NULL) {        if (WhileStatBlock(s) != NULL) {

Legend:
Removed from v.2586  
changed lines
  Added in v.2587

john.pye@anu.edu.au
ViewVC Help
Powered by ViewVC 1.1.22