paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 14:49:16 +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 begin
{ for offset of methods for classes, see rtl/inc/objpash.inc } { for offset of methods for classes, see rtl/inc/objpash.inc }
if is_class then if is_class then
vmtmethodoffset:=index*4+48 vmtmethodoffset:=(index+12)*target_os.size_of_pointer
else else
vmtmethodoffset:=index*4+12; vmtmethodoffset:=(index+3)*target_os.size_of_pointer;
end; end;
@ -3629,7 +3629,10 @@ Const local_symtable_index : longint = $8001;
{ {
$Log$ $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 * avoid overflow in tarraydef.size
Revision 1.147 1999/08/09 22:19:55 peter Revision 1.147 1999/08/09 22:19:55 peter