Skip to content
Permalink
Browse files

file to fix Delphi 2009+ compilation warning after #226 ;)

  • Loading branch information...
Arnaud Bouchez
Arnaud Bouchez committed Aug 1, 2019
1 parent 90ef904 commit af977e234c7a94c8150f9bded9d298b885267088
Showing with 4 additions and 4 deletions.
  1. +3 −3 SynSQLite3.pas
  2. +1 −1 SynopseCommit.inc
@@ -3264,7 +3264,7 @@ TSQLBlobStream = class(TStream)
/// background thread used for TSQLDatabase.BackupBackground() process
TSQLDatabaseBackupThread = class(TThread)
protected
fBackupDestFile: RawUTF8;
fBackupDestFile: TFileName;
fSourceDB: TSQLDatabase;
fDestDB: TSQLDatabase;
fStepPageNumber, fStepSleepMS: Integer;
@@ -3292,7 +3292,7 @@ TSQLDatabaseBackupThread = class(TThread)
/// the raised exception in case of backupFailure notification
property FailureError: Exception read fError;
/// the backup target database file name
property BackupDestFile: RawUTF8 read fBackupDestFile;
property BackupDestFile: TFileName read fBackupDestFile;
published
/// the current state of the backup process
// - only set before a call to TSQLDatabaseBackupEvent
@@ -5717,7 +5717,7 @@ constructor TSQLDatabaseBackupThread.Create(Backup: TSQLite3Backup;
fBackup := Backup;
fSourceDB := Source;
fDestDB := Dest;
fBackupDestFile := fDestDB.fFileName;
fBackupDestFile := Dest.fFileName;
if StepPageNumber=0 then
fStepPageNumber := 1 else
fStepPageNumber := StepPageNumber;
@@ -1 +1 @@
'1.18.5301'
'1.18.5302'

0 comments on commit af977e2

Please sign in to comment.
You can’t perform that action at this time.