From 227bb7d85095d737d91b2c58e91d1f0ca479b93c Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Tue, 5 Feb 2013 23:09:41 +0000
Subject: [PATCH]   * made behaviour of -CT parameters consistent with other
 parameters: instead     of -CTnoTargetSwitch, now you can (and have to) use
 -CTTargetSwitch- to     disable it

git-svn-id: trunk@23576 -
---
 compiler/globals.pas | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/compiler/globals.pas b/compiler/globals.pas
index f7c0167d6d..958545c5e3 100644
--- a/compiler/globals.pas
+++ b/compiler/globals.pas
@@ -1358,10 +1358,10 @@ implementation
           tok:=GetToken(s,',');
           if tok='' then
            break;
-          setstr:=upper(copy(tok,1,2));
-          if setstr='NO' then
+          setstr:=upper(copy(tok,length(tok),1));
+          if setstr='-' then
             begin
-              delete(tok,1,2);
+              setlength(tok,length(tok)-1);
               doset:=false;
             end
           else