mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-06 03:33:00 +02:00
* more variant support
This commit is contained in:
parent
7b04ba70f4
commit
7e8bc49786
@ -145,6 +145,8 @@ implementation
|
|||||||
(treetyp=starstarn) or
|
(treetyp=starstarn) or
|
||||||
(ld.deftype=recorddef) or
|
(ld.deftype=recorddef) or
|
||||||
(rd.deftype=recorddef) or
|
(rd.deftype=recorddef) or
|
||||||
|
(ld.deftype=variantdef) or
|
||||||
|
(rd.deftype=variantdef) or
|
||||||
((rd.deftype=pointerdef) and
|
((rd.deftype=pointerdef) and
|
||||||
not(is_pchar(rd) and
|
not(is_pchar(rd) and
|
||||||
(is_chararray(ld) or
|
(is_chararray(ld) or
|
||||||
@ -921,7 +923,10 @@ implementation
|
|||||||
end.
|
end.
|
||||||
{
|
{
|
||||||
$Log$
|
$Log$
|
||||||
Revision 1.24 2001-04-13 01:22:08 peter
|
Revision 1.25 2001-04-22 22:46:49 florian
|
||||||
|
* more variant support
|
||||||
|
|
||||||
|
Revision 1.24 2001/04/13 01:22:08 peter
|
||||||
* symtable change to classes
|
* symtable change to classes
|
||||||
* range check generation and errors fixed, make cycle DEBUG=1 works
|
* range check generation and errors fixed, make cycle DEBUG=1 works
|
||||||
* memory leaks fixed
|
* memory leaks fixed
|
||||||
|
@ -140,6 +140,7 @@ interface
|
|||||||
tvariantdef = class(tstoreddef)
|
tvariantdef = class(tstoreddef)
|
||||||
constructor create;
|
constructor create;
|
||||||
constructor load;
|
constructor load;
|
||||||
|
function gettypename:string;override;
|
||||||
procedure write;override;
|
procedure write;override;
|
||||||
procedure setsize;
|
procedure setsize;
|
||||||
function needs_inittable : boolean;override;
|
function needs_inittable : boolean;override;
|
||||||
@ -2142,6 +2143,12 @@ implementation
|
|||||||
end;
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
function tvariantdef.gettypename : string;
|
||||||
|
begin
|
||||||
|
gettypename:='Variant';
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
procedure tvariantdef.write_rtti_data;
|
procedure tvariantdef.write_rtti_data;
|
||||||
begin
|
begin
|
||||||
rttiList.concat(Tai_const.Create_8bit(tkVariant));
|
rttiList.concat(Tai_const.Create_8bit(tkVariant));
|
||||||
@ -5515,7 +5522,10 @@ Const local_symtable_index : longint = $8001;
|
|||||||
end.
|
end.
|
||||||
{
|
{
|
||||||
$Log$
|
$Log$
|
||||||
Revision 1.29 2001-04-21 12:03:12 peter
|
Revision 1.30 2001-04-22 22:46:49 florian
|
||||||
|
* more variant support
|
||||||
|
|
||||||
|
Revision 1.29 2001/04/21 12:03:12 peter
|
||||||
* m68k updates merged from fixes branch
|
* m68k updates merged from fixes branch
|
||||||
|
|
||||||
Revision 1.28 2001/04/18 22:01:58 peter
|
Revision 1.28 2001/04/18 22:01:58 peter
|
||||||
|
@ -740,6 +740,7 @@ implementation
|
|||||||
else
|
else
|
||||||
begin
|
begin
|
||||||
case def.deftype of
|
case def.deftype of
|
||||||
|
variantdef,
|
||||||
formaldef :
|
formaldef :
|
||||||
push_addr_param:=true;
|
push_addr_param:=true;
|
||||||
recorddef :
|
recorddef :
|
||||||
@ -1732,7 +1733,10 @@ implementation
|
|||||||
end.
|
end.
|
||||||
{
|
{
|
||||||
$Log$
|
$Log$
|
||||||
Revision 1.40 2001-04-18 22:02:00 peter
|
Revision 1.41 2001-04-22 22:46:49 florian
|
||||||
|
* more variant support
|
||||||
|
|
||||||
|
Revision 1.40 2001/04/18 22:02:00 peter
|
||||||
* registration of targets and assemblers
|
* registration of targets and assemblers
|
||||||
|
|
||||||
Revision 1.39 2001/04/13 01:22:17 peter
|
Revision 1.39 2001/04/13 01:22:17 peter
|
||||||
@ -1868,5 +1872,4 @@ end.
|
|||||||
|
|
||||||
Revision 1.2 2000/07/13 11:32:53 michael
|
Revision 1.2 2000/07/13 11:32:53 michael
|
||||||
+ removed logs
|
+ removed logs
|
||||||
|
|
||||||
}
|
}
|
||||||
|
Loading…
Reference in New Issue
Block a user