v/compiler/cc.v

392 lines
9.6 KiB
V
Raw Normal View History

2019-08-23 11:05:16 +02:00
// Copyright (c) 2019 Alexander Medvednikov. All rights reserved.
// Use of this source code is governed by an MIT license
// that can be found in the LICENSE file.
module main
import (
os
time
)
fn (v mut V) cc() {
// build any thirdparty obj files
v.build_thirdparty_obj_files()
2019-09-14 22:48:30 +02:00
// Just create a C/JavaScript file and exit
if v.out_name.ends_with('.c') || v.out_name.ends_with('.js') {
// Translating V code to JS by launching vjs
$if !js {
if v.out_name.ends_with('.js') {
vexe := os.executable()
vjs_path := vexe + 'js'
dir := os.dir(vexe)
if !os.file_exists(vjs_path) {
println('V.js compiler not found, building...')
ret := os.system('$vexe -o $vjs_path -os js $dir/compiler')
if ret == 0 {
println('Done.')
} else {
println('Failed.')
exit(1)
}
}
ret := os.system('$vjs_path -o $v.out_name $v.dir')
if ret == 0 {
println('Done. Run it with `node $v.out_name`')
2019-09-16 18:02:10 +02:00
println('JS backend is at a very early stage.')
2019-09-14 22:48:30 +02:00
}
}
}
2019-08-29 23:07:54 +02:00
os.mv(v.out_name_c, v.out_name)
exit(0)
}
2019-08-23 11:05:16 +02:00
// Cross compiling for Windows
if v.os == .windows {
$if !windows {
v.cc_windows_cross()
return
}
}
$if windows {
if v.os == .msvc {
v.cc_msvc()
return
}
}
//linux_host := os.user_os() == 'linux'
2019-08-23 11:05:16 +02:00
v.log('cc() isprod=$v.pref.is_prod outname=$v.out_name')
mut a := [v.pref.cflags, '-std=gnu11', '-w'] // arguments for the C compiler
2019-08-23 11:05:16 +02:00
if v.pref.is_so {
a << '-shared -fPIC '// -Wl,-z,defs'
v.out_name = v.out_name + '.so'
}
2019-09-10 16:36:14 +02:00
if v.pref.build_mode == .build_module {
// Create the modules directory if it's not there.
if !os.file_exists(ModPath) {
os.mkdir(ModPath)
}
v.out_name = ModPath + v.dir + '.o' //v.out_name
println('Building ${v.out_name}...')
}
2019-08-23 11:05:16 +02:00
if v.pref.is_prod {
a << '-O2'
}
else {
a << '-g'
}
if v.pref.is_debug && os.user_os() != 'windows'{
a << ' -rdynamic ' // needed for nicer symbolic backtraces
}
if v.os != .msvc && v.os != .freebsd {
a << '-Werror=implicit-function-declaration'
}
2019-08-23 11:05:16 +02:00
for f in v.generate_hotcode_reloading_compiler_flags() {
a << f
}
mut libs := ''// builtin.o os.o http.o etc
2019-09-10 16:36:14 +02:00
if v.pref.build_mode == .build_module {
2019-08-23 11:05:16 +02:00
a << '-c'
}
else if v.pref.build_mode == .embed_vlib {
//
}
else if v.pref.build_mode == .default_mode {
libs = '$ModPath/vlib/builtin.o'
2019-08-23 11:05:16 +02:00
if !os.file_exists(libs) {
println('object file `$libs` not found')
2019-08-23 11:05:16 +02:00
exit(1)
}
for imp in v.table.imports {
if imp == 'webview' {
continue
}
libs += ' "$ModPath/vlib/${imp}.o"'
}
}
if v.pref.sanitize {
a << '-fsanitize=leak'
}
// Cross compiling linux TODO
/*
2019-08-23 11:05:16 +02:00
sysroot := '/Users/alex/tmp/lld/linuxroot/'
if v.os == .linux && !linux_host {
// Build file.o
a << '-c --sysroot=$sysroot -target x86_64-linux-gnu'
// Right now `out_name` can be `file`, not `file.o`
if !v.out_name.ends_with('.o') {
v.out_name = v.out_name + '.o'
}
}
*/
2019-08-23 11:05:16 +02:00
// Cross compiling windows
//
2019-08-23 11:05:16 +02:00
// Output executable name
a << '-o "$v.out_name"'
2019-08-23 11:05:16 +02:00
if os.dir_exists(v.out_name) {
2019-08-29 02:30:17 +02:00
cerror('\'$v.out_name\' is a directory')
2019-08-23 11:05:16 +02:00
}
2019-09-07 18:19:17 +02:00
// macOS code can include objective C TODO remove once objective C is replaced with C
2019-08-23 11:05:16 +02:00
if v.os == .mac {
a << '-x objective-c'
}
// The C file we are compiling
a << '"$v.out_name_c"'
if v.os == .mac {
a << '-x none'
}
// Min macos version is mandatory I think?
if v.os == .mac {
a << '-mmacosx-version-min=10.7'
}
cflags := v.get_os_cflags()
2019-09-11 18:26:35 +02:00
2019-09-11 12:34:19 +02:00
// add .o files
for flag in cflags {
2019-09-11 12:34:19 +02:00
if !flag.value.ends_with('.o') { continue }
2019-09-07 18:19:17 +02:00
a << flag.format()
}
2019-09-11 12:34:19 +02:00
// add all flags (-I -l -L etc) not .o files
for flag in cflags {
2019-09-11 12:34:19 +02:00
if flag.value.ends_with('.o') { continue }
a << flag.format()
}
2019-09-11 12:34:19 +02:00
2019-08-23 11:05:16 +02:00
a << libs
// Without these libs compilation will fail on Linux
// || os.user_os() == 'linux'
if v.pref.build_mode != .build_module && (v.os == .linux || v.os == .freebsd || v.os == .openbsd ||
2019-08-23 11:05:16 +02:00
v.os == .netbsd || v.os == .dragonfly) {
a << '-lm -lpthread '
// -ldl is a Linux only thing. BSDs have it in libc.
if v.os == .linux {
a << ' -ldl '
}
}
2019-09-16 21:00:59 +02:00
if v.os == .js && os.user_os() == 'linux' {
a << '-lm'
}
2019-08-23 11:05:16 +02:00
args := a.join(' ')
cmd := '${v.pref.ccompiler} $args'
// Run
if v.pref.show_c_cmd || v.pref.is_verbose {
println('\n==========')
println(cmd)
}
ticks := time.ticks()
2019-08-29 02:30:17 +02:00
res := os.exec(cmd) or { cerror(err) return }
2019-08-23 11:05:16 +02:00
if res.exit_code != 0 {
if res.exit_code == 127 {
// the command could not be found by the system
2019-08-29 02:30:17 +02:00
cerror('C compiler error, while attempting to run: \n' +
2019-08-23 11:05:16 +02:00
'-----------------------------------------------------------\n' +
'$cmd\n' +
'-----------------------------------------------------------\n' +
'Probably your C compiler is missing. \n' +
'Please reinstall it, or make it available in your PATH.')
}
if v.pref.is_debug {
println(res.output)
} else {
2019-08-29 02:30:17 +02:00
partial_output := res.output.limit(200).trim_right('\r\n')
print(partial_output)
if res.output.len > partial_output.len {
2019-08-23 11:05:16 +02:00
println('...\n(Use `v -debug` to print the entire error message)\n')
2019-08-29 02:30:17 +02:00
}else{
println('')
2019-08-23 11:05:16 +02:00
}
}
2019-08-29 02:30:17 +02:00
cerror('C error. This should never happen. ' +
2019-08-23 11:05:16 +02:00
'Please create a GitHub issue: https://github.com/vlang/v/issues/new/choose')
}
diff := time.ticks() - ticks
// Print the C command
if v.pref.show_c_cmd || v.pref.is_verbose {
println('${v.pref.ccompiler} took $diff ms')
println('=========\n')
}
// Link it if we are cross compiling and need an executable
/*
2019-08-23 11:05:16 +02:00
if v.os == .linux && !linux_host && v.pref.build_mode != .build {
v.out_name = v.out_name.replace('.o', '')
obj_file := v.out_name + '.o'
println('linux obj_file=$obj_file out_name=$v.out_name')
ress := os.exec('/usr/local/Cellar/llvm/8.0.0/bin/ld.lld --sysroot=$sysroot ' +
'-v -o $v.out_name ' +
'-m elf_x86_64 -dynamic-linker /lib64/ld-linux-x86-64.so.2 ' +
'/usr/lib/x86_64-linux-gnu/crt1.o ' +
'$sysroot/lib/x86_64-linux-gnu/libm-2.28.a ' +
'/usr/lib/x86_64-linux-gnu/crti.o ' +
obj_file +
' /usr/lib/x86_64-linux-gnu/libc.so ' +
'/usr/lib/x86_64-linux-gnu/crtn.o') or {
2019-08-29 02:30:17 +02:00
cerror(err)
return
2019-08-23 11:05:16 +02:00
}
println(ress.output)
println('linux cross compilation done. resulting binary: "$v.out_name"')
}
*/
2019-08-23 11:05:16 +02:00
if !v.pref.is_debug && v.out_name_c != 'v.c' && v.out_name_c != 'v_macos.c' {
os.rm(v.out_name_c)
}
2019-09-19 14:52:38 +02:00
if v.pref.compress {
2019-09-19 15:05:17 +02:00
$if windows {
println('-compress does not work on Windows for now')
return
}
2019-09-19 14:52:38 +02:00
ret := os.system('strip $v.out_name')
if ret != 0 {
println('strip failed')
return
}
ret2 := os.system('upx --lzma -qqq $v.out_name')
if ret2 != 0 {
println('upx failed')
$if mac {
println('install upx with `brew install upx`')
}
$if linux {
println('install upx\n' +
'for example, on Debian/Ubuntu run `sudo apt install upx`')
}
$if windows {
// :)
}
}
}
2019-08-23 11:05:16 +02:00
}
fn (c mut V) cc_windows_cross() {
if !c.out_name.ends_with('.exe') {
c.out_name = c.out_name + '.exe'
}
mut args := '-o $c.out_name -w -L. '
cflags := c.get_os_cflags()
2019-08-23 11:05:16 +02:00
// -I flags
for flag in cflags {
if flag.name != '-l' {
args += flag.format()
2019-08-23 11:05:16 +02:00
args += ' '
}
}
mut libs := ''
if c.pref.build_mode == .default_mode {
libs = '"$ModPath/vlib/builtin.o"'
if !os.file_exists(libs) {
println('`$libs` not found')
2019-08-23 11:05:16 +02:00
exit(1)
}
for imp in c.table.imports {
libs += ' "$ModPath/vlib/${imp}.o"'
}
}
args += ' $c.out_name_c '
// -l flags (libs)
for flag in cflags {
if flag.name == '-l' {
args += flag.format()
args += ' '
}
2019-08-23 11:05:16 +02:00
}
println('Cross compiling for Windows...')
winroot := '$ModPath/winroot'
if !os.dir_exists(winroot) {
winroot_url := 'https://github.com/vlang/v/releases/download/v0.1.10/winroot.zip'
2019-08-28 13:35:48 +02:00
println('"$winroot" not found.')
println('Download it from $winroot_url and save it in $ModPath')
println('Unzip it afterwards.\n')
println('winroot.zip contains all library and header files needed '+
'to cross-compile for Windows.')
2019-08-23 11:05:16 +02:00
exit(1)
}
mut obj_name := c.out_name
obj_name = obj_name.replace('.exe', '')
obj_name = obj_name.replace('.o.o', '.o')
include := '-I $winroot/include '
cmd := 'clang -o $obj_name -w $include -m32 -c -target x86_64-win32 $ModPath/$c.out_name_c'
2019-08-23 11:05:16 +02:00
if c.pref.show_c_cmd {
println(cmd)
}
if os.system(cmd) != 0 {
println('Cross compilation for Windows failed. Make sure you have clang installed.')
exit(1)
}
if c.pref.build_mode != .build_module {
2019-08-23 11:05:16 +02:00
link_cmd := 'lld-link $obj_name $winroot/lib/libcmt.lib ' +
'$winroot/lib/libucrt.lib $winroot/lib/kernel32.lib $winroot/lib/libvcruntime.lib ' +
'$winroot/lib/uuid.lib'
if c.pref.show_c_cmd {
println(link_cmd)
}
if os.system(link_cmd) != 0 {
println('Cross compilation for Windows failed. Make sure you have lld linker installed.')
exit(1)
}
// os.rm(obj_name)
}
println('Done!')
}
fn (c V) build_thirdparty_obj_files() {
for flag in c.get_os_cflags() {
if flag.value.ends_with('.o') {
if c.os == .msvc {
build_thirdparty_obj_file_with_msvc(flag.value)
}
else {
build_thirdparty_obj_file(flag.value)
}
}
}
}
2019-08-23 11:05:16 +02:00
fn find_c_compiler() string {
args := env_vflags_and_os_args().join(' ')
defaultcc := find_c_compiler_default()
return get_arg( args, 'cc', defaultcc )
}
fn find_c_compiler_default() string {
//fast_clang := '/usr/local/Cellar/llvm/8.0.0/bin/clang'
//if os.file_exists(fast_clang) {
// return fast_clang
//}
// TODO fix $if after 'string'
$if windows { return 'gcc' }
return 'cc'
}
fn find_c_compiler_thirdparty_options() string {
fullargs := env_vflags_and_os_args()
mut cflags := get_cmdline_cflags( fullargs )
$if !windows {
cflags += ' -fPIC'
}
if '-m32' in fullargs {
cflags += ' -m32'
}
return cflags
}
fn get_cmdline_cflags(args []string) string {
mut cflags := ''
for ci, cv in args {
if cv == '-cflags' {
cflags += args[ci+1] + ' '
2019-09-11 18:26:35 +02:00
}
}
return cflags
2019-08-23 11:05:16 +02:00
}