El 13/10/19 a les 14:46, Martin Frb via lazarus ha escrit:

This release will be built with FPC 3.0.4.
The previous release Lazarus 2.0.4 was built with FPC 3.0.4 as well.

Here is the list of fixes for Lazarus 2.0.4 (since 2.0.0):
http://wiki.freepascal.org/Lazarus_2.0_fixes_branch

We would invite everyone to provide their feedback to help us improve
this upcoming release. Please let as know in particular:
- Any bug-fixes already made to trunk, that you believe should still be
   merged to the fixes branch (fixes that are not listed on the above wiki page)


In my copy of lazarus 2.0.4 I have the fix for bug
https://bugs.freepascal.org/view.php?id=35716
and the patch for the still opened
https://bugs.freepascal.org/view.php?id=35715

Also, I don't know if this will be in 2.0.6 (I need it since the bugs in fpc 3.0.4 affect my projects, so I have to use fixes_3_2):


--- components/virtualtreeview/VirtualTrees.pas (revision 62005)
+++ components/virtualtreeview/VirtualTrees.pas (working copy)
@@ -8014,12 +8014,12 @@
     if OldPosition < Position then
     begin
       // column will be moved up so move down other entries
- Move(FPositionToIndex[OldPosition + 1], FPositionToIndex[OldPosition], (Position - OldPosition) * SizeOf(Cardinal)); + System.Move(FPositionToIndex[OldPosition + 1], FPositionToIndex[OldPosition], (Position - OldPosition) * SizeOf(Cardinal));
     end
     else
     begin
       // column will be moved down so move up other entries
- Move(FPositionToIndex[Position], FPositionToIndex[Position + 1], (OldPosition - Position) * SizeOf(Cardinal)); + System.Move(FPositionToIndex[Position], FPositionToIndex[Position + 1] , (OldPosition - Position) * SizeOf(Cardinal));
     end;
     FPositionToIndex[Position] := Column.Index;
   end;
@@ -8264,7 +8264,7 @@
       begin
// Index found. Move all higher entries one step down and remove the last entry.
         if I < Upper then
- Move(FPositionToIndex[I + 1], FPositionToIndex[I], (Upper - I) * SizeOf(TColumnIndex)); + System.Move(FPositionToIndex[I + 1], FPositionToIndex[I] , (Upper - I) * SizeOf(TColumnIndex));
       end;
// Decrease all indices, which are greater than the index to be deleted.
       if FPositionToIndex[I] > OldIndex then



Bye
--
Luca Olivetti
Wetron Automation Technology http://www.wetron.es/
Tel. +34 93 5883004 (Ext.3010)  Fax +34 93 5883007
--
_______________________________________________
lazarus mailing list
lazarus@lists.lazarus-ide.org
https://lists.lazarus-ide.org/listinfo/lazarus

Reply via email to