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

* fixed compilation after ifdef'ing of m_gpc

Browse Source 
git-svn-id: trunk@6520 -
This commit is contained in:
Jonas Maebe 2007-02-17 00:27:26 +00:00
parent 5b6a1fcef8
commit d4160ca74f
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/pdecvar.pas
View File

@ -994,10 +994,12 @@ implementation
until not try_to_consume(_COMMA);
consume(_COLON);
{$ifdef gpc_mode}
if (m_gpc in current_settings.modeswitches) and
(token=_ID) and
(orgpattern='__asmname__') then
read_gpc_name(sc);
{$endif}
{ read variable type def }
read_anon_type(hdef,false);