Path: utzoo!utgpu!news-server.csri.toronto.edu!rutgers!uwm.edu!zaphod.mps.ohio-state.edu!mips!cs.uoregon.edu!ogicse!zephyr.ens.tek.com!tektronix!nosun!qiclab!m2xenix!puddle!p4610.f46.n295.z2.fidonet.org!Dominique.Willems
From: Dominique.Willems@p4610.f46.n295.z2.fidonet.org (Dominique Willems)
Newsgroups: comp.lang.modula2
Subject: JPI Short Heap Example
Message-ID: <391.2731D30D@puddle.fidonet.org>
Date: 31 Oct 90 00:34:00 GMT
Sender: ufgate@puddle.fidonet.org (newsout1.26)
Organization: FidoNet node 2:295/46.4610 - Starline System, Brussels Belgium
Lines: 31

Hi Larry,

 > ... thought there may be someone out there who could benefit from my
 > headaches.)  The following compilable sample shows how to use the
 > ShtHeap and based pointers,...

Indeed, you were VERY right! I wast just rewriting lots of code to work 
with the Short Heap system and had already coded (luckily not yet 
executed) the BAD JPI Initialize example, without their wrong ALLOCATE 
invocation of course (which in their manual is treated as a FUNCTION 
PROCEDURE instead of a proper one!). 

 >    * But rather:
 >    *)
 >
 >   ShortHeapSegment := FarPointer(ShortHeapAddress).segment;

Thanks indeed, I had already blindly copied their example (shame on me to 
trust them! :-)). Imagine that; in a mere three lines of example code, they 
managed to put TWO grave errors (=66%)!

Enfin, let's keep smiling! :-)

Thanks again,
Cheers,
Domus


--  
uucp: uunet!m2xenix!puddle!2!295!46.4610!Dominique.Willems
Internet: Dominique.Willems@p4610.f46.n295.z2.fidonet.org