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

* move gpm.pp to linux

Browse Source
This commit is contained in:
peter 2005-01-30 18:00:28 +00:00
parent f1892e7e56
commit b28fd2f6b9
3 changed files with 13 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
rtl/linux/Makefile
View File

@ -2255,6 +2255,5 @@ terminfo$(PPUEXT) : terminfo.pp unix$(PPUEXT)
callspec$(PPUEXT) : $(INC)/callspec.pp $(SYSTEMUNIT)$(PPUEXT) callspec$(PPUEXT) : $(INC)/callspec.pp $(SYSTEMUNIT)$(PPUEXT)
cmem$(PPUEXT) : $(INC)/cmem.pp $(SYSTEMUNIT)$(PPUEXT) cmem$(PPUEXT) : $(INC)/cmem.pp $(SYSTEMUNIT)$(PPUEXT)
cthreads$(PPUEXT) : $(UNIXINC)/cthreads.pp $(SYSTEMUNIT)$(PPUEXT) systhrds$(PPUEXT) cthreads$(PPUEXT) : $(UNIXINC)/cthreads.pp $(SYSTEMUNIT)$(PPUEXT) systhrds$(PPUEXT)
gpm$(PPUEXT): $(UNIXINC)/gpm.pp unix$(PPUEXT) baseunix$(PPUEXT) sockets$(PPUEXT) gpm$(PPUEXT): gpm.pp unix$(PPUEXT) baseunix$(PPUEXT) sockets$(PPUEXT)
$(COMPILER) -Sg $(UNIXINC)/gpm.pp
ctypes$(PPUEXT) : $(INC)/ctypes.pp $(SYSTEMUNIT)$(PPUEXT) ctypes$(PPUEXT) : $(INC)/ctypes.pp $(SYSTEMUNIT)$(PPUEXT)

3
rtl/linux/Makefile.fpc
View File

@ -289,7 +289,6 @@ cmem$(PPUEXT) : $(INC)/cmem.pp $(SYSTEMUNIT)$(PPUEXT)
cthreads$(PPUEXT) : $(UNIXINC)/cthreads.pp $(SYSTEMUNIT)$(PPUEXT) systhrds$(PPUEXT) cthreads$(PPUEXT) : $(UNIXINC)/cthreads.pp $(SYSTEMUNIT)$(PPUEXT) systhrds$(PPUEXT)
gpm$(PPUEXT): $(UNIXINC)/gpm.pp unix$(PPUEXT) baseunix$(PPUEXT) sockets$(PPUEXT) gpm$(PPUEXT): gpm.pp unix$(PPUEXT) baseunix$(PPUEXT) sockets$(PPUEXT)
$(COMPILER) -Sg $(UNIXINC)/gpm.pp
ctypes$(PPUEXT) : $(INC)/ctypes.pp $(SYSTEMUNIT)$(PPUEXT) ctypes$(PPUEXT) : $(INC)/ctypes.pp $(SYSTEMUNIT)$(PPUEXT)

19
rtl/unix/gpm.pp → rtl/linux/gpm.pp
View File

@ -332,14 +332,14 @@ begin
gpm_get_console:=''; gpm_get_console:='';
end; end;
procedure gpm_winch_hook(signum:longint);cdecl; procedure gpm_winch_hook(signum:longint;SigInfo: PSigInfo; SigContext: PSigContext);cdecl;
var win:winsize; var win:winsize;
begin begin
if (signalhandler(SIG_IGN)<>gpm_saved_winch_hook.sa_handler) and if (sigactionhandler(SIG_IGN)<>gpm_saved_winch_hook.sa_handler) and
(signalhandler(SIG_DFL)<>gpm_saved_winch_hook.sa_handler) then (sigactionhandler(SIG_DFL)<>gpm_saved_winch_hook.sa_handler) then
gpm_saved_winch_hook.sa_handler(signum); gpm_saved_winch_hook.sa_handler(signum,nil,nil);
if fpioctl(gpm_consolefd,TIOCGWINSZ,@win)=-1 then if fpioctl(gpm_consolefd,TIOCGWINSZ,@win)=-1 then
exit; exit;
if (win.ws_col=0) or (win.ws_row=0) then if (win.ws_col=0) or (win.ws_row=0) then
@ -351,7 +351,7 @@ begin
gpm_my:=win.ws_row - gpm_zerobased; gpm_my:=win.ws_row - gpm_zerobased;
end; end;
procedure gpm_suspend_hook(signum:longint);cdecl; procedure gpm_suspend_hook(signum:longint;SigInfo: PSigInfo; SigContext: PSigContext);cdecl;
var conn:Tgpmconnect; var conn:Tgpmconnect;
old_sigset,new_sigset:Tsigset; old_sigset,new_sigset:Tsigset;
@ -566,11 +566,11 @@ begin
if gpm_flag then if gpm_flag then
begin begin
{ Install suspend hook } { Install suspend hook }
sa.sa_handler:=signalhandler(SIG_IGN); sa.sa_handler:=sigactionhandler(SIG_IGN);
fpsigaction(SIGTSTP,@sa,@gpm_saved_suspend_hook); fpsigaction(SIGTSTP,@sa,@gpm_saved_suspend_hook);
{if signal was originally ignored, job control is not supported} {if signal was originally ignored, job control is not supported}
if gpm_saved_suspend_hook.sa_handler<>signalhandler(SIG_IGN) then if gpm_saved_suspend_hook.sa_handler<>sigactionhandler(SIG_IGN) then
begin begin
sa.sa_flags:=SA_NOMASK; sa.sa_flags:=SA_NOMASK;
sa.sa_handler:=@gpm_suspend_hook; sa.sa_handler:=@gpm_suspend_hook;
@ -954,7 +954,10 @@ end;
end. end.
{ {
$Log$ $Log$
Revision 1.14 2004-11-21 11:28:21 peter Revision 1.4 2005-01-30 18:00:28 peter
* move gpm.pp to linux
Revision 1.14 2004/11/21 11:28:21 peter
* fixed bootstrap with 1.0.10 and 1.9.4 * fixed bootstrap with 1.0.10 and 1.9.4
Revision 1.13 2004/11/06 20:06:19 peter Revision 1.13 2004/11/06 20:06:19 peter