Sfoglia il codice sorgente

* 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 -

Jonas Maebe 12 anni fa
parent
commit
227bb7d850
1 ha cambiato i file con 3 aggiunte e 3 eliminazioni
  1. 3 3
      compiler/globals.pas

+ 3 - 3
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