101 lines
4.1 KiB
Awk
101 lines
4.1 KiB
Awk
|
# From beebe@math.utah.edu Sat May 17 21:31:27 2003
|
||
|
|
# Return-Path: <beebe@math.utah.edu>
|
||
|
|
# Received: from localhost (aahz [127.0.0.1])
|
||
|
|
# by skeeve.com (8.12.5/8.12.5) with ESMTP id h4HIQmCw001380
|
||
|
|
# for <arnold@localhost>; Sat, 17 May 2003 21:31:27 +0300
|
||
|
|
# Received: from actcom.co.il [192.114.47.1]
|
||
|
|
# by localhost with POP3 (fetchmail-5.9.0)
|
||
|
|
# for arnold@localhost (single-drop); Sat, 17 May 2003 21:31:27 +0300 (IDT)
|
||
|
|
# Received: by actcom.co.il (mbox arobbins)
|
||
|
|
# (with Cubic Circle's cucipop (v1.31 1998/05/13) Sat May 17 21:34:07 2003)
|
||
|
|
# X-From_: beebe@sunshine.math.utah.edu Fri May 16 20:38:45 2003
|
||
|
|
# Received: from smtp1.actcom.net.il by actcom.co.il with ESMTP
|
||
|
|
# (8.11.6/actcom-0.2) id h4GHcd226764 for <arobbins@actcom.co.il>;
|
||
|
|
# Fri, 16 May 2003 20:38:40 +0300 (EET DST)
|
||
|
|
# (rfc931-sender: mail.actcom.co.il [192.114.47.13])
|
||
|
|
# Received: from f7.net (consort.superb.net [209.61.216.22])
|
||
|
|
# by smtp1.actcom.net.il (8.12.8/8.12.8) with ESMTP id h4GHgBc2023067
|
||
|
|
# for <arobbins@actcom.co.il>; Fri, 16 May 2003 20:42:13 +0300
|
||
|
|
# Received: from sunshine.math.utah.edu (sunshine.math.utah.edu [128.110.198.2])
|
||
|
|
# by f7.net (8.11.7/8.11.6) with ESMTP id h4GHcbf09202
|
||
|
|
# for <arnold@skeeve.com>; Fri, 16 May 2003 13:38:37 -0400
|
||
|
|
# Received: from suncore.math.utah.edu (IDENT:r8KQWmkF4jVMLBhxpojXGNCAnBZB38ET@suncore.math.utah.edu [128.110.198.5])
|
||
|
|
# by sunshine.math.utah.edu (8.9.3p2/8.9.3) with ESMTP id LAA09111;
|
||
|
|
# Fri, 16 May 2003 11:38:34 -0600 (MDT)
|
||
|
|
# Received: (from beebe@localhost)
|
||
|
|
# by suncore.math.utah.edu (8.9.3p2/8.9.3) id LAA01743;
|
||
|
|
# Fri, 16 May 2003 11:38:34 -0600 (MDT)
|
||
|
|
# Date: Fri, 16 May 2003 11:38:34 -0600 (MDT)
|
||
|
|
# From: "Nelson H. F. Beebe" <beebe@math.utah.edu>
|
||
|
|
# To: "Arnold Robbins" <arnold@skeeve.com>
|
||
|
|
# Cc: beebe@math.utah.edu
|
||
|
|
# X-US-Mail: "Center for Scientific Computing, Department of Mathematics, 110
|
||
|
|
# LCB, University of Utah, 155 S 1400 E RM 233, Salt Lake City, UT
|
||
|
|
# 84112-0090, USA"
|
||
|
|
# X-Telephone: +1 801 581 5254
|
||
|
|
# X-FAX: +1 801 585 1640, +1 801 581 4148
|
||
|
|
# X-URL: http://www.math.utah.edu/~beebe
|
||
|
|
# Subject: gawk-3.1.2[ab]: bug in delete
|
||
|
|
# Message-ID: <CMM.0.92.0.1053106714.beebe@suncore.math.utah.edu>
|
||
|
|
#
|
||
|
|
# I discovered yesterday that one of my tools got broken by the upgrade
|
||
|
|
# to gawk-3.1.2a and gawk-3.1.2b. For now, I've temporarily reset
|
||
|
|
# /usr/local/bin/gawk on the Sun Solaris and Intel GNU/Linux systems
|
||
|
|
# back to be gawk-3.1.2.
|
||
|
|
#
|
||
|
|
# This morning, I isolated the problem to the following small test case:
|
||
|
|
#
|
||
|
|
# % cat bug.awk
|
||
|
|
BEGIN {
|
||
|
|
clear_array(table)
|
||
|
|
foo(table)
|
||
|
|
# 3/2022: This was the original. Use of 'k' in the print was
|
||
|
|
# undoubtedly a typo but it helped find a bug, so let's
|
||
|
|
# make it for real
|
||
|
|
# for (key in table)
|
||
|
|
# print key, table[k]
|
||
|
|
for (key in table)
|
||
|
|
print key, table[key], "<" table[k] ">"
|
||
|
|
clear_array(table)
|
||
|
|
exit(0)
|
||
|
|
}
|
||
|
|
|
||
|
|
function clear_array(array, key)
|
||
|
|
{
|
||
|
|
for (key in array)
|
||
|
|
delete array[key]
|
||
|
|
}
|
||
|
|
|
||
|
|
function foo(a)
|
||
|
|
{
|
||
|
|
a[1] = "one"
|
||
|
|
a[2] = "two"
|
||
|
|
}
|
||
|
|
#
|
||
|
|
# With nawk, mawk, and also gawk-3.1.2 or earlier, I get this:
|
||
|
|
#
|
||
|
|
# % mawk -f bug.awk
|
||
|
|
# 1
|
||
|
|
# 2
|
||
|
|
#
|
||
|
|
# However, with the two most recent gawk releases, I get:
|
||
|
|
#
|
||
|
|
# % gawk-3.1.2b -f bug.awk
|
||
|
|
# gawk-3.1.2b: bug.awk:12: fatal: delete: illegal use of variable `table' as
|
||
|
|
# array
|
||
|
|
#
|
||
|
|
# If the first clear_array() statement is commented out, it runs.
|
||
|
|
# However, the problem is that in a large program, it may not be easy to
|
||
|
|
# identify places where it is safe to invoke delete, so I believe the
|
||
|
|
# old behavior is more desirable.
|
||
|
|
#
|
||
|
|
# -------------------------------------------------------------------------------
|
||
|
|
# - Nelson H. F. Beebe Tel: +1 801 581 5254 -
|
||
|
|
# - Center for Scientific Computing FAX: +1 801 581 4148 -
|
||
|
|
# - University of Utah Internet e-mail: beebe@math.utah.edu -
|
||
|
|
# - Department of Mathematics, 110 LCB beebe@acm.org beebe@computer.org -
|
||
|
|
# - 155 S 1400 E RM 233 beebe@ieee.org -
|
||
|
|
# - Salt Lake City, UT 84112-0090, USA URL: http://www.math.utah.edu/~beebe -
|
||
|
|
# -------------------------------------------------------------------------------
|
||
|
|
#
|