paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 10:59:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed range check errors

Browse Source
This commit is contained in:
peter 2004-07-09 23:10:14 +00:00
parent b52a962e00
commit f4a22bf8d1
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
rtl/unix/gpm.pp
View File

@ -365,8 +365,8 @@ begin
{Open a completely transparent gpm connection.} {Open a completely transparent gpm connection.}
conn.eventmask:=0; conn.eventmask:=0;
conn.defaultMask:=not 0; conn.defaultMask:=$ffff;
conn.minmod:=not 0; conn.minmod:=$ffff;
conn.maxmod:=0; conn.maxmod:=0;
{cannot do this under xterm, tough} {cannot do this under xterm, tough}
success:=gpm_open(conn,0)>=0; success:=gpm_open(conn,0)>=0;
@ -784,7 +784,7 @@ begin
n^.xmin:=x1; n^.xmax:=x2; n^.xmin:=x1; n^.xmax:=x2;
n^.ymin:=y1; n^.ymax:=y2; n^.ymin:=y1; n^.ymax:=y2;
n^.minmod:=0; n^.maxmod:=not 0; n^.minmod:=0; n^.maxmod:=$ffff;
n^.prev:=nil; n^.next:=nil; n^.prev:=nil; n^.next:=nil;
n^.eventmask:=mask; n^.eventmask:=mask;
n^.owned:=0; { use dispose } n^.owned:=0; { use dispose }
@ -953,7 +953,10 @@ end;
end. end.
{ {
$Log$ $Log$
Revision 1.9 2004-07-09 22:40:02 daniel Revision 1.10 2004-07-09 23:10:14 peter
* fixed range check errors
Revision 1.9 2004/07/09 22:40:02 daniel
* Fixed fitvalues * Fixed fitvalues
Revision 1.8 2004/07/09 19:03:35 peter Revision 1.8 2004/07/09 19:03:35 peter