瀏覽代碼

* write header for crc_only

peter 22 年之前
父節點
當前提交
895e03b854
共有 1 個文件被更改,包括 6 次插入1 次删除
  1. 6 1
      compiler/ppu.pas

+ 6 - 1
compiler/ppu.pas

@@ -711,6 +711,8 @@ procedure tppufile.writeheader;
 var
   opos : integer;
 begin
+  if crc_only then
+   exit;
   { flush buffer }
   writebuf;
   { update size (w/o header!) in the header }
@@ -984,7 +986,10 @@ end;
 end.
 {
   $Log$
-  Revision 1.34  2003-04-25 20:59:34  peter
+  Revision 1.35  2003-05-23 17:03:51  peter
+    * write header for crc_only
+
+  Revision 1.34  2003/04/25 20:59:34  peter
     * removed funcretn,funcretsym, function result is now in varsym
       and aliases for result and function name are added using absolutesym
     * vs_hidden parameter for funcret passed in parameter