From 30e856e9b58677ccef40fda6063fa3f7754cf6e4 Mon Sep 17 00:00:00 2001
From: Vinicius Sanchez <viniciuss.sanchez@gmail.com>
Date: Wed, 8 Sep 2021 16:43:42 -0300
Subject: [PATCH] Free Pascal Improvements

---
 src/BCrypt.Consts.pas | 2 +-
 src/BCrypt.Core.pas   | 2 +-
 src/BCrypt.Types.pas  | 2 +-
 3 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/BCrypt.Consts.pas b/src/BCrypt.Consts.pas
index d589171..78e82b9 100644
--- a/src/BCrypt.Consts.pas
+++ b/src/BCrypt.Consts.pas
@@ -2,7 +2,7 @@
 
 interface
 
-uses System.Types;
+uses {$IFDEF FPC}Types{$ELSE}System.Types{$ENDIF};
 
 const
   BCRYPT_SALT_LEN = 16;
diff --git a/src/BCrypt.Core.pas b/src/BCrypt.Core.pas
index 18a63f9..c1acaab 100644
--- a/src/BCrypt.Core.pas
+++ b/src/BCrypt.Core.pas
@@ -2,7 +2,7 @@
 
 interface
 
-uses System.SysUtils, System.Classes, System.Types, System.StrUtils, System.Math, BCrypt.Types, BCrypt.Intf, BCrypt.Consts;
+uses {$IFDEF FPC}SysUtils, Classes, Types, StrUtils, Math{$ELSE}System.SysUtils, System.Classes, System.Types, System.StrUtils, System.Math{$ENDIF}, BCrypt.Types, BCrypt.Intf, BCrypt.Consts;
 
 type
   TBCryptImpl = class(TInterfacedObject, IBCrypt)
diff --git a/src/BCrypt.Types.pas b/src/BCrypt.Types.pas
index ebdc0c9..2bdaf8a 100644
--- a/src/BCrypt.Types.pas
+++ b/src/BCrypt.Types.pas
@@ -2,7 +2,7 @@
 
 interface
 
-uses System.SysUtils;
+uses {$IFDEF FPC}SysUtils{$ELSE}System.SysUtils{$ENDIF};
 
 type
 {$SCOPEDENUMS ON}