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

* fixed overflow when histsize=0

Browse Source
This commit is contained in:
peter 2004-12-22 15:45:34 +00:00
parent 2b860db51d
commit d0956aec45
1 changed files with 10 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
fv/histlist.pas
View File

@ -295,7 +295,8 @@ END;
{---------------------------------------------------------------------------} {---------------------------------------------------------------------------}
PROCEDURE InitHistory; PROCEDURE InitHistory;
BEGIN BEGIN
GetMem(HistoryBlock, HistorySize); { Allocate block } if HistorySize>0 then
GetMem(HistoryBlock, HistorySize); { Allocate block }
ClearHistory; { Clear the history } ClearHistory; { Clear the history }
END; END;
@ -305,7 +306,10 @@ END;
PROCEDURE DoneHistory; PROCEDURE DoneHistory;
BEGIN BEGIN
If (HistoryBlock <> Nil) Then { History block valid } If (HistoryBlock <> Nil) Then { History block valid }
FreeMem(HistoryBlock, HistorySize); { Release history block } begin
FreeMem(HistoryBlock); { Release history block }
HistoryBlock:=nil;
end;
END; END;
{+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++} {+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++}
@ -424,7 +428,10 @@ END.
{ {
$Log$ $Log$
Revision 1.12 2004-11-06 17:08:48 peter Revision 1.13 2004-12-22 15:45:34 peter
* fixed overflow when histsize=0
Revision 1.12 2004/11/06 17:08:48 peter
* drawing of tview merged from old fv code * drawing of tview merged from old fv code
} }