JPI Short Heap Example

Article View: comp.lang.modula2

Article #1364

#1364

From: Dominique Willems
Date: Wed, 31 Oct 1990 00:34

31 lines
1590 bytes

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

Technical Details

Message-ID: <391.2731D30D@puddle.fidonet.org>

Path:

arc1-ca.pugleaf.net!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

Show Full Headers

Complete Article Headers

Path: arc1-ca.pugleaf.net!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