mirror of
https://github.com/c64scene-ar/llvm-6502.git
synced 2024-08-21 18:29:46 +00:00
integer and floating-point opcodes, introducing FAdd, FSub, and FMul. For now, the AsmParser, BitcodeReader, and IRBuilder all preserve backwards compatability, and the Core LLVM APIs preserve backwards compatibility for IR producers. Most front-ends won't need to change immediately. This implements the first step of the plan outlined here: http://nondot.org/sabre/LLVMNotes/IntegerOverflow.txt git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@72897 91177308-0d34-0410-b5e6-96231b3b80d8
56 lines
3.0 KiB
LLVM
56 lines
3.0 KiB
LLVM
; RUN: llvm-as < %s | llc
|
|
; PR2667
|
|
target datalayout = "e-p:32:32:32-i1:8:8-i8:8:32-i16:16:32-i32:32:32-i64:32:64-f32:32:32-f64:64:64-v64:64:64-v128:128:128-a0:0:64"
|
|
target triple = "psp"
|
|
%struct._Bigint = type { %struct._Bigint*, i32, i32, i32, i32, [1 x i32] }
|
|
%struct.__FILE = type { i8*, i32, i32, i16, i16, %struct.__sbuf, i32, i8*, i32 (i8*, i8*, i32)*, i32 (i8*, i8*, i32)*, i32 (i8*, i32, i32)*, i32 (i8*)*, %struct.__sbuf, i8*, i32, [3 x i8], [1 x i8], %struct.__sbuf, i32, i32, %struct._reent*, i32 }
|
|
%struct.__sbuf = type { i8*, i32 }
|
|
%struct._atexit = type { %struct._atexit*, i32, [32 x void ()*], %struct._on_exit_args }
|
|
%struct._glue = type { %struct._glue*, i32, %struct.__FILE* }
|
|
%struct._on_exit_args = type { [32 x i8*], [32 x i8*], i32, i32 }
|
|
%struct._reent = type { i32, %struct.__FILE*, %struct.__FILE*, %struct.__FILE*, i32, [25 x i8], i32, i8*, i32, void (%struct._reent*)*, %struct._Bigint*, i32, %struct._Bigint*, %struct._Bigint**, i32, i8*, { { [30 x i8*], [30 x i32] } }, %struct._atexit*, %struct._atexit, void (i32)**, %struct._glue, [3 x %struct.__FILE] }
|
|
@_impure_ptr = external global %struct._reent* ; <%struct._reent**> [#uses=1]
|
|
|
|
define double @_erand48_r(%struct._reent* %r, i16* %xseed) nounwind {
|
|
entry:
|
|
tail call void @__dorand48( %struct._reent* %r, i16* %xseed ) nounwind
|
|
load i16* %xseed, align 2 ; <i16>:0 [#uses=1]
|
|
uitofp i16 %0 to double ; <double>:1 [#uses=1]
|
|
tail call double @ldexp( double %1, i32 -48 ) nounwind ; <double>:2 [#uses=1]
|
|
getelementptr i16* %xseed, i32 1 ; <i16*>:3 [#uses=1]
|
|
load i16* %3, align 2 ; <i16>:4 [#uses=1]
|
|
uitofp i16 %4 to double ; <double>:5 [#uses=1]
|
|
tail call double @ldexp( double %5, i32 -32 ) nounwind ; <double>:6 [#uses=1]
|
|
fadd double %2, %6 ; <double>:7 [#uses=1]
|
|
getelementptr i16* %xseed, i32 2 ; <i16*>:8 [#uses=1]
|
|
load i16* %8, align 2 ; <i16>:9 [#uses=1]
|
|
uitofp i16 %9 to double ; <double>:10 [#uses=1]
|
|
tail call double @ldexp( double %10, i32 -16 ) nounwind ; <double>:11 [#uses=1]
|
|
fadd double %7, %11 ; <double>:12 [#uses=1]
|
|
ret double %12
|
|
}
|
|
|
|
declare void @__dorand48(%struct._reent*, i16*)
|
|
|
|
declare double @ldexp(double, i32)
|
|
|
|
define double @erand48(i16* %xseed) nounwind {
|
|
entry:
|
|
load %struct._reent** @_impure_ptr, align 4 ; <%struct._reent*>:0 [#uses=1]
|
|
tail call void @__dorand48( %struct._reent* %0, i16* %xseed ) nounwind
|
|
load i16* %xseed, align 2 ; <i16>:1 [#uses=1]
|
|
uitofp i16 %1 to double ; <double>:2 [#uses=1]
|
|
tail call double @ldexp( double %2, i32 -48 ) nounwind ; <double>:3 [#uses=1]
|
|
getelementptr i16* %xseed, i32 1 ; <i16*>:4 [#uses=1]
|
|
load i16* %4, align 2 ; <i16>:5 [#uses=1]
|
|
uitofp i16 %5 to double ; <double>:6 [#uses=1]
|
|
tail call double @ldexp( double %6, i32 -32 ) nounwind ; <double>:7 [#uses=1]
|
|
fadd double %3, %7 ; <double>:8 [#uses=1]
|
|
getelementptr i16* %xseed, i32 2 ; <i16*>:9 [#uses=1]
|
|
load i16* %9, align 2 ; <i16>:10 [#uses=1]
|
|
uitofp i16 %10 to double ; <double>:11 [#uses=1]
|
|
tail call double @ldexp( double %11, i32 -16 ) nounwind ; <double>:12 [#uses=1]
|
|
fadd double %8, %12 ; <double>:13 [#uses=1]
|
|
ret double %13
|
|
}
|