On Fri, Jul 31, 2009 at 01:10:46PM +0200, Kevin Wolf wrote: > + kedit: Integerkonstanten duerfen auch ein U fuer unsigned enthalten > > Signed-off-by: Kevin Wolf <kevin@xxxxxxxxxx> > --- > src/modules/pas/kedit/syntax.pas | 13 +++++++++++++ > 1 files changed, 13 insertions(+), 0 deletions(-) > > diff --git a/src/modules/pas/kedit/syntax.pas b/src/modules/pas/kedit/syntax.pas > index bef4df3..b382265 100644 > --- a/src/modules/pas/kedit/syntax.pas > +++ b/src/modules/pas/kedit/syntax.pas > @@ -88,6 +88,7 @@ function MatchesNumber(s: String; pos: integer): integer; > var > i: integer; > long: integer; > + unsigned: boolean; > needfig: boolean; > hex: boolean; > prefix: boolean; > @@ -97,6 +98,7 @@ begin > end; > > long := 0; > + unsigned := false; > needfig := false; > hex := false; > prefix := false; > @@ -118,6 +120,17 @@ begin > MatchesNumber := i - pos; > end; > exit; > + end else if (s[i] in ['u', 'U']) then begin > + if unsigned then begin > + MatchesNumber := 0; > + exit; > + end; > + unsigned := true; > + > + if long > 0 then begin > + // LUL is nicht erlaubt > + long := 2; > + end; > end else if (s[i] in ['l', 'L']) then begin > Inc(long); > if long > 2 then begin Acked-by: Alexander Siol <alex@xxxxxxxxxx> > -- > 1.6.0.2 > > _______________________________________________ > tyndur-devel mailing list > tyndur-devel@xxxxxxxxxx > http://list.tyndur.org/mailman/listinfo/tyndur-devel
Attachment:
signature.asc
Description: Digital signature