Compare commits

..

12 Commits

Author SHA1 Message Date
cf5ed7b601 implemented flag for comparison result 2025-04-18 03:03:20 +05:00
ba72dae68f refactored registers 2025-04-18 02:46:46 +05:00
dd8c65ef79 loop.tasm 2025-03-12 21:27:40 +05:00
0fa4e24421 main section compilation fix 2025-03-12 21:27:34 +05:00
ee162a70ed jump 2025-03-12 12:57:42 +05:00
b9fa669fd1 fixed bugs 2025-03-12 12:57:16 +05:00
ad5c2b856a logical operators 2025-03-11 14:01:47 +05:00
4de066b6c1 test render loop 2025-03-09 18:35:56 +05:00
0291279f1a sdl3 2025-02-27 22:53:27 +05:00
c2bd5922ff syntax error 2025-02-27 22:47:45 +05:00
3e3f01db4e register struct update 2025-02-13 22:17:55 +05:00
a69d68f69c instructions rename and uninitialized memory error fix 2025-02-12 14:27:50 +05:00
35 changed files with 752 additions and 252 deletions

2
.vscode/launch.json vendored
View File

@@ -7,7 +7,7 @@
"request": "launch",
"program": "${workspaceFolder}/bin/tcpu",
"windows": { "program": "${workspaceFolder}/bin/tcpu.exe" },
"args": [ "-c", "../examples/s.tasm", "o.bin", "--debug" ],
"args": [ "-c", "../examples/loop.tasm", "o.bin", "--debug", "-i", "o.bin" ],
"cwd": "${workspaceFolder}/bin",
"preLaunchTask": "build_exec_dbg",
"stopAtEntry": false,

View File

@@ -3,36 +3,75 @@ Machine code interpreter written in pure C. Can execute programs up to 1 MEGABYT
## Building
1. Install [cbuild](https://timerix.ddns.net:3322/Timerix/cbuild.git)
2. ```sh
2. Install [SDL3](https://github.com/libsdl-org/SDL) and [SDL3_image](https://github.com/libsdl-org/SDL_image) from package manager or source.
3. ```sh
cbuild build_exec_dbg
```
## Assembly language
### Instructions
| code | name | arguments | details |
|------|------|-----------|---------|
| 00 | NOP | | ignored instruction |
| 01 | PUSH | `dst_register`, `value_size(bytes)`, `value` | push constant value into `dst_register` |
| 02 | MOV | `dst_register`, `src_register` | copy value from `src_register` to `dst_register`
| 03 | ADD | `dst_register`, `src_register` | `dst` += `src` |
| 04 | SUB | `dst_register`, `src_register` | `dst` -= `src` |
| 05 | MUL | `dst_register`, `src_register` | `dst` *= `src` |
| 06 | DIV | `dst_register`, `src_register` | `dst` /= `src` |
| 07 | MOD | `dst_register`, `src_register` | `dst` %= `src` |
| 08 | SYS | | call system function |
| 09 | EXIT | | stop the program with exit code in `ax` |
### Registers
| code | name | size (bits) |
|------|------|-------------|
| 00 | ax | 32 |
| 01 | bx | 32 |
| 02 | cx | 32 |
| 03 | dx | 32 |
| name | code | size (bits) |
|-----|------|----|
| rax | 0x01 | 64 |
| eax | 0x02 | 32 |
| ax | 0x04 | 16 |
| al | 0x07 | 8 |
| ah | 0x08 | 8 |
| |
| rbx | 0x11 | 64 |
| ebx | 0x12 | 32 |
| bx | 0x14 | 16 |
| bl | 0x17 | 8 |
| bh | 0x18 | 8 |
| |
| rcx | 0x21 | 64 |
| ecx | 0x22 | 32 |
| cx | 0x24 | 16 |
| cl | 0x27 | 8 |
| ch | 0x28 | 8 |
| |
| rdx | 0x31 | 64 |
| edx | 0x32 | 32 |
| dx | 0x34 | 16 |
| dl | 0x37 | 8 |
| dh | 0x38 | 8 |
### Instructions
| name | arguments | details |
|------|-----------|---------|
| NOP | | ignored instruction |
| EXIT | | stop the program with exit code in `eax` |
| SYS | | call system function |
| |
| MOVC | `dst_register`, `const_value` | push constant value into `dst_register` |
| MOVR | `dst_register`, `src_register` | copy value from `src_register` to `dst_register` |
| |
| ADD | `dst_register`, `src_register` | `dst += src` |
| SUB | `dst_register`, `src_register` | `dst -= src` |
| MUL | `dst_register`, `src_register` | `dst *= src` |
| DIV | `dst_register`, `src_register` | `dst /= src` |
| MOD | `dst_register`, `src_register` | `dst %= src` |
| |
| EQ | `dst_register`, `src_register` | `cmp_flag = dst == src` |
| NE | `dst_register`, `src_register` | `cmp_flag = dst != src` |
| LT | `dst_register`, `src_register` | `cmp_flag = dst < src` |
| LE | `dst_register`, `src_register` | `cmp_flag = dst <= src` |
| GT | `dst_register`, `src_register` | `cmp_flag = dst > src` |
| GE | `dst_register`, `src_register` | `cmp_flag = dst >= src` |
| |
| NOT | `dst_register` | `dst = !dst` |
| INV | `dst_register` | `dst = ~dst` |
| OR | `dst_register`, `src_register` | `dst = dst \| src` |
| XOR | `dst_register`, `src_register` | `dst = dst ^ src` |
| AND | `dst_register`, `src_register` | `dst = dst & src` |
| |
| JMP | `dst_address_const` | goto `dst` |
| JNZ | `dst_address_const` | if (`cmp_flag` != 0) goto `dst` |
| JZ | `dst_address_const` | if (`cmp_flag` == 0) goto `dst` |
### System functions
To call a system function you need to push values to registers and write `SYS` opcode. The return value of a function will will be avaliable in `ax` after call.
| `ax` | name | `bx` | `cx` | `dx` | details |
|-----------|------|----|----|----|---------|
| 0 | read | file number | buffer pointer | buffer size | read data from file |
| 1 | write | file number | buffer pointer | buffer size | write data to file |
| name | `al` | `ah` | `rbx` | `ecx` | details |
|------|------|------|-------|-------|---------|
| read | 0 | file number | buffer pointer | buffer size | read data from file |
| write | 1 | file number | buffer pointer | buffer size | write data to file |

11
TODO.md Normal file
View File

@@ -0,0 +1,11 @@
# TODO List
- add negative number arguments support
- add movc char support
- add padding to compilation
- VM debug log
- add display syscalls
- change section binary format:
1. code
2. exit instruction with code ERR_U_FORGOT_TO_CALL_EXIT
3. data
- arguments validation for each instruction

View File

@@ -0,0 +1,32 @@
/*
Example of behavior change depending on some condition
*/
.main:
movc ax 1
movc bx 2
gt ax bx
jnz @true
jz @false
.true:
const8 true.msg "true\n"
movc rbx @true.msg
movc ecx #true.msg
jmp @print
.false
const8 false.msg "false\n"
movc rbx @false.msg
movc ecx #false.msg
jmp @print
.print:
movc al 1
movc ah 1
sys
jmp @end
.end:
movc ax 0
exit

22
examples/loop.tasm Normal file
View File

@@ -0,0 +1,22 @@
/*
Example of self-repeating code section
*/
.main:
movc dx 0; // loop counter
.loop
const8 datum "ITERATION!!! "
movc al 1
movc ah 1
movc rbx @datum
movc ecx #datum
sys
movc cx 1
add dx cx
movc cx 8
lt dx cx
jnz @loop
movc rax 0
exit

View File

@@ -1,16 +0,0 @@
/*
"hello world" program in my assembly language
*/
.data:
// named array of 8-bit values
const8 msg "Hello, World :3\0"
.main:
push ax 1; // sys_write
push bx 1; // stdout
push cx @msg; // address of msg data
push dx #msg; // size of msg data
sys
push ax 0
exit

16
examples/stdout.tasm Normal file
View File

@@ -0,0 +1,16 @@
/*
"hello world" program in my assembly language
*/
.data:
// named array of 8-bit values
const8 msg "Hello, World!\n"
.main:
movc al 1; // sys_write
movc ah 1; // stdout
movc rbx @msg; // address of msg data
movc ecx #msg; // size of msg data
sys
movc ax 0
exit

7
examples/window.tasm Normal file
View File

@@ -0,0 +1,7 @@
/*
Example of graphical application
*/
.main:
//TODO: write code here
exit

View File

@@ -32,12 +32,13 @@ case "$OS" in
WINDOWS)
EXEC_FILE="$PROJECT.exe"
SHARED_LIB_FILE="$PROJECT.dll"
# example: "-I./"
LINKER_LIBS="-lSDL3_image -lSDL3"
INCLUDE=""
;;
LINUX)
EXEC_FILE="$PROJECT"
SHARED_LIB_FILE="$PROJECT.so"
LINKER_LIBS="-lSDL3_image -lSDL3"
INCLUDE=""
;;
*)
@@ -57,7 +58,7 @@ case "$TASK" in
# -fdata-sections -ffunction-sections -Wl,--gc-sections removes unused code
C_ARGS="-O2 -flto=auto -fuse-linker-plugin -fprofile-use -fprofile-prefix-path=$(realpath $OBJDIR)/objects -fdata-sections -ffunction-sections -Wl,--gc-sections"
CPP_ARGS="$C_ARGS"
LINKER_ARGS="$CPP_ARGS"
LINKER_ARGS="$CPP_ARGS $LINKER_LIBS"
PRE_TASK_SCRIPT=
TASK_SCRIPT=cbuild/default_tasks/build_exec.sh
POST_TASK_SCRIPT=
@@ -66,7 +67,7 @@ case "$TASK" in
build_exec_dbg)
C_ARGS="-O0 -g3"
CPP_ARGS="$C_ARGS"
LINKER_ARGS="$CPP_ARGS"
LINKER_ARGS="$CPP_ARGS $LINKER_LIBS"
PRE_TASK_SCRIPT=
TASK_SCRIPT=cbuild/default_tasks/build_exec.sh
POST_TASK_SCRIPT=
@@ -75,7 +76,7 @@ case "$TASK" in
build_shared_lib)
C_ARGS="-O2 -fpic -flto -shared"
CPP_ARGS="$C_ARGS"
LINKER_ARGS="$CPP_ARGS -Wl,-soname,$SHARED_LIB_FILE"
LINKER_ARGS="$CPP_ARGS $LINKER_LIBS -Wl,-soname,$SHARED_LIB_FILE"
PRE_TASK_SCRIPT=
TASK_SCRIPT=cbuild/default_tasks/build_shared_lib.sh
POST_TASK_SCRIPT=
@@ -84,7 +85,7 @@ case "$TASK" in
build_shared_lib_dbg)
C_ARGS="-O0 -g3 -fpic -shared"
CPP_ARGS="$C_ARGS"
LINKER_ARGS="$CPP_ARGS -Wl,-soname,$SHARED_LIB_FILE"
LINKER_ARGS="$CPP_ARGS $LINKER_LIBS -Wl,-soname,$SHARED_LIB_FILE"
PRE_TASK_SCRIPT=
TASK_SCRIPT=cbuild/default_tasks/build_shared_lib.sh
POST_TASK_SCRIPT=
@@ -125,7 +126,7 @@ case "$TASK" in
# -fprofile-prefix-path sets path where profiling info about objects will be saved
C_ARGS="-O2 -flto=auto -fuse-linker-plugin -fprofile-generate -fprofile-prefix-path=$(realpath $OBJDIR)/objects"
CPP_ARGS="$C_ARGS"
LINKER_ARGS="$CPP_ARGS"
LINKER_ARGS="$CPP_ARGS $LINKER_LIBS"
PRE_TASK_SCRIPT=cbuild/default_tasks/build_exec.sh
TASK_SCRIPT=cbuild/default_tasks/profile.sh
POST_TASK_SCRIPT=
@@ -138,7 +139,7 @@ case "$TASK" in
# -pg adds code to executable, that generates file containing function call info (gmon.out)
C_ARGS="-O2 -flto=auto -fuse-linker-plugin -pg"
CPP_ARGS="$C_ARGS"
LINKER_ARGS="$CPP_ARGS"
LINKER_ARGS="$CPP_ARGS $LINKER_LIBS"
PRE_TASK_SCRIPT=cbuild/default_tasks/build_exec.sh
TASK_SCRIPT=cbuild/default_tasks/gprof.sh
POST_TASK_SCRIPT=
@@ -152,7 +153,7 @@ case "$TASK" in
# -pg adds code to executable, that generates file containing function call info (gmon.out)
C_ARGS="-O2 -flto=auto -fuse-linker-plugin"
CPP_ARGS="$C_ARGS"
LINKER_ARGS="$CPP_ARGS"
LINKER_ARGS="$CPP_ARGS $LINKER_LIBS"
PRE_TASK_SCRIPT=cbuild/default_tasks/build_exec.sh
TASK_SCRIPT=cbuild/default_tasks/callgrind.sh
POST_TASK_SCRIPT=
@@ -162,7 +163,7 @@ case "$TASK" in
OUTDIR="$OUTDIR/sanitize"
C_ARGS="-O0 -g3 -fsanitize=undefined,address"
CPP_ARGS="$C_ARGS"
LINKER_ARGS="$CPP_ARGS"
LINKER_ARGS="$CPP_ARGS $LINKER_LIBS"
PRE_TASK_SCRIPT=cbuild/default_tasks/build_exec.sh
TASK_SCRIPT=cbuild/default_tasks/exec.sh
POST_TASK_SCRIPT=

90
src/VM/Display/Display.c Normal file
View File

@@ -0,0 +1,90 @@
#include <SDL3/SDL.h>
#include <SDL3_image/SDL_image.h>
#include "Display.h"
typedef struct Display {
str name;
i32 width;
i32 height;
SDL_Window* window;
SDL_Renderer* renderer;
} Display;
static SDL_InitState sdl_init_state = {0};
Display* Display_create(str name, i32 w, i32 h, DisplayFlags flags){
Display* d = malloc(sizeof(Display));
d->name = str_copy(name);
d->width = w;
d->height = h;
d->window = NULL;
d->renderer = NULL;
if (SDL_ShouldInit(&sdl_init_state)) {
bool sdl_initialized = SDL_Init(SDL_INIT_VIDEO);
SDL_SetInitialized(&sdl_init_state, sdl_initialized);
if(!sdl_initialized)
return false;
}
SDL_WindowFlags window_flags = SDL_WINDOW_ALWAYS_ON_TOP;
if(!SDL_CreateWindowAndRenderer(d->name.data, d->width, d->height, window_flags, &d->window, &d->renderer)){
return false;
}
return d;
}
void Display_destroy(Display* d){
free(d->name.data);
SDL_DestroyRenderer(d->renderer);
SDL_DestroyWindow(d->window);
free(d);
// if (SDL_ShouldQuit(&sdl_init_state)) {
// SDL_Quit();
// SDL_SetInitialized(&sdl_init_state, false);
// }
}
bool Display_setName(Display* d, str name){
d->name = str_copy(name);
return SDL_SetWindowTitle(d->window, name.data);
}
bool Display_setSize(Display* d, u32 w, u32 h){
d->width = w;
d->height = h;
return SDL_SetWindowSize(d->window, w, h);
}
bool Display_setDrawingColor(Display* d, ColorRGBA color){
return SDL_SetRenderDrawColor(d->renderer, color.r, color.g, color.b, color.a);
}
bool Display_clear(Display* d){
return SDL_RenderClear(d->renderer);
}
#define Rect_copy(DST, SRC) {\
DST.x = SRC.x;\
DST.y = SRC.y;\
DST.w = SRC.w;\
DST.h = SRC.h;\
}
bool Display_fillRect(Display* d, Rect rect) {
SDL_FRect sdl_rect;
Rect_copy(sdl_rect, rect);
return SDL_RenderFillRect(d->renderer, &sdl_rect);
}
bool Display_swapBuffers(Display* d){
return SDL_RenderPresent(d->renderer);
}
NULLABLE(cstr) Display_getError(){
return SDL_GetError();
}

32
src/VM/Display/Display.h Normal file
View File

@@ -0,0 +1,32 @@
#pragma once
#include "../../std.h"
#include "../../string/str.h"
typedef struct Rect {
i32 x, y;
i32 w, h;
} Rect;
#define Rect_create(X, Y, W, H) ((Rect){ .x = X, .y = Y, .w = W, .h = H})
typedef struct ColorRGBA {
u8 r, g, b, a;
} ColorRGBA;
#define ColorRGBA_create(R, G, B, A) ((ColorRGBA){ .r = R, .g = G, .b = B, .a = A })
typedef enum DisplayFlags {
DisplayFlags_Default = 0
} DisplayFlags;
typedef struct Display Display;
Display* Display_create(str name, i32 w, i32 h, DisplayFlags flags);
void Display_destroy(Display* d);
bool Display_setName(Display* d, str name);
bool Display_setSize(Display* d, u32 w, u32 h);
bool Display_setDrawingColor(Display* d, ColorRGBA color);
bool Display_clear(Display* d);
bool Display_fillRect(Display* d, Rect rect);
bool Display_swapBuffers(Display* d);
NULLABLE(cstr) Display_getError();

View File

@@ -50,7 +50,7 @@ i32 VM_boot(VM* vm){
u8 opcode = vm->data[vm->current_pos];
const Instruction* instr = Instruction_getByOpcode(opcode);
// printfe("[at 0x%x] %02X %s\n", (u32)vm->current_pos, opcode, instr->name);
// printfe("[at 0x%x] %02X %s\n", (u32)vm->current_pos, opcode, instr->name.data);
if(instr == NULL){
VM_setError(vm, "unknown opcode %02X", opcode);
return -1;
@@ -60,7 +60,7 @@ i32 VM_boot(VM* vm){
i32 bytes_read = instr->implementation(vm);
// internal error occured
if(bytes_read < 0)
return -1;
return bytes_read;
if(vm->state == VMState_Exited)
break;
@@ -72,7 +72,7 @@ i32 VM_boot(VM* vm){
}
// exit code of the program should be in ax register
return vm->ax.i32v;
return vm->registers.a.ex;
}
bool VM_dataRead(VM* vm, void* dst, size_t pos, size_t size){
@@ -84,6 +84,25 @@ bool VM_dataRead(VM* vm, void* dst, size_t pos, size_t size){
return false;
}
memcpy(dst, vm->data + pos, size);
void* addr = vm->data + pos;
memcpy(dst, addr, size);
return true;
}
void VM_registerRead(VM* vm, void* dst, RegisterCode code) {
u8 index = code / 0x10;
u8 part = code & 0xf;
u8 offset = part / 8;
u8 size = 8 / part;
void* addr = (u8*)(&vm->registers.array[index]) + offset;
memcpy(dst, addr, size);
}
void VM_registerWrite(VM* vm, void* src, RegisterCode code){
u8 index = code / 0x10;
u8 part = code & 0xf;
u8 offset = part / 8;
u8 size = 8 / part;
void* addr = (u8*)(&vm->registers.array[index]) + offset;
memcpy(addr, src, size);
}

View File

@@ -1,30 +1,15 @@
#pragma once
#include "../std.h"
#include "../string/str.h"
#include "../instructions/registers.h"
typedef union Register {
u32 u32v;
i32 i32v;
f32 f32v;
u64 rx;
u32 ex;
u16 x;
struct {
u16 u16v0;
u16 u16v1;
};
struct {
i16 i16v0;
i16 i16v1;
};
struct {
u8 u8v0;
u8 u8v1;
u8 u8v2;
u8 u8v3;
};
struct {
i8 i8v0;
i8 i8v1;
i8 i8v2;
i8 i8v3;
u8 l;
u8 h;
};
} Register;
@@ -38,13 +23,17 @@ typedef enum VMState {
typedef struct VM {
union {
struct {
Register ax;
Register bx;
Register cx;
Register dx;
Register a;
Register b;
Register c;
Register d;
};
Register registers[4];
};
Register array[4];
} registers;
struct {
bool cmp; // result of comparison operation
} flags;
VMState state;
char* NULLABLE(error_message); // not null on if state == VMState_InternalError
@@ -66,6 +55,8 @@ bool VM_setMemory(VM* vm, u8* data, size_t size);
i32 VM_boot(VM* vm);
bool VM_dataRead(VM* vm, void* dst, size_t pos, size_t size);
void VM_registerRead(VM* vm, void* dst, RegisterCode code);
void VM_registerWrite(VM* vm, void* src, RegisterCode code);
#define VM_setError(vm, format, ...) _VM_setError(vm, __func__, format ,##__VA_ARGS__)
void _VM_setError(VM* vm, cstr context, cstr format, ...) __attribute__((__format__(__printf__, 3, 4)));

18
src/VM/time.c Normal file
View File

@@ -0,0 +1,18 @@
#include <SDL3/SDL_timer.h>
#include "time.h"
void time_sleepMS(u32 ms){
SDL_Delay(ms);
}
void time_sleepNS(u64 ns){
SDL_DelayNS(ns);
}
u64 time_getMonotonicMS(){
return SDL_GetTicks();
}
u64 time_getMonotonicNS(){
return SDL_GetTicksNS();
}

8
src/VM/time.h Normal file
View File

@@ -0,0 +1,8 @@
#pragma once
#include "../std.h"
void time_sleepMS(u32 ms);
void time_sleepNS(u64 ns);
u64 time_getMonotonicMS();
u64 time_getMonotonicNS();

View File

@@ -27,6 +27,8 @@ void BinaryObject_construct(BinaryObject* ptr){
ptr->section_list = List_CompiledSection_alloc(64);
HashMap_CompiledSectionPtr_alloc(&ptr->section_map);
HashMap_ConstDataProps_alloc(&ptr->const_data_map);
ptr->main_section = NULL;
ptr->total_size = 0;
}
void BinaryObject_free(BinaryObject* ptr){

View File

@@ -57,6 +57,7 @@ HashMap_declare(CompiledSectionPtr);
typedef struct BinaryObject {
List_CompiledSection section_list;
HashMap_CompiledSectionPtr section_map;
NULLABLE(CompiledSection*) main_section;
HashMap_ConstDataProps const_data_map;
u32 total_size;
} BinaryObject;

View File

@@ -68,7 +68,7 @@ static bool compileSection(Compiler* cmp, Section* sec){
CompiledSection* cs = List_CompiledSection_expand(&cmp->binary.section_list, 1);
CompiledSection_construct(cs, sec->name);
if(!HashMap_CompiledSectionPtr_tryPush(&cmp->binary.section_map, cs->name, cs)){
returnError("duplicate section '%s'", str_copy(sec->name));
returnError("duplicate section '%s'", str_copy(sec->name).data);
}
// compile code
@@ -90,22 +90,21 @@ static bool compileSection(Compiler* cmp, Section* sec){
List_u8_push(&cs->bytes, arg->value.register_code);
break;
case ArgumentType_ConstValue:
//TODO: add const value size parsing
List_u8_pushMany(&cs->bytes, (void*)&arg->value.i, 4);
List_u8_pushMany(&cs->bytes, (void*)&arg->value.i, 8);
break;
case ArgumentType_ConstDataPointer:
List_NamedRef_push(&cs->named_refs, NamedRef_construct(
arg->value.data_name,
NamedRefType_Ptr,
cs->bytes.len));
List_u8_pushMany(&cs->bytes, zeroes, 4);
List_u8_pushMany(&cs->bytes, zeroes, 8);
break;
case ArgumentType_ConstDataSize:
List_NamedRef_push(&cs->named_refs, NamedRef_construct(
arg->value.data_name,
NamedRefType_Size,
cs->bytes.len));
List_u8_pushMany(&cs->bytes, zeroes, 4);
List_u8_pushMany(&cs->bytes, zeroes, 8);
break;
}
}
@@ -124,6 +123,9 @@ static bool compileSection(Compiler* cmp, Section* sec){
}
static bool compileBinary(Compiler* cmp){
returnErrorIf_auto(cmp->state != CompilerState_Parsing);
cmp->state = CompilerState_Compiling;
for(u32 i = 0; i < cmp->ast.sections.len; i++){
SectionPtr sec = &cmp->ast.sections.data[i];
if(!compileSection(cmp, sec)){
@@ -137,6 +139,7 @@ static bool compileBinary(Compiler* cmp){
if(main_sec_ptrptr == NULL){
returnError("no 'main' section was defined");
}
cmp->binary.main_section = *main_sec_ptrptr;
// create linked list of CompiledSection where main is the first
CompiledSection* prev_sec = *main_sec_ptrptr;
@@ -144,10 +147,10 @@ static bool compileBinary(Compiler* cmp){
for(u32 i = 0; i < cmp->binary.section_list.len; i++){
CompiledSection* sec = &cmp->binary.section_list.data[i];
total_size += sec->bytes.len;
if(str_equals(sec->name, main_sec_name))
continue;
prev_sec->next = sec;
sec->offset = prev_sec->offset + prev_sec->bytes.len;
bool is_main_sec = str_equals(sec->name, main_sec_name);
if(!is_main_sec){
sec->offset = prev_sec->offset + prev_sec->bytes.len;
}
ConstDataProps cd = ConstDataProps_construct(sec->name, sec->bytes.len, sec->offset);
if(!HashMap_ConstDataProps_tryPush(&cmp->binary.const_data_map, cd.name, cd)){
@@ -160,6 +163,11 @@ static bool compileBinary(Compiler* cmp){
returnError("duplicate named data '%s'", str_copy(cd.name).data);
}
}
if(is_main_sec)
continue;
prev_sec->next = sec;
prev_sec = sec;
}
// insert calculated offsets into sections
@@ -174,16 +182,15 @@ static bool compileBinary(Compiler* cmp){
returnError("can't find named data '%s'", str_copy(ref->name).data);
}
void* ref_value_ptr = sec->bytes.data + ref->offset;
u64* ref_value_ptr = (void*)(sec->bytes.data + ref->offset);
switch(ref->type){
default:
returnError("invalid NamedRefType %i", ref->type);
case NamedRefType_Size:
*((u32*)ref_value_ptr) = target_data->size;
*ref_value_ptr = target_data->size;
break;
case NamedRefType_Ptr:
*((u32*)ref_value_ptr) = target_data->offset;
*ref_value_ptr = target_data->offset;
break;
}
}
@@ -194,26 +201,16 @@ static bool compileBinary(Compiler* cmp){
}
static bool writeBinaryFile(Compiler* cmp, FILE* f){
returnErrorIf_auto(cmp->state != CompilerState_Parsing);
cmp->state = CompilerState_Compiling;
returnErrorIf_auto(cmp->state != CompilerState_Compiling);
if(!compileBinary(cmp)){
return false;
}
CompiledSection** main_sec_ptrptr = HashMap_CompiledSectionPtr_tryGetPtr(&cmp->binary.section_map, STR("main"));
if(main_sec_ptrptr == NULL){
returnError("no 'main' section was defined");
}
CompiledSection* sec = *main_sec_ptrptr;
CompiledSection* sec = cmp->binary.main_section;
while(sec){
fwrite(sec->bytes.data, 1, sec->bytes.len, f);
fflush(f);
sec = sec->next;
}
//TODO: print warnings for unused sections
return true;
}
@@ -289,6 +286,7 @@ bool Compiler_compile(Compiler* cmp, cstr source_file_name, cstr out_file_name,
if(debug_log)
printf("===================================[parsing]===================================\n");
success = Compiler_parse(cmp);
if (debug_log){
printf("-------------------------------------[AST]-------------------------------------\n");
for(u32 i = 0; i < cmp->ast.sections.len; i++){
@@ -308,6 +306,11 @@ bool Compiler_compile(Compiler* cmp, cstr source_file_name, cstr out_file_name,
for(u32 j = 0; j < sec->code.len; j++){
Operation* op = &sec->code.data[j];
const Instruction* instr = Instruction_getByOpcode(op->opcode);
if(instr == NULL){
fclose(f);
returnError("unknown opcode: %i", op->opcode)
}
printf(" %s", instr->name.data);
for(u32 k = 0; k < op->args.len; k++){
Argument* arg = &op->args.data[k];
@@ -318,8 +321,9 @@ bool Compiler_compile(Compiler* cmp, cstr source_file_name, cstr out_file_name,
fclose(f);
returnError("invalid argument type %i", arg->type);
case ArgumentType_Register:
const char* register_names[] = {"null", "ax", "bx", "cx", "dx"};
printf("%s", register_names[arg->value.register_code]);
str register_name = RegisterCode_toString(arg->value.register_code);
printf("%s 0x%x", register_name.data, arg->value.register_code);
free(register_name.data);
break;
case ArgumentType_ConstValue:
printf(IFWIN("%lli", "%li"), arg->value.i);
@@ -348,6 +352,7 @@ bool Compiler_compile(Compiler* cmp, cstr source_file_name, cstr out_file_name,
}
}
}
if(!success){
fclose(f);
return false;
@@ -355,6 +360,25 @@ bool Compiler_compile(Compiler* cmp, cstr source_file_name, cstr out_file_name,
if(debug_log)
printf("==================================[compiling]==================================\n");
success = compileBinary(cmp);
if(debug_log){
for(u32 i = 0; i < cmp->binary.section_list.len; i++){
CompiledSection* sec = &cmp->binary.section_list.data[i];
str tmpstr = str_copy(sec->name);
printf("compiled section '%s' to %u bytes with offset 0x%x\n", tmpstr.data, sec->bytes.len, sec->offset);
free(tmpstr.data);
}
}
if(!success){
fclose(f);
return false;
}
if(debug_log)
printf("----------------------------[writing output to file]---------------------------\n");
success = writeBinaryFile(cmp, f);
fclose(f);
if(success){

View File

@@ -130,7 +130,7 @@ static void readArguments(Compiler* cmp){
// string argument reading
if(quot != '\0'){
if(c == quot && cmp->code.data[cmp->pos - 1] != '\\'){
if(c == quot && (cmp->code.data[cmp->pos - 1] != '\\' || cmp->code.data[cmp->pos - 2] == '\\')){
quot = '\0';
}
else if(c == '\r' || c == '\n'){

View File

@@ -44,7 +44,8 @@ static NULLABLE(str) resolveEscapeSequences(Compiler* cmp, str src){
c = src.data[i];
if(c == '\\'){
escaped = !escaped;
continue;
if(escaped)
continue;
}
if(!escaped){
@@ -69,11 +70,17 @@ static NULLABLE(str) resolveEscapeSequences(Compiler* cmp, str src){
case 'e':
StringBuilder_append_char(&sb, '\e');
break;
case '"':
case '\'':
StringBuilder_append_char(&sb, c);
break;
default:
setError_unexpectedTokenChar(cmp->tokens.data[cmp->tok_i], i);
StringBuilder_free(&sb);
return str_null;
}
escaped = false;
}
return StringBuilder_getStr(&sb);
@@ -259,10 +266,12 @@ bool Compiler_parse(Compiler* cmp){
// data definition starts with const
if(str_startsWith(instr_name, STR("const"))){
DataDefinition* dataDefPtr = List_DataDefinition_expand(&sec->data, 1);
memset(dataDefPtr, 0, sizeof(DataDefinition));
parseDataDefinition(cmp, instr_name, dataDefPtr);
}
else {
Operation* operPtr = List_Operation_expand(&sec->code, 1);
memset(operPtr, 0, sizeof(Operation));
parseOperation(cmp, instr_name, operPtr);
}
break;

View File

@@ -0,0 +1,36 @@
#include "impl_macros.h"
// JUMP [destination address]
i32 JMP_impl(VM* vm){
u64 dst_addr = 0;
readVar(dst_addr);
vm->current_pos = dst_addr;
return sizeof(dst_addr);
}
// JNZ [destination address]
i32 JNZ_impl(VM* vm){
u64 dst_addr = 0;
readVar(dst_addr);
if(vm->flags.cmp != 0){
vm->current_pos = dst_addr;
}
return sizeof(dst_addr);
}
// JZ [destination address]
i32 JZ_impl(VM* vm){
u64 dst_addr = 0;
readVar(dst_addr);
if(vm->flags.cmp == 0){
vm->current_pos = dst_addr;
}
return sizeof(dst_addr);
}

View File

@@ -1,16 +0,0 @@
#include "impl_macros.h"
/// MOV [dst_register] [src_register]
i32 MOV_impl(VM* vm){
u8 dst_register_i = 0;
readRegisterVar(dst_register_i);
u8 src_register_i = 0;
readRegisterVar(src_register_i);
if(dst_register_i == src_register_i){
VM_setError(vm, "dst_register_i == src_register_i (%x) ", src_register_i);
return -1;
}
vm->registers[dst_register_i].u32v = vm->registers[src_register_i].u32v;
return sizeof(dst_register_i) + sizeof(src_register_i);
}

View File

@@ -0,0 +1,12 @@
#include "impl_macros.h"
/// MOVC [dst_register] [value_size] [value]
i32 MOVC_impl(VM* vm){
RegisterCode dst_reg_code = 0;
readRegisterCode(dst_reg_code);
u64 const_value = 0;
readVar(const_value);
VM_registerWrite(vm, &const_value, dst_reg_code);
return sizeof(dst_reg_code) + sizeof(const_value);
}

View File

@@ -0,0 +1,17 @@
#include "impl_macros.h"
/// MOVR [dst_register] [src_register]
i32 MOVR_impl(VM* vm){
RegisterCode dst_reg_code = 0, src_reg_code = 0;
readRegisterCode(dst_reg_code);
readRegisterCode(src_reg_code);
if(dst_reg_code == src_reg_code){
VM_setError(vm, "dst_reg_code == src_reg_code (%x) ", src_reg_code);
return -1;
}
u64 src_reg_value = 0;
VM_registerRead(vm, &src_reg_value, src_reg_code);
VM_registerWrite(vm, &src_reg_value, dst_reg_code);
return sizeof(dst_reg_code) + sizeof(src_reg_code);
}

View File

@@ -1,17 +0,0 @@
#include "impl_macros.h"
/// PUSH [dst_register] [value_size] [value]
i32 PUSH_impl(VM* vm){
u8 dst_register_i = 0;
readRegisterVar(dst_register_i);
/*u8 value_size = 0;
readValueSizeVar(value_size);*/
u8 value_size = 4;\
vm->registers[dst_register_i].u32v = 0;
if(!VM_dataRead(vm, &vm->registers[dst_register_i].u32v, vm->current_pos, value_size))
return -1;
vm->current_pos += value_size;
return sizeof(dst_register_i) + sizeof(value_size) + value_size;
}

View File

@@ -1,6 +1,6 @@
#include "impl_macros.h"
FILE* NULLABLE(fileFromN)(VM* vm, u32 file_n){
FILE* NULLABLE(fileFromN)(VM* vm, u8 file_n){
FILE* f = NULL;
switch(file_n){
case 0: f = stdin; break;
@@ -15,13 +15,13 @@ FILE* NULLABLE(fileFromN)(VM* vm, u32 file_n){
}
// sys_read
// bx - file n
// cx - buffer ptr
// dx - buffer size
// ah - file n
// rbx - buffer ptr
// ecx - buffer size
i32 SYS_read(VM* vm){
const u32 file_n = vm->bx.u32v;
u8* const buf = vm->data + vm->cx.u32v;
const u32 size = vm->dx.u32v;
const u8 file_n = vm->registers.a.h;
u8* const buf = vm->data + vm->registers.b.rx;
const u32 size = vm->registers.c.ex;
if(buf + size > vm->data + vm->data_size)
return 40;
@@ -31,13 +31,13 @@ i32 SYS_read(VM* vm){
}
// sys_write
// bx - file n
// cx - buffer ptr
// dx - buffer size
// ah - file n
// rbx - buffer ptr
// ecx - buffer size
i32 SYS_write(VM* vm){
const u32 file_n = vm->bx.u32v;
u8* const buf = vm->data + vm->cx.u32v;
const u32 size = vm->dx.u32v;
const u8 file_n = vm->registers.a.h;
u8* const buf = vm->data + vm->registers.b.rx;
const u32 size = vm->registers.c.ex;
if(buf + size > vm->data + vm->data_size)
return 41;
@@ -47,16 +47,16 @@ i32 SYS_write(VM* vm){
}
/// SYS
/// before call: ax - func code
/// after call: ax - result code
/// before call: al - func code
/// after call: eax - result code
i32 SYS_impl(VM* vm){
u8 func_code = vm->ax.u8v0;
u32 result_code = 0;
u8 func_code = vm->registers.a.l;
i32 result_code = 0;
switch(func_code){
case 0:
result_code = SYS_read(vm);
break;
case 1:;
case 1:
result_code = SYS_write(vm);
break;
default:
@@ -64,6 +64,6 @@ i32 SYS_impl(VM* vm){
return -1;
}
vm->ax.u32v = result_code;
vm->registers.a.ex = result_code;
return 0;
}

View File

@@ -8,29 +8,52 @@
vm->current_pos += sizeof(VAR);\
}
#define validateRegisterIndex(VAR) {\
if(VAR> sizeof(vm->registers)){\
#define validateRegisterCode(VAR) \
if(VAR == RegisterCode_Unset || VAR > RegisterCode_dh){\
VM_setError(vm, "invalid register index (%x)", VAR);\
return -1;\
}\
}
}
#define readRegisterVar(VAR) {\
#define readRegisterCode(VAR) {\
readVar(VAR);\
VAR -= 1;\
validateRegisterIndex(VAR);\
validateRegisterCode(VAR);\
}
/*
#define validateValueSize(VAR) {\
if(VAR < 1 || VAR > 4){\
VM_setError(vm, "invalid value_size (%x)", VAR);\
return -1;\
}\
#define OPERATOR_IMPL_1(NAME, OPERATOR)\
i32 NAME##_impl (VM* vm) {\
RegisterCode dst_reg_code = 0;\
readRegisterCode(dst_reg_code);\
u64 dst_reg_value = 0;\
VM_registerRead(vm, &dst_reg_value, dst_reg_code);\
\
dst_reg_value = OPERATOR dst_reg_value;\
VM_registerWrite(vm, &dst_reg_value, dst_reg_code);\
return sizeof(dst_reg_code);\
}
#define readValueSizeVar(VAR) {\
readVar(VAR);\
validateValueSize(VAR);\
#define OPERATOR_IMPL_2(NAME, OPERATOR)\
i32 NAME##_impl (VM* vm) {\
RegisterCode dst_reg_code = 0, src_reg_code = 0;\
readRegisterCode(dst_reg_code);\
readRegisterCode(src_reg_code);\
u64 dst_reg_value = 0, src_reg_value = 0;\
VM_registerRead(vm, &dst_reg_value, dst_reg_code);\
VM_registerRead(vm, &src_reg_value, src_reg_code);\
\
dst_reg_value = dst_reg_value OPERATOR src_reg_value;\
VM_registerWrite(vm, &dst_reg_value, dst_reg_code);\
return sizeof(dst_reg_code) + sizeof(src_reg_code);\
}
#define OPERATOR_IMPL_CMP_FLAG(NAME, OPERATOR)\
i32 NAME##_impl (VM* vm) {\
RegisterCode src0_reg_code = 0, src1_reg_code = 0;\
readRegisterCode(src0_reg_code);\
readRegisterCode(src1_reg_code);\
u64 src0_reg_value = 0, src1_reg_value = 0;\
VM_registerRead(vm, &src0_reg_value, src0_reg_code);\
VM_registerRead(vm, &src1_reg_value, src1_reg_code);\
\
vm->flags.cmp = src0_reg_value OPERATOR src1_reg_value;\
return sizeof(src0_reg_code) + sizeof(src1_reg_code);\
}
*/

View File

@@ -0,0 +1,36 @@
#include "impl_macros.h"
/// NOT [dst_register]
OPERATOR_IMPL_1(NOT, !)
/// INV [dst_register]
OPERATOR_IMPL_1(INV, ~)
/// OR [dst_register] [src_register]
OPERATOR_IMPL_2(OR, |)
/// XOR [dst_register] [src_register]
OPERATOR_IMPL_2(XOR, ^)
/// AND [dst_register] [src_register]
OPERATOR_IMPL_2(AND, &)
/// EQ [src0_register] [src1_register]
OPERATOR_IMPL_CMP_FLAG(EQ, ==)
/// NE [src0_register] [src1_register]
OPERATOR_IMPL_CMP_FLAG(NE, !=)
/// LT [src0_register] [src1_register]
OPERATOR_IMPL_CMP_FLAG(LT, <)
/// LE [src0_register] [src1_register]
OPERATOR_IMPL_CMP_FLAG(LE, <=)
/// GT [src0_register] [src1_register]
OPERATOR_IMPL_CMP_FLAG(GT, >)
/// GE [src0_register] [src1_register]
OPERATOR_IMPL_CMP_FLAG(GE, >=)

View File

@@ -1,48 +1,16 @@
#include "impl_macros.h"
#define mathOperatorImpl(OPERATOR){\
u8 dst_register_i = 0, src_register_i = 0;\
readRegisterVar(dst_register_i);\
readRegisterVar(src_register_i);\
/*u8 value_size = 0;\
readValueSizeVar(value_size);*/\
u8 value_size = 4;\
\
switch(value_size){\
case 1: \
vm->registers[dst_register_i].u8v0 OPERATOR##= vm->registers[src_register_i].u8v0;\
break;\
case 2: \
vm->registers[dst_register_i].u16v0 OPERATOR##= vm->registers[src_register_i].u16v0;\
break;\
case 4: \
vm->registers[dst_register_i].u32v OPERATOR##= vm->registers[src_register_i].u32v;\
break;\
}\
return sizeof(dst_register_i) + sizeof(src_register_i) + sizeof(value_size);\
}
/// ADD [dst_register] [src_register]
i32 ADD_impl(VM* vm){
mathOperatorImpl(+);
}
OPERATOR_IMPL_2(ADD, +)
/// SUB [dst_register] [src_register]
i32 SUB_impl(VM* vm){
mathOperatorImpl(-);
}
OPERATOR_IMPL_2(SUB, -)
/// MUL [dst_register] [src_register]
i32 MUL_impl(VM* vm){
mathOperatorImpl(*)
}
OPERATOR_IMPL_2(MUL, *)
/// DIV [dst_register] [src_register]
i32 DIV_impl(VM* vm){
mathOperatorImpl(/)
}
OPERATOR_IMPL_2(DIV, /)
/// MOD [dst_register] [src_register]
i32 MOD_impl(VM* vm){
mathOperatorImpl(%)
}
OPERATOR_IMPL_2(MOD, %)

View File

@@ -2,32 +2,65 @@
#include "../collections/HashMap.h"
i32 NOP_impl(VM* vm);
i32 PUSH_impl(VM* vm);
i32 MOV_impl(VM* vm);
i32 EXIT_impl(VM* vm);
i32 SYS_impl(VM* vm);
i32 MOVC_impl(VM* vm);
i32 MOVR_impl(VM* vm);
i32 ADD_impl(VM* vm);
i32 SUB_impl(VM* vm);
i32 MUL_impl(VM* vm);
i32 DIV_impl(VM* vm);
i32 MOD_impl(VM* vm);
i32 SYS_impl(VM* vm);
i32 EXIT_impl(VM* vm);
i32 EQ_impl(VM* vm);
i32 NE_impl(VM* vm);
i32 LT_impl(VM* vm);
i32 LE_impl(VM* vm);
i32 GT_impl(VM* vm);
i32 GE_impl(VM* vm);
i32 NOT_impl(VM* vm);
i32 INV_impl(VM* vm);
i32 OR_impl(VM* vm);
i32 XOR_impl(VM* vm);
i32 AND_impl(VM* vm);
i32 JMP_impl(VM* vm);
i32 CALL_impl(VM* vm);
i32 JNZ_impl(VM* vm);
i32 JZ_impl(VM* vm);
Array_declare(Instruction);
static const Array_Instruction instructions_array = ARRAY(Instruction, {
Instruction_construct(NOP),
Instruction_construct(PUSH),
Instruction_construct(MOV),
Instruction_construct(EXIT),
Instruction_construct(SYS),
Instruction_construct(MOVC),
Instruction_construct(MOVR),
Instruction_construct(ADD),
Instruction_construct(SUB),
Instruction_construct(MUL),
Instruction_construct(DIV),
Instruction_construct(MOD),
Instruction_construct(SYS),
Instruction_construct(EXIT),
// Instruction_construct(JMP),
// Instruction_construct(CALL),
Instruction_construct(EQ),
Instruction_construct(NE),
Instruction_construct(LT),
Instruction_construct(LE),
Instruction_construct(GT),
Instruction_construct(GE),
Instruction_construct(NOT),
Instruction_construct(INV),
Instruction_construct(OR),
Instruction_construct(XOR),
Instruction_construct(AND),
Instruction_construct(JMP),
Instruction_construct(JNZ),
Instruction_construct(JZ),
});
const Instruction* Instruction_getByOpcode(Opcode opcode){

View File

@@ -7,15 +7,33 @@ typedef i32 (*InstructionImplFunc_t)(VM* vm);
typedef enum __attribute__((__packed__)) Opcode {
Opcode_NOP,
Opcode_PUSH,
Opcode_MOV,
Opcode_EXIT,
Opcode_SYS,
Opcode_MOVC,
Opcode_MOVR,
Opcode_ADD,
Opcode_SUB,
Opcode_MUL,
Opcode_DIV,
Opcode_MOD,
Opcode_SYS,
Opcode_EXIT,
Opcode_EQ,
Opcode_NE,
Opcode_LT,
Opcode_LE,
Opcode_GT,
Opcode_GE,
Opcode_NOT,
Opcode_INV,
Opcode_OR,
Opcode_XOR,
Opcode_AND,
Opcode_JMP,
Opcode_JNZ,
Opcode_JZ,
} Opcode;
typedef struct Instruction {

View File

@@ -1,13 +1,76 @@
#include "registers.h"
#define check_code(R) if(str_equals(lower, STR(#R))) code = RegisterCode_##R;
RegisterCode RegisterCode_parse(str r){
if(str_equals(r, STR("ax")))
return RegisterCode_ax;
if(str_equals(r, STR("bx")))
return RegisterCode_bx;
if(str_equals(r, STR("cx")))
return RegisterCode_cx;
if(str_equals(r, STR("dx")))
return RegisterCode_dx;
return RegisterCode_Unset;
str lower = str_toLower(r);
RegisterCode code = RegisterCode_Unset;
// a
check_code(rax)
else check_code(eax)
else check_code(ax)
else check_code(al)
else check_code(ah)
// b
else check_code(rbx)
else check_code(ebx)
else check_code(bx)
else check_code(bl)
else check_code(bh)
// c
else check_code(rcx)
else check_code(ecx)
else check_code(cx)
else check_code(cl)
else check_code(ch)
//d
else check_code(rdx)
else check_code(edx)
else check_code(dx)
else check_code(dl)
else check_code(dh)
free(lower.data);
return code;
}
str RegisterCode_toString(RegisterCode code){
char buf[3] = { '?', 'a', 'x' };
u8 index = code / 0x10;
switch(index){
default:
return str_copy(STR("!!! ERROR: invalid RegisterCode !!!"));
case 0:
case 1:
case 2:
case 3:
buf[1] += index;
break;
}
str buf_str = str_construct(buf, 3, false);
switch(code & 0xf){
default:
return str_copy(STR("!!! ERROR: invalid RegisterCode !!!"));
case 1:
buf_str.data[0] = 'r';
break;
case 2:
buf_str.data[0] = 'e';
break;
case 4:
buf_str.data += 1;
buf_str.len -= 1;
break;
case 7:
buf_str.data[0] = 'l';
buf_str.len -= 1;
break;
case 8:
buf_str.data[0] = 'h';
buf_str.len -= 1;
break;
}
return str_copy(buf_str);
}

View File

@@ -3,11 +3,33 @@
#include "../string/str.h"
typedef enum RegisterCode {
RegisterCode_Unset,
RegisterCode_ax,
RegisterCode_bx,
RegisterCode_cx,
RegisterCode_dx
} RegisterCode;
RegisterCode_Unset = 0,
RegisterCode_rax = 0x01,
RegisterCode_eax = 0x02,
RegisterCode_ax = 0x04,
RegisterCode_al = 0x07,
RegisterCode_ah = 0x08,
RegisterCode_rbx = 0x11,
RegisterCode_ebx = 0x12,
RegisterCode_bx = 0x14,
RegisterCode_bl = 0x17,
RegisterCode_bh = 0x18,
RegisterCode_rcx = 0x21,
RegisterCode_ecx = 0x22,
RegisterCode_cx = 0x24,
RegisterCode_cl = 0x27,
RegisterCode_ch = 0x28,
RegisterCode_rdx = 0x31,
RegisterCode_edx = 0x32,
RegisterCode_dx = 0x34,
RegisterCode_dl = 0x37,
RegisterCode_dh = 0x38,
} __attribute__((__packed__)) RegisterCode;
RegisterCode RegisterCode_parse(str register_name);
/// @return allocated string
str RegisterCode_toString(RegisterCode code);

View File

@@ -2,6 +2,8 @@
#include "instructions/instructions.h"
#include "collections/List.h"
#include "compiler/Compiler.h"
#include "VM/Display/Display.h"
#include <SDL3/SDL.h>
#define arg_is(STR) (strcmp(argv[argi], STR) == 0)

View File

@@ -8,6 +8,7 @@
#include <time.h>
#include <math.h>
#include <string.h>
#include <stdbool.h>
typedef int8_t i8;
typedef uint8_t u8;
@@ -20,10 +21,6 @@ typedef uint64_t u64;
typedef float f32;
typedef double f64;
typedef u8 bool;
#define true 1
#define false 0
typedef const char* cstr;
#if defined(_WIN64) || defined(_WIN32)