Explorar o código

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

git-svn-id: trunk@27591 -

nickysn %!s(int64=11) %!d(string=hai) anos
pai
achega
9a44ab2fc2
Modificáronse 1 ficheiros con 1 adicións e 1 borrados
  1. 1 1
      compiler/i8086/symcpu.pas

+ 1 - 1
compiler/i8086/symcpu.pas

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