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

* fixed make cycle

Browse Source 
git-svn-id: trunk@3871 -
This commit is contained in:
florian 2006-06-15 16:46:07 +00:00
parent 5fa53a1a8c
commit 6387c36346
1 changed files with 8 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
compiler/nmat.pas
View File

@ -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