Alexander_KS/SAPFOR
4
2
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fixed f2c

Browse Source
This commit is contained in:
ALEXks
2024-04-12 15:04:48 +03:00
parent 7a9794569f
commit 5b1e18cdfd
1 changed files with 15 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
dvm/fdvm/trunk/fdvm/acc_f2c.cpp
View File

@@ -1306,7 +1306,21 @@ static bool matchPrototype(SgSymbol *funcSymb, SgExpression *&listArgs, bool isF
} }
} }
else else
argInCall->setLhs(SgAddrOp(*argInCall->lhs())); {
SgExpression* arr = argInCall->lhs();
if (options.isOn(O_PL2))
{
SgType* cast = NULL;
if (typeInProtSave->hasBaseType())
cast = C_PointerType(C_Type(typeInProtSave->baseType()));
else
cast = C_PointerType(C_Type(typeInProtSave));
argInCall->setLhs(*new SgCastExp(*cast, SgAddrOp(*arr)));
}
else
argInCall->setLhs(SgAddrOp(*arr));
}
} }
} }
} }