paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-10 16:56:03 +02:00
Code Issues Packages Projects Releases Wiki Activity

fixed compilation with fpc 2.1.1

Browse Source 
git-svn-id: trunk@8016 -
This commit is contained in:
vincents 2005-10-31 12:33:13 +00:00
parent fc9c3bb22a
commit e2ae1a8286
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packager/pkgmanager.pas
View File

@ -3008,7 +3008,7 @@ begin
// append registration code only for design time packages
if (APackage.PackageType in [lptDesignTime,lptRunAndDesignTime]) then begin
RegistrationCode:=
+'procedure Register;'+e
'procedure Register;'+e
+'begin'+e
+RegistrationCode
+'end;'+e
@ -3035,7 +3035,7 @@ begin
+'uses'+e
+' '+UsedUnits+';'+e
+e;
Src:=Src+
Src:=Src
+'implementation'+e
+e
+RegistrationCode