paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-29 21:20:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fixed handling of OleVariant type (was messed up with Variant), now comparisons with colevarianttype work correctly, resolves #22504 (r21970 was correct but not enough).

Browse Source 
git-svn-id: trunk@21976 -
This commit is contained in:
sergei 2012-07-27 08:32:36 +00:00
parent b0458b55a3
commit a7311f1348
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/psystem.pas
View File

@ -378,7 +378,7 @@ implementation
addtype('$openchararray',openchararraytype);
addtype('$file',cfiletype);
addtype('$variant',cvarianttype);
addtype('$olevariant',cvarianttype);
addtype('$olevariant',colevarianttype);
if init_settings.fputype<>fpu_none then
begin
addtype('$s32real',s32floattype);