paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-07 04:59:29 +01:00
Code Issues Packages Projects Releases Wiki Activity

* fixed class messages for PowerPC64, due to a wrong typecast

Browse Source 
git-svn-id: trunk@1363 -
This commit is contained in:
tom_at_work 2005-10-12 22:28:51 +00:00
parent cd3f064a33
commit 0b34b01a6d
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/inc/objpas.inc
View File

@ -413,9 +413,9 @@
begin
// See if we have messages at all in this class.
p:=pointer(vmt)+vmtDynamicTable;
If Assigned(p) and (Pdword(p)^<>0) then
If assigned(PPointer(p)^) then
begin
msgtable:=pmsgtable(PtrInt(p^)+4);
msgtable:=pmsgtable(Pointer(p^)+4);
count:=pdword(p^)^;
end
else