From 71d9741a1f4c42d955f07ba936988e600e170526 Mon Sep 17 00:00:00 2001 From: LainLayer Date: Sun, 24 Mar 2024 01:09:32 +0300 Subject: fixed bizzare gcc13 ada warnings and error --- eepers.adb | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/eepers.adb b/eepers.adb index d6f0101..ca84416 100644 --- a/eepers.adb +++ b/eepers.adb @@ -158,6 +158,11 @@ procedure Eepers is X, Y: Integer; end record; + function "="(A, B: IVector2) return Boolean is + begin + return A.X = B.X and then A.Y = B.Y; + end; + type Cell is (Cell_None, Cell_Floor, Cell_Wall, Cell_Barricade, Cell_Door, Cell_Explosion); Cell_Size : constant Vector2 := (x => 50.0, y => 50.0); @@ -190,11 +195,6 @@ procedure Eepers is return A.X < B.X and then A.Y < B.Y; end; - function "="(A, B: IVector2) return Boolean is - begin - return A.X = B.X and then A.Y = B.Y; - end; - function "+"(A, B: IVector2) return IVector2 is begin return (A.X + B.X, A.Y + B.Y); -- cgit v1.2.3