09:22:01 GMT)
lang.pascal.borland:501
From: Marco van de Voort 

On 2012-01-12, Adrian Devries  wrote:
> I've managed to compile your sources with both VirtualPascal and
> FreePascal.

I've succeeded also, but the program crashed. It seems the program assumes
that variables are in sequence in the datasegment, and it uses pointers to
poke into them. Most notably triples of pointers (xxx_nxt, xxx_top, xxx_ptr)

It seems that with the current FPC versions that (wrong) assumption doesn't
apply any more.

The symptom was that lift_top was NIL after readfile, because that pointer
was updated via the above mechanism.

A possible solution would be to enforce grouping with e.g. the following
trick

type PWhateverPointer=pchar;

Type
    THetPointerRecord = packed record
                          nxt,
                          top,
                          _ptr  : PWhateverPointer;
                        end;


const 
     list_dummy :THetPointerRecord = (nxt:nil;top:nil;_ptr:nil);

var
     list_nxt : PWhateverPointer absolute list_dummy.nxt;
     list_top : PWhateverPointer absolute list_dummy.top;
     list_ptr : PWhateverPointer absolute list_dummy._ptr;



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