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

Subversion Repositories or1k

[/] [or1k/] [trunk/] [gdb-5.3/] [gdb/] [vx-share/] [xdr_ptrace.c] - Blame information for rev 1773

Go to most recent revision | Details | Compare with Previous | View Log


/* xdr_ptrace.c  - xdr routines for remote ptrace calls */
 
/*  Copyright 1984, 1985, 1986, 1987, 1988, 1989, 1991, 1992, 1993, 1998
    Free Software Foundation, Inc.
 
    This code was donated by Wind River Systems, Inc. */
 
/*
modification history
--------------------
01b,25may91,maf  now uses counted bytes struct to transfer registers.
                 removed xdr_regs_ptr (), xdr_fp_status_ptr (), and
                   xdr_fpa_regs_ptr ().
01a,05jun90,llk  extracted from xdr_ptrace.h, version 01c.
*/
 
#include "defs.h"
#include "vxWorks.h"
#include <rpc/rpc.h>
#include "xdr_ptrace.h"
 
#define MAX_LEN 32000
 
/********************************************************************
*
* xdr_c_bytes -
*
* xdr routine for counted bytes
*
*/
bool_t xdr_c_bytes(xdrs,objp)
    XDR *xdrs;
    C_bytes *objp;
    {
    return(xdr_bytes(xdrs, &objp->bytes, (u_int *) &objp->len, MAX_LEN));
    } /* xdr_c_bytes */
 
/********************************************************************
*
* xdr_c_bytes_ptr -
*
* xdr routine for counted bytes branch of ptrace_info
*
*/
 
LOCAL bool_t xdr_c_bytes_ptr(xdrs,objp)
    XDR *xdrs;
    C_bytes **objp;
    {
    return(xdr_pointer(xdrs, (char **) objp, sizeof(C_bytes), xdr_c_bytes));
    } /* xdr_c_bytes_ptr */
 
/********************************************************************
*
* xdr_ptrace_info -
*
* xdr routine for discriminated union ptrace_info
*
*/
 
bool_t xdr_ptrace_info(xdrs,objp)
    XDR *xdrs;
    Ptrace_info *objp;
    {
    static struct xdr_discrim choices[] =
        {
            { (int) DATA, xdr_c_bytes_ptr },
            { __dontcare__, NULL }
        };
 
    return(xdr_union(xdrs, (enum_t *) &objp->ttype,
        (char *) &objp->more_data, choices, xdr_void));
    } /* xdr_ptrace_info */
 
/********************************************************************
*
* xdr_rptrace -
*
* xdr routine for remote ptrace data into server
*
*/
 
bool_t xdr_rptrace(xdrs,objp)
    XDR *xdrs;
    Rptrace *objp;
    {
    if (! xdr_int(xdrs, &objp->pid))
        return(FALSE);
    if (! xdr_int(xdrs, &objp->data))
        return(FALSE);
    if (! xdr_int(xdrs, &objp->addr))
        return(FALSE);
    if (! xdr_ptrace_info(xdrs, &objp->info))
        return(FALSE);
 
    return(TRUE);
    } /* xdr_rptrace */
 
/********************************************************************
*
* xdr_ptrace_return -
*
* xdr routine for remote ptrace data returned by server
*
*/
 
bool_t xdr_ptrace_return(xdrs, objp)
    XDR *xdrs;
    Ptrace_return *objp;
    {
    if (! xdr_int(xdrs, &objp->status))
        return(FALSE);
    if (! xdr_int(xdrs, &objp->errno_num))
        return(FALSE);
    if (! xdr_ptrace_info(xdrs, &objp->info))
        return(FALSE);
 
    return(TRUE);
    } /* xdr_ptrace_return */

Line No.	Rev	Author	Line
1	1181	sfurman	`/* xdr_ptrace.c - xdr routines for remote ptrace calls */`
2
3			`/* Copyright 1984, 1985, 1986, 1987, 1988, 1989, 1991, 1992, 1993, 1998`
4			`Free Software Foundation, Inc.`
5
6			`This code was donated by Wind River Systems, Inc. */`
7
8			`/*`
9			`modification history`
10			`--------------------`
11			`01b,25may91,maf now uses counted bytes struct to transfer registers.`
12			`removed xdr_regs_ptr (), xdr_fp_status_ptr (), and`
13			`xdr_fpa_regs_ptr ().`
14			`01a,05jun90,llk extracted from xdr_ptrace.h, version 01c.`
15			`*/`
16
17			`#include "defs.h"`
18			`#include "vxWorks.h"`
19			`#include <rpc/rpc.h>`
20			`#include "xdr_ptrace.h"`
21
22			`#define MAX_LEN 32000`
23
24			`/********************************************************************`
25			`*`
26			`* xdr_c_bytes -`
27			`*`
28			`* xdr routine for counted bytes`
29			`*`
30			`*/`
31			`bool_t xdr_c_bytes(xdrs,objp)`
32			`XDR *xdrs;`
33			`C_bytes *objp;`
34			`{`
35			`return(xdr_bytes(xdrs, &objp->bytes, (u_int *) &objp->len, MAX_LEN));`
36			`} /* xdr_c_bytes */`
37
38			`/********************************************************************`
39			`*`
40			`* xdr_c_bytes_ptr -`
41			`*`
42			`* xdr routine for counted bytes branch of ptrace_info`
43			`*`
44			`*/`
45
46			`LOCAL bool_t xdr_c_bytes_ptr(xdrs,objp)`
47			`XDR *xdrs;`
48			`C_bytes **objp;`
49			`{`
50			`return(xdr_pointer(xdrs, (char **) objp, sizeof(C_bytes), xdr_c_bytes));`
51			`} /* xdr_c_bytes_ptr */`
52
53			`/********************************************************************`
54			`*`
55			`* xdr_ptrace_info -`
56			`*`
57			`* xdr routine for discriminated union ptrace_info`
58			`*`
59			`*/`
60
61			`bool_t xdr_ptrace_info(xdrs,objp)`
62			`XDR *xdrs;`
63			`Ptrace_info *objp;`
64			`{`
65			`static struct xdr_discrim choices[] =`
66			`{`
67			`{ (int) DATA, xdr_c_bytes_ptr },`
68			`{ __dontcare__, NULL }`
69			`};`
70
71			`return(xdr_union(xdrs, (enum_t *) &objp->ttype,`
72			`(char *) &objp->more_data, choices, xdr_void));`
73			`} /* xdr_ptrace_info */`
74
75			`/********************************************************************`
76			`*`
77			`* xdr_rptrace -`
78			`*`
79			`* xdr routine for remote ptrace data into server`
80			`*`
81			`*/`
82
83			`bool_t xdr_rptrace(xdrs,objp)`
84			`XDR *xdrs;`
85			`Rptrace *objp;`
86			`{`
87			`if (! xdr_int(xdrs, &objp->pid))`
88			`return(FALSE);`
89			`if (! xdr_int(xdrs, &objp->data))`
90			`return(FALSE);`
91			`if (! xdr_int(xdrs, &objp->addr))`
92			`return(FALSE);`
93			`if (! xdr_ptrace_info(xdrs, &objp->info))`
94			`return(FALSE);`
95
96			`return(TRUE);`
97			`} /* xdr_rptrace */`
98
99			`/********************************************************************`
100			`*`
101			`* xdr_ptrace_return -`
102			`*`
103			`* xdr routine for remote ptrace data returned by server`
104			`*`
105			`*/`
106
107			`bool_t xdr_ptrace_return(xdrs, objp)`
108			`XDR *xdrs;`
109			`Ptrace_return *objp;`
110			`{`
111			`if (! xdr_int(xdrs, &objp->status))`
112			`return(FALSE);`
113			`if (! xdr_int(xdrs, &objp->errno_num))`
114			`return(FALSE);`
115			`if (! xdr_ptrace_info(xdrs, &objp->info))`
116			`return(FALSE);`
117
118			`return(TRUE);`
119			`} /* xdr_ptrace_return */`

Browse

Tools

Subversion Repositories or1k

[/] [or1k/] [trunk/] [gdb-5.3/] [gdb/] [vx-share/] [xdr_ptrace.c] - Blame information for rev 1773