paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-25 19:50:06 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed indentation

Browse Source 
* fixed use of instruction instance after it has been freed

git-svn-id: trunk@11761 -
This commit is contained in:
Jonas Maebe 2008-09-13 12:20:01 +00:00
parent b4be847639
commit 7bfe1f7865
1 changed files with 9 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
compiler/i386/popt386.pas
View File

@ -1808,13 +1808,13 @@ begin
Taicpu(p).clearop(0); Taicpu(p).clearop(0);
Taicpu(p).ops:=0; Taicpu(p).ops:=0;
Taicpu(p).is_jmp:=false; Taicpu(p).is_jmp:=false;
Taicpu(p).opcode:=A_CMC; Taicpu(p).opcode:=A_CMC;
Taicpu(p).condition:=C_NONE; Taicpu(p).condition:=C_NONE;
Taicpu(hp1).ops:=2; Taicpu(hp1).ops:=2;
Taicpu(hp1).loadoper(1,Taicpu(hp1).oper[0]^); Taicpu(hp1).loadoper(1,Taicpu(hp1).oper[0]^);
Taicpu(hp1).loadconst(0,0); Taicpu(hp1).loadconst(0,0);
Taicpu(hp1).opcode:=carryadd_opcode; Taicpu(hp1).opcode:=carryadd_opcode;
continue; continue;
end; end;
end; end;
if Taicpu(p).condition in [C_AE,C_NB] then if Taicpu(p).condition in [C_AE,C_NB] then
@ -1827,11 +1827,12 @@ begin
begin begin
asml.remove(p); asml.remove(p);
p.free; p.free;
Taicpu(hp1).ops:=2; Taicpu(hp1).ops:=2;
Taicpu(hp1).loadoper(1,Taicpu(hp1).oper[0]^); Taicpu(hp1).loadoper(1,Taicpu(hp1).oper[0]^);
Taicpu(hp1).loadconst(0,0); Taicpu(hp1).loadconst(0,0);
Taicpu(hp1).opcode:=carryadd_opcode; Taicpu(hp1).opcode:=carryadd_opcode;
continue; p:=hp1;
continue;
end; end;
end; end;
end; end;