Path: utzoo!utgpu!news-server.csri.toronto.edu!bonnie.concordia.ca!uunet!cis.ohio-state.edu!zaphod.mps.ohio-state.edu!rpi!uupsi!sunic!sics.se!fuug!funic!csc.fi!hnevanlinna
From: hnevanlinna@csc.fi
Newsgroups: comp.sys.mac.programmer
Subject: MPW Pascal 3.2 bug with symbols
Message-ID: <1991Jun28.211738.1@csc.fi>
Date: 28 Jun 91 21:17:38 GMT
Sender: usenet@nic.funet.fi
Organization: Finnish Academic and Research Network Project - FUNET
Lines: 50
Nntp-Posting-Host: csc.fi

(*********
This Pascal-program crashes MPW-pascal 3.2 from ETO#4 when
it's compiled with pascal -sym on. Without symbols it
compiles allright. 
On my mac-plus it crashes with 28, stack hit heap, MPW-
partition size 2600.
I had same problem for the same reason (read code) at work,
but on ci it crashes the MPW with illegal instruction.
( Maybe the bigger partition size helped it onward )
**********)

PROGRAM Bugger;

TYPE
	TArrayObject = OBJECT
		fArray: ARRAY[1..1] OF TArrayObject;
		      { ^^^^^
				this seems to crash the compiler
			    ie. cannot use arrays of same object
				as SELF
			  }
	END;

VAR
	rootObject: TArrayObject;
	secondObject: TArrayObject;
	
		
BEGIN

	New( rootObject );
	New( secondObject );
	rootObject.fArray[1] := secondObject;
	
END.

(**********	
I would have liked to use SourceBug on my MacApp-code,
but back to the writelns I go. ( I want my arrays )

            Jouni Ryno
			Finnish Meteorological Institute
			Geophysics Department
			
			e-mail: jryno@geopost.fmi.fi
			
		    You can also use the address this was posted from.
			ie. hnevanlinna@csc.fi. It belongs to my boss and
			I don't think he minds if I get my work done.
***********)