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

* cosmetics

Browse Source
This commit is contained in:
florian 2021-11-07 14:46:03 +01:00
parent f570b6cb7b
commit c917639b91
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/options.pas
View File

@ -1623,7 +1623,7 @@ begin
Str(cf,cpuflagsstr); Str(cf,cpuflagsstr);
{ expect that the cpuflagsstr i.e. the enum as well contains _HAS_ } { expect that the cpuflagsstr i.e. the enum as well contains _HAS_ }
if Pos('_HAS_',cpuflagsstr)<>0 then if Pos('_HAS_',cpuflagsstr)<>0 then
{ get rid of prefix include _HAS_ } { get rid of prefix including _HAS_ }
Delete(cpuflagsstr,1,Pos('_HAS_',cpuflagsstr)+4) Delete(cpuflagsstr,1,Pos('_HAS_',cpuflagsstr)+4)
else else
Internalerror(2021110601); Internalerror(2021110601);