paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 18:09:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

* the prefetch bug handling is specific to x86_64

Browse Source 
git-svn-id: trunk@44936 -
This commit is contained in:
svenbarth 2020-04-21 06:05:43 +00:00
parent f3c377f8d1
commit 25c6f3a667
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/win64/seh64.inc
View File

@ -412,12 +412,14 @@ var
begin
if (rec.ExceptionFlags and EXCEPTION_UNWIND)=0 then
begin
{$ifdef CPUX86_64}
{ Athlon prefetch bug? }
if (rec.ExceptionCode=STATUS_ACCESS_VIOLATION) and is_prefetch(pointer(ContextGetIP(Context))) then
begin
result:=ExceptionContinueExecution;
exit;
end;
{$endif CPUX86_64}
PushException(rec,context,obj,True);
RtlUnwindEx(frame, @L1, @rec, nil, dispatch.ContextRecord, dispatch.HistoryTable);
end
@ -502,12 +504,14 @@ begin
else if (ControlRva>=scope^.RvaStart) and (ControlRva<scope^.RvaEnd) and
(scope^.Typ<>SCOPE_FINALLY)then
begin
{$ifdef CPUX86_64}
{ Athlon prefetch bug? }
if (rec.ExceptionCode=STATUS_ACCESS_VIOLATION) and is_prefetch(pointer(ContextGetIP(Context))) then
begin
result:=ExceptionContinueExecution;
exit;
end;
{$endif CPUX86_64}
if scope^.Typ>SCOPE_IMPLICIT then // filtering needed
begin