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

* more variant support

Browse Source
This commit is contained in:
florian 2001-04-22 22:46:49 +00:00
parent 7b04ba70f4
commit 7e8bc49786
3 changed files with 22 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/htypechk.pas
View File

@ -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

12
compiler/symdef.pas
View File

@ -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

7
compiler/types.pas
View File

@ -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
} }