[fpc-pascal] Packed record

[Carsten Bager]

I am using the compiler on an embedded Arm7 platform (no  
operating system). So fare things are working ok, but now I have  
discovered a problem when packing records (Vi have to maintain  
bindery compatibility with older systems)  
If I have a packed record like this 

Test_typ= packed record 
     B:byte; 
     I:LongInt; 
end;   

Var 
  Test:Test_typ; 

Begin 
  Test.i:=1; 
  Write(test.i); 
End. 
  

The output is wrong. If I remove "Packed" the output is OK. 

Regards 

Carsten 

---------------------------------- 
Compiler version 
Free Pascal Compiler version 2.0.0 [2005/05/15] for arm 
Copyright (c) 1993-2005 by Florian Klaempfl 
Target OS: Linux for ARM 

-- 
Carsten Bager
Bøvlingbjerg El-automatik
Brørupvænget 10
7650 Bøvlingbjerg
Tlf. +4597885222 Fax +4597885434
http://www.beas.dk