*** empty log message ***
authorClaus Gittinger <cg@exept.de>
Thu, 18 Aug 2016 15:48:36 +0200
changeset 20283 6054b4897eed
parent 20282 23cc4511778b
child 20284 d18a4fe6b86a
*** empty log message ***
Win32OperatingSystem.st
--- a/Win32OperatingSystem.st	Thu Aug 18 15:44:12 2016 +0200
+++ b/Win32OperatingSystem.st	Thu Aug 18 15:48:36 2016 +0200
@@ -7713,7 +7713,7 @@
     extern void *__getHInstance();
 
     RETURN (__MKEXTERNALADDRESS(__getHInstance()));
-%}
+%}.
 
     "
      Win32OperatingSystem hInstance
@@ -7953,7 +7953,7 @@
 	RETURN(handle);
     }
     badArg: ;
-%}
+%}.
     "/ <apicall: handle "CreateMutexA" (lpstr bool lpstr) module: "kernel32.dll" >
     ^ self primitiveFailed
 
@@ -7990,7 +7990,7 @@
 	RETURN(handle);
     }
     badArg: ;
-%}
+%}.
     "/ <apicall: handle "OpenMutexA" (lpstr bool lpstr) module: "kernel32.dll" >
     ^ self primitiveFailed
 
@@ -8009,7 +8009,7 @@
 	_ret = ReleaseMutex(_handle);
 	RETURN(_ret == 0 ? false : true);
     }
-%}
+%}.
     "/ <apicall: bool "ReleaseMutex" (handle) module: "kernel32.dll" >
     ^ self primitiveFailed
 
@@ -8033,7 +8033,7 @@
 	    RETURN( __mkSmallInteger(_ret));
 	}
     }
-%}
+%}.
     "/ <apicall: dword "WaitForSingleObject" (handle dword) module: "kernel32.dll" >
     ^ self primitiveFailed
 
@@ -8274,8 +8274,7 @@
     RETURN (ret);
 
 badArgument:;
-%}
-.
+%}.
     ^ nil
 
     "
@@ -8752,12 +8751,12 @@
 getNumberOfProcessors
     "answer the number of physical processors in the system"
 
-    %{
+%{
 	SYSTEM_INFO sInfo;
 	GetSystemInfo(&sInfo);
 
 	return __mkSmallInteger(sInfo.dwNumberOfProcessors);
-    %}.
+%}.
 
     "
 	self getNumberOfProcessors
@@ -8773,7 +8772,7 @@
 
     pid = GetCurrentProcessId() & 0x3FFFFFFF;
     RETURN ( __mkSmallInteger(pid) );
-%}
+%}.
     "
      OperatingSystem getProcessId
     "
@@ -9168,7 +9167,7 @@
 
     pid = GetCurrentThreadId() & 0x3FFFFFFF;
     RETURN ( __mkSmallInteger(pid) );
-%}
+%}.
     "
      OperatingSystem getThreadId
     "