The unified diff between revisions [ee000e20..] and [932a16dc..] is displayed below. It can also be downloaded as a raw diff.

#
#
# patch "src/cairo.adb"
#  from [1e600d15e884650d5d271693762875246bce6f01]
#    to [ba9b205dd16a29b21edef7656179b8ab10d27cde]
#
============================================================
--- src/cairo.adb	1e600d15e884650d5d271693762875246bce6f01
+++ src/cairo.adb	ba9b205dd16a29b21edef7656179b8ab10d27cde
@@ -71,7 +71,7 @@ package body Cairo is
       pragma Import (C, C_Get_Dash, "cairo_get_dash");

       Count : constant Integer := Integer (Get_Dash_Count (Cr));
-      G     : access Gdouble;
+      G     : aliased Gdouble;
    begin
       if Count = 0 then
          Offset := 0.0;
@@ -81,13 +81,8 @@ package body Cairo is

       Dashes := new Dash_Array (1 .. Count);

-      C_Get_Dash (Cr, Dashes (Dashes'First)'Address, G);
-
-      if G = null then
-         Offset := 0.0;
-      else
-         Offset := G.all;
-      end if;
+      C_Get_Dash (Cr, Dashes (Dashes'First)'Address, G'Access);
+      Offset := G;
    end Get_Dash;

 end Cairo;