diff --git a/.gitattributes b/.gitattributes index 2ddcb29bf9..3cf279e3d4 100644 --- a/.gitattributes +++ b/.gitattributes @@ -15629,6 +15629,7 @@ tests/webtbs/tw3197.pp svneol=native#text/plain tests/webtbs/tw3207.pp svneol=native#text/plain tests/webtbs/tw3210.pp svneol=native#text/plain tests/webtbs/tw32111.pp svneol=native#text/pascal +tests/webtbs/tw32118.pp svneol=native#text/pascal tests/webtbs/tw3212.pp svneol=native#text/plain tests/webtbs/tw3214.pp svneol=native#text/plain tests/webtbs/tw3216.pp svneol=native#text/plain diff --git a/compiler/defutil.pas b/compiler/defutil.pas index 7b2aa6c394..8ca8fc0598 100644 --- a/compiler/defutil.pas +++ b/compiler/defutil.pas @@ -1071,6 +1071,11 @@ implementation l:=int64(tarraydef(def).lowrange); h:=int64(tarraydef(def).highrange); end; + undefineddef: + begin + l:=torddef(sizesinttype).low; + h:=torddef(sizesinttype).high; + end; else internalerror(200611054); end; diff --git a/tests/webtbs/tw32118.pp b/tests/webtbs/tw32118.pp new file mode 100644 index 0000000000..cf681ae548 --- /dev/null +++ b/tests/webtbs/tw32118.pp @@ -0,0 +1,18 @@ +{ %NORUN } + +program tw32118; +{$MODE OBJFPC} +type + generic TTestClass = class + procedure Test; + end; + +procedure TTestClass.Test; +var + i : SomeTemplate; +begin + for i := 1 to 10 do WriteLn(i); +end; + +begin +end.