From e4827c36fd5d9a718899819afbc78837c81198b9 Mon Sep 17 00:00:00 2001 From: florian Date: Sun, 16 Nov 2014 20:47:38 +0000 Subject: + change always floating point divisions into multiplications if they are a power of two, this is an exact operation so it is always allowed * change only divisions by normal numbers into multiplications git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@29085 3ad0048d-3df7-0310-abae-a5850022a9f2 --- compiler/globtype.pas | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'compiler/globtype.pas') diff --git a/compiler/globtype.pas b/compiler/globtype.pas index d1879f8cbb..b48a22f7b9 100644 --- a/compiler/globtype.pas +++ b/compiler/globtype.pas @@ -110,12 +110,12 @@ interface {$endif i8086} { Use a variant record to be sure that the array if aligned correctly } - tdoublerec=record + tcompdoublerec=record case byte of 0 : (bytes:array[0..7] of byte); 1 : (value:double); end; - textendedrec=record + tcompextendedrec=record case byte of 0 : (bytes:array[0..9] of byte); 1 : (value:extended); -- cgit v1.2.1