paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 16:19:21 +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; ls : longint;
begin begin
paste_to_dos:=false; paste_to_dos:=false;
if current_dos_buffer_pos+length(src)+3>transfer_buffer+tb_size then
RunError(217);
ls:=Length(src)-n; ls:=Length(src)-n;
if current_dos_buffer_pos+ls+3>transfer_buffer+tb_size then
RunError(217);
getmem(c,ls+3); getmem(c,ls+3);
move(src[n],c^,ls+1); move(src[n],c^,ls+1);
if cr then if cr then
@ -575,7 +573,7 @@ end;
procedure findfirst(const path : pathstr;attr : word;var f : searchRec); procedure findfirst(const path : pathstr;attr : word;var f : searchRec);
var var
path0 : array[0..256] of char; path0 : array[0..255] of char;
begin begin
doserror:=0; doserror:=0;
strpcopy(path0,path); strpcopy(path0,path);