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

* virtual method pointers in the objpas.TVmt record declared as codepointer; the vmtXXX constants also fixed

Browse Source 
git-svn-id: trunk@25192 -
This commit is contained in:
nickysn 2013-07-30 23:02:32 +00:00
parent 9b364f4989
commit 728e8c62a7
1 changed files with 25 additions and 25 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

50
rtl/inc/objpash.inc
View File

@ -47,18 +47,18 @@
{ methods } { methods }
vmtMethodStart = vmtParent+sizeof(pointer)*10; vmtMethodStart = vmtParent+sizeof(pointer)*10;
vmtDestroy = vmtMethodStart; vmtDestroy = vmtMethodStart;
vmtNewInstance = vmtMethodStart+sizeof(pointer); vmtNewInstance = vmtMethodStart+sizeof(codepointer);
vmtFreeInstance = vmtMethodStart+sizeof(pointer)*2; vmtFreeInstance = vmtMethodStart+sizeof(codepointer)*2;
vmtSafeCallException = vmtMethodStart+sizeof(pointer)*3; vmtSafeCallException = vmtMethodStart+sizeof(codepointer)*3;
vmtDefaultHandler = vmtMethodStart+sizeof(pointer)*4; vmtDefaultHandler = vmtMethodStart+sizeof(codepointer)*4;
vmtAfterConstruction = vmtMethodStart+sizeof(pointer)*5; vmtAfterConstruction = vmtMethodStart+sizeof(codepointer)*5;
vmtBeforeDestruction = vmtMethodStart+sizeof(pointer)*6; vmtBeforeDestruction = vmtMethodStart+sizeof(codepointer)*6;
vmtDefaultHandlerStr = vmtMethodStart+sizeof(pointer)*7; vmtDefaultHandlerStr = vmtMethodStart+sizeof(codepointer)*7;
vmtDispatch = vmtMethodStart+sizeof(pointer)*8; vmtDispatch = vmtMethodStart+sizeof(codepointer)*8;
vmtDispatchStr = vmtMethodStart+sizeof(pointer)*9; vmtDispatchStr = vmtMethodStart+sizeof(codepointer)*9;
vmtEquals = vmtMethodStart+sizeof(pointer)*10; vmtEquals = vmtMethodStart+sizeof(codepointer)*10;
vmtGetHashCode = vmtMethodStart+sizeof(pointer)*11; vmtGetHashCode = vmtMethodStart+sizeof(codepointer)*11;
vmtToString = vmtMethodStart+sizeof(pointer)*12; vmtToString = vmtMethodStart+sizeof(codepointer)*12;
{ IInterface } { IInterface }
S_OK = 0; S_OK = 0;
@ -110,19 +110,19 @@
vAutoTable: Pointer; vAutoTable: Pointer;
vIntfTable: PInterfaceTable; vIntfTable: PInterfaceTable;
vMsgStrPtr: pstringmessagetable; vMsgStrPtr: pstringmessagetable;
vDestroy: Pointer; vDestroy: CodePointer;
vNewInstance: Pointer; vNewInstance: CodePointer;
vFreeInstance: Pointer; vFreeInstance: CodePointer;
vSafeCallException: Pointer; vSafeCallException: CodePointer;
vDefaultHandler: Pointer; vDefaultHandler: CodePointer;
vAfterConstruction: Pointer; vAfterConstruction: CodePointer;
vBeforeDestruction: Pointer; vBeforeDestruction: CodePointer;
vDefaultHandlerStr: Pointer; vDefaultHandlerStr: CodePointer;
vDispatch: Pointer; vDispatch: CodePointer;
vDispatchStr: Pointer; vDispatchStr: CodePointer;
vEquals: Pointer; vEquals: CodePointer;
vGetHashCode: Pointer; vGetHashCode: CodePointer;
vToString: Pointer; vToString: CodePointer;
end; end;
PGuid = ^TGuid; PGuid = ^TGuid;