|
@@ -65,7 +65,12 @@ uses
|
|
|
{$endif}
|
|
{$endif}
|
|
|
tree,hcodegen,hcgdata,
|
|
tree,hcodegen,hcgdata,
|
|
|
scanner,pbase,pexpr,pdecl,psub,
|
|
scanner,pbase,pexpr,pdecl,psub,
|
|
|
- tccnv,pass_1;
|
|
|
|
|
|
|
+{$ifdef newcg}
|
|
|
|
|
+ cgbase,
|
|
|
|
|
+{$else}
|
|
|
|
|
+ tccnv,
|
|
|
|
|
+{$endif}
|
|
|
|
|
+ pass_1;
|
|
|
|
|
|
|
|
|
|
|
|
|
function string_dec : pdef;
|
|
function string_dec : pdef;
|
|
@@ -433,7 +438,7 @@ uses
|
|
|
end;
|
|
end;
|
|
|
{ overriden property ? }
|
|
{ overriden property ? }
|
|
|
{ force property interface, if there is a property parameter }
|
|
{ force property interface, if there is a property parameter }
|
|
|
- if (token=_COLON) or assigned(propertyparas) then
|
|
|
|
|
|
|
+ if (token=_COLON) or not(propertyparas^.empty) then
|
|
|
begin
|
|
begin
|
|
|
consume(_COLON);
|
|
consume(_COLON);
|
|
|
p^.proptype:=single_type(hs,false);
|
|
p^.proptype:=single_type(hs,false);
|
|
@@ -1593,7 +1598,10 @@ uses
|
|
|
end.
|
|
end.
|
|
|
{
|
|
{
|
|
|
$Log$
|
|
$Log$
|
|
|
- Revision 1.3 1999-10-26 12:30:45 peter
|
|
|
|
|
|
|
+ Revision 1.4 1999-10-27 14:17:08 florian
|
|
|
|
|
+ * property overriding fixed
|
|
|
|
|
+
|
|
|
|
|
+ Revision 1.3 1999/10/26 12:30:45 peter
|
|
|
* const parameter is now checked
|
|
* const parameter is now checked
|
|
|
* better and generic check if a node can be used for assigning
|
|
* better and generic check if a node can be used for assigning
|
|
|
* export fixes
|
|
* export fixes
|
florian