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

* Fixed PowerPC & M68000 compilation

Browse Source
This commit is contained in:
daniel 2002-09-03 19:04:18 +00:00
parent b0364566d1
commit fff92ef11e
2 changed files with 11 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/m68k/rasm.pas
View File

@ -764,9 +764,9 @@ var
hs:=ttypedconstsym(sym).mangledname;
procsym :
begin
if assigned(tprocsym(sym).defs^.next) then
if tprocsym(sym).procdef_count>1 then
Message(asmr_w_calling_overload_func);
hs:=tprocsym(sym).defs^.def.mangledname;
hs:=tprocsym(sym).first_procdef.mangledname;
end;
typesym :
begin
@ -2225,7 +2225,10 @@ Begin
end.
{
$Log$
Revision 1.6 2002-08-13 18:58:54 carl
Revision 1.7 2002-09-03 19:04:18 daniel
* Fixed PowerPC & M68000 compilation
Revision 1.6 2002/08/13 18:58:54 carl
+ m68k problems with cvs fixed?()!
Revision 1.4 2002/08/12 15:08:44 carl

7
compiler/powerpc/radirect.pas
View File

@ -229,7 +229,7 @@ interface
begin
if Tprocsym(sym).procdef_count>1 then
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).first_procdef.mangledname;
end;
end;
@ -314,7 +314,10 @@ initialization
end.
{
$Log$
Revision 1.4 2002-09-03 16:26:28 daniel
Revision 1.5 2002-09-03 19:04:18 daniel
* Fixed PowerPC & M68000 compilation
Revision 1.4 2002/09/03 16:26:28 daniel
* Make Tprocdef.defs protected
Revision 1.3 2002/08/31 15:59:31 florian