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

* Wiktor Sywula: transfer_buffer changed to tb

Browse Source
This commit is contained in:
Tomas Hajny 2003-10-18 09:18:29 +00:00
parent f70561922d
commit 6146042684
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
rtl/watcom/dos.pp
View File

@ -298,7 +298,7 @@ var
c : array[0..255] of char; c : array[0..255] of char;
begin begin
paste_to_dos:=false; paste_to_dos:=false;
if current_dos_buffer_pos+length(src)+1>transfer_buffer+tb_size then if current_dos_buffer_pos+length(src)+1>tb+tb_size then
RunError(217); RunError(217);
move(src[1],c[0],length(src)); move(src[1],c[0],length(src));
c[length(src)]:=#0; c[length(src)]:=#0;
@ -320,7 +320,7 @@ begin
if LFNSupport then if LFNSupport then
GetShortName(p); GetShortName(p);
{ create buffer } { create buffer }
la_env:=transfer_buffer; la_env:=tb;
while (la_env and 15)<>0 do while (la_env and 15)<>0 do
inc(la_env); inc(la_env);
current_dos_buffer_pos:=la_env; current_dos_buffer_pos:=la_env;
@ -1048,7 +1048,10 @@ end.
{ {
$Log$ $Log$
Revision 1.3 2003-10-03 21:59:28 peter Revision 1.4 2003-10-18 09:18:29 hajny
* Wiktor Sywula: transfer_buffer changed to tb
Revision 1.3 2003/10/03 21:59:28 peter
* stdcall fixes * stdcall fixes
Revision 1.2 2003/09/07 22:29:26 hajny Revision 1.2 2003/09/07 22:29:26 hajny