diff options
| author | Jed Barber <jjbarber@y7mail.com> | 2016-11-08 06:58:44 +1100 |
|---|---|---|
| committer | Jed Barber <jjbarber@y7mail.com> | 2016-11-08 06:58:44 +1100 |
| commit | 2b2ed338e7b4f7372fdd74feb33476dd7b94aea5 (patch) | |
| tree | 0c4b3ef37d2f2ca87456cf68affb7e87240130e2 /src | |
| parent | 48cb96f4316398f8b9c2b9a580bfe5c9ca90e323 (diff) | |
Fixed a few errors turned up by latest GNAT
Diffstat (limited to 'src')
| -rw-r--r-- | src/adapad.adb | 10 | ||||
| -rw-r--r-- | src/fltk_binding/fltk.ads | 4 |
2 files changed, 6 insertions, 8 deletions
diff --git a/src/adapad.adb b/src/adapad.adb index 8f1196b..079fad3 100644 --- a/src/adapad.adb +++ b/src/adapad.adb @@ -16,8 +16,6 @@ use FLTK.Widgets.Groups.Windows; with Ada.Strings.Unbounded; use Ada.Strings.Unbounded; -with Ada.Text_IO; - function Adapad return Integer is @@ -473,10 +471,10 @@ begin end; - Find.Set_Find_Callback (Do_Find_CB'Access); - Replace.Set_Replace_Callback (Do_Replace_CB'Access); - Buffer.Add_Modify_Callback (Mod_CB'Access); - Editor.Set_Callback (Quit_CB'Access); + Find.Set_Find_Callback (Do_Find_CB'Unchecked_Access); + Replace.Set_Replace_Callback (Do_Replace_CB'Unchecked_Access); + Buffer.Add_Modify_Callback (Mod_CB'Unchecked_Access); + Editor.Set_Callback (Quit_CB'Unchecked_Access); Editor.Set_Buffer (Buffer); diff --git a/src/fltk_binding/fltk.ads b/src/fltk_binding/fltk.ads index fab93e0..490050d 100644 --- a/src/fltk_binding/fltk.ads +++ b/src/fltk_binding/fltk.ads @@ -28,8 +28,8 @@ private type Wrapper is abstract new Ada.Finalization.Limited_Controlled with record Void_Ptr : System.Address; - end record - with Type_Invariant => Has_Valid_Ptr (Wrapper); + end record; + -- with Type_Invariant => Has_Valid_Ptr (Wrapper); -- unsure if the above invariant is doing what I'm after -- oh well, something to work on |