Waldek Hebisch wrote:
The following program used to work:
PROGRAM FOO; CONST IDLNGTH = 12; TYPE ALPHA = ARRAY [1..IDLNGTH] OF CHAR; IDENTIFIER = PACKED RECORD NAME: ALPHA; END; VAR FILID : IDENTIFIER ; I, J : INTEGER;
BEGIN J := 0 ; FOR I := 1 TO IDLNGTH DO J := J + ORD(FILID.NAME[I]) ; WRITELN('OK') END .
With gpc-20030507 I get the following:
name4.p:15: cannot take address of packed record field `NAME'
Fix.
Frank