Quellcode durchsuchen

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

git-svn-id: trunk@27591 -

nickysn vor 11 Jahren
Ursprung
Commit
9a44ab2fc2
1 geänderte Dateien mit 1 neuen und 1 gelöschten Zeilen
  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);