paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 04:59:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

* proper defines of aitconst_ptr, aitconst_ptr_unaligned and aitconst_aint for 16-bit and 8-bit CPUs

Browse Source 
git-svn-id: branches/i8086@24015 -
This commit is contained in:
nickysn 2013-03-27 00:01:30 +00:00
parent b2fc6a2f6d
commit f780d37d5e
1 changed files with 13 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
compiler/aasmtai.pas
View File

@ -142,19 +142,26 @@ interface
);
const
{$ifdef cpu64bitaddr}
{$if defined(cpu64bitaddr)}
aitconst_ptr = aitconst_64bit;
aitconst_ptr_unaligned = aitconst_64bit_unaligned;
{$else cpu64bitaddr}
{$elseif defined(cpu32bitaddr)}
aitconst_ptr = aitconst_32bit;
aitconst_ptr_unaligned = aitconst_32bit_unaligned;
{$endif cpu64bitaddr}
{$elseif defined(cpu16bitaddr)}
aitconst_ptr = aitconst_16bit;
aitconst_ptr_unaligned = aitconst_16bit_unaligned;
{$endif}
{$ifdef cpu64bitalu}
{$if defined(cpu64bitalu)}
aitconst_aint = aitconst_64bit;
{$else cpu64bitaddr}
{$elseif defined(cpu32bitalu)}
aitconst_aint = aitconst_32bit;
{$endif cpu64bitaddr}
{$elseif defined(cpu16bitalu)}
aitconst_aint = aitconst_16bit;
{$elseif defined(cpu8bitalu)}
aitconst_aint = aitconst_8bit;
{$endif}
taitypestr : array[taitype] of string[24] = (
'<none>',