sitno: polinoml tacka zarez na jednom mestu

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

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