paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-03 00:10:51 +02:00
Code Issues Packages Projects Releases Wiki Activity

* regenerated

Browse Source
This commit is contained in:
peter 2004-06-23 14:45:37 +00:00
parent a1c8a8bb37
commit e3fcd02f26
1 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
utils/h2pas/h2pas.pas
View File

@ -7803,7 +7803,14 @@ begin
halt(1); halt(1);
end; end;
assign(outfile, outputfilename); assign(outfile, outputfilename);
{$I-}
rewrite(outfile); rewrite(outfile);
{$I+}
if ioresult<>0 then
begin
writeln('file ',outputfilename,' could not be created!');
halt(1);
end;
{ write unit header } { write unit header }
if not includefile then if not includefile then
begin begin
@ -7873,9 +7880,12 @@ end.
{ {
$Log$ $Log$
Revision 1.9 2004-05-23 18:25:53 peter Revision 1.10 2004-06-23 14:45:37 peter
* regenerated * regenerated
Revision 1.7 2004/06/20 17:56:05 marco
Patch from Christian Iversen. ioresult check when opening for output
Revision 1.6 2003/02/13 22:20:24 michael Revision 1.6 2003/02/13 22:20:24 michael
+ Patch from Jeff Pohlmeyer to process empty structs + Patch from Jeff Pohlmeyer to process empty structs