From 3a4afab6816edb3e8052a0ad021192a4a14c6fa2 Mon Sep 17 00:00:00 2001
From: nickysn <nickysn@gmail.com>
Date: Sat, 26 Sep 2015 13:36:51 +0000
Subject: [PATCH] * fixed a bug in the $targetswitch directive, which prevented
 target switches   from being turned off (they were turned on instead)

git-svn-id: trunk@31832 -
---
 compiler/scandir.pas | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/compiler/scandir.pas b/compiler/scandir.pas
index 4dd6666c42..51b03f5ba0 100644
--- a/compiler/scandir.pas
+++ b/compiler/scandir.pas
@@ -1280,6 +1280,11 @@ unit scandir;
             value:=orgpattern;
             UpdateTargetSwitchStr(name+'='+value,current_settings.targetswitches,current_module.in_global);
           end
+        else if c='-' then
+          begin
+            current_scanner.readchar;
+            UpdateTargetSwitchStr(name+'-',current_settings.targetswitches,current_module.in_global);
+          end
         else
           UpdateTargetSwitchStr(name,current_settings.targetswitches,current_module.in_global);
       end;