paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-10 21:38:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

* cleanup by Marco Borsari (borsa77)

Browse Source 
git-svn-id: trunk@6794 -
This commit is contained in:
Tomas Hajny 2007-03-11 20:57:50 +00:00
parent 0fdd8110c7
commit 374e759169
1 changed files with 3 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
rtl/go32v2/dos.pp
View File

@ -189,11 +189,9 @@ var
ls : longint;
begin
paste_to_dos:=false;
if current_dos_buffer_pos+length(src)+3>transfer_buffer+tb_size then
RunError(217);
ls:=Length(src)-n;
if current_dos_buffer_pos+ls+3>transfer_buffer+tb_size then
RunError(217);
getmem(c,ls+3);
move(src[n],c^,ls+1);
if cr then
@ -575,7 +573,7 @@ end;
procedure findfirst(const path : pathstr;attr : word;var f : searchRec);
var
path0 : array[0..256] of char;
path0 : array[0..255] of char;
begin
doserror:=0;
strpcopy(path0,path);