浏览代码

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 年之前
父节点
当前提交
3a88b28e19
共有 2 个文件被更改,包括 4 次插入2 次删除
  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. *)
 	(** A 64-bit signed integer value. *)
 	LargeInteger* = RECORD
 	LargeInteger* = RECORD
-		LowPart*, HighPart*: LONGINT
+		LowPart*, HighPart*: LONGINT;
+		QuadPart*{ FICTIVE = 0 }: HUGEINT;
 	END;
 	END;
 
 
 	(** A 64-bit unsigned integer value. *)
 	(** A 64-bit unsigned integer value. *)

+ 2 - 1
source/Windows.Kernel32.Mod

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