XPost: comp.lang.pascal.misc   
   From: broersma.juda_ANTISPAM_@tiscali.nl   
      
   Op Mon, 09 Jan 2012 15:50:53 +0000 schreef Robert AH Prins   
   :   
      
      
   >repeat   
   >   if list_ptr^.cday[3] = '#' then    <--- 216   
   >     _hash_tr:= pred(list_ptr^.tr);   
   >   
   >   list_ptr:= list_ptr^.list_nxt;   
   >until (_hash_tr <> maxint) or   
   >       (list_ptr  = nil);   
   >   
      
   RTE 216 = GPF I think?   
   if list_ptr = nil on entry the code will crash   
      
     if (list_ptr <> nil) and (list_ptr^.cday[3] = '#') then   
       _hash_tr:= pred(list_ptr^.tr)   
     else writeln('lsit_ptr = nil'); //debug   
      
   See what that comes up with?   
      
   Bart   
      
   --   
   Bart Broersma   
   broersma.juda_ANTISPAM_@tiscali.nl   
   (ff _ANTISPAM_ wegpoetsen uit dit adres natuurlijk)   
      
   --- SoupGate-Win32 v1.05   
    * Origin: you cannot sedate... all the things you hate (1:229/2)