Просмотр исходного кода

* compile fix

git-svn-id: trunk@5216 -
peter 19 лет назад
Родитель
Сommit
4ea7562084
1 измененных файлов с 3 добавлено и 3 удалено
  1. 3 3
      compiler/m68k/ra68kmot.pas

+ 3 - 3
compiler/m68k/ra68kmot.pas

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