paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-13 12:29:14 +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;
sym2:TObjSymbol absolute item2;
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;
@ -3023,7 +3028,7 @@ implementation
if assigned(exemap) then
begin
objsym:=objreloc.symbol;
if assigned(objsym) then
if assigned(objsym) and (objsym.typ<>AT_SECTION) then
exemap.Add(' References '+objsym.name+' in '
+refobjsec.fullname)
else