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

* small problems solved to get remake3 work

Browse Source
This commit is contained in:
florian 1998-04-09 23:02:14 +00:00
parent 50cbe1751e
commit 9c5d07fbba
5 changed files with 569 additions and 554 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
compiler/msgidx.inc
View File

@ -203,7 +203,8 @@ parser_e_no_paras_allowed,
parser_e_no_property_found_to_override,
parser_e_only_one_default_property,
parser_e_property_need_paras,
parser_w_constructor_cannot_be_not_virtual,
parser_e_constructor_cannot_be_not_virtual,
parser_e_no_default_property_available,
{
Symbol table
}

1090
compiler/msgtxt.inc
View File

File diff suppressed because it is too large Load Diff

8
compiler/pdecl.pas
View File

@ -498,7 +498,6 @@ unit pdecl;
Message1(sym_e_unknown_id,pattern)
else
begin
{ !!!! check sym }
{ varsym aren't allowed for an indexed property
or an property with parameters }
if ((sym^.typ=varsym) and
@ -707,7 +706,7 @@ unit pdecl;
begin
consume(ID);
consume(SEMICOLON);
if (aktclass^.options and oois_class=0) then
if not(aktclass^.isclass) then
Message(parser_e_constructor_cannot_be_not_virtual)
else
begin
@ -1727,7 +1726,10 @@ unit pdecl;
end.
{
$Log$
Revision 1.6 1998-04-09 22:16:35 florian
Revision 1.7 1998-04-09 23:02:15 florian
* small problems solved to get remake3 work
Revision 1.6 1998/04/09 22:16:35 florian
* problem with previous REGALLOC solved
* improved property support

11
compiler/pexpr.pas
View File

@ -507,7 +507,6 @@ unit pexpr;
message(parser_e_no_paras_allowed);
p1:=gensubscriptnode(pvarsym(
ppropertysym(sym)^.readaccesssym),p1);
pd:=pvarsym(sym)^.definition;
end
else if ppropertysym(sym)^.readaccesssym^.typ=procsym then
begin
@ -517,12 +516,12 @@ unit pexpr;
ppropertysym(sym)^.readaccesssym^.owner,p1);
{ we know the procedure to call, so
force the usage of that procedure }
p1^.procdefinition:=pprocdef(ppropertysym(sym)^.writeaccessdef);
p1^.procdefinition:=pprocdef(ppropertysym(sym)^.readaccessdef);
{ insert paras }
p1^.left:=paras;
{ if we should be delphi compatible }
{ then force type conversion }
{ }
{ isn't neccessary, the result types }
{ have to match excatly }
{if cs_delphi2_compatible in aktswitches then
@ -656,6 +655,7 @@ unit pexpr;
disposetree(p1);
p1:=genzeronode(errorn);
again:=false;
message(parser_e_no_default_property_available);
end
else
begin
@ -1625,7 +1625,10 @@ unit pexpr;
end.
{
$Log$
Revision 1.6 1998-04-09 22:16:35 florian
Revision 1.7 1998-04-09 23:02:15 florian
* small problems solved to get remake3 work
Revision 1.6 1998/04/09 22:16:35 florian
* problem with previous REGALLOC solved
* improved property support

11
compiler/types.pas
View File

@ -683,9 +683,13 @@ unit types;
{ (povirtualmethod is set! }
{ class ? }
if ((_c^.options and oois_class)<>0) and
if _c^.isclass and
((hp^.options and pooverridingmethod)=0) then
begin
{ this isn't like handled like delphi !!!!! }
Message1(parser_e_must_use_override,_c^.name^+'.'+_name);
end;
{ error, if the return types aren't equal }
if not(is_equal(procdefcoll^.data^.retdef,hp^.retdef)) then
@ -872,7 +876,10 @@ unit types;
end.
{
$Log$
Revision 1.4 1998-04-08 16:58:09 pierre
Revision 1.5 1998-04-09 23:02:16 florian
* small problems solved to get remake3 work
Revision 1.4 1998/04/08 16:58:09 pierre
* several bugfixes
ADD ADC and AND are also sign extended
nasm output OK (program still crashes at end