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

* fixed web bug #3226: type p = type pointer;

Browse Source
This commit is contained in:
florian 2004-08-07 14:52:45 +00:00
parent 5d4f42068f
commit 6ab93f5ec1
1 changed files with 18 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
compiler/symdef.pas
View File

@ -199,6 +199,7 @@ interface
is_far : boolean;
constructor create(const tt : ttype);
constructor createfar(const tt : ttype);
function getcopy : tstoreddef;override;
constructor ppuload(ppufile:tcompilerppufile);
procedure ppuwrite(ppufile:tcompilerppufile);override;
procedure buildderef;override;
@ -1380,11 +1381,11 @@ implementation
function tstringdef.getcopy : tstoreddef;
begin
result:=tstringdef.create;
result.deftype:=stringdef;
tstringdef(result).string_typ:=string_typ;
tstringdef(result).len:=len;
tstringdef(result).savesize:=savesize;
result:=tstringdef.create;
result.deftype:=stringdef;
tstringdef(result).string_typ:=string_typ;
tstringdef(result).len:=len;
tstringdef(result).savesize:=savesize;
end;
@ -2432,6 +2433,14 @@ implementation
end;
function tpointerdef.getcopy : tstoreddef;
begin
result:=tpointerdef.create(pointertype);
tpointerdef(result).is_far:=is_far;
tpointerdef(result).savesize:=savesize;
end;
procedure tpointerdef.buildderef;
begin
inherited buildderef;
@ -6137,7 +6146,10 @@ implementation
end.
{
$Log$
Revision 1.248 2004-07-19 19:15:50 florian
Revision 1.249 2004-08-07 14:52:45 florian
* fixed web bug 3226: type p = type pointer;
Revision 1.248 2004/07/19 19:15:50 florian
* fixed funcret_paraloc writing in units
Revision 1.247 2004/07/14 21:37:41 olle