mORMot Open Source

pult

Member

From: Ukraine, Kyiv

Registered: 2013-11-06

Posts: 18

SynCommons.pas not compiled for {$define USEPACKAGES}

SynCommons.pas(...) Error: E2065 Unsatisfied forward or external declaration: 'RecordClear'

fix:

{$ifdef USEPACKAGES}
procedure RecordCopy(var Dest; const Source; TypeInfo: pointer);
asm // same params than _CopyRecord{ dest, source, typeInfo: Pointer }
{$ifdef CPUX64}
  .NOFRAME
{$endif}
  jmp System.@CopyRecord
end;
// +++++++++++++++++++++++:
procedure RecordClear(var Dest; TypeInfo: pointer);
asm
{$ifdef CPUX64}
  .NOFRAME
{$endif}
  jmp System.@FinalizeRecord
end;
// +++++++++++++++++++++++.
{$else USEPACKAGES}
{$ifdef DELPHI5OROLDER}
procedure RecordCopy(var Dest; const Source; TypeInfo: pointer);
asm // same params than _CopyRecord{ dest, source, typeInfo: Pointer }
  jmp System.@CopyRecord
end;

Last edited by pult (2014-02-08 17:10:42)

ab

Administrator

From: France

Registered: 2010-06-21

Posts: 14,269

Website

Re: SynCommons.pas not compiled for {$define USEPACKAGES}

Right!

We have just fixed compilation when USEPACKAGES conditional is defined.
http://synopse.info/fossil/info/c7eadcd362

Thanks for the feedback!