URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [tags/] [gnu-src/] [newlib-1.18.0/] [newlib-1.18.0-or32-1.0rc1/] [newlib/] [libc/] [machine/] [i386/] [f_ldexpf.S] - Diff between revs 207 and 345

Rev 207	Rev 345
`/*`	`/*`
`* ====================================================`	`* ====================================================`
`* Copyright (C) 1998, 2002 by Red Hat Inc. All rights reserved.`	`* Copyright (C) 1998, 2002 by Red Hat Inc. All rights reserved.`
`*`	`*`
`* Permission to use, copy, modify, and distribute this`	`* Permission to use, copy, modify, and distribute this`
`* software is freely granted, provided that this notice`	`* software is freely granted, provided that this notice`
`* is preserved.`	`* is preserved.`
`* ====================================================`	`* ====================================================`
`*/`	`*/`

`#if !defined(_SOFT_FLOAT)`	`#if !defined(_SOFT_FLOAT)`

`/*`	`/*`
`Fast version of ldexpf using Intel float instructions.`	`Fast version of ldexpf using Intel float instructions.`

`float _f_ldexpf (float x, int exp);`	`float _f_ldexpf (float x, int exp);`

`Function calculates x * 2 ** exp.`	`Function calculates x * 2 ** exp.`
`There is no error checking or setting of errno.`	`There is no error checking or setting of errno.`
`*/`	`*/`

`#include "i386mach.h"`	`#include "i386mach.h"`

`.global SYM (_f_ldexpf)`	`.global SYM (_f_ldexpf)`
`SOTYPE_FUNCTION(_f_ldexpf)`	`SOTYPE_FUNCTION(_f_ldexpf)`

`SYM (_f_ldexpf):`	`SYM (_f_ldexpf):`
`pushl ebp`	`pushl ebp`
`movl esp,ebp`	`movl esp,ebp`
`fild 12(ebp)`	`fild 12(ebp)`
`flds 8(ebp)`	`flds 8(ebp)`
`fscale`	`fscale`
`fstp st1`	`fstp st1`

`leave`	`leave`
`ret`	`ret`

`#endif`	`#endif`