polinoml - poliNaN memorija

diff --git a/kodovi/polinomi/POLINOML.MOD b/kodovi/polinomi/POLINOML.MOD
index 1f53f28..74af962 100644 (file)
--- a/kodovi/polinomi/POLINOML.MOD
+++ b/kodovi/polinomi/POLINOML.MOD
@@ -327,18 +327,19 @@ PROCEDURE PolinomNaN(p: Polinom; n: CARDINAL;
                      VAR rez: Polinom);\r
 VAR\r
   i: CARDINAL;\r
+  pret : Polinom;\r
 BEGIN\r
   IF n = 0 THEN\r
     NEW(rez);\r
     rez^.k := 1.0;\r
     rez^.st := 0;\r
     rez^.veza := NIL;\r
-  ELSIF n = 1 THEN\r
-       Kopiraj( p, rez );\r
   ELSE\r
-    rez := p;\r
+    Kopiraj( p, rez );\r
     FOR i := 2 TO n DO\r
-      Puta(rez, p, rez)\r
+      pret := rez;\r
+      Puta(pret, p, rez);\r
+      DisposePolinom(pret);\r
     END\r
   END;\r
 END PolinomNaN;\r