Explorar o código

* fixed the handling of OS_PAIR/OS_SPAIR-sized parameters in ncgutil.gen_load_cgpara_loc. This fixes 32-bit regvar'd parameters on i8086.

git-svn-id: trunk@26278 -
nickysn %!s(int64=11) %!d(string=hai) anos
pai
achega
420f30bacd
Modificáronse 1 ficheiros con 0 adicións e 1 borrados
  1. 0 1
      compiler/ncgutil.pas

+ 0 - 1
compiler/ncgutil.pas

@@ -1077,7 +1077,6 @@ implementation
                           gen_alloc_regloc(list,destloc);
                           cg.a_load_cgparaloc_anyreg(list,OS_INT,paraloc^,destloc.register,sizeof(aint));
                           unget_para(paraloc^.Next^);
-                          gen_alloc_regloc(list,destloc);
                           {$if defined(cpu16bitalu) or defined(cpu8bitalu)}
                             cg.a_load_cgparaloc_anyreg(list,OS_INT,paraloc^.Next^,GetNextReg(destloc.register),sizeof(aint));
                           {$else}