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

+ Fix GetPropList when Proplist is nil

Browse Source
This commit is contained in:
michael 2004-06-24 23:43:14 +00:00
parent cf3c1198ea
commit a657c82a59
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
rtl/objpas/typinfo.pp
View File

@ -588,7 +588,8 @@ begin
PropInfo:=TempList^[i];
If PropInfo^.PropType^.Kind in TypeKinds then
begin
InsertProp(PropList,PropInfo,Result);
If (PropList<>Nil) then
InsertProp(PropList,PropInfo,Result);
Inc(Result);
end;
end;
@ -1436,7 +1437,10 @@ end;
end.
{
$Log$
Revision 1.26 2004-06-02 14:33:18 michael
Revision 1.27 2004-06-24 23:43:14 michael
+ Fix GetPropList when Proplist is nil
Revision 1.26 2004/06/02 14:33:18 michael
+ Patch from matthias gaertner to fix GetMethodProp with procedural spec
Revision 1.25 2004/05/24 21:05:19 florian