|
#/* For Motorola 68K sysv */
#/* Contributed by Philippe De Muyter <phdm@info.ucl.ac.be> */
text
even
global floorl
floorl:
link %a6,&0
fmov.x %fp1,-(%sp)
fmov.l %fpcr,%d0
mov.l &-17,%d1
and.l %d0,%d1
or.l &32,%d1
fmov.l %d1,%fpcr
fmov.x 8(%a6),%fp1
fint.x %fp1,%fp0
fmov.l %d0,%fpcr
fmov.x -12(%a6),%fp1
unlk %a6
rts
even
global ceill
ceill:
link %a6,&0
fmov.x %fp1,-(%sp)
fmov.x 8(%a6),%fp1
fint.x %fp1,%fp0
fmov.x (%sp)+,%fp1
unlk %a6
rts
even
global frexpl
frexpl:
link.w %a6,&0
fmov.x %fp1,-(%sp)
fmov.x 8(%a6),%fp0
mov.l 20(%a6),%a0
fgetexp.x %fp0,%fp1
fintrz.x %fp1,%fp1
fmov.l %fp1,%d0
fgetman.x %fp0,%fp0
ftest.x %fp0
fbngt L21
fscale.b &-1,%fp0
addq.l &1,%d0
L21: mov.l %d0,(%a0)
fmov.x -12(%a6),%fp1
unlk %a6
rts
even
global ldexpl
ldexpl:
link.w %a6,&0
fmov.x 8(%a6),%fp0
fscale.l 20(%a6),%fp0
unlk %a6
rts
even
global fabsl
fabsl:
link %a6,&0
fmov.x 8(%a6),%fp0
fabs.x %fp0,%fp0
unlk %a6
rts
[ Verzeichnis aufwärts0.3unsichere Verbindung
Übersetzung europäischer Sprachen durch Browser
]
|
