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

- removed an ifdef from DisposeMenu

Browse Source 
git-svn-id: branches/unicodekvm@48741 -
This commit is contained in:
nickysn 2021-02-21 06:40:37 +00:00
parent c271a71060
commit fb7fdfaae4
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/fv/src/menus.inc
View File

@ -1615,7 +1615,7 @@ BEGIN
If (Menu <> Nil) Then Begin { Valid menu item } If (Menu <> Nil) Then Begin { Valid menu item }
P := Menu^.Items; { First item in list } P := Menu^.Items; { First item in list }
While (P <> Nil) Do Begin { Item is valid } While (P <> Nil) Do Begin { Item is valid }
If (P^.Name <> {$ifdef FV_UNICODE}''{$else}Nil{$endif}) Then Begin { Valid name pointer } If (P^.Name <> Sw_PString_Empty) Then Begin { Valid name pointer }
{$ifndef FV_UNICODE} {$ifndef FV_UNICODE}
DisposeStr(P^.Name); { Dispose of name } DisposeStr(P^.Name); { Dispose of name }
{$endif FV_UNICODE} {$endif FV_UNICODE}