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

* variant paramter passing and functions results fixed

Browse Source
This commit is contained in:
florian 2001-11-14 01:12:44 +00:00
parent 86928e622d
commit 9f9c1700b0
3 changed files with 22 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/pexpr.pas
View File

@ -1772,7 +1772,9 @@ implementation
end;
consume(_ID);
end;
variantdef:
begin
end;
classrefdef:
begin
classh:=tobjectdef(tclassrefdef(p1.resulttype.def).pointertype.def);
@ -2506,7 +2508,10 @@ implementation
end.
{
$Log$
Revision 1.50 2001-11-02 23:16:51 peter
Revision 1.51 2001-11-14 01:12:44 florian
* variant paramter passing and functions results fixed
Revision 1.50 2001/11/02 23:16:51 peter
* removed obsolete chainprocsym and test_procsym code
Revision 1.49 2001/11/02 22:58:05 peter

11
compiler/pp.pas
View File

@ -80,6 +80,12 @@ program pp;
{$endif CPUDEFINED}
{$define CPUDEFINED}
{$endif POWERPC}
{$ifdef ALPHA}
{$ifdef CPUDEFINED}
{$fatal ONLY one of the switches for the CPU type must be defined}
{$endif CPUDEFINED}
{$define CPUDEFINED}
{$endif ALPHA}
{$ifndef CPUDEFINED}
{$fatal A CPU type switch must be defined}
{$endif CPUDEFINED}
@ -156,7 +162,10 @@ begin
end.
{
$Log$
Revision 1.8 2001-08-26 13:36:46 florian
Revision 1.9 2001-11-14 01:12:45 florian
* variant paramter passing and functions results fixed
Revision 1.8 2001/08/26 13:36:46 florian
* some cg reorganisation
* some PPC updates

6
compiler/types.pas
View File

@ -785,6 +785,7 @@ implementation
((def.deftype=stringdef) and (tstringdef(def).string_typ in [st_shortstring,st_longstring])) or
((def.deftype=procvardef) and (po_methodpointer in tprocvardef(def).procoptions)) or
((def.deftype=objectdef) and is_object(def)) or
(def.deftype=variantdef) or
((def.deftype=setdef) and (tsetdef(def).settype<>smallset));
end;
@ -1868,7 +1869,10 @@ implementation
end.
{
$Log$
Revision 1.56 2001-11-02 23:24:12 jonas
Revision 1.57 2001-11-14 01:12:45 florian
* variant paramter passing and functions results fixed
Revision 1.56 2001/11/02 23:24:12 jonas
* fixed web bug 1665 (allow char to chararray type conversion) ("merged")
Revision 1.55 2001/11/02 22:58:09 peter