|
Packit Service |
f629e6 |
# From beebe@sunshine.math.utah.edu Thu Jul 10 00:36:16 2003
|
|
Packit Service |
f629e6 |
# Date: Wed, 9 Jul 2003 06:42:54 -0600 (MDT)
|
|
Packit Service |
f629e6 |
# From: "Nelson H. F. Beebe" <beebe@math.utah.edu>
|
|
Packit Service |
f629e6 |
# To: "Arnold Robbins" <arnold@skeeve.com>
|
|
Packit Service |
f629e6 |
# Cc: beebe@math.utah.edu
|
|
Packit Service |
f629e6 |
# X-US-Mail: "Center for Scientific Computing, Department of Mathematics, 110
|
|
Packit Service |
f629e6 |
# LCB, University of Utah, 155 S 1400 E RM 233, Salt Lake City, UT
|
|
Packit Service |
f629e6 |
# 84112-0090, USA"
|
|
Packit Service |
f629e6 |
# X-Telephone: +1 801 581 5254
|
|
Packit Service |
f629e6 |
# X-FAX: +1 801 585 1640, +1 801 581 4148
|
|
Packit Service |
f629e6 |
# X-URL: http://www.math.utah.edu/~beebe
|
|
Packit Service |
f629e6 |
# Subject: gawk-3.1.3 (and earlier): reproducible core dump
|
|
Packit Service |
f629e6 |
# X-SpamBouncer: 1.4 (10/07/01)
|
|
Packit Service |
f629e6 |
# X-SBClass: OK
|
|
Packit Service |
f629e6 |
#
|
|
Packit Service |
f629e6 |
# I have a reproducible core dump in gawk-3.1.3, and recent gawk
|
|
Packit Service |
f629e6 |
# versions.
|
|
Packit Service |
f629e6 |
#
|
|
Packit Service |
f629e6 |
# Consider the following test program, reduced from a much larger one:
|
|
Packit Service |
f629e6 |
#
|
|
Packit Service |
f629e6 |
# % cat gawk-dump.awk
|
|
Packit Service |
f629e6 |
|
|
Packit Service |
f629e6 |
{ process($0) }
|
|
Packit Service |
f629e6 |
|
|
Packit Service |
f629e6 |
function out_debug(s)
|
|
Packit Service |
f629e6 |
{
|
|
Packit Service |
f629e6 |
print s
|
|
Packit Service |
f629e6 |
}
|
|
Packit Service |
f629e6 |
|
|
Packit Service |
f629e6 |
function process(s, n,parts)
|
|
Packit Service |
f629e6 |
{
|
|
Packit Service |
f629e6 |
out_debug("Buffer = [" protect(Buffer) "]")
|
|
Packit Service |
f629e6 |
Buffer = Buffer s
|
|
Packit Service |
f629e6 |
n = split(Buffer,parts,"\n")
|
|
Packit Service |
f629e6 |
}
|
|
Packit Service |
f629e6 |
|
|
Packit Service |
f629e6 |
function protect(s)
|
|
Packit Service |
f629e6 |
{
|
|
Packit Service |
f629e6 |
gsub("\n", "\\n", s)
|
|
Packit Service |
f629e6 |
return (s)
|
|
Packit Service |
f629e6 |
}
|