Thunderbird/9.0.1
mp.lang.pascal.misc:207
From: Robert AH Prins 

On 2012-01-09 16:54, Bart wrote:
> 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?

To be quite honest, I don't see the point in adding extra code to detect 
something that cannot occur unless there is a failure earlier in the 
program. What I really need is a clue as to why the "reset(liftin)" 
fails when I'm running the program inside the IDE.

FWIW, full source can be found in "lift32bit.rar" in the Files section 
of the hitching group on Yahoo! 
 
The sources contain two parts, pure Pascal and assemblerized Pascal 
{$ifdef asm} Input data is in liftdat.rar at the same location. In the 
FPC version I had to comment out the code in the "write_time" procedure, 
need to look at the differences in parameters between VP and FPC, VP 
uses longint's in GetTime, FPC doesn't like them.

Other than the fact that the programs are meant to process hitchhike 
data, they might serve as a prime example as to what can be done using 
VP's built-in assembler, the assemblerized version of "lift" is around 
15k smaller than the Pascal version, which tells you something about the 
quality of the VP generated code, which is really, really bad. (And the 
FPC generated code is, as I already mentioned, not a lot better...)

Robert
-- 
Robert AH Prins
robert(a)prino(d)org

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