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

* fixed compilation problem

Browse Source
This commit is contained in:
florian 2004-02-08 23:06:59 +00:00
parent 9495f77117
commit 1e9e0b0e35
1 changed files with 11 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
compiler/arm/rgcpu.pas
View File

@ -37,11 +37,11 @@ unit rgcpu;
type type
trgcpu = class(trgobj) trgcpu = class(trgobj)
procedure add_cpu_interferences(p : tai);override; procedure add_cpu_interferences(p : tai);override;
procedure DoSpillRead(list : taasmoutput;instr : taicpu_abstract;pos: tai; regidx: longint; procedure do_spill_read(list : taasmoutput;instr : taicpu_abstract;pos: tai; regidx: word;
const spilltemplist:Tspill_temp_list;const regs : tspillregsinfo);override; const spilltemplist:Tspill_temp_list;const regs : tspillregsinfo);override;
procedure DoSpillWritten(list : taasmoutput;instr : taicpu_abstract;pos: tai; regidx: longint; procedure do_spill_written(list : taasmoutput;instr : taicpu_abstract;pos: tai; regidx: word;
const spilltemplist:Tspill_temp_list;const regs : tspillregsinfo);override; const spilltemplist:Tspill_temp_list;const regs : tspillregsinfo);override;
procedure DoSpillReadWritten(list : taasmoutput;instr : taicpu_abstract;pos: tai; regidx: longint; procedure do_spill_readwritten(list : taasmoutput;instr : taicpu_abstract;pos: tai; regidx: word;
const spilltemplist:Tspill_temp_list;const regs : tspillregsinfo);override; const spilltemplist:Tspill_temp_list;const regs : tspillregsinfo);override;
end; end;
@ -63,7 +63,7 @@ unit rgcpu;
end; end;
procedure trgcpu.DoSpillRead(list : taasmoutput;instr : taicpu_abstract;pos: tai; regidx: longint; procedure trgcpu.do_spill_read(list : taasmoutput;instr : taicpu_abstract;pos: tai; regidx: word;
const spilltemplist:Tspill_temp_list;const regs : tspillregsinfo); const spilltemplist:Tspill_temp_list;const regs : tspillregsinfo);
var var
helpins: tai; helpins: tai;
@ -122,7 +122,7 @@ unit rgcpu;
end; end;
procedure trgcpu.DoSpillWritten(list : taasmoutput;instr : taicpu_abstract;pos: tai; regidx: longint; procedure trgcpu.do_spill_written(list : taasmoutput;instr : taicpu_abstract;pos: tai; regidx: word;
const spilltemplist:Tspill_temp_list;const regs : tspillregsinfo); const spilltemplist:Tspill_temp_list;const regs : tspillregsinfo);
var var
helpins: tai; helpins: tai;
@ -171,7 +171,7 @@ unit rgcpu;
end; end;
procedure trgcpu.DoSpillReadWritten(list : taasmoutput;instr : taicpu_abstract;pos: tai; regidx: longint; procedure trgcpu.do_spill_readwritten(list : taasmoutput;instr : taicpu_abstract;pos: tai; regidx: word;
const spilltemplist:Tspill_temp_list;const regs : tspillregsinfo); const spilltemplist:Tspill_temp_list;const regs : tspillregsinfo);
var var
helpins1, helpins2: tai; helpins1, helpins2: tai;
@ -220,7 +220,10 @@ end.
{ {
$Log$ $Log$
Revision 1.7 2004-01-28 15:36:47 florian Revision 1.8 2004-02-08 23:06:59 florian
* fixed compilation problem
Revision 1.7 2004/01/28 15:36:47 florian
* fixed another couple of arm bugs * fixed another couple of arm bugs
Revision 1.6 2004/01/26 19:05:56 florian Revision 1.6 2004/01/26 19:05:56 florian