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

* fixed real:=variant for non-x86

Browse Source 
git-svn-id: trunk@6847 -
This commit is contained in:
Jonas Maebe 2007-03-14 17:04:15 +00:00
parent b8187becc6
commit 5bf9c58e14
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/inc/variant.inc
View File

@ -462,7 +462,7 @@ end;
{$ifndef VER2_0}
operator :=(const source : variant) dest : real;{$ifdef SYSTEMINLINE}inline;{$endif}
begin
dest:=comp(variantmanager.vartoreal(source));
dest:=variantmanager.vartoreal(source);
end;
{$endif VER2_0}