<blockquote><br>IMHO automatic pointer initialization is agianst the Oberon spirit not to have hidden features.</blockquote><blockquote>Anyway automatic initialization is not always a good choiche.</blockquote><blockquote>PROCEDURE ClearList (list: List);</blockquote><blockquote>VAR node, next: Node;  (* pointers to list nodes *)</blockquote><blockquote>BEGIN</blockquote><blockquote>node := list.first; (* first node in list *)</blockquote><blockquote>WHILE node # NIL DO</blockquote><blockquote>  next := node;</blockquote><blockquote>  (* do something here with node *)</blockquote><blockquote>node := NIL;</blockquote><blockquote>node := next;</blockquote><blockquote>END;</blockquote><blockquote>list.first := NIL;</blockquote><blockquote>END ClearList;</blockquote><blockquote>Here node and next pointers initialization is not required</blockquote><blockquote><br></blockquote><blockquote>Regards</blockquote><blockquote>Stefano<br>
 <br>--
 <br>Oberon@lists.inf.ethz.ch mailing list for ETH Oberon and related systems
 <br>
 <a href="https://lists.inf.ethz.ch/mailman/listinfo/oberon">https://lists.inf.ethz.ch/mailman/listinfo/oberon</a>
 <br>
 <br>
</blockquote>
<br>