paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-01 21:50:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

* use CodePointer instead of Pointer in TObject.MethodName() and .MethodAddress() for i8086 medium memory model compatibility

Browse Source 
git-svn-id: trunk@25152 -
This commit is contained in:
nickysn 2013-07-20 22:08:38 +00:00
parent 2e97de9522
commit ef2423128f
2 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
rtl/inc/objpas.inc
View File

@ -374,7 +374,7 @@
type type
tmethodnamerec = packed record tmethodnamerec = packed record
name : pshortstring; name : pshortstring;
addr : pointer; addr : codepointer;
end; end;
tmethodnametable = packed record tmethodnametable = packed record
@ -384,7 +384,7 @@
pmethodnametable = ^tmethodnametable; pmethodnametable = ^tmethodnametable;
class function TObject.MethodAddress(const name : shortstring) : pointer; class function TObject.MethodAddress(const name : shortstring) : codepointer;
var var
methodtable : pmethodnametable; methodtable : pmethodnametable;
@ -411,7 +411,7 @@
end; end;
class function TObject.MethodName(address : pointer) : shortstring; class function TObject.MethodName(address : codepointer) : shortstring;
var var
methodtable : pmethodnametable; methodtable : pmethodnametable;
i : dword; i : dword;

4
rtl/inc/objpash.inc
View File

@ -211,8 +211,8 @@
class function InheritsFrom(aclass : tclass) : boolean; class function InheritsFrom(aclass : tclass) : boolean;
class function StringMessageTable : pstringmessagetable; class function StringMessageTable : pstringmessagetable;
class function MethodAddress(const name : shortstring) : pointer; class function MethodAddress(const name : shortstring) : codepointer;
class function MethodName(address : pointer) : shortstring; class function MethodName(address : codepointer) : shortstring;
function FieldAddress(const name : shortstring) : pointer; function FieldAddress(const name : shortstring) : pointer;
{ new since Delphi 4 } { new since Delphi 4 }