mirror of
https://github.com/c3lang/c3c.git
synced 2026-02-27 12:01:16 +00:00
"[]=" now works as overload. Improved eval resolution. Added $$FUNCPTR
This commit is contained in:
Christoffer Lerno
committed by
Christoffer Lerno
Christoffer Lerno
parent
05d4ec55f6
commit
db06f99445
69
test/test_suite/compile_time/ct_funcptr.c3t
Normal file
69
test/test_suite/compile_time/ct_funcptr.c3t
Normal file
@@ -0,0 +1,69 @@
|
||||
// #target: macos-x64
|
||||
module test;
|
||||
import std::io;
|
||||
|
||||
fn void test(int x)
|
||||
{
|
||||
$typeof($$FUNCPTR) ptr = $$FUNCPTR;
|
||||
io::printfln("%d", x);
|
||||
if (x > 0) ptr(x - 1);
|
||||
}
|
||||
|
||||
fn void main()
|
||||
{
|
||||
test(10);
|
||||
}
|
||||
|
||||
/* #expect: test.ll
|
||||
|
||||
define void @test_test(i32 %0) #0 {
|
||||
entry:
|
||||
%ptr = alloca void (i32)*, align 8
|
||||
%retparam = alloca i64, align 8
|
||||
%taddr = alloca %"char[]", align 8
|
||||
%vararg = alloca %"variant[]", align 8
|
||||
%varargslots = alloca [1 x %variant], align 16
|
||||
%taddr1 = alloca i32, align 4
|
||||
store void (i32)* @test_test, void (i32)** %ptr, align 8
|
||||
store %"char[]" { i8* getelementptr inbounds ([3 x i8], [3 x i8]* @.str, i32 0, i32 0), i64 2 }, %"char[]"* %taddr, align 8
|
||||
%1 = bitcast %"char[]"* %taddr to { i8*, i64 }*
|
||||
%2 = getelementptr inbounds { i8*, i64 }, { i8*, i64 }* %1, i32 0, i32 0
|
||||
%lo = load i8*, i8** %2, align 8
|
||||
%3 = getelementptr inbounds { i8*, i64 }, { i8*, i64 }* %1, i32 0, i32 1
|
||||
%hi = load i64, i64* %3, align 8
|
||||
store i32 %0, i32* %taddr1, align 4
|
||||
%4 = bitcast i32* %taddr1 to i8*
|
||||
%5 = insertvalue %variant undef, i8* %4, 0
|
||||
%6 = insertvalue %variant %5, i64 ptrtoint (%.introspect* @"ct$int" to i64), 1
|
||||
%7 = getelementptr inbounds [1 x %variant], [1 x %variant]* %varargslots, i64 0, i64 0
|
||||
store %variant %6, %variant* %7, align 16
|
||||
%8 = getelementptr inbounds %"variant[]", %"variant[]"* %vararg, i32 0, i32 1
|
||||
store i64 1, i64* %8, align 8
|
||||
%9 = getelementptr inbounds %"variant[]", %"variant[]"* %vararg, i32 0, i32 0
|
||||
%10 = bitcast [1 x %variant]* %varargslots to %variant*
|
||||
store %variant* %10, %variant** %9, align 8
|
||||
%11 = bitcast %"variant[]"* %vararg to { i8*, i64 }*
|
||||
%12 = getelementptr inbounds { i8*, i64 }, { i8*, i64 }* %11, i32 0, i32 0
|
||||
%lo2 = load i8*, i8** %12, align 8
|
||||
%13 = getelementptr inbounds { i8*, i64 }, { i8*, i64 }* %11, i32 0, i32 1
|
||||
%hi3 = load i64, i64* %13, align 8
|
||||
%14 = call i64 @std_io_printfln(i64* %retparam, i8* %lo, i64 %hi, i8* %lo2, i64 %hi3)
|
||||
%not_err = icmp eq i64 %14, 0
|
||||
br i1 %not_err, label %after_check, label %voiderr
|
||||
|
||||
after_check: ; preds = %entry
|
||||
br label %voiderr
|
||||
|
||||
voiderr: ; preds = %after_check, %entry
|
||||
%gt = icmp sgt i32 %0, 0
|
||||
br i1 %gt, label %if.then, label %if.exit
|
||||
|
||||
if.then: ; preds = %voiderr
|
||||
%15 = load void (i32)*, void (i32)** %ptr, align 8
|
||||
%sub = sub i32 %0, 1
|
||||
call void %15(i32 %sub)
|
||||
br label %if.exit
|
||||
|
||||
if.exit: ; preds = %if.then, %voiderr
|
||||
ret void
|
||||
}
|
||||
@@ -16,5 +16,5 @@ fn void main3()
|
||||
|
||||
fn void main4()
|
||||
{
|
||||
$extnameof($evaltype("foo::int")); // #error: Built in types cannot have a path prefix.
|
||||
$extnameof($evaltype("foo::int")); // #error: Only valid types may be resolved with $evaltype.
|
||||
}
|
||||
|
||||
@@ -24,7 +24,7 @@ fn void f()
|
||||
|
||||
fn void g()
|
||||
{
|
||||
int x = $evaltype("bar::").sizeof; // #error: A valid name was expected here.
|
||||
int x = $evaltype("bar::").sizeof; // #error: Only valid types may be resolved with $evaltype
|
||||
}
|
||||
|
||||
fn void k()
|
||||
|
||||
39
test/test_suite/overloading/set_overload.c3t
Normal file
39
test/test_suite/overloading/set_overload.c3t
Normal file
@@ -0,0 +1,39 @@
|
||||
// #target: macos-x64
|
||||
|
||||
module test;
|
||||
import std::map;
|
||||
|
||||
define IntMap = HashMap<char[], int>;
|
||||
|
||||
fn void main()
|
||||
{
|
||||
IntMap map;
|
||||
map.set("Hello", 4);
|
||||
map["Bye"] = 5;
|
||||
}
|
||||
|
||||
/* #expect: test.ll
|
||||
|
||||
define void @test_main() #0 {
|
||||
entry:
|
||||
%map = alloca %HashMap, align 8
|
||||
%taddr = alloca %"char[]", align 8
|
||||
%taddr1 = alloca %"char[]", align 8
|
||||
%0 = bitcast %HashMap* %map to i8*
|
||||
call void @llvm.memset.p0i8.i64(i8* align 8 %0, i8 0, i64 40, i1 false)
|
||||
store %"char[]" { i8* getelementptr inbounds ([6 x i8], [6 x i8]* @.str, i32 0, i32 0), i64 5 }, %"char[]"* %taddr, align 8
|
||||
%1 = bitcast %"char[]"* %taddr to { i8*, i64 }*
|
||||
%2 = getelementptr inbounds { i8*, i64 }, { i8*, i64 }* %1, i32 0, i32 0
|
||||
%lo = load i8*, i8** %2, align 8
|
||||
%3 = getelementptr inbounds { i8*, i64 }, { i8*, i64 }* %1, i32 0, i32 1
|
||||
%hi = load i64, i64* %3, align 8
|
||||
%4 = call i8 @"std_map$$sa$char.int_HashMap_set"(%HashMap* %map, i8* %lo, i64 %hi, i32 4)
|
||||
store %"char[]" { i8* getelementptr inbounds ([4 x i8], [4 x i8]* @.str.1, i32 0, i32 0), i64 3 }, %"char[]"* %taddr1, align 8
|
||||
%5 = bitcast %"char[]"* %taddr1 to { i8*, i64 }*
|
||||
%6 = getelementptr inbounds { i8*, i64 }, { i8*, i64 }* %5, i32 0, i32 0
|
||||
%lo2 = load i8*, i8** %6, align 8
|
||||
%7 = getelementptr inbounds { i8*, i64 }, { i8*, i64 }* %5, i32 0, i32 1
|
||||
%hi3 = load i64, i64* %7, align 8
|
||||
%8 = call i8 @"std_map$$sa$char.int_HashMap_set"(%HashMap* %map, i8* %lo2, i64 %hi3, i32 5)
|
||||
ret void
|
||||
}
|
||||
File diff suppressed because it is too large
Load Diff
65
test/test_suite2/compile_time/ct_funcptr.c3t
Normal file
65
test/test_suite2/compile_time/ct_funcptr.c3t
Normal file
@@ -0,0 +1,65 @@
|
||||
// #target: macos-x64
|
||||
module test;
|
||||
import std::io;
|
||||
|
||||
fn void test(int x)
|
||||
{
|
||||
$typeof($$FUNCPTR) ptr = $$FUNCPTR;
|
||||
io::printfln("%d", x);
|
||||
if (x > 0) ptr(x - 1);
|
||||
}
|
||||
|
||||
fn void main()
|
||||
{
|
||||
test(10);
|
||||
}
|
||||
|
||||
/* #expect: test.ll
|
||||
|
||||
define void @test_test(i32 %0) #0 {
|
||||
entry:
|
||||
%ptr = alloca ptr, align 8
|
||||
%retparam = alloca i64, align 8
|
||||
%taddr = alloca %"char[]", align 8
|
||||
%vararg = alloca %"variant[]", align 8
|
||||
%varargslots = alloca [1 x %variant], align 16
|
||||
%taddr1 = alloca i32, align 4
|
||||
store ptr @test_test, ptr %ptr, align 8
|
||||
store %"char[]" { ptr @.str, i64 2 }, ptr %taddr, align 8
|
||||
%1 = getelementptr inbounds { ptr, i64 }, ptr %taddr, i32 0, i32 0
|
||||
%lo = load ptr, ptr %1, align 8
|
||||
%2 = getelementptr inbounds { ptr, i64 }, ptr %taddr, i32 0, i32 1
|
||||
%hi = load i64, ptr %2, align 8
|
||||
store i32 %0, ptr %taddr1, align 4
|
||||
%3 = insertvalue %variant undef, ptr %taddr1, 0
|
||||
%4 = insertvalue %variant %3, i64 ptrtoint (ptr @"ct$int" to i64), 1
|
||||
%5 = getelementptr inbounds [1 x %variant], ptr %varargslots, i64 0, i64 0
|
||||
store %variant %4, ptr %5, align 16
|
||||
%6 = getelementptr inbounds %"variant[]", ptr %vararg, i32 0, i32 1
|
||||
store i64 1, ptr %6, align 8
|
||||
%7 = getelementptr inbounds %"variant[]", ptr %vararg, i32 0, i32 0
|
||||
store ptr %varargslots, ptr %7, align 8
|
||||
%8 = getelementptr inbounds { ptr, i64 }, ptr %vararg, i32 0, i32 0
|
||||
%lo2 = load ptr, ptr %8, align 8
|
||||
%9 = getelementptr inbounds { ptr, i64 }, ptr %vararg, i32 0, i32 1
|
||||
%hi3 = load i64, ptr %9, align 8
|
||||
%10 = call i64 @std_io_printfln(ptr %retparam, ptr %lo, i64 %hi, ptr %lo2, i64 %hi3)
|
||||
%not_err = icmp eq i64 %10, 0
|
||||
br i1 %not_err, label %after_check, label %voiderr
|
||||
|
||||
after_check: ; preds = %entry
|
||||
br label %voiderr
|
||||
|
||||
voiderr: ; preds = %after_check, %entry
|
||||
%gt = icmp sgt i32 %0, 0
|
||||
br i1 %gt, label %if.then, label %if.exit
|
||||
|
||||
if.then: ; preds = %voiderr
|
||||
%11 = load ptr, ptr %ptr, align 8
|
||||
%sub = sub i32 %0, 1
|
||||
call void %11(i32 %sub)
|
||||
br label %if.exit
|
||||
|
||||
if.exit: ; preds = %if.then, %voiderr
|
||||
ret void
|
||||
}
|
||||
@@ -16,5 +16,5 @@ fn void main3()
|
||||
|
||||
fn void main4()
|
||||
{
|
||||
$extnameof($evaltype("foo::int")); // #error: Built in types cannot have a path prefix.
|
||||
$extnameof($evaltype("foo::int")); // #error: Only valid types may be resolved with $evaltype.
|
||||
}
|
||||
|
||||
@@ -1,6 +1,5 @@
|
||||
module foo;
|
||||
import bar;
|
||||
import bar::abc;
|
||||
|
||||
fn void a()
|
||||
{
|
||||
@@ -25,7 +24,7 @@ fn void f()
|
||||
|
||||
fn void g()
|
||||
{
|
||||
int x = $evaltype("bar::").sizeof; // #error: A valid name was expected here.
|
||||
int x = $evaltype("bar::").sizeof; // #error: Only valid types may be resolved with $evaltype
|
||||
}
|
||||
|
||||
fn void k()
|
||||
|
||||
36
test/test_suite2/overloading/set_overload.c3t
Normal file
36
test/test_suite2/overloading/set_overload.c3t
Normal file
@@ -0,0 +1,36 @@
|
||||
// #target: macos-x64
|
||||
|
||||
module test;
|
||||
import std::map;
|
||||
|
||||
define IntMap = HashMap<char[], int>;
|
||||
|
||||
fn void main()
|
||||
{
|
||||
IntMap map;
|
||||
map.set("Hello", 4);
|
||||
map["Bye"] = 5;
|
||||
}
|
||||
|
||||
/* #expect: test.ll
|
||||
|
||||
define void @test_main() #0 {
|
||||
entry:
|
||||
%map = alloca %HashMap, align 8
|
||||
%taddr = alloca %"char[]", align 8
|
||||
%taddr1 = alloca %"char[]", align 8
|
||||
call void @llvm.memset.p0.i64(ptr align 8 %map, i8 0, i64 40, i1 false)
|
||||
store %"char[]" { ptr @.str, i64 5 }, ptr %taddr, align 8
|
||||
%0 = getelementptr inbounds { ptr, i64 }, ptr %taddr, i32 0, i32 0
|
||||
%lo = load ptr, ptr %0, align 8
|
||||
%1 = getelementptr inbounds { ptr, i64 }, ptr %taddr, i32 0, i32 1
|
||||
%hi = load i64, ptr %1, align 8
|
||||
%2 = call i8 @"std_map$$sa$char.int_HashMap_set"(ptr %map, ptr %lo, i64 %hi, i32 4)
|
||||
store %"char[]" { ptr @.str.1, i64 3 }, ptr %taddr1, align 8
|
||||
%3 = getelementptr inbounds { ptr, i64 }, ptr %taddr1, i32 0, i32 0
|
||||
%lo2 = load ptr, ptr %3, align 8
|
||||
%4 = getelementptr inbounds { ptr, i64 }, ptr %taddr1, i32 0, i32 1
|
||||
%hi3 = load i64, ptr %4, align 8
|
||||
%5 = call i8 @"std_map$$sa$char.int_HashMap_set"(ptr %map, ptr %lo2, i64 %hi3, i32 5)
|
||||
ret void
|
||||
}
|
||||
File diff suppressed because it is too large
Load Diff
Reference in New Issue
Block a user