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

+ Removed HASOVERLOADASSIGNBYUNIQUERESULT define

Browse Source 
git-svn-id: trunk@315 -
This commit is contained in:
michael 2005-06-09 18:08:11 +00:00
parent 198b2104be
commit b29507407e
2 changed files with 0 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/inc/variant.inc
View File

@ -476,12 +476,10 @@ begin
end; end;
{$ifdef HASOVERLOADASSIGNBYUNIQUERESULT}
operator :=(const source : variant) dest : tdatetime; operator :=(const source : variant) dest : tdatetime;
begin begin
dest:=variantmanager.vartotdatetime(source); dest:=variantmanager.vartotdatetime(source);
end; end;
{$endif HASOVERLOADASSIGNBYUNIQUERESULT}
{********************************************************************** {**********************************************************************
Operators Operators

2
rtl/inc/varianth.inc
View File

@ -292,9 +292,7 @@ operator :=(const source : variant) dest : comp;
{ Misc. } { Misc. }
operator :=(const source : variant) dest : currency; operator :=(const source : variant) dest : currency;
{$ifdef HASOVERLOADASSIGNBYUNIQUERESULT}
operator :=(const source : variant) dest : tdatetime; operator :=(const source : variant) dest : tdatetime;
{$endif HASOVERLOADASSIGNBYUNIQUERESULT}
{********************************************************************** {**********************************************************************
Operators Operators