zongor
/
zongors-reality-engine
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

add fat pointers for strings, update makefile, test

This commit is contained in:
zongor 2025-06-08 16:41:53 -04:00
parent 2817e940e1
commit a1c74760a1
5 changed files with 38 additions and 53 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
.gitignore vendored
View File

@ -101,4 +101,5 @@ Module.symvers
Mkfile.old
dkms.conf
zlc
zre
memory_dump.bin

2
src/Makefile
View File

@ -7,7 +7,7 @@ LDLIBS +=
# Source and build configuration
SRC = $(wildcard *.c)
OBJ = $(SRC:.c=.o)
EXEC = zlc
EXEC = zre
# Phony targets
.PHONY: all clean test install

78
src/vm.c
View File

@ -4,15 +4,15 @@
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <sys/mman.h>
#include <unistd.h>
#define MEMORY_SIZE 65536 /* 64KB memory (adjustable) */
/* #define MEMORY_SIZE 65536 /\* 64KB memory (adjustable) *\/ */
#define MEMORY_SIZE 200
typedef union {
float f;
uint32_t u;
} FloatUint32Union;
FloatUint32Union memory[MEMORY_SIZE]; /* Memory array */
} Data;
Data memory[MEMORY_SIZE]; /* Memory array */
typedef enum {
OP_HALT, /* terminate execution */
@ -38,6 +38,7 @@ uint8_t get_char(uint32_t word, int index) {
uint32_t set_char(uint32_t word, int index, uint8_t ch) {
return (word & ~(0xFF << (8 * index))) | (ch << (8 * index));
}
void run_vm() {
uint32_t pc = 0; /* Program counter */
@ -58,51 +59,30 @@ void run_vm() {
switch (opcode) {
case OP_ADD:
memory[dest_addr].u = memory[src1_addr].u + memory[src2_addr].u;
printf("ADD;src1[%d]:%d;src2[%d]:%d;dest[%d]:%d\n", src1_addr,
memory[src1_addr].u, src2_addr, memory[src2_addr].u, dest_addr,
memory[dest_addr].u);
break;
case OP_SUB:
memory[dest_addr].u = memory[src1_addr].u - memory[src2_addr].u;
printf("ADD;src1[%d]:%d;src2[%d]:%d;dest[%d]:%d\n", src1_addr,
memory[src1_addr].u, src2_addr, memory[src2_addr].u, dest_addr,
memory[dest_addr].u);
break;
case OP_MUL:
memory[dest_addr].u = memory[src1_addr].u * memory[src2_addr].u;
printf("ADD;src1[%d]:%d;src2[%d]:%d;dest[%d]:%d\n", src1_addr,
memory[src1_addr].u, src2_addr, memory[src2_addr].u, dest_addr,
memory[dest_addr].u);
break;
case OP_DIV:
memory[dest_addr].u = memory[src1_addr].u / memory[src2_addr].u;
printf("ADD;src1[%d]:%d;src2[%d]:%d;dest[%d]:%d\n", src1_addr,
memory[src1_addr].u, src2_addr, memory[src2_addr].u, dest_addr,
memory[dest_addr].u);
break;
case OP_ADD_F32:
memory[dest_addr].f = memory[src1_addr].f + memory[src2_addr].f;
printf("ADD;src1[%d]:%f;src2[%d]:%f;dest[%d]:%f\n", src1_addr,
memory[src1_addr].f, src2_addr, memory[src2_addr].f, dest_addr,
memory[dest_addr].f);
break;
case OP_SUB_F32:
memory[dest_addr].f = memory[src1_addr].f - memory[src2_addr].f;
printf("ADD;src1[%d]:%f;src2[%d]:%f;dest[%d]:%f\n", src1_addr,
memory[src1_addr].f, src2_addr, memory[src2_addr].f, dest_addr,
memory[dest_addr].f);
break;
case OP_MUL_F32:
memory[dest_addr].f = memory[src1_addr].f * memory[src2_addr].f;
printf("ADD;src1[%d]:%f;src2[%d]:%f;dest[%d]:%f\n", src1_addr,
memory[src1_addr].f, src2_addr, memory[src2_addr].f, dest_addr,
memory[dest_addr].f);
break;
case OP_DIV_F32:
@ -111,31 +91,16 @@ void run_vm() {
exit(1);
}
memory[dest_addr].f = memory[src1_addr].f / memory[src2_addr].f;
printf("ADD;src1[%d]:%f;src2[%d]:%f;dest[%d]:%f\n", src1_addr,
memory[src1_addr].f, src2_addr, memory[src2_addr].f, dest_addr,
memory[dest_addr].f);
break;
case OP_HALT:
printf("ADD;src1[%d]:%d;src2[%d]:%d;dest[%d]:%d\n", src1_addr,
memory[src1_addr].u, src2_addr, memory[src2_addr].u, dest_addr,
memory[dest_addr].u);
return;
case OP_MOV:
printf("ADD;src1[%d]:%d;src2[%d]:%d;dest[%d]:%d\n", src1_addr,
memory[src1_addr].u, src2_addr, memory[src2_addr].u, dest_addr,
memory[dest_addr].u);
memory[dest_addr] = memory[src1_addr];
break;
case OP_JMP:
printf("ADD;src1[%d]:%d;src2[%d]:%d;dest[%d]:%d\n", src1_addr,
memory[src1_addr].u, src2_addr, memory[src2_addr].u, dest_addr,
memory[dest_addr].u);
pc = src1_addr; /* Jump to address */
break;
case OP_JGZ: {
printf("ADD;src1[%d]:%d;src2[%d]:%d;dest[%d]:%d\n", src1_addr,
memory[src1_addr].u, src2_addr, memory[src2_addr].u, dest_addr,
memory[dest_addr].u);
uint32_t value = memory[src1_addr].u;
uint32_t jump_target = src2_addr;
@ -145,10 +110,11 @@ void run_vm() {
break;
}
case OP_PRINT_STRING: {
printf("PRINT_STRING;");
uint32_t string_addr = src1_addr;
int i = 0;
while (1) {
uint32_t length = memory[src1_addr-1].u;
uint32_t i;
while (i < length) {
int j = 0;
uint32_t word = memory[string_addr + (i++)].u;
for (j = 0; j < 4; j++) {
@ -163,10 +129,12 @@ void run_vm() {
break;
}
case OP_READ_STRING: {
printf("> ");
uint32_t buffer_addr = dest_addr;
putchar('>');
putchar(' ');
uint32_t buffer_addr = dest_addr + 1;
int word_index = 0;
int char_index = 0;
uint32_t length = 1;
while (1) {
int ch = getchar();
@ -180,6 +148,7 @@ void run_vm() {
uint32_t word = memory[buffer_addr + word_index].u;
word = set_char(word, char_index, ch);
memory[buffer_addr + word_index].u = word;
length++;
char_index++;
if (char_index == 4) {
@ -187,6 +156,8 @@ void run_vm() {
word_index++;
}
}
memory[dest_addr].u = length;
break;
}
default:
@ -214,7 +185,7 @@ int main() {
memory[14].u = 4;
memory[15].u = 4;
memory[16].u = OP_PRINT_STRING;
memory[17].u = 104;
memory[17].u = 105;
memory[18].u = 0;
memory[19].u = 0;
memory[20].u = OP_HALT;
@ -225,6 +196,19 @@ int main() {
run_vm();
printf("Dest at address 103: %f\n", memory[103].f);
FILE *file = fopen("memory_dump.bin", "wb");
if (!file) {
perror("Failed to open file");
return EXIT_FAILURE;
}
size_t written = fwrite(memory, 1, MEMORY_SIZE, file);
if (written != MEMORY_SIZE) {
fprintf(stderr, "Incomplete write: %zu bytes written out of %u\n", written, MEMORY_SIZE);
fclose(file);
return EXIT_FAILURE;
}
fclose(file);
return 0;
}

2
test/add.ztl
View File

@ -1 +1 @@
1 + 2
print(1 + 2);

6
test/loop.ztl
View File

@ -1,5 +1,5 @@
for (let i = 0; i < 10; i = i + 1) {
print i;
print(i);
}
let val = true;
@ -7,6 +7,6 @@ let j = 0;
while (val) {
j = j + 1;
if (j > 9) val = false;
print j;
print(j);
}
print "done";
print("done");