Index: sstrings.inc
===================================================================
RCS file: /FPC/CVS/fpc/rtl/inc/sstrings.inc,v
retrieving revision 1.35
diff -w -b -i -u -p -1 -0 -r1.35 sstrings.inc
--- sstrings.inc	20 Mar 2005 12:45:19 -0000	1.35
+++ sstrings.inc	27 Mar 2005 05:12:42 -0000
@@ -552,20 +552,25 @@ begin
       '%' : begin
               base:=2;
               inc(code);
             end;
       '&' : begin
               Base:=8;
               repeat
                 inc(code);
               until (code>=length(s)) or (s[code]<>'0');
             end;
+      '0' : if (code < length(s)) and (s[code+1]='x') then
+            begin
+              base := 16;
+              Inc(code, 2);
+            end;
      end;
   end;
   InitVal:=code;
 end;
 
 
 Function fpc_Val_SInt_ShortStr(DestSize: SizeInt; Const S: ShortString; var Code: ValSInt): ValSInt; [public, alias:'FPC_VAL_SINT_SHORTSTR']; {$ifdef hascompilerproc} compilerproc; {$endif}
 var
   u, temp, prev, maxPrevValue, maxNewValue: ValUInt;
   base : byte;