1*b1cdbd2cSJim Jagielski /**************************************************************
2*b1cdbd2cSJim Jagielski *
3*b1cdbd2cSJim Jagielski * Licensed to the Apache Software Foundation (ASF) under one
4*b1cdbd2cSJim Jagielski * or more contributor license agreements. See the NOTICE file
5*b1cdbd2cSJim Jagielski * distributed with this work for additional information
6*b1cdbd2cSJim Jagielski * regarding copyright ownership. The ASF licenses this file
7*b1cdbd2cSJim Jagielski * to you under the Apache License, Version 2.0 (the
8*b1cdbd2cSJim Jagielski * "License"); you may not use this file except in compliance
9*b1cdbd2cSJim Jagielski * with the License. You may obtain a copy of the License at
10*b1cdbd2cSJim Jagielski *
11*b1cdbd2cSJim Jagielski * http://www.apache.org/licenses/LICENSE-2.0
12*b1cdbd2cSJim Jagielski *
13*b1cdbd2cSJim Jagielski * Unless required by applicable law or agreed to in writing,
14*b1cdbd2cSJim Jagielski * software distributed under the License is distributed on an
15*b1cdbd2cSJim Jagielski * "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
16*b1cdbd2cSJim Jagielski * KIND, either express or implied. See the License for the
17*b1cdbd2cSJim Jagielski * specific language governing permissions and limitations
18*b1cdbd2cSJim Jagielski * under the License.
19*b1cdbd2cSJim Jagielski *
20*b1cdbd2cSJim Jagielski *************************************************************/
21*b1cdbd2cSJim Jagielski
22*b1cdbd2cSJim Jagielski
23*b1cdbd2cSJim Jagielski
24*b1cdbd2cSJim Jagielski
25*b1cdbd2cSJim Jagielski #ifdef SOLARIS
26*b1cdbd2cSJim Jagielski
27*b1cdbd2cSJim Jagielski #include <dlfcn.h>
28*b1cdbd2cSJim Jagielski #include <pthread.h>
29*b1cdbd2cSJim Jagielski #include <setjmp.h>
30*b1cdbd2cSJim Jagielski #include <stdio.h>
31*b1cdbd2cSJim Jagielski #include <sys/frame.h>
32*b1cdbd2cSJim Jagielski #include "backtrace.h"
33*b1cdbd2cSJim Jagielski
34*b1cdbd2cSJim Jagielski #if defined(SPARC)
35*b1cdbd2cSJim Jagielski
36*b1cdbd2cSJim Jagielski #if defined IS_LP64
37*b1cdbd2cSJim Jagielski
38*b1cdbd2cSJim Jagielski #define FRAME_PTR_OFFSET 1
39*b1cdbd2cSJim Jagielski #define FRAME_OFFSET 0
40*b1cdbd2cSJim Jagielski #define STACK_BIAS 0x7ff
41*b1cdbd2cSJim Jagielski
42*b1cdbd2cSJim Jagielski #else
43*b1cdbd2cSJim Jagielski
44*b1cdbd2cSJim Jagielski #define FRAME_PTR_OFFSET 1
45*b1cdbd2cSJim Jagielski #define FRAME_OFFSET 0
46*b1cdbd2cSJim Jagielski #define STACK_BIAS 0
47*b1cdbd2cSJim Jagielski
48*b1cdbd2cSJim Jagielski #endif
49*b1cdbd2cSJim Jagielski
50*b1cdbd2cSJim Jagielski #elif defined( INTEL )
51*b1cdbd2cSJim Jagielski
52*b1cdbd2cSJim Jagielski #define FRAME_PTR_OFFSET 3
53*b1cdbd2cSJim Jagielski #define FRAME_OFFSET 0
54*b1cdbd2cSJim Jagielski #define STACK_BIAS 0
55*b1cdbd2cSJim Jagielski
56*b1cdbd2cSJim Jagielski #else
57*b1cdbd2cSJim Jagielski
58*b1cdbd2cSJim Jagielski #error Unknown Solaris target platform.
59*b1cdbd2cSJim Jagielski
60*b1cdbd2cSJim Jagielski #endif /* defined SPARC or INTEL */
61*b1cdbd2cSJim Jagielski
62*b1cdbd2cSJim Jagielski
backtrace(void ** buffer,int max_frames)63*b1cdbd2cSJim Jagielski int backtrace( void **buffer, int max_frames )
64*b1cdbd2cSJim Jagielski {
65*b1cdbd2cSJim Jagielski jmp_buf ctx;
66*b1cdbd2cSJim Jagielski long fpval;
67*b1cdbd2cSJim Jagielski struct frame *fp;
68*b1cdbd2cSJim Jagielski int i;
69*b1cdbd2cSJim Jagielski
70*b1cdbd2cSJim Jagielski /* flush register windows */
71*b1cdbd2cSJim Jagielski #ifdef SPARC
72*b1cdbd2cSJim Jagielski asm("ta 3");
73*b1cdbd2cSJim Jagielski #endif
74*b1cdbd2cSJim Jagielski
75*b1cdbd2cSJim Jagielski /* get stack- and framepointer */
76*b1cdbd2cSJim Jagielski setjmp(ctx);
77*b1cdbd2cSJim Jagielski
78*b1cdbd2cSJim Jagielski fpval = ((long*)(ctx))[FRAME_PTR_OFFSET];
79*b1cdbd2cSJim Jagielski fp = (struct frame*)((char*)(fpval) + STACK_BIAS);
80*b1cdbd2cSJim Jagielski
81*b1cdbd2cSJim Jagielski for (i = 0; (i < FRAME_OFFSET) && (fp != 0); i++)
82*b1cdbd2cSJim Jagielski fp = (struct frame*)((char*)(fp->fr_savfp) + STACK_BIAS);
83*b1cdbd2cSJim Jagielski
84*b1cdbd2cSJim Jagielski /* iterate through backtrace */
85*b1cdbd2cSJim Jagielski for (i = 0; (fp != 0) && (fp->fr_savpc != 0) && (i < max_frames); i++)
86*b1cdbd2cSJim Jagielski {
87*b1cdbd2cSJim Jagielski /* saved (prev) frame */
88*b1cdbd2cSJim Jagielski struct frame * prev = (struct frame*)((char*)(fp->fr_savfp) + STACK_BIAS);
89*b1cdbd2cSJim Jagielski
90*b1cdbd2cSJim Jagielski /* store frame */
91*b1cdbd2cSJim Jagielski *(buffer++) = (void*)(fp->fr_savpc);
92*b1cdbd2cSJim Jagielski
93*b1cdbd2cSJim Jagielski /* prev frame (w/ stack growing top down) */
94*b1cdbd2cSJim Jagielski fp = (prev > fp) ? prev : 0;
95*b1cdbd2cSJim Jagielski }
96*b1cdbd2cSJim Jagielski
97*b1cdbd2cSJim Jagielski /* return number of frames stored */
98*b1cdbd2cSJim Jagielski return i;
99*b1cdbd2cSJim Jagielski }
100*b1cdbd2cSJim Jagielski
backtrace_symbols_fd(void ** buffer,int size,int fd)101*b1cdbd2cSJim Jagielski void backtrace_symbols_fd( void **buffer, int size, int fd )
102*b1cdbd2cSJim Jagielski {
103*b1cdbd2cSJim Jagielski FILE *fp = fdopen( fd, "w" );
104*b1cdbd2cSJim Jagielski
105*b1cdbd2cSJim Jagielski if ( fp )
106*b1cdbd2cSJim Jagielski {
107*b1cdbd2cSJim Jagielski void **pFramePtr;
108*b1cdbd2cSJim Jagielski
109*b1cdbd2cSJim Jagielski for ( pFramePtr = buffer; size > 0 && pFramePtr && *pFramePtr; pFramePtr++, size-- )
110*b1cdbd2cSJim Jagielski {
111*b1cdbd2cSJim Jagielski Dl_info dli;
112*b1cdbd2cSJim Jagielski ptrdiff_t offset;
113*b1cdbd2cSJim Jagielski
114*b1cdbd2cSJim Jagielski if ( 0 != dladdr( *pFramePtr, &dli ) )
115*b1cdbd2cSJim Jagielski {
116*b1cdbd2cSJim Jagielski if ( dli.dli_fname && dli.dli_fbase )
117*b1cdbd2cSJim Jagielski {
118*b1cdbd2cSJim Jagielski offset = (ptrdiff_t)*pFramePtr - (ptrdiff_t)dli.dli_fbase;
119*b1cdbd2cSJim Jagielski fprintf( fp, "%s+0x%x", dli.dli_fname, offset );
120*b1cdbd2cSJim Jagielski }
121*b1cdbd2cSJim Jagielski if ( dli.dli_sname && dli.dli_saddr )
122*b1cdbd2cSJim Jagielski {
123*b1cdbd2cSJim Jagielski offset = (ptrdiff_t)*pFramePtr - (ptrdiff_t)dli.dli_saddr;
124*b1cdbd2cSJim Jagielski fprintf( fp, "(%s+0x%x)", dli.dli_sname, offset );
125*b1cdbd2cSJim Jagielski }
126*b1cdbd2cSJim Jagielski }
127*b1cdbd2cSJim Jagielski fprintf( fp, "[0x%x]\n", *pFramePtr );
128*b1cdbd2cSJim Jagielski }
129*b1cdbd2cSJim Jagielski
130*b1cdbd2cSJim Jagielski fflush( fp );
131*b1cdbd2cSJim Jagielski fclose( fp );
132*b1cdbd2cSJim Jagielski }
133*b1cdbd2cSJim Jagielski }
134*b1cdbd2cSJim Jagielski
135*b1cdbd2cSJim Jagielski #endif /* defined SOLARIS */
136*b1cdbd2cSJim Jagielski
137*b1cdbd2cSJim Jagielski
138*b1cdbd2cSJim Jagielski #if defined FREEBSD || defined NETBSD
139*b1cdbd2cSJim Jagielski #include <dlfcn.h>
140*b1cdbd2cSJim Jagielski #include <pthread.h>
141*b1cdbd2cSJim Jagielski #include <setjmp.h>
142*b1cdbd2cSJim Jagielski #include <stddef.h>
143*b1cdbd2cSJim Jagielski #include <stdio.h>
144*b1cdbd2cSJim Jagielski #include "backtrace.h"
145*b1cdbd2cSJim Jagielski
146*b1cdbd2cSJim Jagielski #define FRAME_PTR_OFFSET 1
147*b1cdbd2cSJim Jagielski #define FRAME_OFFSET 0
148*b1cdbd2cSJim Jagielski
backtrace(void ** buffer,int max_frames)149*b1cdbd2cSJim Jagielski int backtrace( void **buffer, int max_frames )
150*b1cdbd2cSJim Jagielski {
151*b1cdbd2cSJim Jagielski struct frame *fp;
152*b1cdbd2cSJim Jagielski jmp_buf ctx;
153*b1cdbd2cSJim Jagielski int i;
154*b1cdbd2cSJim Jagielski /* get stack- and framepointer */
155*b1cdbd2cSJim Jagielski setjmp(ctx);
156*b1cdbd2cSJim Jagielski fp = (struct frame*)(((size_t*)(ctx))[FRAME_PTR_OFFSET]);
157*b1cdbd2cSJim Jagielski for ( i=0; (i<FRAME_OFFSET) && (fp!=0); i++)
158*b1cdbd2cSJim Jagielski fp = fp->fr_savfp;
159*b1cdbd2cSJim Jagielski /* iterate through backtrace */
160*b1cdbd2cSJim Jagielski for (i=0; fp && fp->fr_savpc && i<max_frames; i++)
161*b1cdbd2cSJim Jagielski {
162*b1cdbd2cSJim Jagielski /* store frame */
163*b1cdbd2cSJim Jagielski *(buffer++) = (void *)fp->fr_savpc;
164*b1cdbd2cSJim Jagielski /* next frame */
165*b1cdbd2cSJim Jagielski fp=fp->fr_savfp;
166*b1cdbd2cSJim Jagielski }
167*b1cdbd2cSJim Jagielski return i;
168*b1cdbd2cSJim Jagielski }
169*b1cdbd2cSJim Jagielski
backtrace_symbols_fd(void ** buffer,int size,int fd)170*b1cdbd2cSJim Jagielski void backtrace_symbols_fd( void **buffer, int size, int fd )
171*b1cdbd2cSJim Jagielski {
172*b1cdbd2cSJim Jagielski FILE *fp = fdopen( fd, "w" );
173*b1cdbd2cSJim Jagielski
174*b1cdbd2cSJim Jagielski if ( fp )
175*b1cdbd2cSJim Jagielski {
176*b1cdbd2cSJim Jagielski void **pFramePtr;
177*b1cdbd2cSJim Jagielski for ( pFramePtr = buffer; size > 0 && pFramePtr && *pFramePtr; pFramePtr++, size-- )
178*b1cdbd2cSJim Jagielski {
179*b1cdbd2cSJim Jagielski Dl_info dli;
180*b1cdbd2cSJim Jagielski ptrdiff_t offset;
181*b1cdbd2cSJim Jagielski
182*b1cdbd2cSJim Jagielski if ( 0 != dladdr( *pFramePtr, &dli ) )
183*b1cdbd2cSJim Jagielski {
184*b1cdbd2cSJim Jagielski if ( dli.dli_fname && dli.dli_fbase )
185*b1cdbd2cSJim Jagielski {
186*b1cdbd2cSJim Jagielski offset = (ptrdiff_t)*pFramePtr - (ptrdiff_t)dli.dli_fbase;
187*b1cdbd2cSJim Jagielski fprintf( fp, "%s+0x%x", dli.dli_fname, offset );
188*b1cdbd2cSJim Jagielski }
189*b1cdbd2cSJim Jagielski if ( dli.dli_sname && dli.dli_saddr )
190*b1cdbd2cSJim Jagielski {
191*b1cdbd2cSJim Jagielski offset = (ptrdiff_t)*pFramePtr - (ptrdiff_t)dli.dli_saddr;
192*b1cdbd2cSJim Jagielski fprintf( fp, "(%s+0x%x)", dli.dli_sname, offset );
193*b1cdbd2cSJim Jagielski }
194*b1cdbd2cSJim Jagielski }
195*b1cdbd2cSJim Jagielski fprintf( fp, "[0x%x]\n", *pFramePtr );
196*b1cdbd2cSJim Jagielski }
197*b1cdbd2cSJim Jagielski fflush( fp );
198*b1cdbd2cSJim Jagielski fclose( fp );
199*b1cdbd2cSJim Jagielski }
200*b1cdbd2cSJim Jagielski }
201*b1cdbd2cSJim Jagielski #endif /* defined FREEBSD */
202*b1cdbd2cSJim Jagielski
203*b1cdbd2cSJim Jagielski #ifdef LINUX
204*b1cdbd2cSJim Jagielski
205*b1cdbd2cSJim Jagielski #ifndef _GNU_SOURCE
206*b1cdbd2cSJim Jagielski #define _GNU_SOURCE
207*b1cdbd2cSJim Jagielski #endif
208*b1cdbd2cSJim Jagielski
209*b1cdbd2cSJim Jagielski #include <dlfcn.h>
210*b1cdbd2cSJim Jagielski #include <pthread.h>
211*b1cdbd2cSJim Jagielski #include <setjmp.h>
212*b1cdbd2cSJim Jagielski #include <stdio.h>
213*b1cdbd2cSJim Jagielski #include "backtrace.h"
214*b1cdbd2cSJim Jagielski
215*b1cdbd2cSJim Jagielski #if defined(SPARC)
216*b1cdbd2cSJim Jagielski
217*b1cdbd2cSJim Jagielski #define FRAME_PTR_OFFSET 1
218*b1cdbd2cSJim Jagielski #define FRAME_OFFSET 0
219*b1cdbd2cSJim Jagielski
220*b1cdbd2cSJim Jagielski #else
221*b1cdbd2cSJim Jagielski
222*b1cdbd2cSJim Jagielski #error Unknown Linux target platform.
223*b1cdbd2cSJim Jagielski
224*b1cdbd2cSJim Jagielski #endif /* defined SPARC or INTEL */
225*b1cdbd2cSJim Jagielski
226*b1cdbd2cSJim Jagielski typedef int ptrdiff_t;
227*b1cdbd2cSJim Jagielski
backtrace(void ** buffer,int max_frames)228*b1cdbd2cSJim Jagielski int backtrace( void **buffer, int max_frames )
229*b1cdbd2cSJim Jagielski {
230*b1cdbd2cSJim Jagielski struct frame *fp;
231*b1cdbd2cSJim Jagielski jmp_buf ctx;
232*b1cdbd2cSJim Jagielski int i;
233*b1cdbd2cSJim Jagielski
234*b1cdbd2cSJim Jagielski /* flush register windows */
235*b1cdbd2cSJim Jagielski #ifdef SPARC
236*b1cdbd2cSJim Jagielski asm("ta 3");
237*b1cdbd2cSJim Jagielski #endif
238*b1cdbd2cSJim Jagielski /* get stack- and framepointer */
239*b1cdbd2cSJim Jagielski setjmp(ctx);
240*b1cdbd2cSJim Jagielski fp = (struct frame*)(((size_t*)(ctx))[FRAME_PTR_OFFSET]);
241*b1cdbd2cSJim Jagielski for ( i=0; (i<FRAME_OFFSET) && (fp!=0); i++)
242*b1cdbd2cSJim Jagielski fp = fp->fr_savfp;
243*b1cdbd2cSJim Jagielski
244*b1cdbd2cSJim Jagielski /* iterate through backtrace */
245*b1cdbd2cSJim Jagielski for (i=0; fp && fp->fr_savpc && i<max_frames; i++)
246*b1cdbd2cSJim Jagielski {
247*b1cdbd2cSJim Jagielski /* store frame */
248*b1cdbd2cSJim Jagielski *(buffer++) = (void *)fp->fr_savpc;
249*b1cdbd2cSJim Jagielski /* next frame */
250*b1cdbd2cSJim Jagielski fp=fp->fr_savfp;
251*b1cdbd2cSJim Jagielski }
252*b1cdbd2cSJim Jagielski return i;
253*b1cdbd2cSJim Jagielski }
254*b1cdbd2cSJim Jagielski
backtrace_symbols_fd(void ** buffer,int size,int fd)255*b1cdbd2cSJim Jagielski void backtrace_symbols_fd( void **buffer, int size, int fd )
256*b1cdbd2cSJim Jagielski {
257*b1cdbd2cSJim Jagielski FILE *fp = fdopen( fd, "w" );
258*b1cdbd2cSJim Jagielski
259*b1cdbd2cSJim Jagielski if ( fp )
260*b1cdbd2cSJim Jagielski {
261*b1cdbd2cSJim Jagielski void **pFramePtr;
262*b1cdbd2cSJim Jagielski
263*b1cdbd2cSJim Jagielski for ( pFramePtr = buffer; size > 0 && pFramePtr && *pFramePtr; pFramePtr++, size-- )
264*b1cdbd2cSJim Jagielski {
265*b1cdbd2cSJim Jagielski Dl_info dli;
266*b1cdbd2cSJim Jagielski ptrdiff_t offset;
267*b1cdbd2cSJim Jagielski
268*b1cdbd2cSJim Jagielski if ( 0 != dladdr( *pFramePtr, &dli ) )
269*b1cdbd2cSJim Jagielski {
270*b1cdbd2cSJim Jagielski if ( dli.dli_fname && dli.dli_fbase )
271*b1cdbd2cSJim Jagielski {
272*b1cdbd2cSJim Jagielski offset = (ptrdiff_t)*pFramePtr - (ptrdiff_t)dli.dli_fbase;
273*b1cdbd2cSJim Jagielski fprintf( fp, "%s+0x%x", dli.dli_fname, offset );
274*b1cdbd2cSJim Jagielski }
275*b1cdbd2cSJim Jagielski if ( dli.dli_sname && dli.dli_saddr )
276*b1cdbd2cSJim Jagielski {
277*b1cdbd2cSJim Jagielski offset = (ptrdiff_t)*pFramePtr - (ptrdiff_t)dli.dli_saddr;
278*b1cdbd2cSJim Jagielski fprintf( fp, "(%s+0x%x)", dli.dli_sname, offset );
279*b1cdbd2cSJim Jagielski }
280*b1cdbd2cSJim Jagielski }
281*b1cdbd2cSJim Jagielski fprintf( fp, "[0x%x]\n", *pFramePtr );
282*b1cdbd2cSJim Jagielski }
283*b1cdbd2cSJim Jagielski
284*b1cdbd2cSJim Jagielski fflush( fp );
285*b1cdbd2cSJim Jagielski fclose( fp );
286*b1cdbd2cSJim Jagielski }
287*b1cdbd2cSJim Jagielski }
288*b1cdbd2cSJim Jagielski
289*b1cdbd2cSJim Jagielski #endif /* defined LINUX */
290*b1cdbd2cSJim Jagielski
291*b1cdbd2cSJim Jagielski #if defined( MACOSX )
292*b1cdbd2cSJim Jagielski
293*b1cdbd2cSJim Jagielski #include <dlfcn.h>
294*b1cdbd2cSJim Jagielski #include <stdio.h>
295*b1cdbd2cSJim Jagielski #include "backtrace.h"
296*b1cdbd2cSJim Jagielski
297*b1cdbd2cSJim Jagielski typedef unsigned ptrdiff_t;
298*b1cdbd2cSJim Jagielski
299*b1cdbd2cSJim Jagielski /* glib backtrace is only available on MacOsX 10.5 or higher
300*b1cdbd2cSJim Jagielski so we do it on our own */
301*b1cdbd2cSJim Jagielski
backtrace(void ** buffer,int max_frames)302*b1cdbd2cSJim Jagielski int backtrace( void **buffer, int max_frames )
303*b1cdbd2cSJim Jagielski {
304*b1cdbd2cSJim Jagielski void **frame = (void **)__builtin_frame_address(0);
305*b1cdbd2cSJim Jagielski void **bp = ( void **)(*frame);
306*b1cdbd2cSJim Jagielski void *ip = frame[1];
307*b1cdbd2cSJim Jagielski int i;
308*b1cdbd2cSJim Jagielski
309*b1cdbd2cSJim Jagielski for ( i = 0; bp && ip && i < max_frames; i++ )
310*b1cdbd2cSJim Jagielski {
311*b1cdbd2cSJim Jagielski *(buffer++) = ip;
312*b1cdbd2cSJim Jagielski
313*b1cdbd2cSJim Jagielski ip = bp[1];
314*b1cdbd2cSJim Jagielski bp = (void**)(bp[0]);
315*b1cdbd2cSJim Jagielski }
316*b1cdbd2cSJim Jagielski
317*b1cdbd2cSJim Jagielski return i;
318*b1cdbd2cSJim Jagielski }
319*b1cdbd2cSJim Jagielski
320*b1cdbd2cSJim Jagielski
backtrace_symbols_fd(void ** buffer,int size,int fd)321*b1cdbd2cSJim Jagielski void backtrace_symbols_fd( void **buffer, int size, int fd )
322*b1cdbd2cSJim Jagielski {
323*b1cdbd2cSJim Jagielski FILE *fp = fdopen( fd, "w" );
324*b1cdbd2cSJim Jagielski
325*b1cdbd2cSJim Jagielski if ( fp )
326*b1cdbd2cSJim Jagielski {
327*b1cdbd2cSJim Jagielski void **pFramePtr;
328*b1cdbd2cSJim Jagielski
329*b1cdbd2cSJim Jagielski for ( pFramePtr = buffer; size > 0 && pFramePtr && *pFramePtr; pFramePtr++, size-- )
330*b1cdbd2cSJim Jagielski {
331*b1cdbd2cSJim Jagielski Dl_info dli;
332*b1cdbd2cSJim Jagielski ptrdiff_t offset;
333*b1cdbd2cSJim Jagielski
334*b1cdbd2cSJim Jagielski if ( 0 != dladdr( *pFramePtr, &dli ) )
335*b1cdbd2cSJim Jagielski {
336*b1cdbd2cSJim Jagielski if ( dli.dli_fname && dli.dli_fbase )
337*b1cdbd2cSJim Jagielski {
338*b1cdbd2cSJim Jagielski offset = (ptrdiff_t)*pFramePtr - (ptrdiff_t)dli.dli_fbase;
339*b1cdbd2cSJim Jagielski fprintf( fp, "%s+0x%x", dli.dli_fname, offset );
340*b1cdbd2cSJim Jagielski }
341*b1cdbd2cSJim Jagielski if ( dli.dli_sname && dli.dli_saddr )
342*b1cdbd2cSJim Jagielski {
343*b1cdbd2cSJim Jagielski offset = (ptrdiff_t)*pFramePtr - (ptrdiff_t)dli.dli_saddr;
344*b1cdbd2cSJim Jagielski fprintf( fp, "(%s+0x%x)", dli.dli_sname, offset );
345*b1cdbd2cSJim Jagielski }
346*b1cdbd2cSJim Jagielski }
347*b1cdbd2cSJim Jagielski fprintf( fp, "[0x%x]\n", (unsigned int)*pFramePtr );
348*b1cdbd2cSJim Jagielski }
349*b1cdbd2cSJim Jagielski
350*b1cdbd2cSJim Jagielski fflush( fp );
351*b1cdbd2cSJim Jagielski fclose( fp );
352*b1cdbd2cSJim Jagielski }
353*b1cdbd2cSJim Jagielski }
354*b1cdbd2cSJim Jagielski
355*b1cdbd2cSJim Jagielski #endif /* defined MACOSX */
356