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

* if something doesn't work with callparatemp, the define callparatemp

Browse Source 
should be used because other processors with reigster calling conventions
    depend on this as well
This commit is contained in:
florian 2003-05-24 21:12:57 +00:00
parent fd581235c8
commit 1f099e81a7
2 changed files with 25 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/fpcdefs.inc
View File

@ -57,6 +57,10 @@
{$undef cpuflags} {$undef cpuflags}
{$endif alpha} {$endif alpha}
{$ifdef sparc}
{$define callparatemp}
{$endif sparc}
{$ifdef powerpc} {$ifdef powerpc}
{$define callparatemp} {$define callparatemp}
{$endif powerpc} {$endif powerpc}
@ -73,7 +77,12 @@
{ {
$Log$ $Log$
Revision 1.19 2003-05-09 17:47:02 peter Revision 1.20 2003-05-24 21:12:57 florian
* if something doesn't work with callparatemp, the define callparatemp
should be used because other processors with reigster calling conventions
depend on this as well
Revision 1.19 2003/05/09 17:47:02 peter
* self moved to hidden parameter * self moved to hidden parameter
* removed hdisposen,hnewn,selfn * removed hdisposen,hnewn,selfn

21
compiler/nadd.pas
View File

@ -1,4 +1,4 @@
{ {
$Id$ $Id$
Copyright (c) 1998-2002 by Florian Klaempfl Copyright (c) 1998-2002 by Florian Klaempfl
@ -777,11 +777,11 @@ implementation
if not(is_constcharnode(left) and is_constcharnode(right)) then if not(is_constcharnode(left) and is_constcharnode(right)) then
begin begin
inserttypeconv(left,cshortstringtype); inserttypeconv(left,cshortstringtype);
{$ifndef powerpc} {$ifndef callparatemp}
hp := genaddsstringcharoptnode(self); hp := genaddsstringcharoptnode(self);
result := hp; result := hp;
exit; exit;
{$endif powerpc} {$endif callparatemp}
end; end;
end; end;
end end
@ -1781,7 +1781,7 @@ implementation
end end
else else
begin begin
{$ifndef powerpc} {$ifndef callparatemp}
{ can create a call which isn't handled by callparatemp } { can create a call which isn't handled by callparatemp }
if canbeaddsstringcharoptnode(self) then if canbeaddsstringcharoptnode(self) then
begin begin
@ -1790,7 +1790,7 @@ implementation
exit; exit;
end end
else else
{$endif powerpc} {$endif callparatemp}
begin begin
{ Fix right to be shortstring } { Fix right to be shortstring }
if is_char(right.resulttype.def) then if is_char(right.resulttype.def) then
@ -1799,7 +1799,7 @@ implementation
firstpass(right); firstpass(right);
end; end;
end; end;
{$ifndef powerpc} {$ifndef callparatemp}
{ can create a call which isn't handled by callparatemp } { can create a call which isn't handled by callparatemp }
if canbeaddsstringcsstringoptnode(self) then if canbeaddsstringcsstringoptnode(self) then
begin begin
@ -1807,7 +1807,7 @@ implementation
pass_1 := hp; pass_1 := hp;
exit; exit;
end; end;
{$endif powerpc} {$endif callparatemp}
end; end;
{ otherwise, let addstring convert everything } { otherwise, let addstring convert everything }
result := first_addstring; result := first_addstring;
@ -1958,7 +1958,12 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.88 2003-05-23 22:57:38 jonas Revision 1.89 2003-05-24 21:12:57 florian
* if something doesn't work with callparatemp, the define callparatemp
should be used because other processors with reigster calling conventions
depend on this as well
Revision 1.88 2003/05/23 22:57:38 jonas
- disable addoptnodes for powerpc, because they can generate calls in - disable addoptnodes for powerpc, because they can generate calls in
pass_2, so -dcallparatemp can't detect them as nested calls pass_2, so -dcallparatemp can't detect them as nested calls