* abort compilation if an error occurred during wpo initialisation

git-svn-id: http://svn.freepascal.org/svn/fpc/branches/wpo@12308 3ad0048d-3df7-0310-abae-a5850022a9f2

1 files changed, 5 insertions, 0 deletions

diff --git a/compiler/wpo.pas b/compiler/wpo.pas
index 8fbbc1de79..1d3cf4d6e4 100644
--- a/compiler/wpo.pas
+++ b/compiler/wpo.pas
@@ -38,6 +38,7 @@ implementation
 
   uses
     globals,
+    comphook,
     wpobase, wpoinfo;
 
   { called after command line parameters have been parsed }
@@ -58,6 +59,10 @@ implementation
 
       { parse input }
       wpoinfomanager.parseandcheckwpoinfo;
+
+      { abort if error }
+      if (codegenerror) then
+        raise ECompilerAbort.Create;
     end;