paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-01 23:39:48 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ call support

Browse Source
This commit is contained in:
mazen 2002-09-19 20:24:41 +00:00
parent 23f2c80911
commit d78bf17c1d
3 changed files with 1595 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
compiler/ppcsparc Normal file
View File

Binary file not shown.

1587
compiler/sparc/ncgcall.pas Normal file
View File

File diff suppressed because it is too large Load Diff

13
compiler/sparc/radirect.pas
View File

@ -187,7 +187,7 @@ end;
if (sym.typ=procsym) and ((pos('CALL',upper(s))>0) or
(pos('LEA',upper(s))>0)) then
begin
hs:=tprocsym(sym).defs^.def.mangledname;
hs:=tprocsym(sym).first_procdef.mangledname;
end;
end
else
@ -235,10 +235,10 @@ end;
{ procs can be called or the address can be loaded }
if ((pos('CALL',upper(s))>0) or (pos('LEA',upper(s))>0)) then
begin
if assigned(tprocsym(sym).defs^.def) then
if assigned(tprocsym(sym).first_procdef) then
Message1(asmr_w_direct_global_is_overloaded_func,hs);
Message2(asmr_h_direct_global_to_mangled,hs,tprocsym(sym).defs^.def.mangledname);
hs:=tprocsym(sym).defs^.def.mangledname;
Message2(asmr_h_direct_global_to_mangled,hs,tprocsym(sym).first_procdef.mangledname);
hs:=tprocsym(sym).first_procdef.mangledname;
end;
end;
else
@ -314,7 +314,10 @@ initialization
end.
{
$Log$
Revision 1.1 2002-08-23 10:08:28 mazen
Revision 1.2 2002-09-19 20:24:47 mazen
+ call support
Revision 1.1 2002/08/23 10:08:28 mazen
*** empty log message ***
Revision 1.2 2002/08/17 09:23:47 florian