paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 10:29:24 +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 begin
move(p[1],c[0],length(p)); move(p[1],c[0],length(p));
c[length(p)]:=#0; c[length(p)]:=#0;
copytodos(@c,length(p)+1); copytodos(c,length(p)+1);
dosregs.ax:=$7160; dosregs.ax:=$7160;
dosregs.cx:=1; dosregs.cx:=1;
dosregs.ds:=tb_segment; dosregs.ds:=tb_segment;
@ -1002,7 +1002,7 @@ begin
LoadDosError; LoadDosError;
if DosError=0 then if DosError=0 then
begin begin
copyfromdos(@c,255); copyfromdos(c,255);
move(c[0],p[1],strlen(c)); move(c[0],p[1],strlen(c));
p[0]:=char(strlen(c)); p[0]:=char(strlen(c));
GetShortName:=true; GetShortName:=true;
@ -1019,7 +1019,7 @@ var
begin begin
move(p[1],c[0],length(p)); move(p[1],c[0],length(p));
c[length(p)]:=#0; c[length(p)]:=#0;
copytodos(@c,length(p)+1); copytodos(c,length(p)+1);
dosregs.ax:=$7160; dosregs.ax:=$7160;
dosregs.cx:=2; dosregs.cx:=2;
dosregs.ds:=tb_segment; dosregs.ds:=tb_segment;
@ -1030,7 +1030,7 @@ begin
LoadDosError; LoadDosError;
if DosError=0 then if DosError=0 then
begin begin
copyfromdos(@c,255); copyfromdos(c,255);
move(c[0],p[1],strlen(c)); move(c[0],p[1],strlen(c));
p[0]:=char(strlen(c)); p[0]:=char(strlen(c));
GetLongName:=true; GetLongName:=true;
@ -1173,7 +1173,11 @@ End;
end. end.
{ {
$Log$ $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 + allow double backslash for network drives
Revision 1.22 2000/02/09 16:59:28 peter Revision 1.22 2000/02/09 16:59:28 peter