Improvement of function SetCompileModeSwitch
by 'lagprogramming'.
compiler/scanner.pas has function SetCompileModeSwitch(s:string; changeInit: boolean):boolean;
.
Within the code of the function "s:=copy(s,1,length(s)-1);"
can be encountered twice. The attached patch replaces it with "setlength(s,length(s)-1);"
.