paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-18 22:43:28 +01:00
Code Issues Packages Projects Releases Wiki Activity

* removed last fix becasue it was not 100%

Browse Source
This commit is contained in:
peter 1998-09-08 13:50:17 +00:00
parent 5991745ab3
commit bab88c3ec6
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/pass_1.pas
View File

@ -4093,9 +4093,6 @@ unit pass_1;
hp:=p^.left; hp:=p^.left;
while assigned(hp) do while assigned(hp) do
begin begin
if not assigned(hp^.left^.symtableentry) or
(hp^.left^.symtableentry^.typ in [typesym]) then
Message(type_e_cant_read_write_type);
if assigned(hp^.left^.resulttype) then if assigned(hp^.left^.resulttype) then
begin begin
isreal:=false; isreal:=false;
@ -5487,7 +5484,10 @@ unit pass_1;
end. end.
{ {
$Log$ $Log$
Revision 1.78 1998-09-08 13:36:24 peter Revision 1.79 1998-09-08 13:50:17 peter
* removed last fix becasue it was not 100%
Revision 1.78 1998/09/08 13:36:24 peter
+ can't write type syms anymore + can't write type syms anymore
Revision 1.77 1998/09/07 22:25:52 peter Revision 1.77 1998/09/07 22:25:52 peter