paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2026-01-04 12:40:29 +01:00
Code Issues Packages Projects Releases Wiki Activity

* fixed valgrind issues

Browse Source
This commit is contained in:
peter 2004-11-03 16:51:05 +00:00
parent b83ba1eed9
commit 1cf9137930
2 changed files with 10 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rtl/unix/gpm.pp
View File

@ -909,7 +909,7 @@ var conn:Tgpm_connect;
i:longint;
begin
conn.pid:=0; { this signals a request }
fillchar(conn,sizeof(conn),0);
if eptr<>nil then
conn.vc:=GPM_REQ_SNAPSHOT
else
@ -954,7 +954,10 @@ end;
end.
{
$Log$
Revision 1.11 2004-11-02 09:37:35 peter
Revision 1.12 2004-11-03 16:51:05 peter
* fixed valgrind issues
Revision 1.11 2004/11/02 09:37:35 peter
* fixed uninitialzied local
Revision 1.10 2004/07/09 23:10:14 peter

15
rtl/unix/mouse.pp
View File

@ -190,7 +190,6 @@ function SysDetectMouse:byte;
{$ifndef NOGPM}
var
x : longint;
e : TGPMEvent;
connect : TGPMConnect;
{$endif ndef NOGPM}
begin
@ -210,14 +209,7 @@ begin
end;
{ always a mouse deamon present }
if gpm_fs<>-1 then
begin
x:=Gpm_GetSnapshot(e);
GPMEvent2MouseEvent(e,SysLastMouseEvent);
if x<>-1 then
SysDetectMouse:=x
else
SysDetectMouse:=2;
end
SysDetectMouse:=Gpm_GetSnapshot(nil)
else
SysDetectMouse:=0;
{$else ifdef NOGPM}
@ -434,7 +426,10 @@ end.
{
$Log$
Revision 1.12 2003-10-24 18:09:56 marco
Revision 1.13 2004-11-03 16:51:05 peter
* fixed valgrind issues
Revision 1.12 2003/10/24 18:09:56 marco
* 1.0.x fixes merged
Revision 1.11 2003/09/16 16:13:56 marco