paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-09 17:06:04 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed bug in fpc_char_to_ansistr when converting #0 (found by Peter)

Browse Source
This commit is contained in:
Jonas Maebe 2002-01-07 13:23:53 +00:00
parent 4550770176
commit a0731e0d02
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
rtl/inc/astrings.inc
View File

@ -273,9 +273,6 @@ Function fpc_Char_To_AnsiStr(const c : Char): AnsiString; {$ifdef hascompilerpro
Converts a Char to a AnsiString; Converts a Char to a AnsiString;
} }
begin begin
if c = #0 then
{ result is automatically set to '' }
exit;
Setlength (fpc_Char_To_AnsiStr,1); Setlength (fpc_Char_To_AnsiStr,1);
PByte(Pointer(fpc_Char_To_AnsiStr))^:=byte(c); PByte(Pointer(fpc_Char_To_AnsiStr))^:=byte(c);
{ Terminating Zero } { Terminating Zero }
@ -800,7 +797,10 @@ end;
{ {
$Log$ $Log$
Revision 1.22 2001-11-17 23:58:12 florian Revision 1.23 2002-01-07 13:23:53 jonas
* fixed bug in fpc_char_to_ansistr when converting #0 (found by Peter)
Revision 1.22 2001/11/17 23:58:12 florian
* code of ansitr_concat improved * code of ansitr_concat improved
Revision 1.21 2001/08/30 15:43:15 jonas Revision 1.21 2001/08/30 15:43:15 jonas