paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-03 06:07:37 +01:00
Code Issues Packages Projects Releases Wiki Activity

* remove obsolete code

Browse Source 
git-svn-id: trunk@8053 -
This commit is contained in:
tom_at_work 2007-07-14 19:18:15 +00:00
parent 4f6eb50391
commit 49b84c3116
1 changed files with 2 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/powerpc64/cgcpu.pas
View File

@ -1918,10 +1918,6 @@ end;
function tcgppc.fixref(list: TAsmList; var ref: treference): boolean; function tcgppc.fixref(list: TAsmList; var ref: treference): boolean;
{ symbol names must not be larger than this to be able to make a GOT reference out of them,
otherwise they get truncated by the compiler resulting in failing of the assembling stage }
const
MAX_GOT_SYMBOL_NAME_LENGTH_HACK = 120;
var var
tmpreg: tregister; tmpreg: tregister;
name : string; name : string;
@ -1950,12 +1946,10 @@ begin
ref.symbol := nil; ref.symbol := nil;
end; end;
{ if we have to create PIC, add the symbol to the TOC/GOT } { if we have to create PIC, add the symbol to the TOC/GOT }
{$WARNING Hack for avoiding too long manglednames enabled!!}
if (target_info.system <> system_powerpc64_darwin) and if (target_info.system <> system_powerpc64_darwin) and
(cs_create_pic in current_settings.moduleswitches) and (assigned(ref.symbol) and (cs_create_pic in current_settings.moduleswitches) and
(length(ref.symbol.name) < MAX_GOT_SYMBOL_NAME_LENGTH_HACK)) then begin (assigned(ref.symbol)) then begin
tmpreg := load_got_symbol(list, ref.symbol.name); tmpreg := load_got_symbol(list, ref.symbol.name);
if (ref.base = NR_NO) then if (ref.base = NR_NO) then
ref.base := tmpreg ref.base := tmpreg