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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [g++.dg/] [other/] [pr31078.C] - Blame information for rev 715

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

Line No. Rev Author Line
1 693 jeremybenn
typedef int SLONG;
2
typedef char SCHAR;
3
typedef short SSHORT;
4
typedef char TEXT;
5
typedef long ISC_STATUS;
6
const SLONG gds_arg_string = 2;
7
const SLONG gds_sys_request = 335544373L;
8
enum jrd_blk_t
9
{
10
    type_str, type_dcc, type_sbm, type_smb, type_blb, type_irb, type_jrn
11
};
12
struct blk
13
{
14
};
15
template < class RPT, SSHORT BLOCK_TYPE = 0 > class pool_alloc_rpt:public blk
16
{
17
};
18
class jrn:public pool_alloc_rpt < SCHAR, type_jrn >
19
{
20
public:ISC_STATUS * jrn_status_vector;
21
  TEXT jrn_server[1];
22
};
23
typedef jrn *JRN;
24
extern void IBERR_build_status (ISC_STATUS *, ISC_STATUS, ...);
25
static void
26
error (ISC_STATUS * status_vector, JRN journal, int status, TEXT * string)
27
{
28
  IBERR_build_status (status_vector, gds_sys_request, gds_arg_string, string,
29
                      gds_arg_string, (journal) ? journal->jrn_server : "",
30
                      0);
31
}

powered by: WebSVN 2.1.0

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