Provide missing -dpsco:x variant for Windows VM

This is documented in usage (-help) but not parsed.
OpenSmalltalk · Jan 3, 2018 · c862805 · c862805
1 parent e85a3a6
commit c862805
Showing 1 changed file with 6 additions and 2 deletions.
diff --git a/platforms/win32/vm/sqWin32Main.c b/platforms/win32/vm/sqWin32Main.c
@@ -1843,15 +1843,19 @@ parseVMArgument(int argc, char *argv[])
 		return 1; }
 	else if (argc > 1 && !strcmp(argv[0], VMOPTION("dpcso"))) {
 		extern usqIntptr_t debugPrimCallStackOffset;
-		debugPrimCallStackOffset = (usqIntptr_t) strtobkm(argv[1]);	 
+		debugPrimCallStackOffset = (usqIntptr_t) strtobkm(argv[1]);
 		return 2; }
+	else if (!strcmp(argv[0], VMOPTION("dpcso:"))) {
+		extern usqIntptr_t debugPrimCallStackOffset;
+		debugPrimCallStackOffset = strtobkm(argv[0]+strlen(VMOPTION("dpcso:")));
+		return 1; }
 	else if (argc > 1 && !strcmp(argv[0], VMOPTION("cogmaxlits"))) {
 		extern sqInt maxLiteralCountForCompile;
 		maxLiteralCountForCompile = strtobkm(argv[1]);	 
 		return 2; }
 	else if (!strncmp(argv[0], VMOPTION("cogmaxlits:"), strlen(VMOPTION("cogmaxlits:")))) {
 		extern sqInt maxLiteralCountForCompile;
-		maxLiteralCountForCompile = strtobkm(argv[0]+strlen(VMOPTION("cogmaxlits:"))); 
+		maxLiteralCountForCompile = strtobkm(argv[0]+strlen(VMOPTION("cogmaxlits:")));
 		return 1; }
 	else if (argc > 1 && !strcmp(argv[0], VMOPTION("cogminjumps"))) {
 		extern sqInt minBackwardJumpCountForCompile;