UniSoft

Проблема в инициализации модулей, точнее в последовательности их инициализации.

 

FMX.Types.pas

initialization
    ...
    // <<< тут проблема, 
    // на момент вызова этого конструктора, инициализация модуля System.Rtti.pas
    // еще не выполнялась...
    // т.е. модуль System.Rtti.pas инициализируется после FMX.Types.pas
    SharedContext := TRttiContext.Create;
    ...

 

System.Rtti.pas

class function TRttiContext.Create: TRttiContext;
begin
  EnsurePoolToken(@Result.FContextToken);
end;
 
constructor TPoolToken.Create;
begin
  TMonitor.Enter(PoolLock); // вот тут то и падение, модуль еще не инициализирован и PoolLock = nil
  try
    if Pool = nil then
    begin
      Pool := TRttiPool.Create;
      PoolRefCount := 1;
    end
    else
      Inc(PoolRefCount);
  finally
    TMonitor.Exit(PoolLock);
  end;
end;
 
procedure EnsurePoolToken(TokenRef: PInterface);
var
  sample: Pointer;
 
  procedure DoCreate;
  var
    tok: IInterface;
  begin
    tok := TRttiContext.FGlobalContextToken;
    if tok = nil then
      tok := TPoolToken.Create;
    if AtomicCmpExchange(PPointer(TokenRef)^, Pointer(tok), sample) = sample then
    begin
      // We won the race to initialize the TokenRef location, so
      // zero-out interface reference without decrementing reference count.
      PPointer(@tok)^ := nil;
    end;
  end;
 
begin
  sample := PPointer(TokenRef)^;
  if sample <> nil then
    Exit;
  DoCreate;
end;
 
initialization
  ...
  PoolLock := TObject.Create;

 

Есть еще один нюанс, инициализация System.Rtti.pas зачем-то выполняется два раза,

к краху это не приведет, но небольшой (не накопительный) memleak будет.

 

Проблема в библиотеках, и похоже только Win32

 

ЗЫ. к стилям никакого отношения не имеет...

достаточно одной строчки: 

void __fastcall TForm1::FormCreate(TObject *Sender)
{
    TValue::From<String>("test");
}