paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-29 22:20: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 type is not available. The rtti for pvmt will be written implicitly
by thev tblarray below } by thev tblarray below }
systemunit.insert(ctypesym.create('$pvmt',pvmttype,true)); systemunit.insert(ctypesym.create('$pvmt',pvmttype,true));
addfield(hrecst,cfieldvarsym.create('$length',vs_value,ptrsinttype,[],true)); addfield(hrecst,cfieldvarsym.create('$length',vs_value,sizesinttype,[],true));
addfield(hrecst,cfieldvarsym.create('$mlength',vs_value,ptrsinttype,[],true)); addfield(hrecst,cfieldvarsym.create('$mlength',vs_value,sizesinttype,[],true));
addfield(hrecst,cfieldvarsym.create('$parent',vs_value,pvmttype,[],true)); addfield(hrecst,cfieldvarsym.create('$parent',vs_value,pvmttype,[],true));
{ it seems vmttype is used both for TP objects and Delphi classes, { it seems vmttype is used both for TP objects and Delphi classes,
so the next entry could either be the first virtual method (vm1) so the next entry could either be the first virtual method (vm1)