1f176ad6fc6d4982e92c330265b00419e93b79f27David Mosberger-Tang/* libunwind - a platform-independent unwind library
21a0af36731309401f251123d398621ce363a6e98David Mosberger-Tang   Copyright (C) 2004-2005 Hewlett-Packard Co
3f176ad6fc6d4982e92c330265b00419e93b79f27David Mosberger-Tang	Contributed by David Mosberger-Tang <davidm@hpl.hp.com>
4f176ad6fc6d4982e92c330265b00419e93b79f27David Mosberger-Tang
5f176ad6fc6d4982e92c330265b00419e93b79f27David Mosberger-TangThis file is part of libunwind.
6f176ad6fc6d4982e92c330265b00419e93b79f27David Mosberger-Tang
7f176ad6fc6d4982e92c330265b00419e93b79f27David Mosberger-TangPermission is hereby granted, free of charge, to any person obtaining
8f176ad6fc6d4982e92c330265b00419e93b79f27David Mosberger-Tanga copy of this software and associated documentation files (the
9f176ad6fc6d4982e92c330265b00419e93b79f27David Mosberger-Tang"Software"), to deal in the Software without restriction, including
10f176ad6fc6d4982e92c330265b00419e93b79f27David Mosberger-Tangwithout limitation the rights to use, copy, modify, merge, publish,
11f176ad6fc6d4982e92c330265b00419e93b79f27David Mosberger-Tangdistribute, sublicense, and/or sell copies of the Software, and to
12f176ad6fc6d4982e92c330265b00419e93b79f27David Mosberger-Tangpermit persons to whom the Software is furnished to do so, subject to
13f176ad6fc6d4982e92c330265b00419e93b79f27David Mosberger-Tangthe following conditions:
14f176ad6fc6d4982e92c330265b00419e93b79f27David Mosberger-Tang
15f176ad6fc6d4982e92c330265b00419e93b79f27David Mosberger-TangThe above copyright notice and this permission notice shall be
16f176ad6fc6d4982e92c330265b00419e93b79f27David Mosberger-Tangincluded in all copies or substantial portions of the Software.
17f176ad6fc6d4982e92c330265b00419e93b79f27David Mosberger-Tang
18f176ad6fc6d4982e92c330265b00419e93b79f27David Mosberger-TangTHE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
19f176ad6fc6d4982e92c330265b00419e93b79f27David Mosberger-TangEXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
20f176ad6fc6d4982e92c330265b00419e93b79f27David Mosberger-TangMERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
21f176ad6fc6d4982e92c330265b00419e93b79f27David Mosberger-TangNONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
22f176ad6fc6d4982e92c330265b00419e93b79f27David Mosberger-TangLIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
23f176ad6fc6d4982e92c330265b00419e93b79f27David Mosberger-TangOF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
24f176ad6fc6d4982e92c330265b00419e93b79f27David Mosberger-TangWITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.  */
25f176ad6fc6d4982e92c330265b00419e93b79f27David Mosberger-Tang
266a89d402366d5f40eecf482197ee5f45566eed3bDavid Mosberger-Tang#include "libunwind_i.h"
27f176ad6fc6d4982e92c330265b00419e93b79f27David Mosberger-Tang
28f176ad6fc6d4982e92c330265b00419e93b79f27David Mosberger-TangPROTECTED int
29f176ad6fc6d4982e92c330265b00419e93b79f27David Mosberger-Tangunw_set_fpreg (unw_cursor_t *cursor, int regnum, unw_fpreg_t val)
30f176ad6fc6d4982e92c330265b00419e93b79f27David Mosberger-Tang{
31f176ad6fc6d4982e92c330265b00419e93b79f27David Mosberger-Tang  struct cursor *c = (struct cursor *) cursor;
32f176ad6fc6d4982e92c330265b00419e93b79f27David Mosberger-Tang
33f176ad6fc6d4982e92c330265b00419e93b79f27David Mosberger-Tang  return tdep_access_fpreg (c, regnum, &val, 1);
34f176ad6fc6d4982e92c330265b00419e93b79f27David Mosberger-Tang}
35