--- 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
"