paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-04 16:27:17 +01:00
Code Issues Packages Projects Releases Wiki Activity

* fixed calls to procedures with manglednames=255 chars

Browse Source 
(taking the address of such a procedure would still cause a problem!)
This commit is contained in:
florian 1999-09-19 20:55:11 +00:00
parent 82501a4687
commit b8efed648c
1 changed files with 12 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
compiler/ag386att.pas
View File

@ -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