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

* fixed compilation with -dcsdebug -dallocregdebug

Browse Source
This commit is contained in:
Jonas Maebe 2004-12-18 14:07:35 +00:00
parent 02f85d2f9b
commit a3627d9345
1 changed files with 16 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
compiler/i386/daopt386.pas
View File

@ -264,10 +264,13 @@ Uses
{$else} {$else}
{$ifdef statedebug} {$ifdef statedebug}
cutils, cutils,
{$else}
{$ifdef allocregdebug}
cutils,
{$endif}
{$endif} {$endif}
{$endif} {$endif}
globals, systems, verbose, symconst, symsym, cgobj, globals, systems, verbose, symconst, cgobj,procinfo;
rgobj, procinfo;
Type Type
TRefCompare = function(const r1, r2: treference; size: tcgsize): boolean; TRefCompare = function(const r1, r2: treference; size: tcgsize): boolean;
@ -466,6 +469,8 @@ begin
hp1 := p; hp1 := p;
{ {
while not(funcResReg and while not(funcResReg and
(p.typ = ait_instruction) and (p.typ = ait_instruction) and
(taicpu(p).opcode = A_JMP) and (taicpu(p).opcode = A_JMP) and
@ -540,6 +545,7 @@ end;
{ inserts new_one between prev and foll } { inserts new_one between prev and foll }
procedure InsertLLItem(AsmL: TAAsmOutput; prev, foll, new_one: TLinkedListItem); procedure InsertLLItem(AsmL: TAAsmOutput; prev, foll, new_one: TLinkedListItem);
begin begin
if assigned(prev) then if assigned(prev) then
@ -1174,11 +1180,11 @@ begin
getnextinstruction(p2,p2); getnextinstruction(p2,p2);
lastRemovedWasDealloc := false; lastRemovedWasDealloc := false;
{$ifdef allocregdebug} {$ifdef allocregdebug}
hp := tai_comment.Create(strpnew('allocating '+std_reg2str[supreg]+ hp := tai_comment.Create(strpnew('allocating '+std_regname(newreg(R_INTREGISTER,supreg,R_SUBWHOLE))+
' from here...'))); ' from here...'));
insertllitem(asml,p1.previous,p1,hp); insertllitem(asml,p1.previous,p1,hp);
hp := tai_comment.Create(strpnew('allocated '+std_reg2str[supreg]+ hp := tai_comment.Create(strpnew('allocated '+std_regname(newreg(R_INTREGISTER,supreg,R_SUBWHOLE))+
' till here...'))); ' till here...'));
insertllitem(asml,p2,p1.next,hp); insertllitem(asml,p2,p1.next,hp);
{$endif allocregdebug} {$endif allocregdebug}
if not(supreg in initialusedregs) then if not(supreg in initialusedregs) then
@ -2785,7 +2791,10 @@ end.
{ {
$Log$ $Log$
Revision 1.75 2004-12-12 10:50:34 florian Revision 1.76 2004-12-18 14:07:35 jonas
* fixed compilation with -dcsdebug -dallocregdebug
Revision 1.75 2004/12/12 10:50:34 florian
* fixed operand size calculation for sse operands * fixed operand size calculation for sse operands
+ all nasm assembler targets to help page output added + all nasm assembler targets to help page output added