paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-09 03:49:05 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fix compilation after Lacos changes to TFieldType

Browse Source 
git-svn-id: trunk@47223 -
This commit is contained in:
michael 2020-10-27 14:27:49 +00:00
parent 63aed04024
commit 7f6d0fec96
2 changed files with 11 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
packages/fcl-sdo/src/das/sdo_das_utils.pas
View File

@ -58,10 +58,14 @@ const
//ftOraTimeStamp, ftOraInterval
{$IFEND }
{$IF Declared(ftLongWord)}
, StringType, StringType, StringType, StringType, StringType, StringType, StringType,
//ftLongWord, ftShortint, ftByte, ftExtended, ftConnection, ftParams, ftStream,
, StringType, StringType, StringType, StringType
//ftLongWord, ftShortint, ftByte, ftExtended,
{$IFNDEF FPC}
, StringType, StringType, StringType,
// ftConnection, ftParams, ftStream,
StringType, StringType, StringType
//ftTimeStampOffset, ftObject, ftSingle
{$ENDIF}
{$IFEND }
);

9
packages/fcl-web/src/restbridge/sqldbrestschema.pp
View File

@ -1220,13 +1220,14 @@ class function TSQLDBRestResource.FieldTypeToRestFieldType(
Const
Map : Array[TFieldType] of TRestFieldType =
(rftUnknown, rftString, rftInteger, rftInteger, rftInteger, // ftUnknown, ftString, ftSmallint, ftInteger, ftWord,
(rftUnknown, rftString, rftInteger, rftInteger, rftInteger, // ftUnknown, ftString, ftSmallint, ftInteger, ftWord,
rftBoolean, rftFloat, rftFloat, rftFloat, rftDate, rftTime, rftDateTime, // ftBoolean, ftFloat, ftCurrency, ftBCD, ftDate, ftTime, ftDateTime,
rftBlob, rftBlob, rftInteger, rftBlob, rftString, rftUnknown, rftString, // ftBytes, ftVarBytes, ftAutoInc, ftBlob, ftMemo, ftGraphic, ftFmtMemo,
rftUnknown, rftUnknown, rftUnknown, rftUnknown, rftString, // ftParadoxOle, ftDBaseOle, ftTypedBinary, ftCursor, ftFixedChar,
rftUnknown, rftUnknown, rftUnknown, rftUnknown, rftString, // ftParadoxOle, ftDBaseOle, ftTypedBinary, ftCursor, ftFixedChar,
rftString, rftLargeInt, rftUnknown, rftUnknown, rftUnknown, // ftWideString, ftLargeint, ftADT, ftArray, ftReference,
rftUnknown, rftBlob, rftBlob, rftUnknown, rftUnknown, // ftDataSet, ftOraBlob, ftOraClob, ftVariant, ftInterface,
rftUnknown, rftString, rftDateTime, rftFloat, rftString, rftString /// ftIDispatch, ftGuid, ftTimeStamp, ftFMTBcd, ftFixedWideChar, ftWideMemo
rftUnknown, rftBlob, rftBlob, rftUnknown, rftUnknown, // ftDataSet, ftOraBlob, ftOraClob, ftVariant, ftInterface,
rftUnknown, rftString, rftDateTime, rftFloat, rftString, rftString, // ftIDispatch, ftGuid, ftTimeStamp, ftFMTBcd, ftFixedWideChar, ftWideMemo
rftDateTime, rftDateTime, rftInteger, rftInteger, rftInteger, rftFloat // ftOraTimeStamp, ftOraInterval, ftLongWord, ftShortint, ftByte, ftExtended
);
begin