/[ascend]/trunk/base/generic/compiler/arrayinst.c
ViewVC logotype

Diff of /trunk/base/generic/compiler/arrayinst.c

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

revision 302 by aw0a, Sat Nov 13 16:45:56 2004 UTC revision 303 by johnpye, Tue Feb 21 02:38:13 2006 UTC
# Line 572  struct Instance *CreateArrayChildInst(st Line 572  struct Instance *CreateArrayChildInst(st
572           * as relations cannot be universal by themselves.           * as relations cannot be universal by themselves.
573           */           */
574          if (GetArrayBaseIsRelation(desc)) {          if (GetArrayBaseIsRelation(desc)) {
575        return CreateRelationInstance(def,e_undefined);            return CreateRelationInstance(def,e_undefined);
576          }          }
577          /* fallthrough */          /* fallthrough */
578        case logrel_type:        case logrel_type:
579          if (GetArrayBaseIsLogRel(desc)) {          if (GetArrayBaseIsLogRel(desc)) {
580        return CreateLogRelInstance(def);            return CreateLogRelInstance(def);
581          }          }
582          /* fallthrough */          /* fallthrough */
583        case when_type:        case when_type:
584          if (GetArrayBaseIsWhen(desc)) {          if (GetArrayBaseIsWhen(desc)) {
585        return CreateWhenInstance(def);            return CreateWhenInstance(def);
586          }          }
587          /* fallthrough */          /* fallthrough */
588        default:        default:
Legend:
Removed from v.302  
changed lines
  Added in v.303
john.pye@anu.edu.au
 ViewVC Help
Powered by ViewVC 1.1.22