paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-16 08:00:52 +02: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 }
vmtMethodStart = vmtParent+sizeof(pointer)*10;
vmtDestroy = vmtMethodStart;
vmtNewInstance = vmtMethodStart+sizeof(pointer);
vmtFreeInstance = vmtMethodStart+sizeof(pointer)*2;
vmtSafeCallException = vmtMethodStart+sizeof(pointer)*3;
vmtDefaultHandler = vmtMethodStart+sizeof(pointer)*4;
vmtAfterConstruction = vmtMethodStart+sizeof(pointer)*5;
vmtBeforeDestruction = vmtMethodStart+sizeof(pointer)*6;
vmtDefaultHandlerStr = vmtMethodStart+sizeof(pointer)*7;
vmtDispatch = vmtMethodStart+sizeof(pointer)*8;
vmtDispatchStr = vmtMethodStart+sizeof(pointer)*9;
vmtEquals = vmtMethodStart+sizeof(pointer)*10;
vmtGetHashCode = vmtMethodStart+sizeof(pointer)*11;
vmtToString = vmtMethodStart+sizeof(pointer)*12;
vmtNewInstance = vmtMethodStart+sizeof(codepointer);
vmtFreeInstance = vmtMethodStart+sizeof(codepointer)*2;
vmtSafeCallException = vmtMethodStart+sizeof(codepointer)*3;
vmtDefaultHandler = vmtMethodStart+sizeof(codepointer)*4;
vmtAfterConstruction = vmtMethodStart+sizeof(codepointer)*5;
vmtBeforeDestruction = vmtMethodStart+sizeof(codepointer)*6;
vmtDefaultHandlerStr = vmtMethodStart+sizeof(codepointer)*7;
vmtDispatch = vmtMethodStart+sizeof(codepointer)*8;
vmtDispatchStr = vmtMethodStart+sizeof(codepointer)*9;
vmtEquals = vmtMethodStart+sizeof(codepointer)*10;
vmtGetHashCode = vmtMethodStart+sizeof(codepointer)*11;
vmtToString = vmtMethodStart+sizeof(codepointer)*12;
{ IInterface }
S_OK = 0;
@ -110,19 +110,19 @@
vAutoTable: Pointer;
vIntfTable: PInterfaceTable;
vMsgStrPtr: pstringmessagetable;
vDestroy: Pointer;
vNewInstance: Pointer;
vFreeInstance: Pointer;
vSafeCallException: Pointer;
vDefaultHandler: Pointer;
vAfterConstruction: Pointer;
vBeforeDestruction: Pointer;
vDefaultHandlerStr: Pointer;
vDispatch: Pointer;
vDispatchStr: Pointer;
vEquals: Pointer;
vGetHashCode: Pointer;
vToString: Pointer;
vDestroy: CodePointer;
vNewInstance: CodePointer;
vFreeInstance: CodePointer;
vSafeCallException: CodePointer;
vDefaultHandler: CodePointer;
vAfterConstruction: CodePointer;
vBeforeDestruction: CodePointer;
vDefaultHandlerStr: CodePointer;
vDispatch: CodePointer;
vDispatchStr: CodePointer;
vEquals: CodePointer;
vGetHashCode: CodePointer;
vToString: CodePointer;
end;
PGuid = ^TGuid;