From 0effe3d81561412153aacd71586b598269c1f896 Mon Sep 17 00:00:00 2001
From: jonas <jonas@3ad0048d-3df7-0310-abae-a5850022a9f2>
Date: Sat, 6 Dec 2008 17:03:39 +0000
Subject:   * 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
---
 compiler/wpo.pas | 5 +++++
 1 file changed, 5 insertions(+)

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;
 
 
-- 
cgit v1.2.1