Skip to content

Commit

Permalink
Merge SVN 3943
Browse files Browse the repository at this point in the history
  • Loading branch information
ddeclerck committed May 31, 2024
1 parent 8b04ba6 commit 526cd58
Show file tree
Hide file tree
Showing 4 changed files with 1,412 additions and 1,343 deletions.
2 changes: 2 additions & 0 deletions cobc/ChangeLog
Original file line number Diff line number Diff line change
Expand Up @@ -1272,6 +1272,8 @@

2020-07-21 Simon Sobisch <[email protected]>

* pplex.l, ppparse.y: implemented CHECKNUM/NOCHECKNUM,
preparation for SPZERO
* ppparse.y: improved error handling for broken IF/ELIF
directives by consuming as much errors as possible and
emitting a "false"
Expand Down
16 changes: 16 additions & 0 deletions cobc/pplex.l
Original file line number Diff line number Diff line change
Expand Up @@ -687,6 +687,10 @@ COBOL_WORDS_DIRECTIVE_STATE>{
"CALLFH" {
return CALLFH;
}
"CHECKNUM" |
"CHECK-NUM" {
return CHECKNUM;
}
"COMP1" |
"COMP-1" {
return COMP1;
Expand Down Expand Up @@ -716,6 +720,11 @@ COBOL_WORDS_DIRECTIVE_STATE>{
"NO-BOUND" {
return NOBOUND;
}
"NOCHECKNUM" |
"NO-CHECKNUM" |
"NO-CHECK-NUM" {
return NOCHECKNUM;
}
"NODPCINDATA" |
"NO-DPCINDATA" |
"NODPC-IN-DATA" |
Expand All @@ -731,6 +740,10 @@ COBOL_WORDS_DIRECTIVE_STATE>{
"NO-SSRANGE" {
return NOSSRANGE;
}
"NOSPZERO" |
"NO-SPZERO" {
return NOSPZERO;
}
"NOODOSLIDE" |
"NO-ODOSLIDE" {
return NOODOSLIDE;
Expand All @@ -747,6 +760,9 @@ COBOL_WORDS_DIRECTIVE_STATE>{
"SSRANGE" {
return SSRANGE;
}
"SPZERO" {
return SPZERO;
}
"SOURCEFORMAT" |
"SOURCE-FORMAT" {
return SOURCEFORMAT;
Expand Down
Loading

0 comments on commit 526cd58

Please sign in to comment.