Преглед на файлове

fcl-json: fixed compile with fpc 3.2.2

mattias преди 3 години
родител
ревизия
dd6ccd0fb4
променени са 1 файла, в които са добавени 4 реда и са изтрити 1 реда
  1. 4 1
      packages/fcl-json/src/fpjson.pp

+ 4 - 1
packages/fcl-json/src/fpjson.pp

@@ -801,7 +801,10 @@ Function GetJSONStringParserHandler: TJSONStringParserHandler;
 
 implementation
 
-Uses typinfo,sysconst;
+Uses typinfo;
+
+const
+  HexDigits = '01234567890ABCDEF';
 
 Resourcestring
   SErrCannotConvertFromNull = 'Cannot convert data from Null value';