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

* m68k merges

Browse Source
This commit is contained in:
peter 2001-08-05 12:24:20 +00:00
parent b84c4f3e1d
commit 0b45a6695d
2 changed files with 32 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
rtl/unix/mouse.pp
View File

@ -224,7 +224,10 @@ begin
exit(0); exit(0);
{$ifndef NOGPM} {$ifndef NOGPM}
Gpm_GetSnapshot(e); Gpm_GetSnapshot(e);
GetMouseY:=e.y-1; if e.y>0 then
GetMouseY:=e.y-1
else
GetMouseY:=0;
{$endif ndef NOGPM} {$endif ndef NOGPM}
{$endif ndef NOMOUSE} {$endif ndef NOMOUSE}
end; end;
@ -287,8 +290,14 @@ begin
exit; exit;
{$ifndef NOGPM} {$ifndef NOGPM}
Gpm_GetEvent(e); Gpm_GetEvent(e);
MouseEvent.x:=e.x-1; if e.x>0 then
MouseEvent.y:=e.y-1; MouseEvent.x:=e.x-1
else
MouseEvent.x:=0;
if e.y>0 then
MouseEvent.y:=e.y-1
else
MouseEvent.y:=0;
MouseEvent.buttons:=0; MouseEvent.buttons:=0;
if e.buttons and Gpm_b_left<>0 then if e.buttons and Gpm_b_left<>0 then
inc(MouseEvent.buttons,1); inc(MouseEvent.buttons,1);
@ -359,8 +368,14 @@ begin
if (gpm_fs=-2) or (Select(gpm_fs+1,@fds,nil,nil,1)>0) then if (gpm_fs=-2) or (Select(gpm_fs+1,@fds,nil,nil,1)>0) then
begin begin
Gpm_GetSnapshot(e); Gpm_GetSnapshot(e);
MouseEvent.x:=e.x-1; if e.x>0 then
MouseEvent.y:=e.y-1; MouseEvent.x:=e.x-1
else
MouseEvent.x:=0;
if e.y>0 then
MouseEvent.y:=e.y-1
else
MouseEvent.y:=0;
MouseEvent.buttons:=0; MouseEvent.buttons:=0;
if e.buttons and Gpm_b_left<>0 then if e.buttons and Gpm_b_left<>0 then
inc(MouseEvent.buttons,1); inc(MouseEvent.buttons,1);
@ -390,7 +405,10 @@ end;
end. end.
{ {
$Log$ $Log$
Revision 1.2 2001-01-21 20:21:40 marco Revision 1.3 2001-08-05 12:24:20 peter
* m68k merges
Revision 1.2 2001/01/21 20:21:40 marco
* Rename fest II. Rtl OK * Rename fest II. Rtl OK
Revision 1.1 2001/01/13 11:03:58 peter Revision 1.1 2001/01/13 11:03:58 peter

10
rtl/unix/sysunix.inc
View File

@ -67,7 +67,7 @@ begin
begin begin
str(sys_getpid,hs); str(sys_getpid,hs);
{$ifdef FreeBSD} {$ifdef FreeBSD}
hs:='/proc/'+hs+'/file'#0; hs:='/proc/'+hs+'/file'#0;
{$else} {$else}
hs:='/proc/'+hs+'/exe'#0; hs:='/proc/'+hs+'/exe'#0;
{$endif} {$endif}
@ -192,8 +192,11 @@ begin
Sys_ENOTDIR : Inoutres:=3; Sys_ENOTDIR : Inoutres:=3;
Sys_EROFS, Sys_EROFS,
Sys_EEXIST, Sys_EEXIST,
Sys_EISDIR,
Sys_EACCES : Inoutres:=5; Sys_EACCES : Inoutres:=5;
Sys_ETXTBSY : Inoutres:=162; Sys_ETXTBSY : Inoutres:=162;
else
InOutRes := Integer(Errno);
end; end;
end; end;
@ -718,7 +721,10 @@ End.
{ {
$Log$ $Log$
Revision 1.15 2001-07-16 19:51:36 marco Revision 1.16 2001-08-05 12:24:20 peter
* m68k merges
Revision 1.15 2001/07/16 19:51:36 marco
* A small note, copied from the Solaris patch. Do_close needs errnotoiores? * A small note, copied from the Solaris patch. Do_close needs errnotoiores?
Revision 1.14 2001/07/15 11:57:16 peter Revision 1.14 2001/07/15 11:57:16 peter