瀏覽代碼

* always treat interrupt routines as far, so their address can be taken even in
{$F-} mode

git-svn-id: trunk@27591 -

nickysn 11 年之前
父節點
當前提交
9a44ab2fc2
共有 1 個文件被更改,包括 1 次插入1 次删除
  1. 1 1
      compiler/i8086/symcpu.pas

+ 1 - 1
compiler/i8086/symcpu.pas

@@ -263,7 +263,7 @@ implementation
         exit(true);
         exit(true);
       if (procoptions*[po_classmethod,po_virtualmethod,po_abstractmethod,
       if (procoptions*[po_classmethod,po_virtualmethod,po_abstractmethod,
                        po_finalmethod,po_staticmethod,po_overridingmethod,
                        po_finalmethod,po_staticmethod,po_overridingmethod,
-                       po_external,po_public])<>[] then
+                       po_external,po_public,po_interrupt])<>[] then
         exit(true);
         exit(true);
       if is_methodpointer then
       if is_methodpointer then
         exit(true);
         exit(true);