1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
|
; ModuleID = 'LFortran'
source_filename = "LFortran"
%complex_4 = type <{ float, float }>
%string_descriptor = type <{ i8*, i64 }>
@0 = private unnamed_addr constant [2 x i8] c"\0A\00", align 1
@serialization_info = private unnamed_addr constant [8 x i8] c"{R4,R4}\00", align 1
@1 = private unnamed_addr constant [5 x i8] c"%s%s\00", align 1
@2 = private unnamed_addr constant [2 x i8] c"\0A\00", align 1
@serialization_info.1 = private unnamed_addr constant [8 x i8] c"{R4,R4}\00", align 1
@3 = private unnamed_addr constant [5 x i8] c"%s%s\00", align 1
@4 = private unnamed_addr constant [2 x i8] c"\0A\00", align 1
@serialization_info.2 = private unnamed_addr constant [8 x i8] c"{R4,R4}\00", align 1
@5 = private unnamed_addr constant [5 x i8] c"%s%s\00", align 1
define i32 @main(i32 %0, i8** %1) {
.entry:
call void @_lpython_call_initial_functions(i32 %0, i8** %1)
%x = alloca %complex_4, align 8
store %complex_4 <{ float 3.000000e+00, float 4.000000e+00 }>, %complex_4* %x, align 1
%2 = load %complex_4, %complex_4* %x, align 1
%3 = extractvalue %complex_4 %2, 0
%4 = extractvalue %complex_4 %2, 1
%5 = fsub float %3, 4.000000e+00
%6 = fsub float %4, 0.000000e+00
%7 = insertvalue %complex_4 undef, float %5, 0
%8 = insertvalue %complex_4 %7, float %6, 1
store %complex_4 %8, %complex_4* %x, align 1
%9 = load %complex_4, %complex_4* %x, align 1
%10 = extractvalue %complex_4 %9, 0
%11 = extractvalue %complex_4 %9, 1
%12 = fsub float 4.000000e+00, %10
%13 = fsub float 0.000000e+00, %11
%14 = insertvalue %complex_4 undef, float %12, 0
%15 = insertvalue %complex_4 %14, float %13, 1
store %complex_4 %15, %complex_4* %x, align 1
%16 = alloca i64, align 8
%17 = call i8* (i8*, i64, i8*, i64*, i32, i32, ...) @_lcompilers_string_format_fortran(i8* null, i64 0, i8* getelementptr inbounds ([8 x i8], [8 x i8]* @serialization_info, i32 0, i32 0), i64* %16, i32 0, i32 0, %complex_4* %x)
%18 = load i64, i64* %16, align 4
%stringFormat_desc = alloca %string_descriptor, align 8
%19 = getelementptr %string_descriptor, %string_descriptor* %stringFormat_desc, i32 0, i32 0
store i8* %17, i8** %19, align 8
%20 = getelementptr %string_descriptor, %string_descriptor* %stringFormat_desc, i32 0, i32 1
store i64 %18, i64* %20, align 4
%21 = getelementptr %string_descriptor, %string_descriptor* %stringFormat_desc, i32 0, i32 0
%22 = load i8*, i8** %21, align 8
%23 = getelementptr %string_descriptor, %string_descriptor* %stringFormat_desc, i32 0, i32 1
%24 = load i64, i64* %23, align 4
%25 = trunc i64 %24 to i32
call void @_lfortran_printf(i8* getelementptr inbounds ([5 x i8], [5 x i8]* @1, i32 0, i32 0), i8* %22, i32 %25, i8* getelementptr inbounds ([2 x i8], [2 x i8]* @0, i32 0, i32 0), i32 1)
call void @_lfortran_free(i8* %17)
%26 = load %complex_4, %complex_4* %x, align 1
%27 = extractvalue %complex_4 %26, 0
%28 = extractvalue %complex_4 %26, 1
%29 = fsub float 2.000000e+00, %27
%30 = fsub float 0.000000e+00, %28
%31 = insertvalue %complex_4 undef, float %29, 0
%32 = insertvalue %complex_4 %31, float %30, 1
store %complex_4 %32, %complex_4* %x, align 1
%33 = alloca i64, align 8
%34 = call i8* (i8*, i64, i8*, i64*, i32, i32, ...) @_lcompilers_string_format_fortran(i8* null, i64 0, i8* getelementptr inbounds ([8 x i8], [8 x i8]* @serialization_info.1, i32 0, i32 0), i64* %33, i32 0, i32 0, %complex_4* %x)
%35 = load i64, i64* %33, align 4
%stringFormat_desc1 = alloca %string_descriptor, align 8
%36 = getelementptr %string_descriptor, %string_descriptor* %stringFormat_desc1, i32 0, i32 0
store i8* %34, i8** %36, align 8
%37 = getelementptr %string_descriptor, %string_descriptor* %stringFormat_desc1, i32 0, i32 1
store i64 %35, i64* %37, align 4
%38 = getelementptr %string_descriptor, %string_descriptor* %stringFormat_desc1, i32 0, i32 0
%39 = load i8*, i8** %38, align 8
%40 = getelementptr %string_descriptor, %string_descriptor* %stringFormat_desc1, i32 0, i32 1
%41 = load i64, i64* %40, align 4
%42 = trunc i64 %41 to i32
call void @_lfortran_printf(i8* getelementptr inbounds ([5 x i8], [5 x i8]* @3, i32 0, i32 0), i8* %39, i32 %42, i8* getelementptr inbounds ([2 x i8], [2 x i8]* @2, i32 0, i32 0), i32 1)
call void @_lfortran_free(i8* %34)
%43 = load %complex_4, %complex_4* %x, align 1
%44 = extractvalue %complex_4 %43, 0
%45 = extractvalue %complex_4 %43, 1
%46 = fsub float %44, 0.000000e+00
%47 = fsub float %45, 3.000000e+00
%48 = insertvalue %complex_4 undef, float %46, 0
%49 = insertvalue %complex_4 %48, float %47, 1
store %complex_4 %49, %complex_4* %x, align 1
%50 = alloca i64, align 8
%51 = call i8* (i8*, i64, i8*, i64*, i32, i32, ...) @_lcompilers_string_format_fortran(i8* null, i64 0, i8* getelementptr inbounds ([8 x i8], [8 x i8]* @serialization_info.2, i32 0, i32 0), i64* %50, i32 0, i32 0, %complex_4* %x)
%52 = load i64, i64* %50, align 4
%stringFormat_desc2 = alloca %string_descriptor, align 8
%53 = getelementptr %string_descriptor, %string_descriptor* %stringFormat_desc2, i32 0, i32 0
store i8* %51, i8** %53, align 8
%54 = getelementptr %string_descriptor, %string_descriptor* %stringFormat_desc2, i32 0, i32 1
store i64 %52, i64* %54, align 4
%55 = getelementptr %string_descriptor, %string_descriptor* %stringFormat_desc2, i32 0, i32 0
%56 = load i8*, i8** %55, align 8
%57 = getelementptr %string_descriptor, %string_descriptor* %stringFormat_desc2, i32 0, i32 1
%58 = load i64, i64* %57, align 4
%59 = trunc i64 %58 to i32
call void @_lfortran_printf(i8* getelementptr inbounds ([5 x i8], [5 x i8]* @5, i32 0, i32 0), i8* %56, i32 %59, i8* getelementptr inbounds ([2 x i8], [2 x i8]* @4, i32 0, i32 0), i32 1)
call void @_lfortran_free(i8* %51)
call void @_lpython_free_argv()
br label %return
return: ; preds = %.entry
br label %FINALIZE_SYMTABLE_complex2
FINALIZE_SYMTABLE_complex2: ; preds = %return
ret i32 0
}
declare void @_lpython_call_initial_functions(i32, i8**)
declare i8* @_lcompilers_string_format_fortran(i8*, i64, i8*, i64*, i32, i32, ...)
declare void @_lfortran_printf(i8*, i8*, i32, i8*, i32)
declare void @_lfortran_free(i8*)
declare void @_lpython_free_argv()
|
