--- a/Win32OperatingSystem.st Tue Jun 04 15:52:42 2013 +0200
+++ b/Win32OperatingSystem.st Tue Jun 04 15:59:50 2013 +0200
@@ -6933,9 +6933,11 @@
Process32First( hProcessSnap, & pe32 );
do {
+ OBJ f;
+
st_perProc = __SSEND0(@global(OSProcess), @symbol(new), 0);
-
- __SSEND1(st_perProc, @symbol(commandLine:), 0, __MKSTRING(pe32.szExeFile) );
+ f = __MKSTRING(pe32.szExeFile);
+ __SSEND1(st_perProc, @symbol(commandLine:), 0, f );
__SSEND1(st_perProc, @symbol(pid:), 0, __mkSmallInteger(pe32.th32ProcessID) );
__SSEND1(st_perProc, @symbol(parentPid:), 0, __mkSmallInteger(pe32.th32ParentProcessID) );
@@ -17133,15 +17135,15 @@
!Win32OperatingSystem class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Win32OperatingSystem.st,v 1.464 2013-05-28 12:44:56 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Win32OperatingSystem.st,v 1.465 2013-06-04 13:59:50 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libbasic/Win32OperatingSystem.st,v 1.464 2013-05-28 12:44:56 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Win32OperatingSystem.st,v 1.465 2013-06-04 13:59:50 cg Exp $'
!
version_SVN
- ^ '$Id: Win32OperatingSystem.st,v 1.464 2013-05-28 12:44:56 cg Exp $'
+ ^ '$Id: Win32OperatingSystem.st,v 1.465 2013-06-04 13:59:50 cg Exp $'
! !