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

* Made address comparison 64-bit safe.

Browse Source 
* Referencing a section is basically referencing its AT_SECTION symbol, fixed reporting in map file.

git-svn-id: trunk@24029 -
This commit is contained in:
sergei 2013-03-28 10:44:09 +00:00
parent 3f79e75aaa
commit 1d32b107f5
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/ogbase.pas
View File

@ -2596,7 +2596,12 @@ implementation
sym1:TObjSymbol absolute item1; sym1:TObjSymbol absolute item1;
sym2:TObjSymbol absolute item2; sym2:TObjSymbol absolute item2;
begin begin
result:=sym1.address-sym2.address; if sym1.address>sym2.address then
result:=1
else if sym1.address<sym2.address then
result:=-1
else
result:=0;
end; end;
@ -3023,7 +3028,7 @@ implementation
if assigned(exemap) then if assigned(exemap) then
begin begin
objsym:=objreloc.symbol; objsym:=objreloc.symbol;
if assigned(objsym) then if assigned(objsym) and (objsym.typ<>AT_SECTION) then
exemap.Add(' References '+objsym.name+' in ' exemap.Add(' References '+objsym.name+' in '
+refobjsec.fullname) +refobjsec.fullname)
else else