Path: utzoo!utgpu!jarvis.csri.toronto.edu!mailrus!tut.cis.ohio-state.edu!rutgers!orstcs!jacobs.cs.orst.edu!borcelf
From: borcelf@jacobs.cs.orst.edu (Fernando Borcel)
Newsgroups: comp.sys.mac.programmer
Subject: LSP Triviality.
Message-ID: <10228@orstcs.CS.ORST.EDU>
Date: 27 Apr 89 08:42:31 GMT
Sender: usenet@orstcs.CS.ORST.EDU
Reply-To: borcelf@jacobs.cs.orst.edu (Fernando Borcel)
Distribution: usa
Organization: Oregon State University - CS - Corvallis Oregon
Lines: 39

I'm having a little bit of a problem assigning a value from a packed array
to another value from a packed array of the same base type.  The problem is,
one array contains a sequence of bytes (characters).  But when I assign it
to the other array, it assigns in an integer size with the higher byte cleared
, as it would when assigning to a non-packed array.

What's the trivial solution to this trivial problem?

Here's my code, just in case (BTW, I'm using LSP2.0p1)



linetype = array[1..80] of byte;
line = ^linetype;
FileBufferType = packed array[1..BUFFSIZE] of byte;
FileBufPtr = ^FileBufferType;


error := FSRead(EncRefNum, BytesRead, @FileBuffer^);


i:=1;
FileIndex:=1

repeat
buffer^[i] := FileBuffer^[FileIndex];
i := i + 1;
FileIndex := FileIndex + 1;
until ......


_____

Trivial enough?  Well, it doesn't work!

		-Fernando Borcel
"Tact is the ability to tell a man he has an open mind when he has a
hole in his head."  Internet:     borcelf@jacobs.cs.ORST.EDU
                    UUCP:{tektronix,hp-pcd}!orstcs!jacobs.cs.orst.edu!borcelf