瀏覽代碼

addressed compatibility with Windows XP;
rebuilt the release

git-svn-id: https://svn.inf.ethz.ch/svn/lecturers/a2/trunk@6798 8c9fc860-2736-0410-a75d-ab315db34111

eth.morozova 9 年之前
父節點
當前提交
d502560a68
共有 3 個文件被更改,包括 1 次插入1 次删除
  1. 二進制
      WinAos/A2.exe
  2. 二進制
      WinAos/obg/Objects.GofW
  3. 1 1
      source/Win32.Objects.Mod

二進制
WinAos/A2.exe


二進制
WinAos/obg/Objects.GofW


+ 1 - 1
source/Win32.Objects.Mod

@@ -1300,7 +1300,7 @@ BEGIN
 	Kernel32.SendToDebugger("Modules.root", ADDRESSOF(Modules.root));
 	
 	(* determine whether it is WOW64 environment *)
-	isWow64 := Kernel32.Wow64GetThreadContext(Kernel32.GetCurrentThread(),lpContext) # 0; 
+	isWow64 := (Kernel32.Wow64GetThreadContext # NIL) & (Kernel32.Wow64GetThreadContext(Kernel32.GetCurrentThread(),lpContext) # 0); 
 	IF isWow64 THEN
 		Trace.String("Use Wow64"); Trace.Ln;
 	END;