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

* removed obsolete typeconversion (it got removed by the compiler in

Browse Source 
firsttypeconv anyway) (merged from fixes branch)
This commit is contained in:
Jonas Maebe 2000-07-27 09:19:37 +00:00
parent dc9917738f
commit 2fc7533375
1 changed files with 13 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
compiler/tcadd.pas
View File

@ -449,8 +449,14 @@ implementation
else else
CGMessage(type_e_mismatch); CGMessage(type_e_mismatch);
end; end;
(*
{ these one can't be in flags! } { these one can't be in flags! }
Yes they can, secondadd converts the loc_flags to a register.
The typeconversions below are simply removed by firsttypeconv()
because the resulttype of p^.left = p^.left^.resulttype
(surprise! :) (JM)
if p^.treetype in [xorn,unequaln,equaln] then if p^.treetype in [xorn,unequaln,equaln] then
begin begin
if p^.left^.location.loc=LOC_FLAGS then if p^.left^.location.loc=LOC_FLAGS then
@ -470,6 +476,7 @@ implementation
{ readjust registers } { readjust registers }
calcregisters(p,1,0,0); calcregisters(p,1,0,0);
end; end;
*)
convdone:=true; convdone:=true;
end end
else else
@ -1278,7 +1285,11 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.3 2000-07-14 05:11:49 michael Revision 1.4 2000-07-27 09:19:37 jonas
* removed obsolete typeconversion (it got removed by the compiler in
firsttypeconv anyway) (merged from fixes branch)
Revision 1.3 2000/07/14 05:11:49 michael
+ Patch to 1.1 + Patch to 1.1
Revision 1.2 2000/07/13 11:32:50 michael Revision 1.2 2000/07/13 11:32:50 michael