mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-15 08:39:30 +02:00
* Fixed version-number without build-number, bug #29055
git-svn-id: trunk@41226 -
This commit is contained in:
parent
9a878f99db
commit
e5492d8992
@ -453,8 +453,19 @@ begin
|
||||
end;
|
||||
|
||||
procedure TMakeTool.ShowVersion;
|
||||
var
|
||||
Version: TFPVersion;
|
||||
begin
|
||||
Writeln('Version: ', version_major, '.', version_minor, '.', version_micro, '-', version_build);
|
||||
Version := TFPVersion.Create;
|
||||
try
|
||||
Version.Major := version_major;
|
||||
Version.Minor := version_minor;
|
||||
Version.Micro := version_micro;
|
||||
Version.Build := version_build;
|
||||
Writeln('Version: ', Version.AsString);
|
||||
finally
|
||||
Version.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user