Path: utzoo!utgpu!news-server.csri.toronto.edu!rpi!uwm.edu!bionet!agate!ucbvax!bloom-beacon!eru!hagbard!sunic!cs.umu.se!mattt
From: mattt@cs.umu.se (Tommy T|rnqvist)
Newsgroups: comp.sys.mac.programmer
Subject: INIT-writing problem
Message-ID: <1991Apr11.140936.29027@cs.umu.se>
Date: 11 Apr 91 14:09:36 GMT
References: <1991Apr10.123353.13597@dit.upm.es> <1991Apr11.065134.1711@dit.upm.es>
Sender: news@cs.umu.se (News Administrator)
Organization: Dep. of Info.Proc, Umea Univ., Sweden
Lines: 30


HELP!
I have written a small init that worked perfectly until i added the following:

TYPE
	AddrPtr = ^LongInt;
	AddrHandle = ^AddrPtr;

VAR
	theAddr: Handle;

BEGIN

theAddr := Get1Resource('ADDR',-4048);
IF (theAddr <> NIL) THEN
	BEGIN
		AddrHandle(theAddr)^^ := where;
		ChangedResource(theAddr);
	END;

END;

Now the INIT has to be loaded first, before all other INITs, or my mac crashes.
I think that the crash happens when ChangeResource is called. Why??????
Even when my INIT is loaded first there is some trouble. The trouble now is
this: when i try to activate ON CUE my mac starts meditating again.
(SYSTEM ERROR ID=2)

I use THINK Pascal 3.0.
If you have an answer do email me (since i don't read this forum very often).