paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 12:09:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

* ptrint -> ptruint

Browse Source 
git-svn-id: trunk@7888 -
This commit is contained in:
daniel 2007-07-01 09:41:07 +00:00
parent d4280b3dec
commit 32216bcccd
1 changed files with 6 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
rtl/inc/generic.inc
View File

@ -368,7 +368,7 @@ type
ppointer = ^pointer; ppointer = ^pointer;
pvmt = ^tvmt; pvmt = ^tvmt;
tvmt=packed record tvmt=packed record
size,msize:ptrint; size,msize:ptruint;
parent:pointer; parent:pointer;
end; end;
var var
@ -406,7 +406,7 @@ type
ppointer = ^pointer; ppointer = ^pointer;
pvmt = ^tvmt; pvmt = ^tvmt;
tvmt = packed record tvmt = packed record
size,msize : ptrint; size,msize : ptruint;
parent : pointer; parent : pointer;
end; end;
begin begin
@ -428,18 +428,11 @@ end;
{$ifndef FPC_SYSTEM_HAS_FPC_HELP_FAIL} {$ifndef FPC_SYSTEM_HAS_FPC_HELP_FAIL}
{ Note: _self will not be reset, the compiler has to generate the reset } { Note: _self will not be reset, the compiler has to generate the reset }
procedure fpc_help_fail(_self:pointer;var _vmt:pointer;vmt_pos:cardinal);[public,alias:'FPC_HELP_FAIL'];compilerproc; procedure fpc_help_fail(_self:pointer;var _vmt:pointer;vmt_pos:cardinal);[public,alias:'FPC_HELP_FAIL'];compilerproc;
type
ppointer = ^pointer;
pvmt = ^tvmt;
tvmt = packed record
size,msize : ptrint;
parent : pointer;
end;
begin begin
if (_self=nil) or (_vmt=nil) then if (_self=nil) or (_vmt=nil) then
exit; exit;
{ vmt=-1 when memory was allocated } { vmt=$ffffffff when memory was allocated }
if ptrint(_vmt)=-1 then if ptruint(_vmt)=high(ptruint) then
begin begin
if (_self=nil) or (ppointer(_self+vmt_pos)^=nil) then if (_self=nil) or (ppointer(_self+vmt_pos)^=nil) then
HandleError(210) HandleError(210)
@ -462,7 +455,7 @@ procedure fpc_check_object(_vmt : pointer); [public,alias:'FPC_CHECK_OBJECT'];
type type
pvmt = ^tvmt; pvmt = ^tvmt;
tvmt = packed record tvmt = packed record
size,msize : ptrint; size,msize : ptruint;
parent : pointer; parent : pointer;
end; end;
begin begin
@ -483,7 +476,7 @@ procedure fpc_check_object_ext(vmt, expvmt : pointer); [public,alias:'FPC_CHECK_
type type
pvmt = ^tvmt; pvmt = ^tvmt;
tvmt = packed record tvmt = packed record
size,msize : ptrint; size,msize : ptruint;
parent : pointer; parent : pointer;
end; end;
begin begin