git-svn-id: https://svn.inf.ethz.ch/svn/lecturers/a2/trunk@8653 8c9fc860-2736-0410-a75d-ab315db34111
@@ -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. *)
@@ -309,7 +309,8 @@ TYPE