gnustep/libs-base
0
0
Fork 0
mirror of https://github.com/gnustep/libs-base.git synced 2025-04-22 08:26:27 +00:00
Code Issues Projects Releases Packages Wiki Activity

Use gcc's __builtin_return smarts to find location of `char' and

Browse source 
`short' return values; don't use my (possibly wrong) guesses.
(retframe_char): New nested function.
(retframe_short): New nested function.
(mframe_do_call) [_C_CHR, _C_UCHR]: Use retframe_char.
[_C_SHT, _C_USHT]: Use retframe_short.


git-svn-id: svn+ssh://svn.gna.org/svn/gnustep/libs/base/trunk@1659 72102866-910b-0410-8b05-ffd578937521
This commit is contained in:
Andrew McCallum 1996-09-02 13:14:50 +00:00
parent 7e224a0309
commit 35bfc07b1a
1 changed files with 31 additions and 17 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

48
Source/mframe.m
View file

@ -401,6 +401,16 @@ mframe_do_call (const char *encoded_types,
{
__builtin_return (rframe);
}
/* For extracting a return value of type `char' from RETFRAME */
char retframe_char (void *rframe)
{
__builtin_return (rframe);
}
/* For extracting a return value of type `short' from RETFRAME */
short retframe_short (void *rframe)
{
__builtin_return (rframe);
}
/* Decode the object, (which is always the first argument to a method),
@ -627,10 +637,6 @@ mframe_do_call (const char *encoded_types,
/* No return value to encode; do nothing. */
break;
case _C_ID:
(*encoder) (-1, retframe, @encode(id), flags);
break;
case _C_PTR:
/* The argument is a pointer to something; increment TYPE
so we can see what it is a pointer to. */
@ -666,25 +672,33 @@ mframe_do_call (const char *encoded_types,
case _C_SHT:
case _C_USHT:
/* For C variable types smaller than int, like short, the
RETFRAME doesn't actually point to the beginning of the
short, it points to the beginning of an int. */
(*encoder) (-1, ((char*)retframe) + sizeof(void*)-sizeof(short),
tmptype, flags);
break;
/* On some (but not all) architectures, for C variable types
smaller than int, like short, the RETFRAME doesn't actually
point to the beginning of the short, it points to the
beginning of an int. So we let RETFRAME_SHORT() take care of
it. */
{
short ret = retframe_short (retframe);
(*encoder) (-1, &ret, tmptype, flags);
break;
}
case _C_CHR:
case _C_UCHR:
/* For C variable types smaller than int, like char, the
RETFRAME doesn't actually point to the beginning of the
short, it points to the beginning of an int. */
(*encoder) (-1, ((char*)retframe) + sizeof(void*)-sizeof(char),
tmptype, flags);
break;
/* On some (but not all) architectures, for C variable types
smaller than int, like char, the RETFRAME doesn't actually
point to the beginning of the char, it points to the
beginning of an int. So we let RETFRAME_SHORT() take care of
it. */
{
char ret = retframe_char (retframe);
(*encoder) (-1, &ret, tmptype, flags);
break;
}
default:
/* case _C_INT: case _C_UINT: case _C_LNG: case _C_ULNG:
case _C_CHARPTR: */
case _C_CHARPTR: case: _C_ID: */
/* xxx I think this assumes that sizeof(int)==sizeof(void*) */
(*encoder) (-1, retframe, tmptype, flags);
}