From d82739d93e180df6f70249e8f4afe7484c0dbac7 Mon Sep 17 00:00:00 2001 From: mattias Date: Tue, 18 Apr 2017 16:11:30 +0000 Subject: [PATCH] codetools: fixed predefine dlist fpc, delphi cardinal, longint git-svn-id: trunk@54630 - --- components/codetools/keywordfunclists.pas | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/components/codetools/keywordfunclists.pas b/components/codetools/keywordfunclists.pas index 47533b537d..c7c4473b13 100644 --- a/components/codetools/keywordfunclists.pas +++ b/components/codetools/keywordfunclists.pas @@ -1681,7 +1681,6 @@ begin Add('BOOLEAN' ,{$ifdef FPC}@{$endif}AllwaysTrue); Add('BYTE' ,{$ifdef FPC}@{$endif}AllwaysTrue); Add('BYTEBOOL' ,{$ifdef FPC}@{$endif}AllwaysTrue); - Add('CARDINAL' ,{$ifdef FPC}@{$endif}AllwaysTrue); Add('CHAR' ,{$ifdef FPC}@{$endif}AllwaysTrue); Add('COMP' ,{$ifdef FPC}@{$endif}AllwaysTrue); Add('CURRENCY' ,{$ifdef FPC}@{$endif}AllwaysTrue); @@ -1694,6 +1693,7 @@ begin Add('LENGTH' ,{$ifdef FPC}@{$endif}AllwaysTrue); Add('LONGBOOL' ,{$ifdef FPC}@{$endif}AllwaysTrue); Add('LONGINT' ,{$ifdef FPC}@{$endif}AllwaysTrue); + Add('LONGWORD' ,{$ifdef FPC}@{$endif}AllwaysTrue); Add('NIL' ,{$ifdef FPC}@{$endif}AllwaysTrue); Add('ORD' ,{$ifdef FPC}@{$endif}AllwaysTrue); Add('POINTER' ,{$ifdef FPC}@{$endif}AllwaysTrue); @@ -1740,6 +1740,7 @@ begin Add('INT64' ,{$ifdef FPC}@{$endif}AllwaysTrue); Add('INTEGER' ,{$ifdef FPC}@{$endif}AllwaysTrue); Add('LENGTH' ,{$ifdef FPC}@{$endif}AllwaysTrue); + Add('LONGINT' ,{$ifdef FPC}@{$endif}AllwaysTrue); Add('LONGWORD' ,{$ifdef FPC}@{$endif}AllwaysTrue); Add('LOW' ,{$ifdef FPC}@{$endif}AllwaysTrue); Add('NIL' ,{$ifdef FPC}@{$endif}AllwaysTrue); @@ -1749,9 +1750,11 @@ begin Add('PRED' ,{$ifdef FPC}@{$endif}AllwaysTrue); Add('QWORD' ,{$ifdef FPC}@{$endif}AllwaysTrue); Add('REAL' ,{$ifdef FPC}@{$endif}AllwaysTrue); + Add('SHORTINT' ,{$ifdef FPC}@{$endif}AllwaysTrue); Add('SHORTSTRING',{$ifdef FPC}@{$endif}AllwaysTrue); Add('SINGLE' ,{$ifdef FPC}@{$endif}AllwaysTrue); Add('SIZEOF' ,{$ifdef FPC}@{$endif}AllwaysTrue); + Add('SMALLINT' ,{$ifdef FPC}@{$endif}AllwaysTrue); Add('STRING' ,{$ifdef FPC}@{$endif}AllwaysTrue); Add('SUCC' ,{$ifdef FPC}@{$endif}AllwaysTrue); Add('TEXT' ,{$ifdef FPC}@{$endif}AllwaysTrue);