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

* fixed bootstrap with 1.0.10 and 1.9.4

Browse Source
This commit is contained in:
peter 2004-11-21 11:28:21 +00:00
parent 115bd8ae28
commit b7d7736352
3 changed files with 26 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
rtl/unix/bunxh.inc
View File

@ -22,11 +22,13 @@ Type TGrpArr = Array [0..0] of TGid; { C style array workarounds}
// if you are looking for macro definitions or non C template overloaded versions, they are moved to bunxovlh.inc // if you are looking for macro definitions or non C template overloaded versions, they are moved to bunxovlh.inc
{$ifdef linux} {$ifdef linux}
Function FpSigProcMask(how : cInt; nset : pSigSet; oset : pSigSet): cInt; Function FpSigProcMask(how : cInt; nset : pSigSet; oset : pSigSet): cInt;
Function FpSigProcMask(how : cInt; Const nset : TSigSet; var oset : TSigSet): cInt; external name 'FPC_SYSC_SIGPROCMASK'; {$ifndef VER1_0}
Function FpSigProcMask(how : cInt; Const nset : TSigSet; var oset : TSigSet): cInt; external name 'FPC_SYSC_SIGPROCMASK';
{$endif}
{$else} {$else}
Function FpSigProcMask(how : cInt; nset : pSigSet; oset : pSigSet): cInt; external name 'FPC_SYSC_SIGPROCMASK'; Function FpSigProcMask(how : cInt; nset : pSigSet; oset : pSigSet): cInt; external name 'FPC_SYSC_SIGPROCMASK';
Function FpSigProcMask(how : cInt; Const nset : TSigSet; var oset : TSigSet): cInt; external name 'FPC_SYSC_SIGPROCMASK'; Function FpSigProcMask(how : cInt; Const nset : TSigSet; var oset : TSigSet): cInt; external name 'FPC_SYSC_SIGPROCMASK';
{$endif} {$endif}
Function FpSigPending (var nset : TSigSet): cInt; Function FpSigPending (var nset : TSigSet): cInt;
Function FpSigSuspend (Const sigmask : TSigSet): cInt; Function FpSigSuspend (Const sigmask : TSigSet): cInt;
@ -39,7 +41,7 @@ Type TGrpArr = Array [0..0] of TGid; { C style array workarounds}
Function FpUtime (path : pChar; times : putimbuf): cInt; Function FpUtime (path : pChar; times : putimbuf): cInt;
Function FpPipe (var fildes : tfildes):cInt; Function FpPipe (var fildes : tfildes):cInt;
Function FpDup (fildes : cInt): cInt; external name 'FPC_SYSC_DUP'; Function FpDup (fildes : cInt): cInt; external name 'FPC_SYSC_DUP';
Function FpDup2 (fildes, fildes2 : cInt): cInt; external name 'FPC_SYSC_DUP2'; Function FpDup2 (fildes, fildes2 : cInt): cInt; external name 'FPC_SYSC_DUP2';
Function FpTimes (var buffer : tms): TClock; Function FpTimes (var buffer : tms): TClock;
Function FpAlarm (seconds : cuint): cuint; Function FpAlarm (seconds : cuint): cuint;
@ -63,7 +65,7 @@ Type TGrpArr = Array [0..0] of TGid; { C style array workarounds}
Function FpGetcwd (path:pChar; siz:TSize):pChar; external name 'FPC_SYSC_GETCWD'; Function FpGetcwd (path:pChar; siz:TSize):pChar; external name 'FPC_SYSC_GETCWD';
Function FpFork : TPid; external name 'FPC_SYSC_FORK'; Function FpFork : TPid; external name 'FPC_SYSC_FORK';
Function FpExecve (path : pChar; argv : ppChar; envp: ppChar): cInt; Function FpExecve (path : pChar; argv : ppChar; envp: ppChar): cInt;
// external name 'FPC_SYSC_EXECVE'; // external name 'FPC_SYSC_EXECVE';
Function FpExecv (path : pChar; argv : ppChar): cInt; Function FpExecv (path : pChar; argv : ppChar): cInt;
Function FpWaitpid (pid : TPid; stat_loc : pcInt; options: cInt): TPid; external name 'FPC_SYSC_WAITPID'; Function FpWaitpid (pid : TPid; stat_loc : pcInt; options: cInt): TPid; external name 'FPC_SYSC_WAITPID';
@ -110,7 +112,10 @@ Type TGrpArr = Array [0..0] of TGid; { C style array workarounds}
{ {
$Log$ $Log$
Revision 1.13 2004-11-19 13:15:14 marco Revision 1.14 2004-11-21 11:28:21 peter
* fixed bootstrap with 1.0.10 and 1.9.4
Revision 1.13 2004/11/19 13:15:14 marco
* external rework. Mostly done. * external rework. Mostly done.
Revision 1.12 2004/11/14 12:21:08 marco Revision 1.12 2004/11/14 12:21:08 marco

15
rtl/unix/gpm.pp
View File

@ -19,7 +19,7 @@ unit gpm;
Unfortunately it isn't suitable for anything else besides a blocky Unfortunately it isn't suitable for anything else besides a blocky
cursor on a text mode interface. The GPM protocol suffers from serious cursor on a text mode interface. The GPM protocol suffers from serious
defficiencies and ideally, gpm is abolished as quickly as possible. defficiencies and ideally, gpm is abolished as quickly as possible.
With lack of a good alternative, GPM deserves good support. But With lack of a good alternative, GPM deserves good support. But
please keep this in mind while coding.} please keep this in mind while coding.}
@ -88,7 +88,7 @@ type
clicks : longint; clicks : longint;
margin : TGpmMargin; margin : TGpmMargin;
end; end;
Pgpmevent=Pgpm_event; Pgpmevent=Pgpm_event;
Tgpmevent=Tgpm_event; Tgpmevent=Tgpm_event;
@ -107,7 +107,7 @@ type
pid : longint; pid : longint;
vc : longint; vc : longint;
end; end;
Pgpmconnect=Pgpm_connect; Pgpmconnect=Pgpm_connect;
Tgpmconnect=Tgpm_connect; Tgpmconnect=Tgpm_connect;
@ -214,7 +214,7 @@ type Pgpm_stst=^Tgpm_stst;
info:Tgpmconnect; info:Tgpmconnect;
next:Pgpm_stst; next:Pgpm_stst;
end; end;
Pmicetab=^Tmicetab; Pmicetab=^Tmicetab;
Tmicetab=record Tmicetab=record
next:Pmicetab; next:Pmicetab;
@ -361,7 +361,7 @@ var conn:Tgpmconnect;
begin begin
fpsigemptyset(new_sigset); fpsigemptyset(new_sigset);
fpsigaddset(new_sigset,SIGTSTP); fpsigaddset(new_sigset,SIGTSTP);
fpsigprocmask(SIG_BLOCK,new_sigset,old_sigset); fpsigprocmask(SIG_BLOCK,{$ifdef ver1_0}@{$endif}new_sigset,{$ifdef ver1_0}@{$endif}old_sigset);
{Open a completely transparent gpm connection.} {Open a completely transparent gpm connection.}
conn.eventmask:=0; conn.eventmask:=0;
@ -954,7 +954,10 @@ end;
end. end.
{ {
$Log$ $Log$
Revision 1.13 2004-11-06 20:06:19 peter Revision 1.14 2004-11-21 11:28:21 peter
* fixed bootstrap with 1.0.10 and 1.9.4
Revision 1.13 2004/11/06 20:06:19 peter
* mouse works again * mouse works again
Revision 1.12 2004/11/03 16:51:05 peter Revision 1.12 2004/11/03 16:51:05 peter

7
rtl/unix/unix.pp
View File

@ -522,7 +522,7 @@ begin { Changes as above }
fpsigaction(SIGQUIT, @ign, @quitact); fpsigaction(SIGQUIT, @ign, @quitact);
fpsigemptyset(newsigblock); fpsigemptyset(newsigblock);
fpsigaddset(newsigblock,SIGCHLD); fpsigaddset(newsigblock,SIGCHLD);
fpsigprocmask(SIG_BLOCK,newsigblock,oldsigblock); fpsigprocmask(SIG_BLOCK,{$ifdef ver1_0}@{$endif}newsigblock,{$ifdef ver1_0}@{$endif}oldsigblock);
pid:=fpfork; pid:=fpfork;
if pid=0 then // We are in the Child if pid=0 then // We are in the Child
begin begin
@ -1254,7 +1254,10 @@ End.
{ {
$Log$ $Log$
Revision 1.77 2004-11-19 13:15:15 marco Revision 1.78 2004-11-21 11:28:21 peter
* fixed bootstrap with 1.0.10 and 1.9.4
Revision 1.77 2004/11/19 13:15:15 marco
* external rework. Mostly done. * external rework. Mostly done.
Revision 1.76 2004/11/03 15:00:43 marco Revision 1.76 2004/11/03 15:00:43 marco