1/*
2 * BK Id: SCCS/s.lfd.c 1.6 05/17/01 18:14:23 cort
3 */
4#include <linux/types.h>
5#include <linux/errno.h>
6#include <asm/uaccess.h>
7
8#include "sfp-machine.h"
9#include "double.h"
10
11int
12lfd(void *frD, void *ea)
13{
14	if (copy_from_user(frD, ea, sizeof(double)))
15		return -EFAULT;
16#ifdef DEBUG
17	printk("%s: D %p, ea %p: ", __FUNCTION__, frD, ea);
18	dump_double(frD);
19	printk("\n");
20#endif
21	return 0;
22}
23