Compiler bug?

type

tParmRecX = record
eProjectName : String[12];
end;

var
parX : array[0..59] of byte;
ParmRecX[@parX] : tParmRecX;
......
......
ProgName : String[12];

begin
ProgName := ParmRecX.eProjectName;

And all other types please test

Hi Miparo

Fix attached.



This is of course not possible.

The best I can hope to do is batch test all demo programs (although that will of course only pick up compile issues, not run issues) but that is of course very time expensive. I will look into how I can do batch runs.

Unit Comptest;

interface


type
tParmRecX = record
xProgVerStart : word;
eProjectName : string[12];
end;
{--------------------------------------------------------------}
{ Var Declarations }
var

{--------------------------------------------------------------}
{ functions }


implementation
// local part

{--------------------------------------------------------------}
{ Type Declarations }
type
TWzSocket = record
inherit tParmRecX;
end;