[Mit-cadr-cvs] r402 - branches/ggilley/emulator/usim
ggilley at common-lisp.net
ggilley at common-lisp.net
Sat Dec 8 22:34:00 UTC 2012
Author: ggilley
Date: Sat Dec 8 14:33:59 2012
New Revision: 402
Log:
make /tree remapping conditional
Modified:
branches/ggilley/emulator/usim/Files.c
branches/ggilley/emulator/usim/main.c
Modified: branches/ggilley/emulator/usim/Files.c
==============================================================================
--- branches/ggilley/emulator/usim/Files.c Fri Dec 7 22:39:07 2012 (r401)
+++ branches/ggilley/emulator/usim/Files.c Sat Dec 8 14:33:59 2012 (r402)
@@ -4159,6 +4159,7 @@
path++;
} else if (*path == '/')
{
+#if defined(OSX) || defined(linux)
size_t newlength = strlen(treeroot) + strlen(path);
if (treeroot == NULL || path[0] != '/' || tolower(path[1]) != 't' || tolower(path[2]) != 'r' ||
@@ -4171,6 +4172,9 @@
path += 6;
freewd = 1;
}
+#else // !defined(OSX) && !defined(linux)
+ wd = "";
+#endif
}
else if ((wd = cwd) == NOSTR) {
errstring = "Relative pathname when no working directory";
Modified: branches/ggilley/emulator/usim/main.c
==============================================================================
--- branches/ggilley/emulator/usim/main.c Fri Dec 7 22:39:07 2012 (r401)
+++ branches/ggilley/emulator/usim/main.c Sat Dec 8 14:33:59 2012 (r402)
@@ -142,7 +142,9 @@
fprintf(stderr, "-n run with no SDL video window\n");
fprintf(stderr, "-p <sym-name> set breakpoint in prom\n");
fprintf(stderr, "-q <number> break after hitting breakpoint n times\n");
+#if defined(OSX) || defined(linux)
fprintf(stderr, "-r map /tree to ../../lisp\n");
+#endif
fprintf(stderr, "-t turn on microcode tracing\n");
fprintf(stderr, "-T<flags> turn on tracing\n");
fprintf(stderr, " d - disk\n");
@@ -210,6 +212,7 @@
case 'q':
breakpoint_set_count(atoi(optarg));
break;
+#if defined(OSX) || defined(linux)
case 'r':
{
char *p = "../../lisp";
@@ -225,6 +228,7 @@
free(newpath);
}
break;
+#endif
case 'S':
save_state_flag = 1;
break;
More information about the mit-cadr-cvs
mailing list