[ Charset ISO-8859-1 unsupported, converting... ]
> Hi, James!
>
> On Sunday 23 February 2003 18:44, you wrote:
>
> > This is from an old Turbo Pascal source of the Pascal S compiler source:
> >
> > getmem(spnt,((sleng+3) div 16 +1)*16);
> > k := seg(spnt^);
> > memw
Hi, James!
On Sunday 23 February 2003 18:44, you wrote:
> This is from an old Turbo Pascal source of the Pascal S compiler source:
>
> getmem(spnt,((sleng+3) div 16 +1)*16);
> k := seg(spnt^);
> memw[k:0] := sleng;
> memw[k:2] := 0;
> move(sbuff[1
Hi,
This is from an old Turbo Pascal source of the Pascal S compiler source:
getmem(spnt,((sleng+3) div 16 +1)*16);
k := seg(spnt^);
memw[k:0] := sleng;
memw[k:2] := 0;
move(sbuff[1],mem[k:4],sleng);
How would you convert that into FPC syntax for
