diff --git a/.gitattributes b/.gitattributes index caee5f2f95..d345bafd7b 100644 --- a/.gitattributes +++ b/.gitattributes @@ -14388,6 +14388,7 @@ tests/webtbs/tw2776.pp svneol=native#text/plain tests/webtbs/tw2778.pp svneol=native#text/plain tests/webtbs/tw2779.pp svneol=native#text/plain tests/webtbs/tw2780.pp svneol=native#text/plain +tests/webtbs/tw27811.pp svneol=native#text/plain tests/webtbs/tw2788.pp svneol=native#text/plain tests/webtbs/tw2789.pp svneol=native#text/plain tests/webtbs/tw2794.pp svneol=native#text/plain diff --git a/compiler/arm/narminl.pas b/compiler/arm/narminl.pas index 87eaba6b72..97979e17b1 100644 --- a/compiler/arm/narminl.pas +++ b/compiler/arm/narminl.pas @@ -372,7 +372,7 @@ implementation current_asmdata.CurrAsmList.concat(taicpu.op_ref(A_PLD,ref)); end; else - internalerror(200402021); + { nothing to prefetch }; end; end; end; diff --git a/compiler/ppcgen/ngppcinl.pas b/compiler/ppcgen/ngppcinl.pas index 720dfad0d1..2792d05fab 100644 --- a/compiler/ppcgen/ngppcinl.pas +++ b/compiler/ppcgen/ngppcinl.pas @@ -227,7 +227,7 @@ implementation end; end; else - internalerror(200402021); + { nothing to prefetch }; end; end; diff --git a/compiler/x86/nx86inl.pas b/compiler/x86/nx86inl.pas index 15e6bd22d0..6c2adc3bad 100644 --- a/compiler/x86/nx86inl.pas +++ b/compiler/x86/nx86inl.pas @@ -595,7 +595,7 @@ implementation current_asmdata.CurrAsmList.concat(taicpu.op_ref(A_PREFETCHNTA,S_NO,ref)); end; else - internalerror(200402021); + { nothing to prefetch }; end; end; end; diff --git a/tests/webtbs/tw27811.pp b/tests/webtbs/tw27811.pp new file mode 100644 index 0000000000..fab5c688ad --- /dev/null +++ b/tests/webtbs/tw27811.pp @@ -0,0 +1,13 @@ +{ %norun } + +{$optimization regvar on} +procedure test; +var m,n: integer; +begin + for m := 100 downto 0 do begin + prefetch (m); + end; +end; + +begin +end.