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

fcl-passrc: clean up

Browse Source 
git-svn-id: trunk@40100 -
This commit is contained in:
Mattias Gaertner 2018-10-30 23:19:24 +00:00
parent 7afd157d35
commit 299a177e20
1 changed files with 0 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
packages/fcl-passrc/src/pastree.pp
View File

@ -2038,16 +2038,7 @@ begin
Result:=SPasTreeUnit; Result:=SPasTreeUnit;
end; end;
{ TPasStringType }
{$IFNDEF FPC}
const
LineEnding = sLineBreak;
{$ENDIF}
{ Parse tree element type name functions } { Parse tree element type name functions }
function TPasElement.ElementTypeName: string; begin Result := SPasTreeElement end; function TPasElement.ElementTypeName: string; begin Result := SPasTreeElement end;
function TPasElement.HintsString: String; function TPasElement.HintsString: String;