From 3cd25fef4763b6c5c8e139cf3b6872d8ee13ec50 Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Tue, 30 May 2000 04:41:05 +0000
Subject: [PATCH]   * fixed compiling problem with formal expression passed as
 var     parameter

---
 rtl/go32v2/dos.pp | 14 +++++++++-----
 1 file changed, 9 insertions(+), 5 deletions(-)

diff --git a/rtl/go32v2/dos.pp b/rtl/go32v2/dos.pp
index 9d7e91339b..258e9bd4ac 100644
--- a/rtl/go32v2/dos.pp
+++ b/rtl/go32v2/dos.pp
@@ -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