Hello,
lazbuild doesn't increment build number even if auto increment is enabled
in Project Options.

Please review attached patch and apply if OK.


Notice that saved LPI file differs from original one (input file), some
sections are not kept:

...
        <UnitName Value="project1"/>
...
        <UnitName Value="Unit1"/>
...
  <Debugging>
    <Exceptions Count="3">
      <Item1>
        <Name Value="EAbort"/>
      </Item1>
      <Item2>
        <Name Value="ECodetoolError"/>
      </Item2>
      <Item3>
        <Name Value="EFOpenError"/>
      </Item3>
    </Exceptions>
  </Debugging>


Compare attached lpi files for more details (lpi.0 vs lpi.1)... is it a
ReadProject/WriteProject bug?

Sandro Cumerlato


p.s.: lpi.0 is the original lpi file generated by the Lazarus IDE.
Index: ide/lazbuild.lpr
===================================================================
--- ide/lazbuild.lpr    (revisione 48687)
+++ ide/lazbuild.lpr    (copia locale)
@@ -950,6 +950,19 @@
   end
   else
     Result := StartBuilding;
+
+  // Auto increment build number
+  if Result then
+  begin
+    with Project1.ProjResources.VersionInfo do
+    begin
+      if UseVersionInfo and AutoIncrementBuild then
+      begin
+        BuildNr := BuildNr + 1;
+        
Project1.WriteProject(Project1.PublishOptions.WriteFlags,AFileName,EnvironmentOptions.BuildMatrixOptions);
+      end;
+    end;
+  end;
 end;
 
 function TLazBuildApplication.LoadProject(const AFilename: string): TProject;

Attachment: project1.lpi.0
Description: Binary data

Attachment: project1.lpi.1
Description: Binary data

Attachment: project1.lpi.2
Description: Binary data

--
_______________________________________________
Lazarus mailing list
[email protected]
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus

Reply via email to