From e3fcd02f26e28262b72183e584f2e152dd46f767 Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Wed, 23 Jun 2004 14:45:37 +0000
Subject: [PATCH]   * regenerated

---
 utils/h2pas/h2pas.pas | 12 +++++++++++-
 1 file changed, 11 insertions(+), 1 deletion(-)

diff --git a/utils/h2pas/h2pas.pas b/utils/h2pas/h2pas.pas
index ffaa227734..f75c824ce5 100644
--- a/utils/h2pas/h2pas.pas
+++ b/utils/h2pas/h2pas.pas
@@ -7803,7 +7803,14 @@ begin
      halt(1);
    end;
   assign(outfile, outputfilename);
+  {$I-}
   rewrite(outfile);
+  {$I+}
+  if ioresult<>0 then
+   begin
+     writeln('file ',outputfilename,' could not be created!');
+     halt(1);
+   end;
 { write unit header }
   if not includefile then
    begin
@@ -7873,9 +7880,12 @@ end.
 
 {
   $Log$
-  Revision 1.9  2004-05-23 18:25:53  peter
+  Revision 1.10  2004-06-23 14:45:37  peter
     * 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
   + Patch from Jeff Pohlmeyer to process empty structs