paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-04 05:59:37 +01:00
Code Issues Packages Projects Releases Wiki Activity

* fixed @ with var parameters

Browse Source
This commit is contained in:
peter 2000-05-26 18:21:04 +00:00
parent 8822c0dc43
commit 8dfc3a564d
2 changed files with 11 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
rtl/linux/ggigraph.pp
View File

@ -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

7
rtl/linux/linux.pp
View File

@ -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