paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-07-30 11:26:45 +02:00
Code Issues Packages Projects Releases Wiki Activity

* disabled ARM-specific code for smallset in-operations on big endian targets,

Browse Source 
as it's also little endian-specific (mantis #28592)

git-svn-id: trunk@31466 -
This commit is contained in:
Jonas Maebe 2015-08-31 13:06:42 +00:00
parent a687cc1469
commit f374b81c12
1 changed files with 11 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
compiler/arm/narmset.pas
View File

@ -51,7 +51,7 @@ interface
implementation
uses
verbose,globals,constexp,defutil,
verbose,globals,constexp,defutil,systems,
aasmbase,aasmtai,aasmdata,aasmcpu,
cpubase,cpuinfo,
cgutils,cgobj,ncgutil,
@ -72,7 +72,8 @@ implementation
if not(assigned(result)) then
begin
if not(checkgenjumps(setparts,numparts,use_small)) and
use_small then
use_small and
(target_info.endian=endian_little) then
expectloc:=LOC_FLAGS;
end;
end;
@ -82,6 +83,14 @@ implementation
so : tshifterop;
hregister : tregister;
begin
{ the code below needs changes for big endian targets (they start
counting from the most significant bit)
}
if target_info.endian=endian_big then
begin
inherited;
exit;
end;
location_reset(location,LOC_FLAGS,OS_NO);
location.resflags:=F_NE;
if (left.location.loc=LOC_CONSTANT) and not(GenerateThumbCode) then