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

* use sizesinttype instead of ptrsinttype for the $length and $mlength fields,

Browse Source 
when creating the $pvmt system type

git-svn-id: trunk@34650 -
This commit is contained in:
nickysn 2016-10-08 00:48:34 +00:00
parent 163d54c33e
commit 5501061115
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/psystem.pas
View File

@ -543,8 +543,8 @@ implementation
type is not available. The rtti for pvmt will be written implicitly
by thev tblarray below }
systemunit.insert(ctypesym.create('$pvmt',pvmttype,true));
addfield(hrecst,cfieldvarsym.create('$length',vs_value,ptrsinttype,[],true));
addfield(hrecst,cfieldvarsym.create('$mlength',vs_value,ptrsinttype,[],true));
addfield(hrecst,cfieldvarsym.create('$length',vs_value,sizesinttype,[],true));
addfield(hrecst,cfieldvarsym.create('$mlength',vs_value,sizesinttype,[],true));
addfield(hrecst,cfieldvarsym.create('$parent',vs_value,pvmttype,[],true));
{ it seems vmttype is used both for TP objects and Delphi classes,
so the next entry could either be the first virtual method (vm1)