diff options
author | B. Watson <yalhcru@gmail.com> | 2016-01-17 00:42:34 -0500 |
---|---|---|
committer | B. Watson <yalhcru@gmail.com> | 2016-01-17 00:42:34 -0500 |
commit | b9c1931a80c5d700ba356f9090e9a72f075377f7 (patch) | |
tree | 975acab9ea0ddb958485948ecd0b9ac9ea09fa53 /size.pl | |
parent | 24a2c856400918329e105b1f3ca2bd2ec386c9b0 (diff) | |
download | taipan-b9c1931a80c5d700ba356f9090e9a72f075377f7.tar.gz |
fix final_stats() negative finalcash and score
Diffstat (limited to 'size.pl')
-rw-r--r-- | size.pl | 4 |
1 files changed, 3 insertions, 1 deletions
@@ -1,5 +1,6 @@ #!/usr/bin/perl -w +my $code_start = oct(shift) || die "no code start addr"; my $stack_size = oct(shift) || die "no stack size"; open MAP, "<taipan.map" or die $!; @@ -12,8 +13,9 @@ while(<MAP>) { close MAP; $free = (0xbc20 - $stack_size) - $bss_end + 1; +$code_size = $bss_start - $code_start; -printf "===> code ends at \$%04x\n", ($bss_start - 1); +printf "===> code ends at \$%04x (%d, %.1fK)\n", ($bss_start - 1), $code_size, $code_size / 1024; printf "===> BSS ends at \$%04x\n", $bss_end; printf "===> stack starts at \$%04x\n", 0xbc20 - $stack_size; printf "===> free code space \$%04x (%d, %.1fK)\n", $free, $free, $free / 1024; |