mirrors/Odin
1
0
Fork 0
mirror of https://github.com/odin-lang/Odin.git synced 2026-02-14 07:13:14 +00:00
Code Issues Packages Projects Releases Wiki Activity

field = value, for structure literals

Browse Source
This commit is contained in:
gingerBill
2016-08-16 21:01:59 +01:00
parent e8530ca883
commit 9e61e3beee
7 changed files with 400 additions and 383 deletions
Download Patch File Download Diff File Expand all files Collapse all files

528
examples/main.ll
View File

@@ -93,321 +93,267 @@ if.done.-.2:
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 2
store %WNDPROC @main$1, %WNDPROC* %25
%26 = getelementptr inbounds %WNDCLASSEXA, %WNDCLASSEXA* %0
%27 = call %ATOM @RegisterClassExA(%WNDCLASSEXA* %26)
%28 = icmp eq i16 %27, 0
br i1 %28, label %if.then.-.1, label %if.done.-.4
%0 = alloca %HINSTANCE, align 8 ; instance
store %HINSTANCE zeroinitializer, %HINSTANCE* %0
%1 = call %HINSTANCE @GetModuleHandleA(i8* null)
store %HINSTANCE %1, %HINSTANCE* %0
%2 = alloca %.string, align 8 ; class_name
store %.string zeroinitializer, %.string* %2
%3 = getelementptr inbounds [19 x i8], [19 x i8]* @.str2, i64 0, i64 0
%4 = alloca %.string, align 8
store %.string zeroinitializer, %.string* %4
%5 = getelementptr inbounds %.string, %.string* %4, i64 0, i32 0
%6 = getelementptr inbounds %.string, %.string* %4, i64 0, i32 1
store i8* %3, i8** %5
store i64 19, i64* %6
%7 = load %.string, %.string* %4, align 8
store %.string %7, %.string* %2
%8 = alloca %.string, align 8 ; title
store %.string zeroinitializer, %.string* %8
%9 = getelementptr inbounds [19 x i8], [19 x i8]* @.str3, i64 0, i64 0
%10 = alloca %.string, align 8
store %.string zeroinitializer, %.string* %10
%11 = getelementptr inbounds %.string, %.string* %10, i64 0, i32 0
%12 = getelementptr inbounds %.string, %.string* %10, i64 0, i32 1
store i8* %9, i8** %11
store i64 19, i64* %12
%13 = load %.string, %.string* %10, align 8
store %.string %13, %.string* %8
%14 = alloca i8*, align 8 ; c_class_name
store i8* zeroinitializer, i8** %14
%15 = getelementptr inbounds %.string, %.string* %2, i64 0, i32 0
%16 = load i8*, i8** %15, align 8
%17 = getelementptr i8, i8* %16, i64 0
%18 = getelementptr inbounds i8, i8* %17
store i8* %18, i8** %14
%19 = alloca i8*, align 8 ; c_title
store i8* zeroinitializer, i8** %19
%20 = getelementptr inbounds %.string, %.string* %8, i64 0, i32 0
%21 = load i8*, i8** %20, align 8
%22 = getelementptr i8, i8* %21, i64 0
%23 = getelementptr inbounds i8, i8* %22
store i8* %23, i8** %19
%24 = alloca %WNDCLASSEXA, align 8 ; wc
store %WNDCLASSEXA zeroinitializer, %WNDCLASSEXA* %24
%25 = alloca %WNDCLASSEXA, align 8
store %WNDCLASSEXA zeroinitializer, %WNDCLASSEXA* %25
%26 = getelementptr inbounds %WNDCLASSEXA, %WNDCLASSEXA* %25, i64 0, i32 0
store i32 80, i32* %26
%27 = getelementptr inbounds %WNDCLASSEXA, %WNDCLASSEXA* %25, i64 0, i32 1
store i32 3, i32* %27
%28 = load %HINSTANCE, %HINSTANCE* %0, align 8
%29 = getelementptr inbounds %WNDCLASSEXA, %WNDCLASSEXA* %25, i64 0, i32 5
store %HINSTANCE %28, %HINSTANCE* %29
%30 = load i8*, i8** %14, align 8
%31 = getelementptr inbounds %WNDCLASSEXA, %WNDCLASSEXA* %25, i64 0, i32 10
store i8* %30, i8** %31
%32 = bitcast %LRESULT (%HWND, i32, %WPARAM, %LPARAM)* @main$0 to %LRESULT (%HWND, i32, %WPARAM, %LPARAM)*
%33 = getelementptr inbounds %WNDCLASSEXA, %WNDCLASSEXA* %25, i64 0, i32 2
store %WNDPROC %32, %WNDPROC* %33
%34 = load %WNDCLASSEXA, %WNDCLASSEXA* %25, align 8
store %WNDCLASSEXA %34, %WNDCLASSEXA* %24
%35 = getelementptr inbounds %WNDCLASSEXA, %WNDCLASSEXA* %24
%36 = call %ATOM @RegisterClassExA(%WNDCLASSEXA* %35)
%37 = icmp eq i16 %36, 0
br i1 %37, label %if.then.-.1, label %if.done.-.2
if.then.-.1:
br label %defer.-.2
ret void
defer.-.2:
%29 = load i8*, i8** %12, align 8
call void @free(%.rawptr %29)
br label %defer.-.3
if.done.-.2:
%38 = alloca %HWND, align 8 ; hwnd
store %HWND zeroinitializer, %HWND* %38
%39 = load i8*, i8** %14, align 8
%40 = load i8*, i8** %19, align 8
%41 = load %HINSTANCE, %HINSTANCE* %0, align 8
%42 = call %HWND @CreateWindowExA(i32 0, i8* %39, i8* %40, i32 281673728, i32 2147483648, i32 2147483648, i32 854, i32 480, %HWND null, %HMENU null, %HINSTANCE %41, %.rawptr null)
store %HWND %42, %HWND* %38
%43 = load %HWND, %HWND* %38, align 8
%44 = icmp eq %.rawptr %43, null
br i1 %44, label %if.then.-.3, label %if.done.-.4
defer.-.3:
%30 = load i8*, i8** %5, align 8
call void @free(%.rawptr %30)
if.then.-.3:
call void @win32_print_last_error()
ret void
if.done.-.4:
%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 2147483648, i32 2147483648, 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.-.5, label %if.done.-.8
%45 = alloca %HDC, align 8 ; dc
store %HDC zeroinitializer, %HDC* %45
%46 = load %HWND, %HWND* %38, align 8
%47 = call %HDC @GetDC(%HANDLE %46)
store %HDC %47, %HDC* %45
%48 = alloca %HGLRC, align 8 ; opengl_context
store %HGLRC zeroinitializer, %HGLRC* %48
%49 = alloca %PIXELFORMATDESCRIPTOR, align 4 ; pfd
store %PIXELFORMATDESCRIPTOR zeroinitializer, %PIXELFORMATDESCRIPTOR* %49
%50 = alloca %PIXELFORMATDESCRIPTOR, align 4
store %PIXELFORMATDESCRIPTOR zeroinitializer, %PIXELFORMATDESCRIPTOR* %50
%51 = getelementptr inbounds %PIXELFORMATDESCRIPTOR, %PIXELFORMATDESCRIPTOR* %50, i64 0, i32 0
store i32 44, i32* %51
%52 = getelementptr inbounds %PIXELFORMATDESCRIPTOR, %PIXELFORMATDESCRIPTOR* %50, i64 0, i32 1
store i32 1, i32* %52
%53 = getelementptr inbounds %PIXELFORMATDESCRIPTOR, %PIXELFORMATDESCRIPTOR* %50, i64 0, i32 2
store i32 37, i32* %53
%54 = getelementptr inbounds %PIXELFORMATDESCRIPTOR, %PIXELFORMATDESCRIPTOR* %50, i64 0, i32 3
store i8 0, i8* %54
%55 = getelementptr inbounds %PIXELFORMATDESCRIPTOR, %PIXELFORMATDESCRIPTOR* %50, i64 0, i32 4
store i8 32, i8* %55
%56 = getelementptr inbounds %PIXELFORMATDESCRIPTOR, %PIXELFORMATDESCRIPTOR* %50, i64 0, i32 11
store i8 8, i8* %56
%57 = getelementptr inbounds %PIXELFORMATDESCRIPTOR, %PIXELFORMATDESCRIPTOR* %50, i64 0, i32 18
store i8 24, i8* %57
%58 = getelementptr inbounds %PIXELFORMATDESCRIPTOR, %PIXELFORMATDESCRIPTOR* %50, i64 0, i32 19
store i8 8, i8* %58
%59 = getelementptr inbounds %PIXELFORMATDESCRIPTOR, %PIXELFORMATDESCRIPTOR* %50, i64 0, i32 21
store i8 0, i8* %59
%60 = load %PIXELFORMATDESCRIPTOR, %PIXELFORMATDESCRIPTOR* %50, align 4
store %PIXELFORMATDESCRIPTOR %60, %PIXELFORMATDESCRIPTOR* %49
%61 = load %HDC, %HDC* %45, align 8
%62 = load %HDC, %HDC* %45, align 8
%63 = getelementptr inbounds %PIXELFORMATDESCRIPTOR, %PIXELFORMATDESCRIPTOR* %49
%64 = call i32 @ChoosePixelFormat(%HDC %62, %PIXELFORMATDESCRIPTOR* %63)
%65 = call %BOOL @SetPixelFormat(%HDC %61, i32 %64, %PIXELFORMATDESCRIPTOR* null)
%66 = load %HDC, %HDC* %45, align 8
%67 = call %HGLRC @wglCreateContext(%HDC %66)
store %HGLRC %67, %HGLRC* %48
%68 = load %HDC, %HDC* %45, align 8
%69 = load %HGLRC, %HGLRC* %48, align 8
%70 = call %BOOL @wglMakeCurrent(%HDC %68, %HGLRC %69)
%71 = alloca [8 x i32], align 4 ; attribs
store [8 x i32] zeroinitializer, [8 x i32]* %71
%72 = alloca [8 x i32], align 4
store [8 x i32] zeroinitializer, [8 x i32]* %72
%73 = getelementptr inbounds [8 x i32], [8 x i32]* %72, i64 0, i32 0
store i32 8337, i32* %73
%74 = getelementptr inbounds [8 x i32], [8 x i32]* %72, i64 0, i32 1
store i32 2, i32* %74
%75 = getelementptr inbounds [8 x i32], [8 x i32]* %72, i64 0, i32 2
store i32 8338, i32* %75
%76 = getelementptr inbounds [8 x i32], [8 x i32]* %72, i64 0, i32 3
store i32 1, i32* %76
%77 = getelementptr inbounds [8 x i32], [8 x i32]* %72, i64 0, i32 4
store i32 37158, i32* %77
%78 = getelementptr inbounds [8 x i32], [8 x i32]* %72, i64 0, i32 5
store i32 2, i32* %78
%79 = getelementptr inbounds [8 x i32], [8 x i32]* %72, i64 0, i32 6
store i32 0, i32* %79
%80 = load [8 x i32], [8 x i32]* %72, align 4
store [8 x i32] %80, [8 x i32]* %71
%81 = alloca %.string, align 8 ; wgl_string
store %.string zeroinitializer, %.string* %81
%82 = getelementptr inbounds [27 x i8], [27 x i8]* @.str4, i64 0, i64 0
%83 = alloca %.string, align 8
store %.string zeroinitializer, %.string* %83
%84 = getelementptr inbounds %.string, %.string* %83, i64 0, i32 0
%85 = getelementptr inbounds %.string, %.string* %83, i64 0, i32 1
store i8* %82, i8** %84
store i64 27, i64* %85
%86 = load %.string, %.string* %83, align 8
store %.string %86, %.string* %81
%87 = alloca %wglCreateContextAttribsARBType, align 8 ; wglCreateContextAttribsARB
store %wglCreateContextAttribsARBType zeroinitializer, %wglCreateContextAttribsARBType* %87
%88 = getelementptr inbounds %.string, %.string* %81, i64 0, i32 0
%89 = load i8*, i8** %88, align 8
%90 = getelementptr i8, i8* %89, i64 0
%91 = getelementptr inbounds i8, i8* %90
%92 = call %PROC @wglGetProcAddress(i8* %91)
%93 = bitcast void ()* %92 to %HGLRC (%HDC, %.rawptr, i32*)*
%94 = bitcast %HGLRC (%HDC, %.rawptr, i32*)* %93 to %HGLRC (%HDC, %.rawptr, i32*)*
store %wglCreateContextAttribsARBType %94, %wglCreateContextAttribsARBType* %87
%95 = alloca %HGLRC, align 8 ; rc
store %HGLRC zeroinitializer, %HGLRC* %95
%96 = load %wglCreateContextAttribsARBType, %wglCreateContextAttribsARBType* %87, align 8
%97 = load %HDC, %HDC* %45, align 8
%98 = getelementptr inbounds [8 x i32], [8 x i32]* %71, i64 0, i64 0
%99 = getelementptr i32, i32* %98, i64 0
%100 = getelementptr inbounds i32, i32* %99
%101 = call %HGLRC %96(%HDC %97, %.rawptr null, i32* %100)
store %HGLRC %101, %HGLRC* %95
%102 = load %HDC, %HDC* %45, align 8
%103 = load %HGLRC, %HGLRC* %95, align 8
%104 = call %BOOL @wglMakeCurrent(%HDC %102, %HGLRC %103)
%105 = load %HDC, %HDC* %45, align 8
%106 = call %BOOL @SwapBuffers(%HDC %105)
%107 = alloca double, align 8 ; start_time
store double zeroinitializer, double* %107
%108 = call double @time_now()
store double %108, double* %107
%109 = alloca i1, align 1 ; running
store i1 zeroinitializer, i1* %109
store i1 false, i1* %109
br label %for.loop.-.6
if.then.-.5:
call void @win32_print_last_error()
br label %defer.-.6
for.body.-.5:
%110 = alloca double, align 8 ; curr_time
store double zeroinitializer, double* %110
%111 = call double @time_now()
store double %111, double* %110
%112 = alloca double, align 8 ; dt
store double zeroinitializer, double* %112
%113 = load double, double* %107, align 8
%114 = load double, double* %110, align 8
%115 = fsub double %114, %113
store double %115, double* %112
%116 = load double, double* %112, align 8
%117 = fcmp ogt double %116, 0x4000000000000000
br i1 %117, label %if.then.-.7, label %if.done.-.8
defer.-.6:
%38 = load i8*, i8** %12, align 8
call void @free(%.rawptr %38)
br label %defer.-.7
for.loop.-.6:
%118 = load i1, i1* %109, align 1
br i1 %118, label %for.body.-.5, label %for.done.-.16
defer.-.7:
%39 = load i8*, i8** %5, align 8
call void @free(%.rawptr %39)
ret void
if.then.-.7:
store i1 false, i1* %109
br label %if.done.-.8
if.done.-.8:
%40 = alloca %HDC, align 8 ; dc
store %HDC zeroinitializer, %HDC* %40
%41 = load %HWND, %HWND* %31, align 8
%42 = call %HDC @GetDC(%HANDLE %41)
store %HDC %42, %HDC* %40
%43 = alloca %HGLRC, align 8 ; opengl_context
store %HGLRC zeroinitializer, %HGLRC* %43
%44 = alloca [8 x i32], align 4 ; attribs
store [8 x i32] zeroinitializer, [8 x i32]* %44
%45 = alloca %PIXELFORMATDESCRIPTOR, align 4 ; pfd
store %PIXELFORMATDESCRIPTOR zeroinitializer, %PIXELFORMATDESCRIPTOR* %45
%46 = getelementptr inbounds %PIXELFORMATDESCRIPTOR, %PIXELFORMATDESCRIPTOR* %45, i64 0, i32 0
store i32 44, i32* %46
%47 = getelementptr inbounds %PIXELFORMATDESCRIPTOR, %PIXELFORMATDESCRIPTOR* %45, i64 0, i32 1
store i32 1, i32* %47
%48 = getelementptr inbounds %PIXELFORMATDESCRIPTOR, %PIXELFORMATDESCRIPTOR* %45, i64 0, i32 2
store i32 37, i32* %48
%49 = getelementptr inbounds %PIXELFORMATDESCRIPTOR, %PIXELFORMATDESCRIPTOR* %45, i64 0, i32 3
store i8 0, i8* %49
%50 = getelementptr inbounds %PIXELFORMATDESCRIPTOR, %PIXELFORMATDESCRIPTOR* %45, i64 0, i32 4
store i8 32, i8* %50
%51 = getelementptr inbounds %PIXELFORMATDESCRIPTOR, %PIXELFORMATDESCRIPTOR* %45, i64 0, i32 11
store i8 8, i8* %51
%52 = getelementptr inbounds %PIXELFORMATDESCRIPTOR, %PIXELFORMATDESCRIPTOR* %45, i64 0, i32 18
store i8 24, i8* %52
%53 = getelementptr inbounds %PIXELFORMATDESCRIPTOR, %PIXELFORMATDESCRIPTOR* %45, i64 0, i32 19
store i8 8, i8* %53
%54 = getelementptr inbounds %PIXELFORMATDESCRIPTOR, %PIXELFORMATDESCRIPTOR* %45, i64 0, i32 21
store i8 0, i8* %54
%55 = load %HDC, %HDC* %40, align 8
%56 = load %HDC, %HDC* %40, align 8
%57 = getelementptr inbounds %PIXELFORMATDESCRIPTOR, %PIXELFORMATDESCRIPTOR* %45
%58 = call i32 @ChoosePixelFormat(%HDC %56, %PIXELFORMATDESCRIPTOR* %57)
%59 = call %BOOL @SetPixelFormat(%HDC %55, i32 %58, %PIXELFORMATDESCRIPTOR* null)
%60 = load %HDC, %HDC* %40, align 8
%61 = call %HGLRC @wglCreateContext(%HDC %60)
store %HGLRC %61, %HGLRC* %43
%62 = load %HDC, %HDC* %40, align 8
%63 = load %HGLRC, %HGLRC* %43, align 8
%64 = call %BOOL @wglMakeCurrent(%HDC %62, %HGLRC %63)
%65 = getelementptr inbounds [8 x i32], [8 x i32]* %44, i64 0, i64 0
%66 = getelementptr i32, i32* %65, i64 0
store i32 8337, i32* %66
%67 = getelementptr inbounds [8 x i32], [8 x i32]* %44, i64 0, i64 0
%68 = getelementptr i32, i32* %67, i64 1
store i32 2, i32* %68
%69 = getelementptr inbounds [8 x i32], [8 x i32]* %44, i64 0, i64 0
%70 = getelementptr i32, i32* %69, i64 2
store i32 8338, i32* %70
%71 = getelementptr inbounds [8 x i32], [8 x i32]* %44, i64 0, i64 0
%72 = getelementptr i32, i32* %71, i64 3
store i32 1, i32* %72
%73 = getelementptr inbounds [8 x i32], [8 x i32]* %44, i64 0, i64 0
%74 = getelementptr i32, i32* %73, i64 4
store i32 37158, i32* %74
%75 = getelementptr inbounds [8 x i32], [8 x i32]* %44, i64 0, i64 0
%76 = getelementptr i32, i32* %75, i64 5
store i32 2, i32* %76
%77 = getelementptr inbounds [8 x i32], [8 x i32]* %44, i64 0, i64 0
%78 = getelementptr i32, i32* %77, i64 6
store i32 0, i32* %78
%79 = alloca %.string, align 8 ; wgl_string
store %.string zeroinitializer, %.string* %79
%80 = getelementptr inbounds [27 x i8], [27 x i8]* @.str4, i64 0, i64 0
%81 = alloca %.string, align 8
store %.string zeroinitializer, %.string* %81
%82 = getelementptr inbounds %.string, %.string* %81, i64 0, i32 0
%83 = getelementptr inbounds %.string, %.string* %81, i64 0, i32 1
store i8* %80, i8** %82
store i64 27, i64* %83
%84 = load %.string, %.string* %81, align 8
store %.string %84, %.string* %79
%85 = alloca %wglCreateContextAttribsARBType, align 8 ; wglCreateContextAttribsARB
store %wglCreateContextAttribsARBType zeroinitializer, %wglCreateContextAttribsARBType* %85
%86 = getelementptr inbounds %.string, %.string* %79, i64 0, i32 0
%87 = load i8*, i8** %86, align 8
%88 = getelementptr i8, i8* %87, i64 0
%89 = getelementptr inbounds i8, i8* %88
%90 = call %PROC @wglGetProcAddress(i8* %89)
%91 = bitcast void ()* %90 to %HGLRC (%HDC, %.rawptr, i32*)*
%92 = bitcast %HGLRC (%HDC, %.rawptr, i32*)* %91 to %HGLRC (%HDC, %.rawptr, i32*)*
store %wglCreateContextAttribsARBType %92, %wglCreateContextAttribsARBType* %85
%93 = alloca %HGLRC, align 8 ; rc
store %HGLRC zeroinitializer, %HGLRC* %93
%94 = load %wglCreateContextAttribsARBType, %wglCreateContextAttribsARBType* %85, align 8
%95 = load %HDC, %HDC* %40, align 8
%96 = getelementptr inbounds [8 x i32], [8 x i32]* %44, i64 0, i64 0
%97 = getelementptr i32, i32* %96, i64 0
%98 = getelementptr inbounds i32, i32* %97
%99 = call %HGLRC %94(%HDC %95, %.rawptr null, i32* %98)
store %HGLRC %99, %HGLRC* %93
%100 = load %HDC, %HDC* %40, align 8
%101 = load %HGLRC, %HGLRC* %93, align 8
%102 = call %BOOL @wglMakeCurrent(%HDC %100, %HGLRC %101)
%103 = load %HDC, %HDC* %40, align 8
%104 = call %BOOL @SwapBuffers(%HDC %103)
%105 = alloca double, align 8 ; start_time
store double zeroinitializer, double* %105
%106 = call double @time_now()
store double %106, double* %105
%107 = alloca i1, align 1 ; running
store i1 zeroinitializer, i1* %107
store i1 true, i1* %107
br label %for.loop.-.10
%119 = alloca %MSG, align 8 ; msg
store %MSG zeroinitializer, %MSG* %119
br label %for.body.-.9
for.body.-.9:
%108 = alloca double, align 8 ; curr_time
store double zeroinitializer, double* %108
%109 = call double @time_now()
store double %109, double* %108
%110 = alloca double, align 8 ; dt
store double zeroinitializer, double* %110
%111 = load double, double* %105, align 8
%112 = load double, double* %108, align 8
%113 = fsub double %112, %111
store double %113, double* %110
%114 = load double, double* %110, align 8
%115 = fcmp ogt double %114, 0x4000000000000000
br i1 %115, label %if.then.-.11, label %if.done.-.12
%120 = alloca i1, align 1 ; ok
store i1 zeroinitializer, i1* %120
%121 = getelementptr inbounds %MSG, %MSG* %119
%122 = call %BOOL @PeekMessageA(%MSG* %121, %HWND null, i32 0, i32 0, i32 1)
%123 = icmp ne i32 %122, 0
store i1 %123, i1* %120
%124 = load i1, i1* %120, align 1
br i1 %124, label %if.done.-.11, label %if.then.-.10
for.loop.-.10:
%116 = load i1, i1* %107, align 1
br i1 %116, label %for.body.-.9, label %for.done.-.22
if.then.-.10:
br label %for.done.-.15
if.then.-.11:
store i1 false, i1* %107
br label %if.done.-.12
if.done.-.11:
%125 = getelementptr inbounds %MSG, %MSG* %119, i64 0, i32 1
%126 = load i32, i32* %125, align 4
%127 = icmp eq i32 %126, 18
br i1 %127, label %if.then.-.12, label %if.else.-.13
if.done.-.12:
%117 = alloca %MSG, align 8 ; msg
store %MSG zeroinitializer, %MSG* %117
br label %for.body.-.13
for.body.-.13:
%118 = alloca i1, align 1 ; ok
store i1 zeroinitializer, i1* %118
%119 = getelementptr inbounds %MSG, %MSG* %117
%120 = call %BOOL @PeekMessageA(%MSG* %119, %HWND null, i32 0, i32 0, i32 1)
%121 = icmp ne i32 %120, 0
store i1 %121, i1* %118
%122 = load i1, i1* %118, align 1
br i1 %122, label %if.done.-.15, label %if.then.-.14
if.then.-.14:
br label %for.done.-.21
if.done.-.15:
%123 = getelementptr inbounds %MSG, %MSG* %117, i64 0, i32 1
%124 = load i32, i32* %123, align 4
%125 = icmp eq i32 %124, 18
br i1 %125, label %if.then.-.16, label %if.else.-.17
if.then.-.16:
br label %defer.-.18
if.else.-.17:
%126 = getelementptr inbounds %MSG, %MSG* %117
%127 = call %BOOL @TranslateMessage(%MSG* %126)
%128 = getelementptr inbounds %MSG, %MSG* %117
%129 = call %LRESULT @DispatchMessageA(%MSG* %128)
br label %if.done.-.20
defer.-.18:
%130 = load i8*, i8** %12, align 8
call void @free(%.rawptr %130)
br label %defer.-.19
defer.-.19:
%131 = load i8*, i8** %5, align 8
call void @free(%.rawptr %131)
if.then.-.12:
ret void
if.done.-.20:
br label %for.body.-.13
if.else.-.13:
%128 = getelementptr inbounds %MSG, %MSG* %119
%129 = call %BOOL @TranslateMessage(%MSG* %128)
%130 = getelementptr inbounds %MSG, %MSG* %119
%131 = call %LRESULT @DispatchMessageA(%MSG* %130)
br label %if.done.-.14
for.done.-.21:
%132 = load %HDC, %HDC* %40, align 8
if.done.-.14:
br label %for.body.-.9
for.done.-.15:
%132 = load %HDC, %HDC* %45, align 8
%133 = call %BOOL @SwapBuffers(%HDC %132)
call void @sleep_ms(i32 2)
br label %for.loop.-.10
br label %for.loop.-.6
for.done.-.22:
br label %defer.-.23
defer.-.23:
%134 = load i8*, i8** %12, align 8
call void @free(%.rawptr %134)
br label %defer.-.24
defer.-.24:
%135 = load i8*, i8** %5, align 8
call void @free(%.rawptr %135)
for.done.-.16:
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 {
define %LRESULT @main$0(%HWND %hwnd, i32 %msg, %WPARAM %wparam, %LPARAM %lparam) noinline {
entry.-.0:
%0 = alloca %HWND, align 8 ; hwnd
store %HWND zeroinitializer, %HWND* %0
@@ -1379,8 +1325,8 @@ entry.-.0:
@.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"
@.str2 = global [19 x i8] c"Odin-Language-Demo\00"
@.str3 = global [19 x i8] c"Odin\20Language\20Demo\00"
@.str4 = global [27 x i8] c"wglCreateContextAttribsARB\00"
@.str5 = global [64 x i8] c"0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz\40$"
@.str6 = global [64 x i8] c"0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz\40$"

88
examples/main.odin
View File

@@ -24,45 +24,33 @@ win32_print_last_error :: proc() {
}
main :: proc() {
wc: WNDCLASSEXA;
instance := GetModuleHandleA(null);
// Init time info
_ = QueryPerformanceFrequency(^win32_perf_count_freq);
class_name := "Odin-Language-Demo\x00";
title := "Odin Language Demo\x00";
c_class_name := ^class_name[0];
c_title := ^title[0];
// Yuck!
to_c_string :: proc(s: string) -> ^u8 {
c_str := heap_alloc(len(s)+1) as ^u8;
mem_copy(c_str, ^s[0], len(s));
c_str[len(s)] = 0;
return c_str;
}
class_name := to_c_string("Odin-Language-Demo");
title := to_c_string("Odin Language Demo");
defer heap_free(class_name);
defer heap_free(title);
wc.cbSize = size_of(WNDCLASSEXA) as u32;
wc.style = CS_VREDRAW | CS_HREDRAW;
wc.hInstance = instance;
wc.className = class_name;
wc.wndProc = proc(hwnd: HWND, msg: u32, wparam: WPARAM, lparam: LPARAM) -> LRESULT #no_inline {
if msg == WM_DESTROY || msg == WM_CLOSE || msg == WM_QUIT {
ExitProcess(0);
return 0;
}
return DefWindowProcA(hwnd, msg, wparam, lparam);
wc := WNDCLASSEXA{
cbSize = size_of(WNDCLASSEXA) as u32,
style = CS_VREDRAW | CS_HREDRAW,
hInstance = instance as HINSTANCE,
className = c_class_name,
wndProc = proc(hwnd: HWND, msg: u32, wparam: WPARAM, lparam: LPARAM) -> LRESULT #no_inline {
if msg == WM_DESTROY || msg == WM_CLOSE || msg == WM_QUIT {
ExitProcess(0);
return 0;
}
return DefWindowProcA(hwnd, msg, wparam, lparam);
},
};
if RegisterClassExA(^wc) == 0 {
return;
}
hwnd := CreateWindowExA(0,
class_name, title,
c_class_name, c_title,
WS_VISIBLE | WS_OVERLAPPED | WS_CAPTION | WS_SYSMENU | WS_MINIMIZEBOX,
CW_USEDEFAULT, CW_USEDEFAULT, 854, 480,
null, null, instance, null);
@@ -77,31 +65,31 @@ main :: proc() {
opengl_context: HGLRC;
{
attribs : [8]i32;
pfd: PIXELFORMATDESCRIPTOR;
pfd.nSize = size_of(PIXELFORMATDESCRIPTOR) as u32;
pfd.nVersion = 1;
pfd.dwFlags = PFD_DRAW_TO_WINDOW | PFD_SUPPORT_OPENGL | PFD_DOUBLEBUFFER;
pfd.iPixelType = PFD_TYPE_RGBA;
pfd.cColorBits = 32;
pfd.cAlphaBits = 8;
pfd.cDepthBits = 24;
pfd.cStencilBits = 8;
pfd.iLayerType = PFD_MAIN_PLANE;
pfd := PIXELFORMATDESCRIPTOR{
nSize = size_of(PIXELFORMATDESCRIPTOR) as u32,
nVersion = 1,
dwFlags = PFD_DRAW_TO_WINDOW | PFD_SUPPORT_OPENGL | PFD_DOUBLEBUFFER,
iPixelType = PFD_TYPE_RGBA,
cColorBits = 32,
cAlphaBits = 8,
cDepthBits = 24,
cStencilBits = 8,
iLayerType = PFD_MAIN_PLANE,
};
SetPixelFormat(dc, ChoosePixelFormat(dc, ^pfd), null);
opengl_context = wglCreateContext(dc);
wglMakeCurrent(dc, opengl_context);
attribs[0] = 0x2091; // WGL_CONTEXT_MAJOR_VERSION_ARB
attribs[1] = 2; // Major
attribs[2] = 0x2092; // WGL_CONTEXT_MINOR_VERSION_ARB
attribs[3] = 1; // Minor
attribs[4] = 0x9126; // WGL_CONTEXT_PROFILE_MASK_ARB
attribs[5] = 0x0002; // WGL_CONTEXT_COMPATIBILITY_PROFILE_BIT_ARB
attribs[6] = 0; // NOTE(bill): tells the proc that this is the end of attribs
attribs := [8]i32{
0x2091, // WGL_CONTEXT_MAJOR_VERSION_ARB
2, // Major
0x2092, // WGL_CONTEXT_MINOR_VERSION_ARB
1, // Minor
0x9126, // WGL_CONTEXT_PROFILE_MASK_ARB
0x0002, // WGL_CONTEXT_COMPATIBILITY_PROFILE_BIT_ARB
0, // NOTE(bill): tells the proc that this is the end of attribs
};
wgl_string := "wglCreateContextAttribsARB\x00";
wglCreateContextAttribsARB := wglGetProcAddress(^wgl_string[0]) as wglCreateContextAttribsARBType;
@@ -111,7 +99,7 @@ main :: proc() {
}
start_time := time_now();
running := true;
running := false;
for running {
curr_time := time_now();
dt := curr_time - start_time;

2
examples/win32.odin
View File

@@ -175,7 +175,7 @@ type PIXELFORMATDESCRIPTOR: struct {
dwDamageMask: u32,
}
GetDC :: proc(h: HANDLE) -> HDC #foreign
GetDC :: proc(h: HANDLE) -> HDC #foreign
SetPixelFormat :: proc(hdc: HDC, pixel_format: i32, pfd: ^PIXELFORMATDESCRIPTOR ) -> BOOL #foreign
ChoosePixelFormat :: proc(hdc: HDC, pfd: ^PIXELFORMATDESCRIPTOR) -> i32 #foreign
wglCreateContext :: proc(hdc: HDC) -> HGLRC #foreign

80
src/checker/expr.cpp
View File

@@ -1862,21 +1862,69 @@ ExpressionKind check__expr_base(Checker *c, Operand *o, AstNode *node, Type *typ
{ // Checker values
AstNode *elem = cl->elem_list;
isize field_count = t->structure.field_count;
isize index = 0;
for (;
elem != NULL;
elem = elem->next, index++) {
Entity *field = t->structure.fields[index];
if (elem->kind == AstNode_FieldValue) {
b32 *fields_visited = gb_alloc_array(c->allocator, b32, field_count);
check_expr(c, o, elem);
if (index >= field_count) {
error(&c->error_collector, ast_node_token(o->expr), "Too many values in structure literal, expected %td", field_count);
break;
for (;
elem != NULL;
elem = elem->next) {
if (elem->kind != AstNode_FieldValue) {
error(&c->error_collector, ast_node_token(elem),
"Mixture of `field = value` and value elements in a structure literal is not allowed");
continue;
}
ast_node(kv, FieldValue, elem);
if (kv->field->kind != AstNode_Ident) {
gbString expr_str = expr_to_string(kv->field);
defer (gb_string_free(expr_str));
error(&c->error_collector, ast_node_token(elem),
"Invalid field name `%s` in structure literal", expr_str);
continue;
}
String name = kv->field->Ident.token.string;
isize index = 0;
Entity *e = lookup_field(type, kv->field, &index);
if (e == NULL) {
error(&c->error_collector, ast_node_token(elem),
"Unknown field `%.*s` in structure literal", LIT(name));
continue;
}
Entity *field = t->structure.fields[index];
add_entity_use(&c->info, kv->field, field);
if (fields_visited[index]) {
error(&c->error_collector, ast_node_token(elem),
"Duplicate field `%.*s` in structure literal", LIT(name));
continue;
}
fields_visited[index] = true;
check_expr(c, o, kv->value);
check_assignment(c, o, field->type, make_string("structure literal"));
}
} else {
isize index = 0;
for (;
elem != NULL;
elem = elem->next, index++) {
if (elem->kind == AstNode_FieldValue) {
error(&c->error_collector, ast_node_token(elem),
"Mixture of `field = value` and value elements in a structure literal is not allowed");
continue;
}
Entity *field = t->structure.fields[index];
check_expr(c, o, elem);
if (index >= field_count) {
error(&c->error_collector, ast_node_token(o->expr), "Too many values in structure literal, expected %td", field_count);
break;
}
check_assignment(c, o, field->type, make_string("structure literal"));
}
if (cl->elem_count < field_count) {
error(&c->error_collector, cl->close, "Too few values in structure literal, expected %td, got %td", field_count, cl->elem_count);
}
check_assignment(c, o, field->type, make_string("structure literal"));
}
if (cl->elem_count < field_count) {
error(&c->error_collector, cl->close, "Too few values in structure literal, expected %td, got %td", field_count, cl->elem_count);
}
}
@@ -2368,6 +2416,12 @@ gbString write_expr_to_string(gbString str, AstNode *node) {
str = gb_string_appendc(str, "..");
case_end;
case_ast_node(fv, FieldValue, node);
str = write_expr_to_string(str, fv->field);
str = gb_string_appendc(str, " = ");
str = write_expr_to_string(str, fv->value);
case_end;
case_ast_node(pt, PointerType, node);
str = gb_string_appendc(str, "^");
str = write_expr_to_string(str, pt->type);

40
src/codegen/ssa.cpp
View File

@@ -1576,20 +1576,34 @@ ssaValue *ssa_build_single_expr(ssaProcedure *proc, AstNode *expr, TypeAndValue
case Type_Structure: {
auto *st = &base_type->structure;
isize index = 0;
for (AstNode *elem = cl->elem_list;
elem != NULL;
elem = elem->next, index++) {
ssaValue *field_expr = ssa_build_expr(proc, elem);
Type *t = ssa_value_type(field_expr);
GB_ASSERT(t->kind != Type_Tuple);
Entity *field = st->fields[index];
Type *ft = field->type;
ssaValue *fv = ssa_emit_conv(proc, field_expr, ft);
ssaValue *gep = ssa_emit_struct_gep(proc, v, index, ft);
ssa_emit_store(proc, gep, fv);
}
if (cl->elem_list != NULL) {
isize index = 0;
AstNode *elem = cl->elem_list;
for (;
elem != NULL;
elem = elem->next, index++) {
isize field_index = index;
ssaValue *field_expr = NULL;
Entity *field = NULL;
if (elem->kind == AstNode_FieldValue) {
ast_node(kv, FieldValue, elem);
Entity *e = lookup_field(base_type, kv->field, &field_index);
field_expr = ssa_build_expr(proc, kv->value);
} else {
field_expr = ssa_build_expr(proc, elem);
}
GB_ASSERT(ssa_value_type(field_expr)->kind != Type_Tuple);
field = st->fields[field_index];
Type *ft = field->type;
ssaValue *fv = ssa_emit_conv(proc, field_expr, ft);
ssaValue *gep = ssa_emit_struct_gep(proc, v, field_index, ft);
ssa_emit_store(proc, gep, fv);
}
}
} break;
case Type_Array: {
isize index = 0;

30
src/main.cpp
View File

@@ -6,7 +6,7 @@
#include "checker/checker.cpp"
#include "codegen/codegen.cpp"
void win32_exec_command_line_app(char *fmt, ...) {
i32 win32_exec_command_line_app(char *fmt, ...) {
STARTUPINFOA start_info = {gb_size_of(STARTUPINFOA)};
PROCESS_INFORMATION pi = {};
start_info.dwFlags = STARTF_USESTDHANDLES | STARTF_USESHOWWINDOW;
@@ -25,12 +25,19 @@ void win32_exec_command_line_app(char *fmt, ...) {
NULL, NULL, true, 0, NULL, NULL,
&start_info, &pi)) {
WaitForSingleObject(pi.hProcess, INFINITE);
DWORD exit_code = 0;
GetExitCodeProcess(pi.hProcess, &exit_code);
CloseHandle(pi.hProcess);
CloseHandle(pi.hThread);
return cast(i32)exit_code;
} else {
// NOTE(bill): failed to create process
}
return 0;
}
int main(int argc, char **argv) {
@@ -71,21 +78,20 @@ int main(int argc, char **argv) {
char const *output_name = ssa.output_file.filename;
isize base_name_len = gb_path_extension(output_name)-1 - output_name;
win32_exec_command_line_app(
i32 exit_code = win32_exec_command_line_app(
"opt -mem2reg %s -o %.*s.bc",
output_name, cast(int)base_name_len, output_name);
win32_exec_command_line_app(
"clang %.*s.bc -o %.*s.exe -Wno-override-module "
"-lkernel32.lib -luser32.lib -lgdi32.lib -lopengl32.lib",
cast(int)base_name_len, output_name,
cast(int)base_name_len, output_name);
if (run_output) {
win32_exec_command_line_app("%.*s.exe", cast(int)base_name_len, output_name);
if (exit_code == 0) {
win32_exec_command_line_app(
"clang %.*s.bc -o %.*s.exe -Wno-override-module "
"-lkernel32.lib -luser32.lib -lgdi32.lib -lopengl32.lib",
cast(int)base_name_len, output_name,
cast(int)base_name_len, output_name);
if (run_output) {
win32_exec_command_line_app("%.*s.exe", cast(int)base_name_len, output_name);
}
}
return 0;
}
}

15
src/parser.cpp
View File

@@ -115,6 +115,7 @@ AST_NODE_KIND(_ExprBegin, struct{}) \
AstNode *low, *high, *max; \
b32 triple_indexed; \
}) \
AST_NODE_KIND(FieldValue, struct { Token eq; AstNode *field, *value; }) \
AST_NODE_KIND(Ellipsis, struct { Token token; }) \
AST_NODE_KIND(_ExprEnd, struct{}) \
AST_NODE_KIND(_StmtBegin, struct{}) \
@@ -301,6 +302,8 @@ Token ast_node_token(AstNode *node) {
return node->SliceExpr.open;
case AstNode_Ellipsis:
return node->Ellipsis.token;
case AstNode_FieldValue:
return node->FieldValue.eq;
case AstNode_DerefExpr:
return node->DerefExpr.op;
case AstNode_BadStmt:
@@ -572,6 +575,13 @@ gb_inline AstNode *make_proc_lit(AstFile *f, AstNode *type, AstNode *body, u64 t
return result;
}
gb_inline AstNode *make_field_value(AstFile *f, AstNode *field, AstNode *value, Token eq) {
AstNode *result = make_node(f, AstNode_FieldValue);
result->FieldValue.field = field;
result->FieldValue.value = value;
result->FieldValue.eq = eq;
return result;
}
gb_inline AstNode *make_compound_lit(AstFile *f, AstNode *type, AstNode *elem_list, isize elem_count,
Token open, Token close) {
@@ -930,12 +940,11 @@ AstNode *parse_element_list(AstFile *f, isize *element_count_) {
while (f->cursor[0].kind != Token_CloseBrace &&
f->cursor[0].kind != Token_EOF) {
AstNode *elem = parse_value(f);
#if 0
// TODO(bill): Designated Initializers
if (f->cursor[0].kind == Token_Eq) {
Token eq = expect_token(f, Token_Eq);
AstNode *value = parse_value(f);
elem = make_field_value(f, elem, value, eq);
}
#endif
DLIST_APPEND(root, curr, elem);
element_count++;
if (f->cursor[0].kind != Token_Comma)