devel/gps: More tweaks to prepare for gcc49

GCC had a couple of "ambiguous" complaints as well as an overlapping
variable used for both in and out.  Fix these nits before gcc49 comes in.
This commit is contained in:
John Marino 2014-03-13 23:10:04 +00:00
parent 81dbe2303e
commit 45faf00bca
Notes: svn2git 2021-03-31 03:12:20 +00:00
svn path=/head/; revision=348141
2 changed files with 30 additions and 0 deletions

View file

@ -0,0 +1,11 @@
--- src_editor/src/src_editor_buffer.adb.orig 2012-09-28 15:42:43.000000000 +0000
+++ src_editor/src/src_editor_buffer.adb
@@ -5820,7 +5820,7 @@ package body Src_Editor_Buffer is
while Result
and then not Ends_Line (Iter)
- and then Is_Space (Get_Char (Iter))
+ and then Glib.Unicode.Is_Space (Gtk.Text_Iter.Get_Char (Iter))
loop
Forward_Char (Iter, Result);
Offset := Offset + 1;

View file

@ -0,0 +1,19 @@
--- src_editor/src/src_editor_view.adb.orig 2012-07-02 09:23:20.000000000 +0000
+++ src_editor/src/src_editor_view.adb
@@ -1789,6 +1789,7 @@ package body Src_Editor_View is
is
View : constant Source_View := Source_View (Widget);
Dummy_Gint : Gint;
+ Dummy2_Gint : Gint;
W, H, D : Gint;
Button_Y : Gint;
Lower, Upper : Gdouble;
@@ -1807,7 +1808,7 @@ package body Src_Editor_View is
Button_Y := Gint (Get_Y (Event));
Get_Geometry
- (Get_Window (View.Area), Dummy_Gint, Dummy_Gint, W, H, D);
+ (Get_Window (View.Area), Dummy_Gint, Dummy2_Gint, W, H, D);
Adj := Get_Vadjustment (View.Scroll);
Lower := Get_Lower (Adj);