Added WinMain entry test

Author: IsaacShelton

tests/run.bat

@@ -387,6 +387,8 @@ call :compile while_continue
 if %errorlevel% neq 0 popd & exit /b %errorlevel%
 call :compile windowed
 if %errorlevel% neq 0 popd & exit /b %errorlevel%
+call :compile winmain_entry
+if %errorlevel% neq 0 popd & exit /b %errorlevel%
 
 :: Delete debugging dump files if present
 if exist ast.txt   del /F ast.txt

tests/run.sh

@@ -208,6 +208,9 @@ compile while || exit $?
 compile while_continue || exit $?
 compile windowed || exit $?
 
+#compile winmain || exit $?
+printf "Skipping \033[0;31mwinmain_entry\033[0m test program\n"
+
 # Delete debugging dump files if present
 rm -f ast.txt
 rm -f infer.txt

tests/winmain_entry/main.adept

@@ -0,0 +1,25 @@
+pragma windows_only
+
+import 'sys/cstdio.adept'
+
+alias HANDLE = ptr
+alias HINSTANCE = HANDLE
+alias LPSTR = *ubyte
+
+record Bomb (message *ubyte) {
+    func __defer__ {
+        printf('%s\n', this.message)
+    }
+}
+
+bomb Bomb = Bomb('Hello World')
+
+external stdcall func WinMain(hInstance, hPrevInstance HINSTANCE, lpCmdLine LPSTR, nCmdShow int) int {
+    // The initialization of 'bomb' and its automatic '__defer__' call should
+    // happen here implicitly
+}
+
+/*
+If no main function exists, and an 'external stdcall func WinMain' exists,
+then it will be treated as the entry point
+*/