paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-06 13:28:26 +01: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 if (sym.typ=procsym) and ((pos('CALL',upper(s))>0) or
(pos('LEA',upper(s))>0)) then (pos('LEA',upper(s))>0)) then
begin begin
hs:=tprocsym(sym).defs^.def.mangledname; hs:=tprocsym(sym).first_procdef.mangledname;
end; end;
end end
else else
@ -235,10 +235,10 @@ end;
{ procs can be called or the address can be loaded } { procs can be called or the address can be loaded }
if ((pos('CALL',upper(s))>0) or (pos('LEA',upper(s))>0)) then if ((pos('CALL',upper(s))>0) or (pos('LEA',upper(s))>0)) then
begin begin
if assigned(tprocsym(sym).defs^.def) then if assigned(tprocsym(sym).first_procdef) then
Message1(asmr_w_direct_global_is_overloaded_func,hs); Message1(asmr_w_direct_global_is_overloaded_func,hs);
Message2(asmr_h_direct_global_to_mangled,hs,tprocsym(sym).defs^.def.mangledname); Message2(asmr_h_direct_global_to_mangled,hs,tprocsym(sym).first_procdef.mangledname);
hs:=tprocsym(sym).defs^.def.mangledname; hs:=tprocsym(sym).first_procdef.mangledname;
end; end;
end; end;
else else
@ -314,7 +314,10 @@ initialization
end. end.
{ {
$Log$ $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 *** *** empty log message ***
Revision 1.2 2002/08/17 09:23:47 florian Revision 1.2 2002/08/17 09:23:47 florian