diff options
author | Wim <wim@42.be> | 2022-01-31 00:27:37 +0100 |
---|---|---|
committer | Wim <wim@42.be> | 2022-03-20 14:57:48 +0100 |
commit | e3cafeaf9292f67459ff1d186f68283bfaedf2ae (patch) | |
tree | b69c39620aa91dba695b3b935c6651c0fb37ce75 /vendor/modernc.org/ccgo/v3/lib | |
parent | e7b193788a56ee7cdb02a87a9db0ad6724ef66d5 (diff) | |
download | matterbridge-msglm-e3cafeaf9292f67459ff1d186f68283bfaedf2ae.tar.gz matterbridge-msglm-e3cafeaf9292f67459ff1d186f68283bfaedf2ae.tar.bz2 matterbridge-msglm-e3cafeaf9292f67459ff1d186f68283bfaedf2ae.zip |
Add dependencies/vendor (whatsapp)
Diffstat (limited to 'vendor/modernc.org/ccgo/v3/lib')
-rw-r--r-- | vendor/modernc.org/ccgo/v3/lib/Makefile | 136 | ||||
-rw-r--r-- | vendor/modernc.org/ccgo/v3/lib/ccgo.go | 2063 | ||||
-rw-r--r-- | vendor/modernc.org/ccgo/v3/lib/cover.go | 39 | ||||
-rw-r--r-- | vendor/modernc.org/ccgo/v3/lib/design-notes.adoc | 91 | ||||
-rw-r--r-- | vendor/modernc.org/ccgo/v3/lib/dmesg.go | 42 | ||||
-rw-r--r-- | vendor/modernc.org/ccgo/v3/lib/etc.go | 110 | ||||
-rw-r--r-- | vendor/modernc.org/ccgo/v3/lib/go.go | 13056 | ||||
-rw-r--r-- | vendor/modernc.org/ccgo/v3/lib/init.go | 553 | ||||
-rw-r--r-- | vendor/modernc.org/ccgo/v3/lib/mem.go | 10 | ||||
-rw-r--r-- | vendor/modernc.org/ccgo/v3/lib/mem_linux.go | 20 | ||||
-rw-r--r-- | vendor/modernc.org/ccgo/v3/lib/nodmesg.go | 12 | ||||
-rw-r--r-- | vendor/modernc.org/ccgo/v3/lib/stringer.go | 57 | ||||
-rw-r--r-- | vendor/modernc.org/ccgo/v3/lib/unconvert.sh | 4 | ||||
-rw-r--r-- | vendor/modernc.org/ccgo/v3/lib/util.go | 458 |
14 files changed, 16651 insertions, 0 deletions
diff --git a/vendor/modernc.org/ccgo/v3/lib/Makefile b/vendor/modernc.org/ccgo/v3/lib/Makefile new file mode 100644 index 00000000..d8e07d0f --- /dev/null +++ b/vendor/modernc.org/ccgo/v3/lib/Makefile @@ -0,0 +1,136 @@ +# Copyright 2019 The CCGO Authors. All rights reserved. +# Use of this source code is governed by a BSD-style +# license that can be found in the LICENSE file. + +.PHONY: all bench clean cover cpu editor internalError later mem nuke todo edit devbench + +grep=--include=*.go +ngrep='TODOOK\|internalError\|testdata' +testlog=testdata/testlog-$(shell echo $$GOOS)-$(shell echo $$GOARCH)-on-$(shell go env GOOS)-$(shell go env GOARCH) + +all: + LC_ALL=C make all_log 2>&1 | tee log + +all_log: + date + go version + uname -a + ./unconvert.sh + gofmt -l -s -w *.go + GOOS=darwin GOARCH=amd64 go build -o /dev/null + GOOS=linux GOARCH=386 go build -o /dev/null + GOOS=linux GOARCH=amd64 go build -o /dev/null + GOOS=linux GOARCH=arm go build -o /dev/null + GOOS=windows GOARCH=386 go build -o /dev/null + GOOS=windows GOARCH=amd64 go build -o /dev/null + go vet 2>&1 | grep -v $(ngrep) || true + golint 2>&1 | grep -v $(ngrep) || true + make todo + misspell *.go + staticcheck | grep -v 'lexer\.go' || true + maligned || true + grep -n 'files.*, ok' log + @grep -n --color=never 'FAIL\|PASS' log + @grep -n --color=always 'FAIL' log + grep -n --color=always 'nil pointer' log + grep -c 'exit status 1' log || true + grep -c 'exit status 2' log || true + LC_ALL=C date 2>&1 | tee -a log + +test: + LC_ALL=C make test_log 2>&1 | tee $(testlog) + grep -ni --color=always fail $(testlog) || true + +test_log: + go version + uname -a + go test -v -timeout 24h + date | tee -a $(testlog) + +test_linux_amd64: + GOOS=linux GOARCH=amd64 make test + +test_linux_386: + GOOS=linux GOARCH=386 make test + +test_linux_arm: + GOOS=linux GOARCH=arm make test + +test_linux_arm64: + GOOS=linux GOARCH=arm64 make test + +test_windows_386: + go version | tee %TEMP%\testlog-windows-386 + go test -v -timeout 24h | tee -a %TEMP%\testlog-windows-386 + date /T | tee -a %TEMP%\testlog-windows-386 + time /T | tee -a %TEMP%\testlog-windows-386 + +test_windows_amd64: + go version | tee %TEMP%\testlog-windows-amd64 + go test -v -timeout 24h | tee -a %TEMP%\testlog-windows-amd64 + date /T | tee -a %TEMP%\testlog-windows-amd64 + time /T | tee -a %TEMP%\testlog-windows-amd64 + +build_all_targets: + GOOS=darwin GOARCH=amd64 go test -c -o /dev/null + GOOS=darwin GOARCH=arm64 go test -c -o /dev/null + GOOS=freebsd GOARCH=386 go test -c -o /dev/null + GOOS=freebsd GOARCH=amd64 go test -c -o /dev/null + GOOS=linux GOARCH=386 go test -c -o /dev/null + GOOS=linux GOARCH=amd64 go test -c -o /dev/null + GOOS=linux GOARCH=arm go test -c -o /dev/null + GOOS=linux GOARCH=arm64 go test -c -o /dev/null + GOOS=linux GOARCH=s390x go test -c -o /dev/null + GOOS=netbsd GOARCH=amd64 go test -c -o /dev/null + GOOS=openbsd GOARCH=amd64 go test -c -o /dev/null + GOOS=windows GOARCH=386 go test -c -o /dev/null + GOOS=windows GOARCH=amd64 go test -c -o /dev/null + +devbench: + date 2>&1 | tee log-devbench + go test -timeout 24h -dev -run @ -bench . 2>&1 | tee -a log-devbench + grep -n 'FAIL\|SKIP' log-devbench || true + +bench: + date 2>&1 | tee log-bench + go test -timeout 24h -v -run '^[^E]' -bench . 2>&1 | tee -a log-bench + grep -n 'FAIL\|SKIP' log-bench || true + +clean: + go clean + rm -f *~ *.test *.out + +cover: + t=$(shell mktemp) ; go test -coverprofile $$t && go tool cover -html $$t && unlink $$t + +cpu: clean + go test -run @ -bench . -cpuprofile cpu.out + go tool pprof -lines *.test cpu.out + +edit: + @touch log + @if [ -f "Session.vim" ]; then gvim -S & else gvim -p Makefile *.go & fi + + +editor: + gofmt -l -s -w *.go + go build -v -o $(GOPATH)/bin/ccgo modernc.org/ccgo/v3 + go test -c -o /dev/null + +later: + @grep -n $(grep) LATER * || true + @grep -n $(grep) MAYBE * || true + +mem: clean + go test -run Mem -mem -memprofile mem.out -timeout 24h + go tool pprof -lines -web -alloc_space *.test mem.out + +nuke: clean + go clean -i + +todo: + @grep -nr $(grep) ^[[:space:]]*_[[:space:]]*=[[:space:]][[:alpha:]][[:alnum:]]* * | grep -v $(ngrep) || true + @grep -nr $(grep) 'TODO\|panic' * | grep -v $(ngrep) || true + @grep -nr $(grep) BUG * | grep -v $(ngrep) || true + @grep -nr $(grep) [^[:alpha:]]println * | grep -v $(ngrep) || true + @grep -nir $(grep) 'work.*progress' || true diff --git a/vendor/modernc.org/ccgo/v3/lib/ccgo.go b/vendor/modernc.org/ccgo/v3/lib/ccgo.go new file mode 100644 index 00000000..a5ed804f --- /dev/null +++ b/vendor/modernc.org/ccgo/v3/lib/ccgo.go @@ -0,0 +1,2063 @@ +// Copyright 2020 The CCGO Authors. All rights reserved. +// Use of this source code is governed by a BSD-style +// license that can be found in the LICENSE file. + +//go:generate stringer -output stringer.go -type=exprMode,opKind + +// Package ccgo implements the ccgo command. +package ccgo // import "modernc.org/ccgo/v3/lib" + +import ( + "bufio" + "bytes" + "encoding/csv" + "encoding/json" + "fmt" + "go/ast" + "go/build" + "go/parser" + "go/token" + "io" + "io/ioutil" + "os" + "os/exec" + "path/filepath" + "regexp" + "runtime" + "runtime/debug" + "sort" + "strconv" + "strings" + "time" + + "github.com/kballard/go-shellquote" + "golang.org/x/tools/go/packages" + "modernc.org/cc/v3" + "modernc.org/libc" + "modernc.org/opt" +) + +const ( + Version = "3.12.6-20210922111124" + + experimentsEnvVar = "CCGO_EXPERIMENT" + maxSourceLine = 1 << 20 +) + +var ( + _ = libc.Xstdin + + coverExperiment bool +) + +func init() { + s := strings.TrimSpace(os.Getenv(experimentsEnvVar)) + if s == "" { + return + } + + for _, v := range strings.Split(s, ",") { + switch strings.TrimSpace(v) { + case "cover": + coverExperiment = true + } + } +} + +//TODO CPython +//TODO Cython +//TODO gmp +//TODO gofrontend +//TODO gsl +//TODO minigmp +//TODO mpc +//TODO mpfr +//TODO pcre +//TODO pcre2 +//TODO quickjs +//TODO redis +//TODO sdl2 +//TODO wolfssl +//TODO zdat +//TODO zstd + +//TODO 2020-07-17 +// +// Fix += and friends +// +// Audit all unsafe.Pointer conversions +// +// Remove double dereferencing ** +// +// Shifts must not use n.Promote on left opearand +// +// Un-array +// +// Pass more CSmith tests. + +//TODO merge VaList slots of distinct top level statements. + +//TODO turn void +// +// a = b = c = d +// +// where all but the first and last of a, b, c, ... are declarators, into +// +// c = d +// b = c +// a = b + +//TODO define and use all tagged struct types, including inner ones, for example SQLite's SrcList_item. + +//TODO rewrite return conditionalExpression so it has no closures. Partially done. + +//TODO define and restore simple named constants. Having +// +// #define FOO 42 +// ... +// case FOO: +// +// we do not yet define FOO and generate +// +// case 42: + +//TODO do not generate a terminating semicolon for empty statements. + +//TODO replace +// +// var sqlite3_data_directory uintptr = uintptr(0) /* sqlite3.c:156345:17 */ +// +// by +// +// var sqlite3_data_directory uintptr = 0 /* sqlite3.c:156345:17 */ +// +// or +// +// var sqlite3_data_directory = uintptr(0) /* sqlite3.c:156345:17 */ + +//TODO drop all non-referenced declarators unless forced by a command line flag. + +const ( + builtin = ` +#ifdef __PTRDIFF_TYPE__ +typedef __PTRDIFF_TYPE__ ptrdiff_t; +#else +#error __PTRDIFF_TYPE__ undefined +#endif + +#ifdef __SIZE_TYPE__ +typedef __SIZE_TYPE__ size_t; +#else +#error __SIZE_TYPE__ undefined +#endif + +#ifdef __WCHAR_TYPE__ +typedef __WCHAR_TYPE__ wchar_t; +#else +#error __WCHAR_TYPE__ undefined +#endif + +#ifdef __SIZEOF_INT128__ +typedef struct { __INT64_TYPE__ lo, hi; } __int128_t; // must match modernc.org/mathutil.Int128 +typedef struct { __UINT64_TYPE__ lo, hi; } __uint128_t; // must match modernc.org/mathutil.Int128 +#endif; + +#define _FILE_OFFSET_BITS 64 +#define __FUNCTION__ __func__ +#define __PRETTY_FUNCTION__ __func__ +#define __asm __asm__ +#define __builtin_constant_p(x) __builtin_constant_p_impl(0, x) +#define __builtin_offsetof(type, member) ((__SIZE_TYPE__)&(((type*)0)->member)) +#define __builtin_va_arg(ap, type) ((type)__ccgo_va_arg(ap)) +#define __builtin_va_copy(dst, src) dst = src +#define __builtin_va_end(ap) __ccgo_va_end(ap) +#define __builtin_va_start(ap, v) __ccgo_va_start(ap) +#define __ccgo_fd_zero(set) __builtin_memset(set, 0, sizeof(fd_set)) +#define __ccgo_tcl_default_double_rounding(set) ((void)0) +#define __ccgo_tcl_ieee_double_rounding(set) ((void)0) +#define __extension__ +#define __has_include(...) __has_include_impl(#__VA_ARGS__) +#define __has_include_impl(x) +#define __inline__ inline +#define __signed signed +#define asm __asm__ +#define in6addr_any (*__ccgo_in6addr_anyp()) + +typedef void *__builtin_va_list; +typedef long double __float128; + +#if defined(__MINGW32__) || defined(__MINGW64__) +typedef __builtin_va_list va_list; +int gnu_printf(const char *format, ...); +int gnu_scanf(const char *format, ...); +int ms_printf(const char *format, ...); +int ms_scanf(const char *format, ...); +#define _VA_LIST_DEFINED +#define __extension__ +#endif + +__UINT16_TYPE__ __builtin_bswap16 (__UINT16_TYPE__ x); +__UINT32_TYPE__ __builtin_bswap32 (__UINT32_TYPE__ x); +__UINT64_TYPE__ __builtin_bswap64 (__UINT64_TYPE__ x); +char *__builtin___strcat_chk (char *dest, const char *src, size_t os); +char *__builtin___strcpy_chk (char *dest, const char *src, size_t os); +char *__builtin___strncpy_chk(char *dest, char *src, size_t n, size_t os); +char *__builtin_strchr(const char *s, int c); +char *__builtin_strcpy(char *dest, const char *src); +double __builtin_copysign ( double x, double y ); +double __builtin_copysignl (long double x, long double y ); +double __builtin_fabs(double x); +double __builtin_huge_val (void); +double __builtin_inf (void); +double __builtin_nan (const char *str); +float __builtin_copysignf ( float x, float y ); +float __builtin_fabsf(float x); +float __builtin_huge_valf (void); +float __builtin_inff (void); +float __builtin_nanf (const char *str); +int __builtin___snprintf_chk (char *s, size_t maxlen, int flag, size_t os, const char *fmt, ...); +int __builtin___sprintf_chk (char *s, int flag, size_t os, const char *fmt, ...); +int __builtin___vsnprintf_chk (char *s, size_t maxlen, int flag, size_t os, const char *fmt, __builtin_va_list ap); +int __builtin__snprintf_chk(char * str, size_t maxlen, int flag, size_t strlen, const char * format); +int __builtin_abs(int j); +int __builtin_add_overflow(); +int __builtin_clz (unsigned); +int __builtin_isunordered(double x, double y); +int __builtin_clzl (unsigned long); +int __builtin_clzll (unsigned long long); +int __builtin_constant_p_impl(int, ...); +int __builtin_getentropy(void*, size_t); +int __builtin_isnan(double); +int __builtin_memcmp(const void *s1, const void *s2, size_t n); +int __builtin_mul_overflow(); +int __builtin_popcount (unsigned int x); +int __builtin_popcountl (unsigned long x); +int __builtin_printf(const char *format, ...); +int __builtin_snprintf(char *str, size_t size, const char *format, ...); +int __builtin_sprintf(char *str, const char *format, ...); +int __builtin_strcmp(const char *s1, const char *s2); +int __builtin_sub_overflow(); +long __builtin_expect (long exp, long c); +long double __builtin_fabsl(long double x); +long double __builtin_nanl (const char *str); +long long __builtin_llabs(long long j); +size_t __builtin_object_size (void * ptr, int type); +size_t __builtin_strlen(const char *s); +void *__builtin___memcpy_chk (void *dest, const void *src, size_t n, size_t os); +void *__builtin___memmove_chk (void *dest, const void *src, size_t n, size_t os); +void *__builtin___memset_chk (void *dstpp, int c, size_t len, size_t dstlen); +void *__builtin_malloc(size_t size); +void *__builtin_memcpy(void *dest, const void *src, size_t n); +void *__builtin_memset(void *s, int c, size_t n); +void *__builtin_mmap(void *addr, size_t length, int prot, int flags, int fd, __INTPTR_TYPE__ offset); +void *__ccgo_va_arg(__builtin_va_list ap); +void __builtin_abort(void); +void __builtin_bzero(void *s, size_t n); +void __builtin_exit(int status); +void __builtin_free(void *ptr); +void __builtin_prefetch (const void *addr, ...); +void __builtin_trap (void); +void __builtin_unreachable (void); +void __ccgo_dmesg(char*, ...); +void __ccgo_va_end(__builtin_va_list ap); +void __ccgo_va_start(__builtin_va_list ap); + +#define __sync_add_and_fetch(ptr, val) \ + __builtin_choose_expr( \ + __builtin_types_compatible_p(typeof(*ptr), unsigned), \ + __sync_add_and_fetch_uint32(ptr, val), \ + __TODO__ \ + ) + +#define __sync_fetch_and_add(ptr, val) \ + __TODO__ \ + +#define __sync_sub_and_fetch(ptr, val) \ + __builtin_choose_expr( \ + __builtin_types_compatible_p(typeof(*ptr), unsigned), \ + __sync_sub_and_fetch_uint32(ptr, val), \ + __TODO__ \ + ) + +unsigned __sync_add_and_fetch_uint32(unsigned*, unsigned); +unsigned __sync_sub_and_fetch_uint32(unsigned*, unsigned); + +#ifdef __APPLE__ +int (*__darwin_check_fd_set_overflow)(int, void *, int); +#endif + +` + defaultCrt = "modernc.org/libc" +) + +func origin(skip int) string { + pc, fn, fl, _ := runtime.Caller(skip) + f := runtime.FuncForPC(pc) + var fns string + if f != nil { + fns = f.Name() + if x := strings.LastIndex(fns, "."); x > 0 { + fns = fns[x+1:] + } + } + return fmt.Sprintf("%s:%d:%s", fn, fl, fns) +} + +func todo(s string, args ...interface{}) string { + switch { + case s == "": + s = fmt.Sprintf(strings.Repeat("%v ", len(args)), args...) + default: + s = fmt.Sprintf(s, args...) + } + r := fmt.Sprintf("%s\n\tTODO %s", origin(2), s) //TODOOK + fmt.Fprintf(os.Stdout, "%s\n", r) + os.Stdout.Sync() + return r +} + +func trc(s string, args ...interface{}) string { + switch { + case s == "": + s = fmt.Sprintf(strings.Repeat("%v ", len(args)), args...) + default: + s = fmt.Sprintf(s, args...) + } + r := fmt.Sprintf("%s: TRC %s", origin(2), s) + fmt.Fprintf(os.Stderr, "%s\n", r) + os.Stderr.Sync() + return r +} + +// Task represents a compilation job. +type Task struct { + D []string // -D + I []string // -I + U []string // -U + ar string // $AR, default "ar" + arLookPath string // LookPath(ar) + args []string + asts []*cc.AST + capif string + saveConfig string // -save-config + saveConfigErr error + cc string // $CC, default "gcc" + ccLookPath string // LookPath(cc) + cdb string // foo.json, use compile DB + cfg *cc.Config + compiledb string // -compiledb + crt string + crtImportPath string // -crt-import-path + exportDefines string // -export-defines + exportEnums string // -export-enums + exportExterns string // -export-externs + exportFields string // -export-fields + exportStructs string // -export-structs + exportTypedefs string // -export-typedefs + goarch string + goos string + hide map[string]struct{} // -hide + hostConfigCmd string // -host-config-cmd + hostConfigOpts string // -host-config-opts + hostIncludes []string + hostPredefined string + hostSysIncludes []string + ignoredIncludes string // -ignored-includes + ignoredObjects map[string]struct{} // -ignore-object + imported []*imported + includedFiles map[string]struct{} + l []string // -l + loadConfig string // --load-config + o string // -o + out io.Writer + pkgName string // -pkgname + replaceFdZero string // -replace-fd-zero + replaceTclDefaultDoubleRounding string // -replace-tcl-default-double-rounding + replaceTclIeeeDoubleRounding string // -replace-tcl-default-double-rounding + scriptFn string // -script + sources []cc.Source + staticLocalsPrefix string // -static-locals-prefix + stderr io.Writer + stdout io.Writer + symSearchOrder []int // >= 0: asts[i], < 0 : imported[-i-1] + verboseCompiledb bool // -verbose-compiledb + volatiles map[cc.StringID]struct{} // -volatile + + // Path to a binary that will be called instead of executing + // Task.Main(). Intended to support TestGenerate in stable vs latest + // modes. This is _not_ supposed to be used when the Task instance is + // constructed by a ccgo _command_ (ccgo/v3) - it should never set this + // field. Only programs importing ccgo/v3/lib that opt-in into this + // feature should ever set it. + CallOutBinary string + + E bool // -E + allErrors bool // -all-errors + compiledbValid bool // -compiledb present + configSaved bool + configured bool // hostPredefined, hostIncludes, hostSysIncludes are valid + cover bool // -cover-instrumentation + coverC bool // -cover-instrumentation-c + defaultUnExport bool // -unexported-by-default + errTrace bool // -err-trace + exportDefinesValid bool // -export-defines present + exportEnumsValid bool // -export-enums present + exportExternsValid bool // -export-externs present + exportFieldsValid bool // -export-fields present + exportStructsValid bool // -export-structs present + exportTypedefsValid bool // -export-typedefs present + fullPathComments bool // -full-path-comments + funcSig bool // -func-sig + header bool // -header + ignoreUnsupportedAligment bool // -ignore-unsupported-alignment + isScripted bool + mingw bool + noCapi bool // -nocapi + nostdinc bool // -nostdinc + nostdlib bool // -nostdlib + panicStubs bool // -panic-stubs + tracePinning bool // -trace-pinning + traceTranslationUnits bool // -trace-translation-units + verifyStructs bool // -verify-structs + version bool // -version + watch bool // -watch-instrumentation + windows bool // -windows +} + +// NewTask returns a newly created Task. +func NewTask(args []string, stdout, stderr io.Writer) *Task { + if dmesgs { + dmesg("%v: %v", origin(1), args) + } + if stdout == nil { + stdout = os.Stdout + } + if stderr == nil { + stderr = os.Stderr + } + return &Task{ + args: args, + cfg: &cc.Config{ + Config3: cc.Config3{ + MaxSourceLine: maxSourceLine, + }, + DoNotTypecheckAsm: true, + EnableAssignmentCompatibilityChecking: true, + LongDoubleIsDouble: true, + SharedFunctionDefinitions: &cc.SharedFunctionDefinitions{}, + }, + ar: env("AR", "ar"), + cc: env("CC", "gcc"), + crt: "libc.", + crtImportPath: defaultCrt, + goarch: env("TARGET_GOARCH", env("GOARCH", runtime.GOARCH)), + goos: env("TARGET_GOOS", env("GOOS", runtime.GOOS)), + hide: map[string]struct{}{}, + hostConfigCmd: env("CCGO_CPP", ""), + pkgName: "main", + stderr: stderr, + stdout: stdout, + volatiles: map[cc.StringID]struct{}{}, + } +} + +func env(name, deflt string) (r string) { + r = deflt + if s := os.Getenv(name); s != "" { + r = s + } + return r +} + +// Get exported symbols from package having import path 'path'. +func (t *Task) capi(path string) (pkgName string, exports map[string]struct{}, err error) { + // defer func() { + // var a []string + // for k := range exports { + // a = append(a, k) + // } + // sort.Strings(a) + // trc("%s\n%s", path, strings.Join(a, "\n")) + // }() + var errModule, errGopath error + defer func() { + if err != nil { + a := []string{err.Error()} + if errModule != nil { + a = append(a, fmt.Sprintf("module mode error: %s", errModule)) + } + if errGopath != nil { + a = append(a, fmt.Sprintf("gopath mode error: %s", errGopath)) + } + wd, err2 := os.Getwd() + err = fmt.Errorf( + "(wd %q, %v): loading C exports from %s (GOPATH=%v GO111MODULE=%v): %v", + wd, err2, path, os.Getenv("GOPATH"), os.Getenv("GO111MODULE"), strings.Join(a, "\n\t"), + ) + } + }() + + mod := os.Getenv("GO111MODULE") + if mod == "" || mod == "on" { + var pkgs []*packages.Package + pkgs, errModule = packages.Load( + &packages.Config{ + Mode: packages.NeedFiles, + Env: append(os.Environ(), fmt.Sprintf("GOOS=%s", t.goos), fmt.Sprintf("GOARCH=%s", t.goarch)), + }, + path, + ) + switch { + case errModule == nil: + if len(pkgs) != 1 { + errModule = fmt.Errorf("expected one package, loaded %d", len(pkgs)) + break + } + + pkg := pkgs[0] + if len(pkg.Errors) != 0 { + var a []string + for _, v := range pkg.Errors { + a = append(a, v.Error()) + } + errModule = fmt.Errorf("%s", strings.Join(a, "\n")) + break + } + + return t.capi2(pkg.GoFiles) + } + } + + gopath0 := os.Getenv("GOPATH") + for _, gopath := range strings.Split(gopath0, string(os.PathListSeparator)) { + if gopath == "" || !filepath.IsAbs(gopath) { + continue + } + + ctx := build.Context{ + GOARCH: t.goarch, + GOOS: t.goos, + GOPATH: gopath, + Compiler: "gc", + } + arg := filepath.Join(gopath, "src", path) + pkg, err := ctx.ImportDir(arg, 0) + if err != nil { + errGopath = err + continue + } + + for i, v := range pkg.GoFiles { + pkg.GoFiles[i] = filepath.Join(gopath, "src", path, v) + } + return t.capi2(pkg.GoFiles) + } + return "", nil, fmt.Errorf("cannot load CAPI") +} + +func (t *Task) capi2(files []string) (pkgName string, exports map[string]struct{}, err error) { + exports = map[string]struct{}{} + base := fmt.Sprintf("capi_%s_%s.go", t.goos, t.goarch) + var fn string + for _, v := range files { + if filepath.Base(v) == base { + fn = v + break + } + } + if fn == "" { + return "", nil, fmt.Errorf("file %s not found", base) + } + + fset := token.NewFileSet() + file, err := parser.ParseFile(fset, fn, nil, 0) + if err != nil { + return "", nil, err + } + + obj, ok := file.Scope.Objects["CAPI"] + if !ok { + return "", nil, fmt.Errorf("CAPI not declared in %s", fn) + } + + switch obj.Kind { + case ast.Var: + // ok + default: + return "", nil, fmt.Errorf("unexpected CAPI object kind: %v", obj.Kind) + } + + spec, ok := obj.Decl.(*ast.ValueSpec) + if !ok { + return "", nil, fmt.Errorf("unexpected CAPI object type: %T", obj.Decl) + } + + if len(spec.Values) != 1 { + return "", nil, fmt.Errorf("expected one CAPI expression, got %v", len(spec.Values)) + } + + ast.Inspect(spec.Values[0], func(n ast.Node) bool { + if x, ok := n.(*ast.BasicLit); ok { + var key string + if key, err = strconv.Unquote(x.Value); err != nil { + err = fmt.Errorf("invalid CAPI key value: %s", x.Value) + return false + } + + exports[key] = struct{}{} + } + return true + }) + return file.Name.String(), exports, err +} + +// Main executes task. +func (t *Task) Main() (err error) { + if dmesgs { + defer func() { + if err != nil { + // trc("FAIL %p: %q: %v", t, t.args, err) + dmesg("%v: returning from Task.Main: %v", origin(1), err) + } + }() + + } + + defer func() { + if t.saveConfigErr != nil && err == nil { + err = t.saveConfigErr + } + }() + + if !t.isScripted && coverExperiment { + defer func() { + fmt.Fprintf(os.Stderr, "cover report:\n%s\n", coverReport()) + }() + } + if t.CallOutBinary != "" { + if dmesgs { + dmesg("%v: calling out '%s' instead", origin(1)) + } + cmd := exec.Command(t.CallOutBinary, t.args[1:]...) + out, err := cmd.CombinedOutput() + if err != nil { + err = fmt.Errorf("%v\n%s", err, out) + } + return err + } + + opts := opt.NewSet() + opts.Arg("D", true, func(arg, value string) error { t.D = append(t.D, value); return nil }) + opts.Arg("I", true, func(opt, arg string) error { t.I = append(t.I, arg); return nil }) + opts.Arg("U", true, func(arg, value string) error { t.U = append(t.U, value); return nil }) + opts.Arg("compiledb", false, func(arg, value string) error { t.compiledb = value; t.compiledbValid = true; return opt.Skip(nil) }) + opts.Arg("crt-import-path", false, func(arg, value string) error { t.crtImportPath = value; return nil }) + opts.Arg("export-defines", false, func(arg, value string) error { t.exportDefines = value; t.exportDefinesValid = true; return nil }) + opts.Arg("export-enums", false, func(arg, value string) error { t.exportEnums = value; t.exportEnumsValid = true; return nil }) + opts.Arg("export-externs", false, func(arg, value string) error { t.exportExterns = value; t.exportExternsValid = true; return nil }) + opts.Arg("export-fields", false, func(arg, value string) error { t.exportFields = value; t.exportFieldsValid = true; return nil }) + opts.Arg("export-structs", false, func(arg, value string) error { t.exportStructs = value; t.exportStructsValid = true; return nil }) + opts.Arg("export-typedefs", false, func(arg, value string) error { t.exportTypedefs = value; t.exportTypedefsValid = true; return nil }) + opts.Arg("host-config-cmd", false, func(arg, value string) error { t.hostConfigCmd = value; return nil }) + opts.Arg("host-config-opts", false, func(arg, value string) error { t.hostConfigOpts = value; return nil }) + opts.Arg("ignored-includes", false, func(arg, value string) error { t.ignoredIncludes = value; return nil }) + opts.Arg("pkgname", false, func(arg, value string) error { t.pkgName = value; return nil }) + opts.Arg("replace-fd-zero", false, func(arg, value string) error { t.replaceFdZero = value; return nil }) + opts.Arg("replace-tcl-default-double-rounding", false, func(arg, value string) error { t.replaceTclDefaultDoubleRounding = value; return nil }) + opts.Arg("replace-tcl-ieee-double-rounding", false, func(arg, value string) error { t.replaceTclIeeeDoubleRounding = value; return nil }) + opts.Arg("script", false, func(arg, value string) error { t.scriptFn = value; return nil }) + opts.Arg("static-locals-prefix", false, func(arg, value string) error { t.staticLocalsPrefix = value; return nil }) + + opts.Opt("E", func(opt string) error { t.E = true; return nil }) + opts.Opt("all-errors", func(opt string) error { t.allErrors = true; return nil }) + opts.Opt("cover-instrumentation", func(opt string) error { t.cover = true; return nil }) + opts.Opt("cover-instrumentation-c", func(opt string) error { t.coverC = true; return nil }) + opts.Opt("err-trace", func(opt string) error { t.errTrace = true; return nil }) + opts.Opt("full-path-comments", func(opt string) error { t.fullPathComments = true; return nil }) + opts.Opt("func-sig", func(opt string) error { t.funcSig = true; return nil }) + opts.Opt("header", func(opt string) error { t.header = true; return nil }) + opts.Opt("ignore-unsupported-alignment", func(opt string) error { t.ignoreUnsupportedAligment = true; return nil }) + opts.Opt("nocapi", func(opt string) error { t.noCapi = true; return nil }) + opts.Opt("nostdinc", func(opt string) error { t.nostdinc = true; return nil }) + opts.Opt("panic-stubs", func(opt string) error { t.panicStubs = true; return nil }) + opts.Opt("trace-pinning", func(opt string) error { t.tracePinning = true; return nil }) + opts.Opt("trace-translation-units", func(opt string) error { t.traceTranslationUnits = true; return nil }) + opts.Opt("unexported-by-default", func(opt string) error { t.defaultUnExport = true; return nil }) + opts.Opt("verbose-compiledb", func(opt string) error { t.verboseCompiledb = true; return nil }) + opts.Opt("verify-structs", func(opt string) error { t.verifyStructs = true; return nil }) + opts.Opt("version", func(opt string) error { t.version = true; return nil }) + opts.Opt("watch-instrumentation", func(opt string) error { t.watch = true; return nil }) + opts.Opt("windows", func(opt string) error { t.windows = true; return nil }) + + opts.Opt("trace-included-files", func(opt string) error { + if t.includedFiles == nil { + t.includedFiles = map[string]struct{}{} + } + prev := t.cfg.IncludeFileHandler + t.cfg.IncludeFileHandler = func(pos token.Position, pathName string) { + if prev != nil { + prev(pos, pathName) + } + if _, ok := t.includedFiles[pathName]; !ok { + t.includedFiles[pathName] = struct{}{} + fmt.Fprintf(os.Stderr, "#include %s\n", pathName) + } + } + return nil + }) + opts.Arg("ignore-object", false, func(arg, value string) error { + if t.ignoredObjects == nil { + t.ignoredObjects = map[string]struct{}{} + } + t.ignoredObjects[value] = struct{}{} + return nil + }) + opts.Arg("save-config", false, func(arg, value string) error { + if value == "" { + return nil + } + + abs, err := filepath.Abs(value) + if err != nil { + return err + } + + t.saveConfig = abs + if t.includedFiles == nil { + t.includedFiles = map[string]struct{}{} + } + prev := t.cfg.IncludeFileHandler + t.cfg.IncludeFileHandler = func(pos token.Position, pathName string) { + if prev != nil { + prev(pos, pathName) + } + if _, ok := t.includedFiles[pathName]; !ok { + t.includedFiles[pathName] = struct{}{} + full := filepath.Join(abs, pathName) + switch _, err := os.Stat(full); { + case err != nil && os.IsNotExist(err): + // ok + case err != nil: + t.saveConfigErr = err + return + default: + return + } + + b, err := ioutil.ReadFile(pathName) + if err != nil { + t.saveConfigErr = err + return + } + + dir, _ := filepath.Split(full) + if err := os.MkdirAll(dir, 0700); err != nil { + t.saveConfigErr = err + return + } + + if err := ioutil.WriteFile(full, b, 0600); err != nil { + t.saveConfigErr = err + } + } + } + return nil + }) + opts.Arg("-load-config", false, func(arg, value string) error { + if value == "" { + return nil + } + + abs, err := filepath.Abs(value) + if err != nil { + return err + } + + t.loadConfig = abs + return nil + }) + opts.Arg("volatile", false, func(arg, value string) error { + for _, v := range strings.Split(strings.TrimSpace(value), ",") { + t.volatiles[cc.String(v)] = struct{}{} + } + return nil + }) + opts.Opt("nostdlib", func(opt string) error { + t.nostdlib = true + t.crt = "" + t.crtImportPath = "" + return nil + }) + opts.Arg("hide", false, func(arg, value string) error { + value = strings.TrimSpace(value) + a := strings.Split(value, ",") + for _, v := range a { + t.hide[v] = struct{}{} + } + return nil + }) + opts.Arg("l", true, func(arg, value string) error { + value = strings.TrimSpace(value) + a := strings.Split(value, ",") + for _, v := range a { + t.l = append(t.l, v) + t.symSearchOrder = append(t.symSearchOrder, -len(t.l)) + } + return nil + }) + opts.Arg("o", false, func(arg, value string) error { + if t.o != "" { + return fmt.Errorf("multiple argument: -o %s", value) + } + + t.o = value + return nil + }) + if err := opts.Parse(t.args[1:], func(arg string) error { + if strings.HasPrefix(arg, "-") { + return fmt.Errorf("unexpected option: %s", arg) + } + + switch filepath.Ext(arg) { + case ".h": + t.symSearchOrder = append(t.symSearchOrder, len(t.sources)) + t.sources = append(t.sources, cc.Source{Name: arg}) + case ".c": + t.symSearchOrder = append(t.symSearchOrder, len(t.sources)) + t.sources = append(t.sources, cc.Source{Name: arg, DoNotCache: true}) + case ".json": + t.cdb = arg + return opt.Skip(nil) + default: + return fmt.Errorf("unexpected file type: %s", arg) + } + + return nil + }); err != nil { + switch x := err.(type) { + case opt.Skip: + switch { + case t.compiledbValid: // -compiledb foo.json, create DB + cmd := []string(x)[1:] + if len(cmd) == 0 { + return fmt.Errorf("missing command after -compiledb <file>") + } + + return t.createCompileDB(cmd) + case t.cdb != "": // foo.json ..., use DB + if err := t.configure(); err != nil { + return err + } + + return t.useCompileDB(t.cdb, x) + } + + return err + default: + return err + } + } + + if t.version { + gobin, err := exec.LookPath("go") + var b []byte + if err == nil { + var bin string + bin, err = exec.LookPath(os.Args[0]) + if err == nil { + b, err = exec.Command(gobin, "version", "-m", bin).CombinedOutput() + } + } + if err == nil { + fmt.Fprintf(t.stdout, "%s", b) + return nil + } + + fmt.Fprintf(t.stdout, "%s\n", Version) + return nil + } + + if t.scriptFn != "" { + return t.scriptBuild(t.scriptFn) + } + + if len(t.sources) == 0 { + return fmt.Errorf("no input files specified") + } + + if t.crtImportPath != "" { + t.l = append(t.l, t.crtImportPath) + t.symSearchOrder = append(t.symSearchOrder, -len(t.l)) + m := map[string]struct{}{} + for _, v := range t.l { + v = strings.TrimSpace(v) + if _, ok := m[v]; !ok { + t.imported = append(t.imported, &imported{path: v}) + m[v] = struct{}{} + } + } + t.imported[len(t.imported)-1].used = true // crt is always imported + } + + if err := t.configure(); err != nil { + return err + } + + abi, err := cc.NewABI(t.goos, t.goarch) + abi.Types[cc.LongDouble] = abi.Types[cc.Double] + if err != nil { + return err + } + + var re *regexp.Regexp + if t.ignoredIncludes != "" { + if re, err = regexp.Compile(t.ignoredIncludes); err != nil { + return err + } + } + + t.cfg.ABI = abi + t.cfg.ReplaceMacroFdZero = t.replaceFdZero + t.cfg.ReplaceMacroTclDefaultDoubleRounding = t.replaceTclDefaultDoubleRounding + t.cfg.ReplaceMacroTclIeeeDoubleRounding = t.replaceTclIeeeDoubleRounding + t.cfg.Config3.IgnoreInclude = re + t.cfg.Config3.NoFieldAndBitfieldOverlap = true + t.cfg.Config3.PreserveWhiteSpace = t.saveConfig == "" + t.cfg.Config3.UnsignedEnums = true + + if t.mingw = detectMingw(t.hostPredefined); t.mingw { + t.windows = true + } + if t.nostdinc { + t.hostIncludes = nil + t.hostSysIncludes = nil + } + var sources []cc.Source + if t.hostPredefined != "" { + sources = append(sources, cc.Source{Name: "<predefined>", Value: t.hostPredefined}) + } + sources = append(sources, cc.Source{Name: "<builtin>", Value: builtin}) + if len(t.D) != 0 { + var a []string + for _, v := range t.D { + if i := strings.IndexByte(v, '='); i > 0 { + a = append(a, fmt.Sprintf("#define %s %s", v[:i], v[i+1:])) + continue + } + + a = append(a, fmt.Sprintf("#define %s 1", v)) + } + a = append(a, "\n") + sources = append(sources, cc.Source{Name: "<defines>", Value: strings.Join(a, "\n"), DoNotCache: true}) + } + if len(t.U) != 0 { + var a []string + for _, v := range t.U { + a = append(a, fmt.Sprintf("#undef %s", v)) + } + a = append(a, "\n") + sources = append(sources, cc.Source{Name: "<undefines>", Value: strings.Join(a, "\n"), DoNotCache: true}) + } + + // https://pubs.opengroup.org/onlinepubs/9699919799/utilities/c99.html + // + // Headers whose names are enclosed in double-quotes ( "" ) shall be + // searched for first in the directory of the file with the #include + // line, then in directories named in -I options, and last in the usual + // places + includePaths := append([]string{"@"}, t.I...) + includePaths = append(includePaths, t.hostIncludes...) + includePaths = append(includePaths, t.hostSysIncludes...) + // For headers whose names are enclosed in angle brackets ( "<>" ), the + // header shall be searched for only in directories named in -I options + // and then in the usual places. + sysIncludePaths := append(t.I, t.hostSysIncludes...) + if t.traceTranslationUnits { + fmt.Printf("target: %s/%s\n", t.goos, t.goarch) + if t.hostConfigCmd != "" { + fmt.Printf("host config cmd: %s\n", t.hostConfigCmd) + } + } + for i, v := range t.sources { + tuSources := append(sources, v) + out := t.stdout + if t.saveConfig != "" { + out = io.Discard + t.E = true + } + if t.E { + t.cfg.PreprocessOnly = true + if err := cc.Preprocess(t.cfg, includePaths, sysIncludePaths, tuSources, out); err != nil { + return err + } + memGuard(i, t.isScripted) + continue + } + + var t0 time.Time + if t.traceTranslationUnits { + fmt.Printf("C front end %d/%d: %s ... ", i+1, len(t.sources), v.Name) + t0 = time.Now() + } + ast, err := cc.Translate(t.cfg, includePaths, sysIncludePaths, tuSources) + if err != nil { + return err + } + + if t.traceTranslationUnits { + fmt.Println(time.Since(t0)) + } + t.asts = append(t.asts, ast) + memGuard(i, t.isScripted) + } + if t.E || t.isScripted { + return nil + } + + return t.link() +} + +func (t *Task) configure() (err error) { + if t.configured { + return nil + } + + type jsonConfig struct { + Predefined string + IncludePaths []string + SysIncludePaths []string + OS string + Arch string + } + + t.configured = true + if t.loadConfig != "" { + path := filepath.Join(t.loadConfig, "config.json") + // trc("%p: LOAD_CONFIG(%s)", t, path) + b, err := ioutil.ReadFile(path) + if err != nil { + return err + } + + loadConfig := &jsonConfig{} + if err := json.Unmarshal(b, loadConfig); err != nil { + return err + } + + t.goos = loadConfig.OS + t.goarch = loadConfig.Arch + for _, v := range loadConfig.IncludePaths { + t.hostIncludes = append(t.hostIncludes, filepath.Join(t.loadConfig, v)) + } + for _, v := range loadConfig.SysIncludePaths { + t.hostSysIncludes = append(t.hostSysIncludes, filepath.Join(t.loadConfig, v)) + } + t.hostPredefined = loadConfig.Predefined + return nil + } + + hostConfigOpts := strings.Split(t.hostConfigOpts, ",") + if t.hostConfigOpts == "" { + hostConfigOpts = nil + } + if t.hostPredefined, t.hostIncludes, t.hostSysIncludes, err = cc.HostConfig(t.hostConfigCmd, hostConfigOpts...); err != nil { + return err + } + + if t.saveConfig != "" && !t.configSaved { + t.configSaved = true + // trc("%p: SAVE_CONFIG(%s)", t, t.saveConfig) + cfg := &jsonConfig{ + Predefined: t.hostPredefined, + IncludePaths: t.hostIncludes, + SysIncludePaths: t.hostSysIncludes, + OS: t.goos, + Arch: t.goarch, + } + b, err := json.Marshal(cfg) + if err != nil { + return err + } + + full := filepath.Join(t.saveConfig, "config.json") + if err := os.MkdirAll(t.saveConfig, 0700); err != nil { + return err + } + + if err := ioutil.WriteFile(full, b, 0600); err != nil { + return err + } + } + + return nil +} + +func (t *Task) setLookPaths() (err error) { + if t.ccLookPath, err = exec.LookPath(t.cc); err != nil { + return err + } + + t.arLookPath, err = exec.LookPath(t.ar) + return err +} + +func (t *Task) link() (err error) { + if len(t.asts) == 0 { + return fmt.Errorf("no objects to link") + } + + if t.o == "" { + t.o = fmt.Sprintf("a_%s_%s.go", t.goos, t.goarch) + } + dir := filepath.Dir(t.o) + t.capif = filepath.Join(dir, fmt.Sprintf("capi_%s_%s.go", t.goos, t.goarch)) + f, err2 := os.Create(t.o) + if err2 != nil { + return err2 + } + + defer func() { + if e := f.Close(); e != nil && err == nil { + err = e + return + } + + if out, e := exec.Command("gofmt", "-r", "(x) -> x", "-l", "-s", "-w", t.o).CombinedOutput(); e != nil && err == nil { + err = fmt.Errorf(strings.Join([]string{string(out), e.Error()}, ": ")) + } + if out, e := exec.Command("gofmt", "-l", "-s", "-w", t.o).CombinedOutput(); e != nil && err == nil { + err = fmt.Errorf(strings.Join([]string{string(out), e.Error()}, ": ")) + } + }() + + w := bufio.NewWriter(f) + + defer func() { + if e := w.Flush(); e != nil && err == nil { + err = e + } + }() + + t.out = w + p, err := newProject(t) + if err != nil { + return err + } + + return p.main() +} + +func (t *Task) scriptBuild(fn string) error { + f, err := os.Open(fn) + if err != nil { + return err + } + + defer f.Close() + + r := csv.NewReader(f) + r.Comment = '#' + r.FieldsPerRecord = -1 + r.TrimLeadingSpace = true + script, err := r.ReadAll() + if err != nil { + return err + } + + return t.scriptBuild2(script) +} + +func (t *Task) scriptBuild2(script [][]string) error { + var ldir string + ccgo := []string{t.args[0]} + for i, line := range script { + dir := line[0] + args := line[1:] + for _, v := range args { + if strings.HasSuffix(v, ".c") || strings.HasSuffix(v, ".h") { + v = filepath.Join(dir, v) + t.symSearchOrder = append(t.symSearchOrder, len(t.sources)) + t.sources = append(t.sources, cc.Source{Name: v}) + } + } + cmd := append(ccgo, args...) + if t.traceTranslationUnits { + if dir != ldir { + fmt.Println(dir) + ldir = dir + } + fmt.Printf("%s\n", cmd) + } + t2 := NewTask(append(ccgo, args...), t.stdout, t.stderr) + t2.cfg.IncludeFileHandler = t.cfg.IncludeFileHandler + t2.cfg.SharedFunctionDefinitions = t.cfg.SharedFunctionDefinitions + t2.configSaved = t.configSaved + t2.configured = t.configured + t2.hostIncludes = t.hostIncludes + t2.hostPredefined = t.hostPredefined + t2.hostSysIncludes = t.hostSysIncludes + t2.includedFiles = t.includedFiles + t2.isScripted = true + t2.loadConfig = t.loadConfig + t2.replaceFdZero = t.replaceFdZero + t2.replaceTclDefaultDoubleRounding = t.replaceTclDefaultDoubleRounding + t2.replaceTclIeeeDoubleRounding = t.replaceTclIeeeDoubleRounding + t2.saveConfig = t.saveConfig + if err := inDir(dir, t2.Main); err != nil { + return err + } + + t.asts = append(t.asts, t2.asts...) + if i == 0 { + t.cfg = t2.cfg + } + } + if t.crtImportPath != "" { + t.l = append(t.l, t.crtImportPath) + t.symSearchOrder = append(t.symSearchOrder, -len(t.l)) + m := map[string]struct{}{} + for _, v := range t.l { + v = strings.TrimSpace(v) + if _, ok := m[v]; !ok { + t.imported = append(t.imported, &imported{path: v}) + m[v] = struct{}{} + } + } + t.imported[len(t.imported)-1].used = true // crt is always imported + } + if t.saveConfig != "" { + return nil + } + + return t.link() +} + +type cdb struct { + items []*cdbItem + outputIndex map[string][]*cdbItem +} + +func (db *cdb) find(obj map[string]*cdbItem, nm string, ver, seqLimit int, path []string, cc, ar string, ignored map[string]struct{}) error { + // trc("%v: nm %q ver %v seqLimit %v path %q cc %q ar %q", origin(1), nm, ver, seqLimit, path, cc, ar) + var item *cdbItem + var k string + switch { + case ver < 0: + // find highest ver with .seq < seqLimit + for i, v := range db.outputIndex[nm] { + if v.seq >= seqLimit { + break + } + + item = v + ver = i + } + if item == nil { + ver = -1 + for _, v := range db.items { + if seqLimit >= 0 && v.seq >= seqLimit { + break + } + + if filepath.Base(v.Output) == filepath.Base(nm) { + item = v + ver = v.ver + break + } + } + } + + k = fmt.Sprintf("%s#%d", nm, ver) + default: + // match ver exactly + k = fmt.Sprintf("%s#%d", nm, ver) + if obj[k] != nil { + return nil + } + + items := db.outputIndex[nm] + switch { + case ver < len(items): + panic(todo("", nm, ver, seqLimit)) + default: + n := -1 + for _, v := range db.items { + if seqLimit >= 0 && v.seq >= seqLimit { + break + } + + if filepath.Base(v.Output) == filepath.Base(nm) { + n++ + if n == ver { + item = v + break + } + } + } + } + } + if item == nil { + for k := range ignored { + if k == nm || strings.HasSuffix(nm, k) { + return nil + } + } + + return fmt.Errorf("not found in compile DB: %s (max seq %d), path %v", k, seqLimit, path) + } + + if obj[k] != nil { + return nil + } + + obj[k] = item + var errs []string + for _, v := range item.sources(cc, ar) { + if err := db.find(obj, v, -1, item.seq, append(path, nm), cc, ar, ignored); err != nil { + errs = append(errs, err.Error()) + } + } + if len(errs) != 0 { + sort.Strings(errs) + w := 0 + for _, v := range errs { + if w == 0 || w > 0 && v != errs[w-1] { + errs[w] = v + w++ + } + } + errs = errs[:w] + return fmt.Errorf("%s", strings.Join(errs, "\n")) + } + + return nil +} + +func suffixNum(s string, dflt int) (string, int) { + x := strings.LastIndexByte(s, '#') + if x < 0 { + return s, dflt + } + + // foo#42 + // 012345 + // x == 3 + num := s[x+1:] + n, err := strconv.ParseUint(num, 10, 32) + if err != nil { + return s, dflt + } + + return s[:x], int(n) +} + +func (t *Task) useCompileDB(fn string, args []string) error { + if err := t.setLookPaths(); err != nil { + return err + } + + var cdb cdb + f, err := os.Open(fn) + if err != nil { + return err + } + + de := json.NewDecoder(f) + err = de.Decode(&cdb.items) + f.Close() + if err != nil { + return err + } + + cdb.outputIndex = map[string][]*cdbItem{} + for i, v := range cdb.items { + v.seq = i + if len(v.Arguments) == 0 { + if len(v.Command) == 0 { + return fmt.Errorf("either arguments or command is required: %+v", v) + } + + if v.Arguments, err = shellquote.Split(v.Command); err != nil { + return err + } + } + + k := v.output(t.ccLookPath, t.arLookPath) + a := cdb.outputIndex[k] + v.ver = len(a) + cdb.outputIndex[k] = append(a, v) + } + obj := map[string]*cdbItem{} + notFound := false + for _, v := range args { + v, ver := suffixNum(v, 0) + if err := cdb.find(obj, v, ver, -1, nil, t.ccLookPath, t.arLookPath, t.ignoredObjects); err != nil { + notFound = true + fmt.Fprintln(os.Stderr, err) + } + } + if notFound { + var a []string + for k, v := range cdb.outputIndex { + for _, w := range v { + a = append(a, fmt.Sprintf("%5d %s", w.seq, k)) + } + } + sort.Strings(a) + fmt.Fprintf(os.Stderr, "compile DB index:\n\t%s\n", strings.Join(a, "\n\t")) + } + + var a []string + for k := range obj { + a = append(a, k) + } + sort.Strings(a) + return t.cdbBuild(obj, a) +} + +func (t *Task) cdbBuild(obj map[string]*cdbItem, list []string) error { + var script [][]string + for _, nm := range list { + it := obj[nm] + if !strings.HasSuffix(it.Output, ".o") || it.Arguments[0] != t.cc { + continue + } + + args, err := it.ccgoArgs(t.cc) + if err != nil { + return err + } + + for _, v := range t.D { + args = append(args, "-D"+v) + } + for _, v := range t.U { + args = append(args, "-U"+v) + } + + line := append([]string{it.Directory}, args...) + script = append(script, line) + } + return t.scriptBuild2(script) +} + +func (t *Task) createCompileDB(command []string) (rerr error) { + if err := t.setLookPaths(); err != nil { + return err + } + + cwd, err := os.Getwd() + if err != nil { + return err + } + + f, err := os.Create(t.compiledb) + if err != nil { + return err + } + + defer func() { + if err := f.Close(); err != nil && rerr == nil { + rerr = err + } + }() + + cwr := newCDBWriter(f) + + defer func() { + if err := cwr.finish(); err != nil && rerr == nil { + rerr = err + } + }() + + var cmd *exec.Cmd + var parser func(s string) ([]string, error) +out: + switch t.goos { + case "darwin", "freebsd", "netbsd", "openbsd": + switch command[0] { + case "make", "gmake": + // ok + default: + return fmt.Errorf("usupported build command: %s", command[0]) + } + + sh, err := exec.LookPath("sh") + if err != nil { + return err + } + + command = append([]string{sh, "-c"}, join(" ", command[0], "SHELL='sh -x'", command[1:])) + cmd = exec.Command(command[0], command[1:]...) + parser = makeXParser + case "windows": + if command[0] != "make" { + return fmt.Errorf("usupported build command: %s", command[0]) + } + + switch s := runtime.GOOS; s { + case "windows": + argv := append([]string{"-d"}, command[1:]...) + command[0] += ".exe" + cmd = exec.Command(command[0], argv...) + parser = makeDParser + break out + case "linux": + // ok + default: + return fmt.Errorf("usupported cross compile host: %s", s) + } + + fallthrough + default: + strace, err := exec.LookPath("strace") + if err != nil { + return err + } + + argv := append([]string{"-f", "-s1000000", "-e", "trace=execve"}, command...) + cmd = exec.Command(strace, argv...) + parser = straceParser + } + cmd.Env = append(os.Environ(), "LC_ALL=C") + cw := t.newCdbMakeWriter(cwr, cwd, parser) + switch { + case t.verboseCompiledb: + cmd.Stdout = io.MultiWriter(cw, os.Stdout) + default: + cmd.Stdout = cw + } + cmd.Stderr = cmd.Stdout + if dmesgs { + dmesg("%v: %v", origin(1), cmd.Args) + } + if err := cmd.Run(); err != nil { + if dmesgs { + dmesg("%v: cmd.Run: %v", origin(1), err) + } + return err + } + + return cw.err +} + +func makeDParser(s string) ([]string, error) { + const prefix = "CreateProcess(" + if !strings.HasPrefix(s, prefix) { + return nil, nil + } + + // s: `CreateProcess(C:\Program Files\CodeBlocks\MinGW\bin\gcc.exe,gcc -O3 -Wall -c -o compress.o compress.c,...)` + s = s[len(prefix):] + // s: `C:\Program Files\CodeBlocks\MinGW\bin\gcc.exe,gcc -O3 -Wall -c -o compress.o compress.c,...)` + x := strings.IndexByte(s, ',') + if x < 0 { + return nil, nil + } + + cmd := s[:x] + // cmd: `C:\Program Files\CodeBlocks\MinGW\bin\gcc.exe` + + s = s[x+1:] + // s: `gcc -O3 -Wall -c -o compress.o compress.c,...)` + if x = strings.LastIndexByte(s, ','); x < 0 { + return nil, nil + } + + s = s[:x] + // s: `gcc -O3 -Wall -c -o compress.o compress.c` + a, err := shellquote.Split(strings.TrimSpace(s)) + if err != nil || len(a) == 0 { + return nil, err + } + + return append([]string{cmd}, a[1:]...), nil +} + +func isCreateArchive(s string) bool { + // ar modifiers may be in any order so sort characters in s before checking. + // This turns eg `rc` into `cr`. + b := []byte(s) + sort.Slice(b, func(i, j int) bool { return b[i] < b[j] }) + switch string(b) { + case "cq", "cr", "crs", "cru": + return true + } + return false +} + +func hasPlusPrefix(s string) (n int, r string) { + for strings.HasPrefix(s, "+") { + n++ + s = s[1:] + } + return n, s +} + +func makeXParser(s string) (r []string, err error) { + switch { + case strings.HasPrefix(s, "libtool: link: ar "): + s = s[len("libtool: link:"):] + case strings.HasPrefix(s, "libtool: compile: "): + s = s[len("libtool: compile:"):] + for strings.HasPrefix(s, " ") { + s = s[1:] + } + default: + var n int + if n, s = hasPlusPrefix(s); n == 0 { + return nil, nil + } + } + + if !strings.HasPrefix(s, " ") { + return nil, nil + } + + s = s[1:] + r, err = shellquote.Split(s) + if err != nil { + if strings.Contains(err.Error(), "Unterminated single-quoted string") { + return nil, nil // ignore + } + } + if len(r) != 0 && filepath.Base(r[0]) == "libtool" { + r[0] = "libtool" + } + return r, err +} + +func straceParser(s string) ([]string, error) { + prefix := "execve(" + if strings.HasPrefix(s, "[pid ") { + s = strings.TrimSpace(s[strings.IndexByte(s, ']')+1:]) + } + if !strings.HasPrefix(s, prefix) || !strings.HasSuffix(s, ") = 0") { + return nil, nil + } + + // s: `execve("/usr/bin/ar", ["ar", "cr", "libtcl8.6.a", "regcomp.o", ... "bn_s_mp_sqr.o", "bn_s_mp_sub.o"], 0x55e6bbf49648 /* 60 vars */) = 0` + s = s[len(prefix):] + // s: `"/usr/bin/ar", ["ar", "cr", "libtcl8.6.a", "regcomp.o", ... "bn_s_mp_sqr.o", "bn_s_mp_sub.o"], 0x55e6bbf49648 /* 60 vars */) = 0` + a := strings.SplitN(s, ", [", 2) + // a[0]: `"/usr/bin/ar"`, a[1]: `"ar", "cr", "libtcl8.6.a", "regcomp.o", ... "bn_s_mp_sqr.o", "bn_s_mp_sub.o"], 0x55e6bbf49648 /* 60 vars */) = 0` + args := a[1] + // args: `"ar", "cr", "libtcl8.6.a", "regcomp.o", ... "bn_s_mp_sqr.o", "bn_s_mp_sub.o"], 0x55e6bbf49648 /* 60 vars */) = 0` + args = args[:strings.LastIndex(args, "], ")] + // args: `"ar", "cr", "libtcl8.6.a", "regcomp.o", ... "bn_s_mp_sqr.o", "bn_s_mp_sub.o"` + argv, err := shellquote.Split(args) + if err != nil { + return nil, err + } + + words, err := shellquote.Split(a[0]) + if err != nil { + return nil, err + } + + argv[0] = words[0] + for i, v := range argv { + if strings.HasSuffix(v, ",") { + v = v[:len(v)-1] + } + if v2, err := strconv.Unquote(`"` + v + `"`); err == nil { + v = v2 + } + argv[i] = v + } + + return argv, nil +} + +type cdbItem struct { + Arguments []string `json:"arguments"` + Command string `json:"command,omitempty"` + Directory string `json:"directory"` + File string `json:"file"` + Output string `json:"output,omitempty"` + + seq int + ver int +} + +func (it *cdbItem) cmpString() string { return fmt.Sprint(*it) } + +func (it *cdbItem) ccgoArgs(cc string) (r []string, err error) { + switch it.Arguments[0] { + case cc: + set := opt.NewSet() + set.Arg("D", true, func(opt, arg string) error { r = append(r, "-D"+arg); return nil }) + set.Arg("I", true, func(opt, arg string) error { r = append(r, "-I"+arg); return nil }) + set.Arg("MF", true, func(opt, arg string) error { return nil }) + set.Arg("MT", true, func(opt, arg string) error { return nil }) + set.Arg("O", true, func(opt, arg string) error { return nil }) + set.Arg("U", true, func(opt, arg string) error { r = append(r, "-U"+arg); return nil }) + set.Arg("o", true, func(opt, arg string) error { return nil }) + set.Arg("std", true, func(opt, arg string) error { return nil }) + set.Opt("MD", func(opt string) error { return nil }) + set.Opt("MMD", func(opt string) error { return nil }) + set.Opt("MP", func(opt string) error { return nil }) + set.Opt("ansi", func(opt string) error { return nil }) + set.Opt("c", func(opt string) error { return nil }) + set.Opt("g", func(opt string) error { return nil }) + set.Opt("pedantic", func(opt string) error { return nil }) + set.Opt("pipe", func(opt string) error { return nil }) + set.Opt("pthread", func(opt string) error { return nil }) + set.Opt("s", func(opt string) error { return nil }) + set.Opt("w", func(opt string) error { return nil }) + if err := set.Parse(it.Arguments[1:], func(arg string) error { + switch { + case strings.HasSuffix(arg, ".c"): + r = append(r, arg) + case + + strings.HasPrefix(arg, "-W"), + strings.HasPrefix(arg, "-f"), + strings.HasPrefix(arg, "-m"): + + // nop + case strings.HasPrefix(arg, ">"): + return opt.Skip(nil) + default: + return fmt.Errorf("unknown/unsupported CC option: %s", arg) + } + + return nil + }); err != nil { + switch err.(type) { + case opt.Skip: + // ok + default: + return nil, err + } + } + + return r, nil + default: + return nil, fmt.Errorf("command not supported: %q", it.Arguments[0]) + } +} + +func (it *cdbItem) output(cc, ar string) (r string) { + if it.Output != "" { + return it.Output + } + + if len(it.Arguments) == 0 { + return "" + } + + switch it.Arguments[0] { + case cc: + for i, v := range it.Arguments { + if v == "-o" && i < len(it.Arguments)-1 { + it.Output = filepath.Join(it.Directory, it.Arguments[i+1]) + break + } + } + if it.Output == "" && strings.HasSuffix(it.File, ".c") { + for _, v := range it.Arguments { + if v == "-c" { + bn := filepath.Base(it.File) + it.Output = filepath.Join(it.Directory, bn[:len(bn)-2]+".o") + break + } + } + } + case ar: + if isCreateArchive(it.Arguments[1]) { + it.Output = filepath.Join(it.Directory, it.Arguments[2]) + } + case "libtool": + for i, v := range it.Arguments { + if v == "-o" && i < len(it.Arguments)-1 { + it.Output = filepath.Join(it.Directory, it.Arguments[i+1]) + } + } + } + return it.Output +} + +func (it *cdbItem) sources(cc, ar string) (r []string) { + if len(it.Arguments) == 0 { + return nil + } + + switch arg0 := it.Arguments[0]; arg0 { + case + "libtool", + ar, + filepath.Base(ar), + cc: + + var prev string + for _, v := range it.Arguments { + switch prev { + case "-o", "-MT", "-MF": + // nop + default: + if strings.HasSuffix(v, ".o") { + r = append(r, filepath.Join(it.Directory, v)) + } + } + prev = v + } + return r + default: + panic(todo("cc: %q ar: %q it: %+v", cc, ar, it)) + } +} + +type cdbMakeWriter struct { + b bytes.Buffer + cc string + ar string + arBase string + dir string + err error + it cdbItem + parser func(s string) ([]string, error) + sc *bufio.Scanner + w *cdbWriter +} + +func (t *Task) newCdbMakeWriter(w *cdbWriter, dir string, parser func(s string) ([]string, error)) *cdbMakeWriter { + const sz = 1 << 16 + r := &cdbMakeWriter{ + cc: t.ccLookPath, + ar: t.arLookPath, + arBase: filepath.Base(t.arLookPath), + dir: dir, + parser: parser, + w: w, + } + r.sc = bufio.NewScanner(&r.b) + r.sc.Buffer(make([]byte, sz), sz) + return r +} + +func (w *cdbMakeWriter) fail(err error) { + if w.err == nil { + w.err = fmt.Errorf("%v (%v)", err, origin(2)) + } +} + +func (w *cdbMakeWriter) Write(b []byte) (int, error) { + w.b.Write(b) + for bytes.Contains(w.b.Bytes(), []byte{'\n'}) { + if !w.sc.Scan() { + panic(todo("internal error")) + } + + s := strings.TrimSpace(w.sc.Text()) + if edx := strings.Index(s, "Entering directory"); edx >= 0 { + s = s[edx+len("Entering directory"):] + s = strings.TrimSpace(s) + if len(s) == 0 { + continue + } + + if (s[0] == '\'' || s[0] == '`') && s[len(s)-1] == '\'' { + s = s[1:] + if len(s) == 0 { + continue + } + + s = s[:len(s)-1] + } + s = `"` + s + `"` + dir, err := strconv.Unquote(s) + if err != nil { + w.fail(err) + continue + } + + dir = filepath.Clean(dir) + if dir == w.dir { + continue + } + + w.dir = dir + fmt.Printf("cd %s\n", dir) + continue + } + + args, err := w.parser(s) + if err != nil { + w.fail(err) + continue + } + + if len(args) == 0 { + continue + } + + // TODO: change so eg handleGCC returns []cdbItem, skip if none. + + w.it = cdbItem{} + + err = nil + switch args[0] { + case w.cc: + fmt.Printf("CCGO CC: %q\n", args) + err = w.handleGCC(args) + case w.ar: + fallthrough + case w.arBase: + if isCreateArchive(args[1]) { + fmt.Printf("CCGO AR: %q\n", args) + err = w.handleAR(args) + } + case "libtool": + fmt.Printf("CCGO LIBTOOL: %q\n", args) + err = w.handleLibtool(args) + } + if err != nil { + w.fail(err) + continue + } + + if w.it.Output != "" { + w.w.add(w.it) + } + } + return len(b), nil +} + +func (w *cdbMakeWriter) handleLibtool(args []string) error { + w.it = cdbItem{ + Arguments: args, + Directory: w.dir, + } + for i, v := range args { + switch { + case v == "-o" && i < len(args)-1: + w.it.Output = filepath.Join(w.dir, args[i+1]) + } + } + w.it.output(w.cc, w.ar) + return nil +} + +func (w *cdbMakeWriter) handleAR(args []string) error { + w.it = cdbItem{ + Arguments: args, + Directory: w.dir, + } + // TODO: assumes isCreateArchive has already been checked + w.it.Output = filepath.Join(w.dir, args[2]) + return nil +} + +func (w *cdbMakeWriter) handleGCC(args []string) error { + w.it = cdbItem{ + Arguments: args, + Directory: w.dir, + } + for i, v := range args { + switch { + case v == "-o" && i < len(args)-1: + w.it.Output = filepath.Join(w.dir, args[i+1]) + case strings.HasSuffix(v, ".c"): + if w.it.File != "" { + return fmt.Errorf("multiple .c files: %s", v) + } + + w.it.File = filepath.Clean(v) + } + } + w.it.output(w.cc, w.ar) + return nil +} + +type cdbWriter struct { + w *bufio.Writer + items []cdbItem +} + +func newCDBWriter(w io.Writer) *cdbWriter { + return &cdbWriter{w: bufio.NewWriter(w)} +} + +func (w *cdbWriter) add(item cdbItem) { + w.items = append(w.items, item) +} + +func (w *cdbWriter) finish() error { + enc := json.NewEncoder(w.w) + enc.SetIndent("", " ") + if err := enc.Encode(w.items); err != nil { + return err + } + return w.w.Flush() +} + +func join(sep string, a ...interface{}) string { + var b []string + for _, v := range a { + switch x := v.(type) { + case string: + b = append(b, x) + case []string: + b = append(b, x...) + default: + panic(todo("internal error: %T", x)) + } + } + return strings.Join(b, sep) +} + +func inDir(dir string, f func() error) (err error) { + var cwd string + if cwd, err = os.Getwd(); err != nil { + return err + } + + defer func() { + if err2 := os.Chdir(cwd); err2 != nil { + err = err2 + } + }() + + if err = os.Chdir(dir); err != nil { + return err + } + + return f() +} + +func detectMingw(s string) bool { + return strings.Contains(s, "#define __MINGW") +} + +func memGuard(i int, force bool) { + if totalRam == 0 || totalRam > 64e9 { + return + } + + var ms runtime.MemStats + runtime.ReadMemStats(&ms) + switch { + case ms.Alloc < totalRam/2: + return + case ms.Alloc < (8*totalRam)/10: + if force { + break + } + + switch { + case totalRam < 1e9: + // ok + case totalRam < 16e9: + if i&1 == 1 { + return + } + default: + if i&3 != 3 { + return + } + } + } + + debug.FreeOSMemory() +} diff --git a/vendor/modernc.org/ccgo/v3/lib/cover.go b/vendor/modernc.org/ccgo/v3/lib/cover.go new file mode 100644 index 00000000..fdc39f3f --- /dev/null +++ b/vendor/modernc.org/ccgo/v3/lib/cover.go @@ -0,0 +1,39 @@ +// Copyright 2020 The CCGO Authors. All rights reserved. +// Use of this source code is governed by a BSD-style +// license that can be found in the LICENSE file. + +package ccgo // import "modernc.org/ccgo/v3/lib" + +import ( + "fmt" + "runtime" + "sort" + "strings" +) + +var ( + coverMap = map[uintptr]struct{}{} +) + +func pc2origin(pc uintptr) string { + f := runtime.FuncForPC(pc) + var fn, fns string + var fl int + if f != nil { + fn, fl = f.FileLine(pc) + fns = f.Name() + if x := strings.LastIndex(fns, "."); x > 0 { + fns = fns[x+1:] + } + } + return fmt.Sprintf("%s:%d:%s", fn, fl, fns) +} + +func coverReport() string { + var a []string + for pc := range coverMap { + a = append(a, pc2origin(pc)) + } + sort.Strings(a) + return strings.Join(a, "\n") +} diff --git a/vendor/modernc.org/ccgo/v3/lib/design-notes.adoc b/vendor/modernc.org/ccgo/v3/lib/design-notes.adoc new file mode 100644 index 00000000..880ce7ee --- /dev/null +++ b/vendor/modernc.org/ccgo/v3/lib/design-notes.adoc @@ -0,0 +1,91 @@ += Design Notes + +== Problems: + +Translating C to Go is harder than it looks. + +Jan says: It's impossible in the general case to turn C char* into Go +[]byte. It's possible to do it probably often for concrete C code +cases - based also on author's C coding style. The first problem this +runs into is that Go does not guarantee that the backing array will +keep its address stable due to Go movable stacks. C expects the +opposite, a pointer never magically modifies itself, so some code will +fail. + +INSERT CODE EXAMPLES ILLUSTRATING THE PROBLEM HERE + +== How the parser works + +There are no comment nodes in the C AST. Instead every cc.Token has a +Sep field: https://godoc.org/modernc.org/cc/v3#Token + +It captures, when configured to do so, all white space preceding the +token, combined, including comments, if any. So we have all white +space/comments information for every token in the AST. A final white +space/comment, preceding EOF, is available as field TrailingSeperator +in the AST: https://godoc.org/modernc.org/cc/v3#AST. + +To get the lexically first white space/comment for any node, use +tokenSeparator(): +https://gitlab.com/cznic/ccgo/-/blob/6551e2544a758fdc265c8fac71fb2587fb3e1042/v3/go.go#L1476 + +The same with a default value is comment(): +https://gitlab.com/cznic/ccgo/-/blob/6551e2544a758fdc265c8fac71fb2587fb3e1042/v3/go.go#L1467 + +== Looking forward + +Eric says: In my visualization of how the translator would work, the +output of a ccgo translation of a module at any given time is a file +of pseudo-Go code in which some sections may be enclosed by a Unicode +bracketing character (presently using the guillemot quotes U+ab and +U+bb) meaning "this is not Go yet" that intentionally makes the Go +compiler barf. This expresses a color on the AST nodes. + +So, for example, if I'm translating hello.c with a ruleset that does not +include print -> fmt.Printf, this: + +--------------------------------------------------------- +#include <stdio> + +/* an example comment */ + +int main(int argc, char *argv[]) +{ + printf("Hello, World") +} +--------------------------------------------------------- + +becomes this without any explicit rules at all: + +--------------------------------------------------------- +«#include <stdio>» + +/* an example comment */ + +func main +{ + «printf(»"Hello, World"!\n"«)» +} +--------------------------------------------------------- + +Then, when the rule print -> fmt.Printf is added, it becomes + +--------------------------------------------------------- +import ( + "fmt" +) + +/* an example comment */ + +func main +{ + fmt.Printf("Hello, World"!\n") +} +--------------------------------------------------------- + +because with that rule the AST node corresponding to the printf +call can be translated and colored "Go". This implies an import +of fmt. We observe that there are no longer C-colored spans +and drop the #includes. + +// end diff --git a/vendor/modernc.org/ccgo/v3/lib/dmesg.go b/vendor/modernc.org/ccgo/v3/lib/dmesg.go new file mode 100644 index 00000000..c7da87ee --- /dev/null +++ b/vendor/modernc.org/ccgo/v3/lib/dmesg.go @@ -0,0 +1,42 @@ +// Copyright 2021 The CCGO Authors. All rights reserved. +// Use of this source code is governed by a BSD-style +// license that can be found in the LICENSE file. + +//go:build ccgo.dmesg +// +build ccgo.dmesg + +package ccgo // import "modernc.org/ccgo/v3/lib" + +import ( + "fmt" + "os" + "path/filepath" + "strings" +) + +const dmesgs = true + +var ( + pid = fmt.Sprintf("[%v %v] ", os.Getpid(), filepath.Base(os.Args[0])) + logf *os.File +) + +func init() { + var err error + if logf, err = os.OpenFile("/tmp/ccgo.log", os.O_APPEND|os.O_CREATE|os.O_WRONLY|os.O_SYNC, 0644); err != nil { + panic(err.Error()) + } +} + +func dmesg(s string, args ...interface{}) { + if s == "" { + s = strings.Repeat("%v ", len(args)) + } + s = fmt.Sprintf(pid+s, args...) + switch { + case len(s) != 0 && s[len(s)-1] == '\n': + fmt.Fprint(logf, s) + default: + fmt.Fprintln(logf, s) + } +} diff --git a/vendor/modernc.org/ccgo/v3/lib/etc.go b/vendor/modernc.org/ccgo/v3/lib/etc.go new file mode 100644 index 00000000..e3b8c577 --- /dev/null +++ b/vendor/modernc.org/ccgo/v3/lib/etc.go @@ -0,0 +1,110 @@ +// Copyright 2020 The CCGO Authors. All rights reserved. +// Use of this source code is governed by a BSD-style +// license that can be found in the LICENSE file. + +package ccgo // import "modernc.org/ccgo/v3/lib" + +import ( + "fmt" + "math" + "math/big" + + "modernc.org/cc/v3" +) + +var ( + reservedNames = map[string]bool{ + "bool": false, // ccgo can use + "break": true, // keyword + "case": true, // keyword + "chan": true, // keyword + "const": true, // keyword + "continue": true, // keyword + "default": true, // keyword + "defer": true, // keyword + "else": true, // keyword + "fallthrough": true, // keyword + "false": false, // ccgo can use + "float32": false, // ccgo can use + "float64": false, // ccgo can use + "for": true, // keyword + "func": true, // keyword + "go": true, // keyword + "goto": true, // keyword + "if": true, // keyword + "import": true, // keyword + "init": false, // special name + "int16": false, // ccgo can use + "int32": false, // ccgo can use + "int64": false, // ccgo can use + "int8": false, // ccgo can use + "interface": true, // keyword + "map": true, // keyword + "math": false, // package name + "nil": false, // ccgo can use + "package": true, // keyword + "range": true, // keyword + "return": true, // keyword + "select": true, // keyword + "struct": true, // keyword + "switch": true, // keyword + "true": false, // ccgo can use + "type": true, // keyword + "types": false, // package name + "uint16": false, // ccgo can use + "uint32": false, // ccgo can use + "uint64": false, // ccgo can use + "uint8": false, // ccgo can use + "uintptr": false, // ccgo can use + "unsafe": false, // package name + "var": true, // keyword + } + + reservedIds []cc.StringID + + maxInt32 = big.NewInt(math.MaxInt32) + maxInt64 = big.NewInt(math.MaxInt64) + maxUint32 = big.NewInt(math.MaxUint32) + maxUint64 = big.NewInt(0).SetUint64(math.MaxUint64) + minInt32 = big.NewInt(math.MinInt32) + minInt64 = big.NewInt(math.MinInt64) +) + +func init() { + for k := range reservedNames { + reservedIds = append(reservedIds, cc.String(k)) + } +} + +type scope map[cc.StringID]int32 + +func newScope() scope { + s := scope{} + for _, k := range reservedIds { + s[k] = 0 + } + return s +} + +func (s scope) take(t cc.StringID) string { + if t == 0 { + panic(todo("internal error")) + } + + n, ok := s[t] + if !ok { + s[t] = 0 + return t.String() + } + + for { + n++ + s[t] = n + r := fmt.Sprintf("%s%d", t, n) + id := cc.String(r) + if _, ok := s[id]; !ok { + s[id] = 0 + return r + } + } +} diff --git a/vendor/modernc.org/ccgo/v3/lib/go.go b/vendor/modernc.org/ccgo/v3/lib/go.go new file mode 100644 index 00000000..8e6bccc7 --- /dev/null +++ b/vendor/modernc.org/ccgo/v3/lib/go.go @@ -0,0 +1,13056 @@ +// Copyright 2020 The CCGO Authors. All rights reserved. +// Use of this source code is governed by a BSD-style +// license that can be found in the LICENSE file. + +package ccgo // import "modernc.org/ccgo/v3/lib" + +import ( + "bytes" + "fmt" + "go/scanner" + "go/token" + "hash/maphash" + "io/ioutil" + "math" + "math/big" + "os" + "os/exec" + "path/filepath" + "runtime" + "sort" + "strconv" + "strings" + "sync" + "time" + + "modernc.org/cc/v3" + "modernc.org/mathutil" +) + +var ( + idAddOverflow = cc.String("__builtin_add_overflow") // bool __builtin_add_overflow (type1 a, type2 b, type3 *res) + idAlias = cc.String("alias") + idAligned = cc.String("aligned") // int __attribute__ ((aligned (8))) foo; + idAtomicLoadN = cc.String("__atomic_load_n") // type __atomic_load_n (type *ptr, int memorder) + idAtomicStoreN = cc.String("__atomic_store_n") // void __atomic_store_n (type *ptr, type val, int memorder) + idBp = cc.String("bp") + idBuiltinConstantPImpl = cc.String("__builtin_constant_p_impl") + idCAPI = cc.String("CAPI") + idChooseExpr = cc.String("__builtin_choose_expr") + idEnviron = cc.String("environ") + idMain = cc.String("main") + idMulOverflow = cc.String("__builtin_mul_overflow") // bool __builtin_mul_overflow (type1 a, type2 b, type3 *res) + idPacked = cc.String("packed") // __attribute__((packed)) + idSubOverflow = cc.String("__builtin_sub_overflow") // bool __builtin_sub_overflow (type1 a, type2 b, type3 *res) + idTls = cc.String("tls") + idTransparentUnion = cc.String("__transparent_union__") + idTs = cc.String("ts") + idVa = cc.String("va") + idVaArg = cc.String("__ccgo_va_arg") + idVaEnd = cc.String("__ccgo_va_end") + idVaList = cc.String("va_list") + idVaStart = cc.String("__ccgo_va_start") + idWcharT = cc.String("wchar_t") + idWinWchar = cc.String("WCHAR") + idWtext = cc.String("wtext") + + bytesBufferPool = sync.Pool{New: func() interface{} { return &bytes.Buffer{} }} + + oTraceG bool + oTraceW bool + oTracePin bool +) + +type exprMode int + +const ( + doNotExport = iota + doNotChange + exportCapitalize + exportPrefix +) + +const ( + _ exprMode = iota + exprAddrOf // &foo as uinptr (must be static/pinned) + exprBool // foo in foo != 0 + exprCondInit // foo or bar in int i = x ? foo : bar; + exprCondReturn // foo or bar in return x ? foo : bar; + exprDecay // &foo[0] in foo for array foo. + exprFunc // foo in foo(bar) + exprLValue // foo in foo = bar + exprPSelect // foo in foo->bar + exprSelect // foo in foo.bar + exprValue // foo in bar = foo + exprVoid // + exprGoPtr +) + +const ( + tooManyErrors = "too many errors" +) + +type opKind int + +const ( + opNormal opKind = iota + opArray + opArrayParameter + opFunction + opUnion + opBitfield + opStruct +) + +type flags byte + +const ( + fForceConv flags = 1 << iota + fForceNoConv + fForceRuntimeConv + fNoCondAssignment + fAddrOfFuncPtrOk +) + +type imported struct { + path string // Eg. "example.com/user/foo". + name string // Eg. "foo" from "package foo". + qualifier string // Eg. "foo." or "foo2." if renamed due to name conflict. + exports map[string]struct{} // Eg. {"New": {}, "Close": {}, ...}. + + used bool +} + +type taggedStruct struct { + ctyp cc.Type + gotyp string + name string + node cc.Node + + conflicts bool + emitted bool +} + +func (s *taggedStruct) emit(p *project, ds *cc.DeclarationSpecifiers) { + if s == nil || s.emitted { + return + } + + s.emitted = true + p.w("%stype %s = %s; /* %v */\n\n", tidyComment("\n", ds), s.name, s.gotyp, p.pos(s.node)) +} + +// Return first non empty token separator within n or dflt otherwise. +func comment(dflt string, n cc.Node) string { + if s := tokenSeparator(n); s != "" { + return s + } + + return dflt +} + +// tidyComment is like comment but makes comment more Go-like. +func tidyComment(dflt string, n cc.Node) (r string) { return tidyCommentString(comment(dflt, n)) } + +func tidyCommentString(s string) (r string) { + defer func() { + if !strings.Contains(r, "// <blockquote><pre>") { + return + } + + a := strings.Split(r, "\n") + in := false + for i, v := range a { + switch { + case in: + if strings.HasPrefix(v, "// </pre></blockquote>") { + in = false + a[i] = "//" + break + } + + a[i] = fmt.Sprintf("//\t%s", v[3:]) + default: + if strings.HasPrefix(v, "// <blockquote><pre>") { + a[i] = "//" + in = true + } + } + } + r = strings.Join(a, "\n") + }() + + s = strings.ReplaceAll(s, "\f", "") + b := bytesBufferPool.Get().(*bytes.Buffer) + defer func() { b.Reset(); bytesBufferPool.Put(b) }() + for len(s) != 0 { + c := s[0] + s = s[1:] + if len(s) == 0 { + b.WriteByte(c) + break + } + + if c != '/' { + b.WriteByte(c) + continue + } + + c2 := s[0] + s = s[1:] + switch c2 { + case '/': // line comment start + b.WriteByte(c) + b.WriteByte(c2) + for { + c := s[0] + s = s[1:] + b.WriteByte(c) + if c == '\n' { + break + } + } + case '*': // block comment start + b2 := bytesBufferPool.Get().(*bytes.Buffer) + defer func() { b2.Reset(); bytesBufferPool.Put(b2) }() + for { + c := s[0] + s = s[1:] + if c != '*' { + b2.WriteByte(c) + continue + } + + more: + c2 := s[0] + s = s[1:] + if c2 == '*' { + b2.WriteByte(c) + goto more + } + + if c2 != '/' { + b2.WriteByte(c) + b2.WriteByte(c2) + continue + } + + break + } + s2 := b2.String() // comment sans /* prefix and */ suffix + a := strings.Split(s2, "\n") + nl := len(s) != 0 && s[0] == '\n' + if len(a) == 1 { // /* foo */ form + if nl { + s = s[1:] + fmt.Fprintf(b, "//%s\n", s2) + break + } + + fmt.Fprintf(b, "/*%s*/", s2) + break + } + + if !nl { + fmt.Fprintf(b, "/*%s*/", s2) + break + } + + // Block comment followed by a newline can be safely replaced by a sequence of + // line comments. Try to enhance the comment. + if commentForm1(b, a) || + commentForm2(b, a) || + commentForm3(b, a) { + break + } + + // No enhancement posibilities detected, use the default form. + if a[len(a)-1] == "" { + a = a[:len(a)-1] + } + fmt.Fprintf(b, "//%s", a[0]) + for _, v := range a[1:] { + fmt.Fprintf(b, "\n// %s", v) + } + default: + b.WriteByte(c) + b.WriteByte(c2) + } + } + return b.String() +} + +func commentForm1(b *bytes.Buffer, a []string) bool { + // Example + // + // /* + // ** Initialize this module. + // ** + // ** This Tcl module contains only a single new Tcl command named "sqlite". + // ** (Hence there is no namespace. There is no point in using a namespace + // ** if the extension only supplies one new name!) The "sqlite" command is + // ** used to open a new SQLite database. See the DbMain() routine above + // ** for additional information. + // ** + // ** The EXTERN macros are required by TCL in order to work on windows. + // */ + if strings.TrimSpace(a[0]) != "" { + return false + } + + if strings.TrimSpace(a[len(a)-1]) != "" { + return false + } + + a = a[1 : len(a)-1] + if len(a) == 0 { + return false + } + + for i, v := range a { + v = strings.TrimSpace(v) + if !strings.HasPrefix(v, "*") { + return false + } + + a[i] = strings.TrimLeft(v, "*") + } + + fmt.Fprintf(b, "//%s", a[0]) + for _, v := range a[1:] { + fmt.Fprintf(b, "\n//%s", v) + } + return true +} + +func commentForm2(b *bytes.Buffer, a []string) bool { + // Example + // + // /**************************** sqlite3_column_ ******************************* + // ** The following routines are used to access elements of the current row + // ** in the result set. + // */ + if strings.TrimSpace(a[len(a)-1]) != "" { + return false + } + + a = a[:len(a)-1] + if len(a) == 0 { + return false + } + + for i, v := range a[1:] { + v = strings.TrimSpace(v) + if !strings.HasPrefix(v, "*") { + return false + } + + a[i+1] = strings.TrimLeft(v, "*") + } + + fmt.Fprintf(b, "// %s", strings.TrimSpace(a[0])) + if strings.HasPrefix(a[0], "**") && strings.HasSuffix(a[0], "**") { + fmt.Fprintf(b, "\n//") + } + for _, v := range a[1:] { + fmt.Fprintf(b, "\n//%s", v) + } + return true +} + +func commentForm3(b *bytes.Buffer, a []string) bool { + // Example + // + // /* Call sqlite3_shutdown() once before doing anything else. This is to + // ** test that sqlite3_shutdown() can be safely called by a process before + // ** sqlite3_initialize() is. */ + for i, v := range a[1:] { + v = strings.TrimSpace(v) + if !strings.HasPrefix(v, "*") { + return false + } + + a[i+1] = strings.TrimLeft(v, "*") + } + + fmt.Fprintf(b, "// %s", strings.TrimSpace(a[0])) + if strings.HasPrefix(a[0], "**") && strings.HasSuffix(a[0], "**") { + fmt.Fprintf(b, "\n//") + } + for _, v := range a[1:] { + fmt.Fprintf(b, "\n//%s", v) + } + return true +} + +// Return the preceding white space, including any comments, of the first token +// of n. +func tokenSeparator(n cc.Node) (r string) { + if n == nil { + return "" + } + + var tok cc.Token + cc.Inspect(n, func(n cc.Node, _ bool) bool { + if x, ok := n.(*cc.Token); ok { + if a, b := tok.Seq(), x.Seq(); a == 0 || a > x.Seq() && b != 0 { + tok = *x + } + } + return true + }) + return tok.Sep.String() +} + +func source(n ...cc.Node) (r string) { + if len(n) == 0 { + return "<nil>" + } + + var a []*cc.Token + for _, v := range n { + cc.Inspect(v, func(n cc.Node, _ bool) bool { + if x, ok := n.(*cc.Token); ok && x.Seq() != 0 { + a = append(a, x) + } + return true + }) + } + sort.Slice(a, func(i, j int) bool { + return a[i].Seq() < a[j].Seq() + }) + w := 0 + seq := -1 + for _, v := range a { + if n := v.Seq(); n != seq { + seq = n + a[w] = v + w++ + } + } + a = a[:w] + var b strings.Builder + for _, v := range a { + b.WriteString(v.Sep.String()) + b.WriteString(v.Src.String()) + } + return b.String() +} + +type initPatch struct { + t cc.Type + init *cc.Initializer + fld cc.Field +} + +type tld struct { + name string // Can differ from the original one. + patches []initPatch +} + +type block struct { + block *cc.CompoundStatement + decls []*cc.Declaration // What to declare in this block. + params []*cc.Parameter + parent *block + scope scope + + noDecl bool // Locals declared in one of the parent scopes. + topDecl bool // Declare locals at block start to avoid "jumps over declaration". +} + +func newBlock(parent *block, n *cc.CompoundStatement, decls []*cc.Declaration, params []*cc.Parameter, scope scope, topDecl bool) *block { + return &block{ + block: n, + decls: decls, + params: params, + parent: parent, + scope: scope, + topDecl: topDecl, + } +} + +type local struct { + name string + off uintptr // If isPinned: bp+off + + forceRead bool // Possibly never read. + isPinned bool // Prevent this local from being placed in Go movable stack. +} + +type switchState int + +const ( + _ switchState = iota // Not in switch. + inSwitchFirst // Before seeing "case/default". + inSwitchCase // Seen "case/default". + inSwitchSeenBreak // In switch "case/default" and seen "break/return". + inSwitchFlat +) + +type function struct { + block *block + blocks map[*cc.CompoundStatement]*block + bpName string + breakCtx int //TODO merge with continueCtx + complits map[*cc.PostfixExpression]uintptr + condInitPrefix func() + continueCtx int + flatLabels int + flatSwitchLabels map[*cc.LabeledStatement]int + fndef *cc.FunctionDefinition + gen *project + ifCtx cc.Node + ignore map[*cc.Declarator]bool // Pseudo declarators + labelNames map[cc.StringID]string + labels scope + locals map[*cc.Declarator]*local + off uintptr // bp+off allocs + params []*cc.Parameter // May differ from what fndef says + project *project + rt cc.Type // May differ from what fndef says + scope scope + switchCtx switchState + tlsName string + top *block + unusedLabels map[cc.StringID]struct{} + vaLists map[*cc.PostfixExpression]uintptr + vaName string + vaType cc.Type + vlas map[*cc.Declarator]struct{} + + hasJumps bool + mainSignatureForced bool +} + +func newFunction(p *project, n *cc.FunctionDefinition) *function { + d := n.Declarator + t := d.Type() + rt := t.Result() + params := t.Parameters() + var mainSignatureForced bool + var ignore map[*cc.Declarator]bool + if d.Name() == idMain && d.Linkage == cc.External { + if rt.Kind() != cc.Int { + rt = p.task.cfg.ABI.Type(cc.Int) + } + if len(params) != 2 { + mainSignatureForced = true + d1 := newDeclarator("argc") + t1 := p.task.cfg.ABI.Type(cc.Int) + d2 := newDeclarator("argv") + t2 := p.task.cfg.ABI.Ptr(n, p.task.cfg.ABI.Type(cc.Void)) + params = []*cc.Parameter{ + cc.NewParameter(d1, t1), + cc.NewParameter(d2, t2), + } + ignore = map[*cc.Declarator]bool{d1: true, d2: true} + } + } + f := &function{ + blocks: map[*cc.CompoundStatement]*block{}, + complits: map[*cc.PostfixExpression]uintptr{}, + fndef: n, + gen: p, + hasJumps: n.CompoundStatement.IsJumpTarget(), + ignore: ignore, + locals: map[*cc.Declarator]*local{}, + mainSignatureForced: mainSignatureForced, + params: params, + project: p, + rt: rt, + scope: p.newScope(), + unusedLabels: map[cc.StringID]struct{}{}, + vaLists: map[*cc.PostfixExpression]uintptr{}, + vlas: map[*cc.Declarator]struct{}{}, + } + f.tlsName = f.scope.take(idTls) + if t.IsVariadic() { + f.vaName = f.scope.take(idVa) + } + f.layoutLocals(nil, n.CompoundStatement, params) + var extern []cc.StringID + for _, v := range n.CompoundStatements() { // testdata/gcc-9.1.0/gcc/testsuite/gcc.c-torture/execute/scope-1.c + for _, v := range v.Declarations() { + for list := v.InitDeclaratorList; list != nil; list = list.InitDeclaratorList { + if d := list.InitDeclarator.Declarator; d != nil && d.IsExtern() { + extern = append(extern, d.Name()) + } + } + } + } + for _, v := range n.CompoundStatements() { + block := f.blocks[v] + for _, v := range extern { + if tld := f.project.externs[v]; tld != nil { + block.scope.take(cc.String(tld.name)) + } + } + } + for _, v := range n.CompoundStatements() { + f.layoutBlocks(v) + } + f.renameLabels() + f.staticAllocsAndPinned(n.CompoundStatement) + return f +} + +func (f *function) flatLabel() int { + if f.project.pass1 { + return 1 + } + + f.flatLabels++ + return f.flatLabels +} + +func (f *function) renameLabels() { + var a []cc.StringID + for _, v := range f.fndef.Labels { + if v.Case != cc.LabeledStatementLabel { + continue + } + + a = append(a, v.Token.Value) + f.unusedLabels[v.Token.Value] = struct{}{} + } + for _, v := range f.fndef.Gotos { + delete(f.unusedLabels, v.Token2.Value) + } + if len(a) == 0 { + return + } + sort.Slice(a, func(i, j int) bool { return a[i].String() < a[j].String() }) + f.labels = newScope() + f.labelNames = map[cc.StringID]string{} + for _, id := range a { + f.labelNames[id] = f.labels.take(id) + } +} + +func (f *function) staticAllocsAndPinned(n *cc.CompoundStatement) { + for _, v := range f.params { + switch { + case v.Type().Kind() == cc.Array && v.Type().IsVLA(): + // trc("VLA") + f.project.err(f.fndef, "variable length arrays not supported") + } + } + + //TODO use pass1 for this + cc.Inspect(n, func(n cc.Node, entry bool) bool { + if !entry { + return true + } + + switch x := n.(type) { + case *cc.CastExpression: + switch x.Case { + case cc.CastExpressionCast: // '(' TypeName ')' CastExpression + if t := x.TypeName.Type(); t != nil && t.Kind() != cc.Void { + break + } + + if d := x.CastExpression.Declarator(); d != nil { + if local := f.locals[d]; local != nil { + local.forceRead = true + } + } + } + } + + x, ok := n.(*cc.PostfixExpression) + if !ok || x.Case != cc.PostfixExpressionCall { + return true + } + + if x.PostfixExpression == nil || x.PostfixExpression.Operand == nil || x.PostfixExpression.Operand.Type() == nil { + return true + } + + ft := funcType(x.PostfixExpression.Operand.Type()) + if ft.Kind() != cc.Function { + return true + } + + if !ft.IsVariadic() { + return true + } + + fixedParams := len(ft.Parameters()) + iArg := 0 + var need uintptr + for list := x.ArgumentExpressionList; list != nil; list, iArg = list.ArgumentExpressionList, iArg+1 { + if iArg < fixedParams { + continue + } + + t := list.AssignmentExpression.Operand.Type() + if t.IsIntegerType() { + need += 8 + continue + } + + switch t.Kind() { + case cc.Array, cc.Ptr, cc.Double, cc.Float, cc.Function: + need += 8 + default: + panic(todo("", f.project.pos(x), t, t.Kind())) + } + } + if need != 0 { + //TODO- if f.project.task.mingw { + //TODO- need += 8 // On windows the va list is prefixed with its length + //TODO- } + va := roundup(f.off, 8) + f.vaLists[x] = va + f.off = va + need + } + return true + }) +} + +func funcType(t cc.Type) cc.Type { + if t.Kind() == cc.Ptr { + t = t.Elem() + } + return t +} + +type declarator interface { + Declarator() *cc.Declarator + cc.Node +} + +func (p *project) isArrayParameterDeclarator(d *cc.Declarator) bool { + if d.Type().Kind() == cc.Array { + if d.Type().IsVLA() { + return false + } + + return d.IsParameter + } + + return false +} + +func (p *project) isArrayDeclarator(d *cc.Declarator) bool { + if d.Type().Kind() == cc.Array { + if d.Type().IsVLA() { + return false + } + + return !d.IsParameter + } + + return false +} + +func (p *project) isArrayParameter(n declarator, t cc.Type) bool { + if t.Kind() != cc.Array { + return false + } + + if t.IsVLA() { + return false + } + + if d := n.Declarator(); d != nil { + return d.IsParameter + } + + return false +} + +func (p *project) isArrayOrPinnedArray(f *function, n declarator, t cc.Type) (r bool) { + if t.Kind() != cc.Array { + return false + } + + if t.IsVLA() { + return false + } + + if d := n.Declarator(); d != nil { + return !d.IsParameter + } + + return p.detectArray(f, n.(cc.Node), true, true, nil) +} + +func (p *project) detectArray(f *function, n cc.Node, pinnedOk, recursiveOk bool, out **cc.Declarator) bool { + switch x := n.(type) { + case *cc.AssignmentExpression: + switch x.Case { + case cc.AssignmentExpressionCond: // ConditionalExpression + return p.detectArray(f, x.ConditionalExpression, pinnedOk, recursiveOk, out) + case cc.AssignmentExpressionAssign: // UnaryExpression '=' AssignmentExpression + return p.detectArray(f, x.UnaryExpression, pinnedOk, recursiveOk, out) + default: + return false + } + case *cc.ConditionalExpression: + switch x.Case { + case cc.ConditionalExpressionLOr: // LogicalOrExpression + return p.detectArray(f, x.LogicalOrExpression, pinnedOk, recursiveOk, out) + case cc.ConditionalExpressionCond: // LogicalOrExpression '?' Expression ':' ConditionalExpression + return p.detectArray(f, x.LogicalOrExpression, pinnedOk, recursiveOk, out) || + p.detectArray(f, x.Expression, pinnedOk, recursiveOk, out) || + p.detectArray(f, x.ConditionalExpression, pinnedOk, recursiveOk, out) + default: + panic(todo("", p.pos(x), x.Case)) + } + case *cc.LogicalOrExpression: + switch x.Case { + case cc.LogicalOrExpressionLAnd: // LogicalAndExpression + return p.detectArray(f, x.LogicalAndExpression, pinnedOk, recursiveOk, out) + default: + return false + } + case *cc.LogicalAndExpression: + switch x.Case { + case cc.LogicalAndExpressionOr: // InclusiveOrExpression + return p.detectArray(f, x.InclusiveOrExpression, pinnedOk, recursiveOk, out) + default: + return false + } + case *cc.InclusiveOrExpression: + switch x.Case { + case cc.InclusiveOrExpressionXor: // ExclusiveOrExpression + return p.detectArray(f, x.ExclusiveOrExpression, pinnedOk, recursiveOk, out) + default: + return false + } + case *cc.ExclusiveOrExpression: + switch x.Case { + case cc.ExclusiveOrExpressionAnd: // AndExpression + return p.detectArray(f, x.AndExpression, pinnedOk, recursiveOk, out) + default: + return false + } + case *cc.AndExpression: + switch x.Case { + case cc.AndExpressionEq: // EqualityExpression + return p.detectArray(f, x.EqualityExpression, pinnedOk, recursiveOk, out) + default: + return false + } + case *cc.EqualityExpression: + switch x.Case { + case cc.EqualityExpressionRel: // RelationalExpression + return p.detectArray(f, x.RelationalExpression, pinnedOk, recursiveOk, out) + default: + return false + } + case *cc.RelationalExpression: + switch x.Case { + case cc.RelationalExpressionShift: // ShiftExpression + return p.detectArray(f, x.ShiftExpression, pinnedOk, recursiveOk, out) + default: + return false + } + case *cc.ShiftExpression: + switch x.Case { + case cc.ShiftExpressionAdd: // AdditiveExpression + return p.detectArray(f, x.AdditiveExpression, pinnedOk, recursiveOk, out) + default: + return false + } + case *cc.AdditiveExpression: + switch x.Case { + case cc.AdditiveExpressionMul: // MultiplicativeExpression + return p.detectArray(f, x.MultiplicativeExpression, pinnedOk, recursiveOk, out) + case + cc.AdditiveExpressionSub, // AdditiveExpression '-' MultiplicativeExpression + cc.AdditiveExpressionAdd: // AdditiveExpression '+' MultiplicativeExpression + + return p.detectArray(f, x.AdditiveExpression, pinnedOk, recursiveOk, out) || p.detectArray(f, x.MultiplicativeExpression, pinnedOk, recursiveOk, out) + default: + panic(todo("", p.pos(x), x.Case)) + } + case *cc.MultiplicativeExpression: + switch x.Case { + case cc.MultiplicativeExpressionCast: // CastExpression + return p.detectArray(f, x.CastExpression, pinnedOk, recursiveOk, out) + default: + return false + } + case *cc.CastExpression: + switch x.Case { + case cc.CastExpressionUnary: // UnaryExpression + return p.detectArray(f, x.UnaryExpression, pinnedOk, recursiveOk, out) + case cc.CastExpressionCast: // '(' TypeName ')' CastExpression + return p.detectArray(f, x.CastExpression, pinnedOk, recursiveOk, out) + default: + panic(todo("", p.pos(x), x.Case)) + } + case *cc.UnaryExpression: + switch x.Case { + case cc.UnaryExpressionPostfix: // PostfixExpression + return p.detectArray(f, x.PostfixExpression, pinnedOk, recursiveOk, out) + case + cc.UnaryExpressionDeref, // '*' CastExpression + cc.UnaryExpressionAddrof: // '&' CastExpression + + return p.detectArray(f, x.CastExpression, pinnedOk, recursiveOk, out) + case + cc.UnaryExpressionSizeofExpr, // "sizeof" UnaryExpression + cc.UnaryExpressionSizeofType, // "sizeof" '(' TypeName ')' + cc.UnaryExpressionMinus, // '-' CastExpression + cc.UnaryExpressionCpl, // '~' CastExpression + cc.UnaryExpressionAlignofExpr, // "_Alignof" UnaryExpression + cc.UnaryExpressionAlignofType, // "_Alignof" '(' TypeName ')' + cc.UnaryExpressionNot, // '!' CastExpression + cc.UnaryExpressionInc, // "++" UnaryExpression + cc.UnaryExpressionDec, // "--" UnaryExpression + cc.UnaryExpressionPlus: // '+' CastExpression + + return false + default: + panic(todo("", p.pos(x), x.Case)) + } + case *cc.PostfixExpression: + switch x.Case { + case cc.PostfixExpressionPrimary: // PrimaryExpression + return p.detectArray(f, x.PrimaryExpression, pinnedOk, recursiveOk, out) + case cc.PostfixExpressionIndex: // PostfixExpression '[' Expression ']' + return recursiveOk && p.detectArray(f, x.PostfixExpression, pinnedOk, recursiveOk, out) + case + cc.PostfixExpressionSelect, // PostfixExpression '.' IDENTIFIER + cc.PostfixExpressionDec, // PostfixExpression "--" + cc.PostfixExpressionInc, // PostfixExpression "++" + cc.PostfixExpressionCall, // PostfixExpression '(' ArgumentExpressionList ')' + cc.PostfixExpressionComplit, // '(' TypeName ')' '{' InitializerList ',' '}' + cc.PostfixExpressionPSelect: // PostfixExpression "->" IDENTIFIER + + return false + default: + panic(todo("", p.pos(x), x.Case)) + } + case *cc.PrimaryExpression: + switch x.Case { + case + cc.PrimaryExpressionString, // STRINGLITERAL + cc.PrimaryExpressionEnum, // ENUMCONST + cc.PrimaryExpressionChar, // CHARCONST + cc.PrimaryExpressionLChar, // LONGCHARCONST + cc.PrimaryExpressionLString, // LONGSTRINGLITERAL + cc.PrimaryExpressionFloat, // FLOATCONST + cc.PrimaryExpressionInt: // INTCONST + + return false + case cc.PrimaryExpressionIdent: // IDENTIFIER + d := x.Declarator() + if d == nil || d.IsParameter { + return false + } + + if d.Type().Kind() != cc.Array { + return false + } + + if d.Type().IsVLA() { + return false + } + + if pinnedOk { + if out != nil { + *out = d + } + return true + } + + local := f.locals[d] + if local == nil || local.isPinned { + return false + } + + if out != nil { + *out = d + } + return true + case cc.PrimaryExpressionExpr: // '(' Expression ')' + return p.detectArray(f, x.Expression, pinnedOk, recursiveOk, out) + case cc.PrimaryExpressionStmt: // '(' CompoundStatement ')' + p.err(x, "statement expressions not supported") + return false + default: + panic(todo("", p.pos(x), x.Case)) + } + case *cc.Expression: + switch x.Case { + case cc.ExpressionAssign: // AssignmentExpression + return p.detectArray(f, x.AssignmentExpression, pinnedOk, recursiveOk, out) + case cc.ExpressionComma: // Expression ',' AssignmentExpression + return p.detectArray(f, x.Expression, pinnedOk, recursiveOk, out) || p.detectArray(f, x.AssignmentExpression, pinnedOk, recursiveOk, out) + default: + panic(todo("", p.pos(x), x.Case)) + } + default: + panic(todo("%T", x)) + } +} + +func (p *project) isArray(f *function, n declarator, t cc.Type) (r bool) { + if t.Kind() != cc.Array { + return false + } + + if t.IsVLA() { + return false + } + + if f == nil { + return true + } + + if d := n.Declarator(); d != nil { + local := f.locals[d] + return !d.IsParameter && (local == nil || !local.isPinned) + } + + return p.detectArray(f, n.(cc.Node), false, true, nil) +} + +// Return n's position with path reduced to baseName(path) unless +// p.task.fullPathComments is true. +func (p *project) pos(n cc.Node) (r token.Position) { + if n == nil { + return r + } + + r = token.Position(n.Position()) + if r.IsValid() && !p.task.fullPathComments { + r.Filename = filepath.Base(r.Filename) + } + return r +} + +// Return n's position with path reduced to baseName(path). +func pos(n cc.Node) (r token.Position) { + if n == nil { + return r + } + + r = token.Position(n.Position()) + if r.IsValid() { + r.Filename = filepath.Base(r.Filename) + } + return r +} + +func roundup(n, to uintptr) uintptr { + if r := n % to; r != 0 { + return n + to - r + } + + return n +} + +func (f *function) pin(n cc.Node, d *cc.Declarator) { + local := f.locals[d] + if local == nil || local.isPinned { + return + } + + local.isPinned = true + if oTracePin || f.project.task.tracePinning { + fmt.Printf("%v: %s at %v: is pinned (%v)\n", n.Position(), d.Name(), d.Position(), origin(2)) + } + local.off = roundup(f.off, uintptr(d.Type().Align())) + f.off = local.off + paramTypeDecay(d).Size() +} + +func paramTypeDecay(d *cc.Declarator) (r cc.Type) { + r = d.Type() + if d.IsParameter && r.Kind() == cc.Array { + r = r.Decay() + } + return r +} + +func (f *function) layoutBlocks(n *cc.CompoundStatement) { + block := f.blocks[n] + type item struct { + ds *cc.DeclarationSpecifiers + d *cc.Declarator + } + var work []item + for _, v := range block.params { + if v.Type().Kind() == cc.Void { + break + } + + work = append(work, item{nil, v.Declarator()}) + } + for _, decl := range block.decls { + ds := decl.DeclarationSpecifiers + for list := decl.InitDeclaratorList; list != nil; list = list.InitDeclaratorList { + work = append(work, item{ds, list.InitDeclarator.Declarator}) + } + } + block.scope.take(cc.String(f.tlsName)) + if f.vaName != "" { + block.scope.take(cc.String(f.vaName)) + } + for _, item := range work { + d := item.d + if f.ignore[d] { + continue + } + + if !f.ignore[d] && d.IsStatic() { + continue + } + + if d.IsFunctionPrototype() || d.IsExtern() { + continue + } + + local := &local{forceRead: d.Read == 0} + if t := d.Type(); t != nil && t.Name() == idVaList { + local.forceRead = true + } + f.locals[d] = local + local.name = block.scope.take(d.Name()) + } +} + +func (f *function) layoutLocals(parent *block, n *cc.CompoundStatement, params []*cc.Parameter) { + block := newBlock(parent, n, n.Declarations(), params, f.project.newScope(), n.IsJumpTarget()) + f.blocks[n] = block + if parent == nil { + f.top = block + f.top.topDecl = f.hasJumps + } + for _, ch := range n.Children() { + f.layoutLocals(block, ch, nil) + if f.hasJumps { + chb := f.blocks[ch] + chb.noDecl = true + f.top.decls = append(f.top.decls, chb.decls...) + chb.decls = nil + } + } +} + +func newDeclarator(name string) *cc.Declarator { + return &cc.Declarator{ + DirectDeclarator: &cc.DirectDeclarator{ + Case: cc.DirectDeclaratorIdent, + Token: cc.Token{Rune: cc.IDENTIFIER, Value: cc.String(name)}, + }, + } +} + +type enumSpec struct { + decl *cc.Declaration + spec *cc.EnumSpecifier + + emitted bool +} + +func (n *enumSpec) emit(p *project) { + if n == nil || p.pass1 || n.emitted { + return + } + + n.emitted = true + ok := false + for list := n.spec.EnumeratorList; list != nil; list = list.EnumeratorList { + nm := list.Enumerator.Token.Value + if _, ok2 := p.emitedEnums[nm]; !ok2 && p.enumConsts[nm] != "" { + ok = true + break + } + } + if !ok { + return + } + + p.w("%s", tidyComment("\n", n.decl)) + p.w("const ( /* %v: */", p.pos(n.decl)) + for list := n.spec.EnumeratorList; list != nil; list = list.EnumeratorList { + en := list.Enumerator + nm := en.Token.Value + if _, ok := p.emitedEnums[nm]; ok || p.enumConsts[nm] == "" { + continue + } + + p.emitedEnums[nm] = struct{}{} + p.w("%s%s = ", tidyComment("\n", en), p.enumConsts[nm]) + p.intConst(en, "", en.Operand, en.Operand.Type(), fForceNoConv) + p.w(";") + } + p.w(");") +} + +type typedef struct { + sig uint64 + tld *tld +} + +type define struct { + name string + value cc.Value +} + +type project struct { + ast *cc.AST + buf bytes.Buffer + capi []string + defines map[cc.StringID]define + defineLines []string + emitedEnums map[cc.StringID]struct{} + enumConsts map[cc.StringID]string + enumSpecs map[*cc.EnumSpecifier]*enumSpec + errors scanner.ErrorList + externs map[cc.StringID]*tld + fn string + imports map[string]*imported // C name: import info + intType cc.Type + localTaggedStructs []func() + mainName string + ptrSize uintptr + ptrType cc.Type + scope scope + sharedFns map[*cc.FunctionDefinition]struct{} + sharedFnsEmitted map[*cc.FunctionDefinition]struct{} + staticQueue []*cc.InitDeclarator + structs map[cc.StringID]*taggedStruct // key: C tag + symtab map[string]interface{} // *tld or *imported + task *Task + tldScope scope + tlds map[*cc.Declarator]*tld + ts bytes.Buffer // Text segment + tsName string + tsNameP string + tsOffs map[cc.StringID]uintptr + tsW []rune // Text segment, wchar_t + tsWName string + tsWNameP string + tsWOffs map[cc.StringID]uintptr + typeSigHash maphash.Hash + typedefTypes map[cc.StringID]*typedef + typedefsEmited map[string]struct{} + verifyStructs map[string]cc.Type + wanted map[*cc.Declarator]struct{} + wcharSize uintptr + + isMain bool + pass1 bool +} + +func newProject(t *Task) (*project, error) { + voidType := t.cfg.ABI.Type(cc.Void) + ptrType := t.cfg.ABI.Ptr(nil, voidType) + intType := t.cfg.ABI.Type(cc.Int) + if intType.Size() != 4 { // We're assuming wchar_t is int32. + return nil, fmt.Errorf("unsupported C int size: %d", intType.Size()) + } + + if n := t.cfg.ABI.Types[cc.UChar].Size; n != 1 { + return nil, fmt.Errorf("unsupported C unsigned char size: %d", n) + } + + if n := t.cfg.ABI.Types[cc.UShort].Size; n != 2 { + return nil, fmt.Errorf("unsupported C unsigned short size: %d", n) + } + + if n := t.cfg.ABI.Types[cc.UInt].Size; n != 4 { + return nil, fmt.Errorf("unsupported C unsigned int size: %d", n) + } + + if n := t.cfg.ABI.Types[cc.ULongLong].Size; n != 8 { + return nil, fmt.Errorf("unsupported C unsigned long long size: %d", n) + } + + p := &project{ + defines: map[cc.StringID]define{}, + emitedEnums: map[cc.StringID]struct{}{}, + enumConsts: map[cc.StringID]string{}, + enumSpecs: map[*cc.EnumSpecifier]*enumSpec{}, + externs: map[cc.StringID]*tld{}, + imports: map[string]*imported{}, + intType: intType, + ptrSize: t.cfg.ABI.Types[cc.Ptr].Size, + ptrType: ptrType, + scope: newScope(), + sharedFns: t.cfg.SharedFunctionDefinitions.M, + sharedFnsEmitted: map[*cc.FunctionDefinition]struct{}{}, + symtab: map[string]interface{}{}, + task: t, + tlds: map[*cc.Declarator]*tld{}, + tsWOffs: map[cc.StringID]uintptr{}, + tsOffs: map[cc.StringID]uintptr{}, + typedefTypes: map[cc.StringID]*typedef{}, + typedefsEmited: map[string]struct{}{}, + verifyStructs: map[string]cc.Type{}, + wanted: map[*cc.Declarator]struct{}{}, + wcharSize: t.asts[0].WideCharType.Size(), + } + p.tldScope = p.scope + p.scope.take(idCAPI) + for _, v := range t.imported { + var err error + if v.name, v.exports, err = t.capi(v.path); err != nil { + return nil, err + } + + v.qualifier = p.scope.take(cc.String(v.name)) + "." + for k := range v.exports { + if p.imports[k] == nil { + p.imports[k] = v + } + } + } + p.tsNameP = p.scope.take(idTs) + p.tsName = p.scope.take(idTs) + p.tsWNameP = p.scope.take(idWtext) + p.tsWName = p.scope.take(idWtext) + if err := p.layout(); err != nil { + return nil, err + } + + return p, nil +} + +func (p *project) newScope() scope { + s := newScope() + var a []cc.StringID + for k := range p.structs { + a = append(a, k) + } + sort.Slice(a, func(i, j int) bool { return a[i].String() < a[j].String() }) + for _, k := range a { + s.take(cc.String(p.structs[k].name)) + } + return s +} + +func (p *project) err(n cc.Node, s string, args ...interface{}) { + if p.task.errTrace || strings.Contains(s, "internal error") { + s = s + "(" + origin(2) + ")" + } + if p.task.traceTranslationUnits { + trc("%v: error: %s (%v)", pos(n), fmt.Sprintf(s, args...), origin(2)) + } + if !p.task.allErrors && len(p.errors) >= 10 { + return + } + + switch { + case n == nil: + p.errors.Add(token.Position{}, fmt.Sprintf(s, args...)) + default: + p.errors.Add(token.Position(n.Position()), fmt.Sprintf(s, args...)) + if !p.task.allErrors && len(p.errors) == 10 { + p.errors.Add(token.Position(n.Position()), tooManyErrors) + } + } +} + +func (p *project) o(s string, args ...interface{}) { + if oTraceG { + fmt.Printf(s, args...) + } + fmt.Fprintf(p.task.out, s, args...) +} + +func (p *project) w(s string, args ...interface{}) { + if p.pass1 { + return + } + + if coverExperiment { + pc, _, _, ok := runtime.Caller(1) + if ok { + coverMap[pc] = struct{}{} + } + } + if oTraceW { + fmt.Printf(s, args...) + } + //fmt.Fprintf(&p.buf, "/* %s */", origin(2)) //TODO- + fmt.Fprintf(&p.buf, s, args...) +} + +func (p *project) layout() error { + if err := p.layoutTLDs(); err != nil { + return err + } + + if err := p.layoutSymtab(); err != nil { + return err + } + + if err := p.layoutStructs(); err != nil { + return err + } + + if err := p.layoutEnums(); err != nil { + return err + } + + if err := p.layoutDefines(); err != nil { + return err + } + + return p.layoutStaticLocals() +} + +func (p *project) layoutSymtab() error { + var t0 time.Time + if p.task.traceTranslationUnits { + fmt.Printf("processing symbol table ... ") + t0 = time.Now() + defer func() { fmt.Println(time.Since(t0)) }() + } + + for _, i := range p.task.symSearchOrder { + switch { + case i < 0: + imported := p.task.imported[-i-1] + for nm := range imported.exports { + if _, ok := p.symtab[nm]; !ok { + p.symtab[nm] = imported + } + } + default: + ast := p.task.asts[i] + for d := range ast.TLD { + if d.IsFunctionPrototype() || d.Linkage != cc.External { + continue + } + + nm := d.Name() + name := nm.String() + if _, ok := p.symtab[name]; !ok { + tld := p.externs[nm] + if tld == nil { + if d.Type().Kind() != cc.Function && !p.task.header { + p.err(d, "back-end: undefined: %s %v %v", d.Name(), d.Type(), d.Type().Kind()) + } + continue + } + + p.symtab[name] = tld + } + } + } + } + return nil +} + +func (p *project) layoutDefines() error { + if !p.task.exportDefinesValid { + return nil + } + + var t0 time.Time + if p.task.traceTranslationUnits { + fmt.Printf("processing #defines ... ") + t0 = time.Now() + defer func() { fmt.Println(time.Since(t0)) }() + } + + var prefix = p.task.exportDefines + taken := map[cc.StringID]struct{}{} + for _, ast := range p.task.asts { + var a []cc.StringID + for nm, m := range ast.Macros { + if m.IsFnLike() { + continue + } + + if strings.HasPrefix(nm.String(), "__") { + continue + } + + if _, ok := taken[nm]; ok { + continue + } + + taken[nm] = struct{}{} + a = append(a, nm) + } + sort.Slice(a, func(i, j int) bool { return a[i].String() < a[j].String() }) + for _, nm := range a { + m := ast.Macros[nm] + val, src := evalMacro(m, ast) + if src == "" { + continue + } + + name := nm.String() + switch { + case prefix == "": + name = capitalize(name) + default: + name = prefix + name + } + name = p.scope.take(cc.String(name)) + p.defines[nm] = define{name, val} + p.defineLines = append(p.defineLines, fmt.Sprintf("%s = %s", name, src)) + } + } + return nil +} + +func evalMacro(m *cc.Macro, ast *cc.AST) (cc.Value, string) { + toks := m.ReplacementTokens() + if len(toks) != 1 { + return evalMacro2(m, ast) + } + + src := strings.TrimSpace(toks[0].Src.String()) + if len(src) == 0 { + return nil, "" + } + + neg := "" + switch src[0] { + case '"': + if _, err := strconv.Unquote(src); err == nil { + return cc.StringValue(cc.String(src)), src + } + case '-': + neg = "-" + src = src[1:] + fallthrough + default: + src = strings.TrimRight(src, "lLuU") + if u64, err := strconv.ParseUint(src, 0, 64); err == nil { + switch { + case neg == "": + return cc.Uint64Value(u64), src + default: + return cc.Int64Value(-u64), neg + src + } + } + + src = strings.TrimRight(src, "fF") + if f64, err := strconv.ParseFloat(src, 64); err == nil { + return cc.Float64Value(f64), neg + src + } + } + + return evalMacro2(m, ast) +} + +func evalMacro2(m *cc.Macro, ast *cc.AST) (cc.Value, string) { + op, err := ast.Eval(m) + if err != nil { + return nil, "" + } + + switch x := op.Value().(type) { + case cc.Int64Value: + return op.Value(), fmt.Sprintf("%d", int64(x)) + case cc.Uint64Value: + return op.Value(), fmt.Sprintf("%d", uint64(x)) + default: + panic(todo("", pos(m))) + } +} + +func (p *project) layoutEnums() error { + var t0 time.Time + if p.task.traceTranslationUnits { + fmt.Printf("processing enum values ... ") + t0 = time.Now() + defer func() { fmt.Println(time.Since(t0)) }() + } + + export := doNotChange + if p.task.exportEnumsValid { + switch { + case p.task.exportEnums != "": + export = exportPrefix + default: + export = exportCapitalize + } + } else if p.task.defaultUnExport { + export = doNotExport + } + + var enumList []*cc.EnumSpecifier + for _, v := range p.task.asts { + for list := v.TranslationUnit; list != nil; list = list.TranslationUnit { + decl := list.ExternalDeclaration + switch decl.Case { + case cc.ExternalDeclarationDecl: // Declaration + // ok + default: + continue + } + + cc.Inspect(decl.Declaration.DeclarationSpecifiers, func(n cc.Node, entry bool) bool { + if !entry { + return true + } + + x, ok := n.(*cc.EnumSpecifier) + if !ok || x.Case != cc.EnumSpecifierDef { + return true + } + + if _, ok := p.enumSpecs[x]; !ok { + enumList = append(enumList, x) + p.enumSpecs[x] = &enumSpec{decl: decl.Declaration, spec: x} + } + return true + }) + } + } + + vals := map[cc.StringID]interface{}{} + for _, v := range enumList { + for list := v.EnumeratorList; list != nil; list = list.EnumeratorList { + en := list.Enumerator + nm := en.Token.Value + var val int64 + switch x := en.Operand.Value().(type) { + case cc.Int64Value: + val = int64(x) + case cc.Uint64Value: + val = int64(x) + default: + panic(todo("")) + } + switch ex, ok := vals[nm]; { + case ok: + switch { + case ex == nil: // + continue + case ex == val: // same name and same value + continue + default: // same name, different value + vals[nm] = nil + } + default: + vals[nm] = val + } + p.enumConsts[nm] = "" + } + } + var a []cc.StringID + for nm := range p.enumConsts { + if val, ok := vals[nm]; ok && val == nil { + delete(p.enumConsts, nm) + continue + } + + a = append(a, nm) + } + sort.Slice(a, func(i, j int) bool { return a[i].String() < a[j].String() }) + for _, nm := range a { + name := nm.String() + switch export { + case doNotExport: + name = unCapitalize(name) + case doNotChange: + // nop + case exportCapitalize: + name = capitalize(name) + case exportPrefix: + name = p.task.exportEnums + name + } + name = p.scope.take(cc.String(name)) + p.enumConsts[nm] = name + } + return nil +} + +func (p *project) layoutStaticLocals() error { + var t0 time.Time + if p.task.traceTranslationUnits { + fmt.Printf("processing static local declarations ... ") + t0 = time.Now() + defer func() { fmt.Println(time.Since(t0)) }() + } + for _, v := range p.task.asts { + for list := v.TranslationUnit; list != nil; list = list.TranslationUnit { + decl := list.ExternalDeclaration + switch decl.Case { + case cc.ExternalDeclarationFuncDef: // FunctionDefinition + // ok + default: + continue + } + + cc.Inspect(decl.FunctionDefinition.CompoundStatement, func(n cc.Node, entry bool) bool { + switch x := n.(type) { + case *cc.Declarator: + if !entry || !x.IsStatic() || x.Read == 0 || x.IsParameter { + break + } + + nm := x.Name() + if s := p.task.staticLocalsPrefix; s != "" { + nm = cc.String(s + nm.String()) + } + p.tlds[x] = &tld{name: p.scope.take(nm)} + } + return true + }) + } + } + return nil +} + +func (p *project) layoutStructs() error { + var t0 time.Time + if p.task.traceTranslationUnits { + fmt.Printf("processing struct/union types ... ") + t0 = time.Now() + defer func() { fmt.Println(time.Since(t0)) }() + } + + export := doNotChange + if p.task.exportStructsValid { + switch { + case p.task.exportStructs != "": + export = exportPrefix + default: + export = exportCapitalize + } + } else if p.task.defaultUnExport { + export = doNotExport + } + + m := map[cc.StringID]*taggedStruct{} + var tags []cc.StringID + for _, v := range p.task.asts { + cc.Inspect(v.TranslationUnit, func(n cc.Node, entry bool) bool { + if entry { + switch x := n.(type) { + case *cc.Declarator: + if nm := x.Name().String(); strings.HasPrefix(nm, "_") { + break + } + + p.captureStructTags(x, x.Type(), m, &tags) + case *cc.Declaration: + cc.Inspect(x.DeclarationSpecifiers, func(nn cc.Node, entry bool) bool { + switch y := nn.(type) { + case *cc.StructOrUnionSpecifier: + if tag := y.Token.Value; tag != 0 { + p.captureStructTags(y, y.Type(), m, &tags) + } + } + return true + }) + } + } + return true + }) + } + sort.Slice(tags, func(i, j int) bool { return tags[i].String() < tags[j].String() }) + for _, k := range tags { + v := m[k] + //TODO rename conflicts + if v.conflicts { + delete(m, k) + continue + } + + name := k.String() + switch export { + case doNotExport: + name = unCapitalize(name) + case doNotChange: + // nop + case exportCapitalize: + name = capitalize(name) + case exportPrefix: + name = p.task.exportStructs + name + } + v.name = p.scope.take(cc.String(name)) + } + for _, k := range tags { + v := m[k] + if v != nil { + v.gotyp = p.structType(nil, v.ctyp) + } + } + p.structs = m + return nil +} + +func (p *project) captureStructTags(n cc.Node, t cc.Type, m map[cc.StringID]*taggedStruct, tags *[]cc.StringID) { + if t == nil { + return + } + + t = t.Alias() + for t.Kind() == cc.Ptr { + t = t.Alias().Elem().Alias() + } + if t.Kind() == cc.Invalid || t.IsIncomplete() { + return + } + + switch t.Kind() { + case cc.Struct, cc.Union: + tag := t.Tag() + if tag == 0 { + return + } + + ex := m[tag] + if ex != nil { + ts := p.typeSignature(n, t) + exs := p.typeSignature(n, ex.ctyp) + if ts != exs { + ex.conflicts = true + } + return + } + + nf := t.NumField() + m[tag] = &taggedStruct{ctyp: t, node: n} + for idx := []int{0}; idx[0] < nf; idx[0]++ { + p.captureStructTags(n, t.FieldByIndex(idx).Type(), m, tags) + } + *tags = append(*tags, tag) + case cc.Array: + p.captureStructTags(n, t.Elem(), m, tags) + } +} + +func (p *project) typeSignature(n cc.Node, t cc.Type) (r uint64) { + p.typeSigHash.Reset() + p.typeSignature2(n, &p.typeSigHash, t) + return p.typeSigHash.Sum64() +} + +func (p *project) typeSignature2(n cc.Node, b *maphash.Hash, t cc.Type) { + t = t.Alias() + if t.IsIntegerType() { + if !t.IsSignedType() { + b.WriteByte('u') + } + fmt.Fprintf(b, "int%d", t.Size()*8) + return + } + + if t.IsArithmeticType() { + b.WriteString(t.Kind().String()) + return + } + + structOrUnion := "struct" + switch t.Kind() { + case cc.Ptr: + fmt.Fprintf(b, "*%s", t.Elem()) + case cc.Array: + if t.IsVLA() { + // trc("VLA") + p.err(n, "variable length arrays not supported: %v", t) + } + + fmt.Fprintf(b, "[%d]%s", t.Len(), t.Elem()) + case cc.Vector: + fmt.Fprintf(b, "[%d]%s", t.Len(), t.Elem()) + case cc.Union: + structOrUnion = "union" + fallthrough + case cc.Struct: + b.WriteString(structOrUnion) + nf := t.NumField() + fmt.Fprintf(b, " %d{", nf) + b.WriteByte('{') + for idx := []int{0}; idx[0] < nf; idx[0]++ { + f := t.FieldByIndex(idx) + fmt.Fprintf(b, "%s:%d:%d:%v:%d:%d:", + f.Name(), f.BitFieldOffset(), f.BitFieldWidth(), f.IsBitField(), f.Offset(), f.Padding(), + ) + p.typeSignature2(f.Declarator(), b, f.Type()) + b.WriteByte(';') + } + b.WriteByte('}') + case cc.Void: + b.WriteString("void") + case cc.Invalid: + b.WriteString("invalid") //TODO fix cc/v3 + default: + panic(todo("", p.pos(n), t, t.Kind())) + } +} + +func (p *project) structType(n cc.Node, t cc.Type) string { + switch t.Kind() { + case cc.Struct, cc.Union: + tag := t.Tag() + if tag != 0 && p.structs != nil { + s := p.structs[tag] + if s == nil { + return p.structLiteral(n, t) + } + + if s.gotyp == "" { + s.gotyp = p.structLiteral(n, t) + } + return s.gotyp + } + + return p.structLiteral(n, t) + default: + panic(todo("internal error: %v", t.Kind())) + } +} + +func (p *project) padName(n *int) string { + if !p.task.exportFieldsValid { + return "_" + } + + *n++ + return fmt.Sprintf("%s__ccgo_pad%d", p.task.exportFields, *n) +} + +func (p *project) structLiteral(n cc.Node, t cc.Type) string { + var npad int + b := bytesBufferPool.Get().(*bytes.Buffer) + defer func() { b.Reset(); bytesBufferPool.Put(b) }() + switch t.Kind() { + case cc.Struct: + info := cc.NewStructLayout(t) + // trc("%v: %q\n%s", p.pos(n), t.Tag(), info) + b.WriteString("struct {") + if info.NeedExplicitAlign { + fmt.Fprintf(b, "%s [0]uint%d;", p.padName(&npad), 8*p.align(n, t)) + } + var max uintptr + for _, off := range info.Offsets { + flds := info.OffsetToFields[off] + if off < max { + var a []string + var nmf cc.Field + for _, f := range flds { + if f.Name() != 0 && nmf == nil { + nmf = f + } + if !f.IsBitField() { + panic(todo("internal error %q, off %v max %v\n%s", f.Name(), off, max, info)) + } + a = append(a, fmt.Sprintf("%s %s: %d", f.Type(), f.Name(), f.BitFieldWidth())) + } + fmt.Fprintf(b, "/* %s */", strings.Join(a, ", ")) + continue + } + + f := flds[0] + switch pad := info.PaddingsBefore[f]; { + case pad < 0: + continue + case pad > 0: + fmt.Fprintf(b, "%s [%d]byte;", p.padName(&npad), pad) + } + switch { + case f.IsBitField(): + max += uintptr(f.BitFieldBlockWidth()) >> 3 + var a []string + var nmf cc.Field + for _, f := range flds { + if f.Name() != 0 && nmf == nil { + nmf = f + } + if !f.IsBitField() { + panic(todo("internal error %q\n%s", f.Name(), info)) + } + a = append(a, fmt.Sprintf("%s %s: %d", f.Type(), f.Name(), f.BitFieldWidth())) + } + if nmf == nil { + nmf = f + } + fmt.Fprintf(b, "%s uint%d /* %s */;", p.bitFieldName(n, nmf), f.BitFieldBlockWidth(), strings.Join(a, ", ")) + default: + ft := f.Type() + if ft.Kind() == cc.Array && ft.IsIncomplete() || ft.Size() == 0 { + break + } + + max += ft.Size() + fmt.Fprintf(b, "%s %s;", p.fieldName2(n, f), p.typ(n, ft)) + } + } + if info.PaddingAfter != 0 { + fmt.Fprintf(b, "%s [%d]byte;", p.padName(&npad), info.PaddingAfter) + } + b.WriteByte('}') + case cc.Union: + b.WriteString("struct {") + info := cc.NewStructLayout(t) + if info.NeedExplicitAlign { + fmt.Fprintf(b, "%s [0]uint%d;", p.padName(&npad), 8*p.align(n, t)) + } + al := uintptr(t.Align()) + sz := t.Size() + if al > sz { + panic(todo("", p.pos(n))) + } + + f := t.FieldByIndex([]int{0}) + ft := f.Type() + al0 := ft.Align() + if f.IsBitField() { + al0 = f.BitFieldBlockWidth() >> 3 + } + if al != uintptr(al0) { + fmt.Fprintf(b, "%s [0]uint%d;", p.padName(&npad), 8*al) + } + fsz := ft.Size() + switch { + case f.IsBitField(): + fmt.Fprintf(b, "%s ", p.fieldName2(n, f)) + fmt.Fprintf(b, "uint%d;", f.BitFieldBlockWidth()) + fsz = uintptr(f.BitFieldBlockWidth()) >> 3 + default: + fmt.Fprintf(b, "%s %s;", p.fieldName2(n, f), p.typ(n, ft)) + } + if pad := sz - fsz; pad != 0 { + fmt.Fprintf(b, "%s [%d]byte;", p.padName(&npad), pad) + } + b.WriteByte('}') + default: + panic(todo("internal error: %v", t.Kind())) + } + r := b.String() + if p.task.verifyStructs { + if _, ok := p.verifyStructs[r]; !ok { + p.verifyStructs[r] = t + } + } + return r +} + +func (p *project) align(nd cc.Node, t cc.Type) int { + switch n := t.Align(); { + case n <= 1: + return 1 + case n <= 2: + return 2 + case n <= 4: + return 4 + case n <= 8: + return 8 + default: + if !p.task.ignoreUnsupportedAligment { + p.err(nd, "unsupported alignment of type %s: %v", t, n) + } + return 8 + } +} + +func (p *project) bitFieldName(n cc.Node, f cc.Field) string { + if id := f.Name(); id != 0 { + return p.fieldName(n, id) + } + + return fmt.Sprintf("__%d", f.Offset()) +} + +func (p *project) fieldName2(n cc.Node, f cc.Field) string { + if f.Name() != 0 { + return p.fieldName(n, f.Name()) + } + + return p.fieldName(n, cc.String(fmt.Sprintf("__%d", f.Offset()))) +} + +func (p *project) fieldName(n cc.Node, id cc.StringID) string { + if id == 0 { + panic(todo("", p.pos(n))) + } + + if !p.task.exportFieldsValid { + s := id.String() + if p.task.defaultUnExport { + s = unCapitalize(s) + } + + if !reservedNames[s] { + return s + } + + return "__" + s + } + + if s := p.task.exportFields; s != "" { + return s + id.String() + } + + return capitalize(id.String()) +} + +func (p *project) dtyp(d *cc.Declarator) (r string) { + t := d.Type() + if t.IsIncomplete() { + if t.Kind() == cc.Array && d.IsParameter { + return "uintptr" + } + + panic(todo("")) + } + + return p.typ(d, t) +} + +func (p *project) typ(nd cc.Node, t cc.Type) (r string) { + if t.IsIncomplete() { + panic(todo("", p.pos(nd), t)) + } + + if t.IsAliasType() { + if tld := p.tlds[t.AliasDeclarator()]; tld != nil { + return tld.name + } + } + + b := bytesBufferPool.Get().(*bytes.Buffer) + defer func() { b.Reset(); bytesBufferPool.Put(b) }() + if t.IsIntegerType() { + switch t.Kind() { + case cc.Int128: + fmt.Fprintf(b, "%sInt128", p.task.crt) + return b.String() + case cc.UInt128: + fmt.Fprintf(b, "%sUint128", p.task.crt) + return b.String() + } + + if !t.IsSignedType() { + b.WriteByte('u') + } + if t.Size() > 8 { + p.err(nd, "unsupported C type: %v", t) + } + fmt.Fprintf(b, "int%d", 8*t.Size()) + return b.String() + } + + switch t.Kind() { + case cc.Ptr, cc.Function: + return "uintptr" + case cc.Double: + return "float64" + case cc.Float: + return "float32" + case cc.Array: + n := t.Len() + switch { + case t.IsVLA(): + fmt.Fprintf(b, "uintptr") + default: + fmt.Fprintf(b, "[%d]%s", n, p.typ(nd, t.Elem())) + } + return b.String() + case cc.Vector: + n := t.Len() + fmt.Fprintf(b, "[%d]%s", n, p.typ(nd, t.Elem())) + return b.String() + case cc.Struct, cc.Union: + if tag := t.Tag(); tag != 0 { + if s := p.structs[tag]; s != nil { + if s.name == "" { + panic(todo("internal error %q", tag)) + } + + return s.name + } + } + + return p.structType(nd, t) + } + + panic(todo("", p.pos(nd), t.Kind(), t)) +} + +func isScalarKind(k cc.Kind) bool { + switch k { + case + cc.Char, cc.SChar, cc.UChar, + cc.Short, cc.UShort, + cc.Int, cc.UInt, + cc.Long, cc.ULong, + cc.LongLong, cc.ULongLong, + cc.Float, cc.Double, + cc.Ptr: + + return true + } + + return false +} + +func (p *project) layoutTLDs() error { + var t0 time.Time + if p.task.traceTranslationUnits { + fmt.Printf("processing file scope declarations ... ") + t0 = time.Now() + defer func() { fmt.Println(time.Since(t0)) }() + } + + exportExtern, exportTypedef := doNotChange, doNotChange + if p.task.exportExternsValid { + switch { + case p.task.exportExterns != "": + exportExtern = exportPrefix + default: + exportExtern = exportCapitalize + } + } else if p.task.defaultUnExport { + exportExtern = doNotExport + } + + if p.task.exportTypedefsValid { + switch { + case p.task.exportTypedefs != "": + exportTypedef = exportPrefix + default: + exportTypedef = exportCapitalize + } + } else if p.task.defaultUnExport { + exportTypedef = doNotExport + } + + var a []*cc.Declarator + if p.task.pkgName == "" || p.task.pkgName == "main" { + out: + for _, ast := range p.task.asts { + if a := ast.Scope[idMain]; len(a) != 0 { + switch x := a[0].(type) { + case *cc.Declarator: + if x.Linkage == cc.External { + p.isMain = true + p.scope.take(idMain) + break out + } + } + } + } + } + sharedFns := map[*cc.FunctionDefinition]struct{}{} + for _, ast := range p.task.asts { + a = a[:0] + for d := range ast.TLD { + if d.IsFunctionPrototype() { + continue + } + + // https://gcc.gnu.org/onlinedocs/gcc/Inline.html + // + // If you specify both inline and extern in the function definition, then the + // definition is used only for inlining. In no case is the function compiled on + // its own, not even if you refer to its address explicitly. Such an address + // becomes an external reference, as if you had only declared the function, and + // had not defined it. + // + // This combination of inline and extern has almost the effect of a macro. The + // way to use it is to put a function definition in a header file with these + // keywords, and put another copy of the definition (lacking inline and extern) + // in a library file. The definition in the header file causes most calls to + // the function to be inlined. If any uses of the function remain, they refer + // to the single copy in the library. + if d.IsExtern() && d.Type().Inline() { + continue + } + + if fn := d.FunctionDefinition(); fn != nil { + if _, ok := p.sharedFns[fn]; ok { + if _, ok := sharedFns[fn]; ok { + continue + } + + sharedFns[fn] = struct{}{} + } + } + + a = append(a, d) + p.wanted[d] = struct{}{} + } + sort.Slice(a, func(i, j int) bool { + return a[i].NameTok().Seq() < a[j].NameTok().Seq() + }) + for _, d := range a { + switch d.Type().Kind() { + case cc.Struct, cc.Union: + p.checkAttributes(d.Type()) + } + nm := d.Name() + name := nm.String() + + switch d.Linkage { + case cc.External: + if ex := p.externs[nm]; ex != nil { + if _, ok := p.task.hide[name]; ok { + break + } + + if d.Type().Kind() != cc.Function { + break + } + + p.err(d, "redeclared: %s", d.Name()) + break + } + + isMain := p.isMain && nm == idMain + switch exportExtern { + case doNotExport: + name = unCapitalize(name) + case doNotChange: + // nop + case exportCapitalize: + name = capitalize(name) + case exportPrefix: + name = p.task.exportExterns + name + } + name = p.scope.take(cc.String(name)) + if isMain { + p.mainName = name + d.Read++ + } + tld := &tld{name: name} + p.externs[nm] = tld + for _, v := range ast.Scope[nm] { + if d, ok := v.(*cc.Declarator); ok { + p.tlds[d] = tld + } + } + if !isMain { + p.capi = append(p.capi, d.Name().String()) + } + case cc.Internal: + if token.IsExported(name) && !p.isMain && p.task.exportExternsValid { + name = "s" + name + } + tld := &tld{name: p.scope.take(cc.String(name))} + for _, v := range ast.Scope[nm] { + if d, ok := v.(*cc.Declarator); ok { + p.tlds[d] = tld + } + } + case cc.None: + if d.IsTypedefName { + if d.Type().IsIncomplete() { + break + } + + if exportTypedef == doNotChange && strings.HasPrefix(name, "__") { + break + } + + ex, ok := p.typedefTypes[d.Name()] + if ok { + sig := p.typeSignature(d, d.Type()) + if ex.sig == sig { + tld := ex.tld + for _, v := range ast.Scope[nm] { + if d, ok := v.(*cc.Declarator); ok { + p.tlds[d] = tld + } + } + break + } + } + + switch exportTypedef { + case doNotExport: + name = unCapitalize(name) + case doNotChange: + // nop + case exportCapitalize: + name = capitalize(name) + case exportPrefix: + name = p.task.exportTypedefs + name + } + + tld := &tld{name: p.scope.take(cc.String(name))} + p.typedefTypes[d.Name()] = &typedef{p.typeSignature(d, d.Type()), tld} + for _, v := range ast.Scope[nm] { + if d, ok := v.(*cc.Declarator); ok { + p.tlds[d] = tld + } + } + } + default: + panic(todo("", p.pos(d), nm, d.Linkage)) + } + } + } + for _, ast := range p.task.asts { + for list := ast.TranslationUnit; list != nil; list = list.TranslationUnit { + decl := list.ExternalDeclaration + switch decl.Case { + case cc.ExternalDeclarationFuncDef: // FunctionDefinition + // ok + default: + continue + } + + cc.Inspect(decl.FunctionDefinition.CompoundStatement, func(n cc.Node, entry bool) bool { + switch x := n.(type) { + case *cc.Declarator: + if x.IsFunctionPrototype() { + nm := x.Name() + if extern := p.externs[nm]; extern != nil { + break + } + + tld := &tld{name: nm.String()} + for _, nd := range ast.Scope[nm] { + if d, ok := nd.(*cc.Declarator); ok { + p.tlds[d] = tld + } + } + } + + } + return true + }) + } + } + return nil +} + +func (p *project) checkAttributes(t cc.Type) (r bool) { + r = true + for _, v := range t.Attributes() { + cc.Inspect(v, func(n cc.Node, entry bool) bool { + if !entry { + return true + } + + switch x := n.(type) { + case *cc.AttributeValue: + if x.Token.Value != idAligned { + break + } + + //TODO switch v := x.ExpressionList.AssignmentExpression.Operand.Value().(type) { + //TODO default: + //TODO panic(todo("%T(%v)", v, v)) + //TODO } + } + return true + }) + } + switch t.Kind() { + case cc.Struct, cc.Union: + for i := []int{0}; i[0] < t.NumField(); i[0]++ { + f := t.FieldByIndex(i) + if !p.checkAttributes(f.Type()) { + return false + } + + sd := f.Declarator() + if sd == nil { + continue + } + + cc.Inspect(sd.StructDeclaration().SpecifierQualifierList, func(n cc.Node, entry bool) bool { + if !entry { + return true + } + + switch x := n.(type) { + case *cc.AttributeValue: + if x.Token.Value == idPacked { + p.err(sd, "unsupported attribute: packed") + r = false + return false + } + + if x.Token.Value != idAligned { + break + } + + switch v := x.ExpressionList.AssignmentExpression.Operand.Value().(type) { + case cc.Int64Value: + if int(v) != t.Align() { + p.err(sd, "unsupported attribute: alignment") + r = false + return false + } + default: + panic(todo("%T(%v)", v, v)) + } + } + return true + }) + if !r { + return false + } + } + } + return r +} + +func unCapitalize(s string) string { + if strings.HasPrefix(s, "_") { + return s + } + a := []rune(s) + return strings.ToLower(string(a[0])) + string(a[1:]) +} + +func capitalize(s string) string { + if strings.HasPrefix(s, "_") { + s = "X" + s + } + a := []rune(s) + return strings.ToUpper(string(a[0])) + string(a[1:]) +} + +func (p *project) main() error { + targs := append([]string(nil), p.task.args...) + for i, v := range targs { + if v == "" { + targs[i] = `""` + } + } + p.o(`// Code generated by '%s %s', DO NOT EDIT. + +package %s + +`, + filepath.Base(p.task.args[0]), + strings.Join(targs[1:], " "), + p.task.pkgName, + ) + if len(p.defineLines) != 0 { + p.w("\nconst (") + p.w("%s", strings.Join(p.defineLines, "\n")) + p.w("\n)\n\n") + } + var a []*enumSpec + for _, es := range p.enumSpecs { + if es.spec.LexicalScope().Parent() == nil && !es.emitted { + a = append(a, es) + } + } + sort.Slice(a, func(i, j int) bool { + return a[i].decl.Position().String() < a[j].decl.Position().String() + }) + for _, es := range a { + es.emit(p) + } + for i, v := range p.task.asts { + var t0 time.Time + if p.task.traceTranslationUnits { + fmt.Printf("Go back end %v/%v: %s ... ", i+1, len(p.task.asts), filepath.Base(p.task.sources[i].Name)) + t0 = time.Now() + } + p.oneAST(v) + if p.task.traceTranslationUnits { + fmt.Println(time.Since(t0)) + } + p.task.asts[i] = nil + memGuard(i, p.task.isScripted) + } + sort.Slice(p.task.imported, func(i, j int) bool { return p.task.imported[i].path < p.task.imported[j].path }) + p.o(`import ( + "math" + "reflect" + "sync/atomic" + "unsafe" +`) + if len(p.verifyStructs) != 0 { + p.o("\t\"fmt\"\n") + } + first := true + libc := false + for _, v := range p.task.imported { + if v.used { + if v.path == p.task.crtImportPath { + libc = true + } + if first { + p.o("\n") + first = false + } + p.o("\t%q\n", v.path) + } + } + if p.task.crtImportPath != "" { + if !libc { + p.o("\t%q\n", p.task.crtImportPath) + } + p.o("\t%q\n", p.task.crtImportPath+"/sys/types") + } + p.o(`) + +var _ = math.Pi +var _ reflect.Kind +var _ atomic.Value +var _ unsafe.Pointer +`) + if p.task.crtImportPath != "" { + if libc { + p.o("var _ *libc.TLS\n") + } + p.o("var _ types.Size_t\n") + } + if p.isMain { + p.o(` +func main() { %sStart(%s) }`, p.task.crt, p.mainName) + } + p.flushStructs() + p.initPatches() + p.flushTS() + if !p.task.noCapi { + p.flushCAPI() + } + p.doVerifyStructs() + if err := p.Err(); err != nil { + return err + } + + if _, err := p.buf.WriteTo(p.task.out); err != nil { + return err + } + + return p.Err() +} + +func (p *project) doVerifyStructs() { + if len(p.verifyStructs) == 0 { + return + } + + var a []string + for k := range p.verifyStructs { + a = append(a, k) + } + sort.Strings(a) + p.w("\n\nfunc init() {") + n := 0 + for _, k := range a { + t := p.verifyStructs[k] + p.w("\nvar v%d %s", n, k) + p.w("\nif g, e := unsafe.Sizeof(v%d), uintptr(%d); g != e { panic(fmt.Sprintf(`invalid struct/union size, got %%v, expected %%v`, g, e))}", n, t.Size()) + nf := t.NumField() + for idx := []int{0}; idx[0] < nf; idx[0]++ { + f := t.FieldByIndex(idx) + if f.IsFlexible() { + break + } + + if f.IsBitField() || f.Type().Size() == 0 { + continue + } + + nm := p.fieldName2(f.Declarator(), f) + switch { + case t.Kind() == cc.Union: + if f.Offset() != 0 { + panic(todo("")) + } + + if idx[0] != 0 { + break + } + + fallthrough + default: + p.w("\nif g, e := unsafe.Offsetof(v%d.%s), uintptr(%d); g != e { panic(fmt.Sprintf(`invalid struct/union field offset, got %%v, expected %%v`, g, e))}", n, nm, f.Offset()) + p.w("\nif g, e := unsafe.Sizeof(v%d.%s), uintptr(%d); g != e { panic(fmt.Sprintf(`invalid struct/union field size, got %%v, expected %%v`, g, e))}", n, nm, f.Type().Size()) + } + } + n++ + } + p.w("\n}\n") +} + +func (p *project) flushCAPI() { + if p.isMain { + return + } + + b := bytes.NewBuffer(nil) + fmt.Fprintf(b, `// Code generated by '%s %s', DO NOT EDIT. + +package %s + +`, + filepath.Base(p.task.args[0]), + strings.Join(p.task.args[1:], " "), + p.task.pkgName, + ) + fmt.Fprintf(b, "\n\nvar CAPI = map[string]struct{}{") + sort.Strings(p.capi) + for _, nm := range p.capi { + fmt.Fprintf(b, "\n%q: {},", nm) + } + fmt.Fprintf(b, "\n}\n") + if err := ioutil.WriteFile(p.task.capif, b.Bytes(), 0644); err != nil { + p.err(nil, "%v", err) + return + } + + if out, err := exec.Command("gofmt", "-r", "(x) -> x", "-l", "-s", "-w", p.task.capif).CombinedOutput(); err != nil { + p.err(nil, "%s: %v", out, err) + } + + if out, err := exec.Command("gofmt", "-l", "-s", "-w", p.task.capif).CombinedOutput(); err != nil { + p.err(nil, "%s: %v", out, err) + } +} + +func (p *project) initPatches() { + var tlds []*tld + for _, tld := range p.tlds { + if len(tld.patches) != 0 { + tlds = append(tlds, tld) + } + } + if len(tlds) == 0 { + return + } + + sort.Slice(tlds, func(i, j int) bool { return tlds[i].name < tlds[j].name }) + p.w("\n\nfunc init() {") + for _, tld := range tlds { + for _, patch := range tld.patches { + var fld string + if patch.fld != nil { + fld = fmt.Sprintf("/* .%s */", patch.fld.Name()) + } + init := patch.init + expr := init.AssignmentExpression + d := expr.Declarator() + switch { + case d != nil && d.Type().Kind() == cc.Function: + p.w("\n*(*") + p.functionSignature(d, nil, d.Type(), "") + p.w(")(unsafe.Pointer(uintptr(unsafe.Pointer(&%s))+%d%s)) = ", tld.name, init.Offset, fld) + p.declarator(init, nil, d, d.Type(), exprFunc, 0) + default: + p.w("\n*(*%s)(unsafe.Pointer(uintptr(unsafe.Pointer(&%s))+%d%s)) = ", p.typ(init, patch.t), tld.name, init.Offset, fld) + p.assignmentExpression(nil, expr, patch.t, exprValue, 0) + } + p.w("// %s:", p.pos(init)) + } + } + p.w("\n}\n") +} + +func (p *project) Err() error { + if len(p.errors) == 0 { + return nil + } + + var lpos token.Position + w := 0 + for _, v := range p.errors { + if lpos.Filename != "" { + if v.Pos.Filename == lpos.Filename && v.Pos.Line == lpos.Line && !strings.HasPrefix(v.Msg, tooManyErrors) { + continue + } + } + + p.errors[w] = v + w++ + lpos = v.Pos + } + p.errors = p.errors[:w] + sort.Slice(p.errors, func(i, j int) bool { + a := p.errors[i] + if a.Msg == tooManyErrors { + return false + } + + b := p.errors[j] + if b.Msg == tooManyErrors { + return true + } + + if !a.Pos.IsValid() && b.Pos.IsValid() { + return true + } + + if a.Pos.IsValid() && !b.Pos.IsValid() { + return false + } + + if a.Pos.Filename < b.Pos.Filename { + return true + } + + if a.Pos.Filename > b.Pos.Filename { + return false + } + + if a.Pos.Line < b.Pos.Line { + return true + } + + if a.Pos.Line > b.Pos.Line { + return false + } + + return a.Pos.Column < b.Pos.Column + }) + a := make([]string, 0, len(p.errors)) + for _, v := range p.errors { + a = append(a, v.Error()) + } + return fmt.Errorf("%s", strings.Join(a, "\n")) +} + +func (p *project) flushTS() { + b := p.ts.Bytes() + if len(b) != 0 { + p.w("\n\n") + //TODO add cmd line option for this + //TODO s := strings.TrimSpace(hex.Dump(b)) + //TODO a := strings.Split(s, "\n") + //TODO p.w("// %s\n", strings.Join(a, "\n// ")) + p.w("var %s = %q\n", p.tsName, b) + p.w("var %s = (*reflect.StringHeader)(unsafe.Pointer(&%s)).Data\n", p.tsNameP, p.tsName) + } + if len(p.tsW) != 0 { + p.w("var %s = [...]%s{", p.tsWName, p.typ(nil, p.ast.WideCharType)) + for _, v := range p.tsW { + p.w("%d, ", v) + } + p.w("}\n") + p.w("var %s = uintptr(unsafe.Pointer(&%s[0]))\n", p.tsWNameP, p.tsWName) + } +} + +func (p *project) flushStructs() { + var a []*taggedStruct + for _, v := range p.structs { + if !v.emitted { + a = append(a, v) + } + } + sort.Slice(a, func(i, j int) bool { return a[i].name < a[j].name }) + for _, v := range a { + v.emit(p, nil) + } +} + +func (p *project) oneAST(ast *cc.AST) { + p.ast = ast + for list := ast.TranslationUnit; list != nil; list = list.TranslationUnit { + p.externalDeclaration(list.ExternalDeclaration) + } + p.w("%s", tidyCommentString(ast.TrailingSeperator.String())) +} + +func (p *project) externalDeclaration(n *cc.ExternalDeclaration) { + switch n.Case { + case cc.ExternalDeclarationFuncDef: // FunctionDefinition + p.functionDefinition(n.FunctionDefinition) + case cc.ExternalDeclarationDecl: // Declaration + p.declaration(nil, n.Declaration, false) + case cc.ExternalDeclarationAsm: // AsmFunctionDefinition + // nop + case cc.ExternalDeclarationAsmStmt: // AsmStatement + panic(todo("", p.pos(n))) + case cc.ExternalDeclarationEmpty: // ';' + // nop + case cc.ExternalDeclarationPragma: // PragmaSTDC + panic(todo("", p.pos(n))) + default: + panic(todo("%v: internal error: %v", n.Position(), n.Case)) + } +} + +func (p *project) declaration(f *function, n *cc.Declaration, topDecl bool) { + cc.Inspect(n.DeclarationSpecifiers, func(m cc.Node, entry bool) bool { + switch x := m.(type) { + case *cc.EnumSpecifier: + if f == nil { + p.enumSpecs[x].emit(p) + } + case *cc.StructOrUnionSpecifier: + if tag := x.Token.Value; tag != 0 { + switch { + case f == nil: + p.structs[tag].emit(p, n.DeclarationSpecifiers) + default: + p.localTaggedStructs = append(p.localTaggedStructs, func() { + p.structs[tag].emit(p, n.DeclarationSpecifiers) + }) + } + } + } + return true + }) + + if n.InitDeclaratorList == nil { + return + } + + // DeclarationSpecifiers InitDeclaratorList ';' + sep := tidyComment("\n", n) //TODO repeats + for list := n.InitDeclaratorList; list != nil; list = list.InitDeclaratorList { + p.initDeclarator(f, list.InitDeclarator, sep, topDecl) + sep = "\n" + } +} + +func (p *project) initDeclarator(f *function, n *cc.InitDeclarator, sep string, topDecl bool) { + if f == nil { + p.tld(f, n, sep, false) + return + } + + d := n.Declarator + if d.IsExtern() || d.IsTypedefName { + return + } + + if tld := p.tlds[d]; tld != nil && !topDecl { // static local + if !p.pass1 { + p.staticQueue = append(p.staticQueue, n) + } + return + } + + local := f.locals[d] + if local == nil { // Dead declaration. + return + } + + block := f.block + t := d.Type() + vla := t.Kind() == cc.Array && t.IsVLA() + if vla && p.pass1 { + f.vlas[d] = struct{}{} + return + } + + switch n.Case { + case cc.InitDeclaratorDecl: // Declarator AttributeSpecifierList + if block.noDecl || block.topDecl && !topDecl { + return + } + + switch { + case vla: + p.initDeclaratorDeclVLA(f, n, sep) + default: + p.initDeclaratorDecl(f, n, sep) + } + case cc.InitDeclaratorInit: // Declarator AttributeSpecifierList '=' Initializer + if vla { + panic(todo("")) + } + + if f.block.topDecl { + switch { + case topDecl: + p.initDeclaratorDecl(f, n, sep) + if local.forceRead && !local.isPinned { + p.w("_ = %s;", local.name) + } + default: + sv := f.condInitPrefix + f.condInitPrefix = func() { + p.declarator(d, f, d, d.Type(), exprLValue, 0) + p.w(" = ") + } + switch { + case p.isConditionalInitializer(n.Initializer): + p.assignmentExpression(f, n.Initializer.AssignmentExpression, d.Type(), exprCondInit, 0) + default: + f.condInitPrefix() + p.initializer(f, n.Initializer, d.Type(), d.StorageClass, nil) + } + f.condInitPrefix = sv + p.w(";") + } + return + } + + p.w("%s", sep) + switch { + case local.isPinned: + sv := f.condInitPrefix + f.condInitPrefix = func() { + //TODO- p.declarator(d, f, d, d.Type(), exprLValue, 0) + //TODO- p.w(" = ") + p.w("*(*%s)(unsafe.Pointer(%s%s/* %s */)) = ", p.typ(n, d.Type()), f.bpName, nonZeroUintptr(local.off), local.name) + } + switch { + case p.isConditionalInitializer(n.Initializer): + p.assignmentExpression(f, n.Initializer.AssignmentExpression, d.Type(), exprCondInit, 0) + default: + f.condInitPrefix() + p.initializer(f, n.Initializer, d.Type(), d.StorageClass, nil) + p.w(";") + } + f.condInitPrefix = sv + p.w(";") + default: + var semi string + switch { + case block.noDecl: + semi = "" + default: + p.w("var %s ", local.name) + if !isAggregateTypeOrUnion(d.Type()) { + p.w("%s ", p.typ(n, d.Type())) + } + semi = ";" + } + switch { + case p.isConditionalInitializer(n.Initializer): + p.w("%s", semi) + sv := f.condInitPrefix + f.condInitPrefix = func() { p.w("%s = ", local.name) } + p.assignmentExpression(f, n.Initializer.AssignmentExpression, d.Type(), exprCondInit, 0) + f.condInitPrefix = sv + default: + if block.noDecl { + p.w("%s", local.name) + } + p.w(" = ") + p.initializer(f, n.Initializer, d.Type(), d.StorageClass, nil) + } + p.w(";") + } + default: + panic(todo("%v: internal error: %v", n.Position(), n.Case)) + } + if !block.noDecl && local.forceRead && !local.isPinned { + p.w("_ = %s;", local.name) + } +} + +func (p *project) isConditionalInitializer(n *cc.Initializer) bool { + return n.Case == cc.InitializerExpr && p.isConditionalAssignmentExpr(n.AssignmentExpression) +} + +func (p *project) isConditionalAssignmentExpr(n *cc.AssignmentExpression) bool { + return n.Case == cc.AssignmentExpressionCond && + n.ConditionalExpression.Case == cc.ConditionalExpressionCond +} + +func (p *project) initDeclaratorDeclVLA(f *function, n *cc.InitDeclarator, sep string) { + d := n.Declarator + local := f.locals[d] + if strings.TrimSpace(sep) == "" { + sep = "\n" + } + if local.isPinned { + panic(todo("")) + p.w("%s// var %s %s at %s%s, %d\n", sep, local.name, p.typ(n, d.Type()), f.bpName, nonZeroUintptr(local.off), d.Type().Size()) + return + } + + p.w("%s%s = %sXrealloc(%s, %s, types.Size_t(", sep, local.name, p.task.crt, f.tlsName, local.name) + e := d.Type().LenExpr() + p.assignmentExpression(f, e, e.Operand.Type(), exprValue, 0) + if sz := d.Type().Elem().Size(); sz != 1 { + p.w("*%d", sz) + } + p.w("));") +} + +func (p *project) initDeclaratorDecl(f *function, n *cc.InitDeclarator, sep string) { + d := n.Declarator + local := f.locals[d] + if strings.TrimSpace(sep) == "" { + sep = "\n" + } + if local.isPinned { + p.w("%s// var %s %s at %s%s, %d\n", sep, local.name, p.typ(n, d.Type()), f.bpName, nonZeroUintptr(local.off), d.Type().Size()) + return + } + + p.w("%svar %s %s;", sep, local.name, p.typ(n, d.Type())) +} + +func (p *project) declarator(n cc.Node, f *function, d *cc.Declarator, t cc.Type, mode exprMode, flags flags) { + switch mode { + case exprLValue: + p.declaratorLValue(n, f, d, t, mode, flags) + case exprFunc: + p.declaratorFunc(n, f, d, t, mode, flags) + case exprValue: + p.declaratorValue(n, f, d, t, mode, flags) + case exprAddrOf: + p.declaratorAddrOf(n, f, d, t, flags) + case exprSelect: + p.declaratorSelect(n, f, d) + case exprDecay: + p.declaratorDecay(n, f, d, t, mode, flags) + default: + panic(todo("", mode)) + } +} + +func (p *project) declaratorDecay(n cc.Node, f *function, d *cc.Declarator, t cc.Type, mode exprMode, flags flags) { + if d.Type().Kind() != cc.Array { + panic(todo("", n.Position(), p.pos(d))) + } + + if f != nil { + if local := f.locals[d]; local != nil { + if d.Type().IsVLA() { + switch { + case local.isPinned: + panic(todo("")) + default: + p.w("%s", local.name) + return + } + } + + if d.IsParameter { + p.w("%s", local.name) + return + } + + if p.pass1 { + if !d.Type().IsVLA() { + f.pin(n, d) + } + return + } + + p.w("(%s%s)/* &%s[0] */", f.bpName, nonZeroUintptr(local.off), local.name) + return + } + } + + if x := p.tlds[d]; x != nil && d.IsStatic() { + p.w("uintptr(unsafe.Pointer(&%s))", x.name) + return + } + + switch x := p.symtab[d.Name().String()].(type) { + case *tld: + p.w("uintptr(unsafe.Pointer(&%s))", x.name) + case *imported: + x.used = true + p.w("uintptr(unsafe.Pointer(&%sX%s))", x.qualifier, d.Name()) + default: + panic(todo("%v: %v: %q %T", n.Position(), p.pos(d), d.Name(), x)) + } +} + +func (p *project) declaratorValue(n cc.Node, f *function, d *cc.Declarator, t cc.Type, mode exprMode, flags flags) { + switch k := p.declaratorKind(d); k { + case opNormal: + p.declaratorValueNormal(n, f, d, t, mode, flags) + case opArray: + p.declaratorValueArray(n, f, d, t, mode, flags) + case opFunction: + p.declarator(n, f, d, t, exprAddrOf, flags) + case opUnion: + p.declaratorValueUnion(n, f, d, t, mode, flags) + case opArrayParameter: + p.declaratorValueArrayParameter(n, f, d, t, mode, flags) + default: + panic(todo("", d.Position(), k)) + } +} + +func (p *project) declaratorValueArrayParameter(n cc.Node, f *function, d *cc.Declarator, t cc.Type, mode exprMode, flags flags) { + if d.Type().IsScalarType() { + defer p.w("%s", p.convertType(n, d.Type(), t, flags)) + } + local := f.locals[d] + if local.isPinned { + p.w("*(*%s)(unsafe.Pointer(%s%s/* %s */))", p.typ(n, paramTypeDecay(d)), f.bpName, nonZeroUintptr(local.off), local.name) + return + } + + p.w("%s", local.name) +} + +func (p *project) declaratorValueUnion(n cc.Node, f *function, d *cc.Declarator, t cc.Type, mode exprMode, flags flags) { + if d.Type().IsScalarType() { + defer p.w("%s", p.convertType(n, d.Type(), t, flags)) + } + if f != nil { + if local := f.locals[d]; local != nil { + if local.isPinned { + p.w("*(*%s)(unsafe.Pointer(%s%s/* %s */))", p.typ(d, d.Type()), f.bpName, nonZeroUintptr(local.off), local.name) + return + } + + p.w("%s", local.name) + return + } + } + + p.declaratorDefault(n, d) +} + +func (p *project) isVolatileOrAtomic(d *cc.Declarator) bool { + if d.Type().IsVolatile() || d.Type().IsAtomic() { + return true + } + + _, ok := p.task.volatiles[d.Name()] + return ok +} + +func (p *project) declaratorDefault(n cc.Node, d *cc.Declarator) { + if x := p.tlds[d]; x != nil && d.IsStatic() { + if p.isVolatileOrAtomic(d) { + p.atomicLoadNamedAddr(n, d.Type(), x.name) + return + } + + p.w("%s", x.name) + return + } + + switch x := p.symtab[d.Name().String()].(type) { + case *tld: + if p.isVolatileOrAtomic(d) { + p.atomicLoadNamedAddr(n, d.Type(), x.name) + return + } + + p.w("%s", x.name) + case *imported: + x.used = true + if p.isVolatileOrAtomic(d) { + p.atomicLoadNamedAddr(n, d.Type(), fmt.Sprintf("%sX%s", x.qualifier, d.Name())) + return + } + + p.w("%sX%s", x.qualifier, d.Name()) + default: + if d.IsExtern() { + switch d.Name() { + case idEnviron: + if d.Type().String() == "pointer to pointer to char" { + p.w("%sEnviron()", p.task.crt) + return + } + } + } + + if d.Linkage == cc.External && p.task.nostdlib { + p.w("X%s", d.Name()) + return + } + + id := fmt.Sprintf("__builtin_%s", d.Name()) + switch x := p.symtab[id].(type) { + case *imported: + x.used = true + p.w("%sX%s", x.qualifier, d.Name()) + return + } + + if !d.IsImplicit() { + nm := d.Name() + name := nm.String() + switch d.Linkage { + case cc.External: + name = p.task.exportExterns + name + tld := &tld{name: name} + p.externs[nm] = tld + p.w("%s", name) + return + case cc.Internal: + if token.IsExported(name) { + name = "s" + name + } + tld := &tld{name: p.scope.take(cc.String(name))} + for _, v := range p.ast.Scope[nm] { + if d, ok := v.(*cc.Declarator); ok { + p.tlds[d] = tld + } + } + p.w("%s", name) + return + } + } + + p.err(n, "back-end: undefined: %s", d.Name()) + } +} + +func (p *project) declaratorValueArray(n cc.Node, f *function, d *cc.Declarator, t cc.Type, mode exprMode, flags flags) { + if t.IsIntegerType() { + defer p.w("%s", p.convertType(n, nil, t, flags)) + } + if f != nil { + if local := f.locals[d]; local != nil { + if local.isPinned { + p.w("(%s%s)/* %s */", f.bpName, nonZeroUintptr(local.off), local.name) + return + } + + p.w("%s", local.name) + return + } + } + + p.declaratorDefault(n, d) +} + +func (p *project) declaratorValueNormal(n cc.Node, f *function, d *cc.Declarator, t cc.Type, mode exprMode, flags flags) { + if d.Type().IsScalarType() { + defer p.w("%s", p.convertType(n, d.Type(), t, flags)) + } + if f != nil { + if local := f.locals[d]; local != nil { + if local.isPinned { + if p.isVolatileOrAtomic(d) && d.IsParameter && d.Write != 0 { + p.w("%sAtomicLoadP%s(%s%s/* %s */)", p.task.crt, p.helperType(n, d.Type()), f.bpName, nonZeroUintptr(local.off), local.name) + return + } + + p.w("*(*%s)(unsafe.Pointer(%s%s/* %s */))", p.typ(d, d.Type()), f.bpName, nonZeroUintptr(local.off), local.name) + return + } + + if p.isVolatileOrAtomic(d) && d.IsParameter && d.Write != 0 { + p.atomicLoadNamedAddr(n, d.Type(), local.name) + return + } + + p.w("%s", local.name) + return + } + } + + p.declaratorDefault(n, d) +} + +func (p *project) declaratorFunc(n cc.Node, f *function, d *cc.Declarator, t cc.Type, mode exprMode, flags flags) { + switch k := p.declaratorKind(d); k { + case opFunction: + p.declaratorFuncFunc(n, f, d, t, exprValue, flags) + case opNormal: + p.declaratorFuncNormal(n, f, d, t, exprValue, flags) + default: + panic(todo("", d.Position(), k)) + } +} + +func (p *project) declaratorFuncNormal(n cc.Node, f *function, d *cc.Declarator, t cc.Type, mode exprMode, flags flags) { + u := d.Type() + if u.Kind() == cc.Ptr { + u = u.Elem() + } + switch u.Kind() { + case cc.Function: + if local := f.locals[d]; local != nil { + if local.isPinned { + p.w("(*(*") + p.functionSignature(n, f, u, "") + p.w(")(unsafe.Pointer(%s%s)))", f.bpName, nonZeroUintptr(local.off)) + return + } + + if d.IsParameter { + p.w("(*(*") + p.functionSignature(n, f, u, "") + p.w(")(unsafe.Pointer(&%s)))", local.name) + return + } + + panic(todo("", p.pos(d))) + } + + if x := p.tlds[d]; x != nil && d.IsStatic() { + p.w("(*(*") + p.functionSignature(n, f, u, "") + p.w(")(unsafe.Pointer(&%s)))", x.name) + return + } + + switch x := p.symtab[d.Name().String()].(type) { + case *tld: + p.w("(*(*") + p.functionSignature(n, f, u, "") + p.w(")(unsafe.Pointer(&%s)))", x.name) + case *imported: + x.used = true + p.w("uintptr(unsafe.Pointer(&%sX%s))", x.qualifier, d.Name()) + default: + panic(todo("%v: %v: %q", n.Position(), p.pos(d), d.Name())) + } + default: + panic(todo("", p.pos(d), u)) + } +} + +func (p *project) declaratorFuncFunc(n cc.Node, f *function, d *cc.Declarator, t cc.Type, mode exprMode, flags flags) { + switch d.Type().Kind() { + case cc.Function: + // ok + default: + panic(todo("", p.pos(d), d.Type(), d.Type().Kind())) + } + + if f != nil { + if local := f.locals[d]; local != nil { + if local.isPinned { + panic(todo("")) + } + + p.w(" %s", local.name) + return + } + } + + p.declaratorDefault(n, d) +} + +func (p *project) declaratorLValue(n cc.Node, f *function, d *cc.Declarator, t cc.Type, mode exprMode, flags flags) { + switch k := p.declaratorKind(d); k { + case opNormal, opArrayParameter, opUnion: + p.declaratorLValueNormal(n, f, d, t, mode, flags) + case opArray: + p.declaratorLValueArray(n, f, d, t, mode, flags) + default: + panic(todo("", d.Position(), k)) + } +} + +func (p *project) declaratorLValueArray(n cc.Node, f *function, d *cc.Declarator, t cc.Type, mode exprMode, flags flags) { + if f != nil { + if local := f.locals[d]; local != nil { + if local.isPinned { + p.w("*(*%s)(unsafe.Pointer(%s%s/* %s */))", p.typ(d, d.Type()), f.bpName, nonZeroUintptr(local.off), local.name) + return + } + + p.w("%s", local.name) + return + } + } + + p.declaratorDefault(n, d) +} + +func (p *project) declaratorLValueNormal(n cc.Node, f *function, d *cc.Declarator, t cc.Type, mode exprMode, flags flags) { + if p.isVolatileOrAtomic(d) { + panic(todo("", n.Position(), d.Position())) + } + + if d.Type().IsScalarType() { + defer p.w("%s", p.convertType(n, d.Type(), t, flags)) + } + if f != nil { + if local := f.locals[d]; local != nil { + if local.isPinned { + p.w("*(*%s)(unsafe.Pointer(%s%s/* %s */))", p.dtyp(d), f.bpName, nonZeroUintptr(local.off), local.name) + return + } + + p.w("%s", local.name) + return + } + } + + p.declaratorLValueDefault(n, d) +} + +func (p *project) declaratorLValueDefault(n cc.Node, d *cc.Declarator) { + if x := p.tlds[d]; x != nil && d.IsStatic() { + p.w("%s", x.name) + return + } + + switch x := p.symtab[d.Name().String()].(type) { + case *tld: + p.w("%s", x.name) + case *imported: + x.used = true + p.w("%sX%s", x.qualifier, d.Name()) + default: + if d.IsExtern() { + switch d.Name() { + case idEnviron: + if d.Type().String() == "pointer to pointer to char" { + p.w("*(*uintptr)(unsafe.Pointer(%sEnvironP()))", p.task.crt) + return + } + } + } + + panic(todo("%v: %v: %q", n.Position(), p.pos(d), d.Name())) + } +} + +func (p *project) declaratorKind(d *cc.Declarator) opKind { + switch { + case p.isArrayParameterDeclarator(d): + return opArrayParameter + case !p.pass1 && p.isArrayDeclarator(d): + return opArray + case d.Type().Kind() == cc.Function && !d.IsParameter: + return opFunction + case d.Type().Kind() == cc.Union: + return opUnion + default: + return opNormal + } +} + +func (p *project) declaratorSelect(n cc.Node, f *function, d *cc.Declarator) { + switch k := p.declaratorKind(d); k { + case opNormal: + p.declaratorSelectNormal(n, f, d) + case opArray: + p.declaratorSelectArray(n, f, d) + default: + panic(todo("", d.Position(), k)) + } +} + +func (p *project) declaratorSelectArray(n cc.Node, f *function, d *cc.Declarator) { + if local := f.locals[d]; local != nil { + if local.isPinned { + panic(todo("", p.pos(n))) + //TODO type error + p.w("(*%s)(unsafe.Pointer(%s%s/* &%s */))", p.typ(d, d.Type()), f.bpName, nonZeroUintptr(local.off), local.name) + return + } + + p.w("%s", local.name) + return + } + + p.declaratorDefault(n, d) +} + +func (p *project) declaratorSelectNormal(n cc.Node, f *function, d *cc.Declarator) { + if local := f.locals[d]; local != nil { + if local.isPinned { + p.w("(*%s)(unsafe.Pointer(%s%s/* &%s */))", p.typ(d, d.Type()), f.bpName, nonZeroUintptr(local.off), local.name) + return + } + + p.w("%s", local.name) + return + } + + p.declaratorDefault(n, d) +} + +func (p *project) declaratorAddrOf(n cc.Node, f *function, d *cc.Declarator, t cc.Type, flags flags) { + switch k := p.declaratorKind(d); k { + case opArray: + p.declaratorAddrOfArray(n, f, d) + case opNormal: + p.declaratorAddrOfNormal(n, f, d, flags) + case opUnion: + p.declaratorAddrOfUnion(n, f, d) + case opFunction: + p.declaratorAddrOfFunction(n, f, d) + case opArrayParameter: + p.declaratorAddrOfArrayParameter(n, f, d) + default: + panic(todo("", d.Position(), k)) + } +} + +func (p *project) declaratorAddrOfArrayParameter(n cc.Node, f *function, d *cc.Declarator) { + if p.pass1 { + f.pin(n, d) + return + } + + local := f.locals[d] + p.w("(%s%s)/* &%s */", f.bpName, nonZeroUintptr(local.off), local.name) +} + +func (p *project) declaratorAddrOfFunction(n cc.Node, f *function, d *cc.Declarator) { + if d.Type().Kind() != cc.Function { + panic(todo("", p.pos(n))) + } + + if x := p.tlds[d]; x != nil && d.IsStatic() { + p.w("*(*uintptr)(unsafe.Pointer(&struct{f ") + p.functionSignature(n, f, d.Type(), "") + p.w("}{%s}))", x.name) + return + } + + switch x := p.symtab[d.Name().String()].(type) { + case *tld: + p.w("*(*uintptr)(unsafe.Pointer(&struct{f ") + p.functionSignature(n, f, d.Type(), "") + p.w("}{%s}))", x.name) + case *imported: + x.used = true + p.w("*(*uintptr)(unsafe.Pointer(&struct{f ") + p.functionSignature(n, f, d.Type(), "") + p.w("}{%sX%s}))", x.qualifier, d.Name()) + default: + p.err(d, "back-end: undefined: %s", d.Name()) + } +} + +func (p *project) declaratorAddrOfUnion(n cc.Node, f *function, d *cc.Declarator) { + if f != nil { + if local := f.locals[d]; local != nil { + if p.pass1 { + f.pin(n, d) + return + } + + if local.isPinned { + p.w("(%s%s)/* &%s */", f.bpName, nonZeroUintptr(local.off), local.name) + return + } + + panic(todo("", p.pos(n))) + } + } + + if x := p.tlds[d]; x != nil && d.IsStatic() { + p.w("uintptr(unsafe.Pointer(&%s))", x.name) + return + } + + switch x := p.symtab[d.Name().String()].(type) { + case *tld: + p.w("uintptr(unsafe.Pointer(&%s))", x.name) + case *imported: + x.used = true + p.w("uintptr(unsafe.Pointer(&%sX%s))", x.qualifier, d.Name()) + default: + panic(todo("%v: %v: %q", n.Position(), p.pos(d), d.Name())) + } +} + +func (p *project) declaratorAddrOfNormal(n cc.Node, f *function, d *cc.Declarator, flags flags) { + if f != nil { + if local := f.locals[d]; local != nil { + if p.pass1 && flags&fAddrOfFuncPtrOk == 0 { + f.pin(n, d) + return + } + + if local.isPinned { + p.w("(%s%s)/* &%s */", f.bpName, nonZeroUintptr(local.off), local.name) + return + } + + if flags&fAddrOfFuncPtrOk != 0 { + if dt := d.Type(); dt.Kind() == cc.Ptr { + if elem := dt.Elem(); elem.Kind() == cc.Function || elem.Kind() == cc.Ptr && elem.Elem().Kind() == cc.Function { + p.w("&%s", local.name) + return + } + } + } + + panic(todo("", p.pos(n), p.pos(d), d.Name(), d.Type(), d.IsParameter, d.AddressTaken, flags&fAddrOfFuncPtrOk != 0)) + } + } + + if x := p.tlds[d]; x != nil && d.IsStatic() { + p.w("uintptr(unsafe.Pointer(&%s))", x.name) + return + } + + switch x := p.symtab[d.Name().String()].(type) { + case *tld: + p.w("uintptr(unsafe.Pointer(&%s))", x.name) + case *imported: + x.used = true + p.w("uintptr(unsafe.Pointer(&%sX%s))", x.qualifier, d.Name()) + default: + p.err(n, "undefined: %s", d.Name()) + } +} + +func (p *project) declaratorAddrOfArray(n cc.Node, f *function, d *cc.Declarator) { + if f != nil { + if local := f.locals[d]; local != nil { + if p.pass1 { + f.pin(n, d) + return + } + + if local.isPinned { + p.w("(%s%s)/* &%s */", f.bpName, nonZeroUintptr(local.off), local.name) + return + } + + panic(todo("", p.pos(d), d.Name(), d.Type(), d.IsParameter)) + } + } + + if x := p.tlds[d]; x != nil && d.IsStatic() { + p.w("uintptr(unsafe.Pointer(&%s))", x.name) + return + } + + switch x := p.symtab[d.Name().String()].(type) { + case *tld: + p.w("uintptr(unsafe.Pointer(&%s))", x.name) + case *imported: + x.used = true + p.w("uintptr(unsafe.Pointer(&%sX%s))", x.qualifier, d.Name()) + default: + panic(todo("%v: %v: %q", n.Position(), p.pos(d), d.Name())) + } +} + +func (p *project) convertType(n cc.Node, from, to cc.Type, flags flags) string { + // trc("%v: %v: %v -> %v %v", n.Position(), origin(1), from, to, flags) //TODO- DBG + if from != nil { + switch from.Kind() { + case cc.Int128: + return p.convertTypeFromInt128(n, to, flags) + case cc.UInt128: + return p.convertTypeFromUint128(n, to, flags) + } + } + + switch to.Kind() { + case cc.Int128: + return p.convertTypeToInt128(n, from, flags) + case cc.UInt128: + return p.convertTypeToUint128(n, from, flags) + } + + // trc("%v: %v -> %v\n%s", p.pos(n), from, to, debug.Stack()[:600]) //TODO- + force := flags&fForceConv != 0 + if from == nil { + p.w("%s(", p.typ(n, to)) + return ")" + } + + if from.IsScalarType() { + switch { + case force: + p.w("%s(", p.helperType2(n, from, to)) + return ")" + case from.Kind() == to.Kind(): + return "" + default: + p.w("%s(", p.typ(n, to)) + return ")" + } + } + + switch from.Kind() { + case cc.Function, cc.Struct, cc.Union, cc.Ptr, cc.Array: + if from.Kind() == to.Kind() { + return "" + } + + panic(todo("", n.Position(), from, to, from.Alias(), to.Alias())) + case cc.Double, cc.Float: + p.w("%s(", p.typ(n, to)) + return ")" + } + + panic(todo("", n.Position(), from, to, from.Alias(), to.Alias())) +} + +func (p *project) convertTypeFromInt128(n cc.Node, to cc.Type, flags flags) string { + switch k := to.Kind(); { + case k == cc.Float, k == cc.Double: + p.w("(") + return fmt.Sprintf(").Float%d()", to.Size()*8) + case k == cc.Int128: + return "" + case k == cc.UInt128: + p.w("%sUint128FromInt128(", p.task.crt) + return ")" + case to.IsIntegerType() && to.IsSignedType(): + p.w("int%d((", to.Size()*8) + return ").Lo)" + case to.IsIntegerType() && !to.IsSignedType(): + p.w("uint%d((", to.Size()*8) + return ").Lo)" + default: + panic(todo("", n.Position(), to, to.Alias())) + } +} + +func (p *project) convertTypeFromUint128(n cc.Node, to cc.Type, flags flags) string { + switch k := to.Kind(); { + case k == cc.Float, k == cc.Double: + p.w("(") + return fmt.Sprintf(").Float%d()", to.Size()*8) + case k == cc.Int128: + p.w("(") + return ").Int128()" + case k == cc.UInt128: + return "" + case to.IsIntegerType() && to.IsSignedType(): + p.w("int%d((", to.Size()*8) + return ").Lo)" + case to.IsIntegerType() && !to.IsSignedType(): + p.w("uint%d((", to.Size()*8) + return ").Lo)" + default: + panic(todo("", n.Position(), to, to.Alias())) + } +} + +func (p *project) convertTypeToInt128(n cc.Node, from cc.Type, flags flags) string { + switch k := from.Kind(); { + case k == cc.Float, k == cc.Double: + p.w("%sInt128FromFloat%d(", p.task.crt, from.Size()*8) + return ")" + case k == cc.Int128: + return "" + case k == cc.UInt128: + p.w("%sInt128FromUint128(", p.task.crt) + return ")" + case from.IsIntegerType() && from.IsSignedType(): + p.w("%sInt128FromInt%d(", p.task.crt, from.Size()*8) + return ")" + case from.IsIntegerType() && !from.IsSignedType(): + p.w("%sInt128FromUint%d(", p.task.crt, from.Size()*8) + return ")" + default: + panic(todo("", n.Position(), from, from.Alias())) + } +} + +func (p *project) convertTypeToUint128(n cc.Node, from cc.Type, flags flags) string { + switch k := from.Kind(); { + case k == cc.Float, k == cc.Double: + p.w("%sUint128FromFloat%d(", p.task.crt, from.Size()*8) + return ")" + case k == cc.Int128: + p.w("(") + return ").Uint128()" + case k == cc.UInt128: + return "" + case from.IsIntegerType() && from.IsSignedType(): + p.w("%sUint128FromInt%d(", p.task.crt, from.Size()*8) + return ")" + case from.IsIntegerType() && !from.IsSignedType(): + p.w("%sUint128FromUint%d(", p.task.crt, from.Size()*8) + return ")" + default: + panic(todo("", n.Position(), from, from.Alias())) + } +} + +func (p *project) convertFromInt128(n cc.Node, op cc.Operand, to cc.Type, flags flags) string { + switch k := to.Kind(); { + case k == cc.Float, k == cc.Double: + p.w("(") + return fmt.Sprintf(").Float%d()", to.Size()*8) + case k == cc.Int128: + return "" + case k == cc.UInt128: + p.w("(") + return ").Uint128()" + case to.IsIntegerType() && to.IsSignedType(): + p.w("%sInt%d(", p.task.crt, to.Size()*8) + return ")" + case to.IsIntegerType() && !to.IsSignedType(): + p.w("%sUint%d(", p.task.crt, to.Size()*8) + return ")" + default: + panic(todo("", n.Position(), to, to.Alias())) + } +} + +func (p *project) convertFromUint128(n cc.Node, op cc.Operand, to cc.Type, flags flags) string { + switch k := to.Kind(); { + case k == cc.Float, k == cc.Double: + p.w("%sUint128FromFloat%d(", p.task.crt, to.Size()*8) + return ")" + case k == cc.Int128: + p.w("(") + return ").Int128()" + case k == cc.UInt128: + return "" + case to.IsIntegerType() && to.IsSignedType(): + p.w("%sInt%d(", p.task.crt, to.Size()*8) + return ")" + case to.IsIntegerType() && !to.IsSignedType(): + p.w("%sUint%d(", p.task.crt, to.Size()*8) + return ")" + default: + panic(todo("", n.Position(), to, to.Alias())) + } +} + +func (p *project) convertToInt128(n cc.Node, op cc.Operand, to cc.Type, flags flags) string { + from := op.Type() + switch k := from.Kind(); { + case k == cc.Float, k == cc.Double: + p.w("%sInt128FromFloat%d(", p.task.crt, from.Size()*8) + return ")" + case k == cc.Int128: + return "" + case k == cc.UInt128: + p.w("(") + return ").Int128()" + case from.IsIntegerType() && from.IsSignedType(): + p.w("%sInt128FromInt%d(", p.task.crt, from.Size()*8) + return ")" + case from.IsIntegerType() && !from.IsSignedType(): + p.w("%sInt128FromUint%d(", p.task.crt, from.Size()*8) + return ")" + default: + panic(todo("", n.Position(), from, from.Alias())) + } +} + +func (p *project) convertToUint128(n cc.Node, op cc.Operand, to cc.Type, flags flags) string { + from := op.Type() + switch k := from.Kind(); { + case k == cc.Float, k == cc.Double: + p.w("%sUint128FromFloat%d(", p.task.crt, from.Size()*8) + return ")" + case k == cc.Int128: + p.w("(") + return ").Uint128()" + case k == cc.UInt128: + return "" + case from.IsIntegerType() && from.IsSignedType(): + p.w("%sUint128FromInt%d(", p.task.crt, from.Size()*8) + return ")" + case from.IsIntegerType() && !from.IsSignedType(): + p.w("%sUint128FromUint%d(", p.task.crt, from.Size()*8) + return ")" + default: + panic(todo("", n.Position(), from, from.Alias())) + } +} + +func (p *project) convertNil(n cc.Node, to cc.Type, flags flags) string { + switch to.Kind() { + case cc.Int128: + panic(todo("", pos(n))) + case cc.UInt128: + panic(todo("", pos(n))) + } + + p.w("%s(", p.typ(n, to)) + return ")" +} + +func (p *project) convert(n cc.Node, op cc.Operand, to cc.Type, flags flags) string { + if op == nil { + panic(todo("internal error")) + } + + from := op.Type() + switch from.Kind() { + case cc.Int128: + return p.convertFromInt128(n, op, to, flags) + case cc.UInt128: + return p.convertFromUint128(n, op, to, flags) + } + switch to.Kind() { + case cc.Int128: + return p.convertToInt128(n, op, to, flags) + case cc.UInt128: + return p.convertToUint128(n, op, to, flags) + } + + if flags&fForceRuntimeConv != 0 { + flags |= fForceConv + } + force := flags&fForceConv != 0 + if !force && from.IsScalarType() && from.Kind() == to.Kind() { + return "" + } + + if from.IsIntegerType() { + return p.convertInt(n, op, to, flags) + } + + if from == to { + return "" + } + + switch from.Kind() { + case cc.Ptr: + if !force && from.Kind() == to.Kind() { + return "" + } + + if to.IsIntegerType() { + p.w("%s(", p.typ(n, to)) + return ")" + } + + if to.Kind() == cc.Ptr { + return "" + } + + panic(todo("%v: force %v, %q %v -> %q %v", p.pos(n), force, from, from.Kind(), to, to.Kind())) + case cc.Function, cc.Struct, cc.Union: + if !force && from.Kind() == to.Kind() { + return "" + } + + trc("%p %p", from, to) + panic(todo("%q %v -> %q %v", from, from.Kind(), to, to.Kind())) + case cc.Double, cc.Float: + switch { + case to.IsIntegerType(): + p.w("%s(", p.helperType2(n, from, to)) + return ")" + default: + p.w("%s(", p.typ(n, to)) + return ")" + } + case cc.Array: + if from.Kind() == to.Kind() { + return "" + } + + switch to.Kind() { + case cc.Ptr: + return "" + } + + panic(todo("%q, %v -> %q, %v", from, from.Kind(), to.Kind())) + } + + panic(todo("%q -> %q", from, to)) +} + +func (p *project) convertInt(n cc.Node, op cc.Operand, to cc.Type, flags flags) string { + from := op.Type() + switch from.Kind() { + case cc.Int128: + panic(todo("", pos(n))) + case cc.UInt128: + panic(todo("", pos(n))) + } + switch to.Kind() { + case cc.Int128: + panic(todo("", pos(n))) + case cc.UInt128: + panic(todo("", pos(n))) + } + + force := flags&fForceConv != 0 + value := op.Value() + if value == nil || !to.IsIntegerType() { + if to.IsScalarType() { + p.w("%s(", p.typ(n, to)) + return ")" + } + + panic(todo("", op.Type(), to)) + } + + if flags&fForceRuntimeConv != 0 { + p.w("%s(", p.helperType2(n, op.Type(), to)) + return ")" + } + + switch { + case from.IsSignedType(): + switch { + case to.IsSignedType(): + switch x := value.(type) { + case cc.Int64Value: + switch to.Size() { + case 1: + if x >= math.MinInt8 && x <= math.MaxInt8 { + switch { + case !force && from.Size() == to.Size(): + return "" + default: + p.w("int8(") + return ")" + } + } + + p.w("%sInt8FromInt%d(", p.task.crt, from.Size()*8) + return ")" + case 2: + if x >= math.MinInt16 && x <= math.MaxInt16 { + switch { + case !force && from.Size() == to.Size(): + return "" + default: + p.w("int16(") + return ")" + } + } + + p.w("%sInt16FromInt%d(", p.task.crt, from.Size()*8) + return ")" + case 4: + if x >= math.MinInt32 && x <= math.MaxInt32 { + switch { + case !force && from.Size() == to.Size(): + return "" + default: + p.w("int32(") + return ")" + } + } + + p.w("%sInt32FromInt%d(", p.task.crt, from.Size()*8) + return ")" + case 8: + switch { + case !force && from.Size() == to.Size(): + return "" + default: + p.w("int64(") + return ")" + } + default: + panic(todo("%T(%v) %v -> %v", x, op.Value(), from, to)) + } + default: + panic(todo("%T(%v) %v -> %v", x, op.Value(), from, to)) + } + default: // to is unsigned + switch x := value.(type) { + case cc.Int64Value: + switch to.Size() { + case 1: + if x >= 0 && x <= math.MaxUint8 { + p.w("%s(", p.typ(n, to)) + return ")" + } + + p.w("%sUint8FromInt%d(", p.task.crt, from.Size()*8) + return ")" + case 2: + if x >= 0 && x <= math.MaxUint16 { + p.w("%s(", p.typ(n, to)) + return ")" + } + + p.w("%sUint16FromInt%d(", p.task.crt, from.Size()*8) + return ")" + case 4: + if x >= 0 && x <= math.MaxUint32 { + p.w("%s(", p.typ(n, to)) + return ")" + } + + p.w("%sUint32FromInt%d(", p.task.crt, from.Size()*8) + return ")" + case 8: + if x >= 0 { + p.w("uint64(") + return ")" + } + + p.w("%sUint64FromInt%d(", p.task.crt, from.Size()*8) + return ")" + default: + panic(todo("%T(%v) %v -> %v", x, op.Value(), from, to)) + } + case cc.Uint64Value: + switch to.Size() { + case 1: + if x <= math.MaxUint8 { + p.w("%s(", p.typ(n, to)) + return ")" + } + + p.w("%sUint8FromUint%d(", p.task.crt, from.Size()*8) + return ")" + case 2: + if x <= math.MaxUint16 { + p.w("%s(", p.typ(n, to)) + return ")" + } + + p.w("%sUint16FromUint%d(", p.task.crt, from.Size()*8) + return ")" + case 4: + if x <= math.MaxUint32 { + p.w("%s(", p.typ(n, to)) + return ")" + } + + p.w("%sUint32FromUint%d(", p.task.crt, from.Size()*8) + return ")" + case 8: + p.w("uint64(") + return ")" + default: + panic(todo("%T(%v) %v -> %v", x, op.Value(), from, to)) + } + default: + panic(todo("%T(%v) %v -> %v", x, op.Value(), from, to)) + } + } + default: // from is unsigned + switch { + case to.IsSignedType(): + switch x := value.(type) { + case cc.Uint64Value: + switch to.Size() { + case 1: + if x <= math.MaxInt8 { + p.w("int8(") + return ")" + } + + p.w("%sInt8FromUint%d(", p.task.crt, from.Size()*8) + return ")" + case 2: + if x <= math.MaxInt16 { + p.w("int16(") + return ")" + } + + p.w("%sInt16FromUint%d(", p.task.crt, from.Size()*8) + return ")" + case 4: + if x <= math.MaxInt32 { + p.w("int32(") + return ")" + } + + p.w("%sInt32FromUint%d(", p.task.crt, from.Size()*8) + return ")" + case 8: + if x <= math.MaxInt64 { + p.w("int64(") + return ")" + } + + p.w("%sInt64FromUint%d(", p.task.crt, from.Size()*8) + return ")" + default: + panic(todo("%T(%v) %v -> %v", x, op.Value(), from, to)) + } + default: + panic(todo("%T(%v) %v -> %v", x, op.Value(), from, to)) + } + default: // to is unsigned + switch x := value.(type) { + case cc.Uint64Value: + switch to.Size() { + case 1: + if x <= math.MaxUint8 { + switch { + case !force && from.Size() == 1: + return "" + default: + p.w("uint8(") + return ")" + } + } + + p.w("%sUint8FromUint%d(", p.task.crt, from.Size()*8) + return ")" + case 2: + if x <= math.MaxUint16 { + switch { + case !force && from.Size() == 2: + return "" + default: + p.w("uint16(") + return ")" + } + } + + p.w("%sUint16FromUint%d(", p.task.crt, from.Size()*8) + return ")" + case 4: + if x <= math.MaxUint32 { + switch { + case !force && from.Size() == 4: + return "" + default: + p.w("uint32(") + return ")" + } + } + + p.w("%sUint32FromUint%d(", p.task.crt, from.Size()*8) + return ")" + case 8: + switch { + case !force && from.Size() == 8: + return "" + default: + p.w("uint64(") + return ")" + } + default: + panic(todo("%T(%v) %v -> %v", x, op.Value(), from, to)) + } + default: + panic(todo("%T(%v) %v -> %v", x, op.Value(), from, to)) + } + } + } +} + +func nonZeroUintptr(n uintptr) string { + if n == 0 { + return "" + } + + return fmt.Sprintf("%+d", n) +} + +func alias(attr []*cc.AttributeSpecifier) (r cc.StringID) { + for _, v := range attr { + cc.Inspect(v, func(n cc.Node, entry bool) bool { + if !entry { + return true + } + + if x, ok := n.(*cc.AttributeValue); ok && x.Token.Value == idAlias { + switch y := x.ExpressionList.AssignmentExpression.Operand.Value().(type) { + case cc.StringValue: + r = cc.StringID(y) + return false + } + } + return true + }) + if r != 0 { + return r + } + } + return 0 +} + +func (p *project) tld(f *function, n *cc.InitDeclarator, sep string, staticLocal bool) { + d := n.Declarator + if d.IsExtern() && d.Linkage == cc.External && !d.IsTypedefName { + if alias := alias(attrs(d.Type())); alias != 0 { + p.capi = append(p.capi, d.Name().String()) + p.w("\n\nvar %s%s = %s\t// %v:\n", p.task.exportExterns, d.Name(), p.externs[alias].name, p.pos(d)) + return + } + } + + if _, ok := p.wanted[d]; !ok && !staticLocal { + isFn := d.Type().Kind() == cc.Function + if isFn && p.task.header && p.task.funcSig { + if nm := d.Name().String(); !strings.HasPrefix(nm, "__") { + p.w("\n\n") + t := p.tlds[d] + if t == nil { + t = &tld{} + t.name = p.tldScope.take(d.Name()) + } + p.functionSignature2(n, nil, d.Type(), t.name) + } + } + return + } + + tld := p.tlds[d] + if tld == nil { // Dead declaration. + return + } + + t := d.Type() + if d.IsTypedefName { + p.checkAttributes(t) + if _, ok := p.typedefsEmited[tld.name]; ok { + return + } + + p.typedefsEmited[tld.name] = struct{}{} + if t.Kind() != cc.Void { + p.w("%stype %s = %s; /* %v */", sep, tld.name, p.typ(n, t), p.pos(d)) + } + return + } + + switch n.Case { + case cc.InitDeclaratorDecl: // Declarator AttributeSpecifierList + p.w("%svar %s %s\t/* %v: */", sep, tld.name, p.typ(n, t), p.pos(n)) + switch t.Kind() { + case cc.Struct, cc.Union: + p.structs[t.Tag()].emit(p, nil) + } + case cc.InitDeclaratorInit: // Declarator AttributeSpecifierList '=' Initializer + if d.IsStatic() && d.Read == 0 && d.Write == 1 && n.Initializer.IsConst() { // Initialized with no side effects and unused. + break + } + + p.w("%svar %s ", sep, tld.name) + if !isAggregateTypeOrUnion(d.Type()) { + p.w("%s ", p.typ(n, d.Type())) + } + p.w("= ") + p.initializer(f, n.Initializer, d.Type(), d.StorageClass, tld) + p.w("; /* %v */", p.pos(d)) + default: + panic(todo("%v: internal error: %v", n.Position(), n.Case)) + } +} + +func (p *project) functionDefinition(n *cc.FunctionDefinition) { + // DeclarationSpecifiers Declarator DeclarationList CompoundStatement + if p.task.header && !p.task.funcSig { + return + } + + if _, ok := p.sharedFns[n]; ok { + if _, ok := p.sharedFnsEmitted[n]; ok { + return + } + + p.sharedFnsEmitted[n] = struct{}{} + } + + d := n.Declarator + if d.IsExtern() && d.Type().Inline() { + // https://gcc.gnu.org/onlinedocs/gcc/Inline.html + // + // If you specify both inline and extern in the function definition, then the + // definition is used only for inlining. In no case is the function compiled on + // its own, not even if you refer to its address explicitly. Such an address + // becomes an external reference, as if you had only declared the function, and + // had not defined it. + // + // This combination of inline and extern has almost the effect of a macro. The + // way to use it is to put a function definition in a header file with these + // keywords, and put another copy of the definition (lacking inline and extern) + // in a library file. The definition in the header file causes most calls to + // the function to be inlined. If any uses of the function remain, they refer + // to the single copy in the library. + return + } + + name := d.Name().String() + if _, ok := p.task.hide[name]; ok { + return + } + + if p.isMain && d.Linkage == cc.External && d.Read == 0 && !d.AddressTaken && len(p.task.asts) == 1 { + return + } + + if d.Linkage == cc.Internal && d.Read == 0 && !d.AddressTaken /*TODO- && strings.HasPrefix(name, "__") */ { + return + } + + tld := p.tlds[d] + if tld == nil { + return + } + + p.fn = name + + defer func() { p.fn = "" }() + + f := newFunction(p, n) + p.pass1 = true + p.compoundStatement(f, n.CompoundStatement, "", false, false, 0) + p.pass1 = false + p.w("\n\n") + p.functionDefinitionSignature(n, f, tld) + if p.task.header && p.task.funcSig { + return + } + + p.w(" ") + comment := fmt.Sprintf("/* %v: */", p.pos(d)) + if p.task.panicStubs { + p.w("%s{ panic(%q) }", comment, tld.name) + return + } + + brace := "{" + if need := f.off; need != 0 { + scope := f.blocks[n.CompoundStatement].scope + f.bpName = scope.take(idBp) + p.w("{%s\n%s := %s.Alloc(%d)\n", comment, f.bpName, f.tlsName, need) + p.w("defer %s.Free(%d)\n", f.tlsName, need) + for _, v := range d.Type().Parameters() { + if local := f.locals[v.Declarator()]; local != nil && local.isPinned { // Pin it. + p.w("*(*%s)(unsafe.Pointer(%s%s)) = %s\n", p.typ(v.Declarator(), paramTypeDecay(v.Declarator())), f.bpName, nonZeroUintptr(local.off), local.name) + } + } + comment = "" + brace = "" + } + if len(f.vlas) != 0 { + p.w("%s%s\n", brace, comment) + var vlas []*cc.Declarator + for k := range f.vlas { + vlas = append(vlas, k) + } + sort.Slice(vlas, func(i, j int) bool { + return vlas[i].NameTok().Seq() < vlas[j].NameTok().Seq() + }) + for _, v := range vlas { + local := f.locals[v] + switch { + case local.isPinned: + panic(todo("", v.Position())) + default: + p.w("var %s uintptr // %v: %v\n", local.name, p.pos(v), v.Type()) + } + } + switch { + case len(vlas) == 1: + p.w("defer %sXfree(%s, %s)\n", p.task.crt, f.tlsName, f.locals[vlas[0]].name) + default: + p.w("defer func() {\n") + for _, v := range vlas { + p.w("%sXfree(%s, %s)\n", p.task.crt, f.tlsName, f.locals[v].name) + } + p.w("\n}()\n") + } + } + p.compoundStatement(f, n.CompoundStatement, comment, false, true, 0) + p.w(";") + p.flushLocalTaggesStructs() + p.flushStaticTLDs() +} + +func (p *project) flushLocalTaggesStructs() { + for _, v := range p.localTaggedStructs { + v() + } + p.localTaggedStructs = nil +} + +func (p *project) flushStaticTLDs() { + for _, v := range p.staticQueue { + p.tld(nil, v, "\n", true) + } + p.staticQueue = nil +} + +func (p *project) compoundStatement(f *function, n *cc.CompoundStatement, scomment string, forceNoBraces, fnBody bool, mode exprMode) { + if p.task.panicStubs { + return + } + + // '{' BlockItemList '}' + brace := (!n.IsJumpTarget() || n.Parent() == nil) && !forceNoBraces + if brace && len(f.vlas) == 0 && (n.Parent() != nil || f.off == 0) { + p.w("{%s", scomment) + } + if fnBody { + p.instrument(n) + } + sv := f.block + f.block = f.blocks[n] + if f.block.topDecl { + for _, v := range f.block.decls { + p.declaration(f, v, true) + } + } + var r *cc.JumpStatement + for list := n.BlockItemList; list != nil; list = list.BlockItemList { + m := mode + if list.BlockItemList != nil { + m = 0 + } + r = p.blockItem(f, list.BlockItem, m) + } + if n.Parent() == nil && r == nil && f.rt.Kind() != cc.Void { + p.w("\nreturn ") + p.zeroValue(n, f.rt) + } + s := tidyComment("\n", &n.Token2) + p.w("%s", s) + if brace { + if !strings.HasSuffix(s, "\n") { + p.w("\n") + } + p.w("}") + } + f.block = sv +} + +func (p *project) zeroValue(n cc.Node, t cc.Type) { + if t.IsScalarType() { + p.w("%s(0)", p.typ(n, t)) + return + } + + switch t.Kind() { + case cc.Struct, cc.Union: + p.w("%s{}", p.typ(n, t)) + default: + panic(todo("", t, t.Kind())) + } +} + +func (p *project) blockItem(f *function, n *cc.BlockItem, mode exprMode) (r *cc.JumpStatement) { + switch n.Case { + case cc.BlockItemDecl: // Declaration + p.declaration(f, n.Declaration, false) + case cc.BlockItemStmt: // Statement + r = p.statement(f, n.Statement, false, false, false, mode) + p.w(";") + if r == nil { + p.instrument(n) + } + case cc.BlockItemLabel: // LabelDeclaration + panic(todo("", p.pos(n))) + p.w(";") + case cc.BlockItemFuncDef: // DeclarationSpecifiers Declarator CompoundStatement + p.err(n, "nested functions not supported") + p.w(";") + case cc.BlockItemPragma: // PragmaSTDC + panic(todo("", p.pos(n))) + p.w(";") + default: + panic(todo("%v: internal error: %v", n.Position(), n.Case)) + } + return r +} + +func (p *project) instrument(n cc.Node) { + if p.task.cover { + p.w("%sCover();", p.task.crt) + } + if p.task.coverC { + p.w("%sCoverC(%q);", p.task.crt, p.pos(n).String()+" "+p.fn) + } + if p.task.watch { + p.w("%sWatch();", p.task.crt) + } +} + +var dummyJumpStatement = &cc.JumpStatement{} + +func (p *project) statement(f *function, n *cc.Statement, forceCompoundStmtBrace, forceNoBraces, switchBlock bool, mode exprMode) (r *cc.JumpStatement) { + if forceCompoundStmtBrace { + p.w(" {") + if !switchBlock { + p.instrument(n) + } + } + switch n.Case { + case cc.StatementLabeled: // LabeledStatement + r = p.labeledStatement(f, n.LabeledStatement) + case cc.StatementCompound: // CompoundStatement + if !forceCompoundStmtBrace { + p.w("%s", n.CompoundStatement.Token.Sep) + } + if f.hasJumps { + forceNoBraces = true + } + p.compoundStatement(f, n.CompoundStatement, "", forceCompoundStmtBrace || forceNoBraces, false, 0) + case cc.StatementExpr: // ExpressionStatement + if mode != 0 { + p.w("return ") + e := n.ExpressionStatement.Expression + p.expression(f, e, e.Operand.Type(), exprValue, 0) + r = dummyJumpStatement + break + } + + p.expressionStatement(f, n.ExpressionStatement) + case cc.StatementSelection: // SelectionStatement + p.selectionStatement(f, n.SelectionStatement) + case cc.StatementIteration: // IterationStatement + p.iterationStatement(f, n.IterationStatement) + case cc.StatementJump: // JumpStatement + r = p.jumpStatement(f, n.JumpStatement) + case cc.StatementAsm: // AsmStatement + // AsmStatement: + // Asm AttributeSpecifierList ';' + // Asm: + // "__asm__" AsmQualifierList '(' STRINGLITERAL AsmArgList ')' + if n.AsmStatement.Asm.Token3.Value == 0 && n.AsmStatement.Asm.AsmArgList == nil { + break + } + + p.w("panic(`%s: assembler statements not supported`)", n.Position()) + default: + panic(todo("%v: internal error: %v", n.Position(), n.Case)) + } + if forceCompoundStmtBrace { + p.w("}") + } + return r +} + +func (p *project) jumpStatement(f *function, n *cc.JumpStatement) (r *cc.JumpStatement) { + p.w("%s", tidyComment("\n", n)) + if _, ok := n.Context().(*cc.SelectionStatement); ok && f.ifCtx == nil { + switch f.switchCtx { + case inSwitchCase: + f.switchCtx = inSwitchSeenBreak + case inSwitchSeenBreak: + // nop but TODO + case inSwitchFlat: + // ok + default: + panic(todo("", n.Position(), f.switchCtx)) + } + } + + switch n.Case { + case cc.JumpStatementGoto: // "goto" IDENTIFIER ';' + p.w("goto %s", f.labelNames[n.Token2.Value]) + case cc.JumpStatementGotoExpr: // "goto" '*' Expression ';' + panic(todo("", p.pos(n))) + case cc.JumpStatementContinue: // "continue" ';' + switch { + case f.continueCtx != 0: + p.w("goto __%d", f.continueCtx) + default: + p.w("continue") + } + case cc.JumpStatementBreak: // "break" ';' + switch { + case f.breakCtx != 0: + p.w("goto __%d", f.breakCtx) + default: + p.w("break") + } + case cc.JumpStatementReturn: // "return" Expression ';' + r = n + switch { + case f.rt != nil && f.rt.Kind() == cc.Void: + if n.Expression != nil { + p.expression(f, n.Expression, n.Expression.Operand.Type(), exprVoid, 0) + p.w(";") + } + p.w("return") + case f.rt != nil && f.rt.Kind() != cc.Void: + if n.Expression != nil { + p.expression(f, n.Expression, f.rt, exprCondReturn, 0) + break + } + + p.w("return ") + p.zeroValue(n, f.rt) + default: + if n.Expression != nil { + p.expression(f, n.Expression, n.Expression.Operand.Type(), exprVoid, 0) + p.w(";") + } + p.w("return") + } + default: + panic(todo("%v: internal error: %v", n.Position(), n.Case)) + } + return r +} + +func (p *project) expression(f *function, n *cc.Expression, t cc.Type, mode exprMode, flags flags) { + switch mode { + case exprVoid: + p.expressionVoid(f, n, t, mode, flags) + case exprValue, exprCondReturn, exprCondInit: + p.expressionValue(f, n, t, mode, flags) + case exprBool: + p.expressionBool(f, n, t, mode, flags) + case exprAddrOf: + p.expressionAddrOf(f, n, t, mode, flags) + case exprPSelect: + p.expressionPSelect(f, n, t, mode, flags) + case exprLValue: + p.expressionLValue(f, n, t, mode, flags) + case exprFunc: + p.expressionFunc(f, n, t, mode, flags) + case exprSelect: + p.expressionSelect(f, n, t, mode, flags) + case exprDecay: + p.expressionDecay(f, n, t, mode, flags) + default: + panic(todo("", n.Position(), mode)) + } +} + +func (p *project) expressionDecay(f *function, n *cc.Expression, t cc.Type, mode exprMode, flags flags) { + switch n.Case { + case cc.ExpressionAssign: // AssignmentExpression + p.assignmentExpression(f, n.AssignmentExpression, t, mode, flags) + case cc.ExpressionComma: // Expression ',' AssignmentExpression + p.w("func() uintptr {") + p.expression(f, n.Expression, n.Expression.Operand.Type(), exprVoid, flags) + p.w("; return ") + p.assignmentExpression(f, n.AssignmentExpression, t, mode, flags) + p.w("}()") + default: + panic(todo("%v: internal error: %v", n.Position(), n.Case)) + } +} + +func (p *project) expressionSelect(f *function, n *cc.Expression, t cc.Type, mode exprMode, flags flags) { + switch n.Case { + case cc.ExpressionAssign: // AssignmentExpression + p.assignmentExpression(f, n.AssignmentExpression, t, mode, flags) + case cc.ExpressionComma: // Expression ',' AssignmentExpression + panic(todo("", p.pos(n))) + default: + panic(todo("%v: internal error: %v", n.Position(), n.Case)) + } +} + +func (p *project) expressionFunc(f *function, n *cc.Expression, t cc.Type, mode exprMode, flags flags) { + switch n.Case { + case cc.ExpressionAssign: // AssignmentExpression + p.assignmentExpression(f, n.AssignmentExpression, t, mode, flags) + case cc.ExpressionComma: // Expression ',' AssignmentExpression + panic(todo("", p.pos(n))) + default: + panic(todo("%v: internal error: %v", n.Position(), n.Case)) + } +} + +func (p *project) expressionLValue(f *function, n *cc.Expression, t cc.Type, mode exprMode, flags flags) { + switch n.Case { + case cc.ExpressionAssign: // AssignmentExpression + p.assignmentExpression(f, n.AssignmentExpression, t, mode, flags) + case cc.ExpressionComma: // Expression ',' AssignmentExpression + panic(todo("", p.pos(n))) + default: + panic(todo("%v: internal error: %v", n.Position(), n.Case)) + } +} + +func (p *project) expressionPSelect(f *function, n *cc.Expression, t cc.Type, mode exprMode, flags flags) { + switch n.Case { + case cc.ExpressionAssign: // AssignmentExpression + p.assignmentExpression(f, n.AssignmentExpression, t, mode, flags) + case cc.ExpressionComma: // Expression ',' AssignmentExpression + panic(todo("", p.pos(n))) + default: + panic(todo("%v: internal error: %v", n.Position(), n.Case)) + } +} + +func (p *project) expressionAddrOf(f *function, n *cc.Expression, t cc.Type, mode exprMode, flags flags) { + switch n.Case { + case cc.ExpressionAssign: // AssignmentExpression + p.assignmentExpression(f, n.AssignmentExpression, t, mode, flags) + case cc.ExpressionComma: // Expression ',' AssignmentExpression + p.w(" func() uintptr {") + p.expression(f, n.Expression, n.Expression.Operand.Type(), exprVoid, flags) + p.w("; return ") + p.assignmentExpression(f, n.AssignmentExpression, t, mode, flags) + p.w("}()") + default: + panic(todo("%v: internal error: %v", n.Position(), n.Case)) + } +} + +func (p *project) expressionBool(f *function, n *cc.Expression, t cc.Type, mode exprMode, flags flags) { + switch n.Case { + case cc.ExpressionAssign: // AssignmentExpression + p.assignmentExpression(f, n.AssignmentExpression, t, mode, flags) + case cc.ExpressionComma: // Expression ',' AssignmentExpression + p.w("func() bool {") + p.expression(f, n.Expression, n.Expression.Operand.Type(), exprVoid, flags) + p.w("; return ") + p.assignmentExpression(f, n.AssignmentExpression, n.AssignmentExpression.Operand.Type(), mode, flags) + p.w("}()") + default: + panic(todo("%v: internal error: %v", n.Position(), n.Case)) + } +} + +func (p *project) expressionValue(f *function, n *cc.Expression, t cc.Type, mode exprMode, flags flags) { + switch n.Case { + case cc.ExpressionAssign: // AssignmentExpression + p.assignmentExpression(f, n.AssignmentExpression, t, mode, flags) + case cc.ExpressionComma: // Expression ',' AssignmentExpression + if mode == exprCondReturn { + p.expression(f, n.Expression, n.Expression.Operand.Type(), exprVoid, flags) + p.w("; return ") + p.assignmentExpression(f, n.AssignmentExpression, n.AssignmentExpression.Operand.Type(), exprValue, flags) + return + } + + switch { + case n.AssignmentExpression.Operand.Type().Kind() == cc.Array: + p.expressionDecay(f, n, t, exprDecay, flags) + default: + defer p.w("%s", p.convertType(n, n.Operand.Type(), t, flags)) + p.w("func() %v {", p.typ(n, n.AssignmentExpression.Operand.Type())) + p.expression(f, n.Expression, n.Expression.Operand.Type(), exprVoid, flags) + p.w("; return ") + p.assignmentExpression(f, n.AssignmentExpression, n.AssignmentExpression.Operand.Type(), exprValue, flags) + p.w("}()") + } + default: + panic(todo("%v: internal error: %v", n.Position(), n.Case)) + } +} + +func (p *project) expressionVoid(f *function, n *cc.Expression, t cc.Type, mode exprMode, flags flags) { + switch n.Case { + case cc.ExpressionAssign: // AssignmentExpression + p.assignmentExpression(f, n.AssignmentExpression, t, mode, flags) + case cc.ExpressionComma: // Expression ',' AssignmentExpression + p.expression(f, n.Expression, t, mode, flags) + p.w(";") + p.assignmentExpression(f, n.AssignmentExpression, t, mode, flags) + default: + panic(todo("%v: internal error: %v", n.Position(), n.Case)) + } +} + +func (p *project) opKind(f *function, d declarator, t cc.Type) opKind { + switch { + case p.isArrayParameter(d, t): + return opArrayParameter + case !p.pass1 && p.isArray(f, d, t): + return opArray + case t.Kind() == cc.Union: + return opUnion + case t.Kind() == cc.Struct: + return opStruct + case t.IsBitFieldType(): + return opBitfield + case t.Kind() == cc.Function: + return opFunction + default: + return opNormal + } +} + +func (p *project) assignmentExpression(f *function, n *cc.AssignmentExpression, t cc.Type, mode exprMode, flags flags) { + switch mode { + case exprVoid: + p.assignmentExpressionVoid(f, n, t, mode, flags) + case exprValue, exprCondReturn, exprCondInit: + p.assignmentExpressionValue(f, n, t, mode, flags) + case exprAddrOf: + p.assignmentExpressionAddrOf(f, n, t, mode, flags) + case exprBool: + p.assignmentExpressionBool(f, n, t, mode, flags) + case exprLValue: + p.assignmentExpressionLValue(f, n, t, mode, flags) + case exprPSelect: + p.assignmentExpressionPSelect(f, n, t, mode, flags) + case exprFunc: + p.assignmentExpressionFunc(f, n, t, mode, flags) + case exprSelect: + p.assignmentExpressionSelect(f, n, t, mode, flags) + case exprDecay: + p.assignmentExpressionDecay(f, n, t, mode, flags) + default: + panic(todo("", n.Position(), mode)) + } +} + +func (p *project) assignmentExpressionDecay(f *function, n *cc.AssignmentExpression, t cc.Type, mode exprMode, flags flags) { + switch n.Case { + case cc.AssignmentExpressionCond: // ConditionalExpression + p.conditionalExpression(f, n.ConditionalExpression, t, mode, flags) + case cc.AssignmentExpressionAssign: // UnaryExpression '=' AssignmentExpression + panic(todo("", p.pos(n))) + case cc.AssignmentExpressionMul: // UnaryExpression "*=" AssignmentExpression + panic(todo("", p.pos(n))) + case cc.AssignmentExpressionDiv: // UnaryExpression "/=" AssignmentExpression + panic(todo("", p.pos(n))) + case cc.AssignmentExpressionMod: // UnaryExpression "%=" AssignmentExpression + panic(todo("", p.pos(n))) + case cc.AssignmentExpressionAdd: // UnaryExpression "+=" AssignmentExpression + panic(todo("", p.pos(n))) + case cc.AssignmentExpressionSub: // UnaryExpression "-=" AssignmentExpression + panic(todo("", p.pos(n))) + case cc.AssignmentExpressionLsh: // UnaryExpression "<<= AssignmentExpression + panic(todo("", p.pos(n))) + case cc.AssignmentExpressionRsh: // UnaryExpression ">>=" AssignmentExpression + panic(todo("", p.pos(n))) + case cc.AssignmentExpressionAnd: // UnaryExpression "&=" AssignmentExpression + panic(todo("", p.pos(n))) + case cc.AssignmentExpressionXor: // UnaryExpression "^=" AssignmentExpression + panic(todo("", p.pos(n))) + case cc.AssignmentExpressionOr: // UnaryExpression "|=" AssignmentExpression + panic(todo("", p.pos(n))) + default: + panic(todo("%v: internal error: %v", n.Position(), n.Case)) + } +} + +func (p *project) assignmentExpressionSelect(f *function, n *cc.AssignmentExpression, t cc.Type, mode exprMode, flags flags) { + switch n.Case { + case cc.AssignmentExpressionCond: // ConditionalExpression + p.conditionalExpression(f, n.ConditionalExpression, t, mode, flags) + case cc.AssignmentExpressionAssign: // UnaryExpression '=' AssignmentExpression + panic(todo("", p.pos(n))) + case cc.AssignmentExpressionMul: // UnaryExpression "*=" AssignmentExpression + panic(todo("", p.pos(n))) + case cc.AssignmentExpressionDiv: // UnaryExpression "/=" AssignmentExpression + panic(todo("", p.pos(n))) + case cc.AssignmentExpressionMod: // UnaryExpression "%=" AssignmentExpression + panic(todo("", p.pos(n))) + case cc.AssignmentExpressionAdd: // UnaryExpression "+=" AssignmentExpression + panic(todo("", p.pos(n))) + case cc.AssignmentExpressionSub: // UnaryExpression "-=" AssignmentExpression + panic(todo("", p.pos(n))) + case cc.AssignmentExpressionLsh: // UnaryExpression "<<=" AssignmentExpression + panic(todo("", p.pos(n))) + case cc.AssignmentExpressionRsh: // UnaryExpression ">>=" AssignmentExpression + panic(todo("", p.pos(n))) + case cc.AssignmentExpressionAnd: // UnaryExpression "&=" AssignmentExpression + panic(todo("", p.pos(n))) + case cc.AssignmentExpressionXor: // UnaryExpression "^=" AssignmentExpression + panic(todo("", p.pos(n))) + case cc.AssignmentExpressionOr: // UnaryExpression "|=" AssignmentExpression + panic(todo("", p.pos(n))) + default: + panic(todo("%v: internal error: %v", n.Position(), n.Case)) + } +} + +func (p *project) assignmentExpressionFunc(f *function, n *cc.AssignmentExpression, t cc.Type, mode exprMode, flags flags) { + switch n.Case { + case cc.AssignmentExpressionCond: // ConditionalExpression + p.conditionalExpression(f, n.ConditionalExpression, t, mode, flags) + case cc.AssignmentExpressionAssign: // UnaryExpression '=' AssignmentExpression + panic(todo("", p.pos(n))) + case cc.AssignmentExpressionMul: // UnaryExpression "*=" AssignmentExpression + panic(todo("", p.pos(n))) + case cc.AssignmentExpressionDiv: // UnaryExpression "/=" AssignmentExpression + panic(todo("", p.pos(n))) + case cc.AssignmentExpressionMod: // UnaryExpression "%=" AssignmentExpression + panic(todo("", p.pos(n))) + case cc.AssignmentExpressionAdd: // UnaryExpression "+=" AssignmentExpression + panic(todo("", p.pos(n))) + case cc.AssignmentExpressionSub: // UnaryExpression "-=" AssignmentExpression + panic(todo("", p.pos(n))) + case cc.AssignmentExpressionLsh: // UnaryExpremode, ssion "<<= + panic(todo("", p.pos(n))) + case cc.AssignmentExpressionRsh: // UnaryExpression ">>=" AssignmentExpression + panic(todo("", p.pos(n))) + case cc.AssignmentExpressionAnd: // UnaryExpression "&=" AssignmentExpression + panic(todo("", p.pos(n))) + case cc.AssignmentExpressionXor: // UnaryExpression "^=" AssignmentExpression + panic(todo("", p.pos(n))) + case cc.AssignmentExpressionOr: // UnaryExpression "|=" AssignmentExpression + panic(todo("", p.pos(n))) + default: + panic(todo("%v: internal error: %v", n.Position(), n.Case)) + } +} + +func (p *project) assignmentExpressionPSelect(f *function, n *cc.AssignmentExpression, t cc.Type, mode exprMode, flags flags) { + switch n.Case { + case cc.AssignmentExpressionCond: // ConditionalExpression + p.conditionalExpression(f, n.ConditionalExpression, t, mode, flags) + case cc.AssignmentExpressionAssign: // UnaryExpression '=' AssignmentExpression + p.w("(*%s)(unsafe.Pointer(", p.typ(n, n.AssignmentExpression.Operand.Type().Elem())) + p.assignmentExpression(f, n, t, exprValue, flags) + p.w("))") + case cc.AssignmentExpressionMul: // UnaryExpression "*=" AssignmentExpression + panic(todo("", p.pos(n))) + case cc.AssignmentExpressionDiv: // UnaryExpression "/=" AssignmentExpression + panic(todo("", p.pos(n))) + case cc.AssignmentExpressionMod: // UnaryExpression "%=" AssignmentExpression + panic(todo("", p.pos(n))) + case cc.AssignmentExpressionAdd: // UnaryExpression "+=" AssignmentExpression + panic(todo("", p.pos(n))) + case cc.AssignmentExpressionSub: // UnaryExpression "-=" AssignmentExpression + panic(todo("", p.pos(n))) + case cc.AssignmentExpressionLsh: // UnaryExpression "<<=" AssignmentExpression + panic(todo("", p.pos(n))) + case cc.AssignmentExpressionRsh: // UnaryExpression ">>=" AssignmentExpression + panic(todo("", p.pos(n))) + case cc.AssignmentExpressionAnd: // UnaryExpression "&=" AssignmentExpression + panic(todo("", p.pos(n))) + case cc.AssignmentExpressionXor: // UnaryExpression "^=" AssignmentExpression + panic(todo("", p.pos(n))) + case cc.AssignmentExpressionOr: // UnaryExpression "|=" AssignmentExpression + panic(todo("", p.pos(n))) + default: + panic(todo("%v: internal error: %v", n.Position(), n.Case)) + } +} + +func (p *project) assignmentExpressionLValue(f *function, n *cc.AssignmentExpression, t cc.Type, mode exprMode, flags flags) { + switch n.Case { + case cc.AssignmentExpressionCond: // ConditionalExpression + p.conditionalExpression(f, n.ConditionalExpression, t, mode, flags) + case cc.AssignmentExpressionAssign: // UnaryExpression '=' AssignmentExpression + panic(todo("", p.pos(n))) + case cc.AssignmentExpressionMul: // UnaryExpression "*=" AssignmentExpression + panic(todo("", p.pos(n))) + case cc.AssignmentExpressionDiv: // UnaryExpression "/=" AssignmentExpression + panic(todo("", p.pos(n))) + case cc.AssignmentExpressionMod: // UnaryExpression "%=" AssignmentExpression + panic(todo("", p.pos(n))) + case cc.AssignmentExpressionAdd: // UnaryExpression "+=" AssignmentExpression + panic(todo("", p.pos(n))) + case cc.AssignmentExpressionSub: // UnaryExpression "-=" AssignmentExpression + panic(todo("", p.pos(n))) + case cc.AssignmentExpressionLsh: // UnaryExpression "<<=" AssignmentExpression + panic(todo("", p.pos(n))) + case cc.AssignmentExpressionRsh: // UnaryExpression ">>=" AssignmentExpression + panic(todo("", p.pos(n))) + case cc.AssignmentExpressionAnd: // UnaryExpression "&=" AssignmentExpression + panic(todo("", p.pos(n))) + case cc.AssignmentExpressionXor: // UnaryExpression "^=" AssignmentExpression + panic(todo("", p.pos(n))) + case cc.AssignmentExpressionOr: // UnaryExpression "|=" AssignmentExpression + panic(todo("", p.pos(n))) + default: + panic(todo("%v: internal error: %v", n.Position(), n.Case)) + } +} + +func (p *project) assignmentExpressionBool(f *function, n *cc.AssignmentExpression, t cc.Type, mode exprMode, flags flags) { + switch n.Case { + case cc.AssignmentExpressionCond: // ConditionalExpression + p.conditionalExpression(f, n.ConditionalExpression, t, mode, flags) + default: + // case cc.AssignmentExpressionAssign: // UnaryExpression '=' AssignmentExpression + // case cc.AssignmentExpressionMul: // UnaryExpression "*=" AssignmentExpression + // case cc.AssignmentExpressionDiv: // UnaryExpression "/=" AssignmentExpression + // case cc.AssignmentExpressionMod: // UnaryExpression "%=" AssignmentExpression + // case cc.AssignmentExpressionAdd: // UnaryExpression "+=" AssignmentExpression + // case cc.AssignmentExpressionSub: // UnaryExpression "-=" AssignmentExpression + // case cc.AssignmentExpressionLsh: // UnaryExpression "<<=" AssignmentExpression + // case cc.AssignmentExpressionRsh: // UnaryExpression ">>=" AssignmentExpression + // case cc.AssignmentExpressionAnd: // UnaryExpression "&=" AssignmentExpression + // case cc.AssignmentExpressionXor: // UnaryExpression "^=" AssignmentExpression + // case cc.AssignmentExpressionOr: // UnaryExpression "|=" AssignmentExpression + p.w("(") + defer p.w(")") + defer p.w(" != 0 ") + p.assignmentExpression(f, n, t, exprValue, flags) + } +} + +func (p *project) assignmentExpressionAddrOf(f *function, n *cc.AssignmentExpression, t cc.Type, mode exprMode, flags flags) { + switch n.Case { + case cc.AssignmentExpressionCond: // ConditionalExpression + p.conditionalExpression(f, n.ConditionalExpression, t, mode, flags) + case cc.AssignmentExpressionAssign: // UnaryExpression '=' AssignmentExpression + p.assignmentExpressionValueAddrOf(f, n, t, mode, flags) + case cc.AssignmentExpressionMul: // UnaryExpression "*=" AssignmentExpression + panic(todo("", p.pos(n))) + case cc.AssignmentExpressionDiv: // UnaryExpression "/=" AssignmentExpression + panic(todo("", p.pos(n))) + case cc.AssignmentExpressionMod: // UnaryExpression "%=" AssignmentExpression + panic(todo("", p.pos(n))) + case cc.AssignmentExpressionAdd: // UnaryExpression "+=" AssignmentExpression + panic(todo("", p.pos(n))) + case cc.AssignmentExpressionSub: // UnaryExpression "-=" AssignmentExpression + panic(todo("", p.pos(n))) + case cc.AssignmentExpressionLsh: // UnaryExpression "<<=" AssignmentExpression + panic(todo("", p.pos(n))) + case cc.AssignmentExpressionRsh: // UnaryExpression ">>=" AssignmentExpression + panic(todo("", p.pos(n))) + case cc.AssignmentExpressionAnd: // UnaryExpression "&=" AssignmentExpression + panic(todo("", p.pos(n))) + case cc.AssignmentExpressionXor: // UnaryExpression "^=" AssignmentExpression + panic(todo("", p.pos(n))) + case cc.AssignmentExpressionOr: // UnaryExpression "|=" AssignmentExpression + panic(todo("", p.pos(n))) + default: + panic(todo("%v: internal error: %v", n.Position(), n.Case)) + } +} + +func (p *project) assignmentExpressionValueAddrOf(f *function, n *cc.AssignmentExpression, t cc.Type, mode exprMode, flags flags) { + // UnaryExpression '=' AssignmentExpression + if mode == exprCondReturn { + panic(todo("", p.pos(n))) + } + + lhs := n.UnaryExpression + switch k := p.opKind(f, lhs, lhs.Operand.Type()); k { + case opStruct, opUnion: + p.assignmentExpressionValueAssignStructAddrof(f, n, n.Operand.Type(), mode, flags) + default: + panic(todo("", n.Position(), k)) + } +} + +func (p *project) assignmentExpressionValueAssignStructAddrof(f *function, n *cc.AssignmentExpression, t cc.Type, mode exprMode, flags flags) { + // UnaryExpression '=' AssignmentExpression + lhs := n.UnaryExpression.Operand.Type() + rhs := n.AssignmentExpression.Operand.Type() + if lhs.Kind() == cc.Array || rhs.Kind() == cc.Array { + panic(todo("", p.pos(n))) + } + + if d := n.UnaryExpression.Declarator(); d != nil { + if local := f.locals[d]; local != nil { + if local.isPinned { + if !p.pass1 { + p.w("%sXmemmove(tls, ", p.task.crt) + p.unaryExpression(f, n.UnaryExpression, lhs, exprAddrOf, flags) + p.w(", ") + p.assignmentExpression(f, n.AssignmentExpression, rhs, exprAddrOf, flags) + p.w(", %d)", lhs.Size()) + return + } + } + + if !p.pass1 { + panic(todo("", p.pos(n))) + } + } + } + + p.w("%sXmemmove(tls, ", p.task.crt) + p.unaryExpression(f, n.UnaryExpression, lhs, exprAddrOf, flags) + p.w(", ") + p.assignmentExpression(f, n.AssignmentExpression, rhs, exprAddrOf, flags) + p.w(", %d)", lhs.Size()) +} + +func (p *project) assignmentExpressionValue(f *function, n *cc.AssignmentExpression, t cc.Type, mode exprMode, flags flags) { + switch n.Case { + case cc.AssignmentExpressionCond: // ConditionalExpression + p.conditionalExpression(f, n.ConditionalExpression, t, mode, flags) + case cc.AssignmentExpressionAssign: // UnaryExpression '=' AssignmentExpression + p.assignmentExpressionValueAssign(f, n, t, mode, flags) + case cc.AssignmentExpressionMul: // UnaryExpression "*=" AssignmentExpression + p.assignOp(f, n, t, mode, "*", "Mul", flags) + case cc.AssignmentExpressionDiv: // UnaryExpression "/=" AssignmentExpression + p.assignOp(f, n, t, mode, "/", "Div", flags) + case cc.AssignmentExpressionMod: // UnaryExpression "%=" AssignmentExpression + p.assignOp(f, n, t, mode, "%", "Rem", flags) + case cc.AssignmentExpressionAdd: // UnaryExpression "+=" AssignmentExpression + p.assignOp(f, n, t, mode, "+", "Add", flags) + case cc.AssignmentExpressionSub: // UnaryExpression "-=" AssignmentExpression + p.assignOp(f, n, t, mode, "-", "Sub", flags) + case cc.AssignmentExpressionLsh: // UnaryExpremode, ssion "<<= + p.assignOp(f, n, t, mode, "<<", "Shl", flags) + case cc.AssignmentExpressionRsh: // UnaryExpression ">>=" AssignmentExpression + p.assignOp(f, n, t, mode, ">>", "Shr", flags) + case cc.AssignmentExpressionAnd: // UnaryExpression "&=" AssignmentExpression + p.assignOp(f, n, t, mode, "&", "And", flags) + case cc.AssignmentExpressionXor: // UnaryExpression "^=" AssignmentExpression + p.assignOp(f, n, t, mode, "^", "Xor", flags) + case cc.AssignmentExpressionOr: // UnaryExpression "|=" AssignmentExpression + p.assignOp(f, n, t, mode, "|", "Or", flags) + default: + panic(todo("%v: internal error: %v", n.Position(), n.Case)) + } +} + +func (p *project) assignmentExpressionValueAssign(f *function, n *cc.AssignmentExpression, t cc.Type, mode exprMode, flags flags) { + // UnaryExpression '=' AssignmentExpression + if mode == exprCondReturn { + p.w("return ") + } + lhs := n.UnaryExpression + switch k := p.opKind(f, lhs, lhs.Operand.Type()); k { + case opNormal: + p.assignmentExpressionValueAssignNormal(f, n, t, mode, flags) + case opBitfield: + p.assignmentExpressionValueAssignBitfield(f, n, t, mode, flags) + case opStruct, opUnion: + p.assignmentExpressionValueAssignStruct(f, n, t, mode, flags) + default: + panic(todo("", n.Position(), k)) + } +} + +func (p *project) assignmentExpressionValueAssignStruct(f *function, n *cc.AssignmentExpression, t cc.Type, mode exprMode, flags flags) { + // UnaryExpression '=' AssignmentExpression + lhs := n.UnaryExpression.Operand.Type() + rhs := n.AssignmentExpression.Operand.Type() + if lhs.Kind() == cc.Array || rhs.Kind() == cc.Array { + panic(todo("", p.pos(n))) + } + + p.w(" func() %s { __v := ", p.typ(n, lhs)) + p.assignmentExpression(f, n.AssignmentExpression, rhs, exprValue, flags) + p.w(";") + p.unaryExpression(f, n.UnaryExpression, lhs, exprLValue, flags) + p.w(" = __v; return __v}()") +} + +func (p *project) assignmentExpressionValueAssignBitfield(f *function, n *cc.AssignmentExpression, t cc.Type, mode exprMode, flags flags) { + if d := n.UnaryExpression.Declarator(); d != nil { + panic(todo("", p.pos(n))) + } + + lhs := n.UnaryExpression + lt := lhs.Operand.Type() + bf := lt.BitField() + defer p.w("%s", p.convertType(n, lt, t, flags)) + p.w("%sAssignBitFieldPtr%d%s(", p.task.crt, bf.BitFieldBlockWidth(), p.bfHelperType(lt)) + p.unaryExpression(f, lhs, lt, exprAddrOf, flags) + p.w(", ") + p.assignmentExpression(f, n.AssignmentExpression, lt, exprValue, flags) + p.w(", %d, %d, %#x)", bf.BitFieldWidth(), bf.BitFieldOffset(), bf.Mask()) +} + +func (p *project) assignmentExpressionValueAssignNormal(f *function, n *cc.AssignmentExpression, t cc.Type, mode exprMode, flags flags) { + if d := n.UnaryExpression.Declarator(); d != nil { + if !d.Type().IsScalarType() { + panic(todo("", p.pos(n))) + } + + if local := f.locals[d]; local != nil { + if local.isPinned { + defer p.w(")%s", p.convertType(n, d.Type(), t, flags)) + p.w("%sAssignPtr%s(", p.task.crt, p.helperType(d, d.Type())) + p.w("%s%s /* %s */", f.bpName, nonZeroUintptr(local.off), local.name) + p.w(", ") + p.assignmentExpression(f, n.AssignmentExpression, n.UnaryExpression.Operand.Type(), exprValue, flags) + return + } + + defer p.w(")%s", p.convertType(n, d.Type(), t, flags)) + p.w("%sAssign%s(&%s, ", p.task.crt, p.helperType(n, d.Type()), local.name) + p.assignmentExpression(f, n.AssignmentExpression, n.UnaryExpression.Operand.Type(), exprValue, flags) + return + } + } + + defer p.w(")%s", p.convertType(n, n.UnaryExpression.Operand.Type(), t, flags)) + p.w("%sAssignPtr%s(", p.task.crt, p.helperType(n, n.UnaryExpression.Operand.Type())) + p.unaryExpression(f, n.UnaryExpression, n.UnaryExpression.Operand.Type(), exprAddrOf, flags) + p.w(", ") + p.assignmentExpression(f, n.AssignmentExpression, n.UnaryExpression.Operand.Type(), exprValue, flags) +} + +func (p *project) assignmentExpressionVoid(f *function, n *cc.AssignmentExpression, t cc.Type, mode exprMode, flags flags) { + switch n.Case { + case cc.AssignmentExpressionCond: // ConditionalExpression + p.conditionalExpression(f, n.ConditionalExpression, t, mode, flags) + case cc.AssignmentExpressionAssign: // UnaryExpression '=' AssignmentExpression + d := n.UnaryExpression.Declarator() + lhs := n.UnaryExpression + lt := lhs.Operand.Type() + sv := f.condInitPrefix + switch k := p.opKind(f, lhs, lt); k { + case opArrayParameter: + lt = lt.Decay() + fallthrough + case opNormal, opStruct: + mode = exprValue + if p.isArrayOrPinnedArray(f, n.AssignmentExpression, n.AssignmentExpression.Operand.Type()) { + mode = exprDecay + } + switch { + case flags&fNoCondAssignment == 0 && mode == exprValue && n.UnaryExpression.Declarator() != nil && p.isConditionalAssignmentExpr(n.AssignmentExpression): + f.condInitPrefix = func() { + p.unaryExpression(f, lhs, lt, exprLValue, flags) + p.w(" = ") + } + p.assignmentExpression(f, n.AssignmentExpression, lt, exprCondInit, flags) + p.w(";") + default: + if d != nil && p.isVolatileOrAtomic(d) { + p.setVolatileDeclarator(d, f, n.AssignmentExpression, lt, mode, flags) + return + } + + p.unaryExpression(f, lhs, lt, exprLValue, flags) + p.w(" = ") + p.assignmentExpression(f, n.AssignmentExpression, lt, mode, flags) + } + case opBitfield: + bf := lt.BitField() + p.w("%sSetBitFieldPtr%d%s(", p.task.crt, bf.BitFieldBlockWidth(), p.bfHelperType(lt)) + p.unaryExpression(f, lhs, lt, exprAddrOf, flags) + p.w(", ") + p.assignmentExpression(f, n.AssignmentExpression, lt, exprValue, flags) + p.w(", %d, %#x)", bf.BitFieldOffset(), bf.Mask()) + case opUnion: + p.unaryExpression(f, lhs, lt, exprLValue, flags) + p.w(" = ") + p.assignmentExpression(f, n.AssignmentExpression, lt, exprValue, flags) + default: + panic(todo("", n.Position(), k)) + } + f.condInitPrefix = sv + case cc.AssignmentExpressionMul: // UnaryExpression "*=" AssignmentExpression + p.assignOp(f, n, t, mode, "*", "Mul", flags) + case cc.AssignmentExpressionDiv: // UnaryExpression "/=" AssignmentExpression + p.assignOp(f, n, t, mode, "/", "Div", flags) + case cc.AssignmentExpressionMod: // UnaryExpression "%=" AssignmentExpression + p.assignOp(f, n, t, mode, "%", "Mod", flags) + case cc.AssignmentExpressionAdd: // UnaryExpression "+=" AssignmentExpression + p.assignOp(f, n, t, mode, "+", "Add", flags) + case cc.AssignmentExpressionSub: // UnaryExpression "-=" AssignmentExpression + p.assignOp(f, n, t, mode, "-", "Sub", flags) + case cc.AssignmentExpressionLsh: // UnaryExpression "<<=" AssignmentExpression + p.assignShiftOp(f, n, t, mode, "<<", "Shl", flags) + case cc.AssignmentExpressionRsh: // UnaryExpression ">>=" AssignmentExpression + p.assignShiftOp(f, n, t, mode, ">>", "Shr", flags) + case cc.AssignmentExpressionAnd: // UnaryExpression "&=" AssignmentExpression + p.assignOp(f, n, t, mode, "&", "And", flags) + case cc.AssignmentExpressionXor: // UnaryExpression "^=" AssignmentExpression + p.assignOp(f, n, t, mode, "^", "Xor", flags) + case cc.AssignmentExpressionOr: // UnaryExpression "|=" AssignmentExpression + p.assignOp(f, n, t, mode, "|", "Or", flags) + default: + panic(todo("%v: internal error: %v", n.Position(), n.Case)) + } +} + +func (p *project) setVolatileDeclarator(d *cc.Declarator, f *function, n *cc.AssignmentExpression, t cc.Type, mode exprMode, flags flags) { + sz := d.Type().Size() + switch sz { + case 4, 8: + // ok + default: + p.err(d, "unsupported volatile declarator size: %v", sz) + return + } + + if local := f.locals[d]; local != nil { + if local.isPinned { + p.w("%sAtomicStoreP%s(%s%s /* %s */, ", p.task.crt, p.helperType(n, d.Type()), f.bpName, nonZeroUintptr(local.off), local.name) + p.assignmentExpression(f, n, t, mode, flags) + p.w(")") + return + } + + p.atomicStoreNamedAddr(n, d.Type(), local.name, n, f, mode, flags) + return + } + + if tld := p.tlds[d]; tld != nil { + p.atomicStoreNamedAddr(n, d.Type(), tld.name, n, f, mode, flags) + return + } + + if imp := p.imports[d.Name().String()]; imp != nil { + p.atomicStoreNamedAddr(n, d.Type(), fmt.Sprintf("%sX%s", imp.qualifier, d.Name()), n, f, mode, flags) + return + } + + panic(todo("", n.Position(), d.Position(), d.Name())) +} + +func (p *project) atomicStoreNamedAddr(n cc.Node, t cc.Type, nm string, expr *cc.AssignmentExpression, f *function, mode exprMode, flags flags) { + sz := t.Size() + switch sz { + case 4, 8: + // ok + default: + p.err(n, "unsupported volatile declarator size: %v", sz) + return + } + + var ht string + switch { + case t.IsScalarType(): + ht = p.helperType(n, t) + default: + p.err(n, "unsupported volatile declarator type: %v", t) + return + } + + p.w("%sAtomicStore%s(&%s, %s(", p.task.crt, ht, nm, p.typ(n, t)) + p.assignmentExpression(f, expr, t, mode, flags) + p.w("))") +} + +func (p *project) atomicLoadNamedAddr(n cc.Node, t cc.Type, nm string) { + sz := t.Size() + switch sz { + case 4, 8: + // ok + default: + p.err(n, "unsupported volatile declarator size: %v", sz) + return + } + + var ht string + switch { + case t.IsScalarType(): + ht = p.helperType(n, t) + default: + p.err(n, "unsupported volatile declarator type: %v", t) + return + } + + p.w("%sAtomicLoad%s(&%s)", p.task.crt, ht, nm) +} + +func isRealType(op cc.Operand) bool { + switch op.Type().Kind() { + case cc.Float, cc.Double: + return true + default: + return false + } +} + +func (p *project) bfHelperType(t cc.Type) string { + switch { + case t.IsSignedType(): + return fmt.Sprintf("Int%d", t.Size()*8) + default: + return fmt.Sprintf("Uint%d", t.Size()*8) + } +} + +func (p *project) helperType(n cc.Node, t cc.Type) string { + for t.IsAliasType() { + if t2 := t.Alias(); t2 != t { //TODO HDF5 H5O.c + t = t2 + continue + } + + break + } + switch t.Kind() { + case cc.Int128: + return "Int128" + case cc.UInt128: + return "Uint128" + } + + s := p.typ(n, t) + return strings.ToUpper(s[:1]) + s[1:] +} + +func (p *project) helperType2(n cc.Node, from, to cc.Type) string { + if from.Kind() == to.Kind() { + return fmt.Sprintf("%s%s", p.task.crt, p.helperType(n, from)) + } + + return fmt.Sprintf("%s%sFrom%s", p.task.crt, p.helperType(n, to), p.helperType(n, from)) +} + +func (p *project) conditionalExpression(f *function, n *cc.ConditionalExpression, t cc.Type, mode exprMode, flags flags) { + switch mode { + case exprValue: + p.conditionalExpressionValue(f, n, t, mode, flags) + case exprVoid: + p.conditionalExpressionVoid(f, n, t, mode, flags) + case exprAddrOf: + p.conditionalExpressionAddrOf(f, n, t, mode, flags) + case exprBool: + p.conditionalExpressionBool(f, n, t, mode, flags) + case exprLValue: + p.conditionalExpressionLValue(f, n, t, mode, flags) + case exprPSelect: + p.conditionalExpressionPSelect(f, n, t, mode, flags) + case exprFunc: + p.conditionalExpressionFunc(f, n, t, mode, flags) + case exprSelect: + p.conditionalExpressionSelect(f, n, t, mode, flags) + case exprCondReturn: + p.conditionalExpressionReturn(f, n, t, mode, flags) + case exprCondInit: + p.conditionalExpressionInit(f, n, t, mode, flags) + case exprDecay: + p.conditionalExpressionDecay(f, n, t, mode, flags) + default: + panic(todo("", n.Position(), mode)) + } +} + +func (p *project) conditionalExpressionDecay(f *function, n *cc.ConditionalExpression, t cc.Type, mode exprMode, flags flags) { + switch n.Case { + case cc.ConditionalExpressionLOr: // LogicalOrExpression + p.logicalOrExpression(f, n.LogicalOrExpression, t, mode, flags) + case cc.ConditionalExpressionCond: // LogicalOrExpression '?' Expression ':' ConditionalExpression + t = t.Decay() + p.w(" func() %s { if ", p.typ(n, t)) + p.logicalOrExpression(f, n.LogicalOrExpression, n.LogicalOrExpression.Operand.Type(), exprBool, flags) + p.w(" { return ") + switch n.Expression.Operand.Type().Kind() { + case cc.Array: + p.expression(f, n.Expression, t, exprDecay, flags) + case cc.Ptr: + panic(todo("", n.Expression.Position(), n.Expression.Operand.Type())) + default: + panic(todo("", n.Expression.Position(), n.Expression.Operand.Type())) + } + p.w("}; return ") + switch n.ConditionalExpression.Operand.Type().Kind() { + case cc.Array: + p.conditionalExpression(f, n.ConditionalExpression, t, exprDecay, flags) + default: + p.conditionalExpression(f, n.ConditionalExpression, t, exprValue, flags) + } + p.w("}()") + default: + panic(todo("%v: internal error: %v", n.Position(), n.Case)) + } +} + +func (p *project) conditionalExpressionInit(f *function, n *cc.ConditionalExpression, t cc.Type, mode exprMode, flags flags) { + switch n.Case { + case cc.ConditionalExpressionLOr: // LogicalOrExpression + f.condInitPrefix() + p.logicalOrExpression(f, n.LogicalOrExpression, t, exprValue, flags) + case cc.ConditionalExpressionCond: // LogicalOrExpression '?' Expression ':' ConditionalExpression + t = t.Decay() + p.w("if ") + p.logicalOrExpression(f, n.LogicalOrExpression, n.LogicalOrExpression.Operand.Type(), exprBool, flags) + p.w(" {") + p.expression(f, n.Expression, t, mode, flags) + p.w("} else { ") + p.conditionalExpression(f, n.ConditionalExpression, t, mode, flags) + p.w("}") + default: + panic(todo("%v: internal error: %v", n.Position(), n.Case)) + } +} + +func (p *project) conditionalExpressionReturn(f *function, n *cc.ConditionalExpression, t cc.Type, mode exprMode, flags flags) { + switch n.Case { + case cc.ConditionalExpressionLOr: // LogicalOrExpression + p.w("return ") + p.logicalOrExpression(f, n.LogicalOrExpression, t, exprValue, flags) + case cc.ConditionalExpressionCond: // LogicalOrExpression '?' Expression ':' ConditionalExpression + t = t.Decay() + p.w("if ") + p.logicalOrExpression(f, n.LogicalOrExpression, n.LogicalOrExpression.Operand.Type(), exprBool, flags) + p.w(" {") + p.expression(f, n.Expression, t, mode, flags) + p.w("}; ") + p.conditionalExpression(f, n.ConditionalExpression, t, mode, flags) + default: + panic(todo("%v: internal error: %v", n.Position(), n.Case)) + } +} + +func (p *project) conditionalExpressionSelect(f *function, n *cc.ConditionalExpression, t cc.Type, mode exprMode, flags flags) { + switch n.Case { + case cc.ConditionalExpressionLOr: // LogicalOrExpression + p.logicalOrExpression(f, n.LogicalOrExpression, t, mode, flags) + case cc.ConditionalExpressionCond: // LogicalOrExpression '?' Expression ':' ConditionalExpression + panic(todo("", p.pos(n))) + default: + panic(todo("%v: internal error: %v", n.Position(), n.Case)) + } +} + +func (p *project) conditionalExpressionFunc(f *function, n *cc.ConditionalExpression, t cc.Type, mode exprMode, flags flags) { + switch n.Case { + case cc.ConditionalExpressionLOr: // LogicalOrExpression + p.logicalOrExpression(f, n.LogicalOrExpression, t, mode, flags) + case cc.ConditionalExpressionCond: // LogicalOrExpression '?' Expression ':' ConditionalExpression + switch ot := n.Operand.Type(); ot.Kind() { + case cc.Function: + if t.Kind() != cc.Function { + panic(todo("", n.Position())) + } + default: + panic(todo("", ot.Kind())) + } + + p.w(" func() ") + p.functionSignature(n, f, t, "") + p.w("{ if ") + p.logicalOrExpression(f, n.LogicalOrExpression, n.LogicalOrExpression.Operand.Type(), exprBool, flags) + p.w(" { return ") + switch d := n.Expression.Declarator(); { + case d != nil: + p.declaratorDefault(n, d) + default: + panic(todo("", n.Position())) + } + p.w("}; return ") + switch d := n.ConditionalExpression.Declarator(); { + case d != nil: + p.declaratorDefault(n, d) + default: + panic(todo("", n.Position())) + } + p.w("}()") + default: + panic(todo("%v: internal error: %v", n.Position(), n.Case)) + } +} + +func (p *project) conditionalExpressionPSelect(f *function, n *cc.ConditionalExpression, t cc.Type, mode exprMode, flags flags) { + switch n.Case { + case cc.ConditionalExpressionLOr: // LogicalOrExpression + p.logicalOrExpression(f, n.LogicalOrExpression, t, mode, flags) + case cc.ConditionalExpressionCond: // LogicalOrExpression '?' Expression ':' ConditionalExpression + p.w("(*%s)(unsafe.Pointer(", p.typ(n, n.Operand.Type().Elem())) + p.conditionalExpression(f, n, t, exprValue, flags) + p.w("))") + default: + panic(todo("%v: internal error: %v", n.Position(), n.Case)) + } +} + +func (p *project) conditionalExpressionLValue(f *function, n *cc.ConditionalExpression, t cc.Type, mode exprMode, flags flags) { + switch n.Case { + case cc.ConditionalExpressionLOr: // LogicalOrExpression + p.logicalOrExpression(f, n.LogicalOrExpression, t, mode, flags) + case cc.ConditionalExpressionCond: // LogicalOrExpression '?' Expression ':' ConditionalExpression + panic(todo("", p.pos(n))) + default: + panic(todo("%v: internal error: %v", n.Position(), n.Case)) + } +} + +func (p *project) conditionalExpressionBool(f *function, n *cc.ConditionalExpression, t cc.Type, mode exprMode, flags flags) { + switch n.Case { + case cc.ConditionalExpressionLOr: // LogicalOrExpression + p.logicalOrExpression(f, n.LogicalOrExpression, t, mode, flags) + case cc.ConditionalExpressionCond: // LogicalOrExpression '?' Expression ':' ConditionalExpression + p.w("(") + defer p.w(")") + defer p.w(" != 0 ") + p.conditionalExpression(f, n, t, exprValue, flags) + default: + panic(todo("%v: internal error: %v", n.Position(), n.Case)) + } +} + +func (p *project) conditionalExpressionAddrOf(f *function, n *cc.ConditionalExpression, t cc.Type, mode exprMode, flags flags) { + switch n.Case { + case cc.ConditionalExpressionLOr: // LogicalOrExpression + p.logicalOrExpression(f, n.LogicalOrExpression, t, mode, flags) + case cc.ConditionalExpressionCond: // LogicalOrExpression '?' Expression ':' ConditionalExpression + t = t.Decay() + p.w(" func() %s { if ", p.typ(n, t)) + p.logicalOrExpression(f, n.LogicalOrExpression, n.LogicalOrExpression.Operand.Type(), exprBool, flags) + p.w(" { return ") + p.expression(f, n.Expression, t, exprValue, flags) + p.w("}; return ") + p.conditionalExpression(f, n.ConditionalExpression, t, exprValue, flags) + p.w("}()") + default: + panic(todo("%v: internal error: %v", n.Position(), n.Case)) + } +} + +func (p *project) conditionalExpressionVoid(f *function, n *cc.ConditionalExpression, t cc.Type, mode exprMode, flags flags) { + switch n.Case { + case cc.ConditionalExpressionLOr: // LogicalOrExpression + p.logicalOrExpression(f, n.LogicalOrExpression, t, mode, flags) + case cc.ConditionalExpressionCond: // LogicalOrExpression '?' Expression ':' ConditionalExpression + switch { + case n.Expression.IsSideEffectsFree: + p.w("if !(") + p.logicalOrExpression(f, n.LogicalOrExpression, n.LogicalOrExpression.Operand.Type(), exprBool, flags) + p.w(") {") + p.conditionalExpression(f, n.ConditionalExpression, n.ConditionalExpression.Operand.Type(), mode, flags) + p.w("}") + default: + p.w("if ") + p.logicalOrExpression(f, n.LogicalOrExpression, n.LogicalOrExpression.Operand.Type(), exprBool, flags) + p.w(" {") + p.expression(f, n.Expression, n.Expression.Operand.Type(), mode, flags) + p.w("} else {") + p.conditionalExpression(f, n.ConditionalExpression, n.ConditionalExpression.Operand.Type(), mode, flags) + p.w("}") + } + default: + panic(todo("%v: internal error: %v", n.Position(), n.Case)) + } +} + +func (p *project) conditionalExpressionValue(f *function, n *cc.ConditionalExpression, t cc.Type, mode exprMode, flags flags) { + switch n.Case { + case cc.ConditionalExpressionLOr: // LogicalOrExpression + p.logicalOrExpression(f, n.LogicalOrExpression, t, exprValue, flags) + case cc.ConditionalExpressionCond: // LogicalOrExpression '?' Expression ':' ConditionalExpression + t = t.Decay() + p.w(" func() %s { if ", p.typ(n, t)) + p.logicalOrExpression(f, n.LogicalOrExpression, n.LogicalOrExpression.Operand.Type(), exprBool, flags) + p.w(" { return ") + p.expression(f, n.Expression, t, exprValue, flags) + p.w("}; return ") + p.conditionalExpression(f, n.ConditionalExpression, t, exprValue, flags) + p.w("}()") + default: + panic(todo("%v: internal error: %v", n.Position(), n.Case)) + } +} + +func (p *project) logicalOrExpression(f *function, n *cc.LogicalOrExpression, t cc.Type, mode exprMode, flags flags) { + switch mode { + case exprValue: + p.logicalOrExpressionValue(f, n, t, mode, flags) + case exprVoid: + p.logicalOrExpressionVoid(f, n, t, mode, flags) + case exprAddrOf: + p.logicalOrExpressionAddrOf(f, n, t, mode, flags) + case exprBool: + p.logicalOrExpressionBool(f, n, t, mode, flags) + case exprLValue: + p.logicalOrExpressionLValue(f, n, t, mode, flags) + case exprPSelect: + p.logicalOrExpressionPSelect(f, n, t, mode, flags) + case exprFunc: + p.logicalOrExpressionFunc(f, n, t, mode, flags) + case exprSelect: + p.logicalOrExpressionSelect(f, n, t, mode, flags) + case exprDecay: + p.logicalOrExpressionDecay(f, n, t, mode, flags) + default: + panic(todo("", n.Position(), mode)) + } +} + +func (p *project) logicalOrExpressionDecay(f *function, n *cc.LogicalOrExpression, t cc.Type, mode exprMode, flags flags) { + switch n.Case { + case cc.LogicalOrExpressionLAnd: // LogicalAndExpression + p.logicalAndExpression(f, n.LogicalAndExpression, t, mode, flags) + case cc.LogicalOrExpressionLOr: // LogicalOrExpression "||" LogicalAndExpression + panic(todo("", p.pos(n))) + default: + panic(todo("%v: internal error: %v", n.Position(), n.Case)) + } +} + +func (p *project) logicalOrExpressionSelect(f *function, n *cc.LogicalOrExpression, t cc.Type, mode exprMode, flags flags) { + switch n.Case { + case cc.LogicalOrExpressionLAnd: // LogicalAndExpression + p.logicalAndExpression(f, n.LogicalAndExpression, t, mode, flags) + case cc.LogicalOrExpressionLOr: // LogicalOrExpression "||" LogicalAndExpression + panic(todo("", p.pos(n))) + default: + panic(todo("%v: internal error: %v", n.Position(), n.Case)) + } +} + +func (p *project) logicalOrExpressionFunc(f *function, n *cc.LogicalOrExpression, t cc.Type, mode exprMode, flags flags) { + switch n.Case { + case cc.LogicalOrExpressionLAnd: // LogicalAndExpression + p.logicalAndExpression(f, n.LogicalAndExpression, t, mode, flags) + case cc.LogicalOrExpressionLOr: // LogicalOrExpression "||" LogicalAndExpression + panic(todo("", p.pos(n))) + default: + panic(todo("%v: internal error: %v", n.Position(), n.Case)) + } +} + +func (p *project) logicalOrExpressionPSelect(f *function, n *cc.LogicalOrExpression, t cc.Type, mode exprMode, flags flags) { + switch n.Case { + case cc.LogicalOrExpressionLAnd: // LogicalAndExpression + p.logicalAndExpression(f, n.LogicalAndExpression, t, mode, flags) + case cc.LogicalOrExpressionLOr: // LogicalOrExpression "||" LogicalAndExpression + panic(todo("", p.pos(n))) + default: + panic(todo("%v: internal error: %v", n.Position(), n.Case)) + } +} + +func (p *project) logicalOrExpressionLValue(f *function, n *cc.LogicalOrExpression, t cc.Type, mode exprMode, flags flags) { + switch n.Case { + case cc.LogicalOrExpressionLAnd: // LogicalAndExpression + p.logicalAndExpression(f, n.LogicalAndExpression, t, mode, flags) + case cc.LogicalOrExpressionLOr: // LogicalOrExpression "||" LogicalAndExpression + panic(todo("", p.pos(n))) + default: + panic(todo("%v: internal error: %v", n.Position(), n.Case)) + } +} + +func (p *project) logicalOrExpressionBool(f *function, n *cc.LogicalOrExpression, t cc.Type, mode exprMode, flags flags) { + switch n.Case { + case cc.LogicalOrExpressionLAnd: // LogicalAndExpression + p.logicalAndExpression(f, n.LogicalAndExpression, t, mode, flags) + case cc.LogicalOrExpressionLOr: // LogicalOrExpression "||" LogicalAndExpression + p.binaryLogicalOrExpression(f, n, t, mode, flags) + default: + panic(todo("%v: internal error: %v", n.Position(), n.Case)) + } +} + +func (p *project) logicalOrExpressionAddrOf(f *function, n *cc.LogicalOrExpression, t cc.Type, mode exprMode, flags flags) { + switch n.Case { + case cc.LogicalOrExpressionLAnd: // LogicalAndExpression + p.logicalAndExpression(f, n.LogicalAndExpression, t, mode, flags) + case cc.LogicalOrExpressionLOr: // LogicalOrExpression "||" LogicalAndExpression + panic(todo("", p.pos(n))) + default: + panic(todo("%v: internal error: %v", n.Position(), n.Case)) + } +} + +func (p *project) logicalOrExpressionVoid(f *function, n *cc.LogicalOrExpression, t cc.Type, mode exprMode, flags flags) { + switch n.Case { + case cc.LogicalOrExpressionLAnd: // LogicalAndExpression + p.logicalAndExpression(f, n.LogicalAndExpression, t, mode, flags) + case cc.LogicalOrExpressionLOr: // LogicalOrExpression "||" LogicalAndExpression + p.w("_ = ") + p.logicalOrExpression(f, n, n.Operand.Type(), exprValue, flags) + default: + panic(todo("%v: internal error: %v", n.Position(), n.Case)) + } +} + +func (p *project) logicalOrExpressionValue(f *function, n *cc.LogicalOrExpression, t cc.Type, mode exprMode, flags flags) { + switch n.Case { + case cc.LogicalOrExpressionLAnd: // LogicalAndExpression + p.logicalAndExpression(f, n.LogicalAndExpression, t, mode, flags) + case cc.LogicalOrExpressionLOr: // LogicalOrExpression "||" LogicalAndExpression + p.binaryLogicalOrExpression(f, n, t, mode, flags) + default: + panic(todo("%v: internal error: %v", n.Position(), n.Case)) + } +} + +func (p *project) binaryLogicalOrExpression(f *function, n *cc.LogicalOrExpression, t cc.Type, mode exprMode, flags flags) { + switch mode { + case exprValue: + p.binaryLogicalOrExpressionValue(f, n, t, mode, flags) + case exprBool: + p.binaryLogicalOrExpressionBool(f, n, t, mode, flags) + default: + panic(todo("", n.Position(), mode)) + } +} + +func (p *project) binaryLogicalOrExpressionBool(f *function, n *cc.LogicalOrExpression, t cc.Type, mode exprMode, flags flags) { + defer p.w("%s", p.booleanBinaryExpression(n, n.Operand, n.Operand.Type(), &mode, flags)) + p.logicalOrExpression(f, n.LogicalOrExpression, n.LogicalOrExpression.Operand.Type(), exprBool, flags) + p.w(" ||%s", tidyComment(" ", &n.Token)) + p.logicalAndExpression(f, n.LogicalAndExpression, n.LogicalAndExpression.Operand.Type(), exprBool, flags) +} + +func (p *project) binaryLogicalOrExpressionValue(f *function, n *cc.LogicalOrExpression, t cc.Type, mode exprMode, flags flags) { + defer p.w("%s", p.booleanBinaryExpression(n, n.Operand, t, &mode, flags)) + p.logicalOrExpression(f, n.LogicalOrExpression, n.LogicalOrExpression.Operand.Type(), exprBool, flags) + p.w(" ||%s", tidyComment(" ", &n.Token)) + p.logicalAndExpression(f, n.LogicalAndExpression, n.LogicalAndExpression.Operand.Type(), exprBool, flags) +} + +func (p *project) booleanBinaryExpression(n cc.Node, from cc.Operand, to cc.Type, mode *exprMode, flags flags) (r string) { + p.w("(") + r = ")" + switch *mode { + case exprBool: + *mode = exprValue + default: + r = p.convert(n, from, to, flags) + r + p.w("%sBool32(", p.task.crt) + r = ")" + r + } + return r +} + +func (p *project) logicalAndExpression(f *function, n *cc.LogicalAndExpression, t cc.Type, mode exprMode, flags flags) { + switch mode { + case exprValue: + p.logicalAndExpressionValue(f, n, t, mode, flags) + case exprVoid: + p.logicalAndExpressionVoid(f, n, t, mode, flags) + case exprAddrOf: + p.logicalAndExpressionAddrOf(f, n, t, mode, flags) + case exprBool: + p.logicalAndExpressionBool(f, n, t, mode, flags) + case exprLValue: + p.logicalAndExpressionLValue(f, n, t, mode, flags) + case exprPSelect: + p.logicalAndExpressionPSelect(f, n, t, mode, flags) + case exprFunc: + p.logicalAndExpressionFunc(f, n, t, mode, flags) + case exprSelect: + p.logicalAndExpressionSelect(f, n, t, mode, flags) + case exprDecay: + p.logicalAndExpressionDecay(f, n, t, mode, flags) + default: + panic(todo("", n.Position(), mode)) + } +} + +func (p *project) logicalAndExpressionDecay(f *function, n *cc.LogicalAndExpression, t cc.Type, mode exprMode, flags flags) { + switch n.Case { + case cc.LogicalAndExpressionOr: // InclusiveOrExpression + p.inclusiveOrExpression(f, n.InclusiveOrExpression, t, mode, flags) + case cc.LogicalAndExpressionLAnd: // LogicalAndExpression "&&" InclusiveOrExpression + panic(todo("", p.pos(n))) + default: + panic(todo("%v: internal error: %v", n.Position(), n.Case)) + } +} + +func (p *project) logicalAndExpressionSelect(f *function, n *cc.LogicalAndExpression, t cc.Type, mode exprMode, flags flags) { + switch n.Case { + case cc.LogicalAndExpressionOr: // InclusiveOrExpression + p.inclusiveOrExpression(f, n.InclusiveOrExpression, t, mode, flags) + case cc.LogicalAndExpressionLAnd: // LogicalAndExpression "&&" InclusiveOrExpression + panic(todo("", p.pos(n))) + default: + panic(todo("%v: internal error: %v", n.Position(), n.Case)) + } +} + +func (p *project) logicalAndExpressionFunc(f *function, n *cc.LogicalAndExpression, t cc.Type, mode exprMode, flags flags) { + switch n.Case { + case cc.LogicalAndExpressionOr: // InclusiveOrExpression + p.inclusiveOrExpression(f, n.InclusiveOrExpression, t, mode, flags) + case cc.LogicalAndExpressionLAnd: // LogicalAndExpression "&&" InclusiveOrExpression + panic(todo("", p.pos(n))) + default: + panic(todo("%v: internal error: %v", n.Position(), n.Case)) + } +} + +func (p *project) logicalAndExpressionPSelect(f *function, n *cc.LogicalAndExpression, t cc.Type, mode exprMode, flags flags) { + switch n.Case { + case cc.LogicalAndExpressionOr: // InclusiveOrExpression + p.inclusiveOrExpression(f, n.InclusiveOrExpression, t, mode, flags) + case cc.LogicalAndExpressionLAnd: // LogicalAndExpression "&&" InclusiveOrExpression + panic(todo("", p.pos(n))) + default: + panic(todo("%v: internal error: %v", n.Position(), n.Case)) + } +} + +func (p *project) logicalAndExpressionLValue(f *function, n *cc.LogicalAndExpression, t cc.Type, mode exprMode, flags flags) { + switch n.Case { + case cc.LogicalAndExpressionOr: // InclusiveOrExpression + p.inclusiveOrExpression(f, n.InclusiveOrExpression, t, mode, flags) + case cc.LogicalAndExpressionLAnd: // LogicalAndExpression "&&" InclusiveOrExpression + panic(todo("", p.pos(n))) + default: + panic(todo("%v: internal error: %v", n.Position(), n.Case)) + } +} + +func (p *project) logicalAndExpressionBool(f *function, n *cc.LogicalAndExpression, t cc.Type, mode exprMode, flags flags) { + switch n.Case { + case cc.LogicalAndExpressionOr: // InclusiveOrExpression + p.inclusiveOrExpression(f, n.InclusiveOrExpression, t, mode, flags) + case cc.LogicalAndExpressionLAnd: // LogicalAndExpression "&&" InclusiveOrExpression + p.binaryLogicalAndExpression(f, n, t, mode, flags) + default: + panic(todo("%v: internal error: %v", n.Position(), n.Case)) + } +} + +func (p *project) logicalAndExpressionAddrOf(f *function, n *cc.LogicalAndExpression, t cc.Type, mode exprMode, flags flags) { + switch n.Case { + case cc.LogicalAndExpressionOr: // InclusiveOrExpression + p.inclusiveOrExpression(f, n.InclusiveOrExpression, t, mode, flags) + case cc.LogicalAndExpressionLAnd: // LogicalAndExpression "&&" InclusiveOrExpression + panic(todo("", p.pos(n))) + default: + panic(todo("%v: internal error: %v", n.Position(), n.Case)) + } +} + +func (p *project) logicalAndExpressionVoid(f *function, n *cc.LogicalAndExpression, t cc.Type, mode exprMode, flags flags) { + switch n.Case { + case cc.LogicalAndExpressionOr: // InclusiveOrExpression + p.inclusiveOrExpression(f, n.InclusiveOrExpression, t, mode, flags) + case cc.LogicalAndExpressionLAnd: // LogicalAndExpression "&&" InclusiveOrExpression + p.binaryLogicalAndExpressionValue(f, n, t, mode, flags) + default: + panic(todo("%v: internal error: %v", n.Position(), n.Case)) + } +} + +func (p *project) logicalAndExpressionValue(f *function, n *cc.LogicalAndExpression, t cc.Type, mode exprMode, flags flags) { + switch n.Case { + case cc.LogicalAndExpressionOr: // InclusiveOrExpression + p.inclusiveOrExpression(f, n.InclusiveOrExpression, t, mode, flags) + case cc.LogicalAndExpressionLAnd: // LogicalAndExpression "&&" InclusiveOrExpression + p.binaryLogicalAndExpression(f, n, t, mode, flags) + default: + panic(todo("%v: internal error: %v", n.Position(), n.Case)) + } +} + +func (p *project) binaryLogicalAndExpression(f *function, n *cc.LogicalAndExpression, t cc.Type, mode exprMode, flags flags) { + switch mode { + case exprBool: + p.binaryLogicalAndExpressionBool(f, n, t, mode, flags) + case exprValue: + p.binaryLogicalAndExpressionValue(f, n, t, mode, flags) + default: + panic(todo("", n.Position(), mode)) + } +} + +func (p *project) binaryLogicalAndExpressionValue(f *function, n *cc.LogicalAndExpression, t cc.Type, mode exprMode, flags flags) { + defer p.w("%s", p.booleanBinaryExpression(n, n.Operand, t, &mode, flags)) + p.logicalAndExpression(f, n.LogicalAndExpression, n.LogicalAndExpression.Operand.Type(), exprBool, flags) + p.w(" &&%s", tidyComment(" ", &n.Token)) + p.inclusiveOrExpression(f, n.InclusiveOrExpression, n.InclusiveOrExpression.Operand.Type(), exprBool, flags) +} + +func (p *project) binaryLogicalAndExpressionBool(f *function, n *cc.LogicalAndExpression, t cc.Type, mode exprMode, flags flags) { + defer p.w("%s", p.booleanBinaryExpression(n, n.Operand, t, &mode, flags)) + p.logicalAndExpression(f, n.LogicalAndExpression, n.LogicalAndExpression.Operand.Type(), exprBool, flags) + p.w(" &&%s", tidyComment(" ", &n.Token)) + p.inclusiveOrExpression(f, n.InclusiveOrExpression, n.InclusiveOrExpression.Operand.Type(), exprBool, flags) +} + +func (p *project) inclusiveOrExpression(f *function, n *cc.InclusiveOrExpression, t cc.Type, mode exprMode, flags flags) { + switch mode { + case exprValue: + p.inclusiveOrExpressionValue(f, n, t, mode, flags) + case exprVoid: + p.inclusiveOrExpressionVoid(f, n, t, mode, flags) + case exprAddrOf: + p.inclusiveOrExpressionAddrof(f, n, t, mode, flags) + case exprBool: + p.inclusiveOrExpressionBool(f, n, t, mode, flags) + case exprLValue: + p.inclusiveOrExpressionLValue(f, n, t, mode, flags) + case exprPSelect: + p.inclusiveOrExpressionPSelect(f, n, t, mode, flags) + case exprFunc: + p.inclusiveOrExpressionFunc(f, n, t, mode, flags) + case exprSelect: + p.inclusiveOrExpressionSelect(f, n, t, mode, flags) + case exprDecay: + p.inclusiveOrExpressionDecay(f, n, t, mode, flags) + default: + panic(todo("", n.Position(), mode)) + } +} + +func (p *project) inclusiveOrExpressionDecay(f *function, n *cc.InclusiveOrExpression, t cc.Type, mode exprMode, flags flags) { + switch n.Case { + case cc.InclusiveOrExpressionXor: // ExclusiveOrExpression + p.exclusiveOrExpression(f, n.ExclusiveOrExpression, t, mode, flags) + case cc.InclusiveOrExpressionOr: // InclusiveOrExpression '|' ExclusiveOrExpression + panic(todo("", p.pos(n))) + default: + panic(todo("%v: internal error: %v", n.Position(), n.Case)) + } +} + +func (p *project) inclusiveOrExpressionSelect(f *function, n *cc.InclusiveOrExpression, t cc.Type, mode exprMode, flags flags) { + switch n.Case { + case cc.InclusiveOrExpressionXor: // ExclusiveOrExpression + p.exclusiveOrExpression(f, n.ExclusiveOrExpression, t, mode, flags) + case cc.InclusiveOrExpressionOr: // InclusiveOrExpression '|' ExclusiveOrExpression + panic(todo("", p.pos(n))) + default: + panic(todo("%v: internal error: %v", n.Position(), n.Case)) + } +} + +func (p *project) inclusiveOrExpressionFunc(f *function, n *cc.InclusiveOrExpression, t cc.Type, mode exprMode, flags flags) { + switch n.Case { + case cc.InclusiveOrExpressionXor: // ExclusiveOrExpression + p.exclusiveOrExpression(f, n.ExclusiveOrExpression, t, mode, flags) + case cc.InclusiveOrExpressionOr: // InclusiveOrExpression '|' ExclusiveOrExpression + panic(todo("", p.pos(n))) + default: + panic(todo("%v: internal error: %v", n.Position(), n.Case)) + } +} + +func (p *project) inclusiveOrExpressionPSelect(f *function, n *cc.InclusiveOrExpression, t cc.Type, mode exprMode, flags flags) { + switch n.Case { + case cc.InclusiveOrExpressionXor: // ExclusiveOrExpression + p.exclusiveOrExpression(f, n.ExclusiveOrExpression, t, mode, flags) + case cc.InclusiveOrExpressionOr: // InclusiveOrExpression '|' ExclusiveOrExpression + panic(todo("", p.pos(n))) + default: + panic(todo("%v: internal error: %v", n.Position(), n.Case)) + } +} + +func (p *project) inclusiveOrExpressionLValue(f *function, n *cc.InclusiveOrExpression, t cc.Type, mode exprMode, flags flags) { + switch n.Case { + case cc.InclusiveOrExpressionXor: // ExclusiveOrExpression + p.exclusiveOrExpression(f, n.ExclusiveOrExpression, t, mode, flags) + case cc.InclusiveOrExpressionOr: // InclusiveOrExpression '|' ExclusiveOrExpression + panic(todo("", p.pos(n))) + default: + panic(todo("%v: internal error: %v", n.Position(), n.Case)) + } +} + +func (p *project) inclusiveOrExpressionBool(f *function, n *cc.InclusiveOrExpression, t cc.Type, mode exprMode, flags flags) { + switch n.Case { + case cc.InclusiveOrExpressionXor: // ExclusiveOrExpression + p.exclusiveOrExpression(f, n.ExclusiveOrExpression, t, mode, flags) + case cc.InclusiveOrExpressionOr: // InclusiveOrExpression '|' ExclusiveOrExpression + p.binaryInclusiveOrExpression(f, n, t, mode, flags) + default: + panic(todo("%v: internal error: %v", n.Position(), n.Case)) + } +} + +func (p *project) inclusiveOrExpressionAddrof(f *function, n *cc.InclusiveOrExpression, t cc.Type, mode exprMode, flags flags) { + switch n.Case { + case cc.InclusiveOrExpressionXor: // ExclusiveOrExpression + p.exclusiveOrExpression(f, n.ExclusiveOrExpression, t, mode, flags) + case cc.InclusiveOrExpressionOr: // InclusiveOrExpression '|' ExclusiveOrExpression + panic(todo("", p.pos(n))) + default: + panic(todo("%v: internal error: %v", n.Position(), n.Case)) + } +} + +func (p *project) inclusiveOrExpressionVoid(f *function, n *cc.InclusiveOrExpression, t cc.Type, mode exprMode, flags flags) { + switch n.Case { + case cc.InclusiveOrExpressionXor: // ExclusiveOrExpression + p.exclusiveOrExpression(f, n.ExclusiveOrExpression, t, mode, flags) + case cc.InclusiveOrExpressionOr: // InclusiveOrExpression '|' ExclusiveOrExpression + p.w("_ = ") + p.inclusiveOrExpression(f, n, n.Operand.Type(), exprValue, flags) + default: + panic(todo("%v: internal error: %v", n.Position(), n.Case)) + } +} + +func (p *project) inclusiveOrExpressionValue(f *function, n *cc.InclusiveOrExpression, t cc.Type, mode exprMode, flags flags) { + switch n.Case { + case cc.InclusiveOrExpressionXor: // ExclusiveOrExpression + p.exclusiveOrExpression(f, n.ExclusiveOrExpression, t, mode, flags) + case cc.InclusiveOrExpressionOr: // InclusiveOrExpression '|' ExclusiveOrExpression + p.binaryInclusiveOrExpression(f, n, t, mode, flags) + default: + panic(todo("%v: internal error: %v", n.Position(), n.Case)) + } +} + +func (p *project) binaryInclusiveOrExpression(f *function, n *cc.InclusiveOrExpression, t cc.Type, mode exprMode, flags flags) { + // InclusiveOrExpression '|' ExclusiveOrExpression + switch mode { + case exprBool: + p.binaryInclusiveOrExpressionBool(f, n, t, mode, flags) + case exprValue: + p.binaryInclusiveOrExpressionValue(f, n, t, mode, flags) + default: + panic(todo("", n.Position(), mode)) + } +} + +func (p *project) binaryInclusiveOrExpressionValue(f *function, n *cc.InclusiveOrExpression, t cc.Type, mode exprMode, flags flags) { + // InclusiveOrExpression '|' ExclusiveOrExpression + + lt := n.InclusiveOrExpression.Operand.Type() + rt := n.ExclusiveOrExpression.Operand.Type() + switch lk, rk := lt.Kind(), rt.Kind(); { + case + lk == cc.UInt128 || rk == cc.UInt128, + lk == cc.Int128 || rk == cc.Int128: + + p.binaryOrExpressionUint128(f, n, t, mode, flags) + return + } + + defer p.w("%s", p.artithmeticBinaryExpression(n, n.Operand, t, &mode, flags)) + switch { + case orOverflows(n.InclusiveOrExpression.Operand, n.ExclusiveOrExpression.Operand, n.Promote()): + p.inclusiveOrExpression(f, n.InclusiveOrExpression, n.Promote(), exprValue, flags) + p.w(" |%s", tidyComment(" ", &n.Token)) + p.exclusiveOrExpression(f, n.ExclusiveOrExpression, n.Promote(), exprValue, flags|fForceRuntimeConv) + default: + p.inclusiveOrExpression(f, n.InclusiveOrExpression, n.Promote(), exprValue, flags) + p.w(" |%s", tidyComment(" ", &n.Token)) + p.exclusiveOrExpression(f, n.ExclusiveOrExpression, n.Promote(), exprValue, flags) + } +} + +func (p *project) binaryOrExpressionUint128(f *function, n *cc.InclusiveOrExpression, t cc.Type, mode exprMode, flags flags) { + // InclusiveOrExpression '|' ExclusiveOrExpression + defer p.w("%s", p.artithmeticBinaryExpression(n, n.Operand, t, &mode, flags)) + p.inclusiveOrExpression(f, n.InclusiveOrExpression, n.Promote(), exprValue, flags) + p.w(".Or(") + p.exclusiveOrExpression(f, n.ExclusiveOrExpression, n.Promote(), exprValue, flags) + p.w(")") +} + +func (p *project) binaryInclusiveOrExpressionBool(f *function, n *cc.InclusiveOrExpression, t cc.Type, mode exprMode, flags flags) { + defer p.w("%s", p.artithmeticBinaryExpression(n, n.Operand, t, &mode, flags)) + switch { + case orOverflows(n.InclusiveOrExpression.Operand, n.ExclusiveOrExpression.Operand, n.Promote()): + p.inclusiveOrExpression(f, n.InclusiveOrExpression, n.Promote(), exprValue, flags) + p.w(" |%s", tidyComment(" ", &n.Token)) + p.exclusiveOrExpression(f, n.ExclusiveOrExpression, n.Promote(), exprValue, flags|fForceRuntimeConv) + default: + p.inclusiveOrExpression(f, n.InclusiveOrExpression, n.Promote(), exprValue, flags) + p.w(" |%s", tidyComment(" ", &n.Token)) + p.exclusiveOrExpression(f, n.ExclusiveOrExpression, n.Promote(), exprValue, flags) + } +} + +func orOverflows(lo, ro cc.Operand, promote cc.Type) bool { + a, b, ok := getIntOperands(lo, ro) + if !ok { + return false + } + + return overflows(a.Or(a, b), promote) +} + +func (p *project) artithmeticBinaryExpression(n cc.Node, from cc.Operand, to cc.Type, mode *exprMode, flags flags) (r string) { + p.w("(") + r = ")" + switch *mode { + case exprBool: + p.w("(") + r = ") != 0" + r + *mode = exprValue + default: + switch fk, tk := from.Type().Kind(), to.Kind(); { + case fk != tk && fk == cc.Int128: + return fmt.Sprintf(".%s()%s", p.helperType(n, to), r) + case fk != tk && fk == cc.UInt128: + return fmt.Sprintf(".%s()%s", p.helperType(n, to), r) + default: + r = p.convert(n, from, to, flags) + r + } + } + return r +} + +func (p *project) exclusiveOrExpression(f *function, n *cc.ExclusiveOrExpression, t cc.Type, mode exprMode, flags flags) { + switch mode { + case exprValue: + p.exclusiveOrExpressionValue(f, n, t, mode, flags) + case exprVoid: + p.exclusiveOrExpressionVoid(f, n, t, mode, flags) + case exprAddrOf: + p.exclusiveOrExpressionAddrOf(f, n, t, mode, flags) + case exprBool: + p.exclusiveOrExpressionBool(f, n, t, mode, flags) + case exprLValue: + p.exclusiveOrExpressionLValue(f, n, t, mode, flags) + case exprPSelect: + p.exclusiveOrExpressionPSelect(f, n, t, mode, flags) + case exprFunc: + p.exclusiveOrExpressionFunc(f, n, t, mode, flags) + case exprSelect: + p.exclusiveOrExpressionSelect(f, n, t, mode, flags) + case exprDecay: + p.exclusiveOrExpressionDecay(f, n, t, mode, flags) + default: + panic(todo("", n.Position(), mode)) + } +} + +func (p *project) exclusiveOrExpressionDecay(f *function, n *cc.ExclusiveOrExpression, t cc.Type, mode exprMode, flags flags) { + switch n.Case { + case cc.ExclusiveOrExpressionAnd: // AndExpression + p.andExpression(f, n.AndExpression, t, mode, flags) + case cc.ExclusiveOrExpressionXor: // ExclusiveOrExpression '^' AndExpression + panic(todo("", p.pos(n))) + default: + panic(todo("%v: internal error: %v", n.Position(), n.Case)) + } +} + +func (p *project) exclusiveOrExpressionSelect(f *function, n *cc.ExclusiveOrExpression, t cc.Type, mode exprMode, flags flags) { + switch n.Case { + case cc.ExclusiveOrExpressionAnd: // AndExpression + p.andExpression(f, n.AndExpression, t, mode, flags) + case cc.ExclusiveOrExpressionXor: // ExclusiveOrExpression '^' AndExpression + panic(todo("", p.pos(n))) + default: + panic(todo("%v: internal error: %v", n.Position(), n.Case)) + } +} + +func (p *project) exclusiveOrExpressionFunc(f *function, n *cc.ExclusiveOrExpression, t cc.Type, mode exprMode, flags flags) { + switch n.Case { + case cc.ExclusiveOrExpressionAnd: // AndExpression + p.andExpression(f, n.AndExpression, t, mode, flags) + case cc.ExclusiveOrExpressionXor: // ExclusiveOrExpression '^' AndExpression + panic(todo("", p.pos(n))) + default: + panic(todo("%v: internal error: %v", n.Position(), n.Case)) + } +} + +func (p *project) exclusiveOrExpressionPSelect(f *function, n *cc.ExclusiveOrExpression, t cc.Type, mode exprMode, flags flags) { + switch n.Case { + case cc.ExclusiveOrExpressionAnd: // AndExpression + p.andExpression(f, n.AndExpression, t, mode, flags) + case cc.ExclusiveOrExpressionXor: // ExclusiveOrExpression '^' AndExpression + panic(todo("", p.pos(n))) + default: + panic(todo("%v: internal error: %v", n.Position(), n.Case)) + } +} + +func (p *project) exclusiveOrExpressionLValue(f *function, n *cc.ExclusiveOrExpression, t cc.Type, mode exprMode, flags flags) { + switch n.Case { + case cc.ExclusiveOrExpressionAnd: // AndExpression + p.andExpression(f, n.AndExpression, t, mode, flags) + case cc.ExclusiveOrExpressionXor: // ExclusiveOrExpression '^' AndExpression + panic(todo("", p.pos(n))) + default: + panic(todo("%v: internal error: %v", n.Position(), n.Case)) + } +} + +func (p *project) exclusiveOrExpressionBool(f *function, n *cc.ExclusiveOrExpression, t cc.Type, mode exprMode, flags flags) { + switch n.Case { + case cc.ExclusiveOrExpressionAnd: // AndExpression + p.andExpression(f, n.AndExpression, t, mode, flags) + case cc.ExclusiveOrExpressionXor: // ExclusiveOrExpression '^' AndExpression + p.binaryExclusiveOrExpression(f, n, t, mode, flags) + default: + panic(todo("%v: internal error: %v", n.Position(), n.Case)) + } +} + +func (p *project) exclusiveOrExpressionAddrOf(f *function, n *cc.ExclusiveOrExpression, t cc.Type, mode exprMode, flags flags) { + switch n.Case { + case cc.ExclusiveOrExpressionAnd: // AndExpression + p.andExpression(f, n.AndExpression, t, mode, flags) + case cc.ExclusiveOrExpressionXor: // ExclusiveOrExpression '^' AndExpression + panic(todo("", p.pos(n))) + default: + panic(todo("%v: internal error: %v", n.Position(), n.Case)) + } +} + +func (p *project) exclusiveOrExpressionVoid(f *function, n *cc.ExclusiveOrExpression, t cc.Type, mode exprMode, flags flags) { + switch n.Case { + case cc.ExclusiveOrExpressionAnd: // AndExpression + p.andExpression(f, n.AndExpression, t, mode, flags) + case cc.ExclusiveOrExpressionXor: // ExclusiveOrExpression '^' AndExpression + p.w("_ = ") + p.exclusiveOrExpression(f, n, n.Operand.Type(), exprValue, flags) + default: + panic(todo("%v: internal error: %v", n.Position(), n.Case)) + } +} + +func (p *project) exclusiveOrExpressionValue(f *function, n *cc.ExclusiveOrExpression, t cc.Type, mode exprMode, flags flags) { + switch n.Case { + case cc.ExclusiveOrExpressionAnd: // AndExpression + p.andExpression(f, n.AndExpression, t, mode, flags) + case cc.ExclusiveOrExpressionXor: // ExclusiveOrExpression '^' AndExpression + p.binaryExclusiveOrExpression(f, n, t, mode, flags) + default: + panic(todo("%v: internal error: %v", n.Position(), n.Case)) + } +} + +func (p *project) binaryExclusiveOrExpression(f *function, n *cc.ExclusiveOrExpression, t cc.Type, mode exprMode, flags flags) { + // ExclusiveOrExpression '^' AndExpression + switch mode { + case exprValue, exprBool: + p.binaryExclusiveOrExpressionValue(f, n, t, mode, flags) + default: + panic(todo("", n.Position(), mode)) + } +} + +func (p *project) binaryExclusiveOrExpressionValue(f *function, n *cc.ExclusiveOrExpression, t cc.Type, mode exprMode, flags flags) { + // ExclusiveOrExpression '^' AndExpression + + lt := n.ExclusiveOrExpression.Operand.Type() + rt := n.AndExpression.Operand.Type() + switch lk, rk := lt.Kind(), rt.Kind(); { + case + lk == cc.UInt128 || rk == cc.UInt128, + lk == cc.Int128 || rk == cc.Int128: + + p.binaryExclusiveOrExpressionUint128(f, n, t, mode, flags) + return + } + + defer p.w("%s", p.artithmeticBinaryExpression(n, n.Operand, t, &mode, flags)) + switch { + case xorOverflows(n.ExclusiveOrExpression.Operand, n.AndExpression.Operand, n.Promote()): + p.exclusiveOrExpression(f, n.ExclusiveOrExpression, n.Promote(), exprValue, flags) + p.w(" ^%s", tidyComment(" ", &n.Token)) + p.andExpression(f, n.AndExpression, n.Promote(), exprValue, flags|fForceRuntimeConv) + default: + p.exclusiveOrExpression(f, n.ExclusiveOrExpression, n.Promote(), exprValue, flags) + p.w(" ^%s", tidyComment(" ", &n.Token)) + p.andExpression(f, n.AndExpression, n.Promote(), exprValue, flags) + } +} + +func (p *project) binaryExclusiveOrExpressionUint128(f *function, n *cc.ExclusiveOrExpression, t cc.Type, mode exprMode, flags flags) { + // ExclusiveOrExpression '^' AndExpression + defer p.w("%s", p.artithmeticBinaryExpression(n, n.Operand, t, &mode, flags)) + p.exclusiveOrExpression(f, n.ExclusiveOrExpression, n.Promote(), exprValue, flags) + p.w(".Xor(") + p.andExpression(f, n.AndExpression, n.Promote(), exprValue, flags) + p.w(")") +} + +func xorOverflows(lo, ro cc.Operand, promote cc.Type) bool { + a, b, ok := getIntOperands(lo, ro) + if !ok { + return false + } + + return !lo.Type().IsSignedType() && a.Sign() == 0 || + !ro.Type().IsSignedType() && b.Sign() == 0 || + overflows(a.Xor(a, b), promote) +} + +func (p *project) andExpression(f *function, n *cc.AndExpression, t cc.Type, mode exprMode, flags flags) { + switch mode { + case exprValue: + p.andExpressionValue(f, n, t, mode, flags) + case exprVoid: + p.andExpressionVoid(f, n, t, mode, flags) + case exprAddrOf: + p.andExpressionAddrof(f, n, t, mode, flags) + case exprBool: + p.andExpressionBool(f, n, t, mode, flags) + case exprLValue: + p.andExpressionLValue(f, n, t, mode, flags) + case exprPSelect: + p.andExpressionPSelect(f, n, t, mode, flags) + case exprFunc: + p.andExpressionFunc(f, n, t, mode, flags) + case exprSelect: + p.andExpressionSelect(f, n, t, mode, flags) + case exprDecay: + p.andExpressionDecay(f, n, t, mode, flags) + default: + panic(todo("", n.Position(), mode)) + } +} + +func (p *project) andExpressionDecay(f *function, n *cc.AndExpression, t cc.Type, mode exprMode, flags flags) { + switch n.Case { + case cc.AndExpressionEq: // EqualityExpression + p.equalityExpression(f, n.EqualityExpression, t, mode, flags) + case cc.AndExpressionAnd: // AndExpression '&' EqualityExpression + panic(todo("", p.pos(n))) + default: + panic(todo("%v: internal error: %v", n.Position(), n.Case)) + } +} + +func (p *project) andExpressionSelect(f *function, n *cc.AndExpression, t cc.Type, mode exprMode, flags flags) { + switch n.Case { + case cc.AndExpressionEq: // EqualityExpression + p.equalityExpression(f, n.EqualityExpression, t, mode, flags) + case cc.AndExpressionAnd: // AndExpression '&' EqualityExpression + panic(todo("", p.pos(n))) + default: + panic(todo("%v: internal error: %v", n.Position(), n.Case)) + } +} + +func (p *project) andExpressionFunc(f *function, n *cc.AndExpression, t cc.Type, mode exprMode, flags flags) { + switch n.Case { + case cc.AndExpressionEq: // EqualityExpression + p.equalityExpression(f, n.EqualityExpression, t, mode, flags) + case cc.AndExpressionAnd: // AndExpression '&' EqualityExpression + panic(todo("", p.pos(n))) + default: + panic(todo("%v: internal error: %v", n.Position(), n.Case)) + } +} + +func (p *project) andExpressionPSelect(f *function, n *cc.AndExpression, t cc.Type, mode exprMode, flags flags) { + switch n.Case { + case cc.AndExpressionEq: // EqualityExpression + p.equalityExpression(f, n.EqualityExpression, t, mode, flags) + case cc.AndExpressionAnd: // AndExpression '&' EqualityExpression + panic(todo("", p.pos(n))) + default: + panic(todo("%v: internal error: %v", n.Position(), n.Case)) + } +} + +func (p *project) andExpressionLValue(f *function, n *cc.AndExpression, t cc.Type, mode exprMode, flags flags) { + switch n.Case { + case cc.AndExpressionEq: // EqualityExpression + p.equalityExpression(f, n.EqualityExpression, t, mode, flags) + case cc.AndExpressionAnd: // AndExpression '&' EqualityExpression + panic(todo("", p.pos(n))) + default: + panic(todo("%v: internal error: %v", n.Position(), n.Case)) + } +} + +func (p *project) andExpressionBool(f *function, n *cc.AndExpression, t cc.Type, mode exprMode, flags flags) { + switch n.Case { + case cc.AndExpressionEq: // EqualityExpression + p.equalityExpression(f, n.EqualityExpression, t, mode, flags) + case cc.AndExpressionAnd: // AndExpression '&' EqualityExpression + p.binaryAndExpression(f, n, t, mode, flags) + default: + panic(todo("%v: internal error: %v", n.Position(), n.Case)) + } +} + +func (p *project) andExpressionAddrof(f *function, n *cc.AndExpression, t cc.Type, mode exprMode, flags flags) { + switch n.Case { + case cc.AndExpressionEq: // EqualityExpression + p.equalityExpression(f, n.EqualityExpression, t, mode, flags) + case cc.AndExpressionAnd: // AndExpression '&' EqualityExpression + panic(todo("", p.pos(n))) + default: + panic(todo("%v: internal error: %v", n.Position(), n.Case)) + } +} + +func (p *project) andExpressionVoid(f *function, n *cc.AndExpression, t cc.Type, mode exprMode, flags flags) { + switch n.Case { + case cc.AndExpressionEq: // EqualityExpression + p.equalityExpression(f, n.EqualityExpression, t, mode, flags) + case cc.AndExpressionAnd: // AndExpression '&' EqualityExpression + p.w("_ = ") + p.andExpression(f, n, n.Operand.Type(), exprValue, flags) + default: + panic(todo("%v: internal error: %v", n.Position(), n.Case)) + } +} + +func (p *project) andExpressionValue(f *function, n *cc.AndExpression, t cc.Type, mode exprMode, flags flags) { + switch n.Case { + case cc.AndExpressionEq: // EqualityExpression + p.equalityExpression(f, n.EqualityExpression, t, mode, flags) + case cc.AndExpressionAnd: // AndExpression '&' EqualityExpression + p.binaryAndExpression(f, n, t, mode, flags) + default: + panic(todo("%v: internal error: %v", n.Position(), n.Case)) + } +} + +func (p *project) binaryAndExpression(f *function, n *cc.AndExpression, t cc.Type, mode exprMode, flags flags) { + // AndExpression '&' EqualityExpression + switch mode { + case exprValue: + p.binaryAndExpressionValue(f, n, t, mode, flags) + case exprBool: + p.binaryAndExpressionBool(f, n, t, mode, flags) + default: + panic(todo("", n.Position(), mode)) + } +} + +func (p *project) binaryAndExpressionBool(f *function, n *cc.AndExpression, t cc.Type, mode exprMode, flags flags) { + defer p.w("%s", p.artithmeticBinaryExpression(n, n.Operand, n.Operand.Type(), &mode, flags)) + switch { + case andOverflows(n.AndExpression.Operand, n.EqualityExpression.Operand, n.Promote()): + p.andExpression(f, n.AndExpression, n.Promote(), exprValue, flags) + p.w(" &%s", tidyComment(" ", &n.Token)) + p.equalityExpression(f, n.EqualityExpression, n.Promote(), exprValue, flags|fForceRuntimeConv) + default: + p.andExpression(f, n.AndExpression, n.Promote(), exprValue, flags) + p.w(" &%s", tidyComment(" ", &n.Token)) + p.equalityExpression(f, n.EqualityExpression, n.Promote(), exprValue, flags) + } +} + +func (p *project) binaryAndExpressionValue(f *function, n *cc.AndExpression, t cc.Type, mode exprMode, flags flags) { + // AndExpression '&' EqualityExpression + + lt := n.AndExpression.Operand.Type() + rt := n.EqualityExpression.Operand.Type() + switch lk, rk := lt.Kind(), rt.Kind(); { + case + lk == cc.UInt128 || rk == cc.UInt128, + lk == cc.Int128 || rk == cc.Int128: + + p.binaryAndExpressionUint128(f, n, t, mode, flags) + return + } + + defer p.w("%s", p.artithmeticBinaryExpression(n, n.Operand, t, &mode, flags)) + switch { + case andOverflows(n.AndExpression.Operand, n.EqualityExpression.Operand, n.Promote()): + p.andExpression(f, n.AndExpression, n.Promote(), exprValue, flags) + p.w(" &%s", tidyComment(" ", &n.Token)) + p.equalityExpression(f, n.EqualityExpression, n.Promote(), exprValue, flags|fForceRuntimeConv) + default: + p.andExpression(f, n.AndExpression, n.Promote(), exprValue, flags) + p.w(" &%s", tidyComment(" ", &n.Token)) + p.equalityExpression(f, n.EqualityExpression, n.Promote(), exprValue, flags) + } +} + +func (p *project) binaryAndExpressionUint128(f *function, n *cc.AndExpression, t cc.Type, mode exprMode, flags flags) { + // AndExpression '&' EqualityExpression + defer p.w("%s", p.artithmeticBinaryExpression(n, n.Operand, t, &mode, flags)) + p.andExpression(f, n.AndExpression, n.Promote(), exprValue, flags) + p.w(".And(") + p.equalityExpression(f, n.EqualityExpression, n.Promote(), exprValue, flags) + p.w(")") +} + +func andOverflows(lo, ro cc.Operand, promote cc.Type) bool { + a, b, ok := getIntOperands(lo, ro) + if !ok { + return false + } + + return overflows(a.And(a, b), promote) +} + +func (p *project) equalityExpression(f *function, n *cc.EqualityExpression, t cc.Type, mode exprMode, flags flags) { + switch mode { + case exprValue: + p.equalityExpressionValue(f, n, t, mode, flags) + case exprVoid: + p.equalityExpressionVoid(f, n, t, mode, flags) + case exprAddrOf: + p.equalityExpressionAddrOf(f, n, t, mode, flags) + case exprBool: + p.equalityExpressionBool(f, n, t, mode, flags) + case exprLValue: + p.equalityExpressionLValue(f, n, t, mode, flags) + case exprPSelect: + p.equalityExpressionPSelect(f, n, t, mode, flags) + case exprFunc: + p.equalityExpressionFunc(f, n, t, mode, flags) + case exprSelect: + p.equalityExpressionSelect(f, n, t, mode, flags) + case exprDecay: + p.equalityExpressionDecay(f, n, t, mode, flags) + default: + panic(todo("", n.Position(), mode)) + } +} + +func (p *project) equalityExpressionDecay(f *function, n *cc.EqualityExpression, t cc.Type, mode exprMode, flags flags) { + switch n.Case { + case cc.EqualityExpressionRel: // RelationalExpression + p.relationalExpression(f, n.RelationalExpression, t, mode, flags) + case cc.EqualityExpressionEq: // EqualityExpression "==" RelationalExpression + panic(todo("", p.pos(n))) + case cc.EqualityExpressionNeq: // EqualityExpression "!=" RelationalExpression + panic(todo("", p.pos(n))) + default: + panic(todo("%v: internal error: %v", n.Position(), n.Case)) + } +} + +func (p *project) equalityExpressionSelect(f *function, n *cc.EqualityExpression, t cc.Type, mode exprMode, flags flags) { + switch n.Case { + case cc.EqualityExpressionRel: // RelationalExpression + p.relationalExpression(f, n.RelationalExpression, t, mode, flags) + case cc.EqualityExpressionEq: // EqualityExpression "==" RelationalExpression + panic(todo("", p.pos(n))) + case cc.EqualityExpressionNeq: // EqualityExpression "!=" RelationalExpression + panic(todo("", p.pos(n))) + default: + panic(todo("%v: internal error: %v", n.Position(), n.Case)) + } +} + +func (p *project) equalityExpressionFunc(f *function, n *cc.EqualityExpression, t cc.Type, mode exprMode, flags flags) { + switch n.Case { + case cc.EqualityExpressionRel: // RelationalExpression + p.relationalExpression(f, n.RelationalExpression, t, mode, flags) + case cc.EqualityExpressionEq: // EqualityExpression "==" RelationalExpression + panic(todo("", p.pos(n))) + case cc.EqualityExpressionNeq: // EqualityExpression "!=" RelationalExpression + panic(todo("", p.pos(n))) + default: + panic(todo("%v: internal error: %v", n.Position(), n.Case)) + } +} + +func (p *project) equalityExpressionPSelect(f *function, n *cc.EqualityExpression, t cc.Type, mode exprMode, flags flags) { + switch n.Case { + case cc.EqualityExpressionRel: // RelationalExpression + p.relationalExpression(f, n.RelationalExpression, t, mode, flags) + case cc.EqualityExpressionEq: // EqualityExpression "==" RelationalExpression + panic(todo("", p.pos(n))) + case cc.EqualityExpressionNeq: // EqualityExpression "!=" RelationalExpression + panic(todo("", p.pos(n))) + default: + panic(todo("%v: internal error: %v", n.Position(), n.Case)) + } +} + +func (p *project) equalityExpressionLValue(f *function, n *cc.EqualityExpression, t cc.Type, mode exprMode, flags flags) { + switch n.Case { + case cc.EqualityExpressionRel: // RelationalExpression + p.relationalExpression(f, n.RelationalExpression, t, mode, flags) + case cc.EqualityExpressionEq: // EqualityExpression "==" RelationalExpression + panic(todo("", p.pos(n))) + case cc.EqualityExpressionNeq: // EqualityExpression "!=" RelationalExpression + panic(todo("", p.pos(n))) + default: + panic(todo("%v: internal error: %v", n.Position(), n.Case)) + } +} + +func (p *project) equalityExpressionBool(f *function, n *cc.EqualityExpression, t cc.Type, mode exprMode, flags flags) { + switch n.Case { + case cc.EqualityExpressionRel: // RelationalExpression + p.relationalExpression(f, n.RelationalExpression, t, mode, flags) + case cc.EqualityExpressionEq: // EqualityExpression "==" RelationalExpression + p.binaryEqualityExpression(f, n, " == ", t, mode, flags) + case cc.EqualityExpressionNeq: // EqualityExpression "!=" RelationalExpression + p.binaryEqualityExpression(f, n, " != ", t, mode, flags) + default: + panic(todo("%v: internal error: %v", n.Position(), n.Case)) + } +} + +func (p *project) equalityExpressionAddrOf(f *function, n *cc.EqualityExpression, t cc.Type, mode exprMode, flags flags) { + switch n.Case { + case cc.EqualityExpressionRel: // RelationalExpression + p.relationalExpression(f, n.RelationalExpression, t, mode, flags) + case cc.EqualityExpressionEq: // EqualityExpression "==" RelationalExpression + panic(todo("", p.pos(n))) + case cc.EqualityExpressionNeq: // EqualityExpression "!=" RelationalExpression + panic(todo("", p.pos(n))) + default: + panic(todo("%v: internal error: %v", n.Position(), n.Case)) + } +} + +func (p *project) equalityExpressionVoid(f *function, n *cc.EqualityExpression, t cc.Type, mode exprMode, flags flags) { + switch n.Case { + case cc.EqualityExpressionRel: // RelationalExpression + p.relationalExpression(f, n.RelationalExpression, t, mode, flags) + default: + // case cc.EqualityExpressionEq: // EqualityExpression "==" RelationalExpression + // case cc.EqualityExpressionNeq: // EqualityExpression "!=" RelationalExpression + p.w("_ = ") + p.equalityExpression(f, n, n.Operand.Type(), exprValue, flags) + } +} + +func (p *project) equalityExpressionValue(f *function, n *cc.EqualityExpression, t cc.Type, mode exprMode, flags flags) { + switch n.Case { + case cc.EqualityExpressionRel: // RelationalExpression + p.relationalExpression(f, n.RelationalExpression, t, mode, flags) + case cc.EqualityExpressionEq: // EqualityExpression "==" RelationalExpression + p.binaryEqualityExpression(f, n, " == ", t, mode, flags) + case cc.EqualityExpressionNeq: // EqualityExpression "!=" RelationalExpression + p.binaryEqualityExpression(f, n, " != ", t, mode, flags) + default: + panic(todo("%v: internal error: %v", n.Position(), n.Case)) + } +} + +func (p *project) binaryEqualityExpression(f *function, n *cc.EqualityExpression, oper string, t cc.Type, mode exprMode, flags flags) { + switch mode { + case exprValue: + p.binaryEqualityExpressionValue(f, n, oper, t, mode, flags) + case exprBool: + p.binaryEqualityExpressionBool(f, n, oper, t, mode, flags) + default: + panic(todo("", n.Position(), mode)) + } +} + +func (p *project) binaryEqualityExpressionBool(f *function, n *cc.EqualityExpression, oper string, t cc.Type, mode exprMode, flags flags) { + defer p.w("%s", p.booleanBinaryExpression(n, n.Operand, t, &mode, flags)) + p.equalityExpression(f, n.EqualityExpression, n.Promote(), exprValue, flags) + p.w(" %s%s", oper, tidyComment(" ", &n.Token)) + p.relationalExpression(f, n.RelationalExpression, n.Promote(), exprValue, flags) +} + +func (p *project) binaryEqualityExpressionValue(f *function, n *cc.EqualityExpression, oper string, t cc.Type, mode exprMode, flags flags) { + defer p.w("%s", p.booleanBinaryExpression(n, n.Operand, t, &mode, flags)) + p.equalityExpression(f, n.EqualityExpression, n.Promote(), exprValue, flags) + p.w(" %s%s", oper, tidyComment(" ", &n.Token)) + p.relationalExpression(f, n.RelationalExpression, n.Promote(), exprValue, flags) +} + +func (p *project) relationalExpression(f *function, n *cc.RelationalExpression, t cc.Type, mode exprMode, flags flags) { + switch mode { + case exprValue: + p.relationalExpressionValue(f, n, t, mode, flags) + case exprVoid: + p.relationalExpressionVoid(f, n, t, mode, flags) + case exprAddrOf: + p.relationalExpressionAddrOf(f, n, t, mode, flags) + case exprBool: + p.relationalExpressionBool(f, n, t, mode, flags) + case exprLValue: + p.relationalExpressionLValue(f, n, t, mode, flags) + case exprPSelect: + p.relationalExpressionPSelect(f, n, t, mode, flags) + case exprFunc: + p.relationalExpressionFunc(f, n, t, mode, flags) + case exprSelect: + p.relationalExpressionSelect(f, n, t, mode, flags) + case exprDecay: + p.relationalExpressionDecay(f, n, t, mode, flags) + default: + panic(todo("", n.Position(), mode)) + } +} + +func (p *project) relationalExpressionDecay(f *function, n *cc.RelationalExpression, t cc.Type, mode exprMode, flags flags) { + switch n.Case { + case cc.RelationalExpressionShift: // ShiftExpression + p.shiftExpression(f, n.ShiftExpression, t, mode, flags) + case cc.RelationalExpressionLt: // RelationalExpression '<' ShiftExpression + panic(todo("", p.pos(n))) + case cc.RelationalExpressionGt: // RelationalExpression '>' ShiftExpression + panic(todo("", p.pos(n))) + case cc.RelationalExpressionLeq: // RelationalExpression "<=" ShiftExpression + panic(todo("", p.pos(n))) + case cc.RelationalExpressionGeq: // RelationalExpression ">=" ShiftExpression + panic(todo("", p.pos(n))) + default: + panic(todo("%v: internal error: %v", n.Position(), n.Case)) + } +} + +func (p *project) relationalExpressionSelect(f *function, n *cc.RelationalExpression, t cc.Type, mode exprMode, flags flags) { + switch n.Case { + case cc.RelationalExpressionShift: // ShiftExpression + p.shiftExpression(f, n.ShiftExpression, t, mode, flags) + case cc.RelationalExpressionLt: // RelationalExpression '<' ShiftExpression + panic(todo("", p.pos(n))) + case cc.RelationalExpressionGt: // RelationalExpression '>' ShiftExpression + panic(todo("", p.pos(n))) + case cc.RelationalExpressionLeq: // RelationalExpression "<=" ShiftExpression + panic(todo("", p.pos(n))) + case cc.RelationalExpressionGeq: // RelationalExpression ">=" ShiftExpression + panic(todo("", p.pos(n))) + default: + panic(todo("%v: internal error: %v", n.Position(), n.Case)) + } +} + +func (p *project) relationalExpressionFunc(f *function, n *cc.RelationalExpression, t cc.Type, mode exprMode, flags flags) { + switch n.Case { + case cc.RelationalExpressionShift: // ShiftExpression + p.shiftExpression(f, n.ShiftExpression, t, mode, flags) + case cc.RelationalExpressionLt: // RelationalExpression '<' ShiftExpression + panic(todo("", p.pos(n))) + case cc.RelationalExpressionGt: // RelationalExpression '>' ShiftExpression + panic(todo("", p.pos(n))) + case cc.RelationalExpressionLeq: // RelationalExpression "<=" ShiftExpression + panic(todo("", p.pos(n))) + case cc.RelationalExpressionGeq: // RelationalExpression ">=" ShiftExpression + panic(todo("", p.pos(n))) + default: + panic(todo("%v: internal error: %v", n.Position(), n.Case)) + } +} + +func (p *project) relationalExpressionPSelect(f *function, n *cc.RelationalExpression, t cc.Type, mode exprMode, flags flags) { + switch n.Case { + case cc.RelationalExpressionShift: // ShiftExpression + p.shiftExpression(f, n.ShiftExpression, t, mode, flags) + case cc.RelationalExpressionLt: // RelationalExpression '<' ShiftExpression + panic(todo("", p.pos(n))) + case cc.RelationalExpressionGt: // RelationalExpression '>' ShiftExpression + panic(todo("", p.pos(n))) + case cc.RelationalExpressionLeq: // RelationalExpression "<=" ShiftExpression + panic(todo("", p.pos(n))) + case cc.RelationalExpressionGeq: // RelationalExpression ">=" ShiftExpression + panic(todo("", p.pos(n))) + default: + panic(todo("%v: internal error: %v", n.Position(), n.Case)) + } +} + +func (p *project) relationalExpressionLValue(f *function, n *cc.RelationalExpression, t cc.Type, mode exprMode, flags flags) { + switch n.Case { + case cc.RelationalExpressionShift: // ShiftExpression + p.shiftExpression(f, n.ShiftExpression, t, mode, flags) + case cc.RelationalExpressionLt: // RelationalExpression '<' ShiftExpression + panic(todo("", p.pos(n))) + case cc.RelationalExpressionGt: // RelationalExpression '>' ShiftExpression + panic(todo("", p.pos(n))) + case cc.RelationalExpressionLeq: // RelationalExpression "<=" ShiftExpression + panic(todo("", p.pos(n))) + case cc.RelationalExpressionGeq: // RelationalExpression ">=" ShiftExpression + panic(todo("", p.pos(n))) + default: + panic(todo("%v: internal error: %v", n.Position(), n.Case)) + } +} + +func (p *project) relationalExpressionBool(f *function, n *cc.RelationalExpression, t cc.Type, mode exprMode, flags flags) { + switch n.Case { + case cc.RelationalExpressionShift: // ShiftExpression + p.shiftExpression(f, n.ShiftExpression, t, mode, flags) + case cc.RelationalExpressionLt: // RelationalExpression '<' ShiftExpression + p.binaryRelationalExpression(f, n, " < ", t, mode, flags) + case cc.RelationalExpressionGt: // RelationalExpression '>' ShiftExpression + p.binaryRelationalExpression(f, n, " > ", t, mode, flags) + case cc.RelationalExpressionLeq: // RelationalExpression "<=" ShiftExpression + p.binaryRelationalExpression(f, n, " <= ", t, mode, flags) + case cc.RelationalExpressionGeq: // RelationalExpression ">=" ShiftExpression + p.binaryRelationalExpression(f, n, " >= ", t, mode, flags) + default: + panic(todo("%v: internal error: %v", n.Position(), n.Case)) + } +} + +func (p *project) relationalExpressionAddrOf(f *function, n *cc.RelationalExpression, t cc.Type, mode exprMode, flags flags) { + switch n.Case { + case cc.RelationalExpressionShift: // ShiftExpression + p.shiftExpression(f, n.ShiftExpression, t, mode, flags) + case cc.RelationalExpressionLt: // RelationalExpression '<' ShiftExpression + panic(todo("", p.pos(n))) + case cc.RelationalExpressionGt: // RelationalExpression '>' ShiftExpression + panic(todo("", p.pos(n))) + case cc.RelationalExpressionLeq: // RelationalExpression "<=" ShiftExpression + panic(todo("", p.pos(n))) + case cc.RelationalExpressionGeq: // RelationalExpression ">=" ShiftExpression + panic(todo("", p.pos(n))) + default: + panic(todo("%v: internal error: %v", n.Position(), n.Case)) + } +} + +func (p *project) relationalExpressionVoid(f *function, n *cc.RelationalExpression, t cc.Type, mode exprMode, flags flags) { + switch n.Case { + case cc.RelationalExpressionShift: // ShiftExpression + p.shiftExpression(f, n.ShiftExpression, t, mode, flags) + default: + // case cc.RelationalExpressionLt: // RelationalExpression '<' ShiftExpression + // case cc.RelationalExpressionGt: // RelationalExpression '>' ShiftExpression + // case cc.RelationalExpressionLeq: // RelationalExpression "<=" ShiftExpression + // case cc.RelationalExpressionGeq: // RelationalExpression ">=" ShiftExpression + p.w("_ = ") + p.relationalExpression(f, n, n.Operand.Type(), exprValue, flags) + } +} + +func (p *project) relationalExpressionValue(f *function, n *cc.RelationalExpression, t cc.Type, mode exprMode, flags flags) { + switch n.Case { + case cc.RelationalExpressionShift: // ShiftExpression + p.shiftExpression(f, n.ShiftExpression, t, mode, flags) + case cc.RelationalExpressionLt: // RelationalExpression '<' ShiftExpression + p.binaryRelationalExpression(f, n, " < ", t, mode, flags) + case cc.RelationalExpressionGt: // RelationalExpression '>' ShiftExpression + p.binaryRelationalExpression(f, n, " > ", t, mode, flags) + case cc.RelationalExpressionLeq: // RelationalExpression "<=" ShiftExpression + p.binaryRelationalExpression(f, n, " <= ", t, mode, flags) + case cc.RelationalExpressionGeq: // RelationalExpression ">=" ShiftExpression + p.binaryRelationalExpression(f, n, " >= ", t, mode, flags) + default: + panic(todo("%v: internal error: %v", n.Position(), n.Case)) + } +} + +func (p *project) binaryRelationalExpression(f *function, n *cc.RelationalExpression, oper string, t cc.Type, mode exprMode, flags flags) { + // RelationalExpression "<=" ShiftExpression + lt := n.RelationalExpression.Operand.Type() + rt := n.ShiftExpression.Operand.Type() + switch lk, rk := lt.Kind(), rt.Kind(); { + case + lk == cc.UInt128 || rk == cc.UInt128, + lk == cc.Int128 || rk == cc.Int128: + + p.binaryRelationalExpressionInt128(f, n, oper, t, mode, flags) + return + } + + defer p.w("%s", p.booleanBinaryExpression(n, n.Operand, t, &mode, flags)) + p.relationalExpression(f, n.RelationalExpression, n.Promote(), exprValue, flags) + p.w(" %s%s", oper, tidyComment(" ", &n.Token)) + p.shiftExpression(f, n.ShiftExpression, n.Promote(), exprValue, flags) +} + +func (p *project) binaryRelationalExpressionInt128(f *function, n *cc.RelationalExpression, oper string, t cc.Type, mode exprMode, flags flags) { + // RelationalExpression "<=" ShiftExpression + defer p.w("%s", p.booleanBinaryExpression(n, n.Operand, t, &mode, flags)) + p.relationalExpression(f, n.RelationalExpression, n.Promote(), exprValue, flags) + p.w(".Cmp(") + p.shiftExpression(f, n.ShiftExpression, n.Promote(), exprValue, flags) + p.w(") %s 0", oper) +} + +func (p *project) shiftExpression(f *function, n *cc.ShiftExpression, t cc.Type, mode exprMode, flags flags) { + switch mode { + case exprValue: + p.shiftExpressionValue(f, n, t, mode, flags) + case exprVoid: + p.shiftExpressionVoid(f, n, t, mode, flags) + case exprAddrOf: + p.shiftExpressionAddrOf(f, n, t, mode, flags) + case exprBool: + p.shiftExpressionBool(f, n, t, mode, flags) + case exprLValue: + p.shiftExpressionLValue(f, n, t, mode, flags) + case exprPSelect: + p.shiftExpressionPSelect(f, n, t, mode, flags) + case exprFunc: + p.shiftExpressionFunc(f, n, t, mode, flags) + case exprSelect: + p.shiftExpressionSelect(f, n, t, mode, flags) + case exprDecay: + p.shiftExpressionDecay(f, n, t, mode, flags) + default: + panic(todo("", n.Position(), mode)) + } +} + +func (p *project) shiftExpressionDecay(f *function, n *cc.ShiftExpression, t cc.Type, mode exprMode, flags flags) { + switch n.Case { + case cc.ShiftExpressionAdd: // AdditiveExpression + p.additiveExpression(f, n.AdditiveExpression, t, mode, flags) + case cc.ShiftExpressionLsh: // ShiftExpression "<<" AdditiveExpression + panic(todo("", p.pos(n))) + case cc.ShiftExpressionRsh: // ShiftExpression ">>" AdditiveExpression + panic(todo("", p.pos(n))) + default: + panic(todo("%v: internal error: %v", n.Position(), n.Case)) + } +} + +func (p *project) shiftExpressionSelect(f *function, n *cc.ShiftExpression, t cc.Type, mode exprMode, flags flags) { + switch n.Case { + case cc.ShiftExpressionAdd: // AdditiveExpression + p.additiveExpression(f, n.AdditiveExpression, t, mode, flags) + case cc.ShiftExpressionLsh: // ShiftExpression "<<" AdditiveExpression + panic(todo("", p.pos(n))) + case cc.ShiftExpressionRsh: // ShiftExpression ">>" AdditiveExpression + panic(todo("", p.pos(n))) + default: + panic(todo("%v: internal error: %v", n.Position(), n.Case)) + } +} + +func (p *project) shiftExpressionFunc(f *function, n *cc.ShiftExpression, t cc.Type, mode exprMode, flags flags) { + switch n.Case { + case cc.ShiftExpressionAdd: // AdditiveExpression + p.additiveExpression(f, n.AdditiveExpression, t, mode, flags) + case cc.ShiftExpressionLsh: // ShiftExpression "<<" AdditiveExpression + panic(todo("", p.pos(n))) + case cc.ShiftExpressionRsh: // ShiftExpression ">>" AdditiveExpression + panic(todo("", p.pos(n))) + default: + panic(todo("%v: internal error: %v", n.Position(), n.Case)) + } +} + +func (p *project) shiftExpressionPSelect(f *function, n *cc.ShiftExpression, t cc.Type, mode exprMode, flags flags) { + switch n.Case { + case cc.ShiftExpressionAdd: // AdditiveExpression + p.additiveExpression(f, n.AdditiveExpression, t, mode, flags) + case cc.ShiftExpressionLsh: // ShiftExpression "<<" AdditiveExpression + panic(todo("", p.pos(n))) + case cc.ShiftExpressionRsh: // ShiftExpression ">>" AdditiveExpression + panic(todo("", p.pos(n))) + default: + panic(todo("%v: internal error: %v", n.Position(), n.Case)) + } +} + +func (p *project) shiftExpressionLValue(f *function, n *cc.ShiftExpression, t cc.Type, mode exprMode, flags flags) { + switch n.Case { + case cc.ShiftExpressionAdd: // AdditiveExpression + p.additiveExpression(f, n.AdditiveExpression, t, mode, flags) + case cc.ShiftExpressionLsh: // ShiftExpression "<<" AdditiveExpression + panic(todo("", p.pos(n))) + case cc.ShiftExpressionRsh: // ShiftExpression ">>" AdditiveExpression + panic(todo("", p.pos(n))) + default: + panic(todo("%v: internal error: %v", n.Position(), n.Case)) + } +} + +func (p *project) shiftExpressionBool(f *function, n *cc.ShiftExpression, t cc.Type, mode exprMode, flags flags) { + switch n.Case { + case cc.ShiftExpressionAdd: // AdditiveExpression + p.additiveExpression(f, n.AdditiveExpression, t, mode, flags) + case cc.ShiftExpressionLsh: // ShiftExpression "<<" AdditiveExpression + p.binaryShiftExpression(f, n, "<<", t, mode, flags) + case cc.ShiftExpressionRsh: // ShiftExpression ">>" AdditiveExpression + p.binaryShiftExpression(f, n, ">>", t, mode, flags) + default: + panic(todo("%v: internal error: %v", n.Position(), n.Case)) + } +} + +func (p *project) shiftExpressionAddrOf(f *function, n *cc.ShiftExpression, t cc.Type, mode exprMode, flags flags) { + switch n.Case { + case cc.ShiftExpressionAdd: // AdditiveExpression + p.additiveExpression(f, n.AdditiveExpression, t, mode, flags) + case cc.ShiftExpressionLsh: // ShiftExpression "<<" AdditiveExpression + panic(todo("", p.pos(n))) + case cc.ShiftExpressionRsh: // ShiftExpression ">>" AdditiveExpression + panic(todo("", p.pos(n))) + default: + panic(todo("%v: internal error: %v", n.Position(), n.Case)) + } +} + +func (p *project) shiftExpressionVoid(f *function, n *cc.ShiftExpression, t cc.Type, mode exprMode, flags flags) { + switch n.Case { + case cc.ShiftExpressionAdd: // AdditiveExpression + p.additiveExpression(f, n.AdditiveExpression, t, mode, flags) + case cc.ShiftExpressionLsh: // ShiftExpression "<<" AdditiveExpression + panic(todo("", p.pos(n))) + case cc.ShiftExpressionRsh: // ShiftExpression ">>" AdditiveExpression + panic(todo("", p.pos(n))) + default: + panic(todo("%v: internal error: %v", n.Position(), n.Case)) + } +} + +func (p *project) shiftExpressionValue(f *function, n *cc.ShiftExpression, t cc.Type, mode exprMode, flags flags) { + switch n.Case { + case cc.ShiftExpressionAdd: // AdditiveExpression + p.additiveExpression(f, n.AdditiveExpression, t, mode, flags) + case cc.ShiftExpressionLsh: // ShiftExpression "<<" AdditiveExpression + p.binaryShiftExpression(f, n, "<<", t, mode, flags) + case cc.ShiftExpressionRsh: // ShiftExpression ">>" AdditiveExpression + p.binaryShiftExpression(f, n, ">>", t, mode, flags) + default: + panic(todo("%v: internal error: %v", n.Position(), n.Case)) + } +} + +func (p *project) binaryShiftExpression(f *function, n *cc.ShiftExpression, oper string, t cc.Type, mode exprMode, flags flags) { + // ShiftExpression "<<" AdditiveExpression + switch mode { + case exprValue: + p.binaryShiftExpressionValue(f, n, oper, t, mode, flags) + case exprBool: + p.binaryShiftExpressionBool(f, n, oper, t, mode, flags) + default: + panic(todo("", n.Position(), mode)) + } +} + +func (p *project) todo(n cc.Node, t cc.Type) { + p.w("func() %s { panic(`%v: TODO (%v)`)}()", p.typ(n, t), n.Position(), origin(2)) +} + +func (p *project) binaryShiftExpressionBool(f *function, n *cc.ShiftExpression, oper string, t cc.Type, mode exprMode, flags flags) { + defer p.w("%s", p.artithmeticBinaryExpression(n, n.Operand, n.Operand.Type(), &mode, flags)) + switch { + case n.ShiftExpression.Operand.Type().IsBitFieldType(): + p.w("(") + p.shiftExpression(f, n.ShiftExpression, n.Operand.Type(), exprValue, flags) + p.w(" %s%s", oper, tidyComment(" ", &n.Token)) + p.additiveExpression(f, n.AdditiveExpression, n.Promote(), exprValue, flags) + p.w(")&%#x", bfValueMask(n.ShiftExpression.Operand.Type().BitField())) + case shiftOverflows(n, n.ShiftExpression.Operand, n.AdditiveExpression.Operand, oper, n.Operand.Type()): + p.shiftExpression(f, n.ShiftExpression, n.Operand.Type(), exprValue, flags|fForceRuntimeConv) + p.w(" %s%s", oper, tidyComment(" ", &n.Token)) + p.additiveExpression(f, n.AdditiveExpression, n.Promote(), exprValue, flags) + case isConstInteger(n.ShiftExpression.Operand): + s := p.convertNil(n, n.Operand.Type(), 0) + p.shiftExpression(f, n.ShiftExpression, n.Operand.Type(), exprValue, flags) + p.w("%s %s%s", s, oper, tidyComment(" ", &n.Token)) + p.additiveExpression(f, n.AdditiveExpression, n.Promote(), exprValue, flags) + default: + p.shiftExpression(f, n.ShiftExpression, n.Operand.Type(), exprValue, flags) + p.w(" %s%s", oper, tidyComment(" ", &n.Token)) + p.additiveExpression(f, n.AdditiveExpression, n.Promote(), exprValue, flags) + } +} + +func shiftOp(s string) string { + switch s { + case "<<": + return "Shl" + case ">>": + return "Shr" + default: + panic(todo("%q", s)) + } +} + +func bfValueMask(bf cc.Field) uint64 { + return uint64(1)<<bf.BitFieldWidth() - 1 +} + +func (p *project) binaryShiftExpressionValue(f *function, n *cc.ShiftExpression, oper string, t cc.Type, mode exprMode, flags flags) { + // ShiftExpression "<<" AdditiveExpression + defer p.w("%s", p.artithmeticBinaryExpression(n, n.Operand, t, &mode, flags)) + switch k := n.ShiftExpression.Operand.Type().Kind(); { + case k == cc.Int128, k == cc.UInt128: + p.w("(") + p.shiftExpression(f, n.ShiftExpression, n.Operand.Type(), exprValue, flags) + p.w(").%s(", shiftOp(oper)) + p.additiveExpression(f, n.AdditiveExpression, p.intType, exprValue, flags) + p.w(")") + case n.ShiftExpression.Operand.Type().IsBitFieldType(): + p.w("(") + p.shiftExpression(f, n.ShiftExpression, n.Operand.Type(), exprValue, flags) + p.w(" %s%s", oper, tidyComment(" ", &n.Token)) + p.additiveExpression(f, n.AdditiveExpression, n.Promote(), exprValue, flags) + p.w(")&%#x", bfValueMask(n.ShiftExpression.Operand.Type().BitField())) + case shiftOverflows(n, n.ShiftExpression.Operand, n.AdditiveExpression.Operand, oper, n.Operand.Type()): + p.shiftExpression(f, n.ShiftExpression, n.Operand.Type(), exprValue, flags|fForceRuntimeConv) + p.w(" %s%s", oper, tidyComment(" ", &n.Token)) + p.additiveExpression(f, n.AdditiveExpression, n.Promote(), exprValue, flags) + case isConstInteger(n.ShiftExpression.Operand): + s := p.convertNil(n, n.Operand.Type(), 0) + p.shiftExpression(f, n.ShiftExpression, n.Operand.Type(), exprValue, flags) + p.w("%s %s%s", s, oper, tidyComment(" ", &n.Token)) + p.additiveExpression(f, n.AdditiveExpression, n.Promote(), exprValue, flags) + default: + p.shiftExpression(f, n.ShiftExpression, n.Operand.Type(), exprValue, flags) + p.w(" %s%s", oper, tidyComment(" ", &n.Token)) + p.additiveExpression(f, n.AdditiveExpression, n.Promote(), exprValue, flags) + } +} + +func shiftOverflows(n cc.Node, lo, ro cc.Operand, oper string, result cc.Type) bool { + a, b, ok := getIntOperands(lo, ro) + if !ok { + return false + } + + if !b.IsUint64() { + return true + } + + bits := b.Uint64() + if bits > mathutil.MaxUint { + return true + } + + switch oper { + case "<<": + return overflows(a.Lsh(a, uint(bits)), result) + case ">>": + return overflows(a.Rsh(a, uint(bits)), result) + default: + panic(todo("", pos(n))) + } +} + +func (p *project) additiveExpression(f *function, n *cc.AdditiveExpression, t cc.Type, mode exprMode, flags flags) { + switch mode { + case exprValue: + p.additiveExpressionValue(f, n, t, mode, flags) + case exprVoid: + p.additiveExpressionVoid(f, n, t, mode, flags) + case exprAddrOf: + p.additiveExpressionAddrOf(f, n, t, mode, flags) + case exprBool: + p.additiveExpressionBool(f, n, t, mode, flags) + case exprLValue: + p.additiveExpressionLValue(f, n, t, mode, flags) + case exprPSelect: + p.additiveExpressionPSelect(f, n, t, mode, flags) + case exprFunc: + p.additiveExpressionFunc(f, n, t, mode, flags) + case exprSelect: + p.additiveExpressionSelect(f, n, t, mode, flags) + case exprDecay: + p.additiveExpressionDecay(f, n, t, mode, flags) + default: + panic(todo("", n.Position(), mode)) + } +} + +func (p *project) additiveExpressionDecay(f *function, n *cc.AdditiveExpression, t cc.Type, mode exprMode, flags flags) { + switch n.Case { + case cc.AdditiveExpressionMul: // MultiplicativeExpression + p.multiplicativeExpression(f, n.MultiplicativeExpression, t, mode, flags) + case cc.AdditiveExpressionAdd: // AdditiveExpression '+' MultiplicativeExpression + panic(todo("", p.pos(n))) + case cc.AdditiveExpressionSub: // AdditiveExpression '-' MultiplicativeExpression + panic(todo("", p.pos(n))) + default: + panic(todo("%v: internal error: %v", n.Position(), n.Case)) + } +} + +func (p *project) additiveExpressionSelect(f *function, n *cc.AdditiveExpression, t cc.Type, mode exprMode, flags flags) { + switch n.Case { + case cc.AdditiveExpressionMul: // MultiplicativeExpression + p.multiplicativeExpression(f, n.MultiplicativeExpression, t, mode, flags) + case cc.AdditiveExpressionAdd: // AdditiveExpression '+' MultiplicativeExpression + panic(todo("", p.pos(n))) + case cc.AdditiveExpressionSub: // AdditiveExpression '-' MultiplicativeExpression + panic(todo("", p.pos(n))) + default: + panic(todo("%v: internal error: %v", n.Position(), n.Case)) + } +} + +func (p *project) additiveExpressionFunc(f *function, n *cc.AdditiveExpression, t cc.Type, mode exprMode, flags flags) { + switch n.Case { + case cc.AdditiveExpressionMul: // MultiplicativeExpression + p.multiplicativeExpression(f, n.MultiplicativeExpression, t, mode, flags) + case cc.AdditiveExpressionAdd: // AdditiveExpression '+' MultiplicativeExpression + panic(todo("", p.pos(n))) + case cc.AdditiveExpressionSub: // AdditiveExpression '-' MultiplicativeExpression + panic(todo("", p.pos(n))) + default: + panic(todo("%v: internal error: %v", n.Position(), n.Case)) + } +} + +func (p *project) additiveExpressionPSelect(f *function, n *cc.AdditiveExpression, t cc.Type, mode exprMode, flags flags) { + switch n.Case { + case cc.AdditiveExpressionMul: // MultiplicativeExpression + p.multiplicativeExpression(f, n.MultiplicativeExpression, t, mode, flags) + case cc.AdditiveExpressionAdd: // AdditiveExpression '+' MultiplicativeExpression + p.w("(*%s)(unsafe.Pointer(", p.typ(n, t.Elem())) + p.additiveExpression(f, n, t, exprValue, flags) + p.w("))") + case cc.AdditiveExpressionSub: // AdditiveExpression '-' MultiplicativeExpression + p.w("(*%s)(unsafe.Pointer(", p.typ(n, t.Elem())) + p.additiveExpression(f, n, t, exprValue, flags) + + default: + panic(todo("%v: internal error: %v", n.Position(), n.Case)) + } +} + +func (p *project) additiveExpressionLValue(f *function, n *cc.AdditiveExpression, t cc.Type, mode exprMode, flags flags) { + switch n.Case { + case cc.AdditiveExpressionMul: // MultiplicativeExpression + p.multiplicativeExpression(f, n.MultiplicativeExpression, t, mode, flags) + case cc.AdditiveExpressionAdd: // AdditiveExpression '+' MultiplicativeExpression + panic(todo("", p.pos(n))) + case cc.AdditiveExpressionSub: // AdditiveExpression '-' MultiplicativeExpression + panic(todo("", p.pos(n))) + default: + panic(todo("%v: internal error: %v", n.Position(), n.Case)) + } +} + +func (p *project) additiveExpressionBool(f *function, n *cc.AdditiveExpression, t cc.Type, mode exprMode, flags flags) { + switch n.Case { + case cc.AdditiveExpressionMul: // MultiplicativeExpression + p.multiplicativeExpression(f, n.MultiplicativeExpression, t, mode, flags) + case cc.AdditiveExpressionAdd: // AdditiveExpression '+' MultiplicativeExpression + p.binaryAdditiveExpression(f, n, "+", t, mode, flags) + case cc.AdditiveExpressionSub: // AdditiveExpression '-' MultiplicativeExpression + p.binaryAdditiveExpression(f, n, "-", t, mode, flags) + default: + panic(todo("%v: internal error: %v", n.Position(), n.Case)) + } +} + +func (p *project) additiveExpressionAddrOf(f *function, n *cc.AdditiveExpression, t cc.Type, mode exprMode, flags flags) { + switch n.Case { + case cc.AdditiveExpressionMul: // MultiplicativeExpression + p.multiplicativeExpression(f, n.MultiplicativeExpression, t, mode, flags) + case cc.AdditiveExpressionAdd: // AdditiveExpression '+' MultiplicativeExpression + panic(todo("", p.pos(n))) + case cc.AdditiveExpressionSub: // AdditiveExpression '-' MultiplicativeExpression + panic(todo("", p.pos(n))) + default: + panic(todo("%v: internal error: %v", n.Position(), n.Case)) + } +} + +func (p *project) additiveExpressionVoid(f *function, n *cc.AdditiveExpression, t cc.Type, mode exprMode, flags flags) { + switch n.Case { + case cc.AdditiveExpressionMul: // MultiplicativeExpression + p.multiplicativeExpression(f, n.MultiplicativeExpression, t, mode, flags) + case + cc.AdditiveExpressionAdd, // AdditiveExpression '+' MultiplicativeExpression + cc.AdditiveExpressionSub: // AdditiveExpression '-' MultiplicativeExpression + + p.w("_ = ") + p.additiveExpression(f, n, n.Operand.Type(), exprValue, flags) + default: + panic(todo("%v: internal error: %v", n.Position(), n.Case)) + } +} + +func (p *project) additiveExpressionValue(f *function, n *cc.AdditiveExpression, t cc.Type, mode exprMode, flags flags) { + switch n.Case { + case cc.AdditiveExpressionMul: // MultiplicativeExpression + p.multiplicativeExpression(f, n.MultiplicativeExpression, t, mode, flags) + case cc.AdditiveExpressionAdd: // AdditiveExpression '+' MultiplicativeExpression + p.binaryAdditiveExpression(f, n, "+", t, mode, flags) + case cc.AdditiveExpressionSub: // AdditiveExpression '-' MultiplicativeExpression + p.binaryAdditiveExpression(f, n, "-", t, mode, flags) + default: + panic(todo("%v: internal error: %v", n.Position(), n.Case)) + } +} + +func (p *project) binaryAdditiveExpression(f *function, n *cc.AdditiveExpression, oper string, t cc.Type, mode exprMode, flags flags) { + // AdditiveExpression '+' MultiplicativeExpression + switch mode { + case exprValue: + p.binaryAdditiveExpressionValue(f, n, oper, t, mode, flags) + case exprBool: + p.binaryAdditiveExpressionBool(f, n, oper, t, mode, flags) + default: + panic(todo("", mode)) + } +} + +func (p *project) binaryAdditiveExpressionBool(f *function, n *cc.AdditiveExpression, oper string, t cc.Type, mode exprMode, flags flags) { + // AdditiveExpression '+' MultiplicativeExpression + defer p.w("%s", p.artithmeticBinaryExpression(n, n.Operand, n.Operand.Type(), &mode, flags)) + lo := n.AdditiveExpression.Operand + ro := n.MultiplicativeExpression.Operand + lt := lo.Type() + rt := ro.Type() + switch { + case lt.Kind() == cc.Ptr && rt.Kind() == cc.Ptr && oper == "-": + p.additiveExpression(f, n.AdditiveExpression, n.Promote(), exprValue, flags) + p.w(" %s%s", oper, tidyComment(" ", &n.Token)) + p.multiplicativeExpression(f, n.MultiplicativeExpression, n.Promote(), exprValue, flags) + case lt.IsArithmeticType() && rt.IsArithmeticType(): // x +- y + defer p.w("%s", p.bitFieldPatch2(n, lo, ro, n.Promote())) //TODO bit field big endian + switch { + case intAddOverflows(n, lo, ro, oper, n.Promote()): // i +- j + p.additiveExpression(f, n.AdditiveExpression, n.Promote(), exprValue, flags) + p.w(" %s%s", oper, tidyComment(" ", &n.Token)) + p.multiplicativeExpression(f, n.MultiplicativeExpression, n.Promote(), exprValue, flags|fForceRuntimeConv) + default: + var s string + if isRealType(n.Operand) && n.Operand.Value() != nil { + s = p.convertNil(n, n.Promote(), flags) + } + p.additiveExpression(f, n.AdditiveExpression, n.Promote(), exprValue, flags) + p.w("%s %s%s", s, oper, tidyComment(" ", &n.Token)) + p.multiplicativeExpression(f, n.MultiplicativeExpression, n.Promote(), exprValue, flags) + } + default: + panic(todo("", n.Position(), lt, rt, oper)) + } +} + +func (p *project) binaryAdditiveExpressionValue(f *function, n *cc.AdditiveExpression, oper string, t cc.Type, mode exprMode, flags flags) { + // AdditiveExpression '+' MultiplicativeExpression + + lt := n.AdditiveExpression.Operand.Type() + rt := n.MultiplicativeExpression.Operand.Type() + switch lk, rk := lt.Kind(), rt.Kind(); { + case + lk == cc.UInt128 || rk == cc.UInt128, + lk == cc.Int128 || rk == cc.Int128: + + p.binaryAdditiveExpressionUint128(f, n, oper, t, mode, flags) + return + } + + defer p.w("%s", p.artithmeticBinaryExpression(n, n.Operand, t, &mode, flags)) + lo := n.AdditiveExpression.Operand + ro := n.MultiplicativeExpression.Operand + switch { + case lt.IsArithmeticType() && rt.IsArithmeticType(): // x +- y + defer p.w("%s", p.bitFieldPatch2(n, lo, ro, n.Promote())) //TODO bit field big endian + switch { + case intAddOverflows(n, lo, ro, oper, n.Promote()): // i +- j + p.additiveExpression(f, n.AdditiveExpression, n.Promote(), exprValue, flags) + p.w(" %s%s", oper, tidyComment(" ", &n.Token)) + p.multiplicativeExpression(f, n.MultiplicativeExpression, n.Promote(), exprValue, flags|fForceRuntimeConv) + default: + var s string + if isRealType(n.Operand) && n.Operand.Value() != nil { + s = p.convertNil(n, n.Promote(), flags) + } + p.additiveExpression(f, n.AdditiveExpression, n.Promote(), exprValue, flags) + p.w("%s %s%s", s, oper, tidyComment(" ", &n.Token)) + p.multiplicativeExpression(f, n.MultiplicativeExpression, n.Promote(), exprValue, flags) + } + case lt.Kind() == cc.Ptr && rt.IsIntegerType(): // p +- i + p.additiveExpression(f, n.AdditiveExpression, lt, exprValue, flags) + p.w(" %s%s uintptr(", oper, tidyComment(" ", &n.Token)) + p.multiplicativeExpression(f, n.MultiplicativeExpression, rt, exprValue, flags) + p.w(")") + if sz := lt.Elem().Size(); sz != 1 { + p.w("*%d", sz) + } + case lt.Kind() == cc.Array && rt.IsIntegerType(): // p +- i + p.additiveExpression(f, n.AdditiveExpression, lt, exprDecay, flags) + p.w(" %s%s uintptr(", oper, tidyComment(" ", &n.Token)) + p.multiplicativeExpression(f, n.MultiplicativeExpression, rt, exprValue, flags) + p.w(")") + if sz := lt.Elem().Size(); sz != 1 { + p.w("*%d", sz) + } + case lt.IsIntegerType() && rt.Kind() == cc.Ptr: // i +- p + p.w("uintptr(") + p.additiveExpression(f, n.AdditiveExpression, lt, exprValue, flags) + p.w(")") + if sz := rt.Elem().Size(); sz != 1 { + p.w("*%d", sz) + } + p.w(" %s%s ", oper, tidyComment(" ", &n.Token)) + p.multiplicativeExpression(f, n.MultiplicativeExpression, rt, exprValue, flags) + case lt.IsIntegerType() && rt.Kind() == cc.Array: // i +- p + panic(todo("", p.pos(n))) + case lt.Kind() == cc.Ptr && rt.Kind() == cc.Ptr && oper == "-": // p - q + p.w("(") + p.additiveExpression(f, n.AdditiveExpression, n.Operand.Type(), exprValue, flags) + p.w(" %s%s", oper, tidyComment(" ", &n.Token)) + p.multiplicativeExpression(f, n.MultiplicativeExpression, n.Operand.Type(), exprValue, flags) + p.w(")/%d", lt.Elem().Size()) + case lt.Kind() == cc.Ptr && rt.Kind() == cc.Array && oper == "-": // p - q + defer p.w("%s", p.convertType(n, nil, n.Operand.Type(), 0)) + p.w("(") + p.additiveExpression(f, n.AdditiveExpression, lt, exprValue, flags) + p.w(" %s%s", oper, tidyComment(" ", &n.Token)) + p.multiplicativeExpression(f, n.MultiplicativeExpression, rt.Decay(), exprDecay, flags) + p.w(")/%d", lt.Elem().Size()) + case lt.Kind() == cc.Array && rt.Kind() == cc.Ptr && oper == "-": // p - q + panic(todo("", p.pos(n))) + case lt.Kind() == cc.Array && rt.Kind() == cc.Array && oper == "-": // p - q + panic(todo("", p.pos(n))) + default: + panic(todo("", n.Position(), lt, rt, oper)) + } +} + +func (p *project) binaryAdditiveExpressionUint128(f *function, n *cc.AdditiveExpression, oper string, t cc.Type, mode exprMode, flags flags) { + // AdditiveExpression '+' MultiplicativeExpression + defer p.w("%s", p.artithmeticBinaryExpression(n, n.Operand, t, &mode, flags)) + p.additiveExpression(f, n.AdditiveExpression, n.Promote(), exprValue, flags) + switch oper { + case "+": + p.w(".Add(") + case "-": + p.w(".Sub(") + default: + panic(todo("%q", oper)) + } + p.multiplicativeExpression(f, n.MultiplicativeExpression, n.Promote(), exprValue, flags) + p.w(")") +} + +func (p *project) bitFieldPatch2(n cc.Node, a, b cc.Operand, promote cc.Type) string { + //TODO bit field big endian + var m uint64 + var w int + switch { + case a.Type().IsBitFieldType(): + bf := a.Type().BitField() + w = bf.BitFieldWidth() + m = bf.Mask() >> bf.BitFieldOffset() + if b.Type().IsBitFieldType() { + bf = b.Type().BitField() + w2 := bf.BitFieldWidth() + if w2 != w { + panic(todo("", p.pos(n))) + } + } + case b.Type().IsBitFieldType(): + bf := b.Type().BitField() + w = bf.BitFieldWidth() + m = bf.Mask() >> bf.BitFieldOffset() + default: + return "" + } + + p.w("((") + switch { + case promote.IsSignedType(): + n := int(promote.Size())*8 - w + var s string + switch promote.Size() { + case 4: + s = fmt.Sprintf(")&%#x", int32(m)) + default: + s = fmt.Sprintf(")&%#x", m) + } + if n != 0 { + s += fmt.Sprintf("<<%d>>%[1]d", n) + } + return ")" + s + default: + return fmt.Sprintf(")&%#x)", m) + } +} + +func intAddOverflows(n cc.Node, lo, ro cc.Operand, oper string, promote cc.Type) bool { + a, b, ok := getIntOperands(lo, ro) + if !ok { + return false + } + + switch oper { + case "+": + return overflows(a.Add(a, b), promote) + case "-": + return overflows(a.Sub(a, b), promote) + default: + panic(todo("", pos(n))) + } +} + +func getIntOperands(a, b cc.Operand) (x, y *big.Int, ok bool) { + switch n := a.Value().(type) { + case cc.Int64Value: + x = big.NewInt(int64(n)) + case cc.Uint64Value: + x = big.NewInt(0).SetUint64(uint64(n)) + default: + return nil, nil, false + } + + switch n := b.Value().(type) { + case cc.Int64Value: + return x, big.NewInt(int64(n)), true + case cc.Uint64Value: + return x, big.NewInt(0).SetUint64(uint64(n)), true + default: + return nil, nil, false + } +} + +func overflows(n *big.Int, promote cc.Type) bool { + switch k := promote.Kind(); { + case k == cc.Int128, k == cc.UInt128: + return false + case isSigned(promote): + switch promote.Size() { + case 4: + return n.Cmp(minInt32) < 0 || n.Cmp(maxInt32) > 0 + case 8: + return n.Cmp(minInt64) < 0 || n.Cmp(maxInt64) > 0 + } + default: + switch promote.Size() { + case 4: + return n.Sign() < 0 || n.Cmp(maxUint32) > 0 + case 8: + return n.Sign() < 0 || n.Cmp(maxUint64) > 0 + } + } + panic(todo("", promote.Size(), promote)) +} + +func (p *project) multiplicativeExpression(f *function, n *cc.MultiplicativeExpression, t cc.Type, mode exprMode, flags flags) { + switch mode { + case exprValue: + p.multiplicativeExpressionValue(f, n, t, mode, flags) + case exprVoid: + p.multiplicativeExpressionVoid(f, n, t, mode, flags) + case exprAddrOf: + p.multiplicativeExpressionAddrOf(f, n, t, mode, flags) + case exprBool: + p.multiplicativeExpressionBool(f, n, t, mode, flags) + case exprLValue: + p.multiplicativeExpressionLValue(f, n, t, mode, flags) + case exprPSelect: + p.multiplicativeExpressionPSelect(f, n, t, mode, flags) + case exprFunc: + p.multiplicativeExpressionFunc(f, n, t, mode, flags) + case exprSelect: + p.multiplicativeExpressionSelect(f, n, t, mode, flags) + case exprDecay: + p.multiplicativeExpressionDecay(f, n, t, mode, flags) + default: + panic(todo("", n.Position(), mode)) + } +} + +func (p *project) multiplicativeExpressionDecay(f *function, n *cc.MultiplicativeExpression, t cc.Type, mode exprMode, flags flags) { + switch n.Case { + case cc.MultiplicativeExpressionCast: // CastExpression + p.castExpression(f, n.CastExpression, t, mode, flags) + case cc.MultiplicativeExpressionMul: // MultiplicativeExpression '*' CastExpression + panic(todo("", p.pos(n))) + case cc.MultiplicativeExpressionDiv: // MultiplicativeExpression '/' CastExpression + panic(todo("", p.pos(n))) + case cc.MultiplicativeExpressionMod: // MultiplicativeExpression '%' CastExpression + panic(todo("", p.pos(n))) + default: + panic(todo("%v: internal error: %v", n.Position(), n.Case)) + } +} + +func (p *project) multiplicativeExpressionSelect(f *function, n *cc.MultiplicativeExpression, t cc.Type, mode exprMode, flags flags) { + switch n.Case { + case cc.MultiplicativeExpressionCast: // CastExpression + p.castExpression(f, n.CastExpression, t, mode, flags) + case cc.MultiplicativeExpressionMul: // MultiplicativeExpression '*' CastExpression + panic(todo("", p.pos(n))) + case cc.MultiplicativeExpressionDiv: // MultiplicativeExpression '/' CastExpression + panic(todo("", p.pos(n))) + case cc.MultiplicativeExpressionMod: // MultiplicativeExpression '%' CastExpression + panic(todo("", p.pos(n))) + default: + panic(todo("%v: internal error: %v", n.Position(), n.Case)) + } +} + +func (p *project) multiplicativeExpressionFunc(f *function, n *cc.MultiplicativeExpression, t cc.Type, mode exprMode, flags flags) { + switch n.Case { + case cc.MultiplicativeExpressionCast: // CastExpression + p.castExpression(f, n.CastExpression, t, mode, flags) + case cc.MultiplicativeExpressionMul: // MultiplicativeExpression '*' CastExpression + panic(todo("", p.pos(n))) + case cc.MultiplicativeExpressionDiv: // MultiplicativeExpression '/' CastExpression + panic(todo("", p.pos(n))) + case cc.MultiplicativeExpressionMod: // MultiplicativeExpression '%' CastExpression + panic(todo("", p.pos(n))) + default: + panic(todo("%v: internal error: %v", n.Position(), n.Case)) + } +} + +func (p *project) multiplicativeExpressionPSelect(f *function, n *cc.MultiplicativeExpression, t cc.Type, mode exprMode, flags flags) { + switch n.Case { + case cc.MultiplicativeExpressionCast: // CastExpression + p.castExpression(f, n.CastExpression, t, mode, flags) + case cc.MultiplicativeExpressionMul: // MultiplicativeExpression '*' CastExpression + panic(todo("", p.pos(n))) + case cc.MultiplicativeExpressionDiv: // MultiplicativeExpression '/' CastExpression + panic(todo("", p.pos(n))) + case cc.MultiplicativeExpressionMod: // MultiplicativeExpression '%' CastExpression + panic(todo("", p.pos(n))) + default: + panic(todo("%v: internal error: %v", n.Position(), n.Case)) + } +} + +func (p *project) multiplicativeExpressionLValue(f *function, n *cc.MultiplicativeExpression, t cc.Type, mode exprMode, flags flags) { + switch n.Case { + case cc.MultiplicativeExpressionCast: // CastExpression + p.castExpression(f, n.CastExpression, t, mode, flags) + case cc.MultiplicativeExpressionMul: // MultiplicativeExpression '*' CastExpression + panic(todo("", p.pos(n))) + case cc.MultiplicativeExpressionDiv: // MultiplicativeExpression '/' CastExpression + panic(todo("", p.pos(n))) + case cc.MultiplicativeExpressionMod: // MultiplicativeExpression '%' CastExpression + panic(todo("", p.pos(n))) + default: + panic(todo("%v: internal error: %v", n.Position(), n.Case)) + } +} + +func (p *project) multiplicativeExpressionBool(f *function, n *cc.MultiplicativeExpression, t cc.Type, mode exprMode, flags flags) { + switch n.Case { + case cc.MultiplicativeExpressionCast: // CastExpression + p.castExpression(f, n.CastExpression, t, mode, flags) + case + cc.MultiplicativeExpressionMul, // MultiplicativeExpression '*' CastExpression + cc.MultiplicativeExpressionDiv, // MultiplicativeExpression '/' CastExpression + cc.MultiplicativeExpressionMod: // MultiplicativeExpression '%' CastExpression + + p.w("(") + defer p.w(")") + defer p.w(" != 0 ") + p.multiplicativeExpression(f, n, t, exprValue, flags) + default: + panic(todo("%v: internal error: %v", n.Position(), n.Case)) + } +} + +func (p *project) multiplicativeExpressionAddrOf(f *function, n *cc.MultiplicativeExpression, t cc.Type, mode exprMode, flags flags) { + switch n.Case { + case cc.MultiplicativeExpressionCast: // CastExpression + p.castExpression(f, n.CastExpression, t, mode, flags) + case cc.MultiplicativeExpressionMul: // MultiplicativeExpression '*' CastExpression + panic(todo("", p.pos(n))) + case cc.MultiplicativeExpressionDiv: // MultiplicativeExpression '/' CastExpression + panic(todo("", p.pos(n))) + case cc.MultiplicativeExpressionMod: // MultiplicativeExpression '%' CastExpression + panic(todo("", p.pos(n))) + default: + panic(todo("%v: internal error: %v", n.Position(), n.Case)) + } +} + +func (p *project) multiplicativeExpressionVoid(f *function, n *cc.MultiplicativeExpression, t cc.Type, mode exprMode, flags flags) { + switch n.Case { + case cc.MultiplicativeExpressionCast: // CastExpression + p.castExpression(f, n.CastExpression, t, mode, flags) + case cc.MultiplicativeExpressionMul: // MultiplicativeExpression '*' CastExpression + panic(todo("", p.pos(n))) + case cc.MultiplicativeExpressionDiv: // MultiplicativeExpression '/' CastExpression + panic(todo("", p.pos(n))) + case cc.MultiplicativeExpressionMod: // MultiplicativeExpression '%' CastExpression + panic(todo("", p.pos(n))) + default: + panic(todo("%v: internal error: %v", n.Position(), n.Case)) + } +} + +func (p *project) multiplicativeExpressionValue(f *function, n *cc.MultiplicativeExpression, t cc.Type, mode exprMode, flags flags) { + switch n.Case { + case cc.MultiplicativeExpressionCast: // CastExpression + p.castExpression(f, n.CastExpression, t, mode, flags) + case cc.MultiplicativeExpressionMul: // MultiplicativeExpression '*' CastExpression + p.binaryMultiplicativeExpression(f, n, "*", t, mode, flags) + case cc.MultiplicativeExpressionDiv: // MultiplicativeExpression '/' CastExpression + p.binaryMultiplicativeExpression(f, n, "/", t, mode, flags) + case cc.MultiplicativeExpressionMod: // MultiplicativeExpression '%' CastExpression + p.binaryMultiplicativeExpression(f, n, "%", t, mode, flags) + default: + panic(todo("%v: internal error: %v", n.Position(), n.Case)) + } +} + +func (p *project) binaryMultiplicativeExpression(f *function, n *cc.MultiplicativeExpression, oper string, t cc.Type, mode exprMode, flags flags) { + // MultiplicativeExpression '*' CastExpression + switch mode { + case exprValue: + p.binaryMultiplicativeExpressionValue(f, n, oper, t, mode, flags) + default: + panic(todo("", n.Position(), mode)) + } +} + +func (p *project) binaryMultiplicativeExpressionValue(f *function, n *cc.MultiplicativeExpression, oper string, t cc.Type, mode exprMode, flags flags) { + // MultiplicativeExpression '*' CastExpression + + lt := n.MultiplicativeExpression.Operand.Type() + rt := n.CastExpression.Operand.Type() + switch lk, rk := lt.Kind(), rt.Kind(); { + case + lk == cc.UInt128 || rk == cc.UInt128, + lk == cc.Int128 || rk == cc.Int128: + + p.binaryMultiplicativeExpressionUint128(f, n, oper, t, mode, flags) + return + } + + defer p.w("%s", p.artithmeticBinaryExpression(n, n.Operand, t, &mode, flags)) + switch { + case intMulOverflows(n, n.Operand, n.MultiplicativeExpression.Operand, n.CastExpression.Operand, oper, n.Promote()): + p.multiplicativeExpression(f, n.MultiplicativeExpression, n.Promote(), exprValue, flags|fForceRuntimeConv) + p.w(" %s%s", oper, tidyComment(" ", &n.Token)) + p.castExpression(f, n.CastExpression, n.Promote(), exprValue, flags|fForceRuntimeConv) + default: + defer p.w("%s", p.bitFieldPatch2(n, n.MultiplicativeExpression.Operand, n.CastExpression.Operand, n.Promote())) //TODO bit field big endian + var s string + if isRealType(n.Operand) && n.Operand.Value() != nil { + s = p.convertNil(n, n.Promote(), flags) + } + p.multiplicativeExpression(f, n.MultiplicativeExpression, n.Promote(), exprValue, flags) + p.w("%s %s%s", s, oper, tidyComment(" ", &n.Token)) + if (oper == "/" || oper == "%") && (isZeroReal(n.MultiplicativeExpression.Operand) || isZeroReal(n.CastExpression.Operand)) { + p.w("%s%sFrom%[2]s(", p.task.crt, p.helperType(n, n.Promote())) + defer p.w(")") + } + p.castExpression(f, n.CastExpression, n.Promote(), exprValue, flags) + } +} + +func (p *project) binaryMultiplicativeExpressionUint128(f *function, n *cc.MultiplicativeExpression, oper string, t cc.Type, mode exprMode, flags flags) { + // MultiplicativeExpression '*' CastExpression + defer p.w("%s", p.artithmeticBinaryExpression(n, n.Operand, t, &mode, flags)) + p.multiplicativeExpression(f, n.MultiplicativeExpression, n.Promote(), exprValue, flags) + switch oper { + case "*": + p.w(".Mul(") + case "/": + p.w(".Div(") + case "%": + p.w(".Mod(") + default: + panic(todo("%q", oper)) + } + p.castExpression(f, n.CastExpression, n.Promote(), exprValue, flags) + p.w(")") +} + +func isZeroReal(op cc.Operand) bool { + switch x := op.Value().(type) { + case cc.Float32Value: + return x == 0 + case cc.Float64Value: + return x == 0 + default: + return false + } +} + +func intMulOverflows(n cc.Node, r, lo, ro cc.Operand, oper string, promote cc.Type) bool { + if (isReal(lo) && !isInf(lo) || isReal(ro) && !isInf(ro)) && isInf(r) { + return true + } + + a, b, ok := getIntOperands(lo, ro) + if !ok { + return false + } + + switch oper { + case "*": + return overflows(a.Mul(a, b), promote) + case "/": + if b.Sign() == 0 { + return true + } + + return overflows(a.Div(a, b), promote) + case "%": + if b.Sign() == 0 { + return true + } + + return overflows(a.Mod(a, b), promote) + default: + panic(todo("", pos(n))) + } +} + +func isReal(op cc.Operand) bool { + switch op.Value().(type) { + case cc.Float32Value, cc.Float64Value: + return true + default: + return false + } +} + +func isInf(op cc.Operand) bool { + switch x := op.Value().(type) { + case cc.Float32Value: + return math.IsInf(float64(x), 0) + case cc.Float64Value: + return math.IsInf(float64(x), 0) + default: + return false + } +} + +func (p *project) castExpression(f *function, n *cc.CastExpression, t cc.Type, mode exprMode, flags flags) { + if n.Case == cc.CastExpressionCast { + if f != nil && n.CastExpression.Operand.Type().Kind() == cc.Ptr { // void *__ccgo_va_arg(__builtin_va_list ap); + sv := f.vaType + f.vaType = n.TypeName.Type() + defer func() { f.vaType = sv }() + } + } + switch mode { + case exprValue: + p.castExpressionValue(f, n, t, mode, flags) + case exprVoid: + p.castExpressionVoid(f, n, t, mode, flags) + case exprAddrOf: + p.castExpressionAddrOf(f, n, t, mode, flags) + case exprBool: + p.castExpressionBool(f, n, t, mode, flags) + case exprLValue: + p.castExpressionLValue(f, n, t, mode, flags) + case exprPSelect: + p.castExpressionPSelect(f, n, t, mode, flags) + case exprFunc: + p.castExpressionFunc(f, n, t, mode, flags) + case exprSelect: + p.castExpressionSelect(f, n, t, mode, flags) + case exprDecay: + p.castExpressionDecay(f, n, t, mode, flags) + default: + panic(todo("", n.Position(), mode)) + } +} + +func (p *project) castExpressionDecay(f *function, n *cc.CastExpression, t cc.Type, mode exprMode, flags flags) { + switch n.Case { + case cc.CastExpressionUnary: // UnaryExpression + p.unaryExpression(f, n.UnaryExpression, t, mode, flags) + case cc.CastExpressionCast: // '(' TypeName ')' CastExpression + panic(todo("", p.pos(n))) + default: + panic(todo("%v: internal error: %v", n.Position(), n.Case)) + } +} + +func (p *project) castExpressionSelect(f *function, n *cc.CastExpression, t cc.Type, mode exprMode, flags flags) { + switch n.Case { + case cc.CastExpressionUnary: // UnaryExpression + p.unaryExpression(f, n.UnaryExpression, t, mode, flags) + case cc.CastExpressionCast: // '(' TypeName ')' CastExpression + p.castExpression(f, n.CastExpression, n.TypeName.Type(), mode, flags) + default: + panic(todo("%v: internal error: %v", n.Position(), n.Case)) + } +} + +func (p *project) castExpressionFunc(f *function, n *cc.CastExpression, t cc.Type, mode exprMode, flags flags) { + switch n.Case { + case cc.CastExpressionUnary: // UnaryExpression + p.unaryExpression(f, n.UnaryExpression, t, mode, flags) + case cc.CastExpressionCast: // '(' TypeName ')' CastExpression + ot := n.CastExpression.Operand.Type() + tn := n.TypeName.Type() + var ft cc.Type + switch tn.Kind() { + case cc.Ptr: + switch et := ot.Elem(); et.Kind() { + case cc.Function, cc.Void: + // ok + default: + panic(todo("", p.pos(n), et, et.Kind())) + } + default: + panic(todo("%v: %v, %v -> %v, %v -> %v, %v", p.pos(n), ot, ot.Kind(), tn, tn.Kind(), t, t.Kind())) + } + switch t.Kind() { + case cc.Ptr: + switch et := t.Elem(); et.Kind() { + case cc.Function: + ft = et + default: + panic(todo("", p.pos(n), et, et.Kind())) + } + default: + panic(todo("%v: %v, %v -> %v, %v -> %v, %v", p.pos(n), ot, ot.Kind(), tn, tn.Kind(), t, t.Kind())) + } + switch ot.Kind() { + case cc.Ptr: + switch et := ot.Elem(); et.Kind() { + case cc.Function, cc.Void: + p.w("(*(*") + p.functionSignature(n, f, ft, "") + p.w(")(unsafe.Pointer(") + p.castExpression(f, n.CastExpression, ot, exprAddrOf, flags) + p.w(")))") + default: + panic(todo("", p.pos(n), et, et.Kind())) + } + default: + panic(todo("%v: %v, %v -> %v, %v -> %v, %v", p.pos(n), ot, ot.Kind(), tn, tn.Kind(), t, t.Kind())) + } + default: + panic(todo("%v: internal error: %v", n.Position(), n.Case)) + } +} + +func (p *project) castExpressionPSelect(f *function, n *cc.CastExpression, t cc.Type, mode exprMode, flags flags) { + switch n.Case { + case cc.CastExpressionUnary: // UnaryExpression + p.unaryExpression(f, n.UnaryExpression, t, mode, flags) + case cc.CastExpressionCast: // '(' TypeName ')' CastExpression + p.castExpression(f, n.CastExpression, n.TypeName.Type(), mode, flags) + default: + panic(todo("%v: internal error: %v", n.Position(), n.Case)) + } +} + +func (p *project) castExpressionLValue(f *function, n *cc.CastExpression, t cc.Type, mode exprMode, flags flags) { + switch n.Case { + case cc.CastExpressionUnary: // UnaryExpression + p.unaryExpression(f, n.UnaryExpression, t, mode, flags) + case cc.CastExpressionCast: // '(' TypeName ')' CastExpression + panic(todo("", p.pos(n))) + default: + panic(todo("%v: internal error: %v", n.Position(), n.Case)) + } +} + +func (p *project) castExpressionBool(f *function, n *cc.CastExpression, t cc.Type, mode exprMode, flags flags) { + switch n.Case { + case cc.CastExpressionUnary: // UnaryExpression + p.unaryExpression(f, n.UnaryExpression, t, mode, flags) + case cc.CastExpressionCast: // '(' TypeName ')' CastExpression + p.w("(") + defer p.w(")") + defer p.w(" != 0 ") + p.castExpression(f, n, n.Operand.Type(), exprValue, flags) + default: + panic(todo("%v: internal error: %v", n.Position(), n.Case)) + } +} + +func (p *project) castExpressionAddrOf(f *function, n *cc.CastExpression, t cc.Type, mode exprMode, flags flags) { + switch n.Case { + case cc.CastExpressionUnary: // UnaryExpression + p.unaryExpression(f, n.UnaryExpression, t, mode, flags) + case cc.CastExpressionCast: // '(' TypeName ')' CastExpression + p.castExpressionAddrOf(f, n.CastExpression, t, mode, flags) + default: + panic(todo("%v: internal error: %v", n.Position(), n.Case)) + } +} + +func (p *project) castExpressionVoid(f *function, n *cc.CastExpression, t cc.Type, mode exprMode, flags flags) { + switch n.Case { + case cc.CastExpressionUnary: // UnaryExpression + p.unaryExpression(f, n.UnaryExpression, t, mode, flags) + case cc.CastExpressionCast: // '(' TypeName ')' CastExpression + p.castExpression(f, n.CastExpression, t, mode, flags) + default: + panic(todo("%v: internal error: %v", n.Position(), n.Case)) + } +} + +func (p *project) castExpressionValue(f *function, n *cc.CastExpression, t cc.Type, mode exprMode, flags flags) { + switch n.Case { + case cc.CastExpressionUnary: // UnaryExpression + p.unaryExpression(f, n.UnaryExpression, t, mode, flags) + case cc.CastExpressionCast: // '(' TypeName ')' CastExpression + switch k := p.opKind(f, n.CastExpression, n.CastExpression.Operand.Type()); k { + case opNormal, opBitfield: + p.castExpressionValueNormal(f, n, t, mode, flags) + case opArray: + p.castExpressionValueArray(f, n, t, mode, flags) + case opFunction: + p.castExpressionValueFunction(f, n, t, mode, flags) + case opArrayParameter: + p.castExpressionValueNormal(f, n, t, mode, flags) + default: + panic(todo("", n.Position(), k)) + } + default: + panic(todo("%v: internal error: %v", n.Position(), n.Case)) + } +} + +func (p *project) castExpressionValueArrayParameter(f *function, n *cc.CastExpression, t cc.Type, mode exprMode, flags flags) { + // '(' TypeName ')' CastExpression + tn := n.TypeName.Type() + defer p.w("%s", p.convertType(n, tn, t, flags)) + p.castExpression(f, n.CastExpression, tn, mode, flags) +} + +func (p *project) castExpressionValueFunction(f *function, n *cc.CastExpression, t cc.Type, mode exprMode, flags flags) { + // '(' TypeName ')' CastExpression + op := n.CastExpression.Operand + tn := n.TypeName.Type() + switch { + case op.Type().Kind() == cc.Function: + switch { + case tn.Kind() == cc.Ptr && t.Kind() == cc.Ptr: + p.castExpression(f, n.CastExpression, op.Type(), exprValue, flags) + case tn.IsIntegerType(): + p.w("%s(", p.typ(n, tn)) + p.castExpression(f, n.CastExpression, op.Type(), exprValue, flags) + p.w(")") + default: + panic(todo("%v: tn %v expr %v", n.Position(), tn, op.Type())) + } + default: + panic(todo("%v: %v -> %v -> %v", p.pos(n), op.Type(), tn, t)) + } +} + +func (p *project) castExpressionValueArray(f *function, n *cc.CastExpression, t cc.Type, mode exprMode, flags flags) { + // '(' TypeName ')' CastExpression + tn := n.TypeName.Type() + switch { + case tn.IsScalarType(): + defer p.w("%s", p.convertType(n, nil, t, flags)) + p.castExpression(f, n.CastExpression, tn, exprDecay, flags) + default: + panic(todo("", p.pos(n))) + } +} + +func (p *project) castExpressionValueNormal(f *function, n *cc.CastExpression, t cc.Type, mode exprMode, flags flags) { + // '(' TypeName ')' CastExpression + op := n.CastExpression.Operand + tn := n.TypeName.Type() + switch { + case op.Type().Kind() == cc.Ptr && tn.IsArithmeticType(): + defer p.w("%s", p.convertType(n, nil, t, flags|fForceConv)) + p.castExpression(f, n.CastExpression, op.Type(), mode, flags) + case tn.IsArithmeticType(): + switch { + case (tn.Kind() == cc.Float || tn.Kind() == cc.Double) && op.Type().IsIntegerType() && op.Value() != nil && t.IsIntegerType(): + panic(todo("", p.pos(n))) + case isNegativeInt(op) && isUnsigned(t): + defer p.w("%s", p.convertType(n, tn, t, flags|fForceConv)) + p.castExpression(f, n.CastExpression, tn, exprValue, flags) + default: + defer p.w("%s", p.convertType(n, tn, t, flags)) + p.castExpression(f, n.CastExpression, tn, exprValue, flags) + } + default: + switch tn.Kind() { + case cc.Ptr: + switch { + case t.Kind() == cc.Ptr && isNegativeInt(op): + p.w("%s(", p.helperType2(n, op.Type(), tn)) + defer p.w(")") + p.castExpression(f, n.CastExpression, op.Type(), mode, flags) + default: + defer p.w("%s", p.convertType(n, tn, t, flags)) + p.castExpression(f, n.CastExpression, tn, mode, flags) + } + case cc.Void: + p.castExpression(f, n.CastExpression, tn, exprVoid, flags) + default: + panic(todo("%s: %s %s -> %s %s -> %s %s", n.Position(), op.Type(), op.Type().Kind(), tn, tn.Kind(), t, t.Kind())) + } + } +} + +func (p *project) unaryExpression(f *function, n *cc.UnaryExpression, t cc.Type, mode exprMode, flags flags) { + switch mode { + case exprLValue: + p.unaryExpressionLValue(f, n, t, mode, flags) + case exprValue: + p.unaryExpressionValue(f, n, t, mode, flags) + case exprVoid: + p.unaryExpressionVoid(f, n, t, mode, flags) + case exprAddrOf: + p.unaryExpressionAddrOf(f, n, t, mode, flags) + case exprBool: + p.unaryExpressionBool(f, n, t, mode, flags) + case exprPSelect: + p.unaryExpressionPSelect(f, n, t, mode, flags) + case exprFunc: + p.unaryExpressionFunc(f, n, t, mode, flags) + case exprSelect: + p.unaryExpressionSelect(f, n, t, mode, flags) + case exprDecay: + p.unaryExpressionDecay(f, n, t, mode, flags) + default: + panic(todo("", n.Position(), mode)) + } +} + +func (p *project) unaryExpressionDecay(f *function, n *cc.UnaryExpression, t cc.Type, mode exprMode, flags flags) { + switch n.Case { + case cc.UnaryExpressionPostfix: // PostfixExpression + p.postfixExpression(f, n.PostfixExpression, t, mode, flags) + case cc.UnaryExpressionInc: // "++" UnaryExpression + panic(todo("", p.pos(n))) + case cc.UnaryExpressionDec: // "--" UnaryExpression + panic(todo("", p.pos(n))) + case cc.UnaryExpressionAddrof: // '&' CastExpression + panic(todo("", p.pos(n))) + case cc.UnaryExpressionDeref: // '*' CastExpression + p.castExpression(f, n.CastExpression, n.CastExpression.Operand.Type(), exprValue, flags) + case cc.UnaryExpressionPlus: // '+' CastExpression + panic(todo("", p.pos(n))) + case cc.UnaryExpressionMinus: // '-' CastExpression + panic(todo("", p.pos(n))) + case cc.UnaryExpressionCpl: // '~' CastExpression + panic(todo("", p.pos(n))) + case cc.UnaryExpressionNot: // '!' CastExpression + panic(todo("", p.pos(n))) + case cc.UnaryExpressionSizeofExpr: // "sizeof" UnaryExpression + panic(todo("", p.pos(n))) + case cc.UnaryExpressionSizeofType: // "sizeof" '(' TypeName ')' + panic(todo("", p.pos(n))) + case cc.UnaryExpressionLabelAddr: // "&&" IDENTIFIER + panic(todo("", p.pos(n))) + case cc.UnaryExpressionAlignofExpr: // "_Alignof" UnaryExpression + panic(todo("", p.pos(n))) + case cc.UnaryExpressionAlignofType: // "_Alignof" '(' TypeName ')' + panic(todo("", p.pos(n))) + case cc.UnaryExpressionImag: // "__imag__" UnaryExpression + panic(todo("", p.pos(n))) + case cc.UnaryExpressionReal: // "__real__" UnaryExpression + panic(todo("", p.pos(n))) + default: + panic(todo("%v: internal error: %v", n.Position(), n.Case)) + } +} + +func (p *project) unaryExpressionSelect(f *function, n *cc.UnaryExpression, t cc.Type, mode exprMode, flags flags) { + switch n.Case { + case cc.UnaryExpressionPostfix: // PostfixExpression + p.postfixExpression(f, n.PostfixExpression, t, mode, flags) + case cc.UnaryExpressionInc: // "++" UnaryExpression + panic(todo("", n.Position())) + case cc.UnaryExpressionDec: // "--" UnaryExpression + panic(todo("", n.Position())) + case cc.UnaryExpressionAddrof: // '&' CastExpression + panic(todo("", p.pos(n))) + case cc.UnaryExpressionDeref: // '*' CastExpression + ot := n.CastExpression.Operand.Type() + switch ot.Kind() { + case cc.Ptr: + switch et := ot.Elem(); et.Kind() { + case + cc.Struct, + cc.Union: + + p.w("(*(*%s)(unsafe.Pointer(", p.typ(n, n.Operand.Type())) + p.castExpression(f, n.CastExpression, n.CastExpression.Operand.Type(), exprValue, flags) + p.w(")))") + default: + panic(todo("", p.pos(n), et, et.Kind())) + } + case cc.Array: + p.w("(*(*%s)(unsafe.Pointer(", p.typ(n, n.Operand.Type())) + p.castExpression(f, n.CastExpression, n.CastExpression.Operand.Type(), exprAddrOf, flags) + p.w(")))") + default: + panic(todo("", p.pos(n), ot, ot.Kind())) + } + case cc.UnaryExpressionPlus: // '+' CastExpression + panic(todo("", p.pos(n))) + case cc.UnaryExpressionMinus: // '-' CastExpression + panic(todo("", p.pos(n))) + case cc.UnaryExpressionCpl: // '~' CastExpression + panic(todo("", p.pos(n))) + case cc.UnaryExpressionNot: // '!' CastExpression + panic(todo("", p.pos(n))) + case cc.UnaryExpressionSizeofExpr: // "sizeof" UnaryExpression + panic(todo("", p.pos(n))) + case cc.UnaryExpressionSizeofType: // "sizeof" '(' TypeName ')' + panic(todo("", p.pos(n))) + case cc.UnaryExpressionLabelAddr: // "&&" IDENTIFIER + panic(todo("", p.pos(n))) + case cc.UnaryExpressionAlignofExpr: // "_Alignof" UnaryExpression + panic(todo("", p.pos(n))) + case cc.UnaryExpressionAlignofType: // "_Alignof" '(' TypeName ')' + panic(todo("", p.pos(n))) + case cc.UnaryExpressionImag: // "__imag__" UnaryExpression + panic(todo("", p.pos(n))) + case cc.UnaryExpressionReal: // "__real__" UnaryExpression + panic(todo("", p.pos(n))) + default: + panic(todo("%v: internal error: %v", n.Position(), n.Case)) + } +} + +func (p *project) unaryExpressionFunc(f *function, n *cc.UnaryExpression, t cc.Type, mode exprMode, flags flags) { + switch n.Case { + case cc.UnaryExpressionPostfix: // PostfixExpression + p.postfixExpression(f, n.PostfixExpression, t, mode, flags) + case cc.UnaryExpressionInc: // "++" UnaryExpression + panic(todo("", p.pos(n))) + case cc.UnaryExpressionDec: // "--" UnaryExpression + panic(todo("", p.pos(n))) + case cc.UnaryExpressionAddrof: // '&' CastExpression + panic(todo("", p.pos(n))) + case cc.UnaryExpressionDeref: // '*' CastExpression + ot := n.CastExpression.Operand.Type() + switch ot.Kind() { + case cc.Ptr: + switch et := ot.Elem(); et.Kind() { + case cc.Function: + p.castExpression(f, n.CastExpression, ot, mode, flags|fAddrOfFuncPtrOk) + case cc.Ptr: + switch et2 := et.Elem(); et2.Kind() { + case cc.Function: + // C: (**)() + p.fnVal(n, f, func() { p.castExpression(f, n.CastExpression, p.ptrType, exprValue, flags|fAddrOfFuncPtrOk) }, n.CastExpression.Declarator(), n.CastExpression.Operand.Type(), 1, mode, flags) + default: + panic(todo("", p.pos(n), et2, et2.Kind())) + } + default: + panic(todo("", p.pos(n), et, et.Kind())) + } + case cc.Function: + p.castExpression(f, n.CastExpression, ot, mode, flags|fAddrOfFuncPtrOk) + default: + panic(todo("", p.pos(n), ot, ot.Kind(), mode)) + } + case cc.UnaryExpressionPlus: // '+' CastExpression + panic(todo("", p.pos(n))) + case cc.UnaryExpressionMinus: // '-' CastExpression + panic(todo("", p.pos(n))) + case cc.UnaryExpressionCpl: // '~' CastExpression + panic(todo("", p.pos(n))) + case cc.UnaryExpressionNot: // '!' CastExpression + panic(todo("", p.pos(n))) + case cc.UnaryExpressionSizeofExpr: // "sizeof" UnaryExpression + panic(todo("", p.pos(n))) + case cc.UnaryExpressionSizeofType: // "sizeof" '(' TypeName ')' + panic(todo("", p.pos(n))) + case cc.UnaryExpressionLabelAddr: // "&&" IDENTIFIER + panic(todo("", p.pos(n))) + case cc.UnaryExpressionAlignofExpr: // "_Alignof" UnaryExpression + panic(todo("", p.pos(n))) + case cc.UnaryExpressionAlignofType: // "_Alignof" '(' TypeName ')' + panic(todo("", p.pos(n))) + case cc.UnaryExpressionImag: // "__imag__" UnaryExpression + panic(todo("", p.pos(n))) + case cc.UnaryExpressionReal: // "__real__" UnaryExpression + panic(todo("", p.pos(n))) + default: + panic(todo("%v: internal error: %v", n.Position(), n.Case)) + } +} + +func (p *project) unaryExpressionPSelect(f *function, n *cc.UnaryExpression, t cc.Type, mode exprMode, flags flags) { + switch n.Case { + case cc.UnaryExpressionPostfix: // PostfixExpression + p.postfixExpression(f, n.PostfixExpression, t, mode, flags) + case cc.UnaryExpressionInc: // "++" UnaryExpression + panic(todo("", n.Position())) + case cc.UnaryExpressionDec: // "--" UnaryExpression + panic(todo("", n.Position())) + case cc.UnaryExpressionAddrof: // '&' CastExpression + panic(todo("", n.Position())) + //TODO- p.w("(*%s)(unsafe.Pointer(", p.typ(n, n.Operand.Type().Elem())) + //TODO- p.unaryExpression(f, n, t, exprValue, flags) + //TODO- p.w("))") + case cc.UnaryExpressionDeref: // '*' CastExpression + panic(todo("", n.Position())) + //TODO- ot := n.CastExpression.Operand.Type() + //TODO- switch ot.Kind() { + //TODO- case cc.Ptr: + //TODO- switch et := ot.Elem(); { + //TODO- case et.Kind() == cc.Ptr: + //TODO- switch et2 := et.Elem(); et2.Kind() { + //TODO- case cc.Struct: + //TODO- if et2.IsIncomplete() { + //TODO- p.w("(*(**uintptr)(unsafe.Pointer(") + //TODO- p.castExpression(f, n.CastExpression, t, exprValue, flags) + //TODO- p.w(")))") + //TODO- break + //TODO- } + + //TODO- p.w("(*(**%s)(unsafe.Pointer(", p.typ(n, n.Operand.Type().Elem())) + //TODO- p.castExpression(f, n.CastExpression, t, exprValue, flags) + //TODO- p.w(")))") + //TODO- default: + //TODO- panic(todo("", p.pos(n), et2, et2.Kind())) + //TODO- } + //TODO- default: + //TODO- panic(todo("", p.pos(n), et, et.Kind())) + //TODO- } + //TODO- default: + //TODO- panic(todo("", p.pos(n), ot, ot.Kind())) + //TODO- } + case cc.UnaryExpressionPlus: // '+' CastExpression + panic(todo("", p.pos(n))) + case cc.UnaryExpressionMinus: // '-' CastExpression + panic(todo("", p.pos(n))) + case cc.UnaryExpressionCpl: // '~' CastExpression + panic(todo("", p.pos(n))) + case cc.UnaryExpressionNot: // '!' CastExpression + panic(todo("", p.pos(n))) + case cc.UnaryExpressionSizeofExpr: // "sizeof" UnaryExpression + panic(todo("", p.pos(n))) + case cc.UnaryExpressionSizeofType: // "sizeof" '(' TypeName ')' + panic(todo("", p.pos(n))) + case cc.UnaryExpressionLabelAddr: // "&&" IDENTIFIER + panic(todo("", p.pos(n))) + case cc.UnaryExpressionAlignofExpr: // "_Alignof" UnaryExpression + panic(todo("", p.pos(n))) + case cc.UnaryExpressionAlignofType: // "_Alignof" '(' TypeName ')' + panic(todo("", p.pos(n))) + case cc.UnaryExpressionImag: // "__imag__" UnaryExpression + panic(todo("", p.pos(n))) + case cc.UnaryExpressionReal: // "__real__" UnaryExpression + panic(todo("", p.pos(n))) + default: + panic(todo("%v: internal error: %v", n.Position(), n.Case)) + } +} + +func (p *project) unaryExpressionBool(f *function, n *cc.UnaryExpression, t cc.Type, mode exprMode, flags flags) { + switch n.Case { + case cc.UnaryExpressionPostfix: // PostfixExpression + p.postfixExpression(f, n.PostfixExpression, t, mode, flags) + case cc.UnaryExpressionNot: // '!' CastExpression + p.w("!(") + p.castExpression(f, n.CastExpression, t, mode, flags) + p.w(")") + default: + p.w("(") + defer p.w(")") + defer p.w(" != 0 ") + p.unaryExpression(f, n, t, exprValue, flags) + } +} + +func (p *project) unaryExpressionAddrOf(f *function, n *cc.UnaryExpression, t cc.Type, mode exprMode, flags flags) { + switch n.Case { + case cc.UnaryExpressionPostfix: // PostfixExpression + p.postfixExpression(f, n.PostfixExpression, t, mode, flags) + case cc.UnaryExpressionInc: // "++" UnaryExpression + panic(todo("", n.Position())) + case cc.UnaryExpressionDec: // "--" UnaryExpression + panic(todo("", n.Position())) + case cc.UnaryExpressionAddrof: // '&' CastExpression + panic(todo("", n.Position())) + case cc.UnaryExpressionDeref: // '*' CastExpression + ot := n.CastExpression.Operand.Type() + switch ot.Kind() { + case cc.Ptr: + switch et := ot.Elem(); { + case + et.IsScalarType(), + et.Kind() == cc.Struct, + et.Kind() == cc.Union, + et.Kind() == cc.Array: + + p.unaryExpressionDeref(f, n, t, mode, flags) + default: + panic(todo("", p.pos(n), et, et.Kind())) + } + default: + panic(todo("", p.pos(n), ot, ot.Kind())) + } + case cc.UnaryExpressionPlus: // '+' CastExpression + panic(todo("", n.Position())) + case cc.UnaryExpressionMinus: // '-' CastExpression + panic(todo("", n.Position())) + case cc.UnaryExpressionCpl: // '~' CastExpression + panic(todo("", n.Position())) + case cc.UnaryExpressionNot: // '!' CastExpression + panic(todo("", n.Position())) + case cc.UnaryExpressionSizeofExpr: // "sizeof" UnaryExpression + panic(todo("", n.Position())) + case cc.UnaryExpressionSizeofType: // "sizeof" '(' TypeName ')' + panic(todo("", n.Position())) + case cc.UnaryExpressionLabelAddr: // "&&" IDENTIFIER + panic(todo("", n.Position())) + case cc.UnaryExpressionAlignofExpr: // "_Alignof" UnaryExpression + panic(todo("", n.Position())) + case cc.UnaryExpressionAlignofType: // "_Alignof" '(' TypeName ')' + panic(todo("", n.Position())) + case cc.UnaryExpressionImag: // "__imag__" UnaryExpression + panic(todo("", n.Position())) + case cc.UnaryExpressionReal: // "__real__" UnaryExpression + panic(todo("", n.Position())) + default: + panic(todo("%v: internal error: %v", n.Position(), n.Case)) + } +} + +func (p *project) unaryExpressionVoid(f *function, n *cc.UnaryExpression, t cc.Type, mode exprMode, flags flags) { + switch n.Case { + case cc.UnaryExpressionPostfix: // PostfixExpression + p.postfixExpression(f, n.PostfixExpression, t, mode, flags) + case cc.UnaryExpressionInc: // "++" UnaryExpression + p.unaryExpressionPreIncDec(f, n, "++", "+=", t, mode, flags) + case cc.UnaryExpressionDec: // "--" UnaryExpression + p.unaryExpressionPreIncDec(f, n, "--", "-=", t, mode, flags) + case cc.UnaryExpressionAddrof: // '&' CastExpression + p.w("_ = ") + switch { + case n.CastExpression.Operand.Type().Kind() == cc.Array: + panic(todo("", p.pos(n))) + default: + p.castExpression(f, n.CastExpression, n.CastExpression.Operand.Type(), exprAddrOf, flags) + } + case cc.UnaryExpressionDeref: // '*' CastExpression + p.w("_ = *(*byte)(unsafe.Pointer(") + p.castExpression(f, n.CastExpression, n.CastExpression.Operand.Type(), exprValue, flags) + p.w("))") + case + cc.UnaryExpressionPlus, // '+' CastExpression + cc.UnaryExpressionMinus, // '-' CastExpression + cc.UnaryExpressionNot, // '!' CastExpression + cc.UnaryExpressionCpl: // '~' CastExpression + + p.w("_ = ") + defer p.w("%s", p.convert(n, n.CastExpression.Operand, p.intType, flags)) + p.castExpression(f, n.CastExpression, n.CastExpression.Operand.Type(), exprValue, flags) + case cc.UnaryExpressionSizeofExpr: // "sizeof" UnaryExpression + // nop + case cc.UnaryExpressionSizeofType: // "sizeof" '(' TypeName ')' + // nop + case cc.UnaryExpressionLabelAddr: // "&&" IDENTIFIER + panic(todo("", n.Position())) + case cc.UnaryExpressionAlignofExpr: // "_Alignof" UnaryExpression + panic(todo("", n.Position())) + case cc.UnaryExpressionAlignofType: // "_Alignof" '(' TypeName ')' + panic(todo("", n.Position())) + case cc.UnaryExpressionImag: // "__imag__" UnaryExpression + panic(todo("", n.Position())) + case cc.UnaryExpressionReal: // "__real__" UnaryExpression + panic(todo("", n.Position())) + default: + panic(todo("%v: internal error: %v", n.Position(), n.Case)) + } +} + +func (p *project) unaryExpressionValue(f *function, n *cc.UnaryExpression, t cc.Type, mode exprMode, flags flags) { + switch n.Case { + case cc.UnaryExpressionPostfix: // PostfixExpression + p.postfixExpression(f, n.PostfixExpression, t, mode, flags) + case cc.UnaryExpressionInc: // "++" UnaryExpression + p.unaryExpressionPreIncDec(f, n, "++", "+=", t, mode, flags) + case cc.UnaryExpressionDec: // "--" UnaryExpression + p.unaryExpressionPreIncDec(f, n, "--", "-=", t, mode, flags) + case cc.UnaryExpressionAddrof: // '&' CastExpression + if t.Kind() != cc.Ptr { + defer p.w("%s", p.convert(n, n.Operand, t, flags)) + } + switch { + case n.CastExpression.Operand.Type().Kind() == cc.Array: + panic(todo("", p.pos(n))) + default: + p.castExpression(f, n.CastExpression, n.CastExpression.Operand.Type(), exprAddrOf, flags) + } + case cc.UnaryExpressionDeref: // '*' CastExpression + ot := n.CastExpression.Operand.Type() + switch ot.Kind() { + case cc.Ptr, cc.Array: + switch et := ot.Elem(); { + case + et.IsScalarType(), + et.Kind() == cc.Array, + et.Kind() == cc.Struct, + et.Kind() == cc.Union: + + p.unaryExpressionDeref(f, n, t, mode, flags) + case et.Kind() == cc.Function: + p.castExpression(f, n.CastExpression, t, mode, flags) + default: + panic(todo("", p.pos(n), et, et.Kind())) + } + default: + panic(todo("", p.pos(n), ot, ot.Kind())) + } + case cc.UnaryExpressionPlus: // '+' CastExpression + p.w(" +") + p.castExpression(f, n.CastExpression, t, mode, flags) + case cc.UnaryExpressionMinus: // '-' CastExpression + switch { + case isNonNegativeInt(n.CastExpression.Operand) && t.Kind() == cc.Ptr: + p.w(" -%sUintptr(", p.task.crt) + p.castExpression(f, n.CastExpression, n.CastExpression.Operand.Type(), exprValue, flags) + p.w(")") + case isZeroReal(n.CastExpression.Operand): + p.w(" -") + defer p.w("%s", p.convert(n, n.CastExpression.Operand, t, flags)) + p.w("%s%sFrom%[2]s(", p.task.crt, p.helperType(n, n.CastExpression.Operand.Type())) + p.castExpression(f, n.CastExpression, n.CastExpression.Operand.Type(), exprValue, flags) + p.w(")") + case isNonNegativeInt(n.CastExpression.Operand) && isUnsigned(n.Operand.Type()): + defer p.w("%s", p.convert(n, n.CastExpression.Operand, t, flags)) + p.w("%sNeg%s(", p.task.crt, p.helperType(n, n.CastExpression.Operand.Type())) + p.castExpression(f, n.CastExpression, n.CastExpression.Operand.Type(), exprValue, flags) + p.w(")") + default: + defer p.w("%s", p.convert(n, n.Operand, t, flags)) + p.w(" -") + p.castExpression(f, n.CastExpression, n.Operand.Type(), exprValue, flags) + } + case cc.UnaryExpressionCpl: // '~' CastExpression + defer p.w("%s", p.convert(n, n.Operand, t, flags)) + switch { + case n.CastExpression.Operand.Value() != nil: + switch { + case !t.IsIntegerType(): + p.w(" ^") + p.castExpression(f, n.CastExpression, n.Operand.Type(), exprValue, flags|fForceRuntimeConv) + default: + p.w("%sCpl%s(", p.task.crt, p.helperType(n, n.Operand.Type())) + p.castExpression(f, n.CastExpression, n.Operand.Type(), exprValue, flags) + p.w(")") + } + default: + p.w(" ^") + p.castExpression(f, n.CastExpression, n.Operand.Type(), exprValue, flags) + } + case cc.UnaryExpressionNot: // '!' CastExpression + p.w("%sBool%s(!(", p.task.crt, p.helperType(n, t)) + p.castExpression(f, n.CastExpression, n.CastExpression.Operand.Type(), exprBool, flags) + p.w("))") + case cc.UnaryExpressionSizeofExpr: // "sizeof" UnaryExpression + p.checkSizeof(n.UnaryExpression, n.UnaryExpression.Operand.Type()) + defer p.w("%s", p.convertNil(n, t, flags)) + if d := n.UnaryExpression.Declarator(); d != nil { + var isLocal bool + if f != nil { + if local := f.locals[d]; local != nil { + isLocal = true + if !local.isPinned { + p.w("unsafe.Sizeof(%s)", local.name) + return + } + } + } + + if !isLocal { + if tld := p.tlds[d]; tld != nil { + p.w("unsafe.Sizeof(%s)", tld.name) + break + } + + nm := d.Name().String() + if imp := p.imports[nm]; imp != nil { + imp.used = true + p.w("unsafe.Sizeof(%sX%s)", imp.qualifier, nm) + break + } + } + } + + t := n.UnaryExpression.Operand.Type() + if p.isArray(f, n.UnaryExpression, t) { + p.w("%d", t.Len()*t.Elem().Size()) + break + } + + s := "(0)" + if !t.IsArithmeticType() { + switch t.Kind() { + case cc.Ptr: + // ok + case cc.Struct, cc.Union, cc.Array: + s = "{}" + default: + panic(todo("", t.Kind())) + } + } + switch t.Kind() { + case cc.Int128, cc.UInt128: + s = "{}" + } + p.w("unsafe.Sizeof(%s%s)", p.typ(n, t), s) + case cc.UnaryExpressionSizeofType: // "sizeof" '(' TypeName ')' + defer p.w("%s", p.convertNil(n, t, flags)) + t := n.TypeName.Type() + p.checkSizeof(n.TypeName, t) + if t.Kind() == cc.Array { + p.w("%d", t.Len()*t.Elem().Size()) + break + } + + s := "(0)" + if !t.IsArithmeticType() { + switch t.Kind() { + case cc.Ptr: + // ok + case cc.Struct, cc.Union: + s = "{}" + default: + panic(todo("", t.Kind())) + } + } + switch t.Kind() { + case cc.Int128, cc.UInt128: + s = "{}" + } + p.w("unsafe.Sizeof(%s%s)", p.typ(n, t), s) + case cc.UnaryExpressionLabelAddr: // "&&" IDENTIFIER + panic(todo("", n.Position())) + case cc.UnaryExpressionAlignofExpr: // "_Alignof" UnaryExpression + if n.TypeName.Type().Kind() == cc.Void { + p.intConst(n, "", n.Operand, t, flags) + break + } + + defer p.w("%s", p.convertNil(n, t, flags)) + t := n.UnaryExpression.Operand.Type() + if p.isArray(f, n.UnaryExpression, t) { + p.w("%d", t.Len()*t.Elem().Size()) + break + } + + s := "(0)" + if !t.IsArithmeticType() { + switch t.Kind() { + case cc.Ptr: + // ok + case cc.Struct, cc.Union: + s = "{}" + default: + panic(todo("", t.Kind())) + } + } + p.w("unsafe.Alignof(%s%s)", p.typ(n, t), s) + case cc.UnaryExpressionAlignofType: // "_Alignof" '(' TypeName ')' + if n.TypeName.Type().Kind() == cc.Void { + p.intConst(n, "", n.Operand, t, flags) + break + } + + defer p.w("%s", p.convertNil(n, t, flags)) + t := n.TypeName.Type() + if t.Kind() == cc.Array { + p.w("%d", t.Len()*t.Elem().Size()) + break + } + + s := "(0)" + if !t.IsArithmeticType() { + switch t.Kind() { + case cc.Ptr: + // ok + case cc.Struct, cc.Union: + s = "{}" + default: + panic(todo("", t.Kind())) + } + } + p.w("unsafe.Alignof(%s%s)", p.typ(n, t), s) + case cc.UnaryExpressionImag: // "__imag__" UnaryExpression + panic(todo("", n.Position())) + case cc.UnaryExpressionReal: // "__real__" UnaryExpression + panic(todo("", n.Position())) + default: + panic(todo("%v: internal error: %v", n.Position(), n.Case)) + } +} + +func (p *project) checkSizeof(n cc.Node, t cc.Type) { + if !p.checkSizeof0(n, t) { + p.err(n, "sizeof type %s: not supported", t.Alias()) + } +} + +func (p *project) checkSizeof0(n cc.Node, t cc.Type) (ok bool) { + switch t.Kind() { + case cc.Array: + return !t.IsVLA() + case cc.Struct, cc.Union: + nf := t.NumField() + for i := []int{0}; i[0] < nf; i[0]++ { + if !p.checkSizeof0(n, t.FieldByIndex(i).Type()) { + return false + } + } + } + return true +} + +func (p *project) unaryExpressionLValue(f *function, n *cc.UnaryExpression, t cc.Type, mode exprMode, flags flags) { + switch n.Case { + case cc.UnaryExpressionPostfix: // PostfixExpression + p.postfixExpression(f, n.PostfixExpression, t, mode, flags) + case cc.UnaryExpressionInc: // "++" UnaryExpression + panic(todo("", p.pos(n))) + case cc.UnaryExpressionDec: // "--" UnaryExpression + panic(todo("", p.pos(n))) + case cc.UnaryExpressionAddrof: // '&' CastExpression + panic(todo("", n.Position())) + case cc.UnaryExpressionDeref: // '*' CastExpression + ot := n.CastExpression.Operand.Type() + switch ot.Kind() { + case cc.Ptr, cc.Array: + switch et := ot.Elem(); { + case + et.IsScalarType(), + et.Kind() == cc.Struct, + et.Kind() == cc.Union: + + p.unaryExpressionDeref(f, n, t, mode, flags) + default: + panic(todo("", p.pos(n), et, et.Kind())) + } + default: + panic(todo("", p.pos(n), ot, ot.Kind())) + } + case cc.UnaryExpressionPlus: // '+' CastExpression + panic(todo("", n.Position())) + case cc.UnaryExpressionMinus: // '-' CastExpression + panic(todo("", n.Position())) + case cc.UnaryExpressionCpl: // '~' CastExpression + panic(todo("", n.Position())) + case cc.UnaryExpressionNot: // '!' CastExpression + panic(todo("", n.Position())) + case cc.UnaryExpressionSizeofExpr: // "sizeof" UnaryExpression + panic(todo("", n.Position())) + case cc.UnaryExpressionSizeofType: // "sizeof" '(' TypeName ')' + panic(todo("", n.Position())) + case cc.UnaryExpressionLabelAddr: // "&&" IDENTIFIER + panic(todo("", n.Position())) + case cc.UnaryExpressionAlignofExpr: // "_Alignof" UnaryExpression + panic(todo("", n.Position())) + case cc.UnaryExpressionAlignofType: // "_Alignof" '(' TypeName ')' + panic(todo("", n.Position())) + case cc.UnaryExpressionImag: // "__imag__" UnaryExpression + panic(todo("", n.Position())) + case cc.UnaryExpressionReal: // "__real__" UnaryExpression + panic(todo("", n.Position())) + default: + panic(todo("%v: internal error: %v", n.Position(), n.Case)) + } +} + +func isSigned(t cc.Type) bool { return t.IsIntegerType() && t.IsSignedType() } +func isUnsigned(t cc.Type) bool { return t.IsIntegerType() && !t.IsSignedType() } + +func isConstInteger(op cc.Operand) bool { + switch op.Value().(type) { + case cc.Int64Value, cc.Uint64Value: + return true + default: + return false + } +} + +func isNegativeInt(op cc.Operand) bool { + switch x := op.Value().(type) { + case cc.Int64Value: + return x < 0 + default: + return false + } +} + +func isNonNegativeInt(op cc.Operand) bool { + switch x := op.Value().(type) { + case cc.Int64Value: + return x >= 0 + case cc.Uint64Value: + return true + default: + return false + } +} + +func (p *project) unaryExpressionPreIncDec(f *function, n *cc.UnaryExpression, oper, oper2 string, t cc.Type, mode exprMode, flags flags) { + // "++" UnaryExpression etc. + switch mode { + case exprValue: + p.unaryExpressionPreIncDecValue(f, n, oper, oper2, t, mode, flags) + case exprVoid: + p.unaryExpressionPreIncDecVoid(f, n, oper, oper2, t, mode, flags) + default: + panic(todo("", p.pos(n), mode)) + } +} + +func (p *project) unaryExpressionPreIncDecVoid(f *function, n *cc.UnaryExpression, oper, oper2 string, t cc.Type, mode exprMode, flags flags) { + // "++" UnaryExpression etc. + switch n.UnaryExpression.Operand.Type().Kind() { + case cc.Int128, cc.UInt128: + p.unaryExpressionLValue(f, n.UnaryExpression, n.UnaryExpression.Operand.Type(), exprLValue, 0) + switch oper { + case "++": + p.w(".LValueInc()") + case "--": + p.w(".LValueDec()") + default: + panic(todo("internal error: %q", oper)) + } + return + } + + // "++" UnaryExpression etc. + switch k := p.opKind(f, n.UnaryExpression, n.UnaryExpression.Operand.Type()); k { + case opNormal: + p.unaryExpressionPreIncDecVoidNormal(f, n, oper, oper2, t, mode, flags) + case opArrayParameter: + p.unaryExpressionPreIncDecVoidArrayParameter(f, n, oper, oper2, t, mode, flags) + default: + panic(todo("", n.Position(), k)) + } +} + +func (p *project) unaryExpressionPreIncDecVoidArrayParameter(f *function, n *cc.UnaryExpression, oper, oper2 string, t cc.Type, mode exprMode, flags flags) { + // "++" UnaryExpression etc. + ut := n.UnaryExpression.Operand.Type() + p.unaryExpression(f, n.UnaryExpression, n.UnaryExpression.Operand.Type(), exprLValue, flags) + switch d := p.incDelta(n, ut); d { + case 1: + p.w("%s", oper) + default: + p.w("%s %d", oper2, d) + } +} + +func (p *project) unaryExpressionPreIncDecVoidNormal(f *function, n *cc.UnaryExpression, oper, oper2 string, t cc.Type, mode exprMode, flags flags) { + // "++" UnaryExpression etc. + ut := n.UnaryExpression.Operand.Type() + if d := n.UnaryExpression.Declarator(); d != nil && p.isVolatileOrAtomic(d) { + x := "Dec" + if oper == "++" { + x = "Inc" + } + p.w("%sPre%sAtomic%s(&", p.task.crt, x, p.helperType(n, d.Type())) + switch local, tld := f.locals[d], p.tlds[d]; { + case local != nil: + p.w("%s", local.name) + case tld != nil: + p.w("%s", tld.name) + default: + panic(todo("")) + } + p.w(", %d)", p.incDelta(n.PostfixExpression, ut)) + return + } + + p.unaryExpression(f, n.UnaryExpression, n.UnaryExpression.Operand.Type(), exprLValue, flags) + if ut.IsIntegerType() || ut.Kind() == cc.Ptr && p.incDelta(n, ut) == 1 { + p.w("%s", oper) + return + } + + switch ut.Kind() { + case cc.Ptr, cc.Double, cc.Float: + p.w("%s %d", oper2, p.incDelta(n, ut)) + return + } + + panic(todo("", p.pos(n))) +} + +func (p *project) unaryExpressionPreIncDecValue(f *function, n *cc.UnaryExpression, oper, oper2 string, t cc.Type, mode exprMode, flags flags) { + // "++" UnaryExpression etc. + switch k := p.opKind(f, n.UnaryExpression, n.UnaryExpression.Operand.Type()); k { + case opNormal: + p.unaryExpressionPreIncDecValueNormal(f, n, oper, oper2, t, mode, flags) + default: + panic(todo("", n.Position(), k)) + } +} + +func (p *project) unaryExpressionPreIncDecValueNormal(f *function, n *cc.UnaryExpression, oper, oper2 string, t cc.Type, mode exprMode, flags flags) { + // "++" UnaryExpression etc. + defer p.w("%s", p.convert(n, n.UnaryExpression.Operand, t, flags)) + x := "Dec" + if oper == "++" { + x = "Inc" + } + ut := n.UnaryExpression.Operand.Type() + p.w("%sPre%s%s(&", p.task.crt, x, p.helperType(n, ut)) + p.unaryExpression(f, n.UnaryExpression, ut, exprLValue, flags) + p.w(", %d)", p.incDelta(n.PostfixExpression, ut)) +} + +func (p *project) unaryExpressionDeref(f *function, n *cc.UnaryExpression, t cc.Type, mode exprMode, flags flags) { + // '*' CastExpression + switch mode { + case exprValue: + p.unaryExpressionDerefValue(f, n, t, mode, flags) + case exprLValue: + p.unaryExpressionDerefLValue(f, n, t, mode, flags) + case exprAddrOf: + p.unaryExpressionDerefAddrOf(f, n, t, mode, flags) + case exprBool: + p.unaryExpressionDerefBool(f, n, t, mode, flags) + default: + panic(todo("", n.Position(), mode)) + } +} + +func (p *project) unaryExpressionDerefBool(f *function, n *cc.UnaryExpression, t cc.Type, mode exprMode, flags flags) { + // '*' CastExpression + p.w("(") + defer p.w(")") + p.w("*(*%s)(unsafe.Pointer(", p.typ(n, n.Operand.Type())) + p.castExpression(f, n.CastExpression, n.CastExpression.Operand.Type(), exprValue, flags) + p.w(")) != 0") +} + +func (p *project) unaryExpressionDerefAddrOf(f *function, n *cc.UnaryExpression, t cc.Type, mode exprMode, flags flags) { + // '*' CastExpression + p.castExpression(f, n.CastExpression, n.CastExpression.Operand.Type(), exprValue, flags) +} + +func (p *project) unaryExpressionDerefLValue(f *function, n *cc.UnaryExpression, t cc.Type, mode exprMode, flags flags) { + // '*' CastExpression + switch k := p.opKind(f, n.CastExpression, n.CastExpression.Operand.Type()); k { + case opNormal: + p.unaryExpressionDerefLValueNormal(f, n, t, mode, flags) + case opArray: + panic(todo("", p.pos(n))) + p.unaryExpressionDerefLValueArray(f, n, t, mode, flags) + case opArrayParameter: + p.unaryExpressionDerefLValueNormal(f, n, t, mode, flags) + default: + panic(todo("", n.Position(), k)) + } +} + +func (p *project) unaryExpressionDerefLValueArray(f *function, n *cc.UnaryExpression, t cc.Type, mode exprMode, flags flags) { + defer p.w("))%s", p.convertType(n, n.CastExpression.Operand.Type().Elem(), t, flags)) + p.w("*(*%s)(unsafe.Pointer(", p.typ(n, n.Operand.Type())) + p.castExpression(f, n.CastExpression, n.CastExpression.Operand.Type(), exprValue, flags) +} + +func (p *project) unaryExpressionDerefLValueNormal(f *function, n *cc.UnaryExpression, t cc.Type, mode exprMode, flags flags) { + defer p.w("))%s", p.convertType(n, n.CastExpression.Operand.Type().Elem(), t, flags)) + p.w("*(*%s)(unsafe.Pointer(", p.typ(n, n.Operand.Type())) + p.castExpression(f, n.CastExpression, n.CastExpression.Operand.Type(), exprValue, flags) +} + +func (p *project) unaryExpressionDerefValue(f *function, n *cc.UnaryExpression, t cc.Type, mode exprMode, flags flags) { + // '*' CastExpression + switch k := p.opKind(f, n.CastExpression, n.CastExpression.Operand.Type()); k { + case opNormal, opArrayParameter: + p.unaryExpressionDerefValueNormal(f, n, t, mode, flags) + case opArray: + p.unaryExpressionDerefValueArray(f, n, t, mode, flags) + default: + panic(todo("", n.Position(), k)) + } +} + +func (p *project) unaryExpressionDerefValueArray(f *function, n *cc.UnaryExpression, t cc.Type, mode exprMode, flags flags) { + defer p.w("%s", p.convertType(n, n.CastExpression.Operand.Type().Elem(), t, flags)) + p.castExpression(f, n.CastExpression, n.CastExpression.Operand.Type(), exprValue, flags) + p.w("[0]") +} + +func (p *project) unaryExpressionDerefValueNormal(f *function, n *cc.UnaryExpression, t cc.Type, mode exprMode, flags flags) { + // '*' CastExpression + switch op := n.Operand.Type(); { + case op.Kind() == cc.Array: + p.castExpression(f, n.CastExpression, n.CastExpression.Operand.Type(), mode, flags) + default: + defer p.w("))%s", p.convertType(n, n.CastExpression.Operand.Type().Elem(), t, flags)) + p.w("*(*%s)(unsafe.Pointer(", p.typ(n, n.Operand.Type())) + p.castExpression(f, n.CastExpression, n.CastExpression.Operand.Type(), mode, flags) + } +} + +func (p *project) postfixExpression(f *function, n *cc.PostfixExpression, t cc.Type, mode exprMode, flags flags) { + switch mode { + case exprLValue: + p.postfixExpressionLValue(f, n, t, mode, flags) + case exprValue: + p.postfixExpressionValue(f, n, t, mode, flags) + case exprVoid: + p.postfixExpressionVoid(f, n, t, mode, flags) + case exprFunc: + p.postfixExpressionFunc(f, n, t, mode, flags) + case exprAddrOf: + p.postfixExpressionAddrOf(f, n, t, mode, flags) + case exprSelect: + p.postfixExpressionSelect(f, n, t, mode, flags) + case exprPSelect: + p.postfixExpressionPSelect(f, n, t, mode, flags) + case exprBool: + p.postfixExpressionBool(f, n, t, mode, flags) + case exprDecay: + p.postfixExpressionDecay(f, n, t, mode, flags) + default: + panic(todo("", n.Position(), mode)) + } +} + +func (p *project) postfixExpressionDecay(f *function, n *cc.PostfixExpression, t cc.Type, mode exprMode, flags flags) { + switch n.Case { + case cc.PostfixExpressionPrimary: // PrimaryExpression + p.primaryExpression(f, n.PrimaryExpression, t, mode, flags) + case cc.PostfixExpressionIndex: // PostfixExpression '[' Expression ']' + defer p.w("%s", p.convert(n, n.Operand, t, flags)) + pe := n.PostfixExpression.Operand.Type() + p.w("(") + switch { + case pe.Kind() == cc.Array: + p.postfixExpression(f, n.PostfixExpression, pe, exprDecay, flags) + case pe.Kind() == cc.Ptr: + p.postfixExpression(f, n.PostfixExpression, pe, exprValue, flags) + default: + panic(todo("", p.pos(n))) + } + if !n.Expression.Operand.IsZero() { + p.nzUintptr(n, func() { p.expression(f, n.Expression, n.Expression.Operand.Type(), exprValue, flags) }, n.Expression.Operand) + if sz := pe.Elem().Size(); sz != 1 { + p.w("*%d", sz) + } + } + p.w(")") + case cc.PostfixExpressionCall: // PostfixExpression '(' ArgumentExpressionList ')' + panic(todo("", p.pos(n))) + case cc.PostfixExpressionSelect: // PostfixExpression '.' IDENTIFIER + p.postfixExpression(f, n, t, exprAddrOf, flags) + case cc.PostfixExpressionPSelect: // PostfixExpression "->" IDENTIFIER + p.postfixExpression(f, n, t, exprAddrOf, flags) + case cc.PostfixExpressionInc: // PostfixExpression "++" + panic(todo("", p.pos(n))) + case cc.PostfixExpressionDec: // PostfixExpression "--" + panic(todo("", p.pos(n))) + case cc.PostfixExpressionComplit: // '(' TypeName ')' '{' InitializerList ',' '}' + panic(todo("", p.pos(n))) + case cc.PostfixExpressionTypeCmp: // "__builtin_types_compatible_p" '(' TypeName ',' TypeName ')' + panic(todo("", p.pos(n))) + case cc.PostfixExpressionChooseExpr: + panic(todo("", p.pos(n))) + default: + panic(todo("%v: internal error: %v", n.Position(), n.Case)) + } +} + +func (p *project) postfixExpressionBool(f *function, n *cc.PostfixExpression, t cc.Type, mode exprMode, flags flags) { + switch n.Case { + case cc.PostfixExpressionPrimary: // PrimaryExpression + p.primaryExpression(f, n.PrimaryExpression, t, mode, flags) + case cc.PostfixExpressionIndex: // PostfixExpression '[' Expression ']' + p.w("(") + defer p.w(")") + defer p.w(" != 0") + p.postfixExpression(f, n, t, exprValue, flags) + case cc.PostfixExpressionCall: // PostfixExpression '(' ArgumentExpressionList ')' + p.postfixExpressionCall(f, n, t, mode, flags) + case cc.PostfixExpressionSelect: // PostfixExpression '.' IDENTIFIER + p.w("(") + defer p.w(")") + defer p.w(" != 0") + p.postfixExpression(f, n, t, exprValue, flags) + case cc.PostfixExpressionPSelect: // PostfixExpression "->" IDENTIFIER + p.w("(") + defer p.w(")") + defer p.w(" != 0") + p.postfixExpression(f, n, t, exprValue, flags) + case cc.PostfixExpressionInc: // PostfixExpression "++" + p.w("(") + defer p.w(")") + defer p.w(" != 0") + p.postfixExpression(f, n, t, exprValue, flags) + case cc.PostfixExpressionDec: // PostfixExpression "--" + p.w("(") + defer p.w(")") + defer p.w(" != 0") + p.postfixExpression(f, n, t, exprValue, flags) + case cc.PostfixExpressionComplit: // '(' TypeName ')' '{' InitializerList ',' '}' + panic(todo("", p.pos(n))) + case cc.PostfixExpressionTypeCmp: // "__builtin_types_compatible_p" '(' TypeName ',' TypeName ')' + panic(todo("", p.pos(n))) + case cc.PostfixExpressionChooseExpr: + p.w("(") + defer p.w(")") + defer p.w(" != 0") + p.postfixExpression(f, n, t, exprValue, flags) + default: + panic(todo("%v: internal error: %v", n.Position(), n.Case)) + } +} + +func (p *project) postfixExpressionPSelect(f *function, n *cc.PostfixExpression, t cc.Type, mode exprMode, flags flags) { + // PostfixExpression "->" IDENTIFIER + switch n.Case { + case cc.PostfixExpressionPrimary: // PrimaryExpression + p.primaryExpression(f, n.PrimaryExpression, t, mode, flags) + case cc.PostfixExpressionIndex: // PostfixExpression '[' Expression ']' + p.postfixExpressionPSelectIndex(f, n, t, mode, flags) + case cc.PostfixExpressionCall: // PostfixExpression '(' ArgumentExpressionList ')' + p.postfixExpressionPSelectCall(f, n, t, mode, flags) + case cc.PostfixExpressionSelect: // PostfixExpression '.' IDENTIFIER + p.postfixExpressionPSelectSelect(f, n, t, mode, flags) + case cc.PostfixExpressionPSelect: // PostfixExpression "->" IDENTIFIER + p.postfixExpressionPSelectPSelect(f, n, t, mode, flags) + case cc.PostfixExpressionInc: // PostfixExpression "++" + panic(todo("", p.pos(n))) + case cc.PostfixExpressionDec: // PostfixExpression "--" + panic(todo("", p.pos(n))) + case cc.PostfixExpressionComplit: // '(' TypeName ')' '{' InitializerList ',' '}' + panic(todo("", p.pos(n))) + case cc.PostfixExpressionTypeCmp: // "__builtin_types_compatible_p" '(' TypeName ',' TypeName ')' + panic(todo("", p.pos(n))) + case cc.PostfixExpressionChooseExpr: + panic(todo("", p.pos(n))) + default: + panic(todo("%v: internal error: %v", n.Position(), n.Case)) + } +} + +func (p *project) postfixExpressionPSelectSelect(f *function, n *cc.PostfixExpression, t cc.Type, mode exprMode, flags flags) { + // PostfixExpression '.' IDENTIFIER + switch k := p.opKind(f, n.PostfixExpression, n.PostfixExpression.Operand.Type()); k { + case opStruct: + p.postfixExpressionPSelectSelectStruct(f, n, t, mode, flags) + case opUnion: + p.postfixExpressionPSelectSelectUnion(f, n, t, mode, flags) + default: + panic(todo("", n.Position(), k)) + } +} + +func (p *project) postfixExpressionPSelectSelectUnion(f *function, n *cc.PostfixExpression, t cc.Type, mode exprMode, flags flags) { + // PostfixExpression '.' IDENTIFIER + fld := n.Field + if fld.Offset() != 0 { + p.err(&n.Token2, "internal error, union field with non-zero offset: %s %v", n.Token2.Value, fld.Offset()) + } + switch { + case n.Operand.Type().IsBitFieldType(): + panic(todo("", p.pos(n))) + default: + if fld.IsBitField() { + p.err(&n.Token2, "internal error, wrong function for accessing a bit field: %s", n.Token2.Value) + } + pe := n.PostfixExpression.Operand.Type() + defer p.w("%s", p.convert(n, n.Operand, t, flags)) + p.w("(*(**%s)(unsafe.Pointer(", p.typ(n, n.Operand.Type().Elem())) + p.postfixExpression(f, n.PostfixExpression, pe, exprAddrOf, flags) + p.w("/* .%s */", p.fieldName(n, n.Token2.Value)) + p.w(")))") + } +} + +func (p *project) postfixExpressionPSelectSelectStruct(f *function, n *cc.PostfixExpression, t cc.Type, mode exprMode, flags flags) { + // PostfixExpression '.' IDENTIFIER + fld := n.Field + switch { + case n.Operand.Type().IsBitFieldType(): + panic(todo("", p.pos(n))) + default: + if fld.IsBitField() { + p.err(&n.Token2, "internal error, wrong function for accessing a bit field: %s", n.Token2.Value) + } + pe := n.PostfixExpression.Operand.Type() + p.w("(*%s)(unsafe.Pointer(", p.typ(n, t.Elem())) + p.postfixExpression(f, n.PostfixExpression, pe, exprSelect, flags) + p.w(".%s", p.fieldName(n, n.Token2.Value)) + p.w("))") + + } +} + +func (p *project) postfixExpressionPSelectCall(f *function, n *cc.PostfixExpression, t cc.Type, mode exprMode, flags flags) { + p.w("(*%s)(unsafe.Pointer(", p.typ(n, n.Operand.Type().Elem())) + p.postfixExpressionCall(f, n, t, exprValue, flags) + p.w("))") +} + +func (p *project) postfixExpressionPSelectIndex(f *function, n *cc.PostfixExpression, t cc.Type, mode exprMode, flags flags) { + // PostfixExpression '[' Expression ']' + switch k := p.opKind(f, n.PostfixExpression, n.PostfixExpression.Operand.Type()); k { + // case opArray: + // p.postfixExpressionSelectIndexArray(f, n, t, mode, flags) + case opNormal: + p.postfixExpressionPSelectIndexNormal(f, n, t, mode, flags) + case opArrayParameter: + p.postfixExpressionSelectIndexArrayParamater(f, n, t, mode, flags) + default: + panic(todo("", n.Position(), k)) + } +} + +func (p *project) postfixExpressionPSelectIndexNormal(f *function, n *cc.PostfixExpression, t cc.Type, mode exprMode, flags flags) { + pe := n.PostfixExpression.Operand.Type() + // PostfixExpression '[' Expression ']' + switch { + case n.Operand.Type().IsBitFieldType(): + panic(todo("", p.pos(n))) + case n.Operand.Type().Kind() == cc.Array: + panic(todo("", p.pos(n))) + case pe.Kind() == cc.Array: + p.w("(") + defer p.w(")") + p.w("(*(**%s)(unsafe.Pointer(", p.typ(n, n.Operand.Type().Elem())) + p.postfixExpression(f, n.PostfixExpression, pe, exprAddrOf, flags) + if !n.Expression.Operand.IsZero() { + p.nzUintptr(n, func() { p.expression(f, n.Expression, n.Expression.Operand.Type(), exprValue, flags) }, n.Expression.Operand) + if sz := pe.Decay().Elem().Size(); sz != 1 { + p.w("*%d", sz) + } + } + p.w(")))") + default: + p.w("(") + defer p.w(")") + p.w("(*(**%s)(unsafe.Pointer(", p.typ(n, n.Operand.Type().Elem())) + p.postfixExpression(f, n.PostfixExpression, pe, exprValue, flags) + if !n.Expression.Operand.IsZero() { + p.nzUintptr(n, func() { p.expression(f, n.Expression, n.Expression.Operand.Type(), exprValue, flags) }, n.Expression.Operand) + if sz := pe.Decay().Elem().Size(); sz != 1 { + p.w("*%d", sz) + } + } + p.w(")))") + } +} + +func (p *project) postfixExpressionSelect(f *function, n *cc.PostfixExpression, t cc.Type, mode exprMode, flags flags) { + // PostfixExpression '.' IDENTIFIER + switch n.Case { + case cc.PostfixExpressionPrimary: // PrimaryExpression + p.primaryExpression(f, n.PrimaryExpression, t, mode, flags) + case cc.PostfixExpressionIndex: // PostfixExpression '[' Expression ']' + p.postfixExpressionSelectIndex(f, n, t, mode, flags) + case cc.PostfixExpressionCall: // PostfixExpression '(' ArgumentExpressionList ')' + p.postfixExpression(f, n, t, exprValue, flags) + case cc.PostfixExpressionSelect: // PostfixExpression '.' IDENTIFIER + p.postfixExpressionSelectSelect(f, n, t, mode, flags) + case cc.PostfixExpressionPSelect: // PostfixExpression "->" IDENTIFIER + p.postfixExpressionSelectPSelect(f, n, t, mode, flags) + case cc.PostfixExpressionInc: // PostfixExpression "++" + panic(todo("", p.pos(n))) + case cc.PostfixExpressionDec: // PostfixExpression "--" + panic(todo("", p.pos(n))) + case cc.PostfixExpressionComplit: // '(' TypeName ')' '{' InitializerList ',' '}' + panic(todo("", p.pos(n))) + case cc.PostfixExpressionTypeCmp: // "__builtin_types_compatible_p" '(' TypeName ',' TypeName ')' + panic(todo("", p.pos(n))) + case cc.PostfixExpressionChooseExpr: + panic(todo("", p.pos(n))) + default: + panic(todo("%v: internal error: %v", n.Position(), n.Case)) + } +} + +func (p *project) postfixExpressionPSelectPSelect(f *function, n *cc.PostfixExpression, t cc.Type, mode exprMode, flags flags) { + // PostfixExpression "->" IDENTIFIER + switch k := p.opKind(f, n.PostfixExpression, n.PostfixExpression.Operand.Type().Elem()); k { + case opStruct: + p.postfixExpressionPSelectPSelectStruct(f, n, t, mode, flags) + default: + panic(todo("", n.Position(), k)) + } +} + +func (p *project) postfixExpressionPSelectPSelectStruct(f *function, n *cc.PostfixExpression, t cc.Type, mode exprMode, flags flags) { + // PostfixExpression "->" IDENTIFIER + fld := n.Field + switch { + case n.Operand.Type().IsBitFieldType(): + panic(todo("", p.pos(n))) + default: + if fld.IsBitField() { + p.err(&n.Token2, "internal error, wrong function for accessing a bit field: %s", n.Token2.Value) + } + pe := n.PostfixExpression.Operand.Type() + defer p.w("%s", p.convert(n, n.Operand, t, flags)) + p.w("(*%s)(unsafe.Pointer(", p.typ(n, t.Elem())) + p.postfixExpression(f, n.PostfixExpression, pe, exprPSelect, flags) + p.w(".%s", p.fieldName(n, n.Token2.Value)) + p.w("))") + } +} + +func (p *project) postfixExpressionSelectPSelect(f *function, n *cc.PostfixExpression, t cc.Type, mode exprMode, flags flags) { + // PostfixExpression "->" IDENTIFIER + switch k := p.opKind(f, n.PostfixExpression, n.PostfixExpression.Operand.Type().Elem()); k { + case opStruct: + p.postfixExpressionSelectPSelectStruct(f, n, t, mode, flags) + case opUnion: + p.postfixExpressionSelectPSelectUnion(f, n, t, mode, flags) + default: + panic(todo("", n.Position(), k)) + } +} + +func (p *project) postfixExpressionSelectPSelectUnion(f *function, n *cc.PostfixExpression, t cc.Type, mode exprMode, flags flags) { + // PostfixExpression "->" IDENTIFIER + fld := n.Field + if fld.Offset() != 0 { + p.err(&n.Token2, "internal error, union field with non-zero offset: %s %v", n.Token2.Value, fld.Offset()) + } + switch { + case n.Operand.Type().IsBitFieldType(): + panic(todo("", p.pos(n))) + case n.Operand.Type().Kind() == cc.Array: + panic(todo("", p.pos(n))) + default: + if fld.IsBitField() { + p.err(&n.Token2, "internal error, wrong function for accessing a bit field: %s", n.Token2.Value) + } + pe := n.PostfixExpression.Operand.Type() + defer p.w("%s", p.convert(n, n.Operand, t, flags)) + p.w("(*%s)(unsafe.Pointer(", p.typ(n, n.Operand.Type())) + p.postfixExpression(f, n.PostfixExpression, pe, exprValue, flags) + p.w("))") + } +} + +func (p *project) postfixExpressionSelectPSelectStruct(f *function, n *cc.PostfixExpression, t cc.Type, mode exprMode, flags flags) { + // PostfixExpression "->" IDENTIFIER + fld := n.Field + switch { + case n.Operand.Type().IsBitFieldType(): + panic(todo("", p.pos(n))) + default: + if fld.IsBitField() { + p.err(&n.Token2, "internal error, wrong function for accessing a bit field: %s", n.Token2.Value) + } + pe := n.PostfixExpression.Operand.Type() + defer p.w("%s", p.convert(n, n.Operand, t, flags)) + et := n.PostfixExpression.Operand.Type().Elem() + fld, path, ok := et.FieldByName2(n.Token2.Value) + switch { + case !ok: + panic(todo("", n.Token.Position())) + case fld.InUnion(): + p.w("(*(*%s)(unsafe.Pointer(", p.typ(n, n.Operand.Type())) + p.postfixExpression(f, n.PostfixExpression, pe, exprValue, flags) + p.w("%s)))", nonZeroUintptr(pathOff(et, path))) + case len(path) != 1: + panic(todo("", n.Token.Position())) + default: + p.w("(*%s)(unsafe.Pointer(", p.typ(n, pe.Elem())) + switch { + case pe.Kind() == cc.Array: + p.postfixExpression(f, n.PostfixExpression, pe, exprAddrOf, flags) + default: + p.postfixExpression(f, n.PostfixExpression, pe, exprValue, flags) + } + p.w(")).%s", p.fieldName(n, n.Token2.Value)) + } + } +} + +func (p *project) postfixExpressionSelectSelect(f *function, n *cc.PostfixExpression, t cc.Type, mode exprMode, flags flags) { + // PostfixExpression '.' IDENTIFIER + switch k := p.opKind(f, n.PostfixExpression, n.PostfixExpression.Operand.Type()); k { + case opUnion: + p.postfixExpressionSelectSelectUnion(f, n, t, mode, flags) + case opStruct: + p.postfixExpressionSelectSelectStruct(f, n, t, mode, flags) + default: + panic(todo("", n.Position(), k)) + } +} + +func (p *project) postfixExpressionSelectSelectStruct(f *function, n *cc.PostfixExpression, t cc.Type, mode exprMode, flags flags) { + // PostfixExpression '.' IDENTIFIER + fld := n.Field + switch { + case n.Operand.Type().IsBitFieldType(): + panic(todo("", p.pos(n))) + case n.Operand.Type().Kind() == cc.Array: + panic(todo("", p.pos(n))) + default: + if fld.IsBitField() { + p.err(&n.Token2, "internal error, wrong function for accessing a bit field: %s", n.Token2.Value) + } + pe := n.PostfixExpression.Operand.Type() + p.postfixExpression(f, n.PostfixExpression, pe, exprSelect, flags) + p.w(".%s", p.fieldName(n, n.Token2.Value)) + } +} + +func (p *project) postfixExpressionSelectSelectUnion(f *function, n *cc.PostfixExpression, t cc.Type, mode exprMode, flags flags) { + // PostfixExpression '.' IDENTIFIER + fld := n.Field + if fld.Offset() != 0 { + p.err(&n.Token2, "internal error, union field with non-zero offset: %s %v", n.Token2.Value, fld.Offset()) + } + switch { + case n.Operand.Type().IsBitFieldType(): + panic(todo("", p.pos(n))) + case n.Operand.Type().Kind() == cc.Array: + panic(todo("", p.pos(n))) + default: + if fld.IsBitField() { + p.err(&n.Token2, "internal error, wrong function for accessing a bit field: %s", n.Token2.Value) + } + pe := n.PostfixExpression.Operand.Type() + defer p.w("%s", p.convert(n, n.Operand, t, flags)) + p.w("(*%s)(unsafe.Pointer(", p.typ(n, n.Operand.Type())) + p.postfixExpression(f, n.PostfixExpression, pe, exprAddrOf, flags) + p.w("))") + } +} + +func (p *project) postfixExpressionSelectIndex(f *function, n *cc.PostfixExpression, t cc.Type, mode exprMode, flags flags) { + // PostfixExpression '[' Expression ']' + switch k := p.opKind(f, n.PostfixExpression, n.PostfixExpression.Operand.Type()); k { + case opArray: + p.postfixExpressionSelectIndexArray(f, n, t, mode, flags) + case opNormal: + p.postfixExpressionSelectIndexNormal(f, n, t, mode, flags) + case opArrayParameter: + p.postfixExpressionSelectIndexArrayParamater(f, n, t, mode, flags) + default: + panic(todo("", n.Position(), k)) + } +} + +func (p *project) postfixExpressionSelectIndexArrayParamater(f *function, n *cc.PostfixExpression, t cc.Type, mode exprMode, flags flags) { + pe := n.PostfixExpression.Operand.Type() + // PostfixExpression '[' Expression ']' + switch { + case n.Operand.Type().IsBitFieldType(): + panic(todo("", p.pos(n))) + case n.Operand.Type().Kind() == cc.Array: + panic(todo("", p.pos(n))) + default: + p.w("(*%s)(unsafe.Pointer(", p.typ(n, pe.Elem())) + p.postfixExpression(f, n.PostfixExpression, pe, exprValue, flags) + if !n.Expression.Operand.IsZero() { + p.nzUintptr(n, func() { p.expression(f, n.Expression, n.Expression.Operand.Type(), exprValue, flags) }, n.Expression.Operand) + if sz := pe.Decay().Elem().Size(); sz != 1 { + p.w("*%d", sz) + } + } + p.w("))") + } +} + +func (p *project) postfixExpressionSelectIndexNormal(f *function, n *cc.PostfixExpression, t cc.Type, mode exprMode, flags flags) { + pe := n.PostfixExpression.Operand.Type() + // PostfixExpression '[' Expression ']' + switch { + case n.Operand.Type().IsBitFieldType(): + panic(todo("", p.pos(n))) + case n.Operand.Type().Kind() == cc.Array: + panic(todo("", p.pos(n))) + case pe.Kind() != cc.Ptr: + p.w("(*%s)(unsafe.Pointer(", p.typ(n, pe.Elem())) + p.postfixExpression(f, n.PostfixExpression, pe, exprAddrOf, flags) + if !n.Expression.Operand.IsZero() { + p.nzUintptr(n, func() { p.expression(f, n.Expression, n.Expression.Operand.Type(), exprValue, flags) }, n.Expression.Operand) + if sz := pe.Decay().Elem().Size(); sz != 1 { + p.w("*%d", sz) + } + } + p.w("))") + default: + p.w("(*%s)(unsafe.Pointer(", p.typ(n, pe.Elem())) + p.postfixExpression(f, n.PostfixExpression, pe, exprValue, flags) + if !n.Expression.Operand.IsZero() { + p.nzUintptr(n, func() { p.expression(f, n.Expression, n.Expression.Operand.Type(), exprValue, flags) }, n.Expression.Operand) + if sz := pe.Decay().Elem().Size(); sz != 1 { + p.w("*%d", sz) + } + } + p.w("))") + } +} + +func (p *project) postfixExpressionSelectIndexArray(f *function, n *cc.PostfixExpression, t cc.Type, mode exprMode, flags flags) { + // PostfixExpression '[' Expression ']' + switch { + case n.Operand.Type().IsBitFieldType(): + panic(todo("", p.pos(n))) + case n.Operand.Type().Kind() == cc.Array: + panic(todo("", p.pos(n))) + default: + pe := n.PostfixExpression.Operand.Type() + p.postfixExpression(f, n.PostfixExpression, pe, mode, flags) + p.w("[") + p.expression(f, n.Expression, n.Expression.Operand.Type(), exprValue, flags) + p.w("]") + } +} + +func (p *project) postfixExpressionAddrOf(f *function, n *cc.PostfixExpression, t cc.Type, mode exprMode, flags flags) { + switch n.Case { + case cc.PostfixExpressionPrimary: // PrimaryExpression + p.primaryExpression(f, n.PrimaryExpression, t, mode, flags) + case cc.PostfixExpressionIndex: // PostfixExpression '[' Expression ']' + p.postfixExpressionAddrOfIndex(f, n, t, mode, flags) + case cc.PostfixExpressionCall: // PostfixExpression '(' ArgumentExpressionList ')' + ot := n.Operand.Type() + switch ot.Kind() { + case cc.Struct, cc.Union: + // ok + default: + p.err(n, "cannot take address of value of type %v", n.Operand.Type()) + return + } + + if p.pass1 { + off := roundup(f.off, uintptr(ot.Align())) + f.complits[n] = off + f.off += ot.Size() + return + } + + off := f.complits[n] + p.w("func() uintptr { *(*%s)(unsafe.Pointer(%s%s)) = ", p.typ(n, ot), f.bpName, nonZeroUintptr(off)) + p.postfixExpressionValue(f, n, ot, exprValue, flags) + p.w("; return %s%s }()", f.bpName, nonZeroUintptr(off)) + case cc.PostfixExpressionSelect: // PostfixExpression '.' IDENTIFIER + p.postfixExpressionAddrOfSelect(f, n, t, mode, flags) + case cc.PostfixExpressionPSelect: // PostfixExpression "->" IDENTIFIER + p.postfixExpressionAddrOfPSelect(f, n, t, mode, flags) + case cc.PostfixExpressionInc: // PostfixExpression "++" + p.postfixExpressionIncDec(f, n, "++", "+=", t, exprLValue, flags) + case cc.PostfixExpressionDec: // PostfixExpression "--" + panic(todo("", p.pos(n))) + case cc.PostfixExpressionComplit: // '(' TypeName ')' '{' InitializerList ',' '}' + tn := n.TypeName.Type() + switch tn.Decay().Kind() { + case cc.Ptr: + switch tn.Kind() { + case cc.Array: + switch { + case p.pass1: + off := roundup(f.off, uintptr(tn.Elem().Align())) + f.complits[n] = off + f.off += tn.Size() + default: + off := f.complits[n] + p.w(" func() uintptr { *(*%s)(unsafe.Pointer(%s%s)) = ", p.typ(n, tn), f.bpName, nonZeroUintptr(off)) + p.initializer(f, &cc.Initializer{Case: cc.InitializerInitList, InitializerList: n.InitializerList}, tn, cc.Automatic, nil) + p.w("; return %s%s }()", f.bpName, nonZeroUintptr(off)) + } + default: + panic(todo("%v: %v", n.Position(), tn)) + } + default: + switch { + case p.pass1: + off := roundup(f.off, uintptr(tn.Align())) + f.complits[n] = off + f.off += tn.Size() + default: + off := f.complits[n] + p.w(" func() uintptr { *(*%s)(unsafe.Pointer(%s%s)) = ", p.typ(n, tn), f.bpName, nonZeroUintptr(off)) + p.initializer(f, &cc.Initializer{Case: cc.InitializerInitList, InitializerList: n.InitializerList}, tn, cc.Automatic, nil) + p.w("; return %s%s }()", f.bpName, nonZeroUintptr(off)) + } + } + case cc.PostfixExpressionTypeCmp: // "__builtin_types_compatible_p" '(' TypeName ',' TypeName ')' + panic(todo("", p.pos(n))) + case cc.PostfixExpressionChooseExpr: + panic(todo("", p.pos(n))) + default: + panic(todo("%v: internal error: %v", n.Position(), n.Case)) + } +} + +func (p *project) postfixExpressionAddrOfPSelect(f *function, n *cc.PostfixExpression, t cc.Type, mode exprMode, flags flags) { + // PostfixExpression "->" IDENTIFIER + p.w("(") + defer p.w(")") + pe := n.PostfixExpression.Operand.Type() + switch { + case n.Operand.Type().IsBitFieldType(): + p.postfixExpression(f, n.PostfixExpression, pe, exprValue, flags) + p.bitFldOff(pe.Elem(), n.Token2) + case pe.Kind() == cc.Array: + p.postfixExpression(f, n.PostfixExpression, pe, exprDecay, flags) + p.fldOff(pe.Elem(), n.Token2) + default: + p.postfixExpression(f, n.PostfixExpression, pe, exprValue, flags) + p.fldOff(pe.Elem(), n.Token2) + } +} + +func (p *project) postfixExpressionAddrOfIndex(f *function, n *cc.PostfixExpression, t cc.Type, mode exprMode, flags flags) { + // PostfixExpression '[' Expression ']' + p.w("(") + defer p.w(")") + switch { + case n.Operand.Type().Kind() == cc.Array: + fallthrough + default: + pe := n.PostfixExpression.Operand.Type() + d := n.PostfixExpression.Declarator() + switch { + case pe.Kind() == cc.Ptr: + p.postfixExpression(f, n.PostfixExpression, pe, exprValue, flags) + case pe.Kind() == cc.Array && d != nil && d.IsParameter: + p.postfixExpression(f, n.PostfixExpression, pe, exprValue, flags) + default: + p.postfixExpression(f, n.PostfixExpression, pe, mode, flags) + } + if !n.Expression.Operand.IsZero() { + p.nzUintptr(n, func() { p.expression(f, n.Expression, n.Expression.Operand.Type(), exprValue, flags) }, n.Expression.Operand) + if sz := pe.Decay().Elem().Size(); sz != 1 { + p.w("*%d", sz) + } + } + } +} + +func (p *project) postfixExpressionAddrOfSelect(f *function, n *cc.PostfixExpression, t cc.Type, mode exprMode, flags flags) { + // PostfixExpression '.' IDENTIFIER + p.w("(") + defer p.w(")") + switch { + case n.Operand.Type().IsBitFieldType(): + pe := n.PostfixExpression.Operand.Type() + p.postfixExpression(f, n.PostfixExpression, nil, mode, flags) + p.bitFldOff(pe, n.Token2) + case n.Operand.Type().Kind() == cc.Array: + fallthrough + default: + pe := n.PostfixExpression.Operand.Type() + p.postfixExpression(f, n.PostfixExpression, nil, mode, flags) + p.fldOff(pe, n.Token2) + } +} + +func (p *project) postfixExpressionFunc(f *function, n *cc.PostfixExpression, t cc.Type, mode exprMode, flags flags) { + switch n.Case { + case cc.PostfixExpressionPrimary: // PrimaryExpression + p.primaryExpression(f, n.PrimaryExpression, t, mode, flags) + case cc.PostfixExpressionIndex: // PostfixExpression '[' Expression ']' + switch n.Operand.Type().Kind() { + case cc.Ptr: + switch et := n.Operand.Type().Elem(); et.Kind() { + case cc.Function: + p.fnVal(n, f, func() { + p.postfixExpression(f, n, n.Operand.Type(), exprValue, flags) + }, nil, n.Operand.Type(), 0, mode, flags) + default: + panic(todo("", p.pos(n), et, et.Kind())) + } + default: + panic(todo("", n.Position(), n.Operand.Type())) + } + case cc.PostfixExpressionCall: // PostfixExpression '(' ArgumentExpressionList ')' + switch n.Operand.Type().Kind() { + case cc.Ptr: + switch et := n.Operand.Type().Elem(); et.Kind() { + case cc.Function: + p.fnVal(n, f, func() { + p.postfixExpressionCall(f, n, t, exprValue, flags) + }, nil, n.Operand.Type(), 0, mode, flags) + default: + panic(todo("", p.pos(n), et, et.Kind())) + } + default: + panic(todo("", n.Position(), n.Operand.Type())) + } + case cc.PostfixExpressionSelect: // PostfixExpression '.' IDENTIFIER + switch n.Operand.Type().Kind() { + case cc.Ptr: + switch n.Operand.Type().Kind() { + case cc.Ptr: + switch et := n.Operand.Type().Elem(); et.Kind() { + case cc.Function: + p.fnVal(n, f, func() { p.postfixExpression(f, n, p.ptrType, exprValue, flags) }, nil, n.Operand.Type(), 0, mode, flags) + default: + panic(todo("", p.pos(n), et, et.Kind())) + } + default: + panic(todo("", p.pos(n), n.Operand.Type(), n.Operand.Type().Kind())) + } + default: + panic(todo("", n.Position(), n.Operand.Type())) + } + case cc.PostfixExpressionPSelect: // PostfixExpression "->" IDENTIFIER + p.fnVal(n, f, func() { p.postfixExpression(f, n, p.ptrType, exprValue, flags) }, nil, n.Operand.Type(), 0, mode, flags) + case cc.PostfixExpressionInc: // PostfixExpression "++" + panic(todo("", p.pos(n))) + case cc.PostfixExpressionDec: // PostfixExpression "--" + panic(todo("", p.pos(n))) + case cc.PostfixExpressionComplit: // '(' TypeName ')' '{' InitializerList ',' '}' + panic(todo("", p.pos(n))) + case cc.PostfixExpressionTypeCmp: // "__builtin_types_compatible_p" '(' TypeName ',' TypeName ')' + panic(todo("", p.pos(n))) + case cc.PostfixExpressionChooseExpr: + panic(todo("", p.pos(n))) + default: + panic(todo("%v: internal error: %v", n.Position(), n.Case)) + } +} + +func (p *project) postfixExpressionVoid(f *function, n *cc.PostfixExpression, t cc.Type, mode exprMode, flags flags) { + switch n.Case { + case cc.PostfixExpressionPrimary: // PrimaryExpression + p.primaryExpression(f, n.PrimaryExpression, t, mode, flags) + case cc.PostfixExpressionIndex: // PostfixExpression '[' Expression ']' + p.w("_ = ") + p.postfixExpression(f, n, n.Operand.Type(), exprValue, flags) + case cc.PostfixExpressionCall: // PostfixExpression '(' ArgumentExpressionList ')' + p.postfixExpressionCall(f, n, n.Operand.Type(), mode, flags) + case cc.PostfixExpressionSelect: // PostfixExpression '.' IDENTIFIER + p.w("_ = ") + p.postfixExpression(f, n, n.Operand.Type(), exprValue, flags) + case cc.PostfixExpressionPSelect: // PostfixExpression "->" IDENTIFIER + p.w("_ = ") + p.postfixExpression(f, n, n.Operand.Type(), exprValue, flags) + case cc.PostfixExpressionInc: // PostfixExpression "++" + p.postfixExpressionIncDec(f, n, "++", "+=", t, mode, flags) + case cc.PostfixExpressionDec: // PostfixExpression "--" + p.postfixExpressionIncDec(f, n, "--", "-=", t, mode, flags) + case cc.PostfixExpressionComplit: // '(' TypeName ')' '{' InitializerList ',' '}' + tn := n.TypeName.Type() + switch tn.Decay().Kind() { + case cc.Ptr: + switch tn.Kind() { + case cc.Array: + switch { + case p.pass1: + off := roundup(f.off, uintptr(tn.Elem().Align())) + f.complits[n] = off + f.off += tn.Size() + default: + off := f.complits[n] + p.w("*(*%s)(unsafe.Pointer(%s%s)) = ", p.typ(n, tn), f.bpName, nonZeroUintptr(off)) + p.initializer(f, &cc.Initializer{Case: cc.InitializerInitList, InitializerList: n.InitializerList}, tn, cc.Automatic, nil) + } + return + default: + panic(todo("%v: %v", n.Position(), tn)) + } + } + + defer p.w("%s", p.convertType(n, tn, t, flags)) + p.w("_ = ") + p.initializer(f, &cc.Initializer{Case: cc.InitializerInitList, InitializerList: n.InitializerList}, tn, cc.Automatic, nil) + case cc.PostfixExpressionTypeCmp: // "__builtin_types_compatible_p" '(' TypeName ',' TypeName ')' + panic(todo("", p.pos(n))) + case cc.PostfixExpressionChooseExpr: + panic(todo("", p.pos(n))) + default: + panic(todo("%v: internal error: %v", n.Position(), n.Case)) + } +} + +func (p *project) postfixExpressionValue(f *function, n *cc.PostfixExpression, t cc.Type, mode exprMode, flags flags) { + switch n.Case { + case cc.PostfixExpressionPrimary: // PrimaryExpression + if p.isArray(f, n.PrimaryExpression, n.Operand.Type()) && t.Kind() == cc.Ptr { + mode = exprDecay + } + p.primaryExpression(f, n.PrimaryExpression, t, mode, flags) + case cc.PostfixExpressionIndex: // PostfixExpression '[' Expression ']' + p.postfixExpressionValueIndex(f, n, t, mode, flags) + case cc.PostfixExpressionCall: // PostfixExpression '(' ArgumentExpressionList ')' + p.postfixExpressionCall(f, n, t, mode, flags) + case cc.PostfixExpressionSelect: // PostfixExpression '.' IDENTIFIER + p.postfixExpressionValueSelect(f, n, t, mode, flags) + case cc.PostfixExpressionPSelect: // PostfixExpression "->" IDENTIFIER + p.postfixExpressionValuePSelect(f, n, t, mode, flags) + case cc.PostfixExpressionInc: // PostfixExpression "++" + p.postfixExpressionIncDec(f, n, "++", "+=", t, mode, flags) + case cc.PostfixExpressionDec: // PostfixExpression "--" + p.postfixExpressionIncDec(f, n, "--", "-=", t, mode, flags) + case cc.PostfixExpressionComplit: // '(' TypeName ')' '{' InitializerList ',' '}' + tn := n.TypeName.Type() + switch tn.Decay().Kind() { + case cc.Ptr: + switch tn.Kind() { + case cc.Array: + switch { + case p.pass1: + off := roundup(f.off, uintptr(tn.Elem().Align())) + f.complits[n] = off + f.off += tn.Size() + default: + off := f.complits[n] + p.w(" func() uintptr { *(*%s)(unsafe.Pointer(%s%s)) = ", p.typ(n, tn), f.bpName, nonZeroUintptr(off)) + p.initializer(f, &cc.Initializer{Case: cc.InitializerInitList, InitializerList: n.InitializerList}, tn, cc.Automatic, nil) + p.w("; return %s%s }()", f.bpName, nonZeroUintptr(off)) + } + return + default: + panic(todo("%v: %v", n.Position(), tn)) + } + } + + defer p.w("%s", p.convertType(n, tn, t, flags)) + p.initializer(f, &cc.Initializer{Case: cc.InitializerInitList, InitializerList: n.InitializerList}, tn, cc.Automatic, nil) + case cc.PostfixExpressionTypeCmp: // "__builtin_types_compatible_p" '(' TypeName ',' TypeName ')' + // Built-in Function: int __builtin_types_compatible_p (type1, type2) You can + // use the built-in function __builtin_types_compatible_p to determine whether + // two types are the same. + // + // This built-in function returns 1 if the unqualified versions of the types + // type1 and type2 (which are types, not expressions) are compatible, 0 + // otherwise. The result of this built-in function can be used in integer + // constant expressions. + // + // This built-in function ignores top level qualifiers (e.g., const, volatile). + // For example, int is equivalent to const int. + // + // The type int[] and int[5] are compatible. On the other hand, int and char * + // are not compatible, even if the size of their types, on the particular + // architecture are the same. Also, the amount of pointer indirection is taken + // into account when determining similarity. Consequently, short * is not + // similar to short **. Furthermore, two types that are typedefed are + // considered compatible if their underlying types are compatible. + // + // An enum type is not considered to be compatible with another enum type even + // if both are compatible with the same integer type; this is what the C + // standard specifies. For example, enum {foo, bar} is not similar to enum + // {hot, dog}. + // + // You typically use this function in code whose execution varies depending on + // the arguments’ types. For example: + // + // #define foo(x) \ + // ({ \ + // typeof (x) tmp = (x); \ + // if (__builtin_types_compatible_p (typeof (x), long double)) \ + // tmp = foo_long_double (tmp); \ + // else if (__builtin_types_compatible_p (typeof (x), double)) \ + // tmp = foo_double (tmp); \ + // else if (__builtin_types_compatible_p (typeof (x), float)) \ + // tmp = foo_float (tmp); \ + // else \ + // abort (); \ + // tmp; \ + // }) + // + // Note: This construct is only available for C. + p.w(" %d ", n.Operand.Value()) + case cc.PostfixExpressionChooseExpr: // "__builtin_choose_expr" '(' AssignmentExpression ',' AssignmentExpression ',' AssignmentExpression ')' + // You can use the built-in function __builtin_choose_expr to evaluate code + // depending on the value of a constant expression. This built-in function + // returns exp1 if const_exp, which is an integer constant expression, is + // nonzero. Otherwise it returns exp2. + // + // This built-in function is analogous to the ‘? :’ operator in C, except that + // the expression returned has its type unaltered by promotion rules. Also, the + // built-in function does not evaluate the expression that is not chosen. For + // example, if const_exp evaluates to true, exp2 is not evaluated even if it + // has side effects. + // + // This built-in function can return an lvalue if the chosen argument is an + // lvalue. + // + // If exp1 is returned, the return type is the same as exp1’s type. Similarly, + // if exp2 is returned, its return type is the same as exp2. + // + // Example: + // + // #define foo(x) \ + // __builtin_choose_expr ( \ + // __builtin_types_compatible_p (typeof (x), double), \ + // foo_double (x), \ + // __builtin_choose_expr ( \ + // __builtin_types_compatible_p (typeof (x), float), \ + // foo_float (x), \ + // /* The void expression results in a compile-time error \ + // when assigning the result to something. */ \ + // (void)0)) + // + // Note: This construct is only available for C. Furthermore, the unused + // expression (exp1 or exp2 depending on the value of const_exp) may still + // generate syntax errors. This may change in future revisions. + switch op := n.AssignmentExpression.Operand; { + case op.IsNonZero(): + p.assignmentExpression(f, n.AssignmentExpression2, t, mode, flags) + case op.IsZero(): + p.assignmentExpression(f, n.AssignmentExpression3, t, mode, flags) + default: + panic(todo("")) + } + default: + panic(todo("%v: internal error: %v", n.Position(), n.Case)) + } +} + +func (p *project) postfixExpressionValuePSelect(f *function, n *cc.PostfixExpression, t cc.Type, mode exprMode, flags flags) { + // PostfixExpression "->" IDENTIFIER + switch k := p.opKind(f, n.PostfixExpression, n.PostfixExpression.Operand.Type().Elem()); k { + case opStruct: + p.postfixExpressionValuePSelectStruct(f, n, t, mode, flags) + case opUnion: + p.postfixExpressionValuePSelectUnion(f, n, t, mode, flags) + default: + panic(todo("", n.Position(), k)) + } +} + +func (p *project) postfixExpressionValuePSelectUnion(f *function, n *cc.PostfixExpression, t cc.Type, mode exprMode, flags flags) { + // PostfixExpression "->" IDENTIFIER + fld := n.Field + if fld.Offset() != 0 { + p.err(&n.Token2, "internal error, union field with non-zero offset: %s %v", n.Token2.Value, fld.Offset()) + } + pe := n.PostfixExpression.Operand.Type() + switch { + case n.Operand.Type().IsBitFieldType(): + panic(todo("", p.pos(n))) + case n.Operand.Type().Kind() == cc.Array: + panic(todo("", p.pos(n))) + default: + if fld.IsBitField() { + p.err(&n.Token2, "internal error, wrong function for accessing a bit field: %s", n.Token2.Value) + } + defer p.w("%s", p.convert(n, n.Operand, t, flags)) + p.w("*(*%s)(unsafe.Pointer(", p.typ(n, n.Operand.Type())) + p.postfixExpression(f, n.PostfixExpression, pe, exprValue, flags) + p.w("/* .%s */", p.fieldName(n, n.Token2.Value)) + p.w("))") + } +} + +func (p *project) postfixExpressionValuePSelectStruct(f *function, n *cc.PostfixExpression, t cc.Type, mode exprMode, flags flags) { + // PostfixExpression "->" IDENTIFIER + fld := n.Field + pe := n.PostfixExpression.Operand.Type() + k := p.opKind(f, n.PostfixExpression, n.PostfixExpression.Operand.Type()) + switch { + case n.Operand.Type().IsBitFieldType(): + p.w("(") + defer p.w(")") + fld := n.Field + defer p.w("%s", p.convertType(n, fld.Promote(), t, flags)) + switch pe.Kind() { + case cc.Array: + x := p.convertType(n, nil, fld.Promote(), flags) + p.w("*(*uint%d)(unsafe.Pointer(", fld.BitFieldBlockWidth()) + p.postfixExpression(f, n.PostfixExpression, pe, exprDecay, flags) + p.bitFldOff(pe.Elem(), n.Token2) + p.w("))") + p.w("&%#x>>%d%s", fld.Mask(), fld.BitFieldOffset(), x) + if fld.Type().IsSignedType() { + panic(todo("")) + p.w("<<%d>>%[1]d", int(fld.Promote().Size()*8)-fld.BitFieldWidth()) + } + default: + x := p.convertType(n, nil, fld.Promote(), flags) + p.w("*(*uint%d)(unsafe.Pointer(", fld.BitFieldBlockWidth()) + p.postfixExpression(f, n.PostfixExpression, pe, exprValue, flags) + p.bitFldOff(pe.Elem(), n.Token2) + p.w("))&%#x>>%d%s", fld.Mask(), fld.BitFieldOffset(), x) + if fld.Type().IsSignedType() { + p.w("<<%d>>%[1]d", int(fld.Promote().Size()*8)-fld.BitFieldWidth()) + } + } + case n.Operand.Type().Kind() == cc.Array: + defer p.w("%s", p.convertType(n, n.Operand.Type().Decay(), t.Decay(), flags)) + p.postfixExpression(f, n.PostfixExpression, pe, exprValue, flags) + p.fldOff(n.PostfixExpression.Operand.Type().Elem(), n.Token2) + case k == opArray: + defer p.w("%s", p.convert(n, n.Operand, t, flags)) + p.postfixExpression(f, n.PostfixExpression, pe, exprValue, flags) + p.w("[0].%s", p.fieldName(n, n.Token2.Value)) + default: + if fld.IsBitField() { + p.err(&n.Token2, "internal error, wrong function for accessing a bit field: %s", n.Token2.Value) + } + defer p.w("%s", p.convert(n, n.Operand, t, flags)) + et := pe.Elem() + fld, path, ok := et.FieldByName2(n.Token2.Value) + switch { + case !ok: + panic(todo("")) + case fld.InUnion(): + p.w("*(*%s)(unsafe.Pointer(", p.typ(n, n.Operand.Type())) + p.postfixExpression(f, n.PostfixExpression, pe, exprValue, flags) + p.w("%s))", nonZeroUintptr(pathOff(et, path))) + case len(path) != 1: + panic(todo("")) + default: + p.w("(*%s)(unsafe.Pointer(", p.typ(n, pe.Elem())) + p.postfixExpression(f, n.PostfixExpression, pe, exprValue, flags) + p.w(")).%s", p.fieldName(n, n.Token2.Value)) + } + } +} + +func pathOff(t cc.Type, path []int) (r uintptr) { + for len(path) != 0 { + f := t.FieldByIndex(path[:1]) + r += f.Offset() + path = path[1:] + t = f.Type() + } + return r +} + +func (p *project) postfixExpressionValueIndex(f *function, n *cc.PostfixExpression, t cc.Type, mode exprMode, flags flags) { + // PostfixExpression '[' Expression ']' + switch k := p.opKind(f, n.PostfixExpression, n.PostfixExpression.Operand.Type()); k { + case opArray: + p.postfixExpressionValueIndexArray(f, n, t, mode, flags) + case opNormal: + p.postfixExpressionValueIndexNormal(f, n, t, mode, flags) + case opArrayParameter: + p.postfixExpressionValueIndexArrayParameter(f, n, t, mode, flags) + default: + panic(todo("", n.Position(), k)) + } +} +func (p *project) postfixExpressionValueIndexArrayParameter(f *function, n *cc.PostfixExpression, t cc.Type, mode exprMode, flags flags) { + // PostfixExpression '[' Expression ']' + pe := n.PostfixExpression.Operand.Type() + switch { + case n.Operand.Type().Kind() == cc.Array: + defer p.w("%s", p.convert(n, n.Operand, t, flags)) + p.w("(") + defer p.w(")") + p.postfixExpression(f, n.PostfixExpression, pe, exprValue, flags) + if !n.Expression.Operand.IsZero() { + p.nzUintptr(n, func() { p.expression(f, n.Expression, n.Expression.Operand.Type(), exprValue, flags) }, n.Expression.Operand) + if sz := pe.Elem().Size(); sz != 1 { + p.w("*%d", sz) + } + } + default: + defer p.w("%s", p.convert(n, n.Operand, t, flags)) + p.w("*(*%s)(unsafe.Pointer(", p.typ(n, pe.Elem())) + p.postfixExpression(f, n.PostfixExpression, pe, exprValue, flags) + if !n.Expression.Operand.IsZero() { + p.nzUintptr(n, func() { p.expression(f, n.Expression, n.Expression.Operand.Type(), exprValue, flags) }, n.Expression.Operand) + if sz := pe.Elem().Size(); sz != 1 { + p.w("*%d", sz) + } + } + p.w("))") + } +} + +func (p *project) postfixExpressionValueIndexNormal(f *function, n *cc.PostfixExpression, t cc.Type, mode exprMode, flags flags) { + // PostfixExpression '[' Expression ']' + switch { + case n.Operand.Type().Kind() == cc.Array: + p.w("(") + defer p.w(")") + pe := n.PostfixExpression.Operand.Type() + defer p.w("%s", p.convert(n, n.Operand, t, flags)) + p.postfixExpression(f, n.PostfixExpression, pe, exprValue, flags) + if !n.Expression.Operand.IsZero() { + p.nzUintptr(n, func() { p.expression(f, n.Expression, n.Expression.Operand.Type(), exprValue, flags) }, n.Expression.Operand) + if sz := pe.Elem().Size(); sz != 1 { + p.w("*%d", sz) + } + } + default: + switch pe := n.PostfixExpression.Operand.Type(); pe.Kind() { + case cc.Ptr: + defer p.w("%s", p.convert(n, n.Operand, t, flags)) + p.w("*(*%s)(unsafe.Pointer(", p.typ(n, pe.Elem())) + p.postfixExpression(f, n.PostfixExpression, pe, exprValue, flags) + if !n.Expression.Operand.IsZero() { + p.nzUintptr(n, func() { p.expression(f, n.Expression, n.Expression.Operand.Type(), exprValue, flags) }, n.Expression.Operand) + if sz := pe.Elem().Size(); sz != 1 { + p.w("*%d", sz) + } + } + p.w("))") + case cc.Array: + defer p.w("%s", p.convert(n, n.Operand, t, flags)) + p.w("*(*%s)(unsafe.Pointer(", p.typ(n, pe.Elem())) + p.postfixExpression(f, n.PostfixExpression, pe, exprDecay, flags) + if !n.Expression.Operand.IsZero() { + p.nzUintptr(n, func() { p.expression(f, n.Expression, n.Expression.Operand.Type(), exprValue, flags) }, n.Expression.Operand) + if sz := pe.Elem().Size(); sz != 1 { + p.w("*%d", sz) + } + } + p.w("))") + default: + panic(todo("", p.pos(n), pe, pe.Kind())) + } + } +} + +func (p *project) postfixExpressionValueIndexArray(f *function, n *cc.PostfixExpression, t cc.Type, mode exprMode, flags flags) { + // PostfixExpression '[' Expression ']' + pe := n.PostfixExpression.Operand.Type() + switch n.Operand.Type().Kind() { + case cc.Array: + defer p.w("%s", p.convert(n, n.Operand, t, flags)) + p.w("(") + defer p.w(")") + p.postfixExpression(f, n.PostfixExpression, pe, exprDecay, flags) + if !n.Expression.Operand.IsZero() { + p.nzUintptr(n, func() { p.expression(f, n.Expression, n.Expression.Operand.Type(), exprValue, flags) }, n.Expression.Operand) + if sz := pe.Elem().Size(); sz != 1 { + p.w("*%d", sz) + } + } + default: + defer p.w("%s", p.convert(n, n.Operand, t, flags)) + p.postfixExpression(f, n.PostfixExpression, pe, mode, flags) + p.w("[") + p.expression(f, n.Expression, n.Expression.Operand.Type(), exprValue, flags) + p.w("]") + } +} + +func (p *project) postfixExpressionValueSelect(f *function, n *cc.PostfixExpression, t cc.Type, mode exprMode, flags flags) { + // PostfixExpression '.' IDENTIFIER + switch k := p.opKind(f, n.PostfixExpression, n.PostfixExpression.Operand.Type()); k { + case opStruct: + p.postfixExpressionValueSelectStruct(f, n, t, mode, flags) + case opUnion: + p.postfixExpressionValueSelectUnion(f, n, t, mode, flags) + default: + panic(todo("", n.Position(), k)) + } +} + +func (p *project) postfixExpressionValueSelectUnion(f *function, n *cc.PostfixExpression, t cc.Type, mode exprMode, flags flags) { + // PostfixExpression '.' IDENTIFIER + pe := n.PostfixExpression.Operand.Type() + fld := n.Field + switch { + case n.Operand.Type().IsBitFieldType(): + p.w("(") + defer p.w("%s)", p.convertType(n, fld.Promote(), t, flags)) + x := p.convertType(n, nil, fld.Promote(), flags) + p.w("*(*uint%d)(unsafe.Pointer(", fld.BitFieldBlockWidth()) + p.postfixExpression(f, n.PostfixExpression, pe, exprAddrOf, flags) + p.bitFldOff(pe, n.Token2) + p.w("))&%#x>>%d%s", fld.Mask(), fld.BitFieldOffset(), x) + if fld.Type().IsSignedType() { + p.w("<<%d>>%[1]d", int(fld.Promote().Size()*8)-fld.BitFieldWidth()) + } + case n.Operand.Type().Kind() == cc.Array: + p.postfixExpression(f, n.PostfixExpression, pe, exprAddrOf, flags) + default: + if fld.IsBitField() { + p.err(&n.Token2, "internal error, wrong function for accessing a bit field: %s", n.Token2.Value) + } + defer p.w("%s", p.convert(n, n.Operand, t, flags)) + p.w("*(*%s)(unsafe.Pointer(", p.typ(n, n.Operand.Type())) + p.postfixExpression(f, n.PostfixExpression, pe, exprAddrOf, flags) + p.w("))") + } +} + +func (p *project) postfixExpressionValueSelectStruct(f *function, n *cc.PostfixExpression, t cc.Type, mode exprMode, flags flags) { + // PostfixExpression '.' IDENTIFIER + pe := n.PostfixExpression.Operand.Type() + fld := n.Field + switch { + case n.Operand.Type().IsBitFieldType(): + p.w("(") + defer p.w("%s)", p.convertType(n, fld.Promote(), t, flags)) + x := p.convertType(n, nil, fld.Promote(), flags) + p.w("*(*uint%d)(unsafe.Pointer(", fld.BitFieldBlockWidth()) + p.postfixExpression(f, n.PostfixExpression, pe, exprAddrOf, flags) + p.bitFldOff(pe, n.Token2) + p.w("))&%#x>>%d%s", fld.Mask(), fld.BitFieldOffset(), x) + if fld.Type().IsSignedType() { + p.w("<<%d>>%[1]d", int(fld.Promote().Size()*8)-fld.BitFieldWidth()) + } + case n.Operand.Type().Kind() == cc.Array: + p.postfixExpression(f, n, t, exprDecay, flags) + case fld.InUnion(): + defer p.w("%s", p.convert(n, n.Operand, t, flags)) + p.w("*(*%s)(unsafe.Pointer(", p.typ(n, fld.Type())) + p.postfixExpression(f, n.PostfixExpression, pe, exprAddrOf, flags) + p.fldOff(pe, n.Token2) + p.w("))") + default: + if fld.IsBitField() { + p.err(&n.Token2, "internal error, wrong function for accessing a bit field: %s", n.Token2.Value) + } + defer p.w("%s", p.convert(n, n.Operand, t, flags)) + p.postfixExpression(f, n.PostfixExpression, pe, exprSelect, flags) + p.w(".%s", p.fieldName(n, n.Token2.Value)) + } +} + +func (p *project) postfixExpressionLValue(f *function, n *cc.PostfixExpression, t cc.Type, mode exprMode, flags flags) { + switch n.Case { + case cc.PostfixExpressionPrimary: // PrimaryExpression + p.primaryExpression(f, n.PrimaryExpression, t, mode, flags) + case cc.PostfixExpressionIndex: // PostfixExpression '[' Expression ']' + p.postfixExpressionLValueIndex(f, n, t, mode, flags) + case cc.PostfixExpressionCall: // PostfixExpression '(' ArgumentExpressionList ')' + panic(todo("", p.pos(n))) + case cc.PostfixExpressionSelect: // PostfixExpression '.' IDENTIFIER + p.postfixExpressionLValueSelect(f, n, t, mode, flags) + case cc.PostfixExpressionPSelect: // PostfixExpression "->" IDENTIFIER + p.postfixExpressionLValuePSelect(f, n, t, mode, flags) + case cc.PostfixExpressionInc: // PostfixExpression "++" + p.postfixExpressionIncDec(f, n, "++", "+=", t, mode, flags) + case cc.PostfixExpressionDec: // PostfixExpression "--" + p.postfixExpressionIncDec(f, n, "--", "-=", t, mode, flags) + case cc.PostfixExpressionComplit: // '(' TypeName ')' '{' InitializerList ',' '}' + panic(todo("", p.pos(n))) + case cc.PostfixExpressionTypeCmp: // "__builtin_types_compatible_p" '(' TypeName ',' TypeName ')' + panic(todo("", p.pos(n))) + case cc.PostfixExpressionChooseExpr: + panic(todo("", p.pos(n))) + default: + panic(todo("%v: internal error: %v", n.Position(), n.Case)) + } +} + +func (p *project) postfixExpressionLValuePSelect(f *function, n *cc.PostfixExpression, t cc.Type, mode exprMode, flags flags) { + // PostfixExpression "->" IDENTIFIER + pe := n.PostfixExpression + switch k := p.opKind(f, n.PostfixExpression, n.PostfixExpression.Operand.Type().Elem()); k { + case opStruct: + if !p.inUnion(n, pe.Operand.Type().Elem(), n.Token2.Value) { + p.postfixExpressionLValuePSelectStruct(f, n, t, mode, flags) + break + } + + p.w("*(*%s)(unsafe.Pointer(", p.typ(n, n.Operand.Type())) + p.postfixExpression(f, pe, pe.Operand.Type(), exprValue, flags) + p.fldOff(pe.Operand.Type().Elem(), n.Token2) + p.w("))") + case opUnion: + p.postfixExpressionLValuePSelectUnion(f, n, t, mode, flags) + default: + panic(todo("", n.Position(), k)) + } +} + +func (p *project) postfixExpressionLValuePSelectUnion(f *function, n *cc.PostfixExpression, t cc.Type, mode exprMode, flags flags) { + // PostfixExpression "->" IDENTIFIER + fld := n.Field + if fld.Offset() != 0 { + p.err(&n.Token2, "internal error, union field with non-zero offset: %s %v", n.Token2.Value, fld.Offset()) + } + switch { + case n.Operand.Type().IsBitFieldType(): + panic(todo("", p.pos(n))) + default: + if fld.IsBitField() { + p.err(&n.Token2, "internal error, wrong function for accessing a bit field: %s", n.Token2.Value) + } + pe := n.PostfixExpression.Operand.Type() + defer p.w("%s", p.convert(n, n.Operand, t, flags)) + p.w("(*(*%s)(unsafe.Pointer(", p.typ(n, n.Operand.Type())) + p.postfixExpression(f, n.PostfixExpression, pe, exprValue, flags) + p.w("/* .%s */", p.fieldName(n, n.Token2.Value)) + p.w(")))") + } +} + +func (p *project) postfixExpressionLValuePSelectStruct(f *function, n *cc.PostfixExpression, t cc.Type, mode exprMode, flags flags) { + // PostfixExpression "->" IDENTIFIER + fld := n.Field + pe := n.PostfixExpression.Operand.Type() + k := p.opKind(f, n.PostfixExpression, n.PostfixExpression.Operand.Type()) + switch { + case n.Operand.Type().IsBitFieldType(): + panic(todo("", p.pos(n))) + case k == opArray: + defer p.w("%s", p.convert(n, n.Operand, t, flags)) + p.postfixExpression(f, n.PostfixExpression, pe, exprValue, flags) + p.w("[0].%s", p.fieldName(n, n.Token2.Value)) + default: + if fld.IsBitField() { + p.err(&n.Token2, "internal error, wrong function for accessing a bit field: %s", n.Token2.Value) + } + defer p.w("%s", p.convert(n, n.Operand, t, flags)) + p.w("(*%s)(unsafe.Pointer(", p.typ(n, pe.Elem())) + p.postfixExpression(f, n.PostfixExpression, pe, exprValue, flags) + p.w(")).%s", p.fieldName(n, n.Token2.Value)) + } +} + +func (p *project) postfixExpressionLValueIndex(f *function, n *cc.PostfixExpression, t cc.Type, mode exprMode, flags flags) { + // PostfixExpression '[' Expression ']' + switch k := p.opKind(f, n.PostfixExpression, n.PostfixExpression.Operand.Type()); k { + case opArray: + p.postfixExpressionLValueIndexArray(f, n, t, mode, flags) + case opNormal: + p.postfixExpressionLValueIndexNormal(f, n, t, mode, flags) + case opArrayParameter: + p.postfixExpressionLValueIndexArrayParameter(f, n, t, mode, flags) + default: + panic(todo("", n.Position(), k)) + } +} + +func (p *project) postfixExpressionLValueIndexArrayParameter(f *function, n *cc.PostfixExpression, t cc.Type, mode exprMode, flags flags) { + // PostfixExpression '[' Expression ']' + defer p.w("%s", p.convert(n, n.Operand, t, flags)) + pe := n.PostfixExpression.Operand.Type() + p.w("*(*%s)(unsafe.Pointer(", p.typ(n, pe.Elem())) + p.postfixExpression(f, n.PostfixExpression, pe, exprValue, flags) + if !n.Expression.Operand.IsZero() { + p.nzUintptr(n, func() { p.expression(f, n.Expression, n.Expression.Operand.Type(), exprValue, flags) }, n.Expression.Operand) + if sz := pe.Elem().Size(); sz != 1 { + p.w("*%d", sz) + } + } + p.w("))") +} + +func (p *project) postfixExpressionLValueIndexNormal(f *function, n *cc.PostfixExpression, t cc.Type, mode exprMode, flags flags) { + // PostfixExpression '[' Expression ']' + switch { + case n.Operand.Type().Kind() == cc.Array: + panic(todo("", p.pos(n))) + default: + switch pe := n.PostfixExpression.Operand.Type(); pe.Kind() { + case cc.Ptr: + defer p.w("%s", p.convert(n, n.Operand, t, flags)) + p.w("*(*%s)(unsafe.Pointer(", p.typ(n, pe.Elem())) + p.postfixExpression(f, n.PostfixExpression, pe, exprValue, flags) + if !n.Expression.Operand.IsZero() { + p.nzUintptr(n, func() { p.expression(f, n.Expression, n.Expression.Operand.Type(), exprValue, flags) }, n.Expression.Operand) + if sz := pe.Elem().Size(); sz != 1 { + p.w("*%d", sz) + } + } + p.w("))") + case cc.Array: + defer p.w("%s", p.convert(n, n.Operand, t, flags)) + p.w("*(*%s)(unsafe.Pointer(", p.typ(n, pe.Elem())) + p.postfixExpression(f, n.PostfixExpression, pe, exprDecay, flags) + if !n.Expression.Operand.IsZero() { + p.nzUintptr(n, func() { p.expression(f, n.Expression, n.Expression.Operand.Type(), exprValue, flags) }, n.Expression.Operand) + if sz := pe.Elem().Size(); sz != 1 { + p.w("*%d", sz) + } + } + p.w("))") + default: + panic(todo("", p.pos(n), pe)) + } + } +} + +func (p *project) postfixExpressionLValueIndexArray(f *function, n *cc.PostfixExpression, t cc.Type, mode exprMode, flags flags) { + // PostfixExpression '[' Expression ']' + pe := n.PostfixExpression.Operand.Type() + p.postfixExpression(f, n.PostfixExpression, pe, mode, flags) + p.w("[") + p.expression(f, n.Expression, n.Expression.Operand.Type(), exprValue, flags) + p.w("]") +} + +func (p *project) postfixExpressionLValueSelect(f *function, n *cc.PostfixExpression, t cc.Type, mode exprMode, flags flags) { + // PostfixExpression '.' IDENTIFIER + pe := n.PostfixExpression + switch k := p.opKind(f, pe, pe.Operand.Type()); k { + case opStruct: + if !p.inUnion(n, pe.Operand.Type(), n.Token2.Value) { + p.postfixExpressionLValueSelectStruct(f, n, t, mode, flags) + break + } + + p.w("*(*%s)(unsafe.Pointer(", p.typ(n, n.Operand.Type())) + p.postfixExpression(f, pe, pe.Operand.Type(), exprAddrOf, flags) + p.fldOff(pe.Operand.Type(), n.Token2) + p.w("))") + case opUnion: + p.postfixExpressionLValueSelectUnion(f, n, t, mode, flags) + default: + panic(todo("", n.Position(), k)) + } +} + +func (p *project) inUnion(n cc.Node, t cc.Type, fname cc.StringID) bool { + f, ok := t.FieldByName(fname) + if !ok { + p.err(n, "unknown field: %s", fname) + return false + } + + return f.InUnion() +} + +func (p *project) postfixExpressionLValueSelectUnion(f *function, n *cc.PostfixExpression, t cc.Type, mode exprMode, flags flags) { + fld := n.Field + pe := n.PostfixExpression.Operand.Type() + switch { + case pe.Kind() == cc.Array: + panic(todo("", p.pos(n))) + case n.Operand.Type().IsBitFieldType(): + panic(todo("", p.pos(n))) + default: + if fld.IsBitField() { + p.err(&n.Token2, "internal error, wrong function for accessing a bit field: %s", n.Token2.Value) + } + p.w("*(*%s)(unsafe.Pointer(", p.typ(n, n.Operand.Type())) + p.postfixExpression(f, n.PostfixExpression, pe, exprAddrOf, flags) + nonZeroUintptr(fld.Offset()) + p.w("))") + } +} + +func (p *project) postfixExpressionLValueSelectStruct(f *function, n *cc.PostfixExpression, t cc.Type, mode exprMode, flags flags) { + // PostfixExpression '.' IDENTIFIER + fld := n.Field + switch { + case n.Operand.Type().IsBitFieldType(): + panic(todo("", p.pos(n))) + default: + if fld.IsBitField() { + p.err(&n.Token2, "internal error, wrong function for accessing a bit field: %s", n.Token2.Value) + } + pe := n.PostfixExpression.Operand.Type() + p.postfixExpression(f, n.PostfixExpression, pe, exprSelect, flags) + p.w(".%s", p.fieldName(n, n.Token2.Value)) + } +} + +func (p *project) postfixExpressionIncDec(f *function, n *cc.PostfixExpression, oper, oper2 string, t cc.Type, mode exprMode, flags flags) { + switch mode { + case exprVoid: + p.postfixExpressionIncDecVoid(f, n, oper, oper2, t, mode, flags) + case exprLValue: + p.postfixExpressionIncDecLValue(f, n, oper, oper2, t, mode, flags) + case exprValue: + p.postfixExpressionIncDecValue(f, n, oper, oper2, t, mode, flags) + default: + panic(todo("", mode)) + } +} + +func (p *project) postfixExpressionIncDecValue(f *function, n *cc.PostfixExpression, oper, oper2 string, t cc.Type, mode exprMode, flags flags) { + // PostfixExpression "++" + pe := n.PostfixExpression.Operand.Type() + switch k := p.opKind(f, n.PostfixExpression, pe); k { + case opNormal: + p.postfixExpressionIncDecValueNormal(f, n, oper, oper2, t, mode, flags) + case opBitfield: + p.postfixExpressionIncDecValueBitfield(f, n, oper, oper2, t, mode, flags) + case opArrayParameter: + p.postfixExpressionIncDecValueArrayParameter(f, n, oper, oper2, t, mode, flags) + default: + panic(todo("", n.Position(), pe, pe.Kind(), k)) + } +} + +func (p *project) postfixExpressionIncDecValueArrayParameter(f *function, n *cc.PostfixExpression, oper, oper2 string, t cc.Type, mode exprMode, flags flags) { + // PostfixExpression "++" + pe := n.PostfixExpression.Operand.Type() + defer p.w("%s", p.convert(n, n.PostfixExpression.Operand, t, flags)) + x := "Dec" + if oper == "++" { + x = "Inc" + } + p.w("%sPost%s%s(&", p.task.crt, x, p.helperType(n, pe.Decay())) + p.postfixExpression(f, n.PostfixExpression, pe, exprLValue, flags) + p.w(", %d)", p.incDelta(n.PostfixExpression, pe)) +} + +func (p *project) postfixExpressionIncDecValueBitfield(f *function, n *cc.PostfixExpression, oper, oper2 string, t cc.Type, mode exprMode, flags flags) { + // PostfixExpression "++" + pe := n.PostfixExpression.Operand.Type() + defer p.w("%s", p.convert(n, n.PostfixExpression.Operand, t, flags)) + x := "Dec" + if oper == "++" { + x = "Inc" + } + bf := pe.BitField() + p.w("%sPost%sBitFieldPtr%d%s(", p.task.crt, x, bf.BitFieldBlockWidth(), p.bfHelperType(pe)) + p.postfixExpression(f, n.PostfixExpression, pe, exprAddrOf, flags) + p.w(", %d, %d, %d, %#x)", p.incDelta(n.PostfixExpression, pe), bf.BitFieldBlockWidth(), bf.BitFieldOffset(), bf.Mask()) +} + +func (p *project) postfixExpressionIncDecValueNormal(f *function, n *cc.PostfixExpression, oper, oper2 string, t cc.Type, mode exprMode, flags flags) { + // PostfixExpression "++" + pe := n.PostfixExpression.Operand.Type() + defer p.w("%s", p.convert(n, n.PostfixExpression.Operand, t, flags)) + x := "Dec" + if oper == "++" { + x = "Inc" + } + if d := n.PostfixExpression.Declarator(); d != nil && p.isVolatileOrAtomic(d) { + p.w("%sPost%sAtomic%s(&", p.task.crt, x, p.helperType(n, pe)) + var local *local + var tld *tld + if f != nil { + local = f.locals[d] + } + if local == nil { + tld = p.tlds[d] + } + switch { + case local != nil: + p.w("%s", local.name) + case tld != nil: + p.w("%s", tld.name) + default: + panic(todo("")) + } + p.w(", %d)", p.incDelta(n.PostfixExpression, pe)) + return + } + + p.w("%sPost%s%s(&", p.task.crt, x, p.helperType(n, pe)) + p.postfixExpression(f, n.PostfixExpression, pe, exprLValue, flags) + p.w(", %d)", p.incDelta(n.PostfixExpression, pe)) +} + +func (p *project) postfixExpressionIncDecLValue(f *function, n *cc.PostfixExpression, oper, oper2 string, t cc.Type, mode exprMode, flags flags) { + switch k := p.opKind(f, n, n.Operand.Type()); k { + case opNormal: + p.postfixExpressionIncDecLValueNormal(f, n, oper, oper2, t, mode, flags) + default: + panic(todo("", n.Position(), k)) + } +} + +func (p *project) postfixExpressionIncDecLValueNormal(f *function, n *cc.PostfixExpression, oper, oper2 string, t cc.Type, mode exprMode, flags flags) { + pe := n.PostfixExpression.Operand.Type() + defer p.w("%s", p.convert(n, n.PostfixExpression.Operand, t, flags)) + x := "Dec" + if oper == "++" { + x = "Inc" + } + p.w("%sPost%s%s(&", p.task.crt, x, p.helperType(n, pe)) + p.postfixExpression(f, n.PostfixExpression, pe, exprLValue, flags) + p.w(", %d)", p.incDelta(n.PostfixExpression, pe)) +} + +func (p *project) postfixExpressionIncDecVoid(f *function, n *cc.PostfixExpression, oper, oper2 string, t cc.Type, mode exprMode, flags flags) { + switch k := p.opKind(f, n, n.Operand.Type()); k { + case opNormal: + p.postfixExpressionIncDecVoidNormal(f, n, oper, oper2, t, mode, flags) + case opBitfield: + p.postfixExpressionIncDec(f, n, oper, oper2, t, exprValue, flags) + default: + panic(todo("", n.Position(), k)) + } +} + +func (p *project) postfixExpressionIncDecVoidNormal(f *function, n *cc.PostfixExpression, oper, oper2 string, t cc.Type, mode exprMode, flags flags) { + if d := n.PostfixExpression.Declarator(); d != nil && p.isVolatileOrAtomic(d) { + switch d.Type().Size() { + case 4, 8: + if !d.Type().IsIntegerType() { + p.err(n, "unsupported volatile declarator type: %v", d.Type()) + return + } + + if f != nil { + if local := f.locals[d]; local != nil { + if local.isPinned { + panic(todo("")) + } + + p.w("atomic.Add%s(&%s, ", p.helperType(n, d.Type()), local.name) + switch oper { + case "++": + // ok + case "--": + p.w("-") + default: + p.err(n, "unsupported volatile declarator operation: %v", oper) + } + p.w("%d)", p.incDelta(n, d.Type())) + return + } + } + + if tld := p.tlds[d]; tld != nil { + p.w("atomic.Add%s(&%s, ", p.helperType(n, d.Type()), tld.name) + switch oper { + case "++": + // ok + case "--": + p.w("-") + default: + p.err(n, "unsupported volatile declarator operation: %v", oper) + } + p.w("%d)", p.incDelta(n, d.Type())) + return + } + + panic(todo("", n.Position(), d.Position())) + default: + p.err(n, "unsupported volatile declarator size: %v", d.Type().Size()) + return + } + } + + pe := n.PostfixExpression.Operand.Type().Decay() + p.postfixExpression(f, n.PostfixExpression, pe, exprLValue, flags) + if pe.IsIntegerType() || pe.Kind() == cc.Ptr && p.incDelta(n, pe) == 1 { + p.w("%s", oper) + return + } + + switch pe.Kind() { + case cc.Ptr, cc.Float, cc.Double: + p.w("%s %d", oper2, p.incDelta(n, pe)) + return + } + + panic(todo("", n.Position(), pe, pe.Kind())) +} + +func (p *project) incDelta(n cc.Node, t cc.Type) uintptr { + if t.IsArithmeticType() { + return 1 + } + + if t.Kind() == cc.Ptr || t.Kind() == cc.Array { + return t.Elem().Size() + } + + panic(todo("", n.Position(), t.Kind())) +} + +func (p *project) bitFldOff(t cc.Type, tok cc.Token) { + var off uintptr + fld, ok := t.FieldByName(tok.Value) + switch { + case ok && !fld.IsBitField(): + panic(todo("%v: internal error: bitFdlOff must not be used with non bit fields", origin(2))) + case !ok: + p.err(&tok, "uknown field: %s", tok.Value) + default: + off = fld.BitFieldBlockFirst().Offset() + } + if off != 0 { + p.w("+%d", off) + } + p.w("/* &.%s */", tok.Value) +} + +func (p *project) fldOff(t cc.Type, tok cc.Token) { + if t.Kind() == cc.Ptr { + t = t.Elem() + } + var off uintptr + fld, ok := t.FieldByName(tok.Value) + switch { + case ok && fld.IsBitField(): + panic(todo("%v: internal error: fdlOff must not be used with bit fields", origin(2))) + case !ok: + p.err(&tok, "uknown field: %s", tok.Value) + default: + off = fld.Offset() + } + if off != 0 { + p.w("+%d", off) + } + p.w("/* &.%s */", tok.Value) +} + +func (p *project) postfixExpressionCall(f *function, n *cc.PostfixExpression, t cc.Type, mode exprMode, flags flags) { + // PostfixExpression '(' ArgumentExpressionList ')' + switch mode { + case exprVoid: + p.postfixExpressionCallVoid(f, n, t, mode, flags) + case exprValue: + p.postfixExpressionCallValue(f, n, t, mode, flags) + case exprBool: + p.postfixExpressionCallBool(f, n, t, mode, flags) + default: + panic(todo("", mode)) + } +} + +func (p *project) postfixExpressionCallBool(f *function, n *cc.PostfixExpression, t cc.Type, mode exprMode, flags flags) { + // PostfixExpression '(' ArgumentExpressionList ')' + p.w("(") + defer p.w(")") + defer p.w(" != 0") + if d := n.PostfixExpression.Declarator(); d != nil { + switch d.Name() { + case idVaArg: + if !f.vaType.IsScalarType() { + panic(todo("", f.vaType)) + } + + lhs := n.ArgumentExpressionList.AssignmentExpression + p.w("%sVa%s(&", p.task.crt, p.helperType(n, f.vaType)) + p.assignmentExpression(f, lhs, lhs.Operand.Type(), exprLValue, flags) + p.w(")") + return + case idAtomicLoadN: + p.atomicLoadN(f, n, t, mode, flags) + return + case idBuiltinConstantPImpl: + p.w("%v", n.Operand.Value()) + return + } + } + + var va uintptr + if f != nil { + va = f.vaLists[n] + } + p.postfixExpression(f, n.PostfixExpression, n.PostfixExpression.Operand.Type(), exprFunc, flags) + p.argumentExpressionList(f, n.PostfixExpression, n.ArgumentExpressionList, va) +} + +func (p *project) postfixExpressionCallValue(f *function, n *cc.PostfixExpression, t cc.Type, mode exprMode, flags flags) { + // PostfixExpression '(' ArgumentExpressionList ')' + defer p.w("%s", p.convert(n, n.Operand, t, flags)) + if d := n.PostfixExpression.Declarator(); d != nil { + switch d.Name() { + case idVaEnd: + p.w("_ = ") + arg := n.ArgumentExpressionList.AssignmentExpression + p.assignmentExpression(f, arg, arg.Operand.Type(), exprValue, flags) + return + case idVaStart: + lhs := n.ArgumentExpressionList.AssignmentExpression + p.assignmentExpression(f, lhs, lhs.Operand.Type(), exprLValue, flags) + p.w(" = %s", f.vaName) + return + case idVaArg: + if !f.vaType.IsScalarType() { + panic(todo("", f.vaType)) + } + + lhs := n.ArgumentExpressionList.AssignmentExpression + p.w("%sVa%s(&", p.task.crt, p.helperType(n, f.vaType)) + p.assignmentExpression(f, lhs, lhs.Operand.Type(), exprLValue, flags) + p.w(")") + return + case idAtomicLoadN: + p.atomicLoadN(f, n, t, mode, flags) + return + case idAddOverflow: + p.addOverflow(f, n, t, mode, flags) + return + case idSubOverflow: + p.subOverflow(f, n, t, mode, flags) + return + case idMulOverflow: + p.mulOverflow(f, n, t, mode, flags) + return + case idBuiltinConstantPImpl: + p.w("%v", n.Operand.Value()) + return + } + } + var va uintptr + if f != nil { + va = f.vaLists[n] + } + p.postfixExpression(f, n.PostfixExpression, n.PostfixExpression.Operand.Type(), exprFunc, flags) + p.argumentExpressionList(f, n.PostfixExpression, n.ArgumentExpressionList, va) +} + +// bool __builtin_mul_overflow (type1 a, type2 b, type3 *res) +func (p *project) mulOverflow(f *function, n *cc.PostfixExpression, t cc.Type, mode exprMode, flags flags) { + args := p.argList(n.ArgumentExpressionList) + if len(args) != 3 { + p.err(n, "expected 3 arguments in call to __builtin_mul_overflow") + return + } + + pt := args[2].Operand.Type() + if pt.Kind() != cc.Ptr { + p.err(n, "invalid argument of __builtin_mul_overflow (expected pointer): %s", pt) + return + } + + vt := pt.Elem() + switch { + case vt.IsIntegerType(): + switch vt.Size() { + case 1, 2, 4, 8, 16: + p.w("%sX__builtin_mul_overflow%s", p.task.crt, p.helperType(n, vt)) + default: + p.err(n, "invalid argument of __builtin_mul_overflow: %v, elem kind %v", pt, vt.Kind()) + return + } + p.w("(%s", f.tlsName) + types := []cc.Type{vt, vt, pt} + for i, v := range args[:3] { + p.w(", ") + p.assignmentExpression(f, v, types[i], exprValue, flags) + } + p.w(")") + return + } + + p.err(n, "invalid arguments of __builtin_mul_overflow: (%v, %v, %v)", args[0].Operand.Type(), args[1].Operand.Type(), args[2].Operand.Type()) +} + +// bool __builtin_sub_overflow (type1 a, type2 b, type3 *res) +func (p *project) subOverflow(f *function, n *cc.PostfixExpression, t cc.Type, mode exprMode, flags flags) { + args := p.argList(n.ArgumentExpressionList) + if len(args) != 3 { + p.err(n, "expected 3 arguments in call to __builtin_sub_overflow") + return + } + + pt := args[2].Operand.Type() + if pt.Kind() != cc.Ptr { + p.err(n, "invalid argument of __builtin_sub_overflow (expected pointer): %s", pt) + return + } + + vt := pt.Elem() + switch { + case vt.IsIntegerType(): + switch vt.Size() { + case 1, 2, 4, 8: + p.w("%sX__builtin_sub_overflow%s", p.task.crt, p.helperType(n, vt)) + default: + p.err(n, "invalid argument of __builtin_sub_overflow: %v, elem kind %v", pt, vt.Kind()) + return + } + p.w("(%s", f.tlsName) + types := []cc.Type{vt, vt, pt} + for i, v := range args[:3] { + p.w(", ") + p.assignmentExpression(f, v, types[i], exprValue, flags) + } + p.w(")") + return + } + + p.err(n, "invalid arguments of __builtin_sub_overflow: (%v, %v, %v)", args[0].Operand.Type(), args[1].Operand.Type(), args[2].Operand.Type()) +} + +// bool __builtin_add_overflow (type1 a, type2 b, type3 *res) +func (p *project) addOverflow(f *function, n *cc.PostfixExpression, t cc.Type, mode exprMode, flags flags) { + args := p.argList(n.ArgumentExpressionList) + if len(args) != 3 { + p.err(n, "expected 3 arguments in call to __builtin_add_overflow") + return + } + + pt := args[2].Operand.Type() + if pt.Kind() != cc.Ptr { + p.err(n, "invalid argument of __builtin_add_overflow (expected pointer): %s", pt) + return + } + + vt := pt.Elem() + switch { + case vt.IsIntegerType(): + switch vt.Size() { + case 1, 2, 4, 8: + p.w("%sX__builtin_add_overflow%s", p.task.crt, p.helperType(n, vt)) + default: + p.err(n, "invalid argument of __builtin_add_overflow: %v, elem kind %v", pt, vt.Kind()) + return + } + p.w("(%s", f.tlsName) + types := []cc.Type{vt, vt, pt} + for i, v := range args[:3] { + p.w(", ") + p.assignmentExpression(f, v, types[i], exprValue, flags) + } + p.w(")") + return + } + + p.err(n, "invalid arguments of __builtin_add_overflow: (%v, %v, %v)", args[0].Operand.Type(), args[1].Operand.Type(), args[2].Operand.Type()) +} + +// type __atomic_load_n (type *ptr, int memorder) +func (p *project) atomicLoadN(f *function, n *cc.PostfixExpression, t cc.Type, mode exprMode, flags flags) { + args := p.argList(n.ArgumentExpressionList) + if len(args) != 2 { + p.err(n, "expected 2 arguments in call to __atomic_load_n") + return + } + + pt := args[0].Operand.Type() + if pt.Kind() != cc.Ptr { + p.err(n, "invalid argument of __atomic_load_n (expected pointer): %s", pt) + return + } + + vt := pt.Elem() + switch { + case vt.IsIntegerType(): + var s string + switch { + case vt.IsSignedType(): + s = "Int" + default: + s = "Uint" + } + switch vt.Size() { + case 2, 4, 8: + p.w("%sAtomicLoadN%s%d", p.task.crt, s, 8*vt.Size()) + default: + p.err(n, "invalid argument of __atomic_load_n: %v, elem kind %v", pt, vt.Kind()) + return + } + types := []cc.Type{pt, p.intType} + p.w("(") + for i, v := range args[:2] { + if i != 0 { + p.w(", ") + } + p.assignmentExpression(f, v, types[i], exprValue, flags) + } + p.w(")") + return + case vt.Kind() == cc.Ptr: + panic(todo("", pt, vt)) + } + + p.err(n, "invalid first argument of __atomic_load_n: %v, elem kind %v", pt, vt.Kind()) +} + +func (p *project) postfixExpressionCallVoid(f *function, n *cc.PostfixExpression, t cc.Type, mode exprMode, flags flags) { + // PostfixExpression '(' ArgumentExpressionList ')' + if d := n.PostfixExpression.Declarator(); d != nil { + switch d.Name() { + case idVaEnd: + p.w("_ = ") + arg := n.ArgumentExpressionList.AssignmentExpression + p.assignmentExpression(f, arg, arg.Operand.Type(), exprValue, flags) + return + case idVaStart: + lhs := n.ArgumentExpressionList.AssignmentExpression + p.assignmentExpression(f, lhs, lhs.Operand.Type(), exprLValue, flags) + p.w(" = %s", f.vaName) + return + case idVaArg: + if !f.vaType.IsScalarType() { + panic(todo("", f.vaType)) + } + + lhs := n.ArgumentExpressionList.AssignmentExpression + p.w("%sVa%s(&", p.task.crt, p.helperType(n, f.vaType)) + p.assignmentExpression(f, lhs, lhs.Operand.Type(), exprLValue, flags) + p.w(")") + return + case idAtomicStoreN: + p.atomicStoreN(f, n, t, mode, flags) + return + case idMulOverflow: + p.mulOverflow(f, n, t, mode, flags) + return + } + } + var va uintptr + if f != nil { + va = f.vaLists[n] + } + p.postfixExpression(f, n.PostfixExpression, n.PostfixExpression.Operand.Type(), exprFunc, flags) + p.argumentExpressionList(f, n.PostfixExpression, n.ArgumentExpressionList, va) +} + +// void __atomic_store_n (type *ptr, type val, int memorder) +func (p *project) atomicStoreN(f *function, n *cc.PostfixExpression, t cc.Type, mode exprMode, flags flags) { + args := p.argList(n.ArgumentExpressionList) + if len(args) != 3 { + p.err(n, "expected 3 arguments in call to __atomic_store_n") + return + } + + pt := args[0].Operand.Type() + if pt.Kind() != cc.Ptr { + p.err(n, "invalid first argument of __atomic_store_n (expected pointer): %s", pt) + return + } + + vt := args[1].Operand.Type() + switch { + case vt.IsIntegerType(): + var s string + switch { + case vt.IsSignedType(): + s = "Int" + default: + s = "Uint" + } + switch vt.Size() { + case 2, 4, 8: + p.w("%sAtomicStoreN%s%d", p.task.crt, s, 8*vt.Size()) + default: + p.err(n, "invalid arguments of __atomic_store_n: (%v, %v), element kind %v", pt, vt, vt.Kind()) + return + } + p.w("(") + types := []cc.Type{pt, vt, p.intType} + for i, v := range args[:3] { + if i != 0 { + p.w(", ") + } + if i == 1 { + p.w("%s(", strings.ToLower(p.helperType(n, vt))) + } + p.assignmentExpression(f, v, types[i], exprValue, flags) + if i == 1 { + p.w(")") + } + } + p.w(")") + return + case vt.Kind() == cc.Ptr: + panic(todo("", pt, vt)) + } + + p.err(n, "invalid arguments of __atomic_store_n: (%v, %v), element kind %v", pt, vt, vt.Kind()) +} + +func (p *project) argList(n *cc.ArgumentExpressionList) (r []*cc.AssignmentExpression) { + for ; n != nil; n = n.ArgumentExpressionList { + r = append(r, n.AssignmentExpression) + } + return r +} + +func (p *project) argumentExpressionList(f *function, pe *cc.PostfixExpression, n *cc.ArgumentExpressionList, bpOff uintptr) { + switch { + case f == nil: + p.w("(nil") + default: + p.w("(%s", f.tlsName) + } + ft := funcType(pe.Operand.Type()) + isVariadic := ft.IsVariadic() + params := ft.Parameters() + if len(params) == 1 && params[0].Type().Kind() == cc.Void { + params = nil + } + var args []*cc.AssignmentExpression + for ; n != nil; n = n.ArgumentExpressionList { + args = append(args, n.AssignmentExpression) + } + if len(args) < len(params) { + panic(todo("", p.pos(n))) + } + + va := true + if len(args) > len(params) && !isVariadic { + var a []string + for _, v := range args { + a = append(a, v.Operand.Type().String()) + } + sargs := strings.Join(a, ",") + switch d := pe.Declarator(); { + case d == nil: + p.err(pe, "too many arguments (%s) in call to %s", sargs, ft) + default: + p.err(pe, "too many arguments (%s) in call to %s of type %s", sargs, d.Name(), ft) + } + va = false + } + + paren := "" + for i, arg := range args { + p.w(",%s", tidyComment(" ", arg)) + mode := exprValue + if at := arg.Operand.Type(); at.Kind() == cc.Array { + mode = exprDecay + } + switch { + case i < len(params): + switch pt := params[i].Type(); { + case isTransparentUnion(params[i].Type()): + p.callArgTransparentUnion(f, arg, pt) + default: + p.assignmentExpression(f, arg, arg.Promote(), mode, 0) + } + case va && i == len(params): + p.w("%sVaList(%s%s, ", p.task.crt, f.bpName, nonZeroUintptr(bpOff)) + paren = ")" + fallthrough + default: + var flags flags + if arg.Promote().IsIntegerType() { + switch x := arg.Operand.Value().(type) { + case cc.Int64Value: + if x < mathutil.MinInt || x > mathutil.MaxInt { + flags |= fForceConv + } + case cc.Uint64Value: + if x > mathutil.MaxInt { + flags |= fForceConv + } + } + } + p.assignmentExpression(f, arg, arg.Promote(), mode, flags) + } + } + if isVariadic && len(args) == len(params) { + p.w(", 0") + } + p.w("%s)", paren) +} + +// https://gcc.gnu.org/onlinedocs/gcc-3.3/gcc/Type-Attributes.html +// +// transparent_union +// +// This attribute, attached to a union type definition, indicates that any +// function parameter having that union type causes calls to that function to +// be treated in a special way. +// +// First, the argument corresponding to a transparent union type can be of any +// type in the union; no cast is required. Also, if the union contains a +// pointer type, the corresponding argument can be a null pointer constant or a +// void pointer expression; and if the union contains a void pointer type, the +// corresponding argument can be any pointer expression. If the union member +// type is a pointer, qualifiers like const on the referenced type must be +// respected, just as with normal pointer conversions. +// +// Second, the argument is passed to the function using the calling conventions +// of first member of the transparent union, not the calling conventions of the +// union itself. All members of the union must have the same machine +// representation; this is necessary for this argument passing to work +// properly. +// +// Transparent unions are designed for library functions that have multiple +// interfaces for compatibility reasons. For example, suppose the wait function +// must accept either a value of type int * to comply with Posix, or a value of +// type union wait * to comply with the 4.1BSD interface. If wait's parameter +// were void *, wait would accept both kinds of arguments, but it would also +// accept any other pointer type and this would make argument type checking +// less useful. Instead, <sys/wait.h> might define the interface as follows: +// +// typedef union +// { +// int *__ip; +// union wait *__up; +// } wait_status_ptr_t __attribute__ ((__transparent_union__)); +// +// pid_t wait (wait_status_ptr_t); +// +// This interface allows either int * or union wait * arguments to be passed, +// using the int * calling convention. The program can call wait with arguments +// of either type: +// +// int w1 () { int w; return wait (&w); } +// int w2 () { union wait w; return wait (&w); } +// +// With this interface, wait's implementation might look like this: +// +// pid_t wait (wait_status_ptr_t p) +// { +// return waitpid (-1, p.__ip, 0); +// } +func (p *project) callArgTransparentUnion(f *function, n *cc.AssignmentExpression, pt cc.Type) { + if pt.Kind() != cc.Union { + panic(todo("internal error")) + } + + ot := n.Operand.Type() + switch k := pt.UnionCommon(); k { + case cc.Ptr: + if ot.Kind() != k { + panic(todo("", n.Position(), k, pt)) + } + + p.assignmentExpression(f, n, ot, exprValue, 0) + default: + panic(todo("", n.Position(), k, pt)) + } +} + +func isTransparentUnion(t cc.Type) (r bool) { + for _, v := range attrs(t) { + cc.Inspect(v, func(n cc.Node, _ bool) bool { + if x, ok := n.(*cc.AttributeValue); ok && x.Token.Value == idTransparentUnion { + r = true + return false + } + + return true + }) + } + return r +} + +func attrs(t cc.Type) []*cc.AttributeSpecifier { + if a := t.Attributes(); len(a) != 0 { + return a + } + + if t.IsAliasType() { + if a := t.Alias().Attributes(); len(a) != 0 { + return a + } + + return t.AliasDeclarator().Type().Attributes() + } + + return nil +} + +func (p *project) nzUintptr(n cc.Node, f func(), op cc.Operand) { + if op.Type().IsIntegerType() { + switch { + case op.IsZero(): + return + case op.Value() != nil: + switch x := op.Value().(type) { + case cc.Int64Value: + if x > 0 && uint64(x) <= 1<<(8*p.ptrSize)-1 { + p.w("+%d", x) + return + } + case cc.Uint64Value: + if uint64(x) <= 1<<(8*p.ptrSize)-1 { + p.w("+%d", x) + return + } + } + + p.w(" +%sUintptrFrom%s(", p.task.crt, p.helperType(n, op.Type())) + default: + p.w(" +uintptr(") + } + + f() + p.w(")") + return + } + + panic(todo("", p.pos(n))) +} + +func (p *project) primaryExpression(f *function, n *cc.PrimaryExpression, t cc.Type, mode exprMode, flags flags) { + switch mode { + case exprLValue: + p.primaryExpressionLValue(f, n, t, mode, flags) + case exprValue: + p.primaryExpressionValue(f, n, t, mode, flags) + case exprFunc: + p.primaryExpressionFunc(f, n, t, mode, flags) + case exprAddrOf: + p.primaryExpressionAddrOf(f, n, t, mode, flags) + case exprSelect: + p.primaryExpressionSelect(f, n, t, mode, flags) + case exprPSelect: + p.primaryExpressionPSelect(f, n, t, mode, flags) + case exprBool: + p.primaryExpressionBool(f, n, t, mode, flags) + case exprVoid: + p.primaryExpressionVoid(f, n, t, mode, flags) + case exprDecay: + p.primaryExpressionDecay(f, n, t, mode, flags) + default: + panic(todo("", n.Position(), mode)) + } +} + +func (p *project) primaryExpressionDecay(f *function, n *cc.PrimaryExpression, t cc.Type, mode exprMode, flags flags) { + switch n.Case { + case cc.PrimaryExpressionIdent: // IDENTIFIER + switch d := n.Declarator(); { + case d != nil: + p.declarator(n, f, d, t, mode, flags) + default: + panic(todo("", p.pos(n))) + } + case cc.PrimaryExpressionInt: // INTCONST + p.intConst(n, n.Token.Src.String(), n.Operand, t, flags) + case cc.PrimaryExpressionFloat: // FLOATCONST + panic(todo("", p.pos(n))) + case cc.PrimaryExpressionEnum: // ENUMCONST + panic(todo("", p.pos(n))) + case cc.PrimaryExpressionChar: // CHARCONST + panic(todo("", p.pos(n))) + case cc.PrimaryExpressionLChar: // LONGCHARCONST + panic(todo("", p.pos(n))) + case cc.PrimaryExpressionString: // STRINGLITERAL + p.w("%s", p.stringLiteral(n.Operand.Value())) + case cc.PrimaryExpressionLString: // LONGSTRINGLITERAL + p.w("%s", p.wideStringLiteral(n.Operand.Value(), 0)) + case cc.PrimaryExpressionExpr: // '(' Expression ')' + p.expression(f, n.Expression, t, mode, flags) + case cc.PrimaryExpressionStmt: // '(' CompoundStatement ')' + p.err(n, "statement expressions not supported") + default: + panic(todo("%v: internal error: %v", n.Position(), n.Case)) + } +} + +func (p *project) primaryExpressionVoid(f *function, n *cc.PrimaryExpression, t cc.Type, mode exprMode, flags flags) { + + switch n.Case { + case cc.PrimaryExpressionIdent: // IDENTIFIER + p.w("_ = ") + p.primaryExpression(f, n, n.Operand.Type(), exprValue, flags) + case cc.PrimaryExpressionInt, // INTCONST + cc.PrimaryExpressionFloat, // FLOATCONST + cc.PrimaryExpressionEnum, // ENUMCONST + cc.PrimaryExpressionChar, // CHARCONST + cc.PrimaryExpressionLChar, // LONGCHARCONST + cc.PrimaryExpressionString, // STRINGLITERAL + cc.PrimaryExpressionLString: // LONGSTRINGLITERAL + + // nop + case cc.PrimaryExpressionExpr: // '(' Expression ')' + p.expression(f, n.Expression, n.Expression.Operand.Type(), mode, flags) + case cc.PrimaryExpressionStmt: // '(' CompoundStatement ')' + p.compoundStatement(f, n.CompoundStatement, "", true, false, 0) + default: + panic(todo("%v: internal error: %v", n.Position(), n.Case)) + } +} + +func (p *project) primaryExpressionBool(f *function, n *cc.PrimaryExpression, t cc.Type, mode exprMode, flags flags) { + if n.Case != cc.PrimaryExpressionExpr { + p.w("(") + defer p.w(")") + } + + if n.Case != cc.PrimaryExpressionExpr { + defer p.w(" != 0") + } + switch n.Case { + case cc.PrimaryExpressionIdent: // IDENTIFIER + switch d := n.Declarator(); { + case d != nil: + p.declarator(n, f, d, d.Type(), exprValue, flags) + default: + panic(todo("", p.pos(n))) + } + case cc.PrimaryExpressionInt: // INTCONST + p.intConst(n, n.Token.Src.String(), n.Operand, n.Operand.Type(), flags) + case cc.PrimaryExpressionFloat: // FLOATCONST + panic(todo("", p.pos(n))) + case cc.PrimaryExpressionEnum: // ENUMCONST + panic(todo("", p.pos(n))) + case cc.PrimaryExpressionChar: // CHARCONST + panic(todo("", p.pos(n))) + case cc.PrimaryExpressionLChar: // LONGCHARCONST + p.charConst(n, n.Token.Src.String(), n.Operand, t, flags) + case cc.PrimaryExpressionString: // STRINGLITERAL + p.w(" 1 ") + case cc.PrimaryExpressionLString: // LONGSTRINGLITERAL + panic(todo("", p.pos(n))) + case cc.PrimaryExpressionExpr: // '(' Expression ')' + p.w("(") + defer p.w(")") + p.expression(f, n.Expression, t, mode, flags) + case cc.PrimaryExpressionStmt: // '(' CompoundStatement ')' + p.w("func() %v {", p.typ(n, n.CompoundStatement.Operand.Type())) + p.compoundStatement(f, n.CompoundStatement, "", true, false, exprValue) + p.w("}()") + default: + panic(todo("%v: internal error: %v", n.Position(), n.Case)) + } +} + +func (p *project) primaryExpressionPSelect(f *function, n *cc.PrimaryExpression, t cc.Type, mode exprMode, flags flags) { + switch n.Case { + case cc.PrimaryExpressionIdent: // IDENTIFIER + switch d := n.Declarator(); { + case d != nil: + switch k := p.declaratorKind(d); k { + case opArray: + panic(todo("", p.pos(n))) + p.primaryExpression(f, n, t, exprDecay, flags) + default: + p.declarator(n, f, d, t, mode, flags) + } + default: + panic(todo("", p.pos(n))) + } + case cc.PrimaryExpressionInt: // INTCONST + panic(todo("", p.pos(n))) + case cc.PrimaryExpressionFloat: // FLOATCONST + panic(todo("", p.pos(n))) + case cc.PrimaryExpressionEnum: // ENUMCONST + panic(todo("", p.pos(n))) + case cc.PrimaryExpressionChar: // CHARCONST + panic(todo("", p.pos(n))) + case cc.PrimaryExpressionLChar: // LONGCHARCONST + panic(todo("", p.pos(n))) + case cc.PrimaryExpressionString: // STRINGLITERAL + panic(todo("", p.pos(n))) + case cc.PrimaryExpressionLString: // LONGSTRINGLITERAL + panic(todo("", p.pos(n))) + case cc.PrimaryExpressionExpr: // '(' Expression ')' + p.expression(f, n.Expression, t, mode, flags) + case cc.PrimaryExpressionStmt: // '(' CompoundStatement ')' + p.err(n, "statement expressions not supported") + default: + panic(todo("%v: internal error: %v", n.Position(), n.Case)) + } +} + +func (p *project) primaryExpressionSelect(f *function, n *cc.PrimaryExpression, t cc.Type, mode exprMode, flags flags) { + switch n.Case { + case cc.PrimaryExpressionIdent: // IDENTIFIER + switch d := n.Declarator(); { + case d != nil: + p.declarator(n, f, d, t, mode, flags) + default: + panic(todo("", p.pos(n))) + } + case cc.PrimaryExpressionInt: // INTCONST + panic(todo("", p.pos(n))) + case cc.PrimaryExpressionFloat: // FLOATCONST + panic(todo("", p.pos(n))) + case cc.PrimaryExpressionEnum: // ENUMCONST + panic(todo("", p.pos(n))) + case cc.PrimaryExpressionChar: // CHARCONST + panic(todo("", p.pos(n))) + case cc.PrimaryExpressionLChar: // LONGCHARCONST + panic(todo("", p.pos(n))) + case cc.PrimaryExpressionString: // STRINGLITERAL + panic(todo("", p.pos(n))) + case cc.PrimaryExpressionLString: // LONGSTRINGLITERAL + panic(todo("", p.pos(n))) + case cc.PrimaryExpressionExpr: // '(' Expression ')' + p.expression(f, n.Expression, t, mode, flags) + case cc.PrimaryExpressionStmt: // '(' CompoundStatement ')' + p.err(n, "statement expressions not supported") + default: + panic(todo("%v: internal error: %v", n.Position(), n.Case)) + } +} + +func (p *project) primaryExpressionAddrOf(f *function, n *cc.PrimaryExpression, t cc.Type, mode exprMode, flags flags) { + switch n.Case { + case cc.PrimaryExpressionIdent: // IDENTIFIER + switch d := n.Declarator(); { + case d != nil: + p.declarator(n, f, d, t, mode, flags) + default: + panic(todo("", p.pos(n))) + } + case cc.PrimaryExpressionInt: // INTCONST + panic(todo("", p.pos(n))) + case cc.PrimaryExpressionFloat: // FLOATCONST + panic(todo("", p.pos(n))) + case cc.PrimaryExpressionEnum: // ENUMCONST + panic(todo("", p.pos(n))) + case cc.PrimaryExpressionChar: // CHARCONST + panic(todo("", p.pos(n))) + case cc.PrimaryExpressionLChar: // LONGCHARCONST + panic(todo("", p.pos(n))) + case cc.PrimaryExpressionString: // STRINGLITERAL + p.w("%s", p.stringLiteral(n.Operand.Value())) + case cc.PrimaryExpressionLString: // LONGSTRINGLITERAL + p.w("%s", p.wideStringLiteral(n.Operand.Value(), 0)) + case cc.PrimaryExpressionExpr: // '(' Expression ')' + p.expression(f, n.Expression, t, mode, flags) + case cc.PrimaryExpressionStmt: // '(' CompoundStatement ')' + p.err(n, "statement expressions not supported") + default: + panic(todo("%v: internal error: %v", n.Position(), n.Case)) + } +} + +func (p *project) primaryExpressionFunc(f *function, n *cc.PrimaryExpression, t cc.Type, mode exprMode, flags flags) { + switch n.Case { + case cc.PrimaryExpressionIdent: // IDENTIFIER + p.fnVal(n, f, func() { p.primaryExpression(f, n, n.Operand.Type(), exprValue, flags) }, n.Declarator(), n.Operand.Type(), 0, mode, flags) + case cc.PrimaryExpressionInt: // INTCONST + panic(todo("", p.pos(n))) + case cc.PrimaryExpressionFloat: // FLOATCONST + panic(todo("", p.pos(n))) + case cc.PrimaryExpressionEnum: // ENUMCONST + panic(todo("", p.pos(n))) + case cc.PrimaryExpressionChar: // CHARCONST + panic(todo("", p.pos(n))) + case cc.PrimaryExpressionLChar: // LONGCHARCONST + panic(todo("", p.pos(n))) + case cc.PrimaryExpressionString: // STRINGLITERAL + panic(todo("", p.pos(n))) + case cc.PrimaryExpressionLString: // LONGSTRINGLITERAL + panic(todo("", p.pos(n))) + case cc.PrimaryExpressionExpr: // '(' Expression ')' + p.expression(f, n.Expression, t, mode, flags) + case cc.PrimaryExpressionStmt: // '(' CompoundStatement ')' + p.err(n, "statement expressions not supported") + default: + panic(todo("%v: internal error: %v", n.Position(), n.Case)) + } +} + +func cmpNormalizeValue(v cc.Value) cc.Value { + switch x := v.(type) { + case cc.Int64Value: + if x >= 0 { + return cc.Uint64Value(x) + } + } + return v +} + +func (p *project) primaryExpressionValue(f *function, n *cc.PrimaryExpression, t cc.Type, mode exprMode, flags flags) { + switch n.Case { + case cc.PrimaryExpressionIdent: // IDENTIFIER + switch d := n.Declarator(); { + case d != nil: + p.declarator(n, f, d, t, mode, flags) + default: + panic(todo("", p.pos(n))) + } + case cc.PrimaryExpressionInt: // INTCONST + if m := n.Token.Macro(); m != 0 { + if d := p.defines[m]; d.name != "" { + if cmpNormalizeValue(n.Operand.Value()) == cmpNormalizeValue(d.value) { + defer p.w("%s", p.convert(n, n.Operand, t, flags)) + p.w(" %s ", d.name) + break + } + + p.w("/* %s */", m) + } + } + + p.intConst(n, n.Token.Src.String(), n.Operand, t, flags) + case cc.PrimaryExpressionFloat: // FLOATCONST + //TODO use #define + p.floatConst(n, n.Token.Src.String(), n.Operand, t, flags) + case cc.PrimaryExpressionEnum: // ENUMCONST + en := n.ResolvedTo().(*cc.Enumerator) + if n.ResolvedIn().Parent() == nil { + if nm := p.enumConsts[en.Token.Value]; nm != "" { + p.w(" %s ", nm) + break + } + } + + p.intConst(n, "", n.Operand, t, flags) + p.w("/* %s */", en.Token.Value) + case cc.PrimaryExpressionChar: // CHARCONST + p.charConst(n, n.Token.Src.String(), n.Operand, t, flags) + case cc.PrimaryExpressionLChar: // LONGCHARCONST + p.charConst(n, n.Token.Src.String(), n.Operand, t, flags) + case cc.PrimaryExpressionString: // STRINGLITERAL + p.w("%s", p.stringLiteral(n.Operand.Value())) + case cc.PrimaryExpressionLString: // LONGSTRINGLITERAL + p.w("%s", p.wideStringLiteral(n.Operand.Value(), 0)) + case cc.PrimaryExpressionExpr: // '(' Expression ')' + p.w("(") + defer p.w(")") + p.expression(f, n.Expression, t, mode, flags) + case cc.PrimaryExpressionStmt: // '(' CompoundStatement ')' + p.statementExpression(f, n.CompoundStatement, t, mode, flags) + default: + panic(todo("%v: internal error: %v", n.Position(), n.Case)) + } +} + +func (p *project) statementExpression(f *function, n *cc.CompoundStatement, t cc.Type, mode exprMode, flags flags) { + defer p.w("%s", p.convert(n, n.Operand, t, flags)) + p.w(" func() %v {", p.typ(n, n.Operand.Type())) + p.compoundStatement(f, n, "", true, false, mode) + p.w("}()") +} + +func (p *project) primaryExpressionLValue(f *function, n *cc.PrimaryExpression, t cc.Type, mode exprMode, flags flags) { + switch n.Case { + case cc.PrimaryExpressionIdent: // IDENTIFIER + switch d := n.Declarator(); { + case d != nil: + p.declarator(n, f, d, t, mode, flags) + default: + panic(todo("", p.pos(n))) + } + case cc.PrimaryExpressionInt: // INTCONST + panic(todo("", p.pos(n))) + case cc.PrimaryExpressionFloat: // FLOATCONST + panic(todo("", p.pos(n))) + case cc.PrimaryExpressionEnum: // ENUMCONST + panic(todo("", p.pos(n))) + case cc.PrimaryExpressionChar: // CHARCONST + panic(todo("", p.pos(n))) + case cc.PrimaryExpressionLChar: // LONGCHARCONST + panic(todo("", p.pos(n))) + case cc.PrimaryExpressionString: // STRINGLITERAL + panic(todo("", p.pos(n))) + case cc.PrimaryExpressionLString: // LONGSTRINGLITERAL + panic(todo("", p.pos(n))) + case cc.PrimaryExpressionExpr: // '(' Expression ')' + p.w("(") + defer p.w(")") + p.expression(f, n.Expression, t, mode, flags) + case cc.PrimaryExpressionStmt: // '(' CompoundStatement ')' + p.err(n, "statement expressions not supported") + default: + panic(todo("%v: internal error: %v", n.Position(), n.Case)) + } +} + +func (p *project) stringLiteralString(s string) string { + if p.pass1 { + return "" + } + + id := cc.String(s) + off, ok := p.tsOffs[id] + if !ok { + off = uintptr(p.ts.Len()) + p.ts.WriteString(s) + p.ts.WriteByte(0) + p.tsOffs[id] = off + } + return fmt.Sprintf("(%s%s)%s", p.tsNameP, nonZeroUintptr(off), p.stringSnippet(s)) +} + +func (p *project) stringLiteral(v cc.Value) string { + if p.pass1 { + return "" + } + + switch x := v.(type) { + case cc.StringValue: + id := cc.StringID(x) + off, ok := p.tsOffs[id] + s := id.String() + if !ok { + off = uintptr(p.ts.Len()) + p.ts.WriteString(s) + p.ts.WriteByte(0) + p.tsOffs[id] = off + } + return fmt.Sprintf("(%s%s)%s", p.tsNameP, nonZeroUintptr(off), p.stringSnippet(s)) + default: + panic(todo("%T", x)) + } +} + +func (p *project) stringSnippet(s string) string { + s = strings.ReplaceAll(s, "*/", "*\\/") + const max = 16 + switch { + case len(s) <= max: + return fmt.Sprintf("/* %q */", s) + default: + return fmt.Sprintf("/* %q */", s[:16]+"...") + } +} + +func (p *project) wideStringLiteral(v cc.Value, pad int) string { + if p.pass1 { + return "" + } + + switch x := v.(type) { + case cc.WideStringValue: + id := cc.StringID(x) + off, ok := p.tsWOffs[id] + if !ok { + off = p.wcharSize * uintptr(len(p.tsW)) + s := []rune(id.String()) + if pad != 0 { + s = append(s, make([]rune, pad)...) + } + p.tsW = append(p.tsW, s...) + p.tsW = append(p.tsW, 0) + p.tsWOffs[id] = off + } + return fmt.Sprintf("(%s%s)", p.tsWNameP, nonZeroUintptr(off)) + default: + panic(todo("%T", x)) + } +} + +func (p *project) charConst(n cc.Node, src string, op cc.Operand, to cc.Type, flags flags) { + switch { + case to.IsArithmeticType(): + defer p.w("%s", p.convert(n, op, to, flags)) + case to.Kind() == cc.Ptr && op.IsZero(): + p.w(" 0 ") + return + default: + panic(todo("%v: t %v, to %v, to.Alias() %v", n.Position(), op.Type(), to, to.Alias())) + } + + r, mb, _, err := strconv.UnquoteChar(src[1:len(src)-1], '\'') + rValid := !mb && err == nil + var on uint64 + switch x := op.Value().(type) { + case cc.Int64Value: + on = uint64(x) + case cc.Uint64Value: + on = uint64(x) + default: + panic(todo("%T(%v)", x, x)) + } + var mask uint64 + switch { + case !to.IsIntegerType(): + // ok + if rValid { // Prefer original form + p.w("%s", src) + return + } + + p.w("%d", on) + return + case to.IsSignedType(): + var in int64 + var ok bool + switch to.Size() { + case 1: + in = int64(int8(on)) + ok = int8(on) >= 0 + case 2: + in = int64(int16(on)) + ok = int16(on) >= 0 + case 4: + in = int64(int32(on)) + ok = int32(on) >= 0 + case 8: + in = int64(int64(on)) + ok = in >= 0 + default: + panic(todo("", op.Type().Size())) + } + if ok && rValid && uint64(in) == on { // Prefer original form + p.w("%s", src) + return + } + + p.w("%d", in) + default: + switch to.Size() { + case 1: + mask = 0xff + case 2: + mask = 0xffff + case 4: + mask = 0xffffffff + case 8: + mask = 0xffffffffffffffff + default: + panic(todo("", op.Type().Size())) + } + if rValid && uint64(r)&mask == on { // Prefer original form + p.w("%s", src) + return + } + + p.w("%d", on&mask) + } +} + +func (p *project) floatConst(n cc.Node, src string, op cc.Operand, to cc.Type, flags flags) { + if flags&fForceRuntimeConv != 0 { + p.w("%s(", p.helperType2(n, op.Type(), to)) + defer p.w(")") + } + + bits := 64 + switch to.Kind() { + case cc.Float: + bits = 32 + } + src = strings.TrimRight(src, "flFL") + sn, err := strconv.ParseFloat(src, bits) + snValid := err == nil + switch x := op.Value().(type) { + case cc.Float64Value: + switch to.Kind() { + case cc.Double: + if snValid && sn == float64(x) { // Prefer original form. + p.w("%s", src) + return + } + + p.w("math.Float64frombits(%#x)", math.Float64bits(float64(x))) + case cc.Float: + if snValid && float32(sn) == float32(x) { // Prefer original form. + p.w("%s", src) + return + } + + p.w("math.Float32frombits(%#x)", math.Float32bits(float32(x))) + default: + defer p.w("%s", p.convert(n, op, to, 0)) + if snValid && sn == float64(x) { // Prefer original form. + p.w("%s", src) + return + } + + p.w("math.Float64frombits(%#x)", math.Float64bits(float64(x))) + } + case cc.Float32Value: + switch to.Kind() { + case cc.Double: + if snValid && float32(sn) == float32(x) { // Prefer original form. + p.w("%s", src) + return + } + + p.w("math.Float64frombits(%#x)", math.Float64bits(float64(x))) + case cc.Float: + if snValid && float32(sn) == float32(x) { // Prefer original form. + p.w("%s", src) + return + } + + p.w("math.Float32frombits(%#x)", math.Float32bits(float32(x))) + default: + if to.IsIntegerType() { + if s := p.float2Int(n, x, to); s != "" { + defer p.w("%s%s", s, p.convertType(n, op.Type(), to, 0)) + break + } + } + + defer p.w("%s", p.convert(n, op, to, 0)) + if snValid && float32(sn) == float32(x) { // Prefer original form. + p.w("%s", src) + return + } + + p.w("math.Float32frombits(%#x)", math.Float32bits(float32(x))) + } + default: + panic(todo("%T(%v)", x, x)) + } +} + +func (p *project) float2Int(n cc.Node, x cc.Float32Value, to cc.Type) string { + switch { + case to.IsSignedType(): + limits := &signedSaturationLimits[to.Size()] + v := float64(x) + switch { + case math.IsNaN(v): + panic(todo("", p.pos(n))) + case math.IsInf(v, -1): + panic(todo("", p.pos(n))) + case math.IsInf(v, 1): + panic(todo("", p.pos(n))) + case v < limits.fmin: + return fmt.Sprint(limits.min) + case v > limits.fmax: + return fmt.Sprint(limits.max) + } + default: + limits := &unsignedSaturationLimits[to.Size()] + v := float64(x) + switch { + case math.IsNaN(v): + panic(todo("", p.pos(n))) + case math.IsInf(v, -1): + panic(todo("", p.pos(n))) + case math.IsInf(v, 1): + panic(todo("", p.pos(n))) + case v < 0: + return "0" + case v > limits.fmax: + return fmt.Sprint(limits.max) + } + } + return "" +} + +type signedSaturationLimit struct { + fmin, fmax float64 + min, max int64 +} + +type unsignedSaturationLimit struct { + fmax float64 + max uint64 +} + +var ( + signedSaturationLimits = [...]signedSaturationLimit{ + 1: {math.Nextafter(math.MinInt32, 0), math.Nextafter(math.MaxInt32, 0), math.MinInt32, math.MaxInt32}, + 2: {math.Nextafter(math.MinInt32, 0), math.Nextafter(math.MaxInt32, 0), math.MinInt32, math.MaxInt32}, + 4: {math.Nextafter(math.MinInt32, 0), math.Nextafter(math.MaxInt32, 0), math.MinInt32, math.MaxInt32}, + 8: {math.Nextafter(math.MinInt64, 0), math.Nextafter(math.MaxInt64, 0), math.MinInt64, math.MaxInt64}, + } + + unsignedSaturationLimits = [...]unsignedSaturationLimit{ + 1: {math.Nextafter(math.MaxUint32, 0), math.MaxUint32}, + 2: {math.Nextafter(math.MaxUint32, 0), math.MaxUint32}, + 4: {math.Nextafter(math.MaxUint32, 0), math.MaxUint32}, + 8: {math.Nextafter(math.MaxUint64, 0), math.MaxUint64}, + } +) + +func (p *project) intConst(n cc.Node, src string, op cc.Operand, to cc.Type, flags flags) { + ptr := to.Kind() == cc.Ptr + switch { + case to.IsArithmeticType(): + // p.w("/*10568 %T(%#[1]x) %v -> %v */", op.Value(), op.Type(), to) //TODO- + if flags&fForceNoConv != 0 { + break + } + + if !op.Type().IsSignedType() && op.Type().Size() == 8 && op.Value().(cc.Uint64Value) > math.MaxInt64 { + flags |= fForceRuntimeConv + } + defer p.w("%s", p.convert(n, op, to, flags)) + case ptr: + p.w(" uintptr(") + defer p.w(")") + // ok + default: + panic(todo("%v: %v -> %v", pos(n), op.Type(), to)) + } + + src = strings.TrimRight(src, "luLU") + sn, err := strconv.ParseUint(src, 0, 64) + snValid := err == nil + var on uint64 + switch x := op.Value().(type) { + case cc.Int64Value: + if x < 0 { + sn, err := strconv.ParseInt(src, 0, 64) + snValid := err == nil + if snValid && sn == int64(x) { // Prefer original form + p.w("%s", src) + return + } + + p.w("%d", x) + return + } + + on = uint64(x) + case cc.Uint64Value: + on = uint64(x) + default: + panic(todo("%T(%v)", x, x)) + } + + if snValid && sn == on { // Prefer original form + p.w("%s", src) + return + } + + p.w("%d", on) +} + +func (p *project) assignShiftOp(f *function, n *cc.AssignmentExpression, t cc.Type, mode exprMode, oper, oper2 string, flags flags) { + // UnaryExpression "<<=" AssignmentExpression etc. + switch mode { + case exprVoid: + p.assignShiftOpVoid(f, n, t, mode, oper, oper2, flags) + default: + panic(todo("", mode)) + } +} + +func (p *project) assignShiftOpVoid(f *function, n *cc.AssignmentExpression, t cc.Type, mode exprMode, oper, oper2 string, flags flags) { + // UnaryExpression "<<=" AssignmentExpression etc. + switch k := p.opKind(f, n.UnaryExpression, n.UnaryExpression.Operand.Type()); k { + case opNormal: + p.assignShiftOpVoidNormal(f, n, t, mode, oper, oper2, flags) + default: + panic(todo("", n.Position(), k)) + } +} + +func (p *project) assignShiftOpVoidNormal(f *function, n *cc.AssignmentExpression, t cc.Type, mode exprMode, oper, oper2 string, flags flags) { + switch { + case n.Operand.Type().IsBitFieldType(): + panic(todo("", p.pos(n))) + default: + if d := n.UnaryExpression.Declarator(); d != nil { + switch d.Type().Kind() { + case cc.Int128, cc.UInt128: + p.declarator(n, f, d, d.Type(), exprLValue, flags) + p.w(".LValue%s(", oper2) + p.assignmentExpression(f, n.AssignmentExpression, p.intType, exprValue, flags) + p.w(")") + return + default: + p.declarator(n, f, d, d.Type(), exprLValue, flags) + p.w(" %s= ", oper) + p.assignmentExpression(f, n.AssignmentExpression, n.Promote(), exprValue, flags) + return + } + } + + lhs := n.UnaryExpression + switch { + case lhs.Operand.Type().IsArithmeticType(): + p.w("%sAssign%sPtr%s(", p.task.crt, oper2, p.helperType(n, lhs.Operand.Type())) + p.unaryExpression(f, lhs, lhs.Operand.Type(), exprAddrOf, flags) + p.w(", int(") + p.assignmentExpression(f, n.AssignmentExpression, n.Promote(), exprValue, flags) + p.w("))") + default: + panic(todo("", p.pos(n), lhs.Operand.Type())) + } + } +} + +func (p *project) assignOp(f *function, n *cc.AssignmentExpression, t cc.Type, mode exprMode, oper, oper2 string, flags flags) { + // UnaryExpression "*=" AssignmentExpression etc. + switch mode { + case exprVoid: + p.assignOpVoid(f, n, t, mode, oper, oper2, flags) + case exprValue, exprCondReturn: + p.assignOpValue(f, n, t, mode, oper, oper2, flags) + default: + panic(todo("", n.Position(), mode)) + } +} + +func (p *project) assignOpValue(f *function, n *cc.AssignmentExpression, t cc.Type, mode exprMode, oper, oper2 string, flags flags) { + // UnaryExpression "*=" AssignmentExpression etc. + switch k := p.opKind(f, n.UnaryExpression, n.UnaryExpression.Operand.Type()); k { + case opNormal: + p.assignOpValueNormal(f, n, t, oper, oper2, mode, flags) + case opBitfield: + p.assignOpValueBitfield(f, n, t, oper, oper2, mode, flags) + default: + panic(todo("", n.Position(), k)) + } +} + +func (p *project) assignOpValueBitfield(f *function, n *cc.AssignmentExpression, t cc.Type, oper, oper2 string, mode exprMode, flags flags) { + // UnaryExpression "*=" AssignmentExpression etc. + + asInt := oper2 == "Shl" || oper2 == "Shr" + if asInt { + panic(todo("")) + } + + ot := n.Operand.Type() + lhs := n.UnaryExpression + bf := lhs.Operand.Type().BitField() + defer p.w("%s", p.convertType(n, ot, t, flags)) + p.w(" func() %v {", p.typ(n, ot)) + switch lhs.Case { + case cc.UnaryExpressionPostfix: // PostfixExpression + pe := n.UnaryExpression.PostfixExpression + switch pe.Case { + case cc.PostfixExpressionSelect: // PostfixExpression '.' IDENTIFIER + p.w("__p := ") + p.postfixExpression(f, pe, pe.Operand.Type(), exprAddrOf, flags) + p.w("; __v := ") + p.readBitfield(lhs, "__p", bf, ot) + p.w(" %s (", oper) + p.assignmentExpression(f, n.AssignmentExpression, ot, exprValue, flags) + p.w("); return %sAssignBitFieldPtr%d%s(__p, __v, %d, %d, %#x)", p.task.crt, bf.BitFieldBlockWidth(), p.bfHelperType(ot), bf.BitFieldWidth(), bf.BitFieldOffset(), bf.Mask()) + case cc.PostfixExpressionPSelect: // PostfixExpression "->" IDENTIFIER + panic(todo("", p.pos(n))) + default: + panic(todo("", n.Position(), pe.Case)) + } + default: + panic(todo("", n.Position(), lhs.Case)) + } + p.w("}()") +} + +func (p *project) readBitfield(n cc.Node, ptr string, bf cc.Field, promote cc.Type) { + bw := bf.BitFieldBlockWidth() + m := bf.Mask() + o := bf.BitFieldOffset() + w := bf.BitFieldWidth() + p.w("(%s(*(*uint%d)(unsafe.Pointer(%s))&%#x)", p.typ(n, promote), bw, ptr, m) + switch { + case bf.Type().IsSignedType(): + bits := int(promote.Size()) * 8 + p.w("<<%d>>%d)", bits-w-o, bits-w) + default: + p.w(">>%d)", o) + } +} + +func (p *project) assignOpValueNormal(f *function, n *cc.AssignmentExpression, t cc.Type, oper, oper2 string, mode exprMode, flags flags) { + if mode == exprCondReturn { + p.w("return ") + } + asInt := oper2 == "Shl" || oper2 == "Shr" + lhs := n.UnaryExpression + // UnaryExpression "*=" AssignmentExpression etc. + if d := lhs.Declarator(); d != nil { + if local := f.locals[d]; local != nil && local.isPinned { + switch { + case lhs.Operand.Type().IsArithmeticType(): + defer p.w("%s", p.convertType(n, lhs.Operand.Type(), t, flags)) + p.w("%sAssign%sPtr%s(", p.task.crt, oper2, p.helperType(n, lhs.Operand.Type())) + p.unaryExpression(f, lhs, lhs.Operand.Type(), exprAddrOf, flags) + p.w(", ") + if asInt { + p.w("int(") + } + p.assignmentExpression(f, n.AssignmentExpression, lhs.Operand.Type(), exprValue, flags) + if asInt { + p.w(")") + } + p.w(")") + default: + panic(todo("", lhs.Operand.Type())) + } + return + } + + switch { + case d.Type().Kind() == cc.Ptr: + defer p.w("%s", p.convertType(n, d.Type(), t, flags)) + p.w("%sAssign%s%s(&", p.task.crt, oper2, p.helperType(n, d.Type())) + p.declarator(n, f, d, d.Type(), exprLValue, flags) + p.w(", ") + if dd := p.incDelta(d, d.Type()); dd != 1 { + p.w("%d*(", dd) + defer p.w(")") + } + p.assignmentExpression(f, n.AssignmentExpression, d.Type(), exprValue, flags) + p.w(")") + case d.Type().IsArithmeticType(): + defer p.w("%s", p.convertType(n, d.Type(), t, flags)) + p.w("%sAssign%s%s(&", p.task.crt, oper2, p.helperType(n, d.Type())) + p.declarator(n, f, d, d.Type(), exprLValue, flags) + p.w(", ") + if asInt { + p.w("int(") + } + p.assignmentExpression(f, n.AssignmentExpression, d.Type(), exprValue, flags) + p.w(")") + if asInt { + p.w(")") + } + default: + panic(todo("", p.pos(n), p.pos(d), d.Name())) + } + return + } + + switch { + case lhs.Operand.Type().IsArithmeticType(): + defer p.w("%s", p.convertType(n, lhs.Operand.Type(), t, flags)) + p.w("%sAssign%sPtr%s(", p.task.crt, oper2, p.helperType(n, lhs.Operand.Type())) + p.unaryExpression(f, lhs, lhs.Operand.Type(), exprAddrOf, flags) + p.w(", ") + if asInt { + p.w("int(") + } + p.assignmentExpression(f, n.AssignmentExpression, lhs.Operand.Type(), exprValue, flags) + if asInt { + p.w(")") + } + p.w(")") + default: + panic(todo("", lhs.Operand.Type())) + } +} + +func (p *project) assignOpVoid(f *function, n *cc.AssignmentExpression, t cc.Type, mode exprMode, oper, oper2 string, flags flags) { + // UnaryExpression "*=" AssignmentExpression etc. + switch k := p.opKind(f, n.UnaryExpression, n.UnaryExpression.Operand.Type()); k { + case opNormal: + p.assignOpVoidNormal(f, n, t, oper, oper2, mode, flags) + case opBitfield: + p.assignOpVoidBitfield(f, n, t, oper, oper2, mode, flags) + case opArrayParameter: + p.assignOpVoidArrayParameter(f, n, t, oper, oper2, mode, flags) + default: + panic(todo("", n.Position(), k)) + } +} + +func (p *project) assignOpVoidArrayParameter(f *function, n *cc.AssignmentExpression, t cc.Type, oper, oper2 string, mode exprMode, flags flags) { + // UnaryExpression "*=" AssignmentExpression etc. + if oper != "+" && oper != "-" { + panic(todo("", p.pos(n))) + } + + d := n.UnaryExpression.Declarator() + switch local := f.locals[d]; { + case local != nil && local.isPinned: + p.w("*(*uintptr)(unsafe.Pointer(%s%s))", f.bpName, nonZeroUintptr(local.off)) + default: + p.declarator(n, f, d, d.Type(), exprLValue, flags) + } + + p.w(" %s= ", oper) + if dd := p.incDelta(d, d.Type()); dd != 1 { + p.w("%d*", dd) + } + p.w("uintptr(") + p.assignmentExpression(f, n.AssignmentExpression, n.AssignmentExpression.Operand.Type(), exprValue, flags) + p.w(")") +} + +func (p *project) assignOpVoidBitfield(f *function, n *cc.AssignmentExpression, t cc.Type, oper, oper2 string, mode exprMode, flags flags) { + // UnaryExpression "*=" AssignmentExpression etc. + lhs := n.UnaryExpression + lt := lhs.Operand.Type() + switch lhs.Case { + case cc.UnaryExpressionPostfix: // PostfixExpression + pe := n.UnaryExpression.PostfixExpression + switch pe.Case { + case cc.PostfixExpressionSelect: // PostfixExpression '.' IDENTIFIER + bf := lt.BitField() + p.w("%sSetBitFieldPtr%d%s(", p.task.crt, bf.BitFieldBlockWidth(), p.bfHelperType(n.Promote())) + p.unaryExpression(f, lhs, lt, exprAddrOf, flags) + p.w(", (") + s := p.convertType(n, lt, n.Promote(), flags) + p.unaryExpression(f, lhs, lt, exprValue, flags) + p.w(")%s %s ", s, oper) + s = p.convertType(n, lt, n.Promote(), flags) + p.assignmentExpression(f, n.AssignmentExpression, n.Promote(), exprValue, flags) + p.w("%s", s) + p.w(", %d, %#x)", bf.BitFieldOffset(), bf.Mask()) + case cc.PostfixExpressionPSelect: // PostfixExpression "->" IDENTIFIER + switch d := pe.PostfixExpression.Declarator(); { + case d != nil: + panic(todo("", p.pos(n))) + default: + panic(todo("", p.pos(n))) + } + default: + panic(todo("", n.Position(), pe.Case)) + } + default: + panic(todo("", n.Position(), lhs.Case)) + } +} + +func (p *project) assignOpVoidNormal(f *function, n *cc.AssignmentExpression, t cc.Type, oper, oper2 string, mode exprMode, flags flags) { + // UnaryExpression "*=" AssignmentExpression etc. + rop := n.AssignmentExpression.Operand + if d := n.UnaryExpression.Declarator(); d != nil { + if local := f.locals[d]; local != nil && local.isPinned { + if p.isVolatileOrAtomic(d) { + panic(todo("")) + } + + p.declarator(n, f, d, d.Type(), exprLValue, flags) + switch { + case d.Type().Kind() == cc.Ptr: + p.w(" %s= ", oper) + if dd := p.incDelta(d, d.Type()); dd != 1 { + p.w("%d*(", dd) + defer p.w(")") + } + defer p.w("%s", p.convert(n, rop.ConvertTo(n.Promote()), d.Type(), flags)) + p.assignmentExpression(f, n.AssignmentExpression, n.Promote(), exprValue, flags) + case d.Type().IsArithmeticType(): + p.w(" %s= ", oper) + defer p.w("%s", p.convert(n, rop.ConvertTo(n.Promote()), d.Type(), flags)) + p.assignmentExpression(f, n.AssignmentExpression, n.Promote(), exprValue, flags) + default: + panic(todo("", n.Position(), d.Type().Kind())) + } + return + } + + if p.isVolatileOrAtomic(d) { + var local *local + var tld *tld + var nm string + if f != nil { + if local = f.locals[d]; local != nil { + nm = local.name + } + } + + if local == nil { + if tld = p.tlds[d]; tld == nil { + p.err(n, "%v: internal error (%v: %v)", n.Position(), d.Position(), d.Name()) + return + } + + nm = tld.name + } + var sign string + switch oper { + case "-": + sign = oper + fallthrough + case "+": + sz := d.Type().Size() + var ht string + switch sz { + case 4, 8: + if !d.Type().IsScalarType() { + p.err(n, "unsupported volatile declarator type: %v", d.Type()) + break + } + + ht = p.helperType(n, d.Type()) + default: + p.err(n, "unsupported volatile declarator size: %v", sz) + return + } + + if local != nil { + if local.isPinned { + panic(todo("")) + } + } + + p.w("%sAtomicAdd%s(&%s, %s%s(", p.task.crt, ht, nm, sign, p.typ(n, d.Type())) + p.assignmentExpression(f, n.AssignmentExpression, n.Promote(), exprValue, flags) + p.w("))") + return + default: + p.warn(n, "unsupported volatile declarator operation: %v", oper) + p.w("%s = ", nm) + defer p.w("%s", p.convert(n, rop.ConvertTo(n.Promote()), d.Type(), flags)) + p.declarator(n, f, d, n.Promote(), exprValue, flags) + p.w(" %s (", oper) + p.assignmentExpression(f, n.AssignmentExpression, n.Promote(), exprValue, flags) + p.w(")") + return + } + } + + p.declarator(n, f, d, d.Type(), exprLValue, flags) + switch d.Type().Kind() { + case cc.Ptr: + if oper != "+" && oper != "-" { + panic(todo("", p.pos(n))) + } + + p.w(" %s= ", oper) + if dd := p.incDelta(d, d.Type()); dd != 1 { + p.w("%d*(", dd) + defer p.w(")") + } + defer p.w("%s", p.convert(n, rop.ConvertTo(n.Promote()), d.Type(), flags)) + p.assignmentExpression(f, n.AssignmentExpression, n.Promote(), exprValue, flags) + case cc.Int128, cc.UInt128: + p.w(" = ") + p.declarator(n, f, d, n.Promote(), exprValue, flags) + p.w(".%s(", oper2) + p.assignmentExpression(f, n.AssignmentExpression, n.Promote(), exprValue, flags) + p.w(")") + default: + p.w(" = ") + defer p.w("%s", p.convert(n, rop.ConvertTo(n.Promote()), d.Type(), flags)) + p.declarator(n, f, d, n.Promote(), exprValue, flags) + p.w(" %s (", oper) + p.assignmentExpression(f, n.AssignmentExpression, n.Promote(), exprValue, flags) + p.w(")") + } + return + } + + lhs := n.UnaryExpression + switch { + case lhs.Operand.Type().IsArithmeticType(): + p.w("*(*%s)(unsafe.Pointer(", p.typ(n, lhs.Operand.Type())) + p.unaryExpression(f, lhs, lhs.Operand.Type(), exprAddrOf, flags) + p.w(")) %s= ", oper) + defer p.w("%s", p.convert(n, rop.ConvertTo(n.Promote()), lhs.Operand.Type(), flags)) + p.w("(") + p.assignmentExpression(f, n.AssignmentExpression, n.Promote(), exprValue, flags) + p.w(")") + case lhs.Operand.Type().Kind() == cc.Ptr: + p.w("*(*%s)(unsafe.Pointer(", p.typ(n, lhs.Operand.Type())) + p.unaryExpression(f, lhs, lhs.Operand.Type(), exprAddrOf, flags) + p.w(")) %s= (", oper) + p.assignmentExpression(f, n.AssignmentExpression, lhs.Operand.Type(), exprValue, flags) + p.w(")") + if dd := p.incDelta(n, lhs.Operand.Type()); dd != 1 { + p.w("*%d", dd) + } + default: + panic(todo("", lhs.Operand.Type())) + } +} + +func (p *project) warn(n cc.Node, s string, args ...interface{}) { + s = fmt.Sprintf(s, args...) + s = strings.TrimRight(s, "\t\n\r") + fmt.Fprintf(os.Stderr, "%v: warning: %s\n", n.Position(), s) +} + +func (p *project) iterationStatement(f *function, n *cc.IterationStatement) { + sv := f.switchCtx + sv2 := f.continueCtx + sv3 := f.breakCtx + f.switchCtx = 0 + f.continueCtx = 0 + f.breakCtx = 0 + defer func() { + f.breakCtx = sv3 + f.continueCtx = sv2 + f.switchCtx = sv + }() + p.w("%s", tidyComment("\n", n)) + switch n.Case { + case cc.IterationStatementWhile: // "while" '(' Expression ')' Statement + if f.hasJumps { + // a: if !expr goto b + // stmt + // goto a + // b: + a := f.flatLabel() + b := f.flatLabel() + f.continueCtx = a + f.breakCtx = b + p.w("__%d: if !(", a) + p.expression(f, n.Expression, n.Expression.Operand.Type(), exprBool, 0) + p.w(") { goto __%d };", b) + p.statement(f, n.Statement, false, false, false, 0) + p.w("; goto __%d; __%d:", a, b) + break + } + + p.w("for ") + p.expression(f, n.Expression, n.Expression.Operand.Type(), exprBool, 0) + p.statement(f, n.Statement, true, false, false, 0) + case cc.IterationStatementDo: // "do" Statement "while" '(' Expression ')' ';' + if f.hasJumps { + // a: stmt + // b: if expr goto a // b is the continue label + // c: + a := f.flatLabel() + b := f.flatLabel() + c := f.flatLabel() + f.continueCtx = b + f.breakCtx = c + p.w("__%d:", a) + p.statement(f, n.Statement, false, false, false, 0) + p.w(";goto __%d; __%[1]d: if ", b) + p.expression(f, n.Expression, n.Expression.Operand.Type(), exprBool, 0) + p.w("{goto __%d};goto __%d;__%[2]d:", a, c) + break + } + + v := "ok" + if !p.pass1 { + v = f.scope.take(cc.String(v)) + } + p.w("for %v := true; %[1]v; %[1]v = ", v) + p.expression(f, n.Expression, n.Expression.Operand.Type(), exprBool, 0) + p.statement(f, n.Statement, true, false, false, 0) + case cc.IterationStatementFor: // "for" '(' Expression ';' Expression ';' Expression ')' Statement + if f.hasJumps || n.Expression3 != nil && n.Expression3.Case == cc.ExpressionComma { + // expr + // a: if !expr2 goto c + // stmt + // b: expr3 // label for continue + // goto a + // c: + a := f.flatLabel() + b := f.flatLabel() + f.continueCtx = b + c := f.flatLabel() + f.breakCtx = c + if n.Expression != nil { + p.expression(f, n.Expression, n.Expression.Operand.Type(), exprVoid, fNoCondAssignment) + } + semi := "" + if n.Expression != nil || n.Expression2 != nil || n.Expression3 != nil { + semi = ";" + } + p.w("%s__%d:", semi, a) + if n.Expression2 != nil { + p.w("if !(") + p.expression(f, n.Expression2, n.Expression2.Operand.Type(), exprBool, 0) + p.w(") { goto __%d }", c) + } + p.w("%s", semi) + p.statement(f, n.Statement, false, false, false, 0) + p.w(";goto __%d; __%[1]d:", b) + if n.Expression3 != nil { + p.expression(f, n.Expression3, n.Expression3.Operand.Type(), exprVoid, fNoCondAssignment) + } + p.w("%sgoto __%d; goto __%d;__%[3]d:", semi, a, c) + break + } + + expr := true + if n.Expression != nil && n.Expression.Case == cc.ExpressionComma { + p.expression(f, n.Expression, n.Expression.Operand.Type(), exprVoid, 0) + p.w(";") + expr = false + } + p.w("for ") + if expr && n.Expression != nil { + p.expression(f, n.Expression, n.Expression.Operand.Type(), exprVoid, fNoCondAssignment) + } + p.w("; ") + if n.Expression2 != nil { + p.expression(f, n.Expression2, n.Expression2.Operand.Type(), exprBool, 0) + } + p.w("; ") + if n.Expression3 != nil { + p.expression(f, n.Expression3, n.Expression3.Operand.Type(), exprVoid, fNoCondAssignment) + } + p.statement(f, n.Statement, true, false, false, 0) + case cc.IterationStatementForDecl: // "for" '(' Declaration Expression ';' Expression ')' Statement + var ids []*cc.InitDeclarator + for list := n.Declaration.InitDeclaratorList; list != nil; list = list.InitDeclaratorList { + ids = append(ids, list.InitDeclarator) + } + + // declaration + // a: if !expr goto c + // stmt + // b: expr2 // label for continue + // goto a + // c: + a := f.flatLabel() + b := f.flatLabel() + f.continueCtx = b + c := f.flatLabel() + f.breakCtx = c + p.w("{") + p.declaration(f, n.Declaration, false) + p.w(";") + p.w("__%d:", a) + if n.Expression != nil { + p.w("if !(") + p.expression(f, n.Expression, n.Expression.Operand.Type(), exprBool, 0) + p.w(") { goto __%d }", c) + } + p.w(";") + p.statement(f, n.Statement, false, false, false, 0) + p.w(";goto __%d; __%[1]d:", b) + if n.Expression2 != nil { + p.expression(f, n.Expression2, n.Expression2.Operand.Type(), exprVoid, fNoCondAssignment) + } + p.w("; goto __%d; goto __%d;__%[2]d:\n}", a, c) + default: + panic(todo("%v: internal error: %v", n.Position(), n.Case)) + } +} + +func (p *project) selectionStatement(f *function, n *cc.SelectionStatement) { + p.w("%s", tidyComment("\n", n)) + switch n.Case { + case cc.SelectionStatementIf: // "if" '(' Expression ')' Statement + sv := f.ifCtx + f.ifCtx = n + defer func() { f.ifCtx = sv }() + if f.hasJumps { + // if !expr goto a + // stmt + // a: + f.ifCtx = n + a := f.flatLabel() + p.w("if !(") + p.expression(f, n.Expression, n.Expression.Operand.Type(), exprBool, 0) + p.w(") { goto __%d };", a) + p.statement(f, n.Statement, false, false, false, 0) + p.w(";__%d: ", a) + break + } + + p.w("if ") + p.expression(f, n.Expression, n.Expression.Operand.Type(), exprBool, 0) + p.statement(f, n.Statement, true, false, false, 0) + case cc.SelectionStatementIfElse: // "if" '(' Expression ')' Statement "else" Statement + sv := f.ifCtx + f.ifCtx = n + defer func() { f.ifCtx = sv }() + if f.hasJumps { + // if !expr goto a + // stmt + // goto b + // a: + // stmt2 + // b: + a := f.flatLabel() + b := f.flatLabel() + p.w("if !(") + p.expression(f, n.Expression, n.Expression.Operand.Type(), exprBool, 0) + p.w(") { goto __%d };", a) + p.statement(f, n.Statement, false, false, false, 0) + p.w(";goto __%d; __%d:", b, a) + p.statement(f, n.Statement2, false, false, false, 0) + p.w(";__%d:", b) + break + } + + p.w("if ") + p.expression(f, n.Expression, n.Expression.Operand.Type(), exprBool, 0) + p.statement(f, n.Statement, true, false, false, 0) + p.w(" else ") + switch { + case p.isIfStmt(n.Statement2): + p.statement(f, n.Statement2, false, true, false, 0) + default: + p.statement(f, n.Statement2, true, false, false, 0) + } + case cc.SelectionStatementSwitch: // "switch" '(' Expression ')' Statement + sv := f.switchCtx + svBreakCtx := f.breakCtx + f.breakCtx = 0 + defer func() { + f.switchCtx = sv + f.breakCtx = svBreakCtx + }() + if f.hasJumps { + f.switchCtx = inSwitchFlat + p.flatSwitch(f, n) + break + } + + f.switchCtx = inSwitchFirst + p.w("switch ") + p.expression(f, n.Expression, n.Promote(), exprValue, 0) + p.statement(f, n.Statement, true, false, true, 0) + default: + panic(todo("%v: internal error: %v", n.Position(), n.Case)) + } +} + +func (p *project) isIfStmt(n *cc.Statement) bool { + if n.Case != cc.StatementSelection { + return false + } + + switch n.SelectionStatement.Case { + case cc.SelectionStatementIf, cc.SelectionStatementIfElse: + return true + } + + return false +} + +func (p *project) flatSwitch(f *function, n *cc.SelectionStatement) { + if n.Statement.Case != cc.StatementCompound { + panic(todo("", p.pos(n))) + } + + sv := f.block + f.block = f.blocks[n.Statement.CompoundStatement] + defer func() { f.block = sv }() + // "switch" '(' Expression ')' Statement + cases := n.Cases() + labels := map[*cc.LabeledStatement]int{} + svBreakCtx := f.breakCtx + f.breakCtx = f.flatLabel() + p.w("switch ") + p.expression(f, n.Expression, n.Promote(), exprValue, 0) + p.w("{") + for _, ls := range cases { + switch ls.Case { + case cc.LabeledStatementLabel: // IDENTIFIER ':' AttributeSpecifierList Statement + continue + case cc.LabeledStatementCaseLabel: // "case" ConstantExpression ':' Statement + p.w("%scase ", tidyComment("\n", ls)) + p.constantExpression(f, ls.ConstantExpression, ls.ConstantExpression.Operand.Type(), exprValue, 0) + p.w(":") + case cc.LabeledStatementDefault: // "default" ':' Statement + p.w("%sdefault:", tidyComment("\n", ls)) + case cc.LabeledStatementRange: // "case" ConstantExpression "..." ConstantExpression ':' Statement + panic(todo("", p.pos(n))) + default: + panic(todo("%v: internal error: %v", n.Position(), n.Case)) + } + label := f.flatLabel() + labels[ls] = label + p.w("goto __%d;", label) + } + p.w("}; goto __%d;", f.breakCtx) + svLabels := f.flatSwitchLabels + f.flatSwitchLabels = labels + p.statement(f, n.Statement, false, true, false, 0) + f.flatSwitchLabels = svLabels + p.w("__%d:", f.breakCtx) + f.breakCtx = svBreakCtx +} + +func (p *project) expressionStatement(f *function, n *cc.ExpressionStatement) { + p.w("%s", tidyComment("\n", n)) + // Expression AttributeSpecifierList ';' + if n.Expression == nil { + return + } + + p.expression(f, n.Expression, n.Expression.Operand.Type(), exprVoid, 0) +} + +func (p *project) labeledStatement(f *function, n *cc.LabeledStatement) (r *cc.JumpStatement) { + if f.hasJumps { //TODO merge with ...Flat below + return p.labeledStatementFlat(f, n) + } + + switch n.Case { + case cc.LabeledStatementLabel: // IDENTIFIER ':' AttributeSpecifierList Statement + if _, ok := f.unusedLabels[n.Token.Value]; ok { + p.w("goto %s;", f.labelNames[n.Token.Value]) + } + p.w("%s%s:", comment("\n", n), f.labelNames[n.Token.Value]) + r = p.statement(f, n.Statement, false, false, false, 0) + case + cc.LabeledStatementCaseLabel, // "case" ConstantExpression ':' Statement + cc.LabeledStatementDefault: // "default" ':' Statement + + p.labeledStatementCase(f, n) + case cc.LabeledStatementRange: // "case" ConstantExpression "..." ConstantExpression ':' Statement + panic(todo("", n.Position(), n.Case)) + default: + panic(todo("%v: internal error: %v", n.Position(), n.Case)) + } + return r +} + +func (p *project) labeledStatementFlat(f *function, n *cc.LabeledStatement) (r *cc.JumpStatement) { + switch n.Case { + case cc.LabeledStatementLabel: // IDENTIFIER ':' AttributeSpecifierList Statement + if _, ok := f.unusedLabels[n.Token.Value]; ok { + p.w("goto %s;", f.labelNames[n.Token.Value]) + } + p.w("%s%s:", tidyComment("\n", n), f.labelNames[n.Token.Value]) + r = p.statement(f, n.Statement, false, false, false, 0) + case + cc.LabeledStatementCaseLabel, // "case" ConstantExpression ':' Statement + cc.LabeledStatementDefault: // "default" ':' Statement + + p.labeledStatementCase(f, n) + case cc.LabeledStatementRange: // "case" ConstantExpression "..." ConstantExpression ':' Statement + panic(todo("", n.Position(), n.Case)) + default: + panic(todo("%v: internal error: %v", n.Position(), n.Case)) + } + return r +} + +func (p *project) labeledStatementCase(f *function, n *cc.LabeledStatement) { + switch f.switchCtx { + case inSwitchFirst: + f.switchCtx = inSwitchCase + case inSwitchCase: + p.w("\nfallthrough;") + case inSwitchSeenBreak: + f.switchCtx = inSwitchCase + case inSwitchFlat: + // ok + default: + panic(todo("", n.Position(), f.switchCtx)) + } + switch n.Case { + case cc.LabeledStatementCaseLabel: // "case" ConstantExpression ':' Statement + switch { + case f.switchCtx == inSwitchFlat: + p.w("%s__%d:", tidyComment("\n", n), f.flatSwitchLabels[n]) + default: + p.w("%scase ", tidyComment("\n", n)) + p.constantExpression(f, n.ConstantExpression, n.ConstantExpression.Operand.Type(), exprValue, 0) + p.w(":") + } + case cc.LabeledStatementDefault: // "default" ':' Statement + switch { + case f.switchCtx == inSwitchFlat: + p.w("%s__%d:", tidyComment("\n", n), f.flatSwitchLabels[n]) + default: + p.w("%sdefault:", tidyComment("\n", n)) + } + default: + panic(todo("%v: internal error: %v", n.Position(), n.Case)) + } + p.statement(f, n.Statement, false, false, false, 0) +} + +func (p *project) constantExpression(f *function, n *cc.ConstantExpression, t cc.Type, mode exprMode, flags flags) { + // ConditionalExpression + p.conditionalExpression(f, n.ConditionalExpression, t, mode, flags) +} + +func (p *project) functionDefinitionSignature(n cc.Node, f *function, tld *tld) { + switch { + case f.mainSignatureForced: + p.w("%sfunc %s(%s *%sTLS, _ int32, _ uintptr) int32", tidyComment("\n", f.fndef), tld.name, f.tlsName, p.task.crt) + default: + p.w("%s", tidyComment("\n", f.fndef)) + p.functionSignature(n, f, f.fndef.Declarator.Type(), tld.name) + } +} + +func (p *project) functionSignature2(n cc.Node, f *function, t cc.Type, nm string) { + p.w("func %s", nm) + p.w("(_ *%sTLS", p.task.crt) + suffix := 1 + for _, v := range t.Parameters() { + if v.Type().Kind() == cc.Void { + break + } + + pn := "_" + if d := v.Declarator(); d != nil { + pn = d.Name().String() + if _, ok := reservedNames[pn]; ok { + pn += strconv.Itoa(suffix) + suffix++ + } + } + p.w(", %s %s", pn, p.paramTyp(v.Declarator(), v.Type())) + } + if t.IsVariadic() { + p.w(", _ /* va_list */ uintptr") + } + p.w(")") + if rt := t.Result(); rt != nil && rt.Kind() != cc.Void { + p.w(" %s", p.typ(n, rt)) + } +} + +func (p *project) functionSignature(n cc.Node, f *function, t cc.Type, nm string) { + p.w("func") + if nm != "" { + p.w(" %s", nm) + } + switch { + case f == nil || nm == "": + p.w("(*%sTLS", p.task.crt) + default: + p.w("(%s *%sTLS", f.tlsName, p.task.crt) + } + for _, v := range t.Parameters() { + if v.Type().Kind() == cc.Void { + break + } + + var pn string + if f != nil && nm != "" { + pn = "_" + if d := v.Declarator(); d != nil { + if local := f.locals[d]; local != nil { + pn = local.name + } + } + } + p.w(", %s %s", pn, p.paramTyp(v.Declarator(), v.Type())) + } + if t.IsVariadic() { + switch { + case f == nil || nm == "": + p.w(", uintptr") + default: + p.w(", %s uintptr", f.vaName) + } + } + p.w(")") + if rt := t.Result(); rt != nil && rt.Kind() != cc.Void { + p.w(" %s", p.typ(n, rt)) + } +} + +func (p *project) paramTyp(n cc.Node, t cc.Type) string { + if t.Kind() == cc.Array { + return "uintptr" + } + + if isTransparentUnion(t) { + switch k := t.UnionCommon(); k { + case cc.Ptr: + return "uintptr" + default: + panic(todo("%v: %v %k", n, t, k)) + } + } + + return p.typ(n, t) +} + +func (p *project) dbg(a ...interface{}) { + p.w("/*DBG.%v %v */", a, origin(2)) +} + +func (p *project) fnVal(n cc.Node, f *function, expr func(), exprDecl *cc.Declarator, exprType cc.Type, deref int, mode exprMode, flags flags) { + // C type Go type + // fn N/A: produce name from exprDecl + // (*)() func() + // (**)() *func() + + if deref < 0 || deref > 1 { + panic(todo("")) + } + + switch exprType.Kind() { + case cc.Function: + // C: fn + switch deref { + case 0: + p.declarator(n, f, exprDecl, exprType, mode, flags) + default: + panic(todo("", n.Position())) + } + case cc.Ptr: + switch et := exprType.Elem(); et.Kind() { + case cc.Function: + // C: (*)() + switch deref { + case 0: + // (*struct{ f func()})(unsafe.Pointer(&struct{uintptr}{fprintfptr})).f() + p.w("(*struct{ f ") + p.functionSignature(n, f, et, "") + p.w("})(unsafe.Pointer(&struct{uintptr}{") + expr() + p.w("})).f") + default: + p.declarator(n, f, exprDecl, et, mode, flags) + } + case cc.Ptr: + switch et2 := et.Elem(); et2.Kind() { + case cc.Function: + // C: (**)() + switch deref { + case 0: + panic(todo("", n.Position())) + default: + // (*struct{ f func()})(unsafe.Pointer(&struct{uintptr}{fprintfptr})).f() + p.w("(*(**struct{ f ") + p.functionSignature(n, f, et2, "") + p.w("})(unsafe.Pointer(&struct{uintptr}{") + expr() + p.w("}))).f") + } + default: + panic(todo("", n.Position(), et2.Kind(), deref)) + } + default: + panic(todo("", n.Position(), et.Kind(), deref)) + } + default: + panic(todo("", n.Position(), exprType.Kind(), deref)) + } +} diff --git a/vendor/modernc.org/ccgo/v3/lib/init.go b/vendor/modernc.org/ccgo/v3/lib/init.go new file mode 100644 index 00000000..db3ad913 --- /dev/null +++ b/vendor/modernc.org/ccgo/v3/lib/init.go @@ -0,0 +1,553 @@ +// Copyright 2020 The CCGO Authors. All rights reserved. +// Use of this source code is governed by a BSD-style +// license that can be found in the LICENSE file. + +package ccgo // import "modernc.org/ccgo/v3/lib" + +import ( + "fmt" + "sort" + "strings" + + "modernc.org/cc/v3" +) + +func isAggregateTypeOrUnion(t cc.Type) bool { + switch t.Kind() { + case cc.Struct, cc.Union, cc.Array: + return true + } + + return false +} + +// 6.7.8 Initialization +func (p *project) initializer(f *function, n *cc.Initializer, t cc.Type, sc cc.StorageClass, tld *tld) { + lm := map[*cc.Initializer][]cc.StringID{} + tm := map[*cc.Initializer][]cc.StringID{} + s := p.initializerFlatten(n, lm, tm) + sort.Slice(s, func(i, j int) bool { + a := s[i] + b := s[j] + if a.Offset < b.Offset { + return true + } + + if a.Offset > b.Offset { + return false + } + + if a.Field == nil || b.Field == nil || !a.Field.IsBitField() || !b.Field.IsBitField() { + panic(todo("%v: internal error: off %#x, %v: off %#x, t %v", a.Position(), a.Offset, b.Position(), b.Offset, t)) + } + + return a.Field.BitFieldOffset() < b.Field.BitFieldOffset() + }) + p.initializerInner("", 0, f, s, t, sc, tld, nil, lm, tm) +} + +func (p *project) initializerInner(tag string, off uintptr, f *function, s []*cc.Initializer, t cc.Type, sc cc.StorageClass, tld *tld, patchField cc.Field, lm, tm map[*cc.Initializer][]cc.StringID) { + // 11: The initializer for a scalar shall be a single expression, optionally + // enclosed in braces. The initial value of the object is that of the + // expression (after conversion); the same type constraints and conversions as + // for simple assignment apply, taking the type of the scalar to be the + // unqualified version of its declared type. + if t.IsScalarType() && len(s) == 1 { + p.w("%s%s", tidyComment("", s[0]), tag) + switch { + case tld != nil && t.Kind() == cc.Ptr && s[0].AssignmentExpression.Operand.Value() == nil: + tld.patches = append(tld.patches, initPatch{t, s[0], patchField}) + p.w(" 0 ") + default: + p.assignmentExpression(f, s[0].AssignmentExpression, t, exprValue, 0) + } + return + } + + // 12: The rest of this subclause deals with initializers for objects that have + // aggregate or union type. + + k := t.Kind() + + // 13: The initializer for a structure or union object that has automatic + // storage duration shall be either an initializer list as described below, or + // a single expression that has compatible structure or union type. In the + // latter case, the initial value of the object, including unnamed members, is + // that of the expression. + if sc == cc.Automatic && len(s) == 1 { + switch k { + case cc.Struct, cc.Union: + if compatibleStructOrUnion(t, s[0].AssignmentExpression.Operand.Type()) { + p.w("%s%s", tidyComment("", s[0]), tag) + p.assignmentExpression(f, s[0].AssignmentExpression, t, exprValue, 0) + return + } + } + } + + if k == cc.Array && len(s) == 1 { + et := t.Elem() + switch { + case isCharType(et): + // 14: An array of character type may be initialized by a character string + // literal, optionally enclosed in braces. Successive characters of the + // character string literal (including the terminating null character if there + // is room or if the array is of unknown size) initialize the elements of the + // array. + if x, ok := s[0].AssignmentExpression.Operand.Value().(cc.StringValue); ok { + p.w("%s%s", tidyComment("", s[0]), tag) + str := cc.StringID(x).String() + slen := uintptr(len(str)) + 1 + alen := t.Len() + switch { + case alen < slen-1: + p.w("*(*%s)(unsafe.Pointer(%s))", p.typ(s[0], t), p.stringLiteralString(str[:alen])) + case alen < slen: + p.w("*(*%s)(unsafe.Pointer(%s))", p.typ(s[0], t), p.stringLiteralString(str)) + default: // alen >= slen + p.w("*(*%s)(unsafe.Pointer(%s))", p.typ(s[0], t), p.stringLiteralString(str+strings.Repeat("\x00", int(alen-slen)))) + } + return + } + case p.isWCharType(et): + // 15: An array with element type compatible with wchar_t may be initialized by + // a wide string literal, optionally enclosed in braces. Successive wide + // characters of the wide string literal (including the terminating null wide + // character if there is room or if the array is of unknown size) initialize + // the elements of the array. + if x, ok := s[0].AssignmentExpression.Operand.Value().(cc.WideStringValue); ok { + p.w("%s%s", tidyComment("", s[0]), tag) + str := []rune(cc.StringID(x).String()) + slen := uintptr(len(str)) + 1 + alen := t.Len() + switch { + case alen < slen-1: + panic(todo("", p.pos(s[0]))) + case alen < slen: + p.w("*(*%s)(unsafe.Pointer(%s))", p.typ(s[0], t), p.wideStringLiteral(x, 0)) + default: // alen >= slen + p.w("*(*%s)(unsafe.Pointer(%s))", p.typ(s[0], t), p.wideStringLiteral(x, int(alen-slen))) + } + return + } + } + } + + // 16: Otherwise, the initializer for an object that has aggregate or union + // type shall be a brace-enclosed list of initializers for the elements or + // named members. + switch k { + case cc.Array: + p.initializerArray(tag, off, f, s, t, sc, tld, lm, tm) + case cc.Struct: + p.initializerStruct(tag, off, f, s, t, sc, tld, lm, tm) + case cc.Union: + p.initializerUnion(tag, off, f, s, t, sc, tld, lm, tm) + default: + panic(todo("%v: internal error: %v alias %v %v", s[0].Position(), t, t.Alias(), len(s))) + } +} + +func (p *project) initializerArray(tag string, off uintptr, f *function, s []*cc.Initializer, t cc.Type, sc cc.StorageClass, tld *tld, lm, tm map[*cc.Initializer][]cc.StringID) { + if len(s) == 0 { + p.w("%s%s{}", tag, p.typ(nil, t)) + return + } + + et := t.Elem() + esz := et.Size() + s0 := s[0] + p.w("%s%s%s{", initComment(s0, lm), tag, p.typ(s0, t)) + var a [][]*cc.Initializer + for len(s) != 0 { + s2, parts, _ := p.initializerArrayElement(off, s, esz) + s = s2 + a = append(a, parts) + } + mustIndex := uintptr(len(a)) != t.Len() + var parts []*cc.Initializer + for _, parts = range a { + var comma *cc.Token + comma = parts[len(parts)-1].TrailingComma() + elemOff := (parts[0].Offset - off) / esz * esz + tag = "" + if mustIndex { + tag = fmt.Sprintf("%d:", elemOff/esz) + } + p.initializerInner(tag, off+elemOff, f, parts, et, sc, tld, nil, lm, tm) + p.preCommaSep(comma) + p.w(",") + } + p.w("%s}", initComment(parts[len(parts)-1], tm)) +} + +func initComment(n *cc.Initializer, m map[*cc.Initializer][]cc.StringID) string { + a := m[n] + if len(a) == 0 { + return "" + } + + m[n] = a[1:] + return tidyCommentString(a[0].String()) +} + +func (p *project) initializerArrayElement(off uintptr, s []*cc.Initializer, elemSize uintptr) (r []*cc.Initializer, parts []*cc.Initializer, isZero bool) { + r = s + isZero = true + valueOff := s[0].Offset - off + elemOff := valueOff - valueOff%elemSize + nextOff := elemOff + elemSize + for len(s) != 0 { + if v := s[0]; v.Offset-off < nextOff { + s = s[1:] + parts = append(parts, v) + if !v.AssignmentExpression.Operand.IsZero() { + isZero = false + } + continue + } + + break + } + return r[len(parts):], parts, isZero +} + +func (p *project) initializerStruct(tag string, off uintptr, f *function, s []*cc.Initializer, t cc.Type, sc cc.StorageClass, tld *tld, lm, tm map[*cc.Initializer][]cc.StringID) { + if len(s) == 0 { + p.w("%s%s{}", tag, p.typ(nil, t)) + return + } + + if t.HasFlexibleMember() { + p.err(s[0], "flexible array members not supported") + return + } + + p.w("%s%s%s{", initComment(s[0], lm), tag, p.typ(s[0], t)) + var parts []*cc.Initializer + var isZero bool + var fld cc.Field + for len(s) != 0 { + var comma *cc.Token + s, fld, parts, isZero = p.structInitializerParts(off, s, t) + if isZero { + continue + } + + if fld.Type().IsIncomplete() { + panic(todo("")) + } + + comma = parts[len(parts)-1].TrailingComma() + tag = fmt.Sprintf("%s:", p.fieldName2(parts[0], fld)) + ft := fld.Type() + switch { + case fld.IsBitField(): + bft := p.bitFileType(parts[0], fld.BitFieldBlockWidth()) + off0 := fld.Offset() + first := true + for _, v := range parts { + if v.AssignmentExpression.Operand.IsZero() { + continue + } + + if !first { + p.w("|") + } + first = false + bitFld := v.Field + p.w("%s%s", tidyComment("", v.AssignmentExpression), tag) + tag = "" + p.assignmentExpression(f, v.AssignmentExpression, bft, exprValue, 0) + p.w("&%#x", uint64(1)<<uint64(bitFld.BitFieldWidth())-1) + if o := bitFld.BitFieldOffset() + 8*int((bitFld.Offset()-off0)); o != 0 { + p.w("<<%d", o) + } + } + default: + p.initializerInner(tag, off+fld.Offset(), f, parts, ft, sc, tld, fld, lm, tm) + } + p.preCommaSep(comma) + p.w(",") + } + p.w("%s}", initComment(parts[len(parts)-1], tm)) +} + +func (p *project) preCommaSep(comma *cc.Token) { + if comma == nil { + return + } + + p.w("%s", strings.TrimSpace(comma.Sep.String())) +} + +func (p *project) structInitializerParts(off uintptr, s []*cc.Initializer, t cc.Type) (r []*cc.Initializer, fld cc.Field, parts []*cc.Initializer, isZero bool) { + if len(s) == 0 { + return nil, nil, nil, true + } + + part := s[0] + isZero = part.AssignmentExpression.Operand.IsZero() + parts = append(parts, part) + s = s[1:] + fld, _, fNext := p.containingStructField(part, off, t) + for len(s) != 0 { + part = s[0] + vOff := part.Offset + if vOff >= fNext { + break + } + + isZero = isZero && part.AssignmentExpression.Operand.IsZero() + parts = append(parts, part) + s = s[1:] + } + return s, fld, parts, isZero +} + +func (p *project) containingStructField(part *cc.Initializer, off uintptr, t cc.Type) (f cc.Field, fOff, fNext uintptr) { + nf := t.NumField() + vOff := part.Offset + for i := []int{0}; i[0] < nf; i[0]++ { + f = t.FieldByIndex(i) + if f.IsBitField() && f.Name() == 0 { // Anonymous bit fields cannot be initialized. + continue + } + + fOff = off + f.Offset() + switch { + case f.IsBitField(): + fNext = fOff + uintptr(f.BitFieldBlockWidth())>>3 + default: + fNext = fOff + f.Type().Size() + } + if vOff >= fOff && vOff < fNext { + return f, fOff, fNext + } + } + + panic(todo("%v: internal error", pos(part))) +} + +func (p *project) initializerUnion(tag string, off uintptr, f *function, s []*cc.Initializer, t cc.Type, sc cc.StorageClass, tld *tld, lm, tm map[*cc.Initializer][]cc.StringID) { + if len(s) == 0 { + p.w("%s%s{}", tag, p.typ(nil, t)) + return + } + + if t.HasFlexibleMember() { + p.err(s[0], "flexible array members not supported") + return + } + + parts, isZero := p.initializerUnionField(off, s, t) + if len(parts) == 0 || isZero { + p.w("%s%s%s{", initComment(s[0], lm), tag, p.typ(s[0], t)) + p.w("%s}", initComment(parts[len(parts)-1], tm)) + return + } + + p.w("%sfunc() (r %s) {", tag, p.typ(parts[0], t)) + for _, part := range parts { + var ft cc.Type + fld := part.Field + if fld != nil && fld.IsBitField() { + } + + if ft == nil { + ft = part.Type() + } + if ft.Kind() == cc.Array { + et := ft.Elem() + switch { + case isCharType(et): + switch x := part.AssignmentExpression.Operand.Value().(type) { + case cc.StringValue: + str := cc.StringID(x).String() + slen := uintptr(len(str)) + 1 + alen := ft.Len() + switch { + case alen < slen-1: + p.w("copy(((*[%d]byte)(unsafe.Pointer(uintptr(unsafe.Pointer(&r))+%d)))[:], (*[%d]byte)(unsafe.Pointer(%s))[:])\n", alen, part.Offset-off, alen, p.stringLiteralString(str[:alen])) + case alen < slen: + p.w("copy(((*[%d]byte)(unsafe.Pointer(uintptr(unsafe.Pointer(&r))+%d)))[:], (*[%d]byte)(unsafe.Pointer(%s))[:])\n", alen, part.Offset-off, alen, p.stringLiteralString(str)) + default: // alen >= slen + p.w("copy(((*[%d]byte)(unsafe.Pointer(uintptr(unsafe.Pointer(&r))+%d)))[:], (*[%d]byte)(unsafe.Pointer(%s))[:])\n", alen, part.Offset-off, alen, p.stringLiteralString(str+strings.Repeat("\x00", int(alen-slen)))) + } + continue + default: + panic(todo("%v: %v <- %T", pos(part), et, x)) + } + case p.isWCharType(et): + panic(todo("")) + } + ft = et + } + switch { + case fld != nil && fld.IsBitField(): + bft := p.bitFileType(part, fld.BitFieldBlockWidth()) + p.w("*(*%s)(unsafe.Pointer(uintptr(unsafe.Pointer(&r))+%d)) |= ", p.typ(part, bft), part.Offset-off) + p.assignmentExpression(f, part.AssignmentExpression, bft, exprValue, 0) + p.w("&%#x", uint64(1)<<uint64(fld.BitFieldWidth())-1) + if o := fld.BitFieldOffset(); o != 0 { + p.w("<<%d", o) + } + default: + p.w("*(*%s)(unsafe.Pointer(uintptr(unsafe.Pointer(&r))+%d)) = ", p.typ(part, ft), part.Offset-off) + p.assignmentExpression(f, part.AssignmentExpression, ft, exprValue, 0) + } + p.w("\n") + } + p.w("return r\n") + p.w("}()") +} + +func (p *project) initializerUnionField(off uintptr, s []*cc.Initializer, t cc.Type) (parts []*cc.Initializer, isZero bool) { + isZero = true + nextOff := off + t.Size() + for len(s) != 0 { + if v := s[0]; v.Offset < nextOff { + s = s[1:] + parts = append(parts, v) + isZero = isZero && v.AssignmentExpression.Operand.IsZero() + continue + } + + break + } + return parts, isZero +} + +func compatibleStructOrUnion(t1, t2 cc.Type) bool { + switch t1.Kind() { + case cc.Struct: + if t2.Kind() != cc.Struct { + return false + } + case cc.Union: + if t2.Kind() != cc.Union { + return false + } + default: + return false + } + + if tag := t1.Tag(); tag != 0 && t2.Tag() != tag { + return false + } + + nf := t1.NumField() + if t2.NumField() != nf { + return false + } + + for i := []int{0}; i[0] < nf; i[0]++ { + f1 := t1.FieldByIndex(i) + f2 := t2.FieldByIndex(i) + nm := f1.Name() + if f2.Name() != nm { + return false + } + + ft1 := f1.Type() + ft2 := f2.Type() + if ft1.Size() != ft2.Size() || + f1.IsBitField() != f2.IsBitField() || + f1.BitFieldOffset() != f2.BitFieldOffset() || + f1.BitFieldWidth() != f2.BitFieldWidth() { + return false + } + + if !compatibleType(ft1, ft2) { + return false + } + } + return true +} + +func compatibleType(t1, t2 cc.Type) bool { + if t1.Kind() != t2.Kind() { + return false + } + + switch t1.Kind() { + case cc.Array: + if t1.Len() != t2.Len() || !compatibleType(t1.Elem(), t2.Elem()) { + return false + } + case cc.Struct, cc.Union: + if !compatibleStructOrUnion(t1, t2) { + return false + } + } + return true +} + +func (p *project) bitFileType(n cc.Node, bits int) cc.Type { + switch bits { + case 8: + return p.task.cfg.ABI.Type(cc.UChar) + case 16: + return p.task.cfg.ABI.Type(cc.UShort) + case 32: + return p.task.cfg.ABI.Type(cc.UInt) + case 64: + return p.task.cfg.ABI.Type(cc.ULongLong) + default: + panic(todo("%v: internal error: %v", n.Position(), bits)) + } +} + +func (p *project) isWCharType(t cc.Type) bool { + if t.IsAliasType() { + if id := t.AliasDeclarator().Name(); id == idWcharT || + p.task.goos == "windows" && id == idWinWchar { + return true + } + } + + return false +} + +func isCharType(t cc.Type) bool { + switch t.Kind() { + case cc.Char, cc.SChar, cc.UChar: + return true + } + + return false +} + +func (p *project) initializerFlatten(n *cc.Initializer, lm, tm map[*cc.Initializer][]cc.StringID) (s []*cc.Initializer) { + switch n.Case { + case cc.InitializerExpr: // AssignmentExpression + return append(s, n) + case cc.InitializerInitList: // '{' InitializerList ',' '}' + first := true + for list := n.InitializerList; list != nil; list = list.InitializerList { + in := list.Initializer + k := in + if in.Case != cc.InitializerExpr { + k = nil + } + if first { + lm[k] = append(lm[k], append(lm[nil], n.Token.Sep)...) + if k != nil { + delete(lm, nil) + } + first = false + } + if list.InitializerList == nil { + tm[k] = append([]cc.StringID{n.Token3.Sep}, append(tm[nil], tm[k]...)...) + tm[k] = append(tm[k], append(tm[nil], n.Token3.Sep)...) + if k != nil { + delete(tm, nil) + } + } + s = append(s, p.initializerFlatten(in, lm, tm)...) + } + return s + default: + panic(todo("%v: internal error: %v", n.Position(), n.Case)) + } +} diff --git a/vendor/modernc.org/ccgo/v3/lib/mem.go b/vendor/modernc.org/ccgo/v3/lib/mem.go new file mode 100644 index 00000000..daf6c923 --- /dev/null +++ b/vendor/modernc.org/ccgo/v3/lib/mem.go @@ -0,0 +1,10 @@ +// Copyright 2020 The CCGO Authors. All rights reserved. +// Use of this source code is governed by a BSD-style +// license that can be found in the LICENSE file. + +//go:build !linux +// +build !linux + +package ccgo // import "modernc.org/ccgo/v3/lib" + +var totalRam uint64 diff --git a/vendor/modernc.org/ccgo/v3/lib/mem_linux.go b/vendor/modernc.org/ccgo/v3/lib/mem_linux.go new file mode 100644 index 00000000..25612c6b --- /dev/null +++ b/vendor/modernc.org/ccgo/v3/lib/mem_linux.go @@ -0,0 +1,20 @@ +// Copyright 2020 The CCGO Authors. All rights reserved. +// Use of this source code is governed by a BSD-style +// license that can be found in the LICENSE file. + +package ccgo // import "modernc.org/ccgo/v3/lib" + +import ( + "golang.org/x/sys/unix" +) + +var totalRam uint64 + +func init() { + var si unix.Sysinfo_t + if unix.Sysinfo(&si) != nil { + return + } + + totalRam = uint64(si.Totalram) +} diff --git a/vendor/modernc.org/ccgo/v3/lib/nodmesg.go b/vendor/modernc.org/ccgo/v3/lib/nodmesg.go new file mode 100644 index 00000000..8871c8ec --- /dev/null +++ b/vendor/modernc.org/ccgo/v3/lib/nodmesg.go @@ -0,0 +1,12 @@ +// Copyright 2020 The Libc Authors. All rights reserved. +// Use of this source code is governed by a BSD-style +// license that can be found in the LICENSE file. + +//go:build !ccgo.dmesg +// +build !ccgo.dmesg + +package ccgo // import "modernc.org/ccgo/v3/lib" + +const dmesgs = false + +func dmesg(s string, args ...interface{}) {} diff --git a/vendor/modernc.org/ccgo/v3/lib/stringer.go b/vendor/modernc.org/ccgo/v3/lib/stringer.go new file mode 100644 index 00000000..9aaaccfe --- /dev/null +++ b/vendor/modernc.org/ccgo/v3/lib/stringer.go @@ -0,0 +1,57 @@ +// Code generated by "stringer -output stringer.go -type=exprMode,opKind"; DO NOT EDIT. + +package ccgo + +import "strconv" + +func _() { + // An "invalid array index" compiler error signifies that the constant values have changed. + // Re-run the stringer command to generate them again. + var x [1]struct{} + _ = x[exprAddrOf-1] + _ = x[exprBool-2] + _ = x[exprCondInit-3] + _ = x[exprCondReturn-4] + _ = x[exprDecay-5] + _ = x[exprFunc-6] + _ = x[exprLValue-7] + _ = x[exprPSelect-8] + _ = x[exprSelect-9] + _ = x[exprValue-10] + _ = x[exprVoid-11] +} + +const _exprMode_name = "exprAddrOfexprBoolexprCondInitexprCondReturnexprDecayexprFuncexprLValueexprPSelectexprSelectexprValueexprVoid" + +var _exprMode_index = [...]uint8{0, 10, 18, 30, 44, 53, 61, 71, 82, 92, 101, 109} + +func (i exprMode) String() string { + i -= 1 + if i < 0 || i >= exprMode(len(_exprMode_index)-1) { + return "exprMode(" + strconv.FormatInt(int64(i+1), 10) + ")" + } + return _exprMode_name[_exprMode_index[i]:_exprMode_index[i+1]] +} +func _() { + // An "invalid array index" compiler error signifies that the constant values have changed. + // Re-run the stringer command to generate them again. + var x [1]struct{} + _ = x[opNormal-0] + _ = x[opArray-1] + _ = x[opArrayParameter-2] + _ = x[opFunction-3] + _ = x[opUnion-4] + _ = x[opBitfield-5] + _ = x[opStruct-6] +} + +const _opKind_name = "opNormalopArrayopArrayParameteropFunctionopUnionopBitfieldopStruct" + +var _opKind_index = [...]uint8{0, 8, 15, 31, 41, 48, 58, 66} + +func (i opKind) String() string { + if i < 0 || i >= opKind(len(_opKind_index)-1) { + return "opKind(" + strconv.FormatInt(int64(i), 10) + ")" + } + return _opKind_name[_opKind_index[i]:_opKind_index[i+1]] +} diff --git a/vendor/modernc.org/ccgo/v3/lib/unconvert.sh b/vendor/modernc.org/ccgo/v3/lib/unconvert.sh new file mode 100644 index 00000000..af3b87f8 --- /dev/null +++ b/vendor/modernc.org/ccgo/v3/lib/unconvert.sh @@ -0,0 +1,4 @@ +until unconvert -fastmath . &> /dev/null +do + unconvert -fastmath -apply . &> /dev/null +done diff --git a/vendor/modernc.org/ccgo/v3/lib/util.go b/vendor/modernc.org/ccgo/v3/lib/util.go new file mode 100644 index 00000000..f11e439c --- /dev/null +++ b/vendor/modernc.org/ccgo/v3/lib/util.go @@ -0,0 +1,458 @@ +// Copyright 2020 The CCGO Authors. All rights reserved. +// Use of this source code is governed by a BSD-style +// license that can be found in the LICENSE file. + +// generator.go helpers + +package ccgo // import "modernc.org/ccgo/v3/lib" + +import ( + "archive/tar" + "bufio" + "bytes" + "compress/gzip" + "fmt" + "io" + "io/ioutil" + "os" + "os/exec" + "path/filepath" + "runtime/debug" + "strings" +) + +// CopyFile copies src to dest, preserving permissions and times where/when +// possible. If canOverwrite is not nil, it is consulted whether a destination +// file can be overwritten. If canOverwrite is nil then destination is +// overwritten if permissions allow that, otherwise the function fails. +// +// Src and dst must be in the slash form. +func CopyFile(dst, src string, canOverwrite func(fn string, fi os.FileInfo) bool) (n int64, rerr error) { + dst = filepath.FromSlash(dst) + dstDir := filepath.Dir(dst) + di, err := os.Stat(dstDir) + switch { + case err != nil: + if !os.IsNotExist(err) { + return 0, err + } + + if err := os.MkdirAll(dstDir, 0770); err != nil { + return 0, err + } + case err == nil: + if !di.IsDir() { + return 0, fmt.Errorf("cannot create directory, file exists: %s", dst) + } + } + + src = filepath.FromSlash(src) + si, err := os.Stat(src) + if err != nil { + return 0, err + } + + if si.IsDir() { + return 0, fmt.Errorf("cannot copy a directory: %s", src) + } + + di, err = os.Stat(dst) + switch { + case err != nil && !os.IsNotExist(err): + return 0, err + case err == nil: + if di.IsDir() { + return 0, fmt.Errorf("cannot overwite a directory: %s", dst) + } + + if canOverwrite != nil && !canOverwrite(dst, di) { + return 0, fmt.Errorf("cannot overwite: %s", dst) + } + } + + s, err := os.Open(src) + if err != nil { + return 0, err + } + + defer s.Close() + r := bufio.NewReader(s) + + d, err := os.Create(dst) + + defer func() { + if err := d.Close(); err != nil && rerr == nil { + rerr = err + return + } + + if err := os.Chmod(dst, si.Mode()); err != nil && rerr == nil { + rerr = err + return + } + + if err := os.Chtimes(dst, si.ModTime(), si.ModTime()); err != nil && rerr == nil { + rerr = err + return + } + }() + + w := bufio.NewWriter(d) + + defer func() { + if err := w.Flush(); err != nil && rerr == nil { + rerr = err + } + }() + + return io.Copy(w, r) +} + +// MustCopyFile is like CopyFile but it executes Fatal(stackTrace, err) if it fails. +func MustCopyFile(stackTrace bool, dst, src string, canOverwrite func(fn string, fi os.FileInfo) bool) int64 { + n, err := CopyFile(dst, src, canOverwrite) + if err != nil { + Fatal(stackTrace, err) + } + + return n +} + +// CopyDir recursively copies src to dest, preserving permissions and times +// where/when possible. If canOverwrite is not nil, it is consulted whether a +// destination file can be overwritten. If canOverwrite is nil then destination +// is overwritten if permissions allow that, otherwise the function fails. +// +// Src and dst must be in the slash form. +func CopyDir(dst, src string, canOverwrite func(fn string, fi os.FileInfo) bool) (files int, bytes int64, rerr error) { + dst = filepath.FromSlash(dst) + src = filepath.FromSlash(src) + si, err := os.Stat(src) + if err != nil { + return 0, 0, err + } + + if !si.IsDir() { + return 0, 0, fmt.Errorf("cannot copy a file: %s", src) + } + + return files, bytes, filepath.Walk(src, func(path string, info os.FileInfo, err error) error { + if err != nil { + return err + } + + rel, err := filepath.Rel(src, path) + if err != nil { + return err + } + + if info.IsDir() { + return os.MkdirAll(filepath.Join(dst, rel), 0770) + } + + n, err := CopyFile(filepath.Join(dst, rel), path, canOverwrite) + if err != nil { + return err + } + + files++ + bytes += n + return nil + }) +} + +// MustCopyDir is like CopyDir, but it executes Fatal(stackTrace, errĂº if it fails. +func MustCopyDir(stackTrace bool, dst, src string, canOverwrite func(fn string, fi os.FileInfo) bool) (files int, bytes int64) { + file, bytes, err := CopyDir(dst, src, canOverwrite) + if err != nil { + Fatal(stackTrace, err) + } + + return file, bytes +} + +// UntarFile extracts a named tar.gz archive into dst. If canOverwrite is not +// nil, it is consulted whether a destination file can be overwritten. If +// canOverwrite is nil then destination is overwritten if permissions allow +// that, otherwise the function fails. +// +// Src and dst must be in the slash form. +func UntarFile(dst, src string, canOverwrite func(fn string, fi os.FileInfo) bool) error { + f, err := os.Open(filepath.FromSlash(src)) + if err != nil { + return err + } + + defer f.Close() + + return Untar(dst, bufio.NewReader(f), canOverwrite) +} + +// MustUntarFile is like UntarFile but it executes Fatal(stackTrace, err) if it fails. +func MustUntarFile(stackTrace bool, dst, src string, canOverwrite func(fn string, fi os.FileInfo) bool) { + if err := UntarFile(dst, src, canOverwrite); err != nil { + Fatal(stackTrace, err) + } +} + +// Untar extracts a tar.gz archive into dst. If canOverwrite is not nil, it is +// consulted whether a destination file can be overwritten. If canOverwrite is +// nil then destination is overwritten if permissions allow that, otherwise the +// function fails. +// +// Dst must be in the slash form. +func Untar(dst string, r io.Reader, canOverwrite func(fn string, fi os.FileInfo) bool) error { + dst = filepath.FromSlash(dst) + gr, err := gzip.NewReader(r) + if err != nil { + return err + } + + tr := tar.NewReader(gr) + for { + hdr, err := tr.Next() + if err != nil { + if err != io.EOF { + return err + } + + return nil + } + + switch hdr.Typeflag { + case tar.TypeDir: + dir := filepath.Join(dst, hdr.Name) + if err = os.MkdirAll(dir, 0770); err != nil { + return err + } + case tar.TypeSymlink, tar.TypeXGlobalHeader: + // skip + case tar.TypeReg, tar.TypeRegA: + dir := filepath.Dir(filepath.Join(dst, hdr.Name)) + if _, err := os.Stat(dir); err != nil { + if !os.IsNotExist(err) { + return err + } + + if err = os.MkdirAll(dir, 0770); err != nil { + return err + } + } + + fn := filepath.Join(dst, hdr.Name) + f, err := os.OpenFile(fn, os.O_CREATE|os.O_WRONLY, os.FileMode(hdr.Mode)) + if err != nil { + return err + } + + w := bufio.NewWriter(f) + if _, err = io.Copy(w, tr); err != nil { + return err + } + + if err := w.Flush(); err != nil { + return err + } + + if err := f.Close(); err != nil { + return err + } + + if err := os.Chtimes(fn, hdr.AccessTime, hdr.ModTime); err != nil { + return err + } + default: + return fmt.Errorf("unexpected tar header typeflag %#02x", hdr.Typeflag) + } + } + +} + +// MustUntar is like Untar but it executes Fatal(stackTrace, err) if it fails. +func MustUntar(stackTrace bool, dst string, r io.Reader, canOverwrite func(fn string, fi os.FileInfo) bool) { + if err := Untar(dst, r, canOverwrite); err != nil { + Fatal(stackTrace, err) + } +} + +// Fatalf prints a formatted message to os.Stderr and performs os.Exit(1). A +// stack trace is added if stackTrace is true. +func Fatalf(stackTrace bool, s string, args ...interface{}) { + if stackTrace { + fmt.Fprintf(os.Stderr, "%s\n", debug.Stack()) + } + fmt.Fprintln(os.Stderr, strings.TrimSpace(fmt.Sprintf(s, args...))) + os.Exit(1) +} + +// Fatal prints its argumenst to os.Stderr and performs os.Exit(1). A +// stack trace is added if stackTrace is true. +func Fatal(stackTrace bool, args ...interface{}) { + if stackTrace { + fmt.Fprintf(os.Stderr, "%s\n", debug.Stack()) + } + fmt.Fprintln(os.Stderr, strings.TrimSpace(fmt.Sprint(args...))) + os.Exit(1) +} + +// Mkdirs will create all paths. Paths must be in slash form. +func Mkdirs(paths ...string) error { + for _, path := range paths { + path = filepath.FromSlash(path) + if err := os.MkdirAll(path, 0770); err != nil { + return err + } + } + + return nil +} + +// MustMkdirs is like Mkdir but if executes Fatal(stackTrace, err) if it fails. +func MustMkdirs(stackTrace bool, paths ...string) { + if err := Mkdirs(paths...); err != nil { + Fatal(stackTrace, err) + } +} + +// InDir executes f in dir. Dir must be in slash form. +func InDir(dir string, f func() error) (err error) { + var cwd string + if cwd, err = os.Getwd(); err != nil { + return err + } + + defer func() { + if err2 := os.Chdir(cwd); err2 != nil { + err = err2 + } + }() + + if err = os.Chdir(filepath.FromSlash(dir)); err != nil { + return err + } + + return f() +} + +// MustInDir is like InDir but it executes Fatal(stackTrace, err) if it fails. +func MustInDir(stackTrace bool, dir string, f func() error) { + if err := InDir(dir, f); err != nil { + Fatal(stackTrace, err) + } +} + +type echoWriter struct { + w bytes.Buffer +} + +func (w *echoWriter) Write(b []byte) (int, error) { + os.Stdout.Write(b) + return w.w.Write(b) +} + +// Shell echoes and executes cmd with args and returns the combined output if the command. +func Shell(cmd string, args ...string) ([]byte, error) { + cmd, err := exec.LookPath(cmd) + if err != nil { + return nil, err + } + + wd, err := AbsCwd() + if err != nil { + return nil, err + } + + fmt.Printf("execute %s %q in %s\n", cmd, args, wd) + var b echoWriter + c := exec.Command(cmd, args...) + c.Stdout = &b + c.Stderr = &b + err = c.Run() + return b.w.Bytes(), err +} + +// MustShell is like Shell but it executes Fatal(stackTrace, err) if it fails. +func MustShell(stackTrace bool, cmd string, args ...string) []byte { + b, err := Shell(cmd, args...) + if err != nil { + Fatalf(stackTrace, "%v %s\noutput: %s\nerr: %s", cmd, args, b, err) + } + + return b +} + +// Compile executes Shell with cmd set to "ccgo". +func Compile(args ...string) ([]byte, error) { return Shell("ccgo", args...) } + +// MustCompile is like Compile but if executes Fatal(stackTrace, err) if it fails. +func MustCompile(stackTrace bool, args ...string) []byte { + return MustShell(stackTrace, "ccgo", args...) +} + +// Run is like Compile, but executes in-process. +func Run(args ...string) ([]byte, error) { + var b bytes.Buffer + t := NewTask(append([]string{"ccgo"}, args...), &b, &b) + err := t.Main() + return b.Bytes(), err +} + +// MustRun is like Run but if executes Fatal(stackTrace, err) if it fails. +func MustRun(stackTrace bool, args ...string) []byte { + var b bytes.Buffer + args = append([]string{"ccgo"}, args...) + t := NewTask(args, &b, &b) + if err := t.Main(); err != nil { + Fatalf(stackTrace, "%v\noutput: %s\nerr: %s", args, b.Bytes(), err) + } + + return b.Bytes() +} + +// AbsCwd returns the absolute working directory. +func AbsCwd() (string, error) { + wd, err := os.Getwd() + if err != nil { + return "", err + } + + if wd, err = filepath.Abs(wd); err != nil { + return "", err + } + + return wd, nil +} + +// MustAbsCwd is like AbsCwd but executes Fatal(stackTrace, err) if it fails. +func MustAbsCwd(stackTrace bool) string { + s, err := AbsCwd() + if err != nil { + Fatal(stackTrace, err) + } + + return s +} + +// Env returns the value of environmental variable key of dflt otherwise. +func Env(key, dflt string) string { + if s := os.Getenv(key); s != "" { + return s + } + + return dflt +} + +// MustTempDir is like ioutil.TempDir but executes Fatal(stackTrace, err) if it +// fails. The returned path is absolute. +func MustTempDir(stackTrace bool, dir, name string) string { + s, err := ioutil.TempDir(dir, name) + if err != nil { + Fatal(stackTrace, err) + } + + if s, err = filepath.Abs(s); err != nil { + Fatal(stackTrace, err) + } + + return s +} |