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

* more generic definition of abi define

Browse Source 
git-svn-id: trunk@9155 -
This commit is contained in:
florian 2007-11-07 20:44:33 +00:00
parent ed75834533
commit 7a4c469eb2
1 changed files with 6 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
compiler/options.pas
View File

@ -1899,6 +1899,7 @@ procedure TOption.TargetOptions(def:boolean);
var
s : string;
i : integer;
abi : tabi;
begin
if def then
def_system_macro(target_info.shortname)
@ -1948,19 +1949,10 @@ begin
end;
end;
{ abi define }
case target_info.abi of
abi_powerpc_sysv :
if def then
def_system_macro('FPC_ABI_SYSV')
else
undef_system_macro('FPC_ABI_SYSV');
abi_powerpc_aix :
if def then
def_system_macro('FPC_ABI_AIX')
else
undef_system_macro('FPC_ABI_AIX');
end;
{ define abi }
for abi:=low(tabi) to high(tabi) do
undef_system_macro('FPC_ABI_'+upper(abi2str[abi]));
def_system_macro('FPC_ABI_'+upper(abi2str[target_info.abi]));
if (tf_winlikewidestring in target_info.flags) then
if def then
@ -2451,6 +2443,7 @@ begin
system_m68k_linux,system_arm_nds])
{$ifdef arm}
or (init_settings.fputype=fpu_soft)
or (target_info.abi=abi_eabi)
{$endif arm}
then
begin