From 6387c3634638b613cdcac6914f5cd5c6537ddb1a Mon Sep 17 00:00:00 2001 From: florian Date: Thu, 15 Jun 2006 16:46:07 +0000 Subject: [PATCH] * fixed make cycle git-svn-id: trunk@3871 - --- compiler/nmat.pas | 14 ++++++++------ 1 file changed, 8 insertions(+), 6 deletions(-) diff --git a/compiler/nmat.pas b/compiler/nmat.pas index 84a16e19cf..f2ced45389 100644 --- a/compiler/nmat.pas +++ b/compiler/nmat.pas @@ -110,13 +110,15 @@ implementation if is_constintnode(right) then begin if tordconstnode(right).value = 1 then - case nodetype of - modn: - result := cordconstnode.create(0,left.resulttype,true); - divn: - result := left.getcopy; + begin + case nodetype of + modn: + result := cordconstnode.create(0,left.resulttype,true); + divn: + result := left.getcopy; + end; + exit; end; - exit; end; if is_constintnode(right) and is_constintnode(left) then