andrius
/
M2-Planet
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Add riscv64 port.

This commit is contained in:
Andrius Štikonas 2021-10-02 00:23:51 +01:00
parent 7fb9d682ec
commit ae48dbd6cb
10 changed files with 232 additions and 45 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
M2libc

@ -1 +1 @@
Subproject commit 103ee7a7c33deb02dfe7365f026f2197c161808c Subproject commit b58dbe11e6111489aca54c57a8bd1087a9d5db90

7
cc.c
View File

@ -64,7 +64,7 @@ int main(int argc, char** argv)
if(NULL == hold_string) if(NULL == hold_string)
{ {
hold_string = calloc(MAX_STRING + 4, sizeof(char)); hold_string = calloc(MAX_STRING + 4, sizeof(char));
require(NULL != hold_string, "Impossible Exhustion has occured\n"); require(NULL != hold_string, "Impossible Exhaustion has occured\n");
} }
name = argv[i + 1]; name = argv[i + 1];
@ -101,11 +101,12 @@ int main(int argc, char** argv)
else if(match("amd64", arch)) Architecture = AMD64; else if(match("amd64", arch)) Architecture = AMD64;
else if(match("armv7l", arch)) Architecture = ARMV7L; else if(match("armv7l", arch)) Architecture = ARMV7L;
else if(match("aarch64", arch)) Architecture = AARCH64; else if(match("aarch64", arch)) Architecture = AARCH64;
else if(match("riscv64", arch)) Architecture = RISCV64;
else else
{ {
fputs("Unknown architecture: ", stderr); fputs("Unknown architecture: ", stderr);
fputs(arch, stderr); fputs(arch, stderr);
fputs(" know values are: knight-native, knight-posix, x86, amd64, armv7l and aarch64", stderr); fputs(" know values are: knight-native, knight-posix, x86, amd64, armv7l, aarch64 and riscv64\n", stderr);
exit(EXIT_FAILURE); exit(EXIT_FAILURE);
} }
i = i + 2; i = i + 2;
@ -169,7 +170,7 @@ int main(int argc, char** argv)
if(stdin == in) if(stdin == in)
{ {
hold_string = calloc(MAX_STRING + 4, sizeof(char)); hold_string = calloc(MAX_STRING + 4, sizeof(char));
require(NULL != hold_string, "Impossible Exhustion has occured\n"); require(NULL != hold_string, "Impossible Exhaustion has occured\n");
global_token = read_all_tokens(in, global_token, "STDIN"); global_token = read_all_tokens(in, global_token, "STDIN");
} }

2
cc.h
View File

@ -37,6 +37,8 @@
#define ARMV7L 4 #define ARMV7L 4
// CONSTANT AARCH64 5 // CONSTANT AARCH64 5
#define AARCH64 5 #define AARCH64 5
// CONSTANT RISCV64 6
#define RISCV64 6
void copy_string(char* target, char* source, int max); void copy_string(char* target, char* source, int max);

224
cc_core.c
View File

@ -52,7 +52,7 @@ struct type* add_primitive(struct type* a);
struct token_list* emit(char *s, struct token_list* head) struct token_list* emit(char *s, struct token_list* head)
{ {
struct token_list* t = calloc(1, sizeof(struct token_list)); struct token_list* t = calloc(1, sizeof(struct token_list));
require(NULL != t, "Exhusted memory while generating token to emit\n"); require(NULL != t, "Exhausted memory while generating token to emit\n");
t->next = head; t->next = head;
t->s = s; t->s = s;
return t; return t;
@ -77,7 +77,7 @@ void uniqueID_out(char* s, char* num)
struct token_list* sym_declare(char *s, struct type* t, struct token_list* list) struct token_list* sym_declare(char *s, struct type* t, struct token_list* list)
{ {
struct token_list* a = calloc(1, sizeof(struct token_list)); struct token_list* a = calloc(1, sizeof(struct token_list));
require(NULL != a, "Exhusted memory while attempting to declare a symbol\n"); require(NULL != a, "Exhausted memory while attempting to declare a symbol\n");
a->next = list; a->next = list;
a->s = s; a->s = s;
a->type = t; a->type = t;
@ -169,28 +169,38 @@ void function_call(char* s, int bool)
emit_out("PUSH_BP\t# Protect the old base pointer\n"); emit_out("PUSH_BP\t# Protect the old base pointer\n");
emit_out("SET_X16_FROM_SP\t# The base pointer to-be\n"); emit_out("SET_X16_FROM_SP\t# The base pointer to-be\n");
} }
else if(RISCV64 == Architecture)
{
emit_out("RD_SP RS1_SP !-24 ADDI\t# Allocate stack\n");
emit_out("RS1_SP RS2_RA @8 SD\t# Protect the old return pointer\n");
emit_out("RS1_SP RS2_FP SD\t# Protect the old frame pointer\n");
emit_out("RS1_SP RS2_TP @16 SD\t# Protect temp register we are going to use\n");
emit_out("RD_TP RS1_SP MV\t# The base pointer to-be\n");
}
if(global_token->s[0] != ')') if(global_token->s[0] != ')')
{ {
expression(); expression();
require(NULL != global_token, "incomplete function call, recieved EOF instead of )\n"); require(NULL != global_token, "incomplete function call, received EOF instead of )\n");
if((KNIGHT_POSIX == Architecture) || (KNIGHT_NATIVE == Architecture)) emit_out("PUSHR R0 R15\t#_process_expression1\n"); if((KNIGHT_POSIX == Architecture) || (KNIGHT_NATIVE == Architecture)) emit_out("PUSHR R0 R15\t#_process_expression1\n");
else if(X86 == Architecture) emit_out("PUSH_eax\t#_process_expression1\n"); else if(X86 == Architecture) emit_out("PUSH_eax\t#_process_expression1\n");
else if(AMD64 == Architecture) emit_out("PUSH_RAX\t#_process_expression1\n"); else if(AMD64 == Architecture) emit_out("PUSH_RAX\t#_process_expression1\n");
else if(ARMV7L == Architecture) emit_out("{R0} PUSH_ALWAYS\t#_process_expression1\n"); else if(ARMV7L == Architecture) emit_out("{R0} PUSH_ALWAYS\t#_process_expression1\n");
else if(AARCH64 == Architecture) emit_out("PUSH_X0\t#_process_expression1\n"); else if(AARCH64 == Architecture) emit_out("PUSH_X0\t#_process_expression1\n");
else if(RISCV64 == Architecture) emit_out("RD_SP RS1_SP !-8 ADDI\nRS1_SP RS2_A0 SD\t#_process_expression1\n");
passed = 1; passed = 1;
while(global_token->s[0] == ',') while(global_token->s[0] == ',')
{ {
global_token = global_token->next; global_token = global_token->next;
require(NULL != global_token, "incomplete function call, recieved EOF instead of argument\n"); require(NULL != global_token, "incomplete function call, received EOF instead of argument\n");
expression(); expression();
if((KNIGHT_POSIX == Architecture) || (KNIGHT_NATIVE == Architecture)) emit_out("PUSHR R0 R15\t#_process_expression2\n"); if((KNIGHT_POSIX == Architecture) || (KNIGHT_NATIVE == Architecture)) emit_out("PUSHR R0 R15\t#_process_expression2\n");
else if(X86 == Architecture) emit_out("PUSH_eax\t#_process_expression2\n"); else if(X86 == Architecture) emit_out("PUSH_eax\t#_process_expression2\n");
else if(AMD64 == Architecture) emit_out("PUSH_RAX\t#_process_expression2\n"); else if(AMD64 == Architecture) emit_out("PUSH_RAX\t#_process_expression2\n");
else if(ARMV7L == Architecture) emit_out("{R0} PUSH_ALWAYS\t#_process_expression2\n"); else if(ARMV7L == Architecture) emit_out("{R0} PUSH_ALWAYS\t#_process_expression2\n");
else if(AARCH64 == Architecture) emit_out("PUSH_X0\t#_process_expression2\n"); else if(AARCH64 == Architecture) emit_out("PUSH_X0\t#_process_expression2\n");
else if(RISCV64 == Architecture) emit_out("RD_SP RS1_SP !-8 ADDI\nRS1_SP RS2_A0 SD\t#_process_expression2\n");
passed = passed + 1; passed = passed + 1;
} }
} }
@ -244,6 +254,15 @@ void function_call(char* s, int bool)
emit_out("SET_X16_FROM_X0\n"); emit_out("SET_X16_FROM_X0\n");
emit_out("BLR_X16\n"); emit_out("BLR_X16\n");
} }
else if(RISCV64 == Architecture)
{
emit_out("RD_A0 RS1_FP !-");
emit_out(s);
emit_out(" ADDI\n");
emit_out("RD_A0 RS1_A0 LD\n");
emit_out("RD_FP RS1_TP MV\n");
emit_out("RD_RA RS1_A0 JALR\n");
}
} }
else else
{ {
@ -285,6 +304,13 @@ void function_call(char* s, int bool)
emit_out("\n"); emit_out("\n");
emit_out("BLR_X16\n"); emit_out("BLR_X16\n");
} }
else if(RISCV64 == Architecture)
{
emit_out("RD_FP RS1_TP MV\n");
emit_out("RD_RA $FUNCTION_");
emit_out(s);
emit_out(" JAL\n");
}
} }
for(; passed > 0; passed = passed - 1) for(; passed > 0; passed = passed - 1)
@ -294,6 +320,7 @@ void function_call(char* s, int bool)
else if(AMD64 == Architecture) emit_out("POP_RBX\t# _process_expression_locals\n"); else if(AMD64 == Architecture) emit_out("POP_RBX\t# _process_expression_locals\n");
else if(ARMV7L == Architecture) emit_out("{R1} POP_ALWAYS\t# _process_expression_locals\n"); else if(ARMV7L == Architecture) emit_out("{R1} POP_ALWAYS\t# _process_expression_locals\n");
else if(AARCH64 == Architecture) emit_out("POP_X1\t# _process_expression_locals\n"); else if(AARCH64 == Architecture) emit_out("POP_X1\t# _process_expression_locals\n");
else if(RISCV64 == Architecture) emit_out("RD_A1 RS1_SP LD\t# _process_expression_locals\nRD_SP RS1_SP !8 ADDI\n");
} }
if((KNIGHT_POSIX == Architecture) || (KNIGHT_NATIVE == Architecture)) if((KNIGHT_POSIX == Architecture) || (KNIGHT_NATIVE == Architecture))
@ -322,6 +349,14 @@ void function_call(char* s, int bool)
emit_out("POP_LR\t# Restore the old return pointer (link)\n"); emit_out("POP_LR\t# Restore the old return pointer (link)\n");
emit_out("POP_X16\t# Restore a register we used as tmp\n"); emit_out("POP_X16\t# Restore a register we used as tmp\n");
} }
else if(RISCV64 == Architecture)
{
emit_out("RD_FP RS1_SP LD\t# Restore old frame pointer\n");
emit_out("RD_TP RS1_SP !16 LD\t# Restore temp register\n");
emit_out("RD_RA RS1_SP !8 LD\t# Restore return address\n");
emit_out("RD_SP RS1_SP !24 ADDI\t# Deallocate stack\n");
}
} }
void constant_load(struct token_list* a) void constant_load(struct token_list* a)
@ -331,13 +366,19 @@ void constant_load(struct token_list* a)
else if(AMD64 == Architecture) emit_out("LOAD_IMMEDIATE_rax %"); else if(AMD64 == Architecture) emit_out("LOAD_IMMEDIATE_rax %");
else if(ARMV7L == Architecture) emit_out("!0 R0 LOAD32 R15 MEMORY\n~0 JUMP_ALWAYS\n%"); else if(ARMV7L == Architecture) emit_out("!0 R0 LOAD32 R15 MEMORY\n~0 JUMP_ALWAYS\n%");
else if(AARCH64 == Architecture) emit_out("LOAD_W0_AHEAD\nSKIP_32_DATA\n%"); else if(AARCH64 == Architecture) emit_out("LOAD_W0_AHEAD\nSKIP_32_DATA\n%");
else if(RISCV64 == Architecture) {
emit_out("RD_A0 ~");
emit_out(a->arguments->s);
emit_out(" LUI\nRD_A0 RS1_A0 !");
}
emit_out(a->arguments->s); emit_out(a->arguments->s);
if(RISCV64 == Architecture) emit_out(" ADDIW\n");
emit_out("\n"); emit_out("\n");
} }
void variable_load(struct token_list* a) void variable_load(struct token_list* a)
{ {
require(NULL != global_token, "incomplete variable load recieved\n"); require(NULL != global_token, "incomplete variable load received\n");
if((match("FUNCTION", a->type->name) || match("FUNCTION*", a->type->name)) && match("(", global_token->s)) if((match("FUNCTION", a->type->name) || match("FUNCTION*", a->type->name)) && match("(", global_token->s))
{ {
function_call(int2str(a->depth, 10, TRUE), TRUE); function_call(int2str(a->depth, 10, TRUE), TRUE);
@ -350,10 +391,12 @@ void variable_load(struct token_list* a)
else if(AMD64 == Architecture) emit_out("LOAD_BASE_ADDRESS_rax %"); else if(AMD64 == Architecture) emit_out("LOAD_BASE_ADDRESS_rax %");
else if(ARMV7L == Architecture) emit_out("!"); else if(ARMV7L == Architecture) emit_out("!");
else if(AARCH64 == Architecture) emit_out("SET_X0_FROM_BP\nLOAD_W1_AHEAD\nSKIP_32_DATA\n%"); else if(AARCH64 == Architecture) emit_out("SET_X0_FROM_BP\nLOAD_W1_AHEAD\nSKIP_32_DATA\n%");
else if(RISCV64 == Architecture) emit_out("RD_A0 RS1_FP !-");
emit_out(int2str(a->depth, 10, TRUE)); emit_out(int2str(a->depth, 10, TRUE));
if(ARMV7L == Architecture) emit_out(" R0 SUB BP ARITH_ALWAYS"); if(ARMV7L == Architecture) emit_out(" R0 SUB BP ARITH_ALWAYS");
else if(AARCH64 == Architecture) emit_out("\nSUB_X0_X0_X1\n"); else if(AARCH64 == Architecture) emit_out("\nSUB_X0_X0_X1\n");
else if(RISCV64 == Architecture) emit_out(" ADDI");
emit_out("\n"); emit_out("\n");
if(TRUE == Address_of) return; if(TRUE == Address_of) return;
@ -364,6 +407,7 @@ void variable_load(struct token_list* a)
else if(AMD64 == Architecture) emit_out("LOAD_INTEGER\n"); else if(AMD64 == Architecture) emit_out("LOAD_INTEGER\n");
else if(ARMV7L == Architecture) emit_out("!0 R0 LOAD32 R0 MEMORY\n"); else if(ARMV7L == Architecture) emit_out("!0 R0 LOAD32 R0 MEMORY\n");
else if(AARCH64 == Architecture) emit_out("DEREF_X0\n"); else if(AARCH64 == Architecture) emit_out("DEREF_X0\n");
else if(RISCV64 == Architecture) emit_out("RD_A0 RS1_A0 LD\n");
} }
void function_load(struct token_list* a) void function_load(struct token_list* a)
@ -380,7 +424,14 @@ void function_load(struct token_list* a)
else if(AMD64 == Architecture) emit_out("LOAD_IMMEDIATE_rax &FUNCTION_"); else if(AMD64 == Architecture) emit_out("LOAD_IMMEDIATE_rax &FUNCTION_");
else if(ARMV7L == Architecture) emit_out("!0 R0 LOAD32 R15 MEMORY\n~0 JUMP_ALWAYS\n&FUNCTION_"); else if(ARMV7L == Architecture) emit_out("!0 R0 LOAD32 R15 MEMORY\n~0 JUMP_ALWAYS\n&FUNCTION_");
else if(AARCH64 == Architecture) emit_out("LOAD_W0_AHEAD\nSKIP_32_DATA\n&FUNCTION_"); else if(AARCH64 == Architecture) emit_out("LOAD_W0_AHEAD\nSKIP_32_DATA\n&FUNCTION_");
else if(RISCV64 == Architecture) emit_out("RD_A0 ~FUNCTION_");
emit_out(a->s); emit_out(a->s);
if(RISCV64 == Architecture) {
emit_out(" AUIPC\n");
emit_out("RD_A0 RS1_A0 !FUNCTION_");
emit_out(a->s);
emit_out(" ADDIW");
}
emit_out("\n"); emit_out("\n");
} }
@ -392,7 +443,14 @@ void global_load(struct token_list* a)
else if(AMD64 == Architecture) emit_out("LOAD_IMMEDIATE_rax &GLOBAL_"); else if(AMD64 == Architecture) emit_out("LOAD_IMMEDIATE_rax &GLOBAL_");
else if(ARMV7L == Architecture) emit_out("!0 R0 LOAD32 R15 MEMORY\n~0 JUMP_ALWAYS\n&GLOBAL_"); else if(ARMV7L == Architecture) emit_out("!0 R0 LOAD32 R15 MEMORY\n~0 JUMP_ALWAYS\n&GLOBAL_");
else if(AARCH64 == Architecture) emit_out("LOAD_W0_AHEAD\nSKIP_32_DATA\n&GLOBAL_"); else if(AARCH64 == Architecture) emit_out("LOAD_W0_AHEAD\nSKIP_32_DATA\n&GLOBAL_");
else if(RISCV64 == Architecture) emit_out("RD_A0 ~GLOBAL_");
emit_out(a->s); emit_out(a->s);
if(RISCV64 == Architecture) {
emit_out(" AUIPC\n");
emit_out("RD_A0 RS1_A0 !GLOBAL_");
emit_out(a->s);
emit_out(" ADDI");
}
emit_out("\n"); emit_out("\n");
require(NULL != global_token, "unterminated global load\n"); require(NULL != global_token, "unterminated global load\n");
@ -404,6 +462,7 @@ void global_load(struct token_list* a)
else if(AMD64 == Architecture) emit_out("LOAD_INTEGER\n"); else if(AMD64 == Architecture) emit_out("LOAD_INTEGER\n");
else if(ARMV7L == Architecture) emit_out("!0 R0 LOAD32 R0 MEMORY\n"); else if(ARMV7L == Architecture) emit_out("!0 R0 LOAD32 R0 MEMORY\n");
else if(AARCH64 == Architecture) emit_out("DEREF_X0\n"); else if(AARCH64 == Architecture) emit_out("DEREF_X0\n");
else if(RISCV64 == Architecture) emit_out("RD_A0 RS1_A0 LD\n");
} }
/* /*
@ -435,7 +494,14 @@ void primary_expr_string()
else if(AMD64 == Architecture) emit_out("LOAD_IMMEDIATE_rax &STRING_"); else if(AMD64 == Architecture) emit_out("LOAD_IMMEDIATE_rax &STRING_");
else if(ARMV7L == Architecture) emit_out("!0 R0 LOAD32 R15 MEMORY\n~0 JUMP_ALWAYS\n&STRING_"); else if(ARMV7L == Architecture) emit_out("!0 R0 LOAD32 R15 MEMORY\n~0 JUMP_ALWAYS\n&STRING_");
else if(AARCH64 == Architecture) emit_out("LOAD_W0_AHEAD\nSKIP_32_DATA\n&STRING_"); else if(AARCH64 == Architecture) emit_out("LOAD_W0_AHEAD\nSKIP_32_DATA\n&STRING_");
else if(RISCV64 == Architecture) emit_out("RD_A0 ~STRING_");
uniqueID_out(function->s, number_string); uniqueID_out(function->s, number_string);
if(RISCV64 == Architecture) {
emit_out("AUIPC\n");
emit_out("RD_A0 RS1_A0 !STRING_");
uniqueID_out(function->s, number_string);
emit_out("ADDI\n");
}
/* The target */ /* The target */
strings_list = emit(":STRING_", strings_list); strings_list = emit(":STRING_", strings_list);
@ -490,8 +556,10 @@ void primary_expr_char()
else if(AMD64 == Architecture) emit_out("LOAD_IMMEDIATE_rax %"); else if(AMD64 == Architecture) emit_out("LOAD_IMMEDIATE_rax %");
else if(ARMV7L == Architecture) emit_out("!"); else if(ARMV7L == Architecture) emit_out("!");
else if(AARCH64 == Architecture) emit_out("LOAD_W0_AHEAD\nSKIP_32_DATA\n%"); else if(AARCH64 == Architecture) emit_out("LOAD_W0_AHEAD\nSKIP_32_DATA\n%");
else if(RISCV64 == Architecture) emit_out("RD_A0 !");
emit_out(int2str(escape_lookup(global_token->s + 1), 10, TRUE)); emit_out(int2str(escape_lookup(global_token->s + 1), 10, TRUE));
if(ARMV7L == Architecture) emit_out(" R0 LOADI8_ALWAYS"); if(ARMV7L == Architecture) emit_out(" R0 LOADI8_ALWAYS");
else if(RISCV64 == Architecture) emit_out(" ADDI");
emit_out("\n"); emit_out("\n");
global_token = global_token->next; global_token = global_token->next;
} }
@ -565,6 +633,24 @@ void primary_expr_number()
emit_out("LOAD_W0_AHEAD\nSKIP_32_DATA\n%"); emit_out("LOAD_W0_AHEAD\nSKIP_32_DATA\n%");
emit_out(global_token->s); emit_out(global_token->s);
} }
else if(RISCV64 == Architecture)
{
int size = strtoint(global_token->s);
if((2047 > size) && (size > -2048))
{
emit_out("RD_A0 !");
emit_out(global_token->s);
emit_out(" ADDI");
}
else {
emit_out("RD_A0 ~");
emit_out(global_token->s);
emit_out(" LUI\n");
emit_out("RD_A0 RS1_A0 !");
emit_out(global_token->s);
emit_out(" ADDI");
}
}
emit_out("\n"); emit_out("\n");
global_token = global_token->next; global_token = global_token->next;
} }
@ -643,10 +729,11 @@ void common_recursion(FUNCTION f)
else if(AMD64 == Architecture) emit_out("PUSH_RAX\t#_common_recursion\n"); else if(AMD64 == Architecture) emit_out("PUSH_RAX\t#_common_recursion\n");
else if(ARMV7L == Architecture) emit_out("{R0} PUSH_ALWAYS\t#_common_recursion\n"); else if(ARMV7L == Architecture) emit_out("{R0} PUSH_ALWAYS\t#_common_recursion\n");
else if(AARCH64 == Architecture) emit_out("PUSH_X0\t#_common_recursion\n"); else if(AARCH64 == Architecture) emit_out("PUSH_X0\t#_common_recursion\n");
else if(RISCV64 == Architecture) emit_out("RD_SP RS1_SP !-8 ADDI\t# _common_recursion\nRS1_SP RS2_A0 SD\n");
struct type* last_type = current_target; struct type* last_type = current_target;
global_token = global_token->next; global_token = global_token->next;
require(NULL != global_token, "Recieved EOF in common_recursion\n"); require(NULL != global_token, "Received EOF in common_recursion\n");
f(); f();
current_target = promote_type(current_target, last_type); current_target = promote_type(current_target, last_type);
@ -655,11 +742,12 @@ void common_recursion(FUNCTION f)
else if(AMD64 == Architecture) emit_out("POP_RBX\t# _common_recursion\n"); else if(AMD64 == Architecture) emit_out("POP_RBX\t# _common_recursion\n");
else if(ARMV7L == Architecture) emit_out("{R1} POP_ALWAYS\t# _common_recursion\n"); else if(ARMV7L == Architecture) emit_out("{R1} POP_ALWAYS\t# _common_recursion\n");
else if(AARCH64 == Architecture) emit_out("POP_X1\t# _common_recursion\n"); else if(AARCH64 == Architecture) emit_out("POP_X1\t# _common_recursion\n");
else if(RISCV64 == Architecture) emit_out("RD_A1 RS1_SP LD\nRD_SP RS1_SP !8 ADDI\t# _common_recursion\n");
} }
void general_recursion(FUNCTION f, char* s, char* name, FUNCTION iterate) void general_recursion(FUNCTION f, char* s, char* name, FUNCTION iterate)
{ {
require(NULL != global_token, "Recieved EOF in general_recursion\n"); require(NULL != global_token, "Received EOF in general_recursion\n");
if(match(name, global_token->s)) if(match(name, global_token->s))
{ {
common_recursion(f); common_recursion(f);
@ -670,7 +758,7 @@ void general_recursion(FUNCTION f, char* s, char* name, FUNCTION iterate)
void arithmetic_recursion(FUNCTION f, char* s1, char* s2, char* name, FUNCTION iterate) void arithmetic_recursion(FUNCTION f, char* s1, char* s2, char* name, FUNCTION iterate)
{ {
require(NULL != global_token, "Recieved EOF in arithmetic_recursion\n"); require(NULL != global_token, "Received EOF in arithmetic_recursion\n");
if(match(name, global_token->s)) if(match(name, global_token->s))
{ {
common_recursion(f); common_recursion(f);
@ -760,6 +848,13 @@ void postfix_expr_arrow()
emit_out(int2str(i->offset, 10, TRUE)); emit_out(int2str(i->offset, 10, TRUE));
emit_out("\nADD_X0_X1_X0\n"); emit_out("\nADD_X0_X1_X0\n");
} }
else if(RISCV64 == Architecture)
{
emit_out("RD_A1 !");
emit_out(int2str(i->offset, 10, TRUE));
emit_out(" ADDI\n");
emit_out("RD_A0 RS1_A1 RS2_A0 ADD\n");
}
} }
if((!match("=", global_token->s) && (register_size >= i->size))) if((!match("=", global_token->s) && (register_size >= i->size)))
@ -769,6 +864,7 @@ void postfix_expr_arrow()
else if(AMD64 == Architecture) emit_out("LOAD_INTEGER\n"); else if(AMD64 == Architecture) emit_out("LOAD_INTEGER\n");
else if(ARMV7L == Architecture) emit_out("!0 R0 LOAD32 R0 MEMORY\n"); else if(ARMV7L == Architecture) emit_out("!0 R0 LOAD32 R0 MEMORY\n");
else if(AARCH64 == Architecture) emit_out("DEREF_X0\n"); else if(AARCH64 == Architecture) emit_out("DEREF_X0\n");
else if(RISCV64 == Architecture) emit_out("RD_A0 RS1_A0 LD\n");
} }
} }
@ -785,6 +881,7 @@ void postfix_expr_array()
else if(AMD64 == Architecture) assign = "LOAD_INTEGER\n"; else if(AMD64 == Architecture) assign = "LOAD_INTEGER\n";
else if(ARMV7L == Architecture) assign = "!0 R0 LOAD32 R0 MEMORY\n"; else if(ARMV7L == Architecture) assign = "!0 R0 LOAD32 R0 MEMORY\n";
else if(AARCH64 == Architecture) assign = "DEREF_X0\n"; else if(AARCH64 == Architecture) assign = "DEREF_X0\n";
else if(RISCV64 == Architecture) assign = "RD_A0 RS1_A0 LD\n";
/* Add support for Ints */ /* Add support for Ints */
if(match("char*", current_target->name)) if(match("char*", current_target->name))
@ -794,6 +891,7 @@ void postfix_expr_array()
else if(AMD64 == Architecture) assign = "LOAD_BYTE\n"; else if(AMD64 == Architecture) assign = "LOAD_BYTE\n";
else if(ARMV7L == Architecture) assign = "!0 R0 LOAD8 R0 MEMORY\n"; else if(ARMV7L == Architecture) assign = "!0 R0 LOAD8 R0 MEMORY\n";
else if(AARCH64 == Architecture) assign = "DEREF_X0_BYTE\n"; else if(AARCH64 == Architecture) assign = "DEREF_X0_BYTE\n";
else if(RISCV64 == Architecture) assign = "RD_A0 RS1_A0 LBU\n";
} }
else else
{ {
@ -802,10 +900,12 @@ void postfix_expr_array()
else if(AMD64 == Architecture) emit_out("SAL_rax_Immediate8 !"); else if(AMD64 == Architecture) emit_out("SAL_rax_Immediate8 !");
else if(ARMV7L == Architecture) emit_out("'0' R0 R0 '"); else if(ARMV7L == Architecture) emit_out("'0' R0 R0 '");
else if(AARCH64 == Architecture) emit_out("LOAD_W2_AHEAD\nSKIP_32_DATA\n%"); else if(AARCH64 == Architecture) emit_out("LOAD_W2_AHEAD\nSKIP_32_DATA\n%");
else if(RISCV64 == Architecture) emit_out("RD_A0 RS1_A0 RS2_X");
emit_out(int2str(ceil_log2(current_target->indirect->size), 10, TRUE)); emit_out(int2str(ceil_log2(current_target->indirect->size), 10, TRUE));
if(ARMV7L == Architecture) emit_out("' MOVE_ALWAYS"); if(ARMV7L == Architecture) emit_out("' MOVE_ALWAYS");
else if(AARCH64 == Architecture) emit_out("\nLSHIFT_X0_X0_X2"); else if(AARCH64 == Architecture) emit_out("\nLSHIFT_X0_X0_X2");
else if(RISCV64 == Architecture) emit_out(" SLLI");
emit_out("\n"); emit_out("\n");
} }
@ -814,6 +914,7 @@ void postfix_expr_array()
else if(AMD64 == Architecture) emit_out("ADD_rbx_to_rax\n"); else if(AMD64 == Architecture) emit_out("ADD_rbx_to_rax\n");
else if(ARMV7L == Architecture) emit_out("'0' R0 R0 ADD R1 ARITH2_ALWAYS\n"); else if(ARMV7L == Architecture) emit_out("'0' R0 R0 ADD R1 ARITH2_ALWAYS\n");
else if(AARCH64 == Architecture) emit_out("ADD_X0_X1_X0\n"); else if(AARCH64 == Architecture) emit_out("ADD_X0_X1_X0\n");
else if(RISCV64 == Architecture) emit_out("RD_A0 RS1_A1 RS2_A0 ADD\n");
require_match("ERROR in postfix_expr\nMissing ]\n", "]"); require_match("ERROR in postfix_expr\nMissing ]\n", "]");
@ -827,7 +928,7 @@ void postfix_expr_array()
/* /*
* unary-expr: * unary-expr:
* postfix-expr * &postfix-expr
* - postfix-expr * - postfix-expr
* !postfix-expr * !postfix-expr
* sizeof ( type ) * sizeof ( type )
@ -836,7 +937,7 @@ struct type* type_name();
void unary_expr_sizeof() void unary_expr_sizeof()
{ {
global_token = global_token->next; global_token = global_token->next;
require(NULL != global_token, "Recieved EOF when starting sizeof\n"); require(NULL != global_token, "Received EOF when starting sizeof\n");
require_match("ERROR in unary_expr\nMissing (\n", "("); require_match("ERROR in unary_expr\nMissing (\n", "(");
struct type* a = type_name(); struct type* a = type_name();
require_match("ERROR in unary_expr\nMissing )\n", ")"); require_match("ERROR in unary_expr\nMissing )\n", ")");
@ -846,8 +947,10 @@ void unary_expr_sizeof()
else if(AMD64 == Architecture) emit_out("LOAD_IMMEDIATE_rax %"); else if(AMD64 == Architecture) emit_out("LOAD_IMMEDIATE_rax %");
else if(ARMV7L == Architecture) emit_out("!"); else if(ARMV7L == Architecture) emit_out("!");
else if(AARCH64 == Architecture) emit_out("LOAD_W0_AHEAD\nSKIP_32_DATA\n%"); else if(AARCH64 == Architecture) emit_out("LOAD_W0_AHEAD\nSKIP_32_DATA\n%");
else if(RISCV64 == Architecture) emit_out("RD_A0 !");
emit_out(int2str(a->size, 10, TRUE)); emit_out(int2str(a->size, 10, TRUE));
if(ARMV7L == Architecture) emit_out(" R0 LOADI8_ALWAYS"); if(ARMV7L == Architecture) emit_out(" R0 LOADI8_ALWAYS");
else if(RISCV64 == Architecture) emit_out(" ADDI");
emit_out("\n"); emit_out("\n");
} }
@ -936,6 +1039,16 @@ void additive_expr_stub()
general_recursion(postfix_expr, "LSHIFT_X0_X1_X0\n", "<<", additive_expr_stub); general_recursion(postfix_expr, "LSHIFT_X0_X1_X0\n", "<<", additive_expr_stub);
arithmetic_recursion(postfix_expr, "ARITH_RSHIFT_X0_X1_X0\n", "LOGICAL_RSHIFT_X0_X1_X0\n", ">>", additive_expr_stub); arithmetic_recursion(postfix_expr, "ARITH_RSHIFT_X0_X1_X0\n", "LOGICAL_RSHIFT_X0_X1_X0\n", ">>", additive_expr_stub);
} }
else if(RISCV64 == Architecture)
{
general_recursion(postfix_expr, "RD_A0 RS1_A1 RS2_A0 ADD\n", "+", additive_expr_stub);
general_recursion(postfix_expr, "RD_A0 RS1_A1 RS2_A0 SUB\n", "-", additive_expr_stub);
general_recursion(postfix_expr, "RD_A0 RS1_A1 RS2_A0 MUL\n", "*", additive_expr_stub);
arithmetic_recursion(postfix_expr, "RD_A0 RS1_A1 RS2_A0 DIV\n", "RD_A0 RS1_A1 RS2_A0 DIVU\n", "/", additive_expr_stub);
arithmetic_recursion(postfix_expr, "RD_A0 RS1_A1 RS2_A0 REM\n", "RD_A0 RS1_A1 RS2_A0 REMU\n", "%", additive_expr_stub);
general_recursion(postfix_expr, "RD_A0 RS1_A1 RS2_A0 SLL\n", "<<", additive_expr_stub);
arithmetic_recursion(postfix_expr, "RD_A0 RS1_A1 RS2_A0 SRA\n", "RD_A0 RS1_A1 RS2_A0 SRL\n", ">>", additive_expr_stub);
}
} }
@ -1002,6 +1115,15 @@ void relational_expr_stub()
general_recursion(additive_expr, "CMP_X1_X0\nSET_X0_TO_1\nSKIP_INST_EQ\nSET_X0_TO_0\n", "==", relational_expr_stub); general_recursion(additive_expr, "CMP_X1_X0\nSET_X0_TO_1\nSKIP_INST_EQ\nSET_X0_TO_0\n", "==", relational_expr_stub);
general_recursion(additive_expr, "CMP_X1_X0\nSET_X0_TO_1\nSKIP_INST_NE\nSET_X0_TO_0\n", "!=", relational_expr_stub); general_recursion(additive_expr, "CMP_X1_X0\nSET_X0_TO_1\nSKIP_INST_NE\nSET_X0_TO_0\n", "!=", relational_expr_stub);
} }
else if(RISCV64 == Architecture)
{
arithmetic_recursion(additive_expr, "RD_A0 RS1_A1 RS2_A0 SLT\n", "RD_A0 RS1_A1 RS2_A0 SLTU\n", "<", relational_expr_stub);
arithmetic_recursion(additive_expr, "RD_A0 RS1_A0 RS2_A1 SLT\nRD_A0 RS1_A0 !1 XORI\n", "RD_A0 RS1_A0 RS2_A1 SLTU\nRD_A0 RS1_A0 !1 XORI\n", "<=", relational_expr_stub);
arithmetic_recursion(additive_expr, "RD_A0 RS1_A1 RS2_A0 SLT\nRD_A0 RS1_A0 !1 XORI\n", "RD_A0 RS1_A1 RS2_A0 SLTU\nRD_A0 RS1_A0 !1 XORI\n", ">=", relational_expr_stub);
arithmetic_recursion(additive_expr, "RD_A0 RS1_A0 RS2_A1 SLT\n", "RD_A0 RS1_A0 RS2_A1 SLTU\n", ">", relational_expr_stub);
general_recursion(additive_expr, "RD_A0 RS1_A0 RS2_A1 SUB\nRD_A0 RS1_A0 !1 SLTIU\n", "==", relational_expr_stub);
general_recursion(additive_expr, "RD_A0 RS1_A0 RS2_A1 SUB\nRD_A0 RS2_A0 SLTU\n", "!=", relational_expr_stub);
}
} }
void relational_expr() void relational_expr()
@ -1061,6 +1183,14 @@ void bitwise_expr_stub()
general_recursion(relational_expr, "OR_X0_X1_X0\n", "||", bitwise_expr_stub); general_recursion(relational_expr, "OR_X0_X1_X0\n", "||", bitwise_expr_stub);
general_recursion(relational_expr, "XOR_X0_X1_X0\n", "^", bitwise_expr_stub); general_recursion(relational_expr, "XOR_X0_X1_X0\n", "^", bitwise_expr_stub);
} }
else if(RISCV64 == Architecture)
{
general_recursion(relational_expr, "RD_A0 RS1_A1 RS2_A0 AND\n", "&", bitwise_expr_stub);
general_recursion(relational_expr, "RD_A0 RS1_A1 RS2_A0 AND\n", "&&", bitwise_expr_stub);
general_recursion(relational_expr, "RD_A0 RS1_A1 RS2_A0 OR\n", "|", bitwise_expr_stub);
general_recursion(relational_expr, "RD_A0 RS1_A1 RS2_A0 OR\n", "||", bitwise_expr_stub);
general_recursion(relational_expr, "RD_A0 RS1_A1 RS2_A0 XOR\n", "^", bitwise_expr_stub);
}
} }
@ -1078,12 +1208,12 @@ void bitwise_expr()
void primary_expr() void primary_expr()
{ {
require(NULL != global_token, "Recieved EOF where primary expression expected\n"); require(NULL != global_token, "Received EOF where primary expression expected\n");
if(match("&", global_token->s)) if(match("&", global_token->s))
{ {
Address_of = TRUE; Address_of = TRUE;
global_token = global_token->next; global_token = global_token->next;
require(NULL != global_token, "Recieved EOF after & where primary expression expected\n"); require(NULL != global_token, "Received EOF after & where primary expression expected\n");
} }
else else
{ {
@ -1097,6 +1227,7 @@ void primary_expr()
else if(AMD64 == Architecture) emit_out("LOAD_IMMEDIATE_rax %0\n"); else if(AMD64 == Architecture) emit_out("LOAD_IMMEDIATE_rax %0\n");
else if(ARMV7L == Architecture) emit_out("!0 R0 LOADI8_ALWAYS\n"); else if(ARMV7L == Architecture) emit_out("!0 R0 LOADI8_ALWAYS\n");
else if(AARCH64 == Architecture) emit_out("SET_X0_TO_0\n"); else if(AARCH64 == Architecture) emit_out("SET_X0_TO_0\n");
else if(RISCV64 == Architecture) emit_out("RD_A0 MV\n");
common_recursion(primary_expr); common_recursion(primary_expr);
@ -1105,6 +1236,7 @@ void primary_expr()
else if(AMD64 == Architecture) emit_out("SUBTRACT_rax_from_rbx_into_rbx\nMOVE_rbx_to_rax\n"); else if(AMD64 == Architecture) emit_out("SUBTRACT_rax_from_rbx_into_rbx\nMOVE_rbx_to_rax\n");
else if(ARMV7L == Architecture) emit_out("'0' R0 R0 SUB R1 ARITH2_ALWAYS\n"); else if(ARMV7L == Architecture) emit_out("'0' R0 R0 SUB R1 ARITH2_ALWAYS\n");
else if(AARCH64 == Architecture) emit_out("SUB_X0_X1_X0\n"); else if(AARCH64 == Architecture) emit_out("SUB_X0_X1_X0\n");
else if(RISCV64 == Architecture) emit_out("RD_A0 RS1_A1 RS2_A0 SUB\n");
} }
else if('!' == global_token->s[0]) else if('!' == global_token->s[0])
{ {
@ -1112,6 +1244,7 @@ void primary_expr()
else if(AMD64 == Architecture) emit_out("LOAD_IMMEDIATE_rax %1\n"); else if(AMD64 == Architecture) emit_out("LOAD_IMMEDIATE_rax %1\n");
else if(ARMV7L == Architecture) emit_out("!1 R0 LOADI8_ALWAYS\n"); else if(ARMV7L == Architecture) emit_out("!1 R0 LOADI8_ALWAYS\n");
else if(AARCH64 == Architecture) emit_out("SET_X0_TO_1\n"); else if(AARCH64 == Architecture) emit_out("SET_X0_TO_1\n");
else if(RISCV64 == Architecture) emit_out("RD_A0 !1 ADDI\n");
common_recursion(postfix_expr); common_recursion(postfix_expr);
@ -1120,6 +1253,7 @@ void primary_expr()
else if(AMD64 == Architecture) emit_out("XOR_rbx_rax_into_rax\n"); else if(AMD64 == Architecture) emit_out("XOR_rbx_rax_into_rax\n");
else if(ARMV7L == Architecture) emit_out("'0' R0 R0 XOR R1 ARITH2_ALWAYS\n"); else if(ARMV7L == Architecture) emit_out("'0' R0 R0 XOR R1 ARITH2_ALWAYS\n");
else if(AARCH64 == Architecture) emit_out("XOR_X0_X1_X0\n"); else if(AARCH64 == Architecture) emit_out("XOR_X0_X1_X0\n");
else if(RISCV64 == Architecture) emit_out("RD_A0 RS1_A1 RS2_A0 XOR\n");
} }
else if('~' == global_token->s[0]) else if('~' == global_token->s[0])
{ {
@ -1130,6 +1264,7 @@ void primary_expr()
else if(AMD64 == Architecture) emit_out("NOT_rax\n"); else if(AMD64 == Architecture) emit_out("NOT_rax\n");
else if(ARMV7L == Architecture) emit_out("'0' R0 R0 MVN_ALWAYS\n"); else if(ARMV7L == Architecture) emit_out("'0' R0 R0 MVN_ALWAYS\n");
else if(AARCH64 == Architecture) emit_out("MVN_X0\n"); else if(AARCH64 == Architecture) emit_out("MVN_X0\n");
else if(RISCV64 == Architecture) emit_out("RD_A0 RS1_A0 NOT\n");
} }
else if(global_token->s[0] == '(') else if(global_token->s[0] == '(')
{ {
@ -1157,6 +1292,7 @@ void expression()
else if(AMD64 == Architecture) store = "STORE_INTEGER\n"; else if(AMD64 == Architecture) store = "STORE_INTEGER\n";
else if(ARMV7L == Architecture) store = "!0 R0 STORE32 R1 MEMORY\n"; else if(ARMV7L == Architecture) store = "!0 R0 STORE32 R1 MEMORY\n";
else if(AARCH64 == Architecture) store = "STR_X0_[X1]\n"; else if(AARCH64 == Architecture) store = "STR_X0_[X1]\n";
else if(RISCV64 == Architecture) store = "RS1_A1 RS2_A0 SD\n";
} }
else else
{ {
@ -1165,6 +1301,7 @@ void expression()
else if(AMD64 == Architecture) store = "STORE_CHAR\n"; else if(AMD64 == Architecture) store = "STORE_CHAR\n";
else if(ARMV7L == Architecture) store = "!0 R0 STORE8 R1 MEMORY\n"; else if(ARMV7L == Architecture) store = "!0 R0 STORE8 R1 MEMORY\n";
else if(AARCH64 == Architecture) store = "STR_BYTE_W0_[X1]\n"; else if(AARCH64 == Architecture) store = "STR_BYTE_W0_[X1]\n";
else if(RISCV64 == Architecture) store = "RS1_A1 RS2_A0 SB\n";
} }
common_recursion(expression); common_recursion(expression);
@ -1195,6 +1332,7 @@ void collect_local()
else if(AMD64 == Architecture) a->depth = -40; else if(AMD64 == Architecture) a->depth = -40;
else if(ARMV7L == Architecture) a->depth = 16; else if(ARMV7L == Architecture) a->depth = 16;
else if(AARCH64 == Architecture) a->depth = 32; /* argc, argv, envp and the local (8 bytes each) */ else if(AARCH64 == Architecture) a->depth = 32; /* argc, argv, envp and the local (8 bytes each) */
else if(RISCV64 == Architecture) a->depth = 32;
} }
else if((NULL == function->arguments) && (NULL == function->locals)) else if((NULL == function->arguments) && (NULL == function->locals))
{ {
@ -1203,6 +1341,7 @@ void collect_local()
else if(AMD64 == Architecture) a->depth = -16; else if(AMD64 == Architecture) a->depth = -16;
else if(ARMV7L == Architecture) a->depth = 8; else if(ARMV7L == Architecture) a->depth = 8;
else if(AARCH64 == Architecture) a->depth = register_size; else if(AARCH64 == Architecture) a->depth = register_size;
else if(RISCV64 == Architecture) a->depth = 8;
} }
else if(NULL == function->locals) else if(NULL == function->locals)
{ {
@ -1211,6 +1350,7 @@ void collect_local()
else if(AMD64 == Architecture) a->depth = function->arguments->depth - 16; else if(AMD64 == Architecture) a->depth = function->arguments->depth - 16;
else if(ARMV7L == Architecture) a->depth = function->arguments->depth + 8; else if(ARMV7L == Architecture) a->depth = function->arguments->depth + 8;
else if(AARCH64 == Architecture) a->depth = function->arguments->depth + register_size; else if(AARCH64 == Architecture) a->depth = function->arguments->depth + register_size;
else if(RISCV64 == Architecture) a->depth = function->arguments->depth + 8;
} }
else else
{ {
@ -1219,6 +1359,7 @@ void collect_local()
else if(AMD64 == Architecture) a->depth = function->locals->depth - register_size; else if(AMD64 == Architecture) a->depth = function->locals->depth - register_size;
else if(ARMV7L == Architecture) a->depth = function->locals->depth + register_size; else if(ARMV7L == Architecture) a->depth = function->locals->depth + register_size;
else if(AARCH64 == Architecture) a->depth = function->locals->depth + register_size; else if(AARCH64 == Architecture) a->depth = function->locals->depth + register_size;
else if(RISCV64 == Architecture) a->depth = function->locals->depth + register_size;
} }
function->locals = a; function->locals = a;
@ -1244,6 +1385,7 @@ void collect_local()
else if(AMD64 == Architecture) emit_out("PUSH_RAX\t#"); else if(AMD64 == Architecture) emit_out("PUSH_RAX\t#");
else if(ARMV7L == Architecture) emit_out("{R0} PUSH_ALWAYS\t#"); else if(ARMV7L == Architecture) emit_out("{R0} PUSH_ALWAYS\t#");
else if(AARCH64 == Architecture) emit_out("PUSH_X0\t#"); else if(AARCH64 == Architecture) emit_out("PUSH_X0\t#");
else if(RISCV64 == Architecture) emit_out("RD_SP RS1_SP !-8 ADDI\nRS1_SP RS2_A0 SD\t#");
emit_out(a->s); emit_out(a->s);
emit_out("\n"); emit_out("\n");
} }
@ -1268,10 +1410,12 @@ void process_if()
else if(AMD64 == Architecture) emit_out("TEST\nJUMP_EQ %ELSE_"); else if(AMD64 == Architecture) emit_out("TEST\nJUMP_EQ %ELSE_");
else if(ARMV7L == Architecture) emit_out("!0 CMPI8 R0 IMM_ALWAYS\n^~ELSE_"); else if(ARMV7L == Architecture) emit_out("!0 CMPI8 R0 IMM_ALWAYS\n^~ELSE_");
else if(AARCH64 == Architecture) emit_out("CBNZ_X0_PAST_BR\nLOAD_W16_AHEAD\nSKIP_32_DATA\n&ELSE_"); else if(AARCH64 == Architecture) emit_out("CBNZ_X0_PAST_BR\nLOAD_W16_AHEAD\nSKIP_32_DATA\n&ELSE_");
else if(RISCV64 == Architecture) emit_out("RS1_A0 @8 BNEZ\n$ELSE_");
uniqueID_out(function->s, number_string); uniqueID_out(function->s, number_string);
if(ARMV7L == Architecture) emit_out(" JUMP_EQUAL\n"); if(ARMV7L == Architecture) emit_out(" JUMP_EQUAL\n");
else if(AARCH64 == Architecture) emit_out("\nBR_X16\n"); else if(AARCH64 == Architecture) emit_out("\nBR_X16\n");
else if(RISCV64 == Architecture) emit_out("JAL\n");
require_match("ERROR in process_if\nMISSING )\n", ")"); require_match("ERROR in process_if\nMISSING )\n", ")");
statement(); statement();
@ -1282,10 +1426,12 @@ void process_if()
else if(AMD64 == Architecture) emit_out("JUMP %_END_IF_"); else if(AMD64 == Architecture) emit_out("JUMP %_END_IF_");
else if(ARMV7L == Architecture) emit_out("^~_END_IF_"); else if(ARMV7L == Architecture) emit_out("^~_END_IF_");
else if(AARCH64 == Architecture) emit_out("LOAD_W16_AHEAD\nSKIP_32_DATA\n&_END_IF_"); else if(AARCH64 == Architecture) emit_out("LOAD_W16_AHEAD\nSKIP_32_DATA\n&_END_IF_");
else if(RISCV64 == Architecture) emit_out("$_END_IF_");
uniqueID_out(function->s, number_string); uniqueID_out(function->s, number_string);
if(ARMV7L == Architecture) emit_out(" JUMP_ALWAYS\n"); if(ARMV7L == Architecture) emit_out(" JUMP_ALWAYS\n");
else if(AARCH64 == Architecture) emit_out("\nBR_X16\n"); else if(AARCH64 == Architecture) emit_out("\nBR_X16\n");
else if(RISCV64 == Architecture) emit_out("JAL\n");
emit_out(":ELSE_"); emit_out(":ELSE_");
uniqueID_out(function->s, number_string); uniqueID_out(function->s, number_string);
@ -1293,7 +1439,7 @@ void process_if()
if(match("else", global_token->s)) if(match("else", global_token->s))
{ {
global_token = global_token->next; global_token = global_token->next;
require(NULL != global_token, "Recieved EOF where an else statement expected\n"); require(NULL != global_token, "Received EOF where an else statement expected\n");
statement(); statement();
require(NULL != global_token, "Reached EOF inside of function\n"); require(NULL != global_token, "Reached EOF inside of function\n");
} }
@ -1340,18 +1486,22 @@ void process_for()
else if(AMD64 == Architecture) emit_out("TEST\nJUMP_EQ %FOR_END_"); else if(AMD64 == Architecture) emit_out("TEST\nJUMP_EQ %FOR_END_");
else if(ARMV7L == Architecture) emit_out("!0 CMPI8 R0 IMM_ALWAYS\n^~FOR_END_"); else if(ARMV7L == Architecture) emit_out("!0 CMPI8 R0 IMM_ALWAYS\n^~FOR_END_");
else if(AARCH64 == Architecture) emit_out("CBNZ_X0_PAST_BR\nLOAD_W16_AHEAD\nSKIP_32_DATA\n&FOR_END_"); else if(AARCH64 == Architecture) emit_out("CBNZ_X0_PAST_BR\nLOAD_W16_AHEAD\nSKIP_32_DATA\n&FOR_END_");
else if(RISCV64 == Architecture) emit_out("RS1_A0 @8 BNEZ\n$FOR_END_");
uniqueID_out(function->s, number_string); uniqueID_out(function->s, number_string);
if(ARMV7L == Architecture) emit_out(" JUMP_EQUAL\n"); if(ARMV7L == Architecture) emit_out(" JUMP_EQUAL\n");
else if(AARCH64 == Architecture) emit_out("\nBR_X16\n"); else if(AARCH64 == Architecture) emit_out("\nBR_X16\n");
else if(RISCV64 == Architecture) emit_out("JAL\n");
if((KNIGHT_POSIX == Architecture) || (KNIGHT_NATIVE == Architecture)) emit_out("JUMP @FOR_THEN_"); if((KNIGHT_POSIX == Architecture) || (KNIGHT_NATIVE == Architecture)) emit_out("JUMP @FOR_THEN_");
else if(X86 == Architecture) emit_out("JUMP %FOR_THEN_"); else if(X86 == Architecture) emit_out("JUMP %FOR_THEN_");
else if(AMD64 == Architecture) emit_out("JUMP %FOR_THEN_"); else if(AMD64 == Architecture) emit_out("JUMP %FOR_THEN_");
else if(ARMV7L == Architecture) emit_out("^~FOR_THEN_"); else if(ARMV7L == Architecture) emit_out("^~FOR_THEN_");
else if(AARCH64 == Architecture) emit_out("LOAD_W16_AHEAD\nSKIP_32_DATA\n&FOR_THEN_"); else if(AARCH64 == Architecture) emit_out("LOAD_W16_AHEAD\nSKIP_32_DATA\n&FOR_THEN_");
else if(RISCV64 == Architecture) emit_out("$FOR_THEN_");
uniqueID_out(function->s, number_string); uniqueID_out(function->s, number_string);
if(ARMV7L == Architecture) emit_out(" JUMP_ALWAYS\n"); if(ARMV7L == Architecture) emit_out(" JUMP_ALWAYS\n");
else if(AARCH64 == Architecture) emit_out("\nBR_X16\n"); else if(AARCH64 == Architecture) emit_out("\nBR_X16\n");
else if(RISCV64 == Architecture) emit_out("JAL\n");
emit_out(":FOR_ITER_"); emit_out(":FOR_ITER_");
uniqueID_out(function->s, number_string); uniqueID_out(function->s, number_string);
@ -1364,9 +1514,11 @@ void process_for()
else if(AMD64 == Architecture) emit_out("JUMP %FOR_"); else if(AMD64 == Architecture) emit_out("JUMP %FOR_");
else if(ARMV7L == Architecture) emit_out("^~FOR_"); else if(ARMV7L == Architecture) emit_out("^~FOR_");
else if(AARCH64 == Architecture) emit_out("LOAD_W16_AHEAD\nSKIP_32_DATA\n&FOR_"); else if(AARCH64 == Architecture) emit_out("LOAD_W16_AHEAD\nSKIP_32_DATA\n&FOR_");
else if(RISCV64 == Architecture) emit_out("$FOR_");
uniqueID_out(function->s, number_string); uniqueID_out(function->s, number_string);
if(ARMV7L == Architecture) emit_out(" JUMP_ALWAYS\n"); if(ARMV7L == Architecture) emit_out(" JUMP_ALWAYS\n");
else if(AARCH64 == Architecture) emit_out("\nBR_X16\n"); else if(AARCH64 == Architecture) emit_out("\nBR_X16\n");
else if(RISCV64 == Architecture) emit_out("JAL\n");
emit_out(":FOR_THEN_"); emit_out(":FOR_THEN_");
uniqueID_out(function->s, number_string); uniqueID_out(function->s, number_string);
@ -1380,9 +1532,11 @@ void process_for()
else if(AMD64 == Architecture) emit_out("JUMP %FOR_ITER_"); else if(AMD64 == Architecture) emit_out("JUMP %FOR_ITER_");
else if(ARMV7L == Architecture) emit_out("^~FOR_ITER_"); else if(ARMV7L == Architecture) emit_out("^~FOR_ITER_");
else if(AARCH64 == Architecture) emit_out("LOAD_W16_AHEAD\nSKIP_32_DATA\n&FOR_ITER_"); else if(AARCH64 == Architecture) emit_out("LOAD_W16_AHEAD\nSKIP_32_DATA\n&FOR_ITER_");
else if(RISCV64 == Architecture) emit_out("$FOR_ITER_");
uniqueID_out(function->s, number_string); uniqueID_out(function->s, number_string);
if(ARMV7L == Architecture) emit_out(" JUMP_ALWAYS\n"); if(ARMV7L == Architecture) emit_out(" JUMP_ALWAYS\n");
else if(AARCH64 == Architecture) emit_out("\nBR_X16\n"); else if(AARCH64 == Architecture) emit_out("\nBR_X16\n");
else if(RISCV64 == Architecture) emit_out("JAL\n");
emit_out(":FOR_END_"); emit_out(":FOR_END_");
uniqueID_out(function->s, number_string); uniqueID_out(function->s, number_string);
@ -1404,7 +1558,7 @@ void process_asm()
emit_out((global_token->s + 1)); emit_out((global_token->s + 1));
emit_out("\n"); emit_out("\n");
global_token = global_token->next; global_token = global_token->next;
require(NULL != global_token, "Recieved EOF inside asm statement\n"); require(NULL != global_token, "Received EOF inside asm statement\n");
} }
require_match("ERROR in process_asm\nMISSING )\n", ")"); require_match("ERROR in process_asm\nMISSING )\n", ")");
require_match("ERROR in process_asm\nMISSING ;\n", ";"); require_match("ERROR in process_asm\nMISSING ;\n", ";");
@ -1432,7 +1586,7 @@ void process_do()
uniqueID_out(function->s, number_string); uniqueID_out(function->s, number_string);
global_token = global_token->next; global_token = global_token->next;
require(NULL != global_token, "Recieved EOF where do statement is expected\n"); require(NULL != global_token, "Received EOF where do statement is expected\n");
statement(); statement();
require(NULL != global_token, "Reached EOF inside of function\n"); require(NULL != global_token, "Reached EOF inside of function\n");
@ -1450,9 +1604,15 @@ void process_do()
else if(AMD64 == Architecture) emit_out("TEST\nJUMP_NE %DO_"); else if(AMD64 == Architecture) emit_out("TEST\nJUMP_NE %DO_");
else if(ARMV7L == Architecture) emit_out("!0 CMPI8 R0 IMM_ALWAYS\n^~DO_"); else if(ARMV7L == Architecture) emit_out("!0 CMPI8 R0 IMM_ALWAYS\n^~DO_");
else if(AARCH64 == Architecture) emit_out("CBZ_X0_PAST_BR\nLOAD_W16_AHEAD\nSKIP_32_DATA\n&DO_"); else if(AARCH64 == Architecture) emit_out("CBZ_X0_PAST_BR\nLOAD_W16_AHEAD\nSKIP_32_DATA\n&DO_");
else if(RISCV64 == Architecture) emit_out("RS1_A0 @DO_END_");
uniqueID_out(function->s, number_string); uniqueID_out(function->s, number_string);
if(ARMV7L == Architecture) emit_out(" JUMP_NE\n"); if(ARMV7L == Architecture) emit_out(" JUMP_NE\n");
else if(AARCH64 == Architecture) emit_out("\nBR_X16\n"); else if(AARCH64 == Architecture) emit_out("\nBR_X16\n");
else if(RISCV64 == Architecture) {
emit_out("BEQZ\n$DO_");
uniqueID_out(function->s, number_string);
emit_out("JAL\n");
}
emit_out(":DO_END_"); emit_out(":DO_END_");
uniqueID_out(function->s, number_string); uniqueID_out(function->s, number_string);
@ -1495,9 +1655,11 @@ void process_while()
else if(AMD64 == Architecture) emit_out("TEST\nJUMP_EQ %END_WHILE_"); else if(AMD64 == Architecture) emit_out("TEST\nJUMP_EQ %END_WHILE_");
else if(ARMV7L == Architecture) emit_out("!0 CMPI8 R0 IMM_ALWAYS\n^~END_WHILE_"); else if(ARMV7L == Architecture) emit_out("!0 CMPI8 R0 IMM_ALWAYS\n^~END_WHILE_");
else if(AARCH64 == Architecture) emit_out("CBNZ_X0_PAST_BR\nLOAD_W16_AHEAD\nSKIP_32_DATA\n&END_WHILE_"); else if(AARCH64 == Architecture) emit_out("CBNZ_X0_PAST_BR\nLOAD_W16_AHEAD\nSKIP_32_DATA\n&END_WHILE_");
else if(RISCV64 == Architecture) emit_out("RS1_A0 @8 BNEZ\n$END_WHILE_");
uniqueID_out(function->s, number_string); uniqueID_out(function->s, number_string);
if(ARMV7L == Architecture) emit_out(" JUMP_EQUAL\t"); if(ARMV7L == Architecture) emit_out(" JUMP_EQUAL\t");
else if(AARCH64 == Architecture) emit_out("\nBR_X16\n"); else if(AARCH64 == Architecture) emit_out("\nBR_X16\n");
else if(RISCV64 == Architecture) emit_out("JAL\n");
emit_out("# THEN_while_"); emit_out("# THEN_while_");
uniqueID_out(function->s, number_string); uniqueID_out(function->s, number_string);
@ -1510,9 +1672,11 @@ void process_while()
else if(AMD64 == Architecture) emit_out("JUMP %WHILE_"); else if(AMD64 == Architecture) emit_out("JUMP %WHILE_");
else if(ARMV7L == Architecture) emit_out("^~WHILE_"); else if(ARMV7L == Architecture) emit_out("^~WHILE_");
else if(AARCH64 == Architecture) emit_out("LOAD_W16_AHEAD\nSKIP_32_DATA\n&WHILE_"); else if(AARCH64 == Architecture) emit_out("LOAD_W16_AHEAD\nSKIP_32_DATA\n&WHILE_");
else if(RISCV64 == Architecture) emit_out("$WHILE_");
uniqueID_out(function->s, number_string); uniqueID_out(function->s, number_string);
if(ARMV7L == Architecture) emit_out(" JUMP_ALWAYS\n"); if(ARMV7L == Architecture) emit_out(" JUMP_ALWAYS\n");
else if(AARCH64 == Architecture) emit_out("\nBR_X16\n"); else if(AARCH64 == Architecture) emit_out("\nBR_X16\n");
else if(RISCV64 == Architecture) emit_out("JAL\n");
emit_out(":END_WHILE_"); emit_out(":END_WHILE_");
uniqueID_out(function->s, number_string); uniqueID_out(function->s, number_string);
@ -1527,7 +1691,7 @@ void process_while()
void return_result() void return_result()
{ {
global_token = global_token->next; global_token = global_token->next;
require(NULL != global_token, "Incomplete return statement recieved\n"); require(NULL != global_token, "Incomplete return statement received\n");
if(global_token->s[0] != ';') expression(); if(global_token->s[0] != ';') expression();
require_match("ERROR in return_result\nMISSING ;\n", ";"); require_match("ERROR in return_result\nMISSING ;\n", ";");
@ -1540,6 +1704,7 @@ void return_result()
else if(AMD64 == Architecture) emit_out("POP_RBX\t# _return_result_locals\n"); else if(AMD64 == Architecture) emit_out("POP_RBX\t# _return_result_locals\n");
else if(ARMV7L == Architecture) emit_out("{R1} POP_ALWAYS\t# _return_result_locals\n"); else if(ARMV7L == Architecture) emit_out("{R1} POP_ALWAYS\t# _return_result_locals\n");
else if(AARCH64 == Architecture) emit_out("POP_X1\t# _return_result_locals\n"); else if(AARCH64 == Architecture) emit_out("POP_X1\t# _return_result_locals\n");
else if(RISCV64 == Architecture) emit_out("RD_A1 RS1_SP LD # _return_result_locals\nRD_SP RS1_SP !8 ADDI\n");
} }
if((KNIGHT_POSIX == Architecture) || (KNIGHT_NATIVE == Architecture)) emit_out("RET R15\n"); if((KNIGHT_POSIX == Architecture) || (KNIGHT_NATIVE == Architecture)) emit_out("RET R15\n");
@ -1547,6 +1712,7 @@ void return_result()
else if(AMD64 == Architecture) emit_out("RETURN\n"); else if(AMD64 == Architecture) emit_out("RETURN\n");
else if(ARMV7L == Architecture) emit_out("'1' LR RETURN\n"); else if(ARMV7L == Architecture) emit_out("'1' LR RETURN\n");
else if(AARCH64 == Architecture) emit_out("RETURN\n"); else if(AARCH64 == Architecture) emit_out("RETURN\n");
else if(RISCV64 == Architecture) emit_out("RETURN\n");
} }
void process_break() void process_break()
@ -1566,6 +1732,7 @@ void process_break()
else if(AMD64 == Architecture) emit_out("POP_RBX\t# break_cleanup_locals\n"); else if(AMD64 == Architecture) emit_out("POP_RBX\t# break_cleanup_locals\n");
else if(ARMV7L == Architecture) emit_out("{R1} POP_ALWAYS\t# break_cleanup_locals\n"); else if(ARMV7L == Architecture) emit_out("{R1} POP_ALWAYS\t# break_cleanup_locals\n");
else if(AARCH64 == Architecture) emit_out("POP_X1\t# break_cleanup_locals\n"); else if(AARCH64 == Architecture) emit_out("POP_X1\t# break_cleanup_locals\n");
else if(RISCV64 == Architecture) emit_out("RD_A1 RS1_SP LD\t# break_cleanup_locals\nRD_SP RS1_SP !8 ADDI\n");
i = i->next; i = i->next;
} }
global_token = global_token->next; global_token = global_token->next;
@ -1575,6 +1742,7 @@ void process_break()
else if(AMD64 == Architecture) emit_out("JUMP %"); else if(AMD64 == Architecture) emit_out("JUMP %");
else if(ARMV7L == Architecture) emit_out("^~"); else if(ARMV7L == Architecture) emit_out("^~");
else if(AARCH64 == Architecture) emit_out("LOAD_W16_AHEAD\nSKIP_32_DATA\n&"); else if(AARCH64 == Architecture) emit_out("LOAD_W16_AHEAD\nSKIP_32_DATA\n&");
else if(RISCV64 == Architecture) emit_out("$");
emit_out(break_target_head); emit_out(break_target_head);
emit_out(break_target_func); emit_out(break_target_func);
@ -1582,11 +1750,12 @@ void process_break()
emit_out(break_target_num); emit_out(break_target_num);
if(ARMV7L == Architecture) emit_out(" JUMP_ALWAYS"); if(ARMV7L == Architecture) emit_out(" JUMP_ALWAYS");
else if(AARCH64 == Architecture) emit_out("\nBR_X16"); else if(AARCH64 == Architecture) emit_out("\nBR_X16");
else if(RISCV64 == Architecture) emit_out(" JAL");
emit_out("\n"); emit_out("\n");
require_match("ERROR in break statement\nMissing ;\n", ";"); require_match("ERROR in break statement\nMissing ;\n", ";");
} }
void process_contine() void process_continue()
{ {
if(NULL == continue_target_head) if(NULL == continue_target_head)
{ {
@ -1601,6 +1770,7 @@ void process_contine()
else if(AMD64 == Architecture) emit_out("JUMP %"); else if(AMD64 == Architecture) emit_out("JUMP %");
else if(ARMV7L == Architecture) emit_out("^~"); else if(ARMV7L == Architecture) emit_out("^~");
else if(AARCH64 == Architecture) emit_out("LOAD_W16_AHEAD\nSKIP_32_DATA\n&"); else if(AARCH64 == Architecture) emit_out("LOAD_W16_AHEAD\nSKIP_32_DATA\n&");
else if(RISCV64 == Architecture) emit_out("$");
emit_out(continue_target_head); emit_out(continue_target_head);
emit_out(break_target_func); emit_out(break_target_func);
@ -1608,6 +1778,7 @@ void process_contine()
emit_out(break_target_num); emit_out(break_target_num);
if(ARMV7L == Architecture) emit_out(" JUMP_ALWAYS"); if(ARMV7L == Architecture) emit_out(" JUMP_ALWAYS");
else if(AARCH64 == Architecture) emit_out("\nBR_X16"); else if(AARCH64 == Architecture) emit_out("\nBR_X16");
else if(RISCV64 == Architecture) emit_out(" JAL");
emit_out("\n"); emit_out("\n");
require_match("ERROR in continue statement\nMissing ;\n", ";"); require_match("ERROR in continue statement\nMissing ;\n", ";");
} }
@ -1615,13 +1786,13 @@ void process_contine()
void recursive_statement() void recursive_statement()
{ {
global_token = global_token->next; global_token = global_token->next;
require(NULL != global_token, "Recieved EOF in recursive statement\n"); require(NULL != global_token, "Received EOF in recursive statement\n");
struct token_list* frame = function->locals; struct token_list* frame = function->locals;
while(!match("}", global_token->s)) while(!match("}", global_token->s))
{ {
statement(); statement();
require(NULL != global_token, "Recieved EOF in recursive statement prior to }\n"); require(NULL != global_token, "Received EOF in recursive statement prior to }\n");
} }
global_token = global_token->next; global_token = global_token->next;
@ -1631,7 +1802,8 @@ void recursive_statement()
((AMD64 == Architecture) && !match("RETURN\n", output_list->s)) || ((AMD64 == Architecture) && !match("RETURN\n", output_list->s)) ||
(((KNIGHT_POSIX == Architecture) || (KNIGHT_NATIVE == Architecture)) && !match("RET R15\n", output_list->s)) || (((KNIGHT_POSIX == Architecture) || (KNIGHT_NATIVE == Architecture)) && !match("RET R15\n", output_list->s)) ||
((ARMV7L == Architecture) && !match("'1' LR RETURN\n", output_list->s)) || ((ARMV7L == Architecture) && !match("'1' LR RETURN\n", output_list->s)) ||
((AARCH64 == Architecture) && !match("RETURN\n", output_list->s))) ((AARCH64 == Architecture) && !match("RETURN\n", output_list->s)) ||
((RISCV64 == Architecture) && !match("RETURN\n", output_list->s)))
{ {
struct token_list* i; struct token_list* i;
for(i = function->locals; frame != i; i = i->next) for(i = function->locals; frame != i; i = i->next)
@ -1641,6 +1813,7 @@ void recursive_statement()
else if(AMD64 == Architecture) emit_out("POP_RBX\t# _recursive_statement_locals\n"); else if(AMD64 == Architecture) emit_out("POP_RBX\t# _recursive_statement_locals\n");
else if(ARMV7L == Architecture) emit_out("{R1} POP_ALWAYS\t# _recursive_statement_locals\n"); else if(ARMV7L == Architecture) emit_out("{R1} POP_ALWAYS\t# _recursive_statement_locals\n");
else if(AARCH64 == Architecture) emit_out("POP_X1\t# _recursive_statement_locals\n"); else if(AARCH64 == Architecture) emit_out("POP_X1\t# _recursive_statement_locals\n");
else if(RISCV64 == Architecture) emit_out("RD_A1 RS1_SP LD\t# _recursive_statement_locals\nRD_SP RS1_SP !8 ADDI\n");
} }
} }
function->locals = frame; function->locals = frame;
@ -1714,9 +1887,11 @@ void statement()
else if(AMD64 == Architecture) emit_out("JUMP %"); else if(AMD64 == Architecture) emit_out("JUMP %");
else if(ARMV7L == Architecture) emit_out("^~"); else if(ARMV7L == Architecture) emit_out("^~");
else if(AARCH64 == Architecture) emit_out("LOAD_W16_AHEAD\nSKIP_32_DATA\n&"); else if(AARCH64 == Architecture) emit_out("LOAD_W16_AHEAD\nSKIP_32_DATA\n&");
else if(RISCV64 == Architecture) emit_out("$");
emit_out(global_token->s); emit_out(global_token->s);
if(ARMV7L == Architecture) emit_out(" JUMP_ALWAYS"); if(ARMV7L == Architecture) emit_out(" JUMP_ALWAYS");
else if(AARCH64 == Architecture) emit_out("\nBR_X16"); else if(AARCH64 == Architecture) emit_out("\nBR_X16");
else if(RISCV64 == Architecture) emit_out(" JAL");
emit_out("\n"); emit_out("\n");
global_token = global_token->next; global_token = global_token->next;
require_match("ERROR in statement\nMissing ;\n", ";"); require_match("ERROR in statement\nMissing ;\n", ";");
@ -1731,7 +1906,7 @@ void statement()
} }
else if(match("continue", global_token->s)) else if(match("continue", global_token->s))
{ {
process_contine(); process_continue();
} }
else else
{ {
@ -1744,7 +1919,7 @@ void statement()
void collect_arguments() void collect_arguments()
{ {
global_token = global_token->next; global_token = global_token->next;
require(NULL != global_token, "Recieved EOF when attempting to collect arguments\n"); require(NULL != global_token, "Received EOF when attempting to collect arguments\n");
struct type* type_size; struct type* type_size;
struct token_list* a; struct token_list* a;
@ -1767,6 +1942,7 @@ void collect_arguments()
else if(AMD64 == Architecture) a->depth = -8; else if(AMD64 == Architecture) a->depth = -8;
else if(ARMV7L == Architecture) a->depth = 4; else if(ARMV7L == Architecture) a->depth = 4;
else if(AARCH64 == Architecture) a->depth = register_size; else if(AARCH64 == Architecture) a->depth = register_size;
else if(RISCV64 == Architecture) a->depth = 8;
} }
else else
{ {
@ -1775,6 +1951,7 @@ void collect_arguments()
else if(AMD64 == Architecture) a->depth = function->arguments->depth - register_size; else if(AMD64 == Architecture) a->depth = function->arguments->depth - register_size;
else if(ARMV7L == Architecture) a->depth = function->arguments->depth + register_size; else if(ARMV7L == Architecture) a->depth = function->arguments->depth + register_size;
else if(AARCH64 == Architecture) a->depth = function->arguments->depth + register_size; else if(AARCH64 == Architecture) a->depth = function->arguments->depth + register_size;
else if(RISCV64 == Architecture) a->depth = function->arguments->depth + register_size;
} }
global_token = global_token->next; global_token = global_token->next;
@ -1827,6 +2004,7 @@ void declare_function()
else if((AMD64 == Architecture) && !match("RETURN\n", output_list->s)) emit_out("RETURN\n"); else if((AMD64 == Architecture) && !match("RETURN\n", output_list->s)) emit_out("RETURN\n");
else if((ARMV7L == Architecture) && !match("'1' LR RETURN\n", output_list->s)) emit_out("'1' LR RETURN\n"); else if((ARMV7L == Architecture) && !match("'1' LR RETURN\n", output_list->s)) emit_out("'1' LR RETURN\n");
else if((AARCH64 == Architecture) && !match("RETURN\n", output_list->s)) emit_out("RETURN\n"); else if((AARCH64 == Architecture) && !match("RETURN\n", output_list->s)) emit_out("RETURN\n");
else if((RISCV64 == Architecture) && !match("RETURN\n", output_list->s)) emit_out("RETURN\n");
} }
} }
@ -1874,7 +2052,7 @@ void global_static_array(struct type* type_size, struct token_list* name)
globals_list = emit(name->s, globals_list); globals_list = emit(name->s, globals_list);
globals_list = emit("\n&GLOBAL_STORAGE_", globals_list); globals_list = emit("\n&GLOBAL_STORAGE_", globals_list);
globals_list = emit(name->s, globals_list); globals_list = emit(name->s, globals_list);
if (AARCH64 == Architecture || AMD64 == Architecture) if (AARCH64 == Architecture || AMD64 == Architecture || RISCV64 == Architecture)
{ {
globals_list = emit(" %0", globals_list); globals_list = emit(" %0", globals_list);
} }

2
cc_reader.c
View File

@ -280,7 +280,7 @@ reset:
/* More efficiently allocate memory for string */ /* More efficiently allocate memory for string */
current->s = calloc(string_index + 2, sizeof(char)); current->s = calloc(string_index + 2, sizeof(char));
require(NULL != current->s, "Exhusted memory while trying to copy a token\n"); require(NULL != current->s, "Exhausted memory while trying to copy a token\n");
copy_string(current->s, hold_string, MAX_STRING); copy_string(current->s, hold_string, MAX_STRING);
current->prev = token; current->prev = token;

4
cc_strings.c
View File

@ -134,7 +134,7 @@ collect_regular_string_reset:
hold_string[string_index] = '"'; hold_string[string_index] = '"';
hold_string[string_index + 1] = '\n'; hold_string[string_index + 1] = '\n';
char* message = calloc(string_index + 3, sizeof(char)); char* message = calloc(string_index + 3, sizeof(char));
require(NULL != message, "Exhusted memory while storing regular string\n"); require(NULL != message, "Exhausted memory while storing regular string\n");
copy_string(message, hold_string, string_index + 2); copy_string(message, hold_string, string_index + 2);
reset_hold_string(); reset_hold_string();
return message; return message;
@ -172,7 +172,7 @@ collect_weird_string_reset:
hold_string[string_index + 4] = '\n'; hold_string[string_index + 4] = '\n';
char* hold = calloc(string_index + 6, sizeof(char)); char* hold = calloc(string_index + 6, sizeof(char));
require(NULL != hold, "Exhusted available memory while attempting to collect a weird string\n"); require(NULL != hold, "Exhausted available memory while attempting to collect a weird string\n");
copy_string(hold, hold_string, string_index + 5); copy_string(hold, hold_string, string_index + 5);
reset_hold_string(); reset_hold_string();
return hold; return hold;

18
cc_types.c
View File

@ -41,7 +41,7 @@ struct type* new_primitive(char* name0, char* name1, char* name2, int size, int
{ {
/* Create type** */ /* Create type** */
struct type* a = calloc(1, sizeof(struct type)); struct type* a = calloc(1, sizeof(struct type));
require(NULL != a, "Exhusted memory while declaring new primitive**\n"); require(NULL != a, "Exhausted memory while declaring new primitive**\n");
a->name = name2; a->name = name2;
a->size = register_size; a->size = register_size;
a->indirect = a; a->indirect = a;
@ -49,7 +49,7 @@ struct type* new_primitive(char* name0, char* name1, char* name2, int size, int
/* Create type* */ /* Create type* */
struct type* b = calloc(1, sizeof(struct type)); struct type* b = calloc(1, sizeof(struct type));
require(NULL != b, "Exhusted memory while declaring new primitive*\n"); require(NULL != b, "Exhausted memory while declaring new primitive*\n");
b->name = name1; b->name = name1;
b->size = register_size; b->size = register_size;
b->is_signed = sign; b->is_signed = sign;
@ -58,7 +58,7 @@ struct type* new_primitive(char* name0, char* name1, char* name2, int size, int
a->type = b; a->type = b;
struct type* r = calloc(1, sizeof(struct type)); struct type* r = calloc(1, sizeof(struct type));
require(NULL != r, "Exhusted memory while declaring new primitive\n"); require(NULL != r, "Exhausted memory while declaring new primitive\n");
r->name = name0; r->name = name0;
r->size = size; r->size = size;
r->is_signed = sign; r->is_signed = sign;
@ -71,7 +71,7 @@ struct type* new_primitive(char* name0, char* name1, char* name2, int size, int
/* Initialize default types */ /* Initialize default types */
void initialize_types() void initialize_types()
{ {
if(AMD64 == Architecture || AARCH64 == Architecture) register_size = 8; if(AMD64 == Architecture || AARCH64 == Architecture || RISCV64 == Architecture) register_size = 8;
else register_size = 4; else register_size = 4;
/* Define void */ /* Define void */
@ -158,7 +158,7 @@ int member_size;
struct type* build_member(struct type* last, int offset) struct type* build_member(struct type* last, int offset)
{ {
struct type* i = calloc(1, sizeof(struct type)); struct type* i = calloc(1, sizeof(struct type));
require(NULL != i, "Exhusted memory while building a struct member\n"); require(NULL != i, "Exhausted memory while building a struct member\n");
i->members = last; i->members = last;
i->offset = offset; i->offset = offset;
@ -217,9 +217,9 @@ void create_struct()
int offset = 0; int offset = 0;
member_size = 0; member_size = 0;
struct type* head = calloc(1, sizeof(struct type)); struct type* head = calloc(1, sizeof(struct type));
require(NULL != head, "Exhusted memory while creating a struct\n"); require(NULL != head, "Exhausted memory while creating a struct\n");
struct type* i = calloc(1, sizeof(struct type)); struct type* i = calloc(1, sizeof(struct type));
require(NULL != i, "Exhusted memory while creating a struct indirection\n"); require(NULL != i, "Exhausted memory while creating a struct indirection\n");
head->name = global_token->s; head->name = global_token->s;
head->type = head; head->type = head;
i->name = global_token->s; i->name = global_token->s;
@ -314,9 +314,9 @@ struct type* type_name()
struct type* mirror_type(struct type* source, char* name) struct type* mirror_type(struct type* source, char* name)
{ {
struct type* head = calloc(1, sizeof(struct type)); struct type* head = calloc(1, sizeof(struct type));
require(NULL != head, "Exhusted memory while creating a struct\n"); require(NULL != head, "Exhausted memory while creating a struct\n");
struct type* i = calloc(1, sizeof(struct type)); struct type* i = calloc(1, sizeof(struct type));
require(NULL != i, "Exhusted memory while creating a struct indirection\n"); require(NULL != i, "Exhausted memory while creating a struct indirection\n");
head->name = name; head->name = name;
i->name = name; i->name = name;

6
test/env.inc.sh
View File

@ -29,6 +29,12 @@ case "${ARCH}" in
BLOOD_ELF_WORD_SIZE_FLAG="--64" BLOOD_ELF_WORD_SIZE_FLAG="--64"
ENDIANNESS_FLAG="--little-endian" ENDIANNESS_FLAG="--little-endian"
;; ;;
riscv64)
ARCH_IS_64_BITS="yes"
BASE_ADDRESS="0x00600000"
BLOOD_ELF_WORD_SIZE_FLAG="--64"
ENDIANNESS_FLAG="--little-endian"
;;
armv7l) armv7l)
ARCH_IS_64_BITS="no" ARCH_IS_64_BITS="no"
BASE_ADDRESS="0x00010000" BASE_ADDRESS="0x00010000"

10
test/test.answers
View File

@ -179,8 +179,8 @@ eb1f6aab09a1a4966f9f49a518d8aa03ca97aa7c46e443871d758a306671a85e test/results/t
1abb9b84c4a75d6e9cd2da1f7eba82cd7e12942874130e57ce07e00309bf0b85 test/results/test0106-knight-native-binary 1abb9b84c4a75d6e9cd2da1f7eba82cd7e12942874130e57ce07e00309bf0b85 test/results/test0106-knight-native-binary
a2cbfd5f76d3be8049c6737e3fa02f191caf29b6885db006fa23f86e6eacc186 test/results/test0106-knight-posix-binary a2cbfd5f76d3be8049c6737e3fa02f191caf29b6885db006fa23f86e6eacc186 test/results/test0106-knight-posix-binary
473cc504d6cba9eaf648abcf15c83a317ff3f4a7f08f5e8936e3b35b2cc4fbc6 test/results/test0106-x86-binary 473cc504d6cba9eaf648abcf15c83a317ff3f4a7f08f5e8936e3b35b2cc4fbc6 test/results/test0106-x86-binary
20f93c647aa302eba0d23585477e7f2194f3051fd5304699fd146344101d1149 test/results/test1000-aarch64-binary 72a81efd5238d0b3778e54a8992789e514bae4dc20e3d2ba3bede955ff2c3884 test/results/test1000-aarch64-binary
839af7f0fdc7805dd612c30a7e51fe122a68ed114f98552bf0cac4ad7dca64c3 test/results/test1000-amd64-binary 73fec61b39c6987bd2aab038f3baf2419e3f65eaea756fdd9cb6787e6d5b84d5 test/results/test1000-amd64-binary
cfd6a65b07914697a1f9bc0769e6a77855f86166374aeccf57557cb4d01e4a1c test/results/test1000-armv7l-binary c8a8b532fc30c17beb3b018a753b637b8e57108dc9e865ee9fba7041d23811ce test/results/test1000-armv7l-binary
9045cff6981164a8f348e7e5fb26a96e7d2b1c605f554e4c972e581b52aba730 test/results/test1000-knight-posix-binary d13a1b0c3f153671b0c76a3fbc319945cad6298bf1a7d49f3b24f76764118f61 test/results/test1000-knight-posix-binary
ab09d9b2e8da6a80159fc7c60da69e844938f3fdd6a206ed246b2588f5986287 test/results/test1000-x86-binary f12f2adf7bcbb07b0c124507846b821a8473dec4e4d2e83b26df6bd14bd878dd test/results/test1000-x86-binary

2
test/test1000/proof.answer
View File

@ -1 +1 @@
92c8b0a0e142e2a825bd10cb7d7e2d581ca2ba608f4e21009c1d9837728205d2 test/test1000/proof 05399860cbc9a4c007c49b5a175610c7ec624206367969b195f4406f7c3cf755 test/test1000/proof