Browse Source

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

Jonas Maebe 23 years ago
parent
commit
a0731e0d02
1 changed files with 4 additions and 4 deletions
  1. 4 4
      rtl/inc/astrings.inc

+ 4 - 4
rtl/inc/astrings.inc

@@ -273,9 +273,6 @@ Function fpc_Char_To_AnsiStr(const c : Char): AnsiString; {$ifdef hascompilerpro
   Converts a Char to a AnsiString;
 }
 begin
-  if c = #0 then
-    { result is automatically set to '' }
-    exit;
   Setlength (fpc_Char_To_AnsiStr,1);
   PByte(Pointer(fpc_Char_To_AnsiStr))^:=byte(c);
   { Terminating Zero }
@@ -800,7 +797,10 @@ end;
 
 {
   $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
 
   Revision 1.21  2001/08/30 15:43:15  jonas