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

* copied from fvnew the changed that I made toremove runerror(199)

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

23
fv/histlist.pas
View File

@ -240,9 +240,23 @@ END;
{---------------------------------------------------------------------------}
PROCEDURE InsertString (Id: Byte; Const Str: String);
VAR P1, P2: PChar;
P : PHistRec;
BEGIN
While ((HistoryUsed-LongInt(HistoryBlock) +
Length(Str) > HistorySize)) Do RunError(199); { Check sufficient memory }
while (HistoryUsed+Length(Str)+3>HistorySize) do
begin
P:=PHistRec(HistoryBlock);
while Pointer(P)<Pointer(HistoryBlock)+HistorySize do
begin
if Pointer(P)+Length(P^.Str)+6+Length(Str) >
Pointer(HistoryBlock)+HistorySize then
begin
HistoryUsed:=HistoryUsed-(Length(P^.Str)+3);
FillChar(P^,Pointer(HistoryBlock)+HistorySize-Pointer(P),#0);
break;
end;
P:=PHistRec(Pointer(P)+Length(P^.Str)+3);
end;
end;
P1 := PChar(HistoryBlock)+1; { First history record }
P2 := P1+Length(Str)+3; { History record after }
Move(P1^, P2^, HistoryUsed -
@ -400,7 +414,10 @@ END.
{
$Log$
Revision 1.3 2001-08-04 19:14:33 peter
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
* Added Makefiles
* added FV specific units and objects from old FV

23
fvision/histlist.pas
View File

@ -240,9 +240,23 @@ END;
{---------------------------------------------------------------------------}
PROCEDURE InsertString (Id: Byte; Const Str: String);
VAR P1, P2: PChar;
P : PHistRec;
BEGIN
While ((HistoryUsed-LongInt(HistoryBlock) +
Length(Str) > HistorySize)) Do RunError(199); { Check sufficient memory }
while (HistoryUsed+Length(Str)+3>HistorySize) do
begin
P:=PHistRec(HistoryBlock);
while Pointer(P)<Pointer(HistoryBlock)+HistorySize do
begin
if Pointer(P)+Length(P^.Str)+6+Length(Str) >
Pointer(HistoryBlock)+HistorySize then
begin
HistoryUsed:=HistoryUsed-(Length(P^.Str)+3);
FillChar(P^,Pointer(HistoryBlock)+HistorySize-Pointer(P),#0);
break;
end;
P:=PHistRec(Pointer(P)+Length(P^.Str)+3);
end;
end;
P1 := PChar(HistoryBlock)+1; { First history record }
P2 := P1+Length(Str)+3; { History record after }
Move(P1^, P2^, HistoryUsed -
@ -400,7 +414,10 @@ END.
{
$Log$
Revision 1.3 2001-08-04 19:14:33 peter
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
* Added Makefiles
* added FV specific units and objects from old FV