dawids/lang-bootstrap
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

capital number suffixes (oops)

Browse source
This commit is contained in:
pommicket 2022-02-07 16:07:55 -05:00
parent 0752c66291
commit e21c1c39a7
1 changed files with 7 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

9
05/tokenize.b
View file

@ -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