diff options
author | pommicket <pommicket@gmail.com> | 2022-02-07 16:07:55 -0500 |
---|---|---|
committer | pommicket <pommicket@gmail.com> | 2022-02-07 16:07:55 -0500 |
commit | e21c1c39a7fc0309c683f801b095eaa76b47000a (patch) | |
tree | e3c9a56b826476e7c96cbaca86af78687ac03fc4 | |
parent | 0752c662912437528a40f82d0fdb7452b17fe68c (diff) |
capital number suffixes (oops)
-rw-r--r-- | 05/tokenize.b | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/05/tokenize.b b/05/tokenize.b index 794232e..a2b3718 100644 --- a/05/tokenize.b +++ b/05/tokenize.b @@ -527,8 +527,8 @@ function read_c_char :escape_sequence_return *8p_in = in return c - - + + function read_number_suffix argument file argument line_number @@ -541,13 +541,17 @@ function read_number_suffix suffix = 0 if c == 0 goto number_suffix_return if c == 'u goto number_suffix_u + if c == 'U goto number_suffix_u if c == 'l goto number_suffix_l + if c == 'L goto number_suffix_l if c == 'f goto number_suffix_f + if c == 'F goto number_suffix_f goto bad_number_suffix :number_suffix_u s += 1 c = *1s if c == 'l goto number_suffix_ul + if c == 'L goto number_suffix_ul if c != 0 goto bad_number_suffix suffix = NUMBER_SUFFIX_U goto number_suffix_return @@ -555,6 +559,7 @@ function read_number_suffix s += 1 c = *1s if c == 'u goto number_suffix_ul + if c == 'U goto number_suffix_ul if c != 0 goto bad_number_suffix suffix = NUMBER_SUFFIX_L goto number_suffix_return |