|
From: Andreas R. <and...@us...> - 2002-09-05 19:33:57
|
Update of /cvsroot/squeak/squeak/platforms/win32/vm
In directory usw-pr-cvs1:/tmp/cvs-serv9951
Modified Files:
sqWin32Intel.c
Log Message:
Set CWD on start to image location
Index: sqWin32Intel.c
===================================================================
RCS file: /cvsroot/squeak/squeak/platforms/win32/vm/sqWin32Intel.c,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** sqWin32Intel.c 26 May 2002 18:52:10 -0000 1.4
--- sqWin32Intel.c 5 Sep 2002 19:33:54 -0000 1.5
***************
*** 707,710 ****
--- 707,721 ----
__try {
#endif
+ /* set the CWD to the image location */
+ if(*imageName) {
+ char path[MAX_PATH+1], *ptr;
+ strcpy(path,imageName);
+ ptr = strrchr(path, '\\');
+ if(ptr) {
+ *ptr = 0;
+ SetCurrentDirectory(path);
+ }
+ }
+
/* read the image file */
if(!imageFile) {
|