mirror of
https://github.com/darlinghq/darling-gdb.git
synced 2024-12-05 02:47:05 +00:00
213 lines
4.3 KiB
C
213 lines
4.3 KiB
C
/* xdr_rdb.c - xdr routines for Remote Debug interface to VxWorks */
|
|
|
|
/* Copyright 1992, 1993 Free Software Foundation, Inc.
|
|
|
|
This code was donated by Wind River Systems, Inc. */
|
|
|
|
/*
|
|
modification history
|
|
--------------------
|
|
01a,21mar90,llk created using modification 01d of xdr_dbx.c.
|
|
*/
|
|
|
|
/*
|
|
DESCRIPTION
|
|
This module contains the eXternal Data Representation (XDR) routines
|
|
for the RDB interface for VxWorks.
|
|
*/
|
|
|
|
#include "defs.h"
|
|
#include "vxWorks.h"
|
|
#include <rpc/rpc.h>
|
|
#include "xdr_rdb.h"
|
|
|
|
/* forward declarations */
|
|
|
|
bool_t
|
|
xdr_arg_type(xdrs, objp)
|
|
XDR *xdrs;
|
|
arg_type *objp;
|
|
{
|
|
if (!xdr_enum(xdrs, (enum_t *)objp)) {
|
|
return (FALSE);
|
|
}
|
|
return (TRUE);
|
|
}
|
|
|
|
bool_t
|
|
xdr_arg_value(xdrs, objp)
|
|
XDR *xdrs;
|
|
arg_value *objp;
|
|
{
|
|
if (!xdr_arg_type(xdrs, &objp->type)) {
|
|
return (FALSE);
|
|
}
|
|
switch (objp->type) {
|
|
case T_BYTE:
|
|
if (!xdr_char(xdrs, &objp->arg_value_u.v_byte)) {
|
|
return (FALSE);
|
|
}
|
|
break;
|
|
case T_WORD:
|
|
if (!xdr_short(xdrs, &objp->arg_value_u.v_word)) {
|
|
return (FALSE);
|
|
}
|
|
break;
|
|
case T_INT:
|
|
if (!xdr_int(xdrs, &objp->arg_value_u.v_int)) {
|
|
return (FALSE);
|
|
}
|
|
break;
|
|
case T_FLOAT:
|
|
if (!xdr_float(xdrs, &objp->arg_value_u.v_fp)) {
|
|
return (FALSE);
|
|
}
|
|
break;
|
|
case T_DOUBLE:
|
|
if (!xdr_double(xdrs, &objp->arg_value_u.v_dp)) {
|
|
return (FALSE);
|
|
}
|
|
break;
|
|
case T_UNKNOWN:
|
|
break;
|
|
}
|
|
return (TRUE);
|
|
}
|
|
|
|
bool_t
|
|
xdr_func_call(xdrs, objp)
|
|
XDR *xdrs;
|
|
func_call *objp;
|
|
{
|
|
if (!xdr_int(xdrs, &objp->func_addr)) {
|
|
return (FALSE);
|
|
}
|
|
if (!xdr_array(xdrs, (char **)&objp->args.args_val, (u_int *)&objp->args.args_len, MAX_FUNC_ARGS, sizeof(arg_value), xdr_arg_value)) {
|
|
return (FALSE);
|
|
}
|
|
return (TRUE);
|
|
}
|
|
|
|
bool_t
|
|
xdr_arg_one(xdrs, objp)
|
|
XDR *xdrs;
|
|
arg_one *objp;
|
|
{
|
|
if (!xdr_string(xdrs, objp, MAX_ARG_LEN)) {
|
|
return (FALSE);
|
|
}
|
|
return (TRUE);
|
|
}
|
|
|
|
|
|
|
|
|
|
bool_t
|
|
xdr_arg_array(xdrs, objp)
|
|
XDR *xdrs;
|
|
arg_array *objp;
|
|
{
|
|
if (!xdr_array(xdrs, (char **)&objp->arg_array_val, (u_int *)&objp->arg_array_len, MAX_ARG_CNT, sizeof(arg_one), xdr_arg_one)) {
|
|
return (FALSE);
|
|
}
|
|
return (TRUE);
|
|
}
|
|
|
|
/*********************************************************************
|
|
*
|
|
* xdr_EVENT_TYPE -
|
|
*
|
|
*/
|
|
|
|
bool_t xdr_EVENT_TYPE(xdrs, objp)
|
|
XDR *xdrs;
|
|
EVENT_TYPE *objp;
|
|
|
|
{
|
|
if (!xdr_enum (xdrs, (enum_t *) objp))
|
|
return (FALSE);
|
|
return (TRUE);
|
|
}
|
|
|
|
/*********************************************************************
|
|
*
|
|
* xdr_RDB_EVENT -
|
|
*
|
|
*/
|
|
|
|
bool_t xdr_RDB_EVENT (xdrs, objp)
|
|
XDR *xdrs;
|
|
RDB_EVENT *objp;
|
|
|
|
{
|
|
if (!xdr_int (xdrs, &objp->status))
|
|
return (FALSE);
|
|
if (!xdr_int (xdrs, &objp->taskId))
|
|
return (FALSE);
|
|
if (!xdr_EVENT_TYPE (xdrs, &objp->eventType))
|
|
return (FALSE);
|
|
if (!xdr_int (xdrs, &objp->sigType))
|
|
return (FALSE);
|
|
return (TRUE);
|
|
}
|
|
|
|
/*********************************************************************
|
|
*
|
|
* xdr_TASK_START -
|
|
*
|
|
*/
|
|
|
|
bool_t
|
|
xdr_TASK_START (xdrs, objp)
|
|
XDR *xdrs;
|
|
TASK_START *objp;
|
|
|
|
{
|
|
if (!xdr_int (xdrs, &objp->status))
|
|
return (FALSE);
|
|
if (!xdr_int (xdrs, &objp->pid))
|
|
return (FALSE);
|
|
return (TRUE);
|
|
}
|
|
|
|
|
|
/*********************************************************************
|
|
*
|
|
* xdr_SYMBOL_ADDR -
|
|
*
|
|
*/
|
|
|
|
bool_t
|
|
xdr_SYMBOL_ADDR (xdrs, objp)
|
|
XDR *xdrs;
|
|
SYMBOL_ADDR *objp;
|
|
|
|
{
|
|
if (!xdr_int (xdrs, &objp->status))
|
|
return (FALSE);
|
|
if (!xdr_u_int (xdrs, &objp->addr))
|
|
return (FALSE);
|
|
return (TRUE);
|
|
}
|
|
|
|
/*********************************************************************
|
|
*
|
|
* xdr_SOURCE_STEP -
|
|
*
|
|
*/
|
|
|
|
bool_t
|
|
xdr_SOURCE_STEP (xdrs, objp)
|
|
XDR *xdrs;
|
|
SOURCE_STEP *objp;
|
|
|
|
{
|
|
if (!xdr_int (xdrs, &objp->taskId))
|
|
return (FALSE);
|
|
if (!xdr_u_int (xdrs, &objp->startAddr))
|
|
return (FALSE);
|
|
if (!xdr_u_int (xdrs, &objp->endAddr))
|
|
return (FALSE);
|
|
return (TRUE);
|
|
}
|