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

* Fixed missing () in InsertProp which caused memory corruptions

Browse Source 
* GetOrdProp handles Char and WChar now. (there are still some
  property types missing!)
This commit is contained in:
sg 2000-01-05 18:59:56 +00:00
parent a368ec0e7c
commit c44cc56a9a
1 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
rtl/objpas/typinfo.pp
View File

@ -432,7 +432,7 @@ unit typinfo;
I:=0; I:=0;
While (I<Count) and (PI^.Name>PL^[I]^.Name) do Inc(I); While (I<Count) and (PI^.Name>PL^[I]^.Name) do Inc(I);
If I<Count then If I<Count then
Move(PL^[I],PL[I+1],Count-I*SizeOf(Pointer)); Move(PL^[I], PL^[I+1], (Count - I) * SizeOf(Pointer));
PL^[I]:=PI; PL^[I]:=PI;
end; end;
@ -498,9 +498,9 @@ unit typinfo;
end; end;
{ cut off unnecessary stuff } { cut off unnecessary stuff }
case GetTypeData(PropInfo^.PropType)^.OrdType of case GetTypeData(PropInfo^.PropType)^.OrdType of
otSWord,otUWord: otSWord,otUWord,otWChar:
Value:=Value and $ffff; Value:=Value and $ffff;
otSByte,otUByte: otSByte,otUByte,otChar:
Value:=Value and $ff; Value:=Value and $ff;
end; end;
GetOrdProp:=Value; GetOrdProp:=Value;
@ -807,7 +807,12 @@ end.
{ {
$Log$ $Log$
Revision 1.31 1999-12-28 12:19:36 jonas Revision 1.32 2000-01-05 18:59:56 sg
* Fixed missing () in InsertProp which caused memory corruptions
* GetOrdProp handles Char and WChar now. (there are still some
property types missing!)
Revision 1.31 1999/12/28 12:19:36 jonas
* replaced "movl mem,%eax; xorl %eax,%eax" with "movl mem,%eax; * replaced "movl mem,%eax; xorl %eax,%eax" with "movl mem,%eax;
testl %eax,%eax" testl %eax,%eax"