paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-13 12:39:09 +02:00
Code Issues Packages Projects Releases Wiki Activity

* tMIPSELnotnode.second_boolean: reuse common handle_locjump method.

Browse Source 
git-svn-id: trunk@26735 -
This commit is contained in:
sergei 2014-02-08 21:10:01 +00:00
parent 83fda1e6a9
commit d29300df13
1 changed files with 1 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
compiler/mips/ncpumat.pas
View File

@ -233,25 +233,9 @@ end;
procedure tMIPSELnotnode.second_boolean; procedure tMIPSELnotnode.second_boolean;
var var
hl: tasmlabel;
tmpreg : TRegister; tmpreg : TRegister;
begin begin
{ if the location is LOC_JUMP, we do the secondpass after the if not handle_locjump then
labels are allocated
}
if left.expectloc = LOC_JUMP then
begin
hl := current_procinfo.CurrTrueLabel;
current_procinfo.CurrTrueLabel := current_procinfo.CurrFalseLabel;
current_procinfo.CurrFalseLabel := hl;
secondpass(left);
maketojumpbool(current_asmdata.CurrAsmList, left, lr_load_regvars);
hl := current_procinfo.CurrTrueLabel;
current_procinfo.CurrTrueLabel := current_procinfo.CurrFalseLabel;
current_procinfo.CurrFalseLabel := hl;
location.loc := LOC_JUMP;
end
else
begin begin
secondpass(left); secondpass(left);
case left.location.loc of case left.location.loc of