projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
39cc7f6
)
[project @ 1997-05-18 03:58:52 by sof]
author
sof
<unknown>
Sun, 18 May 1997 03:58:52 +0000
(
03:58
+0000)
committer
sof
<unknown>
Sun, 18 May 1997 03:58:52 +0000
(
03:58
+0000)
-t fix
ghc/runtime/main/RtsFlags.lc
patch
|
blob
|
history
diff --git
a/ghc/runtime/main/RtsFlags.lc
b/ghc/runtime/main/RtsFlags.lc
index
8c32dde
..
38706e6
100644
(file)
--- a/
ghc/runtime/main/RtsFlags.lc
+++ b/
ghc/runtime/main/RtsFlags.lc
@@
-557,13
+557,8
@@
error = rtsTrue;
RTSflags.CcFlags.sortBy = rts_argv[arg][2];
break;
default:
RTSflags.CcFlags.sortBy = rts_argv[arg][2];
break;
default:
- PAR_BUILD_ONLY(
- break; /* we do not care about sortBy for parallel */
- )
- PROFILING_BUILD_ONLY(
- fprintf(stderr, "Invalid profiling sort option %s\n", rts_argv[arg]);
- error = rtsTrue;
- )
+ RTSflags.CcFlags.sortBy = SORTCC_TIME;
+ break;
}
) break;
}
) break;
@@
-691,7
+686,7
@@
error = rtsTrue;
case 'd': /* closure descr select */
RTSflags.ProfFlags.descrSelector = left + 1;
break;
case 'd': /* closure descr select */
RTSflags.ProfFlags.descrSelector = left + 1;
break;
- case 't': /* closure type select */
+ case 'y': /* closure type select */
RTSflags.ProfFlags.typeSelector = left + 1;
break;
case 'k': /* closure kind select */
RTSflags.ProfFlags.typeSelector = left + 1;
break;
case 'k': /* closure kind select */