fortrangoingonforty/facsimile / 3d6f981

Browse files

compiler warnings

Authored by espadonne
SHA
3d6f981b6f5af616406ddf6c14af556663f49fdf
Parents
b251bb4
Tree
5f157d6

9 changed files

StatusFile+-
M src/commands/command_handler_module.f90 2 2
M src/lsp/server_detection_module.f90 2 3
M src/syntax/syntax_highlighter_module.f90 1 0
M src/terminal/renderer_module.f90 3 3
M src/ui/command_palette_module.f90 6 6
M src/ui/diagnostics_panel_module.f90 3 3
M src/ui/lsp_server_installer_panel_module.f90 5 5
M src/ui/references_panel_module.f90 4 5
M src/workspace/file_tree_renderer_module.f90 5 5
src/commands/command_handler_module.f90modified
@@ -262,7 +262,7 @@ contains
262262
         if (is_lsp_server_installer_panel_visible(editor%lsp_installer_panel)) then
263263
             if (lsp_server_installer_panel_handle_key(editor%lsp_installer_panel, trim(key_str))) then
264264
                 call render_lsp_server_installer_panel(editor%lsp_installer_panel, &
265
-                    editor%screen_rows, editor%screen_cols)
265
+                    editor%screen_cols)
266266
                 return
267267
             end if
268268
         end if
@@ -1583,7 +1583,7 @@ contains
15831583
                 use command_palette_module, only: show_command_palette_interactive
15841584
                 character(len=:), allocatable :: cmd_id
15851585
 
1586
-                cmd_id = show_command_palette_interactive(editor%command_palette, editor%screen_rows, editor%screen_cols)
1586
+                cmd_id = show_command_palette_interactive(editor%command_palette, editor%screen_cols)
15871587
 
15881588
                 if (allocated(cmd_id) .and. len_trim(cmd_id) > 0) then
15891589
                     ! Execute the command by re-processing as a key
src/lsp/server_detection_module.f90modified
@@ -34,7 +34,7 @@ contains
3434
         allocate(servers(num_servers))
3535
 
3636
         ! Initialize all known servers
37
-        call init_known_servers(servers, num_servers)
37
+        call init_known_servers(servers)
3838
 
3939
         ! Check which are installed
4040
         do i = 1, num_servers
@@ -42,9 +42,8 @@ contains
4242
         end do
4343
     end subroutine detect_all_servers
4444
 
45
-    subroutine init_known_servers(servers, num_servers)
45
+    subroutine init_known_servers(servers)
4646
         type(detected_server_t), intent(inout) :: servers(:)
47
-        integer, intent(in) :: num_servers
4847
         integer :: i
4948
 
5049
         i = 1
src/syntax/syntax_highlighter_module.f90modified
@@ -137,6 +137,7 @@ contains
137137
         character(len=*), intent(in) :: line
138138
         type(token_t), allocatable, intent(out) :: tokens(:)
139139
         integer :: i, line_len, token_count
140
+        character :: ch
140141
 
141142
         if (.not. highlighter%enabled) then
142143
             allocate(tokens(1))
src/terminal/renderer_module.f90modified
@@ -219,7 +219,7 @@ contains
219219
                 ! Render LSP server installer panel if visible (for panes path)
220220
                 if (is_lsp_server_installer_panel_visible(editor%lsp_installer_panel)) then
221221
                     call render_lsp_server_installer_panel(editor%lsp_installer_panel, &
222
-                        editor%screen_rows, editor%screen_cols)
222
+                        editor%screen_cols)
223223
                 end if
224224
 
225225
                 ! Position cursor for panes
@@ -296,7 +296,7 @@ contains
296296
         ! Render LSP server installer panel if visible
297297
         if (is_lsp_server_installer_panel_visible(editor%lsp_installer_panel)) then
298298
             call render_lsp_server_installer_panel(editor%lsp_installer_panel, &
299
-                editor%screen_rows, editor%screen_cols)
299
+                editor%screen_cols)
300300
         end if
301301
 
302302
         ! Position cursor for panes or regular view
@@ -908,7 +908,7 @@ contains
908908
         ! Render LSP server installer panel if visible
909909
         if (is_lsp_server_installer_panel_visible(editor%lsp_installer_panel)) then
910910
             call render_lsp_server_installer_panel(editor%lsp_installer_panel, &
911
-                editor%screen_rows, editor%screen_cols)
911
+                editor%screen_cols)
912912
         end if
913913
 
914914
         ! Position cursor in editor pane (use appropriate method based on pane count)
src/ui/command_palette_module.f90modified
@@ -292,9 +292,9 @@ contains
292292
         end select
293293
     end subroutine command_palette_handle_key
294294
 
295
-    subroutine render_command_palette(palette, screen_rows, screen_cols)
295
+    subroutine render_command_palette(palette, screen_cols)
296296
         type(command_palette_t), intent(in) :: palette
297
-        integer, intent(in) :: screen_rows, screen_cols
297
+        integer, intent(in) :: screen_cols
298298
         integer :: i, visible_start, visible_end, row, start_col, start_row
299299
         integer :: content_width, display_width
300300
         character(len=256) :: line, category_tag
@@ -411,10 +411,10 @@ contains
411411
         call terminal_move_cursor(start_row + 2, start_col + 4 + palette%search_pos)
412412
     end subroutine render_command_palette
413413
 
414
-    function show_command_palette_interactive(palette, screen_rows, screen_cols) result(selected_cmd_id)
414
+    function show_command_palette_interactive(palette, screen_cols) result(selected_cmd_id)
415415
         use input_handler_module, only: get_key_input
416416
         type(command_palette_t), intent(inout) :: palette
417
-        integer, intent(in) :: screen_rows, screen_cols
417
+        integer, intent(in) :: screen_cols
418418
         character(len=:), allocatable :: selected_cmd_id
419419
         character(len=32) :: key_input
420420
         integer :: ch, status
@@ -422,7 +422,7 @@ contains
422422
         type(command_t) :: cmd
423423
 
424424
         call show_command_palette(palette)
425
-        call render_command_palette(palette, screen_rows, screen_cols)
425
+        call render_command_palette(palette, screen_cols)
426426
 
427427
         do
428428
             call get_key_input(key_input, status)
@@ -460,7 +460,7 @@ contains
460460
                 end if
461461
             end if
462462
 
463
-            call render_command_palette(palette, screen_rows, screen_cols)
463
+            call render_command_palette(palette, screen_cols)
464464
         end do
465465
     end function show_command_palette_interactive
466466
 
src/ui/diagnostics_panel_module.f90modified
@@ -250,7 +250,7 @@ contains
250250
             do while (screen_line < max_content_lines)
251251
                 screen_line = screen_line + 1
252252
                 call terminal_move_cursor(row + screen_line - 1, start_col)
253
-                call render_empty_line(start_col, panel%width)
253
+                call render_empty_line(panel%width)
254254
             end do
255255
         end block
256256
 
@@ -266,8 +266,8 @@ contains
266266
 
267267
     end subroutine render_diagnostics_panel
268268
 
269
-    subroutine render_empty_line(start_col, width)
270
-        integer, intent(in) :: start_col, width
269
+    subroutine render_empty_line(width)
270
+        integer, intent(in) :: width
271271
 
272272
         call terminal_write(char(27) // '[48;5;235m')  ! Dark background
273273
         call terminal_write(repeat(' ', width))
src/ui/lsp_server_installer_panel_module.f90modified
@@ -167,9 +167,9 @@ contains
167167
         end select
168168
     end function lsp_server_installer_panel_handle_key
169169
 
170
-    subroutine render_lsp_server_installer_panel(panel, screen_rows, screen_cols)
170
+    subroutine render_lsp_server_installer_panel(panel, screen_cols)
171171
         type(lsp_server_installer_panel_t), intent(in) :: panel
172
-        integer, intent(in) :: screen_rows, screen_cols
172
+        integer, intent(in) :: screen_cols
173173
         integer :: start_col, start_row, row, i, visible_end
174174
         integer :: content_width, visible_len, status_len, padding
175175
         character(len=:), allocatable :: border_top, border_mid, border_bottom
@@ -197,7 +197,7 @@ contains
197197
 
198198
         ! Render confirm dialog if in confirm mode
199199
         if (panel%confirm_mode) then
200
-            call render_confirm_dialog(panel, screen_rows, screen_cols)
200
+            call render_confirm_dialog(panel, screen_cols)
201201
             return
202202
         end if
203203
 
@@ -309,9 +309,9 @@ contains
309309
         call terminal_hide_cursor()
310310
     end subroutine render_lsp_server_installer_panel
311311
 
312
-    subroutine render_confirm_dialog(panel, screen_rows, screen_cols)
312
+    subroutine render_confirm_dialog(panel, screen_cols)
313313
         type(lsp_server_installer_panel_t), intent(in) :: panel
314
-        integer, intent(in) :: screen_rows, screen_cols
314
+        integer, intent(in) :: screen_cols
315315
         integer :: start_col, start_row, row, content_width
316316
         character(len=:), allocatable :: border_top, border_bottom
317317
         character(len=256) :: server_name, install_cmd
src/ui/references_panel_module.f90modified
@@ -194,8 +194,7 @@ contains
194194
 
195195
         ! Clear to end of header line
196196
         call terminal_move_cursor(row, start_col + len_trim(header))
197
-        call render_empty_line(start_col + len_trim(header), &
198
-            panel%width - len_trim(header))
197
+        call render_empty_line(panel%width - len_trim(header))
199198
 
200199
         row = row + 1
201200
 
@@ -271,7 +270,7 @@ contains
271270
             do i = row, start_row + max_visible + 1
272271
                 if (i > panel%screen_height - 1) exit
273272
                 call terminal_move_cursor(i, start_col)
274
-                call render_empty_line(start_col, panel%width)
273
+                call render_empty_line(panel%width)
275274
             end do
276275
 
277276
             ! Show scroll indicator if needed
@@ -291,8 +290,8 @@ contains
291290
         end if
292291
     end subroutine render_references_panel
293292
 
294
-    subroutine render_empty_line(start_col, width)
295
-        integer, intent(in) :: start_col, width
293
+    subroutine render_empty_line(width)
294
+        integer, intent(in) :: width
296295
         call terminal_write(char(27) // '[48;5;235m' // repeat(" ", width) // char(27) // '[0m')
297296
     end subroutine render_empty_line
298297
 
src/workspace/file_tree_renderer_module.f90modified
@@ -53,10 +53,10 @@ contains
5353
         if (associated(state%root)) then
5454
             item_idx = 0
5555
             if (hints_expanded) then
56
-                call render_tree_node(state%root, '', .true., .true., &
56
+                call render_tree_node(state%root, '', .true., &
5757
                                     state, item_idx, current_row, end_row - 4, start_col, width)
5858
             else
59
-                call render_tree_node(state%root, '', .true., .true., &
59
+                call render_tree_node(state%root, '', .true., &
6060
                                     state, item_idx, current_row, end_row - 1, start_col, width)
6161
             end if
6262
         end if
@@ -100,11 +100,11 @@ contains
100100
         end if
101101
     end subroutine render_file_tree
102102
 
103
-    recursive subroutine render_tree_node(node, prefix, is_last, is_root, &
103
+    recursive subroutine render_tree_node(node, prefix, is_root, &
104104
                                          state, item_idx, current_row, end_row, start_col, width)
105105
         type(tree_node_t), pointer, intent(in) :: node
106106
         character(len=*), intent(in) :: prefix
107
-        logical, intent(in) :: is_last, is_root
107
+        logical, intent(in) :: is_root
108108
         type(tree_state_t), intent(in) :: state
109109
         integer, intent(inout) :: item_idx, current_row
110110
         integer, intent(in) :: end_row, start_col, width
@@ -196,7 +196,7 @@ contains
196196
                 new_prefix = prefix // '  '
197197
             end if
198198
 
199
-            call render_tree_node(child, new_prefix, is_last_child, .false., &
199
+            call render_tree_node(child, new_prefix, .false., &
200200
                                 state, item_idx, current_row, end_row, start_col, width)
201201
             child => child%next_sibling
202202
             end do