xref: /illumos-gate/usr/src/test/util-tests/tests/awk/gnu/arrymem1.awk (revision e6d6c189)

# From spcecdt@armory.com  Thu Jun 14 13:24:32 2001
# Received: from mail.actcom.co.il [192.114.47.13]
# 	by localhost with POP3 (fetchmail-5.5.0)
# 	for arnold@localhost (single-drop); Thu, 14 Jun 2001 13:24:32 +0300 (IDT)
# Received: by actcom.co.il (mbox arobbins)
#  (with Cubic Circle's cucipop (v1.31 1998/05/13) Thu Jun 14 13:25:13 2001)
# X-From_: spcecdt@armory.com Thu Jun 14 06:34:47 2001
# Received: from lmail.actcom.co.il by actcom.co.il  with ESMTP
# 	(8.9.1a/actcom-0.2) id GAA29661 for <arobbins@actcom.co.il>;
# 	Thu, 14 Jun 2001 06:34:46 +0300 (EET DST)
# 	(rfc931-sender: lmail.actcom.co.il [192.114.47.13])
# Received: from billohost.com (www.billohost.com [209.196.35.10])
# 	by lmail.actcom.co.il (8.11.2/8.11.2) with ESMTP id f5E3YiO27337
# 	for <arobbins@actcom.co.il>; Thu, 14 Jun 2001 06:34:45 +0300
# Received: from fencepost.gnu.org (we-refuse-to-spy-on-our-users@fencepost.gnu.org [199.232.76.164])
# 	by billohost.com (8.9.3/8.9.3) with ESMTP id XAA02681
# 	for <arnold@skeeve.com>; Wed, 13 Jun 2001 23:33:57 -0400
# Received: from deepthought.armory.com ([192.122.209.42])
# 	by fencepost.gnu.org with smtp (Exim 3.16 #1 (Debian))
# 	id 15ANu2-00005C-00
# 	for <bug-gawk@gnu.org>; Wed, 13 Jun 2001 23:34:38 -0400
# Date: Wed, 13 Jun 2001 20:32:42 -0700
# From: "John H. DuBois III" <spcecdt@armory.com>
# To: bug-gawk@gnu.org
# Subject: gawk 3.1.0 bug
# Message-ID: <20010613203242.A29975@armory.com>
# Mime-Version: 1.0
# Content-Type: text/plain; charset=us-ascii
# X-Mailer: Mutt 1.0.1i
# X-Www: http://www.armory.com./~spcecdt/
# Sender: spcecdt@armory.com
# Status: RO
#
# Under SCO OpenServer 5.0.6a using gawk 3.1.0 compiled with gcc 2.95.2, this
# program:

    BEGIN {
	f1(Procs,b)
	print "test"
    }

    function f1(Procs,a) {
	# a[""]
	a[""] = "a"	# ADR: Give it a value so can trace it
	f2()
    }

    function f2() {
	# b[""]
	b[""] = "b"	# ADR: Give it a value so can trace it
    }

    # ADR: 1/28/2003: Added this:
    BEGIN { for (i in b) printf("b[\"%s\"] = \"%s\"\n", i, b[i]) }
    # END ADR added.

# gives:
#
#     gawk: ./gtest:5: fatal error: internal error
#
# and dumps core.
#
# gdb gives me this stack backtrace:
#
# #0  0x80019943 in kill () from /usr/lib/libc.so.1
# #1  0x8003e754 in abort () from /usr/lib/libc.so.1
# #2  0x8062a87 in catchsig (sig=0, code=0) at main.c:947
# #3  0x80053a0c in _sigreturn () from /usr/lib/libc.so.1
# #4  0x80023d36 in cleanfree () from /usr/lib/libc.so.1
# #5  0x80023156 in _real_malloc () from /usr/lib/libc.so.1
# #6  0x80023019 in malloc () from /usr/lib/libc.so.1
# #7  0x8053b95 in do_print (tree=0x0) at builtin.c:1336
# #8  0x806b47c in interpret (tree=0x8084ee4) at eval.c:606
# #9  0x806ad8d in interpret (tree=0x8084f0c) at eval.c:384
# #10 0x806ad21 in interpret (tree=0x8084f5c) at eval.c:367
# #11 0x8061d5b in main (argc=4, argv=0x80478ac) at main.c:506
#
# 	John
# --
# John DuBois  spcecdt@armory.com.  KC6QKZ/AE  http://www.armory.com./~spcecdt/
#