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

fcl-base: typo

Browse Source
This commit is contained in:
mattias 2022-07-27 23:41:35 +02:00
parent de650dea55
commit d36d9c7dee
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -198,9 +198,9 @@ end;
constructor TPascalCodeGenerator.Create(AOwner: TComponent); constructor TPascalCodeGenerator.Create(AOwner: TComponent);
begin begin
inherited Create(AOwner); inherited Create(AOwner);
FSource:=TstringList.Create; FSource:=TStringList.Create;
FLicenseText:=TstringList.Create; FLicenseText:=TstringList.Create;
FSwitches:=TstringList.Create; FSwitches:=TStringList.Create;
FSwitches.Add('MODE ObjFPC'); FSwitches.Add('MODE ObjFPC');
FSwitches.Add('H+'); FSwitches.Add('H+');
SetLength(FSections,0); SetLength(FSections,0);
@ -408,5 +408,3 @@ end;
end. end.
end.