mirror of
https://github.com/c64scene-ar/llvm-6502.git
synced 2024-12-29 10:32:47 +00:00
a8a7099c18
...so that it can be used for z too. Most of the code is the same. The only real change is to use TargetTransformInfo to test when a sqrt instruction is available. The pass is opt-in because at the moment it only handles sqrt. git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@189097 91177308-0d34-0410-b5e6-96231b3b80d8
170 lines
5.5 KiB
LLVM
170 lines
5.5 KiB
LLVM
; Test 64-bit square root.
|
|
;
|
|
; RUN: llc < %s -mtriple=s390x-linux-gnu | FileCheck %s
|
|
|
|
declare double @llvm.sqrt.f64(double %f)
|
|
declare double @sqrt(double)
|
|
|
|
; Check register square root.
|
|
define double @f1(double %val) {
|
|
; CHECK-LABEL: f1:
|
|
; CHECK: sqdbr %f0, %f0
|
|
; CHECK: br %r14
|
|
%res = call double @llvm.sqrt.f64(double %val)
|
|
ret double %res
|
|
}
|
|
|
|
; Check the low end of the SQDB range.
|
|
define double @f2(double *%ptr) {
|
|
; CHECK-LABEL: f2:
|
|
; CHECK: sqdb %f0, 0(%r2)
|
|
; CHECK: br %r14
|
|
%val = load double *%ptr
|
|
%res = call double @llvm.sqrt.f64(double %val)
|
|
ret double %res
|
|
}
|
|
|
|
; Check the high end of the aligned SQDB range.
|
|
define double @f3(double *%base) {
|
|
; CHECK-LABEL: f3:
|
|
; CHECK: sqdb %f0, 4088(%r2)
|
|
; CHECK: br %r14
|
|
%ptr = getelementptr double *%base, i64 511
|
|
%val = load double *%ptr
|
|
%res = call double @llvm.sqrt.f64(double %val)
|
|
ret double %res
|
|
}
|
|
|
|
; Check the next doubleword up, which needs separate address logic.
|
|
; Other sequences besides this one would be OK.
|
|
define double @f4(double *%base) {
|
|
; CHECK-LABEL: f4:
|
|
; CHECK: aghi %r2, 4096
|
|
; CHECK: sqdb %f0, 0(%r2)
|
|
; CHECK: br %r14
|
|
%ptr = getelementptr double *%base, i64 512
|
|
%val = load double *%ptr
|
|
%res = call double @llvm.sqrt.f64(double %val)
|
|
ret double %res
|
|
}
|
|
|
|
; Check negative displacements, which also need separate address logic.
|
|
define double @f5(double *%base) {
|
|
; CHECK-LABEL: f5:
|
|
; CHECK: aghi %r2, -8
|
|
; CHECK: sqdb %f0, 0(%r2)
|
|
; CHECK: br %r14
|
|
%ptr = getelementptr double *%base, i64 -1
|
|
%val = load double *%ptr
|
|
%res = call double @llvm.sqrt.f64(double %val)
|
|
ret double %res
|
|
}
|
|
|
|
; Check that SQDB allows indices.
|
|
define double @f6(double *%base, i64 %index) {
|
|
; CHECK-LABEL: f6:
|
|
; CHECK: sllg %r1, %r3, 3
|
|
; CHECK: sqdb %f0, 800(%r1,%r2)
|
|
; CHECK: br %r14
|
|
%ptr1 = getelementptr double *%base, i64 %index
|
|
%ptr2 = getelementptr double *%ptr1, i64 100
|
|
%val = load double *%ptr2
|
|
%res = call double @llvm.sqrt.f64(double %val)
|
|
ret double %res
|
|
}
|
|
|
|
; Test a case where we spill the source of at least one SQDBR. We want
|
|
; to use SQDB if possible.
|
|
define void @f7(double *%ptr) {
|
|
; CHECK-LABEL: f7:
|
|
; CHECK: sqdb {{%f[0-9]+}}, 160(%r15)
|
|
; CHECK: br %r14
|
|
%val0 = load volatile double *%ptr
|
|
%val1 = load volatile double *%ptr
|
|
%val2 = load volatile double *%ptr
|
|
%val3 = load volatile double *%ptr
|
|
%val4 = load volatile double *%ptr
|
|
%val5 = load volatile double *%ptr
|
|
%val6 = load volatile double *%ptr
|
|
%val7 = load volatile double *%ptr
|
|
%val8 = load volatile double *%ptr
|
|
%val9 = load volatile double *%ptr
|
|
%val10 = load volatile double *%ptr
|
|
%val11 = load volatile double *%ptr
|
|
%val12 = load volatile double *%ptr
|
|
%val13 = load volatile double *%ptr
|
|
%val14 = load volatile double *%ptr
|
|
%val15 = load volatile double *%ptr
|
|
%val16 = load volatile double *%ptr
|
|
|
|
%sqrt0 = call double @llvm.sqrt.f64(double %val0)
|
|
%sqrt1 = call double @llvm.sqrt.f64(double %val1)
|
|
%sqrt2 = call double @llvm.sqrt.f64(double %val2)
|
|
%sqrt3 = call double @llvm.sqrt.f64(double %val3)
|
|
%sqrt4 = call double @llvm.sqrt.f64(double %val4)
|
|
%sqrt5 = call double @llvm.sqrt.f64(double %val5)
|
|
%sqrt6 = call double @llvm.sqrt.f64(double %val6)
|
|
%sqrt7 = call double @llvm.sqrt.f64(double %val7)
|
|
%sqrt8 = call double @llvm.sqrt.f64(double %val8)
|
|
%sqrt9 = call double @llvm.sqrt.f64(double %val9)
|
|
%sqrt10 = call double @llvm.sqrt.f64(double %val10)
|
|
%sqrt11 = call double @llvm.sqrt.f64(double %val11)
|
|
%sqrt12 = call double @llvm.sqrt.f64(double %val12)
|
|
%sqrt13 = call double @llvm.sqrt.f64(double %val13)
|
|
%sqrt14 = call double @llvm.sqrt.f64(double %val14)
|
|
%sqrt15 = call double @llvm.sqrt.f64(double %val15)
|
|
%sqrt16 = call double @llvm.sqrt.f64(double %val16)
|
|
|
|
store volatile double %val0, double *%ptr
|
|
store volatile double %val1, double *%ptr
|
|
store volatile double %val2, double *%ptr
|
|
store volatile double %val3, double *%ptr
|
|
store volatile double %val4, double *%ptr
|
|
store volatile double %val5, double *%ptr
|
|
store volatile double %val6, double *%ptr
|
|
store volatile double %val7, double *%ptr
|
|
store volatile double %val8, double *%ptr
|
|
store volatile double %val9, double *%ptr
|
|
store volatile double %val10, double *%ptr
|
|
store volatile double %val11, double *%ptr
|
|
store volatile double %val12, double *%ptr
|
|
store volatile double %val13, double *%ptr
|
|
store volatile double %val14, double *%ptr
|
|
store volatile double %val15, double *%ptr
|
|
store volatile double %val16, double *%ptr
|
|
|
|
store volatile double %sqrt0, double *%ptr
|
|
store volatile double %sqrt1, double *%ptr
|
|
store volatile double %sqrt2, double *%ptr
|
|
store volatile double %sqrt3, double *%ptr
|
|
store volatile double %sqrt4, double *%ptr
|
|
store volatile double %sqrt5, double *%ptr
|
|
store volatile double %sqrt6, double *%ptr
|
|
store volatile double %sqrt7, double *%ptr
|
|
store volatile double %sqrt8, double *%ptr
|
|
store volatile double %sqrt9, double *%ptr
|
|
store volatile double %sqrt10, double *%ptr
|
|
store volatile double %sqrt11, double *%ptr
|
|
store volatile double %sqrt12, double *%ptr
|
|
store volatile double %sqrt13, double *%ptr
|
|
store volatile double %sqrt14, double *%ptr
|
|
store volatile double %sqrt15, double *%ptr
|
|
store volatile double %sqrt16, double *%ptr
|
|
|
|
ret void
|
|
}
|
|
|
|
; Check that a call to the normal sqrt function is lowered.
|
|
define double @f8(double %dummy, double %val) {
|
|
; CHECK-LABEL: f8:
|
|
; CHECK: sqdbr %f0, %f2
|
|
; CHECK: cdbr %f0, %f0
|
|
; CHECK: jo [[LABEL:\.L.*]]
|
|
; CHECK: br %r14
|
|
; CHECK: [[LABEL]]:
|
|
; CHECK: ldr %f0, %f2
|
|
; CHECK: jg sqrt@PLT
|
|
%res = tail call double @sqrt(double %val)
|
|
ret double %res
|
|
}
|