浏览代码

* Silence warning in MakeSharedLibrary

git-svn-id: trunk@17750 -
pierre 14 年之前
父节点
当前提交
e4bb241409
共有 1 个文件被更改,包括 1 次插入0 次删除
  1. 1 0
      compiler/systems/t_nwm.pas

+ 1 - 0
compiler/systems/t_nwm.pas

@@ -971,6 +971,7 @@ end;
     Function  TInternalLinkerNetware.MakeSharedLibrary:boolean;
     Function  TInternalLinkerNetware.MakeSharedLibrary:boolean;
     begin
     begin
       Comment(V_Error,'Make shared library not supported for netware');
       Comment(V_Error,'Make shared library not supported for netware');
+      MakeSharedLibrary := false;
     end;
     end;
 
 
 {*****************************************************************************
 {*****************************************************************************