mORMot and Open Source friends: Check-in [4f4c1de9a2]

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview

Comment:	fixed compilation issue on newer Delphi versions
Timelines:	family \| ancestors \| descendants \| both \| trunk
Files:	files \| file ages \| folders
SHA1:	4f4c1de9a2441eb04532c3a2dcaa87a0900cf179
User & Date:	abouchez 2013-05-23 06:39:47
Original Comment:	faster PosEx() function in pure pascal mode (based on Avatar Zondertau work) fixed compilation issue on newer Delphi versions

Context

2013-05-23
06:54		faster PosEx() function in pure pascal mode (based on Avatar Zondertau work) - latest commit did not include the modification :) check-in: 31787b3495 user: abouchez tags: trunk
06:39		fixed compilation issue on newer Delphi versions check-in: 4f4c1de9a2 user: abouchez tags: trunk
2013-05-22
14:02		now TSQLRestServerStaticExternal will call TSQLRestServer.OnUpdateEvent and OnBlobUpdateEvent callbacks, if defined (even in BATCH mode) BatchDelete() will now split its batch statement executed following TSQLDBConnectionProperties.BatchMaxSentAtOnce property expectations check-in: a0324142e0 user: abouchez tags: trunk

Changes

Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to SQLite3/mORMot.pas.

procedure TSQLRecordProperties.RegisterCustomFixedSizeRecordProperty(
  aTable: TClass; aRecordSize: cardinal; const aName: RawUTF8;  aPropertyPointer: pointer;
  aAttributes: TSQLPropInfoAttributes=[]; aFieldWidth: integer=0;
  aData2Text: TOnSQLPropInfoRecord2Text=nil;
  aText2Data: TOnSQLPropInfoRecord2Data=nil);
begin
  Fields.Add(aTable,TSQLPropInfoRecordFixedSize.Create(aRecordSize,aName,Fields.Count,
    aPropertyPointer,aAttributes,aFieldWidth,aData2Text,aText2Data),);
end;

procedure TSQLRecordProperties.RegisterCustomRTTIRecordProperty(aTable: TClass;
  aRecordInfo: PTypeInfo; const aName: RawUTF8;  aPropertyPointer: pointer;
  aAttributes: TSQLPropInfoAttributes=[]; aFieldWidth: integer=0;
  aData2Text: TOnSQLPropInfoRecord2Text=nil;
  aText2Data: TOnSQLPropInfoRecord2Data=nil);
begin
  Fields.Add(aTable,TSQLPropInfoRecordRTTI.Create(aRecordInfo,aName,Fields.Count,
    aPropertyPointer,aAttributes,aFieldWidth,aData2Text,aText2Data),);
end;


{ TSynValidateUniqueField }

function TSynValidateUniqueField.Process(aFieldIndex: integer; const Value: RawUTF8;
  var ErrorMsg: string): boolean;

procedure TSQLRecordProperties.RegisterCustomFixedSizeRecordProperty(
  aTable: TClass; aRecordSize: cardinal; const aName: RawUTF8;  aPropertyPointer: pointer;
  aAttributes: TSQLPropInfoAttributes=[]; aFieldWidth: integer=0;
  aData2Text: TOnSQLPropInfoRecord2Text=nil;
  aText2Data: TOnSQLPropInfoRecord2Data=nil);
begin
  Fields.Add(aTable,TSQLPropInfoRecordFixedSize.Create(aRecordSize,aName,Fields.Count,
    aPropertyPointer,aAttributes,aFieldWidth,aData2Text,aText2Data));
end;

procedure TSQLRecordProperties.RegisterCustomRTTIRecordProperty(aTable: TClass;
  aRecordInfo: PTypeInfo; const aName: RawUTF8;  aPropertyPointer: pointer;
  aAttributes: TSQLPropInfoAttributes=[]; aFieldWidth: integer=0;
  aData2Text: TOnSQLPropInfoRecord2Text=nil;
  aText2Data: TOnSQLPropInfoRecord2Data=nil);
begin
  Fields.Add(aTable,TSQLPropInfoRecordRTTI.Create(aRecordInfo,aName,Fields.Count,
    aPropertyPointer,aAttributes,aFieldWidth,aData2Text,aText2Data));
end;


{ TSynValidateUniqueField }

function TSynValidateUniqueField.Process(aFieldIndex: integer; const Value: RawUTF8;
  var ErrorMsg: string): boolean;

Changes to SynCommons.pas.

{$ifdef PUREPASCAL}
function PosEx(const SubStr, S: RawUTF8; Offset: Cardinal = 1): Integer;
var
  I,X: Integer;
  Len, LenSubStr: Integer;
  C: AnsiChar;
begin

  if Offset = 1 then
    Result := Pos(RawByteString(SubStr),RawByteString(S)) else begin

    I := Offset;
    LenSubStr := Length(SubStr);
    Len := Length(S)-LenSubStr+1;
    C := SubStr[1];
    while I<=Len do begin
      if S[I]=C then begin
        X := 1;







|
>

|
>

{$ifdef PUREPASCAL}
function PosEx(const SubStr, S: RawUTF8; Offset: Cardinal = 1): Integer;
var
  I,X: Integer;
  Len, LenSubStr: Integer;
  C: AnsiChar;
begin                 toto
  {$ifndef CPU64} // Win64 purepascal Pos() in System.pas is slower than ours
  if Offset = 1 then
    Result := Pos(RawByteString(SubStr),RawByteString(S)) else
  {$endif} begin
    I := Offset;
    LenSubStr := Length(SubStr);
    Len := Length(S)-LenSubStr+1;
    C := SubStr[1];
    while I<=Len do begin
      if S[I]=C then begin
        X := 1;