paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 19:09:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

Handle new unaligned constant types

Browse Source 
git-svn-id: trunk@22520 -
This commit is contained in:
pierre 2012-10-02 22:30:22 +00:00
parent ae56841ee6
commit 7c1db10df9
2 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/aasmtai.pas
View File

@ -1585,11 +1585,13 @@ implementation
case consttype of case consttype of
aitconst_8bit : aitconst_8bit :
result:=1; result:=1;
aitconst_16bit : aitconst_16bit,aitconst_16bit_unaligned :
result:=2; result:=2;
aitconst_32bit,aitconst_darwin_dwarf_delta32: aitconst_32bit,aitconst_darwin_dwarf_delta32,
aitconst_32bit_unaligned:
result:=4; result:=4;
aitconst_64bit,aitconst_darwin_dwarf_delta64: aitconst_64bit,aitconst_darwin_dwarf_delta64,
aitconst_64bit_unaligned:
result:=8; result:=8;
aitconst_secrel32_symbol, aitconst_secrel32_symbol,
aitconst_rva_symbol : aitconst_rva_symbol :

3
compiler/assemble.pas
View File

@ -1427,6 +1427,9 @@ Implementation
aitconst_64bit, aitconst_64bit,
aitconst_32bit, aitconst_32bit,
aitconst_16bit, aitconst_16bit,
aitconst_64bit_unaligned,
aitconst_32bit_unaligned,
aitconst_16bit_unaligned,
aitconst_8bit : aitconst_8bit :
begin begin
if assigned(tai_const(hp).sym) and if assigned(tai_const(hp).sym) and