ed/WATL_Exercise
1
0
Fork 0
mirror of https://github.com/Ed94/WATL_Exercise.git synced 2025-08-06 07:12:42 -07:00
Code Issues Packages Projects Releases Wiki Activity

ct bug fixing

Browse Source
This commit is contained in:
Edward R. Gonzalez
2025-05-29 01:49:41 -04:00
parent 12c9cba390
commit 2291a3aae5
1 changed files with 16 additions and 23 deletions
Download Patch File Download Diff File Expand all files Collapse all files

37
C/watl.v0.msvc.c
View File

@@ -153,26 +153,19 @@ void slice__zero(Slice_Byte mem, SSIZE typewidth);
#define sll_stack_push_n(f, n, next) do { (n)->next = (f); (f) = (n); } while(0) #define sll_stack_push_n(f, n, next) do { (n)->next = (f); (f) = (n); } while(0)
inline void #define sll_queue_push_nz(nil, f, l, n, next) \
sll__queue_push_nz( ( \
void* nil, check_nil(nil, f) ? ( \
void** f, (f) = (l) = (n), \
void** l, void** l_next, set_nil(nil, (n)->next) \
void* n, void** n_next ) \
: ( \
(l)->next=(n), \
(l) = (n), \
set_nil(nil,(n)->next) \
) \
) )
{ #define sll_queue_push_n(f, l, n, next) sll_queue_push_nz(0, f, l, n, next)
if (check_nil(nil, *f)) {
*f = n;
*l = n;
*n_next = nil;
}
else {
*l_next = n;
*l = n;
*n_next = nil;
}
}
#define sll_queue_push_n(f, l, n, next) sll__queue_push_nz(0, &f, &l, &l->next, n, &n->next)
#pragma endregion Memory #pragma endregion Memory
#pragma region Math #pragma region Math
@@ -639,7 +632,7 @@ typedef def_enum(U32, WATL_ParseStatus) {
}; };
typedef def_struct(WATL_ParseInfo) { typedef def_struct(WATL_ParseInfo) {
Slice_WATL_Line lines; Slice_WATL_Line lines;
WATL_ParseMsg msgs; WATL_ParseMsg* msgs;
WATL_ParseStatus signal; WATL_ParseStatus signal;
}; };
typedef def_struct(Opts_watl_parse) { typedef def_struct(Opts_watl_parse) {
@@ -1966,7 +1959,7 @@ void api_watl_parse(WATL_ParseInfo* info, Slice_WATL_Tok tokens, Opts_watl_parse
return; return;
} }
} }
WATL_ParseInfo watl__parse(Slice_WATL_Tok tokens, Opts_watl_parse* opts); WATL_ParseInfo watl__parse(Slice_WATL_Tok tokens, Opts_watl_parse* opts) { WATL_ParseInfo info; api_watl_parse(& info, tokens, opts); return info; }
Str8 watl_dump_listing(AllocatorInfo buffer, Slice_WATL_Line lines) Str8 watl_dump_listing(AllocatorInfo buffer, Slice_WATL_Line lines)
{ {
@@ -2015,7 +2008,7 @@ int main()
os_init(); os_init();
VArena* vm_file = varena_make(.reserve_size = giga(4), .flags = VArenaFlag_NoLargePages); VArena* vm_file = varena_make(.reserve_size = giga(4), .flags = VArenaFlag_NoLargePages);
FileOpInfo file = file_read_contents(lit("watl.v0.msvc.c"), .backing = ainfo(vm_file)); FileOpInfo file = file_read_contents(lit("watl.v0.msvc.c"), .backing = ainfo_varena(vm_file));
Arena* a_msgs = arena_make(); Arena* a_msgs = arena_make();
Arena* a_toks = arena_make(); Arena* a_toks = arena_make();