fixed bizzare gcc13 ada warnings and error

1 files 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);