[Squeak-Commits] squeak/platforms/win32/vm sqWin32Intel.c,1.4,1.5

[Andreas R. <and...@us...>]

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) {