windows backend

Author: MESYETI

.gitignore

@@ -21,3 +21,5 @@ test.cal
 out.c
 out
 out.o
+out.exe
+out*

source/app.d

@@ -10,6 +10,7 @@ import callisto.language;
 import callisto.optimiser;
 import callisto.preprocessor;
 import callisto.backends.rm86;
+import callisto.backends.win64;
 import callisto.backends.linux86;
 
 const static string usage = "
@@ -30,6 +31,7 @@ Flags:
 Backends:
 	rm86    - Real mode x86 and MS-DOS
 	linux86 - Linux for 64-bit x86
+	win64   - Windows for 64-bit x86 (Work in progress)
 ";
 
 int main(string[] args) {
@@ -130,6 +132,11 @@ int main(string[] args) {
 							backend = new BackendLinux86();
 							break;
 						}
+						case "win64": {
+							stderr.writeln("WARNING: Unstable backend");
+							backend = new BackendWin64();
+							break;
+						}
 						default: {
 							stderr.writefln("Unknown backend '%s'", args[i]);
 						}

source/backends/linux86.d

@@ -126,7 +126,8 @@ class BackendLinux86 : CompilerBackend {
 		format("mv %s %s.asm", compiler.outFile, compiler.outFile),
 		useDebug?
 			format(
-				"nasm -f elf64 %s.asm -o %s.o -F dwarf -g", compiler.outFile, compiler.outFile
+				"nasm -f elf64 %s.asm -o %s.o -F dwarf -g", compiler.outFile,
+				compiler.outFile
 			) :
 			format("nasm -f elf64 %s.asm -o %s.o", compiler.outFile, compiler.outFile),
 		format("ld %s.o -o %s", compiler.outFile, compiler.outFile),

source/backends/win64.d

@@ -0,0 +1,107 @@
+module callisto.backends.win64;
+
+import std.conv;
+import std.stdio;
+import std.range;
+import std.format;
+import std.algorithm;
+import callisto.util;
+import callisto.error;
+import callisto.parser;
+import callisto.compiler;
+import callisto.language;
+import callisto.backends.linux86;
+
+class BackendWin64 : BackendLinux86 {
+	this() {
+		super();
+	}
+
+	override string[] GetVersions() => ["Win64", "Windows"];
+
+	version (Windows) {
+		override string[] FinalCommands() => [
+			format("mv %s %s.asm", compiler.outFile, compiler.outFile),
+			format("nasm -f win64 %s.asm -o %s.obj", compiler.outFile, compiler.outFile),
+			format(
+				"link %s.obj /subsystem:console /entry:main /out:%s", compiler.outFile,
+				compiler.outFile
+			)
+		];
+	}
+	else {
+		override string[] FinalCommands() => [
+			format("mv %s %s.asm", compiler.outFile, compiler.outFile),
+			format("nasm -f win64 %s.asm -o %s.obj", compiler.outFile, compiler.outFile),
+			format(
+				"x86_64-w64-mingw32-gcc %s.obj -o %s -nostdlib -lkernel32",
+				compiler.outFile, compiler.outFile
+			)
+		];
+	}
+
+	override void Init() {
+		output ~= "extern ExitProcess\n";
+		output ~= "global _start\n";
+		output ~= "section .text\n";
+		output ~= "_start:\n";
+
+		// allocate data stack
+		output ~= "sub rsp, 4096\n"; // 512 cells
+		output ~= "mov r15, rsp\n";
+
+		// copy static array constants
+		output ~= "call __copy_arrays\n";
+
+		// jump to main
+		output ~= "jmp __calmain\n";
+	}
+
+	override void End() {
+		output ~= "xor rax, rax\n";
+		output ~= "call ExitProcess\n";
+
+		// create copy arrays function
+		output ~= "__copy_arrays:\n";
+
+		foreach (i, ref array ; arrays) {
+			output ~= format("mov rsi, __array_src_%d\n", i);
+			output ~= format("mov rdi, __array_%d\n", i);
+			output ~= format("mov rcx, %d\n", array.Size());
+			output ~= "rep movsb\n";
+		}
+
+		output ~= "ret\n";
+
+		// create global variables
+		output ~= "section .bss\n";
+
+		foreach (name, var ; globals) {
+			output ~= format("__global_%s: resb %d\n", name.Sanitise(), var.Size());
+		}
+
+		foreach (i, ref array ; arrays) {
+			output ~= format("__array_%d: resb %d\n", i, array.Size());
+		}
+
+		// create array source
+		output ~= "section .text\n";
+		foreach (i, ref array ; arrays) {
+			output ~= format("__array_src_%d: ", i);
+
+			switch (array.type.size) {
+				case 1:  output ~= "db "; break;
+				case 2:  output ~= "dw "; break;
+				case 4:  output ~= "dd "; break;
+				case 8:  output ~= "dq "; break;
+				default: assert(0);
+			}
+
+			foreach (j, ref element ; array.values) {
+				output ~= element ~ (j == array.values.length - 1? "" : ", ");
+			}
+
+			output ~= '\n';
+		}
+	}
+}