From 6e44438a3c67de97a542eca05c2a21015288da28 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Sat, 19 Nov 2016 02:01:21 -0400
Subject: - Tuple/record access on index 0 gets compiled to direct array
 access.

---
 src/lux/compiler/case.clj | 21 ++++++++++++++-------
 1 file changed, 14 insertions(+), 7 deletions(-)

(limited to 'src')

diff --git a/src/lux/compiler/case.clj b/src/lux/compiler/case.clj
index 9acf3854d..afdcd3eed 100644
--- a/src/lux/compiler/case.clj
+++ b/src/lux/compiler/case.clj
@@ -127,13 +127,20 @@
 
                              (&/$Right _idx)
                              (&/T [_idx true]))]
-      (doto writer
-        stack-peek
-        (.visitTypeInsn Opcodes/CHECKCAST "[Ljava/lang/Object;")
-        (.visitLdcInsn (int _idx))
-        (.visitMethodInsn Opcodes/INVOKESTATIC "lux/LuxRT" (if is-tail? "product_getRight" "product_getLeft") "([Ljava/lang/Object;I)Ljava/lang/Object;")
-        (.visitMethodInsn Opcodes/INVOKESTATIC "lux/LuxRT" "pm_stack_push" "([Ljava/lang/Object;Ljava/lang/Object;)[Ljava/lang/Object;")
-        ))
+      (if (= 0 _idx)
+        (doto writer
+          stack-peek
+          (.visitTypeInsn Opcodes/CHECKCAST "[Ljava/lang/Object;")
+          (.visitLdcInsn (int 0))
+          (.visitInsn Opcodes/AALOAD)
+          (.visitMethodInsn Opcodes/INVOKESTATIC "lux/LuxRT" "pm_stack_push" "([Ljava/lang/Object;Ljava/lang/Object;)[Ljava/lang/Object;"))
+        (doto writer
+          stack-peek
+          (.visitTypeInsn Opcodes/CHECKCAST "[Ljava/lang/Object;")
+          (.visitLdcInsn (int _idx))
+          (.visitMethodInsn Opcodes/INVOKESTATIC "lux/LuxRT" (if is-tail? "product_getRight" "product_getLeft") "([Ljava/lang/Object;I)Ljava/lang/Object;")
+          (.visitMethodInsn Opcodes/INVOKESTATIC "lux/LuxRT" "pm_stack_push" "([Ljava/lang/Object;Ljava/lang/Object;)[Ljava/lang/Object;")
+          )))
 
     (&o/$VariantPM _idx+)
     (|let [$success (new Label)
-- 
cgit v1.2.3