paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-06 14:47:55 +02:00
Code Issues Packages Projects Releases Wiki Activity

* patch by lagprogramming: Improvement of function SetCompileModeSwitch, resolves #40525

Browse Source
This commit is contained in:
florian 2023-11-19 13:37:37 +01:00
parent 3c4a2c7380
commit e5de38c42d
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/scanner.pas
View File

@ -715,10 +715,10 @@ implementation
doinclude:=true;
case s[length(s)] of
'+':
s:=copy(s,1,length(s)-1);
setlength(s,length(s)-1);
'-':
begin
s:=copy(s,1,length(s)-1);
setlength(s,length(s)-1);
doinclude:=false;
end;
end;