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

* fixed the defines of OS_PAIR and OS_SPAIR for cpus with 16-bit or 8-bit ALU

Browse Source 
git-svn-id: branches/i8086@23797 -
This commit is contained in:
nickysn 2013-03-12 01:00:40 +00:00
parent d72d496478
commit 8d6017348a
1 changed files with 13 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
compiler/cgbase.pas
View File

@ -294,17 +294,27 @@ interface
tvarregable2tcgloc : array[tvarregable] of tcgloc = (LOC_VOID,
LOC_CREGISTER,LOC_CFPUREGISTER,LOC_CMMREGISTER,LOC_CREGISTER);
{$ifdef cpu64bitalu}
{$if defined(cpu64bitalu)}
{ operand size describing an unsigned value in a pair of int registers }
OS_PAIR = OS_128;
{ operand size describing an signed value in a pair of int registers }
OS_SPAIR = OS_S128;
{$else cpu64bitalu}
{$elseif defined(cpu32bitalu)}
{ operand size describing an unsigned value in a pair of int registers }
OS_PAIR = OS_64;
{ operand size describing an signed value in a pair of int registers }
OS_SPAIR = OS_S64;
{$endif cpu64bitalu}
{$elseif defined(cpu16bitalu)}
{ operand size describing an unsigned value in a pair of int registers }
OS_PAIR = OS_32;
{ operand size describing an signed value in a pair of int registers }
OS_SPAIR = OS_S32;
{$elseif defined(cpu8bitalu)}
{ operand size describing an unsigned value in a pair of int registers }
OS_PAIR = OS_16;
{ operand size describing an signed value in a pair of int registers }
OS_SPAIR = OS_S16;
{$endif}
{ Table to convert tcgsize variables to the correspondending
unsigned types }