|
@@ -460,7 +460,7 @@ implementation
|
|
|
else
|
|
else
|
|
|
begin
|
|
begin
|
|
|
{ assignment overwritten ?? }
|
|
{ assignment overwritten ?? }
|
|
|
- if assigned(assignment_overloaded(def_from,def_to)) then
|
|
|
|
|
|
|
+ if assignment_overloaded(def_from,def_to)<>nil then
|
|
|
b:=2;
|
|
b:=2;
|
|
|
end;
|
|
end;
|
|
|
end;
|
|
end;
|
|
@@ -662,7 +662,10 @@ implementation
|
|
|
end.
|
|
end.
|
|
|
{
|
|
{
|
|
|
$Log$
|
|
$Log$
|
|
|
- Revision 1.27.2.2 1999-06-18 10:56:58 daniel
|
|
|
|
|
|
|
+ Revision 1.27.2.3 1999-06-28 15:51:27 peter
|
|
|
|
|
+ * tp7 fix
|
|
|
|
|
+
|
|
|
|
|
+ Revision 1.27.2.2 1999/06/18 10:56:58 daniel
|
|
|
- Enumerations no longer compatible with integer types
|
|
- Enumerations no longer compatible with integer types
|
|
|
|
|
|
|
|
Revision 1.27.2.1 1999/06/17 12:51:42 pierre
|
|
Revision 1.27.2.1 1999/06/17 12:51:42 pierre
|
peter