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

* cs_hugeptr_normalization renamed to cs_hugeptr_arithmetic_normalization,

Browse Source 
because we're going to also introduce cs_hugeptr_comparison_normalization as
  an independent option

git-svn-id: trunk@28149 -
This commit is contained in:
nickysn 2014-07-04 13:14:06 +00:00
parent c306f48c14
commit aee568e6fc
3 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/globtype.pas
View File

@ -146,7 +146,7 @@ interface
cs_zerobasedstrings, cs_zerobasedstrings,
{ i8086 specific } { i8086 specific }
cs_force_far_calls, cs_force_far_calls,
cs_hugeptr_normalization cs_hugeptr_arithmetic_normalization
); );
tlocalswitches = set of tlocalswitch; tlocalswitches = set of tlocalswitch;

2
compiler/i8086/n8086add.pas
View File

@ -334,7 +334,7 @@ interface
internalerror(2014070301); internalerror(2014070301);
end; end;
if cs_hugeptr_normalization in current_settings.localswitches then if cs_hugeptr_arithmetic_normalization in current_settings.localswitches then
procname:=procname+'_normalized'; procname:=procname+'_normalized';
if is_hugepointer(left.resultdef) then if is_hugepointer(left.resultdef) then

2
compiler/scandir.pas
View File

@ -1579,7 +1579,7 @@ unit scandir;
Message(scan_w_hugepointernormalization_not_support); Message(scan_w_hugepointernormalization_not_support);
exit; exit;
end; end;
do_localswitch(cs_hugeptr_normalization); do_localswitch(cs_hugeptr_arithmetic_normalization);
end; end;
procedure dir_weakpackageunit; procedure dir_weakpackageunit;