summaryrefslogtreecommitdiff
path: root/avx512-0037785/compiler/m68k/cpupara.pas
diff options
context:
space:
mode:
Diffstat (limited to 'avx512-0037785/compiler/m68k/cpupara.pas')
-rw-r--r--avx512-0037785/compiler/m68k/cpupara.pas26
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;