polinoml - deli, doterivanje potrosnje memorije

[spa1skripta-public.git] / kodovi / polinomi / POLINOML.MOD

diff --git a/kodovi/polinomi/POLINOML.MOD b/kodovi/polinomi/POLINOML.MOD
index fb6db76..1f53f28 100644 (file)
--- 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;\r
         novi^.st := ost^.st - p2^.st;\r
         MonomPuta(p2, novi, pomocni);\r
-        Saberi(ost, pomocni, ost);\r
+        SaberiNa(pomocni, ost);\r
+        DisposePolinom(pomocni);\r
         novi^.k := - novi^.k;\r
         UbaciMonom(novi, kol);\r
         DISPOSE(novi);\r