This commit is contained in:
Araq
2014-08-13 02:53:00 +02:00
parent abc8447331
commit 32a5d4baf0
2 changed files with 16 additions and 4 deletions

View File

@@ -582,7 +582,10 @@ proc firstOrd(t: PType): BiggestInt =
of tyGenericInst, tyDistinct, tyConst, tyMutable,
tyTypeDesc, tyFieldAccessor:
result = firstOrd(lastSon(t))
else:
of tyOrdinal:
if t.len > 0: result = firstOrd(lastSon(t))
else: internalError("invalid kind for first(" & $t.kind & ')')
else:
internalError("invalid kind for first(" & $t.kind & ')')
result = 0
@@ -617,7 +620,10 @@ proc lastOrd(t: PType): BiggestInt =
tyTypeDesc, tyFieldAccessor:
result = lastOrd(lastSon(t))
of tyProxy: result = 0
else:
of tyOrdinal:
if t.len > 0: result = lastOrd(lastSon(t))
else: internalError("invalid kind for last(" & $t.kind & ')')
else:
internalError("invalid kind for last(" & $t.kind & ')')
result = 0