paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 13:39:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Avoid unitialized VM variable in Preferences method

Browse Source 
git-svn-id: trunk@17911 -
This commit is contained in:
pierre 2011-07-02 07:03:00 +00:00
parent c8218eaab8
commit b85355636e
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
ide/fpmopts.inc
View File

@ -972,6 +972,7 @@ var R,R2: TRect;
i : word; i : word;
begin begin
New(C, Init(10,50)); New(C, Init(10,50));
CurVP:=nil;
for i:=0 to GetVideoModeCount-1 do for i:=0 to GetVideoModeCount-1 do
begin begin
GetVideoModeData(i,VM); GetVideoModeData(i,VM);