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

* add far; to typename for far pointer

Browse Source
This commit is contained in:
peter 2000-11-11 16:12:38 +00:00
parent 24b631132e
commit 3c6d0efadc
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/symdef.pas
View File

@ -2251,7 +2251,10 @@ implementation
function tpointerdef.gettypename : string;
begin
gettypename:='^'+pointertype.def^.typename;
if is_far then
gettypename:='^'+pointertype.def^.typename+';far'
else
gettypename:='^'+pointertype.def^.typename;
end;
{****************************************************************************
@ -5521,7 +5524,10 @@ Const local_symtable_index : longint = $8001;
end.
{
$Log$
Revision 1.9 2000-11-07 20:01:57 peter
Revision 1.10 2000-11-11 16:12:38 peter
* add far; to typename for far pointer
Revision 1.9 2000/11/07 20:01:57 peter
* fix vmt index for classes
Revision 1.8 2000/11/06 23:13:53 peter