paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-02 06:23:35 +01:00
Code Issues Packages Projects Releases Wiki Activity

codetools: GetPossibleInitsForVariable: pointer type

Browse Source 
git-svn-id: trunk@48084 -
This commit is contained in:
mattias 2015-03-01 14:58:12 +00:00
parent 9c4afe526b
commit b07fc833ca
2 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/codetools/codecompletiontool.pas
View File

@ -6108,6 +6108,8 @@ begin
ctnClass,ctnClassInterface,ctnDispinterface,
ctnObjCClass,ctnObjCCategory,ctnObjCProtocol,ctnCPPClass:
AddAssignment('nil');
ctnPointerType:
AddAssignment('nil');
end;
end;
xtChar,

6
components/codetools/examples/scanexamples/initvars1.pas
View File

@ -23,7 +23,8 @@ end;
procedure TestLots({%H-}s: string; {%H-}c: char; {%H-}p: pointer;
{%H-}SignalState: TSignalState; {%H-}ShiftState: TShiftState;
{%H-}HelpCtx: THelpContext; {%H-}Event: TNotifyEvent; {%H-}E: EStreamError);
{%H-}HelpCtx: THelpContext; {%H-}Event: TNotifyEvent; {%H-}E: EStreamError;
{%H-}pc: PChar);
begin
end;
@ -38,8 +39,9 @@ var
HelpCtx: THelpContext;
Event: TNotifyEvent;
E: EStreamError;
pc: PChar;
begin
TestLots(s,c,p,SignalState,ShiftState,HelpCtx,Event,E);
TestLots(s,c,p,SignalState,ShiftState,HelpCtx,Event,E,pc);
end;
end.