Hi,

I've found a bug in VP/2's blockwrite.  If you try to write to a
pre-existing file (ie: open with reset), you get an OS/2 error 5 (access
denied).  I beat my head against the wall for a long time till I reduced
the situation to the following test.  Compiled by TP 6.0, it runs properly
in DOS, but the VP/2 build fails in OS/2 as shown.

var
   f : file;
   b : byte;
   {$IFDEF OS2}
   size, count : longint;
   {$ELSE}
   size, count : word;
   {$ENDIF}

begin
   b := 0;
   assign(f,'tempfile');
   rewrite(f,1);
   blockwrite(f,b,sizeof(b),count);
   close(f);
   reset(f,1);
   size := filesize(f);
   seek(f,size);
   blockwrite(f,b,sizeof(b),count);      {gets OS/2 error 5 here}
   close(f);
end.

         Cheers,
           Rich

http://www.netside.net/~rveraa/