From 42bd814c42848f43f646d277a7e1dd6e0b970575 Mon Sep 17 00:00:00 2001 From: Doni Pracner Date: Wed, 12 Feb 2014 12:41:10 +0100 Subject: [PATCH] polinoml - deli, doterivanje potrosnje memorije --- kodovi/polinomi/POLINOML.MOD | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/kodovi/polinomi/POLINOML.MOD b/kodovi/polinomi/POLINOML.MOD index fb6db76..1f53f28 100644 --- a/kodovi/polinomi/POLINOML.MOD +++ b/kodovi/polinomi/POLINOML.MOD @@ -302,7 +302,8 @@ PROCEDURE Kolicnik(p1, p2: Polinom; VAR kol, ost: Polinom; VAR ok: BOOLEAN); novi^.k := - ost^.k / p2^.k; novi^.st := ost^.st - p2^.st; MonomPuta(p2, novi, pomocni); - Saberi(ost, pomocni, ost); + SaberiNa(pomocni, ost); + DisposePolinom(pomocni); novi^.k := - novi^.k; UbaciMonom(novi, kol); DISPOSE(novi); -- 2.17.1