compiler warnings
- SHA
3d6f981b6f5af616406ddf6c14af556663f49fdf- Parents
-
b251bb4 - Tree
5f157d6
3d6f981
3d6f981b6f5af616406ddf6c14af556663f49fdfb251bb4
5f157d6src/commands/command_handler_module.f90modified@@ -262,7 +262,7 @@ contains | ||
| 262 | 262 | if (is_lsp_server_installer_panel_visible(editor%lsp_installer_panel)) then |
| 263 | 263 | if (lsp_server_installer_panel_handle_key(editor%lsp_installer_panel, trim(key_str))) then |
| 264 | 264 | call render_lsp_server_installer_panel(editor%lsp_installer_panel, & |
| 265 | - editor%screen_rows, editor%screen_cols) | |
| 265 | + editor%screen_cols) | |
| 266 | 266 | return |
| 267 | 267 | end if |
| 268 | 268 | end if |
@@ -1583,7 +1583,7 @@ contains | ||
| 1583 | 1583 | use command_palette_module, only: show_command_palette_interactive |
| 1584 | 1584 | character(len=:), allocatable :: cmd_id |
| 1585 | 1585 | |
| 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) | |
| 1587 | 1587 | |
| 1588 | 1588 | if (allocated(cmd_id) .and. len_trim(cmd_id) > 0) then |
| 1589 | 1589 | ! Execute the command by re-processing as a key |
src/lsp/server_detection_module.f90modified@@ -34,7 +34,7 @@ contains | ||
| 34 | 34 | allocate(servers(num_servers)) |
| 35 | 35 | |
| 36 | 36 | ! Initialize all known servers |
| 37 | - call init_known_servers(servers, num_servers) | |
| 37 | + call init_known_servers(servers) | |
| 38 | 38 | |
| 39 | 39 | ! Check which are installed |
| 40 | 40 | do i = 1, num_servers |
@@ -42,9 +42,8 @@ contains | ||
| 42 | 42 | end do |
| 43 | 43 | end subroutine detect_all_servers |
| 44 | 44 | |
| 45 | - subroutine init_known_servers(servers, num_servers) | |
| 45 | + subroutine init_known_servers(servers) | |
| 46 | 46 | type(detected_server_t), intent(inout) :: servers(:) |
| 47 | - integer, intent(in) :: num_servers | |
| 48 | 47 | integer :: i |
| 49 | 48 | |
| 50 | 49 | i = 1 |
src/syntax/syntax_highlighter_module.f90modified@@ -137,6 +137,7 @@ contains | ||
| 137 | 137 | character(len=*), intent(in) :: line |
| 138 | 138 | type(token_t), allocatable, intent(out) :: tokens(:) |
| 139 | 139 | integer :: i, line_len, token_count |
| 140 | + character :: ch | |
| 140 | 141 | |
| 141 | 142 | if (.not. highlighter%enabled) then |
| 142 | 143 | allocate(tokens(1)) |
src/terminal/renderer_module.f90modified@@ -219,7 +219,7 @@ contains | ||
| 219 | 219 | ! Render LSP server installer panel if visible (for panes path) |
| 220 | 220 | if (is_lsp_server_installer_panel_visible(editor%lsp_installer_panel)) then |
| 221 | 221 | call render_lsp_server_installer_panel(editor%lsp_installer_panel, & |
| 222 | - editor%screen_rows, editor%screen_cols) | |
| 222 | + editor%screen_cols) | |
| 223 | 223 | end if |
| 224 | 224 | |
| 225 | 225 | ! Position cursor for panes |
@@ -296,7 +296,7 @@ contains | ||
| 296 | 296 | ! Render LSP server installer panel if visible |
| 297 | 297 | if (is_lsp_server_installer_panel_visible(editor%lsp_installer_panel)) then |
| 298 | 298 | call render_lsp_server_installer_panel(editor%lsp_installer_panel, & |
| 299 | - editor%screen_rows, editor%screen_cols) | |
| 299 | + editor%screen_cols) | |
| 300 | 300 | end if |
| 301 | 301 | |
| 302 | 302 | ! Position cursor for panes or regular view |
@@ -908,7 +908,7 @@ contains | ||
| 908 | 908 | ! Render LSP server installer panel if visible |
| 909 | 909 | if (is_lsp_server_installer_panel_visible(editor%lsp_installer_panel)) then |
| 910 | 910 | call render_lsp_server_installer_panel(editor%lsp_installer_panel, & |
| 911 | - editor%screen_rows, editor%screen_cols) | |
| 911 | + editor%screen_cols) | |
| 912 | 912 | end if |
| 913 | 913 | |
| 914 | 914 | ! Position cursor in editor pane (use appropriate method based on pane count) |
src/ui/command_palette_module.f90modified@@ -292,9 +292,9 @@ contains | ||
| 292 | 292 | end select |
| 293 | 293 | end subroutine command_palette_handle_key |
| 294 | 294 | |
| 295 | - subroutine render_command_palette(palette, screen_rows, screen_cols) | |
| 295 | + subroutine render_command_palette(palette, screen_cols) | |
| 296 | 296 | type(command_palette_t), intent(in) :: palette |
| 297 | - integer, intent(in) :: screen_rows, screen_cols | |
| 297 | + integer, intent(in) :: screen_cols | |
| 298 | 298 | integer :: i, visible_start, visible_end, row, start_col, start_row |
| 299 | 299 | integer :: content_width, display_width |
| 300 | 300 | character(len=256) :: line, category_tag |
@@ -411,10 +411,10 @@ contains | ||
| 411 | 411 | call terminal_move_cursor(start_row + 2, start_col + 4 + palette%search_pos) |
| 412 | 412 | end subroutine render_command_palette |
| 413 | 413 | |
| 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) | |
| 415 | 415 | use input_handler_module, only: get_key_input |
| 416 | 416 | type(command_palette_t), intent(inout) :: palette |
| 417 | - integer, intent(in) :: screen_rows, screen_cols | |
| 417 | + integer, intent(in) :: screen_cols | |
| 418 | 418 | character(len=:), allocatable :: selected_cmd_id |
| 419 | 419 | character(len=32) :: key_input |
| 420 | 420 | integer :: ch, status |
@@ -422,7 +422,7 @@ contains | ||
| 422 | 422 | type(command_t) :: cmd |
| 423 | 423 | |
| 424 | 424 | call show_command_palette(palette) |
| 425 | - call render_command_palette(palette, screen_rows, screen_cols) | |
| 425 | + call render_command_palette(palette, screen_cols) | |
| 426 | 426 | |
| 427 | 427 | do |
| 428 | 428 | call get_key_input(key_input, status) |
@@ -460,7 +460,7 @@ contains | ||
| 460 | 460 | end if |
| 461 | 461 | end if |
| 462 | 462 | |
| 463 | - call render_command_palette(palette, screen_rows, screen_cols) | |
| 463 | + call render_command_palette(palette, screen_cols) | |
| 464 | 464 | end do |
| 465 | 465 | end function show_command_palette_interactive |
| 466 | 466 | |
src/ui/diagnostics_panel_module.f90modified@@ -250,7 +250,7 @@ contains | ||
| 250 | 250 | do while (screen_line < max_content_lines) |
| 251 | 251 | screen_line = screen_line + 1 |
| 252 | 252 | 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) | |
| 254 | 254 | end do |
| 255 | 255 | end block |
| 256 | 256 | |
@@ -266,8 +266,8 @@ contains | ||
| 266 | 266 | |
| 267 | 267 | end subroutine render_diagnostics_panel |
| 268 | 268 | |
| 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 | |
| 271 | 271 | |
| 272 | 272 | call terminal_write(char(27) // '[48;5;235m') ! Dark background |
| 273 | 273 | call terminal_write(repeat(' ', width)) |
src/ui/lsp_server_installer_panel_module.f90modified@@ -167,9 +167,9 @@ contains | ||
| 167 | 167 | end select |
| 168 | 168 | end function lsp_server_installer_panel_handle_key |
| 169 | 169 | |
| 170 | - subroutine render_lsp_server_installer_panel(panel, screen_rows, screen_cols) | |
| 170 | + subroutine render_lsp_server_installer_panel(panel, screen_cols) | |
| 171 | 171 | type(lsp_server_installer_panel_t), intent(in) :: panel |
| 172 | - integer, intent(in) :: screen_rows, screen_cols | |
| 172 | + integer, intent(in) :: screen_cols | |
| 173 | 173 | integer :: start_col, start_row, row, i, visible_end |
| 174 | 174 | integer :: content_width, visible_len, status_len, padding |
| 175 | 175 | character(len=:), allocatable :: border_top, border_mid, border_bottom |
@@ -197,7 +197,7 @@ contains | ||
| 197 | 197 | |
| 198 | 198 | ! Render confirm dialog if in confirm mode |
| 199 | 199 | if (panel%confirm_mode) then |
| 200 | - call render_confirm_dialog(panel, screen_rows, screen_cols) | |
| 200 | + call render_confirm_dialog(panel, screen_cols) | |
| 201 | 201 | return |
| 202 | 202 | end if |
| 203 | 203 | |
@@ -309,9 +309,9 @@ contains | ||
| 309 | 309 | call terminal_hide_cursor() |
| 310 | 310 | end subroutine render_lsp_server_installer_panel |
| 311 | 311 | |
| 312 | - subroutine render_confirm_dialog(panel, screen_rows, screen_cols) | |
| 312 | + subroutine render_confirm_dialog(panel, screen_cols) | |
| 313 | 313 | type(lsp_server_installer_panel_t), intent(in) :: panel |
| 314 | - integer, intent(in) :: screen_rows, screen_cols | |
| 314 | + integer, intent(in) :: screen_cols | |
| 315 | 315 | integer :: start_col, start_row, row, content_width |
| 316 | 316 | character(len=:), allocatable :: border_top, border_bottom |
| 317 | 317 | character(len=256) :: server_name, install_cmd |
src/ui/references_panel_module.f90modified@@ -194,8 +194,7 @@ contains | ||
| 194 | 194 | |
| 195 | 195 | ! Clear to end of header line |
| 196 | 196 | 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)) | |
| 199 | 198 | |
| 200 | 199 | row = row + 1 |
| 201 | 200 | |
@@ -271,7 +270,7 @@ contains | ||
| 271 | 270 | do i = row, start_row + max_visible + 1 |
| 272 | 271 | if (i > panel%screen_height - 1) exit |
| 273 | 272 | call terminal_move_cursor(i, start_col) |
| 274 | - call render_empty_line(start_col, panel%width) | |
| 273 | + call render_empty_line(panel%width) | |
| 275 | 274 | end do |
| 276 | 275 | |
| 277 | 276 | ! Show scroll indicator if needed |
@@ -291,8 +290,8 @@ contains | ||
| 291 | 290 | end if |
| 292 | 291 | end subroutine render_references_panel |
| 293 | 292 | |
| 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 | |
| 296 | 295 | call terminal_write(char(27) // '[48;5;235m' // repeat(" ", width) // char(27) // '[0m') |
| 297 | 296 | end subroutine render_empty_line |
| 298 | 297 | |
src/workspace/file_tree_renderer_module.f90modified@@ -53,10 +53,10 @@ contains | ||
| 53 | 53 | if (associated(state%root)) then |
| 54 | 54 | item_idx = 0 |
| 55 | 55 | if (hints_expanded) then |
| 56 | - call render_tree_node(state%root, '', .true., .true., & | |
| 56 | + call render_tree_node(state%root, '', .true., & | |
| 57 | 57 | state, item_idx, current_row, end_row - 4, start_col, width) |
| 58 | 58 | else |
| 59 | - call render_tree_node(state%root, '', .true., .true., & | |
| 59 | + call render_tree_node(state%root, '', .true., & | |
| 60 | 60 | state, item_idx, current_row, end_row - 1, start_col, width) |
| 61 | 61 | end if |
| 62 | 62 | end if |
@@ -100,11 +100,11 @@ contains | ||
| 100 | 100 | end if |
| 101 | 101 | end subroutine render_file_tree |
| 102 | 102 | |
| 103 | - recursive subroutine render_tree_node(node, prefix, is_last, is_root, & | |
| 103 | + recursive subroutine render_tree_node(node, prefix, is_root, & | |
| 104 | 104 | state, item_idx, current_row, end_row, start_col, width) |
| 105 | 105 | type(tree_node_t), pointer, intent(in) :: node |
| 106 | 106 | character(len=*), intent(in) :: prefix |
| 107 | - logical, intent(in) :: is_last, is_root | |
| 107 | + logical, intent(in) :: is_root | |
| 108 | 108 | type(tree_state_t), intent(in) :: state |
| 109 | 109 | integer, intent(inout) :: item_idx, current_row |
| 110 | 110 | integer, intent(in) :: end_row, start_col, width |
@@ -196,7 +196,7 @@ contains | ||
| 196 | 196 | new_prefix = prefix // ' ' |
| 197 | 197 | end if |
| 198 | 198 | |
| 199 | - call render_tree_node(child, new_prefix, is_last_child, .false., & | |
| 199 | + call render_tree_node(child, new_prefix, .false., & | |
| 200 | 200 | state, item_idx, current_row, end_row, start_col, width) |
| 201 | 201 | child => child%next_sibling |
| 202 | 202 | end do |