paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-05-31 03:22:46 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fix for bug #988

Browse Source
This commit is contained in:
peter 2000-06-30 22:12:26 +00:00
parent 40e02c89da
commit 5db0ddd7e9
2 changed files with 12 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/cg386ld.pas
View File

@ -300,7 +300,9 @@ implementation
begin
hregister:=p^.left^.location.register;
ungetregister32(p^.left^.location.register);
if not(pobjectdef(p^.left^.resulttype)^.is_class) then
if (p^.left^.resulttype^.deftype<>classrefdef) and
(p^.left^.resulttype^.deftype<>objectdef) and
not(pobjectdef(p^.left^.resulttype)^.is_class) then
CGMessage(cg_e_illegal_expression);
end;
@ -1000,7 +1002,10 @@ implementation
end.
{
$Log$
Revision 1.108 2000-05-18 17:05:15 peter
Revision 1.109 2000-06-30 22:12:26 peter
* fix for bug 988
Revision 1.108 2000/05/18 17:05:15 peter
* fixed size of const parameters in asm readers
Revision 1.107 2000/05/14 18:50:35 florian

7
compiler/types.pas
View File

@ -325,7 +325,7 @@ implementation
{ true if a function can be assigned to a procvar }
function proc_to_procvar_equal(def1:pprocdef;def2:pprocvardef) : boolean;
const
po_comp = po_compatibility_options-[po_methodpointer];
po_comp = po_compatibility_options-[po_methodpointer,po_classmethod];
var
ismethod : boolean;
begin
@ -1085,7 +1085,10 @@ implementation
end.
{
$Log$
Revision 1.101 2000-06-20 12:47:53 pierre
Revision 1.102 2000-06-30 22:12:26 peter
* fix for bug 988
Revision 1.101 2000/06/20 12:47:53 pierre
* equal_paras and convertable_paras changed by transforming third parameter
into an enum with three possible values:
cp_none, cp_value_equal_const and cp_all.