OpenCores
URL https://opencores.org/ocsvn/or1k/or1k/trunk

Subversion Repositories or1k

[/] [or1k/] [trunk/] [linux/] [linux-2.4/] [arch/] [ppc/] [math-emu/] [stfs.c] - Blame information for rev 1765

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 1275 phoenix
#include <linux/types.h>
2
#include <linux/errno.h>
3
#include <asm/uaccess.h>
4
 
5
#include "soft-fp.h"
6
#include "double.h"
7
#include "single.h"
8
 
9
int
10
stfs(void *frS, void *ea)
11
{
12
        FP_DECL_D(A);
13
        FP_DECL_S(R);
14
        float f;
15
        int err;
16
 
17
#ifdef DEBUG
18
        printk("%s: S %p, ea %p\n", __FUNCTION__, frS, ea);
19
#endif
20
 
21
        __FP_UNPACK_D(A, frS);
22
 
23
#ifdef DEBUG
24
        printk("A: %ld %lu %lu %ld (%ld)\n", A_s, A_f1, A_f0, A_e, A_c);
25
#endif
26
 
27
        FP_CONV(S, D, 1, 2, R, A);
28
 
29
#ifdef DEBUG
30
        printk("R: %ld %lu %ld (%ld)\n", R_s, R_f, R_e, R_c);
31
#endif
32
 
33
        err = _FP_PACK_CANONICAL(S, 1, R);
34
        if (!err || !__FPU_TRAP_P(err)) {
35
                __FP_PACK_RAW_1(S, &f, R);
36
                if (copy_to_user(ea, &f, sizeof(float)))
37
                        return -EFAULT;
38
        }
39
 
40
        return err;
41
}

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.