Skip to content
Snippets Groups Projects
Commit 882e459f authored by Simon Marlow's avatar Simon Marlow
Browse files

[project @ 1999-01-14 17:15:46 by simonm]

x86: only add -fomit-frame-pointer when compiling .hc files.  It gets
in the way of debugging for normal .c files.
parent 7bac51fa
No related merge requests found
...@@ -956,8 +956,7 @@ if ( $OptLevel <= 0 ) { ...@@ -956,8 +956,7 @@ if ( $OptLevel <= 0 ) {
&add_Hsc_flags( @HsC_minusO_flags ); &add_Hsc_flags( @HsC_minusO_flags );
push(@CcBoth_flags, ($MinusO2ForC || $OptLevel == 2) ? '-O2' : '-O'); # not optional! push(@CcBoth_flags, ($MinusO2ForC || $OptLevel == 2) ? '-O2' : '-O'); # not optional!
# -O? to GCC is not optional! -O2 probably isn't worth it generally, # -O? to GCC is not optional! -O2 probably isn't worth it generally,
# but it *is* useful in compiling the garbage collectors (so said # but it *is* useful in compiling the garbage collector.
# Patrick many moons ago...).
} else { # -Ofile, then... } else { # -Ofile, then...
...@@ -1106,12 +1105,11 @@ sub setupMachOpts { ...@@ -1106,12 +1105,11 @@ sub setupMachOpts {
} elsif ($TargetPlatform =~ /^i386-/) { } elsif ($TargetPlatform =~ /^i386-/) {
# -fno-defer-pop : basically the same game as for m68k # -fno-defer-pop : basically the same game as for m68k
# #
# -fomit-frame-pointer : *must* ; because we're stealing # -fomit-frame-pointer : *must* in .hc files; because we're stealing
# the fp (%ebp) for our register maps. *All* register # the fp (%ebp) for our register maps.
# maps (in MachRegs.lh) must steal it.
unshift(@CcRegd_flags_hc, '-fno-defer-pop'); unshift(@CcRegd_flags_hc, '-fno-defer-pop');
unshift(@CcRegd_flags, '-fomit-frame-pointer'); unshift(@CcRegd_flags_hc, '-fomit-frame-pointer');
unshift(@CcRegd_flags, "-DSTOLEN_X86_REGS=$StolenX86Regs"); unshift(@CcRegd_flags, "-DSTOLEN_X86_REGS=$StolenX86Regs");
} elsif ($TargetPlatform =~ /^m68k-/) { } elsif ($TargetPlatform =~ /^m68k-/) {
...@@ -2290,7 +2288,7 @@ sub process_ghc_timings { ...@@ -2290,7 +2288,7 @@ sub process_ghc_timings {
local($tot_samples) = 0; local($tot_samples) = 0;
while (<STATS>) { while (<STATS>) {
if (! /Minor/ && /^\s*\d+\s+\d+\s+(\d+)\s+\d+\.\d+\%/ ) { if (! /Gen:\s+0/ && /^\s*\d+\s+\d+\s+(\d+)\s+\d+\.\d+/ ) {
$max_live = $1 if $max_live < $1; $max_live = $1 if $max_live < $1;
$tot_live += $1; $tot_live += $1;
$tot_samples += 1; $tot_samples += 1;
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment