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

* fix for -Oa parsing, by Roozbeh GHolizadeh

Browse Source 
git-svn-id: trunk@3372 -
This commit is contained in:
florian 2006-04-29 21:34:02 +00:00
parent 1ec04be995
commit aa2e2a2829
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

@ -897,7 +897,7 @@ begin
initoptimizerswitches:=initoptimizerswitches+level3optimizerswitches; initoptimizerswitches:=initoptimizerswitches+level3optimizerswitches;
'a' : 'a' :
begin begin
if not(UpdateAlignmentStr(Copy(Opt,j+1,255),ParaAlignment)) then if not(UpdateAlignmentStr(Copy(Opt,j+3,255),ParaAlignment)) then
IllegalPara(opt); IllegalPara(opt);
break; break;
end; end;