Sfoglia il codice sorgente

* fixed compilation after ifdef'ing of m_gpc

git-svn-id: trunk@6520 -
Jonas Maebe 18 anni fa
parent
commit
d4160ca74f
1 ha cambiato i file con 2 aggiunte e 0 eliminazioni
  1. 2 0
      compiler/pdecvar.pas

+ 2 - 0
compiler/pdecvar.pas

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