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

* add some info for -vx

Browse Source 
git-svn-id: trunk@4389 -
This commit is contained in:
peter 2006-08-07 20:01:01 +00:00
parent ac9df7be0d
commit 80bd513997
1 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/link.pas
View File

@ -971,6 +971,8 @@ end;
function TInternalLinker.RunLinkScript(const outputname:string):boolean;
label
myexit;
var
bsssize : aint;
begin
result:=false;
@ -1016,6 +1018,13 @@ end;
{$warning TODO fixed section names}
status.codesize:=exeoutput.findexesection('.text').size;
status.datasize:=exeoutput.findexesection('.data').size;
bsssize:=exeoutput.findexesection('.bss').size;
{ Executable info }
Message1(execinfo_x_codesize,tostr(status.codesize));
Message1(execinfo_x_initdatasize,tostr(status.datasize));
Message1(execinfo_x_uninitdatasize,tostr(bsssize));
Message1(execinfo_x_stackreserve,tostr(stacksize));
myexit:
{ close map }