Permalink
Browse files

try to circumvent Delphi 2009 compilation issues

  • Loading branch information...
Arnaud Bouchez
Arnaud Bouchez committed Jul 26, 2018
1 parent 3e99c91 commit b8611cdc57c1c4084e149a57a8c99767e9090917
Showing with 122 additions and 141 deletions.
  1. +3 −1 CrossPlatform/SynCrossPlatformJSON.pas
  2. +2 −6 PasZip.pas
  3. +5 −5 SQLite3/mORMot.pas
  4. +94 −94 SynBz.pas
  5. +7 −19 SynCommons.pas
  6. +0 −3 SynCrtSock.pas
  7. +1 −1 SynDBZeos.pas
  8. +1 −1 SynLZ.pas
  9. +3 −3 SynLZO.pas
  10. +5 −7 SynZip.pas
  11. +1 −1 SynopseCommit.inc
@@ -80,16 +80,18 @@ interface
TByteDynArray = array of byte;
PByteDynArray = ^TByteDynArray;
{$ifndef UNICODE}
{$ifdef FPC}
NativeInt = PtrInt;
NativeUInt = PtrUInt;
{$else}
{$ifndef ISDELPHI2010} // Delphi 2009 NativeUInt is buggy
NativeInt = integer;
NativeUInt = cardinal;
{$endif}
{$ifndef UNICODE}
RawByteString = AnsiString;
{$endif}
{$endif}
// this type will store UTF-8 encoded buffer (also on NextGen platform)
{$ifdef NEXTGEN}
@@ -918,12 +918,8 @@ TDeflateState = record
{$ifndef FPC}
type
{$ifdef UNICODE}
PtrUInt = NativeUInt;
{$else}
PtrUInt = cardinal;
{$endif}
{$endif}
PtrUInt = {$ifdef CPU64}NativeUInt{$else}cardinal{$endif};
{$endif FPC}
const
InflateMask: array[0..16] of Cardinal = ($0000, $0001, $0003, $0007, $000F,
@@ -19641,10 +19641,10 @@ TSQLRestClientURI = class(TSQLRestClient)
// optional binary data associated with this user via RetrieveBlobFields()
property SessionUser: TSQLAuthUser read fSessionUser;
/// access to the low-level HTTP header used for authentication
// - e.g. after TSQLRestServerAuthenticationHttpBasic.SetUser
// - you can force here you own header, a JWT as authentication bearer
// - you can force here your own header, e.g. a JWT as authentication bearer
// or as in TSQLRestServerAuthenticationHttpAbstract.ClientSetUserHttpOnlyUser
property SessionHttpHeader: RawUTF8 read fSessionHttpHeader write fSessionHttpHeader;
{$ifndef LVCL}
{$ifndef LVCL}
/// set a callback event to be executed in loop during remote blocking
// process, e.g. to refresh the UI during a somewhat long request
// - if not set, the request will be executed in the current thread,
@@ -19659,7 +19659,7 @@ TSQLRestClientURI = class(TSQLRestClient)
// during process
// - to be used e.g. to ensure no re-entrance from User Interface messages
property OnIdleBackgroundThreadActive: Boolean read GetOnIdleBackgroundThreadActive;
{$endif}
{$endif}
/// this Event is called in case of remote authentication failure
// - client software can ask the user to enter a password and user name
// - if no event is specified, the URI() method will return directly
@@ -19847,7 +19847,7 @@ TSQLRestClientURINamedPipe = class(TSQLRestClientURI)
// expected ApplicationName
procedure DefinitionTo(Definition: TSynConnectionDefinition); override;
end;
{$endif Win32}
{$endif MSWINDOWS}
/// will define a validation to be applied to a TSQLRecord field, using
// if necessary an associated TSQLRest instance and a TSQLRecord class
Oops, something went wrong.

0 comments on commit b8611cd

Please sign in to comment.