[fpc-pascal] SIGSEGV in SYSTEM_TOBJECT_$__CLEANUPINSTANCE when calling from C app

[Juha Manninen]

Matthias Klumpp kirjoitti maanantai 13 joulukuu 2010 18:50:46:
>  if obj^ = nil then exit;
>  FreeAndNil(obj^);

Shouldn't it be:

 // if obj = nil then exit;  <-- not really needed
 FreeAndNil(obj);

Juha