Merge remote-tracking branch 'origin/compile-opt' into compile-opt

examples/sysir/arrays1.janet

@@ -0,0 +1,18 @@
+(def ir-asm
+  @{:instructions
+   '(
+     # Types
+     (type-prim Double f64)
+     (type-array BigVec Double 100)
+
+     # Declarations
+     (bind 0 BigVec)
+     (bind 1 BigVec)
+     (bind 2 BigVec)
+     (add 2 0 1)
+     (return 2))
+   :parameter-count 2
+   :link-name "add_vector"})
+
+(def as (sysir/asm ir-asm))
+(print (sysir/to-c as))

examples/sysir/arrays2.janet

@@ -0,0 +1,20 @@
+
+(def ir-asm
+  @{:instructions
+   '(
+     # Types
+     (type-prim Double f64)
+     (type-array BigVec Double 100)
+     (type-pointer BigVecP BigVec)
+
+     # Declarations
+     (bind 0 BigVecP)
+     (bind 1 BigVecP)
+     (bind 2 BigVecP)
+     (add 2 0 1)
+     (return 2))
+   :parameter-count 2
+   :link-name "add_vectorp"})
+
+(def as (sysir/asm ir-asm))
+(print (sysir/to-c as))

examples/sysir/basic1.janet

@@ -0,0 +1,36 @@
+(def ir-asm
+  @{:instructions
+   '(
+     # Types
+     (type-prim Int s32)
+     (type-prim Double f64)
+     (type-struct MyPair 0 1)
+     (type-pointer PInt 0)
+     (type-array DoubleArray 1 1024)
+
+     # Declarations
+     (bind 0 Int)
+     (bind 1 Int)
+     (bind 2 Int)
+     (bind 3 Double)
+     (bind bob Double)
+     (bind 5 Double)
+     (bind 6 MyPair)
+
+     # Code
+     (constant 0 10)
+     (constant 0 21)
+     :location
+     (add 2 1 0)
+     (constant 3 1.77)
+     (call 3 sin 3)
+     (cast bob 2)
+     (call bob test_function)
+     (add 5 bob 3)
+     (jump :location)
+     (return 5))
+   :parameter-count 0
+   :link-name "test_function"})
+
+(def as (sysir/asm ir-asm))
+(print (sysir/to-c as))

examples/sysir/basic2.janet

@@ -0,0 +1,62 @@
+### typedef struct {float x; float y; float z;} Vec3;
+###
+### Vec3 addv(Vec3 a, Vec3 b) {
+###     Vec3 ret;
+###     ret.x = a.x + b.x;
+###     ret.y = a.y + b.y;
+###     ret.z = a.z + b.z;
+###     return ret;
+### }
+
+# Use fgetp for code gen
+
+(def ir-asm
+  @{:instructions
+   '(
+     # Types
+     (type-prim Real f32)
+     (type-struct Vec3 Real Real Real)
+     (type-pointer PReal Real)
+
+     # Declarations
+     (bind position Vec3)
+     (bind velocity Vec3)
+     (bind next-position Vec3)
+     (bind dest Real)
+     (bind lhs Real)
+     (bind rhs Real)
+     (bind pdest PReal)
+     (bind plhs PReal)
+     (bind prhs PReal)
+
+     # Code
+     (fgetp pdest next-position 0)
+     (fgetp plhs position 0)
+     (fgetp prhs velocity 0)
+     (load lhs plhs)
+     (load rhs prhs)
+     (add dest lhs rhs)
+     (store pdest dest)
+
+     (fgetp pdest next-position 1)
+     (fgetp plhs position 1)
+     (fgetp prhs velocity 1)
+     (load lhs plhs)
+     (load rhs prhs)
+     (add dest lhs rhs)
+     (store pdest dest)
+
+     (fgetp pdest next-position 2)
+     (fgetp plhs position 2)
+     (fgetp prhs velocity 2)
+     (load lhs plhs)
+     (load rhs prhs)
+     (add dest lhs rhs)
+     (store pdest dest)
+
+     (return next-position))
+   :parameter-count 2
+   :link-name "addv"})
+
+(def as (sysir/asm ir-asm))
+(print (sysir/to-c as))

examples/sysir/typeerr0.janet

@@ -0,0 +1,56 @@
+### typedef struct {float x; float y; float z;} Vec3;
+###
+### Vec3 addv(Vec3 a, Vec3 b) {
+###     Vec3 ret;
+###     ret.x = a.x + b.x;
+###     ret.y = a.y + b.y;
+###     ret.z = a.z + b.z;
+###     return ret;
+### }
+
+(def ir-asm
+  @{:instructions
+   '(
+     # Types
+     (type-prim Real f32)
+     (type-struct Vec3 Real Real Real)
+     (type-pointer PReal Real)
+
+     # Declarations
+     (bind position Vec3)
+     (bind velocity Vec3)
+     (bind next-position Vec3)
+     (bind dest Real)
+     (bind lhs Real)
+     (bind rhs Real)
+     (bind pdest PReal)
+     (bind plhs PReal)
+     (bind prhs PReal)
+
+     # Code (has type errors)
+     (fgetp pdest next-position 0)
+     (fgetp plhs position 0)
+     (fgetp prhs velocity 0)
+     (add dest plhs prhs)
+     (store pdest dest)
+
+     (fgetp pdest next-position 1)
+     (fgetp plhs position 1)
+     (fgetp prhs velocity 1)
+     (add dest lhs rhs)
+     (load lhs plhs)
+     (load rhs prhs)
+     (store pdest dest)
+
+     (fgetp pdest next-position 2)
+     (fgetp plhs position 2)
+     (fgetp prhs velocity 2)
+     (add dest plhs prhs)
+     (store pdest dest)
+
+     (return next-position))
+   :parameter-count 2
+   :link-name "addv_with_err"})
+
+(def as (sysir/asm ir-asm))
+(print (sysir/to-c as))

examples/sysir/typeerr1.janet

@@ -0,0 +1,15 @@
+(def ir-asm
+  @{:instructions
+   '(
+     # Types
+     (type-prim Real f32)
+     (type-prim 1 s32)
+
+     (bind bob Real)
+
+     (return bob))
+   :parameter-count 0
+   :link-name "redefine_type_fail"})
+
+(def as (sysir/asm ir-asm))
+(print (sysir/to-c as))