Fix compilation warnings.

kmzbrnoI · May 8, 2023 · 9d31b11 · 9d31b11
1 parent 4b96b2e
commit 9d31b11
Show file tree

Hide file tree

Showing 3 changed files with 2 additions and 5 deletions.
diff --git a/src/blocks/BlockRailway.pas b/src/blocks/BlockRailway.pas
@@ -1170,8 +1170,6 @@ function TBlkRailwayTrain.SerializeForPanel(railway: TBlk; trainPredict: Boolean
     if (blkRT.Train = Self.Train) and (blkRT.bpError) then
       bpError := true;
 
-  var blk := Self.Train.front as TBlk;
-
   if (trainPredict) then
     fg := clYellow
   else if (bpError) then

diff --git a/src/blocks/BlockTurnout.pas b/src/blocks/BlockTurnout.pas
@@ -1685,9 +1685,8 @@ procedure TBlkTurnout.MapNpEvents();
 procedure TBlkTurnout.MovingUPO(SenderPnl: TIDContext; SenderOR: TObject; UPO_OKCallback: TNotifyEvent;
   UPO_EscCallback: TNotifyEvent);
 var UPO: TUPOItems;
-  item: TUPOItem;
 begin
-  UPO := TList<TUPOItem>.Create;
+  UPO := TList<TUPOItem>.Create();
   try
     if (Self.note <> '') then
       UPO.Add(JCBarrierToMessage(JCBarrier(barBlockNote, Self)));

diff --git a/src/helpers/version.pas b/src/helpers/version.pas
@@ -8,7 +8,7 @@ interface
  function LastBuildDate(): string;
  function LastBuildTime(): string;
 
- const _RELEASE: Boolean = false;
+ const _RELEASE: Boolean = true;
 
 implementation