mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-11-26 13:57:37 +01:00
IDE: comment out another unused function in CompilerOptions
git-svn-id: trunk@39064 -
This commit is contained in:
parent
a4875743e3
commit
5a129e09c3
@ -4690,7 +4690,7 @@ begin
|
|||||||
Result := false;
|
Result := false;
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
{
|
||||||
function IntToStrLen(i:Integer; len: integer; FillCh: Char = '0'): string;
|
function IntToStrLen(i:Integer; len: integer; FillCh: Char = '0'): string;
|
||||||
var
|
var
|
||||||
s : string;
|
s : string;
|
||||||
@ -4710,7 +4710,7 @@ begin
|
|||||||
Move(s[1], Result[j], length(s));
|
Move(s[1], Result[j], length(s));
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
}
|
||||||
function TCompilerMessagesList.Add(AMsgIndex: Integer;
|
function TCompilerMessagesList.Add(AMsgIndex: Integer;
|
||||||
AMsgType: TFPCErrorType; const AMsgText: string; DefIgnored: Boolean = false;
|
AMsgType: TFPCErrorType; const AMsgText: string; DefIgnored: Boolean = false;
|
||||||
AState: TCompilerMessageState = msDefault): TCompilerMessageConfig;
|
AState: TCompilerMessageState = msDefault): TCompilerMessageConfig;
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user