Browse Source

* fixed compilation after ifdef'ing of m_gpc

git-svn-id: trunk@6520 -
Jonas Maebe 18 năm trước cách đây
mục cha
commit
d4160ca74f
1 tập tin đã thay đổi với 2 bổ sung0 xóa
  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);