From 0c20f4a8362d42572edecb6ef9844b75c4c859f8 Mon Sep 17 00:00:00 2001 From: Eduardo Julian Date: Sun, 28 Apr 2019 02:09:34 -0400 Subject: Turned all "lux int ???" extensions to "lux i64 ???". --- luxc/src/lux/analyser/proc/common.clj | 24 ++++++++++++------------ luxc/src/lux/compiler/jvm/proc/common.clj | 19 ++++++++----------- 2 files changed, 20 insertions(+), 23 deletions(-) (limited to 'luxc/src') diff --git a/luxc/src/lux/analyser/proc/common.clj b/luxc/src/lux/analyser/proc/common.clj index d08b6f402..75c2cd3c9 100644 --- a/luxc/src/lux/analyser/proc/common.clj +++ b/luxc/src/lux/analyser/proc/common.clj @@ -151,10 +151,10 @@ analyse-i64-add ["i64" "+"] (&/$Apply &type/Any &type/I64) &type/I64 analyse-i64-sub ["i64" "-"] (&/$Apply &type/Any &type/I64) &type/I64 - analyse-int-mul ["int" "*"] &type/Int &type/Int - analyse-int-div ["int" "/"] &type/Int &type/Int - analyse-int-rem ["int" "%"] &type/Int &type/Int - analyse-int-lt ["int" "<"] &type/Int &type/Bit + analyse-int-mul ["i64" "*"] &type/Int &type/Int + analyse-int-div ["i64" "/"] &type/Int &type/Int + analyse-int-rem ["i64" "%"] &type/Int &type/Int + analyse-int-lt ["i64" "<"] &type/Int &type/Bit analyse-frac-add ["f64" "+"] &type/Frac &type/Frac analyse-frac-sub ["f64" "-"] &type/Frac &type/Frac @@ -208,8 +208,8 @@ (return (&/|list (&&/|meta exo-type _cursor (&&/$proc (&/T ) (&/|list =x) (&/|list))))))) - analyse-int-char &type/Int &type/Text ["int" "char"] - analyse-int-frac &type/Int &type/Frac ["int" "f64"] + analyse-int-char &type/Int &type/Text ["i64" "char"] + analyse-int-frac &type/Int &type/Frac ["i64" "f64"] analyse-frac-int &type/Frac &type/Int ["f64" "i64"] analyse-io-log &type/Text &type/Any ["io" "log"] @@ -274,12 +274,12 @@ "lux i64 -" (analyse-i64-sub analyse exo-type ?values) "lux i64 =" (analyse-i64-eq analyse exo-type ?values) - "lux int *" (analyse-int-mul analyse exo-type ?values) - "lux int /" (analyse-int-div analyse exo-type ?values) - "lux int %" (analyse-int-rem analyse exo-type ?values) - "lux int <" (analyse-int-lt analyse exo-type ?values) - "lux int f64" (analyse-int-frac analyse exo-type ?values) - "lux int char" (analyse-int-char analyse exo-type ?values) + "lux i64 *" (analyse-int-mul analyse exo-type ?values) + "lux i64 /" (analyse-int-div analyse exo-type ?values) + "lux i64 %" (analyse-int-rem analyse exo-type ?values) + "lux i64 <" (analyse-int-lt analyse exo-type ?values) + "lux i64 f64" (analyse-int-frac analyse exo-type ?values) + "lux i64 char" (analyse-int-char analyse exo-type ?values) "lux f64 +" (analyse-frac-add analyse exo-type ?values) "lux f64 -" (analyse-frac-sub analyse exo-type ?values) diff --git a/luxc/src/lux/compiler/jvm/proc/common.clj b/luxc/src/lux/compiler/jvm/proc/common.clj index bf1ca306e..88b989262 100644 --- a/luxc/src/lux/compiler/jvm/proc/common.clj +++ b/luxc/src/lux/compiler/jvm/proc/common.clj @@ -448,18 +448,15 @@ "logical-right-shift" (compile-i64-logical-right-shift compile ?values special-args) "=" (compile-i64-eq compile ?values special-args) "+" (compile-i64-add compile ?values special-args) - "-" (compile-i64-sub compile ?values special-args)) - - "int" - (case proc - "*" (compile-int-mul compile ?values special-args) - "/" (compile-int-div compile ?values special-args) - "%" (compile-int-rem compile ?values special-args) - "<" (compile-int-lt compile ?values special-args) - "f64" (compile-int-frac compile ?values special-args) - "char" (compile-int-char compile ?values special-args) + "-" (compile-i64-sub compile ?values special-args) + "*" (compile-int-mul compile ?values special-args) + "/" (compile-int-div compile ?values special-args) + "%" (compile-int-rem compile ?values special-args) + "<" (compile-int-lt compile ?values special-args) + "f64" (compile-int-frac compile ?values special-args) + "char" (compile-int-char compile ?values special-args) ) - + "f64" (case proc "+" (compile-frac-add compile ?values special-args) -- cgit v1.2.3