paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-19 07:09:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

m68k/cpupara.pas, tm68kparamanager.getintparaloc:

Browse Source 
* 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:
svenbarth 2013-01-20 16:33:10 +00:00
parent 9d76168b57
commit b455ae9534
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
compiler/m68k/cpupara.pas
View File

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