From 8dfc3a564d60f56ad0d03eacd307a3f6f8db123c Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Fri, 26 May 2000 18:21:04 +0000
Subject: [PATCH]   * fixed @ with var parameters

---
 rtl/linux/ggigraph.pp | 9 ++++++---
 rtl/linux/linux.pp    | 7 +++++--
 2 files changed, 11 insertions(+), 5 deletions(-)

diff --git a/rtl/linux/ggigraph.pp b/rtl/linux/ggigraph.pp
index 8a35aa2d2b..8f85355359 100644
--- a/rtl/linux/ggigraph.pp
+++ b/rtl/linux/ggigraph.pp
@@ -323,7 +323,7 @@ type
 procedure ggi_putimageproc (X,Y: smallint; var Bitmap; BitBlt: Word);
 begin
   With TBitMap(BitMap) do
-    ggiputbox(Visual,x, y, width, height, @Data);
+    ggiputbox(Visual,x, y, width, height, Data);
 end;
 
 procedure ggi_getimageproc (X1,Y1,X2,Y2: smallint; Var Bitmap);
@@ -332,7 +332,7 @@ begin
     begin
     Width := x2 - x1 + 1;
     Height := y2 - y1 + 1;
-    ggigetbox(Visual,x1,y1, x2 - x1 + 1, y2 - y1 + 1, @Data);
+    ggigetbox(Visual,x1,y1, x2 - x1 + 1, y2 - y1 + 1, Data);
     end;
 end;
 
@@ -514,7 +514,10 @@ begin
 end.
 {
   $Log$
-  Revision 1.1  2000-03-19 11:20:14  peter
+  Revision 1.2  2000-05-26 18:21:04  peter
+    * fixed @ with var parameters
+
+  Revision 1.1  2000/03/19 11:20:14  peter
     * graph unit include is now independent and the dependent part
       is now in graph.pp
     * ggigraph unit for linux added
diff --git a/rtl/linux/linux.pp b/rtl/linux/linux.pp
index 786a2c4e95..465190a9ad 100644
--- a/rtl/linux/linux.pp
+++ b/rtl/linux/linux.pp
@@ -916,7 +916,7 @@ begin
   temp:='/bin/sh'#0'-c'#0+prog+#0;
   p:=pp;
   GetMem(p^,Length(Temp));
-  Move(@Temp[1],p^^,Length(Temp));
+  Move(Temp[1],p^^,Length(Temp));
   inc(p);
   p^:=@pp[0][8];
   inc(p);
@@ -2931,7 +2931,10 @@ End.
 
 {
   $Log$
-  Revision 1.71  2000-05-25 19:59:57  michael
+  Revision 1.72  2000-05-26 18:21:04  peter
+    * fixed @ with var parameters
+
+  Revision 1.71  2000/05/25 19:59:57  michael
   + Added munmap call
 
   Revision 1.70  2000/05/21 17:10:13  michael