File: link-dll-stdcall.s

package info (click to toggle)
swiftlang 6.1.3-2
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 2,791,604 kB
  • sloc: cpp: 9,901,740; ansic: 2,201,431; asm: 1,091,827; python: 308,252; objc: 82,166; f90: 80,126; lisp: 38,358; pascal: 25,559; sh: 20,429; ml: 5,058; perl: 4,745; makefile: 4,484; awk: 3,535; javascript: 3,018; xml: 918; fortran: 664; cs: 573; ruby: 396
file content (88 lines) | stat: -rw-r--r-- 2,546 bytes parent folder | download | duplicates (22)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
# REQUIRES: x86

## Test creating a DLL and linking against the DLL without using an import
## library.

## Test on i386 with stdcall/fastcall/vectorcall decorated symbols.

## Check that we normally warn about these fixups. If -stdcall-fixup:no
## (--disable-stdcall-fixup on the MinGW linker level) is passed, we don't
## do these fixups. If we -stdcall-fixup (--enable-stdcall-fixup on the MinGW
## linker level) is passed, we don't warn about it at all.

# RUN: split-file %s %t.dir

# RUN: llvm-mc -filetype=obj -triple=i386-windows-gnu %t.dir/lib.s -o %t.lib.o
# RUN: lld-link -safeseh:no -noentry -dll -def:%t.dir/lib.def %t.lib.o -out:%t.lib.dll -implib:%t.implib.lib
# RUN: llvm-mc -filetype=obj -triple=i386-windows-gnu %t.dir/main.s -o %t.main.o
# RUN: lld-link -lldmingw %t.main.o -out:%t.main.exe %t.lib.dll -opt:noref 2>&1 | FileCheck --check-prefix=LOG %s
# RUN: llvm-readobj --coff-imports %t.main.exe | FileCheck %s
# RUN: not lld-link -lldmingw %t.main.o -out:%t.main.exe %t.lib.dll -opt:noref -stdcall-fixup:no 2>&1 | FileCheck --check-prefix=ERROR %s
# RUN: lld-link -lldmingw %t.main.o -out:%t.main.exe %t.lib.dll -opt:noref -stdcall-fixup 2>&1 | count 0

#--- lib.s
  .text
  .globl  _stdcall@8
  .globl  @fastcall@8
  .globl  vectorcall@@8
  .globl  __underscored
_stdcall@8:
  movl    8(%esp), %eax
  addl    4(%esp), %eax
  retl    $8
@fastcall@8:
  movl    8(%esp), %eax
  addl    4(%esp), %eax
  retl    $8
vectorcall@@8:
  movl    8(%esp), %eax
  addl    4(%esp), %eax
  retl    $8
__underscored:
  ret

#--- lib.def
EXPORTS
stdcall
fastcall
vectorcall
_underscored

#--- main.s
.text
.global _mainCRTStartup
_mainCRTStartup:
  pushl   $2
  pushl   $1
  calll   _stdcall@8
  movl    $1, %ecx
  movl    $2, %edx
  calll   @fastcall@8
  movl    $1, %ecx
  movl    $2, %edx
  calll   vectorcall@@8
  pushl   $2
  pushl   $1
  calll   __underscored
  addl    $8, %esp
  xorl    %eax, %eax
  popl    %ebp
  retl

# CHECK:      Import {
# CHECK-NEXT:   Name: link-dll-stdcall.s.tmp.lib.dll
# CHECK-NEXT:   ImportLookupTableRVA:
# CHECK-NEXT:   ImportAddressTableRVA
# CHECK-NEXT:   Symbol: _underscored
# CHECK-NEXT:   Symbol: fastcall
# CHECK-NEXT:   Symbol: stdcall
# CHECK-NEXT:   Symbol: vectorcall
# CHECK-NEXT: }

# LOG-DAG: Resolving vectorcall@@8 by linking to _vectorcall
# LOG-DAG: Resolving @fastcall@8 by linking to _fastcall
# LOG-DAG: Resolving _stdcall@8 by linking to _stdcall

# ERROR-DAG: undefined symbol: _stdcall@8
# ERROR-DAG: undefined symbol: @fastcall@8
# ERROR-DAG: undefined symbol: vectorcall@@8