aboutsummaryrefslogtreecommitdiff
path: root/new-luxc/source/luxc/lang/translation/jvm
diff options
context:
space:
mode:
Diffstat (limited to 'new-luxc/source/luxc/lang/translation/jvm')
-rw-r--r--new-luxc/source/luxc/lang/translation/jvm/procedure/common.jvm.lux56
1 files changed, 0 insertions, 56 deletions
diff --git a/new-luxc/source/luxc/lang/translation/jvm/procedure/common.jvm.lux b/new-luxc/source/luxc/lang/translation/jvm/procedure/common.jvm.lux
index 49b1971f1..2c470c44c 100644
--- a/new-luxc/source/luxc/lang/translation/jvm/procedure/common.jvm.lux
+++ b/new-luxc/source/luxc/lang/translation/jvm/procedure/common.jvm.lux
@@ -113,15 +113,6 @@
(def: lux-intI $.Inst (|>> _.I2L (_.wrap #$.Long)))
(def: jvm-intI $.Inst (|>> (_.unwrap #$.Long) _.L2I))
-(def: (array-writeI arrayI idxI elemI)
- (-> $.Inst $.Inst $.Inst
- $.Inst)
- (|>> arrayI (_.CHECKCAST ($t.descriptor $Object-Array))
- _.DUP
- idxI jvm-intI
- elemI
- _.AASTORE))
-
(def: (predicateI tester)
(-> (-> $.Label $.Inst)
$.Inst)
@@ -209,41 +200,6 @@
[bit//logical-right-shift _.LUSHR]
)
-## [[Arrays]]
-(def: (array//new lengthI)
- Unary
- (|>> lengthI jvm-intI (_.ANEWARRAY ($t.binary-name "java.lang.Object"))))
-
-(def: (array//get [arrayI idxI])
- Binary
- (<| _.with-label (function (_ @is-null))
- _.with-label (function (_ @end))
- (|>> arrayI (_.CHECKCAST ($t.descriptor $Object-Array))
- idxI jvm-intI
- _.AALOAD
- _.DUP
- (_.IFNULL @is-null)
- runtimeT.someI
- (_.GOTO @end)
- (_.label @is-null)
- _.POP
- runtimeT.noneI
- (_.label @end))))
-
-(def: (array//put [arrayI idxI elemI])
- Trinary
- (array-writeI arrayI idxI elemI))
-
-(def: (array//remove [arrayI idxI])
- Binary
- (array-writeI arrayI idxI _.NULL))
-
-(def: (array//size arrayI)
- Unary
- (|>> arrayI (_.CHECKCAST ($t.descriptor $Object-Array))
- _.ARRAYLENGTH
- lux-intI))
-
## [[Numbers]]
(def: nat-method
$.Method
@@ -501,17 +457,6 @@
(install "clip" (trinary text//clip))
)))
-(def: array-procs
- Bundle
- (<| (prefix "array")
- (|> (dict.new text.Hash<Text>)
- (install "new" (unary array//new))
- (install "get" (binary array//get))
- (install "put" (trinary array//put))
- (install "remove" (binary array//remove))
- (install "size" (unary array//size))
- )))
-
(def: io-procs
Bundle
(<| (prefix "io")
@@ -537,7 +482,6 @@
(dict.merge int-procs)
(dict.merge frac-procs)
(dict.merge text-procs)
- (dict.merge array-procs)
(dict.merge io-procs)
(dict.merge box-procs)
)))