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

* vmtmethodoffset made cross target compatible

Browse Source
This commit is contained in:
pierre 1999-08-10 13:22:08 +00:00
parent aca546d6d2
commit 7982d8c842
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/symdef.inc
View File

@ -3198,9 +3198,9 @@ Const local_symtable_index : longint = $8001;
begin
{ for offset of methods for classes, see rtl/inc/objpash.inc }
if is_class then
vmtmethodoffset:=index*4+48
vmtmethodoffset:=(index+12)*target_os.size_of_pointer
else
vmtmethodoffset:=index*4+12;
vmtmethodoffset:=(index+3)*target_os.size_of_pointer;
end;
@ -3629,7 +3629,10 @@ Const local_symtable_index : longint = $8001;
{
$Log$
Revision 1.148 1999-08-10 12:32:13 pierre
Revision 1.149 1999-08-10 13:22:08 pierre
* vmtmethodoffset made cross target compatible
Revision 1.148 1999/08/10 12:32:13 pierre
* avoid overflow in tarraydef.size
Revision 1.147 1999/08/09 22:19:55 peter