Initial revision
This commit is contained in:
18
mach/proto/fp/dvf4.c
Normal file
18
mach/proto/fp/dvf4.c
Normal file
@@ -0,0 +1,18 @@
|
||||
/*
|
||||
DIVIDE TWO FLOATS - SINGLE Precision
|
||||
*/
|
||||
|
||||
#include "FP_types.h"
|
||||
|
||||
dvf4(s2,s1)
|
||||
_float s1,s2;
|
||||
{
|
||||
EXTEND e1,e2;
|
||||
|
||||
extend((_double *)&s1,&e1,sizeof(_float));
|
||||
extend((_double *)&s2,&e2,sizeof(_float));
|
||||
|
||||
/* do a divide */
|
||||
div_ext(&e1,&e2);
|
||||
compact(&e1,(_double *)&s1,sizeof(_float));
|
||||
}
|
||||
Reference in New Issue
Block a user