Selaa lähdekoodia

improve LargeImage type with QuadPart -- Int64 fictive field

git-svn-id: https://svn.inf.ethz.ch/svn/lecturers/a2/trunk@8653 8c9fc860-2736-0410-a75d-ab315db34111
eth.metacore 6 vuotta sitten
vanhempi
commit
3a88b28e19
2 muutettua tiedostoa jossa 4 lisäystä ja 2 poistoa
  1. 2 1
      source/Coop.Windows.I386.Kernel32.Mod
  2. 2 1
      source/Windows.Kernel32.Mod

+ 2 - 1
source/Coop.Windows.I386.Kernel32.Mod

@@ -243,7 +243,8 @@ TYPE
 
 	(** A 64-bit signed integer value. *)
 	LargeInteger* = RECORD
-		LowPart*, HighPart*: LONGINT
+		LowPart*, HighPart*: LONGINT;
+		QuadPart*{ FICTIVE = 0 }: HUGEINT;
 	END;
 
 	(** A 64-bit unsigned integer value. *)

+ 2 - 1
source/Windows.Kernel32.Mod

@@ -309,7 +309,8 @@ TYPE
 
 	(** A 64-bit signed integer value. *)
 	LargeInteger* = RECORD
-		LowPart*, HighPart*: LONGINT
+		LowPart*, HighPart*: LONGINT;
+		QuadPart*{ FICTIVE = 0 }: HUGEINT;
 	END;
 
 	(** A 64-bit unsigned integer value. *)