+ fixed rename. Changed p to p^

rtl/inc/file.inc

@@ -291,7 +291,7 @@ Begin
   If FileRec(f).mode=fmClosed Then
    Begin
      Do_Rename(PChar(@FileRec(f).Name),p);
-     Move(p,FileRec(f).Name,StrLen(p)+1);
+     Move(p^,FileRec(f).Name,StrLen(p)+1);
    End;
 End;
 
@@ -319,7 +319,10 @@ End;
 
 {
   $Log$
-  Revision 1.5  1998-07-02 12:15:39  carl
+  Revision 1.6  1998-07-19 19:55:32  michael
+  + fixed rename. Changed p to p^
+
+  Revision 1.5  1998/07/02 12:15:39  carl
     + Each IOCheck routine now checks for InOures before executing, like TP
 
   Revision 1.4  1998/06/23 16:57:16  peter

rtl/inc/text.inc

@@ -181,7 +181,7 @@ Begin
   If TextRec(t).mode=fmClosed Then
    Begin
      Do_Rename(PChar(@TextRec(t).Name),p);
-     Move(p,TextRec(t).Name,StrLen(p)+1);
+     Move(p^,TextRec(t).Name,StrLen(p)+1);
    End;
 End;
 
@@ -1135,7 +1135,10 @@ end;
 
 {
   $Log$
-  Revision 1.16  1998-07-10 11:02:40  peter
+  Revision 1.17  1998-07-19 19:55:33  michael
+  + fixed rename. Changed p to p^
+
+  Revision 1.16  1998/07/10 11:02:40  peter
     * support_fixed, becuase fixed is not 100% yet for the m68k
 
   Revision 1.15  1998/07/06 15:56:43  michael