paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2026-02-04 09:05:10 +01:00
Code Issues Packages Projects Releases Wiki Activity

FpDebug: clean up / See MR !310

Browse Source
This commit is contained in:
Martin 2024-08-21 22:11:51 +02:00
parent 5800a2d67b
commit a310bf43dc
1 changed files with 0 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/fpdebug/fpdbgdwarf.pas
View File

@ -3263,8 +3263,6 @@ begin
end;
procedure TFpValueDwarfSet.SetAsString(AValue: AnsiString);
type
TCharSet = set of char;
function CheckAndConsumeChar(var p: PChar; c: Char): Boolean;
begin
Result := p^ = c;