TC-L Samples

Starting from a typed AST, generate the LLVM IR instructions using the LLVM framework.

the-answer-llvm.tig
let
  var answer := 42
in
  answer := 51
end
tc --llvm-display the-answer-llvm.tig
$ tc --llvm-display the-answer-llvm.tig
; ModuleID = 'tc'
source_filename = "tc"
target triple = "i386-pc-linux-gnu"

; Function Attrs: inlinehint nounwind
declare void @tc_print(i8*) #0

; Function Attrs: inlinehint nounwind
declare void @tc_print_err(i8*) #0

; Function Attrs: inlinehint nounwind
declare void @tc_print_int(i32) #0

; Function Attrs: inlinehint nounwind
declare void @tc_flush() #0

; Function Attrs: inlinehint nounwind
declare i8* @tc_getchar() #0

; Function Attrs: inlinehint nounwind
declare i32 @tc_ord(i8*) #0

; Function Attrs: inlinehint nounwind
declare i8* @tc_chr(i32) #0

; Function Attrs: inlinehint nounwind
declare i32 @tc_size(i8*) #0

; Function Attrs: inlinehint nounwind
declare i32 @tc_streq(i8*, i8*) #0

; Function Attrs: inlinehint nounwind
declare i32 @tc_strcmp(i8*, i8*) #0

; Function Attrs: inlinehint nounwind
declare i8* @tc_substring(i8*, i32, i32) #0

; Function Attrs: inlinehint nounwind
declare i8* @tc_concat(i8*, i8*) #0

; Function Attrs: inlinehint nounwind
declare i32 @tc_not(i32) #0

; Function Attrs: inlinehint nounwind
declare void @tc_exit(i32) #0

; Function Attrs: nounwind
define void @tc_main() #1 {
entry__main:
  %answer_17 = alloca i32, align 4
  store i32 42, i32* %answer_17, align 4
  store i32 51, i32* %answer_17, align 4
  ret void
}

attributes #0 = { inlinehint nounwind }
attributes #1 = { nounwind }
$ echo $?
0
add-llvm.tig
let
  function add(x: int, y: int) : int = x + y
in
  print_int(add(1,(add(2, 3)))); print("\n")
end
tc --llvm-display add-llvm.tig
$ tc --llvm-display add-llvm.tig
; ModuleID = 'tc'
source_filename = "tc"
target triple = "i386-pc-linux-gnu"

@string = private unnamed_addr constant [2 x i8] c"\0A\00", align 1

; Function Attrs: inlinehint nounwind
declare void @tc_print(i8*) #0

; Function Attrs: inlinehint nounwind
declare void @tc_print_err(i8*) #0

; Function Attrs: inlinehint nounwind
declare void @tc_print_int(i32) #0

; Function Attrs: inlinehint nounwind
declare void @tc_flush() #0

; Function Attrs: inlinehint nounwind
declare i8* @tc_getchar() #0

; Function Attrs: inlinehint nounwind
declare i32 @tc_ord(i8*) #0

; Function Attrs: inlinehint nounwind
declare i8* @tc_chr(i32) #0

; Function Attrs: inlinehint nounwind
declare i32 @tc_size(i8*) #0

; Function Attrs: inlinehint nounwind
declare i32 @tc_streq(i8*, i8*) #0

; Function Attrs: inlinehint nounwind
declare i32 @tc_strcmp(i8*, i8*) #0

; Function Attrs: inlinehint nounwind
declare i8* @tc_substring(i8*, i32, i32) #0

; Function Attrs: inlinehint nounwind
declare i8* @tc_concat(i8*, i8*) #0

; Function Attrs: inlinehint nounwind
declare i32 @tc_not(i32) #0

; Function Attrs: inlinehint nounwind
declare void @tc_exit(i32) #0

; Function Attrs: nounwind
define void @tc_main() #1 {
entry__main:
  %call_add_19 = call i32 @add_19(i32 2, i32 3)
  %call_add_191 = call i32 @add_19(i32 1, i32 %call_add_19)
  call void @tc_print_int(i32 %call_add_191)
  call void @tc_print(i8* getelementptr inbounds ([2 x i8], [2 x i8]* @string, i32 0, i32 0))
  ret void
}

; Function Attrs: nounwind
define internal i32 @add_19(i32 %x_17, i32 %y_18) #1 {
entry_add_19:
  %y_182 = alloca i32, align 4
  %x_171 = alloca i32, align 4
  store i32 %x_17, i32* %x_171, align 4
  store i32 %y_18, i32* %y_182, align 4
  %x_173 = load i32, i32* %x_171, align 4
  %y_184 = load i32, i32* %y_182, align 4
  %addtmp = add i32 %x_173, %y_184
  ret i32 %addtmp
}

attributes #0 = { inlinehint nounwind }
attributes #1 = { nounwind }
$ echo $?
0

Once your compiler is complete, you can produce an actual LLVM IR output and compile it with Clang to produce a real executable program.

tc --llvm-runtime-display --llvm-display add-llvm.tig
$ tc --llvm-runtime-display --llvm-display add-llvm.tig
; ModuleID = 'tc'
source_filename = "tc"
target datalayout = "e-m:e-p:32:32-p270:32:32-p271:32:32-p272:64:64-f64:32:64-f80:32-n8:16:32-S128"
target triple = "i386-pc-linux-gnu"

%struct._IO_FILE = type { i32, i8*, i8*, i8*, i8*, i8*, i8*, i8*, i8*, i8*, i8*, i8*, %struct._IO_marker*, %struct._IO_FILE*, i32, i32, i32, i16, i8, [1 x i8], i8*, i64, %struct._IO_codecvt*, %struct._IO_wide_data*, %struct._IO_FILE*, i8*, i32, i32, [40 x i8] }
%struct._IO_marker = type opaque
%struct._IO_codecvt = type opaque
%struct._IO_wide_data = type opaque

@string = private unnamed_addr constant [2 x i8] c"\0A\00", align 1
@.str = private unnamed_addr constant [29 x i8] c"chr: character out of range\0A\00", align 1
@stderr = external global %struct._IO_FILE*, align 4
@consts = internal global [512 x i8] zeroinitializer, align 1
@.str.1 = private unnamed_addr constant [36 x i8] c"substring: arguments out of bounds\0A\00", align 1
@stdin = external global %struct._IO_FILE*, align 4
@.str.2 = private unnamed_addr constant [1 x i8] zeroinitializer, align 1
@.str.3 = private unnamed_addr constant [3 x i8] c"%s\00", align 1
@.str.4 = private unnamed_addr constant [3 x i8] c"%d\00", align 1
@stdout = external global %struct._IO_FILE*, align 4

; Function Attrs: nounwind
define void @tc_main() #0 {
entry__main:
  %call_add_19 = call i32 @add_19(i32 2, i32 3)
  %call_add_191 = call i32 @add_19(i32 1, i32 %call_add_19)
  call void @tc_print_int(i32 %call_add_191)
  call void @tc_print(i8* getelementptr inbounds ([2 x i8], [2 x i8]* @string, i32 0, i32 0))
  ret void
}

; Function Attrs: nounwind
define internal i32 @add_19(i32 %x_17, i32 %y_18) #0 {
entry_add_19:
  %y_182 = alloca i32, align 4
  %x_171 = alloca i32, align 4
  store i32 %x_17, i32* %x_171, align 4
  store i32 %y_18, i32* %y_182, align 4
  %x_173 = load i32, i32* %x_171, align 4
  %y_184 = load i32, i32* %y_182, align 4
  %addtmp = add i32 %x_173, %y_184
  ret i32 %addtmp
}

; Function Attrs: noinline nounwind optnone uwtable
define dso_local i32* @tc_init_array(i32 noundef %0, i32 noundef %1) #1 {
  %3 = alloca i32, align 4
  %4 = alloca i32, align 4
  %5 = alloca i32*, align 4
  %6 = alloca i32, align 4
  store i32 %0, i32* %3, align 4
  store i32 %1, i32* %4, align 4
  %7 = load i32, i32* %3, align 4
  %8 = mul i32 %7, 4
  %9 = call noalias i8* @malloc(i32 noundef %8) #0
  %10 = bitcast i8* %9 to i32*
  store i32* %10, i32** %5, align 4
  store i32 0, i32* %6, align 4
  br label %11

11:                                               ; preds = %20, %2
  %12 = load i32, i32* %6, align 4
  %13 = load i32, i32* %3, align 4
  %14 = icmp ult i32 %12, %13
  br i1 %14, label %15, label %23

15:                                               ; preds = %11
  %16 = load i32, i32* %4, align 4
  %17 = load i32*, i32** %5, align 4
  %18 = load i32, i32* %6, align 4
  %19 = getelementptr inbounds i32, i32* %17, i32 %18
  store i32 %16, i32* %19, align 4
  br label %20

20:                                               ; preds = %15
  %21 = load i32, i32* %6, align 4
  %22 = add i32 %21, 1
  store i32 %22, i32* %6, align 4
  br label %11

23:                                               ; preds = %11
  %24 = load i32*, i32** %5, align 4
  ret i32* %24
}

; Function Attrs: nounwind
declare noalias i8* @malloc(i32 noundef) #2

; Function Attrs: noinline nounwind optnone uwtable
define dso_local i32 @tc_not(i32 noundef %0) #1 {
  %2 = alloca i32, align 4
  store i32 %0, i32* %2, align 4
  %3 = load i32, i32* %2, align 4
  %4 = icmp ne i32 %3, 0
  %5 = xor i1 %4, true
  %6 = zext i1 %5 to i32
  ret i32 %6
}

; Function Attrs: noinline nounwind optnone uwtable
define dso_local void @tc_exit(i32 noundef %0) #1 {
  %2 = alloca i32, align 4
  store i32 %0, i32* %2, align 4
  %3 = load i32, i32* %2, align 4
  call void @exit(i32 noundef %3) #6
  unreachable
}

; Function Attrs: noreturn nounwind
declare void @exit(i32 noundef) #3

; Function Attrs: noinline nounwind optnone uwtable
define dso_local i8* @tc_chr(i32 noundef %0) #1 {
  %2 = alloca i32, align 4
  store i32 %0, i32* %2, align 4
  %3 = load i32, i32* %2, align 4
  %4 = icmp sle i32 0, %3
  br i1 %4, label %5, label %8

5:                                                ; preds = %1
  %6 = load i32, i32* %2, align 4
  %7 = icmp sle i32 %6, 255
  br i1 %7, label %11, label %8

8:                                                ; preds = %5, %1
  %9 = load %struct._IO_FILE*, %struct._IO_FILE** @stderr, align 4
  %10 = call i32 @fputs(i8* noundef getelementptr inbounds ([29 x i8], [29 x i8]* @.str, i32 0, i32 0), %struct._IO_FILE* noundef %9)
  call void @exit(i32 noundef 120) #6
  unreachable

11:                                               ; preds = %5
  %12 = load i32, i32* %2, align 4
  %13 = mul nsw i32 %12, 2
  %14 = getelementptr inbounds i8, i8* getelementptr inbounds ([512 x i8], [512 x i8]* @consts, i32 0, i32 0), i32 %13
  ret i8* %14
}

declare i32 @fputs(i8* noundef, %struct._IO_FILE* noundef) #4

; Function Attrs: noinline nounwind optnone uwtable
define dso_local i8* @tc_concat(i8* noundef %0, i8* noundef %1) #1 {
  %3 = alloca i8*, align 4
  %4 = alloca i8*, align 4
  %5 = alloca i8*, align 4
  %6 = alloca i32, align 4
  %7 = alloca i32, align 4
  %8 = alloca i32, align 4
  %9 = alloca i32, align 4
  %10 = alloca i8*, align 4
  store i8* %0, i8** %4, align 4
  store i8* %1, i8** %5, align 4
  %11 = load i8*, i8** %4, align 4
  %12 = call i32 @strlen(i8* noundef %11) #7
  store i32 %12, i32* %6, align 4
  %13 = load i8*, i8** %5, align 4
  %14 = call i32 @strlen(i8* noundef %13) #7
  store i32 %14, i32* %7, align 4
  %15 = load i32, i32* %6, align 4
  %16 = icmp eq i32 %15, 0
  br i1 %16, label %17, label %19

17:                                               ; preds = %2
  %18 = load i8*, i8** %5, align 4
  store i8* %18, i8** %3, align 4
  br label %69

19:                                               ; preds = %2
  %20 = load i32, i32* %7, align 4
  %21 = icmp eq i32 %20, 0
  br i1 %21, label %22, label %24

22:                                               ; preds = %19
  %23 = load i8*, i8** %4, align 4
  store i8* %23, i8** %3, align 4
  br label %69

24:                                               ; preds = %19
  store i32 0, i32* %8, align 4
  %25 = load i32, i32* %6, align 4
  %26 = load i32, i32* %7, align 4
  %27 = add i32 %25, %26
  store i32 %27, i32* %9, align 4
  %28 = load i32, i32* %9, align 4
  %29 = add nsw i32 %28, 1
  %30 = call noalias i8* @malloc(i32 noundef %29) #0
  store i8* %30, i8** %10, align 4
  store i32 0, i32* %8, align 4
  br label %31

31:                                               ; preds = %43, %24
  %32 = load i32, i32* %8, align 4
  %33 = load i32, i32* %6, align 4
  %34 = icmp ult i32 %32, %33
  br i1 %34, label %35, label %46

35:                                               ; preds = %31
  %36 = load i8*, i8** %4, align 4
  %37 = load i32, i32* %8, align 4
  %38 = getelementptr inbounds i8, i8* %36, i32 %37
  %39 = load i8, i8* %38, align 1
  %40 = load i8*, i8** %10, align 4
  %41 = load i32, i32* %8, align 4
  %42 = getelementptr inbounds i8, i8* %40, i32 %41
  store i8 %39, i8* %42, align 1
  br label %43

43:                                               ; preds = %35
  %44 = load i32, i32* %8, align 4
  %45 = add nsw i32 %44, 1
  store i32 %45, i32* %8, align 4
  br label %31

46:                                               ; preds = %31
  store i32 0, i32* %8, align 4
  br label %47

47:                                               ; preds = %61, %46
  %48 = load i32, i32* %8, align 4
  %49 = load i32, i32* %7, align 4
  %50 = icmp ult i32 %48, %49
  br i1 %50, label %51, label %64

51:                                               ; preds = %47
  %52 = load i8*, i8** %5, align 4
  %53 = load i32, i32* %8, align 4
  %54 = getelementptr inbounds i8, i8* %52, i32 %53
  %55 = load i8, i8* %54, align 1
  %56 = load i8*, i8** %10, align 4
  %57 = load i32, i32* %8, align 4
  %58 = load i32, i32* %6, align 4
  %59 = add i32 %57, %58
  %60 = getelementptr inbounds i8, i8* %56, i32 %59
  store i8 %55, i8* %60, align 1
  br label %61

61:                                               ; preds = %51
  %62 = load i32, i32* %8, align 4
  %63 = add nsw i32 %62, 1
  store i32 %63, i32* %8, align 4
  br label %47

64:                                               ; preds = %47
  %65 = load i8*, i8** %10, align 4
  %66 = load i32, i32* %9, align 4
  %67 = getelementptr inbounds i8, i8* %65, i32 %66
  store i8 0, i8* %67, align 1
  %68 = load i8*, i8** %10, align 4
  store i8* %68, i8** %3, align 4
  br label %69

69:                                               ; preds = %64, %22, %17
  %70 = load i8*, i8** %3, align 4
  ret i8* %70
}

; Function Attrs: nounwind readonly willreturn
declare i32 @strlen(i8* noundef) #5

; Function Attrs: noinline nounwind optnone uwtable
define dso_local i32 @tc_ord(i8* noundef %0) #1 {
  %2 = alloca i32, align 4
  %3 = alloca i8*, align 4
  %4 = alloca i32, align 4
  store i8* %0, i8** %3, align 4
  %5 = load i8*, i8** %3, align 4
  %6 = call i32 @strlen(i8* noundef %5) #7
  store i32 %6, i32* %4, align 4
  %7 = load i32, i32* %4, align 4
  %8 = icmp eq i32 %7, 0
  br i1 %8, label %9, label %10

9:                                                ; preds = %1
  store i32 -1, i32* %2, align 4
  br label %15

10:                                               ; preds = %1
  %11 = load i8*, i8** %3, align 4
  %12 = getelementptr inbounds i8, i8* %11, i32 0
  %13 = load i8, i8* %12, align 1
  %14 = sext i8 %13 to i32
  store i32 %14, i32* %2, align 4
  br label %15

15:                                               ; preds = %10, %9
  %16 = load i32, i32* %2, align 4
  ret i32 %16
}

; Function Attrs: noinline nounwind optnone uwtable
define dso_local i32 @tc_size(i8* noundef %0) #1 {
  %2 = alloca i8*, align 4
  store i8* %0, i8** %2, align 4
  %3 = load i8*, i8** %2, align 4
  %4 = call i32 @strlen(i8* noundef %3) #7
  ret i32 %4
}

; Function Attrs: noinline nounwind optnone uwtable
define dso_local i8* @tc_substring(i8* noundef %0, i32 noundef %1, i32 noundef %2) #1 {
  %4 = alloca i8*, align 4
  %5 = alloca i8*, align 4
  %6 = alloca i32, align 4
  %7 = alloca i32, align 4
  %8 = alloca i32, align 4
  %9 = alloca i8*, align 4
  %10 = alloca i32, align 4
  store i8* %0, i8** %5, align 4
  store i32 %1, i32* %6, align 4
  store i32 %2, i32* %7, align 4
  %11 = load i8*, i8** %5, align 4
  %12 = call i32 @strlen(i8* noundef %11) #7
  store i32 %12, i32* %8, align 4
  %13 = load i32, i32* %6, align 4
  %14 = icmp sle i32 0, %13
  br i1 %14, label %15, label %24

15:                                               ; preds = %3
  %16 = load i32, i32* %7, align 4
  %17 = icmp sle i32 0, %16
  br i1 %17, label %18, label %24

18:                                               ; preds = %15
  %19 = load i32, i32* %6, align 4
  %20 = load i32, i32* %7, align 4
  %21 = add nsw i32 %19, %20
  %22 = load i32, i32* %8, align 4
  %23 = icmp ule i32 %21, %22
  br i1 %23, label %27, label %24

24:                                               ; preds = %18, %15, %3
  %25 = load %struct._IO_FILE*, %struct._IO_FILE** @stderr, align 4
  %26 = call i32 @fputs(i8* noundef getelementptr inbounds ([36 x i8], [36 x i8]* @.str.1, i32 0, i32 0), %struct._IO_FILE* noundef %25)
  call void @exit(i32 noundef 120) #6
  unreachable

27:                                               ; preds = %18
  %28 = load i32, i32* %7, align 4
  %29 = icmp eq i32 %28, 1
  br i1 %29, label %30, label %38

30:                                               ; preds = %27
  %31 = load i8*, i8** %5, align 4
  %32 = load i32, i32* %6, align 4
  %33 = getelementptr inbounds i8, i8* %31, i32 %32
  %34 = load i8, i8* %33, align 1
  %35 = sext i8 %34 to i32
  %36 = mul nsw i32 %35, 2
  %37 = getelementptr inbounds i8, i8* getelementptr inbounds ([512 x i8], [512 x i8]* @consts, i32 0, i32 0), i32 %36
  store i8* %37, i8** %4, align 4
  br label %64

38:                                               ; preds = %27
  %39 = load i32, i32* %7, align 4
  %40 = add nsw i32 %39, 1
  %41 = call noalias i8* @malloc(i32 noundef %40) #0
  store i8* %41, i8** %9, align 4
  store i32 0, i32* %10, align 4
  br label %42

42:                                               ; preds = %56, %38
  %43 = load i32, i32* %10, align 4
  %44 = load i32, i32* %7, align 4
  %45 = icmp slt i32 %43, %44
  br i1 %45, label %46, label %59

46:                                               ; preds = %42
  %47 = load i8*, i8** %5, align 4
  %48 = load i32, i32* %6, align 4
  %49 = load i32, i32* %10, align 4
  %50 = add nsw i32 %48, %49
  %51 = getelementptr inbounds i8, i8* %47, i32 %50
  %52 = load i8, i8* %51, align 1
  %53 = load i8*, i8** %9, align 4
  %54 = load i32, i32* %10, align 4
  %55 = getelementptr inbounds i8, i8* %53, i32 %54
  store i8 %52, i8* %55, align 1
  br label %56

56:                                               ; preds = %46
  %57 = load i32, i32* %10, align 4
  %58 = add nsw i32 %57, 1
  store i32 %58, i32* %10, align 4
  br label %42

59:                                               ; preds = %42
  %60 = load i8*, i8** %9, align 4
  %61 = load i32, i32* %7, align 4
  %62 = getelementptr inbounds i8, i8* %60, i32 %61
  store i8 0, i8* %62, align 1
  %63 = load i8*, i8** %9, align 4
  store i8* %63, i8** %4, align 4
  br label %64

64:                                               ; preds = %59, %30
  %65 = load i8*, i8** %4, align 4
  ret i8* %65
}

; Function Attrs: noinline nounwind optnone uwtable
define dso_local i32 @tc_strcmp(i8* noundef %0, i8* noundef %1) #1 {
  %3 = alloca i8*, align 4
  %4 = alloca i8*, align 4
  store i8* %0, i8** %3, align 4
  store i8* %1, i8** %4, align 4
  %5 = load i8*, i8** %3, align 4
  %6 = load i8*, i8** %4, align 4
  %7 = call i32 @strcmp(i8* noundef %5, i8* noundef %6) #7
  ret i32 %7
}

; Function Attrs: nounwind readonly willreturn
declare i32 @strcmp(i8* noundef, i8* noundef) #5

; Function Attrs: noinline nounwind optnone uwtable
define dso_local i32 @tc_streq(i8* noundef %0, i8* noundef %1) #1 {
  %3 = alloca i8*, align 4
  %4 = alloca i8*, align 4
  store i8* %0, i8** %3, align 4
  store i8* %1, i8** %4, align 4
  %5 = load i8*, i8** %3, align 4
  %6 = load i8*, i8** %4, align 4
  %7 = call i32 @strcmp(i8* noundef %5, i8* noundef %6) #7
  %8 = icmp eq i32 %7, 0
  %9 = zext i1 %8 to i32
  ret i32 %9
}

; Function Attrs: noinline nounwind optnone uwtable
define dso_local i8* @tc_getchar() #1 {
  %1 = alloca i8*, align 4
  %2 = alloca i32, align 4
  %3 = load %struct._IO_FILE*, %struct._IO_FILE** @stdin, align 4
  %4 = call i32 @getc(%struct._IO_FILE* noundef %3)
  store i32 %4, i32* %2, align 4
  %5 = load i32, i32* %2, align 4
  %6 = icmp eq i32 %5, -1
  br i1 %6, label %7, label %8

7:                                                ; preds = %0
  store i8* getelementptr inbounds ([1 x i8], [1 x i8]* @.str.2, i32 0, i32 0), i8** %1, align 4
  br label %12

8:                                                ; preds = %0
  %9 = load i32, i32* %2, align 4
  %10 = mul nsw i32 %9, 2
  %11 = getelementptr inbounds i8, i8* getelementptr inbounds ([512 x i8], [512 x i8]* @consts, i32 0, i32 0), i32 %10
  store i8* %11, i8** %1, align 4
  br label %12

12:                                               ; preds = %8, %7
  %13 = load i8*, i8** %1, align 4
  ret i8* %13
}

declare i32 @getc(%struct._IO_FILE* noundef) #4

; Function Attrs: noinline nounwind optnone uwtable
define dso_local void @tc_print(i8* noundef %0) #1 {
  %2 = alloca i8*, align 4
  store i8* %0, i8** %2, align 4
  %3 = load i8*, i8** %2, align 4
  %4 = call i32 (i8*, ...) @printf(i8* noundef getelementptr inbounds ([3 x i8], [3 x i8]* @.str.3, i32 0, i32 0), i8* noundef %3)
  ret void
}

declare i32 @printf(i8* noundef, ...) #4

; Function Attrs: noinline nounwind optnone uwtable
define dso_local void @tc_print_err(i8* noundef %0) #1 {
  %2 = alloca i8*, align 4
  store i8* %0, i8** %2, align 4
  %3 = load %struct._IO_FILE*, %struct._IO_FILE** @stderr, align 4
  %4 = load i8*, i8** %2, align 4
  %5 = call i32 (%struct._IO_FILE*, i8*, ...) @fprintf(%struct._IO_FILE* noundef %3, i8* noundef getelementptr inbounds ([3 x i8], [3 x i8]* @.str.3, i32 0, i32 0), i8* noundef %4)
  ret void
}

declare i32 @fprintf(%struct._IO_FILE* noundef, i8* noundef, ...) #4

; Function Attrs: noinline nounwind optnone uwtable
define dso_local void @tc_print_int(i32 noundef %0) #1 {
  %2 = alloca i32, align 4
  store i32 %0, i32* %2, align 4
  %3 = load i32, i32* %2, align 4
  %4 = call i32 (i8*, ...) @printf(i8* noundef getelementptr inbounds ([3 x i8], [3 x i8]* @.str.4, i32 0, i32 0), i32 noundef %3)
  ret void
}

; Function Attrs: noinline nounwind optnone uwtable
define dso_local void @tc_flush() #1 {
  %1 = load %struct._IO_FILE*, %struct._IO_FILE** @stdout, align 4
  %2 = call i32 @fflush(%struct._IO_FILE* noundef %1)
  ret void
}

declare i32 @fflush(%struct._IO_FILE* noundef) #4

; Function Attrs: noinline nounwind optnone uwtable
define dso_local i32 @main() #1 {
  %1 = alloca i32, align 4
  %2 = alloca i32, align 4
  store i32 0, i32* %1, align 4
  store i32 0, i32* %2, align 4
  br label %3

3:                                                ; preds = %15, %0
  %4 = load i32, i32* %2, align 4
  %5 = icmp slt i32 %4, 512
  br i1 %5, label %6, label %18

6:                                                ; preds = %3
  %7 = load i32, i32* %2, align 4
  %8 = sdiv i32 %7, 2
  %9 = trunc i32 %8 to i8
  %10 = load i32, i32* %2, align 4
  %11 = getelementptr inbounds [512 x i8], [512 x i8]* @consts, i32 0, i32 %10
  store i8 %9, i8* %11, align 1
  %12 = load i32, i32* %2, align 4
  %13 = add nsw i32 %12, 1
  %14 = getelementptr inbounds [512 x i8], [512 x i8]* @consts, i32 0, i32 %13
  store i8 0, i8* %14, align 1
  br label %15

15:                                               ; preds = %6
  %16 = load i32, i32* %2, align 4
  %17 = add nsw i32 %16, 2
  store i32 %17, i32* %2, align 4
  br label %3

18:                                               ; preds = %3
  call void bitcast (void ()* @tc_main to void (i32)*)(i32 noundef 0)
  ret i32 0
}

attributes #0 = { nounwind }
attributes #1 = { noinline nounwind optnone uwtable "frame-pointer"="all" "min-legal-vector-width"="0" "no-trapping-math"="true" "stack-protector-buffer-size"="8" "target-cpu"="i686" "target-features"="+cx8,+x87" "tune-cpu"="generic" }
attributes #2 = { nounwind "frame-pointer"="all" "no-trapping-math"="true" "stack-protector-buffer-size"="8" "target-cpu"="i686" "target-features"="+cx8,+x87" "tune-cpu"="generic" }
attributes #3 = { noreturn nounwind "frame-pointer"="all" "no-trapping-math"="true" "stack-protector-buffer-size"="8" "target-cpu"="i686" "target-features"="+cx8,+x87" "tune-cpu"="generic" }
attributes #4 = { "frame-pointer"="all" "no-trapping-math"="true" "stack-protector-buffer-size"="8" "target-cpu"="i686" "target-features"="+cx8,+x87" "tune-cpu"="generic" }
attributes #5 = { nounwind readonly willreturn "frame-pointer"="all" "no-trapping-math"="true" "stack-protector-buffer-size"="8" "target-cpu"="i686" "target-features"="+cx8,+x87" "tune-cpu"="generic" }
attributes #6 = { noreturn nounwind }
attributes #7 = { nounwind readonly willreturn }

!llvm.ident = !{!0}
!llvm.module.flags = !{!1, !2, !3, !4, !5, !6}

!0 = !{!"Debian clang version 14.0.6"}
!1 = !{i32 1, !"NumRegisterParameters", i32 0}
!2 = !{i32 1, !"wchar_size", i32 4}
!3 = !{i32 7, !"PIC Level", i32 2}
!4 = !{i32 7, !"PIE Level", i32 2}
!5 = !{i32 7, !"uwtable", i32 1}
!6 = !{i32 7, !"frame-pointer", i32 2}
$ echo $?
0
tc --llvm-runtime-display --llvm-display add-llvm.tig > add-llvm.ll
$ tc --llvm-runtime-display --llvm-display add-llvm.tig > add-llvm.ll

$ echo $?
0
clang -m32 -oadd-llvm add-llvm.ll
$ clang -m32 -oadd-llvm add-llvm.ll

$ echo $?
0
./add-llvm
$ ./add-llvm
6
$ echo $?
0
if.tig
if 1
  then 1
  else 2
tc --llvm-display if.tig
$ tc --llvm-display if.tig
; ModuleID = 'tc'
source_filename = "tc"
target triple = "i386-pc-linux-gnu"

; Function Attrs: inlinehint nounwind
declare void @tc_print(i8*) #0

; Function Attrs: inlinehint nounwind
declare void @tc_print_err(i8*) #0

; Function Attrs: inlinehint nounwind
declare void @tc_print_int(i32) #0

; Function Attrs: inlinehint nounwind
declare void @tc_flush() #0

; Function Attrs: inlinehint nounwind
declare i8* @tc_getchar() #0

; Function Attrs: inlinehint nounwind
declare i32 @tc_ord(i8*) #0

; Function Attrs: inlinehint nounwind
declare i8* @tc_chr(i32) #0

; Function Attrs: inlinehint nounwind
declare i32 @tc_size(i8*) #0

; Function Attrs: inlinehint nounwind
declare i32 @tc_streq(i8*, i8*) #0

; Function Attrs: inlinehint nounwind
declare i32 @tc_strcmp(i8*, i8*) #0

; Function Attrs: inlinehint nounwind
declare i8* @tc_substring(i8*, i32, i32) #0

; Function Attrs: inlinehint nounwind
declare i8* @tc_concat(i8*, i8*) #0

; Function Attrs: inlinehint nounwind
declare i32 @tc_not(i32) #0

; Function Attrs: inlinehint nounwind
declare void @tc_exit(i32) #0

; Function Attrs: nounwind
define void @tc_main() #1 {
entry__main:
  br i1 true, label %then, label %else

then:                                             ; preds = %entry__main
  br label %ifend

else:                                             ; preds = %entry__main
  br label %ifend

ifend:                                            ; preds = %else, %then
  %iftmp = phi i32 [ 1, %then ], [ 2, %else ]
  ret void
}

attributes #0 = { inlinehint nounwind }
attributes #1 = { nounwind }
$ echo $?
0
while.tig
while 1
do
  print("toto")
tc --llvm-display while.tig
$ tc --llvm-display while.tig
; ModuleID = 'tc'
source_filename = "tc"
target triple = "i386-pc-linux-gnu"

@string = private unnamed_addr constant [5 x i8] c"toto\00", align 1

; Function Attrs: inlinehint nounwind
declare void @tc_print(i8*) #0

; Function Attrs: inlinehint nounwind
declare void @tc_print_err(i8*) #0

; Function Attrs: inlinehint nounwind
declare void @tc_print_int(i32) #0

; Function Attrs: inlinehint nounwind
declare void @tc_flush() #0

; Function Attrs: inlinehint nounwind
declare i8* @tc_getchar() #0

; Function Attrs: inlinehint nounwind
declare i32 @tc_ord(i8*) #0

; Function Attrs: inlinehint nounwind
declare i8* @tc_chr(i32) #0

; Function Attrs: inlinehint nounwind
declare i32 @tc_size(i8*) #0

; Function Attrs: inlinehint nounwind
declare i32 @tc_streq(i8*, i8*) #0

; Function Attrs: inlinehint nounwind
declare i32 @tc_strcmp(i8*, i8*) #0

; Function Attrs: inlinehint nounwind
declare i8* @tc_substring(i8*, i32, i32) #0

; Function Attrs: inlinehint nounwind
declare i8* @tc_concat(i8*, i8*) #0

; Function Attrs: inlinehint nounwind
declare i32 @tc_not(i32) #0

; Function Attrs: inlinehint nounwind
declare void @tc_exit(i32) #0

; Function Attrs: nounwind
define void @tc_main() #1 {
entry__main:
  br label %test

test:                                             ; preds = %body, %entry__main
  br i1 true, label %body, label %afterloop

body:                                             ; preds = %test
  call void @tc_print(i8* getelementptr inbounds ([5 x i8], [5 x i8]* @string, i32 0, i32 0))
  br label %test

afterloop:                                        ; preds = %test
  ret void
}

attributes #0 = { inlinehint nounwind }
attributes #1 = { nounwind }
$ echo $?
0
array.tig
let
  type arrtype = array of int
  var arr1 : arrtype := arrtype [10] of 0
in
  arr1[2]
end
tc --llvm-display array.tig
$ tc --llvm-display array.tig
; ModuleID = 'tc'
source_filename = "tc"
target triple = "i386-pc-linux-gnu"

; Function Attrs: inlinehint nounwind
declare void @tc_print(i8*) #0

; Function Attrs: inlinehint nounwind
declare void @tc_print_err(i8*) #0

; Function Attrs: inlinehint nounwind
declare void @tc_print_int(i32) #0

; Function Attrs: inlinehint nounwind
declare void @tc_flush() #0

; Function Attrs: inlinehint nounwind
declare i8* @tc_getchar() #0

; Function Attrs: inlinehint nounwind
declare i32 @tc_ord(i8*) #0

; Function Attrs: inlinehint nounwind
declare i8* @tc_chr(i32) #0

; Function Attrs: inlinehint nounwind
declare i32 @tc_size(i8*) #0

; Function Attrs: inlinehint nounwind
declare i32 @tc_streq(i8*, i8*) #0

; Function Attrs: inlinehint nounwind
declare i32 @tc_strcmp(i8*, i8*) #0

; Function Attrs: inlinehint nounwind
declare i8* @tc_substring(i8*, i32, i32) #0

; Function Attrs: inlinehint nounwind
declare i8* @tc_concat(i8*, i8*) #0

; Function Attrs: inlinehint nounwind
declare i32 @tc_not(i32) #0

; Function Attrs: inlinehint nounwind
declare void @tc_exit(i32) #0

; Function Attrs: nounwind
define void @tc_main() #1 {
entry__main:
  %arr1_18 = alloca i32*, align 8
  %init_array_call = call i32* @tc_init_array(i32 10, i32 0)
  store i32* %init_array_call, i32** %arr1_18, align 8
  %arr1_181 = load i32*, i32** %arr1_18, align 8
  %subscriptptr = getelementptr i32, i32* %arr1_181, i32 2
  %subscriptvar = load i32, i32* %subscriptptr, align 4
  ret void
}

declare i32* @tc_init_array(i32, i32)

attributes #0 = { inlinehint nounwind }
attributes #1 = { nounwind }
$ echo $?
0
record.tig
/* a record type and a record variable */
let
  type  rectype = {name : string, age : int}
  var rec1 : rectype := rectype {name="Nobody", age=1000}
in
  rec1.name := "Somebody";
  rec1
end
tc --llvm-display record.tig
$ tc --llvm-display record.tig
; ModuleID = 'tc'
source_filename = "tc"
target triple = "i386-pc-linux-gnu"

%0 = type { i8*, i32 }

@string = private unnamed_addr constant [7 x i8] c"Nobody\00", align 1
@string.1 = private unnamed_addr constant [9 x i8] c"Somebody\00", align 1

; Function Attrs: inlinehint nounwind
declare void @tc_print(i8*) #0

; Function Attrs: inlinehint nounwind
declare void @tc_print_err(i8*) #0

; Function Attrs: inlinehint nounwind
declare void @tc_print_int(i32) #0

; Function Attrs: inlinehint nounwind
declare void @tc_flush() #0

; Function Attrs: inlinehint nounwind
declare i8* @tc_getchar() #0

; Function Attrs: inlinehint nounwind
declare i32 @tc_ord(i8*) #0

; Function Attrs: inlinehint nounwind
declare i8* @tc_chr(i32) #0

; Function Attrs: inlinehint nounwind
declare i32 @tc_size(i8*) #0

; Function Attrs: inlinehint nounwind
declare i32 @tc_streq(i8*, i8*) #0

; Function Attrs: inlinehint nounwind
declare i32 @tc_strcmp(i8*, i8*) #0

; Function Attrs: inlinehint nounwind
declare i8* @tc_substring(i8*, i32, i32) #0

; Function Attrs: inlinehint nounwind
declare i8* @tc_concat(i8*, i8*) #0

; Function Attrs: inlinehint nounwind
declare i32 @tc_not(i32) #0

; Function Attrs: inlinehint nounwind
declare void @tc_exit(i32) #0

; Function Attrs: nounwind
define void @tc_main() #1 {
entry__main:
  %rec1_18 = alloca %0*, align 8
  %malloccall = tail call i8* @malloc(i32 ptrtoint (%0* getelementptr (%0, %0* null, i32 1) to i32))
  %malloccall2 = bitcast i8* %malloccall to %0*
  %fieldinit_name = getelementptr inbounds %0, %0* %malloccall2, i32 0, i32 0
  store i8* getelementptr inbounds ([7 x i8], [7 x i8]* @string, i32 0, i32 0), i8** %fieldinit_name, align 8
  %fieldinit_age = getelementptr inbounds %0, %0* %malloccall2, i32 0, i32 1
  store i32 1000, i32* %fieldinit_age, align 4
  store %0* %malloccall2, %0** %rec1_18, align 8
  %rec1_183 = load %0*, %0** %rec1_18, align 8
  %fieldptr_name = getelementptr inbounds %0, %0* %rec1_183, i32 0, i32 0
  store i8* getelementptr inbounds ([9 x i8], [9 x i8]* @string.1, i32 0, i32 0), i8** %fieldptr_name, align 8
  %rec1_184 = load %0*, %0** %rec1_18, align 8
  ret void
}

declare noalias i8* @malloc(i32)

attributes #0 = { inlinehint nounwind }
attributes #1 = { nounwind }
$ echo $?
0