Explorar o código

* fixed compilation after ifdef'ing of m_gpc

git-svn-id: trunk@6520 -
Jonas Maebe %!s(int64=18) %!d(string=hai) anos
pai
achega
d4160ca74f
Modificáronse 1 ficheiros con 2 adicións e 0 borrados
  1. 2 0
      compiler/pdecvar.pas

+ 2 - 0
compiler/pdecvar.pas

@@ -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);