* remove packed from TTlsDirectory, packed makes no sense for API structures on Windows

    and it might cause them to get wrongly aligned, found by Alfred Glänzer and reported in #41428

rtl/win/sysos.inc

@@ -21,9 +21,9 @@ const
    INVALID_HANDLE_VALUE = THandle(-1);
 
    IGNORE = 0;               { Ignore signal }
-{$IF NOT DECLARED(INFINITE)}   
+{$IF NOT DECLARED(INFINITE)}
    INFINITE = longint($FFFFFFFF);     { Infinite timeout }
-{$ENDIF}   
+{$ENDIF}
 
    { flags for CreateFile }
    GENERIC_READ=$80000000;
@@ -188,7 +188,7 @@ type
     wMilliseconds: Word;
   end;
 
-  TTlsDirectory=packed record
+  TTlsDirectory = record
     data_start, data_end : pointer;
     index_pointer, callbacks_pointer : pointer;
     zero_fill_size : dword;

rtl/win/systlsdir.inc

@@ -36,7 +36,7 @@ var
    TlsKey : PDWord = @TlsKeyVar;
 
 type
-  TTlsDirectory=packed record
+  TTlsDirectory = record
     data_start, data_end : pointer;
     index_pointer, callbacks_pointer : pointer;
     zero_fill_size : dword;