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

+ fixed rename. Changed p to p^

Browse Source
This commit is contained in:
michael 1998-07-19 19:55:32 +00:00
parent 206549900f
commit f48664d6d5
2 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rtl/inc/file.inc
View File

@ -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

7
rtl/inc/text.inc
View File

@ -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