From 080125ebfb5488685a030fc22b22859ef5491b82 Mon Sep 17 00:00:00 2001 From: nickysn Date: Mon, 1 Apr 2013 20:25:42 +0000 Subject: * use min and max in defutil.get_common_intdef git-svn-id: http://svn.freepascal.org/svn/fpc/branches/i8086@24120 3ad0048d-3df7-0310-abae-a5850022a9f2 --- compiler/defutil.pas | 10 +++------- 1 file changed, 3 insertions(+), 7 deletions(-) diff --git a/compiler/defutil.pas b/compiler/defutil.pas index 14b82bddcf..359d81d697 100644 --- a/compiler/defutil.pas +++ b/compiler/defutil.pas @@ -309,7 +309,7 @@ interface implementation uses - verbose; + verbose,cutils; { returns true, if def uses FPU } function is_fpu(def : tdef) : boolean; @@ -1220,12 +1220,8 @@ implementation var llow, lhigh: tconstexprint; begin - llow:=rd.low; - if llow>ld.low then - llow:=ld.low; - lhigh:=rd.high; - if lhigh