Explorar el Código

* fixed compilation after ifdef'ing of m_gpc

git-svn-id: trunk@6520 -
Jonas Maebe hace 18 años
padre
commit
d4160ca74f
Se han modificado 1 ficheros con 2 adiciones y 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);