Path: utzoo!censor!geac!torsqnt!news-server.csri.toronto.edu!cs.utexas.edu!tut.cis.ohio-state.edu!ucbvax!ucdavis!sunny!poage
From: poage@sunny.ucdavis.edu (Tom Poage)
Newsgroups: comp.lang.perl
Subject: perl malloc on a Sun
Keywords: Patch level 41
Message-ID: <584@sunny.ucdavis.edu>
Date: 8 Dec 90 14:54:58 GMT
Reply-To: poage@sunny.ucdavis.edu (Tom Poage)
Distribution: na
Organization: UCDMC Clinical Engineering, Sacto., CA
Lines: 42

Can't say I've used the perl debugger before, but when used
with perl's malloc on a Sun 3 (SunOS 4.0.3, gcc 1.37.1) I
get "Out of memory!".  When used without perl's malloc, it
seems to run OK.

A printf in util.c:safemalloc() says that it tried to
get 1006632864 bytes.  The stack looks something like:

	_safemalloc()
	_afake()
	_do_subr()
	_eval()
	_cmd_exec()
	_main()

BTW, regarding my previous posting about @* in formats, I found
an acceptable fix (to me, at least).  However, @* now prints
a terminal newline as do other format constructs.

*** toke.c.saveorig	Fri Dec  7 18:51:34 1990
--- toke.c	Fri Dec  7 18:51:52 1990
***************
*** 2398,2404 ****
  	    switch (*s) {
  	    case '*':
  		fcmd->f_type = F_LINES;
! 		*s = '\0';
  		break;
  	    case '<':
  		fcmd->f_type = F_LEFT;
--- 2398,2404 ----
  	    switch (*s) {
  	    case '*':
  		fcmd->f_type = F_LINES;
! 		s++;
  		break;
  	    case '<':
  		fcmd->f_type = F_LEFT;
-- 
Tom Poage, Clinical Engineering
Universiy of California, Davis, Medical Center, Sacramento, CA
poage@sunny.ucdavis.edu  {...,ucbvax,uunet}!ucdavis!sunny!poage