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

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. *)

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. *)