mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-16 00:42:06 +02:00
* Remove debug statement
This commit is contained in:
parent
2b99abdd4d
commit
aedb6dbacd
@ -757,7 +757,6 @@ begin
|
||||
I:=1;
|
||||
if (Length(Value)>2) and (Value[2]=':') then
|
||||
I:=2;
|
||||
Writeln('Value ',Value, ' -> ',I);
|
||||
Result:=Copy(Value,1,I)+StringToIdentifier(Copy(Value,I+1,Length(Value)-I));
|
||||
end;
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user