From: sof <unknown>
Date: Sun, 18 May 1997 03:58:52 +0000 (+0000)
Subject: [project @ 1997-05-18 03:58:52 by sof]
X-Git-Tag: Approximately_1000_patches_recorded~693
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=b435b77395f8fd9a214a9bc7c25735c6f798896a;p=ghc-hetmet.git

[project @ 1997-05-18 03:58:52 by sof]
-t fix
---

diff --git a/ghc/runtime/main/RtsFlags.lc b/ghc/runtime/main/RtsFlags.lc
index 8c32dde..38706e6 100644
--- 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:
-		    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;
 
@@ -691,7 +686,7 @@ error = rtsTrue;
 		      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 */