Sfoglia il codice sorgente

* compile fix

git-svn-id: trunk@5216 -
peter 19 anni fa
parent
commit
4ea7562084
1 ha cambiato i file con 3 aggiunte e 3 eliminazioni
  1. 3 3
      compiler/m68k/ra68kmot.pas

+ 3 - 3
compiler/m68k/ra68kmot.pas

@@ -101,7 +101,7 @@ Implementation
        cpuinfo,aasmtai,aasmdata,aasmcpu,
        cgbase,
        { symtable }
-       symbase,symtype,symsym,symtable,
+       symbase,symtype,symsym,symdef,symtable,
        { pass 1 }
        nbas,
        { parser }
@@ -697,9 +697,9 @@ const
                                    hs:=ttypedconstsym(sym).mangledname;
                              procsym :
                                begin
-                                 if tprocsym(sym).procdef_count>1 then
+                                 if tprocsym(sym).procdeflist.count>1 then
                                       Message(asmr_w_calling_overload_func);
-                                 hs:=tprocsym(sym).first_procdef.mangledname;
+                                 hs:=tprocdef(tprocsym(sym).procdeflist[0]).mangledname;
                                end;
                              typesym :
                                begin