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

codetools: fixed TEventsCodeTool.MethodTypeDataToStr for fpc 3.0+

Browse Source 
git-svn-id: trunk@55200 -
This commit is contained in:
mattias 2017-06-04 06:45:02 +00:00
parent 1184822164
commit 378cbd62c0
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
components/codetools/eventcodetool.pas
View File

@ -197,8 +197,7 @@ begin
ParamString:='';
for i:=0 to ParamCount-1 do begin
// read ParamFlags
// ToDo: check this: SizeOf(TParamFlags) is 4, but the data is only 1 byte
Len:=1; // typinfo.pp comment is wrong: SizeOf(TParamFlags)
Len:={$IF FPC_FULLVERSION>=30000}SizeOf(TParamFlags){$ELSE}1{$ENDIF};
ParamType.Flags:=[];
Move(TypeData^.ParamList[Offset],ParamType.Flags,Len);
inc(Offset,Len);