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

+ Adaptes Dispatch(STr) to cope with empty/non-existent message tables

Browse Source
This commit is contained in:
michael 1999-07-11 14:10:48 +00:00
parent 47fca5d07f
commit 244f38f14a
1 changed files with 12 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
rtl/inc/objpas.inc
View File

@ -255,8 +255,14 @@
vmt:=ClassType;
while assigned(vmt) do
begin
count:=pdword((pdword(vmt)+vmtMsgStrPtr)^)^;
msgstrtable:=pmsgstrtable((pdword(vmt)+vmtMsgStrPtr)^+4);
p:=(pdword(vmt)+vmtMsgStrPtr);
If (P<>Nil) and (PDWord(P)^<>0) then
begin
count:=pdword(pdword(p)^)^;
msgstrtable:=pmsgstrtable(pdword(P)^+4);
end
else
Count:=0;
{ later, we can implement a binary search here }
for i:=0 to count-1 do
begin
@ -324,7 +330,10 @@
{
$Log$
Revision 1.6 1999-07-11 14:05:50 michael
Revision 1.7 1999-07-11 14:10:48 michael
+ Adaptes Dispatch(STr) to cope with empty/non-existent message tables
Revision 1.6 1999/07/11 14:05:50 michael
+ Added
Revision 1.5 1999/07/05 20:04:24 peter