paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-20 21:29:43 +02:00
Code Issues Packages Projects Releases Wiki Activity

Avoid warning on non-i386 CPUs

Browse Source 
git-svn-id: trunk@19594 -
This commit is contained in:
pierre 2011-11-03 16:38:28 +00:00
parent 0eb0415194
commit c86e36a53b
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/gdbint/src/gdbint.pp
View File

@ -2658,6 +2658,8 @@ function MaskAllFPUExceptions(control : TFPUState) : TFPUState;
begin begin
{$ifdef cpui386} {$ifdef cpui386}
MaskAllFPUExceptions := control or MaskAllExceptions; MaskAllFPUExceptions := control or MaskAllExceptions;
{$else}
MaskAllFPUExceptions:=0;
{$endif} {$endif}
end; end;