← Back to branch summary

~ubuntu-branches/ubuntu/dapper/dejagnu/dapper

« back to all changes in this revision

Viewing changes to testglue.c

  • Committer: Bazaar Package Importer
  • Author(s): Daniel Jacobowitz
  • Date: 2004-02-09 15:07:58 UTC
  • Revision ID: james.westby@ubuntu.com-20040209150758-oaj7r5zrop60v8sb
Tags: upstream-1.4.4
Import upstream version 1.4.4

Show diffs side-by-side

added added

removed removed

Lines of Context:
testglue.c
 
1
#include <stdio.h>
 
2
#include <string.h>
 
3
#ifndef NO_UNISTD_H
 
4
#include <sys/unistd.h>
 
5
#endif
 
6
 
 
7
/* A simple glue file for embedded targets so we can get the real exit
 
8
   status from the program. This assumes we're using GNU ld and can use
 
9
   the -wrap option, and that write(1, ...) does something useful. */
 
10
 
 
11
/* There is a bunch of weird cruft with #ifdef UNDERSCORES. This is needed
 
12
   because currently GNU ld doesn't deal well with a.out targets and
 
13
   the -wrap option. When GNU ld is fixed, this should definitely be
 
14
   removed. Note that we actually wrap __exit, not _exit on a target
 
15
   that has UNDERSCORES defined.  On non-UNDERSCORE targets, we
 
16
   wrap _exit separately; it's actually a different function.  */
 
17
 
 
18
#ifdef WRAP_M68K_AOUT
 
19
#define REAL_EXIT(code) asm ( "trap %0" : : "i" (0) );
 
20
#define REAL_ABORT() REAL_EXIT(6)
 
21
#define ORIG_EXIT _exit
 
22
#define ORIG_ABORT abort
 
23
#else
 
24
#ifdef UNDERSCORES
 
25
#define REAL_EXIT _real___exit
 
26
#define REAL_MAIN _real__main
 
27
#define REAL_ABORT _real__abort
 
28
#define ORIG_EXIT _wrap___exit
 
29
#define ORIG_ABORT _wrap__abort
 
30
#define ORIG_MAIN _wrap__main
 
31
#else
 
32
#define REAL_EXIT __real_exit
 
33
#ifndef VXWORKS
 
34
#define REAL__EXIT __real__exit
 
35
#endif
 
36
#define REAL_MAIN __real_main
 
37
#define REAL_ABORT __real_abort
 
38
#define ORIG_EXIT __wrap_exit
 
39
#define ORIG__EXIT __wrap__exit
 
40
#define ORIG_ABORT __wrap_abort
 
41
#define ORIG_MAIN __wrap_main
 
42
#endif
 
43
#endif
 
44
 
 
45
#ifdef REAL_MAIN
 
46
extern void REAL_EXIT ();
 
47
extern void REAL_ABORT ();
 
48
extern int REAL_MAIN (int argc, char **argv, char **envp);
 
49
#endif
 
50
#ifdef REAL__EXIT
 
51
extern void REAL__EXIT ();
 
52
#endif
 
53
 
 
54
static int done_exit_message = 0;
 
55
int ___constval = 1;
 
56
 
 
57
#ifdef VXWORKS
 
58
static void __runexit();
 
59
#endif
 
60
 
 
61
static char *
 
62
write_int(val, ptr)
 
63
     int val;
 
64
     char *ptr;
 
65
{
 
66
  char c;
 
67
  if (val<0) {
 
68
    *(ptr++) = '-';
 
69
    val = -val;
 
70
  }
 
71
  if (val>9) {
 
72
    ptr = write_int (val/10, ptr);
 
73
  }
 
74
  c = (val%10)+'0';
 
75
  *(ptr++) = c;
 
76
  return ptr;
 
77
}
 
78
 
 
79
void
 
80
ORIG_EXIT (code)
 
81
     int code;
 
82
{
 
83
  char buf[30];
 
84
  char *ptr;
 
85
 
 
86
#ifdef VXWORKS
 
87
  __runexit ();
 
88
#endif
 
89
  strcpy (buf, "\n*** EXIT code ");
 
90
  ptr = write_int (code, buf + strlen(buf));
 
91
  *(ptr++) = '\n';
 
92
  write (1, buf, ptr-buf);
 
93
  done_exit_message = 1;
 
94
  REAL_EXIT (code);
 
95
  while (___constval);
 
96
}
 
97
 
 
98
#ifdef ORIG__EXIT
 
99
void
 
100
ORIG__EXIT (code)
 
101
     int code;
 
102
{
 
103
  char buf[30];
 
104
  char *ptr;
 
105
 
 
106
  /* Since exit may call _exit, we need to avoid a second message.  */
 
107
  if (! done_exit_message)
 
108
    {
 
109
      strcpy (buf, "\n*** EXIT code ");
 
110
      ptr = write_int (code, buf + strlen(buf));
 
111
      *(ptr++) = '\n';
 
112
      write (1, buf, ptr-buf);
 
113
    }
 
114
 
 
115
  REAL__EXIT (code);
 
116
  while (___constval);
 
117
}
 
118
#endif
 
119
 
 
120
void
 
121
ORIG_ABORT ()
 
122
{
 
123
  write (1, "\n*** EXIT code 4242\n", 20);
 
124
  REAL_ABORT ();
 
125
  while (___constval);
 
126
  abort ();
 
127
}
 
128
 
 
129
#ifdef REAL_MAIN
 
130
int
 
131
ORIG_MAIN (argc, argv, envp)
 
132
     int argc;
 
133
     char **argv;
 
134
     char **envp;
 
135
{
 
136
#ifdef WRAP_FILE_ARGS
 
137
  extern int __argc;
 
138
  extern char *__args[];
 
139
 
 
140
  exit (REAL_MAIN (__argc,__args,envp));
 
141
#else
 
142
  exit (REAL_MAIN (argc, argv, envp));
 
143
#endif
 
144
  while (___constval);
 
145
}
 
146
#endif
 
147
 
 
148
#ifdef VXWORKS
 
149
void
 
150
_exit (status)
 
151
     int status;
 
152
{
 
153
  REAL_EXIT (status);
 
154
}
 
155
 
 
156
typedef (*PFV)(void);
 
157
 
 
158
static PFV __list[32];
 
159
static int __listcnt = 0;
 
160
static int __running = 0;
 
161
 
 
162
int
 
163
atexit (PFV func)
 
164
{
 
165
  __list[__listcnt++] = func;
 
166
}
 
167
 
 
168
static void
 
169
__runexit ()
 
170
{
 
171
  int i;
 
172
  if (__running++)
 
173
    return;
 
174
 
 
175
  for (i = 0; i < __listcnt; i++)
 
176
    __list[i]();
 
177
  __running = 0;
 
178
}
 
179
#endif