瀏覽代碼

* declare the type symbol of an internal def as sp_internal

Sven/Sarah Barth 3 年之前
父節點
當前提交
8bef91d1de
共有 1 個文件被更改,包括 1 次插入0 次删除
  1. 1 0
      compiler/symdef.pas

+ 1 - 0
compiler/symdef.pas

@@ -5110,6 +5110,7 @@ implementation
         if n<>'' then
         if n<>'' then
           begin
           begin
             ts:=ctypesym.create(n,self);
             ts:=ctypesym.create(n,self);
+            include(ts.symoptions,sp_internal);
             { avoid hints about unused types (these may only be used for
             { avoid hints about unused types (these may only be used for
               typed constant data) }
               typed constant data) }
             ts.increfcount;
             ts.increfcount;