浏览代码

* uf_local_browser made problem when computing interface CRC

pierre 26 年之前
父节点
当前提交
e1744c9db6
共有 1 个文件被更改,包括 8 次插入3 次删除
  1. 8 3
      compiler/symtable.pas

+ 8 - 3
compiler/symtable.pas

@@ -1937,7 +1937,8 @@ implementation
 
          { write static symtable
            needed for local debugging of unit functions }
-        if (current_module^.flags and uf_local_browser)<>0 then
+        if ((current_module^.flags and uf_local_browser)<>0) and
+           assigned(current_module^.localsymtable) then
           psymtable(current_module^.localsymtable)^.write;
       { write all browser section }
         if (current_module^.flags and uf_has_browser)<>0 then
@@ -1953,7 +1954,8 @@ implementation
            current_ppu^.writeentry(ibendbrowser);
            current_ppu^.do_crc:=true;
          end;
-        if (current_module^.flags and uf_local_browser)<>0 then
+        if ((current_module^.flags and uf_local_browser)<>0) and
+           assigned(current_module^.localsymtable) then
           psymtable(current_module^.localsymtable)^.write_browser;
 
       { the last entry ibend is written automaticly }
@@ -2348,7 +2350,10 @@ implementation
 end.
 {
   $Log$
-  Revision 1.42  1999-08-13 21:33:13  peter
+  Revision 1.43  1999-08-27 10:39:24  pierre
+   * uf_local_browser made problem when computing interface CRC
+
+  Revision 1.42  1999/08/13 21:33:13  peter
     * support for array constructors extended and more error checking
 
   Revision 1.41  1999/08/13 14:24:22  pierre