|
@@ -256,6 +256,9 @@ implementation
|
|
hp:=ttypeconvnode(hp).left;
|
|
hp:=ttypeconvnode(hp).left;
|
|
realdef:=hp.resultdef;
|
|
realdef:=hp.resultdef;
|
|
end;
|
|
end;
|
|
|
|
+ { could become an errordef in case of errors }
|
|
|
|
+ if realdef.typ<>orddef then
|
|
|
|
+ exit;
|
|
if is_constintnode(left) then
|
|
if is_constintnode(left) then
|
|
with torddef(realdef) do
|
|
with torddef(realdef) do
|
|
case nodetype of
|
|
case nodetype of
|