Ver Fonte

Comment cleanup.

Martijn Laan há 1 ano atrás
pai
commit
39ac77c888
1 ficheiros alterados com 5 adições e 7 exclusões
  1. 5 7
      Projects/Src/Main.pas

+ 5 - 7
Projects/Src/Main.pas

@@ -4422,17 +4422,15 @@ begin
 
 
   { Setup MachineTypesSupportedBySystem. The result should end up being:
   { Setup MachineTypesSupportedBySystem. The result should end up being:
     - 32-bit x86: [paX86]
     - 32-bit x86: [paX86]
-    - x64: [paX86, paX64]
-      (but not paX86 in a future x64 build when WOW64 isn't installed)
+    - x64: [paX86, paX64] (but not paX86 in a future x64 build when WOW64 isn't installed)
     - Itanium: [paX86, paIA64]
     - Itanium: [paX86, paIA64]
-    - Arm64 Win10: [paX86, paArm64]
-    - Arm64 Win11: [paX86, paX64, paArm64]
-    On Windows 11 we can just ask what is supported, otherwise we have to set it
-    up ourselves. }
+    - Arm64 Windows 10: [paX86, paArm64]
+    - Arm64 Windows 11: [paX86, paX64, paArm64] }
 
 
   MachineTypesSupportedBySystem := [];
   MachineTypesSupportedBySystem := [];
 
 
-  { GetMachineTypeAttributes was introduced by Windows 11 }
+  { On Windows 11 we can just ask what is supported, otherwise we have to set it
+    up ourselves }
   GetMachineTypeAttributesFunc := GetProcAddress(KernelModule, 'GetMachineTypeAttributes');
   GetMachineTypeAttributesFunc := GetProcAddress(KernelModule, 'GetMachineTypeAttributes');
   if Assigned(GetMachineTypeAttributesFunc) then begin
   if Assigned(GetMachineTypeAttributesFunc) then begin
     var MachineTypeAttributes: Integer;
     var MachineTypeAttributes: Integer;