X-Git-Url: http://svarog.pmf.uns.ac.rs/gitweb/?p=spa1skripta-public.git;a=blobdiff_plain;f=kodovi%2Fpolinomi%2FPOLINOML.MOD;h=1623cb8f60f5b5369d5e6cde3af162d0c8e49f5b;hp=74af962c988ff9ce1be426d931c151374d47dcef;hb=87e5ad8b805393185679739de75a30dde1e2be82;hpb=391e0a12d2593ab45a8a0ab56daab8858f922f1d

diff --git a/kodovi/polinomi/POLINOML.MOD b/kodovi/polinomi/POLINOML.MOD
index 74af962..1623cb8 100644
--- a/kodovi/polinomi/POLINOML.MOD
+++ b/kodovi/polinomi/POLINOML.MOD
@@ -273,7 +273,7 @@ END MonomPuta;
 
 PROCEDURE Puta(p1, p2: Polinom; VAR pr: Polinom);
 VAR
-  pomocni: Polinom;
+  pomocni, brisi: Polinom;
 BEGIN
   Anuliraj(pr);
   IF (p1 <> NIL) AND (p2 <> NIL) THEN
@@ -283,7 +283,9 @@ BEGIN
       MonomPuta(p1, p2, pomocni);
       REPEAT
         UbaciMonom(pomocni, pr);
-        pomocni := pomocni^.veza
+        brisi := pomocni;
+        pomocni := pomocni^.veza;
+        DISPOSE(brisi);
       UNTIL pomocni = NIL;
       p2 := p2^.veza
     END