瀏覽代碼

* Fixed PowerPC & M68000 compilation

daniel 23 年之前
父節點
當前提交
fff92ef11e
共有 2 個文件被更改,包括 11 次插入5 次删除
  1. 6 3
      compiler/m68k/rasm.pas
  2. 5 2
      compiler/powerpc/radirect.pas

+ 6 - 3
compiler/m68k/rasm.pas

@@ -764,9 +764,9 @@ var
                                    hs:=ttypedconstsym(sym).mangledname;
                                    hs:=ttypedconstsym(sym).mangledname;
                              procsym :
                              procsym :
                                begin
                                begin
-                                 if assigned(tprocsym(sym).defs^.next) then
+                                 if tprocsym(sym).procdef_count>1 then
                                       Message(asmr_w_calling_overload_func);
                                       Message(asmr_w_calling_overload_func);
-                                 hs:=tprocsym(sym).defs^.def.mangledname;
+                                 hs:=tprocsym(sym).first_procdef.mangledname;
                                end;
                                end;
                              typesym :
                              typesym :
                                begin
                                begin
@@ -2225,7 +2225,10 @@ Begin
 end.
 end.
 {
 {
   $Log$
   $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?()!
     + m68k problems with cvs fixed?()!
 
 
   Revision 1.4  2002/08/12 15:08:44  carl
   Revision 1.4  2002/08/12 15:08:44  carl

+ 5 - 2
compiler/powerpc/radirect.pas

@@ -229,7 +229,7 @@ interface
                                                           begin
                                                           begin
                                                             if Tprocsym(sym).procdef_count>1 then
                                                             if Tprocsym(sym).procdef_count>1 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).first_procdef.mangledname;
                                                             hs:=tprocsym(sym).first_procdef.mangledname;
                                                           end;
                                                           end;
                                                        end;
                                                        end;
@@ -314,7 +314,10 @@ initialization
 end.
 end.
 {
 {
   $Log$
   $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
     * Make Tprocdef.defs protected
 
 
   Revision 1.3  2002/08/31 15:59:31  florian
   Revision 1.3  2002/08/31 15:59:31  florian