|
@@ -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
|
|
|
|
|
|
peter