D/ldc
1
0
Fork 0
mirror of https://github.com/xomboverlord/ldc.git synced 2026-02-28 01:23:14 +01:00
Code Issues Actions Packages Projects Releases Wiki Activity

Added initial D2 support, D2 frontend and changes to codegen to make things compile.

Browse Source
This commit is contained in:
Tomas Lindquist Olsen
2008-11-11 01:38:48 +01:00
parent fe49ee6448
commit c4c1c1d72e
115 changed files with 83772 additions and 110 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
gen/tocall.cpp
View File

@@ -22,8 +22,9 @@ TypeFunction* DtoTypeFunction(DValue* fnval)
}
else if (type->ty == Tdelegate)
{
assert(type->next->ty == Tfunction);
return (TypeFunction*)type->next;
Type* next = type->nextOf();
assert(next->ty == Tfunction);
return (TypeFunction*)next;
}
assert(0 && "cant get TypeFunction* from non lazy/function/delegate");
@@ -426,8 +427,8 @@ DValue* DtoCallFunction(Loc& loc, Type* resulttype, DValue* fnval, Expressions*
}
}
#if 0
Logger::println("%d params passed", n);
#if 1
Logger::println("%lu params passed", args.size());
for (int i=0; i<args.size(); ++i) {
assert(args[i]);
Logger::cout() << "arg["<<i<<"] = " << *args[i] << '\n';
@@ -439,7 +440,7 @@ DValue* DtoCallFunction(Loc& loc, Type* resulttype, DValue* fnval, Expressions*
if (callableTy->getReturnType() != LLType::VoidTy)
varname = "tmp";
//Logger::cout() << "Calling: " << *funcval << '\n';
Logger::cout() << "Calling: " << *callable << '\n';
// call the function
CallOrInvoke* call = gIR->CreateCallOrInvoke(callable, args.begin(), args.end(), varname);
@@ -451,10 +452,14 @@ DValue* DtoCallFunction(Loc& loc, Type* resulttype, DValue* fnval, Expressions*
if (resulttype)
{
Type* rbase = resulttype->toBasetype();
Type* nextbase = tf->next->toBasetype();
Type* nextbase = tf->nextOf()->toBasetype();
#if DMDV2
rbase = rbase->mutableOf();
nextbase = nextbase->mutableOf();
#endif
if (!rbase->equals(nextbase))
{
Logger::println("repainting return value from '%s' to '%s'", tf->next->toChars(), rbase->toChars());
Logger::println("repainting return value from '%s' to '%s'", tf->nextOf()->toChars(), rbase->toChars());
switch(rbase->ty)
{
case Tarray: