paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-05 06:29:37 +01:00
Code Issues Packages Projects Releases Wiki Activity

* support <none> as empty version

Browse Source 
* don't write not installed versions to status file

git-svn-id: trunk@9247 -
This commit is contained in:
peter 2007-11-13 23:09:04 +00:00
parent 59f08ab878
commit c30eed4069
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
utils/fppkg/fprepos.pp
View File

@ -368,6 +368,9 @@ begin
Major:=0; Major:=0;
Minor:=0; Minor:=0;
Suffix:=''; Suffix:='';
// Special support for empty version string
if AValue='<none>' then
exit;
V:=AValue; V:=AValue;
Release:=NextDigit('.',V); Release:=NextDigit('.',V);
Major:=NextDigit('.',V); Major:=NextDigit('.',V);
@ -804,7 +807,8 @@ begin
Try Try
For I:=0 to PackageCount-1 do For I:=0 to PackageCount-1 do
With Packages[i] do With Packages[i] do
L.Add(Name+'='+InstalledVersion.AsString); if not InstalledVersion.Empty then
L.Add(Name+'='+InstalledVersion.AsString);
L.SaveToStream(Stream); L.SaveToStream(Stream);
Finally Finally
L.Free; L.Free;