mORMot Open Source

Still Win64 PurePascal problems, win32 is okay (todays trunk):

PDF\Synopse.inc(574)
PDF\Synopse.inc(574)
PDF\SynLZ.pas(1252)
PDF\SynopseCommit.inc(2)
PDF\SynCommons.pas(36842) Error: E2003 Undeclared identifier: 'CpuFeatures'
PDF\SynCommons.pas(36842) Error: E2015 Operator not applicable to this operand t
ype
PDF\SynCommons.pas(39857) Error: E2003 Undeclared identifier: 'RedirectCode'
PDF\SynCommons.pas(61259)

Same error with 64bit Delphi now.

I forgot to mention: I am using the PurePascal switch. It was something with the CPUId stuff

It is fixed. Thanks!

Be careful: Metafiles have a limitation of 96 dpi (the screen dpi) per default.

You mean pdf has 72 dpi and metafile 100dpmm=2540dpi?

I noticed that. :-) But it won't compile without it.

You should apply bugfix1 first. Second question: What is PurePascal for when its not a solution?

bugfix3:

Following procedures don't respect the PurePascal define:

function SystemFillCharAddress: Pointer;
procedure CopyArray(dest, source, typeInfo: Pointer; cnt: PtrUInt);
procedure _Finalize(Data: Pointer; TypeInfo: Pointer);
procedure RecordCopy(var Dest; const Source; TypeInfo: pointer);
procedure RecordClear(var Dest; TypeInfo: pointer);
function VariantsDispInvokeAddress: pointer;
procedure _DynArrayClear(var a: Pointer; typeInfo: Pointer);
procedure _FinalizeArray(p: Pointer; typeInfo: Pointer; elemCount: PtrUInt);
procedure SynRtlUnwind(TargetFrame, TargetIp: pointer; ExceptionRecord: PExceptionRecord; ReturnValue: Pointer); stdcall;
function TSynLog._Release: Integer;
class function TSynLog.Enter(aInstance: TObject; aMethodName: PUTF8Char; aMethodNameLocal: boolean): ISynLog;
procedure TSynLog.Log(Level: TSynLogInfo);
procedure AddStackManual(Stack: PPtrUInt);

64bit:
function StrInt32(P: PAnsiChar; val: PtrInt): PAnsiChar;
function StrUInt32(P: PAnsiChar; val: PtrUInt): PAnsiChar;
function bswap32(a: cardinal): cardinal; {$ifdef FPC}nostackframe; assembler;{$endif}
function StrLen(S: pointer): PtrInt;

This unit does not work with D6 very well.

I get not reproducible Debugger crash (Delphi 6) here:

InitSynCommonConversionTables;
or
RetrieveSystemInfo;

One more Delphi 6 compilation issue:

function TJSONCustomParserCustomRecord.CustomReader(P: PUTF8Char;
  var aValue; out EndOfObject: AnsiChar): PUTF8Char;
var valid: boolean;
begin
  result := GetJSONCustomParserRegistration.Reader(P,aValue,valid); //<---------------------------D6: Internal error: C3890
  if not valid then
    result := nil;
  if result=nil then
    exit;
  EndOfObject := result^;
  if result^ in [',','}',']'] then
    inc(result);
end;

[Fatal Error] SynCommons.pas(25431): Internal error: C3890

TsysAnsiConvert.Engine causes an floating point error in TSynAnsiFixedWidth.Create(1252) -> Move procedure.

Some XE3 compiler issues:

PDF\SynPdf.pas(2686) Hint: H2443 Inline function 'Point' has not been expanded because unit 'System.Types' is not specified in USES list
PDF\SynPdf.pas(3058) Hint: H2443 Inline function 'TList.Remove' has not been expanded because unit 'System.Types' is not specified in USES list
PDF\SynPdf.pas(3267) Hint: H2443 Inline function 'TList.Remove' has not been expanded because unit 'System.Types' is not specified in USES list
PDF\SynPdf.pas(6162) Warning: W1057 Implicit string cast from 'AnsiString' to 'string'
PDF\SynPdf.pas(6239) Warning: W1000 Symbol 'ByteType' is deprecated: 'Moved to the AnsiStrings unit'
PDF\SynPdf.pas(6245) Warning: W1000 Symbol 'ByteType' is deprecated: 'Moved to the AnsiStrings unit'
PDF\SynPdf.pas(7485) Warning: W1057 Implicit string cast from 'AnsiString' to 'string'
PDF\SynPdf.pas(7567) Warning: W1057 Implicit string cast from 'AnsiString' to 'string'
PDF\SynPdf.pas(8164) Hint: H2443 Inline function 'Point' has not been expanded because unit 'System.Types' is not specified in USES list
PDF\SynPdf.pas(8403) Hint: H2443 Inline function 'Point' has not been expanded because unit 'System.Types' is not specified in USES list
PDF\SynPdf.pas(8420) Hint: H2443 Inline function 'Point' has not been expanded because unit 'System.Types' is not specified in USES list

Thank you for the information.

Yep. I think the main problem are the two zlib obj files which are needed in 64 bit style too.

There is a System.Win.Crtl.pas now that provides MS C RTL functions!