gnustep/libs-base
0
0
Fork 0
mirror of https://github.com/gnustep/libs-base.git synced 2025-04-23 00:41:02 +00:00
Code Issues Projects Releases Packages Wiki Activity

Rewrote ([-invoke]) to retrieve return values correctly by using

Browse source 
mframe_decode_return()


git-svn-id: svn+ssh://svn.gna.org/svn/gnustep/libs/base/trunk@2843 72102866-910b-0410-8b05-ffd578937521
This commit is contained in:
Richard Frith-MacDonald 1998-07-15 12:46:01 +00:00
parent 63435c6c96
commit 476f8358e1
1 changed files with 9 additions and 13 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

22
Source/Invocation.m
View file

@ -624,25 +624,21 @@ my_method_get_next_argument (arglist_t argframe,
types_get_size_of_stack_arguments(return_type));
if (return_size)
{
if (*return_type == _C_DBL)
/* DBL's are stored in a different place relative to RET. */
memcpy(return_value, (char*)ret + 2*sizeof(void*), return_size);
else if (*return_type == _C_ID)
if (*return_type == _C_ID)
{
if (*(id*)return_value != *(id*)ret)
id old = *(id*)return_value;
mframe_decode_return(return_type, return_value, ret);
if (return_retained && (*(id*)return_value != old))
{
if (return_retained)
{
if (*(id*)return_value)
[*(id*)return_value release];
[*(id*)ret retain];
}
*(id*)return_value = *(id*)ret;
[old release];
[*(id*)return_value retain];
}
}
else
{
memcpy(return_value, ret, return_size);
mframe_decode_return(return_type, return_value, ret);
}
}
}