flibms.s

操作系统SunOS 4.1.3版本的源码

 	.data
|	.asciz	"@(#)Flibms.s 1.1 92/07/30 Copyr 1986 Sun Micro"
 	.even
 	.text
 
|	Copyright (c) 1986 by Sun Microsystems, Inc.

#include "DEFS.h"

#define ENTRYS(func) \
	RTENTRY(F/**/func/**/s) ; \
	movel	d0,sp@- ; \
	pea	sp@ ; \
	jsr	_F/**/func/**/_ ; \
	addql	#8,sp ; \
	RET

#define ENTRYX(func,x) \
	RTENTRY(F/**/func/**/s) ; \
	movel	d0,sp@- ; \
	pea	sp@ ; \
	jsr	_F/**/x/**/_ ; \
	addql	#8,sp ; \
	RET

ENTRYS(cos)
ENTRYS(sin)
ENTRYS(tan)
ENTRYS(acos)
ENTRYS(asin)
ENTRYS(atan)
ENTRYS(cosh)
ENTRYS(sinh)
ENTRYS(tanh)
ENTRYS(exp)
ENTRYX(exp1,expm1)
ENTRYX(pow2,exp2)
ENTRYX(pow10,exp10)
ENTRYS(log)
ENTRYX(log1,log1p)
ENTRYS(log2)
ENTRYS(log10)