From de533ed2ccf563c6c02cd732af629108bc54ee68 Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Thu, 22 Apr 1999 10:51:17 +0000
Subject: [PATCH]   * fixed pchar 2 ansi

---
 rtl/inc/astrings.inc | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/rtl/inc/astrings.inc b/rtl/inc/astrings.inc
index f384431732..c160148586 100644
--- a/rtl/inc/astrings.inc
+++ b/rtl/inc/astrings.inc
@@ -251,7 +251,7 @@ Procedure PChar_To_AnsiStr(var a : ansistring;p : pchar);[Public,Alias : 'FPC_PC
 Var
   L : Longint;
 begin
-  if p[0]=#0 Then
+  if (not assigned(p)) or (p[0]=#0) Then
     Pointer(a):=nil
   else
     begin
@@ -761,7 +761,10 @@ end;
 
 {
   $Log$
-  Revision 1.21  1999-04-13 09:02:06  michael
+  Revision 1.22  1999-04-22 10:51:17  peter
+    * fixed pchar 2 ansi
+
+  Revision 1.21  1999/04/13 09:02:06  michael
   + 1 byte too much allocated in new_ansiStringastrings.inc
 
   Revision 1.20  1999/04/09 07:33:15  michael