diff --git a/compiler/ag386att.pas b/compiler/ag386att.pas index e394bb32a0..50b975396a 100644 --- a/compiler/ag386att.pas +++ b/compiler/ag386att.pas @@ -688,7 +688,7 @@ unit ag386att; begin op:=paicpu(hp)^.opcode; calljmp:=is_calljmp(op); - { call maybe not translated to calll } + { call maybe not translated to call } s:=#9+att_op2str[op]+cond2str[paicpu(hp)^.condition]; if (not calljmp) and (not att_nosuffix[op]) and @@ -701,9 +701,13 @@ unit ag386att; if paicpu(hp)^.ops<>0 then begin { call and jmp need an extra handling } - { this code is only called if jmp isn't a labeled instruction } + { this code is only called if jmp isn't a labeled instruction } + { quick hack to overcome a problem with manglednames=255 chars } if calljmp then - s:=s+#9+getopstr_jmp(paicpu(hp)^.oper[0]) + begin + AsmWrite(s+#9); + s:=+getopstr_jmp(paicpu(hp)^.oper[0]); + end else begin for i:=0to paicpu(hp)^.ops-1 do @@ -861,7 +865,11 @@ unit ag386att; end. { $Log$ - Revision 1.14 1999-09-10 18:48:00 florian + Revision 1.15 1999-09-19 20:55:11 florian + * fixed calls to procedures with manglednames=255 chars + (taking the address of such a procedure would still cause a problem!) + + Revision 1.14 1999/09/10 18:48:00 florian * some bug fixes (e.g. must_be_valid and procinfo.funcret_is_valid) * most things for stored properties fixed