Subj : Re: FPC - trying again :(
To   : All
From : Bart
Date : Mon Jan 09 2012 17:54:43

From: Bart <broersma.juda_ANTISPAM_@tiscali.nl>

Op Mon, 09 Jan 2012 15:50:53 +0000 schreef Robert AH Prins
<spamtrap@prino.org>:


>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)

--- Internet Rex 2.31
 * Origin: The gateway at Omicron Theta (1:261/20.999)

.