Explorar o código

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 %!s(int64=9) %!d(string=hai) anos
pai
achega
d502560a68
Modificáronse 3 ficheiros con 1 adicións e 1 borrados
  1. BIN=BIN
      WinAos/A2.exe
  2. BIN=BIN
      WinAos/obg/Objects.GofW
  3. 1 1
      source/Win32.Objects.Mod

BIN=BIN
WinAos/A2.exe


BIN=BIN
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;