ed/Odin
1
0
Fork 0
mirror of https://github.com/Ed94/Odin.git synced 2026-08-05 15:18:49 +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
examples/main.ll
+237 -291
View File
@@ -93,321 +93,267 @@ if.done.-.2:
define void @main() { define void @main() {
entry.-.0: entry.-.0:
call void @__$startup_runtime() call void @__$startup_runtime()
%0 = alloca %WNDCLASSEXA, align 8 ; wc %0 = alloca %HINSTANCE, align 8 ; instance
store %WNDCLASSEXA zeroinitializer, %WNDCLASSEXA* %0 store %HINSTANCE zeroinitializer, %HINSTANCE* %0
%1 = alloca %HINSTANCE, align 8 ; instance %1 = call %HINSTANCE @GetModuleHandleA(i8* null)
store %HINSTANCE zeroinitializer, %HINSTANCE* %1 store %HINSTANCE %1, %HINSTANCE* %0
%2 = call %HINSTANCE @GetModuleHandleA(i8* null) %2 = alloca %.string, align 8 ; class_name
store %HINSTANCE %2, %HINSTANCE* %1 store %.string zeroinitializer, %.string* %2
%3 = getelementptr inbounds i64, i64* @win32_perf_count_freq %3 = getelementptr inbounds [19 x i8], [19 x i8]* @.str2, i64 0, i64 0
%4 = call i32 @QueryPerformanceFrequency(i64* %3) %4 = alloca %.string, align 8
%5 = alloca i8*, align 8 ; class_name store %.string zeroinitializer, %.string* %4
store i8* zeroinitializer, i8** %5 %5 = getelementptr inbounds %.string, %.string* %4, i64 0, i32 0
%6 = getelementptr inbounds [18 x i8], [18 x i8]* @.str2, i64 0, i64 0 %6 = getelementptr inbounds %.string, %.string* %4, i64 0, i32 1
%7 = alloca %.string, align 8 store i8* %3, i8** %5
store %.string zeroinitializer, %.string* %7 store i64 19, i64* %6
%8 = getelementptr inbounds %.string, %.string* %7, i64 0, i32 0 %7 = load %.string, %.string* %4, align 8
%9 = getelementptr inbounds %.string, %.string* %7, i64 0, i32 1 store %.string %7, %.string* %2
store i8* %6, i8** %8 %8 = alloca %.string, align 8 ; title
store i64 18, i64* %9 store %.string zeroinitializer, %.string* %8
%10 = load %.string, %.string* %7, align 8 %9 = getelementptr inbounds [19 x i8], [19 x i8]* @.str3, i64 0, i64 0
%11 = call i8* @main$to_c_string-0(%.string %10) %10 = alloca %.string, align 8
store i8* %11, i8** %5 store %.string zeroinitializer, %.string* %10
%12 = alloca i8*, align 8 ; title %11 = getelementptr inbounds %.string, %.string* %10, i64 0, i32 0
store i8* zeroinitializer, i8** %12 %12 = getelementptr inbounds %.string, %.string* %10, i64 0, i32 1
%13 = getelementptr inbounds [18 x i8], [18 x i8]* @.str3, i64 0, i64 0 store i8* %9, i8** %11
%14 = alloca %.string, align 8 store i64 19, i64* %12
store %.string zeroinitializer, %.string* %14 %13 = load %.string, %.string* %10, align 8
%15 = getelementptr inbounds %.string, %.string* %14, i64 0, i32 0 store %.string %13, %.string* %8
%16 = getelementptr inbounds %.string, %.string* %14, i64 0, i32 1 %14 = alloca i8*, align 8 ; c_class_name
store i8* %13, i8** %15 store i8* zeroinitializer, i8** %14
store i64 18, i64* %16 %15 = getelementptr inbounds %.string, %.string* %2, i64 0, i32 0
%17 = load %.string, %.string* %14, align 8 %16 = load i8*, i8** %15, align 8
%18 = call i8* @main$to_c_string-0(%.string %17) %17 = getelementptr i8, i8* %16, i64 0
store i8* %18, i8** %12 %18 = getelementptr inbounds i8, i8* %17
%19 = getelementptr inbounds %WNDCLASSEXA, %WNDCLASSEXA* %0, i64 0, i32 0 store i8* %18, i8** %14
store i32 80, i32* %19 %19 = alloca i8*, align 8 ; c_title
%20 = getelementptr inbounds %WNDCLASSEXA, %WNDCLASSEXA* %0, i64 0, i32 1 store i8* zeroinitializer, i8** %19
store i32 3, i32* %20 %20 = getelementptr inbounds %.string, %.string* %8, i64 0, i32 0
%21 = getelementptr inbounds %WNDCLASSEXA, %WNDCLASSEXA* %0, i64 0, i32 5 %21 = load i8*, i8** %20, align 8
%22 = load %HINSTANCE, %HINSTANCE* %1, align 8 %22 = getelementptr i8, i8* %21, i64 0
store %HINSTANCE %22, %HINSTANCE* %21 %23 = getelementptr inbounds i8, i8* %22
%23 = getelementptr inbounds %WNDCLASSEXA, %WNDCLASSEXA* %0, i64 0, i32 10 store i8* %23, i8** %19
%24 = load i8*, i8** %5, align 8 %24 = alloca %WNDCLASSEXA, align 8 ; wc
store i8* %24, i8** %23 store %WNDCLASSEXA zeroinitializer, %WNDCLASSEXA* %24
%25 = getelementptr inbounds %WNDCLASSEXA, %WNDCLASSEXA* %0, i64 0, i32 2 %25 = alloca %WNDCLASSEXA, align 8
store %WNDPROC @main$1, %WNDPROC* %25 store %WNDCLASSEXA zeroinitializer, %WNDCLASSEXA* %25
%26 = getelementptr inbounds %WNDCLASSEXA, %WNDCLASSEXA* %0 %26 = getelementptr inbounds %WNDCLASSEXA, %WNDCLASSEXA* %25, i64 0, i32 0
%27 = call %ATOM @RegisterClassExA(%WNDCLASSEXA* %26) store i32 80, i32* %26
%28 = icmp eq i16 %27, 0 %27 = getelementptr inbounds %WNDCLASSEXA, %WNDCLASSEXA* %25, i64 0, i32 1
br i1 %28, label %if.then.-.1, label %if.done.-.4 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: if.then.-.1:
br label %defer.-.2 ret void
defer.-.2: if.done.-.2:
%29 = load i8*, i8** %12, align 8 %38 = alloca %HWND, align 8 ; hwnd
call void @free(%.rawptr %29) store %HWND zeroinitializer, %HWND* %38
br label %defer.-.3 %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: if.then.-.3:
%30 = load i8*, i8** %5, align 8 call void @win32_print_last_error()
call void @free(%.rawptr %30)
ret void ret void
if.done.-.4: if.done.-.4:
%31 = alloca %HWND, align 8 ; hwnd %45 = alloca %HDC, align 8 ; dc
store %HWND zeroinitializer, %HWND* %31 store %HDC zeroinitializer, %HDC* %45
%32 = load i8*, i8** %5, align 8 %46 = load %HWND, %HWND* %38, align 8
%33 = load i8*, i8** %12, align 8 %47 = call %HDC @GetDC(%HANDLE %46)
%34 = load %HINSTANCE, %HINSTANCE* %1, align 8 store %HDC %47, %HDC* %45
%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) %48 = alloca %HGLRC, align 8 ; opengl_context
store %HWND %35, %HWND* %31 store %HGLRC zeroinitializer, %HGLRC* %48
%36 = load %HWND, %HWND* %31, align 8 %49 = alloca %PIXELFORMATDESCRIPTOR, align 4 ; pfd
%37 = icmp eq %.rawptr %36, null store %PIXELFORMATDESCRIPTOR zeroinitializer, %PIXELFORMATDESCRIPTOR* %49
br i1 %37, label %if.then.-.5, label %if.done.-.8 %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: for.body.-.5:
call void @win32_print_last_error() %110 = alloca double, align 8 ; curr_time
br label %defer.-.6 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: for.loop.-.6:
%38 = load i8*, i8** %12, align 8 %118 = load i1, i1* %109, align 1
call void @free(%.rawptr %38) br i1 %118, label %for.body.-.5, label %for.done.-.16
br label %defer.-.7
defer.-.7: if.then.-.7:
%39 = load i8*, i8** %5, align 8 store i1 false, i1* %109
call void @free(%.rawptr %39) br label %if.done.-.8
ret void
if.done.-.8: if.done.-.8:
%40 = alloca %HDC, align 8 ; dc %119 = alloca %MSG, align 8 ; msg
store %HDC zeroinitializer, %HDC* %40 store %MSG zeroinitializer, %MSG* %119
%41 = load %HWND, %HWND* %31, align 8 br label %for.body.-.9
%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
for.body.-.9: for.body.-.9:
%108 = alloca double, align 8 ; curr_time %120 = alloca i1, align 1 ; ok
store double zeroinitializer, double* %108 store i1 zeroinitializer, i1* %120
%109 = call double @time_now() %121 = getelementptr inbounds %MSG, %MSG* %119
store double %109, double* %108 %122 = call %BOOL @PeekMessageA(%MSG* %121, %HWND null, i32 0, i32 0, i32 1)
%110 = alloca double, align 8 ; dt %123 = icmp ne i32 %122, 0
store double zeroinitializer, double* %110 store i1 %123, i1* %120
%111 = load double, double* %105, align 8 %124 = load i1, i1* %120, align 1
%112 = load double, double* %108, align 8 br i1 %124, label %if.done.-.11, label %if.then.-.10
%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
for.loop.-.10: if.then.-.10:
%116 = load i1, i1* %107, align 1 br label %for.done.-.15
br i1 %116, label %for.body.-.9, label %for.done.-.22
if.then.-.11: if.done.-.11:
store i1 false, i1* %107 %125 = getelementptr inbounds %MSG, %MSG* %119, i64 0, i32 1
br label %if.done.-.12 %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: if.then.-.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)
ret void ret void
if.done.-.20: if.else.-.13:
br label %for.body.-.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: if.done.-.14:
%132 = load %HDC, %HDC* %40, align 8 br label %for.body.-.9
for.done.-.15:
%132 = load %HDC, %HDC* %45, align 8
%133 = call %BOOL @SwapBuffers(%HDC %132) %133 = call %BOOL @SwapBuffers(%HDC %132)
call void @sleep_ms(i32 2) call void @sleep_ms(i32 2)
br label %for.loop.-.10 br label %for.loop.-.6
for.done.-.22: for.done.-.16:
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)
ret void ret void
} }
define i8* @main$to_c_string-0(%.string %s) { define %LRESULT @main$0(%HWND %hwnd, i32 %msg, %WPARAM %wparam, %LPARAM %lparam) noinline {
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: entry.-.0:
%0 = alloca %HWND, align 8 ; hwnd %0 = alloca %HWND, align 8 ; hwnd
store %HWND zeroinitializer, %HWND* %0 store %HWND zeroinitializer, %HWND* %0
@@ -1379,8 +1325,8 @@ entry.-.0:
@.str0 = global [14 x i8] c"GetLastError\3A\20" @.str0 = global [14 x i8] c"GetLastError\3A\20"
@.str1 = global [1 x i8] c"\0A" @.str1 = global [1 x i8] c"\0A"
@.str2 = global [18 x i8] c"Odin-Language-Demo" @.str2 = global [19 x i8] c"Odin-Language-Demo\00"
@.str3 = global [18 x i8] c"Odin\20Language\20Demo" @.str3 = global [19 x i8] c"Odin\20Language\20Demo\00"
@.str4 = global [27 x i8] c"wglCreateContextAttribsARB\00" @.str4 = global [27 x i8] c"wglCreateContextAttribsARB\00"
@.str5 = global [64 x i8] c"0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz\40$" @.str5 = global [64 x i8] c"0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz\40$"
@.str6 = global [64 x i8] c"0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz\40$" @.str6 = global [64 x i8] c"0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz\40$"
examples/main.odin
+38 -50
View File
@@ -24,45 +24,33 @@ win32_print_last_error :: proc() {
} }
main :: proc() { main :: proc() {
wc: WNDCLASSEXA;
instance := GetModuleHandleA(null); instance := GetModuleHandleA(null);
// Init time info class_name := "Odin-Language-Demo\x00";
_ = QueryPerformanceFrequency(^win32_perf_count_freq); title := "Odin Language Demo\x00";
c_class_name := ^class_name[0];
c_title := ^title[0];
// Yuck! wc := WNDCLASSEXA{
to_c_string :: proc(s: string) -> ^u8 { cbSize = size_of(WNDCLASSEXA) as u32,
c_str := heap_alloc(len(s)+1) as ^u8; style = CS_VREDRAW | CS_HREDRAW,
mem_copy(c_str, ^s[0], len(s)); hInstance = instance as HINSTANCE,
c_str[len(s)] = 0; className = c_class_name,
return c_str; 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);
class_name := to_c_string("Odin-Language-Demo"); return 0;
title := to_c_string("Odin Language Demo"); }
defer heap_free(class_name); return DefWindowProcA(hwnd, msg, wparam, lparam);
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);
}; };
if RegisterClassExA(^wc) == 0 { if RegisterClassExA(^wc) == 0 {
return; return;
} }
hwnd := CreateWindowExA(0, hwnd := CreateWindowExA(0,
class_name, title, c_class_name, c_title,
WS_VISIBLE | WS_OVERLAPPED | WS_CAPTION | WS_SYSMENU | WS_MINIMIZEBOX, WS_VISIBLE | WS_OVERLAPPED | WS_CAPTION | WS_SYSMENU | WS_MINIMIZEBOX,
CW_USEDEFAULT, CW_USEDEFAULT, 854, 480, CW_USEDEFAULT, CW_USEDEFAULT, 854, 480,
null, null, instance, null); null, null, instance, null);
@@ -77,31 +65,31 @@ main :: proc() {
opengl_context: HGLRC; opengl_context: HGLRC;
{ {
attribs : [8]i32; pfd := PIXELFORMATDESCRIPTOR{
pfd: PIXELFORMATDESCRIPTOR; nSize = size_of(PIXELFORMATDESCRIPTOR) as u32,
pfd.nSize = size_of(PIXELFORMATDESCRIPTOR) as u32; nVersion = 1,
pfd.nVersion = 1; dwFlags = PFD_DRAW_TO_WINDOW | PFD_SUPPORT_OPENGL | PFD_DOUBLEBUFFER,
pfd.dwFlags = PFD_DRAW_TO_WINDOW | PFD_SUPPORT_OPENGL | PFD_DOUBLEBUFFER; iPixelType = PFD_TYPE_RGBA,
pfd.iPixelType = PFD_TYPE_RGBA; cColorBits = 32,
pfd.cColorBits = 32; cAlphaBits = 8,
pfd.cAlphaBits = 8; cDepthBits = 24,
pfd.cDepthBits = 24; cStencilBits = 8,
pfd.cStencilBits = 8; iLayerType = PFD_MAIN_PLANE,
pfd.iLayerType = PFD_MAIN_PLANE; };
SetPixelFormat(dc, ChoosePixelFormat(dc, ^pfd), null); SetPixelFormat(dc, ChoosePixelFormat(dc, ^pfd), null);
opengl_context = wglCreateContext(dc); opengl_context = wglCreateContext(dc);
wglMakeCurrent(dc, opengl_context); wglMakeCurrent(dc, opengl_context);
attribs[0] = 0x2091; // WGL_CONTEXT_MAJOR_VERSION_ARB attribs := [8]i32{
attribs[1] = 2; // Major 0x2091, // WGL_CONTEXT_MAJOR_VERSION_ARB
attribs[2] = 0x2092; // WGL_CONTEXT_MINOR_VERSION_ARB 2, // Major
attribs[3] = 1; // Minor 0x2092, // WGL_CONTEXT_MINOR_VERSION_ARB
1, // Minor
attribs[4] = 0x9126; // WGL_CONTEXT_PROFILE_MASK_ARB 0x9126, // WGL_CONTEXT_PROFILE_MASK_ARB
attribs[5] = 0x0002; // WGL_CONTEXT_COMPATIBILITY_PROFILE_BIT_ARB 0x0002, // WGL_CONTEXT_COMPATIBILITY_PROFILE_BIT_ARB
0, // NOTE(bill): tells the proc that this is the end of attribs
attribs[6] = 0; // NOTE(bill): tells the proc that this is the end of attribs };
wgl_string := "wglCreateContextAttribsARB\x00"; wgl_string := "wglCreateContextAttribsARB\x00";
wglCreateContextAttribsARB := wglGetProcAddress(^wgl_string[0]) as wglCreateContextAttribsARBType; wglCreateContextAttribsARB := wglGetProcAddress(^wgl_string[0]) as wglCreateContextAttribsARBType;
@@ -111,7 +99,7 @@ main :: proc() {
} }
start_time := time_now(); start_time := time_now();
running := true; running := false;
for running { for running {
curr_time := time_now(); curr_time := time_now();
dt := curr_time - start_time; dt := curr_time - start_time;
examples/win32.odin
+1 -1
View File
@@ -175,7 +175,7 @@ type PIXELFORMATDESCRIPTOR: struct {
dwDamageMask: u32, 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 SetPixelFormat :: proc(hdc: HDC, pixel_format: i32, pfd: ^PIXELFORMATDESCRIPTOR ) -> BOOL #foreign
ChoosePixelFormat :: proc(hdc: HDC, pfd: ^PIXELFORMATDESCRIPTOR) -> i32 #foreign ChoosePixelFormat :: proc(hdc: HDC, pfd: ^PIXELFORMATDESCRIPTOR) -> i32 #foreign
wglCreateContext :: proc(hdc: HDC) -> HGLRC #foreign wglCreateContext :: proc(hdc: HDC) -> HGLRC #foreign
src/checker/expr.cpp
+67 -13
View File
@@ -1862,21 +1862,69 @@ ExpressionKind check__expr_base(Checker *c, Operand *o, AstNode *node, Type *typ
{ // Checker values { // Checker values
AstNode *elem = cl->elem_list; AstNode *elem = cl->elem_list;
isize field_count = t->structure.field_count; isize field_count = t->structure.field_count;
isize index = 0; if (elem->kind == AstNode_FieldValue) {
for (; b32 *fields_visited = gb_alloc_array(c->allocator, b32, field_count);
elem != NULL;
elem = elem->next, index++) {
Entity *field = t->structure.fields[index];
check_expr(c, o, elem); for (;
if (index >= field_count) { elem != NULL;
error(&c->error_collector, ast_node_token(o->expr), "Too many values in structure literal, expected %td", field_count); elem = elem->next) {
break; 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, ".."); str = gb_string_appendc(str, "..");
case_end; 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); case_ast_node(pt, PointerType, node);
str = gb_string_appendc(str, "^"); str = gb_string_appendc(str, "^");
str = write_expr_to_string(str, pt->type); str = write_expr_to_string(str, pt->type);
src/codegen/ssa.cpp
+27 -13
View File
@@ -1576,20 +1576,34 @@ ssaValue *ssa_build_single_expr(ssaProcedure *proc, AstNode *expr, TypeAndValue
case Type_Structure: { case Type_Structure: {
auto *st = &base_type->structure; auto *st = &base_type->structure;
isize index = 0; if (cl->elem_list != NULL) {
for (AstNode *elem = cl->elem_list; isize index = 0;
elem != NULL; AstNode *elem = cl->elem_list;
elem = elem->next, index++) { for (;
ssaValue *field_expr = ssa_build_expr(proc, elem); elem != NULL;
Type *t = ssa_value_type(field_expr); elem = elem->next, index++) {
GB_ASSERT(t->kind != Type_Tuple); isize field_index = index;
Entity *field = st->fields[index]; ssaValue *field_expr = NULL;
Type *ft = field->type; Entity *field = NULL;
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 (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; } break;
case Type_Array: { case Type_Array: {
isize index = 0; isize index = 0;
src/main.cpp
+18 -12
View File
@@ -6,7 +6,7 @@
#include "checker/checker.cpp" #include "checker/checker.cpp"
#include "codegen/codegen.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)}; STARTUPINFOA start_info = {gb_size_of(STARTUPINFOA)};
PROCESS_INFORMATION pi = {}; PROCESS_INFORMATION pi = {};
start_info.dwFlags = STARTF_USESTDHANDLES | STARTF_USESHOWWINDOW; 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, NULL, NULL, true, 0, NULL, NULL,
&start_info, &pi)) { &start_info, &pi)) {
WaitForSingleObject(pi.hProcess, INFINITE); WaitForSingleObject(pi.hProcess, INFINITE);
DWORD exit_code = 0;
GetExitCodeProcess(pi.hProcess, &exit_code);
CloseHandle(pi.hProcess); CloseHandle(pi.hProcess);
CloseHandle(pi.hThread); CloseHandle(pi.hThread);
return cast(i32)exit_code;
} else { } else {
// NOTE(bill): failed to create process // NOTE(bill): failed to create process
} }
return 0;
} }
int main(int argc, char **argv) { int main(int argc, char **argv) {
@@ -71,21 +78,20 @@ int main(int argc, char **argv) {
char const *output_name = ssa.output_file.filename; char const *output_name = ssa.output_file.filename;
isize base_name_len = gb_path_extension(output_name)-1 - output_name; 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", "opt -mem2reg %s -o %.*s.bc",
output_name, cast(int)base_name_len, output_name); output_name, cast(int)base_name_len, output_name);
win32_exec_command_line_app( if (exit_code == 0) {
"clang %.*s.bc -o %.*s.exe -Wno-override-module " win32_exec_command_line_app(
"-lkernel32.lib -luser32.lib -lgdi32.lib -lopengl32.lib", "clang %.*s.bc -o %.*s.exe -Wno-override-module "
cast(int)base_name_len, output_name, "-lkernel32.lib -luser32.lib -lgdi32.lib -lopengl32.lib",
cast(int)base_name_len, output_name); cast(int)base_name_len, output_name,
cast(int)base_name_len, output_name);
if (run_output) {
if (run_output) { win32_exec_command_line_app("%.*s.exe", cast(int)base_name_len, output_name);
win32_exec_command_line_app("%.*s.exe", cast(int)base_name_len, output_name); }
} }
return 0; return 0;
} }
} }
src/parser.cpp
+12 -3
View File
@@ -115,6 +115,7 @@ AST_NODE_KIND(_ExprBegin, struct{}) \
AstNode *low, *high, *max; \ AstNode *low, *high, *max; \
b32 triple_indexed; \ b32 triple_indexed; \
}) \ }) \
AST_NODE_KIND(FieldValue, struct { Token eq; AstNode *field, *value; }) \
AST_NODE_KIND(Ellipsis, struct { Token token; }) \ AST_NODE_KIND(Ellipsis, struct { Token token; }) \
AST_NODE_KIND(_ExprEnd, struct{}) \ AST_NODE_KIND(_ExprEnd, struct{}) \
AST_NODE_KIND(_StmtBegin, struct{}) \ AST_NODE_KIND(_StmtBegin, struct{}) \
@@ -301,6 +302,8 @@ Token ast_node_token(AstNode *node) {
return node->SliceExpr.open; return node->SliceExpr.open;
case AstNode_Ellipsis: case AstNode_Ellipsis:
return node->Ellipsis.token; return node->Ellipsis.token;
case AstNode_FieldValue:
return node->FieldValue.eq;
case AstNode_DerefExpr: case AstNode_DerefExpr:
return node->DerefExpr.op; return node->DerefExpr.op;
case AstNode_BadStmt: case AstNode_BadStmt:
@@ -572,6 +575,13 @@ gb_inline AstNode *make_proc_lit(AstFile *f, AstNode *type, AstNode *body, u64 t
return result; 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, gb_inline AstNode *make_compound_lit(AstFile *f, AstNode *type, AstNode *elem_list, isize elem_count,
Token open, Token close) { Token open, Token close) {
@@ -930,12 +940,11 @@ AstNode *parse_element_list(AstFile *f, isize *element_count_) {
while (f->cursor[0].kind != Token_CloseBrace && while (f->cursor[0].kind != Token_CloseBrace &&
f->cursor[0].kind != Token_EOF) { f->cursor[0].kind != Token_EOF) {
AstNode *elem = parse_value(f); AstNode *elem = parse_value(f);
#if 0
// TODO(bill): Designated Initializers
if (f->cursor[0].kind == Token_Eq) { if (f->cursor[0].kind == Token_Eq) {
Token eq = expect_token(f, 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); DLIST_APPEND(root, curr, elem);
element_count++; element_count++;
if (f->cursor[0].kind != Token_Comma) if (f->cursor[0].kind != Token_Comma)