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

* Do not use InfoLong as size can be different from InfoPtr used in Message

Browse Source 
git-svn-id: trunk@19844 -
This commit is contained in:
pierre 2011-12-13 16:36:15 +00:00
parent c25a96bd37
commit 3fcf1f0050
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/fpsymbol.pas
View File

@ -1789,7 +1789,7 @@ begin
cmDebuggerStopped :
begin
if Assigned(DebuggerValue) and
(DebuggerValue^.GDBI<>Event.InfoLong) then
(DebuggerValue^.GDBI<>PtrInt(Event.InfoPtr)) then
begin
If Assigned(ST^.Text) then
DisposeStr(ST^.Text);

2
ide/weditor.pas
View File

@ -6950,7 +6950,7 @@ begin
evBroadcast :
case Event.Command of
cminputlinelen : begin
if Event.InfoLong=0 then
if PtrInt(Event.InfoPtr)=0 then
okbutton^.DisableCommands([cmok])
else
okbutton^.EnableCommands([cmok]);