The unified diff between revisions [3ea76801..] and [b129692a..] is displayed below. It can also be downloaded as a raw diff.

#
#
# patch "src/cairo.adb"
#  from [5b7ae4b3f236c832e4aa44c02bde974f4d9098a3]
#    to [8857b50b05b6aa7d43efc7014a20f81e710c40b9]
#
============================================================
--- src/cairo.adb	5b7ae4b3f236c832e4aa44c02bde974f4d9098a3
+++ src/cairo.adb	8857b50b05b6aa7d43efc7014a20f81e710c40b9
@@ -43,8 +43,14 @@ package body Cairo is
          Num_Dashes : Gint;
          Offset     : Gdouble);
       pragma Import (C, C_Set_Dash, "cairo_set_dash");
+
+      Len : constant Natural := Dashes'Length;
    begin
-      C_Set_Dash (Cr, Dashes (Dashes'First)'Address, Dashes'Length, Offset);
+      if Len = 0 then
+         C_Set_Dash (Cr, System.Null_Address, 0, Offset);
+      else
+         C_Set_Dash (Cr, Dashes (Dashes'First)'Address, Dashes'Length, Offset);
+      end if;
    end Set_Dash;

 end Cairo;