+ Removed STR_USES_VALINT define

git-svn-id: trunk@305 -

rtl/inc/astrings.inc

@@ -633,11 +633,7 @@ begin
 end;
 
 
-{$ifdef STR_USES_VALINT}
 Procedure fpc_AnsiStr_UInt(v : ValUInt;Len : SizeInt; Var S : AnsiString);[Public,Alias : 'FPC_ANSISTR_VALUINT']; compilerproc;
-{$else}
-Procedure fpc_AnsiStr_Longword(v : Longword;Len : SizeInt; Var S : AnsiString);[Public,Alias : 'FPC_ANSISTR_CARDINAL']; compilerproc;
-{$endif}
 Var
   SS : ShortString;
 begin
@@ -647,11 +643,7 @@ end;
 
 
 
-{$ifdef STR_USES_VALINT}
 Procedure fpc_AnsiStr_SInt(v : ValSInt;Len : SizeInt; Var S : AnsiString);[Public,Alias : 'FPC_ANSISTR_VALSINT']; compilerproc;
-{$else}
-Procedure fpc_AnsiStr_Longint(v : Longint; Len : SizeInt; Var S : AnsiString);[Public,Alias : 'FPC_ANSISTR_LONGINT']; compilerproc;
-{$endif}
 Var
   SS : ShortString;
 begin

rtl/inc/compproc.inc

@@ -67,7 +67,6 @@ procedure fpc_dynarray_incr_ref(p : pointer); compilerproc;
 procedure fpc_dynarray_setlength(var p : pointer;pti : pointer; dimcount : dword;dims : pdynarrayindex); compilerproc;
 
 { Str() support }
-{$ifdef STR_USES_VALINT}
 procedure fpc_ShortStr_sint(v : valsint;len : SizeInt;var s : shortstring); compilerproc;
 procedure fpc_shortstr_uint(v : valuint;len : SizeInt;var s : shortstring); compilerproc;
 procedure fpc_chararray_sint(v : valsint;len : SizeInt;var a : array of char); compilerproc;
@@ -76,16 +75,6 @@ procedure fpc_AnsiStr_sint(v : valsint; Len : SizeInt; Var S : AnsiString); comp
 procedure fpc_AnsiStr_uint(v : valuint;Len : SizeInt; Var S : AnsiString); compilerproc;
 procedure fpc_WideStr_sint(v : valsint; Len : SizeInt; Var S : WideString); compilerproc;
 procedure fpc_WideStr_uint(v : valuint;Len : SizeInt; Var S : WideString); compilerproc;
-{$else}
-procedure fpc_ShortStr_Longint(v : longint;len : longint;var s : shortstring); compilerproc;
-procedure fpc_shortstr_longword(v : longword;len : longint;var s : shortstring); compilerproc;
-procedure fpc_chararray_Longint(v : longint;len : longint;var a : array of char); compilerproc;
-procedure fpc_chararray_longword(v : longword;len : longint;var a : array of char); compilerproc;
-procedure fpc_AnsiStr_Longint(v : Longint; Len : Longint; Var S : AnsiString); compilerproc;
-procedure fpc_AnsiStr_Longword(v : Longword;Len : Longint; Var S : AnsiString); compilerproc;
-procedure fpc_WideStr_Longint(v : Longint; Len : Longint; Var S : WideString); compilerproc;
-procedure fpc_WideStr_Longword(v : Longword;Len : Longint; Var S : WideString); compilerproc;
-{$endif}
 {$ifndef CPU64}
 procedure fpc_shortstr_qword(v : qword;len : SizeInt;var s : shortstring); compilerproc;
 procedure fpc_shortstr_int64(v : int64;len : SizeInt;var s : shortstring); compilerproc;

rtl/inc/sstrings.inc

@@ -351,22 +351,14 @@ end;
                               Str() Helpers
 *****************************************************************************}
 
-{$ifdef STR_USES_VALINT}
 procedure fpc_shortstr_SInt(v : valSInt;len : SizeInt;var s : shortstring);[public,alias:'FPC_SHORTSTR_SINT']; compilerproc;
-{$else}
-procedure fpc_shortstr_longint(v : longint;len : SizeInt;var s : shortstring);[public,alias:'FPC_SHORTSTR_LONGINT']; compilerproc;
-{$endif}
 begin
   int_str(v,s);
   if length(s)<len then
     s:=space(len-length(s))+s;
 end;
 
-{$ifdef STR_USES_VALINT}
 procedure fpc_shortstr_UInt(v : valUInt;len : SizeInt;var s : shortstring);[public,alias:'FPC_SHORTSTR_UINT']; compilerproc;
-{$else}
-  procedure fpc_shortstr_longword(v : longword;len : SizeInt;var s : shortstring);[public,alias:'FPC_SHORTSTR_LONGWORD']; compilerproc;
-{$endif}
 begin
   int_str(v,s);
   if length(s)<len then
@@ -409,11 +401,7 @@ end;
    Array Of Char Str() helpers
 }
 
-{$ifdef STR_USES_VALINT}
 procedure fpc_chararray_sint(v : valsint;len : SizeInt;var a:array of char);compilerproc;
-{$else}
-procedure fpc_chararray_longint(v : longint;len : SizeInt;var a:array of char);compilerproc;
-{$endif}
 var
   ss : shortstring;
   maxlen : SizeInt;
@@ -429,11 +417,7 @@ begin
 end;
 
 
-{$ifdef STR_USES_VALINT}
 procedure fpc_chararray_uint(v : valuint;len : SizeInt;var a : array of char);compilerproc;
-{$else}
-procedure fpc_chararray_longword(v : longword;len : SizeInt;var a : array of char);compilerproc;
-{$endif}
 var
   ss : shortstring;
   maxlen : SizeInt;

rtl/inc/wstrings.inc

@@ -1007,11 +1007,7 @@ begin
 end;
 
 
-{$ifdef STR_USES_VALINT}
 Procedure fpc_WideStr_SInt(v : ValSint; Len : SizeInt; Var S : WideString);compilerproc;
-{$else}
-Procedure fpc_WideStr_Longint(v : Longint; Len : SizeInt; Var S : WideString);compilerproc;
-{$endif}
 Var
   SS : ShortString;
 begin
@@ -1020,11 +1016,7 @@ begin
 end;
 
 
-{$ifdef STR_USES_VALINT}
 Procedure fpc_WideStr_UInt(v : ValUInt;Len : SizeInt; Var S : WideString);compilerproc;
-{$else}
-Procedure fpc_WideStr_Longword(v : Longword;Len : SizeInt; Var S : WideString);compilerproc;
-{$endif}
 Var
   SS : ShortString;
 begin