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

* fixed compilation of ppc system unit

Browse Source
This commit is contained in:
florian 2003-10-25 11:34:02 +00:00
parent 1e72dd2d78
commit 2660c358f3
1 changed files with 47 additions and 35 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
compiler/ncgutil.pas
View File

@ -739,7 +739,13 @@ implementation
{ Copy data }
reference_reset_base(href2,localcopyloc.reference.index,localcopyloc.reference.offset);
if is_shortstring(tvarsym(p).vartype.def) then
begin
{ this code is only executed before the code for the body and the entry/exit code is generated
so we're allowed to include pi_do_call here; after pass1 is run, this isn't allowed anymore
}
include(current_procinfo.flags,pi_do_call);
cg.g_copyshortstring(list,href1,href2,tstringdef(tvarsym(p).vartype.def).len,false,loadref)
end
else
cg.g_concatcopy(list,href1,href2,tvarsym(p).vartype.def.size,true,loadref);
{ update localloc of varsym }
@ -1834,7 +1840,9 @@ implementation
begin
if not(po_assembler in current_procinfo.procdef.procoptions) then
begin
if (paraitem.paraloc[calleeside].loc=LOC_REGISTER) then
case paraitem.paraloc[calleeside].loc of
LOC_FPUREGISTER,
LOC_REGISTER:
begin
(*
if paraitem.paraloc[calleeside].register=NR_NO then
@ -1872,6 +1880,7 @@ implementation
end
else
localloc:=paraitem.paraloc[calleeside];
end;
end
else
localloc:=paraitem.paraloc[calleeside];
@ -1965,7 +1974,10 @@ implementation
end.
{
$Log$
Revision 1.161 2003-10-19 01:34:30 florian
Revision 1.162 2003-10-25 11:34:02 florian
* fixed compilation of ppc system unit
Revision 1.161 2003/10/19 01:34:30 florian
* some ppc stuff fixed
* memory leak fixed