paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 19:29:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed compiling problem with formal expression passed as var

Browse Source 
parameter
This commit is contained in:
Jonas Maebe 2000-05-30 04:41:05 +00:00
parent 37099d2db7
commit 3cd25fef47
1 changed files with 9 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
rtl/go32v2/dos.pp
View File

@ -991,7 +991,7 @@ var
begin
move(p[1],c[0],length(p));
c[length(p)]:=#0;
copytodos(@c,length(p)+1);
copytodos(c,length(p)+1);
dosregs.ax:=$7160;
dosregs.cx:=1;
dosregs.ds:=tb_segment;
@ -1002,7 +1002,7 @@ begin
LoadDosError;
if DosError=0 then
begin
copyfromdos(@c,255);
copyfromdos(c,255);
move(c[0],p[1],strlen(c));
p[0]:=char(strlen(c));
GetShortName:=true;
@ -1019,7 +1019,7 @@ var
begin
move(p[1],c[0],length(p));
c[length(p)]:=#0;
copytodos(@c,length(p)+1);
copytodos(c,length(p)+1);
dosregs.ax:=$7160;
dosregs.cx:=2;
dosregs.ds:=tb_segment;
@ -1030,7 +1030,7 @@ begin
LoadDosError;
if DosError=0 then
begin
copyfromdos(@c,255);
copyfromdos(c,255);
move(c[0],p[1],strlen(c));
p[0]:=char(strlen(c));
GetLongName:=true;
@ -1173,7 +1173,11 @@ End;
end.
{
$Log$
Revision 1.23 2000-03-22 08:00:42 pierre
Revision 1.24 2000-05-30 04:41:05 jonas
* fixed compiling problem with formal expression passed as var
parameter
Revision 1.23 2000/03/22 08:00:42 pierre
+ allow double backslash for network drives
Revision 1.22 2000/02/09 16:59:28 peter