int64 in lowlevelunit

1 files changed, 12 insertions, 0 deletions

diff --git a/lowlevelunit.pas b/lowlevelunit.pas
index 60f9e9e..3445a13 100644
--- a/lowlevelunit.pas
+++ b/lowlevelunit.pas
@@ -9,10 +9,12 @@ uses
 
 type
   generic tArray<T> = array of T;
+  tInt64Array = specialize tArray<int64>;
   tLongintArray = specialize tArray<longint>;
   pTLongintArray = ^tLongintArray;
   tSingleArray = specialize tArray<single>;
   pTSingleArray = ^tSingleArray;
+  tInt64Point = array['x'..'y'] of int64;
   tIntPoint = array['x'..'y'] of longint;
   tExtPoint = array['x'..'y'] of extended;
   t2x2Longint = array['x'..'y','x'..'y'] of longint;
@@ -38,6 +40,7 @@ type
   tGenauigkeit = (gSingle,gDouble,gExtended);
 
 operator = (x1,x2: t2x2Extended): boolean;
+operator = (x1,x2: tInt64Point): boolean;
 operator = (x1,x2: tIntPoint): boolean;
 operator = (x1,x2: tExtPoint): boolean;
 
@@ -124,6 +127,15 @@ begin
       result:=result and (x1[c,d]=x2[c,d]);
 end;
 
+operator = (x1,x2: tInt64Point): boolean;
+var
+  c: char;
+begin
+  result:=true;
+  for c:='x' to 'y' do
+    result:=result and (x1[c]=x2[c]);
+end;
+
 operator = (x1,x2: tIntPoint): boolean;
 var
   c: char;