godzil/tack
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Changed method for returning big values; Instead of using a chunk of

Browse Source 
global data area, caller creates space on the stack just above parameters
to store the result
This commit is contained in:
ceriel
1989-03-10 10:40:07 +00:00
parent 7e4845e2ef
commit 16753f7a42
3 changed files with 30 additions and 32 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
lang/m2/comp/code.c
View File

@@ -321,6 +321,12 @@ CodeCall(nd)
assert(IsProc(left));
if (result_tp = ResultType(left->nd_type)) {
if (TooBigForReturnArea(result_tp)) {
C_asp(-WA(result_tp->tp_size));
}
}
if (nd->nd_right) {
CodeParameters(ParamList(left->nd_type), nd->nd_right);
}
@@ -349,13 +355,10 @@ CodeCall(nd)
C_cai();
}
C_asp(left->nd_type->prc_nbpar);
if (result_tp = ResultType(left->nd_type)) {
arith sz = WA(result_tp->tp_size);
if (IsConstructed(result_tp)) {
C_lfr(pointer_size);
C_loi(sz);
if (result_tp) {
if (TooBigForReturnArea(result_tp)) {
}
else C_lfr(sz);
else C_lfr(WA(result_tp->tp_size));
}
DoFilename(needs_fn);
DoLineno(nd);