From aa2e2a282945292f41752ee6cbdedb9443bcd5b4 Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Sat, 29 Apr 2006 21:34:02 +0000
Subject: [PATCH] * fix for -Oa parsing, by Roozbeh GHolizadeh

git-svn-id: trunk@3372 -
---
 compiler/options.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/compiler/options.pas b/compiler/options.pas
index 8d6c29b9e4..21932bc540 100644
--- a/compiler/options.pas
+++ b/compiler/options.pas
@@ -897,7 +897,7 @@ begin
                       initoptimizerswitches:=initoptimizerswitches+level3optimizerswitches;
                     'a' :
                       begin
-                        if not(UpdateAlignmentStr(Copy(Opt,j+1,255),ParaAlignment)) then
+                        if not(UpdateAlignmentStr(Copy(Opt,j+3,255),ParaAlignment)) then
                           IllegalPara(opt);
                         break;
                       end;