projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Comments only: explain why StgConApp is still useful
[ghc-hetmet.git]
/
rts
/
RtsFlags.c
diff --git
a/rts/RtsFlags.c
b/rts/RtsFlags.c
index
1e8654d
..
4c1f739
100644
(file)
--- a/
rts/RtsFlags.c
+++ b/
rts/RtsFlags.c
@@
-684,12
+684,18
@@
error = rtsTrue;
}
else if (strequal("info",
&rts_argv[arg][2])) {
}
else if (strequal("info",
&rts_argv[arg][2])) {
+ char *s;
printf("RTS info:\n");
printf("RTS from GHC " ProjectVersion "\n");
printf("RTS way " RtsWay "\n");
printf("Host platform " HostPlatform "\n");
printf("Build platform " BuildPlatform "\n");
printf("Target platform " TargetPlatform "\n");
printf("RTS info:\n");
printf("RTS from GHC " ProjectVersion "\n");
printf("RTS way " RtsWay "\n");
printf("Host platform " HostPlatform "\n");
printf("Build platform " BuildPlatform "\n");
printf("Target platform " TargetPlatform "\n");
+ s = strcmp(GhcUnregisterised, "YES") == 0 ? "un" : "";
+ printf("Compiler is %sregisterised\n", s);
+ s = strcmp(GhcEnableTablesNextToCode, "YES") == 0
+ ? "" : "not ";
+ printf("Tables are %snext to code\n", s);
exit(0);
}
else {
exit(0);
}
else {