[Lazarus] [Lazarusdev] RFC --- We are planning the next release: Lazarus 2.0.6

[Luca Olivetti]

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