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

* use the generic implementation of second_IncludeExclude in case the cpu is earlier than 386, since then it does not support BTR and BTS

Browse Source 
git-svn-id: trunk@24593 -
This commit is contained in:
nickysn 2013-05-25 14:18:55 +00:00
parent 06838be452
commit 09249b31b8
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/x86/nx86inl.pas
View File

@ -491,6 +491,14 @@ implementation
opsize,
orgsize: tcgsize;
begin
{$ifdef i8086}
{ BTS and BTR are 386+ }
if current_settings.cputype < cpu_386 then
begin
inherited;
exit;
end;
{$endif i8086}
if is_smallset(tcallparanode(left).resultdef) then
begin
opdef:=tcallparanode(left).resultdef;