Skip to content

Commit

Permalink
Fix maximum line length for X/Open free-form source-format
Browse files Browse the repository at this point in the history
In GnuCOBOL, "X/Open" actually denotes "X/Open free-form", not
traditional fixed-form X/Open.
  • Loading branch information
nberth committed Mar 12, 2024
1 parent 44be644 commit c7c2081
Showing 1 changed file with 1 addition and 1 deletion.
2 changes: 1 addition & 1 deletion src/lsp/cobol_preproc/src_format.ml
Original file line number Diff line number Diff line change
Expand Up @@ -27,7 +27,7 @@ and fixed_paging_params =
let fixed_paging = { cut_at_col = 72; alphanum_padding = Some ' ' }
let variable_paging = { fixed_paging with cut_at_col = 250 }
let xcard_paging = { fixed_paging with cut_at_col = 255 }
let xopen_paging = { fixed_paging with cut_at_col = 80 }
let xopen_paging = xcard_paging
let crt_paging = { fixed_paging with cut_at_col = 320 }
let terminal_paging = crt_paging
let cobolx_paging = { cut_at_col = 255; alphanum_padding = None }
Expand Down

0 comments on commit c7c2081

Please sign in to comment.