mORMot Open Source

TPrami

Member

Registered: 2010-07-06

Posts: 119

Couple tweks to two unists

Hello,

had to add couple tweaks for D10Seattle

Synopse.inc

    {$if CompilerVersion >= 23.0}
      // Delphi XE2 has some cross-platform features
      // e.g. {$ifdef ISDELPHIXE2}VCL.Graphics{$else}Graphics{$endif}
      {$define ISDELPHIXE2}
      {$define HASVARUSTRARG}
      {$define HASUNITSCOPE} // <- XE2 should be first that has UnitScope-feature
    {$ifend}

SynLZO.pas

implementation
...
{$ifdef MSWINDOWS}
uses
  {$IFDEF HASUNITSCOPE}Winapi.Windows, {$ELSE}Winsows,{$ENDIF} SysUtils;
{$endif}

-Tee-

ab

Administrator

From: France

Registered: 2010-06-21

Posts: 14,649

Website

Re: Couple tweks to two unists

I guess you are not using the latest version from trunk.
It compiles with D10Seattle since early DX9 beta times.

TPrami

Member

Registered: 2010-07-06

Posts: 119

Re: Couple tweks to two unists

Huh, Long time no see...

But I am back.

Even the very latest will hit to that same problem. It might depend upon Delphi settings (Maybe you can get around that in Delphi side), but at least in my configuration it always fails to compile that.

With default settings latest Delphi versions does not like few of the Units without the UnitScope. Winapi.Windows is required and some other also, can't remember which ones

-Tee-

ab

Administrator

From: France

Registered: 2010-06-21

Posts: 14,649

Website

Re: Couple tweks to two unists

Delphi does not require the unit namespaces to be specified.

Just ensure that you kept the default options for your project.

We have no problem here with a blank Delphi 10 Seatle or with Delphi 11 Berlin.