fortrangoingonforty/fuss / 671e737

Browse files

resolve compilation warnings

Authored by espadonne
SHA
671e7372e3ebed8a02f64b53d401a679ef4b7f7e
Parents
a3813f4
Tree
77db77f

2 changed files

StatusFile+-
M src/display_module.f90 3 4
M src/fuss_main.f90 4 8
src/display_module.f90modified
@@ -129,13 +129,12 @@ contains
129
     end subroutine print_tree_node
129
     end subroutine print_tree_node
130
130
131
     subroutine draw_interactive_tree(tree_root, items, n_items, selected, &
131
     subroutine draw_interactive_tree(tree_root, items, n_items, selected, &
132
-                                     repo_name, branch_name, viewport_offset, visible_items, top_padding, mode, &
132
+                                     repo_name, branch_name, viewport_offset, visible_items, top_padding, mode)
133
-                                     search_buffer, search_length)
134
         type(tree_node), pointer, intent(in) :: tree_root
133
         type(tree_node), pointer, intent(in) :: tree_root
135
         integer, intent(in) :: n_items, selected
134
         integer, intent(in) :: n_items, selected
136
         type(selectable_item), intent(in) :: items(:)
135
         type(selectable_item), intent(in) :: items(:)
137
-        character(len=*), intent(in) :: repo_name, branch_name, mode, search_buffer
136
+        character(len=*), intent(in) :: repo_name, branch_name, mode
138
-        integer, intent(in) :: viewport_offset, visible_items, top_padding, search_length
137
+        integer, intent(in) :: viewport_offset, visible_items, top_padding
139
         integer :: item_idx, viewport_end, i
138
         integer :: item_idx, viewport_end, i
140
         character(len=512) :: status_line
139
         character(len=512) :: status_line
141
 
140
 
src/fuss_main.f90modified
@@ -283,16 +283,14 @@ contains
283
                 ! Full redraw needed: viewport scrolled or forced refresh
283
                 ! Full redraw needed: viewport scrolled or forced refresh
284
                 call clear_screen()
284
                 call clear_screen()
285
                 call draw_interactive_tree(tree_root, items, n_items, selected, &
285
                 call draw_interactive_tree(tree_root, items, n_items, selected, &
286
-                                           repo_name, branch_name, viewport_offset, visible_items, top_padding, mode, &
286
+                                           repo_name, branch_name, viewport_offset, visible_items, top_padding, mode)
287
-                                           search_buffer, search_length)
288
                 needs_full_redraw = .false.
287
                 needs_full_redraw = .false.
289
             else if (selected /= prev_selected) then
288
             else if (selected /= prev_selected) then
290
                 ! Only selection changed within same viewport - still need full redraw for now
289
                 ! Only selection changed within same viewport - still need full redraw for now
291
                 ! TODO: Could optimize this with partial line updates in the future
290
                 ! TODO: Could optimize this with partial line updates in the future
292
                 call clear_screen()
291
                 call clear_screen()
293
                 call draw_interactive_tree(tree_root, items, n_items, selected, &
292
                 call draw_interactive_tree(tree_root, items, n_items, selected, &
294
-                                           repo_name, branch_name, viewport_offset, visible_items, top_padding, mode, &
293
+                                           repo_name, branch_name, viewport_offset, visible_items, top_padding, mode)
295
-                                           search_buffer, search_length)
296
             end if
294
             end if
297
 
295
 
298
             ! Update tracking state
296
             ! Update tracking state
@@ -342,8 +340,7 @@ contains
342
                 call execute_command_line('stty sane < /dev/tty')
340
                 call execute_command_line('stty sane < /dev/tty')
343
                 call clear_screen()
341
                 call clear_screen()
344
                 call draw_interactive_tree(tree_root, items, n_items, selected, &
342
                 call draw_interactive_tree(tree_root, items, n_items, selected, &
345
-                                           repo_name, branch_name, viewport_offset, visible_items, top_padding, mode, &
343
+                                           repo_name, branch_name, viewport_offset, visible_items, top_padding, mode)
346
-                                           search_buffer, search_length)
347
                 ! Restore cbreak mode
344
                 ! Restore cbreak mode
348
                 call enable_raw_mode()
345
                 call enable_raw_mode()
349
                 cycle  ! Skip rest of key handling
346
                 cycle  ! Skip rest of key handling
@@ -375,8 +372,7 @@ contains
375
                     call execute_command_line('stty sane < /dev/tty')
372
                     call execute_command_line('stty sane < /dev/tty')
376
                     call clear_screen()
373
                     call clear_screen()
377
                     call draw_interactive_tree(tree_root, items, n_items, selected, &
374
                     call draw_interactive_tree(tree_root, items, n_items, selected, &
378
-                                               repo_name, branch_name, viewport_offset, visible_items, top_padding, mode, &
375
+                                               repo_name, branch_name, viewport_offset, visible_items, top_padding, mode)
379
-                                               search_buffer, search_length)
380
                     ! Restore cbreak mode
376
                     ! Restore cbreak mode
381
                     call enable_raw_mode()
377
                     call enable_raw_mode()
382
                     cycle
378
                     cycle