openbios/openboot/obp/fm/kernel/sparc/double.fth
Branch
-
Show log
Commit
-
Hash : 1a08f436
Author :
Date : 2010-08-25T09:23:17
change to well-formed svn directory structure. git-svn-id: svn://coreboot.org/openboot/trunk@2 4486e004-3823-0410-90c7-fb508cc143bb
-
obp/fm/kernel/sparc/double.fth
-
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67
id: @(#)double.fth 1.3 04/02/02 10:01:53 purpose: copyright: Copyright 2003-2004 Sun Microsystems, Inc. All Rights Reserved copyright: Copyright 1985-1994 Bradley Forthware copyright: Use is subject to license terms. code (dlit) ( -- d ) tos sp push \t16 ip 0 tos lduh \t16 tos d# 16 tos slln ip 2 scr lduh tos scr tos add 64\ \t16 tos d# 16 tos sllx ip 4 scr lduh tos scr tos add 64\ \t16 tos d# 16 tos sllx ip 6 scr lduh tos scr tos add \t32 ip tos lget 64\ \t32 tos d# 32 tos sllx ip /l scr ld tos scr tos add ip ainc tos sp push \t16 ip 0 tos lduh \t16 tos d# 16 tos slln ip 2 scr lduh tos scr tos add 64\ \t16 tos d# 16 tos sllx ip 4 scr lduh tos scr tos add 64\ \t16 tos d# 16 tos sllx ip 6 scr lduh tos scr tos add \t32 ip tos lget 64\ \t32 tos d# 32 tos sllx ip /l scr ld tos scr tos add ip ainc c; \ Double-precision arithmetic code dnegate ( d# -- d#' ) ( 0 L: ) mloclabel dneg1 sp 0 scr nget %g0 scr scr subcc %g0 tos tos subx scr sp 0 nput c; code dabs ( dbl.lo dbl.hi -- dbl.lo' dbl.hi' ) tos %g0 %g0 subcc ( 0 B: ) dneg1 0< brif nop c; \ Words that need to be defined in high-level belong in fm/kernel/double.fth \ : dmax ( d1 d2 -- d3 ) 2over 2over d- nip 0< if 2swap then 2drop ; code d+ ( x1 x2 -- x3 ) sp 0 /n* sc1 nget \ x2.low sp 2 /n* sc3 nget \ x1.low sp 1 /n* sc2 nget \ x1.high sp 2 /n* sp add \ Pop args sc3 sc1 sc1 addcc \ x3.low 32\ sc2 tos tos addx \ x3.high 64\ sc2 tos tos add \ x3.high 64\ u>= if annul tos 1 tos add 64\ then sc1 sp 0 nput \ Push result (x3.high already in tos) c; code d- ( x1 x2 -- x3 ) sp 0 /n* sc1 nget \ x2.low sp 2 /n* sc3 nget \ x1.low sp 1 /n* sc2 nget \ x1.high sp 2 /n* sp add \ Pop args sc3 sc1 sc1 subcc \ x3.low 32\ sc2 tos tos subx \ x3.high 64\ sc2 tos tos sub \ x3.high 64\ u>= if annul tos 1 tos sub 64\ then sc1 sp 0 nput \ Push result (x3.high already in tos) c;