[fpc-pascal]memw

[James Mills]

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 linux ?

cheers
James