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

* Force ampersand in EscaleKeyword

Browse Source
This commit is contained in:
Michaël Van Canneyt 2021-12-07 16:33:07 +01:00
parent fa9d77e67e
commit 9af13b2731
1 changed files with 6 additions and 3 deletions

9
packages/fcl-base/src/pascodegen.pp
View File

@ -66,7 +66,7 @@ Type
Procedure Indent;
Procedure Undent;
Function IsKeyWord (Const S : String) : Boolean;
Function EscapeKeyWord(Const S : String) : String;
Function EscapeKeyWord(Const S : String; ForceAmpersand : Boolean = false) : String;
Function MakePascalString(S: String; AddQuotes: Boolean=False): String;
Function PrettyPrint(Const S: string): String;
Procedure AddLn(Const Aline: string);
@ -126,11 +126,14 @@ begin
Result:=Pos(';'+lowercase(S)+';',KW)<>0;
end;
function TPascalCodeGenerator.EscapeKeyWord(const S: String): String;
function TPascalCodeGenerator.EscapeKeyWord(const S: String; ForceAmpersand : Boolean = false): String;
begin
Result:=S;
if IsKeyWord(S) then
Result:=KeywordPrefix+Result+KeywordSuffix
if ForceAmpersand then
Result:='&'+Result
else
Result:=KeywordPrefix+Result+KeywordSuffix
end;
procedure TPascalCodeGenerator.AddLn(const Aline: string);