Update bootstrap files.
All checks were successful
BuildTest / Build and test (pull_request) Successful in 4m8s

This commit is contained in:
2024-03-15 09:13:19 +00:00
parent b51c8f7a6e
commit 59b69355ef
11 changed files with 1413 additions and 252 deletions

23
arena.c
View File

@@ -1,13 +1,20 @@
#line 938 "nuweb.w"
#include "global.h"
#line 6512 "nuweb.w"
typedef struct chunk {
struct chunk *next;
char *limit;
char *avail;
} Chunk;
#line 6526 "nuweb.w"
static Chunk first = { NULL, NULL, NULL };
static Chunk *arena = &first;
void *arena_getmem(n)
size_t n;
#line 6540 "nuweb.w"
void *arena_getmem(size_t n)
{
char *q;
char *p = arena->avail;
@@ -18,6 +25,8 @@ void *arena_getmem(n)
return p;
}
/* Find a new chunk of memory */
#line 6561 "nuweb.w"
{
Chunk *ap = arena;
Chunk *np = ap->next;
@@ -32,6 +41,8 @@ void *arena_getmem(n)
np = ap->next;
}
/* Allocate a new chunk of memory */
#line 6581 "nuweb.w"
{
size_t m = n + 10000;
np = (Chunk *) malloc(m);
@@ -42,9 +53,15 @@ void *arena_getmem(n)
arena = np;
return sizeof(Chunk) + (char *) np;
}
#line 6574 "nuweb.w"
}
#line 6550 "nuweb.w"
}
void arena_free()
#line 6598 "nuweb.w"
void arena_free(void)
{
arena = &first;
}