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

Fix alias resolution with type declarations

Browse Source
This commit is contained in:
Eugen Wissner
2025-03-28 10:40:14 +01:00
parent d359056354
commit 413f23af4d
4 changed files with 30 additions and 35 deletions
Download Patch File Download Diff File Expand all files Collapse all files

30
source.elna
View File

@ -169,8 +169,8 @@ end
proc write_i(value: Int);
var
digit: Int
n: Word
digit: Int;
n: Word;
buffer: [10]Char
begin
n := 10u;
@ -282,7 +282,7 @@ end
proc read_source(filename: ^Char) -> ^SourceFile;
var
result: ^SourceFile
result: ^SourceFile;
file_handle: ^FILE
begin
file_handle := fopen(filename, "rb\0".ptr);
@ -473,9 +473,9 @@ end
proc lex_string(source_code: ^SourceCode, token_content: ^StringBuffer) -> Bool;
var
token_end, constructed_string: ^Char
token_length: Word
is_valid: Bool
token_end, constructed_string: ^Char;
token_length: Word;
is_valid: Bool;
next_char: Char
begin
is_valid := true;
@ -509,7 +509,7 @@ end
proc print_tokens(tokens: ^Token, tokens_size: Word);
var
current_token: ^Token
current_token: ^Token;
i: Word
begin
i := 0u;
@ -728,8 +728,8 @@ end
proc tokenize(source_code: SourceCode, tokens_size: ^Word) -> ^Token;
var
tokens, current_token: ^Token
first_char: Char
tokens, current_token: ^Token;
first_char: Char;
token_buffer: StringBuffer
begin
tokens_size^ := 0u;
@ -905,8 +905,8 @@ end
proc parse_command_line*(argc: Int, argv: ^^Char) -> ^CommandLine;
var
parameter: ^^Char
i: Int
parameter: ^^Char;
i: Int;
result: ^CommandLine
begin
i := 1;
@ -946,10 +946,10 @@ end
proc process(argc: Int, argv: ^^Char) -> Int;
var
tokens: ^Token
tokens_size: Word
source_code: SourceCode
command_line: ^CommandLine
tokens: ^Token;
tokens_size: Word;
source_code: SourceCode;
command_line: ^CommandLine;
return_code: Int
begin
return_code := 0;