diff options
Diffstat (limited to 'gcc/m2/gm2-compiler/M2GenGCC.mod')
| -rw-r--r-- | gcc/m2/gm2-compiler/M2GenGCC.mod | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/gcc/m2/gm2-compiler/M2GenGCC.mod b/gcc/m2/gm2-compiler/M2GenGCC.mod index f32f7ee..caca8a3 100644 --- a/gcc/m2/gm2-compiler/M2GenGCC.mod +++ b/gcc/m2/gm2-compiler/M2GenGCC.mod @@ -392,7 +392,7 @@ BEGIN END ; scope := GetScope(scope) END ; - Assert (FALSE) + InternalError ('expecting scope to eventually reach a module or defimp symbol') ELSE (* Otherwise it is public if it were exported. *) RETURN IsExported (GetMainModule (), sym) @@ -1225,13 +1225,15 @@ BEGIN END ; IF HighField = NulSym THEN - MetaError1 ('{%EkHIGH} dimension number {%1N} for array does not exist', dim) + MetaError1 ('{%EkHIGH} dimension number {%1N} for array does not exist', dim) ; + RETURN GetCardinalZero (location) ELSE (* remainingDim := dim - accessibleDim ; --fixme-- write tests to stress this code. *) HighTree := BuildHighFromStaticArray (location, (* remainingDim, *) ArrayType) ; IF HighTree = NIL THEN - MetaError1 ('{%EkHIGH} dimension number {%1N} for array does not exist', dim) + MetaError1 ('{%EkHIGH} dimension number {%1N} for array does not exist', dim) ; + RETURN GetCardinalZero (location) END ; RETURN HighTree END |