paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 04:29:20 +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; is_far : boolean;
constructor create(const tt : ttype); constructor create(const tt : ttype);
constructor createfar(const tt : ttype); constructor createfar(const tt : ttype);
function getcopy : tstoreddef;override;
constructor ppuload(ppufile:tcompilerppufile); constructor ppuload(ppufile:tcompilerppufile);
procedure ppuwrite(ppufile:tcompilerppufile);override; procedure ppuwrite(ppufile:tcompilerppufile);override;
procedure buildderef;override; procedure buildderef;override;
@ -1380,11 +1381,11 @@ implementation
function tstringdef.getcopy : tstoreddef; function tstringdef.getcopy : tstoreddef;
begin begin
result:=tstringdef.create; result:=tstringdef.create;
result.deftype:=stringdef; result.deftype:=stringdef;
tstringdef(result).string_typ:=string_typ; tstringdef(result).string_typ:=string_typ;
tstringdef(result).len:=len; tstringdef(result).len:=len;
tstringdef(result).savesize:=savesize; tstringdef(result).savesize:=savesize;
end; end;
@ -2432,6 +2433,14 @@ implementation
end; end;
function tpointerdef.getcopy : tstoreddef;
begin
result:=tpointerdef.create(pointertype);
tpointerdef(result).is_far:=is_far;
tpointerdef(result).savesize:=savesize;
end;
procedure tpointerdef.buildderef; procedure tpointerdef.buildderef;
begin begin
inherited buildderef; inherited buildderef;
@ -6137,7 +6146,10 @@ implementation
end. end.
{ {
$Log$ $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 * fixed funcret_paraloc writing in units
Revision 1.247 2004/07/14 21:37:41 olle Revision 1.247 2004/07/14 21:37:41 olle