paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-02 05:09:49 +01:00
Code Issues Packages Projects Releases Wiki Activity

* removed another bug in InsertString

Browse Source
This commit is contained in:
pierre 2001-11-07 22:07:55 +00:00
parent f43d2d17e4
commit ddf6883e03
2 changed files with 10 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
fv/histlist.pas
View File

@ -259,8 +259,7 @@ BEGIN
end;
P1 := PChar(HistoryBlock)+1; { First history record }
P2 := P1+Length(Str)+3; { History record after }
Move(P1^, P2^, HistoryUsed -
LongInt(HistoryBlock) - 1); { Shuffle history data }
Move(P1^, P2^, HistoryUsed - 1); { Shuffle history data }
PHistRec(P1)^.Zero := 0; { Set marker byte }
PHistRec(P1)^.Id := Id; { Set history id }
{$IFDEF PPC_DELPHI3} { DELPHI3+ COMPILER }
@ -414,7 +413,10 @@ END.
{
$Log$
Revision 1.4 2001-11-07 21:50:40 pierre
Revision 1.5 2001-11-07 22:07:55 pierre
* removed another bug in InsertString
Revision 1.4 2001/11/07 21:50:40 pierre
* copied from fvnew the changed that I made toremove runerror(199)
Revision 1.3 2001/08/04 19:14:33 peter

8
fvision/histlist.pas
View File

@ -259,8 +259,7 @@ BEGIN
end;
P1 := PChar(HistoryBlock)+1; { First history record }
P2 := P1+Length(Str)+3; { History record after }
Move(P1^, P2^, HistoryUsed -
LongInt(HistoryBlock) - 1); { Shuffle history data }
Move(P1^, P2^, HistoryUsed - 1); { Shuffle history data }
PHistRec(P1)^.Zero := 0; { Set marker byte }
PHistRec(P1)^.Id := Id; { Set history id }
{$IFDEF PPC_DELPHI3} { DELPHI3+ COMPILER }
@ -414,7 +413,10 @@ END.
{
$Log$
Revision 1.4 2001-11-07 21:50:40 pierre
Revision 1.5 2001-11-07 22:07:55 pierre
* removed another bug in InsertString
Revision 1.4 2001/11/07 21:50:40 pierre
* copied from fvnew the changed that I made toremove runerror(199)
Revision 1.3 2001/08/04 19:14:33 peter