diff options
Diffstat (limited to 'avx512-0037785/compiler/m68k/cpupara.pas')
-rw-r--r-- | avx512-0037785/compiler/m68k/cpupara.pas | 26 |
1 files changed, 5 insertions, 21 deletions
diff --git a/avx512-0037785/compiler/m68k/cpupara.pas b/avx512-0037785/compiler/m68k/cpupara.pas index 61aff323a2..2dbb4588f7 100644 --- a/avx512-0037785/compiler/m68k/cpupara.pas +++ b/avx512-0037785/compiler/m68k/cpupara.pas @@ -483,10 +483,7 @@ unit cpupara; pass all unhandled parameters are done } for pass:=1 to 2 do begin - if pass=1 then - i:=0 - else - i:=paras.count-1; + i:=0; while true do begin hp:=tparavarsym(paras[i]); @@ -631,22 +628,9 @@ unit cpupara; end; end; end; - case pass of - 1: - begin - if i=paras.count-1 then - break; - inc(i); - end; - 2: - begin - if i=0 then - break; - dec(i); - end; - else - ; - end; + if i=paras.count-1 then + break; + inc(i); end; end; result:=cur_stack_offset; @@ -699,7 +683,7 @@ unit cpupara; end; end else - internalerror(200410231); + internalerror(2004102304); create_funcretloc_info(p,side); end; |