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

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gdb-7.1/] [gdb/] [testsuite/] [gdb.base/] [shmain.c] - Rev 227

Compare with Previous | Blame | View Log

/* A test */
 
#include "ss.h"
#include <stdio.h>
 
extern int structarg(struct s);
extern int pstructarg(struct s*);
extern int shr1(int);
extern int shr2(int);
extern float sg;
 
int eglob;
 
struct {
 int a;  
 int b;
} s;
 
int g;
 
#ifdef PROTOTYPES
int local_structarg(struct s x)
#else
int local_structarg(x)
struct s x;
#endif
{
  return x.b;
}
 
#ifdef PROTOTYPES
int mainshr1(int g)
#else
int mainshr1(g)
int g;
#endif
{
  return 2*g;
}
 
int main()
{
  struct s y;
  g = 1;
  g = shr1(g);
  g = shr2(g);
  g = mainshr1(g);
  sg = 1.1;
  y.a = 3;
  y.b = 4;
  g = local_structarg(y);
  g = structarg(y);
  g = pstructarg(&y);
  return 0;
}
 

Compare with Previous | Blame | View Log

powered by: WebSVN 2.1.0

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