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

+ create defines for CPU ALU size

Browse Source 
git-svn-id: trunk@30441 -
This commit is contained in:
florian 2015-04-05 19:09:28 +00:00
parent a01a010824
commit 73c0422997
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/options.pas
View File

@ -3440,6 +3440,16 @@ begin
def_system_macro('FPC_COMP_IS_INT64');
{$endif aarch64}
{$if defined(cpu8bitalu)}
def_system_macro('CPUINT8');
{$elseif defined(cpu16bitalu)}
def_system_macro('CPUINT16');
{$elseif defined(cpu32bitalu)}
def_system_macro('CPUINT32');
{$elseif defined(cpu64bitalu)}
def_system_macro('CPUINT64');
{$endif defined(cpu64bitalu)}
if tf_cld in target_info.flags then
if not UpdateTargetSwitchStr('CLD', init_settings.targetswitches, true) then
InternalError(2013092801);