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

Subversion Repositories scarts

[/] [scarts/] [trunk/] [toolchain/] [scarts-gdb/] [gdb-6.8/] [gdb/] [testsuite/] [gdb.base/] [langs0.c] - Blame information for rev 25

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 25 jlechner
/* This file is actually in C, it is not supposed to simulate something
2
   translated from another language or anything like that.  */
3
#ifdef PROTOTYPES
4
extern  int fsub_();
5
 
6
int csub (int x)
7
#else
8
int
9
csub (x)
10
     int x;
11
#endif
12
{
13
  return x + 1;
14
}
15
 
16
int
17
langs0__2do ()
18
{
19
  return fsub_ () + 2;
20
}
21
 
22
int
23
main ()
24
{
25
#ifdef usestubs
26
  set_debug_traps();
27
  breakpoint();
28
#endif
29
  if (langs0__2do () == 5003)
30
    /* Success.  */
31
    return 0;
32
  else
33
    return 1;
34
}

powered by: WebSVN 2.1.0

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