diff options
| author | Eugen Wissner <belka@caraus.de> | 2026-07-11 22:33:03 +0200 |
|---|---|---|
| committer | Eugen Wissner <belka@caraus.de> | 2026-07-11 22:33:03 +0200 |
| commit | 14d4977e2ab2409bb7344395ca01d19e49f130f1 (patch) | |
| tree | 5e08f1356a970b53f16ee554642eb555550d1491 /source | |
| parent | b7dd49c1d5832ac7d82edba27316884ab53e614c (diff) | |
| download | elna-14d4977e2ab2409bb7344395ca01d19e49f130f1.tar.gz | |
Implement record extension
Diffstat (limited to 'source')
| -rw-r--r-- | source/lexer.elna | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/source/lexer.elna b/source/lexer.elna index 9008139..bb8c8ef 100644 --- a/source/lexer.elna +++ b/source/lexer.elna @@ -408,7 +408,7 @@ begin text_length := cast(lexer^.current.iterator - lexer^.start.iterator + 1: Word); token^.value.stringKind := String(cast(malloc(text_length): ^Char), text_length); - memcpy(cast(token^.value.stringKind.ptr: Pointer), cast(lexer^.start.iterator: Pointer), text_length); + memcpy(token^.value.stringKind.ptr, lexer^.start.iterator, text_length); token^.kind := LexerKind.character end; @@ -416,7 +416,7 @@ begin text_length := cast(lexer^.current.iterator - lexer^.start.iterator + 1: Word); token^.value.stringKind := String(cast(malloc(text_length): ^Char), text_length); - memcpy(cast(token^.value.stringKind.ptr: Pointer), cast(lexer^.start.iterator: Pointer), text_length); + memcpy(token^.value.stringKind.ptr, lexer^.start.iterator, text_length); token^.kind := LexerKind.string end; @@ -429,7 +429,7 @@ begin token^.kind := LexerKind.identifier; token^.value.identifierKind[1] := cast(lexer^.current.iterator - lexer^.start.iterator: Char); - memcpy(cast(@token^.value.identifierKind[2]: Pointer), cast(lexer^.start.iterator: Pointer), cast(token^.value.identifierKind[1]: Word)); + memcpy(@token^.value.identifierKind[2], lexer^.start.iterator, cast(token^.value.identifierKind[1]: Word)); if compare_keyword("program", lexer^.start, lexer^.current.iterator) then token^.kind := LexerKind._program @@ -579,7 +579,7 @@ begin integer_length := cast(lexer^.current.iterator - lexer^.start.iterator: Word); memset(cast(token^.value.identifierKind.ptr: Pointer), 0, #size(Identifier)); - memcpy(cast(@token^.value.identifierKind[1]: Pointer), cast(lexer^.start.iterator: Pointer), integer_length); + memcpy(@token^.value.identifierKind[1], lexer^.start.iterator, integer_length); token^.value.identifierKind[cast(token^.value.identifierKind[1]: Int) + 2] := '\0'; token^.value.integerKind := atoi(@token^.value.identifierKind[2]) |