paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-19 18:59:10 +02:00
Code Issues Packages Projects Releases Wiki Activity

Codetools: Try to support OleVariant type. Does not work. Issue #41704.

Browse Source
This commit is contained in:
Juha 2025-07-01 17:06:16 +03:00
parent e94a1ce5a1
commit 7acf414c64
2 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/codetools/finddeclarationtool.pas
View File

@ -280,6 +280,7 @@ type
xtNativeUInt, // depends on compiler and platform
xtCompilerFunc,// SUCC, PREC, LOW, HIGH, ORD, LENGTH, COPY (1.1), ...
xtVariant, // variant
xtOleVariant, // OleVariant
xtJSValue, // jsvalue only in Pas2JS, similar to variant
xtNil, // nil = pointer, class, procedure, method, ...
xtSizeInt // SizeInt for Length intrinsic
@ -337,6 +338,7 @@ var
'NativeUInt',
'CompilerFunc',
'Variant',
'OleVariant',
'JSValue',
'Nil',
'SizeInt'
@ -1385,6 +1387,8 @@ begin
Result:=xtConstBoolean
else if CompareIdentifiers(Identifier,'VARIANT')=0 then
Result:=xtVariant
else if CompareIdentifiers(Identifier,'OLEVARIANT')=0 then
Result:=xtOleVariant
else if CompareIdentifiers(Identifier,'CURRENCY')=0 then
Result:=xtCurrency
else if CompareIdentifiers(Identifier,'LONGINT')=0 then

1
components/codetools/keywordfunclists.pas
View File

@ -1864,6 +1864,7 @@ begin
Add('TRUE' ,{$ifdef FPC}@{$endif}AllwaysTrue);
Add('UNICODESTRING',{$ifdef FPC}@{$endif}AllwaysTrue);
Add('VARIANT' ,{$ifdef FPC}@{$endif}AllwaysTrue);
Add('OLEVARIANT' ,{$ifdef FPC}@{$endif}AllwaysTrue);
Add('WIDECHAR' ,{$ifdef FPC}@{$endif}AllwaysTrue);
Add('WIDESTRING' ,{$ifdef FPC}@{$endif}AllwaysTrue);
Add('WORD' ,{$ifdef FPC}@{$endif}AllwaysTrue);