[fpc-devel] Patch for bug 3774

[Thomas Schatzl]

Sterling Bates schrieb:
> This patch adds recognition for hex to Val().
>  
> +      '0' : if (code < length(s)) and (s[code+1]='x') then
> +            begin
> +              base := 16;
> +              Inc(code, 2);
> +            end;

Here's a patch (Delphi also accepts uppercased X) and optimization for
the patch =) (To be applied to the same code version as your patch)

Regards,
      Thomas



-------------- next part --------------
An embedded and charset-unspecified text was scrubbed...
Name: sstrings.inc.diff
URL: <http://lists.freepascal.org/pipermail/fpc-devel/attachments/20050330/b8d6ee37/attachment.ksh>