summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorJed Barber <jjbarber@y7mail.com>2016-11-08 06:58:44 +1100
committerJed Barber <jjbarber@y7mail.com>2016-11-08 06:58:44 +1100
commit2b2ed338e7b4f7372fdd74feb33476dd7b94aea5 (patch)
tree0c4b3ef37d2f2ca87456cf68affb7e87240130e2 /src
parent48cb96f4316398f8b9c2b9a580bfe5c9ca90e323 (diff)
Fixed a few errors turned up by latest GNAT
Diffstat (limited to 'src')
-rw-r--r--src/adapad.adb10
-rw-r--r--src/fltk_binding/fltk.ads4
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