Commit 1bd1fb93 authored by Ian Lynagh's avatar Ian Lynagh
Browse files

Add unreg/tables-next-code output to +RTS --info

parent da6ac258
......@@ -132,6 +132,8 @@ RtsFlags_CC_OPTS += -DRtsWay=\"rts$(_way)\"
RtsFlags_CC_OPTS += -DHostPlatform=\"$(HOSTPLATFORM)\"
RtsFlags_CC_OPTS += -DBuildPlatform=\"$(BUILDPLATFORM)\"
RtsFlags_CC_OPTS += -DTargetPlatform=\"$(TARGETPLATFORM)\"
RtsFlags_CC_OPTS += -DGhcUnregisterised=\"$(GhcUnregisterised)\"
RtsFlags_CC_OPTS += -DGhcEnableTablesNextToCode=\"$(GhcEnableTablesNextToCode)\"
ifeq "$(way)" "mp"
SRC_HC_OPTS += -I$$PVM_ROOT/include
......
......@@ -684,12 +684,18 @@ error = rtsTrue;
}
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");
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 {
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment