belka/elna
1
0
Fork 0
Code Issues 5 Pull Requests Releases Activity

Replace _read_token with the lexer

Browse Source
This commit is contained in:
Eugen Wissner 2025-05-06 23:58:46 +02:00
parent 3bd86e6e1c
commit 40701008f0
Signed by: belka
GPG Key ID: A27FDC1E8EE902C0
3 changed files with 91 additions and 276 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

242
boot/stage1.s
View File

@ -409,11 +409,15 @@ _build_expression:
mv a0, s1 mv a0, s1
addi a1, sp, 24 addi a1, sp, 24
call _tokenize_next call _tokenize_next
sw a0, 20(sp)
call _skip_spaces /* DEBUG
call _read_token lw a0, 32(sp)
sw s1, 32(sp) lw a1, 28(sp)
sw a0, 28(sp) call _write_error
lw a0, 28(sp)
li a1, 8
call _write_error */
lw a0, 24(sp) lw a0, 24(sp)
@ -423,14 +427,15 @@ _build_expression:
li t0, TOKEN_AT li t0, TOKEN_AT
beq a0, t0, .Lbuild_expression_address beq a0, t0, .Lbuild_expression_address
lbu a0, (s1) li t0, TOKEN_INTEGER
call _is_digit beq a0, t0, .Lbuild_expression_literal
bnez a0, .Lbuild_expression_literal
lbu a0, (s1) lw a0, 32(sp)
lbu a0, (a0)
li t0, '_' li t0, '_'
beq a0, t0, .Lbuild_expression_call beq a0, t0, .Lbuild_expression_call
lw s1, 32(sp)
lw a0, 28(sp) lw a0, 28(sp)
lw a1, 36(sp) lw a1, 36(sp)
call _compile_identifier_expression call _compile_identifier_expression
@ -438,7 +443,7 @@ _build_expression:
j .Lbuild_expression_advance j .Lbuild_expression_advance
.Lbuild_expression_negate: .Lbuild_expression_negate:
addi s1, s1, 1 # Skip the -. lw s1, 20(sp) # Skip the -.
mv a0, zero mv a0, zero
call _build_expression call _build_expression
@ -446,7 +451,7 @@ _build_expression:
li a1, ASM_NEG_A0_SIZE li a1, ASM_NEG_A0_SIZE
call _write_out call _write_out
j .Lbuild_expression_advance j .Lbuild_expression_end
.Lbuild_expression_address: .Lbuild_expression_address:
lw t1, 36(sp) lw t1, 36(sp)
@ -463,10 +468,10 @@ _build_expression:
li a1, 13 li a1, 13
call _write_out call _write_out
addi s1, s1, 1 # Skip @. lw a0, 20(sp) # Skip @.
call _read_token addi a1, sp, 24
sw s1, 32(sp) call _tokenize_next
sw a0, 28(sp) mv s1, a0
lw a0, 32(sp) lw a0, 32(sp)
lw a1, 28(sp) lw a1, 28(sp)
@ -477,13 +482,16 @@ _build_expression:
li a0, '\n' li a0, '\n'
call _put_char call _put_char
j .Lbuild_expression_advance j .Lbuild_expression_end
.Lbuild_expression_call: .Lbuild_expression_call:
lw a0, 20(sp)
addi a1, sp, 8
call _tokenize_next
mv s1, a0
lw a0, 32(sp) lw a0, 32(sp)
lw a1, 28(sp) lw a1, 28(sp)
add s1, s1, a1
addi s1, s1, 1
call _compile_call call _compile_call
j .Lbuild_expression_end j .Lbuild_expression_end
@ -509,8 +517,7 @@ _build_expression:
j .Lbuild_expression_advance j .Lbuild_expression_advance
.Lbuild_expression_advance: .Lbuild_expression_advance:
lw a0, 28(sp) lw s1, 20(sp)
add s1, s1, a0
.Lbuild_expression_end: .Lbuild_expression_end:
# Epilogue. # Epilogue.
@ -747,102 +754,6 @@ _compile_call:
addi sp, sp, 32 addi sp, sp, 32
ret ret
# Reads a token and returns its length in a0.
# _read_token doesn't change s1, it finds the length of the token s1 is pointing to.
.type _read_token, @function
_read_token:
# Prologue.
addi sp, sp, -16
sw ra, 12(sp)
sw s0, 8(sp)
addi s0, sp, 16
lbu t0, (s1) # t0 = Current character.
sw zero, 4(sp)
li t1, '.'
beq t0, t1, .Ltoken_character_single
li t1, ','
beq t0, t1, .Ltoken_character_single
li t1, ':'
beq t0, t1, .Ltoken_character_colon
li t1, ';'
beq t0, t1, .Ltoken_character_single
li t1, '('
beq t0, t1, .Ltoken_character_single
li t1, ')'
beq t0, t1, .Ltoken_character_single
li t1, '['
beq t0, t1, .Ltoken_character_single
li t1, ']'
beq t0, t1, .Ltoken_character_single
li t1, '^'
beq t0, t1, .Ltoken_character_single
li t1, '&'
beq t0, t1, .Ltoken_character_single
li t1, '='
beq t0, t1, .Ltoken_character_single
li t1, '+'
beq t0, t1, .Ltoken_character_single
li t1, '-'
beq t0, t1, .Ltoken_character_single
li t1, '*'
beq t0, t1, .Ltoken_character_single
li t1, '@'
beq t0, t1, .Ltoken_character_single
# Expect an identifier or a number.
.Ltoken_character_loop_do:
lw t6, 4(sp)
add t1, s1, t6
lbu a0, (t1) # a0 = Current character.
call _is_alnum
beqz a0, .Ltoken_character_end
lw t6, 4(sp)
addi t6, t6, 1
sw t6, 4(sp)
j .Ltoken_character_loop_do
.Ltoken_character_single:
lw t6, 4(sp)
addi t6, t6, 1
sw t6, 4(sp)
j .Ltoken_character_end
.Ltoken_character_colon:
lbu t0, 1(s1) # t0 = The character after the colon.
lw t6, 4(sp)
addi t6, t6, 1
sw t6, 4(sp)
li t1, '='
beq t0, t1, .Ltoken_character_single
j .Ltoken_character_end
.Ltoken_character_end:
lw a0, 4(sp)
# Epilogue.
lw ra, 12(sp)
lw s0, 8(sp)
addi sp, sp, 16
ret
# Skips the spaces till the next non space character. # Skips the spaces till the next non space character.
.type _skip_spaces, @function .type _skip_spaces, @function
_skip_spaces: _skip_spaces:
@ -911,15 +822,14 @@ _skip_comment:
addi sp, sp, 16 addi sp, sp, 16
ret ret
# Parameters: # Walks through the procedure definitions.
# a0 - Line length.
.type _compile_procedure_section, @function .type _compile_procedure_section, @function
_compile_procedure_section: _compile_procedure_section:
# Prologue. # Prologue.
addi sp, sp, -24 addi sp, sp, -32
sw ra, 20(sp) sw ra, 28(sp)
sw s0, 16(sp) sw s0, 24(sp)
addi s0, sp, 24 addi s0, sp, 32
.Lcompile_procedure_section_loop: .Lcompile_procedure_section_loop:
call _skip_spaces call _skip_spaces
@ -938,9 +848,9 @@ _compile_procedure_section:
.Lcompile_procedure_section_end: .Lcompile_procedure_section_end:
# Epilogue. # Epilogue.
lw ra, 20(sp) lw ra, 28(sp)
lw s0, 16(sp) lw s0, 24(sp)
addi sp, sp, 24 addi sp, sp, 32
ret ret
.type _compile_module_declaration, @function .type _compile_module_declaration, @function
@ -970,10 +880,10 @@ _compile_module_declaration:
.type _compile_constant_section, @function .type _compile_constant_section, @function
_compile_constant_section: _compile_constant_section:
# Prologue. # Prologue.
addi sp, sp, -24 addi sp, sp, -32
sw ra, 20(sp) sw ra, 28(sp)
sw s0, 16(sp) sw s0, 24(sp)
addi s0, sp, 24 addi s0, sp, 32
mv a0, s1 mv a0, s1
addi a1, sp, 4 addi a1, sp, 4
@ -988,19 +898,24 @@ _compile_constant_section:
call _write_out call _write_out
.Lcompile_constant_section_item: .Lcompile_constant_section_item:
call _skip_spaces mv a0, s1
lbu a0, (s1) addi a1, sp, 12
call _is_upper call _tokenize_next
beqz a0, .Lcompile_constant_section_end
lw t0, 12(sp)
li t1, TOKEN_IDENTIFIER
bne t0, t1, .Lcompile_constant_section_end
lw s1, 20(sp)
call _compile_constant call _compile_constant
j .Lcompile_constant_section_item j .Lcompile_constant_section_item
.Lcompile_constant_section_end: .Lcompile_constant_section_end:
# Epilogue. # Epilogue.
lw ra, 20(sp) lw ra, 28(sp)
lw s0, 16(sp) lw s0, 24(sp)
addi sp, sp, 24 addi sp, sp, 32
ret ret
.type _compile_constant, @function .type _compile_constant, @function
@ -1042,7 +957,6 @@ _compile_constant:
li a0, '\n' li a0, '\n'
call _put_char call _put_char
call _skip_spaces
# Epilogue. # Epilogue.
lw ra, 28(sp) lw ra, 28(sp)
@ -1053,10 +967,10 @@ _compile_constant:
.type _compile_variable_section, @function .type _compile_variable_section, @function
_compile_variable_section: _compile_variable_section:
# Prologue. # Prologue.
addi sp, sp, -24 addi sp, sp, -32
sw ra, 20(sp) sw ra, 28(sp)
sw s0, 16(sp) sw s0, 24(sp)
addi s0, sp, 24 addi s0, sp, 32
mv a0, s1 mv a0, s1
addi a1, sp, 4 addi a1, sp, 4
@ -1071,19 +985,23 @@ _compile_variable_section:
call _write_out call _write_out
.Lcompile_variable_section_item: .Lcompile_variable_section_item:
call _skip_spaces mv a0, s1
lbu a0, (s1) addi a1, sp, 12
call _is_lower call _tokenize_next
beqz a0, .Lcompile_variable_section_end lw t0, 12(sp)
li t1, TOKEN_IDENTIFIER
bne t0, t1, .Lcompile_variable_section_end
lw s1, 20(sp) # Advance to the beginning of the variable name.
call _compile_variable call _compile_variable
j .Lcompile_variable_section_item j .Lcompile_variable_section_item
.Lcompile_variable_section_end: .Lcompile_variable_section_end:
# Epilogue. # Epilogue.
lw ra, 20(sp) lw ra, 28(sp)
lw s0, 16(sp) lw s0, 24(sp)
addi sp, sp, 24 addi sp, sp, 32
ret ret
# Compile a global variable. # Compile a global variable.
@ -1111,18 +1029,6 @@ _compile_variable:
call _tokenize_next # Skip the type. call _tokenize_next # Skip the type.
mv s1, a0 mv s1, a0
/* DEBUG
lw a0, 24(sp)
add a0, a0, '0'
sw a0, 24(sp)
addi a0, sp, 24
li a1, 1
call _write_error
lw a0, 28(sp)
li a1, 8
call _write_error
*/
# .type identifier, @object # .type identifier, @object
la a0, asm_type la a0, asm_type
li a1, ASM_TYPE_SIZE li a1, ASM_TYPE_SIZE
@ -1478,10 +1384,6 @@ _compile_statement:
j .Lcompile_statement_end j .Lcompile_statement_end
.Lcompile_statement_end: .Lcompile_statement_end:
sw a0, 12(sp)
call _skip_comment
lw a0, 12(sp)
# Epilogue. # Epilogue.
lw ra, 28(sp) lw ra, 28(sp)
lw s0, 24(sp) lw s0, 24(sp)
@ -1492,19 +1394,19 @@ _compile_statement:
.type _compile_text_section, @function .type _compile_text_section, @function
_compile_text_section: _compile_text_section:
# Prologue. # Prologue.
addi sp, sp, -8 addi sp, sp, -16
sw ra, 4(sp) sw ra, 12(sp)
sw s0, 0(sp) sw s0, 8(sp)
addi s0, sp, 8 addi s0, sp, 16
la a0, section_text la a0, section_text
li a1, SECTION_TEXT_SIZE li a1, SECTION_TEXT_SIZE
call _write_out call _write_out
# Epilogue. # Epilogue.
lw ra, 4(sp) lw ra, 12(sp)
lw s0, 0(sp) lw s0, 8(sp)
addi sp, sp, 8 addi sp, sp, 16
ret ret
.type _compile_entry_point, @function .type _compile_entry_point, @function

89
boot/stage2.elna
View File

@ -183,7 +183,6 @@ begin
goto .Lcompile_identifier_expression_end goto .Lcompile_identifier_expression_end
end end
(* Global identifier. *);
loca8 := 0x6120616c; loca8 := 0x6120616c;
_write_out(@loca8, 4); _write_out(@loca8, 4);
loca8 := 0x00202c00 or loca80; loca8 := 0x00202c00 or loca80;
@ -208,11 +207,6 @@ begin
.Lcompile_identifier_expression_end .Lcompile_identifier_expression_end
end end
(*
Evalutes an expression and saves the result in a0.
a0 - X in aX, the register number to save the result.
*)
proc _build_expression() proc _build_expression()
var var
loca0, loca20, loca28, loca8: Word loca0, loca20, loca28, loca8: Word
@ -305,13 +299,6 @@ begin
.Lbuild_expression_end .Lbuild_expression_end
end end
(*
Compiles an lvalue.
Parameters:
a0 - Pointer to the identifier.
a1 - Identifier length.
*)
proc _compile_designator_expression(loca84: ^Byte, loca80: Word) proc _compile_designator_expression(loca84: ^Byte, loca80: Word)
var var
loca0: Word loca0: Word
@ -352,12 +339,6 @@ begin
.Lcompile_designator_expression_end .Lcompile_designator_expression_end
end end
(*
Compiles a statement beginning with an identifier.
Left values should be variables named "loca n", where n is the offset
of the variable on the stack, like loca8 or loca4.
*)
proc _compile_identifier() proc _compile_identifier()
var var
loca0, loca16, loca8: Word loca0, loca16, loca8: Word
@ -393,13 +374,6 @@ begin
.Lcompile_identifier_end .Lcompile_identifier_end
end end
(*
Compiles a procedure call. Expects s1 to point to the first argument.
a0 - Pointer to the procedure name.
a1 - Length of the procedure name.
Returns the procedure result in a0.
*)
proc _compile_call(loca84: ^Byte, loca80: Word) proc _compile_call(loca84: ^Byte, loca80: Word)
var var
loca0, loca4, loca12: Word loca0, loca4, loca12: Word
@ -422,10 +396,6 @@ begin
loca0 := 0x202c30; loca0 := 0x202c30;
_write_out(@loca0, 3); _write_out(@loca0, 3);
(*
Only 6 arguments are supported with a0-a5.
Save all arguments on the stack so they aren't overriden afterwards.
*)
loca0 := -4 * loca12; loca0 := -4 * loca12;
loca0 := loca0 + 60; loca0 := loca0 + 60;
_printi(loca0); _printi(loca0);
@ -450,10 +420,7 @@ begin
loca12 := 0; loca12 := 0;
.Lcompile_call_restore; .Lcompile_call_restore;
(*
Just go through all a0-a5 registers and read them from stack.
If this stack value contains garbage, the procedure just shouldn't use it.
*)
loca0 := 0x6120776c; loca0 := 0x6120776c;
_write_out(@loca0, 4); _write_out(@loca0, 4);
loca4 := 0x36202c30; loca4 := 0x36202c30;
@ -514,10 +481,6 @@ begin
_advance(1) _advance(1)
end end
(*
Reads a token and returns its length in a0.
_read_token doesn't change s1, it finds the length of the token s1 is pointing to.
*)
proc _read_token() proc _read_token()
var var
loca0, loca4: Word loca0, loca4: Word
@ -612,7 +575,6 @@ begin
return loca4 return loca4
end end
(* Skips the spaces till the next non space character. *)
proc _skip_spaces() proc _skip_spaces()
var var
loca0: Byte loca0: Byte
@ -643,10 +605,6 @@ begin
.Lspace_loop_end .Lspace_loop_end
end end
(*
Parameters:
a0 - Line length.
*)
proc _skip_comment(loca84: Word) proc _skip_comment(loca84: Word)
var var
loca0: ^Byte loca0: ^Byte
@ -684,10 +642,6 @@ begin
.Lskip_comment_end .Lskip_comment_end
end end
(*
Parameters:
a0 - Line length.
*)
proc _compile_assembly(loca84: Word) proc _compile_assembly(loca84: Word)
var loca0: ^Byte var loca0: ^Byte
begin begin
@ -846,7 +800,6 @@ begin
loca0 := 0x0a74; loca0 := 0x0a74;
_write_out(@loca0, 2); _write_out(@loca0, 2);
(* .size identifier, size *);
loca0 := 0x7a69732e; loca0 := 0x7a69732e;
_write_out(@loca0, 4); _write_out(@loca0, 4);
loca0 := 0x2065; loca0 := 0x2065;
@ -882,7 +835,6 @@ begin
loca20 := _current(); loca20 := _current();
_advance(loca16); _advance(loca16);
(* .type identifier, @function *);
loca0 := 0x7079742e; loca0 := 0x7079742e;
_write_out(@loca0, 4); _write_out(@loca0, 4);
loca0 := 0x2065; loca0 := 0x2065;
@ -910,10 +862,6 @@ begin
loca12 := 0x6e; loca12 := 0x6e;
loca8 := 0x69676562; loca8 := 0x69676562;
(*
Skip all declarations until we find the "begin" keyword, denoting the
beginning of the procedure body.
*)
.Lcompile_procedure_begin; .Lcompile_procedure_begin;
_skip_spaces(); _skip_spaces();
loca0 := _read_token(); loca0 := _read_token();
@ -1056,15 +1004,6 @@ begin
_write_out(@loca0, 4) _write_out(@loca0, 4)
end end
(*
Compares two string, which of one has a length, the other one is null-terminated.
a0 - The address of the token string.
a1 - The length of the string in a0.
a2 - The address of the null-terminated string.
If the strings match sets a0 to 0, otherwise sets it to 1.
*)
proc _token_compare(loca84: ^Byte, loca80: Word, loca76: ^Byte) proc _token_compare(loca84: ^Byte, loca80: Word, loca76: ^Byte)
var var
loca0: Bool loca0: Bool
@ -1074,10 +1013,6 @@ begin
.Ltoken_compare_loop; .Ltoken_compare_loop;
loca4 := _front(loca76); loca4 := _front(loca76);
(*
Will only be 0 if the current character in the null terminated string is \0 and the remaining length of the
another string is 0.
*)
loca8 := loca4 or loca80; loca8 := loca4 or loca80;
if loca8 = 0 then if loca8 = 0 then
goto .Ltoken_compare_equal goto .Ltoken_compare_equal
@ -1135,7 +1070,6 @@ begin
_put_char(0x0a) _put_char(0x0a)
end end
(* a0 - Line length. *)
proc _compile_label(loca84: Word) proc _compile_label(loca84: Word)
var var
loca0: Word loca0: Word
@ -1187,7 +1121,6 @@ begin
_write_out(@loca12, 4); _write_out(@loca12, 4);
_put_char(0x20); _put_char(0x20);
(* Write the label *);
_write_out(@loca16, 4); _write_out(@loca16, 4);
_printi(s2); _printi(s2);
@ -1213,20 +1146,10 @@ begin
loca12 := 0x0a3a0a3a; loca12 := 0x0a3a0a3a;
_write_out(@loca12, 2); _write_out(@loca12, 2);
(* Increment the label counter. *);
s2 := s2 + 1; s2 := s2 + 1;
_advance(4) _advance(4)
end end
(*
Parameters:
a0 - Line length.
a1 - Whether the section header was already emitted. If not it should be
emitted before any code is written.
Returns 1 in a0 if the parsed line contained a text section element such a
procedure or the program entry point. Otherwise sets a0 to 0.
*)
proc _compile_line(loca84: Word, loca80: Bool) proc _compile_line(loca84: Word, loca80: Bool)
var var
loca0: Char loca0: Char
@ -1407,7 +1330,6 @@ begin
return loca8 return loca8
end end
(* Prints ".section .text" and exits. *)
proc _compile_text_section() proc _compile_text_section()
var loca0: Word var loca0: Word
begin begin
@ -1466,7 +1388,6 @@ begin
_skip_spaces() _skip_spaces()
end end
(* Finds the end of the line and returns its length in a0. *)
proc _read_line() proc _read_line()
var var
loca0: ^Byte loca0: ^Byte
@ -1520,23 +1441,16 @@ begin
.Lcompile_end .Lcompile_end
end end
(* Returns the pointer to the current position in the source text in a0. *)
proc _current() proc _current()
begin begin
return s1 return s1
end end
(* a0 is the number of bytes to advance in the source text. *)
proc _advance(loca84: Word) proc _advance(loca84: Word)
begin begin
s1 := s1 + loca84 s1 := s1 + loca84
end end
(*
a0 - Pointer to an array to get the first element.
Returns the first character in the remaining source text.
*)
proc _front(loca84: ^Word) proc _front(loca84: ^Word)
begin begin
return _get(loca84) & 0xff return _get(loca84) & 0xff
@ -1549,7 +1463,6 @@ begin
s2 := 1 s2 := 1
end end
(* Entry point. *)
begin begin
_main(); _main();
_compile() _compile()

36
boot/tokenizer.s
View File

@ -268,7 +268,7 @@ transitions:
.word 0x08ff, 0x0103, 0x00ff, 0x08ff, 0x08ff, 0x08ff, 0x08ff, 0x08ff .word 0x08ff, 0x0103, 0x00ff, 0x08ff, 0x08ff, 0x08ff, 0x08ff, 0x08ff
.word 0x08ff, 0x00ff, 0x08ff, 0x00ff, 0x0103, 0x00ff, 0x08ff, 0x08ff .word 0x08ff, 0x00ff, 0x08ff, 0x00ff, 0x0103, 0x00ff, 0x08ff, 0x08ff
.word 0x08ff, 0x08ff, 0x08ff, 0x08ff # 0x03 Integer .word 0x08ff, 0x08ff, 0x08ff, 0x08ff # 0x03 Decimal
.word 0x02ff, 0x02ff, 0x02ff, 0x02ff, 0x02ff, 0x04ff, 0x02ff, 0x02ff .word 0x02ff, 0x02ff, 0x02ff, 0x02ff, 0x02ff, 0x04ff, 0x02ff, 0x02ff
.word 0x02ff, 0x02ff, 0x02ff, 0x02ff, 0x02ff, 0x02ff, 0x02ff, 0x02ff .word 0x02ff, 0x02ff, 0x02ff, 0x02ff, 0x02ff, 0x02ff, 0x02ff, 0x02ff
@ -286,9 +286,9 @@ transitions:
.word 0x02ff, 0x02ff, 0x02ff, 0x02ff, 0x02ff, 0x02ff, 0x02ff, 0x02ff .word 0x02ff, 0x02ff, 0x02ff, 0x02ff, 0x02ff, 0x02ff, 0x02ff, 0x02ff
.word 0x02ff, 0x02ff, 0x02ff, 0x04ff # 0x07 Less .word 0x02ff, 0x02ff, 0x02ff, 0x04ff # 0x07 Less
.word 0x02ff, 0x0102, 0x0102, 0x02ff, 0x02ff, 0x02ff, 0x02ff, 0x02ff .word 0x08ff, 0x0108, 0x00ff, 0x08ff, 0x08ff, 0x08ff, 0x08ff, 0x08ff
.word 0x02ff, 0x0102, 0x02ff, 0x0102, 0x0102, 0x0102, 0x02ff, 0x02ff .word 0x08ff, 0x00ff, 0x08ff, 0x0108, 0x0108, 0x00ff, 0x08ff, 0x08ff
.word 0x02ff, 0x02ff, 0x02ff, 0x02ff # 0x08 Dot .word 0x08ff, 0x08ff, 0x08ff, 0x08ff # 0x08 Hexadecimal after 0x.
.word 0x0109, 0x0109, 0x0109, 0x0109, 0x0109, 0x0109, 0x0109, 0x0109 .word 0x0109, 0x0109, 0x0109, 0x0109, 0x0109, 0x0109, 0x0109, 0x0109
.word 0x010a, 0x0109, 0x0109, 0x0109, 0x0109, 0x0109, 0x00ff, 0x0109 .word 0x010a, 0x0109, 0x0109, 0x0109, 0x0109, 0x0109, 0x00ff, 0x0109
@ -302,13 +302,13 @@ transitions:
.word 0x010b, 0x010b, 0x010b, 0x010b, 0x010b, 0x010b, 0x010b, 0x0110 .word 0x010b, 0x010b, 0x010b, 0x010b, 0x010b, 0x010b, 0x010b, 0x0110
.word 0x010b, 0x04ff, 0x010b, 0x010b # 0x0b String .word 0x010b, 0x04ff, 0x010b, 0x010b # 0x0b String
.word 0x02ff, 0x00ff, 0x00ff, 0x02ff, 0x02ff, 0x02ff, 0x02ff, 0x02ff .word 0x08ff, 0x00ff, 0x00ff, 0x08ff, 0x08ff, 0x08ff, 0x08ff, 0x08ff
.word 0x02ff, 0x02ff, 0x02ff, 0x00ff, 0x00ff, 0x010d, 0x02ff, 0x02ff .word 0x08ff, 0x00ff, 0x08ff, 0x00ff, 0x00ff, 0x010d, 0x08ff, 0x08ff
.word 0x02ff, 0x02ff, 0x02ff, 0x02ff # 0x0c Zero .word 0x08ff, 0x08ff, 0x08ff, 0x08ff # 0x0c Leading zero
.word 0x02ff, 0x010d, 0x00ff, 0x02ff, 0x02ff, 0x02ff, 0x02ff, 0x02ff .word 0x00ff, 0x0108, 0x00ff, 0x00ff, 0x00ff, 0x00ff, 0x00ff, 0x00ff
.word 0x02ff, 0x02ff, 0x02ff, 0x010d, 0x010d, 0x00ff, 0x2ff, 0x02ff .word 0x00ff, 0x00ff, 0x00ff, 0x0108, 0x0108, 0x00ff, 0x00ff, 0x00ff
.word 0x00ff, 0x02ff, 0x02ff, 0x02ff # 0x0d Hexadecimal .word 0x00ff, 0x00ff, 0x00ff, 0x00ff # 0x0d Starting hexadecimal
.section .text .section .text
@ -592,14 +592,14 @@ _tokenize_next:
j .Ltokenize_next_end j .Ltokenize_next_end
.Ltokenize_next_integer: .Ltokenize_next_integer:
lw a1, 12(sp) lw t0, 0(sp)
sub a0, s1, a1 li t1, TOKEN_INTEGER
sw a0, 8(sp) sw t1, 0(t0)
sw a0, 4(sp) lw t1, 12(sp)
lw a0, 0(sp) sw t1, 8(t0)
addi a1, sp, 4 sub t1, s1, t1
li a2, 12 sw t1, 4(t0)
call _memcpy
j .Ltokenize_next_end j .Ltokenize_next_end
.Ltokenize_next_end: .Ltokenize_next_end: