paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-17 17:59:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

codetools: GetPossibleInitsForVariable: int range

Browse Source 
git-svn-id: trunk@47884 -
This commit is contained in:
mattias 2015-02-18 17:20:28 +00:00
parent 825e32fb05
commit bb14ab36ed
2 changed files with 10 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
components/codetools/codecompletiontool.pas
View File

@ -6085,7 +6085,7 @@ begin
case ExprType.Desc of case ExprType.Desc of
xtContext: xtContext:
begin begin
// ToDo: sets, ranges, records, objects, pointer, class, class of, interface // ToDo: ranges, records, objects, pointer, class, class of, interface
Node:=ExprType.Context.Node; Node:=ExprType.Context.Node;
Tool:=ExprType.Context.Tool; Tool:=ExprType.Context.Tool;
case Node.Desc of case Node.Desc of
@ -6130,6 +6130,11 @@ begin
xtUnicodeString: AddAssignment(''''''); xtUnicodeString: AddAssignment('''''');
xtPChar: begin AddAssignment('nil'); AddAssignment('#0'); end; xtPChar: begin AddAssignment('nil'); AddAssignment('#0'); end;
xtPointer: AddAssignment('nil'); xtPointer: AddAssignment('nil');
xtConstOrdInteger: AddAssignment('0');
xtConstString: AddAssignment('''''');
xtConstReal: AddAssignment('0.0');
xtConstSet: AddAssignment('[]');
xtConstBoolean: begin AddAssignment('False'); AddAssignment('True'); end;
xtLongint, xtLongint,
xtLongWord, xtLongWord,
xtWord, xtWord,

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

@ -22,7 +22,8 @@ begin
end; end;
procedure TestLots({%H-}s: string; {%H-}c: char; {%H-}p: pointer; procedure TestLots({%H-}s: string; {%H-}c: char; {%H-}p: pointer;
{%H-}SignalState: TSignalState; {%H-}ShiftState: TShiftState); {%H-}SignalState: TSignalState; {%H-}ShiftState: TShiftState;
{%H-}HelpCtx: THelpContext);
begin begin
end; end;
@ -34,8 +35,9 @@ var
p: Pointer; p: Pointer;
SignalState: TSignalState; SignalState: TSignalState;
ShiftState: TShiftState; ShiftState: TShiftState;
HelpCtx: THelpContext;
begin begin
TestLots(s,c,p,SignalState,ShiftState); TestLots(s,c,p,SignalState,ShiftState,HelpCtx);
end; end;
end. end.