mirror of
https://github.com/Ed94/Odin.git
synced 2026-07-28 18:30:06 +00:00
defer statements
This commit is contained in:
gingerBill
+2
-5
@@ -121,10 +121,7 @@ print_uint_base :: proc(i, base : uint) {
|
||||
|
||||
|
||||
print_bool :: proc(b : bool) {
|
||||
if b {
|
||||
print_string("true");
|
||||
} else {
|
||||
print_string("false");
|
||||
}
|
||||
if b { print_string("true"); }
|
||||
else { print_string("false"); }
|
||||
}
|
||||
|
||||
|
||||
+95
-352
@@ -1,343 +1,119 @@
|
||||
%.string = type {i8*, i64} ; Basic_string
|
||||
%.rawptr = type i8* ; Basic_rawptr
|
||||
|
||||
%HANDLE = type %.rawptr
|
||||
%HWND = type %.rawptr
|
||||
%HDC = type %.rawptr
|
||||
%HINSTANCE = type %.rawptr
|
||||
%HICON = type %.rawptr
|
||||
%HCURSOR = type %.rawptr
|
||||
%HMENU = type %.rawptr
|
||||
%HBRUSH = type %.rawptr
|
||||
%WPARAM = type i64
|
||||
%LPARAM = type i64
|
||||
%LRESULT = type i64
|
||||
%ATOM = type i16
|
||||
%POINT = type {i32, i32}
|
||||
%BOOL = type i32
|
||||
%WNDPROC = type %LRESULT (%HWND, i32, %WPARAM, %LPARAM)*
|
||||
%WNDCLASSEXA = type {i32, i32, %WNDPROC, i32, i32, %HINSTANCE, %HICON, %HCURSOR, %HBRUSH, i8*, i8*, %HICON}
|
||||
%MSG = type {%HWND, i32, %WPARAM, %LPARAM, i32, %POINT}
|
||||
declare void @llvm.memmove.p0i8.p0i8.i64(i8*, i8*, i64, i32, i1) argmemonly nounwind
|
||||
|
||||
@constant = global i64 zeroinitializer
|
||||
@win32_perf_count_freq = global i64 zeroinitializer
|
||||
define i64 @win32_get_perf_count_freq() {
|
||||
entry.-.0:
|
||||
%0 = alloca i64, align 8 ; r
|
||||
store i64 zeroinitializer, i64* %0
|
||||
%1 = getelementptr inbounds i64, i64* %0
|
||||
%2 = call i32 @QueryPerformanceFrequency(i64* %1)
|
||||
%3 = load i64, i64* %0, align 8
|
||||
ret i64 %3
|
||||
}
|
||||
|
||||
define double @time_now() {
|
||||
entry.-.0:
|
||||
%0 = load i64, i64* @win32_perf_count_freq, align 8
|
||||
%1 = icmp eq i64 %0, 0
|
||||
br i1 %1, label %if.then.-.1, label %if.done.-.2
|
||||
|
||||
if.then.-.1:
|
||||
call void @llvm.debugtrap()
|
||||
br label %if.done.-.2
|
||||
|
||||
if.done.-.2:
|
||||
%2 = alloca i64, align 8 ; counter
|
||||
store i64 zeroinitializer, i64* %2
|
||||
%3 = getelementptr inbounds i64, i64* %2
|
||||
%4 = call i32 @QueryPerformanceCounter(i64* %3)
|
||||
%5 = alloca double, align 8 ; result
|
||||
store double zeroinitializer, double* %5
|
||||
%6 = load i64, i64* @win32_perf_count_freq, align 8
|
||||
%7 = sitofp i64 %6 to double
|
||||
%8 = load i64, i64* %2, align 8
|
||||
%9 = sitofp i64 %8 to double
|
||||
%10 = fdiv double %9, %7
|
||||
store double %10, double* %5
|
||||
%11 = load double, double* %5, align 8
|
||||
ret double %11
|
||||
}
|
||||
|
||||
define void @win32_print_last_error() {
|
||||
entry.-.0:
|
||||
%0 = alloca i64, align 8 ; err_code
|
||||
store i64 zeroinitializer, i64* %0
|
||||
%1 = call i32 @GetLastError()
|
||||
%2 = zext i32 %1 to i64
|
||||
store i64 %2, i64* %0
|
||||
%3 = load i64, i64* %0, align 8
|
||||
%4 = icmp ne i64 %3, 0
|
||||
br i1 %4, label %if.then.-.1, label %if.done.-.2
|
||||
|
||||
if.then.-.1:
|
||||
%5 = getelementptr inbounds [14 x i8], [14 x i8]* @.str0, i64 0, i64 0
|
||||
%6 = alloca %.string, align 8
|
||||
store %.string zeroinitializer, %.string* %6
|
||||
%7 = getelementptr inbounds %.string, %.string* %6, i64 0, i32 0
|
||||
%8 = getelementptr inbounds %.string, %.string* %6, i64 0, i32 1
|
||||
store i8* %5, i8** %7
|
||||
store i64 14, i64* %8
|
||||
%9 = load %.string, %.string* %6, align 8
|
||||
call void @print_string(%.string %9)
|
||||
%10 = load i64, i64* %0, align 8
|
||||
call void @print_int(i64 %10)
|
||||
%11 = getelementptr inbounds [1 x i8], [1 x i8]* @.str1, i64 0, i64 0
|
||||
%12 = alloca %.string, align 8
|
||||
store %.string zeroinitializer, %.string* %12
|
||||
%13 = getelementptr inbounds %.string, %.string* %12, i64 0, i32 0
|
||||
%14 = getelementptr inbounds %.string, %.string* %12, i64 0, i32 1
|
||||
store i8* %11, i8** %13
|
||||
store i64 1, i64* %14
|
||||
%15 = load %.string, %.string* %12, align 8
|
||||
call void @print_string(%.string %15)
|
||||
br label %if.done.-.2
|
||||
|
||||
if.done.-.2:
|
||||
ret void
|
||||
}
|
||||
|
||||
define void @main() {
|
||||
entry.-.0:
|
||||
call void @__$startup_runtime()
|
||||
%0 = alloca %WNDCLASSEXA, align 8 ; wc
|
||||
store %WNDCLASSEXA zeroinitializer, %WNDCLASSEXA* %0
|
||||
%1 = alloca %HINSTANCE, align 8 ; instance
|
||||
store %HINSTANCE zeroinitializer, %HINSTANCE* %1
|
||||
%2 = call %HINSTANCE @GetModuleHandleA(i8* null)
|
||||
store %HINSTANCE %2, %HINSTANCE* %1
|
||||
%3 = getelementptr inbounds i64, i64* @win32_perf_count_freq
|
||||
%4 = call i32 @QueryPerformanceFrequency(i64* %3)
|
||||
%5 = alloca i8*, align 8 ; class_name
|
||||
store i8* zeroinitializer, i8** %5
|
||||
%6 = getelementptr inbounds [18 x i8], [18 x i8]* @.str2, i64 0, i64 0
|
||||
%7 = alloca %.string, align 8
|
||||
store %.string zeroinitializer, %.string* %7
|
||||
%8 = getelementptr inbounds %.string, %.string* %7, i64 0, i32 0
|
||||
%9 = getelementptr inbounds %.string, %.string* %7, i64 0, i32 1
|
||||
store i8* %6, i8** %8
|
||||
store i64 18, i64* %9
|
||||
%10 = load %.string, %.string* %7, align 8
|
||||
%11 = call i8* @main$to_c_string-0(%.string %10)
|
||||
store i8* %11, i8** %5
|
||||
%12 = alloca i8*, align 8 ; title
|
||||
store i8* zeroinitializer, i8** %12
|
||||
%13 = getelementptr inbounds [18 x i8], [18 x i8]* @.str3, i64 0, i64 0
|
||||
%14 = alloca %.string, align 8
|
||||
store %.string zeroinitializer, %.string* %14
|
||||
%15 = getelementptr inbounds %.string, %.string* %14, i64 0, i32 0
|
||||
%16 = getelementptr inbounds %.string, %.string* %14, i64 0, i32 1
|
||||
store i8* %13, i8** %15
|
||||
store i64 18, i64* %16
|
||||
%17 = load %.string, %.string* %14, align 8
|
||||
%18 = call i8* @main$to_c_string-0(%.string %17)
|
||||
store i8* %18, i8** %12
|
||||
%19 = getelementptr inbounds %WNDCLASSEXA, %WNDCLASSEXA* %0, i64 0, i32 0
|
||||
store i32 80, i32* %19
|
||||
%20 = getelementptr inbounds %WNDCLASSEXA, %WNDCLASSEXA* %0, i64 0, i32 1
|
||||
store i32 3, i32* %20
|
||||
%21 = getelementptr inbounds %WNDCLASSEXA, %WNDCLASSEXA* %0, i64 0, i32 5
|
||||
%22 = load %HINSTANCE, %HINSTANCE* %1, align 8
|
||||
store %HINSTANCE %22, %HINSTANCE* %21
|
||||
%23 = getelementptr inbounds %WNDCLASSEXA, %WNDCLASSEXA* %0, i64 0, i32 10
|
||||
%24 = load i8*, i8** %5, align 8
|
||||
store i8* %24, i8** %23
|
||||
%25 = getelementptr inbounds %WNDCLASSEXA, %WNDCLASSEXA* %0, i64 0, i32 8
|
||||
%26 = inttoptr i64 1 to %.rawptr
|
||||
store %HBRUSH %26, %HBRUSH* %25
|
||||
%27 = getelementptr inbounds %WNDCLASSEXA, %WNDCLASSEXA* %0, i64 0, i32 2
|
||||
store %WNDPROC @main$1, %WNDPROC* %27
|
||||
%28 = getelementptr inbounds %WNDCLASSEXA, %WNDCLASSEXA* %0
|
||||
%29 = call %ATOM @RegisterClassExA(%WNDCLASSEXA* %28)
|
||||
%30 = icmp eq i16 %29, 0
|
||||
br i1 %30, label %if.then.-.1, label %if.done.-.2
|
||||
%0 = getelementptr inbounds [8 x i8], [8 x i8]* @.str0, i64 0, i64 0
|
||||
%1 = alloca %.string, align 8
|
||||
store %.string zeroinitializer, %.string* %1
|
||||
%2 = getelementptr inbounds %.string, %.string* %1, i64 0, i32 0
|
||||
%3 = getelementptr inbounds %.string, %.string* %1, i64 0, i32 1
|
||||
store i8* %0, i8** %2
|
||||
store i64 8, i64* %3
|
||||
%4 = load %.string, %.string* %1, align 8
|
||||
call void @print_string(%.string %4)
|
||||
br label %for.init.-.1
|
||||
|
||||
if.then.-.1:
|
||||
ret void
|
||||
for.init.-.1:
|
||||
%5 = alloca i64, align 8 ; i
|
||||
store i64 zeroinitializer, i64* %5
|
||||
store i64 0, i64* %5
|
||||
br label %for.loop.-.3
|
||||
|
||||
if.done.-.2:
|
||||
%31 = alloca %HWND, align 8 ; hwnd
|
||||
store %HWND zeroinitializer, %HWND* %31
|
||||
%32 = load i8*, i8** %5, align 8
|
||||
%33 = load i8*, i8** %12, align 8
|
||||
%34 = load %HINSTANCE, %HINSTANCE* %1, align 8
|
||||
%35 = call %HWND @CreateWindowExA(i32 0, i8* %32, i8* %33, i32 281673728, i32 0, i32 0, i32 854, i32 480, %HWND null, %HMENU null, %HINSTANCE %34, %.rawptr null)
|
||||
store %HWND %35, %HWND* %31
|
||||
%36 = load %HWND, %HWND* %31, align 8
|
||||
%37 = icmp eq %.rawptr %36, null
|
||||
br i1 %37, label %if.then.-.3, label %if.done.-.4
|
||||
for.body.-.2:
|
||||
%6 = load i64, i64* %5, align 8
|
||||
%7 = icmp sgt i64 %6, 2
|
||||
br i1 %7, label %if.then.-.5, label %if.done.-.9
|
||||
|
||||
if.then.-.3:
|
||||
call void @win32_print_last_error()
|
||||
ret void
|
||||
for.loop.-.3:
|
||||
%8 = load i64, i64* %5, align 8
|
||||
%9 = icmp slt i64 %8, 4
|
||||
br i1 %9, label %for.body.-.2, label %for.done.-.13
|
||||
|
||||
if.done.-.4:
|
||||
%38 = alloca double, align 8 ; start_time
|
||||
store double zeroinitializer, double* %38
|
||||
%39 = call double @time_now()
|
||||
store double %39, double* %38
|
||||
%40 = alloca i1, align 1 ; running
|
||||
store i1 zeroinitializer, i1* %40
|
||||
store i1 true, i1* %40
|
||||
%41 = alloca i64, align 8 ; tick_count
|
||||
store i64 zeroinitializer, i64* %41
|
||||
store i64 0, i64* %41
|
||||
br label %for.loop.-.6
|
||||
for.post.-.4:
|
||||
%10 = load i64, i64* %5, align 8
|
||||
%11 = add i64 %10, 1
|
||||
store i64 %11, i64* %5
|
||||
br label %for.loop.-.3
|
||||
|
||||
for.body.-.5:
|
||||
%42 = alloca double, align 8 ; curr_time
|
||||
store double zeroinitializer, double* %42
|
||||
%43 = call double @time_now()
|
||||
store double %43, double* %42
|
||||
%44 = alloca double, align 8 ; dt
|
||||
store double zeroinitializer, double* %44
|
||||
%45 = load double, double* %38, align 8
|
||||
%46 = load double, double* %42, align 8
|
||||
%47 = fsub double %46, %45
|
||||
store double %47, double* %44
|
||||
%48 = load double, double* %44, align 8
|
||||
%49 = fcmp ogt double %48, 0x4000000000000000
|
||||
br i1 %49, label %if.then.-.7, label %if.done.-.8
|
||||
if.then.-.5:
|
||||
br label %defer.-.6
|
||||
|
||||
for.loop.-.6:
|
||||
%50 = load i1, i1* %40, align 1
|
||||
br i1 %50, label %for.body.-.5, label %for.done.-.16
|
||||
defer.-.6:
|
||||
%12 = getelementptr inbounds [6 x i8], [6 x i8]* @.str1, i64 0, i64 0
|
||||
%13 = alloca %.string, align 8
|
||||
store %.string zeroinitializer, %.string* %13
|
||||
%14 = getelementptr inbounds %.string, %.string* %13, i64 0, i32 0
|
||||
%15 = getelementptr inbounds %.string, %.string* %13, i64 0, i32 1
|
||||
store i8* %12, i8** %14
|
||||
store i64 6, i64* %15
|
||||
%16 = load %.string, %.string* %13, align 8
|
||||
call void @print_string(%.string %16)
|
||||
br label %defer.-.7
|
||||
|
||||
if.then.-.7:
|
||||
store i1 false, i1* %40
|
||||
br label %if.done.-.8
|
||||
defer.-.7:
|
||||
%17 = load i64, i64* %5, align 8
|
||||
call void @print_int(i64 %17)
|
||||
call void @print_rune(i32 10)
|
||||
br label %for.done.-.13
|
||||
|
||||
if.done.-.8:
|
||||
%51 = alloca %MSG, align 8 ; msg
|
||||
store %MSG zeroinitializer, %MSG* %51
|
||||
br label %for.body.-.9
|
||||
defer.-.8:
|
||||
%18 = getelementptr inbounds [6 x i8], [6 x i8]* @.str2, i64 0, i64 0
|
||||
%19 = alloca %.string, align 8
|
||||
store %.string zeroinitializer, %.string* %19
|
||||
%20 = getelementptr inbounds %.string, %.string* %19, i64 0, i32 0
|
||||
%21 = getelementptr inbounds %.string, %.string* %19, i64 0, i32 1
|
||||
store i8* %18, i8** %20
|
||||
store i64 6, i64* %21
|
||||
%22 = load %.string, %.string* %19, align 8
|
||||
call void @print_string(%.string %22)
|
||||
br label %if.done.-.9
|
||||
|
||||
for.body.-.9:
|
||||
%52 = alloca i1, align 1 ; ok
|
||||
store i1 zeroinitializer, i1* %52
|
||||
%53 = getelementptr inbounds %MSG, %MSG* %51
|
||||
%54 = call %BOOL @PeekMessageA(%MSG* %53, %HWND null, i32 0, i32 0, i32 1)
|
||||
%55 = icmp ne i32 %54, 0
|
||||
store i1 %55, i1* %52
|
||||
%56 = load i1, i1* %52, align 1
|
||||
br i1 %56, label %if.done.-.11, label %if.then.-.10
|
||||
if.done.-.9:
|
||||
%23 = load i64, i64* %5, align 8
|
||||
%24 = icmp eq i64 %23, 2
|
||||
br i1 %24, label %if.then.-.10, label %if.done.-.11
|
||||
|
||||
if.then.-.10:
|
||||
br label %for.done.-.15
|
||||
br label %if.done.-.11
|
||||
|
||||
if.done.-.11:
|
||||
%57 = getelementptr inbounds %MSG, %MSG* %51, i64 0, i32 1
|
||||
%58 = load i32, i32* %57, align 4
|
||||
%59 = icmp eq i32 %58, 18
|
||||
br i1 %59, label %if.then.-.12, label %if.else.-.13
|
||||
br label %defer.-.12
|
||||
|
||||
if.then.-.12:
|
||||
ret void
|
||||
|
||||
if.else.-.13:
|
||||
%60 = getelementptr inbounds %MSG, %MSG* %51
|
||||
%61 = call %BOOL @TranslateMessage(%MSG* %60)
|
||||
%62 = getelementptr inbounds %MSG, %MSG* %51
|
||||
%63 = call %LRESULT @DispatchMessageA(%MSG* %62)
|
||||
br label %if.done.-.14
|
||||
|
||||
if.done.-.14:
|
||||
br label %for.body.-.9
|
||||
|
||||
for.done.-.15:
|
||||
%64 = getelementptr inbounds [6 x i8], [6 x i8]* @.str4, i64 0, i64 0
|
||||
%65 = alloca %.string, align 8
|
||||
store %.string zeroinitializer, %.string* %65
|
||||
%66 = getelementptr inbounds %.string, %.string* %65, i64 0, i32 0
|
||||
%67 = getelementptr inbounds %.string, %.string* %65, i64 0, i32 1
|
||||
store i8* %64, i8** %66
|
||||
store i64 6, i64* %67
|
||||
%68 = load %.string, %.string* %65, align 8
|
||||
call void @print_string(%.string %68)
|
||||
%69 = load i64, i64* %41, align 8
|
||||
call void @print_int(i64 %69)
|
||||
%70 = load i64, i64* %41, align 8
|
||||
%71 = add i64 %70, 1
|
||||
store i64 %71, i64* %41
|
||||
defer.-.12:
|
||||
%25 = load i64, i64* %5, align 8
|
||||
call void @print_int(i64 %25)
|
||||
call void @print_rune(i32 10)
|
||||
call void @sleep_ms(i32 16)
|
||||
br label %for.loop.-.6
|
||||
br label %for.post.-.4
|
||||
|
||||
for.done.-.16:
|
||||
for.done.-.13:
|
||||
%26 = getelementptr inbounds [13 x i8], [13 x i8]* @.str3, i64 0, i64 0
|
||||
%27 = alloca %.string, align 8
|
||||
store %.string zeroinitializer, %.string* %27
|
||||
%28 = getelementptr inbounds %.string, %.string* %27, i64 0, i32 0
|
||||
%29 = getelementptr inbounds %.string, %.string* %27, i64 0, i32 1
|
||||
store i8* %26, i8** %28
|
||||
store i64 13, i64* %29
|
||||
%30 = load %.string, %.string* %27, align 8
|
||||
call void @print_string(%.string %30)
|
||||
br label %defer.-.14
|
||||
|
||||
defer.-.14:
|
||||
%31 = getelementptr inbounds [6 x i8], [6 x i8]* @.str4, i64 0, i64 0
|
||||
%32 = alloca %.string, align 8
|
||||
store %.string zeroinitializer, %.string* %32
|
||||
%33 = getelementptr inbounds %.string, %.string* %32, i64 0, i32 0
|
||||
%34 = getelementptr inbounds %.string, %.string* %32, i64 0, i32 1
|
||||
store i8* %31, i8** %33
|
||||
store i64 6, i64* %34
|
||||
%35 = load %.string, %.string* %32, align 8
|
||||
call void @print_string(%.string %35)
|
||||
ret void
|
||||
}
|
||||
|
||||
define i8* @main$to_c_string-0(%.string %s) {
|
||||
entry.-.0:
|
||||
%0 = alloca %.string, align 8 ; s
|
||||
store %.string zeroinitializer, %.string* %0
|
||||
store %.string %s, %.string* %0
|
||||
%1 = alloca i8*, align 8 ; c_str
|
||||
store i8* zeroinitializer, i8** %1
|
||||
%2 = getelementptr inbounds %.string, %.string* %0, i64 0, i32 1
|
||||
%3 = load i64, i64* %2, align 8
|
||||
%4 = add i64 %3, 1
|
||||
%5 = call %.rawptr @malloc(i64 %4)
|
||||
%6 = bitcast %.rawptr %5 to i8*
|
||||
store i8* %6, i8** %1
|
||||
%7 = load i8*, i8** %1, align 8
|
||||
%8 = getelementptr inbounds %.string, %.string* %0, i64 0, i32 0
|
||||
%9 = load i8*, i8** %8, align 8
|
||||
%10 = getelementptr i8, i8* %9, i64 0
|
||||
%11 = getelementptr inbounds i8, i8* %10
|
||||
%12 = getelementptr inbounds %.string, %.string* %0, i64 0, i32 1
|
||||
%13 = load i64, i64* %12, align 8
|
||||
%14 = call i32 @memcpy(%.rawptr %7, %.rawptr %11, i64 %13)
|
||||
%15 = load i8*, i8** %1, align 8
|
||||
%16 = getelementptr inbounds %.string, %.string* %0, i64 0, i32 1
|
||||
%17 = load i64, i64* %16, align 8
|
||||
%18 = getelementptr i8, i8* %15, i64 %17
|
||||
store i8 0, i8* %18
|
||||
%19 = load i8*, i8** %1, align 8
|
||||
ret i8* %19
|
||||
}
|
||||
|
||||
define %LRESULT @main$1(%HWND %hwnd, i32 %msg, %WPARAM %wparam, %LPARAM %lparam) noinline {
|
||||
entry.-.0:
|
||||
%0 = alloca %HWND, align 8 ; hwnd
|
||||
store %HWND zeroinitializer, %HWND* %0
|
||||
store %HWND %hwnd, %HWND* %0
|
||||
%1 = alloca i32, align 4 ; msg
|
||||
store i32 zeroinitializer, i32* %1
|
||||
store i32 %msg, i32* %1
|
||||
%2 = alloca %WPARAM, align 8 ; wparam
|
||||
store %WPARAM zeroinitializer, %WPARAM* %2
|
||||
store %WPARAM %wparam, %WPARAM* %2
|
||||
%3 = alloca %LPARAM, align 8 ; lparam
|
||||
store %LPARAM zeroinitializer, %LPARAM* %3
|
||||
store %LPARAM %lparam, %LPARAM* %3
|
||||
%4 = load i32, i32* %1, align 4
|
||||
%5 = icmp eq i32 %4, 2
|
||||
br i1 %5, label %if.then.-.1, label %cmp-or.-.3
|
||||
|
||||
if.then.-.1:
|
||||
call void @ExitProcess(i32 0)
|
||||
ret %LRESULT 0
|
||||
|
||||
cmp-or.-.2:
|
||||
%6 = load i32, i32* %1, align 4
|
||||
%7 = icmp eq i32 %6, 18
|
||||
br i1 %7, label %if.then.-.1, label %if.done.-.4
|
||||
|
||||
cmp-or.-.3:
|
||||
%8 = load i32, i32* %1, align 4
|
||||
%9 = icmp eq i32 %8, 16
|
||||
br i1 %9, label %if.then.-.1, label %cmp-or.-.2
|
||||
|
||||
if.done.-.4:
|
||||
%10 = load %HWND, %HWND* %0, align 8
|
||||
%11 = load i32, i32* %1, align 4
|
||||
%12 = load %WPARAM, %WPARAM* %2, align 8
|
||||
%13 = load %LPARAM, %LPARAM* %3, align 8
|
||||
%14 = call %LRESULT @DefWindowProcA(%HWND %10, i32 %11, %WPARAM %12, %LPARAM %13)
|
||||
ret i64 %14
|
||||
}
|
||||
|
||||
define void @print_string(%.string %s) {
|
||||
entry.-.0:
|
||||
%0 = alloca %.string, align 8 ; s
|
||||
@@ -973,36 +749,6 @@ if.done.-.3:
|
||||
ret void
|
||||
}
|
||||
|
||||
declare %HANDLE @GetStdHandle(i32 %h) ; foreign
|
||||
declare i32 @CloseHandle(%HANDLE %h) ; foreign
|
||||
declare i32 @WriteFileA(%HANDLE %h, %.rawptr %buf, i32 %len, i32* %written_result, %.rawptr %overlapped) ; foreign
|
||||
declare i32 @GetLastError() ; foreign
|
||||
declare void @ExitProcess(i32 %exit_code) ; foreign
|
||||
declare %HWND @GetDesktopWindow() ; foreign
|
||||
declare i32 @GetCursorPos(%POINT* %p) ; foreign
|
||||
declare i32 @ScreenToClient(%HWND %h, %POINT* %p) ; foreign
|
||||
declare %HINSTANCE @GetModuleHandleA(i8* %module_name) ; foreign
|
||||
declare i32 @QueryPerformanceFrequency(i64* %result) ; foreign
|
||||
declare i32 @QueryPerformanceCounter(i64* %result) ; foreign
|
||||
define void @sleep_ms(i32 %ms) {
|
||||
entry.-.0:
|
||||
%0 = alloca i32, align 4 ; ms
|
||||
store i32 zeroinitializer, i32* %0
|
||||
store i32 %ms, i32* %0
|
||||
%1 = load i32, i32* %0, align 4
|
||||
%2 = call i32 @Sleep(i32 %1)
|
||||
ret void
|
||||
}
|
||||
|
||||
declare i32 @Sleep(i32 %ms) declare void @OutputDebugStringA(i8* %c_str) ; foreign
|
||||
declare %ATOM @RegisterClassExA(%WNDCLASSEXA* %wc) ; foreign
|
||||
declare %HWND @CreateWindowExA(i32 %ex_style, i8* %class_name, i8* %title, i32 %style, i32 %x, i32 %y, i32 %w, i32 %h, %HWND %parent, %HMENU %menu, %HINSTANCE %instance, %.rawptr %param) ; foreign
|
||||
declare %BOOL @ShowWindow(%HWND %hwnd, i32 %cmd_show) ; foreign
|
||||
declare %BOOL @UpdateWindow(%HWND %hwnd) ; foreign
|
||||
declare %BOOL @PeekMessageA(%MSG* %msg, %HWND %hwnd, i32 %msg_filter_min, i32 %msg_filter_max, i32 %remove_msg) ; foreign
|
||||
declare %BOOL @TranslateMessage(%MSG* %msg) ; foreign
|
||||
declare %LRESULT @DispatchMessageA(%MSG* %msg) ; foreign
|
||||
declare %LRESULT @DefWindowProcA(%HWND %hwnd, i32 %msg, %WPARAM %wparam, %LPARAM %lparam) ; foreign
|
||||
declare i32 @putchar(i32 %c) ; foreign
|
||||
declare %.rawptr @malloc(i64 %sz) ; foreign
|
||||
declare void @free(%.rawptr %ptr) ; foreign
|
||||
@@ -1249,20 +995,17 @@ entry.-.0:
|
||||
ret i1 %5
|
||||
}
|
||||
|
||||
@.str0 = global [14 x i8] c"GetLastError\3A\20"
|
||||
@.str1 = global [1 x i8] c"\0A"
|
||||
@.str2 = global [18 x i8] c"Odin-Language-Demo"
|
||||
@.str3 = global [18 x i8] c"Odin\20Language\20Demo"
|
||||
@.str4 = global [6 x i8] c"Tick\3A\20"
|
||||
@.str0 = global [8 x i8] c"Hellope\0A"
|
||||
@.str1 = global [6 x i8] c"break\0A"
|
||||
@.str2 = global [6 x i8] c"break\0A"
|
||||
@.str3 = global [13 x i8] c"Never\20called\0A"
|
||||
@.str4 = global [6 x i8] c"World\0A"
|
||||
@.str5 = global [64 x i8] c"0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz\40$"
|
||||
@.str6 = global [64 x i8] c"0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz\40$"
|
||||
@.str7 = global [4 x i8] c"true"
|
||||
@.str8 = global [5 x i8] c"false"
|
||||
define void @__$startup_runtime() {
|
||||
define void @__$startup_runtime() noinline {
|
||||
entry.-.0:
|
||||
%0 = call i64 @win32_get_perf_count_freq()
|
||||
store i64 1, i64* @constant
|
||||
store i64 %0, i64* @win32_perf_count_freq
|
||||
ret void
|
||||
}
|
||||
|
||||
|
||||
+28
-8
@@ -1,16 +1,34 @@
|
||||
#load "basic.odin"
|
||||
#load "win32.odin"
|
||||
|
||||
constant := 1;
|
||||
main :: proc() {
|
||||
print_string("Hellope\n");
|
||||
defer print_string("World\n");
|
||||
|
||||
win32_perf_count_freq: i64 = win32_get_perf_count_freq();
|
||||
win32_get_perf_count_freq :: proc() -> i64 {
|
||||
r: i64;
|
||||
_ = QueryPerformanceFrequency(^r);
|
||||
return r;
|
||||
for i := 0; i < 4; i++ {
|
||||
defer {
|
||||
print_int(i);
|
||||
print_rune('\n');
|
||||
}
|
||||
|
||||
if i > 2 {
|
||||
defer print_string("break\n");
|
||||
break;
|
||||
}
|
||||
if i == 2 {
|
||||
// return;
|
||||
}
|
||||
}
|
||||
|
||||
print_string("Never called\n");
|
||||
}
|
||||
|
||||
|
||||
|
||||
/*
|
||||
#load "win32.odin"
|
||||
|
||||
win32_perf_count_freq := GetQueryPerformanceFrequency();
|
||||
|
||||
time_now :: proc() -> f64 {
|
||||
if win32_perf_count_freq == 0 {
|
||||
debug_trap();
|
||||
@@ -22,7 +40,6 @@ time_now :: proc() -> f64 {
|
||||
return result;
|
||||
}
|
||||
|
||||
|
||||
win32_print_last_error :: proc() {
|
||||
err_code := GetLastError() as int;
|
||||
if err_code != 0 {
|
||||
@@ -33,6 +50,7 @@ win32_print_last_error :: proc() {
|
||||
}
|
||||
|
||||
main :: proc() {
|
||||
/*
|
||||
wc: WNDCLASSEXA;
|
||||
instance := GetModuleHandleA(null);
|
||||
|
||||
@@ -113,4 +131,6 @@ main :: proc() {
|
||||
|
||||
sleep_ms(16);
|
||||
}
|
||||
*/
|
||||
}
|
||||
*/
|
||||
|
||||
@@ -101,3 +101,11 @@ TranslateMessage :: proc(msg: ^MSG) -> BOOL #foreign
|
||||
DispatchMessageA :: proc(msg: ^MSG) -> LRESULT #foreign
|
||||
|
||||
DefWindowProcA :: proc(hwnd: HWND, msg: u32, wparam: WPARAM, lparam: LPARAM) -> LRESULT #foreign
|
||||
|
||||
|
||||
|
||||
GetQueryPerformanceFrequency :: proc() -> i64 {
|
||||
r: i64;
|
||||
_ = QueryPerformanceFrequency(^r);
|
||||
return r;
|
||||
}
|
||||
|
||||
Reference in New Issue
Block a user