Added an example program fib.c
This is simply a program with an embedded set of instructions which indefinitely computes and prints fibonacci numbers, computing them in pairs. Does it completely through the virtual machine rather than just hard C instructions. Also amended the Makefile to compile it. Required moving the main.c object file into the dependencies of $(DIST)/$(OUT). I should track the dependencies for fib.c and main.c as well.
This commit is contained in:
13
Makefile
13
Makefile
@@ -13,9 +13,9 @@ OUT=ovm.out
|
|||||||
SRC=src
|
SRC=src
|
||||||
DIST=build
|
DIST=build
|
||||||
|
|
||||||
CODE=$(addprefix $(SRC)/, darr.c inst.c runtime.c main.c)
|
CODE=$(addprefix $(SRC)/, darr.c inst.c runtime.c)
|
||||||
OBJECTS=$(CODE:$(SRC)/%.c=$(DIST)/%.o)
|
OBJECTS=$(CODE:$(SRC)/%.c=$(DIST)/%.o)
|
||||||
DEPS=$(OBJECTS:%.o=%.d)
|
DEPS=$(OBJECTS:%.o=%.d) $(DIST)/fib.d $(DIST)/main.d
|
||||||
|
|
||||||
.PHONY: all
|
.PHONY: all
|
||||||
all: $(OUT) $(DIST)
|
all: $(OUT) $(DIST)
|
||||||
@@ -25,14 +25,19 @@ $(DIST):
|
|||||||
|
|
||||||
$(OUT): $(DIST)/$(OUT)
|
$(OUT): $(DIST)/$(OUT)
|
||||||
|
|
||||||
$(DIST)/$(OUT): $(DIST) $(OBJECTS)
|
$(DIST)/$(OUT): $(DIST) $(OBJECTS) $(DIST)/main.o
|
||||||
$(CC) $(CFLAGS) $(OBJECTS) -o $@ $(LIBS)
|
$(CC) $(CFLAGS) $(OBJECTS) $(DIST)/main.o -o $@ $(LIBS)
|
||||||
|
|
||||||
-include $(DEPS)
|
-include $(DEPS)
|
||||||
|
|
||||||
$(DIST)/%.o: $(SRC)/%.c
|
$(DIST)/%.o: $(SRC)/%.c
|
||||||
$(CC) $(CFLAGS) -MMD -c $< -o $@ $(LIBS)
|
$(CC) $(CFLAGS) -MMD -c $< -o $@ $(LIBS)
|
||||||
|
|
||||||
|
examples: $(DIST)/fib.out
|
||||||
|
|
||||||
|
$(DIST)/fib.out: $(DIST) $(OBJECTS) $(SRC)/fib.c
|
||||||
|
$(CC) $(CFLAGS) $(OBJECTS) $(SRC)/fib.c -o $@ $(LIBS)
|
||||||
|
|
||||||
.PHONY: run
|
.PHONY: run
|
||||||
run: $(DIST)/$(OUT)
|
run: $(DIST)/$(OUT)
|
||||||
./$^ $(ARGS)
|
./$^ $(ARGS)
|
||||||
|
|||||||
79
src/fib.c
Normal file
79
src/fib.c
Normal file
@@ -0,0 +1,79 @@
|
|||||||
|
/* Copyright (C) 2023 Aryadev Chavali
|
||||||
|
|
||||||
|
* You may distribute and modify this code under the terms of the GPLv2
|
||||||
|
* license. You should have received a copy of the GPLv2 license with
|
||||||
|
* this file. If not, please write to: aryadev@aryadevchavali.com.
|
||||||
|
|
||||||
|
* Created: 2023-10-23
|
||||||
|
* Author: Aryadev Chavali
|
||||||
|
* Description: An example virtual machine program which computes and
|
||||||
|
* prints fibonacci numbers. Note that by default the virtual machine
|
||||||
|
* just rolls overflows over, so this program will never terminate.
|
||||||
|
*/
|
||||||
|
|
||||||
|
#include <assert.h>
|
||||||
|
#include <stdio.h>
|
||||||
|
#include <string.h>
|
||||||
|
|
||||||
|
#include "./inst.h"
|
||||||
|
#include "./runtime.h"
|
||||||
|
|
||||||
|
int main(void)
|
||||||
|
{
|
||||||
|
inst_t instructions[] = {
|
||||||
|
// MOV the values 1 and 1 to REG[0] and REG[1] respectively
|
||||||
|
INST_PUSH(WORD, 1),
|
||||||
|
INST_MOV(WORD, 0),
|
||||||
|
INST_PUSH(WORD, 1),
|
||||||
|
INST_MOV(WORD, 1),
|
||||||
|
|
||||||
|
// Print value at register 0 with newline.
|
||||||
|
INST_PUSH_REG(WORD, 0), // <-- #
|
||||||
|
INST_PRINT(WORD),
|
||||||
|
INST_PUSH(BYTE, '\n'),
|
||||||
|
INST_PRINT(CHAR),
|
||||||
|
|
||||||
|
// Print value at register 1 with newline
|
||||||
|
INST_PUSH_REG(WORD, 1),
|
||||||
|
INST_PRINT(WORD),
|
||||||
|
INST_PUSH(BYTE, '\n'),
|
||||||
|
INST_PRINT(CHAR),
|
||||||
|
|
||||||
|
/* Compute the next pair of fibonacci numbers */
|
||||||
|
// REG[0] + REG[1]
|
||||||
|
INST_PUSH_REG(WORD, 0),
|
||||||
|
INST_PUSH_REG(WORD, 1),
|
||||||
|
INST_PLUS(WORD),
|
||||||
|
|
||||||
|
// Mov REG[0] + REG[1] to REG[0]
|
||||||
|
INST_MOV(WORD, 0),
|
||||||
|
|
||||||
|
// REG[0] + REG[1]
|
||||||
|
INST_PUSH_REG(WORD, 0),
|
||||||
|
INST_PUSH_REG(WORD, 1),
|
||||||
|
INST_PLUS(WORD),
|
||||||
|
|
||||||
|
// Mov REG[0] + REG[1] to REG[1]
|
||||||
|
INST_MOV(WORD, 1),
|
||||||
|
|
||||||
|
// Jump to the point #
|
||||||
|
INST_JUMP_ABS(4),
|
||||||
|
INST_HALT,
|
||||||
|
};
|
||||||
|
|
||||||
|
byte stack[256];
|
||||||
|
vm_t vm = {0};
|
||||||
|
vm_load_stack(&vm, stack, ARR_SIZE(stack));
|
||||||
|
vm_load_program(&vm, instructions, ARR_SIZE(instructions));
|
||||||
|
err_t err = vm_execute_all(&vm);
|
||||||
|
|
||||||
|
if (err)
|
||||||
|
{
|
||||||
|
const char *error_str = err_as_cstr(err);
|
||||||
|
fprintf(stderr, "[ERROR]: %s\n", error_str);
|
||||||
|
fprintf(stderr, "[ERROR]: VM Trace:\n");
|
||||||
|
vm_print_all(&vm, stderr);
|
||||||
|
return 255 - err;
|
||||||
|
}
|
||||||
|
return 0;
|
||||||
|
}
|
||||||
Reference in New Issue
Block a user