davel@bedbug.arc.nasa.gov (Dave Liebreich) (03/22/91)
Is anyone else having this problem? perl 4.0 dumps core when given
the -d flag.
My setup:
SunOS 4.1, Sun 4/490
using yacc and Sun's malloc
localtime patch applied to libc and libc.so
I used perl3.44 with the same system and this problem was not present
Help.
last couple of lines of "perl -D14 -d rmfrom" (in ./eg):
482 E! S: I! t_ E! e_ E! S: E! E: I: 1.DOUBLE = '($@, $!, $[, $,, $/, $\) = @sav
ed;package main; $DB'signal |= do {;}; &DB'save'
482 E! S: I! t_ E! e_ E! S: E! E: ITEM RETURNS "($@, $!, $[, $,, $/, $\) = @save
d;package main; $DB'signal |= do {;}; &DB'save"
482 E! S: I! t_ E! e_ E! S: E! E: 1.EXPR = '($@, $!, $[, $,, $/, $\) = @saved;pa
ckage main; $DB'signal |= do {;}; &DB'save'
1 E! S: I! t_ E! e_ E! S: E! E: (Pushing label #0 _EVAL_)
1 E! S: I! t_ E! e_ E! S: E! E: EXPR (9e660) r9e608 t0 a0 n9e850 cs0
1 E! S: I! t_ E! e_ E! S: E! E: E! ASSIGN (9e608) 2 args:
1 E! S: I! t_ E! e_ E! S: E! E: E! A: 1.LEXPR =>
1 E! S: I! t_ E! e_ E! S: E! E: E! A: LIST (9e798) 6 args:
1 E! S: I! t_ E! e_ E! S: E! E: E! A: L: 1.LVAL $@ = ''
1 E! S: I! t_ E! e_ E! S: E! E: E! A: L: 2.LVAL $! = 'No such file or directory'
1 E! S: I! t_ E! e_ E! S: E! E: E! A: L: 3.LVAL $[ = 'num(0)'
1 E! S: I! t_ E! e_ E! S: E! E: E! A: L: 4.LVAL $, = ''
1 E! S: I! t_ E! e_ E! S: E! E: E! A: L: 5.LVAL $/ = '
'
1 E! S: I! t_ E! e_ E! S: E! E: E! A: L: 6.LVAL $\ = ''
1 E! S: I! t_ E! e_ E! S: E! E: E! A: LIST RETURNS 6 ARGS ("",...,"")
1 E! S: I! t_ E! e_ E! S: E! E: E! A: 1.LEXPR = ''
1 E! S: I! t_ E! e_ E! S: E! E: E! A: 2.EXPR =>
1 E! S: I! t_ E! e_ E! S: E! E: E! A: ARRAY (9e578) 1 args:
1 E! S: I! t_ E! e_ E! S: E! E: E! A: A: 1.NULL = ''
1 E! S: I! t_ E! e_ E! S: E! E: E! A: ARRAY RETURNS 6 ARGS ("",...,"")
1 E! S: I! t_ E! e_ E! S: E! E: E! A: 2.EXPR = ''
1 E! S: I! t_ E! e_ E! S: E! E: E! ASSIGN RETURNS ("6")
1 E! S: I! t_ E! e_ E! S: E! E: EXPR (9e850) r9e7f8 t0 a0 n9e8c0 cs0
1 E! S: I! t_ E! e_ E! S: E! E: E! BIT_OR (9e7f8) 2 args:
1 E! S: I! t_ E! e_ E! S: E! E: E! B: 1.LVAL $signal = ''
1 E! S: I! t_ E! e_ E! S: E! E: E! B: 2.CMD (0) =>
1 E! S: I! t_ E! e_ E! S: E! E: E! B: 2.CMD = ''
1 E! S: I! t_ E! e_ E! S: E! E: E! BIT_OR RETURNS "0.000000"
1 E! S: I! t_ E! e_ E! S: E! E: EXPR (9e8c0) r9e890 t0 a0 n0 cs0
1 E! S: I! t_ E! e_ E! S: E! E: E! DBSUBR (9e890) 2 args:
1 E! S: I! t_ E! e_ E! S: E! E: E! D: 1.NULL = ''
1 E! S: I! t_ E! e_ E! S: E! E: E! D: 2.NULL = ''
Segmentation fault (core dumped)
Thanks in advance
Dave
--
=========================================================================
Dave Liebreich davel@george.arc.nasa.gov
Computer Security Specialist (415) 604-4794
Sterling Software @ NASA Ames Research Center
Mail Stop 233-15
Moffett Field, CA 94035
"The opinions expressed above are not necessarily those of my employer"
doo dah doo dahchetal@pyrps5.pyramid.com (Pradeep Chetal) (03/23/91)
I had sent mail to Larry regarding this, but I was not sure, that's why
I did NOT
put it here.
penguin[98]diff doarg.c doarg.c.ORIG
946c937
< if (arg->arg_type == O_DBSUBR) {
---
> if (arg->arg_type == O_DBSUBR && !sub->usersub) {
I think that sub is being used here before it is initialized.
/Pradeep
------------------------------------------------------------------------------
Pradeep Chetal UUCP: ...!{decwrl,sun,uunet}!pyramid!chetal
M/S 24 Internet: chetal@pyramid.com
Pyramid Technology Phone: (415) 335-8227 (O)
1295 Charleston Road (415) 961-9789 (H)
Mountain View, CA 94043 (415) 335-8845 (FAX)