浏览代码

* importprocedure fix by Armin Diehl

Tomas Hajny 23 年之前
父节点
当前提交
1d3e33cd0f
共有 1 个文件被更改,包括 5 次插入1 次删除
  1. 5 1
      compiler/targets/t_nwm.pas

+ 5 - 1
compiler/targets/t_nwm.pas

@@ -134,6 +134,7 @@ begin
   { do nothing with the procedure, only set the mangledname }
   if name<>'' then
     aktprocdef.setmangledname(name)
+    aktprocdef.has_mangledname:=true;
   else
     message(parser_e_empty_import_name);
 end;
@@ -538,7 +539,10 @@ initialization
 end.
 {
   $Log$
-  Revision 1.12  2001-11-02 22:58:12  peter
+  Revision 1.13  2002-03-03 13:00:39  hajny
+    * importprocedure fix by Armin Diehl
+
+  Revision 1.12  2001/11/02 22:58:12  peter
     * procsym definition rewrite
 
   Revision 1.11  2001/09/18 11:32:00  michael