Changeset 187 for trunk/Packages/Common/UGeometry.pas

Timestamp:

Feb 17, 2018, 11:39:36 PM (7 years ago)

Author:

chronos

Message:

• Added: TGPoint multiply operator to avoid FPC internal error.

File:

• trunk/Packages/Common/UGeometry.pas (modified) (2 diffs)

trunk/Packages/Common/UGeometry.pas

@@ -23 +23 @@
     class operator LessThanOrEqual(const A, B: TGPoint<T>): Boolean;
     class operator Equal(const A, B: TGPoint<T>): Boolean;
+    class operator Multiply(const A, B: TGPoint<T>): TGPoint<T>;
     function Min(const A, B: TGPoint<T>): TGPoint<T>;
     function Max(const A, B: TGPoint<T>): TGPoint<T>;
@@ -417 +418 @@
 end;
 
+class operator TGPoint<T>.Multiply(const A, B: TGPoint<T>): TGPoint<T>;
+begin
+  Result.X := A.X * B.X;
+  Result.Y := A.Y * B.Y;
+end;
+
 class operator TGPoint<T>.GreaterThan(const A, B: TGPoint<T>): Boolean;
 begin