lace.events: Optimise.

4-high/gel/source/gel-sprite.ads

@@ -49,6 +49,8 @@ is
    --- Containers
    --
 
+   pragma Suppress (Container_Checks);     -- Suppress expensive tamper checks.
+
    type Grid       is array (math.Index range <>,
                              math.Index range <>) of Sprite.view;
    type Grid_view  is access all Grid;