blob: 62e93c1bec19d09c121d27a2674ed0dca42cdc01 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
|
include "debug.h"
# DG_INLDUMP -- Dump the NLFIT and INLFIT structures into a file.
procedure dg_inldump (in, nl)
pointer in # INLFIT descriptor
pointer nl # NLFIT descriptor
int fd
int open()
begin
# Open the dump file.
iferr (fd = open (DUMPFILE, APPEND, TEXT_FILE))
return
# Put in the time stamp.
call dg_ptime (fd, "dg_inldump")
# Dump the NLFIT structure.
call nl_dumpr (fd, nl)
# Dump the INLFIT structure.
call in_dumpr (fd, in)
# Close the dump file.
call close (fd)
end
|
