paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-14 00:54: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 // append registration code only for design time packages
if (APackage.PackageType in [lptDesignTime,lptRunAndDesignTime]) then begin if (APackage.PackageType in [lptDesignTime,lptRunAndDesignTime]) then begin
RegistrationCode:= RegistrationCode:=
+'procedure Register;'+e 'procedure Register;'+e
+'begin'+e +'begin'+e
+RegistrationCode +RegistrationCode
+'end;'+e +'end;'+e
@ -3035,7 +3035,7 @@ begin
+'uses'+e +'uses'+e
+' '+UsedUnits+';'+e +' '+UsedUnits+';'+e
+e; +e;
Src:=Src+ Src:=Src
+'implementation'+e +'implementation'+e
+e +e
+RegistrationCode +RegistrationCode