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

* Fixes in getenum*

Browse Source
This commit is contained in:
michael 1999-05-03 07:30:07 +00:00
parent 1fa9168d0f
commit cdcaec93df
1 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
rtl/objpas/typinfo.pp
View File

@ -727,8 +727,9 @@ unit typinfo;
PT : PTypeData; PT : PTypeData;
begin begin
PT:=GetTypeData(GetTypeData(TypeInfo)^.BaseType); PT:=GetTypeData(TypeInfo);
If PT^.MinValue<0 then Value:=Ord(Value<>0); {map to 0/1} // ^.BaseType);
// If PT^.MinValue<0 then Value:=Ord(Value<>0); {map to 0/1}
PS:=@PT^.NameList; PS:=@PT^.NameList;
While Value>0 Do While Value>0 Do
begin begin
@ -746,7 +747,7 @@ unit typinfo;
begin begin
If Length(Name)=0 then exit(-1); If Length(Name)=0 then exit(-1);
PT:=GetTypeData(GetTypeData(TypeInfo)^.BaseType); PT:=GetTypeData(TypeInfo);
Count:=0; Count:=0;
Result:=-1; Result:=-1;
PS:=@PT^.NameList; PS:=@PT^.NameList;
@ -763,7 +764,10 @@ end.
{ {
$Log$ $Log$
Revision 1.19 1999-04-08 11:31:04 peter Revision 1.20 1999-05-03 07:30:07 michael
* Fixes in getenum*
Revision 1.19 1999/04/08 11:31:04 peter
* removed warnings * removed warnings
Revision 1.18 1999/01/19 16:08:12 pierre Revision 1.18 1999/01/19 16:08:12 pierre