mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-16 12:39:24 +02:00
m68k/cpupara.pas, tm68kparamanager.getintparaloc:
* initialize paraloc^.size to OS_INT instead of leaving it at 0 This fixes tests/test/cg/ttryexc1.pp. The problem was that the raise node generated code which resulted in a word(!) move of the raised object's address to the stack location for fpc_raiseexception. This then resulted in an error when freeing the exception object. git-svn-id: trunk@23465 -
This commit is contained in:
parent
9d76168b57
commit
b455ae9534
@ -87,6 +87,7 @@ unit cpupara;
|
|||||||
loc:=LOC_REFERENCE;
|
loc:=LOC_REFERENCE;
|
||||||
reference.index:=NR_STACK_POINTER_REG;
|
reference.index:=NR_STACK_POINTER_REG;
|
||||||
reference.offset:=target_info.first_parm_offset+nr*4;
|
reference.offset:=target_info.first_parm_offset+nr*4;
|
||||||
|
size:=OS_INT;
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user