[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