paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-01 16:44:55 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Allow using constants in {$IF } directive in OBJFPC mode.

Browse Source 
* Define FPC_OBJFPC_EXTENDED_IF to allow to test if this feature can be safely used.

git-svn-id: trunk@9342 -
This commit is contained in:
yury 2007-11-28 00:07:18 +00:00
parent a477a3781a
commit 99a8012472
2 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
compiler/options.pas
View File

@ -2141,6 +2141,7 @@ begin
def_system_macro('FPC_STRTOCHARARRAYPROC');
def_system_macro('FPC_NEW_BIGENDIAN_SETS');
def_system_macro('FPC_STRTOSHORTSTRINGPROC');
def_system_macro('FPC_OBJFPC_EXTENDED_IF');
{$ifdef x86}
def_system_macro('FPC_HAS_INTERNAL_ABS_LONG');
{$endif}

2
compiler/scanner.pas
View File

@ -1012,7 +1012,7 @@ In case not, the value returned can be arbitrary.
{ Default is to return the original symbol }
read_factor:=hs;
if eval and (m_delphi in current_settings.modeswitches) and (ctetString in factorType) then
if eval and ([m_delphi,m_objfpc]*current_settings.modeswitches<>[]) and (ctetString in factorType) then
if searchsym(current_scanner.preproc_pattern,srsym,srsymtable) then
begin
case srsym.typ of