Procházet zdrojové kódy

* write header for crc_only

peter před 22 roky
rodič
revize
895e03b854
1 změnil soubory, kde provedl 6 přidání a 1 odebrání
  1. 6 1
      compiler/ppu.pas

+ 6 - 1
compiler/ppu.pas

@@ -711,6 +711,8 @@ procedure tppufile.writeheader;
 var
 var
   opos : integer;
   opos : integer;
 begin
 begin
+  if crc_only then
+   exit;
   { flush buffer }
   { flush buffer }
   writebuf;
   writebuf;
   { update size (w/o header!) in the header }
   { update size (w/o header!) in the header }
@@ -984,7 +986,10 @@ end;
 end.
 end.
 {
 {
   $Log$
   $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
     * removed funcretn,funcretsym, function result is now in varsym
       and aliases for result and function name are added using absolutesym
       and aliases for result and function name are added using absolutesym
     * vs_hidden parameter for funcret passed in parameter
     * vs_hidden parameter for funcret passed in parameter