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

* Replaced all user defined warnings by TODO comments to reduce compiler noise.

Browse Source 
git-svn-id: trunk@11443 -
This commit is contained in:
yury 2008-07-23 11:00:03 +00:00
parent fd0ed50331
commit 491f0fa1d8
39 changed files with 72 additions and 72 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/aggas.pas
View File

@ -249,7 +249,7 @@ implementation
{ not relocated properly on e.g. linux/ppc64. g++ generates there for a } { not relocated properly on e.g. linux/ppc64. g++ generates there for a }
{ vtable for a class called Window: } { vtable for a class called Window: }
{ .section .data.rel.ro._ZTV6Window,"awG",@progbits,_ZTV6Window,comdat } { .section .data.rel.ro._ZTV6Window,"awG",@progbits,_ZTV6Window,comdat }
{$warning TODO .data.ro not yet working} { TODO: .data.ro not yet working}
{$if defined(arm) or defined(powerpc)} {$if defined(arm) or defined(powerpc)}
'.rodata', '.rodata',
{$else arm} {$else arm}

2
compiler/aoptobj.pas
View File

@ -1040,7 +1040,7 @@ Unit AoptObj;
if GetNextInstruction(p, hp1) then if GetNextInstruction(p, hp1) then
begin begin
if FindLabel(tasmlabel(taicpu(p).oper[0]^.ref^.symbol), hp1) and if FindLabel(tasmlabel(taicpu(p).oper[0]^.ref^.symbol), hp1) and
{$warning FIXME removing the first instruction fails} { TODO: FIXME removing the first instruction fails}
(p<>blockstart) then (p<>blockstart) then
begin begin
hp2:=tai(hp1.next); hp2:=tai(hp1.next);

2
compiler/arm/cpubase.pas
View File

@ -89,7 +89,7 @@ unit cpubase;
first_mm_supreg = RS_S0; first_mm_supreg = RS_S0;
first_mm_imreg = $20; first_mm_imreg = $20;
{$warning TODO Calculate bsstart} { TODO: Calculate bsstart}
regnumber_count_bsstart = 64; regnumber_count_bsstart = 64;
regnumber_table : array[tregisterindex] of tregister = ( regnumber_table : array[tregisterindex] of tregister = (

2
compiler/avr/cpubase.pas
View File

@ -102,7 +102,7 @@ unit cpubase;
first_mm_supreg = RS_INVALID; first_mm_supreg = RS_INVALID;
first_mm_imreg = RS_INVALID; first_mm_imreg = RS_INVALID;
{$warning TODO Calculate bsstart} { TODO: Calculate bsstart}
regnumber_count_bsstart = 64; regnumber_count_bsstart = 64;
regnumber_table : array[tregisterindex] of tregister = ( regnumber_table : array[tregisterindex] of tregister = (

2
compiler/cfidwarf.pas
View File

@ -395,7 +395,7 @@ implementation
procedure TDwarfAsmCFI.cfa_offset(list:TAsmList;reg:tregister;ofs:longint); procedure TDwarfAsmCFI.cfa_offset(list:TAsmList;reg:tregister;ofs:longint);
begin begin
cfa_advance_loc(list); cfa_advance_loc(list);
{$warning TODO check if ref is a temp} { TODO: check if ref is a temp}
{ offset must be positive } { offset must be positive }
DwarfList.concat(tdwarfitem.create_reg_const(DW_CFA_offset_extended,doe_uleb,reg,doe_uleb,ofs div data_alignment_factor)); DwarfList.concat(tdwarfitem.create_reg_const(DW_CFA_offset_extended,doe_uleb,reg,doe_uleb,ofs div data_alignment_factor));
end; end;

2
compiler/dbgdwarf.pas
View File

@ -1758,7 +1758,7 @@ implementation
begin begin
if (vo_is_thread_var in sym.varoptions) then if (vo_is_thread_var in sym.varoptions) then
begin begin
{$warning !!! FIXME: dwarf for thread vars !!!} { TODO: !!! FIXME: dwarf for thread vars !!!}
blocksize:=0; blocksize:=0;
end end
else else

2
compiler/dbgstabs.pas
View File

@ -963,7 +963,7 @@ implementation
begin begin
if tabstractnormalvarsym(def.funcretsym).localloc.loc=LOC_REFERENCE then if tabstractnormalvarsym(def.funcretsym).localloc.loc=LOC_REFERENCE then
begin begin
{$warning Need to add gdb support for ret in param register calling} { TODO: Need to add gdb support for ret in param register calling}
if paramanager.ret_in_param(def.returndef,def.proccalloption) then if paramanager.ret_in_param(def.returndef,def.proccalloption) then
hs:='X*' hs:='X*'
else else

2
compiler/fppu.pas
View File

@ -982,7 +982,7 @@ uses
ibloadunit : ibloadunit :
readloadunit; readloadunit;
ibasmsymbols : ibasmsymbols :
{$warning TODO Remove ibasmsymbols} { TODO: Remove ibasmsymbols}
; ;
ibendimplementation : ibendimplementation :
break; break;

2
compiler/htypechk.pas
View File

@ -2226,7 +2226,7 @@ implementation
tve_shortint,tve_smallint,tve_longint,tve_chari64, tve_shortint,tve_smallint,tve_longint,tve_chari64,
tve_boolformal,tve_boolformal,tve_boolformal,tve_boolformal,tve_boolformal, tve_boolformal,tve_boolformal,tve_boolformal,tve_boolformal,tve_boolformal,
tve_chari64,tve_chari64,tve_dblcurrency); tve_chari64,tve_chari64,tve_dblcurrency);
{$warning fixme for 128 bit floats } { TODO: fixme for 128 bit floats }
variantfloatdef_cl: array[tfloattype] of tvariantequaltype = variantfloatdef_cl: array[tfloattype] of tvariantequaltype =
(tve_single,tve_dblcurrency,tve_extended, (tve_single,tve_dblcurrency,tve_extended,
tve_dblcurrency,tve_dblcurrency,tve_extended); tve_dblcurrency,tve_dblcurrency,tve_extended);

2
compiler/i386/popt386.pas
View File

@ -627,7 +627,7 @@ begin
if GetNextInstruction(p, hp1) then if GetNextInstruction(p, hp1) then
begin begin
if FindLabel(tasmlabel(taicpu(p).oper[0]^.ref^.symbol), hp1) and if FindLabel(tasmlabel(taicpu(p).oper[0]^.ref^.symbol), hp1) and
{$warning FIXME removing the first instruction fails} { TODO: FIXME removing the first instruction fails}
(p<>blockstart) then (p<>blockstart) then
begin begin
hp2:=tai(hp1.next); hp2:=tai(hp1.next);

6
compiler/link.pas
View File

@ -866,7 +866,7 @@ Implementation
var var
objreader : TObjectReader; objreader : TObjectReader;
begin begin
{$warning TODO Cleanup ignoring of FPC generated libimp*.a files} { TODO: Cleanup ignoring of FPC generated libimp*.a files}
{ Don't load import libraries } { Don't load import libraries }
if copy(ExtractFileName(para),1,6)='libimp' then if copy(ExtractFileName(para),1,6)='libimp' then
exit; exit;
@ -1027,7 +1027,7 @@ Implementation
Message1(exec_i_linking,outputname); Message1(exec_i_linking,outputname);
FlushOutput; FlushOutput;
{$warning TODO Load custom linker script} { TODO: Load custom linker script}
DefaultLinkScript; DefaultLinkScript;
exeoutput:=CExeOutput.Create; exeoutput:=CExeOutput.Create;
@ -1084,7 +1084,7 @@ Implementation
exeoutput.WriteExeFile(outputname); exeoutput.WriteExeFile(outputname);
end; end;
{$warning TODO fixed section names} { TODO: fixed section names}
status.codesize:=exeoutput.findexesection('.text').size; status.codesize:=exeoutput.findexesection('.text').size;
status.datasize:=exeoutput.findexesection('.data').size; status.datasize:=exeoutput.findexesection('.data').size;
bsssec:=exeoutput.findexesection('.bss'); bsssec:=exeoutput.findexesection('.bss');

4
compiler/m68k/aasmcpu.pas
View File

@ -107,7 +107,7 @@ type
globtype; globtype;
{$WARNING FIX ME!! useful for debug, remove it, same table as in ag68kgas } { TODO: FIX ME!! useful for debug, remove it, same table as in ag68kgas }
const const
gas_op2str:op2strtable= gas_op2str:op2strtable=
{ warning: CPU32 opcodes are not fully compatible with the MC68020. } { warning: CPU32 opcodes are not fully compatible with the MC68020. }
@ -526,7 +526,7 @@ type
A_NEG, A_EXT, A_EXTB, A_NOT: A_NEG, A_EXT, A_EXTB, A_NOT:
result:=operand_readwrite; result:=operand_readwrite;
else begin else begin
{$WARNING FIX ME!!! remove ugly debug code ... } { TODO: FIX ME!!! remove ugly debug code ... }
writeln('M68K: unknown opcode when spilling: ',gas_op2str[opcode]); writeln('M68K: unknown opcode when spilling: ',gas_op2str[opcode]);
internalerror(200404091); internalerror(200404091);
end; end;

8
compiler/m68k/cgcpu.pas
View File

@ -243,7 +243,7 @@ unit cgcpu;
// writeln('a_param_reg'); // writeln('a_param_reg');
{$endif DEBUG_CHARLIE} {$endif DEBUG_CHARLIE}
{ it's probably necessary to port this from x86 later, or provide an m68k solution (KB) } { it's probably necessary to port this from x86 later, or provide an m68k solution (KB) }
{$WARNING FIX ME! check_register_size()} { TODO: FIX ME! check_register_size()}
// check_register_size(size,r); // check_register_size(size,r);
if use_push(cgpara) then if use_push(cgpara) then
begin begin
@ -298,7 +298,7 @@ unit cgcpu;
begin begin
if not assigned(paraloc) then if not assigned(paraloc) then
exit; exit;
{$WARNING FIX ME!!! this also triggers location bug } { TODO: FIX ME!!! this also triggers location bug }
{if (paraloc^.loc<>LOC_REFERENCE) or {if (paraloc^.loc<>LOC_REFERENCE) or
(paraloc^.reference.index<>NR_STACK_POINTER_REG) or (paraloc^.reference.index<>NR_STACK_POINTER_REG) or
(tcgsize2size[paraloc^.size]>sizeof(aint)) then (tcgsize2size[paraloc^.size]>sizeof(aint)) then
@ -569,7 +569,7 @@ unit cgcpu;
href : treference; href : treference;
// p: pointer; // p: pointer;
begin begin
{$WARNING FIX ME!!! take a look on this mess again...} { TODO: FIX ME!!! take a look on this mess again...}
// if getregtype(r)=R_ADDRESSREGISTER then // if getregtype(r)=R_ADDRESSREGISTER then
// begin // begin
// writeln('address reg?!?'); // writeln('address reg?!?');
@ -1369,7 +1369,7 @@ unit cgcpu;
begin begin
{ only 68020+ supports RTD, so this needs another code path { only 68020+ supports RTD, so this needs another code path
for 68000 and Coldfire (KB) } for 68000 and Coldfire (KB) }
{$WARNING 68020+ only code generation, without fallback} { TODO: 68020+ only code generation, without fallback}
list.concat(taicpu.op_const(A_RTD,S_NO,parasize)); list.concat(taicpu.op_const(A_RTD,S_NO,parasize));
end end
else else

14
compiler/m68k/cpubase.pas
View File

@ -129,7 +129,7 @@ unit cpubase;
maxfpuregs = 8; maxfpuregs = 8;
{$WARNING TODO FIX BSSTART} { TODO: FIX BSSTART}
regnumber_count_bsstart = 16; regnumber_count_bsstart = 16;
regnumber_table : array[tregisterindex] of tregister = ( regnumber_table : array[tregisterindex] of tregister = (
@ -141,7 +141,7 @@ unit cpubase;
); );
regdwarf_table : array[tregisterindex] of shortint = ( regdwarf_table : array[tregisterindex] of shortint = (
{$warning TODO reused stabs values!} { TODO: reused stabs values!}
{$i r68ksta.inc} {$i r68ksta.inc}
); );
@ -253,7 +253,7 @@ unit cpubase;
NR_STACK_POINTER_REG = NR_SP; NR_STACK_POINTER_REG = NR_SP;
RS_STACK_POINTER_REG = RS_SP; RS_STACK_POINTER_REG = RS_SP;
{# Frame pointer register } {# Frame pointer register }
{$warning FIX ME!!! frame pointer is A5 on Amiga, but A6 on unixes?} { TODO: FIX ME!!! frame pointer is A5 on Amiga, but A6 on unixes?}
NR_FRAME_POINTER_REG = NR_A5; NR_FRAME_POINTER_REG = NR_A5;
RS_FRAME_POINTER_REG = RS_A5; RS_FRAME_POINTER_REG = RS_A5;
@ -261,10 +261,10 @@ unit cpubase;
such as in PIC code. The exact meaning is ABI specific. For such as in PIC code. The exact meaning is ABI specific. For
further information look at GCC source : PIC_OFFSET_TABLE_REGNUM further information look at GCC source : PIC_OFFSET_TABLE_REGNUM
} }
{$warning FIX ME!!! pic offset reg conflicts with frame pointer?} { TODO: FIX ME!!! pic offset reg conflicts with frame pointer?}
NR_PIC_OFFSET_REG = NR_A5; NR_PIC_OFFSET_REG = NR_A5;
{ Return address for DWARF } { Return address for DWARF }
{$warning TODO just a guess!} { TODO: just a guess!}
NR_RETURN_ADDRESS_REG = NR_A0; NR_RETURN_ADDRESS_REG = NR_A0;
{ Results are returned in this register (32-bit values) } { Results are returned in this register (32-bit values) }
NR_FUNCTION_RETURN_REG = NR_D0; NR_FUNCTION_RETURN_REG = NR_D0;
@ -412,7 +412,7 @@ implementation
begin begin
case s of case s of
OS_NO: begin OS_NO: begin
{$WARNING FIX ME!!! results in bad code generation} { TODO: FIX ME!!! results in bad code generation}
cgsize2subreg:=R_SUBWHOLE; cgsize2subreg:=R_SUBWHOLE;
end; end;
@ -495,7 +495,7 @@ implementation
function inverse_cond(const c: TAsmCond): TAsmCond; {$ifdef USEINLINE}inline;{$endif USEINLINE} function inverse_cond(const c: TAsmCond): TAsmCond; {$ifdef USEINLINE}inline;{$endif USEINLINE}
const const
inverse:array[TAsmCond] of TAsmCond=(C_None, inverse:array[TAsmCond] of TAsmCond=(C_None,
{$warning TODO, this is just a copy!} { TODO: TODO, this is just a copy!}
C_CC,C_LS,C_CS,C_LT,C_EQ,C_MI,C_F,C_NE, C_CC,C_LS,C_CS,C_LT,C_EQ,C_MI,C_F,C_NE,
C_GE,C_PL,C_GT,C_T,C_HI,C_VC,C_LE,C_VS C_GE,C_PL,C_GT,C_T,C_HI,C_VC,C_LE,C_VS
); );

2
compiler/m68k/cpupara.pas
View File

@ -144,7 +144,7 @@ unit cpupara;
end; end;
{$warning copied from ppc cg, needs work} { TODO: copied from ppc cg, needs work}
function tm68kparamanager.push_addr_param(varspez:tvarspez;def : tdef;calloption : tproccalloption) : boolean; function tm68kparamanager.push_addr_param(varspez:tvarspez;def : tdef;calloption : tproccalloption) : boolean;
begin begin
result:=false; result:=false;

2
compiler/m68k/n68kcnv.pas
View File

@ -163,7 +163,7 @@ implementation
begin begin
secondpass(left); secondpass(left);
{$warning needs LOC_JUMP support, because called for bool_to_bool from ncgcnv } { TODO: needs LOC_JUMP support, because called for bool_to_bool from ncgcnv }
{ Explicit typecasts from any ordinal type to a boolean type } { Explicit typecasts from any ordinal type to a boolean type }
{ must not change the ordinal value } { must not change the ordinal value }

2
compiler/m68k/n68kmat.pas
View File

@ -260,7 +260,7 @@ implementation
end; end;
{$WARNING FIX ME!!! shlshrnode needs review} { TODO: FIX ME!!! shlshrnode needs review}
procedure tm68kshlshrnode.pass_generate_code; procedure tm68kshlshrnode.pass_generate_code;
var var
hregister,resultreg,hregister1, hregister,resultreg,hregister1,

2
compiler/mips/cpubase.pas
View File

@ -105,7 +105,7 @@ unit cpubase;
first_mm_supreg = RS_NO; first_mm_supreg = RS_NO;
first_mm_imreg = RS_NO; first_mm_imreg = RS_NO;
{$warning TODO Calculate bsstart} { TODO: Calculate bsstart}
regnumber_count_bsstart = 64; regnumber_count_bsstart = 64;
regnumber_table : array[tregisterindex] of tregister = ( regnumber_table : array[tregisterindex] of tregister = (

2
compiler/nadd.pas
View File

@ -1439,7 +1439,7 @@ implementation
strtype:= st_longstring strtype:= st_longstring
else else
begin begin
{$warning todo: add a warning/hint here if one converting a too large array} { TODO: todo: add a warning/hint here if one converting a too large array}
{ nodes is PChar, array [with size > 255] or OpenArrayOfChar. { nodes is PChar, array [with size > 255] or OpenArrayOfChar.
Note: Delphi halts with error if "array [0..xx] of char" Note: Delphi halts with error if "array [0..xx] of char"
is assigned to ShortString and string length is less is assigned to ShortString and string length is less

2
compiler/nbas.pas
View File

@ -616,7 +616,7 @@ implementation
hp : tai; hp : tai;
begin begin
inherited ppuwrite(ppufile); inherited ppuwrite(ppufile);
{$warning FIXME Add saving of register sets} { TODO: FIXME Add saving of register sets}
if not(nf_get_asm_position in flags) then if not(nf_get_asm_position in flags) then
begin begin
hp:=tai(p_asm.first); hp:=tai(p_asm.first);

2
compiler/ncal.pas
View File

@ -975,7 +975,7 @@ implementation
funcretnode:=ppuloadnode(ppufile); funcretnode:=ppuloadnode(ppufile);
inherited ppuload(t,ppufile); inherited ppuload(t,ppufile);
ppufile.getderef(symtableprocentryderef); ppufile.getderef(symtableprocentryderef);
{$warning FIXME: No withsymtable support} { TODO: FIXME: No withsymtable support}
symtableproc:=nil; symtableproc:=nil;
ppufile.getderef(procdefinitionderef); ppufile.getderef(procdefinitionderef);
ppufile.getsmallset(callnodeflags); ppufile.getsmallset(callnodeflags);

2
compiler/ncgld.pas
View File

@ -711,7 +711,7 @@ implementation
end end
else else
begin begin
{$warning HACK: unaligned test, maybe remove all unaligned locations (array of char) from the compiler} { TODO: HACK: unaligned test, maybe remove all unaligned locations (array of char) from the compiler}
{ Use unaligned copy when the offset is not aligned } { Use unaligned copy when the offset is not aligned }
len:=left.resultdef.size; len:=left.resultdef.size;
if (right.location.reference.offset mod sizeof(aint)<>0) or if (right.location.reference.offset mod sizeof(aint)<>0) or

2
compiler/ncnv.pas
View File

@ -2600,7 +2600,7 @@ implementation
{ equal sets for the code generator? } { equal sets for the code generator? }
else if (left.resultdef.size=resultdef.size) and else if (left.resultdef.size=resultdef.size) and
(tsetdef(left.resultdef).setbase=tsetdef(resultdef).setbase) then (tsetdef(left.resultdef).setbase=tsetdef(resultdef).setbase) then
{$warning This causes wrong (but Delphi-compatible) results for disjoint subsets} { TODO: This causes wrong (but Delphi-compatible) results for disjoint subsets}
{ e.g., this prints true because of this: { e.g., this prints true because of this:
var var
sa: set of 1..2; sa: set of 1..2;

6
compiler/ogbase.pas
View File

@ -851,9 +851,9 @@ implementation
secoptions : array[TAsmSectiontype] of TObjSectionOptions = ([], secoptions : array[TAsmSectiontype] of TObjSectionOptions = ([],
{code} [oso_Data,oso_load,oso_readonly,oso_executable,oso_keep], {code} [oso_Data,oso_load,oso_readonly,oso_executable,oso_keep],
{Data} [oso_Data,oso_load,oso_write,oso_keep], {Data} [oso_Data,oso_load,oso_write,oso_keep],
{$warning TODO Fix sec_rodata be read-only-with-relocs} { TODO: Fix sec_rodata be read-only-with-relocs}
{roData} [oso_Data,oso_load,oso_write,oso_keep], {roData} [oso_Data,oso_load,oso_write,oso_keep],
{$warning TODO Fix sec_rodata_norel be read-only/constant} { TODO: Fix sec_rodata_norel be read-only/constant}
{roData_norel} [oso_Data,oso_load,oso_write,oso_keep], {roData_norel} [oso_Data,oso_load,oso_write,oso_keep],
{bss} [oso_load,oso_write,oso_keep], {bss} [oso_load,oso_write,oso_keep],
{threadvar} [oso_load,oso_write], {threadvar} [oso_load,oso_write],
@ -2483,7 +2483,7 @@ implementation
begin begin
objsec:=TObjSection(ObjData.ObjSectionList[j]); objsec:=TObjSection(ObjData.ObjSectionList[j]);
objsec.Used:=false; objsec.Used:=false;
{$warning TODO remove debug section always keep} { TODO: remove debug section always keep}
if oso_debug in objsec.secoptions then if oso_debug in objsec.secoptions then
objsec.Used:=true; objsec.Used:=true;
if (oso_keep in objsec.secoptions) then if (oso_keep in objsec.secoptions) then

2
compiler/ogcoff.pas
View File

@ -1836,7 +1836,7 @@ const pemagic : array[0..3] of byte = (
include(secoptions,oso_keep); include(secoptions,oso_keep);
if (Copy(secname,1,6)='.idata') then if (Copy(secname,1,6)='.idata') then
begin begin
{$warning TODO idata keep can maybe replaced with grouping of text and idata} { TODO: idata keep can maybe replaced with grouping of text and idata}
include(secoptions,oso_keep); include(secoptions,oso_keep);
secname:=secname + '.' + ExtractFileName(InputFileName); secname:=secname + '.' + ExtractFileName(InputFileName);
end; end;

2
compiler/options.pas
View File

@ -1797,7 +1797,7 @@ begin
inc(pc); inc(pc);
{ create argument } { create argument }
arglen:=pc-argstart; arglen:=pc-argstart;
{$warning FIXME: silent truncation of environment parameters } { TODO: FIXME: silent truncation of environment parameters }
if (arglen > 255) then if (arglen > 255) then
arglen := 255; arglen := 255;
setlength(hs,arglen); setlength(hs,arglen);

6
compiler/powerpc/cgcpu.pas
View File

@ -168,7 +168,7 @@ const
RS_F10,RS_F11,RS_F12,RS_F13,RS_F31,RS_F30,RS_F29,RS_F28,RS_F27, RS_F10,RS_F11,RS_F12,RS_F13,RS_F31,RS_F30,RS_F29,RS_F28,RS_F27,
RS_F26,RS_F25,RS_F24,RS_F23,RS_F22,RS_F21,RS_F20,RS_F19,RS_F18, RS_F26,RS_F25,RS_F24,RS_F23,RS_F22,RS_F21,RS_F20,RS_F19,RS_F18,
RS_F17,RS_F16,RS_F15,RS_F14],first_fpu_imreg,[]); RS_F17,RS_F16,RS_F15,RS_F14],first_fpu_imreg,[]);
{$warning FIX ME} { TODO: FIX ME}
rg[R_MMREGISTER]:=trgcpu.create(R_MMREGISTER,R_SUBNONE, rg[R_MMREGISTER]:=trgcpu.create(R_MMREGISTER,R_SUBNONE,
[RS_M0,RS_M1,RS_M2],first_mm_imreg,[]); [RS_M0,RS_M1,RS_M2],first_mm_imreg,[]);
end; end;
@ -973,7 +973,7 @@ const
{ with RS_R30 it's also already smaller, but too big a speed trade-off to make } { with RS_R30 it's also already smaller, but too big a speed trade-off to make }
(firstregint <= RS_R29)) then (firstregint <= RS_R29)) then
begin begin
{$warning TODO: 64 bit support } { TODO: TODO: 64 bit support }
dec(href.offset,(RS_R31-firstregint)*sizeof(pint)); dec(href.offset,(RS_R31-firstregint)*sizeof(pint));
list.concat(taicpu.op_reg_ref(A_STMW,newreg(R_INTREGISTER,firstregint,R_SUBNONE),href)); list.concat(taicpu.op_reg_ref(A_STMW,newreg(R_INTREGISTER,firstregint,R_SUBNONE),href));
end end
@ -1089,7 +1089,7 @@ const
{ with RS_R30 it's also already smaller, but too big a speed trade-off to make } { with RS_R30 it's also already smaller, but too big a speed trade-off to make }
(firstregint <= RS_R29)) then (firstregint <= RS_R29)) then
begin begin
{$warning TODO: 64 bit support } { TODO: TODO: 64 bit support }
dec(href.offset,(RS_R31-firstregint)*sizeof(pint)); dec(href.offset,(RS_R31-firstregint)*sizeof(pint));
list.concat(taicpu.op_reg_ref(A_LMW,newreg(R_INTREGISTER,firstregint,R_SUBNONE),href)); list.concat(taicpu.op_reg_ref(A_LMW,newreg(R_INTREGISTER,firstregint,R_SUBNONE),href));
end end

4
compiler/powerpc/cpubase.pas
View File

@ -127,7 +127,7 @@ uses
{ MM Super register first and last } { MM Super register first and last }
first_mm_imreg = $20; first_mm_imreg = $20;
{$warning TODO Calculate bsstart} { TODO: Calculate bsstart}
regnumber_count_bsstart = 64; regnumber_count_bsstart = 64;
regnumber_table : array[tregisterindex] of tregister = ( regnumber_table : array[tregisterindex] of tregister = (
@ -305,7 +305,7 @@ uses
Taken from GCC rs6000.h Taken from GCC rs6000.h
} }
{$warning As indicated in rs6000.h, but can't find it anywhere else!} { TODO: As indicated in rs6000.h, but can't find it anywhere else!}
NR_PIC_OFFSET_REG = NR_R30; NR_PIC_OFFSET_REG = NR_R30;
{ Return address of a function } { Return address of a function }
NR_RETURN_ADDRESS_REG = NR_R0; NR_RETURN_ADDRESS_REG = NR_R0;

2
compiler/powerpc64/cgcpu.pas
View File

@ -379,7 +379,7 @@ begin
RS_F10, RS_F11, RS_F12, RS_F13, RS_F31, RS_F30, RS_F29, RS_F28, RS_F27, RS_F10, RS_F11, RS_F12, RS_F13, RS_F31, RS_F30, RS_F29, RS_F28, RS_F27,
RS_F26, RS_F25, RS_F24, RS_F23, RS_F22, RS_F21, RS_F20, RS_F19, RS_F18, RS_F26, RS_F25, RS_F24, RS_F23, RS_F22, RS_F21, RS_F20, RS_F19, RS_F18,
RS_F17, RS_F16, RS_F15, RS_F14], first_fpu_imreg, []); RS_F17, RS_F16, RS_F15, RS_F14], first_fpu_imreg, []);
{$WARNING FIX ME} { TODO: FIX ME}
rg[R_MMREGISTER] := trgcpu.create(R_MMREGISTER, R_SUBNONE, rg[R_MMREGISTER] := trgcpu.create(R_MMREGISTER, R_SUBNONE,
[RS_M0, RS_M1, RS_M2], first_mm_imreg, []); [RS_M0, RS_M1, RS_M2], first_mm_imreg, []);
end; end;

4
compiler/powerpc64/cpubase.pas
View File

@ -146,7 +146,7 @@ const
{ MM Super register first and last } { MM Super register first and last }
first_mm_imreg = $20; first_mm_imreg = $20;
{$WARNING TODO Calculate bsstart} { TODO: Calculate bsstart}
regnumber_count_bsstart = 64; regnumber_count_bsstart = 64;
regnumber_table: array[tregisterindex] of tregister = ( regnumber_table: array[tregisterindex] of tregister = (
@ -317,7 +317,7 @@ const
Taken from GCC rs6000.h Taken from GCC rs6000.h
} }
{$WARNING As indicated in rs6000.h, but can't find it anywhere else!} { TODO: As indicated in rs6000.h, but can't find it anywhere else!}
NR_PIC_OFFSET_REG = NR_R30; NR_PIC_OFFSET_REG = NR_R30;
{ Return address of a function } { Return address of a function }
NR_RETURN_ADDRESS_REG = NR_R0; NR_RETURN_ADDRESS_REG = NR_R0;

2
compiler/psystem.pas
View File

@ -560,7 +560,7 @@ implementation
aiclass[ait_ent]:=tai_ent; aiclass[ait_ent]:=tai_ent;
{$endif alpha} {$endif alpha}
{$ifdef m68k} {$ifdef m68k}
{$warning FIXME: tai_labeled_instruction doesn't exists} { TODO: FIXME: tai_labeled_instruction doesn't exists}
// aiclass[ait_labeled_instruction]:=tai_labeled_instruction; // aiclass[ait_labeled_instruction]:=tai_labeled_instruction;
{$endif m68k} {$endif m68k}
{$ifdef ia64} {$ifdef ia64}

18
compiler/regvars.pas
View File

@ -298,7 +298,7 @@ implementation
if assigned(regvarinfo^.regvars[i]) and if assigned(regvarinfo^.regvars[i]) and
(getsupreg(tvarsym(regvarinfo^.regvars[i]).localloc.register)=supreg) then (getsupreg(tvarsym(regvarinfo^.regvars[i]).localloc.register)=supreg) then
begin begin
{$warning fixme regvar_loaded_int} { TODO: fixme regvar_loaded_int}
(* if supreg in rg.regvar_loaded_int then (* if supreg in rg.regvar_loaded_int then
begin begin
vsym := tvarsym(regvarinfo^.regvars[i]); vsym := tvarsym(regvarinfo^.regvars[i]);
@ -306,7 +306,7 @@ implementation
{ possible that it's been modified (JM) } { possible that it's been modified (JM) }
if not(vsym.varspez in [vs_const,vs_var,vs_out]) then if not(vsym.varspez in [vs_const,vs_var,vs_out]) then
begin begin
{$warning FIXME Check vsym.localloc for regvars} { TODO: FIXME Check vsym.localloc for regvars}
// reference_reset_base(hr,current_procinfo.framepointer,vsym.adjusted_address); // reference_reset_base(hr,current_procinfo.framepointer,vsym.adjusted_address);
cgsize:=def_cgsize(vsym.vardef); cgsize:=def_cgsize(vsym.vardef);
cg.a_load_reg_ref(asml,cgsize,cgsize,vsym.localloc.register,hr); cg.a_load_reg_ref(asml,cgsize,cgsize,vsym.localloc.register,hr);
@ -323,7 +323,7 @@ implementation
for i := 1 to maxvarregs do for i := 1 to maxvarregs do
if assigned(regvarinfo^.regvars[i]) then if assigned(regvarinfo^.regvars[i]) then
begin begin
{$warning fixme regvars} { TODO: fixme regvars}
(* (*
r:=rg.makeregsize(regvarinfo^.regvars[i].localloc.register,OS_INT); r:=rg.makeregsize(regvarinfo^.regvars[i].localloc.register,OS_INT);
if (r = reg) then if (r = reg) then
@ -336,7 +336,7 @@ implementation
{ possible that it's been modified (JM) } { possible that it's been modified (JM) }
if not(vsym.varspez in [vs_const,vs_var,vs_out]) then if not(vsym.varspez in [vs_const,vs_var,vs_out]) then
begin begin
{$warning FIXME Check vsym.localloc for regvars} { TODO: FIXME Check vsym.localloc for regvars}
// reference_reset_base(hr,current_procinfo.framepointer,vsym.adjusted_address); // reference_reset_base(hr,current_procinfo.framepointer,vsym.adjusted_address);
cgsize:=def_cgsize(vsym.vardef); cgsize:=def_cgsize(vsym.vardef);
cg.a_load_reg_ref(asml,cgsize,cgsize,vsym.localloc.register,hr); cg.a_load_reg_ref(asml,cgsize,cgsize,vsym.localloc.register,hr);
@ -364,7 +364,7 @@ implementation
exit; exit;
{$endif i386} {$endif i386}
reg:=vsym.localloc.register; reg:=vsym.localloc.register;
{$warning fixme regvars} { TODO: fixme regvars}
(* (*
if getregtype(reg)=R_INTREGISTER then if getregtype(reg)=R_INTREGISTER then
begin begin
@ -372,7 +372,7 @@ implementation
if not(getsupreg(reg) in rg.regvar_loaded_int) then if not(getsupreg(reg) in rg.regvar_loaded_int) then
begin begin
asml.concat(tai_regalloc.alloc(reg)); asml.concat(tai_regalloc.alloc(reg));
{$warning FIXME Check vsym.localloc for regvars} { TODO: FIXME Check vsym.localloc for regvars}
// reference_reset_base(hr,current_procinfo.framepointer,vsym.adjusted_address); // reference_reset_base(hr,current_procinfo.framepointer,vsym.adjusted_address);
if paramanager.push_addr_param(vsym.varspez,vsym.vardef,current_procinfo.procdef.proccalloption) then if paramanager.push_addr_param(vsym.varspez,vsym.vardef,current_procinfo.procdef.proccalloption) then
opsize := OS_ADDR opsize := OS_ADDR
@ -389,7 +389,7 @@ implementation
if not rg.regvar_loaded_other[regidx] then if not rg.regvar_loaded_other[regidx] then
begin begin
asml.concat(tai_regalloc.alloc(reg)); asml.concat(tai_regalloc.alloc(reg));
{$warning FIXME Check vsym.localloc for regvars} { TODO: FIXME Check vsym.localloc for regvars}
// reference_reset_base(hr,current_procinfo.framepointer,vsym.adjusted_address); // reference_reset_base(hr,current_procinfo.framepointer,vsym.adjusted_address);
if paramanager.push_addr_param(vsym.varspez,vsym.vardef,current_procinfo.procdef.proccalloption) then if paramanager.push_addr_param(vsym.varspez,vsym.vardef,current_procinfo.procdef.proccalloption) then
opsize := OS_ADDR opsize := OS_ADDR
@ -469,7 +469,7 @@ implementation
begin begin
{$ifdef i386} {$ifdef i386}
{ reserve place on the FPU stack } { reserve place on the FPU stack }
{$warning fixme fpustack} { TODO: fixme fpustack}
(* (*
regvarinfo^.fpuregvars[i].localloc.register:=trgcpu(rg).correct_fpuregister(NR_ST0,i-1); regvarinfo^.fpuregvars[i].localloc.register:=trgcpu(rg).correct_fpuregister(NR_ST0,i-1);
*) *)
@ -578,7 +578,7 @@ implementation
begin begin
reg:=cg.makeregsize(reg,OS_INT); reg:=cg.makeregsize(reg,OS_INT);
regidx:=findreg_by_number(reg); regidx:=findreg_by_number(reg);
{$warning fixme regvar dealloc} { TODO: fixme regvar dealloc}
{ {
if (rg.regvar_loaded_other[regidx]) then if (rg.regvar_loaded_other[regidx]) then
asml.concat(tai_regalloc.dealloc(reg)); asml.concat(tai_regalloc.dealloc(reg));

8
compiler/sparc/cpubase.pas
View File

@ -34,7 +34,7 @@ uses
*****************************************************************************} *****************************************************************************}
type type
{$WARNING CPU32 opcodes do not fully include the Ultra SPRAC instruction set.} { TODO: CPU32 opcodes do not fully include the Ultra SPRAC instruction set.}
{ don't change the order of these opcodes! } { don't change the order of these opcodes! }
TAsmOp=({$i opcode.inc}); TAsmOp=({$i opcode.inc});
@ -75,7 +75,7 @@ uses
first_mm_supreg = 0; first_mm_supreg = 0;
first_mm_imreg = 1; first_mm_imreg = 1;
{$warning TODO Calculate bsstart} { TODO: Calculate bsstart}
regnumber_count_bsstart = 128; regnumber_count_bsstart = 128;
regnumber_table : array[tregisterindex] of tregister = ( regnumber_table : array[tregisterindex] of tregister = (
@ -198,7 +198,7 @@ uses
usableregsaddr = []; usableregsaddr = [];
c_countusableregsaddr = 0; c_countusableregsaddr = 0;
{$warning firstsaveintreg shall be RS_NO} { TODO: firstsaveintreg shall be RS_NO}
firstsaveintreg = RS_L0; { Temporary, having RS_NO is broken } firstsaveintreg = RS_L0; { Temporary, having RS_NO is broken }
lastsaveintreg = RS_L0; { L0..L7 are already saved, I0..O7 are parameter } lastsaveintreg = RS_L0; { L0..L7 are already saved, I0..O7 are parameter }
firstsavefpureg = RS_F2; { F0..F1 is used for return value } firstsavefpureg = RS_F2; { F0..F1 is used for return value }
@ -259,7 +259,7 @@ uses
Taken from GCC rs6000.h Taken from GCC rs6000.h
} }
{$warning As indicated in rs6000.h, but can't find it anywhere else!} { TODO: As indicated in rs6000.h, but can't find it anywhere else!}
{PIC_OFFSET_REG = R_30;} {PIC_OFFSET_REG = R_30;}
{ Return address for DWARF } { Return address for DWARF }
NR_RETURN_ADDRESS_REG = NR_I7; NR_RETURN_ADDRESS_REG = NR_I7;

4
compiler/symdef.pas
View File

@ -2705,7 +2705,7 @@ implementation
minparacount:=0; minparacount:=0;
maxparacount:=0; maxparacount:=0;
ppufile.getderef(returndefderef); ppufile.getderef(returndefderef);
{$warning TODO remove fpu_used loading} { TODO: remove fpu_used loading}
ppufile.getbyte; ppufile.getbyte;
proctypeoption:=tproctypeoption(ppufile.getbyte); proctypeoption:=tproctypeoption(ppufile.getbyte);
proccalloption:=tproccalloption(ppufile.getbyte); proccalloption:=tproccalloption(ppufile.getbyte);
@ -3924,7 +3924,7 @@ implementation
function tobjectdef.getparentdef:tdef; function tobjectdef.getparentdef:tdef;
begin begin
{$warning TODO Remove getparentdef hack} { TODO: Remove getparentdef hack}
{ With 2 forward declared classes with the child class before the { With 2 forward declared classes with the child class before the
parent class the child class is written earlier to the ppu. Leaving it parent class the child class is written earlier to the ppu. Leaving it
possible to have a reference to the parent class for property overriding, possible to have a reference to the parent class for property overriding,

2
compiler/symtype.pas
View File

@ -635,7 +635,7 @@ implementation
if assigned(s) then if assigned(s) then
begin begin
{$warning TODO ugly hack} { TODO: ugly hack}
if s is tsym then if s is tsym then
st:=FindUnitSymtable(tsym(s).owner) st:=FindUnitSymtable(tsym(s).owner)
else else

2
compiler/systems/t_amiga.pas
View File

@ -271,7 +271,7 @@ end;
initialization initialization
{$ifdef m68k} {$ifdef m68k}
{$warning No executable creation support for m68k yet!} { TODO: No executable creation support for m68k yet!}
RegisterExternalLinker(system_m68k_Amiga_info,TLinkerAmiga); RegisterExternalLinker(system_m68k_Amiga_info,TLinkerAmiga);
RegisterTarget(system_m68k_Amiga_info); RegisterTarget(system_m68k_Amiga_info);
{$endif m68k} {$endif m68k}

2
compiler/x86/cpubase.pas
View File

@ -163,7 +163,7 @@ uses
{$endif x86_64} {$endif x86_64}
const const
{$warning TODO Calculate bsstart} { TODO: Calculate bsstart}
regnumber_count_bsstart = 64; regnumber_count_bsstart = 64;
regnumber_table : array[tregisterindex] of tregister = ( regnumber_table : array[tregisterindex] of tregister = (

4
compiler/x86/rgx86.pas
View File

@ -302,7 +302,7 @@ implementation
begin begin
used_in_proc:=used_in_proc+s; used_in_proc:=used_in_proc+s;
{$warning TODO firstsavefpureg} { TODO: firstsavefpureg}
(* (*
{ don't try to save the fpu registers if not desired (e.g. for } { don't try to save the fpu registers if not desired (e.g. for }
{ the 80x86) } { the 80x86) }
@ -338,7 +338,7 @@ implementation
hr : treference; hr : treference;
} }
begin begin
{$warning TODO firstsavefpureg} { TODO: firstsavefpureg}
(* (*
if firstsavefpureg <> R_NO then if firstsavefpureg <> R_NO then
for r.enum:=lastsavefpureg downto firstsavefpureg do for r.enum:=lastsavefpureg downto firstsavefpureg do

6
compiler/x86_64/cpupara.pas
View File

@ -69,7 +69,7 @@ unit cpupara;
function structure_in_registers(varspez:tvarspez;size:longint):boolean; function structure_in_registers(varspez:tvarspez;size:longint):boolean;
begin begin
if (target_info.system=system_x86_64_win64) then if (target_info.system=system_x86_64_win64) then
{$warning Temporary hack: vs_const parameters are always passed by reference for win64} { TODO: Temporary hack: vs_const parameters are always passed by reference for win64}
result:=(varspez=vs_value) and (size in [1,2,4,8]) result:=(varspez=vs_value) and (size in [1,2,4,8])
else else
result:=(size<=16); result:=(size<=16);
@ -84,7 +84,7 @@ unit cpupara;
orddef: orddef:
begin begin
loc1:=LOC_REGISTER; loc1:=LOC_REGISTER;
{$warning TODO 128bit also needs lochigh} { TODO: 128bit also needs lochigh}
end; end;
floatdef: floatdef:
begin begin
@ -101,7 +101,7 @@ unit cpupara;
begin begin
loc1:=LOC_MMREGISTER; loc1:=LOC_MMREGISTER;
loc2:=LOC_MMREGISTER; loc2:=LOC_MMREGISTER;
{$warning TODO float 128bit needs SSEUP lochigh} { TODO: float 128bit needs SSEUP lochigh}
end; end;
end; end;
end; end;