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

* allow assigning to self

Browse Source
This commit is contained in:
peter 1999-12-09 09:35:54 +00:00
parent 54be56118f
commit 038c73aed0
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/htypechk.pas
View File

@ -779,6 +779,7 @@ implementation
CGMessagePos(hp^.fileinfo,type_e_no_assign_to_addr); CGMessagePos(hp^.fileinfo,type_e_no_assign_to_addr);
exit; exit;
end; end;
selfn,
funcretn : funcretn :
begin begin
valid_for_assign:=true; valid_for_assign:=true;
@ -842,7 +843,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.50 1999-11-30 10:40:43 peter Revision 1.51 1999-12-09 09:35:54 peter
* allow assigning to self
Revision 1.50 1999/11/30 10:40:43 peter
+ ttype, tsymlist + ttype, tsymlist
Revision 1.49 1999/11/18 15:34:45 pierre Revision 1.49 1999/11/18 15:34:45 pierre