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

* small changes (copyright, typo, readability)

Browse Source 
git-svn-id: trunk@23022 -
This commit is contained in:
florian 2012-11-18 17:28:30 +00:00
parent 87bb1fe33e
commit 45f60bc4b5
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/x86/nx86con.pas
View File

@ -1,5 +1,5 @@
{ {
Copyright (c) 1998-2002 by Florian Klaempfl Copyright (c) 1998-2012 by Florian Klaempfl and others
Generate i386 assembler for constants Generate i386 assembler for constants
@ -44,13 +44,13 @@ implementation
cga,cgx86,cgobj,cgbase,cgutils; cga,cgx86,cgobj,cgbase,cgutils;
{***************************************************************************** {*****************************************************************************
TI386REALCONSTNODE TX86REALCONSTNODE
*****************************************************************************} *****************************************************************************}
function tx86realconstnode.pass_1 : tnode; function tx86realconstnode.pass_1 : tnode;
begin begin
result:=nil; result:=nil;
if is_number_float(value_real) and not(use_vectorfpu(resultdef)) and (value_real=1.0) or (value_real=0.0) then if is_number_float(value_real) and not(use_vectorfpu(resultdef)) and ((value_real=1.0) or (value_real=0.0)) then
expectloc:=LOC_FPUREGISTER expectloc:=LOC_FPUREGISTER
else else
expectloc:=LOC_CREFERENCE; expectloc:=LOC_CREFERENCE;