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

* include pi_do_call if we generate a call instead of internalerroring

Browse Source 
(workaround)
This commit is contained in:
Jonas Maebe 2004-10-11 07:13:14 +00:00
parent 4f7667488b
commit 99c6740d7d
1 changed files with 13 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
compiler/powerpc/cgcpu.pas
View File

@ -365,8 +365,13 @@ const
begin begin
list.concat(taicpu.op_sym(A_BL,get_darwin_call_stub(s))); list.concat(taicpu.op_sym(A_BL,get_darwin_call_stub(s)));
end; end;
{
the compiler does not properly set this flag anymore in pass 1, and
for now we only need it after pass 2 (I hope) (JM)
if not(pi_do_call in current_procinfo.flags) then if not(pi_do_call in current_procinfo.flags) then
internalerror(2003060703); internalerror(2003060703);
}
include(current_procinfo.flags,pi_do_call);
end; end;
{ calling a procedure by address } { calling a procedure by address }
@ -396,8 +401,11 @@ const
//if target_info.system=system_powerpc_macos then //if target_info.system=system_powerpc_macos then
// //NOP is not needed here. // //NOP is not needed here.
// list.concat(taicpu.op_none(A_NOP)); // list.concat(taicpu.op_none(A_NOP));
include(current_procinfo.flags,pi_do_call);
{
if not(pi_do_call in current_procinfo.flags) then if not(pi_do_call in current_procinfo.flags) then
internalerror(2003060704); internalerror(2003060704);
}
//list.concat(tai_comment.create(strpnew('***** a_call_reg'))); //list.concat(tai_comment.create(strpnew('***** a_call_reg')));
end; end;
@ -2364,7 +2372,11 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.178 2004-09-25 14:23:54 peter Revision 1.179 2004-10-11 07:13:14 jonas
* include pi_do_call if we generate a call instead of internalerroring
(workaround)
Revision 1.178 2004/09/25 14:23:54 peter
* ungetregister is now only used for cpuregisters, renamed to * ungetregister is now only used for cpuregisters, renamed to
ungetcpuregister ungetcpuregister
* renamed (get|unget)explicitregister(s) to ..cpuregister * renamed (get|unget)explicitregister(s) to ..cpuregister