mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-16 04:09:15 +02:00
- removed debian detection since its gpm bug has been long fixed
git-svn-id: trunk@15862 -
This commit is contained in:
parent
7195d8c883
commit
2011328acf
23
ide/fp.pas
23
ide/fp.pas
@ -235,25 +235,6 @@ begin
|
|||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
{$ifdef linux}
|
|
||||||
procedure detect_debian;
|
|
||||||
|
|
||||||
var attr:word;
|
|
||||||
f:text;
|
|
||||||
|
|
||||||
begin
|
|
||||||
assign(f,'/etc/debian_version');
|
|
||||||
getfattr(f,attr);
|
|
||||||
if doserror=0 then
|
|
||||||
errorbox('Debian system detected!'#13#13+
|
|
||||||
'Debian systems use an incompatible gpm'#13+
|
|
||||||
'daemon, therefore your system might'#13+
|
|
||||||
'suffer from Debian bug 412927. Please'#13+
|
|
||||||
'see http://bugs.debian.org/cgi-bin/'#13+
|
|
||||||
'bugreport.cgi?bug=412927 for details.',nil);
|
|
||||||
end;
|
|
||||||
{$endif}
|
|
||||||
|
|
||||||
procedure DelTempFiles;
|
procedure DelTempFiles;
|
||||||
begin
|
begin
|
||||||
DeleteFile(FPOutFileName);
|
DeleteFile(FPOutFileName);
|
||||||
@ -435,10 +416,6 @@ BEGIN
|
|||||||
|
|
||||||
if ShowReadme then
|
if ShowReadme then
|
||||||
begin
|
begin
|
||||||
{$ifdef linux}
|
|
||||||
{Regrettably we do not have a proper solution.}
|
|
||||||
detect_debian;
|
|
||||||
{$endif}
|
|
||||||
PutCommand(Application,evCommand,cmShowReadme,nil);
|
PutCommand(Application,evCommand,cmShowReadme,nil);
|
||||||
ShowReadme:=false; { do not show next time }
|
ShowReadme:=false; { do not show next time }
|
||||||
end;
|
end;
|
||||||
|
Loading…
Reference in New Issue
Block a user