libffcall-2.2/0000775000000000000000000000000013530357260010250 500000000000000libffcall-2.2/common/0000775000000000000000000000000013530357260011540 500000000000000libffcall-2.2/common/asm-powerpc.sh0000775000000000000000000000263213347755312014265 00000000000000#!/bin/sh # Translate the assembler syntax of powerpc assembler programs # Usage: asm-powerpc.sh < powerpclinux-asm-file > portable-asm-file # The portable-asm-file has to be # 1. preprocessed, # 2. grep -v '^ *#line' | grep -v '^#' # 3. sed -e 's,% ,%,g' -e 's,//.*$,,' # Copyright (C) 2017 Bruno Haible # # This program is free software: you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by # the Free Software Foundation; either version 2 of the License, or # (at your option) any later version. # # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # # You should have received a copy of the GNU General Public License # along with this program. If not, see . tmpscript1=sed$$tmp1 tmpscript2=sed$$tmp2 tmpremove='rm -f $tmpscript1 $tmpscript2' trap "$tmpremove" 1 2 15 cat > $tmpscript1 << \EOF # ----------- Remove #APP/#NO_APP lines and gcc self-identification /^#APP$/d /^#NO_APP$/d /gcc2_compiled/d /gnu_compiled_c/d /\.ident/d EOF cat > $tmpscript2 << \EOF # ----------- Introduce macro syntax for assembler pseudo-ops /\.section\([ ]\+\).*GNU-stack/d EOF sed -f $tmpscript1 | \ sed -f $tmpscript2 eval "$tmpremove" libffcall-2.2/common/asm-m68k.h0000664000000000000000000000517013347755311013204 00000000000000// Assembly language support for m68k CPU. // Bruno Haible 1999-05-29 // Copyright (C) 1999-2017 Bruno Haible // // This program is free software: you can redistribute it and/or modify // it under the terms of the GNU General Public License as published by // the Free Software Foundation; either version 2 of the License, or // (at your option) any later version. // // This program is distributed in the hope that it will be useful, // but WITHOUT ANY WARRANTY; without even the implied warranty of // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the // GNU General Public License for more details. // // You should have received a copy of the GNU General Public License // along with this program. If not, see . // In order not to have to maintain several copies of the assembly language // code, we use some macros which expand into the correct syntax. // These macros are: // C(name) // This expands to the name of the C variable or function `name'. // On Unix BSD systems, this prepends an underscore. // L(label) // This expands to the name of a local label, having the name `label'. // On Unix ELF systems, where there is no underscore, names beginning // with an alphabetic character are automatically exported, so this // prepends a dot. Note that when defining a label, the `:' must // be inside the parentheses, not outside, because otherwise some // ANSI C preprocessor inserts a space between the label and the `:', // and some assemblers don't like this. // DECLARE_FUNCTION(name) // Declare `name' to be a global function. When assembly language // code is compiled into a shared library, ELF linkers need to know // which symbols are functions. // FUNBEGIN(name) // Start the assembly language code for the C function `name'. // FUNEND(name) // End the assembly language code for the C function 'name'. #ifdef ASM_UNDERSCORE // SunOS, NetBSD, OpenBSD, Linux/a.out #define C(entrypoint) _##entrypoint #define L(label) L##label #else // SVR4, A/UX, AMIX, Atari, Linux/ELF #define C(entrypoint) entrypoint #define L(label) .L##label #endif // When assembly language code is compiled into a shared library, ELF linkers // need to know which symbols are functions. #if defined(__NetBSD__) || defined(__OpenBSD__) || defined(__ELF__) || defined(__svr4__) #define DECLARE_FUNCTION(name) .type C(name),@function #define FUNEND(name) .size C(name),.-C(name) #else #define DECLARE_FUNCTION(name) #define FUNEND(name) #endif #define FUNBEGIN(name) C(name): libffcall-2.2/common/asm-x86_64.h0000664000000000000000000002623713347755314013367 00000000000000// Assembly language support for x86_64 CPU. // Bruno Haible 2016-12-28 // Copyright (C) 1997-2018 Bruno Haible // // This program is free software: you can redistribute it and/or modify // it under the terms of the GNU General Public License as published by // the Free Software Foundation; either version 2 of the License, or // (at your option) any later version. // // This program is distributed in the hope that it will be useful, // but WITHOUT ANY WARRANTY; without even the implied warranty of // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the // GNU General Public License for more details. // // You should have received a copy of the GNU General Public License // along with this program. If not, see . // In order not to have to maintain several copies of the assembly language // code, we use some macros which expand into the correct syntax. // These macros are: // C(name) // This expands to the name of the C variable or function `name'. // On Unix BSD systems, this prepends an underscore. // L(label) // This expands to the name of a local label, having the name `label'. // On Unix ELF systems, where there is no underscore, names beginning // with an alphabetic character are automatically exported, so this // prepends a dot. Note that when defining a label, the `:' must // be inside the parentheses, not outside, because otherwise some // ANSI C preprocessor inserts a space between the label and the `:', // and some assemblers don't like this. // R(reg) // This expands to a reference to register `reg'. On Unix, this // prepends a % charater. // NUM(value) // This expands to an immediate value. On Unix, this prepends a $ // character. // ADDR(variable) // This expands to an immediate value, the address of some variable // or function. On Unix, this prepends a $ character. With MSVC, // this prepends the keyword "OFFSET". // ADDR_PCRELATIVE(variable) // This expands to the address of symbol `variable', with program // counter (%rip) relative addressing. // About operand sizes: On Unix, a suffix to the instruction specifies the // size of the operands (for example "movb", "movw", "movl"). With // MSVC, there is no such suffix. Instead, the assembler infers the // operand size from the names of the registers ("al" vs. "ax" vs. // "eax"). This works well in most cases, but in instructions like // "mul [esi]" the assembler guesses the operand size: "byte" by // default. So it is better to explicitly specify the operand size // of memory operands (prefix X1, X2, X4, X8). // (Side note about Unix assemblers: Some Unix assemblers allow you // to write "testb %eax,%eax" but silently treat this as // "testb %al,%al".) // X1 // This prefixes a memory reference of 1 byte. // X2 // This prefixes a memory reference of 2 bytes. // X4 // This prefixes a memory reference of 4 bytes. // X8 // This prefixes a memory reference of 8 bytes. // MEM(base) // This expands to a memory reference at address `base'. // MEM_DISP(base,displacement) // This expands to a memory reference at address `base+displacement'. // MEM_INDEX(base,index) // This expands to a memory reference at address `base+index'. // MEM_SHINDEX(base,index,size) // This expands to a memory reference at address // `base+index*size', where `size' is 1, 2, 4, or 8. // MEM_DISP_SHINDEX0(displacement,index,size) // This expands to a memory reference at address // `displacement+index*size', where `size' is 1, 2, 4, or 8. // MEM_DISP_SHINDEX(base,displacement,index,size) // This expands to a memory reference at address // `base+displacement+index*size', where `size' is 1, 2, 4, or 8. // MEM_PCRELATIVE(variable) // This expands to a memory reference at symbol `variable', with // program counter (%rip) relative addressing. // INDIR(value) // This expands to an implicit indirection. On Unix, this prepends // a * character. // INSN1(mnemonic,size_suffix,dst) // This expands to an instruction with one operand. // INSN2(mnemonic,size_suffix,src,dst) // This expands to an instruction with two operands. In our notation, // `src' comes first and `dst' second, but they are reversed when // expanding to Intel syntax. In Intel syntax, size_suffix is omitted. // INSN2S(mnemonic,size_suffix,src,dst) // This expands to an instruction with two operands. In our notation, // `src' comes first and `dst' second, but they are reversed when // expanding to Intel syntax. In Intel syntax, size_suffix is // preserved. // INSN2MOVXL(mnemonic,size_suffix,src,dst) // This expands to an instruction with two operands, of type // movsbl/movzbl, which in some syntaxes requires a second suffix. // INSN2MOVXQ(mnemonic,size_suffix,src,dst) // This expands to an instruction with two operands, of type // movsbq/movzbq, which in some syntaxes requires a second suffix. // INSN2MOVXLQ(mnemonic,size_suffix,src,dst) // This expands to an instruction with two operands, of type // movslq/movzlq, which in some syntaxes requires a second suffix. // _ // For instructions which don't have a size suffix, like jump // instructions. Expands to nothing. Needed for MSVC, which has // problems with empty macro arguments. // TEXT() // Switch to the code section. // P2ALIGN(log,max) // Align to 2^log bytes, but insert at most max bytes. // GLOBL(name) // Declare `name' to be a global symbol. // DECLARE_FUNCTION(name) // Declare `name' to be a global function. When assembly language // code is compiled into a shared library, ELF linkers need to know // which symbols are functions. // FUNBEGIN(name) // Start the assembly language code for the C function `name'. // FUNEND(name,size_expression) // End the assembly language code for the C function 'name'. // EH_FRAME_SECTION // The arguments to the .section statement that introduces the // exception handler section (on ELF platforms). #ifdef _MSC_VER // MSVC #define C(entrypoint) entrypoint #define L(label) $L##label #else #ifdef ASM_UNDERSCORE // Mac OS X #define C(entrypoint) _##entrypoint #define L(label) L##label #else // Linux/ELF, Solaris/ELF, Windows with GNU as #define C(entrypoint) entrypoint #define L(label) .L##label #endif #endif // The two syntaxes: // - ATT_SYNTAX for GNU assembler version 2. // - INTEL_SYNTAX for MS assembler. // Note: INTEL_SYNTAX is not the same syntax as produced by "gcc masm=intel" // as there are syntactic differences between that syntax and the one accepted // by the MS assembler (for MEM_DISP, INDIR, P2ALIGN, FUNBEGIN, FUNEND etc.). #ifdef _MSC_VER // MS assembler #define R(r) r #define NUM(n) n #define ADDR(a) OFFSET a #define ADDR_PCRELATIVE(a) OFFSET a #define X1 BYTE PTR #define X2 WORD PTR #define X4 DWORD PTR #define X8 QWORD PTR #define MEM(base) [base] #define MEM_DISP(base,displacement) [base+(displacement)] #define MEM_INDEX(base,index) [base+index] #define MEM_SHINDEX(base,index,size) [base+index*size] #define MEM_DISP_SHINDEX0(displacement,index,size) [(displacement)+index*size] #define MEM_DISP_SHINDEX(base,displacement,index,size) [base+(displacement)+index*size] #define MEM_PCRELATIVE(variable) variable #define INDIR(value)value #define INSNCONC(mnemonic,suffix)mnemonic##suffix #define INSN1(mnemonic,size_suffix,dst)mnemonic dst #define INSN2(mnemonic,size_suffix,src,dst)mnemonic dst,src #define INSN2S(mnemonic,size_suffix,src,dst)INSNCONC(mnemonic,size_suffix) dst,src #define INSN2MOVXL(mnemonic,size_suffix,src,dst)INSNCONC(mnemonic,x) dst,src #define INSN2MOVXQ(mnemonic,size_suffix,src,dst)INSNCONC(mnemonic,x) dst,src #define INSN2MOVXLQ(mnemonic,size_suffix,src,dst)INSNCONC(mnemonic,xd) dst,src #else // GNU assembler version 2 #define R(r) %r #define NUM(n) $ n #define ADDR(a) $##a #define ADDR_PCRELATIVE(a) a(%rip) #define X1 #define X2 #define X4 #define X8 #define MEM(base)(R(base)) #define MEM_DISP(base,displacement)displacement(R(base)) #define MEM_INDEX(base,index)(R(base),R(index)) #define MEM_SHINDEX(base,index,size)(R(base),R(index),size) #define MEM_DISP_SHINDEX0(displacement,index,size)displacement(,R(index),size) #define MEM_DISP_SHINDEX(base,displacement,index,size)displacement(R(base),R(index),size) #define MEM_PCRELATIVE(variable) variable(%rip) #define INDIR(value)*value #define INSNCONC(mnemonic,size_suffix)mnemonic##size_suffix #define INSN1(mnemonic,size_suffix,dst)INSNCONC(mnemonic,size_suffix) dst #define INSN2(mnemonic,size_suffix,src,dst)INSNCONC(mnemonic,size_suffix) src,dst #define INSN2S(mnemonic,size_suffix,src,dst)INSNCONC(mnemonic,size_suffix) src,dst #define INSN2MOVXL(mnemonic,size_suffix,src,dst)INSNCONC(mnemonic,size_suffix##l) src,dst #define INSN2MOVXQ(mnemonic,size_suffix,src,dst)INSNCONC(mnemonic,size_suffix##q) src,dst #define INSN2MOVXLQ(mnemonic,size_suffix,src,dst)INSNCONC(mnemonic,size_suffix##q) src,dst #endif #define _ #ifdef _MSC_VER // MS assembler #define TEXT() _TEXT SEGMENT #else #define TEXT() .text #endif #ifdef _MSC_VER // MS assembler // There is no equivalent for "p2align 4,,7". This comes closest: #define P2ALIGN(log,max) ALIGN 8 #else #if defined __sun // Solaris #define P2ALIGN(log,max) .align 1< // // This program is free software: you can redistribute it and/or modify // it under the terms of the GNU General Public License as published by // the Free Software Foundation; either version 2 of the License, or // (at your option) any later version. // // This program is distributed in the hope that it will be useful, // but WITHOUT ANY WARRANTY; without even the implied warranty of // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the // GNU General Public License for more details. // // You should have received a copy of the GNU General Public License // along with this program. If not, see . // In order not to have to maintain several copies of the assembly language // code, we use some macros which expand into the correct syntax. // These macros are: // IMPORT_DATA(symbol) // This expands to an import from the DATA segment, if needed. // TEXT1(), TEXT2() // These expand to two lines that switch to the TEXT section/segment. // GLOBL(symbol) // This expands to a declaration that the given symbol, defined // in this file, shall have global visibility. // DEF(symbol) // This expands to the declaration of a symbol or label. // L(label) // This expands to the name of a local label, having the name `label'. // DECLARE_FUNCTION(name) // Declare `name' to be a global function. When assembly language // code is compiled into a shared library, ELF linkers need to know // which symbols are functions. // FUNEND(name) // End the assembly language code for the C function 'name'. #if defined(__ELF__) /* Linux */ #define IMPORT_DATA(symbol) #define TEXT1() .text #define TEXT2() #define GLOBL(symbol) .globl symbol #define DEF(symbol) symbol: #define L(label) .L##label #define DECLARE_FUNCTION(name) .type name,%function #define FUNEND(name) .size name,.-name #else /* HP-UX */ #define IMPORT_DATA(symbol) .IMPORT symbol,DATA #if 1 #define TEXT1() .SPACE $TEXT$,SORT=8 #define TEXT2() .SUBSPA $CODE$,QUAD=0,ALIGN=8,ACCESS=44,CODE_ONLY,SORT=24 #else #define TEXT1() .code #define TEXT2() #endif #define GLOBL(symbol) .EXPORT symbol,ENTRY,PRIV_LEV=3 #if 1 #define DEF(symbol) symbol #else #define DEF(symbol) .label symbol #endif #define L(label) L$##label #define DECLARE_FUNCTION(name) #define FUNEND(name) #endif libffcall-2.2/common/asm-arm.h0000664000000000000000000000500213347755306013174 00000000000000// Assembly language support for arm CPU. // Bruno Haible 1999-05-29 // Copyright (C) 1999-2017 Bruno Haible // // This program is free software: you can redistribute it and/or modify // it under the terms of the GNU General Public License as published by // the Free Software Foundation; either version 2 of the License, or // (at your option) any later version. // // This program is distributed in the hope that it will be useful, // but WITHOUT ANY WARRANTY; without even the implied warranty of // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the // GNU General Public License for more details. // // You should have received a copy of the GNU General Public License // along with this program. If not, see . // In order not to have to maintain several copies of the assembly language // code, we use some macros which expand into the correct syntax. // These macros are: // C(name) // This expands to the name of the C variable or function `name'. // On Unix BSD systems, this prepends an underscore. // L(label) // This expands to the name of a local label, having the name `label'. // On Unix ELF systems, where there is no underscore, names beginning // with an alphabetic character are automatically exported, so this // prepends a dot. Note that when defining a label, the `:' must // be inside the parentheses, not outside, because otherwise some // ANSI C preprocessor inserts a space between the label and the `:', // and some assemblers don't like this. // DECLARE_FUNCTION(name) // Declare `name' to be a global function. When assembly language // code is compiled into a shared library, ELF linkers need to know // which symbols are functions. // FUNBEGIN(name) // Start the assembly language code for the C function `name'. // FUNEND(name) // End the assembly language code for the C function 'name'. #ifdef ASM_UNDERSCORE #define C(entrypoint) _##entrypoint #define L(label) L##label #else #define C(entrypoint) entrypoint #define L(label) .L##label #endif // When assembly language code is compiled into a shared library, ELF linkers // need to know which symbols are functions. #if defined(__ELF__) || !defined(ASM_UNDERSCORE) #define DECLARE_FUNCTION(name) .type C(name),%function #define FUNEND(name) .size C(name),.-C(name) #else #define DECLARE_FUNCTION(name) #define FUNEND(name) #endif #define FUNBEGIN(name) C(name): libffcall-2.2/common/asm-riscv.sh0000775000000000000000000000255413347755313013740 00000000000000#!/bin/sh # Translate the assembler syntax of RISC-V assembler programs # Usage: asm-riscv.sh < riscvlinux-asm-file > portable-asm-file # The portable-asm-file has to be # 1. preprocessed, # 2. grep -v '^ *#line' | grep -v '^#' # 3. sed -e 's,% ,%,g' -e 's,//.*$,,' # Copyright (C) 2017-2018 Bruno Haible # # This program is free software: you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by # the Free Software Foundation; either version 2 of the License, or # (at your option) any later version. # # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # # You should have received a copy of the GNU General Public License # along with this program. If not, see . tmpscript1=sed$$tmp1 tmpscript2=sed$$tmp2 tmpremove='rm -f $tmpscript1 $tmpscript2' trap "$tmpremove" 1 2 15 cat > $tmpscript1 << \EOF # ----------- Remove gcc self-identification /gcc2_compiled/d /gnu_compiled_c/d /\.ident/d EOF cat > $tmpscript2 << \EOF # ----------- Introduce macro syntax for assembler pseudo-ops /\.section\([ ]\+\).*GNU-stack/d EOF sed -f $tmpscript1 | \ sed -f $tmpscript2 eval "$tmpremove" libffcall-2.2/common/noexecstack.h0000664000000000000000000000022213136760230014131 00000000000000#if defined __linux__ || defined __FreeBSD__ || defined __FreeBSD_kernel__ || defined __DragonFly__ .section .note.GNU-stack,"",@progbits #endif libffcall-2.2/common/asm-hppa.sh0000775000000000000000000000375413347755310013542 00000000000000#!/bin/sh # Translate the assembler syntax of hppa assembler programs # Usage: asm-hppa.sh < hppalinux-asm-file > portable-asm-file # The portable-asm-file has to be # 1. preprocessed, # 2. grep -v '^ *#line' | grep -v '^#' # 3. sed -e "s,!,',g" # Copyright (C) 2017 Bruno Haible # # This program is free software: you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by # the Free Software Foundation; either version 2 of the License, or # (at your option) any later version. # # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # # You should have received a copy of the GNU General Public License # along with this program. If not, see . tmpscript1=sed$$tmp1 tmpscript2=sed$$tmp2 tmpremove='rm -f $tmpscript1 $tmpscript2' trap "$tmpremove" 1 2 15 cat > $tmpscript1 << \EOF # ----------- Remove #APP/#NO_APP lines and gcc self-identification /^#APP$/d /^#NO_APP$/d /gcc2_compiled/d /gnu_compiled_c/d /\.ident/d EOF cat > $tmpscript2 << \EOF # ----------- Turn ' into !, to avoid trouble in preprocessing s,',!,g # ----------- Add some imports /\.LEVEL/{ s/$/\ IMPORT_MILLICODE($$dyncall)/ } # ----------- Section switching s/\.text/TEXT1()\ TEXT2()/ # ----------- Declaration of symbols and labels is different s/^\([A-Za-z0-9_.]\+\):$/DEF(\1)/ # ----------- Label syntax is different /\.LEVEL/!{ s/\.L\([A-Za-z0-9_]\+\)/L(\1)/ } # ----------- Introduce macro syntax for assembler pseudo-ops s/\.globl[ ]\([A-Za-z0-9_]\+\)/GLOBL(\1)/ # ----------- Massage the beginning of functions /\.type/{ s/\.type[ ]\+\([A-Za-z0-9_]*\), *@function/DECLARE_FUNCTION(\1)/ } # ----------- Massage the end of functions s/\.size[ ]\([A-Za-z0-9_]*\),\(.*\)/FUNEND(\1)/ EOF sed -f $tmpscript1 | \ sed -f $tmpscript2 eval "$tmpremove" libffcall-2.2/common/noexecstack-arm.h0000664000000000000000000000022213136760230014706 00000000000000#if defined __linux__ || defined __FreeBSD__ || defined __FreeBSD_kernel__ || defined __DragonFly__ .section .note.GNU-stack,"",%progbits #endif libffcall-2.2/common/asm-hppa.h0000664000000000000000000000522113347755310013343 00000000000000// Assembly language support for hppa CPU. // Bruno Haible 2017-01-23 // Copyright (C) 2017-2018 Bruno Haible // // This program is free software: you can redistribute it and/or modify // it under the terms of the GNU General Public License as published by // the Free Software Foundation; either version 2 of the License, or // (at your option) any later version. // // This program is distributed in the hope that it will be useful, // but WITHOUT ANY WARRANTY; without even the implied warranty of // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the // GNU General Public License for more details. // // You should have received a copy of the GNU General Public License // along with this program. If not, see . // In order not to have to maintain several copies of the assembly language // code, we use some macros which expand into the correct syntax. // These macros are: // IMPORT_MILLICODE(symbol) // This expands to an import from the MILLICODE segment, if needed. // IMPORT_DATA(symbol) // This expands to an import from the DATA segment, if needed. // TEXT1(), TEXT2() // These expand to two lines that switch to the TEXT section/segment. // GLOBL(symbol) // This expands to a declaration that the given symbol, defined // in this file, shall have global visibility. // DEF(symbol) // This expands to the declaration of a symbol or label. // L(label) // This expands to the name of a local label, having the name `label'. // DECLARE_FUNCTION(name) // Declare `name' to be a global function. When assembly language // code is compiled into a shared library, ELF linkers need to know // which symbols are functions. // FUNEND(name) // End the assembly language code for the C function 'name'. #if defined(__ELF__) /* Linux */ #define IMPORT_MILLICODE(symbol) #define IMPORT_DATA(symbol) #define TEXT1() .text #define TEXT2() #define GLOBL(symbol) .globl symbol #define DEF(symbol) symbol: #define L(label) .L##label #define DECLARE_FUNCTION(name) .type name,%function #define FUNEND(name) .size name,.-name #else /* HP-UX */ #define IMPORT_MILLICODE(symbol) .IMPORT symbol,MILLICODE #define IMPORT_DATA(symbol) .IMPORT symbol,DATA #if 1 #define TEXT1() .SPACE $TEXT$ #define TEXT2() .SUBSPA $CODE$,QUAD=0,ALIGN=8,ACCESS=44,CODE_ONLY #else #define TEXT1() .code #define TEXT2() #endif #define GLOBL(symbol) .EXPORT symbol,ENTRY,PRIV_LEV=3 #if 1 #define DEF(symbol) symbol #else #define DEF(symbol) .label symbol #endif #define L(label) L$##label #define DECLARE_FUNCTION(name) #define FUNEND(name) #endif libffcall-2.2/common/asm-mips.h0000664000000000000000000000202313347755312013362 00000000000000// Assembly language support for mips CPU. // Bruno Haible 1999-05-29 // Copyright (C) 1999-2017 Bruno Haible // // This program is free software: you can redistribute it and/or modify // it under the terms of the GNU General Public License as published by // the Free Software Foundation; either version 2 of the License, or // (at your option) any later version. // // This program is distributed in the hope that it will be useful, // but WITHOUT ANY WARRANTY; without even the implied warranty of // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the // GNU General Public License for more details. // // You should have received a copy of the GNU General Public License // along with this program. If not, see . // When assembly language code is compiled into a shared library, ELF linkers // need to know which symbols are functions. #if defined(__ELF__) || defined(__NetBSD__) #define DECLARE_FUNCTION(name) .type name,@function #else #define DECLARE_FUNCTION(name) #endif libffcall-2.2/common/asm-m68k.sh0000775000000000000000000000527613347755311013401 00000000000000#!/bin/sh # Translate the assembler syntax of m68k assembler programs # Usage: asm-m68k.sh < sunos-asm-file > portable-asm-file # The portable-asm-file has to be # 1. preprocessed, # 2. grep -v '^ *#line' | grep -v '^#' # 3. sed -e 's,% ,%,g' -e 's,//.*$,,' # Copyright (C) 1999-2017 Bruno Haible # # This program is free software: you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by # the Free Software Foundation; either version 2 of the License, or # (at your option) any later version. # # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # # You should have received a copy of the GNU General Public License # along with this program. If not, see . syntax="$1" case "$syntax" in "") echo "missing syntax" 1>&2; exit 1;; mit | motorola) ;; *) echo "invalid syntax: $syntax" 1>&2; exit 1;; esac tmpscript1=sed$$tmp1 tmpscript2=sed$$tmp2 tmpremove='rm -f $tmpscript1 $tmpscript2' trap "$tmpremove" 1 2 15 cat > $tmpscript1 << \EOF # ----------- Remove #APP/#NO_APP lines /^#APP$/d /^#NO_APP$/d # ----------- Remove gcc self-identification /gcc2_compiled/d /gnu_compiled_c/d /\.ident/d EOF if test $syntax = mit; then cat > $tmpscript2 << \EOF # ----------- Global symbols depends on ASM_UNDERSCORE s/^L\([A-Za-z0-9_]\+\)/L(\1)/ s/ L\([A-Za-z0-9_]\+\)/ L(\1)/ # ----------- Prefix register names with $, to be turned into % later s/,/, /g s/\([^A-Za-z0-9_]\)\([ad][0-7]\|sp\|fp[0-7]\|pc\)\([^A-Za-z0-9_]\)/\1$\2\3/g s/\([^A-Za-z0-9_]\)\([ad][0-7]\|sp\|fp[0-7]\|pc\)$/\1$\2/g s/, /,/g # ----------- Declare global symbols as functions (we have no variables) s/\.globl[ ]_\([A-Za-z0-9_]*\)$/.globl _\1\ DECLARE_FUNCTION(\1)/ # ----------- Global symbols depends on ASM_UNDERSCORE s/_\([A-Za-z0-9_]*\)/C(\1)/ s/^C(\([A-Za-z0-9_]*\)):/FUNBEGIN(\1)/ /FUNBEGIN(/{ h } ${ p s/.*// x s/FUNBEGIN/FUNEND/ } EOF fi if test $syntax = motorola; then cat > $tmpscript2 << \EOF # ----------- Global symbols depends on ASM_UNDERSCORE s/^\([A-Za-z0-9_]\+\)/C(\1)/ s/\.L\([A-Za-z0-9_]\+\)/L(\1)/ s/\.globl[ ]\([A-Za-z0-9_]*\)/.globl C(\1)/ # ----------- Introduce macro syntax for assembler pseudo-ops /\.file\([ ]\+\)/d s/^C(\([A-Za-z0-9_]*\)):/FUNBEGIN(\1)/ # ----------- Massage the beginning of functions /\.type/{ s/\.type[ ]\([A-Za-z0-9_]*\), *@function/DECLARE_FUNCTION(\1)/ } # ----------- Massage the end of functions s/\.size[ ]\([A-Za-z0-9_]*\),\(.*\)/FUNEND(\1)/ EOF fi sed -f $tmpscript1 | \ sed -f $tmpscript2 eval "$tmpremove" libffcall-2.2/common/asm-hppa64.sh0000775000000000000000000000364013347755307013714 00000000000000#!/bin/sh # Translate the assembler syntax of hppa64 assembler programs # Usage: asm-hppa64.sh < hppalinux-asm-file > portable-asm-file # The portable-asm-file has to be # 1. preprocessed, # 2. grep -v '^ *#line' | grep -v '^#' # 3. sed -e "s,!,',g" # Copyright (C) 2017 Bruno Haible # # This program is free software: you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by # the Free Software Foundation; either version 2 of the License, or # (at your option) any later version. # # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # # You should have received a copy of the GNU General Public License # along with this program. If not, see . tmpscript1=sed$$tmp1 tmpscript2=sed$$tmp2 tmpremove='rm -f $tmpscript1 $tmpscript2' trap "$tmpremove" 1 2 15 cat > $tmpscript1 << \EOF # ----------- Remove #APP/#NO_APP lines and gcc self-identification /^#APP$/d /^#NO_APP$/d /gcc2_compiled/d /gnu_compiled_c/d /\.ident/d EOF cat > $tmpscript2 << \EOF # ----------- Turn ' into !, to avoid trouble in preprocessing s,',!,g # ----------- Section switching s/\.text/TEXT1()\ TEXT2()/ # ----------- Declaration of symbols and labels is different s/^\([A-Za-z0-9_.]\+\):$/DEF(\1)/ # ----------- Label syntax is different /\.LEVEL/!{ s/\.L\([A-Za-z0-9_]\+\)/L(\1)/ } # ----------- Introduce macro syntax for assembler pseudo-ops s/\.globl[ ]\([A-Za-z0-9_]\+\)/GLOBL(\1)/ # ----------- Massage the beginning of functions /\.type/{ s/\.type[ ]\+\([A-Za-z0-9_]*\), *@function/DECLARE_FUNCTION(\1)/ } # ----------- Massage the end of functions s/\.size[ ]\([A-Za-z0-9_]*\),\(.*\)/FUNEND(\1)/ EOF sed -f $tmpscript1 | \ sed -f $tmpscript2 eval "$tmpremove" libffcall-2.2/common/uniq-u.c0000664000000000000000000001441013347755315013053 00000000000000/* uniq -- remove duplicate lines from a sorted file Copyright (C) 1986-2016 Free Software Foundation, Inc. This program is free software: you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program. If not, see . */ /* Written by Richard Stallman and David MacKenzie. */ /* 2000-03-22 Trimmed down to the case of "uniq -u" by Bruno Haible. */ #include #include #include #include /* The name this program was run with. */ static char *program_name; static void xalloc_fail (void) { fprintf (stderr, "%s: virtual memory exhausted\n", program_name); exit (1); } /* Allocate N bytes of memory dynamically, with error checking. */ void * xmalloc (size_t n) { void *p; p = malloc (n); if (p == 0) xalloc_fail (); return p; } /* Change the size of an allocated block of memory P to N bytes, with error checking. If P is NULL, run xmalloc. */ void * xrealloc (void *p, size_t n) { p = realloc (p, n); if (p == 0) xalloc_fail (); return p; } /* A ‘struct linebuffer’ holds a line of text. */ struct linebuffer { size_t size; /* Allocated. */ size_t length; /* Used. */ char *buffer; }; /* Initialize linebuffer LINEBUFFER for use. */ static void initbuffer (struct linebuffer *linebuffer) { linebuffer->length = 0; linebuffer->size = 200; linebuffer->buffer = (char *) xmalloc (linebuffer->size); } /* Read an arbitrarily long line of text from STREAM into LINEBUFFER. Keep the newline; append a newline if it's the last line of a file that ends in a non-newline character. Do not null terminate. Return LINEBUFFER, except at end of file return 0. */ static struct linebuffer * readline (struct linebuffer *linebuffer, FILE *stream) { int c; char *buffer = linebuffer->buffer; char *p = linebuffer->buffer; char *end = buffer + linebuffer->size - 1; /* Sentinel. */ if (feof (stream) || ferror (stream)) return 0; do { c = getc (stream); if (c == EOF) { if (p == buffer) return 0; if (p[-1] == '\n') break; c = '\n'; } if (p == end) { linebuffer->size *= 2; buffer = (char *) xrealloc (buffer, linebuffer->size); p = p - linebuffer->buffer + buffer; linebuffer->buffer = buffer; end = buffer + linebuffer->size - 1; } *p++ = c; } while (c != '\n'); linebuffer->length = p - buffer; return linebuffer; } /* Free linebuffer LINEBUFFER's data. */ static void freebuffer (struct linebuffer *linebuffer) { free (linebuffer->buffer); } /* Undefine, to avoid warning about redefinition on some systems. */ #undef min #define min(x, y) ((x) < (y) ? (x) : (y)) /* Return zero if two strings OLD and NEW match, nonzero if not. OLD and NEW point not to the beginnings of the lines but rather to the beginnings of the fields to compare. OLDLEN and NEWLEN are their lengths. */ static int different (const char *old, const char *new, size_t oldlen, size_t newlen) { int order; order = memcmp (old, new, min (oldlen, newlen)); if (order == 0) return oldlen - newlen; return order; } /* Output the line in linebuffer LINE to stream STREAM provided that the switches say it should be output. If requested, print the number of times it occurred, as well; LINECOUNT + 1 is the number of times that the line occurred. */ static void writeline (const struct linebuffer *line, FILE *stream, int linecount) { if (linecount == 0) fwrite (line->buffer, 1, line->length, stream); } /* Process input file INFILE with output to OUTFILE. If either is "-", use the standard I/O stream for it instead. */ static void check_file (const char *infile, const char *outfile) { FILE *istream; FILE *ostream; struct linebuffer lb1, lb2; struct linebuffer *thisline, *prevline, *exch; char *prevfield, *thisfield; size_t prevlen, thislen; int match_count = 0; if (!strcmp (infile, "-")) istream = stdin; else istream = fopen (infile, "r"); if (istream == NULL) { fprintf (stderr, "%s: error opening %s\n", program_name, infile); exit (1); } if (!strcmp (outfile, "-")) ostream = stdout; else ostream = fopen (outfile, "w"); if (ostream == NULL) { fprintf (stderr, "%s: error opening %s\n", program_name, outfile); exit (1); } thisline = &lb1; prevline = &lb2; initbuffer (thisline); initbuffer (prevline); if (readline (prevline, istream) == 0) goto closefiles; prevfield = prevline->buffer; prevlen = prevline->length; while (!feof (istream)) { int match; if (readline (thisline, istream) == 0) break; thisfield = thisline->buffer; thislen = thisline->length; match = !different (thisfield, prevfield, thislen, prevlen); if (match) ++match_count; if (!match) { writeline (prevline, ostream, match_count); exch = prevline; prevline = thisline; thisline = exch; prevfield = thisfield; prevlen = thislen; if (!match) match_count = 0; } } writeline (prevline, ostream, match_count); closefiles: if (ferror (istream) || fclose (istream) == EOF) { fprintf (stderr, "%s: error reading %s\n", program_name, infile); exit (1); } if (ferror (ostream) || fclose (ostream) == EOF) { fprintf (stderr, "%s: error writing %s\n", program_name, outfile); exit (1); } freebuffer (&lb1); freebuffer (&lb2); } int main (int argc, char **argv) { const char *infile = "-"; const char *outfile = "-"; int optind = 1; program_name = argv[0]; if (optind < argc) infile = argv[optind++]; if (optind < argc) outfile = argv[optind++]; if (optind < argc) { fprintf (stderr, "%s: too many arguments\n", program_name); exit (1); } check_file (infile, outfile); exit (0); } libffcall-2.2/common/asm-s390.sh0000775000000000000000000000255113347755313013305 00000000000000#!/bin/sh # Translate the assembler syntax of s390/s390x assembler programs # Usage: asm-s390.sh < s390linux-asm-file > portable-asm-file # The portable-asm-file has to be # 1. preprocessed, # 2. grep -v '^ *#line' | grep -v '^#' # 3. sed -e 's,% ,%,g' -e 's,//.*$,,' # Copyright (C) 2017 Bruno Haible # # This program is free software: you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by # the Free Software Foundation; either version 2 of the License, or # (at your option) any later version. # # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # # You should have received a copy of the GNU General Public License # along with this program. If not, see . tmpscript1=sed$$tmp1 tmpscript2=sed$$tmp2 tmpremove='rm -f $tmpscript1 $tmpscript2' trap "$tmpremove" 1 2 15 cat > $tmpscript1 << \EOF # ----------- Remove gcc self-identification /gcc2_compiled/d /gnu_compiled_c/d /\.ident/d EOF cat > $tmpscript2 << \EOF # ----------- Introduce macro syntax for assembler pseudo-ops /\.section\([ ]\+\).*GNU-stack/d EOF sed -f $tmpscript1 | \ sed -f $tmpscript2 eval "$tmpremove" libffcall-2.2/common/structcpy.c0000664000000000000000000000226413347755315013701 00000000000000/* copy structs */ /* * Copyright 1995-2005 Bruno Haible * * This program is free software: you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by * the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program. If not, see . */ void __structcpy (void* dest, const void* src, unsigned long size, unsigned long alignment) { if (alignment % sizeof(long)) { char* d = (char*)dest; const char* s = (const char*)src; do { *d++ = *s++; } while (--size > 0); } else /* If the alignment is a multiple of sizeof(long), the size is as well. */ { long* d = (long*)dest; const long* s = (const long*)src; do { *d++ = *s++; } while ((size -= sizeof(long)) > 0); } } libffcall-2.2/common/asm-i386.sh0000775000000000000000000001344313347755311013300 00000000000000#!/bin/sh # Translate the assembler syntax of i386 assembler programs # Usage: asm-i386.sh [-no-C] < gas-asm-file > portable-asm-file # The portable-asm-file has to be # 1. preprocessed, # 2. grep -v '^ *#line' | grep -v '^#' # 3. sed -e 's,% ,%,g' -e 's,\. ,.,g' -e 's,@ ,@,g' -e 's,//.*$,,' -e 's/##//g' # Warning! All comments are stripped. # Copyright (C) 1997-2018 Bruno Haible # # This program is free software: you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by # the Free Software Foundation; either version 2 of the License, or # (at your option) any later version. # # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # # You should have received a copy of the GNU General Public License # along with this program. If not, see . tmpscript01=sed$$tmp01 tmpscript02=sed$$tmp02 tmpscript03=sed$$tmp03 tmpscript04=sed$$tmp04 tmpscript05=sed$$tmp05 tmpscript06=sed$$tmp06 tmpscript07=sed$$tmp07 tmpscript08=sed$$tmp08 tmpscript09=sed$$tmp09 tmpscript10=sed$$tmp10 tmpremove='rm -f $tmpscript01 $tmpscript02 $tmpscript03 $tmpscript04 $tmpscript05 $tmpscript06 $tmpscript07 $tmpscript08 $tmpscript09 $tmpscript10' trap "$tmpremove" 1 2 15 cat > $tmpscript01 << \EOF # ----------- Strip comments s,# .*,, s,[ ][ ]*$,, EOF cat > $tmpscript02 << \EOF # ----------- Remove #APP/#NO_APP lines and gcc self-identification, add a blank line at the end /^#APP$/d /^#NO_APP$/d /gcc2_compiled/d /gnu_compiled_c/d /\.ident/d EOF cat > $tmpscript03 << \EOF # ----------- Global symbols depends on ASM_UNDERSCORE s/^\([A-Za-z0-9_]\+\)/C(\1)/ s/\.L\([A-Za-z0-9_]\+\)/L(\1)/ # ----------- Massage the beginning of functions /\.type/{ s/\.type[ ]\([A-Za-z0-9_]*\), *@function/DECLARE_FUNCTION(\1)/ } # ----------- Massage the end of functions s/\.size[ ]\([A-Za-z0-9_]*\),\(.*\)/FUNEND(\1,\2)/ # ----------- Introduce conditionals for function references in PIC code # Note: This is hairy. It assumes that the register clobbered with # the 'addl $_GLOBAL_OFFSET_TABLE_ ...' instruction is the same as # the register that the @GOTOFF instructions reference. /^ addl \$_GLOBAL_OFFSET_TABLE_,/{ x s/.*/.LgotGOT/ x s/^ addl \$_GLOBAL_OFFSET_TABLE_, *\(%.*\)/#ifdef __ELF__\ addl $_GLOBAL_OFFSET_TABLE_,\1\ #else\ .LgotGOT:\ #endif/ } /^ addl \$_GLOBAL_OFFSET_TABLE_+\[\.-\(.*\)\],/{ h s/^ addl \$_GLOBAL_OFFSET_TABLE_+\[\.-\(.*\)\],.*/\1/ x s/^ addl \$_GLOBAL_OFFSET_TABLE_+\[\.-\(.*\)\], *\(%.*\)/#ifdef __ELF__\ addl \$_GLOBAL_OFFSET_TABLE_+[.-\1],\2\ #endif/ } /@GOTOFF(/{ G s/^ leal \([A-Za-z0-9_]\+\)@GOTOFF\(.*\)\ \(.*\)/#ifdef __ELF__\ leal \1@GOTOFF\2\ #else\ leal C(\1)-\3\2\ #endif/ } EOF cat > $tmpscript04 << \EOF # ----------- Introduce macro syntax for operands s/\([-+0-9A-Z_]\+\)[(]%\(e..\)[)]/MEM_DISP(\2,\1)/g s/[(]%\(e..\)[)]/MEM(\1)/g s/\([-+0-9A-Z_]\+\)[(],%\(e..\),\([0-9]*\)[)]/MEM_DISP_SHINDEX0(\1,\2,\3)/g s/\([-+0-9A-Z_]\+\)[(]%\(e..\),%\(e..\),\([0-9]*\)[)]/MEM_DISP_SHINDEX(\2,\1,\3,\4)/g s/[(]%\(e..\),%\(e..\),\([0-9]*\)[)]/MEM_SHINDEX(\1,\2,\3)/g s/[(]%\(e..\),%\(e..\)[)]/MEM_INDEX(\1,\2)/g EOF cat > $tmpscript05 << \EOF # ----------- Introduce macro syntax for instructions s/\(push\|pop\|mul\|div\|not\|neg\|inc\|dec\|fld\|fstp\)\(.\)\([ ]\+\)\(.*\)$/INSN1(\1,\2 ,\4)/ s/\(call\|jmp\|jc\|jnc\|je\|jne\|jz\|jnz\|ja\|jae\|jb\|jbe\|jl\|jge\|js\|jns\)\([ ]\+\)\(.*\)$/INSN1(\1,_ ,\3)/ s/\(movs\|movz\)\(.\)l\([ ]\+\)\(.*\)$/INSN2MOVXL(\1,\2,\4)/ s/\(mov\|add\|sub\|adc\|sbb\|xor\|test\|cmp\|rcl\|rcr\|and\|or\|sar\|shr\|shl\|lea\)\(.\)\([ ]\+\)\(.*\)$/INSN2(\1,\2 ,\4)/ s/\(shld\|shrd\)\(.\)\([ ]\+\)%cl,[ ]*\(.*\)$/INSN2SHCL(\1,\2 ,\4)/ s/rep[ ];/REP/ s/repz[ ];/REPZ/ EOF cat > $tmpscript06 << \EOF # ----------- Add size prefixes to memory references s/\([(]f[^(,]*,s.*\), *MEM/\1,X4 MEM/g s/\([(]f[^(,]*,l.*\), *MEM/\1,X8 MEM/g s/\([(][^(,]*,b.*\), *MEM/\1,X1 MEM/g s/\([(][^(,]*,w.*\), *MEM/\1,X2 MEM/g s/\([(][^(,]*,l.*\), *MEM/\1,X4 MEM/g EOF cat > $tmpscript07 << \EOF # ----------- Introduce macro syntax for register names s/%\(e..\)/R(\1)/g s/%\(..\)/R(\1)/g s/\$\([-0-9]*\)/NUM(\1)/g EOF cat > $tmpscript08 << \EOF # ----------- Treat table jumps (hairy) # (Needed because the MSVC inline assembler does not have pseudo-ops. # Note that we transform a table of absolute addresses with 4 bytes # per entry into a table of absolute addresses with 8 bytes per entry.) s/^ \.long \(.*\)$/#ifdef _MSC_VER\ nop\ nop\ push \1\ #else\ .long \1\ #endif/ s/^ \(INSN1[(]jmp,_[^,]*,\)\*MEM_DISP_SHINDEX0[(]\([^,)]*\),\([^,)]*\),4[)][)]$/#ifdef _MSC_VER\ INSN2(lea,l ,MEM_DISP_SHINDEX0(\2+8,\3,8),R(\3))\ INSN2(mov,l ,X4 MEM_DISP(\3,-4),R(\3))\ INSN1(jmp,_ ,INDIR(R(\3)))\ #else\ \1INDIR(MEM_DISP_SHINDEX0(\2,\3,4)))\ #endif/ EOF cat > $tmpscript09 << \EOF # ----------- Treat indirect calls s/\(INSN1[(]\(call\|jmp\),_[^,]*,\)\*\(\(R\)[(][^)]*[)]\)[)]$/\1INDIR(\3))/ s/\(INSN1[(]\(call\|jmp\),_[^,]*,\)\*\(\(MEM\|MEM_DISP\|C\)[(][^)]*[)]\)[)]$/\1INDIR(X4 \3))/ EOF cat > $tmpscript10 << \EOF # ----------- Introduce macro syntax for assembler pseudo-ops /\.file\([ ]\+\)/d s/\.text/TEXT()/ s/^\([^#]*\)\.align \(.*\)/\1ALIGN(\2)/ s/\.p2align \([^,]*\),,\(.*\)/P2ALIGN(\1,\2)/ s/\.globl\( \+\)\(.*\)$/GLOBL(C(\2))/ # ----------- Declare global symbols as functions (we have no variables) s/^C(\([A-Za-z0-9_]*\)):/FUNBEGIN(\1)/ EOF sed -f $tmpscript01 | \ sed -f $tmpscript02 | \ (cat - ; echo) | \ (if [ $# = 1 -a "x$1" = "x-no-C" ] ; then cat - ; else sed -f $tmpscript03 ; fi) | \ sed -f $tmpscript04 | \ sed -f $tmpscript05 | \ sed -f $tmpscript06 | \ sed -f $tmpscript07 | \ sed -f $tmpscript08 | \ sed -f $tmpscript09 | \ sed -f $tmpscript10 eval "$tmpremove" libffcall-2.2/common/asm-alpha.sh0000775000000000000000000000254613347755306013702 00000000000000#!/bin/sh # Translate the assembler syntax of alpha assembler programs # Usage: asm-alpha.sh < alphalinux-asm-file > portable-asm-file # The portable-asm-file has to be # 1. preprocessed, # 2. grep -v '^ *#line' | grep -v '^#' # 3. sed -e 's,% ,%,g' -e 's,//.*$,,' # Copyright (C) 2017 Bruno Haible # # This program is free software: you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by # the Free Software Foundation; either version 2 of the License, or # (at your option) any later version. # # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # # You should have received a copy of the GNU General Public License # along with this program. If not, see . tmpscript1=sed$$tmp1 tmpscript2=sed$$tmp2 tmpremove='rm -f $tmpscript1 $tmpscript2' trap "$tmpremove" 1 2 15 cat > $tmpscript1 << \EOF # ----------- Remove gcc self-identification /gcc2_compiled/d /gnu_compiled_c/d /\.ident/d EOF cat > $tmpscript2 << \EOF # ----------- Introduce macro syntax for assembler pseudo-ops /\.section\([ ]\+\).*GNU-stack/d EOF sed -f $tmpscript1 | \ sed -f $tmpscript2 eval "$tmpremove" libffcall-2.2/common/asm-mips.sh0000775000000000000000000000315013527357564013561 00000000000000#!/bin/sh # Translate the assembler syntax of mips assembler programs # Usage: asm-mips.sh < irix-asm-file > portable-asm-file # The portable-asm-file has to be # 1. preprocessed, # 2. grep -v '^ *#line' | grep -v '^#' # 3. sed -e 's,% ,%,g' -e 's,//.*$,,' # Copyright (C) 1999-2019 Bruno Haible # # This program is free software: you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by # the Free Software Foundation; either version 2 of the License, or # (at your option) any later version. # # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # # You should have received a copy of the GNU General Public License # along with this program. If not, see . tmpscript1=sed$$tmp1 tmpscript2=sed$$tmp2 tmpremove='rm -f $tmpscript1 $tmpscript2' trap "$tmpremove" 1 2 15 cat > $tmpscript1 << \EOF # ----------- Remove gcc self-identification /gcc2_compiled/d /gnu_compiled_c/d /\.ident/d EOF cat > $tmpscript2 << \EOF # ----------- Remove comments, they would cause trouble in preprocessing s,#.*$,, # ----------- Remove assembler pseudo-ops that the IRIX assembler does not understand /\.section/d /\.previous/d /\.abicalls/d /\.nan/d /\.module/d # ----------- Massage the beginning of functions /\.type/{ s/\.type[ ]\+\([A-Za-z0-9_]*\), *@function/DECLARE_FUNCTION(\1)/ } EOF sed -f $tmpscript1 | \ sed -f $tmpscript2 eval "$tmpremove" libffcall-2.2/common/asm-sparc.sh0000775000000000000000000000361013347755314013715 00000000000000#!/bin/sh # Translate the assembler syntax of sparc64 assembler programs # Usage: asm-sparc.sh < sparclinux-asm-file > portable-asm-file # The portable-asm-file has to be # 1. preprocessed, # 2. grep -v '^ *#line' | grep -v '^#' # 3. sed -e 's,% ,%,g' -e 's,//.*$,,' -e 's,\$,#,g' -e 's,# ,#,g' # Copyright (C) 1999-2017 Bruno Haible # # This program is free software: you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by # the Free Software Foundation; either version 2 of the License, or # (at your option) any later version. # # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # # You should have received a copy of the GNU General Public License # along with this program. If not, see . tmpscript1=sed$$tmp1 tmpscript2=sed$$tmp2 tmpremove='rm -f $tmpscript1 $tmpscript2' trap "$tmpremove" 1 2 15 cat > $tmpscript1 << \EOF # ----------- Remove gcc self-identification /gcc2_compiled/d /gnu_compiled_c/d /\.ident/d EOF cat > $tmpscript2 << \EOF # ----------- Global symbols depends on ASM_UNDERSCORE s/^\([A-Za-z0-9_]\+\)/C(\1)/ s/\.L\([A-Za-z0-9_]\+\)/L(\1)/ s/\.global[ ]\([A-Za-z0-9_]*\)$/.global C(\1)/ # ----------- Introduce macro syntax for assembler pseudo-ops /\.file\([ ]\+\)/d /\.section\([ ]\+\).*GNU-stack/d s/^C(\([A-Za-z0-9_]*\)):/FUNBEGIN(\1)/ # ----------- Massage the beginning of functions /\.type/{ s/\.type[ ]\([A-Za-z0-9_]*\), *#function/DECLARE_FUNCTION(\1)/ } # ----------- Massage the end of functions s/\.size[ ]\([A-Za-z0-9_]*\),\(.*\)/FUNEND(\1)/ # ----------- Turn # into $, to avoid trouble in preprocessing s,#,\$,g EOF sed -f $tmpscript1 | \ sed -f $tmpscript2 eval "$tmpremove" libffcall-2.2/common/asm-x86_64.sh0000775000000000000000000001333113347755314013544 00000000000000#!/bin/sh # Translate the assembler syntax of x86_64 assembler programs # Usage: asm-x86_64.sh < linux-x86_64-asm-file > portable-asm-file # The portable-asm-file has to be # 1. preprocessed, # 2. grep -v '^ *#line' | grep -v '^#' # 3. sed -e 's,% ,%,g' -e 's,\. ,.,g' -e 's,@ ,@,g' -e 's,//.*$,,' -e 's/##//g' # Copyright (C) 1997-2018 Bruno Haible # # This program is free software: you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by # the Free Software Foundation; either version 2 of the License, or # (at your option) any later version. # # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # # You should have received a copy of the GNU General Public License # along with this program. If not, see . tmpscript1=sed$$tmp1 tmpscript2=sed$$tmp2 tmpscript3=sed$$tmp3 tmpscript4=sed$$tmp4 tmpscript5=sed$$tmp5 tmpscript6=sed$$tmp6 tmpscript7=sed$$tmp7 tmpscript8=sed$$tmp8 tmpscript9=sed$$tmp9 tmpremove='rm -f $tmpscript1 $tmpscript2 $tmpscript3 $tmpscript4 $tmpscript5 $tmpscript6 $tmpscript7 $tmpscript8 $tmpscript9' trap "$tmpremove" 1 2 15 cat > $tmpscript1 << \EOF # ----------- Remove #APP/#NO_APP lines and gcc self-identification /^#APP$/d /^#NO_APP$/d /gcc2_compiled/d /gnu_compiled_c/d /\.ident/d EOF cat > $tmpscript2 << \EOF # ----------- Global symbols depends on ASM_UNDERSCORE s/^\([A-Za-z0-9_]\+\)/C(\1)/ s/\.L\([A-Za-z0-9_]\+\)/L(\1)/ s/\([A-Za-z0-9_]\+\)(%rip)/C(\1)(%rip)/ # ----------- Massage the beginning of functions /\.type/{ s/\.type \([A-Za-z0-9_]*\), *@function/DECLARE_FUNCTION(\1)/ } # ----------- Massage the end of functions s/\.size \([A-Za-z0-9_]*\),\(.*\)/FUNEND(\1,\2)/ # ----------- Section of frame info for exception handlers s/\.section \.eh_frame,"a[w]*",@progbits/.section EH_FRAME_SECTION/ # ----------- Disable the frame info for exception handlers on Solaris # (as the Solaris linker expects a different format, see # https://illumos.org/issues/3210) # Likewise this section does not assemble on Mac OS X 10.5 and on Windows. /EH_FRAME_SECTION/{ s/^/#if !(defined __sun || (defined __APPLE__ \&\& defined __MACH__) || (defined _WIN32 || defined __CYGWIN__))\ / } ${ s/$/\ #endif/ } EOF cat > $tmpscript3 << \EOF # ----------- Introduce macro syntax for operands s/\([-+0-9A-Z_]\+\)[(]%\(r[abcd]x\|r[sd]i\|r[bs]p\|r[89]\|r1[012345]\)[)]/MEM_DISP(\2,\1)/g s/\(C[(][A-Za-z0-9_]\+[)]\)[(]%rip[)]/MEM_PCRELATIVE(\1)/g s/[(]%\(r[abcd]x\|r[sd]i\|r[bs]p\|r[89]\|r1[012345]\)[)]/MEM(\1)/g s/\([-+0-9A-Z_]\+\)[(],%\(r[abcd]x\|r[sd]i\|r[bs]p\|r[89]\|r1[012345]\),\([0-9]*\)[)]/MEM_DISP_SHINDEX0(\1,\2,\3)/g s/\([-+0-9A-Z_]\+\)[(]%\(r[abcd]x\|r[sd]i\|r[bs]p\|r[89]\|r1[012345]\),%\(r[abcd]x\|r[sd]i\|r[bs]p\|r[89]\|r1[012345]\),\([0-9]*\)[)]/MEM_DISP_SHINDEX(\2,\1,\3,\4)/g s/[(]%\(r[abcd]x\|r[sd]i\|r[bs]p\|r[89]\|r1[012345]\),%\(r[abcd]x\|r[sd]i\|r[bs]p\|r[89]\|r1[012345]\),\([0-9]*\)[)]/MEM_SHINDEX(\1,\2,\3)/g s/[(]%\(r[abcd]x\|r[sd]i\|r[bs]p\|r[89]\|r1[012345]\),%\(r[abcd]x\|r[sd]i\|r[bs]p\|r[89]\|r1[012345]\)[)]/MEM_INDEX(\1,\2)/g EOF cat > $tmpscript4 << \EOF # ----------- Add size suffix to 'mov' instructions s/mov\([ ]\+.*, *%\(e[abcd]x\|e[sd]i\|e[bs]p\|r[89]d\|r1[012345]d\)\)$/movl\1/ # ----------- Introduce macro syntax for instructions s/\(push\|pop\|mul\|div\|not\|neg\|inc\|dec\)\(.\)\([ ]\+\)\(.*\)$/INSN1(\1,\2 ,\4)/ s/\(call\|jmp\|jc\|jnc\|je\|jne\|jz\|jnz\|ja\|jae\|jb\|jbe\|jl\|jle\|jg\|jge\|js\|jns\)\([ ]\+\)\(.*\)$/INSN1(\1,_ ,\3)/ s/\(movs\|movz\)\(.\)l\([ ]\+\)\(.*\)$/INSN2MOVXL(\1,\2,\4)/ s/\(movs\|movz\)\([bw]\)q\([ ]\+\)\(.*\)$/INSN2MOVXQ(\1,\2,\4)/ s/\(movs\|movz\)\(l\)q\([ ]\+\)\(.*\)$/INSN2MOVXLQ(\1,\2,\4)/ s/\(mov\|movlp\|add\|sub\|adc\|sbb\|xor\|xorp\|test\|cmp\|rcl\|rcr\|and\|or\|sar\|sal\|shr\|shl\|lea\)\(.\)\([ ]\+\)\(.*\)$/INSN2(\1,\2 ,\4)/ s/\(movs\)\([sd]\)\([ ]\+\)\(.*\)$/INSN2S(\1,\2 ,\4)/ EOF cat > $tmpscript5 << \EOF # ----------- Rewrite lea operand s/INSN2[(]lea,\([^,]*\), *MEM_PCRELATIVE[(]/INSN2(lea,\1,ADDR_PCRELATIVE(/g EOF cat > $tmpscript6 << \EOF # ----------- Add size prefixes to memory references s/\([(][^(,]*,b.*\), *MEM/\1,X1 MEM/g s/\([(][^(,]*,w.*\), *MEM/\1,X2 MEM/g s/\([(][^(,]*,[ls].*\), *MEM/\1,X4 MEM/g s/\([(][^(,]*,[qd].*\), *MEM/\1,X8 MEM/g EOF cat > $tmpscript7 << \EOF # ----------- Introduce macro syntax for register names # Cf. https://stackoverflow.com/questions/1753602/ s/%\([abcd]l\|[sd]il\|[bs]pl\|r[89]b\|r1[012345]b\)/R(\1)/g s/%\([abcd]x\|[sd]i\|[bs]p\|r[89]w\|r1[012345]w\)/R(\1)/g s/%\(e[abcd]x\|e[sd]i\|e[bs]p\|r[89]d\|r1[012345]d\)/R(\1)/g s/%\(r[abcd]x\|r[sd]i\|r[bs]p\|r[89]\|r1[012345]\)/R(\1)/g s/%\(xmm[0-9]\+\)/R(\1)/g s/\$\([-0-9]*\)/NUM(\1)/g EOF cat > $tmpscript8 << \EOF # ----------- Treat indirect calls s/\(INSN1[(]\(call\|jmp\),_[^,]*,\)\*\(\(R\)[(][^)]*[)]\)[)]$/\1INDIR(\3))/ s/\(INSN1[(]\(call\|jmp\),_[^,]*,\)\*\(\(MEM\|MEM_DISP\|C\)[(][^)]*[)]\)[)]$/\1INDIR(X8 \3))/ s/\(INSN1[(]\(call\|jmp\),_[^,]*,\)\*\(MEM_PCRELATIVE[(].*[)]\)[)]$/\1INDIR(X8 \3))/ EOF cat > $tmpscript9 << \EOF # ----------- Introduce macro syntax for assembler pseudo-ops /\.file\([ ]\+\)/d s/\.text/TEXT()/ s/\.p2align \([^,]*\),,\(.*\)/P2ALIGN(\1,\2)/ s/\.p2align 3$/P2ALIGN(3,7)/ s/\.globl\([ ]\+\)\(.*\)$/GLOBL(C(\2))/ /\.section\([ ]\+\).*GNU-stack/d # ----------- Declare global symbols as functions (we have no variables) s/^C(\([A-Za-z0-9_]*\)):/FUNBEGIN(\1)/ EOF sed -f $tmpscript1 | \ sed -f $tmpscript2 | \ sed -f $tmpscript3 | \ sed -f $tmpscript4 | \ sed -f $tmpscript5 | \ sed -f $tmpscript6 | \ sed -f $tmpscript7 | \ sed -f $tmpscript8 | \ sed -f $tmpscript9 eval "$tmpremove" libffcall-2.2/common/asm-sparc.h0000664000000000000000000000566413347755313013541 00000000000000// Assembly language support for sparc CPU. // Bruno Haible 1999-05-29 // Copyright (C) 1999-2017 Bruno Haible // // This program is free software: you can redistribute it and/or modify // it under the terms of the GNU General Public License as published by // the Free Software Foundation; either version 2 of the License, or // (at your option) any later version. // // This program is distributed in the hope that it will be useful, // but WITHOUT ANY WARRANTY; without even the implied warranty of // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the // GNU General Public License for more details. // // You should have received a copy of the GNU General Public License // along with this program. If not, see . // In order not to have to maintain several copies of the assembly language // code, we use some macros which expand into the correct syntax. // These macros are: // C(name) // This expands to the name of the C variable or function `name'. // On Unix BSD systems, this prepends an underscore. // L(label) // This expands to the name of a local label, having the name `label'. // On Unix ELF systems, where there is no underscore, names beginning // with an alphabetic character are automatically exported, so this // prepends a dot. Note that when defining a label, the `:' must // be inside the parentheses, not outside, because otherwise some // ANSI C preprocessor inserts a space between the label and the `:', // and some assemblers don't like this. // DECLARE_FUNCTION(name) // Declare `name' to be a global function. When assembly language // code is compiled into a shared library, ELF linkers need to know // which symbols are functions. // FUNBEGIN(name) // Start the assembly language code for the C function `name'. // FUNEND(name) // End the assembly language code for the C function 'name'. #ifdef ASM_UNDERSCORE // SunOS4, Linux/a.out #define C(entrypoint) _##entrypoint #define L(label) L##label #else // Solaris, Linux/ELF #define C(entrypoint) entrypoint #define L(label) .L##label #endif // When assembly language code is compiled into a shared library, ELF linkers // need to know which symbols are functions. #if defined(__NetBSD__) || defined(__OpenBSD__) #define DECLARE_FUNCTION(name) .type C(name),@function #define FUNEND(name) .size C(name),.-C(name) #elif defined(__SVR4) || defined(__ELF__) // Solaris, Linux/ELF // Some preprocessors keep the backslash in place, some don't. // Some complain about the # being not in front of an ANSI C macro. // Therefore we use a dollar, which will be sed-converted to # later. #define DECLARE_FUNCTION(name) .type C(name),$function #define FUNEND(name) .size C(name),.-C(name) #else // SunOS4, Linux/a.out #define DECLARE_FUNCTION(name) #define FUNEND(name) #endif #define FUNBEGIN(name) C(name): libffcall-2.2/common/asm-arm.sh0000775000000000000000000000371113347755307013370 00000000000000#!/bin/sh # Translate the assembler syntax of arm assembler programs # Usage: asm-arm.sh < riscix-asm-file > portable-asm-file # The portable-asm-file has to be # 1. preprocessed, # 2. grep -v '^ *#line' | grep -v '^#' # 3. sed -e 's,% ,%,g' -e 's,//,@,g' -e 's,\$,#,g' # Copyright (C) 1999-2018 Bruno Haible # # This program is free software: you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by # the Free Software Foundation; either version 2 of the License, or # (at your option) any later version. # # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # # You should have received a copy of the GNU General Public License # along with this program. If not, see . tmpscript1=sed$$tmp1 tmpscript2=sed$$tmp2 tmpremove='rm -f $tmpscript1 $tmpscript2' trap "$tmpremove" 1 2 15 cat > $tmpscript1 << \EOF # ----------- Remove gcc self-identification /gcc2_compiled/d /gnu_compiled_c/d /\.ident/d EOF cat > $tmpscript2 << \EOF # ----------- Hide comments, to avoid trouble in preprocessing s,@,//,g # ----------- Turn # into $, to avoid trouble in preprocessing s,#,\$,g # ----------- Global symbols depends on ASM_UNDERSCORE /[ ]\.req[ ]/!{ s/^\([A-Za-z0-9_]\+\)/C(\1)/ } s/\.L\([A-Za-z0-9_]\+\)/L(\1)/ s/\.global[ ]\([A-Za-z0-9_]*\)/.global C(\1)/ # ----------- Introduce macro syntax for assembler pseudo-ops /\.file\([ ]\+\)/d /\.section\([ ]\+\).*GNU-stack/d s/^C(\([A-Za-z0-9_]*\)):/FUNBEGIN(\1)/ # ----------- Massage the beginning of functions /\.type/{ s/\.type[ ]\([A-Za-z0-9_]*\), *function/DECLARE_FUNCTION(\1)/ } # ----------- Massage the end of functions s/\.size[ ]\([A-Za-z0-9_]*\),\(.*\)/FUNEND(\1)/ EOF sed -f $tmpscript1 | \ sed -f $tmpscript2 eval "$tmpremove" libffcall-2.2/common/asm-i386.h0000664000000000000000000002735713347755310013122 00000000000000// Assembly language support for i386 CPU. // Bruno Haible 1997-06-21 // Copyright (C) 1997-2018 Bruno Haible // // This program is free software: you can redistribute it and/or modify // it under the terms of the GNU General Public License as published by // the Free Software Foundation; either version 2 of the License, or // (at your option) any later version. // // This program is distributed in the hope that it will be useful, // but WITHOUT ANY WARRANTY; without even the implied warranty of // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the // GNU General Public License for more details. // // You should have received a copy of the GNU General Public License // along with this program. If not, see . // An assembly language file for the i386/i486/i586/i686/786 CPUs: // On Unix, it is preprocessed and then assembled. NB: This file requires // an ANSI C or C++ preprocessor which understands C++ comments. // On Windows, with MSVC, it is preprocessed and then compiled with // optimization. (The MSVC development environment does not have a separate // assembler, we must use the C compiler's inline asm extension. Compiling // without optimization pushes the registers %ebx,%esi,%edi onto the stack // at function entry and pops them at function exit, which is not what we // want because it affects the %esp offsets of the function arguments.) // The assembly language file should // 1. include a configuration file which defines ASM_UNDERSCORE if appropriate. // #ifndef _MSC_VER // #include "config.h" // #endif // 2. include this file. // #include "asm-i386.h" // 3. define all assembly language code. // The three different assembler syntaxes for this CPU are a MAJOR annoyance. // In order not to have to maintain several copies of the assembly language // code, we use lots of macros which expand into the correct syntax. // These macros are: // C(name) // This expands to the name of the C variable or function `name'. // On Unix BSD systems, this prepends an underscore. // L(label) // This expands to the name of a local label, having the name `label'. // On Unix ELF systems, where there is no underscore, names beginning // with an alphabetic character are automatically exported, so this // prepends a dot. Note that when defining a label, the `:' must // be inside the parentheses, not outside, because otherwise some // ANSI C preprocessor inserts a space between the label and the `:', // and some assemblers don't like this. // R(reg) // This expands to a reference to register `reg'. On Unix, this // prepends a % charater. // NUM(value) // This expands to an immediate value. On Unix, this prepends a $ // character. // ADDR(variable) // This expands to an immediate value, the address of some variable // or function. On Unix, this prepends a $ character. With MSVC, // this prepends the keyword "OFFSET". // About operand sizes: On Unix, a suffix to the instruction specifies the // size of the operands (for example "movb", "movw", "movl"). With // MSVC, there is no such suffix. Instead, the assembler infers the // operand size from the names of the registers ("al" vs. "ax" vs. // "eax"). This works well in most cases, but in instructions like // "mul [esi]" the assembler guesses the operand size: "byte" by // default. So it is better to explicitly specify the operand size // of memory operands (prefix X1, X2, X4, X8). // (Side note about Unix assemblers: Some Unix assemblers allow you // to write "testb %eax,%eax" but silently treat this as // "testb %al,%al".) // X1 // This prefixes a memory reference of 1 byte. // X2 // This prefixes a memory reference of 2 bytes. // X4 // This prefixes a memory reference of 4 bytes. // X8 // This prefixes a memory reference of 8 bytes. // MEM(base) // This expands to a memory reference at address `base'. // MEM_DISP(base,displacement) // This expands to a memory reference at address `base+displacement'. // MEM_INDEX(base,index) // This expands to a memory reference at address `base+index'. // MEM_SHINDEX(base,index,size) // This expands to a memory reference at address // `base+index*size', where `size' is 1, 2, 4, or 8. // MEM_DISP_SHINDEX0(displacement,index,size) // This expands to a memory reference at address // `displacement+index*size', where `size' is 1, 2, 4, or 8. // MEM_DISP_SHINDEX(base,displacement,index,size) // This expands to a memory reference at address // `base+displacement+index*size', where `size' is 1, 2, 4, or 8. // INDIR(value) // This expands to an implicit indirection. On Unix, this prepends // a * character. // INSN1(mnemonic,size_suffix,dst) // This expands to an instruction with one operand. // INSN2(mnemonic,size_suffix,src,dst) // This expands to an instruction with two operands. In our notation, // `src' comes first and `dst' second, but they are reversed when // expanding to Intel syntax. // INSN2MOVXL(mnemonic,size_suffix,src,dst) // This expands to an instruction with two operands, of type // movsbl/movzbl, which in some syntaxes requires a second suffix. // INSN2SHCL(mnemonic,size_suffix,src,dst) // This expands to an instruction with two operands, of type // shrd/shld, which in some syntaxes requires an additional operand // %cl. // REP, REPZ // This expands to a prefix for string instructions. // _ // For instructions which don't have a size suffix, like jump // instructions. Expands to nothing. Needed for MSVC, which has // problems with empty macro arguments. // TEXT() // Switch to the code section. // ALIGN(log) // Align to 2^log bytes. // P2ALIGN(log,max) // Align to 2^log bytes, but insert at most max bytes. // GLOBL(name) // Declare `name' to be a global symbol. // DECLARE_FUNCTION(name) // Declare `name' to be a global function. When assembly language // code is compiled into a shared library, ELF linkers need to know // which symbols are functions. // FUNBEGIN(name) // Start the assembly language code for the C function `name'. // FUNEND(name,size_expression) // End the assembly language code for the C function 'name'. // Define the C(name) and L(label) macros. #ifdef _MSC_VER #define C(entrypoint) entrypoint #define L(label) L##label #else #ifdef ASM_UNDERSCORE #define C(entrypoint) _##entrypoint #define L(label) L##label #else #define C(entrypoint) entrypoint #define L(label) .L##label #endif #endif // Define one of these. // BSD_SYNTAX for GNU assembler version 2. // ELF_SYNTAX for SVR4 and Solaris assemblers. // INTEL_SYNTAX for MS assembler. // Note: INTEL_SYNTAX is not the same syntax as produced by "gcc masm=intel" // as there are syntactic differences between that syntax and the one accepted // by the MS assembler (for R, MEM_DISP, P2ALIGN, FUNBEGIN, FUNEND etc.). #ifdef _MSC_VER #define INTEL_SYNTAX #else // On Unix, it happens that the ELF systems (ASM_UNDERSCORE not defined) use // the ELF syntax, while the BSD systems (ASM_UNDERSCORE defined) use the // BSD syntax. Neat to know, this saves us from enumerating all the systems. #ifdef ASM_UNDERSCORE #define BSD_SYNTAX #else #define ELF_SYNTAX #endif #endif #if defined (BSD_SYNTAX) || defined (ELF_SYNTAX) #define R(r) %r #define NUM(n) $ n #define ADDR(a) $##a #define X1 #define X2 #define X4 #define X8 #define MEM(base)(R(base)) #define MEM_DISP(base,displacement)displacement(R(base)) #define MEM_INDEX(base,index)(R(base),R(index)) #define MEM_SHINDEX(base,index,size)(R(base),R(index),size) #define MEM_DISP_SHINDEX0(displacement,index,size)displacement(,R(index),size) #define MEM_DISP_SHINDEX(base,displacement,index,size)displacement(R(base),R(index),size) #define INDIR(value)*value #define INSNCONC(mnemonic,size_suffix)mnemonic##size_suffix #define INSN1(mnemonic,size_suffix,dst)INSNCONC(mnemonic,size_suffix) dst #define INSN2(mnemonic,size_suffix,src,dst)INSNCONC(mnemonic,size_suffix) src,dst #define INSN2MOVXL(mnemonic,size_suffix,src,dst)INSNCONC(mnemonic,size_suffix##l) src,dst #if defined(__SVR4) /* Solaris */ #define INSN2SHCL(mnemonic,size_suffix,src,dst)INSNCONC(mnemonic,size_suffix) src,dst #else #define INSN2SHCL(mnemonic,size_suffix,src,dst)INSNCONC(mnemonic,size_suffix) R(cl),src,dst #endif #if defined(BSD_SYNTAX) || defined(COHERENT) #define REPZ repe ; #else #define REPZ repz ; #endif #define REP rep ; #if defined(BSD_SYNTAX) && !(defined(__CYGWIN__) || defined(__MINGW32__)) #define ALIGN(log) .align log,0x90 #endif #if defined(ELF_SYNTAX) || defined(__CYGWIN__) || defined(__MINGW32__) #define ALIGN(log) .align 1< * * This program is free software: you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by * the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program. If not, see . */ /* Replacement for a subset of . We cannot use gnulib's portable replacement, because when cross-compiling the various avcall-$(CPU).c and vacall-$(CPU).c files, gnulib-generated files are not available. And the cross-compilers of GCC version < 4.5 don't provide . */ /* Define integer types that are as large as a pointer, */ #if defined(__x86_64__) && defined(_WIN32) && !defined(__CYGWIN__) /* An LLP64 platform. */ typedef long long ff_intptr_t; typedef unsigned long long ff_uintptr_t; #else /* An ILP32 or LP64 platform. */ typedef long ff_intptr_t; typedef unsigned long ff_uintptr_t; #endif #define intptr_t ff_intptr_t #define uintptr_t ff_uintptr_t /* Verify at compile time that sizeof([u]intptr_t) == sizeof(void*). */ typedef int intptr_verify[2*(sizeof(intptr_t) == sizeof(void*))-1]; typedef int uintptr_verify[2*(sizeof(uintptr_t) == sizeof(void*))-1]; libffcall-2.2/avcall/0000775000000000000000000000000013530357260011512 500000000000000libffcall-2.2/avcall/avcall-compat.c0000664000000000000000000000155713347755253014343 00000000000000/* * Copyright 2017 Bruno Haible * * This program is free software: you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by * the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program. If not, see . */ #include "config.h" #include /* A dummy symbol, so that GNU clisp's autoconfiguration recognizes this library. */ void __builtin_avcall (void) { abort(); } libffcall-2.2/avcall/avcall-riscv64-lp64d-linux.s0000664000000000000000000001011713530357111016435 00000000000000 .file "avcall-riscv64.c" .option pic .text .align 1 .globl avcall_call .type avcall_call, @function avcall_call: add sp,sp,-64 sd s0,48(sp) sd s1,40(sp) sd ra,56(sp) sd s2,32(sp) sd s3,24(sp) sd s4,16(sp) sd s5,8(sp) sd s6,0(sp) add s0,sp,64 ld t6,48(a0) ld t3,40(a0) li t1,-4096 add t1,t1,2032 sub t3,t3,t6 sra t3,t3,3 sext.w t0,t3 li t4,8 mv s1,a0 add sp,sp,t1 lw t2,64(a0) ble t0,t4,.L2 addw t3,t3,-9 sll t3,t3,32 srl t3,t3,29 mv t1,sp add t3,t3,8 add t4,t6,64 add t3,t1,t3 .L3: ld t5,0(t4) add t1,t1,8 add t4,t4,8 sd t5,-8(t1) bne t3,t1,.L3 .L4: li t1,1 ld a0,0(t6) beq t0,t1,.L5 li t1,2 ld a1,8(t6) beq t0,t1,.L5 li t1,3 ld a2,16(t6) beq t0,t1,.L5 li t1,4 ld a3,24(t6) beq t0,t1,.L5 li t1,5 ld a4,32(t6) beq t0,t1,.L5 li t1,6 ld a5,40(t6) beq t0,t1,.L5 li t1,7 ld a6,48(t6) beq t0,t1,.L5 ld a7,56(t6) .L5: beqz t2,.L8 lw t1,72(s1) and t3,t1,1 beqz t3,.L9 fld fa0,112(s1) .L10: li t3,1 bleu t2,t3,.L8 and t3,t1,2 bnez t3,.L79 lw t3,68(s1) and t3,t3,2 beqz t3,.L13 flw fa1,80(s1) .L13: li t3,2 beq t2,t3,.L8 and t3,t1,4 beqz t3,.L14 fld fa2,128(s1) .L15: li t3,3 beq t2,t3,.L8 and t3,t1,8 bnez t3,.L80 lw t3,68(s1) and t3,t3,8 beqz t3,.L17 flw fa3,88(s1) .L17: li t3,4 beq t2,t3,.L8 and t3,t1,16 beqz t3,.L18 fld fa4,144(s1) .L19: li t3,5 beq t2,t3,.L8 and t3,t1,32 beqz t3,.L20 fld fa5,152(s1) .L21: li t3,6 beq t2,t3,.L8 and t3,t1,64 beqz t3,.L22 fld fa6,160(s1) .L23: li t3,7 beq t2,t3,.L8 and t1,t1,128 beqz t1,.L24 fld fa7,168(s1) .L8: lw t1,24(s1) li t3,13 ld t4,8(s1) bne t1,t3,.L25 ld s1,16(s1) jalr t4 fsw fa0,0(s1) .L26: add sp,s0,-64 ld ra,56(sp) li a0,0 ld s0,48(sp) ld s1,40(sp) ld s2,32(sp) ld s3,24(sp) ld s4,16(sp) ld s5,8(sp) ld s6,0(sp) add sp,sp,64 jr ra .L9: lw t3,68(s1) and t3,t3,1 beqz t3,.L10 flw fa0,76(s1) j .L10 .L25: li t3,14 beq t1,t3,.L81 jalr t4 lw t1,24(s1) li t4,1 mv t3,a0 beq t1,t4,.L26 beqz t1,.L77 li t4,2 beq t1,t4,.L73 li t4,3 beq t1,t4,.L73 li t4,4 beq t1,t4,.L73 li t4,5 beq t1,t4,.L74 li t4,6 beq t1,t4,.L74 li t4,7 beq t1,t4,.L75 li s4,8 beq t1,s4,.L75 and t4,t1,-3 li t6,9 beq t4,t6,.L77 addw t4,t1,-10 and t4,t4,-3 sext.w t4,t4 beqz t4,.L77 li t6,15 beq t1,t6,.L77 li t4,16 bne t1,t4,.L26 lw t4,0(s1) and t4,t4,512 beqz t4,.L26 ld s6,32(s1) add t4,s6,-1 bgtu t4,t6,.L26 ld t6,16(s1) li t4,1 and s1,t6,7 and t6,t6,-8 sext.w s3,s1 ld t0,0(t6) sll s5,s3,3 add s1,s6,s1 sll t2,a0,s5 sll t4,t4,s5 xor t2,t2,t0 sllw s2,s1,3 bgtu s6,s4,.L39 bgtu s1,s4,.L40 addw s2,s2,-1 li t1,2 sll t1,t1,s2 sub t1,t1,t4 and t1,t1,t2 xor t1,t1,t0 sd t1,0(t6) j .L26 .L79: fld fa1,120(s1) j .L13 .L81: ld s1,16(s1) jalr t4 fsd fa0,0(s1) j .L26 .L2: blez t0,.L5 j .L4 .L14: lw t3,68(s1) and t3,t3,4 beqz t3,.L15 flw fa2,84(s1) j .L15 .L77: ld t1,16(s1) sd t3,0(t1) j .L26 .L80: fld fa3,136(s1) j .L17 .L73: ld t1,16(s1) sb t3,0(t1) j .L26 .L18: lw t3,68(s1) and t3,t3,16 beqz t3,.L19 flw fa4,92(s1) j .L19 .L74: ld t1,16(s1) sh t3,0(t1) j .L26 .L20: lw t3,68(s1) and t3,t3,32 beqz t3,.L21 flw fa5,96(s1) j .L21 .L75: ld t1,16(s1) sw t3,0(t1) j .L26 .L22: lw t3,68(s1) and t3,t3,64 beqz t3,.L23 flw fa6,100(s1) j .L23 .L24: lw t1,68(s1) and t1,t1,128 beqz t1,.L8 flw fa7,104(s1) j .L8 .L40: li t1,-8 mulw t1,t1,s3 ld s1,8(t6) addw s2,s2,-65 li t5,2 sll t5,t5,s2 sub t4,zero,t4 add t5,t5,-1 and t4,t4,t2 xor t4,t4,t0 sd t4,0(t6) sra t1,a0,t1 xor t1,t1,s1 and t1,t1,t5 xor t1,t1,s1 sd t1,8(t6) j .L26 .L39: sub t4,zero,t4 and t4,t4,t2 xor t4,t4,t0 sd t4,0(t6) sll t2,a1,s5 bleu s1,t1,.L82 li t1,-8 mulw t1,t1,s3 ld s1,16(t6) addw t4,s2,-129 li t0,2 sll t0,t0,t4 add t0,t0,-1 addw t1,t1,64 sra t4,a1,t1 xor t4,t4,s1 sra t1,a0,t1 and t3,t0,t4 or t1,t1,t2 xor t3,t3,s1 sd t1,8(t6) sd t3,16(t6) j .L26 .L82: li t1,-4 mulw t1,t1,s3 addw t4,s2,-65 li t5,2 sll t5,t5,t4 ld t0,8(t6) add t5,t5,-1 addw t4,t1,32 sra t1,a0,t4 sra t1,t1,t4 or t1,t1,t2 xor t1,t1,t0 and t1,t1,t5 xor t1,t1,t0 sd t1,8(t6) j .L26 .size avcall_call, .-avcall_call .ident "GCC: (GNU) 7.3.0" libffcall-2.2/avcall/avcall-x86_64-windows.s0000664000000000000000000001225413530357110015502 00000000000000 .file "avcall-x86_64-windows.c" .text .p2align 4,,15 .globl avcall_call .type avcall_call, @function avcall_call: .LFB0: pushq %rbp .LCFI0: movq %rsp, %rbp .LCFI1: pushq %rsi pushq %rbx .LCFI2: movq %rcx, %rbx subq $32, %rsp movq 48(%rcx), %rcx movq 40(%rbx), %rax subq $2064, %rsp subq %rcx, %rax sarq $3, %rax cmpl $4, %eax jle .L6 leal -5(%rax), %r8d leaq 32(%rsp), %r9 xorl %eax, %eax addq $1, %r8 .p2align 4,,10 .p2align 3 .L5: movq 32(%rcx,%rax,8), %rdx movq %rdx, (%r9,%rax,8) addq $1, %rax cmpq %r8, %rax jne .L5 .L6: movl 68(%rbx), %eax testl %eax, %eax je .L7 testb $1, %al je .L8 movss 76(%rbx), %xmm0 .L8: testb $2, %al je .L9 movss 80(%rbx), %xmm1 .L9: testb $4, %al je .L10 movss 84(%rbx), %xmm2 .L10: testb $8, %al jne .L78 .L7: movl 72(%rbx), %eax testl %eax, %eax je .L12 testb $1, %al je .L13 movsd 96(%rbx), %xmm0 .L13: testb $2, %al je .L14 movsd 104(%rbx), %xmm1 .L14: testb $4, %al je .L15 movsd 112(%rbx), %xmm2 .L15: testb $8, %al jne .L79 .L12: movl 24(%rbx), %eax cmpl $13, %eax je .L80 cmpl $14, %eax je .L81 movq 8(%rcx), %rdx movq 24(%rcx), %r9 movq 16(%rcx), %r8 movq (%rcx), %rcx call *8(%rbx) movl 24(%rbx), %edx cmpl $1, %edx je .L18 testl %edx, %edx je .L76 cmpl $2, %edx je .L73 cmpl $3, %edx je .L73 cmpl $4, %edx je .L73 cmpl $5, %edx je .L74 cmpl $6, %edx je .L74 cmpl $7, %edx je .L75 cmpl $8, %edx je .L75 cmpl $9, %edx je .L76 cmpl $10, %edx je .L76 cmpl $11, %edx je .L76 cmpl $12, %edx je .L76 cmpl $15, %edx je .L76 cmpl $16, %edx jne .L18 testl $512, (%rbx) je .L18 movq 32(%rbx), %r8 leaq -4(%r8), %rdx testq $-5, %rdx je .L35 leaq -1(%r8), %rdx cmpq $1, %rdx ja .L18 .L35: movq 16(%rbx), %rdx movq %rdx, %r9 andl $7, %edx addq %rdx, %r8 andq $-8, %r9 cmpq $8, %r8 jbe .L82 leal 0(,%rdx,8), %ecx movq (%r9), %r10 movq %rax, %rsi movq $-1, %r11 negl %edx salq %cl, %rsi salq %cl, %r11 movq %rsi, %rcx xorq %r10, %rcx andq %r11, %rcx xorq %r10, %rcx movq 8(%r9), %r10 movq %rcx, (%r9) leal -65(,%r8,8), %ecx movl $2, %r8d salq %cl, %r8 leal 64(,%rdx,8), %ecx subq $1, %r8 sarq %cl, %rax xorq %r10, %rax andq %r8, %rax xorq %r10, %rax movq %rax, 8(%r9) .L18: leaq -16(%rbp), %rsp xorl %eax, %eax popq %rbx .LCFI3: popq %rsi .LCFI4: popq %rbp .LCFI5: ret .p2align 4,,10 .p2align 3 .L79: .LCFI6: movsd 120(%rbx), %xmm3 jmp .L12 .p2align 4,,10 .p2align 3 .L78: movss 88(%rbx), %xmm3 jmp .L7 .p2align 4,,10 .p2align 3 .L76: movq 16(%rbx), %rdx movq %rax, (%rdx) leaq -16(%rbp), %rsp xorl %eax, %eax popq %rbx .LCFI7: popq %rsi .LCFI8: popq %rbp .LCFI9: ret .p2align 4,,10 .p2align 3 .L73: .LCFI10: movq 16(%rbx), %rdx movb %al, (%rdx) leaq -16(%rbp), %rsp xorl %eax, %eax popq %rbx .LCFI11: popq %rsi .LCFI12: popq %rbp .LCFI13: ret .p2align 4,,10 .p2align 3 .L81: .LCFI14: movq 16(%rbx), %rsi movq 8(%rcx), %rdx movq 24(%rcx), %r9 movq 16(%rcx), %r8 movq (%rcx), %rcx call *8(%rbx) movsd %xmm0, (%rsi) leaq -16(%rbp), %rsp xorl %eax, %eax popq %rbx .LCFI15: popq %rsi .LCFI16: popq %rbp .LCFI17: ret .L80: .LCFI18: movq 16(%rbx), %rsi movq 8(%rcx), %rdx movq 24(%rcx), %r9 movq 16(%rcx), %r8 movq (%rcx), %rcx call *8(%rbx) movss %xmm0, (%rsi) jmp .L18 .L74: movq 16(%rbx), %rdx movw %ax, (%rdx) jmp .L18 .L75: movq 16(%rbx), %rdx movl %eax, (%rdx) jmp .L18 .L82: leal -1(,%r8,8), %ecx movq (%r9), %r10 sall $3, %edx movl $2, %r8d movl $1, %r11d salq %cl, %r8 movl %edx, %ecx salq %cl, %r11 salq %cl, %rax subq %r11, %r8 xorq %r10, %rax andq %r8, %rax xorq %r10, %rax movq %rax, (%r9) jmp .L18 .LFE0: .size avcall_call, .-avcall_call .section .eh_frame,"a",@progbits .Lframe1: .long .LECIE1-.LSCIE1 .LSCIE1: .long 0 .byte 0x3 .string "zR" .uleb128 0x1 .sleb128 -8 .uleb128 0x10 .uleb128 0x1 .byte 0x1b .byte 0xc .uleb128 0x7 .uleb128 0x8 .byte 0x90 .uleb128 0x1 .align 8 .LECIE1: .LSFDE1: .long .LEFDE1-.LASFDE1 .LASFDE1: .long .LASFDE1-.Lframe1 .long .LFB0-. .long .LFE0-.LFB0 .uleb128 0 .byte 0x4 .long .LCFI0-.LFB0 .byte 0xe .uleb128 0x10 .byte 0x86 .uleb128 0x2 .byte 0x4 .long .LCFI1-.LCFI0 .byte 0xd .uleb128 0x6 .byte 0x4 .long .LCFI2-.LCFI1 .byte 0x84 .uleb128 0x3 .byte 0x83 .uleb128 0x4 .byte 0x4 .long .LCFI3-.LCFI2 .byte 0xa .byte 0xc3 .byte 0x4 .long .LCFI4-.LCFI3 .byte 0xc4 .byte 0x4 .long .LCFI5-.LCFI4 .byte 0xc6 .byte 0xc .uleb128 0x7 .uleb128 0x8 .byte 0x4 .long .LCFI6-.LCFI5 .byte 0xb .byte 0x4 .long .LCFI7-.LCFI6 .byte 0xa .byte 0xc3 .byte 0x4 .long .LCFI8-.LCFI7 .byte 0xc4 .byte 0x4 .long .LCFI9-.LCFI8 .byte 0xc6 .byte 0xc .uleb128 0x7 .uleb128 0x8 .byte 0x4 .long .LCFI10-.LCFI9 .byte 0xb .byte 0x4 .long .LCFI11-.LCFI10 .byte 0xa .byte 0xc3 .byte 0x4 .long .LCFI12-.LCFI11 .byte 0xc4 .byte 0x4 .long .LCFI13-.LCFI12 .byte 0xc6 .byte 0xc .uleb128 0x7 .uleb128 0x8 .byte 0x4 .long .LCFI14-.LCFI13 .byte 0xb .byte 0x4 .long .LCFI15-.LCFI14 .byte 0xa .byte 0xc3 .byte 0x4 .long .LCFI16-.LCFI15 .byte 0xc4 .byte 0x4 .long .LCFI17-.LCFI16 .byte 0xc6 .byte 0xc .uleb128 0x7 .uleb128 0x8 .byte 0x4 .long .LCFI18-.LCFI17 .byte 0xb .align 8 .LEFDE1: .ident "GCC: (GNU) 5.4.0" .section .note.GNU-stack,"",@progbits libffcall-2.2/avcall/avcall-mips64.c0000664000000000000000000006017513347755256014206 00000000000000/** Copyright 1993 Bill Triggs Copyright 1995-2017 Bruno Haible This program is free software: you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program. If not, see . **/ /*---------------------------------------------------------------------- !!! THIS ROUTINE MUST BE COMPILED gcc -O !!! Foreign function interface for an SGI 64-bit MIPS with sgi-cc. This calls a C function with an argument list built up using macros defined in avcall.h. SGI MIPS 64-bit Argument Passing Conventions - The entire argument list forms a structure with all the appropriate holes & alignments, and space for this is allocated in the stack frame. - Shorter integers are promoted to longword length (sizeof(long)=8). - Doubles are 1 longword. - Structure arguments are copies embedded in the arglist structure. - The first 8 longwords of the structure are passed in registers $4...$11, except that float arguments are passed in registers $f12...$f19, and that double arguments and structure elements of type double are passed in registers $f12...$f19. (But varargs functions may expect them in the integer registers and we can't tell whether the function is varargs so we pass them both ways.) Remaining longwords are passed on the stack. No stack space is allocated for the first 8 longwords of the structure. - Structure returns of structures > 16 bytes: pointers to caller-allocated space are passed in as the first argument of the list. - Structure returns of structures <= 16 bytes: in the registers $2 (for the first 8 bytes) and $3 (for the next 8 bytes). A structure of 1 or 2 floats or doubles is returned in $f0 and $f2: the first float or double in $f0, the second float or double in $f2. - Integer/pointer returns are in $2, float/double returns in $f0. - The called function expects to see its own address in $25. This file needs to be compiled with gcc for the asm extensions, but the assembly version of it and the header file seem to work with SGI cc. ----------------------------------------------------------------------*/ #include "avcall-internal.h" #define RETURN(TYPE,VAL) (*(TYPE*)l->raddr = (TYPE)(VAL)) #define OFFSETOF(struct,member) ((int)&(((struct*)0)->member)) int avcall_call(av_alist* list) { register __avword* sp __asm__("$sp"); /* C names for registers */ register float fret __asm__("$f0"); register double dret __asm__("$f0"); /*register __avword iret1 __asm__("$2"); */ register __avword iret2 __asm__("$3"); __av_alist* l = &AV_LIST_INNER(list); __avword* argframe = __builtin_alloca(__AV_ALIST_WORDS * sizeof(__avword)); /* make room for argument list */ int arglen = l->aptr - l->args; __avword iret; int i; if (l->farg_mask) { /* push leading float args */ if (l->farg_mask & (1<<0)) __asm__("lwc1 $f12,%1(%0)" : : "p" (l), "i" OFFSETOF(__av_alist,fargs[0])); if (l->farg_mask & (1<<1)) __asm__("lwc1 $f13,%1(%0)" : : "p" (l), "i" OFFSETOF(__av_alist,fargs[1])); if (l->farg_mask & (1<<2)) __asm__("lwc1 $f14,%1(%0)" : : "p" (l), "i" OFFSETOF(__av_alist,fargs[2])); if (l->farg_mask & (1<<3)) __asm__("lwc1 $f15,%1(%0)" : : "p" (l), "i" OFFSETOF(__av_alist,fargs[3])); if (l->farg_mask & (1<<4)) __asm__("lwc1 $f16,%1(%0)" : : "p" (l), "i" OFFSETOF(__av_alist,fargs[4])); if (l->farg_mask & (1<<5)) __asm__("lwc1 $f17,%1(%0)" : : "p" (l), "i" OFFSETOF(__av_alist,fargs[5])); if (l->farg_mask & (1<<6)) __asm__("lwc1 $f18,%1(%0)" : : "p" (l), "i" OFFSETOF(__av_alist,fargs[6])); if (l->farg_mask & (1<<7)) __asm__("lwc1 $f19,%1(%0)" : : "p" (l), "i" OFFSETOF(__av_alist,fargs[7])); } if (l->darg_mask) { /* push leading double args */ __avword* a = l->args; if (l->darg_mask & (1<<0)) __asm__("ldc1 $f12,%1(%0)" : : "p" (a), "i" (0 * sizeof (__avword))); if (l->darg_mask & (1<<1)) __asm__("ldc1 $f13,%1(%0)" : : "p" (a), "i" (1 * sizeof (__avword))); if (l->darg_mask & (1<<2)) __asm__("ldc1 $f14,%1(%0)" : : "p" (a), "i" (2 * sizeof (__avword))); if (l->darg_mask & (1<<3)) __asm__("ldc1 $f15,%1(%0)" : : "p" (a), "i" (3 * sizeof (__avword))); if (l->darg_mask & (1<<4)) __asm__("ldc1 $f16,%1(%0)" : : "p" (a), "i" (4 * sizeof (__avword))); if (l->darg_mask & (1<<5)) __asm__("ldc1 $f17,%1(%0)" : : "p" (a), "i" (5 * sizeof (__avword))); if (l->darg_mask & (1<<6)) __asm__("ldc1 $f18,%1(%0)" : : "p" (a), "i" (6 * sizeof (__avword))); if (l->darg_mask & (1<<7)) __asm__("ldc1 $f19,%1(%0)" : : "p" (a), "i" (7 * sizeof (__avword))); } for (i = 8; i < arglen; i++) /* push excess function args */ argframe[i-8] = l->args[i]; /* call function with 1st 8 args */ __asm__ __volatile__ ("ld $4,%0" : : "m" (l->args[0]) : "$4"); /* arg1 = l->args[0]; */ __asm__ __volatile__ ("ld $5,%0" : : "m" (l->args[1]) : "$5"); /* arg1 = l->args[1]; */ __asm__ __volatile__ ("ld $6,%0" : : "m" (l->args[2]) : "$6"); /* arg1 = l->args[2]; */ __asm__ __volatile__ ("ld $7,%0" : : "m" (l->args[3]) : "$7"); /* arg1 = l->args[3]; */ __asm__ __volatile__ ("ld $8,%0" : : "m" (l->args[4]) : "$8"); /* arg1 = l->args[4]; */ __asm__ __volatile__ ("ld $9,%0" : : "m" (l->args[5]) : "$9"); /* arg1 = l->args[5]; */ __asm__ __volatile__ ("ld $10,%0" : : "m" (l->args[6]) : "$10"); /* arg1 = l->args[6]; */ __asm__ __volatile__ ("ld $11,%0" : : "m" (l->args[7]) : "$11"); /* arg1 = l->args[7]; */ /* Note: The code of this call ought to put the address of the called function in register $25 before the call. */ iret = (*l->func)(); /* save return value */ if (l->rtype == __AVvoid) { } else if (l->rtype == __AVword) { RETURN(__avword, iret); } else if (l->rtype == __AVchar) { RETURN(char, iret); } else if (l->rtype == __AVschar) { RETURN(signed char, iret); } else if (l->rtype == __AVuchar) { RETURN(unsigned char, iret); } else if (l->rtype == __AVshort) { RETURN(short, iret); } else if (l->rtype == __AVushort) { RETURN(unsigned short, iret); } else if (l->rtype == __AVint) { RETURN(int, iret); } else if (l->rtype == __AVuint) { RETURN(unsigned int, iret); } else if (l->rtype == __AVlong) { RETURN(long, iret); } else if (l->rtype == __AVulong) { RETURN(unsigned long, iret); } else if (l->rtype == __AVlonglong) { RETURN(long long, iret); } else if (l->rtype == __AVulonglong) { RETURN(unsigned long long, iret); } else if (l->rtype == __AVfloat) { RETURN(float, fret); } else if (l->rtype == __AVdouble) { RETURN(double, dret); } else if (l->rtype == __AVvoidp) { RETURN(void*, iret); } else if (l->rtype == __AVstruct) { if (l->flags & __AV_REGISTER_STRUCT_RETURN) { if (l->flags & __AV_GCC_STRUCT_RETURN) { /* gcc returns structs of size 1,2,4,8 in registers. */ if (l->rsize == sizeof(char)) { RETURN(char, iret); } else if (l->rsize == sizeof(short)) { RETURN(short, iret); } else if (l->rsize == sizeof(int)) { RETURN(int, iret); } else if (l->rsize == sizeof(long)) { RETURN(long, iret); } } else { /* cc returns structs of size <= 16 in registers. */ if (l->rsize > 0 && l->rsize <= 16) { void* raddr = l->raddr; #if 0 /* Unoptimized */ if (l->rsize == 1) { #if defined(_MIPSEL) ((unsigned char *)raddr)[0] = (unsigned char)(iret); #else ((unsigned char *)raddr)[0] = (unsigned char)(iret>>56); #endif } else if (l->rsize == 2) { #if defined(_MIPSEL) ((unsigned char *)raddr)[0] = (unsigned char)(iret); ((unsigned char *)raddr)[1] = (unsigned char)(iret>>8); #else ((unsigned char *)raddr)[0] = (unsigned char)(iret>>56); ((unsigned char *)raddr)[1] = (unsigned char)(iret>>48); #endif } else if (l->rsize == 3) { #if defined(_MIPSEL) ((unsigned char *)raddr)[0] = (unsigned char)(iret); ((unsigned char *)raddr)[1] = (unsigned char)(iret>>8); ((unsigned char *)raddr)[2] = (unsigned char)(iret>>16); #else ((unsigned char *)raddr)[0] = (unsigned char)(iret>>56); ((unsigned char *)raddr)[1] = (unsigned char)(iret>>48); ((unsigned char *)raddr)[2] = (unsigned char)(iret>>40); #endif } else if (l->rsize == 4) { #if defined(_MIPSEL) ((unsigned char *)raddr)[0] = (unsigned char)(iret); ((unsigned char *)raddr)[1] = (unsigned char)(iret>>8); ((unsigned char *)raddr)[2] = (unsigned char)(iret>>16); ((unsigned char *)raddr)[3] = (unsigned char)(iret>>24); #else ((unsigned char *)raddr)[0] = (unsigned char)(iret>>56); ((unsigned char *)raddr)[1] = (unsigned char)(iret>>48); ((unsigned char *)raddr)[2] = (unsigned char)(iret>>40); ((unsigned char *)raddr)[3] = (unsigned char)(iret>>32); #endif } else if (l->rsize == 5) { #if defined(_MIPSEL) ((unsigned char *)raddr)[0] = (unsigned char)(iret); ((unsigned char *)raddr)[1] = (unsigned char)(iret>>8); ((unsigned char *)raddr)[2] = (unsigned char)(iret>>16); ((unsigned char *)raddr)[3] = (unsigned char)(iret>>24); ((unsigned char *)raddr)[4] = (unsigned char)(iret>>32); #else ((unsigned char *)raddr)[0] = (unsigned char)(iret>>56); ((unsigned char *)raddr)[1] = (unsigned char)(iret>>48); ((unsigned char *)raddr)[2] = (unsigned char)(iret>>40); ((unsigned char *)raddr)[3] = (unsigned char)(iret>>32); ((unsigned char *)raddr)[4] = (unsigned char)(iret>>24); #endif } else if (l->rsize == 6) { #if defined(_MIPSEL) ((unsigned char *)raddr)[0] = (unsigned char)(iret); ((unsigned char *)raddr)[1] = (unsigned char)(iret>>8); ((unsigned char *)raddr)[2] = (unsigned char)(iret>>16); ((unsigned char *)raddr)[3] = (unsigned char)(iret>>24); ((unsigned char *)raddr)[4] = (unsigned char)(iret>>32); ((unsigned char *)raddr)[5] = (unsigned char)(iret>>40); #else ((unsigned char *)raddr)[0] = (unsigned char)(iret>>56); ((unsigned char *)raddr)[1] = (unsigned char)(iret>>48); ((unsigned char *)raddr)[2] = (unsigned char)(iret>>40); ((unsigned char *)raddr)[3] = (unsigned char)(iret>>32); ((unsigned char *)raddr)[4] = (unsigned char)(iret>>24); ((unsigned char *)raddr)[5] = (unsigned char)(iret>>16); #endif } else if (l->rsize == 7) { #if defined(_MIPSEL) ((unsigned char *)raddr)[0] = (unsigned char)(iret); ((unsigned char *)raddr)[1] = (unsigned char)(iret>>8); ((unsigned char *)raddr)[2] = (unsigned char)(iret>>16); ((unsigned char *)raddr)[3] = (unsigned char)(iret>>24); ((unsigned char *)raddr)[4] = (unsigned char)(iret>>32); ((unsigned char *)raddr)[5] = (unsigned char)(iret>>40); ((unsigned char *)raddr)[6] = (unsigned char)(iret>>48); #else ((unsigned char *)raddr)[0] = (unsigned char)(iret>>56); ((unsigned char *)raddr)[1] = (unsigned char)(iret>>48); ((unsigned char *)raddr)[2] = (unsigned char)(iret>>40); ((unsigned char *)raddr)[3] = (unsigned char)(iret>>32); ((unsigned char *)raddr)[4] = (unsigned char)(iret>>24); ((unsigned char *)raddr)[5] = (unsigned char)(iret>>16); ((unsigned char *)raddr)[6] = (unsigned char)(iret>>8); #endif } else if (l->rsize >= 8 && l->rsize <= 16) { #if defined(_MIPSEL) ((unsigned char *)raddr)[0] = (unsigned char)(iret); ((unsigned char *)raddr)[1] = (unsigned char)(iret>>8); ((unsigned char *)raddr)[2] = (unsigned char)(iret>>16); ((unsigned char *)raddr)[3] = (unsigned char)(iret>>24); ((unsigned char *)raddr)[4] = (unsigned char)(iret>>32); ((unsigned char *)raddr)[5] = (unsigned char)(iret>>40); ((unsigned char *)raddr)[6] = (unsigned char)(iret>>48); ((unsigned char *)raddr)[7] = (unsigned char)(iret>>56); #else ((unsigned char *)raddr)[0] = (unsigned char)(iret>>56); ((unsigned char *)raddr)[1] = (unsigned char)(iret>>48); ((unsigned char *)raddr)[2] = (unsigned char)(iret>>40); ((unsigned char *)raddr)[3] = (unsigned char)(iret>>32); ((unsigned char *)raddr)[4] = (unsigned char)(iret>>24); ((unsigned char *)raddr)[5] = (unsigned char)(iret>>16); ((unsigned char *)raddr)[6] = (unsigned char)(iret>>8); ((unsigned char *)raddr)[7] = (unsigned char)(iret); #endif if (l->rsize == 8) { } else if (l->rsize == 9) { #if defined(_MIPSEL) ((unsigned char *)raddr)[8+0] = (unsigned char)(iret2); #else ((unsigned char *)raddr)[8+0] = (unsigned char)(iret2>>56); #endif } else if (l->rsize == 10) { #if defined(_MIPSEL) ((unsigned char *)raddr)[8+0] = (unsigned char)(iret2); ((unsigned char *)raddr)[8+1] = (unsigned char)(iret2>>8); #else ((unsigned char *)raddr)[8+0] = (unsigned char)(iret2>>56); ((unsigned char *)raddr)[8+1] = (unsigned char)(iret2>>48); #endif } else if (l->rsize == 11) { #if defined(_MIPSEL) ((unsigned char *)raddr)[8+0] = (unsigned char)(iret2); ((unsigned char *)raddr)[8+1] = (unsigned char)(iret2>>8); ((unsigned char *)raddr)[8+2] = (unsigned char)(iret2>>16); #else ((unsigned char *)raddr)[8+0] = (unsigned char)(iret2>>56); ((unsigned char *)raddr)[8+1] = (unsigned char)(iret2>>48); ((unsigned char *)raddr)[8+2] = (unsigned char)(iret2>>40); #endif } else if (l->rsize == 12) { #if defined(_MIPSEL) ((unsigned char *)raddr)[8+0] = (unsigned char)(iret2); ((unsigned char *)raddr)[8+1] = (unsigned char)(iret2>>8); ((unsigned char *)raddr)[8+2] = (unsigned char)(iret2>>16); ((unsigned char *)raddr)[8+3] = (unsigned char)(iret2>>24); #else ((unsigned char *)raddr)[8+0] = (unsigned char)(iret2>>56); ((unsigned char *)raddr)[8+1] = (unsigned char)(iret2>>48); ((unsigned char *)raddr)[8+2] = (unsigned char)(iret2>>40); ((unsigned char *)raddr)[8+3] = (unsigned char)(iret2>>32); #endif } else if (l->rsize == 13) { #if defined(_MIPSEL) ((unsigned char *)raddr)[8+0] = (unsigned char)(iret2); ((unsigned char *)raddr)[8+1] = (unsigned char)(iret2>>8); ((unsigned char *)raddr)[8+2] = (unsigned char)(iret2>>16); ((unsigned char *)raddr)[8+3] = (unsigned char)(iret2>>24); ((unsigned char *)raddr)[8+4] = (unsigned char)(iret2>>32); #else ((unsigned char *)raddr)[8+0] = (unsigned char)(iret2>>56); ((unsigned char *)raddr)[8+1] = (unsigned char)(iret2>>48); ((unsigned char *)raddr)[8+2] = (unsigned char)(iret2>>40); ((unsigned char *)raddr)[8+3] = (unsigned char)(iret2>>32); ((unsigned char *)raddr)[8+4] = (unsigned char)(iret2>>24); #endif } else if (l->rsize == 14) { #if defined(_MIPSEL) ((unsigned char *)raddr)[8+0] = (unsigned char)(iret2); ((unsigned char *)raddr)[8+1] = (unsigned char)(iret2>>8); ((unsigned char *)raddr)[8+2] = (unsigned char)(iret2>>16); ((unsigned char *)raddr)[8+3] = (unsigned char)(iret2>>24); ((unsigned char *)raddr)[8+4] = (unsigned char)(iret2>>32); ((unsigned char *)raddr)[8+5] = (unsigned char)(iret2>>40); #else ((unsigned char *)raddr)[8+0] = (unsigned char)(iret2>>56); ((unsigned char *)raddr)[8+1] = (unsigned char)(iret2>>48); ((unsigned char *)raddr)[8+2] = (unsigned char)(iret2>>40); ((unsigned char *)raddr)[8+3] = (unsigned char)(iret2>>32); ((unsigned char *)raddr)[8+4] = (unsigned char)(iret2>>24); ((unsigned char *)raddr)[8+5] = (unsigned char)(iret2>>16); #endif } else if (l->rsize == 15) { #if defined(_MIPSEL) ((unsigned char *)raddr)[8+0] = (unsigned char)(iret2); ((unsigned char *)raddr)[8+1] = (unsigned char)(iret2>>8); ((unsigned char *)raddr)[8+2] = (unsigned char)(iret2>>16); ((unsigned char *)raddr)[8+3] = (unsigned char)(iret2>>24); ((unsigned char *)raddr)[8+4] = (unsigned char)(iret2>>32); ((unsigned char *)raddr)[8+5] = (unsigned char)(iret2>>40); ((unsigned char *)raddr)[8+6] = (unsigned char)(iret2>>48); #else ((unsigned char *)raddr)[8+0] = (unsigned char)(iret2>>56); ((unsigned char *)raddr)[8+1] = (unsigned char)(iret2>>48); ((unsigned char *)raddr)[8+2] = (unsigned char)(iret2>>40); ((unsigned char *)raddr)[8+3] = (unsigned char)(iret2>>32); ((unsigned char *)raddr)[8+4] = (unsigned char)(iret2>>24); ((unsigned char *)raddr)[8+5] = (unsigned char)(iret2>>16); ((unsigned char *)raddr)[8+6] = (unsigned char)(iret2>>8); #endif } else if (l->rsize == 16) { #if defined(_MIPSEL) ((unsigned char *)raddr)[8+0] = (unsigned char)(iret2); ((unsigned char *)raddr)[8+1] = (unsigned char)(iret2>>8); ((unsigned char *)raddr)[8+2] = (unsigned char)(iret2>>16); ((unsigned char *)raddr)[8+3] = (unsigned char)(iret2>>24); ((unsigned char *)raddr)[8+4] = (unsigned char)(iret2>>32); ((unsigned char *)raddr)[8+5] = (unsigned char)(iret2>>40); ((unsigned char *)raddr)[8+6] = (unsigned char)(iret2>>48); ((unsigned char *)raddr)[8+7] = (unsigned char)(iret2>>56); #else ((unsigned char *)raddr)[8+0] = (unsigned char)(iret2>>56); ((unsigned char *)raddr)[8+1] = (unsigned char)(iret2>>48); ((unsigned char *)raddr)[8+2] = (unsigned char)(iret2>>40); ((unsigned char *)raddr)[8+3] = (unsigned char)(iret2>>32); ((unsigned char *)raddr)[8+4] = (unsigned char)(iret2>>24); ((unsigned char *)raddr)[8+5] = (unsigned char)(iret2>>16); ((unsigned char *)raddr)[8+6] = (unsigned char)(iret2>>8); ((unsigned char *)raddr)[8+7] = (unsigned char)(iret2); #endif } } #else /* Optimized: fewer conditional jumps, fewer memory accesses */ uintptr_t count = l->rsize; /* > 0, ≤ 2*sizeof(__avword) */ __avword* wordaddr = (__avword*)((uintptr_t)raddr & ~(uintptr_t)(sizeof(__avword)-1)); uintptr_t start_offset = (uintptr_t)raddr & (uintptr_t)(sizeof(__avword)-1); /* ≥ 0, < sizeof(__avword) */ uintptr_t end_offset = start_offset + count; /* > 0, < 3*sizeof(__avword) */ #if defined(_MIPSEL) if (count <= sizeof(__avword)) { /* Use iret. */ if (end_offset <= sizeof(__avword)) { /* 0 < end_offset ≤ sizeof(__avword) */ __avword mask0 = ((__avword)2 << (end_offset*8-1)) - ((__avword)1 << (start_offset*8)); wordaddr[0] ^= (wordaddr[0] ^ (iret << (start_offset*8))) & mask0; } else { /* sizeof(__avword) < end_offset < 2*sizeof(__avword), start_offset > 0 */ __avword mask0 = - ((__avword)1 << (start_offset*8)); __avword mask1 = ((__avword)2 << (end_offset*8-sizeof(__avword)*8-1)) - 1; wordaddr[0] ^= (wordaddr[0] ^ (iret << (start_offset*8))) & mask0; wordaddr[1] ^= (wordaddr[1] ^ (iret >> (sizeof(__avword)*8-start_offset*8))) & mask1; } } else { /* Use iret, iret2. */ __avword mask0 = - ((__avword)1 << (start_offset*8)); wordaddr[0] ^= (wordaddr[0] ^ (iret << (start_offset*8))) & mask0; if (end_offset <= 2*sizeof(__avword)) { /* sizeof(__avword) < end_offset ≤ 2*sizeof(__avword) */ __avword mask1 = ((__avword)2 << (end_offset*8-sizeof(__avword)*8-1)) - 1; wordaddr[1] ^= (wordaddr[1] ^ ((iret >> (sizeof(__avword)*4-start_offset*4) >> (sizeof(__avword)*4-start_offset*4)) | (iret2 << (start_offset*8)))) & mask1; } else { /* 2*sizeof(__avword) < end_offset < 3*sizeof(__avword), start_offset > 0 */ __avword mask2 = ((__avword)2 << (end_offset*8-2*sizeof(__avword)*8-1)) - 1; wordaddr[1] = (iret >> (sizeof(__avword)*8-start_offset*8)) | (iret2 << (start_offset*8)); wordaddr[2] ^= (wordaddr[2] ^ (iret2 >> (sizeof(__avword)*8-start_offset*8))) & mask2; } } #else if (count <= sizeof(__avword)) { /* Use iret. */ if (end_offset <= sizeof(__avword)) { /* 0 < end_offset ≤ sizeof(__avword) */ __avword mask0 = ((__avword)2 << (sizeof(__avword)*8-start_offset*8-1)) - ((__avword)1 << (sizeof(__avword)*8-end_offset*8)); wordaddr[0] ^= (wordaddr[0] ^ (iret >> (start_offset*8))) & mask0; } else { /* sizeof(__avword) < end_offset < 2*sizeof(__avword), start_offset > 0 */ __avword mask0 = ((__avword)2 << (sizeof(__avword)*8-start_offset*8-1)) - 1; __avword mask1 = - ((__avword)1 << (2*sizeof(__avword)*8-end_offset*8)); wordaddr[0] ^= (wordaddr[0] ^ (iret >> (start_offset*8))) & mask0; wordaddr[1] ^= (wordaddr[1] ^ (iret << (sizeof(__avword)*8-start_offset*8))) & mask1; } } else { /* Use iret, iret2. */ __avword mask0 = ((__avword)2 << (sizeof(__avword)*8-start_offset*8-1)) - 1; wordaddr[0] ^= (wordaddr[0] ^ (iret >> (start_offset*8))) & mask0; if (end_offset <= 2*sizeof(__avword)) { /* sizeof(__avword) < end_offset ≤ 2*sizeof(__avword) */ __avword mask1 = - ((__avword)1 << (2*sizeof(__avword)*8-end_offset*8)); wordaddr[1] ^= (wordaddr[1] ^ ((iret << (sizeof(__avword)*4-start_offset*4) << (sizeof(__avword)*4-start_offset*4)) | (iret2 >> (start_offset*8)))) & mask1; } else { /* 2*sizeof(__avword) < end_offset < 3*sizeof(__avword), start_offset > 0 */ __avword mask2 = - ((__avword)1 << (3*sizeof(__avword)*8-end_offset*8)); wordaddr[1] = (iret << (sizeof(__avword)*8-start_offset*8)) | (iret2 >> (start_offset*8)); wordaddr[2] ^= (wordaddr[2] ^ (iret2 << (sizeof(__avword)*8-start_offset*8))) & mask2; } } #endif #endif } } } } return 0; } libffcall-2.2/avcall/avcall-x86_64-windows-macro.S0000664000000000000000000002063413530357110016542 00000000000000#include "asm-x86_64.h" TEXT() P2ALIGN(4,15) GLOBL(C(avcall_call)) DECLARE_FUNCTION(avcall_call) FUNBEGIN(avcall_call) L(FB0): INSN1(push,q ,R(rbp)) L(CFI0): INSN2(mov,q ,R(rsp), R(rbp)) L(CFI1): INSN1(push,q ,R(rsi)) INSN1(push,q ,R(rbx)) L(CFI2): INSN2(mov,q ,R(rcx), R(rbx)) INSN2(sub,q ,NUM(32), R(rsp)) INSN2(mov,q ,X8 MEM_DISP(rcx,48), R(rcx)) INSN2(mov,q ,X8 MEM_DISP(rbx,40), R(rax)) INSN2(sub,q ,NUM(2064), R(rsp)) INSN2(sub,q ,R(rcx), R(rax)) INSN2(sar,q ,NUM(3), R(rax)) INSN2(cmp,l ,NUM(4), R(eax)) INSN1(jle,_ ,L(6)) INSN2(lea,l ,X4 MEM_DISP(rax,-5), R(r8d)) INSN2(lea,q ,X8 MEM_DISP(rsp,32), R(r9)) INSN2(xor,l ,R(eax), R(eax)) INSN2(add,q ,NUM(1), R(r8)) P2ALIGN(4,10) P2ALIGN(3,7) L(5): INSN2(mov,q ,X8 MEM_DISP_SHINDEX(rcx,32,rax,8), R(rdx)) INSN2(mov,q ,R(rdx),X8 MEM_SHINDEX(r9,rax,8)) INSN2(add,q ,NUM(1), R(rax)) INSN2(cmp,q ,R(r8), R(rax)) INSN1(jne,_ ,L(5)) L(6): INSN2(mov,l ,X4 MEM_DISP(rbx,68), R(eax)) INSN2(test,l ,R(eax), R(eax)) INSN1(je,_ ,L(7)) INSN2(test,b ,NUM(1), R(al)) INSN1(je,_ ,L(8)) INSN2S(movs,s ,X4 MEM_DISP(rbx,76), R(xmm0)) L(8): INSN2(test,b ,NUM(2), R(al)) INSN1(je,_ ,L(9)) INSN2S(movs,s ,X4 MEM_DISP(rbx,80), R(xmm1)) L(9): INSN2(test,b ,NUM(4), R(al)) INSN1(je,_ ,L(10)) INSN2S(movs,s ,X4 MEM_DISP(rbx,84), R(xmm2)) L(10): INSN2(test,b ,NUM(8), R(al)) INSN1(jne,_ ,L(78)) L(7): INSN2(mov,l ,X4 MEM_DISP(rbx,72), R(eax)) INSN2(test,l ,R(eax), R(eax)) INSN1(je,_ ,L(12)) INSN2(test,b ,NUM(1), R(al)) INSN1(je,_ ,L(13)) INSN2S(movs,d ,X8 MEM_DISP(rbx,96), R(xmm0)) L(13): INSN2(test,b ,NUM(2), R(al)) INSN1(je,_ ,L(14)) INSN2S(movs,d ,X8 MEM_DISP(rbx,104), R(xmm1)) L(14): INSN2(test,b ,NUM(4), R(al)) INSN1(je,_ ,L(15)) INSN2S(movs,d ,X8 MEM_DISP(rbx,112), R(xmm2)) L(15): INSN2(test,b ,NUM(8), R(al)) INSN1(jne,_ ,L(79)) L(12): INSN2(mov,l ,X4 MEM_DISP(rbx,24), R(eax)) INSN2(cmp,l ,NUM(13), R(eax)) INSN1(je,_ ,L(80)) INSN2(cmp,l ,NUM(14), R(eax)) INSN1(je,_ ,L(81)) INSN2(mov,q ,X8 MEM_DISP(rcx,8), R(rdx)) INSN2(mov,q ,X8 MEM_DISP(rcx,24), R(r9)) INSN2(mov,q ,X8 MEM_DISP(rcx,16), R(r8)) INSN2(mov,q ,X8 MEM(rcx), R(rcx)) INSN1(call,_ ,INDIR(X8 MEM_DISP(rbx,8))) INSN2(mov,l ,X4 MEM_DISP(rbx,24), R(edx)) INSN2(cmp,l ,NUM(1), R(edx)) INSN1(je,_ ,L(18)) INSN2(test,l ,R(edx), R(edx)) INSN1(je,_ ,L(76)) INSN2(cmp,l ,NUM(2), R(edx)) INSN1(je,_ ,L(73)) INSN2(cmp,l ,NUM(3), R(edx)) INSN1(je,_ ,L(73)) INSN2(cmp,l ,NUM(4), R(edx)) INSN1(je,_ ,L(73)) INSN2(cmp,l ,NUM(5), R(edx)) INSN1(je,_ ,L(74)) INSN2(cmp,l ,NUM(6), R(edx)) INSN1(je,_ ,L(74)) INSN2(cmp,l ,NUM(7), R(edx)) INSN1(je,_ ,L(75)) INSN2(cmp,l ,NUM(8), R(edx)) INSN1(je,_ ,L(75)) INSN2(cmp,l ,NUM(9), R(edx)) INSN1(je,_ ,L(76)) INSN2(cmp,l ,NUM(10), R(edx)) INSN1(je,_ ,L(76)) INSN2(cmp,l ,NUM(11), R(edx)) INSN1(je,_ ,L(76)) INSN2(cmp,l ,NUM(12), R(edx)) INSN1(je,_ ,L(76)) INSN2(cmp,l ,NUM(15), R(edx)) INSN1(je,_ ,L(76)) INSN2(cmp,l ,NUM(16), R(edx)) INSN1(jne,_ ,L(18)) INSN2(test,l ,NUM(512),X4 MEM(rbx)) INSN1(je,_ ,L(18)) INSN2(mov,q ,X8 MEM_DISP(rbx,32), R(r8)) INSN2(lea,q ,X8 MEM_DISP(r8,-4), R(rdx)) INSN2(test,q ,NUM(-5), R(rdx)) INSN1(je,_ ,L(35)) INSN2(lea,q ,X8 MEM_DISP(r8,-1), R(rdx)) INSN2(cmp,q ,NUM(1), R(rdx)) INSN1(ja,_ ,L(18)) L(35): INSN2(mov,q ,X8 MEM_DISP(rbx,16), R(rdx)) INSN2(mov,q ,R(rdx), R(r9)) INSN2(and,l ,NUM(7), R(edx)) INSN2(add,q ,R(rdx), R(r8)) INSN2(and,q ,NUM(-8), R(r9)) INSN2(cmp,q ,NUM(8), R(r8)) INSN1(jbe,_ ,L(82)) INSN2(lea,l ,X4 MEM_DISP_SHINDEX0(0,rdx,8), R(ecx)) INSN2(mov,q ,X8 MEM(r9), R(r10)) INSN2(mov,q ,R(rax), R(rsi)) INSN2(mov,q ,NUM(-1), R(r11)) INSN1(neg,l ,R(edx)) INSN2(sal,q ,R(cl), R(rsi)) INSN2(sal,q ,R(cl), R(r11)) INSN2(mov,q ,R(rsi), R(rcx)) INSN2(xor,q ,R(r10), R(rcx)) INSN2(and,q ,R(r11), R(rcx)) INSN2(xor,q ,R(r10), R(rcx)) INSN2(mov,q ,X8 MEM_DISP(r9,8), R(r10)) INSN2(mov,q ,R(rcx),X8 MEM(r9)) INSN2(lea,l ,X4 MEM_DISP_SHINDEX0(-65,r8,8), R(ecx)) INSN2(mov,l ,NUM(2), R(r8d)) INSN2(sal,q ,R(cl), R(r8)) INSN2(lea,l ,X4 MEM_DISP_SHINDEX0(64,rdx,8), R(ecx)) INSN2(sub,q ,NUM(1), R(r8)) INSN2(sar,q ,R(cl), R(rax)) INSN2(xor,q ,R(r10), R(rax)) INSN2(and,q ,R(r8), R(rax)) INSN2(xor,q ,R(r10), R(rax)) INSN2(mov,q ,R(rax),X8 MEM_DISP(r9,8)) L(18): INSN2(lea,q ,X8 MEM_DISP(rbp,-16), R(rsp)) INSN2(xor,l ,R(eax), R(eax)) INSN1(pop,q ,R(rbx)) L(CFI3): INSN1(pop,q ,R(rsi)) L(CFI4): INSN1(pop,q ,R(rbp)) L(CFI5): ret P2ALIGN(4,10) P2ALIGN(3,7) L(79): L(CFI6): INSN2S(movs,d ,X8 MEM_DISP(rbx,120), R(xmm3)) INSN1(jmp,_ ,L(12)) P2ALIGN(4,10) P2ALIGN(3,7) L(78): INSN2S(movs,s ,X4 MEM_DISP(rbx,88), R(xmm3)) INSN1(jmp,_ ,L(7)) P2ALIGN(4,10) P2ALIGN(3,7) L(76): INSN2(mov,q ,X8 MEM_DISP(rbx,16), R(rdx)) INSN2(mov,q ,R(rax),X8 MEM(rdx)) INSN2(lea,q ,X8 MEM_DISP(rbp,-16), R(rsp)) INSN2(xor,l ,R(eax), R(eax)) INSN1(pop,q ,R(rbx)) L(CFI7): INSN1(pop,q ,R(rsi)) L(CFI8): INSN1(pop,q ,R(rbp)) L(CFI9): ret P2ALIGN(4,10) P2ALIGN(3,7) L(73): L(CFI10): INSN2(mov,q ,X8 MEM_DISP(rbx,16), R(rdx)) INSN2(mov,b ,R(al),X1 MEM(rdx)) INSN2(lea,q ,X8 MEM_DISP(rbp,-16), R(rsp)) INSN2(xor,l ,R(eax), R(eax)) INSN1(pop,q ,R(rbx)) L(CFI11): INSN1(pop,q ,R(rsi)) L(CFI12): INSN1(pop,q ,R(rbp)) L(CFI13): ret P2ALIGN(4,10) P2ALIGN(3,7) L(81): L(CFI14): INSN2(mov,q ,X8 MEM_DISP(rbx,16), R(rsi)) INSN2(mov,q ,X8 MEM_DISP(rcx,8), R(rdx)) INSN2(mov,q ,X8 MEM_DISP(rcx,24), R(r9)) INSN2(mov,q ,X8 MEM_DISP(rcx,16), R(r8)) INSN2(mov,q ,X8 MEM(rcx), R(rcx)) INSN1(call,_ ,INDIR(X8 MEM_DISP(rbx,8))) INSN2S(movs,d ,R(xmm0),X8 MEM(rsi)) INSN2(lea,q ,X8 MEM_DISP(rbp,-16), R(rsp)) INSN2(xor,l ,R(eax), R(eax)) INSN1(pop,q ,R(rbx)) L(CFI15): INSN1(pop,q ,R(rsi)) L(CFI16): INSN1(pop,q ,R(rbp)) L(CFI17): ret L(80): L(CFI18): INSN2(mov,q ,X8 MEM_DISP(rbx,16), R(rsi)) INSN2(mov,q ,X8 MEM_DISP(rcx,8), R(rdx)) INSN2(mov,q ,X8 MEM_DISP(rcx,24), R(r9)) INSN2(mov,q ,X8 MEM_DISP(rcx,16), R(r8)) INSN2(mov,q ,X8 MEM(rcx), R(rcx)) INSN1(call,_ ,INDIR(X8 MEM_DISP(rbx,8))) INSN2S(movs,s ,R(xmm0),X4 MEM(rsi)) INSN1(jmp,_ ,L(18)) L(74): INSN2(mov,q ,X8 MEM_DISP(rbx,16), R(rdx)) INSN2(mov,w ,R(ax),X2 MEM(rdx)) INSN1(jmp,_ ,L(18)) L(75): INSN2(mov,q ,X8 MEM_DISP(rbx,16), R(rdx)) INSN2(mov,l ,R(eax),X4 MEM(rdx)) INSN1(jmp,_ ,L(18)) L(82): INSN2(lea,l ,X4 MEM_DISP_SHINDEX0(-1,r8,8), R(ecx)) INSN2(mov,q ,X8 MEM(r9), R(r10)) INSN2(sal,l ,NUM(3), R(edx)) INSN2(mov,l ,NUM(2), R(r8d)) INSN2(mov,l ,NUM(1), R(r11d)) INSN2(sal,q ,R(cl), R(r8)) INSN2(mov,l ,R(edx), R(ecx)) INSN2(sal,q ,R(cl), R(r11)) INSN2(sal,q ,R(cl), R(rax)) INSN2(sub,q ,R(r11), R(r8)) INSN2(xor,q ,R(r10), R(rax)) INSN2(and,q ,R(r8), R(rax)) INSN2(xor,q ,R(r10), R(rax)) INSN2(mov,q ,R(rax),X8 MEM(r9)) INSN1(jmp,_ ,L(18)) L(FE0): FUNEND(avcall_call, .-avcall_call) #if !(defined __sun || (defined __APPLE__ && defined __MACH__) || (defined _WIN32 || defined __CYGWIN__)) .section EH_FRAME_SECTION L(frame1): .long L(ECIE1)-.LSCIE1 L(SCIE1): .long 0 .byte 0x3 .string "zR" .uleb128 0x1 .sleb128 -8 .uleb128 0x10 .uleb128 0x1 .byte 0x1b .byte 0xc .uleb128 0x7 .uleb128 0x8 .byte 0x90 .uleb128 0x1 .align 8 L(ECIE1): L(SFDE1): .long L(EFDE1)-.LASFDE1 L(ASFDE1): .long L(ASFDE1)-.Lframe1 .long L(FB0)-. .long L(FE0)-.LFB0 .uleb128 0 .byte 0x4 .long L(CFI0)-.LFB0 .byte 0xe .uleb128 0x10 .byte 0x86 .uleb128 0x2 .byte 0x4 .long L(CFI1)-.LCFI0 .byte 0xd .uleb128 0x6 .byte 0x4 .long L(CFI2)-.LCFI1 .byte 0x84 .uleb128 0x3 .byte 0x83 .uleb128 0x4 .byte 0x4 .long L(CFI3)-.LCFI2 .byte 0xa .byte 0xc3 .byte 0x4 .long L(CFI4)-.LCFI3 .byte 0xc4 .byte 0x4 .long L(CFI5)-.LCFI4 .byte 0xc6 .byte 0xc .uleb128 0x7 .uleb128 0x8 .byte 0x4 .long L(CFI6)-.LCFI5 .byte 0xb .byte 0x4 .long L(CFI7)-.LCFI6 .byte 0xa .byte 0xc3 .byte 0x4 .long L(CFI8)-.LCFI7 .byte 0xc4 .byte 0x4 .long L(CFI9)-.LCFI8 .byte 0xc6 .byte 0xc .uleb128 0x7 .uleb128 0x8 .byte 0x4 .long L(CFI10)-.LCFI9 .byte 0xb .byte 0x4 .long L(CFI11)-.LCFI10 .byte 0xa .byte 0xc3 .byte 0x4 .long L(CFI12)-.LCFI11 .byte 0xc4 .byte 0x4 .long L(CFI13)-.LCFI12 .byte 0xc6 .byte 0xc .uleb128 0x7 .uleb128 0x8 .byte 0x4 .long L(CFI14)-.LCFI13 .byte 0xb .byte 0x4 .long L(CFI15)-.LCFI14 .byte 0xa .byte 0xc3 .byte 0x4 .long L(CFI16)-.LCFI15 .byte 0xc4 .byte 0x4 .long L(CFI17)-.LCFI16 .byte 0xc6 .byte 0xc .uleb128 0x7 .uleb128 0x8 .byte 0x4 .long L(CFI18)-.LCFI17 .byte 0xb .align 8 L(EFDE1): #endif #if defined __linux__ || defined __FreeBSD__ || defined __FreeBSD_kernel__ || defined __DragonFly__ .section .note.GNU-stack,"",@progbits #endif libffcall-2.2/avcall/avcall-sparc64-macro.S0000664000000000000000000002204413530357106015400 00000000000000#include "asm-sparc.h" .section ".text" .align 4 .global C(avcall_call) DECLARE_FUNCTION(avcall_call) .proc 04 FUNBEGIN(avcall_call) .register %g2, $scratch .register %g3, $scratch save %sp, -192, %sp ldx [%i0+48], %g2 ldx [%i0+40], %g1 lduw [%i0+68], %g3 sub %g1, %g2, %g1 cmp %g3, 0 be,pt %icc, L(L2) srlx %g1, 3, %o7 andcc %g3, 1, %g0 bne,pt %xcc, L(L100) andcc %g3, 2, %g0 bne,pt %xcc, L(L101) andcc %g3, 4, %g0 L(L130): bne,pt %xcc, L(L102) andcc %g3, 8, %g0 L(L129): bne,pt %xcc, L(L103) andcc %g3, 16, %g0 L(L128): bne,pt %xcc, L(L104) andcc %g3, 32, %g0 L(L127): bne,pt %xcc, L(L105) andcc %g3, 64, %g0 L(L126): bne,pt %xcc, L(L106) andcc %g3, 128, %g0 L(L125): bne,pt %xcc, L(L107) andcc %g3, 256, %g0 L(L124): bne,pt %xcc, L(L108) andcc %g3, 512, %g0 L(L123): bne,pt %xcc, L(L109) andcc %g3, 1024, %g0 L(L134): bne,pt %xcc, L(L110) andcc %g3, 2048, %g0 L(L133): bne,pt %xcc, L(L111) sethi %hi(4096), %g1 L(L132): andcc %g3, %g1, %g0 bne,pt %icc, L(L112) sethi %hi(8192), %g1 L(L131): andcc %g3, %g1, %g0 bne,pt %icc, L(L113) sethi %hi(16384), %g1 L(L136): andcc %g3, %g1, %g0 bne,pt %icc, L(L114) sethi %hi(32768), %g1 L(L135): andcc %g3, %g1, %g0 bne,pt %icc, L(L115) nop L(L2): cmp %o7, 6 L(L137): bg,pn %icc, L(L120) add %o7, -6, %g1 ldx [%i0+48], %g3 L(L122): ldx [%g3+40], %o5 L(L119): ldx [%i0+8], %g1 ldx [%g3], %o0 ldx [%g3+8], %o1 ldx [%g3+16], %o2 ldx [%g3+24], %o3 call %g1, 0 ldx [%g3+32], %o4 mov %o0, %l3 nop lduw [%i0+24], %g1 cmp %g1, 1 be,pn %icc, L(L38) cmp %g1, 0 be,a,pt %icc, L(L121) ldx [%i0+16], %g1 cmp %g1, 2 be,pn %icc, L(L92) cmp %g1, 3 be,pn %icc, L(L92) cmp %g1, 4 be,pn %icc, L(L92) cmp %g1, 5 be,pn %icc, L(L93) cmp %g1, 6 be,pn %icc, L(L93) cmp %g1, 7 be,pn %icc, L(L94) cmp %g1, 8 be,pn %icc, L(L94) cmp %g1, 9 be,pn %icc, L(L98) cmp %g1, 10 be,pn %icc, L(L98) cmp %g1, 11 be,pn %icc, L(L98) cmp %g1, 12 be,pn %icc, L(L98) cmp %g1, 13 be,pn %icc, L(L117) cmp %g1, 14 be,pn %icc, L(L118) cmp %g1, 15 be,pn %icc, L(L98) cmp %g1, 16 bne,pt %icc, L(L38) nop lduw [%i0], %g1 andcc %g1, 512, %g0 be,pn %xcc, L(L38) nop ldx [%i0+32], %g2 add %g2, -1, %g1 cmp %g1, 31 bgu,pn %xcc, L(L38) cmp %g2, 8 ldx [%i0+16], %g1 and %g1, 7, %g5 and %g1, -8, %i0 bgu,pt %xcc, L(L73) add %g2, %g5, %g4 cmp %g4, 8 bgu,pt %xcc, L(L75) sllx %g5, 3, %g2 sllx %g5, 3, %g3 sllx %g4, 3, %g4 ldx [%i0], %g5 srax %o0, %g3, %o7 sub %g0, %g4, %g4 xor %g5, %o7, %o7 xnor %g0, %g3, %g3 mov 2, %g1 mov 1, %g2 sllx %g1, %g3, %g1 sllx %g2, %g4, %g2 sub %g1, %g2, %g1 and %g1, %o7, %g1 xor %g5, %g1, %g5 stx %g5, [%i0] L(L38): return %i7+8 mov 0, %o0 L(L98): ldx [%i0+16], %g1 L(L121): stx %l3, [%g1] return %i7+8 mov 0, %o0 L(L115): ldd [%g2+120],%f30 cmp %o7, 6 ble,a,pt %icc, L(L122) ldx [%i0+48], %g3 add %o7, -6, %g1 L(L120): sra %g1, 0, %g1 sllx %g1, 3, %g1 add %g1, 15, %g1 and %g1, -16, %g1 mov 6, %g4 sub %sp, %g1, %sp ldx [%i0+48], %g3 add %sp, 2238, %g1 and %g1, -16, %g1 add %g1, -48, %g5 L(L37): sra %g4, 0, %g1 add %g4, 1, %g4 sllx %g1, 3, %g1 cmp %o7, %g4 ldx [%g1+%g3], %g2 bne,pt %icc, L(L37) stx %g2, [%g5+%g1] ba,pt %xcc, L(L119) ldx [%g3+40], %o5 L(L107): ldd [%g2+56],%f14 andcc %g3, 256, %g0 be,pt %xcc, L(L123) andcc %g3, 512, %g0 ba,pt %xcc, L(L108) nop L(L106): ldd [%g2+48],%f12 andcc %g3, 128, %g0 be,pt %xcc, L(L124) andcc %g3, 256, %g0 ba,pt %xcc, L(L107) nop L(L105): ldd [%g2+40],%f10 andcc %g3, 64, %g0 be,pt %xcc, L(L125) andcc %g3, 128, %g0 ba,pt %xcc, L(L106) nop L(L104): ldd [%g2+32],%f8 andcc %g3, 32, %g0 be,pt %xcc, L(L126) andcc %g3, 64, %g0 ba,pt %xcc, L(L105) nop L(L103): ldd [%g2+24],%f6 andcc %g3, 16, %g0 be,pt %xcc, L(L127) andcc %g3, 32, %g0 ba,pt %xcc, L(L104) nop L(L102): ldd [%g2+16],%f4 andcc %g3, 8, %g0 be,pt %xcc, L(L128) andcc %g3, 16, %g0 ba,pt %xcc, L(L103) nop L(L101): ldd [%g2+8],%f2 andcc %g3, 4, %g0 be,pt %xcc, L(L129) andcc %g3, 8, %g0 ba,pt %xcc, L(L102) nop L(L100): ldd [%g2+0],%f0 andcc %g3, 2, %g0 be,pt %xcc, L(L130) andcc %g3, 4, %g0 ba,pt %xcc, L(L101) nop L(L111): ldd [%g2+88],%f22 sethi %hi(4096), %g1 andcc %g3, %g1, %g0 be,pt %icc, L(L131) sethi %hi(8192), %g1 ba,pt %xcc, L(L112) nop L(L110): ldd [%g2+80],%f20 andcc %g3, 2048, %g0 be,pt %xcc, L(L132) sethi %hi(4096), %g1 ba,pt %xcc, L(L111) nop L(L109): ldd [%g2+72],%f18 andcc %g3, 1024, %g0 be,pt %xcc, L(L133) andcc %g3, 2048, %g0 ba,pt %xcc, L(L110) nop L(L108): ldd [%g2+64],%f16 andcc %g3, 512, %g0 be,pt %xcc, L(L134) andcc %g3, 1024, %g0 ba,pt %xcc, L(L109) nop L(L113): ldd [%g2+104],%f26 sethi %hi(16384), %g1 andcc %g3, %g1, %g0 be,pt %icc, L(L135) sethi %hi(32768), %g1 ba,pt %xcc, L(L114) nop L(L112): ldd [%g2+96],%f24 sethi %hi(8192), %g1 andcc %g3, %g1, %g0 be,pt %icc, L(L136) sethi %hi(16384), %g1 ba,pt %xcc, L(L113) nop L(L114): ldd [%g2+112],%f28 sethi %hi(32768), %g1 andcc %g3, %g1, %g0 be,pt %icc, L(L137) cmp %o7, 6 ba,pt %xcc, L(L115) nop L(L92): ldx [%i0+16], %g1 stb %l3, [%g1] return %i7+8 mov 0, %o0 L(L93): ldx [%i0+16], %g1 ba,pt %xcc, L(L38) sth %l3, [%g1] L(L94): ldx [%i0+16], %g1 ba,pt %xcc, L(L38) st %l3, [%g1] L(L117): ldx [%i0+16], %g1 ba,pt %xcc, L(L38) st %f0, [%g1] L(L118): ldx [%i0+16], %g1 ba,pt %xcc, L(L38) std %f0, [%g1] L(L75): sllx %g4, 3, %l0 ldx [%i0], %g5 srax %o0, %g2, %g4 sub %g0, %g2, %g3 xor %g5, %g4, %g4 xnor %g0, %g2, %g2 mov 2, %g1 sllx %g1, %g2, %g1 add %g1, -1, %g1 and %g1, %g4, %g1 ldx [%i0+8], %o7 xor %g5, %g1, %g5 sub %g0, %l0, %l0 sllx %o0, %g3, %g3 mov -1, %g1 xor %o7, %g3, %g3 sllx %g1, %l0, %g1 stx %g5, [%i0] and %g1, %g3, %g1 xor %o7, %g1, %o7 ba,pt %xcc, L(L38) stx %o7, [%i0+8] L(L73): cmp %g2, 16 bgu,pt %xcc, L(L77) cmp %g2, 24 sll %g5, 3, %l2 xnor %g0, %l2, %g2 ldx [%i0], %g3 mov 2, %g1 cmp %g4, 16 sllx %g1, %g2, %g1 srax %o0, %l2, %g2 add %g1, -1, %g1 xor %g3, %g2, %g2 and %g1, %g2, %g1 xor %g3, %g1, %g3 bgu,pt %xcc, L(L79) stx %g3, [%i0] sllx %g5, 2, %g5 mov 32, %g2 sub %g2, %g5, %g2 ldx [%i0+8], %g3 sllx %o0, %g2, %g1 sllx %g4, 3, %g4 sllx %g1, %g2, %g1 srax %o1, %l2, %o7 sub %g0, %g4, %g4 or %g1, %o7, %g1 mov -1, %g2 xor %g3, %g1, %g1 sllx %g2, %g4, %g2 and %g2, %g1, %g2 xor %g3, %g2, %g3 ba,pt %xcc, L(L38) stx %g3, [%i0+8] L(L77): bgu,pt %xcc, L(L81) sll %g5, 3, %l4 sll %g5, 3, %l2 xnor %g0, %l2, %g2 ldx [%i0], %g3 mov 2, %g1 cmp %g4, 24 sllx %g1, %g2, %g1 srax %o0, %l2, %g2 add %g1, -1, %g1 xor %g3, %g2, %g2 and %g1, %g2, %g1 xor %g3, %g1, %g3 bgu,pt %xcc, L(L83) stx %g3, [%i0] sllx %g5, 2, %g2 mov 32, %g1 sub %g1, %g2, %g1 ldx [%i0+16], %o7 sllx %g4, 3, %g5 sllx %o0, %g1, %g3 sllx %o1, %g1, %g2 sllx %g3, %g1, %g3 sllx %g2, %g1, %g2 srax %o2, %l2, %l0 sub %g0, %g5, %g5 or %g2, %l0, %g2 srax %o1, %l2, %g4 xor %o7, %g2, %g2 or %g3, %g4, %g3 mov -1, %g1 stx %g3, [%i0+8] sllx %g1, %g5, %g1 and %g1, %g2, %g1 xor %o7, %g1, %o7 ba,pt %xcc, L(L38) stx %o7, [%i0+16] L(L79): srax %o1, %l2, %g5 mov 64, %g1 sub %g1, %l2, %g1 sllx %o1, %g1, %g2 sllx %o0, %g1, %g1 or %g1, %g5, %g1 sllx %g4, 3, %g3 stx %g1, [%i0+8] ldx [%i0+16], %g4 sub %g0, %g3, %g3 xor %g4, %g2, %g2 mov -1, %g1 sllx %g1, %g3, %g1 and %g1, %g2, %g1 xor %g4, %g1, %g4 ba,pt %xcc, L(L38) stx %g4, [%i0+16] L(L83): sllx %g4, 3, %g5 srax %o2, %l2, %l0 mov 64, %g1 sub %g1, %l2, %g1 sllx %o2, %g1, %g4 sllx %o0, %g1, %g2 sllx %o1, %g1, %g1 or %g1, %l0, %g1 ldx [%i0+24], %o7 sub %g0, %g5, %g5 xor %o7, %g4, %g4 stx %g1, [%i0+16] srax %o1, %l2, %g3 mov -1, %g1 or %g2, %g3, %g2 sllx %g1, %g5, %g1 stx %g2, [%i0+8] and %g1, %g4, %g1 xor %o7, %g1, %o7 ba,pt %xcc, L(L38) stx %o7, [%i0+24] L(L81): xnor %g0, %l4, %g2 ldx [%i0], %g3 mov 2, %g1 cmp %g4, 32 sllx %g1, %g2, %g1 srax %o0, %l4, %g2 add %g1, -1, %g1 xor %g3, %g2, %g2 and %g1, %g2, %g1 xor %g3, %g1, %g3 bgu,pt %xcc, L(L85) stx %g3, [%i0] sllx %g5, 2, %g2 mov 32, %g1 sub %g1, %g2, %g1 ldx [%i0+24], %l0 sllx %g4, 3, %l1 sllx %o0, %g1, %g3 sllx %o1, %g1, %g4 sllx %g3, %g1, %g3 sllx %g4, %g1, %g4 sllx %o2, %g1, %g2 srax %o3, %l4, %l2 sllx %g2, %g1, %g2 sub %g0, %l1, %l1 or %g2, %l2, %g2 srax %o1, %l4, %g5 xor %l0, %g2, %g2 or %g3, %g5, %g3 srax %o2, %l4, %o7 mov -1, %g1 or %g4, %o7, %g4 sllx %g1, %l1, %g1 stx %g3, [%i0+8] and %g1, %g2, %g1 stx %g4, [%i0+16] xor %l0, %g1, %l0 ba,pt %xcc, L(L38) stx %l0, [%i0+24] L(L85): srax %o3, %l4, %l2 mov 64, %g1 sub %g1, %l4, %g1 sllx %o3, %g1, %o7 sllx %o0, %g1, %g2 sllx %o1, %g1, %g3 sllx %o2, %g1, %g1 or %g1, %l2, %g1 ldx [%i0+32], %l0 sllx %g4, 3, %l1 xor %l0, %o7, %o7 sub %g0, %l1, %l1 stx %g1, [%i0+24] srax %o1, %l4, %g4 srax %o2, %l4, %g5 or %g2, %g4, %g2 or %g3, %g5, %g3 mov -1, %g1 stx %g2, [%i0+8] sllx %g1, %l1, %g1 stx %g3, [%i0+16] and %g1, %o7, %g1 xor %l0, %g1, %l0 ba,pt %xcc, L(L38) stx %l0, [%i0+32] FUNEND(avcall_call) #if defined __linux__ || defined __FreeBSD__ || defined __FreeBSD_kernel__ || defined __DragonFly__ .section .note.GNU-stack,"",@progbits #endif libffcall-2.2/avcall/avcall-alpha-macro.S0000664000000000000000000000550313530357106015204 00000000000000 .set noreorder .set volatile .set noat .set nomacro .text .align 2 .align 4 .globl avcall_call .ent avcall_call avcall_call: .frame $15,32,$26,0 .mask 0x4008200,-32 ldah $29,0($27) !gpdisp!1 lda $29,0($29) !gpdisp!1 $avcall_call..ng: lda $30,-32($30) ldq $1,40($16) ldq $3,48($16) stq $9,8($30) mov $16,$9 stq $15,16($30) mov $30,$15 subq $1,$3,$1 stq $26,0($30) .prologue 1 srl $1,3,$1 lda $30,-2064($30) addl $31,$1,$7 cmple $7,6,$2 bne $2,$L2 mov $30,$5 lda $6,6($31) lda $4,48($3) .align 4 $L4: lda $6,1($6) ldq $1,0($4) cmpeq $7,$6,$2 lda $4,8($4) stq $1,0($5) lda $5,8($5) beq $2,$L4 $L2: .set macro ldq $16,0($3) ldt $f16,0($3) .set nomacro lda $1,8($3) .set macro ldq $17,0($1) ldt $f17,0($1) .set nomacro lda $2,16($3) .set macro ldq $18,0($2) ldt $f18,0($2) .set nomacro lda $1,24($3) .set macro ldq $19,0($1) ldt $f19,0($1) .set nomacro lda $2,32($3) .set macro ldq $20,0($2) ldt $f20,0($2) .set nomacro lda $3,40($3) .set macro ldq $21,0($3) ldt $f21,0($3) .set nomacro ldq $27,8($9) jsr $26,($27),0 ldah $29,0($26) !gpdisp!2 lda $29,0($29) !gpdisp!2 mov $1,$4 ldl $2,24($9) zapnot $2,15,$3 cmpeq $3,1,$1 bne $1,$L5 beq $2,$L55 cmpeq $3,2,$1 bne $1,$L53 cmpeq $3,3,$1 bne $1,$L53 cmpeq $3,4,$1 bne $1,$L53 cmpeq $3,5,$1 bne $1,$L54 cmpeq $3,6,$1 bne $1,$L54 cmpeq $3,7,$1 bne $1,$L56 cmpeq $3,8,$1 bne $1,$L56 cmpeq $3,9,$1 bne $1,$L55 cmpeq $3,10,$1 bne $1,$L55 cmpeq $3,11,$1 bne $1,$L55 cmpeq $3,12,$1 bne $1,$L55 cmpeq $3,13,$1 bne $1,$L58 cmpeq $3,14,$1 bne $1,$L59 cmpeq $3,15,$1 bne $1,$L55 cmpeq $3,16,$1 beq $1,$L5 .align 3 #realign lda $1,512($31) ldl $2,0($9) and $1,$2,$1 beq $1,$L5 ldq $2,32($9) cmpeq $2,1,$1 bne $1,$L53 cmpeq $2,2,$1 bne $1,$L54 cmpeq $2,4,$1 bne $1,$L56 cmpeq $2,8,$1 bne $1,$L55 cmpeq $2,16,$1 beq $1,$L5 ldq $1,16($9) stq $4,8($1) stq $0,0($1) $L5: mov $15,$30 mov $31,$0 ldq $26,0($30) ldq $9,8($30) ldq $15,16($30) lda $30,32($30) ret $31,($26),1 bis $31,$31,$31 $L55: mov $15,$30 ldq $1,16($9) stq $0,0($1) mov $31,$0 ldq $26,0($30) ldq $9,8($30) ldq $15,16($30) lda $30,32($30) ret $31,($26),1 bis $31,$31,$31 $L53: mov $15,$30 ldq $1,16($9) insbl $0,$1,$3 ldq_u $2,0($1) mov $31,$0 mskbl $2,$1,$2 bis $3,$2,$3 stq_u $3,0($1) ldq $26,0($30) ldq $9,8($30) ldq $15,16($30) lda $30,32($30) ret $31,($26),1 $L54: ldq $1,16($9) inswl $0,$1,$3 ldq_u $2,0($1) mskwl $2,$1,$2 bis $3,$2,$3 stq_u $3,0($1) br $31,$L5 $L56: ldq $1,16($9) bis $31,$31,$31 stl $0,0($1) br $31,$L5 $L58: cvtts $f0,$f0 ldq $1,16($9) sts $f0,0($1) br $31,$L5 $L59: ldq $1,16($9) bis $31,$31,$31 stt $f0,0($1) br $31,$L5 .end avcall_call #if defined __linux__ || defined __FreeBSD__ || defined __FreeBSD_kernel__ || defined __DragonFly__ .section .note.GNU-stack,"",@progbits #endif libffcall-2.2/avcall/avcall-hppa-linux.s0000664000000000000000000001053513530357106015146 00000000000000 .LEVEL 1.1 .text .align 4 .globl avcall_call .type avcall_call,@function avcall_call: .PROC .CALLINFO FRAME=128,CALLS,SAVE_RP,SAVE_SP,ENTRY_GR=5 .ENTRY copy %r3,%r1 stw %r2,-20(%r30) copy %r30,%r3 stwm %r1,128(%r30) stw %r5,8(%r3) ldo -48(%r30),%r24 ldo 15(%r24),%r21 copy %r19,%r5 stw %r4,12(%r3) copy %r21,%r24 depi 0,31,4,%r24 copy %r26,%r4 stw %r19,-32(%r30) ldo 1104(%r24),%r24 ldw 28(%r26),%r22 ldw 20(%r26),%r20 sub %r22,%r20,%r20 extrs %r20,29,30,%r25 sub %r0,%r25,%r23 comib,<= -4,%r23,.L59 ldo 1088(%r30),%r30 copy %r22,%r29 .L6: zdep %r23,29,30,%r20 ldo 1(%r23),%r23 addl %r20,%r29,%r22 addl %r20,%r24,%r20 ldw 0(%r22),%r21 comib,> -4,%r23,.L6 stw %r21,0(%r20) .L58: ldw 12(%r4),%r21 ldi 16,%r20 comb,=,n %r20,%r21,.L64 .L7: comib,>=,n 0,%r25,.L8 ldw 48(%r4),%r21 extrs,>= %r21,31,1,%r0 fldws -4(%r29),%fr4L .L9: comib,>=,n 1,%r25,.L8 extrs,>= %r21,30,1,%r0 fldws -8(%r29),%fr5L .L11: ldw 52(%r4),%r22 ldi 2,%r20 and %r22,%r20,%r20 comiclr,= 0,%r20,%r0 fldds -8(%r29),%fr5 .L12: comib,>=,n 2,%r25,.L8 extrs,>= %r21,29,1,%r0 fldws -12(%r29),%fr6L .L14: comib,>=,n 3,%r25,.L8 extrs,>= %r21,28,1,%r0 fldws -16(%r29),%fr7L .L16: ldi 8,%r20 and %r22,%r20,%r20 comiclr,= 0,%r20,%r0 fldds -16(%r29),%fr7 .L8: ldw -16(%r29),%r23 ldw -4(%r29),%r26 ldw -8(%r29),%r25 ldw -12(%r29),%r24 ldw 4(%r4),%r22 .CALL ARGW0=GR bl $$dyncall,%r31 copy %r31,%r2 ldw 12(%r4),%r21 copy %r5,%r19 comib,= 1,%r21,.L19 copy %r28,%r2 comib,=,n 0,%r21,.L63 comib,=,n 2,%r21,.L62 comib,=,n 3,%r21,.L62 comib,=,n 4,%r21,.L62 comib,=,n 5,%r21,.L61 comib,=,n 6,%r21,.L61 comib,=,n 7,%r21,.L63 comib,=,n 8,%r21,.L63 comib,=,n 9,%r21,.L63 comib,=,n 10,%r21,.L63 ldo -11(%r21),%r20 comib,<<,n 1,%r20,.L40 ldw 8(%r4),%r20 stw %r29,4(%r20) .L60: stw %r2,0(%r20) .L19: ldw -20(%r3),%r2 .L67: ldi 0,%r28 ldw 8(%r3),%r5 ldw 12(%r3),%r4 ldo 64(%r3),%r30 bv %r0(%r2) ldwm -64(%r30),%r3 .L40: comib,=,n 13,%r21,.L65 comib,=,n 14,%r21,.L66 comib,=,n 15,%r21,.L63 ldi 16,%r20 comb,<>,n %r20,%r21,.L67 ldw -20(%r3),%r2 ldw 0(%r4),%r20 bb,>=,n %r20,30,.L67 ldw -20(%r3),%r2 ldw 16(%r4),%r22 ldo -1(%r22),%r20 comib,<<,n 7,%r20,.L67 ldw -20(%r3),%r2 ldw 8(%r4),%r20 extru %r20,31,2,%r26 copy %r20,%r4 depi 0,31,2,%r4 comib,<< 4,%r22,.L51 addl %r26,%r22,%r21 comib,<< 4,%r21,.L52 zdep %r21,28,29,%r20 ldo -1(%r20),%r25 zdep %r26,28,29,%r21 mtsar %r25 ldw 0(%r4),%r23 zvdep %r28,32,%r20 mtsar %r21 zvdepi 2,32,%r21 xor %r23,%r20,%r20 mtsar %r25 zvdepi 1,32,%r22 sub %r21,%r22,%r21 and %r20,%r21,%r20 xor %r23,%r20,%r23 b .L19 stw %r23,0(%r4) .L52: subi 63,%r20,%r31 zdep %r26,28,29,%r26 ldo -33(%r20),%r20 ldw 0(%r4),%r25 mtsar %r20 ldw 4(%r4),%r24 zvdep %r28,32,%r23 mtsar %r26 zvdepi 2,32,%r22 xor %r24,%r23,%r23 mtsar %r31 ldo -1(%r22),%r22 vextrs %r28,32,%r21 mtsar %r20 zvdepi 1,32,%r20 xor %r25,%r21,%r21 sub %r0,%r20,%r20 and %r21,%r22,%r21 and %r23,%r20,%r23 xor %r25,%r21,%r25 xor %r24,%r23,%r24 stw %r25,0(%r4) b .L19 stw %r24,4(%r4) .L51: zdep %r26,28,29,%r26 mtsar %r26 zvdepi 2,32,%r20 comib,<< 8,%r21,.L55 ldo -1(%r20),%r25 zdep %r21,29,30,%r20 subi 47,%r20,%r24 zdep %r21,28,29,%r21 mtsar %r24 ldo -33(%r21),%r26 vextrs %r29,32,%r22 vextrs %r22,32,%r22 mtsar %r26 ldw 0(%r4),%r24 ldw 4(%r4),%r23 zvdep %r28,32,%r20 or %r20,%r22,%r20 zvdep %r29,32,%r29 zvdepi 1,32,%r21 xor %r24,%r20,%r20 xor %r23,%r29,%r29 sub %r0,%r21,%r21 and %r20,%r25,%r20 and %r29,%r21,%r29 xor %r24,%r20,%r24 xor %r23,%r29,%r23 stw %r24,0(%r4) b .L19 stw %r23,4(%r4) .L55: zdep %r21,28,29,%r20 ldo -65(%r20),%r31 subi 95,%r20,%r26 ldw 8(%r4),%r23 mtsar %r31 ldw 0(%r4),%r24 zvdep %r29,32,%r22 zvdepi 1,32,%r21 xor %r23,%r22,%r22 mtsar %r26 sub %r0,%r21,%r21 vextrs %r28,32,%r20 and %r22,%r21,%r22 mtsar %r31 xor %r24,%r20,%r20 zvdep %r28,32,%r21 and %r20,%r25,%r20 mtsar %r26 xor %r24,%r20,%r24 vextrs %r29,32,%r29 xor %r23,%r22,%r23 or %r21,%r29,%r21 stw %r23,8(%r4) stw %r24,0(%r4) b .L19 stw %r21,4(%r4) .L63: b .L60 ldw 8(%r4),%r20 .L66: ldw 8(%r4),%r20 b .L19 fstds %fr4,0(%r20) .L65: ldw 8(%r4),%r20 b .L19 fstws %fr4L,0(%r20) .L61: ldw 8(%r4),%r20 b .L19 sth %r2,0(%r20) .L62: ldw 8(%r4),%r20 b .L19 stb %r2,0(%r20) .L64: b .L7 ldw 8(%r4),%r28 .L59: b .L58 ldw 28(%r26),%r29 .EXIT .PROCEND .Lfe1: .size avcall_call,.Lfe1-avcall_call .ident "GCC: (GNU) 3.1" libffcall-2.2/avcall/minitests-c++.cc0000664000000000000000000000133213347755263014340 00000000000000/* * Copyright 2017 Bruno Haible * * This program is free software: you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by * the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program. If not, see . */ #include "minitests.c" libffcall-2.2/avcall/avcall-arm64.c0000664000000000000000000003627713347755252014017 00000000000000/** Copyright 1993 Bill Triggs Copyright 1995-2017 Bruno Haible This program is free software: you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program. If not, see . **/ /*---------------------------------------------------------------------- !!! THIS ROUTINE MUST BE COMPILED gcc -O -fno-omit-frame-pointer !!! Foreign function interface for a Linux arm64 (a.k.a. aarch64) with gcc. This calls a C function with an argument list built up using macros defined in avcall.h. ARM64 Argument Passing Conventions are documented in http://infocenter.arm.com/help/topic/com.arm.doc.ihi0055b/IHI0055B_aapcs64.pdf. Up to 8 words are passed in integer registers (x0, ..., x7). Up to 8 float/double arguments are passed in floating point / SIMD registers (v0/q0/d0/s0, ..., v7/q7/d7/s7). Arguments passed on the stack have word alignment. Structure args larger than 16 bytes are passed as pointers to caller-made local copies. (§ 5.4.2 rule B.3) Structure args <= 16 bytes are passed as up to two words in registers (§ 5.4.2 rule C.10) or otherwise on the stack (§ 5.4.2 rule C.13). Integers are returned in x0, x1. Float/double values are returned in d0/s0, d1/s1. Structures <= 16 bytes are returned in registers. To return a structure larger than 16 bytes, the called function copies the value to space pointed to by x8. ----------------------------------------------------------------------*/ #include "avcall-internal.h" #define RETURN(TYPE,VAL) (*(TYPE*)l->raddr = (TYPE)(VAL)) register __avword* sret __asm__("x8"); /* structure return pointer */ register __avword iarg1 __asm__("x0"); register __avword iarg2 __asm__("x1"); register __avword iarg3 __asm__("x2"); register __avword iarg4 __asm__("x3"); register __avword iarg5 __asm__("x4"); register __avword iarg6 __asm__("x5"); register __avword iarg7 __asm__("x6"); register __avword iarg8 __asm__("x7"); register float farg1 __asm__("s0"); register float farg2 __asm__("s1"); register float farg3 __asm__("s2"); register float farg4 __asm__("s3"); register float farg5 __asm__("s4"); register float farg6 __asm__("s5"); register float farg7 __asm__("s6"); register float farg8 __asm__("s7"); register double darg1 __asm__("d0"); register double darg2 __asm__("d1"); register double darg3 __asm__("d2"); register double darg4 __asm__("d3"); register double darg5 __asm__("d4"); register double darg6 __asm__("d5"); register double darg7 __asm__("d6"); register double darg8 __asm__("d7"); int avcall_call(av_alist* list) { register __avword* sp __asm__("sp"); /* C names for registers */ register __avword iretreg __asm__("x0"); register __avword iret2reg __asm__("x1"); register double dret __asm__("d0"); __av_alist* l = &AV_LIST_INNER(list); __avword* argframe = __builtin_alloca(__AV_ALIST_WORDS * sizeof(__avword)); /* make room for argument list */ int arglen = l->aptr - l->args; unsigned int ianum = l->ianum; unsigned int fanum = l->fanum; __avword iret, iret2; { int i; for (i = 0; i < arglen; i++) /* push function args onto stack */ argframe[i] = l->args[i]; } /* Put up to 8 integer args into registers. */ if (ianum >= 1) { iarg1 = l->iargs[0]; if (ianum >= 2) { iarg2 = l->iargs[1]; if (ianum >= 3) { iarg3 = l->iargs[2]; if (ianum >= 4) { iarg4 = l->iargs[3]; if (ianum >= 5) { iarg5 = l->iargs[4]; if (ianum >= 6) { iarg6 = l->iargs[5]; if (ianum >= 7) { iarg7 = l->iargs[6]; if (ianum >= 8) { iarg8 = l->iargs[7]; } } } } } } } } /* Put upto 8 floating-point args into registers. */ if (fanum >= 1) { if (l->darg_mask & (1 << 0)) darg1 = l->dargs[0]; else if (l->farg_mask & (1 << 0)) farg1 = l->fargs[0]; if (fanum >= 2) { if (l->darg_mask & (1 << 1)) darg2 = l->dargs[1]; else if (l->farg_mask & (1 << 1)) farg2 = l->fargs[1]; if (fanum >= 3) { if (l->darg_mask & (1 << 2)) darg3 = l->dargs[2]; else if (l->farg_mask & (1 << 2)) farg3 = l->fargs[2]; if (fanum >= 4) { if (l->darg_mask & (1 << 3)) darg4 = l->dargs[3]; else if (l->farg_mask & (1 << 3)) farg4 = l->fargs[3]; if (fanum >= 5) { if (l->darg_mask & (1 << 4)) darg5 = l->dargs[4]; else if (l->farg_mask & (1 << 4)) farg5 = l->fargs[4]; if (fanum >= 6) { if (l->darg_mask & (1 << 5)) darg6 = l->dargs[5]; else if (l->farg_mask & (1 << 5)) farg6 = l->fargs[5]; if (fanum >= 7) { if (l->darg_mask & (1 << 6)) darg7 = l->dargs[6]; else if (l->farg_mask & (1 << 6)) farg7 = l->fargs[6]; if (fanum >= 8) { if (l->darg_mask & (1 << 7)) darg8 = l->dargs[7]; else if (l->farg_mask & (1 << 7)) farg8 = l->fargs[7]; } } } } } } } } /* Call function. */ if (l->rtype == __AVfloat) { *(float*)l->raddr = (*(float(*)())l->func)(); } else if (l->rtype == __AVdouble) { *(double*)l->raddr = (*(double(*)())l->func)(); } else { iret = (*l->func)(); iret2 = iret2reg; /* save return value */ if (l->rtype == __AVvoid) { } else if (l->rtype == __AVword) { RETURN(__avword, iret); } else if (l->rtype == __AVchar) { RETURN(char, iret); } else if (l->rtype == __AVschar) { RETURN(signed char, iret); } else if (l->rtype == __AVuchar) { RETURN(unsigned char, iret); } else if (l->rtype == __AVshort) { RETURN(short, iret); } else if (l->rtype == __AVushort) { RETURN(unsigned short, iret); } else if (l->rtype == __AVint) { RETURN(int, iret); } else if (l->rtype == __AVuint) { RETURN(unsigned int, iret); } else if (l->rtype == __AVlong || l->rtype == __AVlonglong) { RETURN(long, iret); } else if (l->rtype == __AVulong || l->rtype == __AVulonglong) { RETURN(unsigned long, iret); } else /* see above if (l->rtype == __AVfloat) { } else if (l->rtype == __AVdouble) { } else */ if (l->rtype == __AVvoidp) { RETURN(void*, iret); } else if (l->rtype == __AVstruct) { if (l->flags & __AV_REGISTER_STRUCT_RETURN) { /* Return structs of size <= 16 in registers. */ if (l->rsize > 0 && l->rsize <= 16) { void* raddr = l->raddr; #if 0 /* Unoptimized */ if (l->rsize == 1) { ((unsigned char *)raddr)[0] = (unsigned char)(iret); } else if (l->rsize == 2) { ((unsigned char *)raddr)[0] = (unsigned char)(iret); ((unsigned char *)raddr)[1] = (unsigned char)(iret>>8); } else if (l->rsize == 3) { ((unsigned char *)raddr)[0] = (unsigned char)(iret); ((unsigned char *)raddr)[1] = (unsigned char)(iret>>8); ((unsigned char *)raddr)[2] = (unsigned char)(iret>>16); } else if (l->rsize == 4) { ((unsigned char *)raddr)[0] = (unsigned char)(iret); ((unsigned char *)raddr)[1] = (unsigned char)(iret>>8); ((unsigned char *)raddr)[2] = (unsigned char)(iret>>16); ((unsigned char *)raddr)[3] = (unsigned char)(iret>>24); } else if (l->rsize == 5) { ((unsigned char *)raddr)[0] = (unsigned char)(iret); ((unsigned char *)raddr)[1] = (unsigned char)(iret>>8); ((unsigned char *)raddr)[2] = (unsigned char)(iret>>16); ((unsigned char *)raddr)[3] = (unsigned char)(iret>>24); ((unsigned char *)raddr)[4] = (unsigned char)(iret>>32); } else if (l->rsize == 6) { ((unsigned char *)raddr)[0] = (unsigned char)(iret); ((unsigned char *)raddr)[1] = (unsigned char)(iret>>8); ((unsigned char *)raddr)[2] = (unsigned char)(iret>>16); ((unsigned char *)raddr)[3] = (unsigned char)(iret>>24); ((unsigned char *)raddr)[4] = (unsigned char)(iret>>32); ((unsigned char *)raddr)[5] = (unsigned char)(iret>>40); } else if (l->rsize == 7) { ((unsigned char *)raddr)[0] = (unsigned char)(iret); ((unsigned char *)raddr)[1] = (unsigned char)(iret>>8); ((unsigned char *)raddr)[2] = (unsigned char)(iret>>16); ((unsigned char *)raddr)[3] = (unsigned char)(iret>>24); ((unsigned char *)raddr)[4] = (unsigned char)(iret>>32); ((unsigned char *)raddr)[5] = (unsigned char)(iret>>40); ((unsigned char *)raddr)[6] = (unsigned char)(iret>>48); } else if (l->rsize >= 8 && l->rsize <= 16) { ((unsigned char *)raddr)[0] = (unsigned char)(iret); ((unsigned char *)raddr)[1] = (unsigned char)(iret>>8); ((unsigned char *)raddr)[2] = (unsigned char)(iret>>16); ((unsigned char *)raddr)[3] = (unsigned char)(iret>>24); ((unsigned char *)raddr)[4] = (unsigned char)(iret>>32); ((unsigned char *)raddr)[5] = (unsigned char)(iret>>40); ((unsigned char *)raddr)[6] = (unsigned char)(iret>>48); ((unsigned char *)raddr)[7] = (unsigned char)(iret>>56); if (l->rsize == 8) { } else if (l->rsize == 9) { ((unsigned char *)raddr)[8+0] = (unsigned char)(iret2); } else if (l->rsize == 10) { ((unsigned char *)raddr)[8+0] = (unsigned char)(iret2); ((unsigned char *)raddr)[8+1] = (unsigned char)(iret2>>8); } else if (l->rsize == 11) { ((unsigned char *)raddr)[8+0] = (unsigned char)(iret2); ((unsigned char *)raddr)[8+1] = (unsigned char)(iret2>>8); ((unsigned char *)raddr)[8+2] = (unsigned char)(iret2>>16); } else if (l->rsize == 12) { ((unsigned char *)raddr)[8+0] = (unsigned char)(iret2); ((unsigned char *)raddr)[8+1] = (unsigned char)(iret2>>8); ((unsigned char *)raddr)[8+2] = (unsigned char)(iret2>>16); ((unsigned char *)raddr)[8+3] = (unsigned char)(iret2>>24); } else if (l->rsize == 13) { ((unsigned char *)raddr)[8+0] = (unsigned char)(iret2); ((unsigned char *)raddr)[8+1] = (unsigned char)(iret2>>8); ((unsigned char *)raddr)[8+2] = (unsigned char)(iret2>>16); ((unsigned char *)raddr)[8+3] = (unsigned char)(iret2>>24); ((unsigned char *)raddr)[8+4] = (unsigned char)(iret2>>32); } else if (l->rsize == 14) { ((unsigned char *)raddr)[8+0] = (unsigned char)(iret2); ((unsigned char *)raddr)[8+1] = (unsigned char)(iret2>>8); ((unsigned char *)raddr)[8+2] = (unsigned char)(iret2>>16); ((unsigned char *)raddr)[8+3] = (unsigned char)(iret2>>24); ((unsigned char *)raddr)[8+4] = (unsigned char)(iret2>>32); ((unsigned char *)raddr)[8+5] = (unsigned char)(iret2>>40); } else if (l->rsize == 15) { ((unsigned char *)raddr)[8+0] = (unsigned char)(iret2); ((unsigned char *)raddr)[8+1] = (unsigned char)(iret2>>8); ((unsigned char *)raddr)[8+2] = (unsigned char)(iret2>>16); ((unsigned char *)raddr)[8+3] = (unsigned char)(iret2>>24); ((unsigned char *)raddr)[8+4] = (unsigned char)(iret2>>32); ((unsigned char *)raddr)[8+5] = (unsigned char)(iret2>>40); ((unsigned char *)raddr)[8+6] = (unsigned char)(iret2>>48); } else if (l->rsize == 16) { ((unsigned char *)raddr)[8+0] = (unsigned char)(iret2); ((unsigned char *)raddr)[8+1] = (unsigned char)(iret2>>8); ((unsigned char *)raddr)[8+2] = (unsigned char)(iret2>>16); ((unsigned char *)raddr)[8+3] = (unsigned char)(iret2>>24); ((unsigned char *)raddr)[8+4] = (unsigned char)(iret2>>32); ((unsigned char *)raddr)[8+5] = (unsigned char)(iret2>>40); ((unsigned char *)raddr)[8+6] = (unsigned char)(iret2>>48); ((unsigned char *)raddr)[8+7] = (unsigned char)(iret2>>56); } } #else /* Optimized: fewer conditional jumps, fewer memory accesses */ uintptr_t count = l->rsize; /* > 0, ≤ 2*sizeof(__avword) */ __avword* wordaddr = (__avword*)((uintptr_t)raddr & ~(uintptr_t)(sizeof(__avword)-1)); uintptr_t start_offset = (uintptr_t)raddr & (uintptr_t)(sizeof(__avword)-1); /* ≥ 0, < sizeof(__avword) */ uintptr_t end_offset = start_offset + count; /* > 0, < 3*sizeof(__avword) */ if (count <= sizeof(__avword)) { /* Use iret. */ if (end_offset <= sizeof(__avword)) { /* 0 < end_offset ≤ sizeof(__avword) */ __avword mask0 = ((__avword)2 << (end_offset*8-1)) - ((__avword)1 << (start_offset*8)); wordaddr[0] ^= (wordaddr[0] ^ (iret << (start_offset*8))) & mask0; } else { /* sizeof(__avword) < end_offset < 2*sizeof(__avword), start_offset > 0 */ __avword mask0 = - ((__avword)1 << (start_offset*8)); __avword mask1 = ((__avword)2 << (end_offset*8-sizeof(__avword)*8-1)) - 1; wordaddr[0] ^= (wordaddr[0] ^ (iret << (start_offset*8))) & mask0; wordaddr[1] ^= (wordaddr[1] ^ (iret >> (sizeof(__avword)*8-start_offset*8))) & mask1; } } else { /* Use iret, iret2. */ __avword mask0 = - ((__avword)1 << (start_offset*8)); wordaddr[0] ^= (wordaddr[0] ^ (iret << (start_offset*8))) & mask0; if (end_offset <= 2*sizeof(__avword)) { /* sizeof(__avword) < end_offset ≤ 2*sizeof(__avword) */ __avword mask1 = ((__avword)2 << (end_offset*8-sizeof(__avword)*8-1)) - 1; wordaddr[1] ^= (wordaddr[1] ^ ((iret >> (sizeof(__avword)*4-start_offset*4) >> (sizeof(__avword)*4-start_offset*4)) | (iret2 << (start_offset*8)))) & mask1; } else { /* 2*sizeof(__avword) < end_offset < 3*sizeof(__avword), start_offset > 0 */ __avword mask2 = ((__avword)2 << (end_offset*8-2*sizeof(__avword)*8-1)) - 1; wordaddr[1] = (iret >> (sizeof(__avword)*8-start_offset*8)) | (iret2 << (start_offset*8)); wordaddr[2] ^= (wordaddr[2] ^ (iret2 >> (sizeof(__avword)*8-start_offset*8))) & mask2; } } #endif } } } } return 0; } libffcall-2.2/avcall/avcall-riscv32-ilp32d-macro.S0000664000000000000000000001016413530357111016500 00000000000000 .file "avcall-riscv32.c" .option pic .text .align 1 .globl avcall_call .type avcall_call, @function avcall_call: add sp,sp,-32 sw ra,28(sp) sw s0,24(sp) sw s1,20(sp) sw s2,16(sp) sw s3,12(sp) sw s4,8(sp) sw s5,4(sp) add s0,sp,32 lw t2,24(a0) lw t0,20(a0) li t3,32 mv s1,a0 sub t0,t0,t2 add sp,sp,-1040 lw ra,40(a0) ble t0,t3,.L2 mv t1,sp sra t6,t0,2 add t4,t2,32 li t3,8 .L3: lw t5,0(t4) add t3,t3,1 add t4,t4,4 sw t5,0(t1) add t1,t1,4 bgt t6,t3,.L3 .L4: li t1,4 lw a0,0(t2) bgt t0,t1,.L81 .L5: beqz ra,.L8 lw t1,48(s1) and t3,t1,1 beqz t3,.L9 fld fa0,88(s1) .L10: li t3,1 bleu ra,t3,.L8 and t3,t1,2 bnez t3,.L82 lw t3,44(s1) and t3,t3,2 beqz t3,.L13 flw fa1,56(s1) .L13: li t3,2 beq ra,t3,.L8 and t3,t1,4 beqz t3,.L14 fld fa2,104(s1) .L15: li t3,3 beq ra,t3,.L8 and t3,t1,8 bnez t3,.L83 lw t3,44(s1) and t3,t3,8 beqz t3,.L17 flw fa3,64(s1) .L17: li t3,4 beq ra,t3,.L8 and t3,t1,16 beqz t3,.L18 fld fa4,120(s1) .L19: li t3,5 beq ra,t3,.L8 and t3,t1,32 beqz t3,.L20 fld fa5,128(s1) .L21: li t3,6 beq ra,t3,.L8 and t3,t1,64 beqz t3,.L22 fld fa6,136(s1) .L23: li t3,7 beq ra,t3,.L8 and t1,t1,128 beqz t1,.L24 fld fa7,144(s1) .L8: lw t1,12(s1) li t3,13 lw t4,4(s1) bne t1,t3,.L25 lw s1,8(s1) jalr t4 fsw fa0,0(s1) .L26: add sp,s0,-32 lw ra,28(sp) li a0,0 lw s0,24(sp) lw s1,20(sp) lw s2,16(sp) lw s3,12(sp) lw s4,8(sp) lw s5,4(sp) add sp,sp,32 jr ra .L81: li t1,8 lw a1,4(t2) ble t0,t1,.L5 li t1,12 lw a2,8(t2) ble t0,t1,.L5 li t1,16 lw a3,12(t2) ble t0,t1,.L5 li t1,20 lw a4,16(t2) ble t0,t1,.L5 li t1,24 lw a5,20(t2) ble t0,t1,.L5 li t1,28 lw a6,24(t2) ble t0,t1,.L5 lw a7,28(t2) j .L5 .L9: lw t3,44(s1) and t3,t3,1 beqz t3,.L10 flw fa0,52(s1) j .L10 .L25: li t3,14 beq t1,t3,.L84 jalr t4 lw t1,12(s1) li t4,1 mv t3,a0 beq t1,t4,.L26 beqz t1,.L79 li t4,2 beq t1,t4,.L74 li t4,3 beq t1,t4,.L74 li t4,4 beq t1,t4,.L74 li t4,5 beq t1,t4,.L75 li t4,6 beq t1,t4,.L75 li t4,7 beq t1,t4,.L79 li s4,8 beq t1,s4,.L79 li t4,9 beq t1,t4,.L79 li t4,10 beq t1,t4,.L79 add t6,t1,-11 li t4,1 bleu t6,t4,.L85 li t6,15 beq t1,t6,.L79 li t6,16 bne t1,t6,.L26 lw t1,0(s1) and t1,t1,2 beqz t1,.L26 lw s3,16(s1) li t1,7 add t6,s3,-1 bgtu t6,t1,.L26 lw t6,8(s1) li s5,4 and t0,t6,-4 lw t2,0(t0) and t6,t6,3 sll s2,t6,3 sll s1,a0,s2 add t1,s3,t6 sll t4,t4,s2 xor s1,s1,t2 bgtu s3,s5,.L40 bgtu t1,s5,.L41 sll t1,t1,3 add t3,t1,-1 li t1,2 sll t1,t1,t3 sub t1,t1,t4 and t1,t1,s1 xor t1,t1,t2 sw t1,0(t0) j .L26 .L82: fld fa1,96(s1) j .L13 .L84: lw s1,8(s1) jalr t4 fsd fa0,0(s1) j .L26 .L2: blez t0,.L5 j .L4 .L14: lw t3,44(s1) and t3,t3,4 beqz t3,.L15 flw fa2,60(s1) j .L15 .L79: lw t1,8(s1) sw t3,0(t1) j .L26 .L83: fld fa3,112(s1) j .L17 .L74: lw t1,8(s1) sb t3,0(t1) j .L26 .L18: lw t3,44(s1) and t3,t3,16 beqz t3,.L19 flw fa4,68(s1) j .L19 .L75: lw t1,8(s1) sh t3,0(t1) j .L26 .L20: lw t3,44(s1) and t3,t3,32 beqz t3,.L21 flw fa5,72(s1) j .L21 .L22: lw t3,44(s1) and t3,t3,64 beqz t3,.L23 flw fa6,76(s1) j .L23 .L24: lw t1,44(s1) and t1,t1,128 beqz t1,.L8 flw fa7,80(s1) j .L8 .L85: lw t1,8(s1) sw a0,0(t1) sw a1,4(t1) j .L26 .L41: li t5,-8 mul t6,t6,t5 lw s2,4(t0) sll t1,t1,3 add t5,t1,-33 li t1,2 sll t1,t1,t5 sub t4,zero,t4 add t1,t1,-1 and t4,t4,s1 xor t4,t4,t2 sra t3,a0,t6 xor t3,t3,s2 and t1,t1,t3 xor t1,t1,s2 sw t4,0(t0) sw t1,4(t0) j .L26 .L40: sub t4,zero,t4 and t4,t4,s1 xor t4,t4,t2 sw t4,0(t0) sll s1,a1,s2 bleu t1,s4,.L86 li t4,-8 mul t6,t6,t4 sll t1,t1,3 li t2,2 add t1,t1,-65 lw s2,8(t0) sll t1,t2,t1 add t2,t1,-1 add t1,t6,32 sra t4,a1,t1 xor t4,t4,s2 sra t1,a0,t1 and t3,t2,t4 or t1,t1,s1 xor t3,t3,s2 sw t1,4(t0) sw t3,8(t0) j .L26 .L86: li t4,-4 mul t4,t6,t4 sll t1,t1,3 lw t6,4(t0) add t5,t1,-33 li t1,2 sll t1,t1,t5 add t1,t1,-1 add t4,t4,16 sra t3,a0,t4 sra t3,t3,t4 or t3,t3,s1 xor t3,t3,t6 and t1,t1,t3 xor t1,t1,t6 sw t1,4(t0) j .L26 .size avcall_call, .-avcall_call #if defined __linux__ || defined __FreeBSD__ || defined __FreeBSD_kernel__ || defined __DragonFly__ .section .note.GNU-stack,"",@progbits #endif libffcall-2.2/avcall/avcall-arm-macro.S0000664000000000000000000000335613530357106014702 00000000000000#include "asm-arm.h" .text .align 2 .global C(avcall_call) DECLARE_FUNCTION(avcall_call) FUNBEGIN(avcall_call) // args = 0, pretend = 0, frame = 1024 // frame_needed = 1, uses_anonymous_args = 0 mov ip, sp stmfd sp!, {r4, r5, fp, ip, lr, pc} sub fp, ip, $4 sub sp, sp, $1024 add r2, r0, $20 ldmia r2, {r2, r3} sub r3, r2, r3 mov ip, $4 mov r1, r3, asr $2 cmp ip, r1 mov r5, r0 bic sp, sp, $7 ldr r4, [r0, $24] bge L(47) add r2, sp, $16 L(6): ldr r3, [r4, ip, asl $2] add ip, ip, $1 cmp ip, r1 str r3, [r2, $-16] add r2, r2, $4 blt L(6) L(47): ldmia r4, {r0, r1, r2, r3} // phole ldm mov lr, pc ldr pc, [r5, $4] ldr r2, [r5, $12] cmp r2, $1 mov ip, r0 beq L(8) cmp r2, $0 beq L(57) cmp r2, $2 beq L(50) cmp r2, $3 beq L(50) cmp r2, $4 beq L(50) cmp r2, $5 beq L(49) cmp r2, $6 beq L(49) cmp r2, $7 beq L(57) cmp r2, $8 beq L(57) cmp r2, $9 beq L(57) cmp r2, $10 beq L(57) sub r3, r2, $11 cmp r3, $1 bls L(56) cmp r2, $13 ldreq r3, [r5, $8] streq r0, [r3, $0] // float beq L(8) cmp r2, $14 ldreq r3, [r5, $8] stmeqia r3, {r0-r1} // double beq L(8) cmp r2, $15 beq L(57) cmp r2, $16 beq L(58) L(8): mov r0, $0 ldmea fp, {r4, r5, fp, sp, pc} L(58): ldr r3, [r5, $0] tst r3, $512 beq L(8) ldr r3, [r5, $16] cmp r3, $1 beq L(50) cmp r3, $2 beq L(49) cmp r3, $4 bhi L(43) L(57): ldr r3, [r5, $8] L(48): str ip, [r3, $0] b L(8) L(43): cmp r3, $8 bne L(8) L(56): ldr r3, [r5, $8] str r1, [r3, $4] b L(48) L(49): ldr r3, [r5, $8] strh ip, [r3, $0] // movhi b L(8) L(50): ldr r3, [r5, $8] strb ip, [r3, $0] b L(8) L(fe1): FUNEND(avcall_call) #if defined __linux__ || defined __FreeBSD__ || defined __FreeBSD_kernel__ || defined __DragonFly__ .section .note.GNU-stack,"",%progbits #endif libffcall-2.2/avcall/avcall-s390x.c0000664000000000000000000001431713347755261013743 00000000000000/** Copyright 1993 Bill Triggs Copyright 1995-2018 Bruno Haible This program is free software: you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program. If not, see . **/ /*---------------------------------------------------------------------- !!! THIS ROUTINE MUST BE COMPILED gcc -O -fno-omit-frame-pointer !!! Foreign function interface for an s390x 64-bit CPU. This calls a C function with an argument list built up using macros defined in avcall.h. s390x 64-bit Argument Passing Conventions * Arguments: - The first 5 integer or pointer arguments get passed in r2, r3, r4, r5, r6; the remaining ones (as an entire word each) on the stack. - The first 4 float or double arguments get passed in f0, f2, f4, f6; the remaining ones on the stack (as an entire word each, floats in the upper half of a word). - Structures of sizes 1, 2, 4, 8 are passed as follows: - Structures consisting only of a float or double are passed like an immediate float or double, that is, in f0, f2, f4, f6 and on the stack (floats in the upper half of their respective word). But we don't support this kind of structure. - Other structures get passed as an entire word, like integers and pointers. When in r2, ..., r6: as the 8*sizeof(S) low bits of the register (a.k.a. "right-adjusted"). When on the stack: they occupy an entire word and are adjusted on the high end of the word: - sizeof(S) == 1: at an address == 7 mod 8, - sizeof(S) == 2: at an address == 6 mod 8, - sizeof(S) == 4: at an address == 4 mod 8, - Structures of other sizes are passed as references. * Return value: - An integer or pointer is returned in r2. - A float or double is returned in f0. - Structure return convention: The caller passes a pointer to the destination area (quasi as an additional first pointer argument) in r2. The callee fills it and returns the same pointer in r2. ----------------------------------------------------------------------*/ #include "avcall-internal.h" #define RETURN(TYPE,VAL) (*(TYPE*)l->raddr = (TYPE)(VAL)) register __avword iarg1 __asm__("r2"); register __avword iarg2 __asm__("r3"); register __avword iarg3 __asm__("r4"); register __avword iarg4 __asm__("r5"); register __avword iarg5 __asm__("r6"); register float farg1 __asm__("f0"); register float farg2 __asm__("f2"); register float farg3 __asm__("f4"); register float farg4 __asm__("f6"); register double darg1 __asm__("f0"); register double darg2 __asm__("f2"); register double darg3 __asm__("f4"); register double darg4 __asm__("f6"); int avcall_call(av_alist* list) { register __avword* sp __asm__("r15"); /* C names for registers */ register __avword iretreg __asm__("r2"); register double dret __asm__("f0"); /* We need to put a value in r6, but it's a call-saved register. */ __avword saved_iarg5 = iarg5; __av_alist* l = &AV_LIST_INNER(list); __avword* argframe = __builtin_alloca(__AV_ALIST_WORDS * sizeof(__avword)); /* make room for argument list */ int arglen = l->aptr - l->args; unsigned int ianum = l->ianum; unsigned int fanum = l->fanum; { int i; for (i = 0; i < arglen; i++) /* push function args onto stack */ argframe[i] = l->args[i]; } /* Put up to 5 integer args into registers. */ if (ianum >= 1) { iarg1 = l->iargs[0]; if (ianum >= 2) { iarg2 = l->iargs[1]; if (ianum >= 3) { iarg3 = l->iargs[2]; if (ianum >= 4) { iarg4 = l->iargs[3]; if (ianum >= 5) { iarg5 = l->iargs[4]; } } } } } /* Put upto 4 floating-point args into registers. */ if (fanum >= 1) { if (l->darg_mask & (1 << 0)) darg1 = l->dargs[0]; else if (l->farg_mask & (1 << 0)) farg1 = l->fargs[0]; if (fanum >= 2) { if (l->darg_mask & (1 << 1)) darg2 = l->dargs[1]; else if (l->farg_mask & (1 << 1)) farg2 = l->fargs[1]; if (fanum >= 3) { if (l->darg_mask & (1 << 2)) darg3 = l->dargs[2]; else if (l->farg_mask & (1 << 2)) farg3 = l->fargs[2]; if (fanum >= 4) { if (l->darg_mask & (1 << 3)) darg4 = l->dargs[3]; else if (l->farg_mask & (1 << 3)) farg4 = l->fargs[3]; } } } } /* Call function. */ if (l->rtype == __AVfloat) { *(float*)l->raddr = (*(float(*)())l->func)(); } else if (l->rtype == __AVdouble) { *(double*)l->raddr = (*(double(*)())l->func)(); } else { __avword iret = (*l->func)(); /* save return value */ if (l->rtype == __AVvoid) { } else if (l->rtype == __AVword) { RETURN(__avword, iret); } else if (l->rtype == __AVchar) { RETURN(char, iret); } else if (l->rtype == __AVschar) { RETURN(signed char, iret); } else if (l->rtype == __AVuchar) { RETURN(unsigned char, iret); } else if (l->rtype == __AVshort) { RETURN(short, iret); } else if (l->rtype == __AVushort) { RETURN(unsigned short, iret); } else if (l->rtype == __AVint) { RETURN(int, iret); } else if (l->rtype == __AVuint) { RETURN(unsigned int, iret); } else if (l->rtype == __AVlong || l->rtype == __AVlonglong) { RETURN(long, iret); } else if (l->rtype == __AVulong || l->rtype == __AVulonglong) { RETURN(unsigned long, iret); } else /* see above if (l->rtype == __AVfloat) { } else if (l->rtype == __AVdouble) { } else */ if (l->rtype == __AVvoidp) { RETURN(void*, iret); } else if (l->rtype == __AVstruct) { /* normal struct return convention */ } } iarg5 = saved_iarg5; return 0; } libffcall-2.2/avcall/avcall-powerpc64-elfv2-linux.S0000664000000000000000000000746213530357110017023 00000000000000 .file "avcall-powerpc64.c" .machine power4 .abiversion 2 .section ".toc","aw" .section ".text" .align 2 .p2align 4,,15 .globl avcall_call .type avcall_call, @function avcall_call: 0: addis 2,12,.TOC.-0b@ha addi 2,2,.TOC.-0b@l .localentry avcall_call,.-avcall_call mflr 0 std 30,-16(1) std 31,-8(1) mr 30,3 std 0,16(1) stdu 1,-112(1) ld 3,48(3) ld 9,40(30) mr 31,1 ld 10,0(1) subf 9,3,9 stdu 10,-2064(1) sradi 9,9,3 cmpwi 7,9,8 ble 7,.L6 addi 10,9,-9 addi 8,1,96 addi 9,3,56 rldicl 10,10,0,32 addi 8,8,-8 addi 10,10,8 sldi 10,10,3 add 10,3,10 .p2align 4,,15 .L5: ldu 7,8(9) cmpld 7,10,9 stdu 7,8(8) bne 7,.L5 .L6: ld 10,64(30) addi 9,30,72 subf 9,9,10 sradi 9,9,3 extsw 9,9 cmpwi 7,9,0 ble 7,.L4 cmpwi 7,9,1 beq 7,.L7 cmpwi 7,9,2 beq 7,.L8 cmpwi 7,9,3 beq 7,.L9 cmpwi 7,9,4 beq 7,.L10 cmpwi 7,9,5 beq 7,.L11 cmpwi 7,9,6 beq 7,.L12 cmpwi 7,9,7 beq 7,.L13 cmpwi 7,9,8 beq 7,.L14 cmpwi 7,9,9 beq 7,.L15 cmpwi 7,9,10 beq 7,.L16 cmpwi 7,9,11 beq 7,.L17 cmpwi 7,9,12 beq 7,.L18 lfd 13,168(30) .L18: lfd 12,160(30) .L17: lfd 11,152(30) .L16: lfd 10,144(30) .L15: lfd 9,136(30) .L14: lfd 8,128(30) .L13: lfd 7,120(30) .L12: lfd 6,112(30) .L11: lfd 5,104(30) .L10: lfd 4,96(30) .L9: lfd 3,88(30) .L8: lfd 2,80(30) .L7: lfd 1,72(30) .L4: ld 11,8(30) ld 9,48(3) ld 10,56(3) ld 8,40(3) ld 7,32(3) ld 6,24(3) ld 5,16(3) ld 4,8(3) mtctr 11 ld 3,0(3) mr 12,11 std 2,24(1) bctrl ld 2,24(1) lwz 9,24(30) cmplwi 7,9,1 beq 7,.L19 cmpdi 7,9,0 beq 7,.L50 cmplwi 7,9,2 beq 7,.L45 cmplwi 7,9,3 beq 7,.L45 cmplwi 7,9,4 beq 7,.L45 cmplwi 7,9,5 beq 7,.L46 cmplwi 7,9,6 beq 7,.L46 cmplwi 7,9,7 beq 7,.L47 cmplwi 7,9,8 beq 7,.L47 cmplwi 7,9,9 beq 7,.L50 cmplwi 7,9,10 beq 7,.L50 cmplwi 7,9,11 beq 7,.L50 cmplwi 7,9,12 beq 7,.L50 cmplwi 7,9,13 beq 7,.L52 cmplwi 7,9,14 beq 7,.L53 cmplwi 7,9,15 beq 7,.L50 cmplwi 7,9,16 bne 7,.L19 lwz 9,0(30) rldicl. 10,9,55,63 beq 0,.L19 ld 10,32(30) addi 9,10,-1 cmpldi 7,9,15 bgt 7,.L19 ld 8,16(30) cmpldi 7,10,8 rldicl 9,8,0,61 rldicr 8,8,0,60 add 10,10,9 bgt 7,.L35 cmpldi 7,10,8 bgt 7,.L36 slwi 10,10,3 li 7,2 ld 6,0(8) slwi 9,9,3 addi 10,10,-1 sld 10,7,10 li 7,1 sld 7,7,9 sld 9,3,9 subf 10,7,10 xor 9,9,6 and 9,10,9 xor 9,9,6 std 9,0(8) .L19: addi 1,31,112 li 3,0 ld 0,16(1) ld 30,-16(1) ld 31,-8(1) mtlr 0 blr .p2align 4,,15 .L50: ld 9,16(30) std 3,0(9) addi 1,31,112 li 3,0 ld 0,16(1) ld 30,-16(1) ld 31,-8(1) mtlr 0 blr .p2align 4,,15 .L45: ld 9,16(30) stb 3,0(9) addi 1,31,112 li 3,0 ld 0,16(1) ld 30,-16(1) ld 31,-8(1) mtlr 0 blr .L46: ld 9,16(30) sth 3,0(9) b .L19 .L47: ld 9,16(30) stw 3,0(9) b .L19 .L52: ld 9,16(30) stfs 1,0(9) b .L19 .L53: ld 9,16(30) stfd 1,0(9) b .L19 .L36: rldicl 9,9,0,32 slwi 10,10,3 ld 11,0(8) ld 4,8(8) li 7,2 mulli 6,9,-8 addi 10,10,-65 slwi 9,9,3 sld 10,7,10 sld 5,3,9 li 7,-1 addi 6,6,64 addi 10,10,-1 sld 7,7,9 srad 3,3,6 xor 6,5,11 xor 9,3,4 and 7,7,6 and 9,10,9 xor 10,7,11 xor 9,9,4 std 10,0(8) std 9,8(8) b .L19 .L35: rldicl 9,9,0,32 ld 11,0(8) li 6,-1 cmpldi 7,10,16 slwi 5,9,3 sld 7,3,5 sld 6,6,5 xor 7,7,11 and 7,6,7 xor 7,7,11 std 7,0(8) ble 7,.L54 mulli 9,9,-8 ld 11,16(8) slwi 10,10,3 li 7,2 addi 10,10,-129 addi 9,9,64 sld 7,7,10 srad 6,4,9 srad 3,3,9 addi 7,7,-1 sld 9,4,5 xor 10,6,11 or 9,3,9 and 10,7,10 std 9,8(8) xor 10,10,11 std 10,16(8) b .L19 .L54: mulli 9,9,-4 slwi 10,10,3 ld 11,8(8) sld 4,4,5 addi 10,10,-65 li 6,2 addi 9,9,32 sld 10,6,10 srad 3,3,9 srad 9,3,9 or 7,9,4 addi 9,10,-1 xor 10,7,11 and 9,10,9 xor 9,9,11 std 9,8(8) b .L19 .long 0 .byte 0,0,0,1,128,2,0,0 .size avcall_call,.-avcall_call #if defined __linux__ || defined __FreeBSD__ || defined __FreeBSD_kernel__ || defined __DragonFly__ .section .note.GNU-stack,"",@progbits #endif libffcall-2.2/avcall/avcall-hppa.c0000664000000000000000000002755713530354422014003 00000000000000/** Copyright 1993 Bill Triggs Copyright 1995-2019 Bruno Haible This program is free software: you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program. If not, see . **/ /*---------------------------------------------------------------------- !!! THIS ROUTINE MUST BE COMPILED gcc -O !!! Foreign function interface for a HP Precision Architecture 1.0 with gcc This calls a C function with an argument list built up using macros defined in avcall.h. HPPA Argument Passing Conventions: All arguments, except the first 4 words, are passed on the stack - growing down! - with word alignment. Doubles take two words and force double alignment. Small structures args are passed as true structures embedded in the argument stack. They force double alignment and - if they don't fit entirely in the 4 register words - are passed in memory. The first 2 words are passed like this: %r26 = first integer arg, %r25 = second integer arg, or %r26 = high word of double arg, %r25 = low word of double arg. Similarly for the next 2 words, passed in %r24 and %r23. Note that other calling conventions would be in effect if we would call an explicitly named function! Structures larger than 8 bytes are passed as a pointer. In GCC >= 8 it's a caller-made copy; with GCC < 8 and with HP cc it's the callee's responsibility to make a copy of the structure, so that side effects made by the callee are not visible to the caller. To return a structure of more than 8 bytes, the called function copies the return value to the address supplied in register "%r28". Smaller structures are returned in the registers %r28 (first 4 bytes) and %r29 (next 4 bytes, if present). It is forbidden to modify the stack pointer. Compile this routine with gcc -O2 -fomit-frame-pointer to get the right register variables. ----------------------------------------------------------------------*/ #include "avcall-internal.h" #define RETURN(TYPE,VAL) (*(TYPE*)l->raddr = (TYPE)(VAL)) /* This declaration tells gcc not to modify %r28. */ register __avword* sret __asm__("%r28"); /* structure return pointer */ register float farg1 __asm__("%fr4"); /* fr4L */ register float farg2 __asm__("%fr5"); /* fr5L */ register float farg3 __asm__("%fr6"); /* fr6L */ register float farg4 __asm__("%fr7"); /* fr7L */ register double darg1 __asm__("%fr5"); register double darg2 __asm__("%fr7"); int avcall_call(av_alist* list) { register __avword* sp __asm__("%r30"); /* C names for registers */ register float fret __asm__("%fr4"); register double dret __asm__("%fr4"); /*register __avword iret1 __asm__("%r28"); */ register __avword iret2 __asm__("%r29"); __av_alist* l = &AV_LIST_INNER(list); __avword* argframe = __builtin_alloca(__AV_ALIST_WORDS * sizeof(__avword)); /* make room for argument list */ argframe += __AV_ALIST_WORDS + 20; int arglen = l->args_end - l->aptr; __avword iret; { int i; for (i = -arglen; i < -4; i++) /* push function args onto stack */ argframe[i] = l->args_end[i]; } if (l->rtype == __AVstruct) /* push struct return address */ sret = l->raddr; /* The floats and doubles among the first 4 argument words are passed * - in both general registers and floating-point registers when the * function call is a variadic one, which means: * - for HP cc: the call is done through a function pointer or * directly to a function declared with a varargs prototype, * - for GCC: the function's type is a varargs function. * - in floating-point registers otherwise. * To cover both cases, put these floating-point values into the general * registers and the floating-point registers always. */ if (arglen >= 1) { if (l->farg_mask & (1 << 0)) /*__asm__ __volatile__ ("fldw %0,%%fr4R" : : "m" (*(float*)&l->args_end[-1]));*/ farg1 = *((float*)&l->args_end[-1]); if (arglen >= 2) { if (l->farg_mask & (1 << 1)) /* __asm__ __volatile__ ("fldw %0,%%fr5R" : : "m" (*(float*)&l->args_end[-2])); */ farg2 = *((float*)&l->args_end[-2]); if (l->darg_mask & (1 << 1)) darg1 = *((double*)&l->args_end[-2]); if (arglen >= 3) { if (l->farg_mask & (1 << 2)) /* __asm__ __volatile__ ("fldw %0,%%fr6R" : : "m" (*(float*)&l->args_end[-3])); */ farg3 = *((float*)&l->args_end[-3]); if (arglen >= 4) { if (l->farg_mask & (1 << 3)) /* __asm__ __volatile__ ("fldw %0,%%fr7R" : : "m" (*(float*)&l->args_end[-4])); */ farg4 = *((float*)&l->args_end[-4]); if (l->darg_mask & (1 << 3)) darg2 = *((double*)&l->args_end[-4]); } } } } /* call function, pass first 4 arg words in general registers */ iret = (*l->func)(l->args_end[-1], l->args_end[-2], l->args_end[-3], l->args_end[-4]); /* save return value */ if (l->rtype == __AVvoid) { } else if (l->rtype == __AVword) { RETURN(__avword, iret); } else if (l->rtype == __AVchar) { RETURN(char, iret); } else if (l->rtype == __AVschar) { RETURN(signed char, iret); } else if (l->rtype == __AVuchar) { RETURN(unsigned char, iret); } else if (l->rtype == __AVshort) { RETURN(short, iret); } else if (l->rtype == __AVushort) { RETURN(unsigned short, iret); } else if (l->rtype == __AVint) { RETURN(int, iret); } else if (l->rtype == __AVuint) { RETURN(unsigned int, iret); } else if (l->rtype == __AVlong) { RETURN(long, iret); } else if (l->rtype == __AVulong) { RETURN(unsigned long, iret); } else if (l->rtype == __AVlonglong || l->rtype == __AVulonglong) { void* raddr = l->raddr; ((__avword*)raddr)[0] = iret; ((__avword*)raddr)[1] = iret2; } else if (l->rtype == __AVfloat) { RETURN(float, fret); } else if (l->rtype == __AVdouble) { RETURN(double, dret); } else if (l->rtype == __AVvoidp) { RETURN(void*, iret); } else if (l->rtype == __AVstruct) { if (l->flags & __AV_SMALL_STRUCT_RETURN) { /* cc, c89 and gcc >= 2.7 return structs of size <= 8 in registers. */ if (l->rsize > 0 && l->rsize <= 8) { /* This is really weird code, unlike all other big-endian platforms. */ void* raddr = l->raddr; #if 0 /* Unoptimized */ if (l->rsize == 1) { ((unsigned char *)raddr)[0] = (unsigned char)(iret); } else if (l->rsize == 2) { ((unsigned char *)raddr)[0] = (unsigned char)(iret>>8); ((unsigned char *)raddr)[1] = (unsigned char)(iret); } else if (l->rsize == 3) { ((unsigned char *)raddr)[0] = (unsigned char)(iret>>16); ((unsigned char *)raddr)[1] = (unsigned char)(iret>>8); ((unsigned char *)raddr)[2] = (unsigned char)(iret); } else if (l->rsize == 4) { ((unsigned char *)raddr)[0] = (unsigned char)(iret>>24); ((unsigned char *)raddr)[1] = (unsigned char)(iret>>16); ((unsigned char *)raddr)[2] = (unsigned char)(iret>>8); ((unsigned char *)raddr)[3] = (unsigned char)(iret); } else if (l->rsize == 5) { ((unsigned char *)raddr)[0] = (unsigned char)(iret); ((unsigned char *)raddr)[1] = (unsigned char)(iret2>>24); ((unsigned char *)raddr)[2] = (unsigned char)(iret2>>16); ((unsigned char *)raddr)[3] = (unsigned char)(iret2>>8); ((unsigned char *)raddr)[4] = (unsigned char)(iret2); } else if (l->rsize == 6) { ((unsigned char *)raddr)[0] = (unsigned char)(iret>>8); ((unsigned char *)raddr)[1] = (unsigned char)(iret); ((unsigned char *)raddr)[2] = (unsigned char)(iret2>>24); ((unsigned char *)raddr)[3] = (unsigned char)(iret2>>16); ((unsigned char *)raddr)[4] = (unsigned char)(iret2>>8); ((unsigned char *)raddr)[5] = (unsigned char)(iret2); } else if (l->rsize == 7) { ((unsigned char *)raddr)[0] = (unsigned char)(iret>>16); ((unsigned char *)raddr)[1] = (unsigned char)(iret>>8); ((unsigned char *)raddr)[2] = (unsigned char)(iret); ((unsigned char *)raddr)[3] = (unsigned char)(iret2>>24); ((unsigned char *)raddr)[4] = (unsigned char)(iret2>>16); ((unsigned char *)raddr)[5] = (unsigned char)(iret2>>8); ((unsigned char *)raddr)[6] = (unsigned char)(iret2); } else if (l->rsize == 8) { ((unsigned char *)raddr)[0] = (unsigned char)(iret>>24); ((unsigned char *)raddr)[1] = (unsigned char)(iret>>16); ((unsigned char *)raddr)[2] = (unsigned char)(iret>>8); ((unsigned char *)raddr)[3] = (unsigned char)(iret); ((unsigned char *)raddr)[4] = (unsigned char)(iret2>>24); ((unsigned char *)raddr)[5] = (unsigned char)(iret2>>16); ((unsigned char *)raddr)[6] = (unsigned char)(iret2>>8); ((unsigned char *)raddr)[7] = (unsigned char)(iret2); } #else /* Optimized: fewer conditional jumps, fewer memory accesses */ uintptr_t count = l->rsize; /* > 0, ≤ 2*sizeof(__avword) */ __avword* wordaddr = (__avword*)((uintptr_t)raddr & ~(uintptr_t)(sizeof(__avword)-1)); uintptr_t start_offset = (uintptr_t)raddr & (uintptr_t)(sizeof(__avword)-1); /* ≥ 0, < sizeof(__avword) */ uintptr_t end_offset = start_offset + count; /* > 0, < 3*sizeof(__avword) */ if (count <= sizeof(__avword)) { /* Use iret. */ if (end_offset <= sizeof(__avword)) { /* 0 < end_offset ≤ sizeof(__avword) */ __avword mask0 = ((__avword)2 << (sizeof(__avword)*8-start_offset*8-1)) - ((__avword)1 << (sizeof(__avword)*8-end_offset*8)); wordaddr[0] ^= (wordaddr[0] ^ (iret << (sizeof(__avword)*8-end_offset*8))) & mask0; } else { /* sizeof(__avword) < end_offset < 2*sizeof(__avword), start_offset > 0 */ __avword mask0 = ((__avword)2 << (sizeof(__avword)*8-start_offset*8-1)) - 1; __avword mask1 = - ((__avword)1 << (2*sizeof(__avword)*8-end_offset*8)); wordaddr[0] ^= (wordaddr[0] ^ (iret >> (end_offset*8-sizeof(__avword)*8))) & mask0; wordaddr[1] ^= (wordaddr[1] ^ (iret << (2*sizeof(__avword)*8-end_offset*8))) & mask1; } } else { /* Use iret, iret2. */ __avword mask0 = ((__avword)2 << (sizeof(__avword)*8-start_offset*8-1)) - 1; if (end_offset <= 2*sizeof(__avword)) { /* sizeof(__avword) < end_offset ≤ 2*sizeof(__avword) */ __avword mask1 = - ((__avword)1 << (2*sizeof(__avword)*8-end_offset*8)); wordaddr[0] ^= (wordaddr[0] ^ ((iret << (2*sizeof(__avword)*8-end_offset*8)) | (iret2 >> (end_offset*4-sizeof(__avword)*4) >> (end_offset*4-sizeof(__avword)*4)))) & mask0; wordaddr[1] ^= (wordaddr[1] ^ (iret2 << (2*sizeof(__avword)*8-end_offset*8))) & mask1; } else { /* 2*sizeof(__avword) < end_offset < 3*sizeof(__avword), start_offset > 0 */ __avword mask2 = - ((__avword)1 << (3*sizeof(__avword)*8-end_offset*8)); wordaddr[0] ^= (wordaddr[0] ^ (iret >> (end_offset*8-2*sizeof(__avword)*8))) & mask0; wordaddr[1] = (iret << (3*sizeof(__avword)*8-end_offset*8)) | (iret2 >> (end_offset*8-2*sizeof(__avword)*8)); wordaddr[2] ^= (wordaddr[2] ^ (iret2 << (3*sizeof(__avword)*8-end_offset*8))) & mask2; } } #endif } } } return 0; } libffcall-2.2/avcall/avcall-mipsn32eb-macro.S0000664000000000000000000002043713530357105015723 00000000000000#include "asm-mips.h" .file 1 "avcall-mipsn32.c" .text .align 2 .align 3 .globl avcall_call .set nomips16 .set nomicromips .ent avcall_call DECLARE_FUNCTION(avcall_call) avcall_call: .frame $fp,32,$31 .mask 0xd0010000,-8 .fmask 0x00000000,0 lw $5,20($4) lw $12,24($4) lw $2,36($4) addiu $sp,$sp,-32 sd $fp,16($sp) sd $16,0($sp) sd $31,24($sp) move $fp,$sp move $16,$4 addiu $sp,$sp,-2064 subu $4,$5,$12 move $3,$sp .set noreorder .set nomacro beq $2,$0,.L2 sra $4,$4,3 .set macro .set reorder andi $6,$2,0x1 .set noreorder .set nomacro beq $6,$0,.L125 andi $6,$2,0x2 .set macro .set reorder lwc1 $f12,44($16) andi $6,$2,0x2 .L125: .set noreorder .set nomacro beq $6,$0,.L126 andi $6,$2,0x4 .set macro .set reorder lwc1 $f13,48($16) andi $6,$2,0x4 .L126: .set noreorder .set nomacro beq $6,$0,.L127 andi $6,$2,0x8 .set macro .set reorder lwc1 $f14,52($16) andi $6,$2,0x8 .L127: .set noreorder .set nomacro beq $6,$0,.L128 andi $6,$2,0x10 .set macro .set reorder lwc1 $f15,56($16) andi $6,$2,0x10 .L128: .set noreorder .set nomacro beq $6,$0,.L129 andi $6,$2,0x20 .set macro .set reorder lwc1 $f16,60($16) andi $6,$2,0x20 .L129: .set noreorder .set nomacro beq $6,$0,.L130 andi $6,$2,0x40 .set macro .set reorder lwc1 $f17,64($16) andi $6,$2,0x40 .L130: .set noreorder .set nomacro beql $6,$0,.L131 andi $2,$2,0x80 .set macro .set reorder lwc1 $f18,68($16) andi $2,$2,0x80 .L131: bne $2,$0,.L118 .L2: lw $2,40($16) .L124: .set noreorder .set nomacro beql $2,$0,.L123 slt $4,$4,9 .set macro .set reorder andi $6,$2,0x1 .set noreorder .set nomacro beq $6,$0,.L132 andi $6,$2,0x2 .set macro .set reorder ldc1 $f12,0($12) andi $6,$2,0x2 .L132: .set noreorder .set nomacro beq $6,$0,.L133 andi $6,$2,0x4 .set macro .set reorder ldc1 $f13,8($12) andi $6,$2,0x4 .L133: .set noreorder .set nomacro beq $6,$0,.L134 andi $6,$2,0x8 .set macro .set reorder ldc1 $f14,16($12) andi $6,$2,0x8 .L134: .set noreorder .set nomacro beq $6,$0,.L135 andi $6,$2,0x10 .set macro .set reorder ldc1 $f15,24($12) andi $6,$2,0x10 .L135: .set noreorder .set nomacro beq $6,$0,.L136 andi $6,$2,0x20 .set macro .set reorder ldc1 $f16,32($12) andi $6,$2,0x20 .L136: .set noreorder .set nomacro beq $6,$0,.L137 andi $6,$2,0x40 .set macro .set reorder ldc1 $f17,40($12) andi $6,$2,0x40 .L137: .set noreorder .set nomacro beql $6,$0,.L138 andi $2,$2,0x80 .set macro .set reorder ldc1 $f18,48($12) andi $2,$2,0x80 .L138: bne $2,$0,.L119 slt $4,$4,9 .L123: .set noreorder .set nomacro bne $4,$0,.L22 addiu $2,$12,64 .set macro .set reorder .align 3 .L83: ld $4,0($2) addiu $3,$3,8 addiu $2,$2,8 .set noreorder .set nomacro bne $5,$2,.L83 sd $4,-8($3) .set macro .set reorder .L22: ld $4,0($12) ld $5,8($12) ld $6,16($12) ld $7,24($12) ld $8,32($12) ld $9,40($12) ld $10,48($12) ld $11,56($12) lw $25,4($16) jalr $25 lw $4,12($16) li $5,1 .set noreorder .set nomacro beql $4,$5,.L139 move $sp,$fp .set macro .set reorder .set noreorder .set nomacro beq $4,$0,.L116 li $5,2 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L109 li $5,3 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L109 li $5,4 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L109 li $5,5 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L112 li $5,6 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L112 li $5,7 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L111 li $5,8 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L111 li $5,9 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L111 li $5,10 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L111 li $5,11 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L116 li $5,12 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L116 li $5,13 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L120 li $5,14 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L121 li $5,15 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L111 li $5,16 .set macro .set reorder .set noreorder .set nomacro bnel $4,$5,.L139 move $sp,$fp .set macro .set reorder lw $4,0($16) andi $5,$4,0x200 .set noreorder .set nomacro beq $5,$0,.L19 andi $4,$4,0x4 .set macro .set reorder .set noreorder .set nomacro beql $4,$0,.L38 lw $4,16($16) .set macro .set reorder lw $3,16($16) li $4,1 .set noreorder .set nomacro beq $3,$4,.L109 li $4,2 .set macro .set reorder .set noreorder .set nomacro beq $3,$4,.L112 li $4,4 .set macro .set reorder .set noreorder .set nomacro beq $3,$4,.L111 li $4,8 .set macro .set reorder .set noreorder .set nomacro beql $3,$4,.L140 lw $3,8($16) .set macro .set reorder .L19: move $sp,$fp .L139: ld $31,24($sp) ld $fp,16($sp) ld $16,0($sp) move $2,$0 .set noreorder .set nomacro j $31 addiu $sp,$sp,32 .set macro .set reorder .align 3 .L116: lw $3,8($16) .align 3 .L140: sd $2,0($3) move $sp,$fp ld $31,24($sp) ld $fp,16($sp) ld $16,0($sp) move $2,$0 .set noreorder .set nomacro j $31 addiu $sp,$sp,32 .set macro .set reorder .align 3 .L119: ldc1 $f19,56($12) .set noreorder .set nomacro b .L123 slt $4,$4,9 .set macro .set reorder .align 3 .L118: lwc1 $f19,72($16) .set noreorder .set nomacro b .L124 lw $2,40($16) .set macro .set reorder .align 3 .L109: lw $3,8($16) sb $2,0($3) move $sp,$fp ld $31,24($sp) ld $fp,16($sp) ld $16,0($sp) move $2,$0 .set noreorder .set nomacro j $31 addiu $sp,$sp,32 .set macro .set reorder .L112: lw $3,8($16) .set noreorder .set nomacro b .L19 sh $2,0($3) .set macro .set reorder .L111: lw $3,8($16) sw $2,0($3) move $sp,$fp ld $31,24($sp) ld $fp,16($sp) ld $16,0($sp) move $2,$0 .set noreorder .set nomacro j $31 addiu $sp,$sp,32 .set macro .set reorder .L120: lw $2,8($16) .set noreorder .set nomacro b .L19 swc1 $f0,0($2) .set macro .set reorder .L121: lw $2,8($16) .set noreorder .set nomacro b .L19 sdc1 $f0,0($2) .set macro .set reorder .L38: addiu $5,$4,-1 sltu $5,$5,16 .set noreorder .set nomacro beq $5,$0,.L19 sltu $8,$4,9 .set macro .set reorder lw $6,8($16) li $7,-8 andi $5,$6,0x7 and $7,$6,$7 .set noreorder .set nomacro beq $8,$0,.L42 addu $4,$4,$5 .set macro .set reorder sltu $3,$4,9 .set noreorder .set nomacro beq $3,$0,.L43 subu $6,$0,$5 .set macro .set reorder subu $3,$0,$5 sll $3,$3,3 ld $8,0($7) addiu $3,$3,63 subu $4,$0,$4 li $6,2 dsll $6,$6,$3 sll $4,$4,3 sll $5,$5,3 li $3,1 dsll $3,$3,$4 dsra $2,$2,$5 dsubu $3,$6,$3 xor $2,$2,$8 and $2,$3,$2 xor $2,$2,$8 .set noreorder .set nomacro b .L19 sd $2,0($7) .set macro .set reorder .align 3 .L42: subu $9,$0,$5 ld $11,0($7) sll $10,$9,3 addiu $6,$10,63 sll $5,$5,3 li $8,2 dsll $8,$8,$6 dsra $6,$2,$5 daddiu $8,$8,-1 xor $6,$6,$11 and $6,$8,$6 xor $6,$6,$11 sltu $8,$4,17 .set noreorder .set nomacro bne $8,$0,.L122 sd $6,0($7) .set macro .set reorder ld $11,16($7) addiu $6,$10,64 subu $4,$0,$4 move $8,$3 dsll $9,$3,$6 sll $4,$4,3 li $3,-1 dsll $4,$3,$4 xor $3,$9,$11 dsll $2,$2,$6 dsra $5,$8,$5 and $3,$4,$3 or $2,$2,$5 xor $3,$3,$11 sd $2,8($7) .set noreorder .set nomacro b .L19 sd $3,16($7) .set macro .set reorder .L43: ld $9,0($7) ld $8,8($7) sll $6,$6,3 addiu $10,$6,63 sll $3,$5,3 subu $4,$0,$4 li $5,2 dsra $3,$2,$3 dsll $5,$5,$10 dsll $2,$2,$6 sll $4,$4,3 li $6,-1 daddiu $5,$5,-1 xor $3,$3,$9 dsll $4,$6,$4 xor $2,$2,$8 and $3,$5,$3 and $2,$4,$2 xor $3,$3,$9 xor $2,$2,$8 sd $3,0($7) .set noreorder .set nomacro b .L19 sd $2,8($7) .set macro .set reorder .L122: sll $6,$9,2 addiu $6,$6,32 ld $8,8($7) dsll $2,$2,$6 dsll $6,$2,$6 dsra $3,$3,$5 subu $2,$0,$4 or $3,$6,$3 sll $2,$2,3 li $5,-1 xor $3,$3,$8 dsll $2,$5,$2 and $2,$3,$2 xor $2,$2,$8 .set noreorder .set nomacro b .L19 sd $2,8($7) .set macro .set reorder .end avcall_call .size avcall_call, .-avcall_call libffcall-2.2/avcall/avcall-sparc-macro.S0000664000000000000000000000502313530357106015224 00000000000000#include "asm-sparc.h" .section ".text" .align 4 .global C(avcall_call) DECLARE_FUNCTION(avcall_call) .proc 04 FUNBEGIN(avcall_call) !$PROLOGUE$ 0 save %sp, -1152, %sp ld [%i0+20], %g3 add %sp, 68, %l1 ld [%i0+24], %o7 ld [%i0+12], %l0 sub %g3, %o7, %g3 cmp %l0, 16 be L(L54) sra %g3, 2, %g4 L(L2): mov 6, %l0 cmp %l0, %g4 bge L(L49) ld [%i0+24], %g1 L(L7): sll %l0, 2, %g3 ld [%g1+%g3], %o7 add %l0, 1, %l0 cmp %l0, %g4 bl L(L7) st %o7, [%l1+%g3] L(L49): ld [%i0+12], %g3 cmp %g3, 16 be,a L(L55) ld [%i0], %g3 ld [%g1+20], %o5 L(L60): ld [%i0+4], %g3 ld [%g1], %o0 ld [%g1+4], %o1 ld [%g1+8], %o2 ld [%g1+12], %o3 call %g3, 0 ld [%g1+16], %o4 nop ld [%i0+12], %o7 cmp %o7, 1 be L(L10) mov %o0, %l0 cmp %o7, 0 be,a L(L59) ld [%i0+8], %g3 cmp %o7, 2 be L(L53) cmp %o7, 3 be L(L53) cmp %o7, 4 be L(L53) cmp %o7, 5 be L(L52) cmp %o7, 6 be L(L52) cmp %o7, 7 be L(L51) cmp %o7, 8 be L(L51) cmp %o7, 9 be L(L51) cmp %o7, 10 be L(L51) add %o7, -11, %g3 cmp %g3, 1 bgu L(L31) cmp %o7, 13 ld [%i0+8], %g3 st %o0, [%g3] b L(L10) st %o1, [%g3+4] L(L31): be L(L56) cmp %o7, 14 be L(L57) cmp %o7, 15 be L(L51) cmp %o7, 16 bne L(L10) nop ld [%i0], %g3 andcc %g3, 2, %g0 be L(L10) nop ld [%i0+16], %g3 cmp %g3, 1 be L(L53) cmp %g3, 2 be L(L52) cmp %g3, 4 bne L(L10) nop L(L51): ld [%i0+8], %g3 L(L59): b L(L10) st %l0, [%g3] L(L52): ld [%i0+8], %g3 b L(L10) sth %l0, [%g3] L(L53): ld [%i0+8], %g3 b L(L10) stb %l0, [%g3] L(L57): ld [%i0+8], %g3 b L(L10) std %f0, [%g3] L(L56): ld [%i0], %g3 andcc %g3, 32, %g0 bne,a L(L34) fdtos %f0, %f0 L(L34): ld [%i0+8], %g3 b L(L10) st %f0, [%g3] L(L55): andcc %g3, 16, %g0 be,a L(L60) ld [%g1+20], %o5 b L(L58) ld [%i0+16], %l0 L(L54): ld [%i0+8], %g3 b L(L2) st %g3, [%sp+64] L(L58): sethi %hi(-1614774272), %g3 sethi %hi(16777216), %o7 st %g3, [%fp-32] st %o7, [%fp-28] sethi %hi(-1341120512), %o7 sethi %hi(-2117607424), %g3 st %o7, [%fp-20] or %g3, 8, %g3 and %l0, 4095, %l0 st %g3, [%fp-16] sethi %hi(-2115502080), %o7 st %l0, [%fp-24] st %o7, [%fp-12] add %fp, -32, %g3 iflush %g3 add %fp, -24, %o7 iflush %o7 add %fp, -16, %g3 iflush %g3 add %fp, -12, %o7 iflush %o7 ld [%g1+20], %o5 ld [%i0+4], %g2 ld [%g1], %o0 ld [%g1+4], %o1 ld [%g1+8], %o2 ld [%g1+12], %o3 jmp %fp-32 ld [%g1+16], %o4 L(L10): ret restore %g0, 0, %o0 L(Lfe1): FUNEND(avcall_call) #if defined __linux__ || defined __FreeBSD__ || defined __FreeBSD_kernel__ || defined __DragonFly__ .section .note.GNU-stack,"",@progbits #endif libffcall-2.2/avcall/avcall-powerpc64.c0000664000000000000000000003334213347755257014712 00000000000000/** Copyright 1993 Bill Triggs Copyright 1995-2017 Bruno Haible Copyright 2000 Adam Fedor Copyright 2004 Paul Guyot This program is free software: you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program. If not, see . **/ /*---------------------------------------------------------------------- !!! THIS ROUTINE MUST BE COMPILED gcc -O !!! Foreign function interface for a 64-bit PowerPC with gcc This calls a C function with an argument list built up using macros defined in avcall.h. PowerPC64 Argument Passing Conventions: All arguments, except the first 8 words, are passed on the stack with word alignment. The first 13 doubles and floats are also passed in floating-point-registers. To return a structure, the called function copies the value to space pointed to by its first argument, and all other arguments are shifted down by one. The AIX argument passing conventions are used: - the first 13 doubles and floats are passed in FP registers, and when they do, there is still room allocated for them in the argument sequence (integer regs or stack). - Structures are passed in the argument sequence. But structures containing floats or doubles are passed in FP registers?! Compile this routine with gcc -O (or -O2 -fno-omit-frame-pointer or -g -O) to get the right register variables. For other compilers use the pre-compiled assembler version. ----------------------------------------------------------------------*/ #include "avcall-internal.h" #define RETURN(TYPE,VAL) (*(TYPE*)l->raddr = (TYPE)(VAL)) register double farg1 __asm__("fr1"); register double farg2 __asm__("fr2"); register double farg3 __asm__("fr3"); register double farg4 __asm__("fr4"); register double farg5 __asm__("fr5"); register double farg6 __asm__("fr6"); register double farg7 __asm__("fr7"); register double farg8 __asm__("fr8"); register double farg9 __asm__("fr9"); register double farg10 __asm__("fr10"); register double farg11 __asm__("fr11"); register double farg12 __asm__("fr12"); register double farg13 __asm__("fr13"); int avcall_call(av_alist* list) { register __avword* sp __asm__("r1"); /* C names for registers */ /*register __avword iret __asm__("r3"); */ register __avword iret2 __asm__("r4"); register float fret __asm__("fr1"); register double dret __asm__("fr1"); __av_alist* l = &AV_LIST_INNER(list); __avword* argframe = __builtin_alloca(__AV_ALIST_WORDS * sizeof(__avword)); /* make room for argument list */ int arglen = l->aptr - l->args; __avword iret; int i; for (i = 8; i < arglen; i++) /* push function args onto stack */ argframe[i-8] = l->args[i]; /* pass first 13 floating-point args in registers */ arglen = l->faptr - l->fargs; if (arglen > 0) { if (arglen > 1) { if (arglen > 2) { if (arglen > 3) { if (arglen > 4) { if (arglen > 5) { if (arglen > 6) { if (arglen > 7) { if (arglen > 8) { if (arglen > 9) { if (arglen > 10) { if (arglen > 11) { if (arglen > 12) { farg13 = l->fargs[12]; } farg12 = l->fargs[11]; } farg11 = l->fargs[10]; } farg10 = l->fargs[9]; } farg9 = l->fargs[8]; } farg8 = l->fargs[7]; } farg7 = l->fargs[6]; } farg6 = l->fargs[5]; } farg5 = l->fargs[4]; } farg4 = l->fargs[3]; } farg3 = l->fargs[2]; } farg2 = l->fargs[1]; } farg1 = l->fargs[0]; } /* call function, pass 8 args in registers */ iret = (*l->func)(l->args[0], l->args[1], l->args[2], l->args[3], l->args[4], l->args[5], l->args[6], l->args[7]); /* save return value */ if (l->rtype == __AVvoid) { } else if (l->rtype == __AVword) { RETURN(__avword, iret); } else if (l->rtype == __AVchar) { RETURN(char, iret); } else if (l->rtype == __AVschar) { RETURN(signed char, iret); } else if (l->rtype == __AVuchar) { RETURN(unsigned char, iret); } else if (l->rtype == __AVshort) { RETURN(short, iret); } else if (l->rtype == __AVushort) { RETURN(unsigned short, iret); } else if (l->rtype == __AVint) { RETURN(int, iret); } else if (l->rtype == __AVuint) { RETURN(unsigned int, iret); } else if (l->rtype == __AVlong) { RETURN(long, iret); } else if (l->rtype == __AVulong) { RETURN(unsigned long, iret); } else if (l->rtype == __AVlonglong) { RETURN(long long, iret); } else if (l->rtype == __AVulonglong) { RETURN(unsigned long long, iret); } else if (l->rtype == __AVfloat) { RETURN(float, fret); } else if (l->rtype == __AVdouble) { RETURN(double, dret); } else if (l->rtype == __AVvoidp) { RETURN(void*, iret); } else if (l->rtype == __AVstruct) { #ifdef __powerpc64_elfv2__ if (l->flags & __AV_REGISTER_STRUCT_RETURN) { /* In the ELFv2 ABI, gcc returns structs of size <= 16 in registers. */ if (l->rsize > 0 && l->rsize <= 16) { void* raddr = l->raddr; #if 0 /* Unoptimized */ if (l->rsize == 1) { ((unsigned char *)raddr)[0] = (unsigned char)(iret); } else if (l->rsize == 2) { ((unsigned char *)raddr)[0] = (unsigned char)(iret); ((unsigned char *)raddr)[1] = (unsigned char)(iret>>8); } else if (l->rsize == 3) { ((unsigned char *)raddr)[0] = (unsigned char)(iret); ((unsigned char *)raddr)[1] = (unsigned char)(iret>>8); ((unsigned char *)raddr)[2] = (unsigned char)(iret>>16); } else if (l->rsize == 4) { ((unsigned char *)raddr)[0] = (unsigned char)(iret); ((unsigned char *)raddr)[1] = (unsigned char)(iret>>8); ((unsigned char *)raddr)[2] = (unsigned char)(iret>>16); ((unsigned char *)raddr)[3] = (unsigned char)(iret>>24); } else if (l->rsize == 5) { ((unsigned char *)raddr)[0] = (unsigned char)(iret); ((unsigned char *)raddr)[1] = (unsigned char)(iret>>8); ((unsigned char *)raddr)[2] = (unsigned char)(iret>>16); ((unsigned char *)raddr)[3] = (unsigned char)(iret>>24); ((unsigned char *)raddr)[4] = (unsigned char)(iret>>32); } else if (l->rsize == 6) { ((unsigned char *)raddr)[0] = (unsigned char)(iret); ((unsigned char *)raddr)[1] = (unsigned char)(iret>>8); ((unsigned char *)raddr)[2] = (unsigned char)(iret>>16); ((unsigned char *)raddr)[3] = (unsigned char)(iret>>24); ((unsigned char *)raddr)[4] = (unsigned char)(iret>>32); ((unsigned char *)raddr)[5] = (unsigned char)(iret>>40); } else if (l->rsize == 7) { ((unsigned char *)raddr)[0] = (unsigned char)(iret); ((unsigned char *)raddr)[1] = (unsigned char)(iret>>8); ((unsigned char *)raddr)[2] = (unsigned char)(iret>>16); ((unsigned char *)raddr)[3] = (unsigned char)(iret>>24); ((unsigned char *)raddr)[4] = (unsigned char)(iret>>32); ((unsigned char *)raddr)[5] = (unsigned char)(iret>>40); ((unsigned char *)raddr)[6] = (unsigned char)(iret>>48); } else if (l->rsize >= 8 && l->rsize <= 16) { ((unsigned char *)raddr)[0] = (unsigned char)(iret); ((unsigned char *)raddr)[1] = (unsigned char)(iret>>8); ((unsigned char *)raddr)[2] = (unsigned char)(iret>>16); ((unsigned char *)raddr)[3] = (unsigned char)(iret>>24); ((unsigned char *)raddr)[4] = (unsigned char)(iret>>32); ((unsigned char *)raddr)[5] = (unsigned char)(iret>>40); ((unsigned char *)raddr)[6] = (unsigned char)(iret>>48); ((unsigned char *)raddr)[7] = (unsigned char)(iret>>56); if (l->rsize == 8) { } else if (l->rsize == 9) { ((unsigned char *)raddr)[8+0] = (unsigned char)(iret2); } else if (l->rsize == 10) { ((unsigned char *)raddr)[8+0] = (unsigned char)(iret2); ((unsigned char *)raddr)[8+1] = (unsigned char)(iret2>>8); } else if (l->rsize == 11) { ((unsigned char *)raddr)[8+0] = (unsigned char)(iret2); ((unsigned char *)raddr)[8+1] = (unsigned char)(iret2>>8); ((unsigned char *)raddr)[8+2] = (unsigned char)(iret2>>16); } else if (l->rsize == 12) { ((unsigned char *)raddr)[8+0] = (unsigned char)(iret2); ((unsigned char *)raddr)[8+1] = (unsigned char)(iret2>>8); ((unsigned char *)raddr)[8+2] = (unsigned char)(iret2>>16); ((unsigned char *)raddr)[8+3] = (unsigned char)(iret2>>24); } else if (l->rsize == 13) { ((unsigned char *)raddr)[8+0] = (unsigned char)(iret2); ((unsigned char *)raddr)[8+1] = (unsigned char)(iret2>>8); ((unsigned char *)raddr)[8+2] = (unsigned char)(iret2>>16); ((unsigned char *)raddr)[8+3] = (unsigned char)(iret2>>24); ((unsigned char *)raddr)[8+4] = (unsigned char)(iret2>>32); } else if (l->rsize == 14) { ((unsigned char *)raddr)[8+0] = (unsigned char)(iret2); ((unsigned char *)raddr)[8+1] = (unsigned char)(iret2>>8); ((unsigned char *)raddr)[8+2] = (unsigned char)(iret2>>16); ((unsigned char *)raddr)[8+3] = (unsigned char)(iret2>>24); ((unsigned char *)raddr)[8+4] = (unsigned char)(iret2>>32); ((unsigned char *)raddr)[8+5] = (unsigned char)(iret2>>40); } else if (l->rsize == 15) { ((unsigned char *)raddr)[8+0] = (unsigned char)(iret2); ((unsigned char *)raddr)[8+1] = (unsigned char)(iret2>>8); ((unsigned char *)raddr)[8+2] = (unsigned char)(iret2>>16); ((unsigned char *)raddr)[8+3] = (unsigned char)(iret2>>24); ((unsigned char *)raddr)[8+4] = (unsigned char)(iret2>>32); ((unsigned char *)raddr)[8+5] = (unsigned char)(iret2>>40); ((unsigned char *)raddr)[8+6] = (unsigned char)(iret2>>48); } else if (l->rsize == 16) { ((unsigned char *)raddr)[8+0] = (unsigned char)(iret2); ((unsigned char *)raddr)[8+1] = (unsigned char)(iret2>>8); ((unsigned char *)raddr)[8+2] = (unsigned char)(iret2>>16); ((unsigned char *)raddr)[8+3] = (unsigned char)(iret2>>24); ((unsigned char *)raddr)[8+4] = (unsigned char)(iret2>>32); ((unsigned char *)raddr)[8+5] = (unsigned char)(iret2>>40); ((unsigned char *)raddr)[8+6] = (unsigned char)(iret2>>48); ((unsigned char *)raddr)[8+7] = (unsigned char)(iret2>>56); } } #else /* Optimized: fewer conditional jumps, fewer memory accesses */ uintptr_t count = l->rsize; /* > 0, ≤ 2*sizeof(__avword) */ __avword* wordaddr = (__avword*)((uintptr_t)raddr & ~(uintptr_t)(sizeof(__avword)-1)); uintptr_t start_offset = (uintptr_t)raddr & (uintptr_t)(sizeof(__avword)-1); /* ≥ 0, < sizeof(__avword) */ uintptr_t end_offset = start_offset + count; /* > 0, < 3*sizeof(__avword) */ if (count <= sizeof(__avword)) { /* Use iret. */ if (end_offset <= sizeof(__avword)) { /* 0 < end_offset ≤ sizeof(__avword) */ __avword mask0 = ((__avword)2 << (end_offset*8-1)) - ((__avword)1 << (start_offset*8)); wordaddr[0] ^= (wordaddr[0] ^ (iret << (start_offset*8))) & mask0; } else { /* sizeof(__avword) < end_offset < 2*sizeof(__avword), start_offset > 0 */ __avword mask0 = - ((__avword)1 << (start_offset*8)); __avword mask1 = ((__avword)2 << (end_offset*8-sizeof(__avword)*8-1)) - 1; wordaddr[0] ^= (wordaddr[0] ^ (iret << (start_offset*8))) & mask0; wordaddr[1] ^= (wordaddr[1] ^ (iret >> (sizeof(__avword)*8-start_offset*8))) & mask1; } } else { /* Use iret, iret2. */ __avword mask0 = - ((__avword)1 << (start_offset*8)); wordaddr[0] ^= (wordaddr[0] ^ (iret << (start_offset*8))) & mask0; if (end_offset <= 2*sizeof(__avword)) { /* sizeof(__avword) < end_offset ≤ 2*sizeof(__avword) */ __avword mask1 = ((__avword)2 << (end_offset*8-sizeof(__avword)*8-1)) - 1; wordaddr[1] ^= (wordaddr[1] ^ ((iret >> (sizeof(__avword)*4-start_offset*4) >> (sizeof(__avword)*4-start_offset*4)) | (iret2 << (start_offset*8)))) & mask1; } else { /* 2*sizeof(__avword) < end_offset < 3*sizeof(__avword), start_offset > 0 */ __avword mask2 = ((__avword)2 << (end_offset*8-2*sizeof(__avword)*8-1)) - 1; wordaddr[1] = (iret >> (sizeof(__avword)*8-start_offset*8)) | (iret2 << (start_offset*8)); wordaddr[2] ^= (wordaddr[2] ^ (iret2 >> (sizeof(__avword)*8-start_offset*8))) & mask2; } } #endif } } #endif } return 0; } libffcall-2.2/avcall/avcall-structcpy.c0000664000000000000000000000142413347755262015111 00000000000000/* copy structs */ /* * Copyright 2016 Bruno Haible * * This program is free software: you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by * the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program. If not, see . */ #define __structcpy avcall_structcpy #include "structcpy.c" libffcall-2.2/avcall/avcall-powerpc64-linux.S0000664000000000000000000000510413530357107016004 00000000000000 .file "avcall-powerpc64.c" .machine power4 .section ".toc","aw" .section ".text" .align 2 .p2align 4,,15 .globl avcall_call .section ".opd","aw" .align 3 avcall_call: .quad .L.avcall_call,.TOC.@tocbase,0 .previous .type avcall_call, @function .L.avcall_call: mflr 0 std 30,-16(1) std 31,-8(1) mr 30,3 std 0,16(1) stdu 1,-128(1) ld 3,48(3) ld 9,40(30) mr 31,1 ld 10,0(1) subf 9,3,9 stdu 10,-2064(1) sradi 9,9,3 cmpwi 7,9,8 ble 7,.L6 addi 10,9,-9 addi 8,1,112 addi 9,3,56 rldicl 10,10,0,32 addi 8,8,-8 addi 10,10,8 sldi 10,10,3 add 10,3,10 .p2align 4,,15 .L5: ldu 7,8(9) cmpld 7,10,9 stdu 7,8(8) bne 7,.L5 .L6: ld 10,64(30) addi 9,30,72 subf 9,9,10 sradi 9,9,3 extsw 9,9 cmpwi 7,9,0 ble 7,.L4 cmpwi 7,9,1 beq 7,.L7 cmpwi 7,9,2 beq 7,.L8 cmpwi 7,9,3 beq 7,.L9 cmpwi 7,9,4 beq 7,.L10 cmpwi 7,9,5 beq 7,.L11 cmpwi 7,9,6 beq 7,.L12 cmpwi 7,9,7 beq 7,.L13 cmpwi 7,9,8 beq 7,.L14 cmpwi 7,9,9 beq 7,.L15 cmpwi 7,9,10 beq 7,.L16 cmpwi 7,9,11 beq 7,.L17 cmpwi 7,9,12 beq 7,.L18 lfd 13,168(30) .L18: lfd 12,160(30) .L17: lfd 11,152(30) .L16: lfd 10,144(30) .L15: lfd 9,136(30) .L14: lfd 8,128(30) .L13: lfd 7,120(30) .L12: lfd 6,112(30) .L11: lfd 5,104(30) .L10: lfd 4,96(30) .L9: lfd 3,88(30) .L8: lfd 2,80(30) .L7: lfd 1,72(30) .L4: ld 9,48(3) ld 10,56(3) ld 8,40(3) ld 7,32(3) ld 6,24(3) ld 5,16(3) ld 4,8(3) ld 3,0(3) std 2,40(1) ld 12,8(30) ld 0,0(12) ld 11,16(12) mtctr 0 ld 2,8(12) bctrl ld 2,40(1) lwz 9,24(30) cmplwi 7,9,1 beq 7,.L19 cmpdi 7,9,0 beq 7,.L36 cmplwi 7,9,2 beq 7,.L38 cmplwi 7,9,3 beq 7,.L38 cmplwi 7,9,4 beq 7,.L38 cmplwi 7,9,5 beq 7,.L39 cmplwi 7,9,6 beq 7,.L39 cmplwi 7,9,7 beq 7,.L40 cmplwi 7,9,8 beq 7,.L40 cmplwi 7,9,9 beq 7,.L36 cmplwi 7,9,10 beq 7,.L36 cmplwi 7,9,11 beq 7,.L36 cmplwi 7,9,12 beq 7,.L36 cmplwi 7,9,13 beq 7,.L42 cmplwi 7,9,14 beq 7,.L43 cmplwi 7,9,15 beq 7,.L36 .L19: addi 1,31,128 li 3,0 ld 0,16(1) ld 30,-16(1) ld 31,-8(1) mtlr 0 blr .p2align 4,,15 .L36: ld 9,16(30) std 3,0(9) addi 1,31,128 li 3,0 ld 0,16(1) ld 30,-16(1) ld 31,-8(1) mtlr 0 blr .p2align 4,,15 .L38: ld 9,16(30) stb 3,0(9) addi 1,31,128 li 3,0 ld 0,16(1) ld 30,-16(1) ld 31,-8(1) mtlr 0 blr .L39: ld 9,16(30) sth 3,0(9) b .L19 .L40: ld 9,16(30) stw 3,0(9) b .L19 .L42: ld 9,16(30) stfs 1,0(9) b .L19 .L43: ld 9,16(30) stfd 1,0(9) b .L19 .long 0 .byte 0,0,0,1,128,2,0,0 .size avcall_call,.-.L.avcall_call #if defined __linux__ || defined __FreeBSD__ || defined __FreeBSD_kernel__ || defined __DragonFly__ .section .note.GNU-stack,"",@progbits #endif libffcall-2.2/avcall/avcall-m68k.c0000664000000000000000000001074413347755256013646 00000000000000/** Copyright 1993 Bill Triggs Copyright 1995-2017 Bruno Haible This program is free software: you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program. If not, see . **/ /*---------------------------------------------------------------------- !!! THIS ROUTINE MUST BE COMPILED gcc -O !!! Foreign function interface for a m68k Sun3 with gcc/sun-cc. This calls a C function with an argument list built up using macros defined in avcall.h. M68k Argument Passing Conventions: All arguments are passed on the stack with word alignment. Doubles take two words. Structure args are passed as true structures embedded in the argument stack. To return a structure, the called function copies the return value to the address supplied in register "a1". Gcc without -fpcc-struct-return returns <= 4 byte structures as integers. Compile this routine with gcc -O (or -O2 or -g -O) to get the right register variables, or use the assembler version. ----------------------------------------------------------------------*/ #include "avcall-internal.h" #define RETURN(TYPE,VAL) (*(TYPE*)l->raddr = (TYPE)(VAL)) int avcall_call(av_alist* list) { register __avword* sp __asm__("sp"); /* C names for registers */ register __avword* sret __asm__("a1"); /* structure return pointer */ /*register __avword iret __asm__("d0"); */ register __avword iret2 __asm__("d1"); register float fret __asm__("d0"); /* d0 */ register double dret __asm__("d0"); /* d0,d1 */ register float fp_fret __asm__("fp0"); register double fp_dret __asm__("fp0"); __av_alist* l = &AV_LIST_INNER(list); __avword* argframe = __builtin_alloca(__AV_ALIST_WORDS * sizeof(__avword)); /* make room for argument list */ int arglen = l->aptr - l->args; __avword i; __avword i2; for (i = 0; i < arglen; i++) /* push function args onto stack */ argframe[i] = l->args[i]; if (l->rtype == __AVstruct) /* push struct return address */ __asm__("move%.l %0,%/a1" : : "g" (l->raddr)); i = (*l->func)(); /* call function */ i2 = iret2; /* save return value */ if (l->rtype == __AVvoid) { } else if (l->rtype == __AVword) { RETURN(__avword, i); } else if (l->rtype == __AVchar) { RETURN(char, i); } else if (l->rtype == __AVschar) { RETURN(signed char, i); } else if (l->rtype == __AVuchar) { RETURN(unsigned char, i); } else if (l->rtype == __AVshort) { RETURN(short, i); } else if (l->rtype == __AVushort) { RETURN(unsigned short, i); } else if (l->rtype == __AVint) { RETURN(int, i); } else if (l->rtype == __AVuint) { RETURN(unsigned int, i); } else if (l->rtype == __AVlong) { RETURN(long, i); } else if (l->rtype == __AVulong) { RETURN(unsigned long, i); } else if (l->rtype == __AVlonglong || l->rtype == __AVulonglong) { void* raddr = l->raddr; ((__avword*)raddr)[0] = i; ((__avword*)raddr)[1] = i2; } else if (l->rtype == __AVfloat) { if (l->flags & __AV_FREG_FLOAT_RETURN) { RETURN(float, fp_fret); } else { if (l->flags & __AV_SUNCC_FLOAT_RETURN) { RETURN(float, (float)dret); } else { RETURN(float, fret); } } } else if (l->rtype == __AVdouble) { if (l->flags & __AV_FREG_FLOAT_RETURN) { RETURN(double, fp_dret); } else { RETURN(double, dret); } } else if (l->rtype == __AVvoidp) { RETURN(void*, i); } else if (l->rtype == __AVstruct) { /* NB: On m68k, all structure sizes are divisible by 2. */ if (l->flags & __AV_REGISTER_STRUCT_RETURN) { if (l->rsize == sizeof(char)) { /* can't occur */ RETURN(char, i); } else if (l->rsize == sizeof(short)) { RETURN(short, i); } else if (l->rsize == sizeof(int)) { RETURN(int, i); } else if (l->rsize == 2*sizeof(__avword)) { void* raddr = l->raddr; ((__avword*)raddr)[0] = i; ((__avword*)raddr)[1] = i2; } } } return 0; } libffcall-2.2/avcall/avcall-hppa64.c0000664000000000000000000004341513530335307014145 00000000000000/** Copyright 1993 Bill Triggs Copyright 1995-2017 Bruno Haible This program is free software: you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program. If not, see . **/ /*---------------------------------------------------------------------- !!! THIS ROUTINE MUST BE COMPILED gcc -O !!! Foreign function interface for a HP-PA 2.0w in 64-bit mode with cc (NB: gcc-7.1.0/gcc/config/pa/pa64-regs.h is quite incorrect. Ignore it.) This calls a C function with an argument list built up using macros defined in avcall.h. hppa64 Argument Passing Conventions: Up to 8 words are passed in registers: integer/pointer float double 1. %r26 %fr4R %fr4 2. %r25 %fr5R %fr5 3. %r24 %fr6R %fr6 4. %r23 %fr7R %fr7 5. %r22 %fr8R %fr8 6. %r21 %fr9R %fr9 7. %r20 %fr10R %fr10 8. %r19 %fr11R %fr11 The remaining arguments are passed on the stack - growing up, unlike in 32-bit mode! -, and %r29 is the base address of this stack area. Room is preallocated for 8 words, i.e. from address %r29-64 to %r29-1. Among these stack arguments: - integer/pointer occupies 1 word (right-adjusted, since big-endian), - float occupies 1 word and is stored in the upper 4 bytes of the word, - double occupies 1 word. Structs of any size are passed in the argument sequence, e.g. in integer registers (first byte being at bits 63..56). Note that a {long,long} struct has 2*(8 bytes) alignment. The return value is returned in register %r28. Float return values are also returned in %fr4R. Double return values are also returned in %fr4. (How silly! Who designed this ABI?!) To return a structure of more than 16 bytes, the called function copies the return value to the address supplied in register %r28. The function also returns the pointer. Smaller structures are returned in the registers %r28 (first 8 bytes) and %r29 (next 8 bytes, if present). ----------------------------------------------------------------------*/ #include "avcall-internal.h" #define RETURN(TYPE,VAL) (*(TYPE*)l->raddr = (TYPE)(VAL)) /* This declaration tells gcc not to modify %r28. */ register __avword* sret __asm__("%r28"); /* structure return pointer */ register __avword arg1 __asm__("r26"); register __avword arg2 __asm__("r25"); register __avword arg3 __asm__("r24"); register __avword arg4 __asm__("r23"); register __avword arg5 __asm__("r22"); register __avword arg6 __asm__("r21"); register __avword arg7 __asm__("r20"); register __avword arg8 __asm__("r19"); /*register float farg1 __asm__("fr4R");*/ /*register float farg2 __asm__("fr5R");*/ /*register float farg3 __asm__("fr6R");*/ /*register float farg4 __asm__("fr7R");*/ /*register float farg5 __asm__("fr8R");*/ /*register float farg6 __asm__("fr9R");*/ /*register float farg7 __asm__("fr10R");*/ /*register float farg8 __asm__("fr11R");*/ register double darg1 __asm__("fr4"); register double darg2 __asm__("fr5"); register double darg3 __asm__("fr6"); register double darg4 __asm__("fr7"); register double darg5 __asm__("fr8"); register double darg6 __asm__("fr9"); register double darg7 __asm__("fr10"); register double darg8 __asm__("fr11"); int avcall_call(av_alist* list) { register __avword* sp __asm__("%r30"); /* C names for registers */ /*register __avword iret1 __asm__("%r28"); */ register __avword iret2 __asm__("%r29"); __av_alist* l = &AV_LIST_INNER(list); __avword* argframe = __builtin_alloca(__AV_ALIST_WORDS * sizeof(__avword)); /* make room for argument list */ __avword* memargptr; int arglen = l->aptr - l->args; __avword iret; { int i; for (i = 8; i < arglen; i++) /* push function args onto stack */ argframe[i] = l->args[i]; } if (l->rtype == __AVstruct) /* push struct return address */ sret = l->raddr; /* Put args in registers */ if (arglen >= 1) { if (l->darg_mask & (1 << 0)) darg1 = ((double*)&l->args[1])[-1]; else if (l->farg_mask & (1 << 0)) __asm__ __volatile__ ("fldw %0,%%fr4R" : : "m" (((float*)&l->args[1])[-1])); /* farg1 = ((float*)&l->args[1])[-1]; */ else arg1 = l->args[0]; if (arglen >= 2) { if (l->darg_mask & (1 << 1)) darg2 = ((double*)&l->args[2])[-1]; else if (l->farg_mask & (1 << 1)) __asm__ __volatile__ ("fldw %0,%%fr5R" : : "m" (((float*)&l->args[2])[-1])); /* farg2 = ((float*)&l->args[2])[-1]; */ else arg2 = l->args[1]; if (arglen >= 3) { if (l->darg_mask & (1 << 2)) darg3 = ((double*)&l->args[3])[-1]; else if (l->farg_mask & (1 << 2)) __asm__ __volatile__ ("fldw %0,%%fr6R" : : "m" (((float*)&l->args[3])[-1])); /* farg3 = ((float*)&l->args[3])[-1]; */ else arg3 = l->args[2]; if (arglen >= 4) { if (l->darg_mask & (1 << 3)) darg4 = ((double*)&l->args[4])[-1]; else if (l->farg_mask & (1 << 3)) __asm__ __volatile__ ("fldw %0,%%fr7R" : : "m" (((float*)&l->args[4])[-1])); /* farg4 = ((float*)&l->args[4])[-1]; */ else arg4 = l->args[3]; if (arglen >= 5) { if (l->darg_mask & (1 << 4)) darg5 = ((double*)&l->args[5])[-1]; else if (l->farg_mask & (1 << 4)) __asm__ __volatile__ ("fldw %0,%%fr8R" : : "m" (((float*)&l->args[5])[-1])); /* farg5 = ((float*)&l->args[5])[-1]; */ else arg5 = l->args[4]; if (arglen >= 6) { if (l->darg_mask & (1 << 5)) darg6 = ((double*)&l->args[6])[-1]; else if (l->farg_mask & (1 << 5)) __asm__ __volatile__ ("fldw %0,%%fr9R" : : "m" (((float*)&l->args[6])[-1])); /* farg6 = ((float*)&l->args[6])[-1]; */ else arg6 = l->args[5]; if (arglen >= 7) { if (l->darg_mask & (1 << 6)) darg7 = ((double*)&l->args[7])[-1]; else if (l->farg_mask & (1 << 6)) __asm__ __volatile__ ("fldw %0,%%fr10R" : : "m" (((float*)&l->args[7])[-1])); /* farg7 = ((float*)&l->args[7])[-1]; */ else arg7 = l->args[6]; if (arglen >= 8) { if (l->darg_mask & (1 << 7)) darg8 = ((double*)&l->args[8])[-1]; else if (l->farg_mask & (1 << 7)) __asm__ __volatile__ ("fldw %0,%%fr11R" : : "m" (((float*)&l->args[8])[-1])); /* farg8 = ((float*)&l->args[8])[-1]; */ else arg8 = l->args[7]; if (arglen > 8) { memargptr = &argframe[8]; } } } } } } } } } if (l->rtype == __AVfloat) { __asm__ __volatile__ ("copy %0,%%r29" : : "r" (memargptr)); /* GCC generates an 'ldo -16(%r30),%r29' instruction as part of this function call. We eliminate it through post-processing. */ *(float*)l->raddr = (*(float(*)())l->func)(); } else if (l->rtype == __AVdouble) { __asm__ __volatile__ ("copy %0,%%r29" : : "r" (memargptr)); /* GCC generates an 'ldo -16(%r30),%r29' instruction as part of this function call. We eliminate it through post-processing. */ *(double*)l->raddr = (*(double(*)())l->func)(); } else { __asm__ __volatile__ ("copy %0,%%r29" : : "r" (memargptr)); /* GCC generates an 'ldo -16(%r30),%r29' instruction as part of this function call. We eliminate it through post-processing. */ iret = (*l->func)(); /* save return value */ if (l->rtype == __AVvoid) { } else if (l->rtype == __AVword) { RETURN(__avword, iret); } else if (l->rtype == __AVchar) { RETURN(char, iret); } else if (l->rtype == __AVschar) { RETURN(signed char, iret); } else if (l->rtype == __AVuchar) { RETURN(unsigned char, iret); } else if (l->rtype == __AVshort) { RETURN(short, iret); } else if (l->rtype == __AVushort) { RETURN(unsigned short, iret); } else if (l->rtype == __AVint) { RETURN(int, iret); } else if (l->rtype == __AVuint) { RETURN(unsigned int, iret); } else if (l->rtype == __AVlong || l->rtype == __AVlonglong) { RETURN(long, iret); } else if (l->rtype == __AVulong || l->rtype == __AVulonglong) { RETURN(unsigned long, iret); } else /* see above if (l->rtype == __AVfloat) { } else if (l->rtype == __AVdouble) { } else */ if (l->rtype == __AVvoidp) { RETURN(void*, iret); } else if (l->rtype == __AVstruct) { if (l->flags & __AV_REGISTER_STRUCT_RETURN) { /* cc returns structs of size <= 16 in registers. */ if (l->rsize > 0 && l->rsize <= 16) { #if 0 void* raddr = l->raddr; #else #define raddr l->raddr #endif #if 1 /* Unoptimized */ if (l->rsize == 1) { ((unsigned char *)raddr)[0] = (unsigned char)(iret>>56); } else if (l->rsize == 2) { ((unsigned char *)raddr)[0] = (unsigned char)(iret>>56); ((unsigned char *)raddr)[1] = (unsigned char)(iret>>48); } else if (l->rsize == 3) { ((unsigned char *)raddr)[0] = (unsigned char)(iret>>56); ((unsigned char *)raddr)[1] = (unsigned char)(iret>>48); ((unsigned char *)raddr)[2] = (unsigned char)(iret>>40); } else if (l->rsize == 4) { ((unsigned char *)raddr)[0] = (unsigned char)(iret>>56); ((unsigned char *)raddr)[1] = (unsigned char)(iret>>48); ((unsigned char *)raddr)[2] = (unsigned char)(iret>>40); ((unsigned char *)raddr)[3] = (unsigned char)(iret>>32); } else if (l->rsize == 5) { ((unsigned char *)raddr)[0] = (unsigned char)(iret>>56); ((unsigned char *)raddr)[1] = (unsigned char)(iret>>48); ((unsigned char *)raddr)[2] = (unsigned char)(iret>>40); ((unsigned char *)raddr)[3] = (unsigned char)(iret>>32); ((unsigned char *)raddr)[4] = (unsigned char)(iret>>24); } else if (l->rsize == 6) { ((unsigned char *)raddr)[0] = (unsigned char)(iret>>56); ((unsigned char *)raddr)[1] = (unsigned char)(iret>>48); ((unsigned char *)raddr)[2] = (unsigned char)(iret>>40); ((unsigned char *)raddr)[3] = (unsigned char)(iret>>32); ((unsigned char *)raddr)[4] = (unsigned char)(iret>>24); ((unsigned char *)raddr)[5] = (unsigned char)(iret>>16); } else if (l->rsize == 7) { ((unsigned char *)raddr)[0] = (unsigned char)(iret>>56); ((unsigned char *)raddr)[1] = (unsigned char)(iret>>48); ((unsigned char *)raddr)[2] = (unsigned char)(iret>>40); ((unsigned char *)raddr)[3] = (unsigned char)(iret>>32); ((unsigned char *)raddr)[4] = (unsigned char)(iret>>24); ((unsigned char *)raddr)[5] = (unsigned char)(iret>>16); ((unsigned char *)raddr)[6] = (unsigned char)(iret>>8); } else if (l->rsize >= 8 && l->rsize <= 16) { ((unsigned char *)raddr)[0] = (unsigned char)(iret>>56); ((unsigned char *)raddr)[1] = (unsigned char)(iret>>48); ((unsigned char *)raddr)[2] = (unsigned char)(iret>>40); ((unsigned char *)raddr)[3] = (unsigned char)(iret>>32); ((unsigned char *)raddr)[4] = (unsigned char)(iret>>24); ((unsigned char *)raddr)[5] = (unsigned char)(iret>>16); ((unsigned char *)raddr)[6] = (unsigned char)(iret>>8); ((unsigned char *)raddr)[7] = (unsigned char)(iret); if (l->rsize == 8) { } else if (l->rsize == 9) { ((unsigned char *)raddr)[8+0] = (unsigned char)(iret2>>56); } else if (l->rsize == 10) { ((unsigned char *)raddr)[8+0] = (unsigned char)(iret2>>56); ((unsigned char *)raddr)[8+1] = (unsigned char)(iret2>>48); } else if (l->rsize == 11) { ((unsigned char *)raddr)[8+0] = (unsigned char)(iret2>>56); ((unsigned char *)raddr)[8+1] = (unsigned char)(iret2>>48); ((unsigned char *)raddr)[8+2] = (unsigned char)(iret2>>40); } else if (l->rsize == 12) { ((unsigned char *)raddr)[8+0] = (unsigned char)(iret2>>56); ((unsigned char *)raddr)[8+1] = (unsigned char)(iret2>>48); ((unsigned char *)raddr)[8+2] = (unsigned char)(iret2>>40); ((unsigned char *)raddr)[8+3] = (unsigned char)(iret2>>32); } else if (l->rsize == 13) { ((unsigned char *)raddr)[8+0] = (unsigned char)(iret2>>56); ((unsigned char *)raddr)[8+1] = (unsigned char)(iret2>>48); ((unsigned char *)raddr)[8+2] = (unsigned char)(iret2>>40); ((unsigned char *)raddr)[8+3] = (unsigned char)(iret2>>32); ((unsigned char *)raddr)[8+4] = (unsigned char)(iret2>>24); } else if (l->rsize == 14) { ((unsigned char *)raddr)[8+0] = (unsigned char)(iret2>>56); ((unsigned char *)raddr)[8+1] = (unsigned char)(iret2>>48); ((unsigned char *)raddr)[8+2] = (unsigned char)(iret2>>40); ((unsigned char *)raddr)[8+3] = (unsigned char)(iret2>>32); ((unsigned char *)raddr)[8+4] = (unsigned char)(iret2>>24); ((unsigned char *)raddr)[8+5] = (unsigned char)(iret2>>16); } else if (l->rsize == 15) { ((unsigned char *)raddr)[8+0] = (unsigned char)(iret2>>56); ((unsigned char *)raddr)[8+1] = (unsigned char)(iret2>>48); ((unsigned char *)raddr)[8+2] = (unsigned char)(iret2>>40); ((unsigned char *)raddr)[8+3] = (unsigned char)(iret2>>32); ((unsigned char *)raddr)[8+4] = (unsigned char)(iret2>>24); ((unsigned char *)raddr)[8+5] = (unsigned char)(iret2>>16); ((unsigned char *)raddr)[8+6] = (unsigned char)(iret2>>8); } else if (l->rsize == 16) { ((unsigned char *)raddr)[8+0] = (unsigned char)(iret2>>56); ((unsigned char *)raddr)[8+1] = (unsigned char)(iret2>>48); ((unsigned char *)raddr)[8+2] = (unsigned char)(iret2>>40); ((unsigned char *)raddr)[8+3] = (unsigned char)(iret2>>32); ((unsigned char *)raddr)[8+4] = (unsigned char)(iret2>>24); ((unsigned char *)raddr)[8+5] = (unsigned char)(iret2>>16); ((unsigned char *)raddr)[8+6] = (unsigned char)(iret2>>8); ((unsigned char *)raddr)[8+7] = (unsigned char)(iret2); } } #else /* Optimized: fewer conditional jumps, fewer memory accesses */ uintptr_t count = l->rsize; /* > 0, ≤ 2*sizeof(__avword) */ __avword* wordaddr = (__avword*)((uintptr_t)raddr & ~(uintptr_t)(sizeof(__avword)-1)); uintptr_t start_offset = (uintptr_t)raddr & (uintptr_t)(sizeof(__avword)-1); /* ≥ 0, < sizeof(__avword) */ uintptr_t end_offset = start_offset + count; /* > 0, < 3*sizeof(__avword) */ if (count <= sizeof(__avword)) { /* Use iret. */ if (end_offset <= sizeof(__avword)) { /* 0 < end_offset ≤ sizeof(__avword) */ __avword mask0 = ((__avword)2 << (sizeof(__avword)*8-start_offset*8-1)) - ((__avword)1 << (sizeof(__avword)*8-end_offset*8)); wordaddr[0] ^= (wordaddr[0] ^ (iret >> (start_offset*8))) & mask0; } else { /* sizeof(__avword) < end_offset < 2*sizeof(__avword), start_offset > 0 */ __avword mask0 = ((__avword)2 << (sizeof(__avword)*8-start_offset*8-1)) - 1; __avword mask1 = - ((__avword)1 << (2*sizeof(__avword)*8-end_offset*8)); wordaddr[0] ^= (wordaddr[0] ^ (iret >> (start_offset*8))) & mask0; wordaddr[1] ^= (wordaddr[1] ^ (iret << (sizeof(__avword)*8-start_offset*8))) & mask1; } } else { /* Use iret, iret2. */ __avword mask0 = ((__avword)2 << (sizeof(__avword)*8-start_offset*8-1)) - 1; wordaddr[0] ^= (wordaddr[0] ^ (iret >> (start_offset*8))) & mask0; if (end_offset <= 2*sizeof(__avword)) { /* sizeof(__avword) < end_offset ≤ 2*sizeof(__avword) */ __avword mask1 = - ((__avword)1 << (2*sizeof(__avword)*8-end_offset*8)); wordaddr[1] ^= (wordaddr[1] ^ ((iret << (sizeof(__avword)*4-start_offset*4) << (sizeof(__avword)*4-start_offset*4)) | (iret2 >> (start_offset*8)))) & mask1; } else { /* 2*sizeof(__avword) < end_offset < 3*sizeof(__avword), start_offset > 0 */ __avword mask2 = - ((__avword)1 << (3*sizeof(__avword)*8-end_offset*8)); wordaddr[1] = (iret << (sizeof(__avword)*8-start_offset*8)) | (iret2 >> (start_offset*8)); wordaddr[2] ^= (wordaddr[2] ^ (iret2 << (sizeof(__avword)*8-start_offset*8))) & mask2; } } #endif } } } } return 0; } libffcall-2.2/avcall/avcall-powerpc-sysv4-macro.S0000664000000000000000000000423513530357107016666 00000000000000 .file "avcall-powerpc.c" .section ".text" .align 2 .globl avcall_call .type avcall_call, @function avcall_call: .extern __mulh .extern __mull .extern __divss .extern __divus .extern __quoss .extern __quous stwu 1,-1056(1) mflr 0 stw 0,1060(1) addi 10,1,8 stw 30,1048(1) mr 30,3 lwz 0,20(30) li 3,0 lwz 11,24(30) stw 31,1052(1) mr 31,1 subfc 0,11,0 srawi 0,0,2 cmpw 0,3,0 bge- 0,.L73 mtctr 0 .L74: slwi 9,3,2 addi 3,3,1 lwzx 0,9,11 stwx 0,9,10 bdnz .L74 .L73: lwz 9,76(30) subfc 9,30,9 addi 9,9,-80 srawi. 9,9,3 beq- 0,.L8 cmpwi 0,9,1 beq- 0,.L11 cmpwi 0,9,2 beq- 0,.L14 cmpwi 0,9,3 beq- 0,.L17 cmpwi 0,9,4 beq- 0,.L20 cmpwi 0,9,5 beq- 0,.L23 cmpwi 0,9,6 beq- 0,.L26 cmpwi 0,9,7 beq- 0,.L29 .L32: lfd 8,136(30) .L29: lfd 7,128(30) .L26: lfd 6,120(30) .L23: lfd 5,112(30) .L20: lfd 4,104(30) .L17: lfd 3,96(30) .L14: lfd 2,88(30) .L11: lfd 1,80(30) .L8: lwz 0,4(30) lwz 9,68(30) lwz 3,44(30) mtctr 0 lwz 4,48(30) lwz 5,52(30) lwz 6,56(30) lwz 7,60(30) lwz 8,64(30) lwz 10,72(30) crxor 6,6,6 bctrl lwz 9,12(30) cmpwi 0,9,1 beq- 0,.L34 cmpwi 0,9,0 beq- 0,.L84 cmpwi 0,9,2 beq- 0,.L77 cmpwi 0,9,3 beq- 0,.L77 cmpwi 0,9,4 beq- 0,.L77 cmpwi 0,9,5 beq- 0,.L76 cmpwi 0,9,6 beq- 0,.L76 cmpwi 0,9,7 beq- 0,.L84 cmpwi 0,9,8 beq- 0,.L84 cmpwi 0,9,9 beq- 0,.L84 cmpwi 0,9,10 beq- 0,.L84 addi 0,9,-11 cmplwi 0,0,1 ble- 0,.L83 cmpwi 0,9,13 beq- 0,.L85 cmpwi 0,9,14 beq- 0,.L86 cmpwi 0,9,15 beq- 0,.L84 cmpwi 0,9,16 beq- 0,.L87 .L34: lwz 11,0(1) li 3,0 lwz 0,4(11) lwz 30,-8(11) lwz 31,-4(11) mtlr 0 mr 1,11 blr .L87: lwz 0,0(30) andi. 9,0,512 beq- 0,.L34 lwz 0,16(30) cmpwi 0,0,1 beq- 0,.L77 cmpwi 0,0,2 beq- 0,.L76 cmpwi 0,0,4 beq- 0,.L84 cmpwi 0,0,8 bne+ 0,.L34 .L83: lwz 9,8(30) stw 4,4(9) .L75: stw 3,0(9) b .L34 .L84: lwz 9,8(30) b .L75 .L76: lwz 9,8(30) sth 3,0(9) b .L34 .L77: lwz 9,8(30) stb 3,0(9) b .L34 .L86: lwz 9,8(30) stfd 1,0(9) b .L34 .L85: frsp 0,1 lwz 9,8(30) stfs 0,0(9) b .L34 .size avcall_call, .-avcall_call #if defined __linux__ || defined __FreeBSD__ || defined __FreeBSD_kernel__ || defined __DragonFly__ .section .note.GNU-stack,"",@progbits #endif libffcall-2.2/avcall/avcall-alpha-linux.s0000664000000000000000000000536313530357106015306 00000000000000 .set noreorder .set volatile .set noat .set nomacro .text .align 2 .align 4 .globl avcall_call .ent avcall_call avcall_call: .frame $15,32,$26,0 .mask 0x4008200,-32 ldah $29,0($27) !gpdisp!1 lda $29,0($29) !gpdisp!1 $avcall_call..ng: lda $30,-32($30) ldq $1,40($16) ldq $3,48($16) stq $9,8($30) mov $16,$9 stq $15,16($30) mov $30,$15 subq $1,$3,$1 stq $26,0($30) .prologue 1 srl $1,3,$1 lda $30,-2064($30) addl $31,$1,$7 cmple $7,6,$2 bne $2,$L2 mov $30,$5 lda $6,6($31) lda $4,48($3) .align 4 $L4: lda $6,1($6) ldq $1,0($4) cmpeq $7,$6,$2 lda $4,8($4) stq $1,0($5) lda $5,8($5) beq $2,$L4 $L2: .set macro ldq $16,0($3) ldt $f16,0($3) .set nomacro lda $1,8($3) .set macro ldq $17,0($1) ldt $f17,0($1) .set nomacro lda $2,16($3) .set macro ldq $18,0($2) ldt $f18,0($2) .set nomacro lda $1,24($3) .set macro ldq $19,0($1) ldt $f19,0($1) .set nomacro lda $2,32($3) .set macro ldq $20,0($2) ldt $f20,0($2) .set nomacro lda $3,40($3) .set macro ldq $21,0($3) ldt $f21,0($3) .set nomacro ldq $27,8($9) jsr $26,($27),0 ldah $29,0($26) !gpdisp!2 lda $29,0($29) !gpdisp!2 mov $1,$4 ldl $2,24($9) zapnot $2,15,$3 cmpeq $3,1,$1 bne $1,$L5 beq $2,$L55 cmpeq $3,2,$1 bne $1,$L53 cmpeq $3,3,$1 bne $1,$L53 cmpeq $3,4,$1 bne $1,$L53 cmpeq $3,5,$1 bne $1,$L54 cmpeq $3,6,$1 bne $1,$L54 cmpeq $3,7,$1 bne $1,$L56 cmpeq $3,8,$1 bne $1,$L56 cmpeq $3,9,$1 bne $1,$L55 cmpeq $3,10,$1 bne $1,$L55 cmpeq $3,11,$1 bne $1,$L55 cmpeq $3,12,$1 bne $1,$L55 cmpeq $3,13,$1 bne $1,$L58 cmpeq $3,14,$1 bne $1,$L59 cmpeq $3,15,$1 bne $1,$L55 cmpeq $3,16,$1 beq $1,$L5 .align 3 #realign lda $1,512($31) ldl $2,0($9) and $1,$2,$1 beq $1,$L5 ldq $2,32($9) cmpeq $2,1,$1 bne $1,$L53 cmpeq $2,2,$1 bne $1,$L54 cmpeq $2,4,$1 bne $1,$L56 cmpeq $2,8,$1 bne $1,$L55 cmpeq $2,16,$1 beq $1,$L5 ldq $1,16($9) stq $4,8($1) stq $0,0($1) $L5: mov $15,$30 mov $31,$0 ldq $26,0($30) ldq $9,8($30) ldq $15,16($30) lda $30,32($30) ret $31,($26),1 bis $31,$31,$31 $L55: mov $15,$30 ldq $1,16($9) stq $0,0($1) mov $31,$0 ldq $26,0($30) ldq $9,8($30) ldq $15,16($30) lda $30,32($30) ret $31,($26),1 bis $31,$31,$31 $L53: mov $15,$30 ldq $1,16($9) insbl $0,$1,$3 ldq_u $2,0($1) mov $31,$0 mskbl $2,$1,$2 bis $3,$2,$3 stq_u $3,0($1) ldq $26,0($30) ldq $9,8($30) ldq $15,16($30) lda $30,32($30) ret $31,($26),1 $L54: ldq $1,16($9) inswl $0,$1,$3 ldq_u $2,0($1) mskwl $2,$1,$2 bis $3,$2,$3 stq_u $3,0($1) br $31,$L5 $L56: ldq $1,16($9) bis $31,$31,$31 stl $0,0($1) br $31,$L5 $L58: cvtts $f0,$f0 ldq $1,16($9) sts $f0,0($1) br $31,$L5 $L59: ldq $1,16($9) bis $31,$31,$31 stt $f0,0($1) br $31,$L5 .end avcall_call .ident "GCC: (GNU) 4.0.2" .section .note.GNU-stack,"",@progbits libffcall-2.2/avcall/DOC0000664000000000000000000001411713146127475011774 00000000000000---------------------------------------------------------------------- AVCALL --- a foreign function interface to ANSI-C ---------------------------------------------------------------------- This library allows arbitrary C functions to be called from embedded interpreters, debuggers, RPC calls, etc, by building up a C argument list incrementally from explicitly typed arguments. This considerably reduces the amount of boilerplate glue code required for such applications. The interface is like stdargs/varargs in reverse and is intended to be as portable as possible, however the details of function calling are highly machine-dependent so your mileage may vary. At the very least there are typically built-in limits on the size of the argument-list. The argument-pushing macros all return 0 for success, < 0 for error (eg, arg-list overflow). Installation instructions are in the Makefile. ---------------------------------------------------------------------- DECLARE ALIST -> OPEN ALIST -> SET FLAGS -> PUSH ARGS -> CALL FUNCTION ---------------------------------------------------------------------- 1) Declare the argument list structure: #include "avcall.h" { av_alist alist; 2) Set any special flags. This is architecture and compiler dependent. Sometimes, compiler options must be flagged by #defines before the #include . Usually, however, the ‘configure’ script should have determined which #defines are needed and put them at the head of avcall.h. 3) Initialise the alist with the function address and return type. There is a separate macro for each built-in C type (char, int, float, etc). Eg, av_start_int(alist,&func,&return_addr); or av_start_double(alist,&func,&return_addr); etc. Functions returning a structure or pointer take an extra type argument: Eg, av_start_struct(alist,&func,STRUCT_OR_UNION_TYPE,SPLITTABLE,&return_addr); or av_start_ptr(alist,&func,POINTER_TYPE,&return_addr); 4) Push the arguments one by one in order. There is a macro for each built-in C type, eg: av_int(alist,value); or av_double(alist,value); Structure and pointer arguments require an extra type argument: av_struct(alist,STRUCT_TYPE,value); or av_ptr(alist,POINTER_TYPE,value); 5) Call the function, set the return value, and tidy up: av_call(alist); ---------------------------------------------------------------------- NOTES 1) Functions declared in K&R style (ie, without a typed arglist) must use default K&R expression promotions (char,short-->int; float-->double) whether they are compiled by a K&R or an ANSI compiler, because the true arg types may not be known at the call point. Such functions back-convert their arguments to the declared types on function entry. The only way to pass a true char, short or float (eg, from K&R C to an ANSI or varargs function) is by an explicit cast: foo((char)c,(float)f). !! Hence, for args of functions declared in K&R style you should use !! av_int() and av_double() instead of av_{char,short}() and av_float(). If you use a K&R compiler, the avcall header files may detect this and define av_float, etc, appropriately, but with an ANSI compiler there's no way avcall can know how a function was declared, so you have to correct the argument types yourself. Similarly, some K&R compilers (such as Sun cc on the sparc) actually return a float as a double. 2) There are too many possible structure and pointer types to have a separate macro for each, so the pointer and structure macros take an explicit type argument which may be used (eg) to calculate the size of the structure. On most architectures this provides enough information for the compiler to make the proper call, but there will always be machines with odd alignment requirements or argument passing conventions, unusual reprentations for function, char, or void pointers, etc, for which this scheme will not suffice. These machines may define additional av_start_TYPE and av_TYPE macros. 3) The current implementations are pretty flakey in places. I'm happy to accept new ports and (properly tested) fixes and enhancements. In particular, many of the routines waste a lot of stack space and generally do hairy things with stack frames - a bit more assembly code would probably help things along quite a bit, but I don't speak assembler at all well. 4) The macros required for all this are pretty grungy, but it does seem to be possible to port avcall to many machines. Some of the grunge is usually handled by a C or assembly level glue routine that actually pushes the arguments, calls the function and unpacks any return value. This is called avcall_call(). A precompiled assembler version for people without gcc is also made available. The routine should ideally have flags for the passing conventions of other compilers. ---------------------------------------------------------------------- ACKNOWLEDGEMENTS I was aware of two similar but rather more restricted foreign function interfaces when the initial version of this library was written, although (I believe) all of the present code is my own: the C interface in the zelk extensions to Oliver Laumann's Elk scheme interpreter by J.P.Lewis, NEC C&C Research, (for Sun4 and SGI); and Roy Featherstone's personal C interface library for Sun3,4 and SGI. I also looked at the comments and some of the code in the machine-dependent parts of the GCC and GDB distributions, and put the GCC __asm__ extensions to good use. Thanks guys! This work was partly supported by EC-ESPRIT Basic Research Action SECOND. ---------------------------------------------------------------------- ================================================================================ Copyright 1993 Bill Triggs Copyright 1995-2017 Bruno Haible This manual is covered by the GNU GPL. You can redistribute it and/or modify it under the terms of the GNU General Public License (GPL), either version 2 of the License, or (at your option) any later version published by the Free Software Foundation (FSF). A copy of the license is at . libffcall-2.2/avcall/avcall-mips64el-macro.S0000664000000000000000000002037113530357106015562 00000000000000#include "asm-mips.h" .file 1 "avcall-mips64.c" .text .align 2 .align 3 .globl avcall_call .set nomips16 .set nomicromips .ent avcall_call DECLARE_FUNCTION(avcall_call) avcall_call: .frame $fp,32,$31 .mask 0xd0010000,-8 .fmask 0x00000000,0 ld $2,40($4) ld $12,48($4) lw $3,68($4) daddiu $sp,$sp,-32 dsubu $6,$2,$12 dsra $6,$6,3 sd $fp,16($sp) sd $16,0($sp) sd $31,24($sp) move $fp,$sp daddiu $sp,$sp,-2064 move $16,$4 sll $6,$6,0 .set noreorder .set nomacro beq $3,$0,.L2 move $2,$sp .set macro .set reorder andi $4,$3,0x1 .set noreorder .set nomacro beq $4,$0,.L125 andi $4,$3,0x2 .set macro .set reorder lwc1 $f12,76($16) andi $4,$3,0x2 .L125: .set noreorder .set nomacro beq $4,$0,.L126 andi $4,$3,0x4 .set macro .set reorder lwc1 $f13,80($16) andi $4,$3,0x4 .L126: .set noreorder .set nomacro beq $4,$0,.L127 andi $4,$3,0x8 .set macro .set reorder lwc1 $f14,84($16) andi $4,$3,0x8 .L127: .set noreorder .set nomacro beq $4,$0,.L128 andi $4,$3,0x10 .set macro .set reorder lwc1 $f15,88($16) andi $4,$3,0x10 .L128: .set noreorder .set nomacro beq $4,$0,.L129 andi $4,$3,0x20 .set macro .set reorder lwc1 $f16,92($16) andi $4,$3,0x20 .L129: .set noreorder .set nomacro beq $4,$0,.L130 andi $4,$3,0x40 .set macro .set reorder lwc1 $f17,96($16) andi $4,$3,0x40 .L130: .set noreorder .set nomacro beql $4,$0,.L131 andi $3,$3,0x80 .set macro .set reorder lwc1 $f18,100($16) andi $3,$3,0x80 .L131: bne $3,$0,.L118 .L2: lw $3,72($16) .L124: .set noreorder .set nomacro beql $3,$0,.L123 slt $3,$6,9 .set macro .set reorder andi $4,$3,0x1 .set noreorder .set nomacro beq $4,$0,.L132 andi $4,$3,0x2 .set macro .set reorder ldc1 $f12,0($12) andi $4,$3,0x2 .L132: .set noreorder .set nomacro beq $4,$0,.L133 andi $4,$3,0x4 .set macro .set reorder ldc1 $f13,8($12) andi $4,$3,0x4 .L133: .set noreorder .set nomacro beq $4,$0,.L134 andi $4,$3,0x8 .set macro .set reorder ldc1 $f14,16($12) andi $4,$3,0x8 .L134: .set noreorder .set nomacro beq $4,$0,.L135 andi $4,$3,0x10 .set macro .set reorder ldc1 $f15,24($12) andi $4,$3,0x10 .L135: .set noreorder .set nomacro beq $4,$0,.L136 andi $4,$3,0x20 .set macro .set reorder ldc1 $f16,32($12) andi $4,$3,0x20 .L136: .set noreorder .set nomacro beq $4,$0,.L137 andi $4,$3,0x40 .set macro .set reorder ldc1 $f17,40($12) andi $4,$3,0x40 .L137: .set noreorder .set nomacro beql $4,$0,.L138 andi $3,$3,0x80 .set macro .set reorder ldc1 $f18,48($12) andi $3,$3,0x80 .L138: bne $3,$0,.L119 slt $3,$6,9 .L123: .set noreorder .set nomacro bne $3,$0,.L22 daddiu $4,$12,64 .set macro .set reorder li $3,8 .align 3 .L21: ld $5,0($4) addiu $3,$3,1 daddiu $4,$4,8 sd $5,0($2) .set noreorder .set nomacro bne $6,$3,.L21 daddiu $2,$2,8 .set macro .set reorder .L22: ld $4,0($12) ld $5,8($12) ld $6,16($12) ld $7,24($12) ld $8,32($12) ld $9,40($12) ld $10,48($12) ld $11,56($12) ld $25,8($16) jalr $25 lw $4,24($16) li $5,1 .set noreorder .set nomacro beql $4,$5,.L139 move $sp,$fp .set macro .set reorder .set noreorder .set nomacro beq $4,$0,.L110 li $5,2 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L108 li $5,3 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L108 li $5,4 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L108 li $5,5 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L111 li $5,6 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L111 li $5,7 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L113 li $5,8 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L113 li $5,9 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L110 li $5,10 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L110 li $5,11 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L110 li $5,12 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L110 li $5,13 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L120 li $5,14 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L121 li $5,15 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L110 li $5,16 .set macro .set reorder .set noreorder .set nomacro bnel $4,$5,.L139 move $sp,$fp .set macro .set reorder lw $4,0($16) andi $5,$4,0x200 .set noreorder .set nomacro beq $5,$0,.L19 andi $4,$4,0x4 .set macro .set reorder .set noreorder .set nomacro beql $4,$0,.L38 ld $5,32($16) .set macro .set reorder ld $3,32($16) li $4,1 .set noreorder .set nomacro beq $3,$4,.L108 li $4,2 .set macro .set reorder .set noreorder .set nomacro beq $3,$4,.L111 li $4,4 .set macro .set reorder .set noreorder .set nomacro beq $3,$4,.L113 li $4,8 .set macro .set reorder .set noreorder .set nomacro beql $3,$4,.L140 ld $3,16($16) .set macro .set reorder .L19: move $sp,$fp .L139: ld $31,24($sp) ld $fp,16($sp) ld $16,0($sp) move $2,$0 .set noreorder .set nomacro j $31 daddiu $sp,$sp,32 .set macro .set reorder .align 3 .L110: ld $3,16($16) .align 3 .L140: sd $2,0($3) move $sp,$fp ld $31,24($sp) ld $fp,16($sp) ld $16,0($sp) move $2,$0 .set noreorder .set nomacro j $31 daddiu $sp,$sp,32 .set macro .set reorder .align 3 .L119: ldc1 $f19,56($12) .set noreorder .set nomacro b .L123 slt $3,$6,9 .set macro .set reorder .align 3 .L118: lwc1 $f19,104($16) .set noreorder .set nomacro b .L124 lw $3,72($16) .set macro .set reorder .align 3 .L108: ld $3,16($16) sb $2,0($3) move $sp,$fp ld $31,24($sp) ld $fp,16($sp) ld $16,0($sp) move $2,$0 .set noreorder .set nomacro j $31 daddiu $sp,$sp,32 .set macro .set reorder .L111: ld $3,16($16) .set noreorder .set nomacro b .L19 sh $2,0($3) .set macro .set reorder .L113: ld $3,16($16) .set noreorder .set nomacro b .L19 sw $2,0($3) .set macro .set reorder .L120: ld $2,16($16) .set noreorder .set nomacro b .L19 swc1 $f0,0($2) .set macro .set reorder .L121: ld $2,16($16) .set noreorder .set nomacro b .L19 sdc1 $f0,0($2) .set macro .set reorder .L38: daddiu $4,$5,-1 sltu $4,$4,16 .set noreorder .set nomacro beq $4,$0,.L19 sltu $7,$5,9 .set macro .set reorder ld $6,16($16) li $8,-8 andi $4,$6,0x7 daddu $5,$5,$4 .set noreorder .set nomacro beq $7,$0,.L42 and $6,$6,$8 .set macro .set reorder sltu $3,$5,9 .set noreorder .set nomacro beq $3,$0,.L43 dsll $3,$5,3 .set macro .set reorder daddiu $3,$3,-1 ld $7,0($6) li $5,2 sll $3,$3,0 sll $4,$4,3 dsll $3,$5,$3 li $5,1 dsll $5,$5,$4 dsll $4,$2,$4 dsubu $3,$3,$5 xor $4,$4,$7 and $4,$3,$4 xor $4,$4,$7 .set noreorder .set nomacro b .L19 sd $4,0($6) .set macro .set reorder .align 3 .L42: ld $10,0($6) sll $8,$4,3 dsll $7,$2,$8 li $9,-1 dsll $9,$9,$8 xor $7,$7,$10 and $7,$9,$7 xor $7,$7,$10 sltu $9,$5,17 subu $4,$0,$4 .set noreorder .set nomacro bne $9,$0,.L122 sd $7,0($6) .set macro .set reorder dsll $5,$5,3 ld $10,16($6) sll $4,$4,3 daddiu $5,$5,-129 addiu $4,$4,64 sll $5,$5,0 li $7,2 move $9,$3 dsll $5,$7,$5 dsra $3,$3,$4 daddiu $5,$5,-1 xor $3,$3,$10 dsra $2,$2,$4 dsll $8,$9,$8 and $3,$5,$3 or $2,$2,$8 xor $3,$3,$10 sd $2,8($6) .set noreorder .set nomacro b .L19 sd $3,16($6) .set macro .set reorder .L43: ld $10,0($6) ld $9,8($6) subu $7,$0,$4 daddiu $3,$3,-65 sll $4,$4,3 li $5,2 sll $3,$3,0 sll $7,$7,3 dsll $8,$2,$4 dsll $3,$5,$3 dsra $2,$2,$7 li $5,-1 dsll $4,$5,$4 daddiu $3,$3,-1 xor $5,$8,$10 xor $2,$2,$9 and $2,$3,$2 and $4,$4,$5 xor $3,$4,$10 xor $2,$2,$9 sd $3,0($6) .set noreorder .set nomacro b .L19 sd $2,8($6) .set macro .set reorder .L122: sll $4,$4,2 addiu $4,$4,32 dsll $5,$5,3 ld $7,8($6) dsra $2,$2,$4 daddiu $5,$5,-65 dsra $4,$2,$4 dsll $3,$3,$8 sll $5,$5,0 li $2,2 or $3,$4,$3 dsll $2,$2,$5 xor $3,$3,$7 daddiu $2,$2,-1 and $2,$3,$2 xor $2,$2,$7 .set noreorder .set nomacro b .L19 sd $2,8($6) .set macro .set reorder .end avcall_call .size avcall_call, .-avcall_call libffcall-2.2/avcall/avcall-sparc64.c0000664000000000000000000006444613347755261014347 00000000000000/** Copyright 1993 Bill Triggs Copyright 1995-2017 Bruno Haible This program is free software: you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program. If not, see . **/ /*---------------------------------------------------------------------- !!! THIS ROUTINE MUST BE COMPILED gcc -O !!! Foreign function interface for a Sparc v9 in 64-bit mode with gcc. This calls a C function with an argument list built up using macros defined in avcall.h. Sparc 64-bit Argument Passing Conventions The argument registers are laid out as an array of 16 elements and arguments are added sequentially. The first 6 int args and up to the first 16 fp args (depending on size) are passed in regs. Slot Stack Integral Float Float in structure Double Long Double ---- ----- -------- ----- ------------------ ------ ----------- 15 [SP+248] %f31 %f30,%f31 %d30 14 [SP+240] %f29 %f28,%f29 %d28 %q28 13 [SP+232] %f27 %f26,%f27 %d26 12 [SP+224] %f25 %f24,%f25 %d24 %q24 11 [SP+216] %f23 %f22,%f23 %d22 10 [SP+208] %f21 %f20,%f21 %d20 %q20 9 [SP+200] %f19 %f18,%f19 %d18 8 [SP+192] %f17 %f16,%f17 %d16 %q16 7 [SP+184] %f15 %f14,%f15 %d14 6 [SP+176] %f13 %f12,%f13 %d12 %q12 5 [SP+168] %o5 %f11 %f10,%f11 %d10 4 [SP+160] %o4 %f9 %f8,%f9 %d8 %q8 3 [SP+152] %o3 %f7 %f6,%f7 %d6 2 [SP+144] %o2 %f5 %f4,%f5 %d4 %q4 1 [SP+136] %o1 %f3 %f2,%f3 %d2 0 [SP+128] %o0 %f1 %f0,%f1 %d0 %q0 Here SP = %sp if -mno-stack-bias or %sp+stack_bias otherwise. Integral arguments are always passed as 64 bit quantities appropriately extended. Passing of floating point values is handled as follows. If a prototype is in scope: If the value is in a named argument (i.e. not a stdarg function or a value not part of the ‘...’) then the value is passed in the appropriate fp reg. If the value is part of the ‘...’ and is passed in one of the first 6 slots then the value is passed in the appropriate int reg. If the value is part of the ‘...’ and is not passed in one of the first 6 slots then the value is passed in memory. If a prototype is not in scope: If the value is one of the first 6 arguments the value is passed in the appropriate integer reg and the appropriate fp reg. If the value is not one of the first 6 arguments the value is passed in the appropriate fp reg and in memory. Remaining arguments are pushed onto the stack starting at a fixed offset Space is left on the stack frame for temporary storage of the register arguments as well. Integers shorter than ‘long’ are always promoted to word-length (zero-extended or sign-extended, according to their type). Structures <= 16 bytes are passed embedded in the argument sequence; bigger structures are passed by reference. Integers and pointers are returned in o0, floats in f0, doubles in f0/f1. If the function returns a structure a pointer to space allocated by the caller is pushed onto the stack immediately before the function arguments. Structures <= 32 bytes are returned in registers (integer/float/double registers, as appropriate). Long doubles are 16-byte aligned, but we don't deal with this here, so we assume 8-byte alignment for everything. ----------------------------------------------------------------------*/ #include "avcall-internal.h" #define RETURN(TYPE,VAL) (*(TYPE*)l->raddr = (TYPE)(VAL)) #define OFFSETOF(struct,member) ((int)&(((struct*)0)->member)) register __avword o0 __asm__("%o0"); register __avword o1 __asm__("%o1"); register __avword o2 __asm__("%o2"); register __avword o3 __asm__("%o3"); register __avword o4 __asm__("%o4"); register __avword o5 __asm__("%o5"); int avcall_call(av_alist* list) { register __avword* sp __asm__("%sp"); /* C names for registers */ register float fret __asm__("%f0"); /* %f0 */ register double dret __asm__("%f0"); /* %f0,%f1 */ __av_alist* l = &AV_LIST_INNER(list); __avword trampoline[6]; /* room for a trampoline */ int arglen = l->aptr - l->args; __avword iret; if (l->darg_mask) { /* push leading float/double args */ __avword* a = l->args; if (l->darg_mask & (1<<0)) __asm__("ldd [%0+%1],%%f0" : : "p" (a), "i" (0 * sizeof (__avword))); if (l->darg_mask & (1<<1)) __asm__("ldd [%0+%1],%%f2" : : "p" (a), "i" (1 * sizeof (__avword))); if (l->darg_mask & (1<<2)) __asm__("ldd [%0+%1],%%f4" : : "p" (a), "i" (2 * sizeof (__avword))); if (l->darg_mask & (1<<3)) __asm__("ldd [%0+%1],%%f6" : : "p" (a), "i" (3 * sizeof (__avword))); if (l->darg_mask & (1<<4)) __asm__("ldd [%0+%1],%%f8" : : "p" (a), "i" (4 * sizeof (__avword))); if (l->darg_mask & (1<<5)) __asm__("ldd [%0+%1],%%f10" : : "p" (a), "i" (5 * sizeof (__avword))); if (l->darg_mask & (1<<6)) __asm__("ldd [%0+%1],%%f12" : : "p" (a), "i" (6 * sizeof (__avword))); if (l->darg_mask & (1<<7)) __asm__("ldd [%0+%1],%%f14" : : "p" (a), "i" (7 * sizeof (__avword))); if (l->darg_mask & (1<<8)) __asm__("ldd [%0+%1],%%f16" : : "p" (a), "i" (8 * sizeof (__avword))); if (l->darg_mask & (1<<9)) __asm__("ldd [%0+%1],%%f18" : : "p" (a), "i" (9 * sizeof (__avword))); if (l->darg_mask & (1<<10)) __asm__("ldd [%0+%1],%%f20" : : "p" (a), "i" (10 * sizeof (__avword))); if (l->darg_mask & (1<<11)) __asm__("ldd [%0+%1],%%f22" : : "p" (a), "i" (11 * sizeof (__avword))); if (l->darg_mask & (1<<12)) __asm__("ldd [%0+%1],%%f24" : : "p" (a), "i" (12 * sizeof (__avword))); if (l->darg_mask & (1<<13)) __asm__("ldd [%0+%1],%%f26" : : "p" (a), "i" (13 * sizeof (__avword))); if (l->darg_mask & (1<<14)) __asm__("ldd [%0+%1],%%f28" : : "p" (a), "i" (14 * sizeof (__avword))); if (l->darg_mask & (1<<15)) __asm__("ldd [%0+%1],%%f30" : : "p" (a), "i" (15 * sizeof (__avword))); } if (arglen > 6) { /* alloca space is separated from the extra outgoing args area by * the area for compiler temps (addressable with postive offsets from sp) * but they shouldn't be needed for this function, so, effectively, * space returned by alloca is safe to use as the area for extra args. */ void *extra_args_area = __builtin_alloca(sizeof(__avword) * (arglen - 6)); __avword *argframe = (__avword *)extra_args_area - 6; #if 0 /* "by construction" */ assert(argframe == (void *)((unsigned long)(sp + 16)+2047)); #endif int i; for (i = 6; i < arglen; i++) /* push excess function args */ argframe[i] = l->args[i]; } /* call function with 1st 6 args */ iret = ({ register __avword iretreg __asm__ ("%o0"); iretreg = (*l->func)(l->args[0], l->args[1], l->args[2], l->args[3], l->args[4], l->args[5]); asm __volatile__("nop"); /* struct returning functions skip this instruction */ iretreg; }); /* save return value */ if (l->rtype == __AVvoid) { } else if (l->rtype == __AVword) { RETURN(__avword, iret); } else if (l->rtype == __AVchar) { RETURN(char, iret); } else if (l->rtype == __AVschar) { RETURN(signed char, iret); } else if (l->rtype == __AVuchar) { RETURN(unsigned char, iret); } else if (l->rtype == __AVshort) { RETURN(short, iret); } else if (l->rtype == __AVushort) { RETURN(unsigned short, iret); } else if (l->rtype == __AVint) { RETURN(int, iret); } else if (l->rtype == __AVuint) { RETURN(unsigned int, iret); } else if (l->rtype == __AVlong) { RETURN(long, iret); } else if (l->rtype == __AVulong) { RETURN(unsigned long, iret); } else if (l->rtype == __AVlonglong) { RETURN(long long, iret); } else if (l->rtype == __AVulonglong) { RETURN(unsigned long long, iret); } else if (l->rtype == __AVfloat) { RETURN(float, fret); } else if (l->rtype == __AVdouble) { RETURN(double, dret); } else if (l->rtype == __AVvoidp) { RETURN(void*, iret); } else if (l->rtype == __AVstruct) { if (l->flags & __AV_REGISTER_STRUCT_RETURN) { /* Return structs of size <= 32 in registers. */ #define iret2 o1 #define iret3 o2 #define iret4 o3 if (l->rsize > 0 && l->rsize <= 32) { void* raddr = l->raddr; #if 0 /* Unoptimized */ if (l->rsize == 1) { ((unsigned char *)raddr)[0] = (unsigned char)(iret>>56); } else if (l->rsize == 2) { ((unsigned char *)raddr)[0] = (unsigned char)(iret>>56); ((unsigned char *)raddr)[1] = (unsigned char)(iret>>48); } else if (l->rsize == 3) { ((unsigned char *)raddr)[0] = (unsigned char)(iret>>56); ((unsigned char *)raddr)[1] = (unsigned char)(iret>>48); ((unsigned char *)raddr)[2] = (unsigned char)(iret>>40); } else if (l->rsize == 4) { ((unsigned char *)raddr)[0] = (unsigned char)(iret>>56); ((unsigned char *)raddr)[1] = (unsigned char)(iret>>48); ((unsigned char *)raddr)[2] = (unsigned char)(iret>>40); ((unsigned char *)raddr)[3] = (unsigned char)(iret>>32); } else if (l->rsize == 5) { ((unsigned char *)raddr)[0] = (unsigned char)(iret>>56); ((unsigned char *)raddr)[1] = (unsigned char)(iret>>48); ((unsigned char *)raddr)[2] = (unsigned char)(iret>>40); ((unsigned char *)raddr)[3] = (unsigned char)(iret>>32); ((unsigned char *)raddr)[4] = (unsigned char)(iret>>24); } else if (l->rsize == 6) { ((unsigned char *)raddr)[0] = (unsigned char)(iret>>56); ((unsigned char *)raddr)[1] = (unsigned char)(iret>>48); ((unsigned char *)raddr)[2] = (unsigned char)(iret>>40); ((unsigned char *)raddr)[3] = (unsigned char)(iret>>32); ((unsigned char *)raddr)[4] = (unsigned char)(iret>>24); ((unsigned char *)raddr)[5] = (unsigned char)(iret>>16); } else if (l->rsize == 7) { ((unsigned char *)raddr)[0] = (unsigned char)(iret>>56); ((unsigned char *)raddr)[1] = (unsigned char)(iret>>48); ((unsigned char *)raddr)[2] = (unsigned char)(iret>>40); ((unsigned char *)raddr)[3] = (unsigned char)(iret>>32); ((unsigned char *)raddr)[4] = (unsigned char)(iret>>24); ((unsigned char *)raddr)[5] = (unsigned char)(iret>>16); ((unsigned char *)raddr)[6] = (unsigned char)(iret>>8); } else if (l->rsize >= 8 && l->rsize <= 32) { ((unsigned char *)raddr)[0] = (unsigned char)(iret>>56); ((unsigned char *)raddr)[1] = (unsigned char)(iret>>48); ((unsigned char *)raddr)[2] = (unsigned char)(iret>>40); ((unsigned char *)raddr)[3] = (unsigned char)(iret>>32); ((unsigned char *)raddr)[4] = (unsigned char)(iret>>24); ((unsigned char *)raddr)[5] = (unsigned char)(iret>>16); ((unsigned char *)raddr)[6] = (unsigned char)(iret>>8); ((unsigned char *)raddr)[7] = (unsigned char)(iret); if (l->rsize == 8) { } else if (l->rsize == 9) { ((unsigned char *)raddr)[8+0] = (unsigned char)(iret2>>56); } else if (l->rsize == 10) { ((unsigned char *)raddr)[8+0] = (unsigned char)(iret2>>56); ((unsigned char *)raddr)[8+1] = (unsigned char)(iret2>>48); } else if (l->rsize == 11) { ((unsigned char *)raddr)[8+0] = (unsigned char)(iret2>>56); ((unsigned char *)raddr)[8+1] = (unsigned char)(iret2>>48); ((unsigned char *)raddr)[8+2] = (unsigned char)(iret2>>40); } else if (l->rsize == 12) { ((unsigned char *)raddr)[8+0] = (unsigned char)(iret2>>56); ((unsigned char *)raddr)[8+1] = (unsigned char)(iret2>>48); ((unsigned char *)raddr)[8+2] = (unsigned char)(iret2>>40); ((unsigned char *)raddr)[8+3] = (unsigned char)(iret2>>32); } else if (l->rsize == 13) { ((unsigned char *)raddr)[8+0] = (unsigned char)(iret2>>56); ((unsigned char *)raddr)[8+1] = (unsigned char)(iret2>>48); ((unsigned char *)raddr)[8+2] = (unsigned char)(iret2>>40); ((unsigned char *)raddr)[8+3] = (unsigned char)(iret2>>32); ((unsigned char *)raddr)[8+4] = (unsigned char)(iret2>>24); } else if (l->rsize == 14) { ((unsigned char *)raddr)[8+0] = (unsigned char)(iret2>>56); ((unsigned char *)raddr)[8+1] = (unsigned char)(iret2>>48); ((unsigned char *)raddr)[8+2] = (unsigned char)(iret2>>40); ((unsigned char *)raddr)[8+3] = (unsigned char)(iret2>>32); ((unsigned char *)raddr)[8+4] = (unsigned char)(iret2>>24); ((unsigned char *)raddr)[8+5] = (unsigned char)(iret2>>16); } else if (l->rsize == 15) { ((unsigned char *)raddr)[8+0] = (unsigned char)(iret2>>56); ((unsigned char *)raddr)[8+1] = (unsigned char)(iret2>>48); ((unsigned char *)raddr)[8+2] = (unsigned char)(iret2>>40); ((unsigned char *)raddr)[8+3] = (unsigned char)(iret2>>32); ((unsigned char *)raddr)[8+4] = (unsigned char)(iret2>>24); ((unsigned char *)raddr)[8+5] = (unsigned char)(iret2>>16); ((unsigned char *)raddr)[8+6] = (unsigned char)(iret2>>8); } else if (l->rsize >= 16 && l->rsize <= 32) { ((unsigned char *)raddr)[8+0] = (unsigned char)(iret2>>56); ((unsigned char *)raddr)[8+1] = (unsigned char)(iret2>>48); ((unsigned char *)raddr)[8+2] = (unsigned char)(iret2>>40); ((unsigned char *)raddr)[8+3] = (unsigned char)(iret2>>32); ((unsigned char *)raddr)[8+4] = (unsigned char)(iret2>>24); ((unsigned char *)raddr)[8+5] = (unsigned char)(iret2>>16); ((unsigned char *)raddr)[8+6] = (unsigned char)(iret2>>8); ((unsigned char *)raddr)[8+7] = (unsigned char)(iret2); if (l->rsize == 16) { } else if (l->rsize == 17) { ((unsigned char *)raddr)[16+0] = (unsigned char)(iret3>>56); } else if (l->rsize == 18) { ((unsigned char *)raddr)[16+0] = (unsigned char)(iret3>>56); ((unsigned char *)raddr)[16+1] = (unsigned char)(iret3>>48); } else if (l->rsize == 19) { ((unsigned char *)raddr)[16+0] = (unsigned char)(iret3>>56); ((unsigned char *)raddr)[16+1] = (unsigned char)(iret3>>48); ((unsigned char *)raddr)[16+2] = (unsigned char)(iret3>>40); } else if (l->rsize == 20) { ((unsigned char *)raddr)[16+0] = (unsigned char)(iret3>>56); ((unsigned char *)raddr)[16+1] = (unsigned char)(iret3>>48); ((unsigned char *)raddr)[16+2] = (unsigned char)(iret3>>40); ((unsigned char *)raddr)[16+3] = (unsigned char)(iret3>>32); } else if (l->rsize == 21) { ((unsigned char *)raddr)[16+0] = (unsigned char)(iret3>>56); ((unsigned char *)raddr)[16+1] = (unsigned char)(iret3>>48); ((unsigned char *)raddr)[16+2] = (unsigned char)(iret3>>40); ((unsigned char *)raddr)[16+3] = (unsigned char)(iret3>>32); ((unsigned char *)raddr)[16+4] = (unsigned char)(iret3>>24); } else if (l->rsize == 22) { ((unsigned char *)raddr)[16+0] = (unsigned char)(iret3>>56); ((unsigned char *)raddr)[16+1] = (unsigned char)(iret3>>48); ((unsigned char *)raddr)[16+2] = (unsigned char)(iret3>>40); ((unsigned char *)raddr)[16+3] = (unsigned char)(iret3>>32); ((unsigned char *)raddr)[16+4] = (unsigned char)(iret3>>24); ((unsigned char *)raddr)[16+5] = (unsigned char)(iret3>>16); } else if (l->rsize == 23) { ((unsigned char *)raddr)[16+0] = (unsigned char)(iret3>>56); ((unsigned char *)raddr)[16+1] = (unsigned char)(iret3>>48); ((unsigned char *)raddr)[16+2] = (unsigned char)(iret3>>40); ((unsigned char *)raddr)[16+3] = (unsigned char)(iret3>>32); ((unsigned char *)raddr)[16+4] = (unsigned char)(iret3>>24); ((unsigned char *)raddr)[16+5] = (unsigned char)(iret3>>16); ((unsigned char *)raddr)[16+6] = (unsigned char)(iret3>>8); } else if (l->rsize >= 24 && l->rsize <= 32) { ((unsigned char *)raddr)[16+0] = (unsigned char)(iret3>>56); ((unsigned char *)raddr)[16+1] = (unsigned char)(iret3>>48); ((unsigned char *)raddr)[16+2] = (unsigned char)(iret3>>40); ((unsigned char *)raddr)[16+3] = (unsigned char)(iret3>>32); ((unsigned char *)raddr)[16+4] = (unsigned char)(iret3>>24); ((unsigned char *)raddr)[16+5] = (unsigned char)(iret3>>16); ((unsigned char *)raddr)[16+6] = (unsigned char)(iret3>>8); ((unsigned char *)raddr)[16+7] = (unsigned char)(iret3); if (l->rsize == 24) { } else if (l->rsize == 25) { ((unsigned char *)raddr)[24+0] = (unsigned char)(iret4>>56); } else if (l->rsize == 26) { ((unsigned char *)raddr)[24+0] = (unsigned char)(iret4>>56); ((unsigned char *)raddr)[24+1] = (unsigned char)(iret4>>48); } else if (l->rsize == 27) { ((unsigned char *)raddr)[24+0] = (unsigned char)(iret4>>56); ((unsigned char *)raddr)[24+1] = (unsigned char)(iret4>>48); ((unsigned char *)raddr)[24+2] = (unsigned char)(iret4>>40); } else if (l->rsize == 28) { ((unsigned char *)raddr)[24+0] = (unsigned char)(iret4>>56); ((unsigned char *)raddr)[24+1] = (unsigned char)(iret4>>48); ((unsigned char *)raddr)[24+2] = (unsigned char)(iret4>>40); ((unsigned char *)raddr)[24+3] = (unsigned char)(iret4>>32); } else if (l->rsize == 29) { ((unsigned char *)raddr)[24+0] = (unsigned char)(iret4>>56); ((unsigned char *)raddr)[24+1] = (unsigned char)(iret4>>48); ((unsigned char *)raddr)[24+2] = (unsigned char)(iret4>>40); ((unsigned char *)raddr)[24+3] = (unsigned char)(iret4>>32); ((unsigned char *)raddr)[24+4] = (unsigned char)(iret4>>24); } else if (l->rsize == 30) { ((unsigned char *)raddr)[24+0] = (unsigned char)(iret4>>56); ((unsigned char *)raddr)[24+1] = (unsigned char)(iret4>>48); ((unsigned char *)raddr)[24+2] = (unsigned char)(iret4>>40); ((unsigned char *)raddr)[24+3] = (unsigned char)(iret4>>32); ((unsigned char *)raddr)[24+4] = (unsigned char)(iret4>>24); ((unsigned char *)raddr)[24+5] = (unsigned char)(iret4>>16); } else if (l->rsize == 31) { ((unsigned char *)raddr)[24+0] = (unsigned char)(iret4>>56); ((unsigned char *)raddr)[24+1] = (unsigned char)(iret4>>48); ((unsigned char *)raddr)[24+2] = (unsigned char)(iret4>>40); ((unsigned char *)raddr)[24+3] = (unsigned char)(iret4>>32); ((unsigned char *)raddr)[24+4] = (unsigned char)(iret4>>24); ((unsigned char *)raddr)[24+5] = (unsigned char)(iret4>>16); ((unsigned char *)raddr)[24+6] = (unsigned char)(iret4>>8); } else if (l->rsize == 32) { ((unsigned char *)raddr)[24+0] = (unsigned char)(iret4>>56); ((unsigned char *)raddr)[24+1] = (unsigned char)(iret4>>48); ((unsigned char *)raddr)[24+2] = (unsigned char)(iret4>>40); ((unsigned char *)raddr)[24+3] = (unsigned char)(iret4>>32); ((unsigned char *)raddr)[24+4] = (unsigned char)(iret4>>24); ((unsigned char *)raddr)[24+5] = (unsigned char)(iret4>>16); ((unsigned char *)raddr)[24+6] = (unsigned char)(iret4>>8); ((unsigned char *)raddr)[24+7] = (unsigned char)(iret4); } } } } #else /* Optimized: fewer conditional jumps, fewer memory accesses */ uintptr_t count = l->rsize; /* > 0, ≤ 4*sizeof(__avword) */ __avword* wordaddr = (__avword*)((uintptr_t)raddr & ~(uintptr_t)(sizeof(__avword)-1)); uintptr_t start_offset = (uintptr_t)raddr & (uintptr_t)(sizeof(__avword)-1); /* ≥ 0, < sizeof(__avword) */ uintptr_t end_offset = start_offset + count; /* > 0, < 5*sizeof(__avword) */ if (count <= sizeof(__avword)) { /* Use iret. */ if (end_offset <= sizeof(__avword)) { /* 0 < end_offset ≤ sizeof(__avword) */ __avword mask0 = ((__avword)2 << (sizeof(__avword)*8-start_offset*8-1)) - ((__avword)1 << (sizeof(__avword)*8-end_offset*8)); wordaddr[0] ^= (wordaddr[0] ^ (iret >> (start_offset*8))) & mask0; } else { /* sizeof(__avword) < end_offset < 2*sizeof(__avword), start_offset > 0 */ __avword mask0 = ((__avword)2 << (sizeof(__avword)*8-start_offset*8-1)) - 1; __avword mask1 = - ((__avword)1 << (2*sizeof(__avword)*8-end_offset*8)); wordaddr[0] ^= (wordaddr[0] ^ (iret >> (start_offset*8))) & mask0; wordaddr[1] ^= (wordaddr[1] ^ (iret << (sizeof(__avword)*8-start_offset*8))) & mask1; } } else if (count <= 2*sizeof(__avword)) { /* Use iret, iret2. */ __avword mask0 = ((__avword)2 << (sizeof(__avword)*8-start_offset*8-1)) - 1; wordaddr[0] ^= (wordaddr[0] ^ (iret >> (start_offset*8))) & mask0; if (end_offset <= 2*sizeof(__avword)) { /* sizeof(__avword) < end_offset ≤ 2*sizeof(__avword) */ __avword mask1 = - ((__avword)1 << (2*sizeof(__avword)*8-end_offset*8)); wordaddr[1] ^= (wordaddr[1] ^ ((iret << (sizeof(__avword)*4-start_offset*4) << (sizeof(__avword)*4-start_offset*4)) | (iret2 >> (start_offset*8)))) & mask1; } else { /* 2*sizeof(__avword) < end_offset < 3*sizeof(__avword), start_offset > 0 */ __avword mask2 = - ((__avword)1 << (3*sizeof(__avword)*8-end_offset*8)); wordaddr[1] = (iret << (sizeof(__avword)*8-start_offset*8)) | (iret2 >> (start_offset*8)); wordaddr[2] ^= (wordaddr[2] ^ (iret2 << (sizeof(__avword)*8-start_offset*8))) & mask2; } } else if (count <= 3*sizeof(__avword)) { /* Use iret, iret2, iret3. */ __avword mask0 = ((__avword)2 << (sizeof(__avword)*8-start_offset*8-1)) - 1; wordaddr[0] ^= (wordaddr[0] ^ (iret >> (start_offset*8))) & mask0; if (end_offset <= 3*sizeof(__avword)) { /* 2*sizeof(__avword) < end_offset ≤ 3*sizeof(__avword) */ __avword mask2 = - ((__avword)1 << (3*sizeof(__avword)*8-end_offset*8)); wordaddr[1] = (iret << (sizeof(__avword)*4-start_offset*4) << (sizeof(__avword)*4-start_offset*4)) | (iret2 >> (start_offset*8)); wordaddr[2] ^= (wordaddr[2] ^ ((iret2 << (sizeof(__avword)*4-start_offset*4) << (sizeof(__avword)*4-start_offset*4)) | (iret3 >> (start_offset*8)))) & mask2; } else { /* 3*sizeof(__avword) < end_offset < 4*sizeof(__avword), start_offset > 0 */ __avword mask3 = - ((__avword)1 << (4*sizeof(__avword)*8-end_offset*8)); wordaddr[1] = (iret << (sizeof(__avword)*8-start_offset*8)) | (iret2 >> (start_offset*8)); wordaddr[2] = (iret2 << (sizeof(__avword)*8-start_offset*8)) | (iret3 >> (start_offset*8)); wordaddr[3] ^= (wordaddr[3] ^ (iret3 << (sizeof(__avword)*8-start_offset*8))) & mask3; } } else { /* Use iret, iret2, iret3, iret4. */ __avword mask0 = ((__avword)2 << (sizeof(__avword)*8-start_offset*8-1)) - 1; wordaddr[0] ^= (wordaddr[0] ^ (iret >> (start_offset*8))) & mask0; if (end_offset <= 4*sizeof(__avword)) { /* 3*sizeof(__avword) < end_offset ≤ 4*sizeof(__avword) */ __avword mask3 = - ((__avword)1 << (4*sizeof(__avword)*8-end_offset*8)); wordaddr[1] = (iret << (sizeof(__avword)*4-start_offset*4) << (sizeof(__avword)*4-start_offset*4)) | (iret2 >> (start_offset*8)); wordaddr[2] = (iret2 << (sizeof(__avword)*4-start_offset*4) << (sizeof(__avword)*4-start_offset*4)) | (iret3 >> (start_offset*8)); wordaddr[3] ^= (wordaddr[3] ^ ((iret3 << (sizeof(__avword)*4-start_offset*4) << (sizeof(__avword)*4-start_offset*4)) | (iret4 >> (start_offset*8)))) & mask3; } else { /* 4*sizeof(__avword) < end_offset < 5*sizeof(__avword), start_offset > 0 */ __avword mask4 = - ((__avword)1 << (5*sizeof(__avword)*8-end_offset*8)); wordaddr[1] = (iret << (sizeof(__avword)*8-start_offset*8)) | (iret2 >> (start_offset*8)); wordaddr[2] = (iret2 << (sizeof(__avword)*8-start_offset*8)) | (iret3 >> (start_offset*8)); wordaddr[3] = (iret3 << (sizeof(__avword)*8-start_offset*8)) | (iret4 >> (start_offset*8)); wordaddr[4] ^= (wordaddr[4] ^ (iret4 << (sizeof(__avword)*8-start_offset*8))) & mask4; } } #endif } } } return 0; } libffcall-2.2/avcall/avcall-s390x-linux.s0000664000000000000000000000745613530357110015107 00000000000000 .file "avcall-s390x.c" .text .align 8 .globl avcall_call .type avcall_call, @function avcall_call: .LFB0: .cfi_startproc stmg %r7,%r15,56(%r15) .cfi_offset 7, -104 .cfi_offset 8, -96 .cfi_offset 9, -88 .cfi_offset 10, -80 .cfi_offset 11, -72 .cfi_offset 12, -64 .cfi_offset 13, -56 .cfi_offset 14, -48 .cfi_offset 15, -40 larl %r13,.L78 aghi %r15,-176 .cfi_def_cfa_offset 336 lgr %r11,%r15 .cfi_def_cfa_register 11 aghi %r15,-2056 lg %r9,48(%r2) lg %r1,40(%r2) sgr %r1,%r9 srag %r1,%r1,3 stg %r2,168(%r11) stg %r6,160(%r11) ltr %r1,%r1 la %r8,160(%r15) l %r0,64(%r2) l %r7,112(%r2) jle .L6 ahi %r1,-1 llgfr %r1,%r1 aghi %r1,1 lghi %r14,0 .L5: lg %r10,0(%r14,%r9) stg %r10,0(%r14,%r8) aghi %r14,8 brctg %r1,.L5 .L6: ltr %r0,%r0 je .L7 lg %r1,168(%r11) cl %r0,.L79-.L78(%r13) lg %r2,72(%r1) jle .L7 chi %r0,2 lg %r3,80(%r1) je .L7 chi %r0,3 lg %r4,88(%r1) je .L7 chi %r0,4 lg %r5,96(%r1) jne .L73 .L7: ltr %r7,%r7 je .L9 lg %r10,168(%r11) l %r1,120(%r10) tmll %r1,1 je .L10 ld %f0,144(%r10) .L11: cl %r7,.L79-.L78(%r13) jle .L9 tmll %r1,2 lg %r10,168(%r11) jne .L74 tm 119(%r10),2 je .L14 le %f2,128(%r10) .L14: chi %r7,2 je .L9 tmll %r1,4 lg %r10,168(%r11) je .L15 ld %f4,160(%r10) .L16: chi %r7,3 je .L9 tmll %r1,8 lg %r1,168(%r11) jne .L75 tm 119(%r1),8 je .L9 le %f6,136(%r1) .L9: lg %r1,168(%r11) l %r1,24(%r1) chi %r1,13 je .L76 chi %r1,14 je .L77 lg %r10,168(%r11) lg %r1,8(%r10) basr %r14,%r1 l %r1,24(%r10) chi %r1,1 lgr %r0,%r2 je .L19 ltr %r1,%r1 je .L67 chi %r1,2 je .L69 chi %r1,3 je .L69 chi %r1,4 je .L69 chi %r1,5 je .L71 chi %r1,6 je .L71 chi %r1,7 je .L70 chi %r1,8 je .L70 lr %r9,%r1 nill %r9,65533 chi %r9,9 je .L67 chi %r1,10 je .L67 chi %r1,12 je .L67 chi %r1,15 je .L67 .L19: lg %r4,288(%r11) lg %r6,160(%r11) lghi %r2,0 lmg %r7,%r15,232(%r11) .cfi_remember_state .cfi_restore 15 .cfi_restore 14 .cfi_restore 13 .cfi_restore 12 .cfi_restore 11 .cfi_restore 10 .cfi_restore 9 .cfi_restore 8 .cfi_restore 7 .cfi_def_cfa 15, 160 br %r4 .L10: .cfi_restore_state lg %r10,168(%r11) tm 119(%r10),1 je .L11 le %f0,124(%r10) j .L11 .L67: lg %r1,168(%r11) lghi %r2,0 lg %r1,16(%r1) stg %r0,0(%r1) lg %r4,288(%r11) lg %r6,160(%r11) lmg %r7,%r15,232(%r11) .cfi_remember_state .cfi_restore 7 .cfi_restore 8 .cfi_restore 9 .cfi_restore 10 .cfi_restore 11 .cfi_restore 12 .cfi_restore 13 .cfi_restore 14 .cfi_restore 15 .cfi_def_cfa 15, 160 br %r4 .L74: .cfi_restore_state ld %f2,152(%r10) j .L14 .L69: lg %r1,168(%r11) lghi %r2,0 lg %r1,16(%r1) stc %r0,0(%r1) lg %r4,288(%r11) lg %r6,160(%r11) lmg %r7,%r15,232(%r11) .cfi_remember_state .cfi_restore 7 .cfi_restore 8 .cfi_restore 9 .cfi_restore 10 .cfi_restore 11 .cfi_restore 12 .cfi_restore 13 .cfi_restore 14 .cfi_restore 15 .cfi_def_cfa 15, 160 br %r4 .L77: .cfi_restore_state lg %r0,168(%r11) lgr %r1,%r0 lgr %r10,%r0 lg %r1,8(%r1) lg %r10,16(%r10) basr %r14,%r1 lg %r4,288(%r11) std %f0,0(%r10) lg %r6,160(%r11) lghi %r2,0 lmg %r7,%r15,232(%r11) .cfi_remember_state .cfi_restore 7 .cfi_restore 8 .cfi_restore 9 .cfi_restore 10 .cfi_restore 11 .cfi_restore 12 .cfi_restore 13 .cfi_restore 14 .cfi_restore 15 .cfi_def_cfa 15, 160 br %r4 .L76: .cfi_restore_state lg %r0,168(%r11) lgr %r1,%r0 lgr %r10,%r0 lg %r1,8(%r1) lg %r10,16(%r10) basr %r14,%r1 ste %f0,0(%r10) j .L19 .L15: tm 119(%r10),4 je .L16 le %f4,132(%r10) j .L16 .L71: lg %r1,168(%r11) lg %r1,16(%r1) sth %r0,0(%r1) j .L19 .L73: lg %r6,104(%r1) j .L7 .L75: ld %f6,168(%r1) j .L9 .L70: lg %r1,168(%r11) lg %r1,16(%r1) st %r0,0(%r1) j .L19 .section .rodata .align 8 .L78: .L79: .long 1 .align 2 .previous .cfi_endproc .LFE0: .size avcall_call, .-avcall_call .ident "GCC: (GNU) 5.4.0" .section .note.GNU-stack,"",@progbits libffcall-2.2/avcall/Makefile.devel0000664000000000000000000004171013527370433014176 00000000000000# This is the developer's -*-Makefile-*-, not the user's makefile. # Do not use it unless you know exactly what you do! THISFILE = Makefile.devel LN = ln -s RM = rm -f # ============ Rules that require cross-compilation tools ============ GCC = gcc GCCFLAGS = -I.. -I../dummy -O2 -fno-omit-frame-pointer -fPIC SED = sed CROSS_TOOL = cross precompiled : \ avcall-i386-macro.S \ avcall-m68k.mit.S avcall-m68k.motorola.S \ avcall-mipseb-macro.S avcall-mipsel-macro.S avcall-mipsn32eb-macro.S avcall-mipsn32el-macro.S avcall-mips64eb-macro.S avcall-mips64el-macro.S \ avcall-sparc-macro.S avcall-sparc64-macro.S \ avcall-alpha-macro.S \ avcall-hppa-macro.S avcall-hppa64-macro.S \ avcall-arm-macro.S avcall-armhf-macro.S \ avcall-arm64-macro.S \ avcall-powerpc-aix.s avcall-powerpc-linux-macro.S avcall-powerpc-sysv4-macro.S avcall-powerpc-macos.s avcall-powerpc64-aix.s avcall-powerpc64-linux.S avcall-powerpc64-elfv2-linux.S \ avcall-ia64-macro.S \ avcall-x86_64-macro.S avcall-x86_64-x32-linux.s avcall-x86_64-windows-macro.S \ avcall-s390-macro.S avcall-s390x-macro.S \ avcall-riscv32-ilp32d-macro.S avcall-riscv64-lp64d-macro.S avcall-i386-linux.s : avcall-i386.c avcall-internal.h avcall.h avcall-alist.h $(THISFILE) $(CROSS_TOOL) i386-linux gcc -V 3.1 $(GCCFLAGS) -D__i386__ -fno-omit-frame-pointer -S avcall-i386.c -o avcall-i386-linux.s avcall-i386-macro.S : avcall-i386-linux.s ../common/asm-i386.sh ../common/noexecstack.h $(THISFILE) (echo '#include "asm-i386.h"' ; sed -e '/\.align.*,0x90$$/d' < avcall-i386-linux.s | ../common/asm-i386.sh ; cat ../common/noexecstack.h) > avcall-i386-macro.S avcall-m68k-linux.s : avcall-m68k.c avcall-internal.h avcall.h avcall-alist.h $(THISFILE) $(CROSS_TOOL) m68k-linux gcc -V 3.1 $(GCCFLAGS) -D__m68k__ -S avcall-m68k.c -o avcall-m68k-linux.s avcall-m68k-sun.s : avcall-m68k.c avcall-internal.h avcall.h avcall-alist.h $(THISFILE) $(CROSS_TOOL) m68k-sun gcc -V 3.1 $(GCCFLAGS) -D__m68k__ -S avcall-m68k.c -o avcall-m68k-sun.s avcall-m68k.mit.S : avcall-m68k-sun.s ../common/asm-m68k.sh ../common/noexecstack.h $(THISFILE) (echo '#include "asm-m68k.h"' ; ../common/asm-m68k.sh mit < avcall-m68k-sun.s ; cat ../common/noexecstack.h) > avcall-m68k.mit.S avcall-m68k.motorola.S : avcall-m68k-linux.s ../common/asm-m68k.sh ../common/noexecstack.h $(THISFILE) (echo '#include "asm-m68k.h"' ; ../common/asm-m68k.sh motorola < avcall-m68k-linux.s ; cat ../common/noexecstack.h) > avcall-m68k.motorola.S avcall-mipseb-linux.s : avcall-mips.c avcall-internal.h avcall.h avcall-alist.h $(THISFILE) $(CROSS_TOOL) mips64-linux gcc-5.4.0 -mabi=32 -mfpxx -march=mips2 -meb $(GCCFLAGS) -D__mips__ -fno-tree-dce -S avcall-mips.c -o avcall-mipseb-linux.s avcall-mipseb-macro.S : avcall-mipseb-linux.s ../common/asm-mips.sh $(THISFILE) (echo '#include "asm-mips.h"' ; ../common/asm-mips.sh < avcall-mipseb-linux.s) > avcall-mipseb-macro.S avcall-mipsel-linux.s : avcall-mips.c avcall-internal.h avcall.h avcall-alist.h $(THISFILE) $(CROSS_TOOL) mips64-linux gcc-5.4.0 -mabi=32 -mfpxx -march=mips2 -mel $(GCCFLAGS) -D__mips__ -fno-tree-dce -S avcall-mips.c -o avcall-mipsel-linux.s avcall-mipsel-macro.S : avcall-mipsel-linux.s ../common/asm-mips.sh $(THISFILE) (echo '#include "asm-mips.h"' ; ../common/asm-mips.sh < avcall-mipsel-linux.s) > avcall-mipsel-macro.S avcall-mipsn32eb-linux.s : avcall-mipsn32.c avcall-internal.h avcall.h avcall-alist.h $(THISFILE) $(CROSS_TOOL) mips64-linux gcc-5.4.0 -mabi=n32 -meb $(GCCFLAGS) -D__mipsn32__ -S avcall-mipsn32.c -o avcall-mipsn32eb-linux.s avcall-mipsn32eb-macro.S : avcall-mipsn32eb-linux.s ../common/asm-mips.sh $(THISFILE) (echo '#include "asm-mips.h"' ; ../common/asm-mips.sh < avcall-mipsn32eb-linux.s) > avcall-mipsn32eb-macro.S avcall-mipsn32el-linux.s : avcall-mipsn32.c avcall-internal.h avcall.h avcall-alist.h $(THISFILE) $(CROSS_TOOL) mips64-linux gcc-5.4.0 -mabi=n32 -mel $(GCCFLAGS) -D__mipsn32__ -S avcall-mipsn32.c -o avcall-mipsn32el-linux.s avcall-mipsn32el-macro.S : avcall-mipsn32el-linux.s ../common/asm-mips.sh $(THISFILE) (echo '#include "asm-mips.h"' ; ../common/asm-mips.sh < avcall-mipsn32el-linux.s) > avcall-mipsn32el-macro.S avcall-mips64eb-linux.s : avcall-mips64.c avcall-internal.h avcall.h avcall-alist.h $(THISFILE) $(CROSS_TOOL) mips64-linux gcc-5.4.0 -mabi=64 -meb $(GCCFLAGS) -D__mips64__ -S avcall-mips64.c -o avcall-mips64eb-linux.s avcall-mips64eb-macro.S : avcall-mips64eb-linux.s ../common/asm-mips.sh $(THISFILE) (echo '#include "asm-mips.h"' ; ../common/asm-mips.sh < avcall-mips64eb-linux.s) > avcall-mips64eb-macro.S avcall-mips64el-linux.s : avcall-mips64.c avcall-internal.h avcall.h avcall-alist.h $(THISFILE) $(CROSS_TOOL) mips64-linux gcc-5.4.0 -mabi=64 -mel $(GCCFLAGS) -D__mips64__ -S avcall-mips64.c -o avcall-mips64el-linux.s avcall-mips64el-macro.S : avcall-mips64el-linux.s ../common/asm-mips.sh $(THISFILE) (echo '#include "asm-mips.h"' ; ../common/asm-mips.sh < avcall-mips64el-linux.s) > avcall-mips64el-macro.S avcall-sparc-linux.s : avcall-sparc.c avcall-internal.h avcall.h avcall-alist.h $(THISFILE) $(CROSS_TOOL) sparc-linux gcc -V 3.1 $(GCCFLAGS) -D__sparc__ -S avcall-sparc.c -o avcall-sparc-linux.s avcall-sparc-macro.S : avcall-sparc-linux.s ../common/asm-sparc.sh ../common/noexecstack.h $(THISFILE) (echo '#include "asm-sparc.h"' ; ../common/asm-sparc.sh < avcall-sparc-linux.s ; cat ../common/noexecstack.h) > avcall-sparc-macro.S avcall-sparc64-linux.s : avcall-sparc64.c avcall-internal.h avcall.h avcall-alist.h $(THISFILE) # This compiler produces useless instructions with -fPIC. The result is PIC even without -fPIC. $(CROSS_TOOL) sparc64-linux gcc -V 4.0.2 $(GCCFLAGS) -fno-PIC -D__sparc64__ -S avcall-sparc64.c -o avcall-sparc64-linux.s avcall-sparc64-macro.S : avcall-sparc64-linux.s ../common/asm-sparc.sh ../common/noexecstack.h $(THISFILE) (echo '#include "asm-sparc.h"' ; ../common/asm-sparc.sh < avcall-sparc64-linux.s ; cat ../common/noexecstack.h) > avcall-sparc64-macro.S avcall-alpha-linux.s : avcall-alpha.c avcall-internal.h avcall.h avcall-alist.h $(THISFILE) $(CROSS_TOOL) alpha-linux gcc -V 4.0.2 $(GCCFLAGS) -D__alpha__ -S avcall-alpha.c -o avcall-alpha-linux.s avcall-alpha-macro.S : avcall-alpha-linux.s ../common/asm-alpha.sh ../common/noexecstack.h $(THISFILE) (../common/asm-alpha.sh < avcall-alpha-linux.s ; cat ../common/noexecstack.h) > avcall-alpha-macro.S avcall-hppa-linux.s : avcall-hppa.c avcall-internal.h avcall.h avcall-alist.h $(THISFILE) $(CROSS_TOOL) hppa-linux gcc -V 3.1 $(GCCFLAGS) -D__hppa__ -S avcall-hppa.c -o avcall-hppa-linux.s avcall-hppa-macro.S : avcall-hppa-linux.s ../common/asm-hppa.sh ../common/noexecstack.h $(THISFILE) (echo '#include "asm-hppa.h"' ; ../common/asm-hppa.sh < avcall-hppa-linux.s ; cat ../common/noexecstack.h) > avcall-hppa-macro.S avcall-hppa64-linux.s : avcall-hppa64.c avcall-internal.h avcall.h avcall-alist.h $(THISFILE) $(CROSS_TOOL) hppa64-linux gcc -V 3.1 $(GCCFLAGS) -D__hppa64__ -S avcall-hppa64.c -o avcall-hppa64-linux.s avcall-hppa64-macro.S : avcall-hppa64-linux.s ../common/asm-hppa64.sh ../common/noexecstack.h $(THISFILE) # Need to remove the gcc-generated instructions that clobber %r29 right before each of the calls. (echo '#include "asm-hppa64.h"' ; grep -v 'ldo -16(%r30),%r29' < avcall-hppa64-linux.s | ../common/asm-hppa64.sh ; cat ../common/noexecstack.h) > avcall-hppa64-macro.S avcall-arm-macro.S : avcall-arm.c avcall-internal.h avcall.h avcall-alist.h ../common/asm-arm.sh ../common/noexecstack-arm.h $(THISFILE) $(CROSS_TOOL) arm-linux gcc -V 3.1 -mlittle-endian $(GCCFLAGS) -D__arm__ -S avcall-arm.c -o avcall-armel.s $(CROSS_TOOL) arm-linux gcc -V 3.1 -mbig-endian $(GCCFLAGS) -D__arm__ -S avcall-arm.c -o avcall-armeb.s cmp avcall-armel.s avcall-armeb.s > /dev/null (echo '#include "asm-arm.h"' ; ../common/asm-arm.sh < avcall-armel.s ; cat ../common/noexecstack-arm.h) > avcall-arm-macro.S $(RM) avcall-armel.s avcall-armeb.s avcall-armhf-macro.S : avcall-armhf.c avcall-internal.h avcall.h avcall-alist.h ../common/asm-arm.sh ../common/noexecstack-arm.h $(THISFILE) # The option -mabi=aapcs ensures an 8-bytes-aligned stack pointer. $(CROSS_TOOL) armv7l-linux-gnueabihf gcc-6.3.0 -march=armv6 -mabi=aapcs -mfloat-abi=hard -mlittle-endian $(GCCFLAGS) -D__armhf__ -S avcall-armhf.c -o avcall-armhfel.s $(CROSS_TOOL) armv7l-linux-gnueabihf gcc-6.3.0 -march=armv6 -mabi=aapcs -mfloat-abi=hard -mbig-endian $(GCCFLAGS) -D__armhf__ -S avcall-armhf.c -o avcall-armhfeb.s cmp avcall-armhfel.s avcall-armhfeb.s > /dev/null (echo '#include "asm-arm.h"' ; ../common/asm-arm.sh < avcall-armhfel.s ; cat ../common/noexecstack-arm.h) > avcall-armhf-macro.S $(RM) avcall-armhfel.s avcall-armhfeb.s avcall-arm64-macro.S : avcall-arm64.c avcall-internal.h avcall.h avcall-alist.h ../common/asm-arm.sh ../common/noexecstack-arm.h $(THISFILE) $(CROSS_TOOL) aarch64-linux gcc-5.4.0 -mlittle-endian $(GCCFLAGS) -D__arm64__ -S avcall-arm64.c -o avcall-arm64el.s $(CROSS_TOOL) aarch64-linux gcc-5.4.0 -mbig-endian $(GCCFLAGS) -D__arm64__ -S avcall-arm64.c -o avcall-arm64eb.s cmp avcall-arm64el.s avcall-arm64eb.s > /dev/null (echo '#include "asm-arm.h"' ; ../common/asm-arm.sh < avcall-arm64el.s ; cat ../common/noexecstack-arm.h) > avcall-arm64-macro.S $(RM) avcall-arm64el.s avcall-arm64eb.s avcall-powerpc-aix.s : avcall-powerpc.c avcall-internal.h avcall.h avcall-alist.h $(THISFILE) $(CROSS_TOOL) rs6000-aix gcc -V 3.3.6 -mno-power -mno-power2 -mno-powerpc -mnew-mnemonics $(GCCFLAGS) -D__powerpc__ -S avcall-powerpc.c -o avcall-powerpc-aix.s avcall-powerpc-linux.s : avcall-powerpc.c avcall-internal.h avcall.h avcall-alist.h $(THISFILE) $(CROSS_TOOL) powerpc-linux gcc -V 3.3.6 -mno-power -mno-power2 -mno-powerpc $(GCCFLAGS) -D__powerpc__ -S avcall-powerpc.c -o avcall-powerpc-linux.s avcall-powerpc-linux-macro.S : avcall-powerpc-linux.s ../common/asm-powerpc.sh ../common/noexecstack.h $(THISFILE) (../common/asm-powerpc.sh < avcall-powerpc-linux.s ; cat ../common/noexecstack.h) > avcall-powerpc-linux-macro.S avcall-powerpc-sysv4-macro.S : avcall-powerpc.c avcall-internal.h avcall.h avcall-alist.h ../common/asm-powerpc.sh ../common/noexecstack.h $(THISFILE) $(CROSS_TOOL) powerpc-linux gcc -V 3.3.6 -mno-power -mno-power2 -mno-powerpc $(GCCFLAGS) -D__powerpc__ -S avcall-powerpc.c -o avcall-powerpc-sysv4.s (../common/asm-powerpc.sh < avcall-powerpc-sysv4.s ; cat ../common/noexecstack.h) > avcall-powerpc-sysv4-macro.S $(RM) avcall-powerpc-sysv4.s avcall-powerpc-macos.s : avcall-powerpc.c avcall-internal.h avcall.h avcall-alist.h $(THISFILE) $(CROSS_TOOL) powerpc-darwin gcc -V 3.3.6 $(GCCFLAGS) -D__powerpc__ -S avcall-powerpc.c -o avcall-powerpc-macos.s avcall-powerpc64-aix.s : avcall-powerpc64.c avcall-internal.h avcall.h avcall-alist.h $(THISFILE) $(CROSS_TOOL) rs6000-aix6.1 gcc-5.4.0 -maix64 $(GCCFLAGS) -D__powerpc64__ -S avcall-powerpc64.c -o avcall-powerpc64-aix.s avcall-powerpc64-linux.S : avcall-powerpc64.c avcall-internal.h avcall.h avcall-alist.h ../common/asm-powerpc.sh ../common/noexecstack.h $(THISFILE) $(CROSS_TOOL) powerpc64le-linux gcc-5.4.0 -mabi=elfv1 -mcpu=power4 -mlittle-endian $(GCCFLAGS) -D__powerpc64__ -S avcall-powerpc64.c -o avcall-powerpc64-linux-le.s $(CROSS_TOOL) powerpc64le-linux gcc-5.4.0 -mabi=elfv1 -mcpu=power4 -mbig-endian $(GCCFLAGS) -D__powerpc64__ -S avcall-powerpc64.c -o avcall-powerpc64-linux-be.s cmp avcall-powerpc64-linux-le.s avcall-powerpc64-linux-be.s > /dev/null (../common/asm-powerpc.sh < avcall-powerpc64-linux-be.s ; cat ../common/noexecstack.h) > avcall-powerpc64-linux.S $(RM) avcall-powerpc64-linux-le.s avcall-powerpc64-linux-be.s avcall-powerpc64-elfv2-linux.S : avcall-powerpc64.c avcall-internal.h avcall.h avcall-alist.h ../common/asm-powerpc.sh ../common/noexecstack.h $(THISFILE) $(CROSS_TOOL) powerpc64le-linux gcc-5.4.0 -mabi=elfv2 -mcpu=power4 -mlittle-endian $(GCCFLAGS) -D__powerpc64__ -D__powerpc64_elfv2__ -S avcall-powerpc64.c -o avcall-powerpc64-elfv2-linux-le.s $(CROSS_TOOL) powerpc64le-linux gcc-5.4.0 -mabi=elfv2 -mcpu=power4 -mbig-endian $(GCCFLAGS) -D__powerpc64__ -D__powerpc64_elfv2__ -S avcall-powerpc64.c -o avcall-powerpc64-elfv2-linux-be.s cmp avcall-powerpc64-elfv2-linux-le.s avcall-powerpc64-elfv2-linux-be.s > /dev/null (../common/asm-powerpc.sh < avcall-powerpc64-elfv2-linux-be.s ; cat ../common/noexecstack.h) > avcall-powerpc64-elfv2-linux.S $(RM) avcall-powerpc64-elfv2-linux-le.s avcall-powerpc64-elfv2-linux-be.s avcall-ia64-linux.s : avcall-ia64.c avcall-internal.h avcall.h avcall-alist.h $(THISFILE) $(CROSS_TOOL) ia64-linux gcc -V 4.0.1 $(GCCFLAGS) -D__ia64__ -S avcall-ia64.c -o avcall-ia64-linux.s avcall-ia64-macro.S : avcall-ia64-linux.s ../common/noexecstack.h $(THISFILE) cat avcall-ia64-linux.s ../common/noexecstack.h > avcall-ia64-macro.S avcall-x86_64-linux.s : avcall-x86_64.c avcall-internal.h avcall.h avcall-alist.h $(THISFILE) $(CROSS_TOOL) x86_64-linux gcc-4.0.2 $(GCCFLAGS) -D__x86_64__ -S avcall-x86_64.c -o avcall-x86_64-linux.s avcall-x86_64-macro.S : avcall-x86_64-linux.s ../common/asm-x86_64.sh ../common/noexecstack.h $(THISFILE) (echo '#include "asm-x86_64.h"' ; ../common/asm-x86_64.sh < avcall-x86_64-linux.s ; cat ../common/noexecstack.h) > avcall-x86_64-macro.S avcall-x86_64-x32-linux.s : avcall-x86_64.c avcall-internal.h avcall.h avcall-alist.h $(THISFILE) $(CROSS_TOOL) x86_64-linux gcc-5.4.0 -mx32 $(GCCFLAGS) -D__x86_64__ -D__x86_64_x32__ -S avcall-x86_64.c -o avcall-x86_64-x32-linux.s avcall-x86_64-windows.s : avcall-x86_64-windows.c avcall-internal.h avcall.h avcall-alist.h $(THISFILE) $(CROSS_TOOL) x86_64-linux gcc-5.4.0 -mabi=ms $(GCCFLAGS) -fno-reorder-blocks-and-partition -D__x86_64__ -D_WIN32 -S avcall-x86_64-windows.c -o avcall-x86_64-windows.s avcall-x86_64-windows-macro.S : avcall-x86_64-windows.s ../common/asm-x86_64.sh ../common/noexecstack.h $(THISFILE) (echo '#include "asm-x86_64.h"' ; ../common/asm-x86_64.sh < avcall-x86_64-windows.s ; cat ../common/noexecstack.h) > avcall-x86_64-windows-macro.S avcall-s390-linux.s : avcall-s390.c avcall-internal.h avcall.h avcall-alist.h $(THISFILE) $(CROSS_TOOL) s390-linux gcc -V 3.1 $(GCCFLAGS) -D__s390__ -S avcall-s390.c -o avcall-s390-linux.s avcall-s390-macro.S : avcall-s390-linux.s ../common/asm-s390.sh ../common/noexecstack.h $(THISFILE) (../common/asm-s390.sh < avcall-s390-linux.s ; cat ../common/noexecstack.h) > avcall-s390-macro.S avcall-s390x-linux.s : avcall-s390x.c avcall-internal.h avcall.h avcall-alist.h $(THISFILE) $(CROSS_TOOL) s390x-linux gcc-5.4.0 $(GCCFLAGS) -D__s390x__ -S avcall-s390x.c -o avcall-s390x-linux.s avcall-s390x-macro.S : avcall-s390x-linux.s ../common/asm-s390.sh ../common/noexecstack.h $(THISFILE) (../common/asm-s390.sh < avcall-s390x-linux.s ; cat ../common/noexecstack.h) > avcall-s390x-macro.S avcall-riscv32-ilp32d-linux.s : avcall-riscv32.c avcall-internal.h avcall.h avcall-alist.h $(THISFILE) $(CROSS_TOOL) riscv32-linux gcc-7.3.0 $(GCCFLAGS) -D__riscv32__ -S avcall-riscv32.c -o avcall-riscv32-ilp32d-linux.s avcall-riscv32-ilp32d-macro.S : avcall-riscv32-ilp32d-linux.s ../common/asm-riscv.sh ../common/noexecstack.h $(THISFILE) (../common/asm-riscv.sh < avcall-riscv32-ilp32d-linux.s ; cat ../common/noexecstack.h) > avcall-riscv32-ilp32d-macro.S avcall-riscv64-lp64d-linux.s : avcall-riscv64.c avcall-internal.h avcall.h avcall-alist.h $(THISFILE) $(CROSS_TOOL) riscv64-linux gcc-7.3.0 $(GCCFLAGS) -D__riscv64__ -S avcall-riscv64.c -o avcall-riscv64-lp64d-linux.s avcall-riscv64-lp64d-macro.S : avcall-riscv64-lp64d-linux.s ../common/asm-riscv.sh ../common/noexecstack.h $(THISFILE) (../common/asm-riscv.sh < avcall-riscv64-lp64d-linux.s ; cat ../common/noexecstack.h) > avcall-riscv64-lp64d-macro.S # --------------- Rules for debugging test failures --------------- tests : tests-i386.s tests-m68k.s tests-mips.s tests-sparc.s tests-alpha.s tests-hppa.s tests-arm.s tests-powerpc.s tests-ia64.s tests-x86_64.s true tests-i386.s : tests.c avcall.h $(GCC) -V 2.7.2 -b i486-linuxaout $(GCCFLAGS) -I/usr/include -D__i386__ -S tests.c -o tests-i386.s tests-m68k.s : tests.c avcall.h $(GCC) -V 2.95.2 -b m68k-sun $(GCCFLAGS) -I/usr/include -D__m68k__ -S tests.c -o tests-m68k.s tests-mips.s : tests.c avcall.h $(GCC) -V 2.95.2 -b mips-sgi $(GCCFLAGS) -I/usr/include -D__mips__ -S tests.c -o tests-mips.s tests-sparc.s : tests.c avcall.h $(GCC) -V 2.95.2 -b sparc-sun $(GCCFLAGS) -I/usr/include -D__sparc__ -S tests.c -o tests-sparc.s tests-alpha.s : tests.c avcall.h $(GCC) -V 2.7.2 -b alpha-dec-osf $(GCCFLAGS) -I/usr/include -D__alpha__ -S tests.c -o tests-alpha.s tests-hppa.s : tests.c avcall.h $(GCC) -V 2.6.3 -b hppa1.0-hpux $(GCCFLAGS) -I/usr/include -D__hppa__ -S tests.c -o tests-hppa.s tests-arm.s : tests.c avcall.h $(GCC) -V 2.6.3 -b arm-acorn-riscix $(GCCFLAGS) -I/usr/include -D__arm__ -S tests.c -o tests-arm.s tests-powerpc.s : tests.c avcall.h $(GCC) -V 2.95.2 -b rs6000 $(GCCFLAGS) -I/usr/include -D__powerpc__ -S tests.c -o tests-powerpc.s tests-ia64.s : tests.c avcall.h $(GCC) -V 2.9-ia64-000216 -b ia64-hp-linux $(GCCFLAGS) -I/usr/include -D__ia64__ -S tests.c -o tests-ia64.s tests-x86_64.s : tests.c avcall.h $(GCC) -V 3.2.2 -b x86_64-suse-linux $(GCCFLAGS) -I/usr/include -D__x86_64__ -S tests.c -o tests-x86_64.s libffcall-2.2/avcall/avcall-hppa64-linux.s0000664000000000000000000002164113530357106015320 00000000000000 .LEVEL 2.0w .text .align 8 .globl avcall_call .type avcall_call,@function avcall_call: .PROC .CALLINFO FRAME=256,CALLS,SAVE_RP,SAVE_SP,ENTRY_GR=9 .ENTRY copy %r3,%r1 std %r2,-16(%r30) copy %r30,%r3 std,ma %r1,256(%r30) ldi 8,%r31 std %r9,16(%r3) copy %r27,%r9 std %r8,24(%r3) copy %r26,%r8 std %r7,32(%r3) ldo -80(%r30),%r7 std %r6,40(%r3) std %r5,48(%r3) std %r4,56(%r3) ldd 40(%r26),%r29 ldd 48(%r26),%r5 sub %r29,%r5,%r29 extrd,s %r29,29+32-1,32,%r6 cmpb,<= %r6,%r31,.L115 ldo 2112(%r30),%r30 .L6: depd,z %r31,60,61,%r29 ldo 1(%r31),%r31 add,l %r29,%r5,%r2 extrd,s %r31,63,32,%r31 ldd 0(%r2),%r4 add,l %r29,%r7,%r29 cmpb,> %r6,%r31,.L6 std %r4,0(%r29) .L115: ldw 24(%r8),%r31 ldi 16,%r29 cmpb,= %r29,%r31,.L120 copy %r31,%r4 .L7: cmpib,>=,n 0,%r6,.L8 ldw 68(%r8),%r2 extrw,u %r2,31,1,%r29 cmpib,=,n 0,%r29,.L9 fldd 0(%r5),%fr4 .L10: cmpib,>=,n 1,%r6,.L8 ldi 2,%r31 and %r2,%r31,%r29 cmpib,=,n 0,%r29,.L14 fldd 8(%r5),%fr5 .L15: cmpib,>=,n 2,%r6,.L8 ldi 4,%r31 and %r2,%r31,%r29 cmpib,=,n 0,%r29,.L19 fldd 16(%r5),%fr6 .L20: cmpib,>=,n 3,%r6,.L8 ldi 8,%r31 and %r2,%r31,%r29 cmpib,=,n 0,%r29,.L24 fldd 24(%r5),%fr7 .L25: cmpib,>=,n 4,%r6,.L8 ldi 16,%r31 and %r2,%r31,%r29 cmpib,=,n 0,%r29,.L29 fldd 32(%r5),%fr8 .L30: cmpib,>=,n 5,%r6,.L8 ldi 32,%r31 and %r2,%r31,%r29 cmpib,=,n 0,%r29,.L34 fldd 40(%r5),%fr9 .L35: cmpib,>=,n 6,%r6,.L8 ldi 64,%r31 and %r2,%r31,%r29 cmpib,=,n 0,%r29,.L39 fldd 48(%r5),%fr10 .L40: cmpib,>=,n 7,%r6,.L8 ldi 128,%r31 and %r2,%r31,%r29 cmpib,=,n 0,%r29,.L44 fldd 56(%r5),%fr11 .L45: cmpiclr,>= 8,%r6,%r0 ldo 64(%r7),%r1 .L8: cmpib,=,n 13,%r4,.L121 cmpib,=,n 14,%r4,.L122 #APP copy %r1,%r29 #NO_APP ldd 8(%r8),%r31 ldo -16(%r30),%r29 ldd 16(%r31),%r2 ldd 24(%r31),%r27 bve,l (%r2),%r2 nop ldw 24(%r8),%r2 copy %r9,%r27 cmpib,= 1,%r2,.L50 copy %r28,%r1 cmpib,=,n 0,%r2,.L116 cmpib,=,n 2,%r2,.L119 cmpib,=,n 3,%r2,.L119 cmpib,=,n 4,%r2,.L119 cmpib,=,n 5,%r2,.L118 cmpib,=,n 6,%r2,.L118 cmpib,=,n 7,%r2,.L117 cmpib,=,n 8,%r2,.L117 cmpib,=,n 9,%r2,.L116 cmpib,=,n 11,%r2,.L116 cmpib,=,n 10,%r2,.L116 cmpib,=,n 12,%r2,.L116 cmpib,= 15,%r2,.L116 ldi 16,%r31 cmpb,=,n %r31,%r2,.L123 .L50: ldd -16(%r3),%r2 .L138: ldi 0,%r28 ldd 16(%r3),%r9 ldd 24(%r3),%r8 ldd 32(%r3),%r7 ldd 40(%r3),%r6 ldd 48(%r3),%r5 ldd 56(%r3),%r4 ldo 64(%r3),%r30 bve (%r2) ldd,mb -64(%r30),%r3 .L123: ldw 0(%r8),%r31 extrd,u %r31,54+1-1,1,%r31 cmpib,= 0,%r31,.L138 ldd -16(%r3),%r2 ldd 32(%r8),%r2 ldo -1(%r2),%r31 cmpib,*<<,n 15,%r31,.L138 ldd -16(%r3),%r2 cmpib,*=,n 1,%r2,.L124 cmpib,*=,n 2,%r2,.L125 cmpib,*= 3,%r2,.L126 extrd,s %r28,23,24,%r4 cmpib,*= 4,%r2,.L127 extrd,s %r28,31,32,%r5 cmpib,*=,n 5,%r2,.L128 cmpib,*=,n 6,%r2,.L129 cmpib,*= 7,%r2,.L130 ldo -8(%r2),%r31 cmpib,*<< 8,%r31,.L50 extrd,s %r28,7,8,%r31 ldd 16(%r8),%r2 stb %r31,0(%r2) extrd,s %r28,15,16,%r4 ldd 16(%r8),%r31 extrd,s %r28,23,24,%r2 stb %r4,1(%r31) extrd,s %r28,31,32,%r5 ldd 16(%r8),%r31 extrd,s %r28,39,40,%r4 stb %r2,2(%r31) extrd,s %r28,47,48,%r6 ldd 16(%r8),%r2 extrd,s %r28,55,56,%r7 stb %r5,3(%r2) ldd 16(%r8),%r31 stb %r4,4(%r31) ldd 16(%r8),%r2 stb %r6,5(%r2) ldd 16(%r8),%r31 stb %r7,6(%r31) ldd 16(%r8),%r2 stb %r28,7(%r2) ldd 32(%r8),%r2 cmpib,*=,n 8,%r2,.L138 ldd -16(%r3),%r2 cmpib,*=,n 9,%r2,.L131 cmpib,*=,n 10,%r2,.L132 cmpib,*=,n 11,%r2,.L133 cmpib,*=,n 12,%r2,.L134 cmpib,*= 13,%r2,.L135 extrd,s %r29,7,8,%r31 cmpib,*=,n 14,%r2,.L136 cmpib,*= 15,%r2,.L137 ldi 16,%r31 cmpb,*<> %r31,%r2,.L138 ldd -16(%r3),%r2 ldd 16(%r8),%r2 extrd,s %r29,7,8,%r31 stb %r31,8(%r2) extrd,s %r29,15,16,%r4 ldd 16(%r8),%r31 extrd,s %r29,23,24,%r2 stb %r4,9(%r31) extrd,s %r29,31,32,%r5 ldd 16(%r8),%r31 extrd,s %r29,39,40,%r4 stb %r2,10(%r31) extrd,s %r29,47,48,%r6 ldd 16(%r8),%r2 extrd,s %r29,55,56,%r7 stb %r5,11(%r2) ldd 16(%r8),%r31 stb %r4,12(%r31) ldd 16(%r8),%r2 stb %r6,13(%r2) ldd 16(%r8),%r31 stb %r7,14(%r31) ldd 16(%r8),%r2 b .L50 stb %r29,15(%r2) .L137: ldd 16(%r8),%r2 extrd,s %r29,7,8,%r31 stb %r31,8(%r2) extrd,s %r29,15,16,%r4 ldd 16(%r8),%r31 extrd,s %r29,23,24,%r2 stb %r4,9(%r31) extrd,s %r29,31,32,%r5 ldd 16(%r8),%r31 extrd,s %r29,39,40,%r4 stb %r2,10(%r31) extrd,s %r29,47,48,%r6 ldd 16(%r8),%r2 extrd,s %r29,55,56,%r29 stb %r5,11(%r2) ldd 16(%r8),%r31 stb %r4,12(%r31) ldd 16(%r8),%r2 stb %r6,13(%r2) ldd 16(%r8),%r31 b .L50 stb %r29,14(%r31) .L136: ldd 16(%r8),%r2 stb %r31,8(%r2) extrd,s %r29,15,16,%r4 ldd 16(%r8),%r31 extrd,s %r29,23,24,%r2 stb %r4,9(%r31) extrd,s %r29,31,32,%r5 ldd 16(%r8),%r31 extrd,s %r29,39,40,%r4 stb %r2,10(%r31) extrd,s %r29,47,48,%r29 ldd 16(%r8),%r31 stb %r5,11(%r31) ldd 16(%r8),%r2 stb %r4,12(%r2) ldd 16(%r8),%r31 b .L50 stb %r29,13(%r31) .L135: ldd 16(%r8),%r2 stb %r31,8(%r2) extrd,s %r29,15,16,%r4 ldd 16(%r8),%r31 extrd,s %r29,23,24,%r5 stb %r4,9(%r31) extrd,s %r29,31,32,%r6 ldd 16(%r8),%r2 extrd,s %r29,39,40,%r29 stb %r5,10(%r2) ldd 16(%r8),%r31 stb %r6,11(%r31) ldd 16(%r8),%r2 b .L50 stb %r29,12(%r2) .L134: ldd 16(%r8),%r2 extrd,s %r29,7,8,%r31 stb %r31,8(%r2) extrd,s %r29,15,16,%r4 ldd 16(%r8),%r31 extrd,s %r29,23,24,%r5 stb %r4,9(%r31) extrd,s %r29,31,32,%r29 ldd 16(%r8),%r31 stb %r5,10(%r31) ldd 16(%r8),%r2 b .L50 stb %r29,11(%r2) .L133: ldd 16(%r8),%r2 extrd,s %r29,7,8,%r31 stb %r31,8(%r2) extrd,s %r29,15,16,%r4 ldd 16(%r8),%r2 extrd,s %r29,23,24,%r29 stb %r4,9(%r2) ldd 16(%r8),%r31 b .L50 stb %r29,10(%r31) .L132: ldd 16(%r8),%r2 extrd,s %r29,7,8,%r31 stb %r31,8(%r2) extrd,s %r29,15,16,%r29 ldd 16(%r8),%r31 b .L50 stb %r29,9(%r31) .L131: ldd 16(%r8),%r31 extrd,s %r29,7,8,%r29 b .L50 stb %r29,8(%r31) .L130: ldd 16(%r8),%r31 extrd,s %r28,7,8,%r29 stb %r29,0(%r31) extrd,s %r28,15,16,%r2 ldd 16(%r8),%r29 extrd,s %r28,23,24,%r31 stb %r2,1(%r29) extrd,s %r28,31,32,%r4 ldd 16(%r8),%r29 extrd,s %r28,39,40,%r2 stb %r31,2(%r29) extrd,s %r28,47,48,%r5 ldd 16(%r8),%r31 extrd,s %r28,55,56,%r6 stb %r4,3(%r31) ldd 16(%r8),%r29 stb %r2,4(%r29) ldd 16(%r8),%r31 stb %r5,5(%r31) ldd 16(%r8),%r29 b .L50 stb %r6,6(%r29) .L129: ldd 16(%r8),%r31 extrd,s %r28,7,8,%r29 stb %r29,0(%r31) extrd,s %r28,15,16,%r2 ldd 16(%r8),%r29 extrd,s %r28,23,24,%r31 stb %r2,1(%r29) extrd,s %r28,31,32,%r4 ldd 16(%r8),%r29 extrd,s %r28,39,40,%r2 stb %r31,2(%r29) extrd,s %r28,47,48,%r5 ldd 16(%r8),%r29 stb %r4,3(%r29) ldd 16(%r8),%r31 stb %r2,4(%r31) ldd 16(%r8),%r29 b .L50 stb %r5,5(%r29) .L128: ldd 16(%r8),%r31 extrd,s %r28,7,8,%r29 stb %r29,0(%r31) extrd,s %r28,15,16,%r2 ldd 16(%r8),%r29 stb %r2,1(%r29) ldd 16(%r8),%r31 extrd,s %r28,39,40,%r2 stb %r4,2(%r31) ldd 16(%r8),%r29 stb %r5,3(%r29) ldd 16(%r8),%r31 b .L50 stb %r2,4(%r31) .L127: ldd 16(%r8),%r31 extrd,s %r28,7,8,%r29 stb %r29,0(%r31) extrd,s %r28,15,16,%r2 ldd 16(%r8),%r29 stb %r2,1(%r29) ldd 16(%r8),%r29 stb %r4,2(%r29) ldd 16(%r8),%r31 b .L50 stb %r5,3(%r31) .L126: ldd 16(%r8),%r31 extrd,s %r28,7,8,%r29 stb %r29,0(%r31) extrd,s %r28,15,16,%r2 ldd 16(%r8),%r31 stb %r2,1(%r31) ldd 16(%r8),%r29 b .L50 stb %r4,2(%r29) .L125: ldd 16(%r8),%r31 extrd,s %r28,7,8,%r29 stb %r29,0(%r31) extrd,s %r28,15,16,%r2 ldd 16(%r8),%r29 b .L50 stb %r2,1(%r29) .L124: ldd 16(%r8),%r31 extrd,s %r28,7,8,%r29 b .L50 stb %r29,0(%r31) .L116: ldd 16(%r8),%r29 b .L50 std %r1,0(%r29) .L117: ldd 16(%r8),%r29 b .L50 stw %r1,0(%r29) .L118: ldd 16(%r8),%r29 b .L50 sth %r1,0(%r29) .L119: ldd 16(%r8),%r29 b .L50 stb %r1,0(%r29) .L122: #APP copy %r1,%r29 #NO_APP ldd 8(%r8),%r31 ldo -16(%r30),%r29 ldd 16(%r31),%r2 ldd 24(%r31),%r27 bve,l (%r2),%r2 nop ldd 16(%r8),%r29 copy %r9,%r27 b .L50 fstd %fr4,0(%r29) .L121: #APP copy %r1,%r29 #NO_APP ldd 8(%r8),%r31 ldo -16(%r30),%r29 ldd 16(%r31),%r2 ldd 24(%r31),%r27 bve,l (%r2),%r2 nop ldd 16(%r8),%r29 copy %r9,%r27 b .L50 fstw %fr4R,0(%r29) .L44: ldw 64(%r8),%r29 and %r29,%r31,%r29 cmpib,=,n 0,%r29,.L45 ldd 56(%r5),%r19 #APP fldw 60(%r5),%fr11R #NO_APP b,n .L45 .L39: ldw 64(%r8),%r29 and %r29,%r31,%r29 cmpib,=,n 0,%r29,.L40 ldd 48(%r5),%r20 #APP fldw 52(%r5),%fr10R #NO_APP b,n .L40 .L34: ldw 64(%r8),%r29 and %r29,%r31,%r29 cmpib,=,n 0,%r29,.L35 ldd 40(%r5),%r21 #APP fldw 44(%r5),%fr9R #NO_APP b,n .L35 .L29: ldw 64(%r8),%r29 and %r29,%r31,%r29 cmpib,=,n 0,%r29,.L30 ldd 32(%r5),%r22 #APP fldw 36(%r5),%fr8R #NO_APP b,n .L30 .L24: ldw 64(%r8),%r29 and %r29,%r31,%r29 cmpib,=,n 0,%r29,.L25 ldd 24(%r5),%r23 #APP fldw 28(%r5),%fr7R #NO_APP b,n .L25 .L19: ldw 64(%r8),%r29 and %r29,%r31,%r29 cmpib,=,n 0,%r29,.L20 ldd 16(%r5),%r24 #APP fldw 20(%r5),%fr6R #NO_APP b,n .L20 .L14: ldw 64(%r8),%r29 and %r29,%r31,%r29 cmpib,=,n 0,%r29,.L15 ldd 8(%r5),%r25 #APP fldw 12(%r5),%fr5R #NO_APP b,n .L15 .L9: ldw 64(%r8),%r29 extrw,u %r29,31,1,%r29 cmpib,=,n 0,%r29,.L10 ldd 0(%r5),%r26 #APP fldw 4(%r5),%fr4R #NO_APP b,n .L10 .L120: b .L7 ldd 16(%r8),%r28 .EXIT .PROCEND .Lfe1: .size avcall_call,.Lfe1-avcall_call .ident "GCC: (GNU) 3.1" libffcall-2.2/avcall/avcall-armhf-macro.S0000664000000000000000000001214513530357106015214 00000000000000#include "asm-arm.h" .arch armv6 .eabi_attribute 28, 1 .eabi_attribute 20, 1 .eabi_attribute 21, 1 .eabi_attribute 23, 3 .eabi_attribute 24, 1 .eabi_attribute 25, 1 .eabi_attribute 26, 1 .eabi_attribute 30, 2 .eabi_attribute 34, 1 .eabi_attribute 18, 4 .text .align 2 .global C(avcall_call) .syntax unified .arm .fpu vfpv3-d16 .type avcall_call, %function FUNBEGIN(avcall_call) // args = 0, pretend = 0, frame = 0 // frame_needed = 1, uses_anonymous_args = 0 push {r4, r5, fp, lr} mov r4, r0 ldr r0, [r0, $20] ldr ip, [r4, $24] sub r3, sp, $1024 add fp, sp, $12 sub sp, r3, $8 sub r3, r0, ip cmp r3, $19 movgt r2, sp subgt r2, r2, $4 addgt r3, ip, $16 ble L(6) L(5): ldr r1, [r3], $4 cmp r0, r3 str r1, [r2, $4]! bne L(5) L(6): ldr r3, [r4, $48] tst r3, $1 beq L(4) .syntax divided // 87 "avcall-armhf.c" 1 vldr.32 s0,[r4, $56] // 0 "" 2 .arm .syntax unified L(4): tst r3, $2 beq L(7) .syntax divided // 89 "avcall-armhf.c" 1 vldr.32 s1,[r4, $60] // 0 "" 2 .arm .syntax unified L(7): tst r3, $4 beq L(8) .syntax divided // 91 "avcall-armhf.c" 1 vldr.32 s2,[r4, $64] // 0 "" 2 .arm .syntax unified L(8): tst r3, $8 beq L(9) .syntax divided // 93 "avcall-armhf.c" 1 vldr.32 s3,[r4, $68] // 0 "" 2 .arm .syntax unified L(9): tst r3, $16 beq L(10) .syntax divided // 95 "avcall-armhf.c" 1 vldr.32 s4,[r4, $72] // 0 "" 2 .arm .syntax unified L(10): tst r3, $32 beq L(11) .syntax divided // 97 "avcall-armhf.c" 1 vldr.32 s5,[r4, $76] // 0 "" 2 .arm .syntax unified L(11): tst r3, $64 beq L(12) .syntax divided // 99 "avcall-armhf.c" 1 vldr.32 s6,[r4, $80] // 0 "" 2 .arm .syntax unified L(12): tst r3, $128 beq L(13) .syntax divided // 101 "avcall-armhf.c" 1 vldr.32 s7,[r4, $84] // 0 "" 2 .arm .syntax unified L(13): tst r3, $256 beq L(14) .syntax divided // 103 "avcall-armhf.c" 1 vldr.32 s8,[r4, $88] // 0 "" 2 .arm .syntax unified L(14): tst r3, $512 beq L(15) .syntax divided // 105 "avcall-armhf.c" 1 vldr.32 s9,[r4, $92] // 0 "" 2 .arm .syntax unified L(15): tst r3, $1024 beq L(16) .syntax divided // 107 "avcall-armhf.c" 1 vldr.32 s10,[r4, $96] // 0 "" 2 .arm .syntax unified L(16): tst r3, $2048 beq L(17) .syntax divided // 109 "avcall-armhf.c" 1 vldr.32 s11,[r4, $100] // 0 "" 2 .arm .syntax unified L(17): tst r3, $4096 beq L(18) .syntax divided // 111 "avcall-armhf.c" 1 vldr.32 s12,[r4, $104] // 0 "" 2 .arm .syntax unified L(18): tst r3, $8192 beq L(19) .syntax divided // 113 "avcall-armhf.c" 1 vldr.32 s13,[r4, $108] // 0 "" 2 .arm .syntax unified L(19): tst r3, $16384 beq L(20) .syntax divided // 115 "avcall-armhf.c" 1 vldr.32 s14,[r4, $112] // 0 "" 2 .arm .syntax unified L(20): tst r3, $32768 beq L(21) .syntax divided // 117 "avcall-armhf.c" 1 vldr.32 s15,[r4, $116] // 0 "" 2 .arm .syntax unified L(21): ldr r3, [r4, $52] tst r3, $1 beq L(22) .syntax divided // 121 "avcall-armhf.c" 1 vldr.64 d0,[r4, $120] // 0 "" 2 .arm .syntax unified L(22): tst r3, $2 beq L(23) .syntax divided // 123 "avcall-armhf.c" 1 vldr.64 d1,[r4, $128] // 0 "" 2 .arm .syntax unified L(23): tst r3, $4 beq L(24) .syntax divided // 125 "avcall-armhf.c" 1 vldr.64 d2,[r4, $136] // 0 "" 2 .arm .syntax unified L(24): tst r3, $8 beq L(25) .syntax divided // 127 "avcall-armhf.c" 1 vldr.64 d3,[r4, $144] // 0 "" 2 .arm .syntax unified L(25): tst r3, $16 beq L(26) .syntax divided // 129 "avcall-armhf.c" 1 vldr.64 d4,[r4, $152] // 0 "" 2 .arm .syntax unified L(26): tst r3, $32 beq L(27) .syntax divided // 131 "avcall-armhf.c" 1 vldr.64 d5,[r4, $160] // 0 "" 2 .arm .syntax unified L(27): tst r3, $64 beq L(28) .syntax divided // 133 "avcall-armhf.c" 1 vldr.64 d6,[r4, $168] // 0 "" 2 .arm .syntax unified L(28): tst r3, $128 beq L(29) .syntax divided // 135 "avcall-armhf.c" 1 vldr.64 d7,[r4, $176] // 0 "" 2 .arm .syntax unified L(29): ldm ip, {r0, r1, r2, r3} ldr r5, [r4, $4] blx r5 ldrb r3, [r4, $12] // zero_extendqisi2 cmp r3, $1 beq L(30) cmp r3, $0 beq L(130) cmp r3, $2 beq L(128) cmp r3, $3 beq L(128) cmp r3, $4 beq L(128) cmp r3, $5 beq L(131) cmp r3, $6 beq L(131) cmp r3, $7 beq L(130) cmp r3, $8 beq L(130) cmp r3, $9 beq L(130) cmp r3, $10 beq L(130) sub r2, r3, $11 cmp r2, $1 bls L(132) cmp r3, $13 beq L(134) cmp r3, $14 beq L(135) cmp r3, $15 beq L(130) cmp r3, $16 bne L(30) ldr r3, [r4] tst r3, $512 beq L(30) ldr r3, [r4, $16] cmp r3, $1 beq L(128) cmp r3, $2 beq L(131) cmp r3, $4 bls L(130) cmp r3, $8 bne L(30) L(132): ldr r3, [r4, $8] stm r3, {r0, r1} L(30): mov r0, $0 sub sp, fp, $12 // sp needed pop {r4, r5, fp, pc} L(130): ldr r3, [r4, $8] str r0, [r3] mov r0, $0 sub sp, fp, $12 // sp needed pop {r4, r5, fp, pc} L(128): ldr r3, [r4, $8] strb r0, [r3] mov r0, $0 sub sp, fp, $12 // sp needed pop {r4, r5, fp, pc} L(131): ldr r3, [r4, $8] strh r0, [r3] // movhi b L(30) L(134): ldr r3, [r4, $8] vstr.32 s0, [r3] b L(30) L(135): ldr r3, [r4, $8] vstr.64 d0, [r3] b L(30) FUNEND(avcall_call) #if defined __linux__ || defined __FreeBSD__ || defined __FreeBSD_kernel__ || defined __DragonFly__ .section .note.GNU-stack,"",%progbits #endif libffcall-2.2/avcall/Makefile.in0000664000000000000000000004334013530356617013510 00000000000000# Makefile for avcall #### Start of system configuration section. #### HOST = @host@ CPU = @HOST_CPU_C_ABI@ OS = @host_os@ # Directories used by "make": srcdir = @srcdir@ # Directories used by "make install": prefix = @prefix@ local_prefix = /usr/local exec_prefix = @exec_prefix@ libdir = @libdir@ includedir = @includedir@ mandir = @mandir@ datadir = @datadir@ datarootdir = @datarootdir@ htmldir = $(datadir)/html # Programs used by "make": # C compiler CC = @CC@ CFLAGS = @CFLAGS@ CPP = @CPP@ # C++ compiler CXX = @CXX@ CXXFLAGS = @CXXFLAGS@ # Both C and C++ compiler CPPFLAGS = @CPPFLAGS@ INCLUDES = -I. -I$(srcdir) -I.. -I$(srcdir)/.. ASPFLAGS = `if test @AS_UNDERSCORE@ = true; then echo '-DASM_UNDERSCORE'; fi` LDFLAGS = @LDFLAGS@ LIBTOOL = @LIBTOOL@ LIBTOOL_COMPILE = $(LIBTOOL) --mode=compile LIBTOOL_LINK = $(LIBTOOL) --mode=link LIBTOOL_INSTALL = $(LIBTOOL) --mode=install LIBTOOL_UNINSTALL = $(LIBTOOL) --mode=uninstall AR = @AR@ AR_FLAGS = rc RANLIB = @RANLIB@ MV = mv LN = @LN@ RM = rm -f @SET_MAKE@ # Programs used by "make install": INSTALL = @INSTALL@ INSTALL_PROGRAM = @INSTALL_PROGRAM@ INSTALL_DATA = @INSTALL_DATA@ #### End of system configuration section. #### SHELL = /bin/sh # Needed by $(LIBTOOL). top_builddir = .. OBJECTS = avcall.lo avcall-libapi.lo avcall-structcpy.lo avcall-compat.lo # Limit the set of exported symbols, on those platforms where libtool supports it. # Currently this does not exclude any symbol; maybe sometime in the future... LIBAVCALL_EXPORTED_SYMBOLS_REGEX = '^avcall_|^__builtin_avcall$$' # Before making a release, change this according to the libtool documentation, # section "Library interface versions". LIBAVCALL_VERSION_INFO = 1:2:0 all : $(OBJECTS) libavcall.la $(srcdir)/avcall.3 $(srcdir)/avcall.html avcall.lo : avcall-$(CPU).lo $(RM) avcall.lo avcall.@OBJEXT@ $(LN) avcall-$(CPU).lo avcall.lo if test -f avcall-$(CPU).@OBJEXT@; then $(LN) avcall-$(CPU).@OBJEXT@ avcall.@OBJEXT@; fi @IFNOT_MSVC@avcall-i386.lo : avcall-i386.s @IFNOT_MSVC@ $(LIBTOOL_COMPILE) $(CC) @GCC_X_NONE@ -c avcall-i386.s @IFNOT_MSVC@avcall-i386.s : $(srcdir)/avcall-i386-macro.S @IFNOT_MSVC@ $(CPP) $(ASPFLAGS) -I$(srcdir)/../common - < $(srcdir)/avcall-i386-macro.S | grep -v '^ *#line' | grep -v '^#' | sed -e 's,% ,%,g' -e 's,\. ,.,g' -e 's,@ ,@,g' -e 's,//.*$$,,' -e 's/##//g' > avcall-i386.s @IF_MSVC@avcall-i386.lo : $(srcdir)/avcall-i386-msvc.c @IF_MSVC@ $(LIBTOOL_COMPILE) $(CC) -I$(srcdir)/../common $(CPPFLAGS) $(CFLAGS) -c $(srcdir)/avcall-i386-msvc.c -o avcall-i386.lo avcall-sparc.lo : avcall-sparc.s $(LIBTOOL_COMPILE) $(CC) @GCC_X_NONE@ -c avcall-sparc.s avcall-sparc.s : $(srcdir)/avcall-sparc-macro.S $(CPP) $(ASPFLAGS) -I$(srcdir)/../common - < $(srcdir)/avcall-sparc-macro.S | grep -v '^ *#line' | grep -v '^#' | sed -e 's,% ,%,g' -e 's,\. ,.,g' -e 's,//.*$$,,' -e 's,\$$,#,g' -e 's,# ,#,g' > avcall-sparc.s avcall-sparc64.lo : avcall-sparc64.s $(LIBTOOL_COMPILE) $(CC) @GCC_X_NONE@ -c avcall-sparc64.s avcall-sparc64.s : $(srcdir)/avcall-sparc64-macro.S $(CPP) $(ASPFLAGS) -I$(srcdir)/../common - < $(srcdir)/avcall-sparc64-macro.S | grep -v '^ *#line' | grep -v '^#' | sed -e 's,% ,%,g' -e 's,\. ,.,g' -e 's,//.*$$,,' -e 's,\$$,#,g' -e 's,# ,#,g' > avcall-sparc64.s avcall-m68k.lo : avcall-m68k.s $(LIBTOOL_COMPILE) $(CC) @GCC_X_NONE@ -c avcall-m68k.s avcall-m68k.s : $(srcdir)/avcall-m68k.mit.S $(srcdir)/avcall-m68k.motorola.S $(CPP) $(ASPFLAGS) -I$(srcdir)/../common $(srcdir)/avcall-m68k.motorola.S | grep -v '^ *#line' | grep -v '^#' | sed -e 's,% ,%,g' -e 's,//.*$$,,' | if test @AS_UNDERSCORE@ = true; then sed -e 's/\$$//g'; else sed -e 's/\$$/%/g'; fi > avcall-m68k.s avcall-mips.lo : avcall-mips.s $(LIBTOOL_COMPILE) $(CC) @GCC_X_NONE@ -c avcall-mips.s avcall-mips.s : $(srcdir)/avcall-mips@ENDIANNESS@-macro.S $(CPP) $(ASPFLAGS) -I$(srcdir)/../common $(srcdir)/avcall-mips@ENDIANNESS@-macro.S | grep -v '^ *#line' | grep -v '^#' | sed -e 's,% ,%,g' -e 's,//.*$$,,' > avcall-mips.s avcall-mipsn32.lo : avcall-mipsn32.s $(LIBTOOL_COMPILE) $(CC) @GCC_X_NONE@ -c avcall-mipsn32.s avcall-mipsn32.s : $(srcdir)/avcall-mipsn32@ENDIANNESS@-macro.S $(CPP) $(ASPFLAGS) -I$(srcdir)/../common $(srcdir)/avcall-mipsn32@ENDIANNESS@-macro.S | grep -v '^ *#line' | grep -v '^#' | sed -e 's,% ,%,g' -e 's,//.*$$,,' > avcall-mipsn32.s avcall-mips64.lo : avcall-mips64.s $(LIBTOOL_COMPILE) $(CC) @GCC_X_NONE@ -c avcall-mips64.s avcall-mips64.s : $(srcdir)/avcall-mips64@ENDIANNESS@-macro.S $(CPP) $(ASPFLAGS) -I$(srcdir)/../common $(srcdir)/avcall-mips64@ENDIANNESS@-macro.S | grep -v '^ *#line' | grep -v '^#' | sed -e 's,% ,%,g' -e 's,//.*$$,,' > avcall-mips64.s avcall-alpha.lo : avcall-alpha.s $(LIBTOOL_COMPILE) $(CC) @GCC_X_NONE@ -c avcall-alpha.s avcall-alpha.s : $(srcdir)/avcall-alpha-macro.S $(CPP) $(ASPFLAGS) $(srcdir)/avcall-alpha-macro.S | grep -v '^ *#line' | grep -v '^#' | sed -e 's,% ,%,g' -e 's,//.*$$,,' > avcall-alpha.s avcall-hppa.lo : avcall-hppa.s $(LIBTOOL_COMPILE) $(CC) @GCC_X_NONE@ -c avcall-hppa.s avcall-hppa.s : $(srcdir)/avcall-hppa-macro.S $(CPP) $(ASPFLAGS) -I$(srcdir)/../common $(srcdir)/avcall-hppa-macro.S | grep -v '^ *#line' | grep -v '^#' | sed -e "s,!,',g" > avcall-hppa.s avcall-hppa64.lo : avcall-hppa64.s $(LIBTOOL_COMPILE) $(CC) @GCC_X_NONE@ -c avcall-hppa64.s avcall-hppa64.s : $(srcdir)/avcall-hppa64-macro.S $(CPP) $(ASPFLAGS) -I$(srcdir)/../common $(srcdir)/avcall-hppa64-macro.S | grep -v '^ *#line' | grep -v '^#' | sed -e "s,!,',g" > avcall-hppa64.s avcall-arm.lo : avcall-arm.s $(LIBTOOL_COMPILE) $(CC) @GCC_X_NONE@ -c avcall-arm.s avcall-arm.s : $(srcdir)/avcall-arm-macro.S $(CPP) $(ASPFLAGS) -I$(srcdir)/../common $(srcdir)/avcall-arm-macro.S | grep -v '^ *#line' | grep -v '^#' | sed -e 's,% ,%,g' -e 's,//,@,g' -e 's,\$$,#,g' > avcall-arm.s avcall-armhf.lo : avcall-armhf.s $(LIBTOOL_COMPILE) $(CC) @GCC_X_NONE@ -c avcall-armhf.s avcall-armhf.s : $(srcdir)/avcall-armhf-macro.S $(CPP) $(ASPFLAGS) -I$(srcdir)/../common $(srcdir)/avcall-armhf-macro.S | grep -v '^ *#line' | grep -v '^#' | sed -e 's,% ,%,g' -e 's,//,@,g' -e 's,\$$,#,g' > avcall-armhf.s avcall-arm64.lo : avcall-arm64.s $(LIBTOOL_COMPILE) $(CC) @GCC_X_NONE@ -c avcall-arm64.s avcall-arm64.s : $(srcdir)/avcall-arm64-macro.S $(CPP) $(ASPFLAGS) -I$(srcdir)/../common $(srcdir)/avcall-arm64-macro.S | grep -v '^ *#line' | grep -v '^#' | sed -e 's,% ,%,g' -e 's,//,@,g' -e 's,\$$,#,g' > avcall-arm64.s avcall-powerpc.lo : avcall-powerpc.s $(LIBTOOL_COMPILE) $(CC) @GCC_X_NONE@ -c avcall-powerpc.s avcall-powerpc.s : $(srcdir)/avcall-powerpc-aix.s $(srcdir)/avcall-powerpc-linux-macro.S $(srcdir)/avcall-powerpc-macos.s $(srcdir)/avcall-powerpc-sysv4-macro.S case "$(OS)" in \ aix*) syntax=aix;; \ linux* | netbsd* | openbsd*) syntax=linux;; \ macos* | darwin*) syntax=macos;; \ *) syntax=sysv4;; \ esac; \ case $${syntax} in \ macos) \ grep -v '\.machine' $(srcdir)/avcall-powerpc-$${syntax}.s > avcall-powerpc.s || exit 1 ;; \ linux | sysv4) \ $(CPP) $(ASPFLAGS) $(srcdir)/avcall-powerpc-$${syntax}-macro.S | grep -v '^ *#line' | grep -v '^#' | sed -e 's,% ,%,g' -e 's,//.*$$,,' > avcall-powerpc.s || exit 1 ;; \ *) \ cp $(srcdir)/avcall-powerpc-$${syntax}.s avcall-powerpc.s || exit 1 ;; \ esac avcall-powerpc64.lo : avcall-powerpc64.s $(LIBTOOL_COMPILE) $(CC) @GCC_X_NONE@ -c avcall-powerpc64.s avcall-powerpc64.s : $(srcdir)/avcall-powerpc64-aix.s $(srcdir)/avcall-powerpc64-linux.S case "$(OS)" in \ aix*) syntax=aix;; \ *) syntax=linux;; \ esac; \ case $${syntax} in \ linux) \ $(CPP) $(ASPFLAGS) $(srcdir)/avcall-powerpc64-$${syntax}.S | grep -v '^ *#line' | grep -v '^#' | sed -e 's,% ,%,g' -e 's,//.*$$,,' > avcall-powerpc64.s || exit 1 ;; \ *) \ cp $(srcdir)/avcall-powerpc64-$${syntax}.s avcall-powerpc64.s || exit 1 ;; \ esac avcall-powerpc64-elfv2.lo : avcall-powerpc64-elfv2.s $(LIBTOOL_COMPILE) $(CC) @GCC_X_NONE@ -c avcall-powerpc64-elfv2.s avcall-powerpc64-elfv2.s : $(srcdir)/avcall-powerpc64-elfv2-linux.S $(CPP) $(ASPFLAGS) $(srcdir)/avcall-powerpc64-elfv2-linux.S | grep -v '^ *#line' | grep -v '^#' | sed -e 's,% ,%,g' -e 's,//.*$$,,' > avcall-powerpc64-elfv2.s avcall-ia64.lo : avcall-ia64.s $(LIBTOOL_COMPILE) $(CC) @GCC_X_NONE@ -c avcall-ia64.s avcall-ia64.s : $(srcdir)/avcall-ia64-macro.S $(CPP) $(ASPFLAGS) $(srcdir)/avcall-ia64-macro.S | grep -v '^ *#line' | grep -v '^#' | sed -e 's,% ,%,g' -e 's,//.*$$,,' > avcall-ia64.s @IFNOT_MSVC@avcall-x86_64.lo : avcall-x86_64.s @IFNOT_MSVC@ $(LIBTOOL_COMPILE) $(CC) @GCC_X_NONE@ -c avcall-x86_64.s @IFNOT_MSVC@avcall-x86_64.s : $(srcdir)/avcall-x86_64-macro.S $(srcdir)/avcall-x86_64-windows-macro.S @IFNOT_MSVC@ case "$(OS)" in \ @IFNOT_MSVC@ cygwin* | mingw*) variant='-windows';; \ @IFNOT_MSVC@ *) variant='';; \ @IFNOT_MSVC@ esac; \ @IFNOT_MSVC@ $(CPP) $(ASPFLAGS) -I$(srcdir)/../common - < $(srcdir)/avcall-x86_64$${variant}-macro.S | grep -v '^ *#line' | grep -v '^#' | sed -e 's,% ,%,g' -e 's,\. ,.,g' -e 's,@ ,@,g' -e 's,//.*$$,,' -e 's/##//g' > avcall-x86_64.s @IF_MSVC@avcall-x86_64.lo : avcall-x86_64.asm @IF_MSVC@ $(LIBTOOL_COMPILE) ml64 -c -nologo avcall-x86_64.asm @IF_MSVC@ mkdir -p .libs; cp avcall-x86_64.@OBJEXT@ .libs/avcall-x86_64.@OBJEXT@ @IF_MSVC@avcall-x86_64.asm : $(srcdir)/avcall-x86_64-windows-macro.S @IF_MSVC@ { $(CPP) $(ASPFLAGS) -I$(srcdir)/../common $(srcdir)/avcall-x86_64-windows-macro.S | grep -v '^#'; echo 'END'; } > avcall-x86_64.asm avcall-x86_64-x32.lo : avcall-x86_64-x32.s $(LIBTOOL_COMPILE) $(CC) @GCC_X_NONE@ -c avcall-x86_64-x32.s avcall-x86_64-x32.s : $(srcdir)/avcall-x86_64-x32-linux.s cp $(srcdir)/avcall-x86_64-x32-linux.s avcall-x86_64-x32.s avcall-s390.lo : avcall-s390.s $(LIBTOOL_COMPILE) $(CC) @GCC_X_NONE@ -c avcall-s390.s avcall-s390.s : $(srcdir)/avcall-s390-macro.S $(CPP) $(ASPFLAGS) $(srcdir)/avcall-s390-macro.S | grep -v '^ *#line' | grep -v '^#' | sed -e 's,% ,%,g' -e 's,//.*$$,,' > avcall-s390.s avcall-s390x.lo : avcall-s390x.s $(LIBTOOL_COMPILE) $(CC) @GCC_X_NONE@ -c avcall-s390x.s avcall-s390x.s : $(srcdir)/avcall-s390x-macro.S $(CPP) $(ASPFLAGS) $(srcdir)/avcall-s390x-macro.S | grep -v '^ *#line' | grep -v '^#' | sed -e 's,% ,%,g' -e 's,//.*$$,,' > avcall-s390x.s avcall-riscv32-ilp32d.lo : avcall-riscv32-ilp32d.s $(LIBTOOL_COMPILE) $(CC) @GCC_X_NONE@ -c avcall-riscv32-ilp32d.s avcall-riscv32-ilp32d.s : $(srcdir)/avcall-riscv32-ilp32d-macro.S $(CPP) $(ASPFLAGS) $(srcdir)/avcall-riscv32-ilp32d-macro.S | grep -v '^ *#line' | grep -v '^#' | sed -e 's,% ,%,g' -e 's,//.*$$,,' > avcall-riscv32-ilp32d.s avcall-riscv64-lp64d.lo : avcall-riscv64-lp64d.s $(LIBTOOL_COMPILE) $(CC) @GCC_X_NONE@ -c avcall-riscv64-lp64d.s avcall-riscv64-lp64d.s : $(srcdir)/avcall-riscv64-lp64d-macro.S $(CPP) $(ASPFLAGS) $(srcdir)/avcall-riscv64-lp64d-macro.S | grep -v '^ *#line' | grep -v '^#' | sed -e 's,% ,%,g' -e 's,//.*$$,,' > avcall-riscv64-lp64d.s avcall-libapi.lo : $(srcdir)/avcall-libapi.c ../config.h $(srcdir)/avcall-internal.h $(srcdir)/avcall.h $(srcdir)/avcall-alist.h $(LIBTOOL_COMPILE) $(CC) $(INCLUDES) $(CPPFLAGS) $(CFLAGS) @DISABLE_TYPE_BASED_ALIASING@ -c $(srcdir)/avcall-libapi.c avcall-structcpy.lo : $(srcdir)/avcall-structcpy.c $(srcdir)/../common/structcpy.c $(LIBTOOL_COMPILE) $(CC) -I$(srcdir)/../common $(CPPFLAGS) $(CFLAGS) -c $(srcdir)/avcall-structcpy.c avcall-compat.lo : $(srcdir)/avcall-compat.c ../config.h $(LIBTOOL_COMPILE) $(CC) $(INCLUDES) $(CPPFLAGS) $(CFLAGS) -c $(srcdir)/avcall-compat.c libavcall.la : $(OBJECTS) $(LIBTOOL_LINK) $(CC) -o libavcall.la -rpath $(libdir) -no-undefined -export-symbols-regex $(LIBAVCALL_EXPORTED_SYMBOLS_REGEX) -version-info $(LIBAVCALL_VERSION_INFO) $(OBJECTS) $(LDFLAGS) # Installs the library and include files only. Typically called with only # $(libdir) and $(includedir) - don't use $(prefix) and $(exec_prefix) here. install-lib : all force mkdir -p $(libdir) $(LIBTOOL_INSTALL) $(INSTALL_DATA) libavcall.la $(libdir)/libavcall.la mkdir -p $(includedir) $(INSTALL_DATA) $(srcdir)/avcall.h $(includedir)/avcall.h install : all force mkdir -p $(DESTDIR)$(prefix) mkdir -p $(DESTDIR)$(exec_prefix) mkdir -p $(DESTDIR)$(libdir) $(LIBTOOL_INSTALL) $(INSTALL_DATA) libavcall.la $(DESTDIR)$(libdir)/libavcall.la mkdir -p $(DESTDIR)$(includedir) $(INSTALL_DATA) $(srcdir)/avcall.h $(DESTDIR)$(includedir)/avcall.h mkdir -p $(DESTDIR)$(mandir) mkdir -p $(DESTDIR)$(mandir)/man3 $(INSTALL_DATA) $(srcdir)/avcall.3 $(DESTDIR)$(mandir)/man3/avcall.3 mkdir -p $(DESTDIR)$(datadir) mkdir -p $(DESTDIR)$(htmldir) $(INSTALL_DATA) $(srcdir)/avcall.html $(DESTDIR)$(htmldir)/avcall.html installdirs : force mkdir -p $(DESTDIR)$(prefix) mkdir -p $(DESTDIR)$(exec_prefix) mkdir -p $(DESTDIR)$(libdir) mkdir -p $(DESTDIR)$(includedir) mkdir -p $(DESTDIR)$(mandir) mkdir -p $(DESTDIR)$(mandir)/man3 mkdir -p $(DESTDIR)$(datadir) mkdir -p $(DESTDIR)$(htmldir) uninstall : force $(LIBTOOL_UNINSTALL) $(RM) $(DESTDIR)$(libdir)/libavcall.la $(RM) $(DESTDIR)$(includedir)/avcall.h $(RM) $(DESTDIR)$(mandir)/man3/avcall.3 $(RM) $(DESTDIR)$(htmldir)/avcall.html minitests.@OBJEXT@ : $(srcdir)/minitests.c $(srcdir)/tests.c $(srcdir)/avcall.h $(CC) $(INCLUDES) $(CPPFLAGS) $(CFLAGS) -c $(srcdir)/minitests.c minitests.s : $(srcdir)/minitests.c $(srcdir)/tests.c $(srcdir)/avcall.h $(CC) $(INCLUDES) $(CPPFLAGS) $(CFLAGS) -S $(srcdir)/minitests.c minitests : minitests.@OBJEXT@ libavcall.la $(LIBTOOL_LINK) $(CC) $(CFLAGS) @GCC_X_NONE@ minitests.@OBJEXT@ libavcall.la $(LDFLAGS) -o minitests minitests-c++.@OBJEXT@ : $(srcdir)/minitests-c++.cc $(srcdir)/minitests.c $(srcdir)/tests.c $(srcdir)/avcall.h $(CXX) $(INCLUDES) $(CPPFLAGS) $(CXXFLAGS) -c $(srcdir)/minitests-c++.cc minitests-c++ : minitests-c++.@OBJEXT@ libavcall.la $(LIBTOOL_LINK) $(CXX) $(CXXFLAGS) @GCC_X_NONE@ minitests-c++.@OBJEXT@ libavcall.la $(LDFLAGS) -o minitests-c++ check : all minitests ./minitests > minitests.out LC_ALL=C uniq -u < minitests.out > minitests.output.$(HOST) test '!' -s minitests.output.$(HOST) @IF_CXX@# minitests-c++ crashes on HP-UX HPPA 32-bit with aCC, even without "-O". @IF_CXX@ test $(CPU) = 'hppa' || { \ @IF_CXX@ ./minitests-c++ > minitests-c++.out \ @IF_CXX@ && LC_ALL=C uniq -u < minitests-c++.out > minitests-c++.output.$(HOST) \ @IF_CXX@ && test '!' -s minitests-c++.output.$(HOST); \ @IF_CXX@ } @IF_CXX@check : minitests-c++ tests.@OBJEXT@ : $(srcdir)/tests.c $(srcdir)/avcall.h $(CC) $(INCLUDES) $(CPPFLAGS) $(CFLAGS) -c $(srcdir)/tests.c tests.s : $(srcdir)/tests.c $(srcdir)/avcall.h $(CC) $(INCLUDES) $(CPPFLAGS) $(CFLAGS) -S $(srcdir)/tests.c tests : tests.@OBJEXT@ libavcall.la $(LIBTOOL_LINK) $(CC) $(CFLAGS) @GCC_X_NONE@ tests.@OBJEXT@ libavcall.la $(LDFLAGS) -o tests extracheck : all tests ./tests > tests.out LC_ALL=C uniq -u < tests.out > tests.output.$(HOST) test '!' -s tests.output.$(HOST) mostlyclean : clean clean : force $(RM) *.@OBJEXT@ *.lo *.a libavcall.* core $(RM) avcall-i386.s avcall-sparc.s avcall-sparc64.s avcall-m68k.s avcall-mips.s avcall-mipsn32.s avcall-mips64.s avcall-alpha.s avcall-hppa.s avcall-hppa64.s avcall-arm.s avcall-armhf.s avcall-arm64.s avcall-powerpc.s avcall-powerpc64.s avcall-powerpc64-elfv2.s avcall-ia64.s avcall-x86_64.s avcall-x86_64.asm avcall-x86_64-x32.s avcall-s390.s avcall-s390x.s avcall-riscv32-ilp32d.s avcall-riscv64-lp64d.s $(RM) -r .libs _libs $(RM) minitests.@OBJEXT@ minitests.s minitests minitests.out $(RM) minitests-c++.@OBJEXT@ minitests-c++ minitests-c++.out $(RM) tests.@OBJEXT@ tests.s tests tests.out distclean : clean $(RM) Makefile minitests.output.* minitests-c++.output.* tests.output.* maintainer-clean : distclean # List of source files (committed in version control or generated by Makefile.devel). SOURCE_FILES = \ COPYING \ DOC PLATFORMS README avcall.3 avcall.html \ Makefile.devel \ Makefile.maint \ Makefile.in \ avcall.h avcall-internal.h avcall-alist.h \ avcall-alpha.c avcall-alpha-linux.s avcall-alpha-macro.S \ avcall-arm.c avcall-arm-macro.S \ avcall-armhf.c avcall-armhf-macro.S \ avcall-arm64.c avcall-arm64-macro.S \ avcall-hppa.c avcall-hppa-linux.s avcall-hppa-macro.S \ avcall-hppa64.c avcall-hppa64-linux.s avcall-hppa64-macro.S \ avcall-i386.c avcall-i386-linux.s avcall-i386-macro.S \ avcall-ia64.c avcall-ia64-linux.s avcall-ia64-macro.S \ avcall-m68k.c avcall-m68k-linux.s avcall-m68k-sun.s avcall-m68k.mit.S avcall-m68k.motorola.S \ avcall-mips.c avcall-mipseb-linux.s avcall-mipsel-linux.s avcall-mipseb-macro.S avcall-mipsel-macro.S \ avcall-mipsn32.c avcall-mipsn32eb-linux.s avcall-mipsn32el-linux.s avcall-mipsn32eb-macro.S avcall-mipsn32el-macro.S \ avcall-mips64.c avcall-mips64eb-linux.s avcall-mips64el-linux.s avcall-mips64eb-macro.S avcall-mips64el-macro.S \ avcall-powerpc.c \ avcall-powerpc-aix.s \ avcall-powerpc-linux.s avcall-powerpc-linux-macro.S avcall-powerpc-macos.s avcall-powerpc-sysv4-macro.S \ avcall-powerpc64.c avcall-powerpc64-aix.s avcall-powerpc64-linux.S avcall-powerpc64-elfv2-linux.S \ avcall-riscv32.c avcall-riscv32-ilp32d-linux.s avcall-riscv32-ilp32d-macro.S \ avcall-riscv64.c avcall-riscv64-lp64d-linux.s avcall-riscv64-lp64d-macro.S \ avcall-s390.c avcall-s390-linux.s avcall-s390-macro.S \ avcall-s390x.c avcall-s390x-linux.s avcall-s390x-macro.S \ avcall-sparc.c avcall-sparc-linux.s avcall-sparc-macro.S \ avcall-sparc64.c avcall-sparc64-linux.s avcall-sparc64-macro.S \ avcall-x86_64.c avcall-x86_64-linux.s avcall-x86_64-macro.S avcall-x86_64-x32-linux.s \ avcall-x86_64-windows.c avcall-x86_64-windows.s avcall-x86_64-windows-macro.S \ avcall-libapi.c \ avcall-structcpy.c \ avcall-compat.c \ minitests.c minitests-c++.cc \ tests.c # List of distributed files generated by Makefile.maint. GENERATED_FILES = \ avcall.man \ avcall-i386-msvc.c # List of distributed files. DISTFILES = $(SOURCE_FILES) $(GENERATED_FILES) distdir : $(DISTFILES) for file in $(DISTFILES); do \ if test -f $$file; then dir='.'; else dir='$(srcdir)'; fi; \ cp -p "$$dir/$$file" '$(distdir)'/$$file || exit 1; \ done force : libffcall-2.2/avcall/avcall-internal.h0000664000000000000000000020504213530354635014665 00000000000000/* * Copyright 1993-1995 Bill Triggs * Copyright 1995-2019 Bruno Haible * * This program is free software: you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by * the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program. If not, see . */ #ifndef _AVCALL_INTERNAL_H #define _AVCALL_INTERNAL_H /* Get intptr_t, uintptr_t. */ #include "ffcall-stdint.h" /* Include the public definitions and "avcall-alist.h", */ #include "avcall.h" /* Verify at compile time that sizeof(__av_alist) <= __AV_ALIST_SIZE_BOUND. */ typedef int __av_alist_verify[2*(__AV_ALIST_SIZE_BOUND - (int)sizeof(__av_alist))+1]; /* Conversion from the public, mostly opaque, 'av_alist*' to '__av_alist*'. */ #define AV_LIST_INNER(list) ((list)->_av_alist_head._av_m_alist) /* Delayed overflow detection */ #if defined(__hppa__) && !defined(__hppa64__) #define _av_overflown(LIST) ((LIST).aptr < (LIST).eptr) #else #define _av_overflown(LIST) ((LIST).aptr > (LIST).eptr) #endif /* * Initialization of an __av_alist */ #define __av_start(LIST,LIST_ARGS,LIST_ARGS_END,FUNC,RADDR,RETTYPE,FLAGS) \ ((LIST).func = (FUNC), \ (LIST).raddr = (RADDR), \ (LIST).rtype = (RETTYPE), \ (LIST).args = (LIST_ARGS), \ __av_start1(LIST,LIST_ARGS_END) \ __av_start_init_eptr(LIST,LIST_ARGS_END) \ (LIST).flags = (FLAGS)) #if defined(__i386__) || defined(__m68k__) || defined(__alpha__) || (defined(__arm__) && !defined(__armhf__)) #define __av_start1(LIST,LIST_ARGS_END) \ (LIST).aptr = &(LIST).args[0], #endif #if defined(__mips__) && !defined(__mipsn32__) && !defined(__mips64__) #define __av_start1(LIST,LIST_ARGS_END) \ (LIST).anum = 0, \ (LIST).fanum = 0, \ (LIST).farg_mask = 0, \ (LIST).darg_mask = 0, \ (LIST).aptr = &(LIST).args[0], #endif #if defined(__mipsn32__) || defined(__mips64__) #define __av_start1(LIST,LIST_ARGS_END) \ (LIST).anum = 0, \ (LIST).farg_mask = 0, \ (LIST).darg_mask = 0, \ (LIST).aptr = &(LIST).args[0], #endif #if defined(__sparc__) && !defined(__sparc64__) #define __av_start1(LIST,LIST_ARGS_END) \ (LIST).aptr = &(LIST).args[0], #endif #if defined(__sparc64__) #define __av_start1(LIST,LIST_ARGS_END) \ (LIST).anum = 0, \ (LIST).darg_mask = 0, \ (LIST).aptr = &(LIST).args[0], #endif #if defined(__hppa__) && !defined(__hppa64__) #define __av_start1(LIST,LIST_ARGS_END) \ (LIST).farg_mask = 0, \ (LIST).darg_mask = 0, \ (LIST).aptr = (LIST).args_end = (LIST_ARGS_END), #endif #if defined(__hppa64__) #define __av_start1(LIST,LIST_ARGS_END) \ (LIST).farg_mask = 0, \ (LIST).darg_mask = 0, \ (LIST).aptr = &(LIST).args[0], #endif #if defined(__armhf__) #define __av_start1(LIST,LIST_ARGS_END) \ (LIST).aptr = &(LIST).args[__AV_IARG_NUM], \ (LIST).ianum = 0, \ (LIST).fanum = 0, \ (LIST).farg_mask = 0, \ (LIST).darg_mask = 0, #endif #if defined(__arm64__) || defined(__s390__) || defined(__s390x__) #define __av_start1(LIST,LIST_ARGS_END) \ (LIST).aptr = &(LIST).args[0], \ (LIST).ianum = 0, \ (LIST).fanum = 0, \ (LIST).farg_mask = 0, \ (LIST).darg_mask = 0, #endif #if defined(__riscv32__) || defined(__riscv64__) #define __av_start1(LIST,LIST_ARGS_END) \ (LIST).aptr = &(LIST).args[0], \ (LIST).fanum = 0, \ (LIST).farg_mask = 0, \ (LIST).darg_mask = 0, #endif #if defined(__powerpc_aix__) || defined(__powerpc64__) #define __av_start1(LIST,LIST_ARGS_END) \ (LIST).aptr = &(LIST).args[0], \ (LIST).faptr = &(LIST).fargs[0], #endif #if defined(__powerpc_sysv4__) #define __av_start1(LIST,LIST_ARGS_END) \ (LIST).aptr = &(LIST).args[0], \ (LIST).ianum = 0, \ (LIST).faptr = &(LIST).fargs[0], #endif #if defined(__ia64__) #define __av_start1(LIST,LIST_ARGS_END) \ (LIST).aptr = &(LIST).args[0], \ (LIST).faptr = &(LIST).fargs[0], #endif #if defined(__x86_64_sysv__) #define __av_start1(LIST,LIST_ARGS_END) \ (LIST).aptr = &(LIST).args[0], \ (LIST).ianum = 0, \ (LIST).faptr = &(LIST).fargs[0], #endif #if defined(__x86_64_ms__) #define __av_start1(LIST,LIST_ARGS_END) \ (LIST).aptr = &(LIST).args[0], \ (LIST).anum = 0, \ (LIST).farg_mask = 0, \ (LIST).darg_mask = 0, #endif #if defined(__hppa__) && !defined(__hppa64__) #define __av_start_init_eptr(LIST,LIST_ARGS_END) \ (LIST).eptr = &(LIST).args[0], #else #define __av_start_init_eptr(LIST,LIST_ARGS_END) \ (LIST).eptr = (LIST_ARGS_END), #endif #define __av_start_struct(LIST,LIST_ARGS,LIST_ARGS_END,FUNC,TYPE_SIZE,TYPE_SPLITTABLE,RADDR,FLAGS) \ (__av_start(LIST,LIST_ARGS,LIST_ARGS_END,FUNC,RADDR,__AVstruct,FLAGS), \ (LIST).rsize = (TYPE_SIZE), \ __av_start_struct2(LIST,TYPE_SIZE,TYPE_SPLITTABLE), \ 0) #if (defined(__sparc__) && !defined(__sparc64__)) /* Return structure pointer is passed in a special register. */ #define __av_start_struct2(LIST,TYPE_SIZE,TYPE_SPLITTABLE) 0 #else #define __av_start_struct2(LIST,TYPE_SIZE,TYPE_SPLITTABLE) \ (((LIST).flags & __AV_SMALL_STRUCT_RETURN) \ && __av_reg_struct_return(LIST,TYPE_SIZE,TYPE_SPLITTABLE) \ ? /* <= Word-sized structures are returned in a register. */ \ __av_start_struct3(LIST) \ : __av_start_struct4(LIST,TYPE_SIZE) \ ) /* Determines whether a structure is returned in registers, * depending on its size and its word-splittable flag. */ #if (defined(__i386__) && defined(_WIN32)) #define __av_reg_struct_return(LIST,TYPE_SIZE,TYPE_SPLITTABLE) \ ((TYPE_SIZE) == 1 || (TYPE_SIZE) == 2 || (TYPE_SIZE) == 4 \ || ((TYPE_SIZE) == 8 \ && (((LIST).flags & __AV_MSVC_STRUCT_RETURN) \ || ((TYPE_SPLITTABLE) \ && ((LIST).flags & __AV_GCC_STRUCT_RETURN) \ ) ) ) ) /* Turn on __AV_REGISTER_STRUCT_RETURN if __AV_SMALL_STRUCT_RETURN was set * and the struct will actually be returned in registers. */ #define __av_start_struct3(LIST) \ ((LIST).flags |= __AV_REGISTER_STRUCT_RETURN, 0) #endif #if (defined(__i386__) && !defined(_WIN32)) || defined(__m68k__) || (defined(__powerpc__) && !defined(__powerpc64__)) || (defined(__s390__) && !defined(__s390x__)) #define __av_reg_struct_return(LIST,TYPE_SIZE,TYPE_SPLITTABLE) \ ((TYPE_SIZE) == 1 || (TYPE_SIZE) == 2 || (TYPE_SIZE) == 4 \ || ((TYPE_SIZE) == 8 && (TYPE_SPLITTABLE) \ && ((LIST).flags & __AV_GCC_STRUCT_RETURN) \ ) ) /* Turn on __AV_REGISTER_STRUCT_RETURN if __AV_SMALL_STRUCT_RETURN was set * and the struct will actually be returned in registers. */ #define __av_start_struct3(LIST) \ ((LIST).flags |= __AV_REGISTER_STRUCT_RETURN, 0) #endif #if defined(__arm__) || defined(__armhf__) #define __av_reg_struct_return(LIST,TYPE_SIZE,TYPE_SPLITTABLE) \ ((TYPE_SIZE) <= 4) #define __av_start_struct3(LIST) \ ((LIST).flags |= __AV_REGISTER_STRUCT_RETURN, 0) #endif #if defined(__alpha__) #define __av_reg_struct_return(LIST,TYPE_SIZE,TYPE_SPLITTABLE) \ ((TYPE_SIZE) == 1 || (TYPE_SIZE) == 2 || (TYPE_SIZE) == 4 || (TYPE_SIZE) == 8 \ || ((TYPE_SIZE) == 16 && (TYPE_SPLITTABLE) \ && ((LIST).flags & __AV_GCC_STRUCT_RETURN) \ ) ) /* Turn on __AV_REGISTER_STRUCT_RETURN if __AV_SMALL_STRUCT_RETURN was set * and the struct will actually be returned in registers. */ #define __av_start_struct3(LIST) \ ((LIST).flags |= __AV_REGISTER_STRUCT_RETURN, 0) #endif #if (defined(__hppa__) && !defined(__hppa64__)) || defined(__riscv32__) #define __av_reg_struct_return(LIST,TYPE_SIZE,TYPE_SPLITTABLE) \ ((TYPE_SIZE) <= 8) /* Test __AV_SMALL_STRUCT_RETURN at run time. */ #define __av_start_struct3(LIST) \ 0 #endif #if defined(__mips__) && !defined(__mipsn32__) && !defined(__mips64__) #define __av_reg_struct_return(LIST,TYPE_SIZE,TYPE_SPLITTABLE) \ ((TYPE_SIZE) == 1 || (TYPE_SIZE) == 2 || (TYPE_SIZE) == 4) /* Test __AV_SMALL_STRUCT_RETURN instead of __AV_REGISTER_STRUCT_RETURN. */ #define __av_start_struct3(LIST) \ 0 #endif #if defined(__mipsn32__) || defined(__mips64__) #define __av_reg_struct_return(LIST,TYPE_SIZE,TYPE_SPLITTABLE) \ ((LIST).flags & __AV_GCC_STRUCT_RETURN \ ? ((TYPE_SIZE) == 1 || (TYPE_SIZE) == 2 || (TYPE_SIZE) == 4 || (TYPE_SIZE) == 8) \ : ((TYPE_SIZE) <= 16) \ ) /* Turn on __AV_REGISTER_STRUCT_RETURN if __AV_SMALL_STRUCT_RETURN was set * and the struct will actually be returned in registers. */ #define __av_start_struct3(LIST) \ ((LIST).flags |= __AV_REGISTER_STRUCT_RETURN, 0) #endif #if (defined(__powerpc64__) && !defined(__powerpc64_elfv2__)) || defined(__s390x__) #define __av_reg_struct_return(LIST,TYPE_SIZE,TYPE_SPLITTABLE) \ 0 #define __av_start_struct3(LIST) \ 0 #endif #if defined(__sparc64__) || defined(__ia64__) #define __av_reg_struct_return(LIST,TYPE_SIZE,TYPE_SPLITTABLE) \ ((TYPE_SIZE) <= 32) /* Turn on __AV_REGISTER_STRUCT_RETURN if __AV_SMALL_STRUCT_RETURN was set * and the struct will actually be returned in registers. */ #define __av_start_struct3(LIST) \ ((LIST).flags |= __AV_REGISTER_STRUCT_RETURN, 0) #endif #if defined(__hppa64__) || defined(__arm64__) || (defined(__powerpc64__) && defined(__powerpc64_elfv2__)) || defined(__x86_64_sysv__) || defined(__riscv64__) #define __av_reg_struct_return(LIST,TYPE_SIZE,TYPE_SPLITTABLE) \ ((TYPE_SIZE) <= 16) /* Turn on __AV_REGISTER_STRUCT_RETURN if __AV_SMALL_STRUCT_RETURN was set * and the struct will actually be returned in registers. */ #define __av_start_struct3(LIST) \ ((LIST).flags |= __AV_REGISTER_STRUCT_RETURN, 0) #endif #if defined(__x86_64_ms__) #define __av_reg_struct_return(LIST,TYPE_SIZE,TYPE_SPLITTABLE) \ ((TYPE_SIZE) == 1 || (TYPE_SIZE) == 2 || (TYPE_SIZE) == 4 || (TYPE_SIZE) == 8) /* Turn on __AV_REGISTER_STRUCT_RETURN if __AV_SMALL_STRUCT_RETURN was set * and the struct will actually be returned in registers. */ #define __av_start_struct3(LIST) \ ((LIST).flags |= __AV_REGISTER_STRUCT_RETURN, 0) #endif #if defined(__m68k__) || defined(__hppa__) || defined(__hppa64__) || defined(__arm64__) || defined(__ia64__) /* Return structure pointer is passed in a special register. */ #define __av_start_struct4(LIST,TYPE_SIZE) 0 #endif /* Return structure pointer is passed as first arg. */ #if defined(__i386__) || defined(__alpha__) || (defined(__arm__) && !defined(__armhf__)) || defined(__powerpc_aix__) || defined(__powerpc64__) || defined(__riscv32__) || defined(__riscv64__) #define __av_start_struct4(LIST,TYPE_SIZE) \ (*(LIST).aptr++ = (__avword)((LIST).raddr), 0) #endif #if defined(__armhf__) #define __av_start_struct4(LIST,TYPE_SIZE) \ ((LIST).args[(LIST).ianum++] = (__avword)((LIST).raddr), 0) #endif #if defined(__mips__) || defined(__mipsn32__) || defined(__mips64__) || defined(__sparc64__) || defined(__x86_64_ms__) #define __av_start_struct4(LIST,TYPE_SIZE) \ (*(LIST).aptr++ = (__avword)((LIST).raddr), \ (LIST).anum++, \ 0 \ ) #endif #if defined(__powerpc_sysv4__) || defined(__x86_64_sysv__) || defined(__s390__) || defined(__s390x__) #if defined(__x86_64_x32__) /* The x86_64 ABI, section 10.1, specifies that pointers are zero-extended from 32 bits to 64 bits. */ #define __av_start_struct4(LIST,TYPE_SIZE) \ ((LIST).iargs[(LIST).ianum++] = (unsigned long long)(unsigned long)((LIST).raddr), 0) #else #define __av_start_struct4(LIST,TYPE_SIZE) \ ((LIST).iargs[(LIST).ianum++] = (__avword)((LIST).raddr), 0) #endif #endif #endif /* * av_ macros which specify the argument and its type * In these macro definitions, * 1. check the new value of (LIST).aptr against (LIST).eptr, then * 2. modify (LIST).aptr (considering the alignment needed for the argument * type), then store the argument. On little-endian machines and when * there are no alignment considerations, it's also OK to store the * argument and then modify (LIST).aptr. */ /* * scalar argument types */ #if defined(__i386__) || defined(__m68k__) || (defined(__sparc__) && !defined(__sparc64__)) || defined(__alpha__) || defined(__hppa64__) || (defined(__arm__) && !defined(__armhf__)) || defined(__arm64__) || defined(__powerpc__) || defined(__powerpc64__) || defined(__ia64__) || defined(__x86_64_sysv__) || defined(__s390__) || defined(__s390x__) || defined(__riscv32__) || defined(__riscv64__) /* Floats and all integer types are passed as words, * doubles as two words (on 32-bit platforms) or one word (on 64-bit platforms). */ #define __av_word(LIST,VAL) \ ((LIST).aptr >= (LIST).eptr \ ? -1 : \ ((LIST).aptr++, \ ((LIST).aptr)[-1] = (__avword)(VAL), \ 0)) #endif #if defined(__mips__) || defined(__mipsn32__) || defined(__mips64__) || defined(__sparc64__) || defined(__x86_64_ms__) /* Most things are passed as integers: */ #define __av_word(LIST,VAL) \ ((LIST).aptr >= (LIST).eptr \ ? -1 : \ ((LIST).aptr++, \ ((LIST).aptr)[-1] = (__avword)(VAL), \ (LIST).anum++, \ 0)) #endif #if defined(__hppa__) && !defined(__hppa64__) /* Floats and all integer types are passed as words, * doubles as two words. */ #define __av_word(LIST,VAL) \ ((LIST).aptr <= (LIST).eptr \ ? -1 : \ ((LIST).aptr--, \ *(LIST).aptr = (__avword)(VAL), \ 0)) #endif #if defined(__armhf__) #define __av_word(LIST,VAL) \ ((LIST).ianum < __AV_IARG_NUM \ ? ((LIST).args[(LIST).ianum++] = (__avword)(VAL), 0) \ : ((LIST).aptr >= (LIST).eptr \ ? -1 : \ ((LIST).aptr++, \ ((LIST).aptr)[-1] = (__avword)(VAL), \ 0))) #endif /* integer argument types */ #if defined(__arm64__) || defined(__powerpc_sysv4__) || defined(__x86_64_sysv__) || defined(__s390__) || defined(__s390x__) /* The first __AV_IARG_NUM integer arguments are passed in registers. */ #define __av_long(LIST,VAL) \ ((LIST).ianum < __AV_IARG_NUM \ ? ((LIST).iargs[(LIST).ianum++] = (long)(VAL), 0) \ : __av_word(LIST,(long)(VAL))) #else #define __av_long(LIST,VAL) __av_word(LIST,(long)(VAL)) #endif #if defined(__arm64__) || defined(__powerpc_sysv4__) || defined(__x86_64_sysv__) || defined(__s390__) || defined(__s390x__) /* The first __AV_IARG_NUM integer arguments are passed in registers. */ #define __av_ulong(LIST,VAL) \ ((LIST).ianum < __AV_IARG_NUM \ ? ((LIST).iargs[(LIST).ianum++] = (unsigned long)(VAL), 0) \ : __av_word(LIST,(unsigned long)(VAL))) #else #define __av_ulong(LIST,VAL) __av_word(LIST,(unsigned long)(VAL)) #endif #if defined(__arm64__) || defined(__powerpc_sysv4__) || defined(__x86_64_sysv__) || defined(__s390__) || defined(__s390x__) /* The first __AV_IARG_NUM integer arguments are passed in registers. */ #if defined(__x86_64_x32__) /* The x86_64 ABI, section 10.1, specifies that pointers are zero-extended from 32 bits to 64 bits. */ #define __av_ptr(LIST,VAL) \ ((LIST).ianum < __AV_IARG_NUM \ ? ((LIST).iargs[(LIST).ianum++] = (unsigned long long)(unsigned long)(VAL), 0) \ : __av_word(LIST,(unsigned long long)(unsigned long)(VAL))) #else #define __av_ptr(LIST,VAL) \ ((LIST).ianum < __AV_IARG_NUM \ ? ((LIST).iargs[(LIST).ianum++] = (__avword)(VAL), 0) \ : __av_word(LIST,VAL)) #endif #else #define __av_ptr(LIST,VAL) __av_word(LIST,VAL) #endif #if defined(__mips64__) || defined(__sparc64__) || defined(__alpha__) || defined(__hppa64__) || defined(__arm64__) || defined(__powerpc64__) || defined(__ia64__) || (defined(__x86_64__) && !defined(__x86_64_x32__) && !defined(__AV_LLP64)) || defined(__s390x__) || defined(__riscv64__) /* ‘long long’ and ‘long’ are identical. */ #define __av_longlong __av_long #define __av_ulonglong __av_ulong #elif defined(__mipsn32__) || (defined(__x86_64__) && defined(__AV_LLP64)) /* ‘long long’ fits in __avword. */ #define __av_longlong __av_word #define __av_ulonglong(LIST,VAL) __av_word(LIST,(unsigned long long)(VAL)) #elif defined(__i386__) || defined(__m68k__) || (defined(__mips__) && !defined(__mipsn32__) && !defined(__mips64__)) || (defined(__sparc__) && !defined(__sparc64__)) || (defined(__hppa__) && !defined(__hppa64__)) || defined(__arm__) || defined(__armhf__) || defined(__powerpc__) || defined(__x86_64_x32__) || (defined(__s390__) && !defined(__s390x__)) || defined(__riscv32__) /* ‘long long’s are passed embedded on the arg stack. */ #define __av_longlong(LIST,VAL) __av_arg_longlong(LIST,long long,VAL) #define __av_ulonglong(LIST,VAL) __av_arg_longlong(LIST,unsigned long long,VAL) #if defined(__i386__) || defined(__m68k__) || defined(__powerpc_aix__) /* ‘long long’s are (at most) word-aligned. */ #define __av_arg_longlong(LIST,TYPE,VAL) \ ((LIST).aptr + sizeof(TYPE)/sizeof(__avword) > (LIST).eptr \ ? -1 : \ ((LIST).aptr += sizeof(TYPE)/sizeof(__avword), \ ((TYPE*)(LIST).aptr)[-1] = (TYPE)(VAL), \ 0)) #endif #if defined(__mips__) || (defined(__sparc__) && !defined(__sparc64__)) || (defined(__hppa__) && !defined(__hppa64__)) || defined(__arm__) || defined(__armhf__) || defined(__powerpc_sysv4__) || defined(__x86_64_x32__) || (defined(__s390__) && !defined(__s390x__)) || defined(__riscv32__) /* ‘long long’s have alignment 4 or 8. */ #if defined(__mips__) #define __av_arg_longlong(LIST,TYPE,VAL) \ ((__avword*)(((uintptr_t)(LIST).aptr+sizeof(TYPE)+__AV_alignof(TYPE)-1) & -(intptr_t)__AV_alignof(TYPE)) > (LIST).eptr \ ? -1 : \ (((LIST).aptr = (__avword*)(((uintptr_t)(LIST).aptr+sizeof(TYPE)+__AV_alignof(TYPE)-1) & -(intptr_t)__AV_alignof(TYPE))), \ ((TYPE*)(LIST).aptr)[-1] = (TYPE)(VAL), \ (LIST).anum++, \ 0)) #endif #if defined(__sparc__) && !defined(__sparc64__) /* Within the arg stack, the alignment is only 4, not 8. */ /* This assumes sizeof(long long) == 2*sizeof(__avword). */ #define __av_arg_longlong(LIST,TYPE,VAL) \ ((LIST).aptr + sizeof(TYPE)/sizeof(__avword) > (LIST).eptr \ ? -1 : \ ((LIST).aptr += sizeof(TYPE)/sizeof(__avword), \ (LIST).tmp._longlong = (TYPE)(VAL), \ (LIST).aptr[-2] = (LIST).tmp.words[0], \ (LIST).aptr[-1] = (LIST).tmp.words[1], \ 0)) #endif #if (defined(__hppa__) && !defined(__hppa64__)) #define __av_arg_longlong(LIST,TYPE,VAL) \ ((__avword*)(((uintptr_t)(LIST).aptr & -(intptr_t)__AV_alignof(TYPE)) - sizeof(TYPE)) < (LIST).eptr \ ? -1 : \ ((LIST).aptr = (__avword*)(((uintptr_t)(LIST).aptr & -(intptr_t)__AV_alignof(TYPE)) - sizeof(TYPE)), \ *(TYPE*)(LIST).aptr = (TYPE)(VAL), \ 0)) #endif #if defined(__arm__) && !defined(__armhf__) #define __av_arg_longlong(LIST,TYPE,VAL) \ ((__avword*)(((uintptr_t)(LIST).aptr+sizeof(TYPE)+__AV_alignof(TYPE)-1) & -(intptr_t)__AV_alignof(TYPE)) > (LIST).eptr \ ? -1 : \ ((LIST).aptr = (__avword*)(((uintptr_t)(LIST).aptr+sizeof(TYPE)+__AV_alignof(TYPE)-1) & -(intptr_t)__AV_alignof(TYPE)), \ ((TYPE*)(LIST).aptr)[-1] = (TYPE)(VAL), \ 0)) #endif #if defined(__armhf__) #define __av_arg_longlong(LIST,TYPE,VAL) \ ((((LIST).ianum + sizeof(TYPE)/sizeof(__avword)+__AV_alignof(TYPE)/sizeof(__avword)-1) & -(intptr_t)(__AV_alignof(TYPE)/sizeof(__avword))) <= __AV_IARG_NUM \ ? ((LIST).ianum = (((LIST).ianum + sizeof(TYPE)/sizeof(__avword)+__AV_alignof(TYPE)/sizeof(__avword)-1) & -(intptr_t)(__AV_alignof(TYPE)/sizeof(__avword))), \ ((TYPE*)&(LIST).args[(LIST).ianum])[-1] = (TYPE)(VAL), \ 0) \ : ((LIST).aptr == &(LIST).args[__AV_IARG_NUM] \ ? /* split case */ \ ((__avword*)(((uintptr_t)&(LIST).args[(LIST).ianum]+sizeof(TYPE)+__AV_alignof(TYPE)-1) & -(intptr_t)__AV_alignof(TYPE)) > (LIST).eptr \ ? -1 : \ ((LIST).aptr = (__avword*)(((uintptr_t)&(LIST).args[(LIST).ianum]+sizeof(TYPE)+__AV_alignof(TYPE)-1) & -(intptr_t)__AV_alignof(TYPE)), \ ((TYPE*)(LIST).aptr)[-1] = (TYPE)(VAL), \ (LIST).ianum = __AV_IARG_NUM, \ 0)) \ : ((__avword*)(((uintptr_t)(LIST).aptr+sizeof(TYPE)+__AV_alignof(TYPE)-1) & -(intptr_t)__AV_alignof(TYPE)) > (LIST).eptr \ ? -1 : \ ((LIST).aptr = (__avword*)(((uintptr_t)(LIST).aptr+sizeof(TYPE)+__AV_alignof(TYPE)-1) & -(intptr_t)__AV_alignof(TYPE)), \ ((TYPE*)(LIST).aptr)[-1] = (TYPE)(VAL), \ (LIST).ianum = __AV_IARG_NUM, \ 0)))) #endif #if defined(__powerpc_sysv4__) #define __av_arg_longlong(LIST,TYPE,VAL) \ ((((LIST).ianum + sizeof(TYPE)/sizeof(__avword)+__AV_alignof(TYPE)/sizeof(__avword)-1) & -(intptr_t)(__AV_alignof(TYPE)/sizeof(__avword))) <= __AV_IARG_NUM \ ? ((LIST).ianum = (((LIST).ianum + sizeof(TYPE)/sizeof(__avword)+__AV_alignof(TYPE)/sizeof(__avword)-1) & -(intptr_t)(__AV_alignof(TYPE)/sizeof(__avword))), \ ((TYPE*)&(LIST).iargs[(LIST).ianum])[-1] = (TYPE)(VAL), \ 0) \ : ((LIST).ianum = __AV_IARG_NUM, \ ((__avword*)(((uintptr_t)(LIST).aptr+sizeof(TYPE)+__AV_alignof(TYPE)-1) & -(intptr_t)__AV_alignof(TYPE)) > (LIST).eptr \ ? -1 : \ ((LIST).aptr = (__avword*)(((uintptr_t)(LIST).aptr+sizeof(TYPE)+__AV_alignof(TYPE)-1) & -(intptr_t)__AV_alignof(TYPE)), \ ((TYPE*)(LIST).aptr)[-1] = (TYPE)(VAL), \ 0)))) #endif #if defined(__x86_64_x32__) #define __av_arg_longlong(LIST,TYPE,VAL) \ ((LIST).ianum < __AV_IARG_NUM \ ? ((LIST).iargs[(LIST).ianum++] = (__avword)(TYPE)(VAL), 0) \ : __av_word(LIST,(TYPE)(VAL))) #endif #if (defined(__s390__) && !defined(__s390x__)) /* Within the arg stack, the alignment is only 4, not 8. */ #define __av_arg_longlong(LIST,TYPE,VAL) \ ((LIST).ianum + (sizeof(TYPE)+sizeof(__avword)-1)/sizeof(__avword) <= __AV_IARG_NUM \ ? ((LIST).ianum += (sizeof(TYPE)+sizeof(__avword)-1)/sizeof(__avword), \ ((TYPE*)&(LIST).iargs[(LIST).ianum])[-1] = (TYPE)(VAL), \ 0) \ : ((LIST).ianum = __AV_IARG_NUM, \ ((__avword*)(((uintptr_t)(LIST).aptr+sizeof(TYPE)+sizeof(__avword)-1) & -(intptr_t)sizeof(__avword)) > (LIST).eptr \ ? -1 : \ ((LIST).aptr = (__avword*)(((uintptr_t)(LIST).aptr+sizeof(TYPE)+sizeof(__avword)-1) & -(intptr_t)sizeof(__avword)), \ ((TYPE*)(LIST).aptr)[-1] = (TYPE)(VAL), \ 0)))) #endif #if defined(__riscv32__) /* Within the arg stack, the alignment is only 4, not 8. Also, the argument may be put into one word in registers and one word on the stack. */ #define __av_arg_longlong(LIST,TYPE,VAL) \ (((__avword*)(((uintptr_t)(LIST).aptr+sizeof(TYPE)+sizeof(__avword)-1) & -(intptr_t)sizeof(__avword)) > (LIST).eptr \ ? -1 : \ ((LIST).aptr = (__avword*)(((uintptr_t)(LIST).aptr+sizeof(TYPE)+sizeof(__avword)-1) & -(intptr_t)sizeof(__avword)), \ ((TYPE*)(LIST).aptr)[-1] = (TYPE)(VAL), \ 0))) #endif #endif #endif /* floating-point argument types */ #if defined(__i386__) || defined(__m68k__) || (defined(__sparc__) && !defined(__sparc64__)) #define _av_float(LIST,VAL) \ ((LIST).aptr >= (LIST).eptr \ ? -1 : \ ((LIST).aptr++, \ ((float*)(LIST).aptr)[-1] = (float)(VAL), \ 0)) /* This assumes sizeof(double) == 2*sizeof(__avword). */ #define _av_double(LIST,VAL) \ ((LIST).aptr + 2 > (LIST).eptr \ ? -1 : \ ((LIST).aptr += 2, \ (LIST).tmp._double = (double)(VAL), \ (LIST).aptr[-2] = (LIST).tmp.words[0], \ (LIST).aptr[-1] = (LIST).tmp.words[1], \ 0)) #endif #if defined(__mips__) && !defined(__mipsn32__) && !defined(__mips64__) /* Up to 2 leading float or double non-varargs args can be passed in * float registers, but we also push them into the corresponding int * registers in case of varargs. For doubles we need to align the aptr * to an even boundary. */ #define _av_float(LIST,VAL) \ ((LIST).aptr >= (LIST).eptr \ ? -1 : \ ((LIST).aptr++, \ ((LIST).anum == (LIST).fanum && (LIST).fanum < __AV_FARG_NUM \ ? /* only floating-point arguments so far */ \ ((LIST).farg_mask |= (unsigned int) 1 << (LIST).fanum, \ (LIST).fargs[(LIST).fanum] = ((float*)(LIST).aptr)[-1] = (float)(VAL), \ (LIST).fanum++, \ 0) \ : (((float*)(LIST).aptr)[-1] = (float)(VAL), \ 0)), \ (LIST).anum++, \ 0)) #define _av_double(LIST,VAL) \ ((__avword*)(((uintptr_t)(LIST).aptr+15)&-8) > (LIST).eptr \ ? -1 : \ ((LIST).aptr = (__avword*)(((uintptr_t)(LIST).aptr+15)&-8), \ ((LIST).anum == (LIST).fanum && (LIST).fanum < __AV_FARG_NUM \ ? /* only floating-point arguments so far */ \ ((LIST).darg_mask |= (unsigned int) 1 << (LIST).fanum, \ (LIST).dargs[(LIST).fanum] = ((double*)(LIST).aptr)[-1] = (double)(VAL), \ (LIST).fanum++, \ 0) \ : (((double*)(LIST).aptr)[-1] = (double)(VAL), \ 0)), \ (LIST).anum++, \ 0)) #endif #if defined(__mipsn32__) || defined(__mips64__) /* Up to 8 leading float or double non-varargs args can be passed in * float registers, but we also push them into the corresponding int * registers in case of varargs. */ #define _av_float(LIST,VAL) \ ((LIST).aptr >= (LIST).eptr \ ? -1 : \ (((LIST).anum < 8 \ ? ((LIST).farg_mask |= (1 << (LIST).anum), \ (LIST).fargs[(LIST).anum] = *(float*)(LIST).aptr = (float)(VAL)) \ : (*(float*)(LIST).aptr = (float)(VAL))), \ (LIST).anum++, \ (LIST).aptr++, \ 0)) #define _av_double(LIST,VAL) \ ((LIST).aptr >= (LIST).eptr \ ? -1 : \ (((LIST).anum < 8 && ((LIST).darg_mask |= (1 << (LIST).anum))), \ *(double*)(LIST).aptr = (double)(VAL), \ (LIST).anum++, \ (LIST).aptr++, \ 0)) #endif #if defined(__sparc64__) /* Up to 16 leading float or double non-varargs args can be passed in * float registers, but we also push them into the corresponding int * registers in case of varargs. */ #define _av_float(LIST,VAL) \ ((LIST).aptr >= (LIST).eptr \ ? -1 : \ ((LIST).aptr++, \ ((LIST).anum < 16 && ((LIST).darg_mask |= (1 << (LIST).anum))), \ (((float*)(LIST).aptr)[-1] = (float)(VAL)), \ (LIST).anum++, \ 0)) #define _av_double(LIST,VAL) \ ((LIST).aptr >= (LIST).eptr \ ? -1 : \ ((LIST).aptr++, \ ((LIST).anum < 16 && ((LIST).darg_mask |= (1 << (LIST).anum))), \ ((double*)(LIST).aptr)[-1] = (double)(VAL), \ (LIST).anum++, \ 0)) #endif #if defined(__alpha__) #define _av_double(LIST,VAL) \ ((LIST).aptr >= (LIST).eptr \ ? -1 : \ ((LIST).aptr++, \ ((double*)(LIST).aptr)[-1] = (double)(VAL), \ 0)) #define _av_float(LIST,VAL) \ ((LIST).aptr >= (LIST).eptr \ ? -1 \ : ((LIST).aptr++, \ ((LIST).aptr > &(LIST).args[6] \ ? /* These args will be fetched from memory using "lds" instructions */ \ /* therefore store them as floats */ \ (*(float*)((LIST).aptr-1) = (float)(VAL)) \ : /* The first 6 args will be put into registers by "ldt" instructions */ \ /* (see avcall-alpha.c!). Therefore store them as doubles. */ \ /* When viewed as floats, the value will be the correct one. */\ (*(double*)((LIST).aptr-1) = (double)(float)(VAL))), \ 0)) #endif #if defined(__hppa__) && !defined(__hppa64__) #define _av_float(LIST,VAL) \ ((LIST).aptr <= (LIST).eptr \ ? -1 : \ ((LIST).aptr--, \ ((LIST).aptr >= &(LIST).args_end[-4] \ ? ((LIST).farg_mask |= (unsigned int)1 << ((LIST).args_end - (LIST).aptr - 1), 0) \ : 0), \ *(float*)(LIST).aptr = (float)(VAL), \ 0)) #define _av_double(LIST,VAL) \ ((__avword*)(((uintptr_t)(LIST).aptr-sizeof(double)) & -(intptr_t)sizeof(double)) < (LIST).eptr \ ? -1 : \ ((LIST).aptr = (__avword*)(((uintptr_t)(LIST).aptr-sizeof(double)) & -(intptr_t)sizeof(double)), \ ((LIST).aptr >= &(LIST).args_end[-4] \ ? ((LIST).darg_mask |= (unsigned int)1 << ((LIST).args_end - (LIST).aptr - 1), 0) \ : 0), \ *(double*)(LIST).aptr = (double)(VAL), \ 0)) #endif #if defined(__hppa64__) #define _av_float(LIST,VAL) \ ((LIST).aptr >= (LIST).eptr \ ? -1 : \ (((LIST).aptr < &(LIST).args[8] \ ? ((LIST).farg_mask |= (unsigned int)1 << ((LIST).aptr - (LIST).args), 0) \ : 0), \ (LIST).aptr++, \ ((float*)(LIST).aptr)[-1] = (float)(VAL), \ 0)) #define _av_double(LIST,VAL) \ ((LIST).aptr >= (LIST).eptr \ ? -1 : \ (((LIST).aptr < &(LIST).args[8] \ ? ((LIST).darg_mask |= (unsigned int)1 << ((LIST).aptr - (LIST).args), 0) \ : 0), \ (LIST).aptr++, \ ((double*)(LIST).aptr)[-1] = (double)(VAL), \ 0)) #endif #if defined(__arm__) && !defined(__armhf__) #define _av_float(LIST,VAL) \ ((LIST).aptr >= (LIST).eptr \ ? -1 : \ ((LIST).aptr++, \ ((float*)(LIST).aptr)[-1] = (float)(VAL), \ 0)) #define _av_double(LIST,VAL) \ ((__avword*)(((uintptr_t)(LIST).aptr + 15) & -8) > (LIST).eptr \ ? -1 : \ ((LIST).aptr = (__avword*)(((uintptr_t)(LIST).aptr + 15) & -8), \ (LIST).tmp._double = (double)(VAL), \ (LIST).aptr[-2] = (LIST).tmp.words[0], \ (LIST).aptr[-1] = (LIST).tmp.words[1], \ 0)) #endif #if defined(__armhf__) /* Up to 16 float or up to 8 double args can be passed in float registers. * But they overlap: {s0,s1} = d0, {s2,s3} = d1, and so on. */ #define _av_float(LIST,VAL) \ ((LIST).fanum <= 15 \ ? ((LIST).fargs[(LIST).fanum] = (float)(VAL), \ (LIST).farg_mask |= ((unsigned int) 1) << (LIST).fanum, \ (LIST).fanum++, \ 0) \ : ((LIST).aptr >= (LIST).eptr \ ? -1 : \ ((*(float*)(LIST).aptr = (float)(VAL)), \ (LIST).aptr++, \ 0))) #define _av_double(LIST,VAL) \ (((LIST).fanum % 2 ? ((LIST).fanum++, 0) : 0), \ ((LIST).fanum <= 14 \ ? ((LIST).dargs[(LIST).fanum / 2] = (double)(VAL), \ (LIST).darg_mask |= ((unsigned int) 1) << ((LIST).fanum / 2), \ (LIST).fanum += 2, \ 0) \ : ((LIST).aptr + 2 > (LIST).eptr \ ? -1 : \ ((*(double*)(LIST).aptr = (double)(VAL)), \ (LIST).aptr += 2, \ 0)))) #endif #if defined(__arm64__) || defined(__riscv64__) /* Up to __AV_FARG_NUM float or double args can be passed in float registers. The remaining float or double args are passed in the general-purpose argument sequence (first the integer registers, then the stack.) */ #define _av_float(LIST,VAL) \ ((LIST).fanum < __AV_FARG_NUM \ ? ((LIST).fargs[(LIST).fanum] = (float)(VAL), \ (LIST).farg_mask |= ((unsigned int) 1) << (LIST).fanum, \ (LIST).fanum++, \ 0) \ : ((LIST).aptr >= (LIST).eptr \ ? -1 : \ ((*(float*)(LIST).aptr = (float)(VAL)), \ (LIST).aptr++, \ 0))) #define _av_double(LIST,VAL) \ ((LIST).fanum < __AV_FARG_NUM \ ? ((LIST).dargs[(LIST).fanum] = (double)(VAL), \ (LIST).darg_mask |= ((unsigned int) 1) << (LIST).fanum, \ (LIST).fanum++, \ 0) \ : ((LIST).aptr >= (LIST).eptr \ ? -1 : \ ((*(double*)(LIST).aptr = (double)(VAL)), \ (LIST).aptr++, \ 0))) #endif #if defined(__powerpc_aix__) /* Up to __AV_FARG_NUM float or double non-varargs args can be passed in * float registers, but we also push them into the corresponding int * registers in case of varargs. */ #define _av_float(LIST,VAL) \ ((LIST).aptr >= (LIST).eptr \ ? -1 : \ ((LIST).aptr++, \ ((float*)(LIST).aptr)[-1] = (float)(VAL), \ (LIST).faptr < &(LIST).fargs[__AV_FARG_NUM] && (*(LIST).faptr++ = (double)(float)(VAL)), \ 0)) #define _av_double(LIST,VAL) \ ((LIST).aptr + 2 > (LIST).eptr \ ? -1 : \ ((LIST).aptr += 2, \ (LIST).tmp._double = (double)(VAL), \ (LIST).aptr[-2] = (LIST).tmp.words[0], \ (LIST).aptr[-1] = (LIST).tmp.words[1], \ (LIST).faptr < &(LIST).fargs[__AV_FARG_NUM] && (*(LIST).faptr++ = (LIST).tmp._double), \ 0)) #endif #if defined(__powerpc_sysv4__) /* Up to __AV_FARG_NUM float or double non-varargs args can be passed in * float registers, without occupying space in the general registers. */ #define _av_float(LIST,VAL) \ ((LIST).faptr < &(LIST).fargs[__AV_FARG_NUM] \ ? ((*(LIST).faptr++ = (double)(float)(VAL)), 0) \ : ((LIST).aptr >= (LIST).eptr \ ? -1 : \ ((LIST).aptr++, \ ((float*)(LIST).aptr)[-1] = (float)(VAL), \ 0))) #define _av_double(LIST,VAL) \ ((LIST).faptr < &(LIST).fargs[__AV_FARG_NUM] \ ? ((*(LIST).faptr++ = (double)(VAL)), 0) \ : ((LIST).aptr + 2 > (LIST).eptr \ ? -1 : \ ((LIST).aptr += 2, \ (LIST).tmp._double = (double)(VAL), \ (LIST).aptr[-2] = (LIST).tmp.words[0], \ (LIST).aptr[-1] = (LIST).tmp.words[1], \ 0))) #endif #if defined(__powerpc64__) /* Up to __AV_FARG_NUM float or double non-varargs args can be passed in * float registers, but we also push them into the corresponding int * registers in case of varargs. */ #if defined(_AIX) #define _av_float(LIST,VAL) \ ((LIST).aptr >= (LIST).eptr \ ? -1 : \ ((LIST).aptr++, \ ((float*)(LIST).aptr)[(LIST).flags & __AV_AIXCC_FLOAT_ARGS ? -2 : -1] = (float)(VAL), \ (LIST).faptr < &(LIST).fargs[__AV_FARG_NUM] && (*(LIST).faptr++ = (double)(float)(VAL)), \ 0)) #elif defined(_LITTLE_ENDIAN) #define _av_float(LIST,VAL) \ ((LIST).aptr >= (LIST).eptr \ ? -1 : \ ((LIST).aptr++, \ ((float*)(LIST).aptr)[-2] = (float)(VAL), \ (LIST).faptr < &(LIST).fargs[__AV_FARG_NUM] && (*(LIST).faptr++ = (double)(float)(VAL)), \ 0)) #else /* _BIG_ENDIAN */ #define _av_float(LIST,VAL) \ ((LIST).aptr >= (LIST).eptr \ ? -1 : \ ((LIST).aptr++, \ ((float*)(LIST).aptr)[-1] = (float)(VAL), \ (LIST).faptr < &(LIST).fargs[__AV_FARG_NUM] && (*(LIST).faptr++ = (double)(float)(VAL)), \ 0)) #endif #define _av_double(LIST,VAL) \ ((LIST).aptr >= (LIST).eptr \ ? -1 : \ ((LIST).aptr++, \ ((double*)(LIST).aptr)[-1] = (double)(VAL), \ (LIST).faptr < &(LIST).fargs[__AV_FARG_NUM] && (*(LIST).faptr++ = (double)(VAL)), \ 0)) #endif #if defined(__ia64__) /* Up to 8 leading float or double non-varargs args can be passed in * float registers, but we also push them into the corresponding int * registers in case of varargs. */ #define _av_float(LIST,VAL) \ ((LIST).aptr >= (LIST).eptr \ ? -1 : \ ((*(float*)(LIST).aptr = (float)(VAL)), \ ((LIST).faptr < &(LIST).fargs[__AV_FARG_NUM] && (*(LIST).faptr = *(float*)(LIST).aptr, (LIST).faptr++)), \ (LIST).aptr++, \ 0)) #define _av_double(LIST,VAL) \ ((LIST).aptr >= (LIST).eptr \ ? -1 : \ (*(double*)(LIST).aptr = (double)(VAL), \ ((LIST).faptr < &(LIST).fargs[__AV_FARG_NUM] && (*(LIST).faptr = *(double*)(LIST).aptr, (LIST).faptr++)), \ (LIST).aptr++, \ 0)) #endif #if defined(__x86_64_sysv__) /* Up to 8 leading float or double args can be passed in float registers. */ #define _av_float(LIST,VAL) \ ((LIST).faptr < &(LIST).fargs[__AV_FARG_NUM] \ ? (*(LIST).faptr = 0.0, *(float*)(LIST).faptr = (float)(VAL), \ (LIST).faptr++, \ 0) \ : ((LIST).aptr >= (LIST).eptr \ ? -1 : \ ((*(float*)(LIST).aptr = (float)(VAL)), \ (LIST).aptr++, \ 0))) #define _av_double(LIST,VAL) \ ((LIST).faptr < &(LIST).fargs[__AV_FARG_NUM] \ ? (*(LIST).faptr = (double)(VAL), \ (LIST).faptr++, \ 0) \ : ((LIST).aptr >= (LIST).eptr \ ? -1 : \ ((*(double*)(LIST).aptr = (double)(VAL)), \ (LIST).aptr++, \ 0))) #endif #if defined(__x86_64_ms__) /* The float or double args among the first 4 argument words are passed * in floating-point registers, but we also push them into the * corresponding integer registers in case of varargs. */ #define _av_float(LIST,VAL) \ ((LIST).aptr >= (LIST).eptr \ ? -1 : \ (((LIST).anum < 4 \ ? ((LIST).farg_mask |= (1 << (LIST).anum), \ (LIST).fargs[(LIST).anum] = *(float*)(LIST).aptr = (float)(VAL)) \ : (*(float*)(LIST).aptr = (float)(VAL))), \ (LIST).anum++, \ (LIST).aptr++, \ 0)) #define _av_double(LIST,VAL) \ ((LIST).aptr >= (LIST).eptr \ ? -1 : \ (((LIST).anum < 4 \ ? ((LIST).darg_mask |= (1 << (LIST).anum), \ (LIST).dargs[(LIST).anum] = *(double*)(LIST).aptr = (double)(VAL)) \ : (*(double*)(LIST).aptr = (double)(VAL))), \ (LIST).anum++, \ (LIST).aptr++, \ 0)) #endif #if defined(__s390__) && !defined(__s390x__) /* Up to 2 float or double non-varargs args can be passed in * float registers, without occupying space in the general registers. */ #define _av_float(LIST,VAL) \ ((LIST).fanum < __AV_FARG_NUM \ ? ((LIST).fargs[(LIST).fanum] = (float)(VAL), \ (LIST).farg_mask |= ((unsigned int) 1) << (LIST).fanum, \ (LIST).fanum++, \ 0) \ : ((LIST).aptr >= (LIST).eptr \ ? -1 : \ ((LIST).aptr++, \ ((float*)(LIST).aptr)[-1] = (float)(VAL), \ 0))) #define _av_double(LIST,VAL) \ ((LIST).fanum < __AV_FARG_NUM \ ? ((LIST).dargs[(LIST).fanum] = (double)(VAL), \ (LIST).darg_mask |= ((unsigned int) 1) << (LIST).fanum, \ (LIST).fanum++, \ 0) \ : ((LIST).aptr + 2 > (LIST).eptr \ ? -1 : \ ((LIST).aptr += 2, \ (LIST).tmp._double = (double)(VAL), \ (LIST).aptr[-2] = (LIST).tmp.words[0], \ (LIST).aptr[-1] = (LIST).tmp.words[1], \ 0))) #endif #if defined(__s390x__) /* Up to __AV_FARG_NUM float or double args can be passed in float registers. */ #define _av_float(LIST,VAL) \ ((LIST).fanum < __AV_FARG_NUM \ ? ((LIST).fargs[(LIST).fanum] = (float)(VAL), \ (LIST).farg_mask |= ((unsigned int) 1) << (LIST).fanum, \ (LIST).fanum++, \ 0) \ : ((LIST).aptr >= (LIST).eptr \ ? -1 : \ ((LIST).aptr++, \ ((float*)(LIST).aptr)[-1] = (float)(VAL), \ 0))) #define _av_double(LIST,VAL) \ ((LIST).fanum < __AV_FARG_NUM \ ? ((LIST).dargs[(LIST).fanum] = (double)(VAL), \ (LIST).darg_mask |= ((unsigned int) 1) << (LIST).fanum, \ (LIST).fanum++, \ 0) \ : ((LIST).aptr >= (LIST).eptr \ ? -1 : \ ((*(double*)(LIST).aptr = (double)(VAL)), \ (LIST).aptr++, \ 0))) #endif #if defined(__riscv32__) /* Up to __AV_FARG_NUM float or double args can be passed in float registers. The remaining float or double args are passed in the general-purpose argument sequence (first the integer registers, then the stack.) */ #define _av_float(LIST,VAL) \ ((LIST).fanum < __AV_FARG_NUM \ ? ((LIST).fargs[(LIST).fanum] = (float)(VAL), \ (LIST).farg_mask |= ((unsigned int) 1) << (LIST).fanum, \ (LIST).fanum++, \ 0) \ : ((LIST).aptr >= (LIST).eptr \ ? -1 : \ ((*(float*)(LIST).aptr) = (float)(VAL), \ (LIST).aptr++, \ 0))) #define _av_double(LIST,VAL) \ ((LIST).fanum < __AV_FARG_NUM \ ? ((LIST).dargs[(LIST).fanum] = (double)(VAL), \ (LIST).darg_mask |= ((unsigned int) 1) << (LIST).fanum, \ (LIST).fanum++, \ 0) \ : ((LIST).aptr + 2 > (LIST).eptr \ ? -1 : \ ((LIST).aptr += 2, \ (LIST).tmp._double = (double)(VAL), \ (LIST).aptr[-2] = (LIST).tmp.words[0], \ (LIST).aptr[-1] = (LIST).tmp.words[1], \ 0))) #endif /* * structure argument types */ extern void avcall_structcpy (void* dest, const void* src, unsigned long size, unsigned long alignment); #define __av_struct_copy(TYPE_SIZE,TYPE_ALIGN,PLACE,VAL_ADDR) \ avcall_structcpy(PLACE,VAL_ADDR,TYPE_SIZE,TYPE_ALIGN) /* Structure argument alignment. */ #if defined(__i386__) && defined(_MSC_VER) /* In MSVC, doubles inside structures have alignment 8, i.e. * __AV_alignof(double) = 8, but doubles (and also structures containing * doubles) are passed on the stack with alignment 4. Looks really weird. */ #define __av_struct_alignment(TYPE_ALIGN) \ ((TYPE_ALIGN) <= 4 ? (TYPE_ALIGN) : 4) #else #define __av_struct_alignment(TYPE_ALIGN) \ (TYPE_ALIGN) #endif #if defined(__i386__) || defined(__mips__) || defined(__mipsn32__) || defined(__mips64__) || defined(__alpha__) || defined(__hppa64__) || defined(__arm__) || defined(__armhf__) || defined(__powerpc_aix__) || defined(__powerpc64__) || defined(__ia64__) /* Structures are passed as fully aligned structures on the arg stack. * We align the aptr, store the structure, then fill to word alignment. * Single-small-integer structures are NOT promoted to integers and have * different alignment. */ /* little endian -> small structures < 1 word are adjusted to the left (i.e. occupy the low bits of the word) */ #if defined(__i386__) || defined(__alpha__) || (defined(__arm__) && !defined(__armhf__) && defined(__ARMEL__)) #define __av_struct(LIST,TYPE_SIZE,TYPE_ALIGN,VAL) \ ((__avword*)(((uintptr_t)(LIST).aptr+(TYPE_SIZE)+__av_struct_alignment(TYPE_ALIGN)-1) & -(intptr_t)__av_struct_alignment(TYPE_ALIGN)) > (LIST).eptr \ ? -1 : \ (__av_struct_copy(TYPE_SIZE,TYPE_ALIGN,(void*)((((uintptr_t)(LIST).aptr+(TYPE_SIZE)+__av_struct_alignment(TYPE_ALIGN)-1) & -(intptr_t)__av_struct_alignment(TYPE_ALIGN)) - (TYPE_SIZE)),VAL), \ (LIST).aptr = (__avword*)(((((uintptr_t)(LIST).aptr+(TYPE_SIZE)+__av_struct_alignment(TYPE_ALIGN)-1) & -(intptr_t)__av_struct_alignment(TYPE_ALIGN)) +sizeof(__avword)-1) & -(intptr_t)sizeof(__avword)), \ 0)) #endif #if defined(__ia64__) /* With GCC < 3, types larger than a word have 2-word alignment. */ #define __av_struct(LIST,TYPE_SIZE,TYPE_ALIGN,VAL) \ (((LIST).flags & __AV_OLDGCC_STRUCT_ARGS) \ ? ((LIST).aptr = (__avword*)(((uintptr_t)(LIST).aptr+(TYPE_SIZE)+__av_struct_alignment(TYPE_ALIGN)-1) & -(intptr_t)__av_struct_alignment(TYPE_ALIGN)), \ ((TYPE_SIZE) > sizeof(__avword) && (((LIST).aptr - &(LIST).args[0]) & 1) ? ++(LIST).aptr : 0), \ ((LIST).aptr > (LIST).eptr \ ? -1 : \ (__av_struct_copy(TYPE_SIZE,TYPE_ALIGN,(void*)((uintptr_t)(LIST).aptr-(TYPE_SIZE)),VAL), \ (LIST).aptr = (__avword*)(((uintptr_t)(LIST).aptr+sizeof(__avword)-1) & -(intptr_t)sizeof(__avword)), \ 0))) \ : ((__avword*)(((uintptr_t)(LIST).aptr+(TYPE_SIZE)+__av_struct_alignment(TYPE_ALIGN)-1) & -(intptr_t)__av_struct_alignment(TYPE_ALIGN)) > (LIST).eptr \ ? -1 : \ (__av_struct_copy(TYPE_SIZE,TYPE_ALIGN,(void*)((((uintptr_t)(LIST).aptr+(TYPE_SIZE)+__av_struct_alignment(TYPE_ALIGN)-1) & -(intptr_t)__av_struct_alignment(TYPE_ALIGN)) - (TYPE_SIZE)),VAL), \ (LIST).aptr = (__avword*)(((((uintptr_t)(LIST).aptr+(TYPE_SIZE)+__av_struct_alignment(TYPE_ALIGN)-1) & -(intptr_t)__av_struct_alignment(TYPE_ALIGN)) +sizeof(__avword)-1) & -(intptr_t)sizeof(__avword)), \ 0))) #endif /* small structures < 1 word are adjusted depending on compiler */ #if defined(__mips__) && !defined(__mipsn32__) && !defined(__mips64__) #define __av_struct_leftadjusted(LIST,TYPE_SIZE,TYPE_ALIGN,VAL) \ ((__avword*)(((uintptr_t)(LIST).aptr+(TYPE_SIZE)+(TYPE_ALIGN)-1) & -(intptr_t)(TYPE_ALIGN)) > (LIST).eptr \ ? -1 : \ (++(LIST).anum, \ __av_struct_copy(TYPE_SIZE,TYPE_ALIGN,(void*)((((uintptr_t)(LIST).aptr+(TYPE_SIZE)+(TYPE_ALIGN)-1) & -(intptr_t)(TYPE_ALIGN)) - (TYPE_SIZE)),VAL), \ (LIST).aptr = (__avword*)(((((uintptr_t)(LIST).aptr+(TYPE_SIZE)+(TYPE_ALIGN)-1) & -(intptr_t)(TYPE_ALIGN)) +sizeof(__avword)-1) & -(intptr_t)sizeof(__avword)), \ 0)) #define __av_struct_rightadjusted(LIST,TYPE_SIZE,TYPE_ALIGN,VAL) \ ((__avword*)(((((uintptr_t)(LIST).aptr+(TYPE_SIZE)+(TYPE_ALIGN)-1) & -(intptr_t)(TYPE_ALIGN)) + sizeof(__avword)-1) & -(intptr_t)sizeof(__avword)) > (LIST).eptr \ ? -1 : \ ((LIST).aptr = (__avword*)(((((uintptr_t)(LIST).aptr+(TYPE_SIZE)+(TYPE_ALIGN)-1) & -(intptr_t)(TYPE_ALIGN)) + sizeof(__avword)-1) & -(intptr_t)sizeof(__avword)), \ ++(LIST).anum, \ __av_struct_copy(TYPE_SIZE,TYPE_ALIGN,(void*)((uintptr_t)(LIST).aptr-(TYPE_SIZE)),VAL),\ 0)) #define __av_struct(LIST,TYPE_SIZE,TYPE_ALIGN,VAL) \ ((LIST).flags & __AV_SGICC_STRUCT_ARGS \ ? /* SGI MIPS cc passes small structures left-adjusted, although big-endian! */\ __av_struct_leftadjusted(LIST,TYPE_SIZE,TYPE_ALIGN,VAL) \ : /* SGI MIPS gcc passes small structures within the first four words left- \ * adjusted, for compatibility with cc. But structures in memory are passed \ * right-adjusted!! See gcc-2.6.3/config/mips/mips.c:function_arg(). \ */ \ ((LIST).aptr < &(LIST).args[4] \ ? __av_struct_leftadjusted(LIST,TYPE_SIZE,TYPE_ALIGN,VAL) \ : __av_struct_rightadjusted(LIST,TYPE_SIZE,TYPE_ALIGN,VAL))) #endif #if defined(__mipsn32__) || defined(__mips64__) /* When a structure is passed (partially) in registers, it is passed in the * integer registers, except that doubles within the structure are passed in * the floating point registers. Instead of distinguishing these cases, we * always pass the structure in both the integer and the floating point * registers. */ #define __av_struct_leftadjusted(LIST,TYPE_SIZE,TYPE_ALIGN,VAL) \ ((__avword*)(((uintptr_t)(LIST).aptr+(TYPE_SIZE)+(TYPE_ALIGN)-1) & -(intptr_t)(TYPE_ALIGN)) > (LIST).eptr \ ? -1 : \ (__av_struct_copy(TYPE_SIZE,TYPE_ALIGN,(void*)((((uintptr_t)(LIST).aptr+(TYPE_SIZE)+(TYPE_ALIGN)-1) & -(intptr_t)(TYPE_ALIGN)) - (TYPE_SIZE)),VAL), \ (LIST).aptr = (__avword*)(((((uintptr_t)(LIST).aptr+(TYPE_SIZE)+(TYPE_ALIGN)-1) & -(intptr_t)(TYPE_ALIGN)) +sizeof(__avword)-1) & -(intptr_t)sizeof(__avword)), \ ((LIST).anum < 8 && ((LIST).darg_mask |= (-1 << (LIST).anum))), \ (LIST).anum += (((((TYPE_SIZE)+(TYPE_ALIGN)-1) & -(intptr_t)(TYPE_ALIGN)) + sizeof(__avword)-1) & -(intptr_t)sizeof(__avword))/sizeof(__avword), \ (LIST).darg_mask &= (1 << ((LIST).anum < 8 ? (LIST).anum : 8)) - 1, \ 0)) #define __av_struct_rightadjusted(LIST,TYPE_SIZE,TYPE_ALIGN,VAL) \ ((__avword*)(((((uintptr_t)(LIST).aptr+(TYPE_SIZE)+(TYPE_ALIGN)-1) & -(intptr_t)(TYPE_ALIGN)) + sizeof(__avword)-1) & -(intptr_t)sizeof(__avword)) > (LIST).eptr \ ? -1 : \ ((LIST).aptr = (__avword*)(((((uintptr_t)(LIST).aptr+(TYPE_SIZE)+(TYPE_ALIGN)-1) & -(intptr_t)(TYPE_ALIGN)) + sizeof(__avword)-1) & -(intptr_t)sizeof(__avword)), \ __av_struct_copy(TYPE_SIZE,TYPE_ALIGN,(void*)((uintptr_t)(LIST).aptr-(TYPE_SIZE)),VAL), \ ((LIST).anum < 8 && ((LIST).darg_mask |= (-1 << (LIST).anum))), \ (LIST).anum += (((((TYPE_SIZE)+(TYPE_ALIGN)-1) & -(intptr_t)(TYPE_ALIGN)) + sizeof(__avword)-1) & -(intptr_t)sizeof(__avword))/sizeof(__avword), \ (LIST).darg_mask &= (1 << ((LIST).anum < 8 ? (LIST).anum : 8)) - 1, \ 0)) #define __av_struct(LIST,TYPE_SIZE,TYPE_ALIGN,VAL) \ ((LIST).flags & __AV_SGICC_STRUCT_ARGS \ ? /* SGI MIPS cc and gcc >= 3.4 passes small structures left-adjusted, although big-endian! */\ __av_struct_leftadjusted(LIST,TYPE_SIZE,TYPE_ALIGN,VAL) \ : /* SGI MIPS gcc < 3.4 passes small structures right-adjusted. */ \ __av_struct_rightadjusted(LIST,TYPE_SIZE,TYPE_ALIGN,VAL)) #endif #if (defined(__armhf__) && defined(__ARMEL__)) #define __av_struct(LIST,TYPE_SIZE,TYPE_ALIGN,VAL) \ ((((LIST).ianum*sizeof(__avword)+(TYPE_SIZE)+(TYPE_ALIGN)-1) & -(intptr_t)(TYPE_ALIGN)) <= __AV_IARG_NUM*sizeof(__avword) \ ? ((LIST).ianum += (((((TYPE_SIZE)+(TYPE_ALIGN)-1) & -(intptr_t)(TYPE_ALIGN)) + sizeof(__avword)-1) & -(intptr_t)sizeof(__avword))/sizeof(__avword), \ __av_struct_copy(TYPE_SIZE,TYPE_ALIGN,(void*)((uintptr_t)&(LIST).args[(LIST).ianum]-(TYPE_SIZE)),VAL), \ 0) \ : ((LIST).aptr == &(LIST).args[__AV_IARG_NUM] \ ? /* split case */ \ ((__avword*)(((((uintptr_t)&(LIST).args[(LIST).ianum]+(TYPE_SIZE)+(TYPE_ALIGN)-1) & -(intptr_t)(TYPE_ALIGN)) + sizeof(__avword)-1) & -(intptr_t)sizeof(__avword)) > (LIST).eptr \ ? -1 : \ (__av_struct_copy(TYPE_SIZE,TYPE_ALIGN,(void*)((((uintptr_t)&(LIST).args[(LIST).ianum]+(TYPE_SIZE)+(TYPE_ALIGN)-1) & -(intptr_t)(TYPE_ALIGN)) - (TYPE_SIZE)),VAL), \ (LIST).aptr = (__avword*)(((((uintptr_t)&(LIST).args[(LIST).ianum]+(TYPE_SIZE)+(TYPE_ALIGN)-1) & -(intptr_t)(TYPE_ALIGN)) + sizeof(__avword)-1) & -(intptr_t)sizeof(__avword)), \ (LIST).ianum = __AV_IARG_NUM, \ 0)) \ : ((__avword*)(((((uintptr_t)(LIST).aptr+(TYPE_SIZE)+(TYPE_ALIGN)-1) & -(intptr_t)(TYPE_ALIGN)) + sizeof(__avword)-1) & -(intptr_t)sizeof(__avword)) > (LIST).eptr \ ? -1 : \ (__av_struct_copy(TYPE_SIZE,TYPE_ALIGN,(void*)((((uintptr_t)(LIST).aptr+(TYPE_SIZE)+(TYPE_ALIGN)-1) & -(intptr_t)(TYPE_ALIGN)) - (TYPE_SIZE)),VAL), \ (LIST).aptr = (__avword*)(((((uintptr_t)(LIST).aptr+(TYPE_SIZE)+(TYPE_ALIGN)-1) & -(intptr_t)(TYPE_ALIGN)) + sizeof(__avword)-1) & -(intptr_t)sizeof(__avword)), \ (LIST).ianum = __AV_IARG_NUM, \ 0)))) #endif #if defined(__powerpc__) || defined(__powerpc64__) #define __av_struct_leftadjusted(LIST,TYPE_SIZE,TYPE_ALIGN,VAL) \ ((__avword*)(((uintptr_t)(LIST).aptr+(TYPE_SIZE)+(TYPE_ALIGN)-1) & -(intptr_t)(TYPE_ALIGN)) > (LIST).eptr \ ? -1 : \ (__av_struct_copy(TYPE_SIZE,TYPE_ALIGN,(void*)((((uintptr_t)(LIST).aptr+(TYPE_SIZE)+(TYPE_ALIGN)-1) & -(intptr_t)(TYPE_ALIGN)) - (TYPE_SIZE)),VAL), \ (LIST).aptr = (__avword*)(((((uintptr_t)(LIST).aptr+(TYPE_SIZE)+(TYPE_ALIGN)-1) & -(intptr_t)(TYPE_ALIGN)) +sizeof(__avword)-1) & -(intptr_t)sizeof(__avword)), \ 0)) #define __av_struct_rightadjusted(LIST,TYPE_SIZE,TYPE_ALIGN,VAL) \ ((__avword*)(((((uintptr_t)(LIST).aptr+(TYPE_SIZE)+(TYPE_ALIGN)-1) & -(intptr_t)(TYPE_ALIGN)) + sizeof(__avword)-1) & -(intptr_t)sizeof(__avword)) > (LIST).eptr \ ? -1 : \ ((LIST).aptr = (__avword*)(((((uintptr_t)(LIST).aptr+(TYPE_SIZE)+(TYPE_ALIGN)-1) & -(intptr_t)(TYPE_ALIGN)) + sizeof(__avword)-1) & -(intptr_t)sizeof(__avword)), \ __av_struct_copy(TYPE_SIZE,TYPE_ALIGN,(void*)((uintptr_t)(LIST).aptr-(TYPE_SIZE)),VAL), \ 0)) #if (defined(__powerpc__) && !defined(__powerpc64__)) || (defined(__powerpc64__) && defined(_BIG_ENDIAN)) #define __av_struct(LIST,TYPE_SIZE,TYPE_ALIGN,VAL) \ ((LIST).flags & __AV_AIXCC_STRUCT_ARGS \ ? /* AIX cc and xlc pass small structures left-adjusted, although big-endian! */\ __av_struct_leftadjusted(LIST,TYPE_SIZE,TYPE_ALIGN,VAL) \ : /* gcc passes small structures right-adjusted. */ \ __av_struct_rightadjusted(LIST,TYPE_SIZE,TYPE_ALIGN,VAL)) #endif #if (defined(__powerpc64__) && defined(_LITTLE_ENDIAN)) #define __av_struct(LIST,TYPE_SIZE,TYPE_ALIGN,VAL) \ __av_struct_leftadjusted(LIST,TYPE_SIZE,TYPE_ALIGN,VAL) #endif #endif /* big endian -> small structures < 1 word are adjusted to the right (i.e. occupy the high bits of the word) */ #if (defined(__arm__) && !defined(__armhf__) && !defined(__ARMEL__)) #define __av_struct(LIST,TYPE_SIZE,TYPE_ALIGN,VAL) \ ((__avword*)(((((uintptr_t)(LIST).aptr+(TYPE_SIZE)+(TYPE_ALIGN)-1) & -(intptr_t)(TYPE_ALIGN)) + sizeof(__avword)-1) & -(intptr_t)sizeof(__avword)) > (LIST).eptr \ ? -1 : \ ((LIST).aptr = (__avword*)(((((uintptr_t)(LIST).aptr+(TYPE_SIZE)+(TYPE_ALIGN)-1) & -(intptr_t)(TYPE_ALIGN)) + sizeof(__avword)-1) & -(intptr_t)sizeof(__avword)), \ __av_struct_copy(TYPE_SIZE,TYPE_ALIGN,(void*)((uintptr_t)(LIST).aptr-(TYPE_SIZE)),VAL), \ 0)) #endif #if (defined(__armhf__) && !defined(__ARMEL__)) #define __av_struct(LIST,TYPE_SIZE,TYPE_ALIGN,VAL) \ ((((LIST).ianum*sizeof(__avword)+(TYPE_SIZE)+(TYPE_ALIGN)-1) & -(intptr_t)(TYPE_ALIGN)) <= __AV_IARG_NUM*sizeof(__avword) \ ? ((LIST).ianum += (((((TYPE_SIZE)+(TYPE_ALIGN)-1) & -(intptr_t)(TYPE_ALIGN)) + sizeof(__avword)-1) & -(intptr_t)sizeof(__avword))/sizeof(__avword), \ __av_struct_copy(TYPE_SIZE,TYPE_ALIGN,(void*)((uintptr_t)&(LIST).args[(LIST).ianum]-(TYPE_SIZE)),VAL), \ 0) \ : ((LIST).aptr == &(LIST).args[__AV_IARG_NUM] \ ? /* split case */ \ ((__avword*)(((((uintptr_t)&(LIST).args[(LIST).ianum]+(TYPE_SIZE)+(TYPE_ALIGN)-1) & -(intptr_t)(TYPE_ALIGN)) + sizeof(__avword)-1) & -(intptr_t)sizeof(__avword)) > (LIST).eptr \ ? -1 : \ ((LIST).aptr = (__avword*)(((((uintptr_t)&(LIST).args[(LIST).ianum]+(TYPE_SIZE)+(TYPE_ALIGN)-1) & -(intptr_t)(TYPE_ALIGN)) + sizeof(__avword)-1) & -(intptr_t)sizeof(__avword)), \ __av_struct_copy(TYPE_SIZE,TYPE_ALIGN,(void*)((uintptr_t)(LIST).aptr-(TYPE_SIZE)),VAL), \ (LIST).ianum = __AV_IARG_NUM, \ 0)) \ : ((__avword*)(((((uintptr_t)(LIST).aptr+(TYPE_SIZE)+(TYPE_ALIGN)-1) & -(intptr_t)(TYPE_ALIGN)) + sizeof(__avword)-1) & -(intptr_t)sizeof(__avword)) > (LIST).eptr \ ? -1 : \ ((LIST).aptr = (__avword*)(((((uintptr_t)(LIST).aptr+(TYPE_SIZE)+(TYPE_ALIGN)-1) & -(intptr_t)(TYPE_ALIGN)) + sizeof(__avword)-1) & -(intptr_t)sizeof(__avword)), \ __av_struct_copy(TYPE_SIZE,TYPE_ALIGN,(void*)((uintptr_t)(LIST).aptr-(TYPE_SIZE)),VAL), \ (LIST).ianum = __AV_IARG_NUM, \ 0)))) #endif #if defined(__hppa64__) /* Structures are passed left-adjusted (although big-endian!). */ #define __av_struct_leftadjusted(LIST,TYPE_SIZE,TYPE_ALIGN,VAL) \ ((__avword*)(((uintptr_t)(LIST).aptr+(TYPE_SIZE)+(TYPE_ALIGN)-1) & -(intptr_t)(TYPE_ALIGN)) > (LIST).eptr \ ? -1 : \ (__av_struct_copy(TYPE_SIZE,TYPE_ALIGN,(void*)((((uintptr_t)(LIST).aptr+(TYPE_SIZE)+(TYPE_ALIGN)-1) & -(intptr_t)(TYPE_ALIGN)) - (TYPE_SIZE)),VAL), \ (LIST).aptr = (__avword*)(((((uintptr_t)(LIST).aptr+(TYPE_SIZE)+(TYPE_ALIGN)-1) & -(intptr_t)(TYPE_ALIGN)) +sizeof(__avword)-1) & -(intptr_t)sizeof(__avword)), \ 0)) #define __av_struct(LIST,TYPE_SIZE,TYPE_ALIGN,VAL) \ __av_struct_leftadjusted(LIST,TYPE_SIZE,(TYPE_SIZE)>sizeof(__avword)?2*sizeof(__avword):(TYPE_ALIGN),VAL) #endif #endif #if defined(__m68k__) /* Structures are passed as embedded copies on the arg stack. */ #define __av_struct(LIST,TYPE_SIZE,TYPE_ALIGN,VAL) \ ((__avword*)(((uintptr_t)(LIST).aptr+(TYPE_SIZE)+sizeof(__avword)-1) & -(intptr_t)sizeof(__avword)) > (LIST).eptr \ ? -1 : \ ((LIST).aptr = (__avword*)(((uintptr_t)(LIST).aptr+(TYPE_SIZE)+sizeof(__avword)-1) & -(intptr_t)sizeof(__avword)), \ __av_struct_copy(TYPE_SIZE,TYPE_ALIGN,(void*)((uintptr_t)(LIST).aptr-(TYPE_SIZE)),VAL),\ 0)) #endif #if (defined(__sparc__) && !defined(__sparc64__)) /* Structures are passed as pointers to caller-made local copies. We * grab space for the copies from the end of the argument list space * and always use maximal (double) alignment. */ #define __av_struct(LIST,TYPE_SIZE,TYPE_ALIGN,VAL) \ (++(LIST).aptr \ > ((LIST).eptr = (__avword*)((uintptr_t)(LIST).eptr - (((TYPE_SIZE)+7)&-8)))\ ? -1 : \ (__av_struct_copy(TYPE_SIZE,TYPE_ALIGN,(void*)(LIST).eptr,VAL), \ (LIST).aptr[-1] = (__avword)(LIST).eptr, \ 0)) #endif #if defined(__sparc64__) /* Structures <= 16 bytes are passed as embedded copies on the arg stack, * left-adjusted (although big-endian!). * When a structure is passed (partially) in registers, it is passed in the * integer registers, except that floats and doubles within the structure * are passed in the floating point registers. Instead of distinguishing * these cases, we always pass the structure in both the integer and the * floating point registers. * Big structures are passed as pointers to caller-made local copies. * FIXME: Shouldn't (LIST).anum be incremented in sync with (LIST).aptr ? */ #define __av_struct(LIST,TYPE_SIZE,TYPE_ALIGN,VAL) \ ((TYPE_SIZE) > 16 \ ? (++(LIST).aptr \ > ((LIST).eptr = (__avword*)((uintptr_t)(LIST).eptr - (((TYPE_SIZE)+7)&-8)))\ ? -1 : \ (__av_struct_copy(TYPE_SIZE,TYPE_ALIGN,(void*)(LIST).eptr,VAL), \ (LIST).aptr[-1] = (__avword)(LIST).eptr, \ 0)) \ : ((__avword*)(((uintptr_t)(LIST).aptr+(TYPE_SIZE)+(TYPE_ALIGN)-1) & -(intptr_t)(TYPE_ALIGN)) > (LIST).eptr \ ? -1 : \ (__av_struct_copy(TYPE_SIZE,TYPE_ALIGN,(void*)((((uintptr_t)(LIST).aptr+(TYPE_SIZE)+(TYPE_ALIGN)-1) & -(intptr_t)(TYPE_ALIGN)) - (TYPE_SIZE)),VAL), \ (LIST).aptr = (__avword*)(((((uintptr_t)(LIST).aptr+(TYPE_SIZE)+(TYPE_ALIGN)-1) & -(intptr_t)(TYPE_ALIGN)) +sizeof(__avword)-1) & -(intptr_t)sizeof(__avword)), \ ((LIST).anum < 16 && ((LIST).darg_mask |= (-1 << (LIST).anum))), \ (LIST).anum += (((((TYPE_SIZE)+(TYPE_ALIGN)-1) & -(intptr_t)(TYPE_ALIGN)) + sizeof(__avword)-1) & -(intptr_t)sizeof(__avword))/sizeof(__avword), \ (LIST).darg_mask &= (1 << ((LIST).anum < 16 ? (LIST).anum : 16)) - 1, \ 0))) #endif #if defined(__hppa__) && !defined(__hppa64__) /* Structures <= 8 bytes are passed as embedded copies on the arg stack. * Big structures are passed as pointers (to caller-made local copies * with GCC >= 8, without copy otherwise). */ #define __av_struct(LIST,TYPE_SIZE,TYPE_ALIGN,VAL) \ ((TYPE_SIZE) > 8 \ ? (--(LIST).aptr \ < ((LIST).eptr = (__avword*)((uintptr_t)(LIST).eptr + (((TYPE_SIZE) + 7) & -8))) \ ? -1 \ : (__av_struct_copy(TYPE_SIZE,TYPE_ALIGN,(void*)((uintptr_t)(LIST).eptr - (((TYPE_SIZE) + 7) & -8)), VAL), \ *(LIST).aptr = (__avword)((uintptr_t)(LIST).eptr - (((TYPE_SIZE) + 7) & -8)), \ 0)) \ : ((TYPE_SIZE) > 4 \ ? ((__avword*)((((uintptr_t)(LIST).aptr & -8) - (intptr_t)(TYPE_SIZE)) & -8) < (LIST).eptr \ ? -1 : \ ((LIST).aptr = (__avword*)((((uintptr_t)(LIST).aptr & -8) - (intptr_t)(TYPE_SIZE)) & -8), \ __av_struct_copy(TYPE_SIZE,TYPE_ALIGN,(void*)(LIST).aptr,VAL), \ 0)) \ : /* FIXME: gcc-2.6.3 passes structures <= 4 bytes in memory left-adjusted! ?? */\ ((__avword*)(((uintptr_t)(LIST).aptr & -4) - (intptr_t)(TYPE_SIZE)) < (LIST).eptr \ ? -1 : \ (__av_struct_copy(TYPE_SIZE,TYPE_ALIGN,(void*)(((uintptr_t)(LIST).aptr & -4) - (intptr_t)(TYPE_SIZE)),VAL), \ (LIST).aptr = (__avword*)((((uintptr_t)(LIST).aptr & -4) - (intptr_t)(TYPE_SIZE)) & -4), \ 0)))) #endif #if defined(__arm64__) /* Structures <= 16 bytes are passed as embedded copies on the arg stack. * Big structures are passed as pointers to caller-made local copies. */ #define __av_struct(LIST,TYPE_SIZE,TYPE_ALIGN,VAL) \ ((TYPE_SIZE) <= 16 \ ? ((((LIST).ianum*sizeof(__avword)+(TYPE_SIZE)+(TYPE_ALIGN)-1) & -(intptr_t)(TYPE_ALIGN)) <= __AV_IARG_NUM*sizeof(__avword) \ ? (__av_struct_copy(TYPE_SIZE,TYPE_ALIGN,(void*)&(LIST).iargs[(LIST).ianum],VAL), \ (LIST).ianum += (((((TYPE_SIZE)+(TYPE_ALIGN)-1) & -(intptr_t)(TYPE_ALIGN)) + sizeof(__avword)-1) & -(intptr_t)sizeof(__avword))/sizeof(__avword), \ 0) \ : ((__avword*)(((uintptr_t)(LIST).aptr+(TYPE_SIZE)+(TYPE_ALIGN)-1) & -(intptr_t)(TYPE_ALIGN)) > (LIST).eptr \ ? -1 : \ ((LIST).ianum = __AV_IARG_NUM, \ __av_struct_copy(TYPE_SIZE,TYPE_ALIGN,(void*)((((uintptr_t)(LIST).aptr+(TYPE_SIZE)+(TYPE_ALIGN)-1) & -(intptr_t)(TYPE_ALIGN)) - (TYPE_SIZE)),VAL), \ (LIST).aptr = (__avword*)(((((uintptr_t)(LIST).aptr+(TYPE_SIZE)+(TYPE_ALIGN)-1) & -(intptr_t)(TYPE_ALIGN)) +sizeof(__avword)-1) & -(intptr_t)sizeof(__avword)), \ 0))) \ : ((LIST).ianum < __AV_IARG_NUM \ ? ((LIST).aptr \ > ((LIST).eptr = (__avword*)((uintptr_t)(LIST).eptr - (((TYPE_SIZE)+7)&-8)))\ ? -1 : \ (__av_struct_copy(TYPE_SIZE,TYPE_ALIGN,(void*)(LIST).eptr,VAL), \ (LIST).iargs[(LIST).ianum++] = (__avword)(LIST).eptr, \ 0)) \ : (++(LIST).aptr \ > ((LIST).eptr = (__avword*)((uintptr_t)(LIST).eptr - (((TYPE_SIZE)+7)&-8)))\ ? -1 : \ (__av_struct_copy(TYPE_SIZE,TYPE_ALIGN,(void*)(LIST).eptr,VAL), \ (LIST).aptr[-1] = (__avword)(LIST).eptr, \ 0)))) #endif #if defined(__powerpc_sysv4__) /* Structures are passed as pointers to caller-made local copies. We * grab space for the copies from the end of the argument list space * and always use maximal (double) alignment. */ #define __av_struct(LIST,TYPE_SIZE,TYPE_ALIGN,VAL) \ ((LIST).ianum < __AV_IARG_NUM \ ? ((LIST).aptr \ > ((LIST).eptr = (__avword*)((uintptr_t)(LIST).eptr - (((TYPE_SIZE)+7)&-8)))\ ? -1 : \ (__av_struct_copy(TYPE_SIZE,TYPE_ALIGN,(void*)(LIST).eptr,VAL), \ (LIST).iargs[(LIST).ianum++] = (__avword)(LIST).eptr, \ 0)) \ : (++(LIST).aptr \ > ((LIST).eptr = (__avword*)((uintptr_t)(LIST).eptr - (((TYPE_SIZE)+7)&-8)))\ ? -1 : \ (__av_struct_copy(TYPE_SIZE,TYPE_ALIGN,(void*)(LIST).eptr,VAL), \ (LIST).aptr[-1] = (__avword)(LIST).eptr, \ 0))) #endif #if defined(__x86_64_sysv__) /* Structures <= 16 bytes can be passed in integer or floating-point registers if there is enough room for the whole number of words needed by the structure in the corresponding iargs/fargs block. We can't distinguish the two cases and support only passing in integer registers. Other structures are passed on the arg stack. */ #define __av_struct(LIST,TYPE_SIZE,TYPE_ALIGN,VAL) \ (((TYPE_SIZE) <= 2*sizeof(__avword) \ && (LIST).ianum + ((TYPE_SIZE) + sizeof(__avword)-1) / sizeof(__avword) <= __AV_IARG_NUM) \ ? (__av_struct_copy(TYPE_SIZE,TYPE_ALIGN,(void*)&(LIST).iargs[(LIST).ianum],VAL), \ (LIST).ianum += ((TYPE_SIZE) + sizeof(__avword)-1) / sizeof(__avword), \ 0) \ : ((__avword*)((uintptr_t)(LIST).aptr + (((TYPE_SIZE)+__av_struct_alignment(TYPE_ALIGN)-1) & -(intptr_t)__av_struct_alignment(TYPE_ALIGN))) > (LIST).eptr \ ? -1 : \ ((LIST).aptr = (__avword*)((uintptr_t)(LIST).aptr + (((TYPE_SIZE)+__av_struct_alignment(TYPE_ALIGN)-1) & -(intptr_t)__av_struct_alignment(TYPE_ALIGN))), \ __av_struct_copy(TYPE_SIZE,TYPE_ALIGN,(void*)((uintptr_t)(LIST).aptr - (((TYPE_SIZE)+__av_struct_alignment(TYPE_ALIGN)-1) & -(intptr_t)__av_struct_alignment(TYPE_ALIGN))),VAL), \ 0))) #endif #if defined(__x86_64_ms__) /* Structures of 1, 2, 4, 8 bytes are passed as embedded copies on the arg stack. * Big structures are passed as pointers to caller-made local copies. */ #define __av_struct(LIST,TYPE_SIZE,TYPE_ALIGN,VAL) \ ((TYPE_SIZE) == 1 || (TYPE_SIZE) == 2 || (TYPE_SIZE) == 4 || (TYPE_SIZE) == 8 \ ? ((__avword*)((uintptr_t)(LIST).aptr + (((TYPE_SIZE)+sizeof(__avword)-1) & -(intptr_t)sizeof(__avword))) > (LIST).eptr \ ? -1 : \ ((LIST).aptr = (__avword*)((uintptr_t)(LIST).aptr + (((TYPE_SIZE)+sizeof(__avword)-1) & -(intptr_t)sizeof(__avword))), \ __av_struct_copy(TYPE_SIZE,TYPE_ALIGN,(void*)((uintptr_t)(LIST).aptr - (((TYPE_SIZE)+sizeof(__avword)-1) & -(intptr_t)sizeof(__avword))),VAL), \ 0)) \ : (++(LIST).aptr \ > ((LIST).eptr = (__avword*)((uintptr_t)(LIST).eptr - (((TYPE_SIZE)+7)&-8)))\ ? -1 : \ (__av_struct_copy(TYPE_SIZE,TYPE_ALIGN,(void*)(LIST).eptr,VAL), \ (LIST).aptr[-1] = (__avword)(LIST).eptr, \ 0))) #endif #if defined(__s390__) || defined(__s390x__) /* Structures of 1, 2, 4, 8 bytes are passed as embedded copies on the arg stack. * Big structures are passed as pointers to caller-made local copies. */ #define __av_struct(LIST,TYPE_SIZE,TYPE_ALIGN,VAL) \ ((TYPE_SIZE) == 1 || (TYPE_SIZE) == 2 || (TYPE_SIZE) == 4 || (TYPE_SIZE) == 8 \ ? ((((LIST).ianum*sizeof(__avword)+(TYPE_SIZE)+(TYPE_ALIGN)-1) & -(intptr_t)(TYPE_ALIGN)) <= __AV_IARG_NUM*sizeof(__avword) \ ? ((LIST).ianum += (((((TYPE_SIZE)+(TYPE_ALIGN)-1) & -(intptr_t)(TYPE_ALIGN)) + sizeof(__avword)-1) & -(intptr_t)sizeof(__avword))/sizeof(__avword), \ __av_struct_copy(TYPE_SIZE,TYPE_ALIGN,(void*)((uintptr_t)&(LIST).iargs[(LIST).ianum]-(TYPE_SIZE)),VAL), \ 0) \ : ((__avword*)(((uintptr_t)(LIST).aptr+(TYPE_SIZE)+(TYPE_ALIGN)-1) & -(intptr_t)(TYPE_ALIGN)) > (LIST).eptr \ ? -1 : \ ((LIST).ianum = __AV_IARG_NUM, \ __av_struct_copy(TYPE_SIZE,TYPE_ALIGN,(void*)((((uintptr_t)(LIST).aptr+(TYPE_SIZE)+(TYPE_ALIGN)-1) & -(intptr_t)(TYPE_ALIGN)) - (TYPE_SIZE)),VAL), \ (LIST).aptr = (__avword*)(((((uintptr_t)(LIST).aptr+(TYPE_SIZE)+(TYPE_ALIGN)-1) & -(intptr_t)(TYPE_ALIGN)) +sizeof(__avword)-1) & -(intptr_t)sizeof(__avword)), \ 0))) \ : ((LIST).ianum < __AV_IARG_NUM \ ? ((LIST).aptr \ > ((LIST).eptr = (__avword*)((uintptr_t)(LIST).eptr - (((TYPE_SIZE)+7)&-8)))\ ? -1 : \ (__av_struct_copy(TYPE_SIZE,TYPE_ALIGN,(void*)(LIST).eptr,VAL), \ (LIST).iargs[(LIST).ianum++] = (__avword)(LIST).eptr, \ 0)) \ : (++(LIST).aptr \ > ((LIST).eptr = (__avword*)((uintptr_t)(LIST).eptr - (((TYPE_SIZE)+7)&-8)))\ ? -1 : \ (__av_struct_copy(TYPE_SIZE,TYPE_ALIGN,(void*)(LIST).eptr,VAL), \ (LIST).aptr[-1] = (__avword)(LIST).eptr, \ 0)))) #endif #if defined(__riscv32__) || defined(__riscv64__) /* Structures <= 16 bytes are passed as embedded copies on the arg stack. * Big structures are passed as pointers to caller-made local copies. */ #define __av_struct(LIST,TYPE_SIZE,TYPE_ALIGN,VAL) \ ((TYPE_SIZE) <= 2*sizeof(__avword) \ ? ((__avword*)(((uintptr_t)(LIST).aptr+(TYPE_SIZE)+(TYPE_ALIGN)-1) & -(intptr_t)(TYPE_ALIGN)) > (LIST).eptr \ ? -1 : \ (__av_struct_copy(TYPE_SIZE,TYPE_ALIGN,(void*)((((uintptr_t)(LIST).aptr+(TYPE_SIZE)+(TYPE_ALIGN)-1) & -(intptr_t)(TYPE_ALIGN)) - (TYPE_SIZE)),VAL), \ (LIST).aptr = (__avword*)(((((uintptr_t)(LIST).aptr+(TYPE_SIZE)+(TYPE_ALIGN)-1) & -(intptr_t)(TYPE_ALIGN)) +sizeof(__avword)-1) & -(intptr_t)sizeof(__avword)), \ 0)) \ : (++(LIST).aptr \ > ((LIST).eptr = (__avword*)((uintptr_t)(LIST).eptr - (((TYPE_SIZE)+7)&-8)))\ ? -1 : \ (__av_struct_copy(TYPE_SIZE,TYPE_ALIGN,(void*)(LIST).eptr,VAL), \ (LIST).aptr[-1] = (__avword)(LIST).eptr, \ 0))) #endif #endif /* _AVCALL_INTERNAL_H */ libffcall-2.2/avcall/avcall-sparc-linux.s0000664000000000000000000000455313530357106015331 00000000000000 .file "avcall-sparc.c" .section ".text" .align 4 .global avcall_call .type avcall_call,#function .proc 04 avcall_call: !#PROLOGUE# 0 save %sp, -1152, %sp ld [%i0+20], %g3 add %sp, 68, %l1 ld [%i0+24], %o7 ld [%i0+12], %l0 sub %g3, %o7, %g3 cmp %l0, 16 be .LL54 sra %g3, 2, %g4 .LL2: mov 6, %l0 cmp %l0, %g4 bge .LL49 ld [%i0+24], %g1 .LL7: sll %l0, 2, %g3 ld [%g1+%g3], %o7 add %l0, 1, %l0 cmp %l0, %g4 bl .LL7 st %o7, [%l1+%g3] .LL49: ld [%i0+12], %g3 cmp %g3, 16 be,a .LL55 ld [%i0], %g3 ld [%g1+20], %o5 .LL60: ld [%i0+4], %g3 ld [%g1], %o0 ld [%g1+4], %o1 ld [%g1+8], %o2 ld [%g1+12], %o3 call %g3, 0 ld [%g1+16], %o4 nop ld [%i0+12], %o7 cmp %o7, 1 be .LL10 mov %o0, %l0 cmp %o7, 0 be,a .LL59 ld [%i0+8], %g3 cmp %o7, 2 be .LL53 cmp %o7, 3 be .LL53 cmp %o7, 4 be .LL53 cmp %o7, 5 be .LL52 cmp %o7, 6 be .LL52 cmp %o7, 7 be .LL51 cmp %o7, 8 be .LL51 cmp %o7, 9 be .LL51 cmp %o7, 10 be .LL51 add %o7, -11, %g3 cmp %g3, 1 bgu .LL31 cmp %o7, 13 ld [%i0+8], %g3 st %o0, [%g3] b .LL10 st %o1, [%g3+4] .LL31: be .LL56 cmp %o7, 14 be .LL57 cmp %o7, 15 be .LL51 cmp %o7, 16 bne .LL10 nop ld [%i0], %g3 andcc %g3, 2, %g0 be .LL10 nop ld [%i0+16], %g3 cmp %g3, 1 be .LL53 cmp %g3, 2 be .LL52 cmp %g3, 4 bne .LL10 nop .LL51: ld [%i0+8], %g3 .LL59: b .LL10 st %l0, [%g3] .LL52: ld [%i0+8], %g3 b .LL10 sth %l0, [%g3] .LL53: ld [%i0+8], %g3 b .LL10 stb %l0, [%g3] .LL57: ld [%i0+8], %g3 b .LL10 std %f0, [%g3] .LL56: ld [%i0], %g3 andcc %g3, 32, %g0 bne,a .LL34 fdtos %f0, %f0 .LL34: ld [%i0+8], %g3 b .LL10 st %f0, [%g3] .LL55: andcc %g3, 16, %g0 be,a .LL60 ld [%g1+20], %o5 b .LL58 ld [%i0+16], %l0 .LL54: ld [%i0+8], %g3 b .LL2 st %g3, [%sp+64] .LL58: sethi %hi(-1614774272), %g3 sethi %hi(16777216), %o7 st %g3, [%fp-32] st %o7, [%fp-28] sethi %hi(-1341120512), %o7 sethi %hi(-2117607424), %g3 st %o7, [%fp-20] or %g3, 8, %g3 and %l0, 4095, %l0 st %g3, [%fp-16] sethi %hi(-2115502080), %o7 st %l0, [%fp-24] st %o7, [%fp-12] add %fp, -32, %g3 iflush %g3 add %fp, -24, %o7 iflush %o7 add %fp, -16, %g3 iflush %g3 add %fp, -12, %o7 iflush %o7 ld [%g1+20], %o5 ld [%i0+4], %g2 ld [%g1], %o0 ld [%g1+4], %o1 ld [%g1+8], %o2 ld [%g1+12], %o3 jmp %fp-32 ld [%g1+16], %o4 .LL10: ret restore %g0, 0, %o0 .LLfe1: .size avcall_call,.LLfe1-avcall_call .ident "GCC: (GNU) 3.1" libffcall-2.2/avcall/avcall-x86_64-x32-linux.s0000664000000000000000000002324113530357110015557 00000000000000 .file "avcall-x86_64.c" .section .text.unlikely,"ax",@progbits .LCOLDB1: .text .LHOTB1: .p2align 4,,15 .globl avcall_call .type avcall_call, @function avcall_call: .LFB0: pushq %rbp .LCFI0: movl %esp, %ebp .LCFI1: pushq %r12 pushq %rbx .LCFI2: movq %rdi, %rbx movl 24(%edi), %edi movl 20(%ebx), %ecx movl 88(%ebx), %r8d subl $2064, %esp leal 96(%rbx), %eax leal 15(%rsp), %esi subl %edi, %ecx subl %eax, %r8d andl $-16, %esi sarl $3, %ecx sarl $3, %r8d xorl %eax, %eax testl %ecx, %ecx jle .L6 .p2align 4,,10 .p2align 3 .L77: movq (%edi,%eax,8), %rdx movq %rdx, (%esi,%eax,8) addl $1, %eax cmpl %eax, %ecx jne .L77 .L6: movl 12(%ebx), %eax cmpl $13, %eax je .L95 cmpl $14, %eax je .L96 cmpl $7, %r8d movl 4(%ebx), %r10d jle .L39 movsd 152(%ebx), %xmm14 .L40: movsd 144(%ebx), %xmm13 .L42: movsd 136(%ebx), %xmm12 .L44: movsd 128(%ebx), %xmm11 .L46: movsd 120(%ebx), %xmm10 .L48: movsd 112(%ebx), %xmm9 .L50: movsd 104(%ebx), %xmm8 .L52: movsd 96(%ebx), %xmm15 .L53: movq 64(%ebx), %rcx movq 56(%ebx), %rdx movl $8, %eax movq 48(%ebx), %rsi movq 40(%ebx), %rdi movapd %xmm14, %xmm7 movapd %xmm13, %xmm6 movapd %xmm12, %xmm5 movq 80(%ebx), %r9 movapd %xmm11, %xmm4 movq 72(%ebx), %r8 movapd %xmm10, %xmm3 movapd %xmm9, %xmm2 movapd %xmm8, %xmm1 movapd %xmm15, %xmm0 call *%r10 movl 12(%ebx), %ecx cmpl $1, %ecx je .L22 testl %ecx, %ecx je .L92 cmpl $2, %ecx je .L86 cmpl $3, %ecx je .L86 cmpl $4, %ecx je .L86 cmpl $5, %ecx je .L87 cmpl $6, %ecx je .L87 cmpl $7, %ecx je .L91 cmpl $8, %ecx je .L91 cmpl $9, %ecx je .L91 cmpl $10, %ecx je .L91 cmpl $11, %ecx je .L92 cmpl $12, %ecx je .L92 cmpl $15, %ecx je .L91 cmpl $16, %ecx jne .L22 testl $512, (%ebx) je .L22 movl 16(%ebx), %ecx leal -1(%rcx), %esi cmpl $15, %esi ja .L22 movl 8(%ebx), %esi movl %esi, %edi andl $7, %esi andl $-8, %edi cmpl $8, %ecx leal (%rcx,%rsi), %r8d ja .L67 cmpl $8, %r8d ja .L68 leal -1(,%r8,8), %ecx movq (%edi), %r9 sall $3, %esi movl $2, %edx movl $1, %r8d salq %cl, %rdx movl %esi, %ecx salq %cl, %r8 salq %cl, %rax subq %r8, %rdx xorq %r9, %rax andq %rdx, %rax xorq %r9, %rax movq %rax, (%edi) .L22: leal -16(%rbp), %esp xorl %eax, %eax popq %rbx popq %r12 popq %rbp .LCFI3: ret .p2align 4,,10 .p2align 3 .L39: .LCFI4: je .L97 cmpl $6, %r8d je .L98 cmpl $5, %r8d je .L99 cmpl $4, %r8d je .L100 cmpl $3, %r8d je .L101 cmpl $2, %r8d je .L102 pxor %xmm8, %xmm8 cmpl $1, %r8d movapd %xmm8, %xmm9 movapd %xmm8, %xmm10 movapd %xmm8, %xmm11 movapd %xmm8, %xmm12 movapd %xmm8, %xmm13 movapd %xmm8, %xmm14 je .L52 movapd %xmm8, %xmm15 jmp .L53 .p2align 4,,10 .p2align 3 .L95: cmpl $7, %r8d movl 8(%ebx), %r12d movl 4(%ebx), %r10d jle .L7 movsd 152(%ebx), %xmm14 .L8: movsd 144(%ebx), %xmm13 .L10: movsd 136(%ebx), %xmm12 .L12: movsd 128(%ebx), %xmm11 .L14: movsd 120(%ebx), %xmm10 .L16: movsd 112(%ebx), %xmm9 .L18: movsd 104(%ebx), %xmm8 .L20: movsd 96(%ebx), %xmm15 jmp .L21 .p2align 4,,10 .p2align 3 .L96: cmpl $7, %r8d movl 8(%ebx), %r12d movl 4(%ebx), %r10d jle .L24 movsd 152(%ebx), %xmm14 .L25: movsd 144(%ebx), %xmm13 .L27: movsd 136(%ebx), %xmm12 .L29: movsd 128(%ebx), %xmm11 .L31: movsd 120(%ebx), %xmm10 .L33: movsd 112(%ebx), %xmm9 .L35: movsd 104(%ebx), %xmm8 .L37: movsd 96(%ebx), %xmm15 .L38: movq 64(%ebx), %rcx movq 56(%ebx), %rdx movl $8, %eax movq 48(%ebx), %rsi movq 40(%ebx), %rdi movq 80(%ebx), %r9 movq 72(%ebx), %r8 movapd %xmm14, %xmm7 movapd %xmm13, %xmm6 movapd %xmm12, %xmm5 movapd %xmm11, %xmm4 movapd %xmm10, %xmm3 movapd %xmm9, %xmm2 movapd %xmm8, %xmm1 movapd %xmm15, %xmm0 call *%r10 movsd %xmm0, (%r12d) leal -16(%rbp), %esp xorl %eax, %eax popq %rbx popq %r12 popq %rbp .LCFI5: ret .p2align 4,,10 .p2align 3 .L7: .LCFI6: je .L103 cmpl $6, %r8d je .L104 cmpl $5, %r8d je .L105 cmpl $4, %r8d je .L106 cmpl $3, %r8d je .L107 cmpl $2, %r8d je .L108 pxor %xmm8, %xmm8 cmpl $1, %r8d movapd %xmm8, %xmm9 movapd %xmm8, %xmm10 movapd %xmm8, %xmm11 movapd %xmm8, %xmm12 movapd %xmm8, %xmm13 movapd %xmm8, %xmm14 movapd %xmm8, %xmm15 je .L20 .L21: movq 64(%ebx), %rcx movq 56(%ebx), %rdx movl $8, %eax movq 48(%ebx), %rsi movq 40(%ebx), %rdi movq 80(%ebx), %r9 movq 72(%ebx), %r8 movapd %xmm14, %xmm7 movapd %xmm13, %xmm6 movapd %xmm12, %xmm5 movapd %xmm11, %xmm4 movapd %xmm10, %xmm3 movapd %xmm9, %xmm2 movapd %xmm8, %xmm1 movapd %xmm15, %xmm0 call *%r10 movss %xmm0, (%r12d) leal -16(%rbp), %esp xorl %eax, %eax popq %rbx popq %r12 popq %rbp .LCFI7: ret .p2align 4,,10 .p2align 3 .L102: .LCFI8: pxor %xmm9, %xmm9 movapd %xmm9, %xmm10 movapd %xmm9, %xmm11 movapd %xmm9, %xmm12 movapd %xmm9, %xmm13 movapd %xmm9, %xmm14 jmp .L50 .L24: je .L109 cmpl $6, %r8d je .L110 cmpl $5, %r8d je .L111 cmpl $4, %r8d je .L112 cmpl $3, %r8d je .L113 cmpl $2, %r8d je .L114 pxor %xmm8, %xmm8 cmpl $1, %r8d movapd %xmm8, %xmm9 movapd %xmm8, %xmm10 movapd %xmm8, %xmm11 movapd %xmm8, %xmm12 movapd %xmm8, %xmm13 movapd %xmm8, %xmm14 movapd %xmm8, %xmm15 jne .L38 jmp .L37 .p2align 4,,10 .p2align 3 .L86: movl 8(%ebx), %edx movb %al, (%edx) leal -16(%rbp), %esp xorl %eax, %eax popq %rbx popq %r12 popq %rbp .LCFI9: ret .L91: .LCFI10: movl 8(%ebx), %edx movl %eax, (%edx) jmp .L22 .p2align 4,,10 .p2align 3 .L92: movl 8(%ebx), %edx movq %rax, (%edx) leal -16(%rbp), %esp xorl %eax, %eax popq %rbx popq %r12 popq %rbp .LCFI11: ret .L108: .LCFI12: pxor %xmm9, %xmm9 movapd %xmm9, %xmm10 movapd %xmm9, %xmm11 movapd %xmm9, %xmm12 movapd %xmm9, %xmm13 movapd %xmm9, %xmm14 jmp .L18 .L87: movl 8(%ebx), %edx movw %ax, (%edx) jmp .L22 .L114: pxor %xmm9, %xmm9 movapd %xmm9, %xmm10 movapd %xmm9, %xmm11 movapd %xmm9, %xmm12 movapd %xmm9, %xmm13 movapd %xmm9, %xmm14 jmp .L35 .L68: leal 0(,%rsi,8), %ecx movq $-1, %rdx movq (%edi), %r9 negl %esi salq %cl, %rdx movq %rdx, %r10 movq %rax, %rdx salq %cl, %rdx leal -65(,%r8,8), %ecx xorq %r9, %rdx andq %r10, %rdx xorq %r9, %rdx movq 8(%edi), %r9 movq %rdx, (%edi) movl $2, %edx salq %cl, %rdx leal 64(,%rsi,8), %ecx subq $1, %rdx sarq %cl, %rax xorq %r9, %rax andq %rdx, %rax xorq %r9, %rax movq %rax, 8(%edi) jmp .L22 .L67: leal 0(,%rsi,8), %r10d movq (%edi), %r9 movq %rax, %rbx movq $-1, %r11 movl %r10d, %ecx salq %cl, %rbx salq %cl, %r11 movq %rbx, %rcx xorq %r9, %rcx andq %r11, %rcx xorq %r9, %rcx cmpl $16, %r8d movq %rcx, (%edi) jbe .L115 negl %esi movq 16(%edi), %r9 leal 64(,%rsi,8), %r11d movq %rdx, %rsi movl %r11d, %ecx sarq %cl, %rax movl %r10d, %ecx salq %cl, %rsi leal -129(,%r8,8), %ecx orq %rsi, %rax movq %rax, 8(%edi) movl $2, %eax salq %cl, %rax movl %r11d, %ecx leaq -1(%rax), %rsi movq %rdx, %rax sarq %cl, %rax xorq %r9, %rax andq %rsi, %rax xorq %r9, %rax movq %rax, 16(%edi) jmp .L22 .L101: pxor %xmm10, %xmm10 movapd %xmm10, %xmm11 movapd %xmm10, %xmm12 movapd %xmm10, %xmm13 movapd %xmm10, %xmm14 jmp .L48 .L115: negl %esi leal -65(,%r8,8), %ecx movq 8(%edi), %r9 leal 32(,%rsi,4), %r11d movl $2, %esi salq %cl, %rsi movl %r11d, %ecx subq $1, %rsi sarq %cl, %rax sarq %cl, %rax movl %r10d, %ecx salq %cl, %rdx orq %rdx, %rax xorq %r9, %rax andq %rsi, %rax xorq %r9, %rax movq %rax, 8(%edi) jmp .L22 .L113: pxor %xmm10, %xmm10 movapd %xmm10, %xmm11 movapd %xmm10, %xmm12 movapd %xmm10, %xmm13 movapd %xmm10, %xmm14 jmp .L33 .L112: pxor %xmm11, %xmm11 movapd %xmm11, %xmm12 movapd %xmm11, %xmm13 movapd %xmm11, %xmm14 jmp .L31 .L97: pxor %xmm14, %xmm14 jmp .L40 .L98: pxor %xmm13, %xmm13 movapd %xmm13, %xmm14 jmp .L42 .L99: pxor %xmm12, %xmm12 movapd %xmm12, %xmm13 movapd %xmm12, %xmm14 jmp .L44 .L100: pxor %xmm11, %xmm11 movapd %xmm11, %xmm12 movapd %xmm11, %xmm13 movapd %xmm11, %xmm14 jmp .L46 .L111: pxor %xmm12, %xmm12 movapd %xmm12, %xmm13 movapd %xmm12, %xmm14 jmp .L29 .L110: pxor %xmm13, %xmm13 movapd %xmm13, %xmm14 jmp .L27 .L109: pxor %xmm14, %xmm14 jmp .L25 .L107: pxor %xmm10, %xmm10 movapd %xmm10, %xmm11 movapd %xmm10, %xmm12 movapd %xmm10, %xmm13 movapd %xmm10, %xmm14 jmp .L16 .L106: pxor %xmm11, %xmm11 movapd %xmm11, %xmm12 movapd %xmm11, %xmm13 movapd %xmm11, %xmm14 jmp .L14 .L105: pxor %xmm12, %xmm12 movapd %xmm12, %xmm13 movapd %xmm12, %xmm14 jmp .L12 .L104: pxor %xmm13, %xmm13 movapd %xmm13, %xmm14 jmp .L10 .L103: pxor %xmm14, %xmm14 jmp .L8 .LFE0: .size avcall_call, .-avcall_call .section .text.unlikely .LCOLDE1: .text .LHOTE1: .section .eh_frame,"a",@progbits .Lframe1: .long .LECIE1-.LSCIE1 .LSCIE1: .long 0 .byte 0x3 .string "zR" .uleb128 0x1 .sleb128 -8 .uleb128 0x10 .uleb128 0x1 .byte 0x1b .byte 0xc .uleb128 0x7 .uleb128 0x8 .byte 0x90 .uleb128 0x1 .align 4 .LECIE1: .LSFDE1: .long .LEFDE1-.LASFDE1 .LASFDE1: .long .LASFDE1-.Lframe1 .long .LFB0-. .long .LFE0-.LFB0 .uleb128 0 .byte 0x4 .long .LCFI0-.LFB0 .byte 0xe .uleb128 0x10 .byte 0x86 .uleb128 0x2 .byte 0x4 .long .LCFI1-.LCFI0 .byte 0xd .uleb128 0x6 .byte 0x4 .long .LCFI2-.LCFI1 .byte 0x8c .uleb128 0x3 .byte 0x83 .uleb128 0x4 .byte 0x4 .long .LCFI3-.LCFI2 .byte 0xa .byte 0xc .uleb128 0x7 .uleb128 0x8 .byte 0x4 .long .LCFI4-.LCFI3 .byte 0xb .byte 0x4 .long .LCFI5-.LCFI4 .byte 0xa .byte 0xc .uleb128 0x7 .uleb128 0x8 .byte 0x4 .long .LCFI6-.LCFI5 .byte 0xb .byte 0x4 .long .LCFI7-.LCFI6 .byte 0xa .byte 0xc .uleb128 0x7 .uleb128 0x8 .byte 0x4 .long .LCFI8-.LCFI7 .byte 0xb .byte 0x4 .long .LCFI9-.LCFI8 .byte 0xa .byte 0xc .uleb128 0x7 .uleb128 0x8 .byte 0x4 .long .LCFI10-.LCFI9 .byte 0xb .byte 0x4 .long .LCFI11-.LCFI10 .byte 0xa .byte 0xc .uleb128 0x7 .uleb128 0x8 .byte 0x4 .long .LCFI12-.LCFI11 .byte 0xb .align 4 .LEFDE1: .ident "GCC: (GNU) 5.4.0" .section .note.GNU-stack,"",@progbits libffcall-2.2/avcall/avcall-powerpc-macos.s0000664000000000000000000000443013530357107015636 00000000000000.text .align 2 .globl _avcall_call _avcall_call: mflr r0 stmw r29,-12(r1) stw r0,8(r1) mr r29,r3 stwu r1,-1104(r1) li r3,8 lwz r0,20(r29) mr r30,r1 lwz r9,24(r29) addi r10,r1,56 subf r0,r9,r0 srawi r11,r0,2 cmpw cr0,r3,r11 bge- cr0,L89 mr r12,r9 L6: slwi r9,r3,2 addi r3,r3,1 cmpw cr0,r3,r11 lwzx r0,r9,r12 add r9,r9,r10 stw r0,-32(r9) blt+ cr0,L6 L88: lwz r9,40(r29) subf r9,r29,r9 addi r9,r9,-44 srawi. r9,r9,3 beq- cr0,L8 cmpwi cr0,r9,1 beq- cr0,L11 cmpwi cr0,r9,2 beq- cr0,L14 cmpwi cr0,r9,3 beq- cr0,L17 cmpwi cr0,r9,4 beq- cr0,L20 cmpwi cr0,r9,5 beq- cr0,L23 cmpwi cr0,r9,6 beq- cr0,L26 cmpwi cr0,r9,7 beq- cr0,L29 cmpwi cr0,r9,8 beq- cr0,L32 cmpwi cr0,r9,9 beq- cr0,L35 cmpwi cr0,r9,10 beq- cr0,L38 cmpwi cr0,r9,11 beq- cr0,L41 cmpwi cr0,r9,12 beq- cr0,L44 L47: lfd f13,140(r29) L44: lfd f12,132(r29) L41: lfd f11,124(r29) L38: lfd f10,116(r29) L35: lfd f9,108(r29) L32: lfd f8,100(r29) L29: lfd f7,92(r29) L26: lfd f6,84(r29) L23: lfd f5,76(r29) L20: lfd f4,68(r29) L17: lfd f3,60(r29) L14: lfd f2,52(r29) L11: lfd f1,44(r29) L8: lwz r0,4(r29) lwz r9,24(r12) lwz r10,28(r12) mtctr r0 lwz r3,0(r12) lwz r4,4(r12) lwz r5,8(r12) lwz r6,12(r12) lwz r7,16(r12) lwz r8,20(r12) bctrl lwz r9,12(r29) cmpwi cr0,r9,1 beq- cr0,L49 cmpwi cr0,r9,0 beq- cr0,L99 cmpwi cr0,r9,2 beq- cr0,L92 cmpwi cr0,r9,3 beq- cr0,L92 cmpwi cr0,r9,4 beq- cr0,L92 cmpwi cr0,r9,5 beq- cr0,L91 cmpwi cr0,r9,6 beq- cr0,L91 cmpwi cr0,r9,7 beq- cr0,L99 cmpwi cr0,r9,8 beq- cr0,L99 cmpwi cr0,r9,9 beq- cr0,L99 cmpwi cr0,r9,10 beq- cr0,L99 addi r0,r9,-11 cmplwi cr0,r0,1 ble- cr0,L98 cmpwi cr0,r9,13 beq- cr0,L100 cmpwi cr0,r9,14 beq- cr0,L101 cmpwi cr0,r9,15 beq- cr0,L99 cmpwi cr0,r9,16 beq- cr0,L102 L49: lwz r1,0(r1) li r3,0 lwz r0,8(r1) lmw r29,-12(r1) mtlr r0 blr L102: lwz r0,0(r29) andi. r9,r0,512 beq- cr0,L49 lwz r0,16(r29) cmpwi cr0,r0,1 beq- cr0,L92 cmpwi cr0,r0,2 beq- cr0,L91 cmpwi cr0,r0,4 beq- cr0,L99 cmpwi cr0,r0,8 bne+ cr0,L49 L98: lwz r9,8(r29) stw r4,4(r9) L90: stw r3,0(r9) b L49 L99: lwz r9,8(r29) b L90 L91: lwz r9,8(r29) sth r3,0(r9) b L49 L92: lwz r9,8(r29) stb r3,0(r9) b L49 L101: lwz r9,8(r29) stfd f1,0(r9) b L49 L100: lwz r9,8(r29) stfs f1,0(r9) b L49 L89: lwz r12,24(r29) b L88 libffcall-2.2/avcall/avcall-mips.c0000664000000000000000000001274713527370357014031 00000000000000/** Copyright 1993 Bill Triggs Copyright 1995-2017 Bruno Haible Copyright 2005 Thiemo Seufer This program is free software: you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program. If not, see . **/ /*---------------------------------------------------------------------- !!! THIS ROUTINE MUST BE COMPILED gcc -O !!! Foreign function interface for an SGI MIPS with gcc/sgi-cc. This calls a C function with an argument list built up using macros defined in avcall.h. SGI MIPS Argument Passing Conventions - The entire argument list forms a structure with all the appropriate holes & alignments, and space for this is allocated in the stack frame. - Shorter integers are promoted to word length (sizeof(int)=sizeof(long)=4). - Doubles are 2 words aligned on even boundaries. - The first 4 words of the structure are passed in registers $4...$7, stack space for these is always allocated. Remaining words are passed on the stack. - If the first two args are floats or doubles, they are also passed in $f12 and $f14. But varargs functions will expect them in the integer registers and we can't tell whether the function is varargs so we pass them both ways. - GCC 3.3.x and 3.4.x pass the next args after two floats in $7 and on the stack, instead of in $6, $7, and on the stack. This is a bug that is fixed in GCC 4.0.4. We don't support these versions of GCC on mips with -mabi=32. - Structure arguments are copies embedded in the arglist structure. - Structure returns are pointers to caller-allocated space passed in as the first argument of the list. The function also returns the pointer. - Integer/pointer returns are in $2, float/double returns in $f0. - Under IRIX 5, the called function expects to see its own address in $25. This file needs to be compiled with gcc for the asm extensions, but the assembly version of it and the header file seem to work with SGI cc. ----------------------------------------------------------------------*/ #include "avcall-internal.h" #define RETURN(TYPE,VAL) (*(TYPE*)l->raddr = (TYPE)(VAL)) #define OFFSETOF(struct,member) ((int)&(((struct*)0)->member)) int avcall_call(av_alist* list) { register __avword* sp __asm__("$sp"); /* C names for registers */ register __avword iret2 __asm__("$3"); register float fret_tmp __asm__("$f0"); register double dret_tmp __asm__("$f0"); __av_alist* l = &AV_LIST_INNER(list); __avword *space = __builtin_alloca(__AV_ALIST_WORDS * sizeof(__avword)); /* big space for child's stack frame */ __avword *argframe = sp; /* stack offset for argument list is 0 */ int arglen = l->aptr - l->args; int i; __avword iret; float fret; double dret; /* load leading float args */ if (l->farg_mask & (1 << 0)) __asm__("l.s $f12,%1(%0)" : : "p" (l), "i" OFFSETOF(__av_alist,fargs[0])); if (l->darg_mask & (1 << 0)) __asm__("l.d $f12,%1(%0)" : : "p" (l), "i" OFFSETOF(__av_alist,dargs[0])); if (l->farg_mask & (1 << 1)) __asm__("l.s $f14,%1(%0)" : : "p" (l), "i" OFFSETOF(__av_alist,fargs[1])); if (l->darg_mask & (1 << 1)) __asm__("l.d $f14,%1(%0)" : : "p" (l), "i" OFFSETOF(__av_alist,dargs[1])); for (i = 4; i < arglen; i++) /* push excess function args */ argframe[i] = l->args[i]; /* Note: The code of this call ought to put the address of the called function in register $25 before the call. */ iret = (*l->func)(l->args[0], l->args[1], /* call function with 1st 4 args */ l->args[2], l->args[3]); fret = fret_tmp; dret = dret_tmp; /* save return value */ if (l->rtype == __AVvoid) { } else if (l->rtype == __AVword) { RETURN(__avword, iret); } else if (l->rtype == __AVchar) { RETURN(char, iret); } else if (l->rtype == __AVschar) { RETURN(signed char, iret); } else if (l->rtype == __AVuchar) { RETURN(unsigned char, iret); } else if (l->rtype == __AVshort) { RETURN(short, iret); } else if (l->rtype == __AVushort) { RETURN(unsigned short, iret); } else if (l->rtype == __AVint) { RETURN(int, iret); } else if (l->rtype == __AVuint) { RETURN(unsigned int, iret); } else if (l->rtype == __AVlong) { RETURN(long, iret); } else if (l->rtype == __AVulong) { RETURN(unsigned long, iret); } else if (l->rtype == __AVlonglong || l->rtype == __AVulonglong) { void* raddr = l->raddr; ((__avword*)raddr)[0] = iret; ((__avword*)raddr)[1] = iret2; } else if (l->rtype == __AVfloat) { RETURN(float, fret); } else if (l->rtype == __AVdouble) { RETURN(double, dret); } else if (l->rtype == __AVvoidp) { RETURN(void*, iret); } else if (l->rtype == __AVstruct) { if (l->flags & __AV_SMALL_STRUCT_RETURN) { if (l->rsize == sizeof(char)) { RETURN(char, iret); } else if (l->rsize == sizeof(short)) { RETURN(short, iret); } else if (l->rsize == sizeof(int)) { RETURN(int, iret); } } } return 0; } libffcall-2.2/avcall/avcall-mipsn32el-linux.s0000664000000000000000000002305113530357105016026 00000000000000 .file 1 "avcall-mipsn32.c" .section .mdebug.abiN32 .previous .nan legacy .module fp=64 .module oddspreg .abicalls .text .align 2 .align 3 .globl avcall_call .set nomips16 .set nomicromips .ent avcall_call .type avcall_call, @function avcall_call: .frame $fp,32,$31 # vars= 0, regs= 4/0, args= 0, gp= 0 .mask 0xd0010000,-8 .fmask 0x00000000,0 lw $5,20($4) lw $12,24($4) lw $2,36($4) addiu $sp,$sp,-32 sd $fp,16($sp) sd $16,0($sp) sd $31,24($sp) move $fp,$sp move $16,$4 addiu $sp,$sp,-2064 subu $4,$5,$12 move $3,$sp .set noreorder .set nomacro beq $2,$0,.L2 sra $4,$4,3 .set macro .set reorder andi $6,$2,0x1 .set noreorder .set nomacro beq $6,$0,.L125 andi $6,$2,0x2 .set macro .set reorder #APP # 78 "avcall-mipsn32.c" 1 lwc1 $f12,44($16) # 0 "" 2 #NO_APP andi $6,$2,0x2 .L125: .set noreorder .set nomacro beq $6,$0,.L126 andi $6,$2,0x4 .set macro .set reorder #APP # 80 "avcall-mipsn32.c" 1 lwc1 $f13,48($16) # 0 "" 2 #NO_APP andi $6,$2,0x4 .L126: .set noreorder .set nomacro beq $6,$0,.L127 andi $6,$2,0x8 .set macro .set reorder #APP # 82 "avcall-mipsn32.c" 1 lwc1 $f14,52($16) # 0 "" 2 #NO_APP andi $6,$2,0x8 .L127: .set noreorder .set nomacro beq $6,$0,.L128 andi $6,$2,0x10 .set macro .set reorder #APP # 84 "avcall-mipsn32.c" 1 lwc1 $f15,56($16) # 0 "" 2 #NO_APP andi $6,$2,0x10 .L128: .set noreorder .set nomacro beq $6,$0,.L129 andi $6,$2,0x20 .set macro .set reorder #APP # 86 "avcall-mipsn32.c" 1 lwc1 $f16,60($16) # 0 "" 2 #NO_APP andi $6,$2,0x20 .L129: .set noreorder .set nomacro beq $6,$0,.L130 andi $6,$2,0x40 .set macro .set reorder #APP # 88 "avcall-mipsn32.c" 1 lwc1 $f17,64($16) # 0 "" 2 #NO_APP andi $6,$2,0x40 .L130: .set noreorder .set nomacro beql $6,$0,.L131 andi $2,$2,0x80 .set macro .set reorder #APP # 90 "avcall-mipsn32.c" 1 lwc1 $f18,68($16) # 0 "" 2 #NO_APP andi $2,$2,0x80 .L131: bne $2,$0,.L118 .L2: lw $2,40($16) .L124: .set noreorder .set nomacro beql $2,$0,.L123 slt $4,$4,9 .set macro .set reorder andi $6,$2,0x1 .set noreorder .set nomacro beq $6,$0,.L132 andi $6,$2,0x2 .set macro .set reorder #APP # 98 "avcall-mipsn32.c" 1 ldc1 $f12,0($12) # 0 "" 2 #NO_APP andi $6,$2,0x2 .L132: .set noreorder .set nomacro beq $6,$0,.L133 andi $6,$2,0x4 .set macro .set reorder #APP # 100 "avcall-mipsn32.c" 1 ldc1 $f13,8($12) # 0 "" 2 #NO_APP andi $6,$2,0x4 .L133: .set noreorder .set nomacro beq $6,$0,.L134 andi $6,$2,0x8 .set macro .set reorder #APP # 102 "avcall-mipsn32.c" 1 ldc1 $f14,16($12) # 0 "" 2 #NO_APP andi $6,$2,0x8 .L134: .set noreorder .set nomacro beq $6,$0,.L135 andi $6,$2,0x10 .set macro .set reorder #APP # 104 "avcall-mipsn32.c" 1 ldc1 $f15,24($12) # 0 "" 2 #NO_APP andi $6,$2,0x10 .L135: .set noreorder .set nomacro beq $6,$0,.L136 andi $6,$2,0x20 .set macro .set reorder #APP # 106 "avcall-mipsn32.c" 1 ldc1 $f16,32($12) # 0 "" 2 #NO_APP andi $6,$2,0x20 .L136: .set noreorder .set nomacro beq $6,$0,.L137 andi $6,$2,0x40 .set macro .set reorder #APP # 108 "avcall-mipsn32.c" 1 ldc1 $f17,40($12) # 0 "" 2 #NO_APP andi $6,$2,0x40 .L137: .set noreorder .set nomacro beql $6,$0,.L138 andi $2,$2,0x80 .set macro .set reorder #APP # 110 "avcall-mipsn32.c" 1 ldc1 $f18,48($12) # 0 "" 2 #NO_APP andi $2,$2,0x80 .L138: bne $2,$0,.L119 slt $4,$4,9 .L123: .set noreorder .set nomacro bne $4,$0,.L22 addiu $2,$12,64 .set macro .set reorder .align 3 .L83: ld $4,0($2) addiu $3,$3,8 addiu $2,$2,8 .set noreorder .set nomacro bne $5,$2,.L83 sd $4,-8($3) .set macro .set reorder .L22: #APP # 119 "avcall-mipsn32.c" 1 ld $4,0($12) # 0 "" 2 # 120 "avcall-mipsn32.c" 1 ld $5,8($12) # 0 "" 2 # 121 "avcall-mipsn32.c" 1 ld $6,16($12) # 0 "" 2 # 122 "avcall-mipsn32.c" 1 ld $7,24($12) # 0 "" 2 # 123 "avcall-mipsn32.c" 1 ld $8,32($12) # 0 "" 2 # 124 "avcall-mipsn32.c" 1 ld $9,40($12) # 0 "" 2 # 125 "avcall-mipsn32.c" 1 ld $10,48($12) # 0 "" 2 # 126 "avcall-mipsn32.c" 1 ld $11,56($12) # 0 "" 2 #NO_APP lw $25,4($16) jalr $25 lw $4,12($16) li $5,1 # 0x1 .set noreorder .set nomacro beql $4,$5,.L139 move $sp,$fp .set macro .set reorder .set noreorder .set nomacro beq $4,$0,.L116 li $5,2 # 0x2 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L109 li $5,3 # 0x3 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L109 li $5,4 # 0x4 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L109 li $5,5 # 0x5 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L112 li $5,6 # 0x6 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L112 li $5,7 # 0x7 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L111 li $5,8 # 0x8 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L111 li $5,9 # 0x9 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L111 li $5,10 # 0xa .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L111 li $5,11 # 0xb .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L116 li $5,12 # 0xc .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L116 li $5,13 # 0xd .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L120 li $5,14 # 0xe .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L121 li $5,15 # 0xf .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L111 li $5,16 # 0x10 .set macro .set reorder .set noreorder .set nomacro bnel $4,$5,.L139 move $sp,$fp .set macro .set reorder lw $4,0($16) andi $5,$4,0x200 .set noreorder .set nomacro beq $5,$0,.L19 andi $4,$4,0x4 .set macro .set reorder .set noreorder .set nomacro beql $4,$0,.L38 lw $5,16($16) .set macro .set reorder lw $3,16($16) li $4,1 # 0x1 .set noreorder .set nomacro beq $3,$4,.L109 li $4,2 # 0x2 .set macro .set reorder .set noreorder .set nomacro beq $3,$4,.L112 li $4,4 # 0x4 .set macro .set reorder .set noreorder .set nomacro beq $3,$4,.L111 li $4,8 # 0x8 .set macro .set reorder .set noreorder .set nomacro beql $3,$4,.L140 lw $3,8($16) .set macro .set reorder .L19: move $sp,$fp .L139: ld $31,24($sp) ld $fp,16($sp) ld $16,0($sp) move $2,$0 .set noreorder .set nomacro j $31 addiu $sp,$sp,32 .set macro .set reorder .align 3 .L116: lw $3,8($16) .align 3 .L140: sd $2,0($3) move $sp,$fp ld $31,24($sp) ld $fp,16($sp) ld $16,0($sp) move $2,$0 .set noreorder .set nomacro j $31 addiu $sp,$sp,32 .set macro .set reorder .align 3 .L119: #APP # 112 "avcall-mipsn32.c" 1 ldc1 $f19,56($12) # 0 "" 2 #NO_APP .set noreorder .set nomacro b .L123 slt $4,$4,9 .set macro .set reorder .align 3 .L118: #APP # 92 "avcall-mipsn32.c" 1 lwc1 $f19,72($16) # 0 "" 2 #NO_APP .set noreorder .set nomacro b .L124 lw $2,40($16) .set macro .set reorder .align 3 .L109: lw $3,8($16) sb $2,0($3) move $sp,$fp ld $31,24($sp) ld $fp,16($sp) ld $16,0($sp) move $2,$0 .set noreorder .set nomacro j $31 addiu $sp,$sp,32 .set macro .set reorder .L112: lw $3,8($16) .set noreorder .set nomacro b .L19 sh $2,0($3) .set macro .set reorder .L111: lw $3,8($16) sw $2,0($3) move $sp,$fp ld $31,24($sp) ld $fp,16($sp) ld $16,0($sp) move $2,$0 .set noreorder .set nomacro j $31 addiu $sp,$sp,32 .set macro .set reorder .L120: lw $2,8($16) .set noreorder .set nomacro b .L19 swc1 $f0,0($2) .set macro .set reorder .L121: lw $2,8($16) .set noreorder .set nomacro b .L19 sdc1 $f0,0($2) .set macro .set reorder .L38: addiu $4,$5,-1 sltu $4,$4,16 .set noreorder .set nomacro beq $4,$0,.L19 sltu $7,$5,9 .set macro .set reorder lw $6,8($16) li $8,-8 # 0xfffffffffffffff8 andi $4,$6,0x7 addu $5,$5,$4 .set noreorder .set nomacro beq $7,$0,.L42 and $6,$6,$8 .set macro .set reorder sltu $3,$5,9 .set noreorder .set nomacro beql $3,$0,.L43 ld $10,0($6) .set macro .set reorder sll $5,$5,3 ld $7,0($6) li $3,2 # 0x2 addiu $5,$5,-1 sll $4,$4,3 dsll $5,$3,$5 li $3,1 # 0x1 dsll $3,$3,$4 dsll $4,$2,$4 dsubu $3,$5,$3 xor $2,$4,$7 and $2,$3,$2 xor $2,$2,$7 .set noreorder .set nomacro b .L19 sd $2,0($6) .set macro .set reorder .align 3 .L42: ld $10,0($6) sll $9,$4,3 dsll $7,$2,$9 li $8,-1 # 0xffffffffffffffff dsll $8,$8,$9 xor $7,$7,$10 and $7,$8,$7 xor $7,$7,$10 sltu $8,$5,17 .set noreorder .set nomacro bne $8,$0,.L122 sd $7,0($6) .set macro .set reorder subu $4,$0,$4 ld $10,16($6) sll $4,$4,3 sll $5,$5,3 addiu $4,$4,64 addiu $5,$5,-129 li $7,2 # 0x2 move $8,$3 dsll $5,$7,$5 dsra $3,$3,$4 daddiu $5,$5,-1 xor $3,$3,$10 dsra $2,$2,$4 dsll $8,$8,$9 and $3,$5,$3 or $2,$2,$8 xor $3,$3,$10 sd $2,8($6) .set noreorder .set nomacro b .L19 sd $3,16($6) .set macro .set reorder .L43: ld $9,8($6) sll $3,$5,3 subu $5,$0,$4 addiu $8,$3,-65 sll $4,$4,3 sll $5,$5,3 li $3,2 # 0x2 dsll $7,$2,$4 dsll $3,$3,$8 dsra $2,$2,$5 li $5,-1 # 0xffffffffffffffff dsll $4,$5,$4 daddiu $3,$3,-1 xor $5,$7,$10 xor $2,$2,$9 and $2,$3,$2 and $4,$4,$5 xor $3,$4,$10 xor $2,$2,$9 sd $3,0($6) .set noreorder .set nomacro b .L19 sd $2,8($6) .set macro .set reorder .L122: subu $7,$0,$4 sll $7,$7,2 addiu $7,$7,32 ld $10,8($6) dsra $4,$2,$7 move $8,$3 sll $3,$5,3 addiu $3,$3,-65 dsra $5,$4,$7 dsll $2,$8,$9 li $4,2 # 0x2 dsll $3,$4,$3 or $2,$5,$2 daddiu $3,$3,-1 xor $2,$2,$10 and $2,$3,$2 xor $2,$2,$10 .set noreorder .set nomacro b .L19 sd $2,8($6) .set macro .set reorder .end avcall_call .size avcall_call, .-avcall_call .ident "GCC: (GNU) 5.4.0" libffcall-2.2/avcall/avcall-s390-linux.s0000664000000000000000000000341413530357110014705 00000000000000 .file "avcall-s390.c" .text .align 4 .globl avcall_call .type avcall_call,@function avcall_call: stm %r6,%r15,24(%r15) bras %r13,.LTN0_0 .LT0_0: .LC0: .long 1 .LTN0_0: lr %r14,%r15 ahi %r15,-96 lr %r10,%r2 lr %r11,%r15 lhi %r2,0 st %r14,0(%r15) l %r1,0(%r15) ahi %r15,-1032 l %r3,20(%r10) l %r4,24(%r10) sr %r3,%r4 sra %r3,2 la %r5,96(%r15) st %r1,0(%r15) cr %r2,%r3 l %r0,64(%r10) jhe .L55 .L6: lr %r1,%r2 sll %r1,2 ahi %r2,1 cr %r2,%r3 l %r9,0(%r1,%r4) st %r9,0(%r1,%r5) jl .L6 .L55: ltr %r0,%r0 je .L7 l %r1,72(%r10) tml %r1,1 je .L8 ld %f0,88(%r10) .L9: cl %r0,.LC0-.LT0_0(%r13) jle .L7 tml %r1,2 je .L12 ld %f2,96(%r10) .L7: l %r1,4(%r10) l %r4,52(%r10) l %r2,44(%r10) l %r3,48(%r10) l %r5,56(%r10) l %r6,60(%r10) basr %r14,%r1 l %r4,12(%r10) chi %r4,1 je .L16 ltr %r4,%r4 je .L65 chi %r4,2 je .L58 chi %r4,3 je .L58 chi %r4,4 je .L58 chi %r4,5 je .L57 chi %r4,6 je .L57 chi %r4,7 je .L65 chi %r4,8 je .L65 chi %r4,9 je .L65 chi %r4,10 je .L65 lr %r1,%r4 ahi %r1,-11 cl %r1,.LC0-.LT0_0(%r13) jle .L64 chi %r4,13 je .L66 chi %r4,14 je .L67 chi %r4,15 je .L65 chi %r4,16 je .L68 .L16: lhi %r2,0 l %r4,152(%r11) lm %r6,%r15,120(%r11) br %r4 .L68: tm 2(%r10),2 je .L16 l %r1,16(%r10) chi %r1,1 je .L58 chi %r1,2 je .L57 chi %r1,4 je .L65 chi %r1,8 jne .L16 .L64: l %r1,8(%r10) st %r3,4(%r1) .L56: st %r2,0(%r1) j .L16 .L65: l %r1,8(%r10) j .L56 .L57: l %r1,8(%r10) sth %r2,0(%r1) j .L16 .L58: l %r1,8(%r10) stc %r2,0(%r1) j .L16 .L67: l %r1,8(%r10) std %f0,0(%r1) j .L16 .L66: l %r1,8(%r10) ste %f0,0(%r1) j .L16 .L12: tm 71(%r10),2 je .L7 le %f2,80(%r10) j .L7 .L8: tm 71(%r10),1 je .L9 le %f0,76(%r10) j .L9 .Lfe1: .size avcall_call,.Lfe1-avcall_call .ident "GCC: (GNU) 3.1" libffcall-2.2/avcall/avcall.man0000664000000000000000000002403713530357246013403 00000000000000AVCALL(3) Library Functions Manual AVCALL(3) NAME avcall - build a C argument list incrementally and call a C function on it. SYNOPSIS #include  av_alist alist; av_start_type(alist, &func [[, return_type], &return_value ]); av_type(alist, [arg_type,] value); av_call(alist); DESCRIPTION This set of macros builds an argument list for a C function and calls the function on it. It significantly reduces the amount of `glue' code required for parsers, debuggers, imbedded interpreters, C extensions to application programs and other situations where collections of func‐ tions need to be called on lists of externally-supplied arguments. Function calling conventions differ considerably on different machines and avcall attempts to provide some degree of isolation from such architecture dependencies. The interface is like stdarg(3) in reverse. All of the macros return 0 for success, < 0 for failure (e.g., argument list overflow or type-not- supported). (1) #include  and declare the argument list structure av_alist alist; (2) Set any special flags. This is architecture and compiler depen‐ dent. Compiler options that affect passing conventions may need to be flagged by #defines before the #include state‐ ment. However, the configure script should have determined which #defines are needed and put them at the top of avcall.h. (3) Initialize the alist with the function address and return value pointer (if any). There is a separate macro for each simple return type ([u]char, [u]short, [u]int, [u]long, [u]longlong, float, double, where `u' indicates `unsigned'). The macros for functions returning structures or pointers require an explicit type argument. E.g., av_start_int (alist, &func, &int_return); av_start_double (alist, &func, &double_return); av_start_void (alist, &func); av_start_struct (alist, &func, struct_type, splittable, &struct_return); av_start_ptr (alist, &func, pointer_type, &pointer_return); The splittable flag specifies whether the struct_type can be returned in registers such that every struct field fits entirely in a single register. This needs to be specified for structs of size 2*sizeof(long). For structs of size <= sizeof(long), splittable is ignored and assumed to be 1. For structs of size > 2*sizeof(long), splittable is ignored and assumed to be 0. There are some handy macros for this: av_word_splittable_1 (type1) av_word_splittable_2 (type1, type2) av_word_splittable_3 (type1, type2, type3) av_word_splittable_4 (type1, type2, type3, type4) For a struct with three slots struct { type1 id1; type2 id2; type3 id3; } you can specify splittable as av_word_splittable_3 (type1, type2, type3) . (4) Push the arguments on to the list in order. Again there is a macro for each simple built-in type, and the macros for struc‐ ture and pointer arguments require an extra type argument: av_int (alist, int_value); av_double (alist, double_value); av_struct (alist, struct_or_union_type, struct_value); av_ptr (alist, pointer_type, pointer_value); (5) Call the function, set the return value, and tidy up: av_call (alist); NOTES (1) Functions whose first declaration is in Kernighan & Ritchie style (i.e., without a typed argument list) MUST use default K&R C expression promotions (char and short to int, float to double) whether they are compiled by a K&R or an ANSI compiler, because the true argument types may not be known at the call point. Such functions typically back-con‐ vert their arguments to the declared types on function entry. (In fact, the only way to pass a true char, short or float in K&R C is by an explicit cast: func((char)c,(float)f) ). Similarly, some K&R compilers (such as Sun cc on the sparc) actually return a float as a double. Hence, for arguments of functions declared in K&R style you should use av_int() and av_double() rather than av_char(), av_short() or av_float(). If you use a K&R compiler, the avcall header files may be able to detect this and define av_float(), etc, appropriately, but with an ANSI compiler there is no way avcall can know how a function was declared, so you have to correct the argument types yourself. (2) The explicit type arguments of the av_struct() and av_ptr() macros are typically used to calculate size, alignment, and passing conven‐ tions. This may not be sufficient for some machines with unusual structure and pointer handling: in this case additional av_start_type() and av_type() macros may be defined. (3) The macros av_start_longlong(), av_start_ulonglong(), av_longlong() and av_ulonglong() work only if the C compiler has a working long long 64-bit integer type. (4) The struct types used in av_start_struct() and av_struct() must only contain (signed or unsigned) int, long, long long or pointer fields. Struct types containing (signed or unsigned) char, short, float, double or other structs are not supported. SEE ALSO stdarg(3), varargs(3). BUGS The current implementations have been tested on a selection of common cases but there are probably still many bugs. There are typically built-in limits on the size of the argument-list, which may also include the size of any structure arguments. The decision whether a struct is to be returned in registers or in mem‐ ory considers only the struct's size and alignment. This is inaccurate: for example, gcc on m68k-next returns struct { char a,b,c; } in regis‐ ters and struct { char a[3]; } in memory, although both types have the same size and the same alignment. NON-BUGS All information is passed in CPU registers and the stack. The avcall package is therefore multithread-safe. PORTING AVCALL Ports, bug-fixes, and suggestions are most welcome. The macros required for argument pushing are pretty grungy, but it does seem to be possible to port avcall to a range of machines. Ports to non-standard or non-32-bit machines are especially welcome so we can sort the interface out before it's too late. Knowledge about argument passing conventions can be found in the gcc source, file gcc-2.6.3/config/cpu/cpu.h, section "Stack layout; func‐ tion entry, exit and calling." Some of the grunge is usually handled by a C or assembly level glue routine that actually pushes the arguments, calls the function and unpacks any return value. This is called avcall_call(). A precompiled assembler version for people without gcc is also made available. The routine should ideally have flags for the passing conventions of other compilers. Many of the current routines waste a lot of stack space and generally do hairy things to stack frames - a bit more assembly code would proba‐ bly help things along quite a bit here. AUTHOR Bill Triggs . ACKNOWLEDGEMENTS Some initial ideas were stolen from the C interface to the Zelk exten‐ sions to Oliver Laumann's Elk scheme interpreter by J.P.Lewis, NEC C&C Research, (for Sun4 & SGI), and Roy Feather‐ stone's personal C interface library for Sun[34] & SGI. I also looked at the machine-dependent parts of the GCC and GDB distributions, and put the gcc asm() extensions to good use. Thanks guys! This work was partly supported by EC-ESPRIT Basic Research Action SEC‐ OND. 23 July 2017 AVCALL(3) libffcall-2.2/avcall/avcall-hppa64-macro.S0000664000000000000000000002224413530357106015222 00000000000000#include "asm-hppa64.h" .LEVEL 2.0w TEXT1() TEXT2() .align 8 GLOBL(avcall_call) DECLARE_FUNCTION(avcall_call) DEF(avcall_call) .PROC .CALLINFO FRAME=256,CALLS,SAVE_RP,SAVE_SP,ENTRY_GR=9 .ENTRY copy %r3,%r1 std %r2,-16(%r30) copy %r30,%r3 std,ma %r1,256(%r30) ldi 8,%r31 std %r9,16(%r3) copy %r27,%r9 std %r8,24(%r3) copy %r26,%r8 std %r7,32(%r3) ldo -80(%r30),%r7 std %r6,40(%r3) std %r5,48(%r3) std %r4,56(%r3) ldd 40(%r26),%r29 ldd 48(%r26),%r5 sub %r29,%r5,%r29 extrd,s %r29,29+32-1,32,%r6 cmpb,<= %r6,%r31,L(115) ldo 2112(%r30),%r30 DEF(L(6)) depd,z %r31,60,61,%r29 ldo 1(%r31),%r31 add,l %r29,%r5,%r2 extrd,s %r31,63,32,%r31 ldd 0(%r2),%r4 add,l %r29,%r7,%r29 cmpb,> %r6,%r31,L(6) std %r4,0(%r29) DEF(L(115)) ldw 24(%r8),%r31 ldi 16,%r29 cmpb,= %r29,%r31,L(120) copy %r31,%r4 DEF(L(7)) cmpib,>=,n 0,%r6,L(8) ldw 68(%r8),%r2 extrw,u %r2,31,1,%r29 cmpib,=,n 0,%r29,L(9) fldd 0(%r5),%fr4 DEF(L(10)) cmpib,>=,n 1,%r6,L(8) ldi 2,%r31 and %r2,%r31,%r29 cmpib,=,n 0,%r29,L(14) fldd 8(%r5),%fr5 DEF(L(15)) cmpib,>=,n 2,%r6,L(8) ldi 4,%r31 and %r2,%r31,%r29 cmpib,=,n 0,%r29,L(19) fldd 16(%r5),%fr6 DEF(L(20)) cmpib,>=,n 3,%r6,L(8) ldi 8,%r31 and %r2,%r31,%r29 cmpib,=,n 0,%r29,L(24) fldd 24(%r5),%fr7 DEF(L(25)) cmpib,>=,n 4,%r6,L(8) ldi 16,%r31 and %r2,%r31,%r29 cmpib,=,n 0,%r29,L(29) fldd 32(%r5),%fr8 DEF(L(30)) cmpib,>=,n 5,%r6,L(8) ldi 32,%r31 and %r2,%r31,%r29 cmpib,=,n 0,%r29,L(34) fldd 40(%r5),%fr9 DEF(L(35)) cmpib,>=,n 6,%r6,L(8) ldi 64,%r31 and %r2,%r31,%r29 cmpib,=,n 0,%r29,L(39) fldd 48(%r5),%fr10 DEF(L(40)) cmpib,>=,n 7,%r6,L(8) ldi 128,%r31 and %r2,%r31,%r29 cmpib,=,n 0,%r29,L(44) fldd 56(%r5),%fr11 DEF(L(45)) cmpiclr,>= 8,%r6,%r0 ldo 64(%r7),%r1 DEF(L(8)) cmpib,=,n 13,%r4,L(121) cmpib,=,n 14,%r4,L(122) copy %r1,%r29 ldd 8(%r8),%r31 ldd 16(%r31),%r2 ldd 24(%r31),%r27 bve,l (%r2),%r2 nop ldw 24(%r8),%r2 copy %r9,%r27 cmpib,= 1,%r2,L(50) copy %r28,%r1 cmpib,=,n 0,%r2,L(116) cmpib,=,n 2,%r2,L(119) cmpib,=,n 3,%r2,L(119) cmpib,=,n 4,%r2,L(119) cmpib,=,n 5,%r2,L(118) cmpib,=,n 6,%r2,L(118) cmpib,=,n 7,%r2,L(117) cmpib,=,n 8,%r2,L(117) cmpib,=,n 9,%r2,L(116) cmpib,=,n 11,%r2,L(116) cmpib,=,n 10,%r2,L(116) cmpib,=,n 12,%r2,L(116) cmpib,= 15,%r2,L(116) ldi 16,%r31 cmpb,=,n %r31,%r2,L(123) DEF(L(50)) ldd -16(%r3),%r2 DEF(L(138)) ldi 0,%r28 ldd 16(%r3),%r9 ldd 24(%r3),%r8 ldd 32(%r3),%r7 ldd 40(%r3),%r6 ldd 48(%r3),%r5 ldd 56(%r3),%r4 ldo 64(%r3),%r30 bve (%r2) ldd,mb -64(%r30),%r3 DEF(L(123)) ldw 0(%r8),%r31 extrd,u %r31,54+1-1,1,%r31 cmpib,= 0,%r31,L(138) ldd -16(%r3),%r2 ldd 32(%r8),%r2 ldo -1(%r2),%r31 cmpib,*<<,n 15,%r31,L(138) ldd -16(%r3),%r2 cmpib,*=,n 1,%r2,L(124) cmpib,*=,n 2,%r2,L(125) cmpib,*= 3,%r2,L(126) extrd,s %r28,23,24,%r4 cmpib,*= 4,%r2,L(127) extrd,s %r28,31,32,%r5 cmpib,*=,n 5,%r2,L(128) cmpib,*=,n 6,%r2,L(129) cmpib,*= 7,%r2,L(130) ldo -8(%r2),%r31 cmpib,*<< 8,%r31,L(50) extrd,s %r28,7,8,%r31 ldd 16(%r8),%r2 stb %r31,0(%r2) extrd,s %r28,15,16,%r4 ldd 16(%r8),%r31 extrd,s %r28,23,24,%r2 stb %r4,1(%r31) extrd,s %r28,31,32,%r5 ldd 16(%r8),%r31 extrd,s %r28,39,40,%r4 stb %r2,2(%r31) extrd,s %r28,47,48,%r6 ldd 16(%r8),%r2 extrd,s %r28,55,56,%r7 stb %r5,3(%r2) ldd 16(%r8),%r31 stb %r4,4(%r31) ldd 16(%r8),%r2 stb %r6,5(%r2) ldd 16(%r8),%r31 stb %r7,6(%r31) ldd 16(%r8),%r2 stb %r28,7(%r2) ldd 32(%r8),%r2 cmpib,*=,n 8,%r2,L(138) ldd -16(%r3),%r2 cmpib,*=,n 9,%r2,L(131) cmpib,*=,n 10,%r2,L(132) cmpib,*=,n 11,%r2,L(133) cmpib,*=,n 12,%r2,L(134) cmpib,*= 13,%r2,L(135) extrd,s %r29,7,8,%r31 cmpib,*=,n 14,%r2,L(136) cmpib,*= 15,%r2,L(137) ldi 16,%r31 cmpb,*<> %r31,%r2,L(138) ldd -16(%r3),%r2 ldd 16(%r8),%r2 extrd,s %r29,7,8,%r31 stb %r31,8(%r2) extrd,s %r29,15,16,%r4 ldd 16(%r8),%r31 extrd,s %r29,23,24,%r2 stb %r4,9(%r31) extrd,s %r29,31,32,%r5 ldd 16(%r8),%r31 extrd,s %r29,39,40,%r4 stb %r2,10(%r31) extrd,s %r29,47,48,%r6 ldd 16(%r8),%r2 extrd,s %r29,55,56,%r7 stb %r5,11(%r2) ldd 16(%r8),%r31 stb %r4,12(%r31) ldd 16(%r8),%r2 stb %r6,13(%r2) ldd 16(%r8),%r31 stb %r7,14(%r31) ldd 16(%r8),%r2 b L(50) stb %r29,15(%r2) DEF(L(137)) ldd 16(%r8),%r2 extrd,s %r29,7,8,%r31 stb %r31,8(%r2) extrd,s %r29,15,16,%r4 ldd 16(%r8),%r31 extrd,s %r29,23,24,%r2 stb %r4,9(%r31) extrd,s %r29,31,32,%r5 ldd 16(%r8),%r31 extrd,s %r29,39,40,%r4 stb %r2,10(%r31) extrd,s %r29,47,48,%r6 ldd 16(%r8),%r2 extrd,s %r29,55,56,%r29 stb %r5,11(%r2) ldd 16(%r8),%r31 stb %r4,12(%r31) ldd 16(%r8),%r2 stb %r6,13(%r2) ldd 16(%r8),%r31 b L(50) stb %r29,14(%r31) DEF(L(136)) ldd 16(%r8),%r2 stb %r31,8(%r2) extrd,s %r29,15,16,%r4 ldd 16(%r8),%r31 extrd,s %r29,23,24,%r2 stb %r4,9(%r31) extrd,s %r29,31,32,%r5 ldd 16(%r8),%r31 extrd,s %r29,39,40,%r4 stb %r2,10(%r31) extrd,s %r29,47,48,%r29 ldd 16(%r8),%r31 stb %r5,11(%r31) ldd 16(%r8),%r2 stb %r4,12(%r2) ldd 16(%r8),%r31 b L(50) stb %r29,13(%r31) DEF(L(135)) ldd 16(%r8),%r2 stb %r31,8(%r2) extrd,s %r29,15,16,%r4 ldd 16(%r8),%r31 extrd,s %r29,23,24,%r5 stb %r4,9(%r31) extrd,s %r29,31,32,%r6 ldd 16(%r8),%r2 extrd,s %r29,39,40,%r29 stb %r5,10(%r2) ldd 16(%r8),%r31 stb %r6,11(%r31) ldd 16(%r8),%r2 b L(50) stb %r29,12(%r2) DEF(L(134)) ldd 16(%r8),%r2 extrd,s %r29,7,8,%r31 stb %r31,8(%r2) extrd,s %r29,15,16,%r4 ldd 16(%r8),%r31 extrd,s %r29,23,24,%r5 stb %r4,9(%r31) extrd,s %r29,31,32,%r29 ldd 16(%r8),%r31 stb %r5,10(%r31) ldd 16(%r8),%r2 b L(50) stb %r29,11(%r2) DEF(L(133)) ldd 16(%r8),%r2 extrd,s %r29,7,8,%r31 stb %r31,8(%r2) extrd,s %r29,15,16,%r4 ldd 16(%r8),%r2 extrd,s %r29,23,24,%r29 stb %r4,9(%r2) ldd 16(%r8),%r31 b L(50) stb %r29,10(%r31) DEF(L(132)) ldd 16(%r8),%r2 extrd,s %r29,7,8,%r31 stb %r31,8(%r2) extrd,s %r29,15,16,%r29 ldd 16(%r8),%r31 b L(50) stb %r29,9(%r31) DEF(L(131)) ldd 16(%r8),%r31 extrd,s %r29,7,8,%r29 b L(50) stb %r29,8(%r31) DEF(L(130)) ldd 16(%r8),%r31 extrd,s %r28,7,8,%r29 stb %r29,0(%r31) extrd,s %r28,15,16,%r2 ldd 16(%r8),%r29 extrd,s %r28,23,24,%r31 stb %r2,1(%r29) extrd,s %r28,31,32,%r4 ldd 16(%r8),%r29 extrd,s %r28,39,40,%r2 stb %r31,2(%r29) extrd,s %r28,47,48,%r5 ldd 16(%r8),%r31 extrd,s %r28,55,56,%r6 stb %r4,3(%r31) ldd 16(%r8),%r29 stb %r2,4(%r29) ldd 16(%r8),%r31 stb %r5,5(%r31) ldd 16(%r8),%r29 b L(50) stb %r6,6(%r29) DEF(L(129)) ldd 16(%r8),%r31 extrd,s %r28,7,8,%r29 stb %r29,0(%r31) extrd,s %r28,15,16,%r2 ldd 16(%r8),%r29 extrd,s %r28,23,24,%r31 stb %r2,1(%r29) extrd,s %r28,31,32,%r4 ldd 16(%r8),%r29 extrd,s %r28,39,40,%r2 stb %r31,2(%r29) extrd,s %r28,47,48,%r5 ldd 16(%r8),%r29 stb %r4,3(%r29) ldd 16(%r8),%r31 stb %r2,4(%r31) ldd 16(%r8),%r29 b L(50) stb %r5,5(%r29) DEF(L(128)) ldd 16(%r8),%r31 extrd,s %r28,7,8,%r29 stb %r29,0(%r31) extrd,s %r28,15,16,%r2 ldd 16(%r8),%r29 stb %r2,1(%r29) ldd 16(%r8),%r31 extrd,s %r28,39,40,%r2 stb %r4,2(%r31) ldd 16(%r8),%r29 stb %r5,3(%r29) ldd 16(%r8),%r31 b L(50) stb %r2,4(%r31) DEF(L(127)) ldd 16(%r8),%r31 extrd,s %r28,7,8,%r29 stb %r29,0(%r31) extrd,s %r28,15,16,%r2 ldd 16(%r8),%r29 stb %r2,1(%r29) ldd 16(%r8),%r29 stb %r4,2(%r29) ldd 16(%r8),%r31 b L(50) stb %r5,3(%r31) DEF(L(126)) ldd 16(%r8),%r31 extrd,s %r28,7,8,%r29 stb %r29,0(%r31) extrd,s %r28,15,16,%r2 ldd 16(%r8),%r31 stb %r2,1(%r31) ldd 16(%r8),%r29 b L(50) stb %r4,2(%r29) DEF(L(125)) ldd 16(%r8),%r31 extrd,s %r28,7,8,%r29 stb %r29,0(%r31) extrd,s %r28,15,16,%r2 ldd 16(%r8),%r29 b L(50) stb %r2,1(%r29) DEF(L(124)) ldd 16(%r8),%r31 extrd,s %r28,7,8,%r29 b L(50) stb %r29,0(%r31) DEF(L(116)) ldd 16(%r8),%r29 b L(50) std %r1,0(%r29) DEF(L(117)) ldd 16(%r8),%r29 b L(50) stw %r1,0(%r29) DEF(L(118)) ldd 16(%r8),%r29 b L(50) sth %r1,0(%r29) DEF(L(119)) ldd 16(%r8),%r29 b L(50) stb %r1,0(%r29) DEF(L(122)) copy %r1,%r29 ldd 8(%r8),%r31 ldd 16(%r31),%r2 ldd 24(%r31),%r27 bve,l (%r2),%r2 nop ldd 16(%r8),%r29 copy %r9,%r27 b L(50) fstd %fr4,0(%r29) DEF(L(121)) copy %r1,%r29 ldd 8(%r8),%r31 ldd 16(%r31),%r2 ldd 24(%r31),%r27 bve,l (%r2),%r2 nop ldd 16(%r8),%r29 copy %r9,%r27 b L(50) fstw %fr4R,0(%r29) DEF(L(44)) ldw 64(%r8),%r29 and %r29,%r31,%r29 cmpib,=,n 0,%r29,L(45) ldd 56(%r5),%r19 fldw 60(%r5),%fr11R b,n L(45) DEF(L(39)) ldw 64(%r8),%r29 and %r29,%r31,%r29 cmpib,=,n 0,%r29,L(40) ldd 48(%r5),%r20 fldw 52(%r5),%fr10R b,n L(40) DEF(L(34)) ldw 64(%r8),%r29 and %r29,%r31,%r29 cmpib,=,n 0,%r29,L(35) ldd 40(%r5),%r21 fldw 44(%r5),%fr9R b,n L(35) DEF(L(29)) ldw 64(%r8),%r29 and %r29,%r31,%r29 cmpib,=,n 0,%r29,L(30) ldd 32(%r5),%r22 fldw 36(%r5),%fr8R b,n L(30) DEF(L(24)) ldw 64(%r8),%r29 and %r29,%r31,%r29 cmpib,=,n 0,%r29,L(25) ldd 24(%r5),%r23 fldw 28(%r5),%fr7R b,n L(25) DEF(L(19)) ldw 64(%r8),%r29 and %r29,%r31,%r29 cmpib,=,n 0,%r29,L(20) ldd 16(%r5),%r24 fldw 20(%r5),%fr6R b,n L(20) DEF(L(14)) ldw 64(%r8),%r29 and %r29,%r31,%r29 cmpib,=,n 0,%r29,L(15) ldd 8(%r5),%r25 fldw 12(%r5),%fr5R b,n L(15) DEF(L(9)) ldw 64(%r8),%r29 extrw,u %r29,31,1,%r29 cmpib,=,n 0,%r29,L(10) ldd 0(%r5),%r26 fldw 4(%r5),%fr4R b,n L(10) DEF(L(120)) b L(7) ldd 16(%r8),%r28 .EXIT .PROCEND DEF(L(fe1)) FUNEND(avcall_call) #if defined __linux__ || defined __FreeBSD__ || defined __FreeBSD_kernel__ || defined __DragonFly__ .section .note.GNU-stack,"",@progbits #endif libffcall-2.2/avcall/avcall-sparc.c0000664000000000000000000001541313347755261014163 00000000000000/** Copyright 1993 Bill Triggs Copyright 1995-2017 Bruno Haible This program is free software: you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program. If not, see . **/ /*---------------------------------------------------------------------- !!! THIS ROUTINE MUST BE COMPILED gcc -O !!! Foreign function interface for a Sun4 Sparc with gcc/sun-cc. This calls a C function with an argument list built up using macros defined in avcall.h. Sparc Argument Passing Conventions The first 6 words of arguments are passed in integer registers o0-o5 regardless of type or alignment. (Registers are windowed: o0-o5 become i0-i5 if the called function executes a ‘save’ instruction.) Remaining arguments are pushed onto the stack starting at a fixed offset ("argframe"). Space is left on the stack frame for temporary storage of the register arguments as well. Doubles may be cut in half and misaligned. Shorter integers are always promoted to word-length. Functions with K&R-style declarations and float args pass them as doubles and truncate them on function entry. Structures are passed as pointers to a local copy of the structure made by the caller. Integers and pointers are returned in o0, floats in f0, doubles in f0/f1. If the function returns a structure a pointer to space allocated by the caller is pushed onto the stack immediately before the function arguments. Gcc without -fpcc-struct-return returns <= 4 byte structures as integers. Sun cc allocates temporary space for a returned structure just below the current frame pointer $fp (the $sp of the caller), and the caller must copy them from there. It also returns the temp address in $o0, but that gets nuked in the return in the code below so we can't use it. **The Sun cc struct return stuff below is a kludge**, but seems to work on the test cases... Compile this routine with gcc for the __asm__ extensions and with optimisation on (-O or -O2 or -g -O) so that argframe is set to the correct offset. (%sp is used differently in non-optimized code). For Sun cc, use the pre-compiled assembler version of this routine. ----------------------------------------------------------------------*/ #include "avcall-internal.h" #define RETURN(TYPE,VAL) (*(TYPE*)l->raddr = (TYPE)(VAL)) register void* callee __asm__("%g2"); /* any global or local register */ register __avword o0 __asm__("%o0"); register __avword o1 __asm__("%o1"); register __avword o2 __asm__("%o2"); register __avword o3 __asm__("%o3"); register __avword o4 __asm__("%o4"); register __avword o5 __asm__("%o5"); int avcall_call(av_alist* list) { /*?? We probably need to make space for Sun cc struct return somewhere here. */ register __avword* sp __asm__("%sp"); /* C names for registers */ register float fret __asm__("%f0"); /* %f0 */ register double dret __asm__("%f0"); /* %f0,%f1 */ __av_alist* l = &AV_LIST_INNER(list); __avword trampoline[6]; /* room for a trampoline */ __avword space[__AV_ALIST_WORDS]; /* space for callee's stack frame */ __avword *argframe = sp + 17; /* stack offset for argument list */ int arglen = l->aptr - l->args; __avword i; if (l->rtype == __AVstruct) argframe[-1] = (__avword)l->raddr; /* push struct return address */ { int i; for (i = 6; i < arglen; i++) /* push excess function args */ argframe[i] = l->args[i]; } if ((l->rtype == __AVstruct) && (l->flags & __AV_SUNPROCC_STRUCT_RETURN)) /* SUNWspro cc compiled functions don't copy the structure to the area * pointed to by argframe[-1] unless the caller has a proper "unimp n" * instruction. We generate the calling instructions on the stack. */ { trampoline[0] = 0x9FC08000; /* call %g2 */ trampoline[1] = 0x01000000; /* nop */ trampoline[2] = l->rsize & 0xFFF; /* unimp n */ trampoline[3] = 0xB0102000; /* mov 0,%i0 */ trampoline[4] = 0x81C7E008; /* ret */ trampoline[5] = 0x81E80000; /* restore */ __asm__ __volatile__ ("iflush %0" : : "r" (&trampoline[0])); __asm__ __volatile__ ("iflush %0" : : "r" (&trampoline[2])); __asm__ __volatile__ ("iflush %0" : : "r" (&trampoline[4])); __asm__ __volatile__ ("iflush %0" : : "r" (&trampoline[5])); o0 = l->args[0]; o1 = l->args[1]; o2 = l->args[2]; o3 = l->args[3]; o4 = l->args[4]; o5 = l->args[5]; callee = l->func; goto *(void*)trampoline; } /* call function with 1st 6 args */ i = ({ register __avword iret __asm__("%o0"); iret = (*l->func)(l->args[0], l->args[1], l->args[2], l->args[3], l->args[4], l->args[5]); asm ("nop"); /* struct returning functions skip this instruction */ iret; }); /* save return value */ if (l->rtype == __AVvoid) { } else if (l->rtype == __AVword) { RETURN(__avword, i); } else if (l->rtype == __AVchar) { RETURN(char, i); } else if (l->rtype == __AVschar) { RETURN(signed char, i); } else if (l->rtype == __AVuchar) { RETURN(unsigned char, i); } else if (l->rtype == __AVshort) { RETURN(short, i); } else if (l->rtype == __AVushort) { RETURN(unsigned short, i); } else if (l->rtype == __AVint) { RETURN(int, i); } else if (l->rtype == __AVuint) { RETURN(unsigned int, i); } else if (l->rtype == __AVlong) { RETURN(long, i); } else if (l->rtype == __AVulong) { RETURN(unsigned long, i); } else if (l->rtype == __AVlonglong || l->rtype == __AVulonglong) { void* raddr = l->raddr; ((__avword*)raddr)[0] = i; ((__avword*)raddr)[1] = o1; } else if (l->rtype == __AVfloat) { /* old Sun cc returns floats as doubles */ if (l->flags & __AV_SUNCC_FLOAT_RETURN) { RETURN(float, (float)dret); } else { RETURN(float, fret); } } else if (l->rtype == __AVdouble) { RETURN(double, dret); } else if (l->rtype == __AVvoidp) { RETURN(void*, i); } else if (l->rtype == __AVstruct) { if (l->flags & __AV_SMALL_STRUCT_RETURN) { if (l->rsize == sizeof(char)) { RETURN(char, i); } else if (l->rsize == sizeof(short)) { RETURN(short, i); } else if (l->rsize == sizeof(int)) { RETURN(int, i); } } } return 0; } libffcall-2.2/avcall/avcall-riscv32.c0000664000000000000000000002455713527104765014354 00000000000000/** Copyright 1993 Bill Triggs Copyright 1995-2019 Bruno Haible This program is free software: you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program. If not, see . **/ /*---------------------------------------------------------------------- Foreign function interface for a Linux riscv32 with ILP32 ABI. This calls a C function with an argument list built up using macros defined in avcall.h. RISC-V Argument Passing Conventions are documented in https://people.eecs.berkeley.edu/~krste/papers/riscv-spec-v2.1.pdf chapter 20. ----------------------------------------------------------------------*/ #include "avcall-internal.h" #define RETURN(TYPE,VAL) (*(TYPE*)l->raddr = (TYPE)(VAL)) register __avword iarg1 __asm__("a0"); register __avword iarg2 __asm__("a1"); register __avword iarg3 __asm__("a2"); register __avword iarg4 __asm__("a3"); register __avword iarg5 __asm__("a4"); register __avword iarg6 __asm__("a5"); register __avword iarg7 __asm__("a6"); register __avword iarg8 __asm__("a7"); register float farg1 __asm__("fa0"); register float farg2 __asm__("fa1"); register float farg3 __asm__("fa2"); register float farg4 __asm__("fa3"); register float farg5 __asm__("fa4"); register float farg6 __asm__("fa5"); register float farg7 __asm__("fa6"); register float farg8 __asm__("fa7"); register double darg1 __asm__("fa0"); register double darg2 __asm__("fa1"); register double darg3 __asm__("fa2"); register double darg4 __asm__("fa3"); register double darg5 __asm__("fa4"); register double darg6 __asm__("fa5"); register double darg7 __asm__("fa6"); register double darg8 __asm__("fa7"); int avcall_call(av_alist* list) { register __avword iretreg __asm__("a0"); register __avword iret2reg __asm__("a1"); register double dret __asm__("fa0"); __av_alist* l = &AV_LIST_INNER(list); __avword* argframe = __builtin_alloca(__AV_ALIST_WORDS * sizeof(__avword)); /* make room for argument list */ int arglen = l->aptr - l->args; unsigned int fanum = l->fanum; { int i; for (i = 8; i < arglen; i++) /* push function args onto stack */ argframe[i-8] = l->args[i]; } /* Put up to 8 integer args into registers. */ if (arglen >= 1) { iarg1 = l->args[0]; if (arglen >= 2) { iarg2 = l->args[1]; if (arglen >= 3) { iarg3 = l->args[2]; if (arglen >= 4) { iarg4 = l->args[3]; if (arglen >= 5) { iarg5 = l->args[4]; if (arglen >= 6) { iarg6 = l->args[5]; if (arglen >= 7) { iarg7 = l->args[6]; if (arglen >= 8) { iarg8 = l->args[7]; } } } } } } } } /* Put upto 8 floating-point args into registers. */ if (fanum >= 1) { if (l->darg_mask & (1 << 0)) darg1 = l->dargs[0]; else if (l->farg_mask & (1 << 0)) farg1 = l->fargs[0]; if (fanum >= 2) { if (l->darg_mask & (1 << 1)) darg2 = l->dargs[1]; else if (l->farg_mask & (1 << 1)) farg2 = l->fargs[1]; if (fanum >= 3) { if (l->darg_mask & (1 << 2)) darg3 = l->dargs[2]; else if (l->farg_mask & (1 << 2)) farg3 = l->fargs[2]; if (fanum >= 4) { if (l->darg_mask & (1 << 3)) darg4 = l->dargs[3]; else if (l->farg_mask & (1 << 3)) farg4 = l->fargs[3]; if (fanum >= 5) { if (l->darg_mask & (1 << 4)) darg5 = l->dargs[4]; else if (l->farg_mask & (1 << 4)) farg5 = l->fargs[4]; if (fanum >= 6) { if (l->darg_mask & (1 << 5)) darg6 = l->dargs[5]; else if (l->farg_mask & (1 << 5)) farg6 = l->fargs[5]; if (fanum >= 7) { if (l->darg_mask & (1 << 6)) darg7 = l->dargs[6]; else if (l->farg_mask & (1 << 6)) farg7 = l->fargs[6]; if (fanum >= 8) { if (l->darg_mask & (1 << 7)) darg8 = l->dargs[7]; else if (l->farg_mask & (1 << 7)) farg8 = l->fargs[7]; } } } } } } } } /* Call function. */ if (l->rtype == __AVfloat) { *(float*)l->raddr = (*(float(*)())l->func)(); } else if (l->rtype == __AVdouble) { *(double*)l->raddr = (*(double(*)())l->func)(); } else { __avword iret, iret2; iret = (*l->func)(); iret2 = iret2reg; /* save return value */ if (l->rtype == __AVvoid) { } else if (l->rtype == __AVword) { RETURN(__avword, iret); } else if (l->rtype == __AVchar) { RETURN(char, iret); } else if (l->rtype == __AVschar) { RETURN(signed char, iret); } else if (l->rtype == __AVuchar) { RETURN(unsigned char, iret); } else if (l->rtype == __AVshort) { RETURN(short, iret); } else if (l->rtype == __AVushort) { RETURN(unsigned short, iret); } else if (l->rtype == __AVint) { RETURN(int, iret); } else if (l->rtype == __AVuint) { RETURN(unsigned int, iret); } else if (l->rtype == __AVlong) { RETURN(long, iret); } else if (l->rtype == __AVulong) { RETURN(unsigned long, iret); } else if (l->rtype == __AVlonglong || l->rtype == __AVulonglong) { void* raddr = l->raddr; ((__avword*)raddr)[0] = iret; ((__avword*)raddr)[1] = iret2; } else /* see above if (l->rtype == __AVfloat) { } else if (l->rtype == __AVdouble) { } else */ if (l->rtype == __AVvoidp) { RETURN(void*, iret); } else if (l->rtype == __AVstruct) { if (l->flags & __AV_SMALL_STRUCT_RETURN) { /* Return structs of size <= 8 in registers. */ if (l->rsize > 0 && l->rsize <= 8) { void* raddr = l->raddr; #if 0 /* Unoptimized */ if (l->rsize == 1) { ((unsigned char *)raddr)[0] = (unsigned char)(iret); } else if (l->rsize == 2) { ((unsigned char *)raddr)[0] = (unsigned char)(iret); ((unsigned char *)raddr)[1] = (unsigned char)(iret>>8); } else if (l->rsize == 3) { ((unsigned char *)raddr)[0] = (unsigned char)(iret); ((unsigned char *)raddr)[1] = (unsigned char)(iret>>8); ((unsigned char *)raddr)[2] = (unsigned char)(iret>>16); } else if (l->rsize >= 4 && l->rsize <= 8) { ((unsigned char *)raddr)[0] = (unsigned char)(iret); ((unsigned char *)raddr)[1] = (unsigned char)(iret>>8); ((unsigned char *)raddr)[2] = (unsigned char)(iret>>16); ((unsigned char *)raddr)[3] = (unsigned char)(iret>>24); if (l->rsize == 4) { } else if (l->rsize == 5) { ((unsigned char *)raddr)[4+0] = (unsigned char)(iret2); } else if (l->rsize == 6) { ((unsigned char *)raddr)[4+0] = (unsigned char)(iret2); ((unsigned char *)raddr)[4+1] = (unsigned char)(iret2>>8); } else if (l->rsize == 7) { ((unsigned char *)raddr)[4+0] = (unsigned char)(iret2); ((unsigned char *)raddr)[4+1] = (unsigned char)(iret2>>8); ((unsigned char *)raddr)[4+2] = (unsigned char)(iret2>>16); } else if (l->rsize == 8) { ((unsigned char *)raddr)[4+0] = (unsigned char)(iret2); ((unsigned char *)raddr)[4+1] = (unsigned char)(iret2>>8); ((unsigned char *)raddr)[4+2] = (unsigned char)(iret2>>16); ((unsigned char *)raddr)[4+3] = (unsigned char)(iret2>>24); } } #else /* Optimized: fewer conditional jumps, fewer memory accesses */ uintptr_t count = l->rsize; /* > 0, ≤ 2*sizeof(__avword) */ __avword* wordaddr = (__avword*)((uintptr_t)raddr & ~(uintptr_t)(sizeof(__avword)-1)); uintptr_t start_offset = (uintptr_t)raddr & (uintptr_t)(sizeof(__avword)-1); /* ≥ 0, < sizeof(__avword) */ uintptr_t end_offset = start_offset + count; /* > 0, < 3*sizeof(__avword) */ if (count <= sizeof(__avword)) { /* Use iret. */ if (end_offset <= sizeof(__avword)) { /* 0 < end_offset ≤ sizeof(__avword) */ __avword mask0 = ((__avword)2 << (end_offset*8-1)) - ((__avword)1 << (start_offset*8)); wordaddr[0] ^= (wordaddr[0] ^ (iret << (start_offset*8))) & mask0; } else { /* sizeof(__avword) < end_offset < 2*sizeof(__avword), start_offset > 0 */ __avword mask0 = - ((__avword)1 << (start_offset*8)); __avword mask1 = ((__avword)2 << (end_offset*8-sizeof(__avword)*8-1)) - 1; wordaddr[0] ^= (wordaddr[0] ^ (iret << (start_offset*8))) & mask0; wordaddr[1] ^= (wordaddr[1] ^ (iret >> (sizeof(__avword)*8-start_offset*8))) & mask1; } } else { /* Use iret, iret2. */ __avword mask0 = - ((__avword)1 << (start_offset*8)); wordaddr[0] ^= (wordaddr[0] ^ (iret << (start_offset*8))) & mask0; if (end_offset <= 2*sizeof(__avword)) { /* sizeof(__avword) < end_offset ≤ 2*sizeof(__avword) */ __avword mask1 = ((__avword)2 << (end_offset*8-sizeof(__avword)*8-1)) - 1; wordaddr[1] ^= (wordaddr[1] ^ ((iret >> (sizeof(__avword)*4-start_offset*4) >> (sizeof(__avword)*4-start_offset*4)) | (iret2 << (start_offset*8)))) & mask1; } else { /* 2*sizeof(__avword) < end_offset < 3*sizeof(__avword), start_offset > 0 */ __avword mask2 = ((__avword)2 << (end_offset*8-2*sizeof(__avword)*8-1)) - 1; wordaddr[1] = (iret >> (sizeof(__avword)*8-start_offset*8)) | (iret2 << (start_offset*8)); wordaddr[2] ^= (wordaddr[2] ^ (iret2 >> (sizeof(__avword)*8-start_offset*8))) & mask2; } } #endif } } } } return 0; } libffcall-2.2/avcall/avcall-x86_64-linux.s0000664000000000000000000002374313530357110015154 00000000000000 .file "avcall-x86_64.c" .text .p2align 4,,15 .globl avcall_call .type avcall_call, @function avcall_call: .LFB2: pushq %rbp .LCFI0: movq %rsp, %rbp .LCFI1: pushq %r13 .LCFI2: pushq %r12 .LCFI3: pushq %rbx .LCFI4: movq %rdi, %rbx leaq 128(%rbx), %rdx subq $2072, %rsp .LCFI5: movq 40(%rdi), %rax movq 48(%rdi), %r8 leaq 15(%rsp), %rsi subq %r8, %rax andq $-16, %rsi movq %rax, %rdi movq 120(%rbx), %rax shrq $3, %rdi subq %rdx, %rax movq %rax, %r9 shrq $3, %r9 testl %edi, %edi jle .L2 xorl %ecx, %ecx xorl %edx, %edx .p2align 4,,7 .L4: movq (%rdx,%r8), %rax incl %ecx movq %rax, (%rsi,%rdx) addq $8, %rdx cmpl %ecx, %edi jne .L4 .L2: movl 24(%rbx), %eax cmpl $13, %eax je .L127 cmpl $14, %eax je .L128 cmpl $7, %r9d movq 8(%rbx), %r12 jle .L58 movlpd 184(%rbx), %xmm10 .L60: movq 176(%rbx), %r9 .L63: movq 168(%rbx), %r11 .L66: movq 160(%rbx), %r10 .L69: movlpd 152(%rbx), %xmm8 .L72: movq 144(%rbx), %rax .L75: movq 136(%rbx), %r8 .L78: movlpd 128(%rbx), %xmm9 .L81: movq 88(%rbx), %rdx movq 96(%rbx), %rcx movsd %xmm10, %xmm7 movq 80(%rbx), %rsi movq 72(%rbx), %rdi movsd %xmm8, %xmm3 movq %r9, -32(%rbp) movsd %xmm9, %xmm0 movlpd -32(%rbp), %xmm6 movq %r11, -32(%rbp) movlpd -32(%rbp), %xmm5 movq %r10, -32(%rbp) movlpd -32(%rbp), %xmm4 movq %rax, -32(%rbp) movl $8, %eax movlpd -32(%rbp), %xmm2 movq %r8, -32(%rbp) movlpd -32(%rbp), %xmm1 movq 112(%rbx), %r9 movq 104(%rbx), %r8 call *%r12 movq %rax, %r8 movl 24(%rbx), %eax movq %rdx, %r9 cmpl $1, %eax je .L31 testl %eax, %eax je .L125 cmpl $2, %eax je .L122 cmpl $3, %eax .p2align 4,,5 je .L122 cmpl $4, %eax .p2align 4,,5 je .L122 cmpl $5, %eax .p2align 4,,5 je .L123 cmpl $6, %eax .p2align 4,,5 je .L123 cmpl $7, %eax .p2align 4,,5 je .L124 cmpl $8, %eax .p2align 4,,5 je .L124 cmpl $9, %eax .p2align 4,,5 je .L125 cmpl $10, %eax .p2align 4,,5 je .L125 cmpl $11, %eax .p2align 4,,5 je .L125 cmpl $12, %eax .p2align 4,,5 je .L125 cmpl $15, %eax .p2align 4,,5 je .L125 cmpl $16, %eax .p2align 4,,5 jne .L31 testb $2, 1(%rbx) .p2align 4,,5 je .L31 movq 32(%rbx), %rdx leaq -1(%rdx), %rax cmpq $15, %rax ja .L31 movq 16(%rbx), %rax movq %rax, %r10 movq %rax, %rdi andl $7, %edi andq $-8, %r10 cmpq $8, %rdx leaq (%rdx,%rdi), %r11 ja .L112 cmpq $8, %r11 ja .L114 leal -1(,%r11,8), %ecx movq (%r10), %rsi sall $3, %edi movl $2, %edx movl $1, %eax salq %cl, %rdx movl %edi, %ecx salq %cl, %rax salq %cl, %r8 xorq %rsi, %r8 subq %rax, %rdx andq %r8, %rdx xorq %rdx, %rsi movq %rsi, (%r10) .L31: leaq -24(%rbp), %rsp xorl %eax, %eax popq %rbx popq %r12 popq %r13 leave ret .L58: je .L129 cmpl $5, %r9d jle .L64 xorl %r9d, %r9d movq %r9, -32(%rbp) movlpd -32(%rbp), %xmm10 .p2align 4,,3 jmp .L63 .L127: cmpl $7, %r9d movq 16(%rbx), %r13 movq 8(%rbx), %r12 jle .L7 movlpd 184(%rbx), %xmm10 .L9: movq 176(%rbx), %r9 .L12: movq 168(%rbx), %r11 .L15: movq 160(%rbx), %r10 .L18: movlpd 152(%rbx), %xmm8 .L21: movq 144(%rbx), %rax .L24: movq 136(%rbx), %r8 .L27: movlpd 128(%rbx), %xmm9 .L30: movq 96(%rbx), %rcx movq 88(%rbx), %rdx movsd %xmm10, %xmm7 movq 80(%rbx), %rsi movq 72(%rbx), %rdi movsd %xmm8, %xmm3 movq %r9, -32(%rbp) movsd %xmm9, %xmm0 movlpd -32(%rbp), %xmm6 movq %r11, -32(%rbp) movlpd -32(%rbp), %xmm5 movq %r10, -32(%rbp) movlpd -32(%rbp), %xmm4 movq %rax, -32(%rbp) movl $8, %eax movlpd -32(%rbp), %xmm2 movq %r8, -32(%rbp) movlpd -32(%rbp), %xmm1 movq 112(%rbx), %r9 movq 104(%rbx), %r8 call *%r12 movss %xmm0, (%r13) leaq -24(%rbp), %rsp xorl %eax, %eax popq %rbx popq %r12 popq %r13 leave ret .L125: movq 16(%rbx), %rax movq %r8, (%rax) leaq -24(%rbp), %rsp xorl %eax, %eax popq %rbx popq %r12 popq %r13 leave ret .L128: cmpl $7, %r9d movq 16(%rbx), %r13 movq 8(%rbx), %r12 jle .L34 movlpd 184(%rbx), %xmm10 .L36: movq 176(%rbx), %r10 .L39: movq 168(%rbx), %r11 .L42: movq 160(%rbx), %r9 .L45: movlpd 152(%rbx), %xmm8 .L48: movq 144(%rbx), %rax .L51: movq 136(%rbx), %r8 .L54: movlpd 128(%rbx), %xmm9 .L57: movq 96(%rbx), %rcx movq 88(%rbx), %rdx movsd %xmm10, %xmm7 movq 80(%rbx), %rsi movq 72(%rbx), %rdi movsd %xmm8, %xmm3 movq %r10, -32(%rbp) movsd %xmm9, %xmm0 movlpd -32(%rbp), %xmm6 movq %r11, -32(%rbp) movlpd -32(%rbp), %xmm5 movq %r9, -32(%rbp) movlpd -32(%rbp), %xmm4 movq %rax, -32(%rbp) movl $8, %eax movlpd -32(%rbp), %xmm2 movq %r8, -32(%rbp) movlpd -32(%rbp), %xmm1 movq 112(%rbx), %r9 movq 104(%rbx), %r8 call *%r12 movsd %xmm0, (%r13) leaq -24(%rbp), %rsp xorl %eax, %eax popq %rbx popq %r12 popq %r13 leave ret .L7: jne .L10 xorpd %xmm10, %xmm10 jmp .L9 .L129: xorpd %xmm10, %xmm10 .p2align 4,,7 jmp .L60 .L34: .p2align 4,,7 jne .L37 xorpd %xmm10, %xmm10 .p2align 4,,7 jmp .L36 .L122: movq 16(%rbx), %rax movb %r8b, (%rax) leaq -24(%rbp), %rsp xorl %eax, %eax popq %rbx popq %r12 popq %r13 leave ret .L10: cmpl $5, %r9d jg .L130 jne .L16 xorl %r9d, %r9d movq %r9, -32(%rbp) movq %r9, %r11 movlpd -32(%rbp), %xmm10 jmp .L15 .L64: .p2align 4,,3 je .L131 cmpl $3, %r9d jle .L70 xorl %r9d, %r9d movq %r9, -32(%rbp) movq %r9, %r10 movq %r9, %r11 movlpd -32(%rbp), %xmm10 jmp .L69 .L37: cmpl $5, %r9d jg .L132 jne .L43 xorl %r10d, %r10d movq %r10, -32(%rbp) movq %r10, %r11 movlpd -32(%rbp), %xmm10 jmp .L42 .L130: xorl %r9d, %r9d movq %r9, -32(%rbp) movlpd -32(%rbp), %xmm10 jmp .L12 .L131: xorl %r9d, %r9d movq %r9, -32(%rbp) movq %r9, %r11 movlpd -32(%rbp), %xmm10 jmp .L66 .L132: xorl %r10d, %r10d movq %r10, -32(%rbp) movlpd -32(%rbp), %xmm10 jmp .L39 .L123: movq 16(%rbx), %rax movw %r8w, (%rax) jmp .L31 .L124: movq 16(%rbx), %rax movl %r8d, (%rax) jmp .L31 .L16: cmpl $3, %r9d jle .L19 xorl %r9d, %r9d movq %r9, -32(%rbp) movq %r9, %r10 movq %r9, %r11 movlpd -32(%rbp), %xmm10 jmp .L18 .L70: jne .L73 xorl %r9d, %r9d movq %r9, -32(%rbp) movq %r9, %r10 movq %r9, %r11 movlpd -32(%rbp), %xmm10 movsd %xmm10, %xmm8 jmp .L72 .L43: cmpl $3, %r9d jle .L46 xorl %r10d, %r10d movq %r10, -32(%rbp) movq %r10, %r9 movq %r10, %r11 movlpd -32(%rbp), %xmm10 jmp .L45 .L19: jne .L22 xorl %r9d, %r9d movq %r9, -32(%rbp) movq %r9, %r10 movq %r9, %r11 movlpd -32(%rbp), %xmm10 movsd %xmm10, %xmm8 jmp .L21 .L73: cmpl $1, %r9d jle .L76 xorl %r9d, %r9d movq %r9, -32(%rbp) movq %r9, %r10 movq %r9, %r11 movlpd -32(%rbp), %xmm10 movq %r9, %rax movsd %xmm10, %xmm8 jmp .L75 .L46: jne .L49 xorl %r10d, %r10d movq %r10, -32(%rbp) movq %r10, %r9 movq %r10, %r11 movlpd -32(%rbp), %xmm10 movsd %xmm10, %xmm8 jmp .L48 .L22: cmpl $1, %r9d jle .L25 xorl %r9d, %r9d movq %r9, -32(%rbp) movq %r9, %r10 movq %r9, %r11 movlpd -32(%rbp), %xmm10 movq %r9, %rax movsd %xmm10, %xmm8 jmp .L24 .L49: cmpl $1, %r9d jle .L52 xorl %r10d, %r10d movq %r10, -32(%rbp) movq %r10, %r9 movq %r10, %r11 movlpd -32(%rbp), %xmm10 movq %r10, %rax movsd %xmm10, %xmm8 jmp .L51 .L76: jne .L133 xorl %r9d, %r9d movq %r9, -32(%rbp) movq %r9, %r10 movq %r9, %r11 movlpd -32(%rbp), %xmm10 movq %r9, %rax movq %r9, %r8 movsd %xmm10, %xmm8 jmp .L78 .L25: jne .L134 xorl %r9d, %r9d movq %r9, -32(%rbp) movq %r9, %r10 movq %r9, %r11 movlpd -32(%rbp), %xmm10 movq %r9, %rax movq %r9, %r8 movsd %xmm10, %xmm8 jmp .L27 .L112: leaq 0(,%rdi,8), %r12 movq (%r10), %rsi movq %r8, %rax movq $-1, %rdx movl %r12d, %ecx salq %cl, %rax salq %cl, %rdx xorq %rsi, %rax andq %rax, %rdx xorq %rdx, %rsi cmpq $16, %r11 movq %rsi, (%r10) ja .L116 leaq 0(,%rdi,4), %rax leal -65(,%r11,8), %edx movl $32, %edi movq 8(%r10), %rsi subl %eax, %edi movl %edx, %ecx movl $2, %eax salq %cl, %rax movl %edi, %ecx sarq %cl, %r8 decq %rax sarq %cl, %r8 movl %r12d, %ecx salq %cl, %r9 orq %r9, %r8 xorq %rsi, %r8 andq %r8, %rax xorq %rax, %rsi movq %rsi, 8(%r10) jmp .L31 .p2align 4,,7 .L133: xorpd %xmm9, %xmm9 movsd %xmm9, -32(%rbp) movq -32(%rbp), %r9 movsd %xmm9, %xmm10 movsd %xmm9, %xmm8 movq %r9, %r11 movq %r9, %r10 movq %r9, %rax movq %r9, %r8 jmp .L81 .L52: jne .L135 xorl %r10d, %r10d movq %r10, -32(%rbp) movq %r10, %r9 movq %r10, %r11 movlpd -32(%rbp), %xmm10 movq %r10, %rax movq %r10, %r8 movsd %xmm10, %xmm8 jmp .L54 .L134: xorpd %xmm9, %xmm9 movsd %xmm9, -32(%rbp) movq -32(%rbp), %r9 movsd %xmm9, %xmm10 movsd %xmm9, %xmm8 movq %r9, %r11 movq %r9, %r10 movq %r9, %rax movq %r9, %r8 jmp .L30 .L135: xorpd %xmm9, %xmm9 movsd %xmm9, -32(%rbp) movq -32(%rbp), %r10 movsd %xmm9, %xmm10 movsd %xmm9, %xmm8 movq %r10, %r11 movq %r10, %r9 movq %r10, %rax movq %r10, %r8 jmp .L57 .L114: leaq 0(,%rdi,8), %rsi movq (%r10), %rdx movq %r8, %rbx movq $-1, %rax movl %esi, %ecx salq %cl, %rbx salq %cl, %rax movq %rbx, %rcx xorq %rdx, %rcx andq %rcx, %rax leal -65(,%r11,8), %ecx xorq %rax, %rdx movl $2, %eax salq %cl, %rax movq %rdx, (%r10) movl $64, %ecx movq 8(%r10), %rdx subl %esi, %ecx decq %rax sarq %cl, %r8 xorq %rdx, %r8 andq %r8, %rax xorq %rax, %rdx movq %rdx, 8(%r10) jmp .L31 .L116: movl $64, %esi movq %r9, %rax movq 16(%r10), %rdx subl %r12d, %esi movl %esi, %ecx sarq %cl, %r8 movl %r12d, %ecx salq %cl, %rax leal -129(,%r11,8), %ecx orq %r8, %rax movq %rax, 8(%r10) movl $2, %eax salq %cl, %rax movl %esi, %ecx sarq %cl, %r9 decq %rax xorq %rdx, %r9 andq %r9, %rax xorq %rax, %rdx movq %rdx, 16(%r10) jmp .L31 .LFE2: .size avcall_call, .-avcall_call .section .eh_frame,"a",@progbits .Lframe1: .long .LECIE1-.LSCIE1 .LSCIE1: .long 0x0 .byte 0x1 .string "zR" .uleb128 0x1 .sleb128 -8 .byte 0x10 .uleb128 0x1 .byte 0x1b .byte 0xc .uleb128 0x7 .uleb128 0x8 .byte 0x90 .uleb128 0x1 .align 8 .LECIE1: .LSFDE1: .long .LEFDE1-.LASFDE1 .LASFDE1: .long .LASFDE1-.Lframe1 .long .LFB2-. .long .LFE2-.LFB2 .uleb128 0x0 .byte 0x4 .long .LCFI0-.LFB2 .byte 0xe .uleb128 0x10 .byte 0x86 .uleb128 0x2 .byte 0x4 .long .LCFI1-.LCFI0 .byte 0xd .uleb128 0x6 .byte 0x4 .long .LCFI4-.LCFI1 .byte 0x83 .uleb128 0x5 .byte 0x8c .uleb128 0x4 .byte 0x8d .uleb128 0x3 .align 8 .LEFDE1: .ident "GCC: (GNU) 4.0.2" .section .note.GNU-stack,"",@progbits libffcall-2.2/avcall/avcall-m68k.mit.S0000664000000000000000000000441613530357105014376 00000000000000#include "asm-m68k.h" .text .even .globl C(avcall_call) DECLARE_FUNCTION(avcall_call) FUNBEGIN(avcall_call) link $a6,#0 moveml #0x3820,$sp@- movel $a6@(8),$a2 lea $sp@(-1024),$sp movel $a2@(24),$d1 movel $a2@(20),$d0 subl $d1,$d0 asrl #2,$d0 jle L(54) movel $sp,$a1 movel $d1,$a0 movel $d0,$d2 .even L(6): movel $a0@+,$a1@+ subql #1,$d2 jne L(6) L(54): moveq #16,$d0 cmpl $a2@(12),$d0 jeq L(59) L(7): movel $a2@(4),$a0 jsr $a0@ movel $d0,$d2 movel $d1,$d3 movel $a2@(12),$a1 moveq #1,$d1 cmpl $a1,$d1 jeq L(9) tstl $a1 jeq L(55) moveq #2,$d4 cmpl $a1,$d4 jeq L(58) moveq #3,$d4 cmpl $a1,$d4 jeq L(58) moveq #4,$d4 cmpl $a1,$d4 jeq L(58) moveq #5,$d4 cmpl $a1,$d4 jeq L(57) moveq #6,$d4 cmpl $a1,$d4 jeq L(57) moveq #7,$d4 cmpl $a1,$d4 jeq L(55) moveq #8,$d4 cmpl $a1,$d4 jeq L(55) moveq #9,$d4 cmpl $a1,$d4 jeq L(55) moveq #10,$d4 cmpl $a1,$d4 jeq L(55) lea $a1@(-11),$a0 moveq #1,$d4 cmpl $a0,$d4 jcc L(56) moveq #13,$d4 cmpl $a1,$d4 jeq L(60) moveq #14,$d4 cmpl $a1,$d4 jeq L(61) moveq #15,$d0 cmpl $a1,$d0 jeq L(55) moveq #16,$d1 cmpl $a1,$d1 jne L(9) btst #1,$a2@(2) jeq L(9) movel $a2@(16),$d0 moveq #1,$d4 cmpl $d0,$d4 jeq L(58) moveq #2,$d1 cmpl $d0,$d1 jeq L(57) moveq #4,$d4 cmpl $d0,$d4 jeq L(55) moveq #8,$d1 cmpl $d0,$d1 jne L(9) L(56): movel $a2@(8),$a0 movel $d2,$a0@ movel $d3,$a0@(4) jra L(9) .even L(55): movel $a2@(8),$a0 movel $d2,$a0@ jra L(9) .even L(57): movel $a2@(8),$a0 movew $d2,$a0@ jra L(9) .even L(58): movel $a2@(8),$a0 moveb $d2,$a0@ jra L(9) .even L(61): btst #6,$a2@(3) jeq L(39) movel $a2@(8),$a0 fmoved $fp0,$a0@ jra L(9) .even L(39): movel $a2@(8),$a0 movel $d0,$a0@ movel $d1,$a0@(4) jra L(9) .even L(60): movel $a2@,$d2 btst #6,$d2 jeq L(33) movel $a2@(8),$a0 fmoves $fp0,$a0@ jra L(9) .even L(33): btst #5,$d2 jeq L(35) movel $a2@(8),$a0 movel $d1,$sp@- movel $d0,$sp@- fmoved $sp@+,$fp0 fmoves $fp0,$a0@ jra L(9) .even L(35): movel $a2@(8),$a0 movel $d0,$a0@ jra L(9) .even L(59): movel $a2@(8),$a1 jra L(7) .even L(9): clrl $d0 moveml $a6@(-16),#0x41c unlk $a6 rts FUNEND(avcall_call) #if defined __linux__ || defined __FreeBSD__ || defined __FreeBSD_kernel__ || defined __DragonFly__ .section .note.GNU-stack,"",@progbits #endif libffcall-2.2/avcall/avcall-libapi.c0000664000000000000000000000461213347755256014316 00000000000000/* * Copyright 2017 Bruno Haible * * This program is free software: you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by * the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program. If not, see . */ #include "config.h" #include "avcall-internal.h" /* This is the implementation of the library API. The symbols that the linker sees are all prefixed with 'avcall_', to avoid potential collisions with other libraries. */ int avcall_overflown (av_alist* list) { return _av_overflown(AV_LIST_INNER(list)); } void avcall_start (av_alist* list, __avword* list_args, __avword* list_args_end, __avword(*func)(), void* raddr, int rettype, int flags) { __av_start(AV_LIST_INNER(list),list_args,list_args_end,func,raddr,rettype,flags); } void avcall_start_struct (av_alist* list, __avword* list_args, __avword* list_args_end, __avword(*func)(), size_t type_size, int type_splittable, void* raddr, int flags) { __av_start_struct(AV_LIST_INNER(list),list_args,list_args_end,func,type_size,type_splittable,raddr,flags); } int avcall_arg_long (av_alist* list, long val) { return __av_long(AV_LIST_INNER(list),val); } int avcall_arg_ulong (av_alist* list, unsigned long val) { return __av_ulong(AV_LIST_INNER(list),val); } int avcall_arg_ptr (av_alist* list, void* val) { return __av_ptr(AV_LIST_INNER(list),val); } int avcall_arg_longlong (av_alist* list, long long val) { return __av_longlong(AV_LIST_INNER(list),val); } int avcall_arg_ulonglong (av_alist* list, unsigned long long val) { return __av_ulonglong(AV_LIST_INNER(list),val); } int avcall_arg_float (av_alist* list, float val) { return _av_float(AV_LIST_INNER(list),val); } int avcall_arg_double (av_alist* list, double val) { return _av_double(AV_LIST_INNER(list),val); } int avcall_arg_struct (av_alist* list, size_t type_size, size_t type_align, const void* val_addr) { return __av_struct(AV_LIST_INNER(list),type_size,type_align,val_addr); } libffcall-2.2/avcall/avcall-mipseb-linux.s0000664000000000000000000001073413530357105015475 00000000000000 .file 1 "avcall-mips.c" .section .mdebug.abi32 .previous .nan legacy .module fp=xx .module nooddspreg .abicalls .text .align 2 .globl avcall_call .set nomips16 .set nomicromips .ent avcall_call .type avcall_call, @function avcall_call: .frame $fp,40,$31 # vars= 0, regs= 3/0, args= 16, gp= 8 .mask 0xc0010000,-4 .fmask 0x00000000,0 lw $6,40($4) lw $5,20($4) lw $8,24($4) addiu $sp,$sp,-40 andi $2,$6,0x1 sw $fp,32($sp) sw $16,28($sp) move $fp,$sp sw $31,36($sp) move $16,$4 addiu $sp,$sp,-1032 subu $4,$5,$8 move $3,$sp .set noreorder .set nomacro beq $2,$0,$L2 sra $4,$4,2 .set macro .set reorder #APP # 76 "avcall-mips.c" 1 l.s $f12,48($16) # 0 "" 2 #NO_APP $L2: lw $2,44($16) andi $7,$2,0x1 .set noreorder .set nomacro beql $7,$0,$L55 andi $6,$6,0x2 .set macro .set reorder #APP # 78 "avcall-mips.c" 1 l.d $f12,56($16) # 0 "" 2 #NO_APP andi $6,$6,0x2 $L55: .set noreorder .set nomacro beql $6,$0,$L56 andi $2,$2,0x2 .set macro .set reorder #APP # 80 "avcall-mips.c" 1 l.s $f14,52($16) # 0 "" 2 #NO_APP andi $2,$2,0x2 $L56: .set noreorder .set nomacro beql $2,$0,$L57 slt $4,$4,5 .set macro .set reorder #APP # 82 "avcall-mips.c" 1 l.d $f14,64($16) # 0 "" 2 #NO_APP slt $4,$4,5 $L57: addiu $2,$8,16 .set noreorder .set nomacro bne $4,$0,$L10 addiu $3,$3,16 .set macro .set reorder $L37: lw $4,0($2) addiu $3,$3,4 addiu $2,$2,4 .set noreorder .set nomacro bne $5,$2,$L37 sw $4,-4($3) .set macro .set reorder $L10: lw $5,4($8) lw $4,0($8) lw $25,4($16) lw $7,12($8) .set noreorder .set nomacro jalr $25 lw $6,8($8) .set macro .set reorder lw $4,12($16) li $5,1 # 0x1 .set noreorder .set nomacro beql $4,$5,$L58 move $sp,$fp .set macro .set reorder .set noreorder .set nomacro beq $4,$0,$L46 li $5,2 # 0x2 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,$L49 li $5,3 # 0x3 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,$L49 li $5,4 # 0x4 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,$L49 li $5,5 # 0x5 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,$L50 li $5,6 # 0x6 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,$L50 li $5,7 # 0x7 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,$L46 li $5,8 # 0x8 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,$L46 li $5,9 # 0x9 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,$L46 li $5,10 # 0xa .set macro .set reorder .set noreorder .set nomacro beq $4,$5,$L46 addiu $5,$4,-11 .set macro .set reorder sltu $5,$5,2 .set noreorder .set nomacro bnel $5,$0,$L52 lw $4,8($16) .set macro .set reorder li $3,13 # 0xd .set noreorder .set nomacro beq $4,$3,$L53 li $3,14 # 0xe .set macro .set reorder .set noreorder .set nomacro beq $4,$3,$L54 li $3,15 # 0xf .set macro .set reorder .set noreorder .set nomacro beq $4,$3,$L46 li $3,16 # 0x10 .set macro .set reorder .set noreorder .set nomacro bnel $4,$3,$L58 move $sp,$fp .set macro .set reorder lw $3,0($16) andi $3,$3,0x2 .set noreorder .set nomacro beq $3,$0,$L7 li $4,1 # 0x1 .set macro .set reorder lw $3,16($16) .set noreorder .set nomacro beq $3,$4,$L49 li $4,2 # 0x2 .set macro .set reorder .set noreorder .set nomacro beq $3,$4,$L50 li $4,4 # 0x4 .set macro .set reorder .set noreorder .set nomacro beql $3,$4,$L59 lw $3,8($16) .set macro .set reorder $L7: move $sp,$fp $L58: lw $31,36($sp) lw $fp,32($sp) lw $16,28($sp) move $2,$0 .set noreorder .set nomacro j $31 addiu $sp,$sp,40 .set macro .set reorder $L46: lw $3,8($16) $L59: sw $2,0($3) move $sp,$fp lw $31,36($sp) lw $fp,32($sp) lw $16,28($sp) move $2,$0 .set noreorder .set nomacro j $31 addiu $sp,$sp,40 .set macro .set reorder $L49: lw $3,8($16) sb $2,0($3) move $sp,$fp lw $31,36($sp) lw $fp,32($sp) lw $16,28($sp) move $2,$0 .set noreorder .set nomacro j $31 addiu $sp,$sp,40 .set macro .set reorder $L50: lw $3,8($16) .set noreorder .set nomacro b $L7 sh $2,0($3) .set macro .set reorder $L53: lw $2,8($16) .set noreorder .set nomacro b $L7 swc1 $f0,0($2) .set macro .set reorder $L52: sw $2,0($4) .set noreorder .set nomacro b $L7 sw $3,4($4) .set macro .set reorder $L54: lw $2,8($16) .set noreorder .set nomacro b $L7 sdc1 $f0,0($2) .set macro .set reorder .end avcall_call .size avcall_call, .-avcall_call .ident "GCC: (GNU) 5.4.0" libffcall-2.2/avcall/avcall-mipsel-macro.S0000664000000000000000000001013313530357105015402 00000000000000#include "asm-mips.h" .file 1 "avcall-mips.c" .text .align 2 .globl avcall_call .set nomips16 .set nomicromips .ent avcall_call DECLARE_FUNCTION(avcall_call) avcall_call: .frame $fp,40,$31 .mask 0xc0010000,-4 .fmask 0x00000000,0 lw $6,40($4) lw $5,20($4) lw $8,24($4) addiu $sp,$sp,-40 andi $2,$6,0x1 sw $fp,32($sp) sw $16,28($sp) move $fp,$sp sw $31,36($sp) move $16,$4 addiu $sp,$sp,-1032 subu $4,$5,$8 move $3,$sp .set noreorder .set nomacro beq $2,$0,$L2 sra $4,$4,2 .set macro .set reorder l.s $f12,48($16) $L2: lw $2,44($16) andi $7,$2,0x1 .set noreorder .set nomacro beql $7,$0,$L55 andi $6,$6,0x2 .set macro .set reorder l.d $f12,56($16) andi $6,$6,0x2 $L55: .set noreorder .set nomacro beql $6,$0,$L56 andi $2,$2,0x2 .set macro .set reorder l.s $f14,52($16) andi $2,$2,0x2 $L56: .set noreorder .set nomacro beql $2,$0,$L57 slt $4,$4,5 .set macro .set reorder l.d $f14,64($16) slt $4,$4,5 $L57: addiu $2,$8,16 .set noreorder .set nomacro bne $4,$0,$L10 addiu $3,$3,16 .set macro .set reorder $L37: lw $4,0($2) addiu $3,$3,4 addiu $2,$2,4 .set noreorder .set nomacro bne $5,$2,$L37 sw $4,-4($3) .set macro .set reorder $L10: lw $5,4($8) lw $4,0($8) lw $25,4($16) lw $7,12($8) .set noreorder .set nomacro jalr $25 lw $6,8($8) .set macro .set reorder lw $4,12($16) li $5,1 .set noreorder .set nomacro beql $4,$5,$L58 move $sp,$fp .set macro .set reorder .set noreorder .set nomacro beq $4,$0,$L46 li $5,2 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,$L49 li $5,3 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,$L49 li $5,4 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,$L49 li $5,5 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,$L50 li $5,6 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,$L50 li $5,7 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,$L46 li $5,8 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,$L46 li $5,9 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,$L46 li $5,10 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,$L46 addiu $5,$4,-11 .set macro .set reorder sltu $5,$5,2 .set noreorder .set nomacro bnel $5,$0,$L52 lw $4,8($16) .set macro .set reorder li $3,13 .set noreorder .set nomacro beq $4,$3,$L53 li $3,14 .set macro .set reorder .set noreorder .set nomacro beq $4,$3,$L54 li $3,15 .set macro .set reorder .set noreorder .set nomacro beq $4,$3,$L46 li $3,16 .set macro .set reorder .set noreorder .set nomacro bnel $4,$3,$L58 move $sp,$fp .set macro .set reorder lw $3,0($16) andi $3,$3,0x2 .set noreorder .set nomacro beq $3,$0,$L7 li $4,1 .set macro .set reorder lw $3,16($16) .set noreorder .set nomacro beq $3,$4,$L49 li $4,2 .set macro .set reorder .set noreorder .set nomacro beq $3,$4,$L50 li $4,4 .set macro .set reorder .set noreorder .set nomacro beql $3,$4,$L59 lw $3,8($16) .set macro .set reorder $L7: move $sp,$fp $L58: lw $31,36($sp) lw $fp,32($sp) lw $16,28($sp) move $2,$0 .set noreorder .set nomacro j $31 addiu $sp,$sp,40 .set macro .set reorder $L46: lw $3,8($16) $L59: sw $2,0($3) move $sp,$fp lw $31,36($sp) lw $fp,32($sp) lw $16,28($sp) move $2,$0 .set noreorder .set nomacro j $31 addiu $sp,$sp,40 .set macro .set reorder $L49: lw $3,8($16) sb $2,0($3) move $sp,$fp lw $31,36($sp) lw $fp,32($sp) lw $16,28($sp) move $2,$0 .set noreorder .set nomacro j $31 addiu $sp,$sp,40 .set macro .set reorder $L50: lw $3,8($16) .set noreorder .set nomacro b $L7 sh $2,0($3) .set macro .set reorder $L53: lw $2,8($16) .set noreorder .set nomacro b $L7 swc1 $f0,0($2) .set macro .set reorder $L52: sw $2,0($4) .set noreorder .set nomacro b $L7 sw $3,4($4) .set macro .set reorder $L54: lw $2,8($16) .set noreorder .set nomacro b $L7 sdc1 $f0,0($2) .set macro .set reorder .end avcall_call .size avcall_call, .-avcall_call libffcall-2.2/avcall/avcall-ia64-macro.S0000664000000000000000000003426213530357110014661 00000000000000 .file "avcall-ia64.c" .pred.safe_across_calls p1-p5,p16-p63 .text .align 16 .global avcall_call# .proc avcall_call# avcall_call: .prologue 14, 34 .mmi .save ar.pfs, r35 alloc r35 = ar.pfs, 1, 6, 8, 0 adds r14 = 40, r32 adds r20 = 48, r32 .mmi adds r16 = 64, r32 adds r21 = 72, r32 adds r19 = -2032, r12 ;; .mmb ld8 r15 = [r14] ld8 r17 = [r20] nop 0 .mii .vframe r36 mov r36 = r12 .save ar.lc, r38 mov r38 = ar.lc mov r37 = r1 ;; .mmi sub r15 = r15, r17 ld8 r14 = [r16] .save rp, r34 mov r34 = b0 .body .mmi nop 0 ;; nop 0 shr.u r15 = r15, 3 .mmi sub r14 = r14, r21 ;; nop 0 shr.u r18 = r14, 3 .mmb nop 0 cmp4.ge p6, p7 = 8, r15 (p6) br.cond.dptk .L2 .mii sub r14 = 8, r15 addl r16 = 8, r0 ;; andcm r14 = -1, r14 ;; .mii nop 0 addp4 r14 = r14, r0 ;; mov ar.lc = r14 .L4: .mii nop 0 sxt4 r14 = r16 adds r16 = 1, r16 ;; .mmi shladd r14 = r14, 3, r0 ;; add r15 = r17, r14 add r14 = r19, r14 ;; .mmb adds r14 = -64, r14 ld8 r15 = [r15] nop 0 ;; .mfb st8 [r14] = r15 nop 0 br.cloop.sptk.few .L4 .L2: .mmi adds r33 = 24, r32 ;; ld4 r15 = [r33] nop 0 ;; .mii nop 0 cmp4.ne p6, p7 = 16, r15 ;; (p7) adds r14 = 16, r32 ;; .mfi (p7) ld8 r8 = [r14] nop 0 cmp4.ge p6, p7 = 0, r18 .mfb adds r14 = 80, r32 nop 0 (p6) br.cond.dpnt .L7 ;; .mmb nop 0 cmp4.ge p6, p7 = 1, r18 nop 0 .mfb ldfd f8 = [r21] nop 0 (p6) br.cond.dpnt .L7 ;; .mmb nop 0 cmp4.ge p6, p7 = 2, r18 nop 0 .mfb ldfd f9 = [r14] nop 0 (p7) br.cond.dptk .L71 ;; .L7: .mib nop 0 cmp4.ne p6, p7 = 13, r15 (p7) br.cond.dpnt .L72 ;; .L16: .mib cmp4.ne p6, p7 = 14, r15 adds r15 = 8, r32 (p7) br.cond.dpnt .L73 .mmb nop 0 ld8 r14 = [r20] nop 0 ;; .mmi ld8 r15 = [r15] adds r16 = 8, r14 adds r17 = 16, r14 .mmi adds r18 = 24, r14 adds r19 = 32, r14 adds r20 = 40, r14 .mmi nop 0 adds r21 = 48, r14 adds r22 = 56, r14 .mmi ld8 r39 = [r14] ;; ld8 r14 = [r15], 8 nop 0 .mii ld8 r40 = [r16] nop 0 ;; mov b6 = r14 .mmb ld8 r1 = [r15] ld8 r41 = [r17] nop 0 .mmb ld8 r42 = [r18] ld8 r43 = [r19] nop 0 .mmb ld8 r44 = [r20] ld8 r45 = [r21] nop 0 .mbb ld8 r46 = [r22] nop 0 br.call.sptk.many b0 = b6 ;; .mmi mov r1 = r37 ld4 r14 = [r33] mov r28 = r8 ;; .mfb cmp4.eq p6, p7 = 1, r14 nop 0 (p6) br.cond.dpnt .L18 ;; .mib nop 0 cmp4.ne p6, p7 = 0, r14 (p7) br.cond.dptk .L69 ;; .mfb cmp4.ne p6, p7 = 2, r14 nop 0 (p7) br.cond.dpnt .L65 ;; .mfb cmp4.ne p6, p7 = 3, r14 nop 0 (p7) br.cond.dpnt .L65 ;; .mfb cmp4.ne p6, p7 = 4, r14 nop 0 (p7) br.cond.dpnt .L65 ;; .mfb cmp4.ne p6, p7 = 5, r14 nop 0 (p7) br.cond.dpnt .L66 ;; .mfb cmp4.ne p6, p7 = 6, r14 nop 0 (p7) br.cond.dpnt .L66 ;; .mfb cmp4.ne p6, p7 = 7, r14 nop 0 (p7) br.cond.dpnt .L67 ;; .mfb cmp4.ne p6, p7 = 8, r14 nop 0 (p7) br.cond.dpnt .L67 ;; .mii nop 0 cmp4.ne p6, p7 = 9, r14 ;; nop 0 .mfb cmp4.ne.and.orcm p6, p7 = 11, r14 nop 0 (p7) br.cond.dptk .L69 ;; .mii nop 0 cmp4.ne p6, p7 = 10, r14 ;; nop 0 .mfb cmp4.ne.and.orcm p6, p7 = 12, r14 nop 0 (p7) br.cond.dptk .L69 ;; .mfb cmp4.ne p6, p7 = 15, r14 nop 0 (p7) br.cond.dpnt .L69 ;; .mib nop 0 cmp4.ne p6, p7 = 16, r14 (p6) br.cond.dptk .L18 .mmi ld4 r14 = [r32] ;; nop 0 tbit.z p6, p7 = r14, 9 .mfb adds r14 = 32, r32 nop 0 (p6) br.cond.dpnt .L18 ;; .mmi ld8 r19 = [r14] ;; adds r14 = -1, r19 nop 0 ;; .mib cmp.ltu p6, p7 = 31, r14 adds r14 = 16, r32 (p6) br.cond.dpnt .L18 ;; .mii ld8 r14 = [r14] cmp.ltu p6, p7 = 8, r19 ;; and r17 = 7, r14 .mii nop 0 and r27 = -8, r14 ;; nop 0 .mfb add r23 = r19, r17 nop 0 (p6) br.cond.dptk .L47 ;; .mib nop 0 cmp.ltu p6, p7 = 8, r23 (p6) br.cond.dptk .L49 .mmi shladd r15 = r23, 3, r0 addl r14 = 2, r0 shladd r18 = r17, 3, r0 .mmi ld8 r17 = [r27] ;; adds r15 = -1, r15 nop 0 ;; .mii nop 0 sxt4 r15 = r15 ;; shl r14 = r14, r15 .mii addl r15 = 1, r0 shl r16 = r8, r18 ;; shl r15 = r15, r18 .mii nop 0 xor r16 = r16, r17 ;; sub r14 = r14, r15 ;; .mmi and r14 = r16, r14 ;; xor r17 = r14, r17 nop 0 ;; .mfb st8 [r27] = r17 nop 0 nop 0 .L18: .mfi mov r8 = r0 nop 0 mov b0 = r34 .mmi nop 0 .label_state 1 .restore sp mov r12 = r36 mov ar.pfs = r35 .mib nop 0 mov ar.lc = r38 br.ret.sptk.many b0 .L71: .body .copy_state 1 .mfi adds r14 = 88, r32 nop 0 cmp4.ge p6, p7 = 3, r18 ;; .mfb ldfd f10 = [r14] nop 0 (p6) br.cond.dptk .L7 .mfi adds r14 = 96, r32 nop 0 cmp4.ge p6, p7 = 4, r18 ;; .mfb ldfd f11 = [r14] nop 0 (p6) br.cond.dptk .L7 .mfi adds r14 = 104, r32 nop 0 cmp4.ge p6, p7 = 5, r18 ;; .mfb ldfd f12 = [r14] nop 0 (p6) br.cond.dptk .L7 .mfi adds r14 = 112, r32 nop 0 cmp4.ge p6, p7 = 6, r18 ;; .mfb ldfd f13 = [r14] nop 0 (p6) br.cond.dptk .L7 .mii adds r14 = 120, r32 cmp4.ge p6, p7 = 7, r18 ;; nop 0 .mii ldfd f14 = [r14] (p7) adds r14 = 128, r32 ;; nop 0 .mmb (p7) ldfd f15 = [r14] cmp4.ne p6, p7 = 13, r15 (p6) br.cond.dptk .L16 .L72: .mmb adds r16 = 8, r32 adds r15 = 16, r32 nop 0 .mfi ld8 r14 = [r20] nop 0 mov ar.lc = r38 ;; .mmi ld8 r33 = [r15] ld8 r15 = [r16] adds r17 = 8, r14 .mmi adds r18 = 16, r14 adds r19 = 24, r14 adds r20 = 32, r14 .mmi adds r21 = 40, r14 adds r22 = 48, r14 adds r23 = 56, r14 .mii ld8 r39 = [r14] nop 0 ;; nop 0 .mmb ld8 r14 = [r15], 8 ld8 r40 = [r17] nop 0 ;; .mmi ld8 r1 = [r15] ld8 r41 = [r18] mov b6 = r14 .mmb ld8 r42 = [r19] ld8 r43 = [r20] nop 0 .mmb ld8 r44 = [r21] ld8 r45 = [r22] nop 0 .mbb ld8 r46 = [r23] nop 0 br.call.sptk.many b0 = b6 ;; .mmb .label_state 2 .restore sp mov r12 = r36 mov r8 = r0 nop 0 .mmi mov r1 = r37 stfs [r33] = f8 mov b0 = r34 .mib nop 0 mov ar.pfs = r35 br.ret.sptk.many b0 ;; .L69: .body .copy_state 2 .mmi adds r14 = 16, r32 mov r8 = r0 mov b0 = r34 .mmi .label_state 3 .restore sp mov r12 = r36 ;; ld8 r14 = [r14] mov ar.pfs = r35 .mii nop 0 mov ar.lc = r38 ;; nop 0 .mfb st8 [r14] = r28 nop 0 br.ret.sptk.many b0 .L73: .body .copy_state 3 .mmb adds r16 = 8, r32 adds r15 = 16, r32 nop 0 .mfi ld8 r14 = [r20] nop 0 mov ar.lc = r38 ;; .mmi ld8 r33 = [r15] ld8 r15 = [r16] adds r17 = 8, r14 .mmi adds r18 = 16, r14 adds r19 = 24, r14 adds r20 = 32, r14 .mmi adds r21 = 40, r14 adds r22 = 48, r14 adds r23 = 56, r14 .mii ld8 r39 = [r14] nop 0 ;; nop 0 .mmb ld8 r14 = [r15], 8 ld8 r40 = [r17] nop 0 ;; .mmi ld8 r1 = [r15] ld8 r41 = [r18] mov b6 = r14 .mmb ld8 r42 = [r19] ld8 r43 = [r20] nop 0 .mmb ld8 r44 = [r21] ld8 r45 = [r22] nop 0 .mbb ld8 r46 = [r23] nop 0 br.call.sptk.many b0 = b6 ;; .mmb .label_state 4 .restore sp mov r12 = r36 mov r8 = r0 nop 0 .mmi mov r1 = r37 stfd [r33] = f8 mov b0 = r34 .mib nop 0 mov ar.pfs = r35 br.ret.sptk.many b0 ;; .L65: .body .copy_state 4 .mmi adds r14 = 16, r32 mov r8 = r0 mov b0 = r34 .mmi .label_state 5 .restore sp mov r12 = r36 ;; ld8 r14 = [r14] mov ar.pfs = r35 .mii nop 0 mov ar.lc = r38 ;; nop 0 .mfb st1 [r14] = r28 nop 0 br.ret.sptk.many b0 .L66: .body .copy_state 5 .mmi adds r14 = 16, r32 mov r8 = r0 mov b0 = r34 .mmi .label_state 6 .restore sp mov r12 = r36 ;; ld8 r14 = [r14] mov ar.pfs = r35 .mii nop 0 mov ar.lc = r38 ;; nop 0 .mfb st2 [r14] = r28 nop 0 br.ret.sptk.many b0 .L67: .body .copy_state 6 .mmi adds r14 = 16, r32 mov r8 = r0 mov b0 = r34 .mmi .label_state 7 .restore sp mov r12 = r36 ;; ld8 r14 = [r14] mov ar.pfs = r35 .mii nop 0 mov ar.lc = r38 ;; nop 0 .mfb st4 [r14] = r28 nop 0 br.ret.sptk.many b0 .L47: .body .copy_state 7 .mib nop 0 cmp.ltu p6, p7 = 16, r19 (p6) br.cond.dptk .L51 ;; .mfi shladd r20 = r17, 3, r0 nop 0 addl r14 = -1, r0 .mii ld8 r16 = [r27] cmp.ltu p6, p7 = 16, r23 ;; nop 0 .mii mov r19 = r20 shl r15 = r8, r20 shl r14 = r14, r20 ;; .mmi xor r15 = r15, r16 ;; and r14 = r15, r14 nop 0 ;; .mii nop 0 xor r16 = r14, r16 ;; nop 0 .mfb st8 [r27] = r16 nop 0 (p6) br.cond.dptk .L53 .mmi shladd r17 = r17, 2, r0 shladd r16 = r23, 3, r0 addl r15 = 2, r0 .mmi adds r19 = 8, r27 .label_state 8 .restore sp mov r12 = r36 shl r20 = r9, r20 ;; .mmb sub r17 = 32, r17 adds r16 = -65, r16 nop 0 .mii ld8 r18 = [r19] mov b0 = r34 mov ar.pfs = r35 ;; .mii nop 0 sxt4 r16 = r16 sxt4 r17 = r17 .mib nop 0 mov ar.lc = r38 nop 0 ;; .mii nop 0 shr r14 = r8, r17 shl r15 = r15, r16 .mmi mov r8 = r0 ;; nop 0 shr r14 = r14, r17 .mii nop 0 adds r15 = -1, r15 ;; or r14 = r20, r14 ;; .mii nop 0 xor r14 = r14, r18 ;; and r15 = r14, r15 ;; .mii nop 0 xor r18 = r15, r18 ;; nop 0 .mfb st8 [r19] = r18 nop 0 br.ret.sptk.many b0 .L49: .body .copy_state 8 .mmi shladd r14 = r23, 3, r0 addl r15 = 2, r0 mov b0 = r34 .mmi shladd r18 = r17, 3, r0 ld8 r19 = [r27] .label_state 9 .restore sp mov r12 = r36 ;; .mmi adds r14 = -65, r14 sub r16 = 64, r18 mov ar.pfs = r35 .mii nop 0 mov ar.lc = r38 ;; sxt4 r14 = r14 .mii nop 0 shl r17 = r8, r18 ;; shl r15 = r15, r14 .mii addl r14 = -1, r0 sxt4 r16 = r16 ;; shr r16 = r8, r16 .mii mov r8 = r0 xor r17 = r17, r19 shl r14 = r14, r18 .mii nop 0 adds r15 = -1, r15 ;; and r14 = r17, r14 ;; .mmi xor r19 = r14, r19 ;; st8 [r27] = r19, 8 nop 0 ;; .mmi ld8 r14 = [r27] ;; xor r16 = r16, r14 nop 0 ;; .mmi and r15 = r16, r15 ;; xor r14 = r15, r14 nop 0 ;; .mfb st8 [r27] = r14 nop 0 br.ret.sptk.many b0 .L53: .body .copy_state 9 .mmi shladd r15 = r23, 3, r0 addl r14 = 2, r0 sub r17 = 64, r20 .mmi adds r21 = 16, r27 adds r20 = 8, r27 shl r19 = r9, r19 ;; .mii adds r15 = -129, r15 mov b0 = r34 sxt4 r17 = r17 .mmi .label_state 10 .restore sp mov r12 = r36 nop 0 mov ar.pfs = r35 ;; .mii nop 0 shr r18 = r9, r17 sxt4 r15 = r15 ;; .mii nop 0 shl r14 = r14, r15 shr r16 = r8, r17 .mmi ld8 r15 = [r21] mov r8 = r0 mov ar.lc = r38 ;; .mii xor r18 = r18, r15 adds r14 = -1, r14 or r16 = r19, r16 ;; .mmb and r14 = r18, r14 st8 [r20] = r16 nop 0 ;; .mii nop 0 xor r15 = r14, r15 ;; nop 0 .mfb st8 [r21] = r15 nop 0 br.ret.sptk.many b0 .L51: .body .copy_state 10 .mib nop 0 cmp.ltu p6, p7 = 24, r19 (p6) br.cond.dptk .L55 ;; .mfi shladd r19 = r17, 3, r0 nop 0 addl r14 = -1, r0 .mii ld8 r16 = [r27] cmp.ltu p6, p7 = 24, r23 ;; nop 0 .mii mov r29 = r19 shl r15 = r8, r19 shl r14 = r14, r19 ;; .mmi xor r15 = r15, r16 ;; and r14 = r15, r14 nop 0 ;; .mii nop 0 xor r16 = r14, r16 ;; nop 0 .mfb st8 [r27] = r16 nop 0 (p6) br.cond.dptk .L57 .mmi shladd r14 = r17, 2, r0 shladd r18 = r23, 3, r0 addl r16 = 2, r0 .mmi adds r22 = 16, r27 adds r20 = 8, r27 shl r21 = r10, r29 ;; .mmi sub r14 = 32, r14 adds r18 = -65, r18 mov b0 = r34 .mii .label_state 11 .restore sp mov r12 = r36 shl r19 = r9, r29 mov ar.pfs = r35 ;; .mii nop 0 sxt4 r18 = r18 sxt4 r14 = r14 .mib nop 0 mov ar.lc = r38 nop 0 ;; .mii nop 0 shr r15 = r9, r14 shr r17 = r8, r14 .mii mov r8 = r0 nop 0 shl r16 = r16, r18 ;; .mii nop 0 shr r15 = r15, r14 shr r17 = r17, r14 .mii ld8 r14 = [r22] nop 0 adds r16 = -1, r16 ;; .mii or r15 = r21, r15 or r17 = r19, r17 ;; xor r15 = r15, r14 .mmi st8 [r20] = r17 ;; and r16 = r15, r16 nop 0 ;; .mii nop 0 xor r14 = r16, r14 ;; nop 0 .mfb st8 [r22] = r14 nop 0 br.ret.sptk.many b0 .L55: .body .copy_state 11 .mfi shladd r18 = r17, 3, r0 nop 0 addl r14 = -1, r0 .mii ld8 r16 = [r27] cmp.ltu p6, p7 = 32, r23 ;; nop 0 .mii mov r29 = r18 shl r15 = r8, r18 shl r14 = r14, r18 ;; .mmi xor r15 = r15, r16 ;; and r14 = r15, r14 nop 0 ;; .mii nop 0 xor r16 = r14, r16 ;; nop 0 .mfb st8 [r27] = r16 nop 0 (p6) br.cond.dptk .L59 .mmi shladd r14 = r17, 2, r0 addl r15 = 2, r0 shl r20 = r10, r18 .mmi shladd r18 = r23, 3, r0 adds r23 = 24, r27 shl r19 = r9, r29 ;; .mmi sub r14 = 32, r14 adds r18 = -65, r18 mov b0 = r34 .mmi adds r21 = 8, r27 adds r22 = 16, r27 .label_state 12 .restore sp mov r12 = r36 .mii nop 0 mov ar.pfs = r35 ;; sxt4 r18 = r18 .mii nop 0 sxt4 r14 = r14 mov ar.lc = r38 ;; .mii nop 0 shr r16 = r8, r14 shr r17 = r9, r14 .mii mov r8 = r0 nop 0 shl r15 = r15, r18 ;; .mii nop 0 shr r16 = r16, r14 shr r17 = r17, r14 .mii ld8 r14 = [r23] adds r15 = -1, r15 ;; or r16 = r19, r16 .mmi or r17 = r20, r17 ;; st8 [r21] = r16 xor r16 = r14, r16 .mmi st8 [r22] = r17 ;; and r15 = r16, r15 nop 0 ;; .mii nop 0 xor r14 = r15, r14 ;; nop 0 .mfb st8 [r23] = r14 nop 0 br.ret.sptk.many b0 .L57: .body .copy_state 12 .mmi shladd r14 = r23, 3, r0 addl r15 = 2, r0 sub r16 = 64, r19 .mmi adds r24 = 24, r27 adds r22 = 8, r27 shl r21 = r10, r29 ;; .mii adds r14 = -129, r14 sxt4 r16 = r16 shl r20 = r9, r29 .mmi adds r23 = 16, r27 .label_state 13 .restore sp mov r12 = r36 mov b0 = r34 ;; .mii nop 0 shr r18 = r10, r16 sxt4 r14 = r14 ;; .mii nop 0 shl r15 = r15, r14 shr r19 = r8, r16 .mmi ld8 r14 = [r24] mov r8 = r0 mov ar.pfs = r35 .mib nop 0 shr r17 = r9, r16 nop 0 ;; .mii xor r18 = r18, r14 mov ar.lc = r38 adds r15 = -1, r15 .mmi or r19 = r20, r19 ;; and r15 = r18, r15 or r17 = r21, r17 .mii st8 [r22] = r19 nop 0 ;; xor r14 = r15, r14 .mmb nop 0 st8 [r23] = r17 nop 0 ;; .mfb st8 [r24] = r14 nop 0 br.ret.sptk.many b0 .L59: .body .copy_state 13 .mmi shladd r16 = r23, 3, r0 addl r15 = 2, r0 sub r14 = 64, r18 .mmi adds r24 = 8, r27 adds r25 = 16, r27 adds r26 = 24, r27 ;; .mmi nop 0 adds r16 = -129, r16 sxt4 r14 = r14 .mmi adds r27 = 32, r27 .restore sp mov r12 = r36 shl r23 = r11, r29 ;; .mii nop 0 sxt4 r16 = r16 shr r22 = r11, r14 ;; .mii nop 0 shl r15 = r15, r16 shr r17 = r8, r14 .mii mov r8 = r0 shr r18 = r9, r14 shr r19 = r10, r14 .mii ld8 r14 = [r27] shl r20 = r9, r29 shl r21 = r10, r29 ;; .mmi xor r22 = r22, r14 adds r15 = -1, r15 mov b0 = r34 ;; .mmi and r15 = r22, r15 or r19 = r23, r19 mov ar.pfs = r35 .mmi or r17 = r20, r17 or r18 = r21, r18 mov ar.lc = r38 ;; .mmb xor r14 = r15, r14 st8 [r24] = r17 nop 0 .mmb st8 [r25] = r18 st8 [r26] = r19 nop 0 ;; .mfb st8 [r27] = r14 nop 0 br.ret.sptk.many b0 .endp avcall_call# .ident "GCC: (GNU) 4.0.1" #if defined __linux__ || defined __FreeBSD__ || defined __FreeBSD_kernel__ || defined __DragonFly__ .section .note.GNU-stack,"",@progbits #endif libffcall-2.2/avcall/README0000664000000000000000000000453613347755263012335 00000000000000avcall - calling C functions with variable arguments This library allows arbitrary C functions to be called from embedded interpreters, debuggers, RPC calls, etc, by building up a C argument-list incrementally from explicitly typed arguments. This considerably reduces the amount of boilerplate glue code required for such applications. The interface is like stdargs/varargs in reverse and is intended to be as portable as possible, however the details of function calling are highly machine-dependent so your mileage may vary. At the very least there are typically built-in limits on the size of the argument-list. The argument-pushing macros all return 0 for success, < 0 for error (eg, arg-list overflow). Installation instructions: Configure the parent directory. Then: cd avcall make make check make install Files in this package: Documentation: README this text COPYING free software license PLATFORMS list of supported platforms avcall.3 manual page in Unix man format avcall.man manual page avcall.html manual page in HTML format DOC documentation Source: avcall.h main include file avcall-*.c source for the main interface function avcall-*.[sS] its translation to assembly language avcall-libapi.c implementation of other library API avcall-structcpy.c auxiliary function tests.c test program Building: Makefile.in Makefile master Porting: Makefile.devel developer's Makefile Copyright notice: Copyright 1993-1995 Bill Triggs Copyright 1995-2017 Bruno Haible This program is free software: you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program. If not, see . libffcall-2.2/avcall/avcall.30000664000000000000000000002111613146127475012767 00000000000000.\" Copyright (C) 1993 Bill Triggs .\" Copyright (C) 1995-2017 Bruno Haible .\" .\" This manual is covered by the GNU GPL. You can redistribute it and/or .\" modify it under the terms of the GNU General Public License (GPL), either .\" version 2 of the License, or (at your option) any later version published .\" by the Free Software Foundation (FSF). .\" A copy of the license is at . .\" .TH AVCALL 3 "23 July 2017" .SH NAME avcall \- build a C argument list incrementally and call a C function on it. .SH SYNOPSIS .B #include .LP .BI "av_alist " alist ";" .LP .BI av_start_ type "(" alist ", " "&func" .RI "[["\c .BI ", "\c .I return_type\c .RB "]" ", "\c .I "&return_value"\c .RB "]" ");" .LP .BI av_ type "(" alist ", "\c .RI "["\c .IB arg_type ","\c .RI "] "\c .IB value ");" .LP .BI "av_call(" alist ");" .IX "av_alist" "" "\fLav_alist\fP \(em avcall argument list declaration" .IX "av_start_type()" "" "\fLav_start_type()\fP \(em initialize avcall function" .IX "av_type()" "" "\fLav_type()\fP \(em push next argument in avcall list" .IX "av_call()" "" "\fLav_call()\fP \(em finish avcall argument list and call function" .SH DESCRIPTION .LP This set of macros builds an argument list for a C function and calls the function on it. It significantly reduces the amount of `glue' code required for parsers, debuggers, imbedded interpreters, C extensions to application programs and other situations where collections of functions need to be called on lists of externally-supplied arguments. Function calling conventions differ considerably on different machines and .I avcall attempts to provide some degree of isolation from such architecture dependencies. The interface is like .BR stdarg (3) in reverse. All of the macros return 0 for success, < 0 for failure (e.g., argument list overflow or type-not-supported). .RS 0 .TP (1) .B #include .nf and declare the argument list structure .BI "av_alist " alist ; .fi .TP (2) Set any special flags. This is architecture and compiler dependent. Compiler options that affect passing conventions may need to be flagged by .BR "#define" s before the .B "#include " statement. However, the .I configure script should have determined which .BR "#define" s are needed and put them at the top of .BR avcall.h . .TP (3) Initialize the alist with the function address and return value pointer (if any). There is a separate macro for each simple return type ([u]char, [u]short, [u]int, [u]long, [u]longlong, float, double, where `u' indicates `unsigned'). The macros for functions returning structures or pointers require an explicit type argument. .LP E.g., .LP .BI "av_start_int (" alist ", " &func ", " &int_return ); .LP .BI "av_start_double (" alist ", " &func ", " &double_return ); .LP .BI "av_start_void (" alist ", " &func ); .LP .nf .BI "av_start_struct (" alist ", " &func ", " struct_type ", " splittable ", " .BI " " &struct_return ); .fi .LP .nf .BI "av_start_ptr (" alist ", " &func ", " pointer_type ", " .BI " " &pointer_return ); .fi .LP The .I splittable flag specifies whether the .I struct_type can be returned in registers such that every struct field fits entirely in a single register. This needs to be specified for structs of size 2*sizeof(long). For structs of size <= sizeof(long), .I splittable is ignored and assumed to be 1. For structs of size > 2*sizeof(long), .I splittable is ignored and assumed to be 0. There are some handy macros for this: .nf .BI "av_word_splittable_1 (" type1 ) .BI "av_word_splittable_2 (" type1 ", " type2 ) .BI "av_word_splittable_3 (" type1 ", " type2 ", " type3 ) .BI "av_word_splittable_4 (" type1 ", " type2 ", " type3 ", " type4 ) .fi For a struct with three slots .nf .BI "struct { " "type1 id1" "; " "type2 id2" "; " "type3 id3" "; }" .fi you can specify .I splittable as .BI "av_word_splittable_3 (" type1 ", " type2 ", " type3 ) .RB . .TP (4) Push the arguments on to the list in order. Again there is a macro for each simple built-in type, and the macros for structure and pointer arguments require an extra type argument: .LP .BI "av_int (" alist ", " int_value ); .LP .BI "av_double (" alist ", " double_value ); .LP .BI "av_struct (" alist ", " struct_or_union_type ", " struct_value ); .LP .BI "av_ptr (" alist ", " pointer_type ", " pointer_value ); .TP (5) Call the function, set the return value, and tidy up: .LP .BI "av_call (" alist ); .RE .SH NOTES (1) Functions whose first declaration is in Kernighan & Ritchie style (i.e., without a typed argument list) MUST use default K&R C expression promotions (char and short to int, float to double) whether they are compiled by a K&R or an ANSI compiler, because the true argument types may not be known at the call point. Such functions typically back-convert their arguments to the declared types on function entry. (In fact, the only way to pass a true char, short or float in K&R C is by an explicit cast: .B func((char)c,(float)f) ). Similarly, some K&R compilers (such as Sun cc on the sparc) actually return a float as a double. Hence, for arguments of functions declared in K&R style you should use .B av_int(\|) and .B av_double(\|) rather than .B av_char(\|), .B av_short(\|) or .B av_float(\|). If you use a K&R compiler, the avcall header files may be able to detect this and define .B av_float(\|), etc, appropriately, but with an ANSI compiler there is no way .I avcall can know how a function was declared, so you have to correct the argument types yourself. (2) The explicit type arguments of the .B av_struct(\|) and .B av_ptr(\|) macros are typically used to calculate size, alignment, and passing conventions. This may not be sufficient for some machines with unusual structure and pointer handling: in this case additional .B av_start_\c .I type\c .B (\|) and .B av_\c .I type\c .B (\|) macros may be defined. (3) The macros .BR av_start_longlong(\|) , .BR av_start_ulonglong(\|) , .B av_longlong(\|) and .B av_ulonglong(\|) work only if the C compiler has a working .B long long 64-bit integer type. (4) The struct types used in .B av_start_struct(\|) and .B av_struct(\|) must only contain (signed or unsigned) int, long, long long or pointer fields. Struct types containing (signed or unsigned) char, short, float, double or other structs are not supported. .SH SEE ALSO .BR stdarg (3), .BR varargs (3). .SH BUGS The current implementations have been tested on a selection of common cases but there are probably still many bugs. There are typically built-in limits on the size of the argument-list, which may also include the size of any structure arguments. The decision whether a struct is to be returned in registers or in memory considers only the struct's size and alignment. This is inaccurate: for example, gcc on m68k-next returns .B "struct { char a,b,c; }" in registers and .B "struct { char a[3]; }" in memory, although both types have the same size and the same alignment. .SH NON-BUGS All information is passed in CPU registers and the stack. The .B avcall package is therefore multithread-safe. .SH PORTING AVCALL Ports, bug-fixes, and suggestions are most welcome. The macros required for argument pushing are pretty grungy, but it does seem to be possible to port avcall to a range of machines. Ports to non-standard or non-32-bit machines are especially welcome so we can sort the interface out before it's too late. Knowledge about argument passing conventions can be found in the gcc source, file .RI gcc-2.6.3/config/ cpu / cpu .h, section "Stack layout; function entry, exit and calling." Some of the grunge is usually handled by a C or assembly level glue routine that actually pushes the arguments, calls the function and unpacks any return value. This is called avcall_call(\|). A precompiled assembler version for people without gcc is also made available. The routine should ideally have flags for the passing conventions of other compilers. Many of the current routines waste a lot of stack space and generally do hairy things to stack frames - a bit more assembly code would probably help things along quite a bit here. .SH AUTHOR Bill Triggs . .SH ACKNOWLEDGEMENTS Some initial ideas were stolen from the C interface to the Zelk extensions to Oliver Laumann's Elk scheme interpreter by J.P.Lewis, NEC C&C Research, (for Sun4 & SGI), and Roy Featherstone's personal C interface library for Sun[34] & SGI. I also looked at the machine-dependent parts of the GCC and GDB distributions, and put the gcc asm(\|) extensions to good use. Thanks guys! This work was partly supported by EC-ESPRIT Basic Research Action SECOND. libffcall-2.2/avcall/avcall-i386.c0000664000000000000000000001153413347755255013547 00000000000000/** Copyright 1993 Bill Triggs Copyright 1995-2017 Bruno Haible This program is free software: you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program. If not, see . **/ /*---------------------------------------------------------------------- !!! THIS ROUTINE MUST BE COMPILED gcc -O -fno-omit-frame-pointer !!! Foreign function interface for a Linux i386/486 with gcc. This calls a C function with an argument list built up using macros defined in avcall.h. i386 Argument Passing Conventions: All arguments are passed on the stack with word alignment. Doubles take two words. Structure args are passed as true structures embedded in the argument stack. Float and double returns often come from FPU registers. To return a structure, the called function copies the value to space pointed to by its first argument, and all other arguments are shifted down by one. At least on FreeBSD, the function also returns the pointer. GCC returns structures of size 1, 2, 4, 8 like integers. Compile this routine with gcc -O (or -O2 -fno-omit-frame-pointer or -g -O) to get the right register variables. For other compilers use the pre-compiled assembler version. -fomit-frame-pointer is forbidden because when calling structure returning functions (the "i = (*l->func)();" line below) the called functions pops the return value container pointer from the stack: "ret $4" instead of "ret". (See gcc-2.6.3 macro RETURN_POPS_ARGS.) From our point of view, %esp gets magically incremented. A workaround would be to push the return value container pointer using an __asm__("pushl %0" : : : ...) instruction. Similarly, when calling functions with ‘stdcall’ linkage, %esp also gets incremented: all arguments (including the return value container pointer) are popped from the stack. ----------------------------------------------------------------------*/ #include "avcall-internal.h" #define RETURN(TYPE,VAL) (*(TYPE*)l->raddr = (TYPE)(VAL)) int avcall_call(av_alist* list) { register __avword* sp __asm__("sp"); /* C names for registers */ /*register __avword iret __asm__("eax"); */ register __avword iret2 __asm__("edx"); __av_alist* l = &AV_LIST_INNER(list); __avword* argframe = __builtin_alloca(__AV_ALIST_WORDS * sizeof(__avword)); /* make room for argument list */ int arglen = l->aptr - l->args; __avword i; for (i = 0; i < arglen; i++) /* push function args onto stack */ argframe[i] = l->args[i]; /* call function */ if (l->rtype == __AVfloat) { *(float*)l->raddr = (*(float(*)())l->func)(); } else if (l->rtype == __AVdouble) { *(double*)l->raddr = (*(double(*)())l->func)(); } else { i = (*l->func)(); /* save return value */ if (l->rtype == __AVvoid) { } else if (l->rtype == __AVword) { RETURN(__avword, i); } else if (l->rtype == __AVchar) { RETURN(char, i); } else if (l->rtype == __AVschar) { RETURN(signed char, i); } else if (l->rtype == __AVuchar) { RETURN(unsigned char, i); } else if (l->rtype == __AVshort) { RETURN(short, i); } else if (l->rtype == __AVushort) { RETURN(unsigned short, i); } else if (l->rtype == __AVint) { RETURN(int, i); } else if (l->rtype == __AVuint) { RETURN(unsigned int, i); } else if (l->rtype == __AVlong) { RETURN(long, i); } else if (l->rtype == __AVulong) { RETURN(unsigned long, i); } else if (l->rtype == __AVlonglong || l->rtype == __AVulonglong) { void* raddr = l->raddr; ((__avword*)raddr)[0] = i; ((__avword*)raddr)[1] = iret2; } else /* see above if (l->rtype == __AVfloat) { } else if (l->rtype == __AVdouble) { } else */ if (l->rtype == __AVvoidp) { RETURN(void*, i); } else if (l->rtype == __AVstruct) { if (l->flags & __AV_REGISTER_STRUCT_RETURN) { if (l->rsize == sizeof(char)) { RETURN(char, i); } else if (l->rsize == sizeof(short)) { RETURN(short, i); } else if (l->rsize == sizeof(int)) { RETURN(int, i); } else if (l->rsize == 2*sizeof(__avword)) { void* raddr = l->raddr; ((__avword*)raddr)[0] = i; ((__avword*)raddr)[1] = iret2; } } } } return 0; } libffcall-2.2/avcall/avcall-x86_64-windows.c0000664000000000000000000002055213347755262015502 00000000000000/** Copyright 1993 Bill Triggs Copyright 1995-2017 Bruno Haible This program is free software: you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program. If not, see . **/ /*---------------------------------------------------------------------- Foreign function interface for an x86_64 (a.k.a. amd64) with gcc using the Windows ABI ('gcc -mabi=ms'). This calls a C function with an argument list built up using macros defined in avcall.h. x86_64 Argument Passing Conventions on Windows: Documentation is at https://docs.microsoft.com/en-us/cpp/build/calling-convention A summary is at https://en.wikipedia.org/wiki/X86_calling_conventions#x86-64_calling_conventions * Arguments: - Up to 4 words are passed in registers: integer/pointer float/double 1. %rcx %xmm0 2. %rdx %xmm1 3. %r8 %xmm2 4. %r9 %xmm3 - Integer or pointer arguments: The first 4 integer or pointer arguments get passed in integer registers (%rcx, %rdx, %r8, %r9). The remaining ones (as an entire word each) on the stack. - Floating-point arguments: The float/double arguments among the first 4 words are passed in SSE registers (%xmm0..%xmm3), as shown above. The remaining ones (as an entire word each) on the stack. - Structure arguments: Structure args of size 1, 2, 4, 8 bytes are passed like integers. Structure args of other sizes are passed as pointers to caller-allocated temporary locations. * Return value: Types of size 1, 2, 4, 8 bytes are returned in %rax or (for float/double values) in %xmm0. To return a structure of another size, the called function copies the value to space pointed to by its first argument, and all other arguments are shifted down by one. The function also returns the pointer. * Call-used registers: rax,rdx,rcx,r8-r11 ----------------------------------------------------------------------*/ #include "avcall-internal.h" #define RETURN(TYPE,VAL) (*(TYPE*)l->raddr = (TYPE)(VAL)) /*register __avword iarg1 __asm__("rcx");*/ /*register __avword iarg2 __asm__("rdx");*/ /*register __avword iarg3 __asm__("r8");*/ /*register __avword iarg4 __asm__("r9");*/ register float farg1 __asm__("xmm0"); register float farg2 __asm__("xmm1"); register float farg3 __asm__("xmm2"); register float farg4 __asm__("xmm3"); register double darg1 __asm__("xmm0"); register double darg2 __asm__("xmm1"); register double darg3 __asm__("xmm2"); register double darg4 __asm__("xmm3"); int avcall_call(av_alist* list) { register __avword* sp __asm__("rsp"); /* C names for registers */ register __avword iret __asm__("rax"); register float fret __asm__("xmm0"); register double dret __asm__("xmm0"); __av_alist* l = &AV_LIST_INNER(list); __avword* argframe = __builtin_alloca(__AV_ALIST_WORDS * sizeof(__avword)); /* make room for argument list */ int arglen = l->aptr - l->args; int i; for (i = 4; i < arglen; i++) /* push function args onto stack */ argframe[i-4] = l->args[i]; /* put up to 4 float args into registers */ if (l->farg_mask) { if (l->farg_mask & (1<<0)) farg1 = l->fargs[0]; if (l->farg_mask & (1<<1)) farg2 = l->fargs[1]; if (l->farg_mask & (1<<2)) farg3 = l->fargs[2]; if (l->farg_mask & (1<<3)) farg4 = l->fargs[3]; } /* put up to 4 double args into registers */ if (l->darg_mask) { if (l->darg_mask & (1<<0)) darg1 = l->dargs[0]; if (l->darg_mask & (1<<1)) darg2 = l->dargs[1]; if (l->darg_mask & (1<<2)) darg3 = l->dargs[2]; if (l->darg_mask & (1<<3)) darg4 = l->dargs[3]; } /* Call function. */ if (l->rtype == __AVfloat) { *(float*)l->raddr = (*(float(*)())l->func)(l->args[0], l->args[1], l->args[2], l->args[3]); } else if (l->rtype == __AVdouble) { *(double*)l->raddr = (*(double(*)())l->func)(l->args[0], l->args[1], l->args[2], l->args[3]); } else { __avword iret; iret = (*l->func)(l->args[0], l->args[1], l->args[2], l->args[3]); /* save return value */ if (l->rtype == __AVvoid) { } else if (l->rtype == __AVword) { RETURN(__avword, iret); } else if (l->rtype == __AVchar) { RETURN(char, iret); } else if (l->rtype == __AVschar) { RETURN(signed char, iret); } else if (l->rtype == __AVuchar) { RETURN(unsigned char, iret); } else if (l->rtype == __AVshort) { RETURN(short, iret); } else if (l->rtype == __AVushort) { RETURN(unsigned short, iret); } else if (l->rtype == __AVint) { RETURN(int, iret); } else if (l->rtype == __AVuint) { RETURN(unsigned int, iret); } else if (l->rtype == __AVlong) { RETURN(long, iret); } else if (l->rtype == __AVulong) { RETURN(unsigned long, iret); } else if (l->rtype == __AVlonglong) { RETURN(long long, iret); } else if (l->rtype == __AVulonglong) { RETURN(unsigned long long, iret); } else /* see above if (l->rtype == __AVfloat) { } else if (l->rtype == __AVdouble) { } else */ if (l->rtype == __AVvoidp) { RETURN(void*, iret); } else if (l->rtype == __AVstruct) { if (l->flags & __AV_REGISTER_STRUCT_RETURN) { /* Return structs of size 1, 2, 4, 8 in registers. */ void* raddr = l->raddr; #if 0 /* Unoptimized */ if (l->rsize == 1) { ((unsigned char *)raddr)[0] = (unsigned char)(iret); } else if (l->rsize == 2) { ((unsigned char *)raddr)[0] = (unsigned char)(iret); ((unsigned char *)raddr)[1] = (unsigned char)(iret>>8); } else if (l->rsize == 4) { ((unsigned char *)raddr)[0] = (unsigned char)(iret); ((unsigned char *)raddr)[1] = (unsigned char)(iret>>8); ((unsigned char *)raddr)[2] = (unsigned char)(iret>>16); ((unsigned char *)raddr)[3] = (unsigned char)(iret>>24); } else if (l->rsize == 8) { ((unsigned char *)raddr)[0] = (unsigned char)(iret); ((unsigned char *)raddr)[1] = (unsigned char)(iret>>8); ((unsigned char *)raddr)[2] = (unsigned char)(iret>>16); ((unsigned char *)raddr)[3] = (unsigned char)(iret>>24); ((unsigned char *)raddr)[4] = (unsigned char)(iret>>32); ((unsigned char *)raddr)[5] = (unsigned char)(iret>>40); ((unsigned char *)raddr)[6] = (unsigned char)(iret>>48); ((unsigned char *)raddr)[7] = (unsigned char)(iret>>56); } #else /* Optimized: fewer conditional jumps, fewer memory accesses */ uintptr_t count = l->rsize; if (count == 1 || count == 2 || count == 4 || count == 8) { /* 0 < count ≤ sizeof(__avword) */ __avword* wordaddr = (__avword*)((uintptr_t)raddr & ~(uintptr_t)(sizeof(__avword)-1)); uintptr_t start_offset = (uintptr_t)raddr & (uintptr_t)(sizeof(__avword)-1); /* ≥ 0, < sizeof(__avword) */ uintptr_t end_offset = start_offset + count; /* > 0, < 2*sizeof(__avword) */ if (end_offset <= sizeof(__avword)) { /* 0 < end_offset ≤ sizeof(__avword) */ __avword mask0 = ((__avword)2 << (end_offset*8-1)) - ((__avword)1 << (start_offset*8)); wordaddr[0] ^= (wordaddr[0] ^ (iret << (start_offset*8))) & mask0; } else { /* sizeof(__avword) < end_offset < 2*sizeof(__avword), start_offset > 0 */ __avword mask0 = - ((__avword)1 << (start_offset*8)); __avword mask1 = ((__avword)2 << (end_offset*8-sizeof(__avword)*8-1)) - 1; wordaddr[0] ^= (wordaddr[0] ^ (iret << (start_offset*8))) & mask0; wordaddr[1] ^= (wordaddr[1] ^ (iret >> (sizeof(__avword)*8-start_offset*8))) & mask1; } } #endif } } } return 0; } libffcall-2.2/avcall/avcall-armhf.c0000664000000000000000000001765213347755253014160 00000000000000/** Copyright 1993 Bill Triggs Copyright 1995-2017 Bruno Haible This program is free software: you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program. If not, see . **/ /*---------------------------------------------------------------------- !!! THIS ROUTINE MUST BE COMPILED gcc -O !!! Foreign function interface for an ARM with -mfloat-abi=hard with gcc. This calls a C function with an argument list built up using macros defined in avcall.h. ARM Argument Passing Conventions: All arguments, except the first 4 words which are passed in the registers r0, r1, r2, r3, are passed on the stack with word alignment. Doubles take two words. In ABIs where 'double' and 'long long' have alignment 4, they are passed entirely in registers or entirely on the stack (i.e. not the first half in r3 and the second half on the stack). In ABIs where 'double' and 'long long' have alignment 8, they are passed with 2-word alignment in this word sequence (e.g. a 'double' after an 'int' in r0 gets passed in (r2,r3), not in (r1,r2)). This implies that they are passed entirely in registers or entirely on the stack. Structure args are passed as true structures embedded in the argument stack. A structure arg may be allocated partially in registers (r0,...,r3) and partially on the stack, if no previous args already consume stack space. To return a structure, the called function copies the return value to the address supplied in register r0. In hard-float configurations (armhf): Up to 16 floats get passed in the single-float registers s0, s1, ..., s15. A float gets returned in s0. Up to 8 doubles gets passed in the double-float registers d0, ..., d7 (= {s0,s1}, {s2,s3}, ..., {s14,s15}). A double gets returned in d0. The 4 integer args registers and the 16 float args slots are allocated independently: 1) After more than 16 float args, integer args can still be allocated in registers. 2) After more than 4 integer args, float args can still be allocated in registers. Compile this routine with gcc -O (or -O2 or -g -O) to get the right register variables, or use the assembler version. ----------------------------------------------------------------------*/ #include "avcall-internal.h" #define RETURN(TYPE,VAL) (*(TYPE*)l->raddr = (TYPE)(VAL)) int avcall_call(av_alist* list) { register unsigned long sp __asm__("r13"); /* C names for registers */ /*register __avword iret __asm__("r0"); */ register __avword iret2 __asm__("r1"); register float fret __asm__("s0"); register double dret __asm__("d0"); __av_alist* l = &AV_LIST_INNER(list); __avword* argframe = __builtin_alloca(__AV_ALIST_WORDS * sizeof(__avword)); /* make room for argument list */ /* Enforce 8-bytes-alignment of the stack pointer. We need to do it this way because the old GCC that we use to compile this file does not support the option '-mabi=aapcs'. */ sp &= -8; int arglen = l->aptr - l->args; __avword i; for (i = 4; i < arglen; i++) /* push function args onto stack */ argframe[i-4] = l->args[i]; /* load float values into floating-point registers */ if ((l->farg_mask >> 0) & 1) __asm__ __volatile__ ("vldr.32 s0,%0" : : "m" (l->fargs[0])); if ((l->farg_mask >> 1) & 1) __asm__ __volatile__ ("vldr.32 s1,%0" : : "m" (l->fargs[1])); if ((l->farg_mask >> 2) & 1) __asm__ __volatile__ ("vldr.32 s2,%0" : : "m" (l->fargs[2])); if ((l->farg_mask >> 3) & 1) __asm__ __volatile__ ("vldr.32 s3,%0" : : "m" (l->fargs[3])); if ((l->farg_mask >> 4) & 1) __asm__ __volatile__ ("vldr.32 s4,%0" : : "m" (l->fargs[4])); if ((l->farg_mask >> 5) & 1) __asm__ __volatile__ ("vldr.32 s5,%0" : : "m" (l->fargs[5])); if ((l->farg_mask >> 6) & 1) __asm__ __volatile__ ("vldr.32 s6,%0" : : "m" (l->fargs[6])); if ((l->farg_mask >> 7) & 1) __asm__ __volatile__ ("vldr.32 s7,%0" : : "m" (l->fargs[7])); if ((l->farg_mask >> 8) & 1) __asm__ __volatile__ ("vldr.32 s8,%0" : : "m" (l->fargs[8])); if ((l->farg_mask >> 9) & 1) __asm__ __volatile__ ("vldr.32 s9,%0" : : "m" (l->fargs[9])); if ((l->farg_mask >> 10) & 1) __asm__ __volatile__ ("vldr.32 s10,%0" : : "m" (l->fargs[10])); if ((l->farg_mask >> 11) & 1) __asm__ __volatile__ ("vldr.32 s11,%0" : : "m" (l->fargs[11])); if ((l->farg_mask >> 12) & 1) __asm__ __volatile__ ("vldr.32 s12,%0" : : "m" (l->fargs[12])); if ((l->farg_mask >> 13) & 1) __asm__ __volatile__ ("vldr.32 s13,%0" : : "m" (l->fargs[13])); if ((l->farg_mask >> 14) & 1) __asm__ __volatile__ ("vldr.32 s14,%0" : : "m" (l->fargs[14])); if ((l->farg_mask >> 15) & 1) __asm__ __volatile__ ("vldr.32 s15,%0" : : "m" (l->fargs[15])); /* load double values into floating-point registers */ if ((l->darg_mask >> 0) & 1) __asm__ __volatile__ ("vldr.64 d0,%0" : : "m" (l->dargs[0])); if ((l->darg_mask >> 1) & 1) __asm__ __volatile__ ("vldr.64 d1,%0" : : "m" (l->dargs[1])); if ((l->darg_mask >> 2) & 1) __asm__ __volatile__ ("vldr.64 d2,%0" : : "m" (l->dargs[2])); if ((l->darg_mask >> 3) & 1) __asm__ __volatile__ ("vldr.64 d3,%0" : : "m" (l->dargs[3])); if ((l->darg_mask >> 4) & 1) __asm__ __volatile__ ("vldr.64 d4,%0" : : "m" (l->dargs[4])); if ((l->darg_mask >> 5) & 1) __asm__ __volatile__ ("vldr.64 d5,%0" : : "m" (l->dargs[5])); if ((l->darg_mask >> 6) & 1) __asm__ __volatile__ ("vldr.64 d6,%0" : : "m" (l->dargs[6])); if ((l->darg_mask >> 7) & 1) __asm__ __volatile__ ("vldr.64 d7,%0" : : "m" (l->dargs[7])); /* call function, pass 4 integer args in registers */ i = (*l->func)(l->args[0], l->args[1], l->args[2], l->args[3]); /* save return value */ if (l->rtype == __AVvoid) { } else if (l->rtype == __AVword) { RETURN(__avword, i); } else if (l->rtype == __AVchar) { RETURN(char, i); } else if (l->rtype == __AVschar) { RETURN(signed char, i); } else if (l->rtype == __AVuchar) { RETURN(unsigned char, i); } else if (l->rtype == __AVshort) { RETURN(short, i); } else if (l->rtype == __AVushort) { RETURN(unsigned short, i); } else if (l->rtype == __AVint) { RETURN(int, i); } else if (l->rtype == __AVuint) { RETURN(unsigned int, i); } else if (l->rtype == __AVlong) { RETURN(long, i); } else if (l->rtype == __AVulong) { RETURN(unsigned long, i); } else if (l->rtype == __AVlonglong || l->rtype == __AVulonglong) { void* raddr = l->raddr; ((__avword*)raddr)[0] = i; ((__avword*)raddr)[1] = iret2; } else if (l->rtype == __AVfloat) { RETURN(float, fret); } else if (l->rtype == __AVdouble) { RETURN(double, dret); } else if (l->rtype == __AVvoidp) { RETURN(void*, i); } else if (l->rtype == __AVstruct) { /* PCS for ARM (http://infocenter.arm.com/help/topic/com.arm.doc.ihi0042b/IHI0042B_aapcs.pdf): page 19: "A Composite Type not larger than 4 bytes is returned in r0." sizeof({char a[3];}) = 3, so we have to use <= sizeof below */ if (l->flags & __AV_REGISTER_STRUCT_RETURN) { if (l->rsize == sizeof(char)) { /* can't occur */ RETURN(char, i); } else if (l->rsize == sizeof(short)) { /* can't occur */ RETURN(short, i); } else if (l->rsize <= sizeof(int)) { RETURN(int, i); } else if (l->rsize == 2*sizeof(__avword)) { void* raddr = l->raddr; ((__avword*)raddr)[0] = i; ((__avword*)raddr)[1] = iret2; } } } return 0; } libffcall-2.2/avcall/avcall-arm.c0000664000000000000000000001202213347755252013623 00000000000000/** Copyright 1993 Bill Triggs Copyright 1995-2017 Bruno Haible This program is free software: you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program. If not, see . **/ /*---------------------------------------------------------------------- !!! THIS ROUTINE MUST BE COMPILED gcc -O !!! Foreign function interface for an Acorn Risc Maschine with gcc. This calls a C function with an argument list built up using macros defined in avcall.h. ARM Argument Passing Conventions: All arguments, except the first 4 words which are passed in the registers r0, r1, r2, r3, are passed on the stack with word alignment. Doubles take two words. In ABIs where 'double' and 'long long' have alignment 4, they are passed entirely in registers or entirely on the stack (i.e. not the first half in r3 and the second half on the stack). In ABIs where 'double' and 'long long' have alignment 8, they are passed with 2-word alignment in this word sequence (e.g. a 'double' after an 'int' in r0 gets passed in (r2,r3), not in (r1,r2)). This implies that they are passed entirely in registers or entirely on the stack. Structure args are passed as true structures embedded in the argument stack. A structure arg may be allocated partially in registers (r0,...,r3) and partially on the stack, if no previous args already consume stack space. To return a structure, the called function copies the return value to the address supplied in register r0. Compile this routine with gcc -O (or -O2 or -g -O) to get the right register variables, or use the assembler version. ----------------------------------------------------------------------*/ #include "avcall-internal.h" #define RETURN(TYPE,VAL) (*(TYPE*)l->raddr = (TYPE)(VAL)) int avcall_call(av_alist* list) { register unsigned long sp __asm__("r13"); /* C names for registers */ /*register __avword iret __asm__("r0"); */ register __avword iret2 __asm__("r1"); register float fret __asm__("r0"); /* r0 */ register double dret __asm__("r0"); /* r0,r1 */ __av_alist* l = &AV_LIST_INNER(list); __avword space[__AV_ALIST_WORDS]; /* space for callee's stack frame */ /* Enforce 8-bytes-alignment of the stack pointer. We need to do it this way because the old GCC that we use to compile this file does not support the option '-mabi=aapcs'. */ sp &= -8; __avword* argframe = (__avword*) sp; /* stack offset for argument list */ int arglen = l->aptr - l->args; __avword i; for (i = 4; i < arglen; i++) /* push function args onto stack */ argframe[i-4] = l->args[i]; /* call function, pass 4 args in registers */ i = (*l->func)(l->args[0], l->args[1], l->args[2], l->args[3]); /* save return value */ if (l->rtype == __AVvoid) { } else if (l->rtype == __AVword) { RETURN(__avword, i); } else if (l->rtype == __AVchar) { RETURN(char, i); } else if (l->rtype == __AVschar) { RETURN(signed char, i); } else if (l->rtype == __AVuchar) { RETURN(unsigned char, i); } else if (l->rtype == __AVshort) { RETURN(short, i); } else if (l->rtype == __AVushort) { RETURN(unsigned short, i); } else if (l->rtype == __AVint) { RETURN(int, i); } else if (l->rtype == __AVuint) { RETURN(unsigned int, i); } else if (l->rtype == __AVlong) { RETURN(long, i); } else if (l->rtype == __AVulong) { RETURN(unsigned long, i); } else if (l->rtype == __AVlonglong || l->rtype == __AVulonglong) { void* raddr = l->raddr; ((__avword*)raddr)[0] = i; ((__avword*)raddr)[1] = iret2; } else if (l->rtype == __AVfloat) { RETURN(float, fret); } else if (l->rtype == __AVdouble) { RETURN(double, dret); } else if (l->rtype == __AVvoidp) { RETURN(void*, i); } else if (l->rtype == __AVstruct) { /* PCS for ARM (http://infocenter.arm.com/help/topic/com.arm.doc.ihi0042b/IHI0042B_aapcs.pdf): page 19: "A Composite Type not larger than 4 bytes is returned in r0." sizeof({char a[3];}) = 3, so we have to use <= sizeof below */ if (l->flags & __AV_REGISTER_STRUCT_RETURN) { if (l->rsize == sizeof(char)) { /* can't occur */ RETURN(char, i); } else if (l->rsize == sizeof(short)) { /* can't occur */ RETURN(short, i); } else if (l->rsize <= sizeof(int)) { RETURN(int, i); } else if (l->rsize == 2*sizeof(__avword)) { void* raddr = l->raddr; ((__avword*)raddr)[0] = i; ((__avword*)raddr)[1] = iret2; } } } return 0; } libffcall-2.2/avcall/avcall-s390x-macro.S0000664000000000000000000000757613530357110015014 00000000000000 .file "avcall-s390x.c" .text .align 8 .globl avcall_call .type avcall_call, @function avcall_call: .LFB0: .cfi_startproc stmg %r7,%r15,56(%r15) .cfi_offset 7, -104 .cfi_offset 8, -96 .cfi_offset 9, -88 .cfi_offset 10, -80 .cfi_offset 11, -72 .cfi_offset 12, -64 .cfi_offset 13, -56 .cfi_offset 14, -48 .cfi_offset 15, -40 larl %r13,.L78 aghi %r15,-176 .cfi_def_cfa_offset 336 lgr %r11,%r15 .cfi_def_cfa_register 11 aghi %r15,-2056 lg %r9,48(%r2) lg %r1,40(%r2) sgr %r1,%r9 srag %r1,%r1,3 stg %r2,168(%r11) stg %r6,160(%r11) ltr %r1,%r1 la %r8,160(%r15) l %r0,64(%r2) l %r7,112(%r2) jle .L6 ahi %r1,-1 llgfr %r1,%r1 aghi %r1,1 lghi %r14,0 .L5: lg %r10,0(%r14,%r9) stg %r10,0(%r14,%r8) aghi %r14,8 brctg %r1,.L5 .L6: ltr %r0,%r0 je .L7 lg %r1,168(%r11) cl %r0,.L79-.L78(%r13) lg %r2,72(%r1) jle .L7 chi %r0,2 lg %r3,80(%r1) je .L7 chi %r0,3 lg %r4,88(%r1) je .L7 chi %r0,4 lg %r5,96(%r1) jne .L73 .L7: ltr %r7,%r7 je .L9 lg %r10,168(%r11) l %r1,120(%r10) tmll %r1,1 je .L10 ld %f0,144(%r10) .L11: cl %r7,.L79-.L78(%r13) jle .L9 tmll %r1,2 lg %r10,168(%r11) jne .L74 tm 119(%r10),2 je .L14 le %f2,128(%r10) .L14: chi %r7,2 je .L9 tmll %r1,4 lg %r10,168(%r11) je .L15 ld %f4,160(%r10) .L16: chi %r7,3 je .L9 tmll %r1,8 lg %r1,168(%r11) jne .L75 tm 119(%r1),8 je .L9 le %f6,136(%r1) .L9: lg %r1,168(%r11) l %r1,24(%r1) chi %r1,13 je .L76 chi %r1,14 je .L77 lg %r10,168(%r11) lg %r1,8(%r10) basr %r14,%r1 l %r1,24(%r10) chi %r1,1 lgr %r0,%r2 je .L19 ltr %r1,%r1 je .L67 chi %r1,2 je .L69 chi %r1,3 je .L69 chi %r1,4 je .L69 chi %r1,5 je .L71 chi %r1,6 je .L71 chi %r1,7 je .L70 chi %r1,8 je .L70 lr %r9,%r1 nill %r9,65533 chi %r9,9 je .L67 chi %r1,10 je .L67 chi %r1,12 je .L67 chi %r1,15 je .L67 .L19: lg %r4,288(%r11) lg %r6,160(%r11) lghi %r2,0 lmg %r7,%r15,232(%r11) .cfi_remember_state .cfi_restore 15 .cfi_restore 14 .cfi_restore 13 .cfi_restore 12 .cfi_restore 11 .cfi_restore 10 .cfi_restore 9 .cfi_restore 8 .cfi_restore 7 .cfi_def_cfa 15, 160 br %r4 .L10: .cfi_restore_state lg %r10,168(%r11) tm 119(%r10),1 je .L11 le %f0,124(%r10) j .L11 .L67: lg %r1,168(%r11) lghi %r2,0 lg %r1,16(%r1) stg %r0,0(%r1) lg %r4,288(%r11) lg %r6,160(%r11) lmg %r7,%r15,232(%r11) .cfi_remember_state .cfi_restore 7 .cfi_restore 8 .cfi_restore 9 .cfi_restore 10 .cfi_restore 11 .cfi_restore 12 .cfi_restore 13 .cfi_restore 14 .cfi_restore 15 .cfi_def_cfa 15, 160 br %r4 .L74: .cfi_restore_state ld %f2,152(%r10) j .L14 .L69: lg %r1,168(%r11) lghi %r2,0 lg %r1,16(%r1) stc %r0,0(%r1) lg %r4,288(%r11) lg %r6,160(%r11) lmg %r7,%r15,232(%r11) .cfi_remember_state .cfi_restore 7 .cfi_restore 8 .cfi_restore 9 .cfi_restore 10 .cfi_restore 11 .cfi_restore 12 .cfi_restore 13 .cfi_restore 14 .cfi_restore 15 .cfi_def_cfa 15, 160 br %r4 .L77: .cfi_restore_state lg %r0,168(%r11) lgr %r1,%r0 lgr %r10,%r0 lg %r1,8(%r1) lg %r10,16(%r10) basr %r14,%r1 lg %r4,288(%r11) std %f0,0(%r10) lg %r6,160(%r11) lghi %r2,0 lmg %r7,%r15,232(%r11) .cfi_remember_state .cfi_restore 7 .cfi_restore 8 .cfi_restore 9 .cfi_restore 10 .cfi_restore 11 .cfi_restore 12 .cfi_restore 13 .cfi_restore 14 .cfi_restore 15 .cfi_def_cfa 15, 160 br %r4 .L76: .cfi_restore_state lg %r0,168(%r11) lgr %r1,%r0 lgr %r10,%r0 lg %r1,8(%r1) lg %r10,16(%r10) basr %r14,%r1 ste %f0,0(%r10) j .L19 .L15: tm 119(%r10),4 je .L16 le %f4,132(%r10) j .L16 .L71: lg %r1,168(%r11) lg %r1,16(%r1) sth %r0,0(%r1) j .L19 .L73: lg %r6,104(%r1) j .L7 .L75: ld %f6,168(%r1) j .L9 .L70: lg %r1,168(%r11) lg %r1,16(%r1) st %r0,0(%r1) j .L19 .section .rodata .align 8 .L78: .L79: .long 1 .align 2 .previous .cfi_endproc .LFE0: .size avcall_call, .-avcall_call #if defined __linux__ || defined __FreeBSD__ || defined __FreeBSD_kernel__ || defined __DragonFly__ .section .note.GNU-stack,"",@progbits #endif libffcall-2.2/avcall/avcall-powerpc-linux-macro.S0000664000000000000000000000423513530357107016735 00000000000000 .file "avcall-powerpc.c" .section ".text" .align 2 .globl avcall_call .type avcall_call, @function avcall_call: .extern __mulh .extern __mull .extern __divss .extern __divus .extern __quoss .extern __quous stwu 1,-1056(1) mflr 0 stw 0,1060(1) addi 10,1,8 stw 30,1048(1) mr 30,3 lwz 0,20(30) li 3,0 lwz 11,24(30) stw 31,1052(1) mr 31,1 subfc 0,11,0 srawi 0,0,2 cmpw 0,3,0 bge- 0,.L73 mtctr 0 .L74: slwi 9,3,2 addi 3,3,1 lwzx 0,9,11 stwx 0,9,10 bdnz .L74 .L73: lwz 9,76(30) subfc 9,30,9 addi 9,9,-80 srawi. 9,9,3 beq- 0,.L8 cmpwi 0,9,1 beq- 0,.L11 cmpwi 0,9,2 beq- 0,.L14 cmpwi 0,9,3 beq- 0,.L17 cmpwi 0,9,4 beq- 0,.L20 cmpwi 0,9,5 beq- 0,.L23 cmpwi 0,9,6 beq- 0,.L26 cmpwi 0,9,7 beq- 0,.L29 .L32: lfd 8,136(30) .L29: lfd 7,128(30) .L26: lfd 6,120(30) .L23: lfd 5,112(30) .L20: lfd 4,104(30) .L17: lfd 3,96(30) .L14: lfd 2,88(30) .L11: lfd 1,80(30) .L8: lwz 0,4(30) lwz 9,68(30) lwz 3,44(30) mtctr 0 lwz 4,48(30) lwz 5,52(30) lwz 6,56(30) lwz 7,60(30) lwz 8,64(30) lwz 10,72(30) crxor 6,6,6 bctrl lwz 9,12(30) cmpwi 0,9,1 beq- 0,.L34 cmpwi 0,9,0 beq- 0,.L84 cmpwi 0,9,2 beq- 0,.L77 cmpwi 0,9,3 beq- 0,.L77 cmpwi 0,9,4 beq- 0,.L77 cmpwi 0,9,5 beq- 0,.L76 cmpwi 0,9,6 beq- 0,.L76 cmpwi 0,9,7 beq- 0,.L84 cmpwi 0,9,8 beq- 0,.L84 cmpwi 0,9,9 beq- 0,.L84 cmpwi 0,9,10 beq- 0,.L84 addi 0,9,-11 cmplwi 0,0,1 ble- 0,.L83 cmpwi 0,9,13 beq- 0,.L85 cmpwi 0,9,14 beq- 0,.L86 cmpwi 0,9,15 beq- 0,.L84 cmpwi 0,9,16 beq- 0,.L87 .L34: lwz 11,0(1) li 3,0 lwz 0,4(11) lwz 30,-8(11) lwz 31,-4(11) mtlr 0 mr 1,11 blr .L87: lwz 0,0(30) andi. 9,0,512 beq- 0,.L34 lwz 0,16(30) cmpwi 0,0,1 beq- 0,.L77 cmpwi 0,0,2 beq- 0,.L76 cmpwi 0,0,4 beq- 0,.L84 cmpwi 0,0,8 bne+ 0,.L34 .L83: lwz 9,8(30) stw 4,4(9) .L75: stw 3,0(9) b .L34 .L84: lwz 9,8(30) b .L75 .L76: lwz 9,8(30) sth 3,0(9) b .L34 .L77: lwz 9,8(30) stb 3,0(9) b .L34 .L86: lwz 9,8(30) stfd 1,0(9) b .L34 .L85: frsp 0,1 lwz 9,8(30) stfs 0,0(9) b .L34 .size avcall_call, .-avcall_call #if defined __linux__ || defined __FreeBSD__ || defined __FreeBSD_kernel__ || defined __DragonFly__ .section .note.GNU-stack,"",@progbits #endif libffcall-2.2/avcall/avcall-powerpc-aix.s0000664000000000000000000000533713530357107015324 00000000000000 .file "avcall-powerpc.c" .toc .csect .text[PR] .align 2 .globl avcall_call .globl .avcall_call .csect avcall_call[DS] avcall_call: .long .avcall_call, TOC[tc0], 0 .csect .text[PR] .avcall_call: .extern __mulh .extern __mull .extern __divss .extern __divus .extern __quoss .extern __quous mflr 0 stw 0,8(1) stw 30,-8(1) stw 31,-4(1) stw 29,-12(1) stwu 1,-72(1) lwz 0,20(3) lwz 11,24(3) mr 30,3 subfc 0,11,0 srawi 8,0,2 li 3,8 lwz 9,0(1) cmpw 0,3,8 mr 31,1 stwu 9,-1040(1) addi 0,1,71 rlwinm 10,0,0,0,27 bge- 0,L..89 L..6: slwi 9,3,2 addi 3,3,1 cmpw 0,3,8 lwzx 0,9,11 add 9,9,10 stw 0,-32(9) blt+ 0,L..6 L..88: lwz 9,40(30) subfc 9,30,9 addi 9,9,-44 srawi. 9,9,3 beq- 0,L..8 cmpwi 0,9,1 beq- 0,L..11 cmpwi 0,9,2 beq- 0,L..14 cmpwi 0,9,3 beq- 0,L..17 cmpwi 0,9,4 beq- 0,L..20 cmpwi 0,9,5 beq- 0,L..23 cmpwi 0,9,6 beq- 0,L..26 cmpwi 0,9,7 beq- 0,L..29 cmpwi 0,9,8 beq- 0,L..32 cmpwi 0,9,9 beq- 0,L..35 cmpwi 0,9,10 beq- 0,L..38 cmpwi 0,9,11 beq- 0,L..41 cmpwi 0,9,12 beq- 0,L..44 L..47: lfd 13,140(30) L..44: lfd 12,132(30) L..41: lfd 11,124(30) L..38: lfd 10,116(30) L..35: lfd 9,108(30) L..32: lfd 8,100(30) L..29: lfd 7,92(30) L..26: lfd 6,84(30) L..23: lfd 5,76(30) L..20: lfd 4,68(30) L..17: lfd 3,60(30) L..14: lfd 2,52(30) L..11: lfd 1,44(30) L..8: lwz 29,4(30) lwz 9,24(11) lwz 0,0(29) lwz 10,28(11) lwz 3,0(11) mtctr 0 lwz 4,4(11) lwz 5,8(11) lwz 6,12(11) lwz 7,16(11) lwz 8,20(11) stw 2,20(1) lwz 11,8(29) lwz 2,4(29) bctrl lwz 2,20(1) lwz 9,12(30) cmpwi 0,9,1 beq- 0,L..49 cmpwi 0,9,0 beq- 0,L..99 cmpwi 0,9,2 beq- 0,L..92 cmpwi 0,9,3 beq- 0,L..92 cmpwi 0,9,4 beq- 0,L..92 cmpwi 0,9,5 beq- 0,L..91 cmpwi 0,9,6 beq- 0,L..91 cmpwi 0,9,7 beq- 0,L..99 cmpwi 0,9,8 beq- 0,L..99 cmpwi 0,9,9 beq- 0,L..99 cmpwi 0,9,10 beq- 0,L..99 addi 0,9,-11 cmplwi 0,0,1 ble- 0,L..98 cmpwi 0,9,13 beq- 0,L..100 cmpwi 0,9,14 beq- 0,L..101 cmpwi 0,9,15 beq- 0,L..99 cmpwi 0,9,16 beq- 0,L..102 L..49: lwz 1,0(1) li 3,0 lwz 0,8(1) lwz 29,-12(1) mtlr 0 lwz 30,-8(1) lwz 31,-4(1) blr L..102: lwz 0,0(30) andi. 9,0,512 beq- 0,L..49 lwz 0,16(30) cmpwi 0,0,1 beq- 0,L..92 cmpwi 0,0,2 beq- 0,L..91 cmpwi 0,0,4 beq- 0,L..99 cmpwi 0,0,8 bne+ 0,L..49 L..98: lwz 9,8(30) stw 4,4(9) L..90: stw 3,0(9) b L..49 L..99: lwz 9,8(30) b L..90 L..91: lwz 9,8(30) sth 3,0(9) b L..49 L..92: lwz 9,8(30) stb 3,0(9) b L..49 L..101: lwz 9,8(30) stfd 1,0(9) b L..49 L..100: lwz 9,8(30) frsp 0,1 stfs 0,0(9) b L..49 L..89: lwz 11,24(30) b L..88 LT..avcall_call: .long 0 .byte 0,0,32,97,128,3,1,0 .long 0 .long LT..avcall_call-.avcall_call .short 11 .byte "avcall_call" .byte 31 .align 2 _section_.text: .csect .data[RW],3 .long _section_.text libffcall-2.2/avcall/avcall-m68k.motorola.S0000664000000000000000000000470313530357105015440 00000000000000#include "asm-m68k.h" .text .align 2 .globl C(avcall_call) DECLARE_FUNCTION(avcall_call) FUNBEGIN(avcall_call) link.w %a6,#0 movm.l #0x3820,-(%sp) move.l 8(%a6),%a2 lea (-1024,%sp),%sp move.l 24(%a2),%d1 move.l 20(%a2),%d0 sub.l %d1,%d0 asr.l #2,%d0 jble L(54) move.l %sp,%a1 move.l %d1,%a0 move.l %d0,%d2 .align 2 L(6): move.l (%a0)+,(%a1)+ subq.l #1,%d2 jbne L(6) L(54): moveq.l #16,%d0 cmp.l 12(%a2),%d0 jbeq L(59) L(7): move.l 4(%a2),%a0 jsr (%a0) move.l %d0,%d2 move.l %d1,%d3 move.l 12(%a2),%a1 moveq.l #1,%d1 cmp.l %a1,%d1 jbeq L(9) tst.l %a1 jbeq L(55) moveq.l #2,%d4 cmp.l %a1,%d4 jbeq L(58) moveq.l #3,%d4 cmp.l %a1,%d4 jbeq L(58) moveq.l #4,%d4 cmp.l %a1,%d4 jbeq L(58) moveq.l #5,%d4 cmp.l %a1,%d4 jbeq L(57) moveq.l #6,%d4 cmp.l %a1,%d4 jbeq L(57) moveq.l #7,%d4 cmp.l %a1,%d4 jbeq L(55) moveq.l #8,%d4 cmp.l %a1,%d4 jbeq L(55) moveq.l #9,%d4 cmp.l %a1,%d4 jbeq L(55) moveq.l #10,%d4 cmp.l %a1,%d4 jbeq L(55) lea (-11,%a1),%a0 moveq.l #1,%d4 cmp.l %a0,%d4 jbcc L(56) moveq.l #13,%d4 cmp.l %a1,%d4 jbeq L(60) moveq.l #14,%d4 cmp.l %a1,%d4 jbeq L(61) moveq.l #15,%d0 cmp.l %a1,%d0 jbeq L(55) moveq.l #16,%d1 cmp.l %a1,%d1 jbne L(9) btst #1,2(%a2) jbeq L(9) move.l 16(%a2),%d0 moveq.l #1,%d4 cmp.l %d0,%d4 jbeq L(58) moveq.l #2,%d1 cmp.l %d0,%d1 jbeq L(57) moveq.l #4,%d4 cmp.l %d0,%d4 jbeq L(55) moveq.l #8,%d1 cmp.l %d0,%d1 jbne L(9) L(56): move.l 8(%a2),%a0 move.l %d2,(%a0) move.l %d3,4(%a0) jbra L(9) .align 2 L(55): move.l 8(%a2),%a0 move.l %d2,(%a0) jbra L(9) .align 2 L(57): move.l 8(%a2),%a0 move.w %d2,(%a0) jbra L(9) .align 2 L(58): move.l 8(%a2),%a0 move.b %d2,(%a0) jbra L(9) .align 2 L(61): btst #6,3(%a2) jbeq L(39) move.l 8(%a2),%a0 fmove.d %fp0,(%a0) jbra L(9) .align 2 L(39): move.l 8(%a2),%a0 move.l %d0,(%a0) move.l %d1,4(%a0) jbra L(9) .align 2 L(60): move.l (%a2),%d2 btst #6,%d2 jbeq L(33) move.l 8(%a2),%a0 fmove.s %fp0,(%a0) jbra L(9) .align 2 L(33): btst #5,%d2 jbeq L(35) move.l 8(%a2),%a0 move.l %d1,-(%sp) move.l %d0,-(%sp) fmove.d (%sp)+,%fp0 fmove.s %fp0,(%a0) jbra L(9) .align 2 L(35): move.l 8(%a2),%a0 move.l %d0,(%a0) jbra L(9) .align 2 L(59): move.l 8(%a2),%a1 jbra L(7) .align 2 L(9): clr.l %d0 movm.l -16(%a6),#0x41c unlk %a6 rts L(fe1): FUNEND(avcall_call) #if defined __linux__ || defined __FreeBSD__ || defined __FreeBSD_kernel__ || defined __DragonFly__ .section .note.GNU-stack,"",@progbits #endif libffcall-2.2/avcall/avcall-mipsn32.c0000664000000000000000000006030513527367734014352 00000000000000/** Copyright 1993 Bill Triggs Copyright 1995-2019 Bruno Haible This program is free software: you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program. If not, see . **/ /*---------------------------------------------------------------------- !!! THIS ROUTINE MUST BE COMPILED gcc -O !!! Foreign function interface for an SGI 32-bit MIPS III with "cc -n32", or gcc configured as mips-sgi-irix6. This calls a C function with an argument list built up using macros defined in avcall.h. SGI MIPS new 32-bit Argument Passing Conventions - The entire argument list forms a structure with all the appropriate holes & alignments, and space for this is allocated in the stack frame. - Shorter integers are promoted to long long length (sizeof(long long)=8). - Doubles are 1 longword. - Structure arguments are copies embedded in the arglist structure. - The first 8 longwords of the structure are passed in registers $4...$11, except that float arguments are passed in registers $f12...$f19, and that double arguments and structure elements of type double are passed in registers $f12...$f19. (But varargs functions may expect them in the integer registers and we can't tell whether the function is varargs so we pass them both ways.) Remaining longwords are passed on the stack. No stack space is allocated for the first 8 longwords of the structure. - Structure returns of structures > 16 bytes: pointers to caller-allocated space are passed in as the first argument of the list. - Structure returns of structures <= 16 bytes: in the registers $2 (for the first 8 bytes) and $3 (for the next 8 bytes). A structure of 1 or 2 floats or doubles is returned in $f0 and $f2: the first float or double in $f0, the second float or double in $f2. - Integer/pointer returns are in $2, float/double returns in $f0. - The called function expects to see its own address in $25. This file needs to be compiled with gcc for the asm extensions, but the assembly version of it and the header file seem to work with SGI cc. ----------------------------------------------------------------------*/ #include "avcall-internal.h" #define RETURN(TYPE,VAL) (*(TYPE*)l->raddr = (TYPE)(VAL)) #define OFFSETOF(struct,member) ((int)&(((struct*)0)->member)) int avcall_call(av_alist* list) { register __avword* sp __asm__("$sp"); /* C names for registers */ register float fret __asm__("$f0"); register double dret __asm__("$f0"); /*register __avword iret1 __asm__("$2"); */ register __avword iret2 __asm__("$3"); __av_alist* l = &AV_LIST_INNER(list); __avword *argframe = __builtin_alloca(__AV_ALIST_WORDS * sizeof(__avword)); /* big space for child's stack frame */ int arglen = l->aptr - l->args; __avword iret; int i; if (l->farg_mask) { /* push leading float args */ if (l->farg_mask & (1<<0)) __asm__("lwc1 $f12,%1(%0)" : : "p" (l), "i" OFFSETOF(__av_alist,fargs[0])); if (l->farg_mask & (1<<1)) __asm__("lwc1 $f13,%1(%0)" : : "p" (l), "i" OFFSETOF(__av_alist,fargs[1])); if (l->farg_mask & (1<<2)) __asm__("lwc1 $f14,%1(%0)" : : "p" (l), "i" OFFSETOF(__av_alist,fargs[2])); if (l->farg_mask & (1<<3)) __asm__("lwc1 $f15,%1(%0)" : : "p" (l), "i" OFFSETOF(__av_alist,fargs[3])); if (l->farg_mask & (1<<4)) __asm__("lwc1 $f16,%1(%0)" : : "p" (l), "i" OFFSETOF(__av_alist,fargs[4])); if (l->farg_mask & (1<<5)) __asm__("lwc1 $f17,%1(%0)" : : "p" (l), "i" OFFSETOF(__av_alist,fargs[5])); if (l->farg_mask & (1<<6)) __asm__("lwc1 $f18,%1(%0)" : : "p" (l), "i" OFFSETOF(__av_alist,fargs[6])); if (l->farg_mask & (1<<7)) __asm__("lwc1 $f19,%1(%0)" : : "p" (l), "i" OFFSETOF(__av_alist,fargs[7])); } if (l->darg_mask) { /* push leading double args */ __avword* a = l->args; if (l->darg_mask & (1<<0)) __asm__("ldc1 $f12,%1(%0)" : : "p" (a), "i" (0 * sizeof (__avword))); if (l->darg_mask & (1<<1)) __asm__("ldc1 $f13,%1(%0)" : : "p" (a), "i" (1 * sizeof (__avword))); if (l->darg_mask & (1<<2)) __asm__("ldc1 $f14,%1(%0)" : : "p" (a), "i" (2 * sizeof (__avword))); if (l->darg_mask & (1<<3)) __asm__("ldc1 $f15,%1(%0)" : : "p" (a), "i" (3 * sizeof (__avword))); if (l->darg_mask & (1<<4)) __asm__("ldc1 $f16,%1(%0)" : : "p" (a), "i" (4 * sizeof (__avword))); if (l->darg_mask & (1<<5)) __asm__("ldc1 $f17,%1(%0)" : : "p" (a), "i" (5 * sizeof (__avword))); if (l->darg_mask & (1<<6)) __asm__("ldc1 $f18,%1(%0)" : : "p" (a), "i" (6 * sizeof (__avword))); if (l->darg_mask & (1<<7)) __asm__("ldc1 $f19,%1(%0)" : : "p" (a), "i" (7 * sizeof (__avword))); } for (i = 8; i < arglen; i++) /* push excess function args */ argframe[i-8] = l->args[i]; /* call function with 1st 8 args */ __asm__ __volatile__ ("ld $4,%0" : : "m" (l->args[0]) : "$4"); /* arg1 = l->args[0]; */ __asm__ __volatile__ ("ld $5,%0" : : "m" (l->args[1]) : "$5"); /* arg1 = l->args[1]; */ __asm__ __volatile__ ("ld $6,%0" : : "m" (l->args[2]) : "$6"); /* arg1 = l->args[2]; */ __asm__ __volatile__ ("ld $7,%0" : : "m" (l->args[3]) : "$7"); /* arg1 = l->args[3]; */ __asm__ __volatile__ ("ld $8,%0" : : "m" (l->args[4]) : "$8"); /* arg1 = l->args[4]; */ __asm__ __volatile__ ("ld $9,%0" : : "m" (l->args[5]) : "$9"); /* arg1 = l->args[5]; */ __asm__ __volatile__ ("ld $10,%0" : : "m" (l->args[6]) : "$10"); /* arg1 = l->args[6]; */ __asm__ __volatile__ ("ld $11,%0" : : "m" (l->args[7]) : "$11"); /* arg1 = l->args[7]; */ /* Note: The code of this call ought to put the address of the called function in register $25 before the call. */ iret = (*l->func)(); /* save return value */ if (l->rtype == __AVvoid) { } else if (l->rtype == __AVword) { RETURN(__avword, iret); } else if (l->rtype == __AVchar) { RETURN(char, iret); } else if (l->rtype == __AVschar) { RETURN(signed char, iret); } else if (l->rtype == __AVuchar) { RETURN(unsigned char, iret); } else if (l->rtype == __AVshort) { RETURN(short, iret); } else if (l->rtype == __AVushort) { RETURN(unsigned short, iret); } else if (l->rtype == __AVint) { RETURN(int, iret); } else if (l->rtype == __AVuint) { RETURN(unsigned int, iret); } else if (l->rtype == __AVlong) { RETURN(long, iret); } else if (l->rtype == __AVulong) { RETURN(unsigned long, iret); } else if (l->rtype == __AVlonglong) { RETURN(long long, iret); } else if (l->rtype == __AVulonglong) { RETURN(unsigned long long, iret); } else if (l->rtype == __AVfloat) { RETURN(float, fret); } else if (l->rtype == __AVdouble) { RETURN(double, dret); } else if (l->rtype == __AVvoidp) { RETURN(void*, iret); } else if (l->rtype == __AVstruct) { if (l->flags & __AV_REGISTER_STRUCT_RETURN) { if (l->flags & __AV_GCC_STRUCT_RETURN) { /* gcc returns structs of size 1,2,4,8 in registers. */ if (l->rsize == sizeof(char)) { RETURN(char, iret); } else if (l->rsize == sizeof(short)) { RETURN(short, iret); } else if (l->rsize == sizeof(int)) { RETURN(int, iret); } else if (l->rsize == sizeof(long long)) { RETURN(long long, iret); } } else { /* cc returns structs of size <= 16 in registers. */ if (l->rsize > 0 && l->rsize <= 16) { void* raddr = l->raddr; #if 0 /* Unoptimized */ if (l->rsize == 1) { #if defined(_MIPSEL) ((unsigned char *)raddr)[0] = (unsigned char)(iret); #else ((unsigned char *)raddr)[0] = (unsigned char)(iret>>56); #endif } else if (l->rsize == 2) { #if defined(_MIPSEL) ((unsigned char *)raddr)[0] = (unsigned char)(iret); ((unsigned char *)raddr)[1] = (unsigned char)(iret>>8); #else ((unsigned char *)raddr)[0] = (unsigned char)(iret>>56); ((unsigned char *)raddr)[1] = (unsigned char)(iret>>48); #endif } else if (l->rsize == 3) { #if defined(_MIPSEL) ((unsigned char *)raddr)[0] = (unsigned char)(iret); ((unsigned char *)raddr)[1] = (unsigned char)(iret>>8); ((unsigned char *)raddr)[2] = (unsigned char)(iret>>16); #else ((unsigned char *)raddr)[0] = (unsigned char)(iret>>56); ((unsigned char *)raddr)[1] = (unsigned char)(iret>>48); ((unsigned char *)raddr)[2] = (unsigned char)(iret>>40); #endif } else if (l->rsize == 4) { #if defined(_MIPSEL) ((unsigned char *)raddr)[0] = (unsigned char)(iret); ((unsigned char *)raddr)[1] = (unsigned char)(iret>>8); ((unsigned char *)raddr)[2] = (unsigned char)(iret>>16); ((unsigned char *)raddr)[3] = (unsigned char)(iret>>24); #else ((unsigned char *)raddr)[0] = (unsigned char)(iret>>56); ((unsigned char *)raddr)[1] = (unsigned char)(iret>>48); ((unsigned char *)raddr)[2] = (unsigned char)(iret>>40); ((unsigned char *)raddr)[3] = (unsigned char)(iret>>32); #endif } else if (l->rsize == 5) { #if defined(_MIPSEL) ((unsigned char *)raddr)[0] = (unsigned char)(iret); ((unsigned char *)raddr)[1] = (unsigned char)(iret>>8); ((unsigned char *)raddr)[2] = (unsigned char)(iret>>16); ((unsigned char *)raddr)[3] = (unsigned char)(iret>>24); ((unsigned char *)raddr)[4] = (unsigned char)(iret>>32); #else ((unsigned char *)raddr)[0] = (unsigned char)(iret>>56); ((unsigned char *)raddr)[1] = (unsigned char)(iret>>48); ((unsigned char *)raddr)[2] = (unsigned char)(iret>>40); ((unsigned char *)raddr)[3] = (unsigned char)(iret>>32); ((unsigned char *)raddr)[4] = (unsigned char)(iret>>24); #endif } else if (l->rsize == 6) { #if defined(_MIPSEL) ((unsigned char *)raddr)[0] = (unsigned char)(iret); ((unsigned char *)raddr)[1] = (unsigned char)(iret>>8); ((unsigned char *)raddr)[2] = (unsigned char)(iret>>16); ((unsigned char *)raddr)[3] = (unsigned char)(iret>>24); ((unsigned char *)raddr)[4] = (unsigned char)(iret>>32); ((unsigned char *)raddr)[5] = (unsigned char)(iret>>40); #else ((unsigned char *)raddr)[0] = (unsigned char)(iret>>56); ((unsigned char *)raddr)[1] = (unsigned char)(iret>>48); ((unsigned char *)raddr)[2] = (unsigned char)(iret>>40); ((unsigned char *)raddr)[3] = (unsigned char)(iret>>32); ((unsigned char *)raddr)[4] = (unsigned char)(iret>>24); ((unsigned char *)raddr)[5] = (unsigned char)(iret>>16); #endif } else if (l->rsize == 7) { #if defined(_MIPSEL) ((unsigned char *)raddr)[0] = (unsigned char)(iret); ((unsigned char *)raddr)[1] = (unsigned char)(iret>>8); ((unsigned char *)raddr)[2] = (unsigned char)(iret>>16); ((unsigned char *)raddr)[3] = (unsigned char)(iret>>24); ((unsigned char *)raddr)[4] = (unsigned char)(iret>>32); ((unsigned char *)raddr)[5] = (unsigned char)(iret>>40); ((unsigned char *)raddr)[6] = (unsigned char)(iret>>48); #else ((unsigned char *)raddr)[0] = (unsigned char)(iret>>56); ((unsigned char *)raddr)[1] = (unsigned char)(iret>>48); ((unsigned char *)raddr)[2] = (unsigned char)(iret>>40); ((unsigned char *)raddr)[3] = (unsigned char)(iret>>32); ((unsigned char *)raddr)[4] = (unsigned char)(iret>>24); ((unsigned char *)raddr)[5] = (unsigned char)(iret>>16); ((unsigned char *)raddr)[6] = (unsigned char)(iret>>8); #endif } else if (l->rsize >= 8 && l->rsize <= 16) { #if defined(_MIPSEL) ((unsigned char *)raddr)[0] = (unsigned char)(iret); ((unsigned char *)raddr)[1] = (unsigned char)(iret>>8); ((unsigned char *)raddr)[2] = (unsigned char)(iret>>16); ((unsigned char *)raddr)[3] = (unsigned char)(iret>>24); ((unsigned char *)raddr)[4] = (unsigned char)(iret>>32); ((unsigned char *)raddr)[5] = (unsigned char)(iret>>40); ((unsigned char *)raddr)[6] = (unsigned char)(iret>>48); ((unsigned char *)raddr)[7] = (unsigned char)(iret>>56); #else ((unsigned char *)raddr)[0] = (unsigned char)(iret>>56); ((unsigned char *)raddr)[1] = (unsigned char)(iret>>48); ((unsigned char *)raddr)[2] = (unsigned char)(iret>>40); ((unsigned char *)raddr)[3] = (unsigned char)(iret>>32); ((unsigned char *)raddr)[4] = (unsigned char)(iret>>24); ((unsigned char *)raddr)[5] = (unsigned char)(iret>>16); ((unsigned char *)raddr)[6] = (unsigned char)(iret>>8); ((unsigned char *)raddr)[7] = (unsigned char)(iret); #endif if (l->rsize == 8) { } else if (l->rsize == 9) { #if defined(_MIPSEL) ((unsigned char *)raddr)[8+0] = (unsigned char)(iret2); #else ((unsigned char *)raddr)[8+0] = (unsigned char)(iret2>>56); #endif } else if (l->rsize == 10) { #if defined(_MIPSEL) ((unsigned char *)raddr)[8+0] = (unsigned char)(iret2); ((unsigned char *)raddr)[8+1] = (unsigned char)(iret2>>8); #else ((unsigned char *)raddr)[8+0] = (unsigned char)(iret2>>56); ((unsigned char *)raddr)[8+1] = (unsigned char)(iret2>>48); #endif } else if (l->rsize == 11) { #if defined(_MIPSEL) ((unsigned char *)raddr)[8+0] = (unsigned char)(iret2); ((unsigned char *)raddr)[8+1] = (unsigned char)(iret2>>8); ((unsigned char *)raddr)[8+2] = (unsigned char)(iret2>>16); #else ((unsigned char *)raddr)[8+0] = (unsigned char)(iret2>>56); ((unsigned char *)raddr)[8+1] = (unsigned char)(iret2>>48); ((unsigned char *)raddr)[8+2] = (unsigned char)(iret2>>40); #endif } else if (l->rsize == 12) { #if defined(_MIPSEL) ((unsigned char *)raddr)[8+0] = (unsigned char)(iret2); ((unsigned char *)raddr)[8+1] = (unsigned char)(iret2>>8); ((unsigned char *)raddr)[8+2] = (unsigned char)(iret2>>16); ((unsigned char *)raddr)[8+3] = (unsigned char)(iret2>>24); #else ((unsigned char *)raddr)[8+0] = (unsigned char)(iret2>>56); ((unsigned char *)raddr)[8+1] = (unsigned char)(iret2>>48); ((unsigned char *)raddr)[8+2] = (unsigned char)(iret2>>40); ((unsigned char *)raddr)[8+3] = (unsigned char)(iret2>>32); #endif } else if (l->rsize == 13) { #if defined(_MIPSEL) ((unsigned char *)raddr)[8+0] = (unsigned char)(iret2); ((unsigned char *)raddr)[8+1] = (unsigned char)(iret2>>8); ((unsigned char *)raddr)[8+2] = (unsigned char)(iret2>>16); ((unsigned char *)raddr)[8+3] = (unsigned char)(iret2>>24); ((unsigned char *)raddr)[8+4] = (unsigned char)(iret2>>32); #else ((unsigned char *)raddr)[8+0] = (unsigned char)(iret2>>56); ((unsigned char *)raddr)[8+1] = (unsigned char)(iret2>>48); ((unsigned char *)raddr)[8+2] = (unsigned char)(iret2>>40); ((unsigned char *)raddr)[8+3] = (unsigned char)(iret2>>32); ((unsigned char *)raddr)[8+4] = (unsigned char)(iret2>>24); #endif } else if (l->rsize == 14) { #if defined(_MIPSEL) ((unsigned char *)raddr)[8+0] = (unsigned char)(iret2); ((unsigned char *)raddr)[8+1] = (unsigned char)(iret2>>8); ((unsigned char *)raddr)[8+2] = (unsigned char)(iret2>>16); ((unsigned char *)raddr)[8+3] = (unsigned char)(iret2>>24); ((unsigned char *)raddr)[8+4] = (unsigned char)(iret2>>32); ((unsigned char *)raddr)[8+5] = (unsigned char)(iret2>>40); #else ((unsigned char *)raddr)[8+0] = (unsigned char)(iret2>>56); ((unsigned char *)raddr)[8+1] = (unsigned char)(iret2>>48); ((unsigned char *)raddr)[8+2] = (unsigned char)(iret2>>40); ((unsigned char *)raddr)[8+3] = (unsigned char)(iret2>>32); ((unsigned char *)raddr)[8+4] = (unsigned char)(iret2>>24); ((unsigned char *)raddr)[8+5] = (unsigned char)(iret2>>16); #endif } else if (l->rsize == 15) { #if defined(_MIPSEL) ((unsigned char *)raddr)[8+0] = (unsigned char)(iret2); ((unsigned char *)raddr)[8+1] = (unsigned char)(iret2>>8); ((unsigned char *)raddr)[8+2] = (unsigned char)(iret2>>16); ((unsigned char *)raddr)[8+3] = (unsigned char)(iret2>>24); ((unsigned char *)raddr)[8+4] = (unsigned char)(iret2>>32); ((unsigned char *)raddr)[8+5] = (unsigned char)(iret2>>40); ((unsigned char *)raddr)[8+6] = (unsigned char)(iret2>>48); #else ((unsigned char *)raddr)[8+0] = (unsigned char)(iret2>>56); ((unsigned char *)raddr)[8+1] = (unsigned char)(iret2>>48); ((unsigned char *)raddr)[8+2] = (unsigned char)(iret2>>40); ((unsigned char *)raddr)[8+3] = (unsigned char)(iret2>>32); ((unsigned char *)raddr)[8+4] = (unsigned char)(iret2>>24); ((unsigned char *)raddr)[8+5] = (unsigned char)(iret2>>16); ((unsigned char *)raddr)[8+6] = (unsigned char)(iret2>>8); #endif } else if (l->rsize == 16) { #if defined(_MIPSEL) ((unsigned char *)raddr)[8+0] = (unsigned char)(iret2); ((unsigned char *)raddr)[8+1] = (unsigned char)(iret2>>8); ((unsigned char *)raddr)[8+2] = (unsigned char)(iret2>>16); ((unsigned char *)raddr)[8+3] = (unsigned char)(iret2>>24); ((unsigned char *)raddr)[8+4] = (unsigned char)(iret2>>32); ((unsigned char *)raddr)[8+5] = (unsigned char)(iret2>>40); ((unsigned char *)raddr)[8+6] = (unsigned char)(iret2>>48); ((unsigned char *)raddr)[8+7] = (unsigned char)(iret2>>56); #else ((unsigned char *)raddr)[8+0] = (unsigned char)(iret2>>56); ((unsigned char *)raddr)[8+1] = (unsigned char)(iret2>>48); ((unsigned char *)raddr)[8+2] = (unsigned char)(iret2>>40); ((unsigned char *)raddr)[8+3] = (unsigned char)(iret2>>32); ((unsigned char *)raddr)[8+4] = (unsigned char)(iret2>>24); ((unsigned char *)raddr)[8+5] = (unsigned char)(iret2>>16); ((unsigned char *)raddr)[8+6] = (unsigned char)(iret2>>8); ((unsigned char *)raddr)[8+7] = (unsigned char)(iret2); #endif } } #else /* Optimized: fewer conditional jumps, fewer memory accesses */ uintptr_t count = l->rsize; /* > 0, ≤ 2*sizeof(__avword) */ __avword* wordaddr = (__avword*)((uintptr_t)raddr & ~(uintptr_t)(sizeof(__avword)-1)); uintptr_t start_offset = (uintptr_t)raddr & (uintptr_t)(sizeof(__avword)-1); /* ≥ 0, < sizeof(__avword) */ uintptr_t end_offset = start_offset + count; /* > 0, < 3*sizeof(__avword) */ #if defined(_MIPSEL) if (count <= sizeof(__avword)) { /* Use iret. */ if (end_offset <= sizeof(__avword)) { /* 0 < end_offset ≤ sizeof(__avword) */ __avword mask0 = ((__avword)2 << (end_offset*8-1)) - ((__avword)1 << (start_offset*8)); wordaddr[0] ^= (wordaddr[0] ^ (iret << (start_offset*8))) & mask0; } else { /* sizeof(__avword) < end_offset < 2*sizeof(__avword), start_offset > 0 */ __avword mask0 = - ((__avword)1 << (start_offset*8)); __avword mask1 = ((__avword)2 << (end_offset*8-sizeof(__avword)*8-1)) - 1; wordaddr[0] ^= (wordaddr[0] ^ (iret << (start_offset*8))) & mask0; wordaddr[1] ^= (wordaddr[1] ^ (iret >> (sizeof(__avword)*8-start_offset*8))) & mask1; } } else { /* Use iret, iret2. */ __avword mask0 = - ((__avword)1 << (start_offset*8)); wordaddr[0] ^= (wordaddr[0] ^ (iret << (start_offset*8))) & mask0; if (end_offset <= 2*sizeof(__avword)) { /* sizeof(__avword) < end_offset ≤ 2*sizeof(__avword) */ __avword mask1 = ((__avword)2 << (end_offset*8-sizeof(__avword)*8-1)) - 1; wordaddr[1] ^= (wordaddr[1] ^ ((iret >> (sizeof(__avword)*4-start_offset*4) >> (sizeof(__avword)*4-start_offset*4)) | (iret2 << (start_offset*8)))) & mask1; } else { /* 2*sizeof(__avword) < end_offset < 3*sizeof(__avword), start_offset > 0 */ __avword mask2 = ((__avword)2 << (end_offset*8-2*sizeof(__avword)*8-1)) - 1; wordaddr[1] = (iret >> (sizeof(__avword)*8-start_offset*8)) | (iret2 << (start_offset*8)); wordaddr[2] ^= (wordaddr[2] ^ (iret2 >> (sizeof(__avword)*8-start_offset*8))) & mask2; } } #else if (count <= sizeof(__avword)) { /* Use iret. */ if (end_offset <= sizeof(__avword)) { /* 0 < end_offset ≤ sizeof(__avword) */ __avword mask0 = ((__avword)2 << (sizeof(__avword)*8-start_offset*8-1)) - ((__avword)1 << (sizeof(__avword)*8-end_offset*8)); wordaddr[0] ^= (wordaddr[0] ^ (iret >> (start_offset*8))) & mask0; } else { /* sizeof(__avword) < end_offset < 2*sizeof(__avword), start_offset > 0 */ __avword mask0 = ((__avword)2 << (sizeof(__avword)*8-start_offset*8-1)) - 1; __avword mask1 = - ((__avword)1 << (2*sizeof(__avword)*8-end_offset*8)); wordaddr[0] ^= (wordaddr[0] ^ (iret >> (start_offset*8))) & mask0; wordaddr[1] ^= (wordaddr[1] ^ (iret << (sizeof(__avword)*8-start_offset*8))) & mask1; } } else { /* Use iret, iret2. */ __avword mask0 = ((__avword)2 << (sizeof(__avword)*8-start_offset*8-1)) - 1; wordaddr[0] ^= (wordaddr[0] ^ (iret >> (start_offset*8))) & mask0; if (end_offset <= 2*sizeof(__avword)) { /* sizeof(__avword) < end_offset ≤ 2*sizeof(__avword) */ __avword mask1 = - ((__avword)1 << (2*sizeof(__avword)*8-end_offset*8)); wordaddr[1] ^= (wordaddr[1] ^ ((iret << (sizeof(__avword)*4-start_offset*4) << (sizeof(__avword)*4-start_offset*4)) | (iret2 >> (start_offset*8)))) & mask1; } else { /* 2*sizeof(__avword) < end_offset < 3*sizeof(__avword), start_offset > 0 */ __avword mask2 = - ((__avword)1 << (3*sizeof(__avword)*8-end_offset*8)); wordaddr[1] = (iret << (sizeof(__avword)*8-start_offset*8)) | (iret2 >> (start_offset*8)); wordaddr[2] ^= (wordaddr[2] ^ (iret2 << (sizeof(__avword)*8-start_offset*8))) & mask2; } } #endif #endif } } } } return 0; } libffcall-2.2/avcall/avcall-alpha.c0000664000000000000000000001361513347755236014144 00000000000000/** Copyright 1993 Bill Triggs Copyright 1995-2017 Bruno Haible This program is free software: you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program. If not, see . **/ /*---------------------------------------------------------------------- !!! THIS ROUTINE MUST BE COMPILED gcc -O !!! Foreign function interface for a DEC Alpha with gcc. This calls a C function with an argument list built up using macros defined in avcall.h. Alpha Argument Passing Conventions The first 6 arguments are passed in registers $16-$21 for integers, in registers $f16-$f21 for floats. From then on, everything is passed on the stack. Everything on the stack is word-aligned. Integers and pointers are returned in $0, floats and doubles in $f0. To return a structure, the called function copies the value to space pointed to by its first argument, and all other arguments are shifted down by one. Compile this routine with gcc for the __asm__ extensions and with optimisation on (-O or -O2 or -g -O) so that argframe is set to the correct offset. ----------------------------------------------------------------------*/ #include "avcall-internal.h" #define RETURN(TYPE,VAL) (*(TYPE*)l->raddr = (TYPE)(VAL)) int avcall_call(av_alist* list) { register __avword* sp __asm__("$30"); /* C names for registers */ register long arg1 __asm__("$16"); register long arg2 __asm__("$17"); register long arg3 __asm__("$18"); register long arg4 __asm__("$19"); register long arg5 __asm__("$20"); register long arg6 __asm__("$21"); register double fret __asm__("$f0"); register double farg1 __asm__("$f16"); register double farg2 __asm__("$f17"); register double farg3 __asm__("$f18"); register double farg4 __asm__("$f19"); register double farg5 __asm__("$f20"); register double farg6 __asm__("$f21"); /*register __avword iret __asm__("$0"); */ register __avword iret2 __asm__("$1"); __av_alist* l = &AV_LIST_INNER(list); __avword* argframe = __builtin_alloca(__AV_ALIST_WORDS * sizeof(__avword)); /* make room for argument list */ int arglen = ((unsigned long) l->aptr - (unsigned long) l->args) / sizeof (__avword); __avword i, i2; for (i = 6; i < arglen; i++) /* push excess function args */ argframe[i-6] = l->args[i]; /* call function with 1st 6 args */ /* we pass the args both in the integer registers and the floating point registers, so we don't have to store the argument types. */ __asm__ __volatile__ ("ldq $16,%0" : : "m" (l->args[0])); /* arg1 = l->args[0]; */ __asm__ __volatile__ ("ldt $f16,%0" : : "m" (l->args[0])); /* farg1 = *(double*) &l->args[0]; */ __asm__ __volatile__ ("ldq $17,%0" : : "m" (l->args[1])); /* arg2 = l->args[1]; */ __asm__ __volatile__ ("ldt $f17,%0" : : "m" (l->args[1])); /* farg2 = *(double*) &l->args[1]; */ __asm__ __volatile__ ("ldq $18,%0" : : "m" (l->args[2])); /* arg3 = l->args[2]; */ __asm__ __volatile__ ("ldt $f18,%0" : : "m" (l->args[2])); /* farg3 = *(double*) &l->args[2]; */ __asm__ __volatile__ ("ldq $19,%0" : : "m" (l->args[3])); /* arg4 = l->args[3]; */ __asm__ __volatile__ ("ldt $f19,%0" : : "m" (l->args[3])); /* farg4 = *(double*) &l->args[3]; */ __asm__ __volatile__ ("ldq $20,%0" : : "m" (l->args[4])); /* arg5 = l->args[4]; */ __asm__ __volatile__ ("ldt $f20,%0" : : "m" (l->args[4])); /* farg5 = *(double*) &l->args[4]; */ __asm__ __volatile__ ("ldq $21,%0" : : "m" (l->args[5])); /* arg6 = l->args[5]; */ __asm__ __volatile__ ("ldt $f21,%0" : : "m" (l->args[5])); /* farg6 = *(double*) &l->args[5]; */ i = (*l->func)(); i2 = iret2; /* this is apparently not needed, but better safe than sorry... */ __asm__ __volatile__ ("" : : : /* clobber */ "$16", "$17", "$18", "$19", "$20", "$21", "$f16","$f17","$f18","$f19","$f20","$f21"); /* save return value */ if (l->rtype == __AVvoid) { } else if (l->rtype == __AVword) { RETURN(__avword, i); } else if (l->rtype == __AVchar) { RETURN(char, i); } else if (l->rtype == __AVschar) { RETURN(signed char, i); } else if (l->rtype == __AVuchar) { RETURN(unsigned char, i); } else if (l->rtype == __AVshort) { RETURN(short, i); } else if (l->rtype == __AVushort) { RETURN(unsigned short, i); } else if (l->rtype == __AVint) { RETURN(int, i); } else if (l->rtype == __AVuint) { RETURN(unsigned int, i); } else if (l->rtype == __AVlong) { RETURN(long, i); } else if (l->rtype == __AVulong) { RETURN(unsigned long, i); } else if (l->rtype == __AVlonglong) { RETURN(long long, i); } else if (l->rtype == __AVulonglong) { RETURN(unsigned long long, i); } else if (l->rtype == __AVfloat) { RETURN(float, fret); } else if (l->rtype == __AVdouble) { RETURN(double, fret); } else if (l->rtype == __AVvoidp) { RETURN(void*, i); } else if (l->rtype == __AVstruct) { if (l->flags & __AV_REGISTER_STRUCT_RETURN) { if (l->rsize == sizeof(char)) { RETURN(char, i); } else if (l->rsize == sizeof(short)) { RETURN(short, i); } else if (l->rsize == sizeof(int)) { RETURN(int, i); } else if (l->rsize == sizeof(long)) { RETURN(long, i); } else if (l->rsize == 2*sizeof(__avword)) { void* raddr = l->raddr; ((__avword*)raddr)[0] = i; ((__avword*)raddr)[1] = i2; } } } return 0; } libffcall-2.2/avcall/avcall-hppa-macro.S0000664000000000000000000001124713530357106015051 00000000000000#include "asm-hppa.h" .LEVEL 1.1 IMPORT_MILLICODE($$dyncall) TEXT1() TEXT2() .align 4 GLOBL(avcall_call) DECLARE_FUNCTION(avcall_call) DEF(avcall_call) .PROC .CALLINFO FRAME=128,CALLS,SAVE_RP,SAVE_SP,ENTRY_GR=5 .ENTRY copy %r3,%r1 stw %r2,-20(%r30) copy %r30,%r3 stwm %r1,128(%r30) stw %r5,8(%r3) ldo -48(%r30),%r24 ldo 15(%r24),%r21 copy %r19,%r5 stw %r4,12(%r3) copy %r21,%r24 depi 0,31,4,%r24 copy %r26,%r4 stw %r19,-32(%r30) ldo 1104(%r24),%r24 ldw 28(%r26),%r22 ldw 20(%r26),%r20 sub %r22,%r20,%r20 extrs %r20,29,30,%r25 sub %r0,%r25,%r23 comib,<= -4,%r23,L(59) ldo 1088(%r30),%r30 copy %r22,%r29 DEF(L(6)) zdep %r23,29,30,%r20 ldo 1(%r23),%r23 addl %r20,%r29,%r22 addl %r20,%r24,%r20 ldw 0(%r22),%r21 comib,> -4,%r23,L(6) stw %r21,0(%r20) DEF(L(58)) ldw 12(%r4),%r21 ldi 16,%r20 comb,=,n %r20,%r21,L(64) DEF(L(7)) comib,>=,n 0,%r25,L(8) ldw 48(%r4),%r21 extrs,>= %r21,31,1,%r0 fldws -4(%r29),%fr4L DEF(L(9)) comib,>=,n 1,%r25,L(8) extrs,>= %r21,30,1,%r0 fldws -8(%r29),%fr5L DEF(L(11)) ldw 52(%r4),%r22 ldi 2,%r20 and %r22,%r20,%r20 comiclr,= 0,%r20,%r0 fldds -8(%r29),%fr5 DEF(L(12)) comib,>=,n 2,%r25,L(8) extrs,>= %r21,29,1,%r0 fldws -12(%r29),%fr6L DEF(L(14)) comib,>=,n 3,%r25,L(8) extrs,>= %r21,28,1,%r0 fldws -16(%r29),%fr7L DEF(L(16)) ldi 8,%r20 and %r22,%r20,%r20 comiclr,= 0,%r20,%r0 fldds -16(%r29),%fr7 DEF(L(8)) ldw -16(%r29),%r23 ldw -4(%r29),%r26 ldw -8(%r29),%r25 ldw -12(%r29),%r24 ldw 4(%r4),%r22 .CALL ARGW0=GR bl $$dyncall,%r31 copy %r31,%r2 ldw 12(%r4),%r21 copy %r5,%r19 comib,= 1,%r21,L(19) copy %r28,%r2 comib,=,n 0,%r21,L(63) comib,=,n 2,%r21,L(62) comib,=,n 3,%r21,L(62) comib,=,n 4,%r21,L(62) comib,=,n 5,%r21,L(61) comib,=,n 6,%r21,L(61) comib,=,n 7,%r21,L(63) comib,=,n 8,%r21,L(63) comib,=,n 9,%r21,L(63) comib,=,n 10,%r21,L(63) ldo -11(%r21),%r20 comib,<<,n 1,%r20,L(40) ldw 8(%r4),%r20 stw %r29,4(%r20) DEF(L(60)) stw %r2,0(%r20) DEF(L(19)) ldw -20(%r3),%r2 DEF(L(67)) ldi 0,%r28 ldw 8(%r3),%r5 ldw 12(%r3),%r4 ldo 64(%r3),%r30 bv %r0(%r2) ldwm -64(%r30),%r3 DEF(L(40)) comib,=,n 13,%r21,L(65) comib,=,n 14,%r21,L(66) comib,=,n 15,%r21,L(63) ldi 16,%r20 comb,<>,n %r20,%r21,L(67) ldw -20(%r3),%r2 ldw 0(%r4),%r20 bb,>=,n %r20,30,L(67) ldw -20(%r3),%r2 ldw 16(%r4),%r22 ldo -1(%r22),%r20 comib,<<,n 7,%r20,L(67) ldw -20(%r3),%r2 ldw 8(%r4),%r20 extru %r20,31,2,%r26 copy %r20,%r4 depi 0,31,2,%r4 comib,<< 4,%r22,L(51) addl %r26,%r22,%r21 comib,<< 4,%r21,L(52) zdep %r21,28,29,%r20 ldo -1(%r20),%r25 zdep %r26,28,29,%r21 mtsar %r25 ldw 0(%r4),%r23 zvdep %r28,32,%r20 mtsar %r21 zvdepi 2,32,%r21 xor %r23,%r20,%r20 mtsar %r25 zvdepi 1,32,%r22 sub %r21,%r22,%r21 and %r20,%r21,%r20 xor %r23,%r20,%r23 b L(19) stw %r23,0(%r4) DEF(L(52)) subi 63,%r20,%r31 zdep %r26,28,29,%r26 ldo -33(%r20),%r20 ldw 0(%r4),%r25 mtsar %r20 ldw 4(%r4),%r24 zvdep %r28,32,%r23 mtsar %r26 zvdepi 2,32,%r22 xor %r24,%r23,%r23 mtsar %r31 ldo -1(%r22),%r22 vextrs %r28,32,%r21 mtsar %r20 zvdepi 1,32,%r20 xor %r25,%r21,%r21 sub %r0,%r20,%r20 and %r21,%r22,%r21 and %r23,%r20,%r23 xor %r25,%r21,%r25 xor %r24,%r23,%r24 stw %r25,0(%r4) b L(19) stw %r24,4(%r4) DEF(L(51)) zdep %r26,28,29,%r26 mtsar %r26 zvdepi 2,32,%r20 comib,<< 8,%r21,L(55) ldo -1(%r20),%r25 zdep %r21,29,30,%r20 subi 47,%r20,%r24 zdep %r21,28,29,%r21 mtsar %r24 ldo -33(%r21),%r26 vextrs %r29,32,%r22 vextrs %r22,32,%r22 mtsar %r26 ldw 0(%r4),%r24 ldw 4(%r4),%r23 zvdep %r28,32,%r20 or %r20,%r22,%r20 zvdep %r29,32,%r29 zvdepi 1,32,%r21 xor %r24,%r20,%r20 xor %r23,%r29,%r29 sub %r0,%r21,%r21 and %r20,%r25,%r20 and %r29,%r21,%r29 xor %r24,%r20,%r24 xor %r23,%r29,%r23 stw %r24,0(%r4) b L(19) stw %r23,4(%r4) DEF(L(55)) zdep %r21,28,29,%r20 ldo -65(%r20),%r31 subi 95,%r20,%r26 ldw 8(%r4),%r23 mtsar %r31 ldw 0(%r4),%r24 zvdep %r29,32,%r22 zvdepi 1,32,%r21 xor %r23,%r22,%r22 mtsar %r26 sub %r0,%r21,%r21 vextrs %r28,32,%r20 and %r22,%r21,%r22 mtsar %r31 xor %r24,%r20,%r20 zvdep %r28,32,%r21 and %r20,%r25,%r20 mtsar %r26 xor %r24,%r20,%r24 vextrs %r29,32,%r29 xor %r23,%r22,%r23 or %r21,%r29,%r21 stw %r23,8(%r4) stw %r24,0(%r4) b L(19) stw %r21,4(%r4) DEF(L(63)) b L(60) ldw 8(%r4),%r20 DEF(L(66)) ldw 8(%r4),%r20 b L(19) fstds %fr4,0(%r20) DEF(L(65)) ldw 8(%r4),%r20 b L(19) fstws %fr4L,0(%r20) DEF(L(61)) ldw 8(%r4),%r20 b L(19) sth %r2,0(%r20) DEF(L(62)) ldw 8(%r4),%r20 b L(19) stb %r2,0(%r20) DEF(L(64)) b L(7) ldw 8(%r4),%r28 DEF(L(59)) b L(58) ldw 28(%r26),%r29 .EXIT .PROCEND DEF(L(fe1)) FUNEND(avcall_call) #if defined __linux__ || defined __FreeBSD__ || defined __FreeBSD_kernel__ || defined __DragonFly__ .section .note.GNU-stack,"",@progbits #endif libffcall-2.2/avcall/avcall-mipsn32el-macro.S0000664000000000000000000002041013530357105015724 00000000000000#include "asm-mips.h" .file 1 "avcall-mipsn32.c" .text .align 2 .align 3 .globl avcall_call .set nomips16 .set nomicromips .ent avcall_call DECLARE_FUNCTION(avcall_call) avcall_call: .frame $fp,32,$31 .mask 0xd0010000,-8 .fmask 0x00000000,0 lw $5,20($4) lw $12,24($4) lw $2,36($4) addiu $sp,$sp,-32 sd $fp,16($sp) sd $16,0($sp) sd $31,24($sp) move $fp,$sp move $16,$4 addiu $sp,$sp,-2064 subu $4,$5,$12 move $3,$sp .set noreorder .set nomacro beq $2,$0,.L2 sra $4,$4,3 .set macro .set reorder andi $6,$2,0x1 .set noreorder .set nomacro beq $6,$0,.L125 andi $6,$2,0x2 .set macro .set reorder lwc1 $f12,44($16) andi $6,$2,0x2 .L125: .set noreorder .set nomacro beq $6,$0,.L126 andi $6,$2,0x4 .set macro .set reorder lwc1 $f13,48($16) andi $6,$2,0x4 .L126: .set noreorder .set nomacro beq $6,$0,.L127 andi $6,$2,0x8 .set macro .set reorder lwc1 $f14,52($16) andi $6,$2,0x8 .L127: .set noreorder .set nomacro beq $6,$0,.L128 andi $6,$2,0x10 .set macro .set reorder lwc1 $f15,56($16) andi $6,$2,0x10 .L128: .set noreorder .set nomacro beq $6,$0,.L129 andi $6,$2,0x20 .set macro .set reorder lwc1 $f16,60($16) andi $6,$2,0x20 .L129: .set noreorder .set nomacro beq $6,$0,.L130 andi $6,$2,0x40 .set macro .set reorder lwc1 $f17,64($16) andi $6,$2,0x40 .L130: .set noreorder .set nomacro beql $6,$0,.L131 andi $2,$2,0x80 .set macro .set reorder lwc1 $f18,68($16) andi $2,$2,0x80 .L131: bne $2,$0,.L118 .L2: lw $2,40($16) .L124: .set noreorder .set nomacro beql $2,$0,.L123 slt $4,$4,9 .set macro .set reorder andi $6,$2,0x1 .set noreorder .set nomacro beq $6,$0,.L132 andi $6,$2,0x2 .set macro .set reorder ldc1 $f12,0($12) andi $6,$2,0x2 .L132: .set noreorder .set nomacro beq $6,$0,.L133 andi $6,$2,0x4 .set macro .set reorder ldc1 $f13,8($12) andi $6,$2,0x4 .L133: .set noreorder .set nomacro beq $6,$0,.L134 andi $6,$2,0x8 .set macro .set reorder ldc1 $f14,16($12) andi $6,$2,0x8 .L134: .set noreorder .set nomacro beq $6,$0,.L135 andi $6,$2,0x10 .set macro .set reorder ldc1 $f15,24($12) andi $6,$2,0x10 .L135: .set noreorder .set nomacro beq $6,$0,.L136 andi $6,$2,0x20 .set macro .set reorder ldc1 $f16,32($12) andi $6,$2,0x20 .L136: .set noreorder .set nomacro beq $6,$0,.L137 andi $6,$2,0x40 .set macro .set reorder ldc1 $f17,40($12) andi $6,$2,0x40 .L137: .set noreorder .set nomacro beql $6,$0,.L138 andi $2,$2,0x80 .set macro .set reorder ldc1 $f18,48($12) andi $2,$2,0x80 .L138: bne $2,$0,.L119 slt $4,$4,9 .L123: .set noreorder .set nomacro bne $4,$0,.L22 addiu $2,$12,64 .set macro .set reorder .align 3 .L83: ld $4,0($2) addiu $3,$3,8 addiu $2,$2,8 .set noreorder .set nomacro bne $5,$2,.L83 sd $4,-8($3) .set macro .set reorder .L22: ld $4,0($12) ld $5,8($12) ld $6,16($12) ld $7,24($12) ld $8,32($12) ld $9,40($12) ld $10,48($12) ld $11,56($12) lw $25,4($16) jalr $25 lw $4,12($16) li $5,1 .set noreorder .set nomacro beql $4,$5,.L139 move $sp,$fp .set macro .set reorder .set noreorder .set nomacro beq $4,$0,.L116 li $5,2 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L109 li $5,3 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L109 li $5,4 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L109 li $5,5 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L112 li $5,6 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L112 li $5,7 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L111 li $5,8 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L111 li $5,9 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L111 li $5,10 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L111 li $5,11 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L116 li $5,12 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L116 li $5,13 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L120 li $5,14 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L121 li $5,15 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L111 li $5,16 .set macro .set reorder .set noreorder .set nomacro bnel $4,$5,.L139 move $sp,$fp .set macro .set reorder lw $4,0($16) andi $5,$4,0x200 .set noreorder .set nomacro beq $5,$0,.L19 andi $4,$4,0x4 .set macro .set reorder .set noreorder .set nomacro beql $4,$0,.L38 lw $5,16($16) .set macro .set reorder lw $3,16($16) li $4,1 .set noreorder .set nomacro beq $3,$4,.L109 li $4,2 .set macro .set reorder .set noreorder .set nomacro beq $3,$4,.L112 li $4,4 .set macro .set reorder .set noreorder .set nomacro beq $3,$4,.L111 li $4,8 .set macro .set reorder .set noreorder .set nomacro beql $3,$4,.L140 lw $3,8($16) .set macro .set reorder .L19: move $sp,$fp .L139: ld $31,24($sp) ld $fp,16($sp) ld $16,0($sp) move $2,$0 .set noreorder .set nomacro j $31 addiu $sp,$sp,32 .set macro .set reorder .align 3 .L116: lw $3,8($16) .align 3 .L140: sd $2,0($3) move $sp,$fp ld $31,24($sp) ld $fp,16($sp) ld $16,0($sp) move $2,$0 .set noreorder .set nomacro j $31 addiu $sp,$sp,32 .set macro .set reorder .align 3 .L119: ldc1 $f19,56($12) .set noreorder .set nomacro b .L123 slt $4,$4,9 .set macro .set reorder .align 3 .L118: lwc1 $f19,72($16) .set noreorder .set nomacro b .L124 lw $2,40($16) .set macro .set reorder .align 3 .L109: lw $3,8($16) sb $2,0($3) move $sp,$fp ld $31,24($sp) ld $fp,16($sp) ld $16,0($sp) move $2,$0 .set noreorder .set nomacro j $31 addiu $sp,$sp,32 .set macro .set reorder .L112: lw $3,8($16) .set noreorder .set nomacro b .L19 sh $2,0($3) .set macro .set reorder .L111: lw $3,8($16) sw $2,0($3) move $sp,$fp ld $31,24($sp) ld $fp,16($sp) ld $16,0($sp) move $2,$0 .set noreorder .set nomacro j $31 addiu $sp,$sp,32 .set macro .set reorder .L120: lw $2,8($16) .set noreorder .set nomacro b .L19 swc1 $f0,0($2) .set macro .set reorder .L121: lw $2,8($16) .set noreorder .set nomacro b .L19 sdc1 $f0,0($2) .set macro .set reorder .L38: addiu $4,$5,-1 sltu $4,$4,16 .set noreorder .set nomacro beq $4,$0,.L19 sltu $7,$5,9 .set macro .set reorder lw $6,8($16) li $8,-8 andi $4,$6,0x7 addu $5,$5,$4 .set noreorder .set nomacro beq $7,$0,.L42 and $6,$6,$8 .set macro .set reorder sltu $3,$5,9 .set noreorder .set nomacro beql $3,$0,.L43 ld $10,0($6) .set macro .set reorder sll $5,$5,3 ld $7,0($6) li $3,2 addiu $5,$5,-1 sll $4,$4,3 dsll $5,$3,$5 li $3,1 dsll $3,$3,$4 dsll $4,$2,$4 dsubu $3,$5,$3 xor $2,$4,$7 and $2,$3,$2 xor $2,$2,$7 .set noreorder .set nomacro b .L19 sd $2,0($6) .set macro .set reorder .align 3 .L42: ld $10,0($6) sll $9,$4,3 dsll $7,$2,$9 li $8,-1 dsll $8,$8,$9 xor $7,$7,$10 and $7,$8,$7 xor $7,$7,$10 sltu $8,$5,17 .set noreorder .set nomacro bne $8,$0,.L122 sd $7,0($6) .set macro .set reorder subu $4,$0,$4 ld $10,16($6) sll $4,$4,3 sll $5,$5,3 addiu $4,$4,64 addiu $5,$5,-129 li $7,2 move $8,$3 dsll $5,$7,$5 dsra $3,$3,$4 daddiu $5,$5,-1 xor $3,$3,$10 dsra $2,$2,$4 dsll $8,$8,$9 and $3,$5,$3 or $2,$2,$8 xor $3,$3,$10 sd $2,8($6) .set noreorder .set nomacro b .L19 sd $3,16($6) .set macro .set reorder .L43: ld $9,8($6) sll $3,$5,3 subu $5,$0,$4 addiu $8,$3,-65 sll $4,$4,3 sll $5,$5,3 li $3,2 dsll $7,$2,$4 dsll $3,$3,$8 dsra $2,$2,$5 li $5,-1 dsll $4,$5,$4 daddiu $3,$3,-1 xor $5,$7,$10 xor $2,$2,$9 and $2,$3,$2 and $4,$4,$5 xor $3,$4,$10 xor $2,$2,$9 sd $3,0($6) .set noreorder .set nomacro b .L19 sd $2,8($6) .set macro .set reorder .L122: subu $7,$0,$4 sll $7,$7,2 addiu $7,$7,32 ld $10,8($6) dsra $4,$2,$7 move $8,$3 sll $3,$5,3 addiu $3,$3,-65 dsra $5,$4,$7 dsll $2,$8,$9 li $4,2 dsll $3,$4,$3 or $2,$5,$2 daddiu $3,$3,-1 xor $2,$2,$10 and $2,$3,$2 xor $2,$2,$10 .set noreorder .set nomacro b .L19 sd $2,8($6) .set macro .set reorder .end avcall_call .size avcall_call, .-avcall_call libffcall-2.2/avcall/avcall-powerpc-linux.s0000664000000000000000000000411513530357107015673 00000000000000 .file "avcall-powerpc.c" .section ".text" .align 2 .globl avcall_call .type avcall_call, @function avcall_call: .extern __mulh .extern __mull .extern __divss .extern __divus .extern __quoss .extern __quous stwu 1,-1056(1) mflr 0 stw 0,1060(1) addi 10,1,8 stw 30,1048(1) mr 30,3 lwz 0,20(30) li 3,0 lwz 11,24(30) stw 31,1052(1) mr 31,1 subfc 0,11,0 srawi 0,0,2 cmpw 0,3,0 bge- 0,.L73 mtctr 0 .L74: slwi 9,3,2 addi 3,3,1 lwzx 0,9,11 stwx 0,9,10 bdnz .L74 .L73: lwz 9,76(30) subfc 9,30,9 addi 9,9,-80 srawi. 9,9,3 beq- 0,.L8 cmpwi 0,9,1 beq- 0,.L11 cmpwi 0,9,2 beq- 0,.L14 cmpwi 0,9,3 beq- 0,.L17 cmpwi 0,9,4 beq- 0,.L20 cmpwi 0,9,5 beq- 0,.L23 cmpwi 0,9,6 beq- 0,.L26 cmpwi 0,9,7 beq- 0,.L29 .L32: lfd 8,136(30) .L29: lfd 7,128(30) .L26: lfd 6,120(30) .L23: lfd 5,112(30) .L20: lfd 4,104(30) .L17: lfd 3,96(30) .L14: lfd 2,88(30) .L11: lfd 1,80(30) .L8: lwz 0,4(30) lwz 9,68(30) lwz 3,44(30) mtctr 0 lwz 4,48(30) lwz 5,52(30) lwz 6,56(30) lwz 7,60(30) lwz 8,64(30) lwz 10,72(30) crxor 6,6,6 bctrl lwz 9,12(30) cmpwi 0,9,1 beq- 0,.L34 cmpwi 0,9,0 beq- 0,.L84 cmpwi 0,9,2 beq- 0,.L77 cmpwi 0,9,3 beq- 0,.L77 cmpwi 0,9,4 beq- 0,.L77 cmpwi 0,9,5 beq- 0,.L76 cmpwi 0,9,6 beq- 0,.L76 cmpwi 0,9,7 beq- 0,.L84 cmpwi 0,9,8 beq- 0,.L84 cmpwi 0,9,9 beq- 0,.L84 cmpwi 0,9,10 beq- 0,.L84 addi 0,9,-11 cmplwi 0,0,1 ble- 0,.L83 cmpwi 0,9,13 beq- 0,.L85 cmpwi 0,9,14 beq- 0,.L86 cmpwi 0,9,15 beq- 0,.L84 cmpwi 0,9,16 beq- 0,.L87 .L34: lwz 11,0(1) li 3,0 lwz 0,4(11) lwz 30,-8(11) lwz 31,-4(11) mtlr 0 mr 1,11 blr .L87: lwz 0,0(30) andi. 9,0,512 beq- 0,.L34 lwz 0,16(30) cmpwi 0,0,1 beq- 0,.L77 cmpwi 0,0,2 beq- 0,.L76 cmpwi 0,0,4 beq- 0,.L84 cmpwi 0,0,8 bne+ 0,.L34 .L83: lwz 9,8(30) stw 4,4(9) .L75: stw 3,0(9) b .L34 .L84: lwz 9,8(30) b .L75 .L76: lwz 9,8(30) sth 3,0(9) b .L34 .L77: lwz 9,8(30) stb 3,0(9) b .L34 .L86: lwz 9,8(30) stfd 1,0(9) b .L34 .L85: frsp 0,1 lwz 9,8(30) stfs 0,0(9) b .L34 .size avcall_call, .-avcall_call .section .note.GNU-stack,"",@progbits .ident "GCC: (GNU) 3.3.6" libffcall-2.2/avcall/avcall-riscv64-lp64d-macro.S0000664000000000000000000001030613530357111016337 00000000000000 .file "avcall-riscv64.c" .option pic .text .align 1 .globl avcall_call .type avcall_call, @function avcall_call: add sp,sp,-64 sd s0,48(sp) sd s1,40(sp) sd ra,56(sp) sd s2,32(sp) sd s3,24(sp) sd s4,16(sp) sd s5,8(sp) sd s6,0(sp) add s0,sp,64 ld t6,48(a0) ld t3,40(a0) li t1,-4096 add t1,t1,2032 sub t3,t3,t6 sra t3,t3,3 sext.w t0,t3 li t4,8 mv s1,a0 add sp,sp,t1 lw t2,64(a0) ble t0,t4,.L2 addw t3,t3,-9 sll t3,t3,32 srl t3,t3,29 mv t1,sp add t3,t3,8 add t4,t6,64 add t3,t1,t3 .L3: ld t5,0(t4) add t1,t1,8 add t4,t4,8 sd t5,-8(t1) bne t3,t1,.L3 .L4: li t1,1 ld a0,0(t6) beq t0,t1,.L5 li t1,2 ld a1,8(t6) beq t0,t1,.L5 li t1,3 ld a2,16(t6) beq t0,t1,.L5 li t1,4 ld a3,24(t6) beq t0,t1,.L5 li t1,5 ld a4,32(t6) beq t0,t1,.L5 li t1,6 ld a5,40(t6) beq t0,t1,.L5 li t1,7 ld a6,48(t6) beq t0,t1,.L5 ld a7,56(t6) .L5: beqz t2,.L8 lw t1,72(s1) and t3,t1,1 beqz t3,.L9 fld fa0,112(s1) .L10: li t3,1 bleu t2,t3,.L8 and t3,t1,2 bnez t3,.L79 lw t3,68(s1) and t3,t3,2 beqz t3,.L13 flw fa1,80(s1) .L13: li t3,2 beq t2,t3,.L8 and t3,t1,4 beqz t3,.L14 fld fa2,128(s1) .L15: li t3,3 beq t2,t3,.L8 and t3,t1,8 bnez t3,.L80 lw t3,68(s1) and t3,t3,8 beqz t3,.L17 flw fa3,88(s1) .L17: li t3,4 beq t2,t3,.L8 and t3,t1,16 beqz t3,.L18 fld fa4,144(s1) .L19: li t3,5 beq t2,t3,.L8 and t3,t1,32 beqz t3,.L20 fld fa5,152(s1) .L21: li t3,6 beq t2,t3,.L8 and t3,t1,64 beqz t3,.L22 fld fa6,160(s1) .L23: li t3,7 beq t2,t3,.L8 and t1,t1,128 beqz t1,.L24 fld fa7,168(s1) .L8: lw t1,24(s1) li t3,13 ld t4,8(s1) bne t1,t3,.L25 ld s1,16(s1) jalr t4 fsw fa0,0(s1) .L26: add sp,s0,-64 ld ra,56(sp) li a0,0 ld s0,48(sp) ld s1,40(sp) ld s2,32(sp) ld s3,24(sp) ld s4,16(sp) ld s5,8(sp) ld s6,0(sp) add sp,sp,64 jr ra .L9: lw t3,68(s1) and t3,t3,1 beqz t3,.L10 flw fa0,76(s1) j .L10 .L25: li t3,14 beq t1,t3,.L81 jalr t4 lw t1,24(s1) li t4,1 mv t3,a0 beq t1,t4,.L26 beqz t1,.L77 li t4,2 beq t1,t4,.L73 li t4,3 beq t1,t4,.L73 li t4,4 beq t1,t4,.L73 li t4,5 beq t1,t4,.L74 li t4,6 beq t1,t4,.L74 li t4,7 beq t1,t4,.L75 li s4,8 beq t1,s4,.L75 and t4,t1,-3 li t6,9 beq t4,t6,.L77 addw t4,t1,-10 and t4,t4,-3 sext.w t4,t4 beqz t4,.L77 li t6,15 beq t1,t6,.L77 li t4,16 bne t1,t4,.L26 lw t4,0(s1) and t4,t4,512 beqz t4,.L26 ld s6,32(s1) add t4,s6,-1 bgtu t4,t6,.L26 ld t6,16(s1) li t4,1 and s1,t6,7 and t6,t6,-8 sext.w s3,s1 ld t0,0(t6) sll s5,s3,3 add s1,s6,s1 sll t2,a0,s5 sll t4,t4,s5 xor t2,t2,t0 sllw s2,s1,3 bgtu s6,s4,.L39 bgtu s1,s4,.L40 addw s2,s2,-1 li t1,2 sll t1,t1,s2 sub t1,t1,t4 and t1,t1,t2 xor t1,t1,t0 sd t1,0(t6) j .L26 .L79: fld fa1,120(s1) j .L13 .L81: ld s1,16(s1) jalr t4 fsd fa0,0(s1) j .L26 .L2: blez t0,.L5 j .L4 .L14: lw t3,68(s1) and t3,t3,4 beqz t3,.L15 flw fa2,84(s1) j .L15 .L77: ld t1,16(s1) sd t3,0(t1) j .L26 .L80: fld fa3,136(s1) j .L17 .L73: ld t1,16(s1) sb t3,0(t1) j .L26 .L18: lw t3,68(s1) and t3,t3,16 beqz t3,.L19 flw fa4,92(s1) j .L19 .L74: ld t1,16(s1) sh t3,0(t1) j .L26 .L20: lw t3,68(s1) and t3,t3,32 beqz t3,.L21 flw fa5,96(s1) j .L21 .L75: ld t1,16(s1) sw t3,0(t1) j .L26 .L22: lw t3,68(s1) and t3,t3,64 beqz t3,.L23 flw fa6,100(s1) j .L23 .L24: lw t1,68(s1) and t1,t1,128 beqz t1,.L8 flw fa7,104(s1) j .L8 .L40: li t1,-8 mulw t1,t1,s3 ld s1,8(t6) addw s2,s2,-65 li t5,2 sll t5,t5,s2 sub t4,zero,t4 add t5,t5,-1 and t4,t4,t2 xor t4,t4,t0 sd t4,0(t6) sra t1,a0,t1 xor t1,t1,s1 and t1,t1,t5 xor t1,t1,s1 sd t1,8(t6) j .L26 .L39: sub t4,zero,t4 and t4,t4,t2 xor t4,t4,t0 sd t4,0(t6) sll t2,a1,s5 bleu s1,t1,.L82 li t1,-8 mulw t1,t1,s3 ld s1,16(t6) addw t4,s2,-129 li t0,2 sll t0,t0,t4 add t0,t0,-1 addw t1,t1,64 sra t4,a1,t1 xor t4,t4,s1 sra t1,a0,t1 and t3,t0,t4 or t1,t1,t2 xor t3,t3,s1 sd t1,8(t6) sd t3,16(t6) j .L26 .L82: li t1,-4 mulw t1,t1,s3 addw t4,s2,-65 li t5,2 sll t5,t5,t4 ld t0,8(t6) add t5,t5,-1 addw t4,t1,32 sra t1,a0,t4 sra t1,t1,t4 or t1,t1,t2 xor t1,t1,t0 and t1,t1,t5 xor t1,t1,t0 sd t1,8(t6) j .L26 .size avcall_call, .-avcall_call #if defined __linux__ || defined __FreeBSD__ || defined __FreeBSD_kernel__ || defined __DragonFly__ .section .note.GNU-stack,"",@progbits #endif libffcall-2.2/avcall/avcall-i386-linux.s0000664000000000000000000000404713530357105014707 00000000000000 .file "avcall-i386.c" .text .align 2 .p2align 2,,3 .globl avcall_call .type avcall_call,@function avcall_call: pushl %ebp movl %esp, %ebp pushl %edi pushl %esi movl 8(%ebp), %eax movl 20(%eax), %edx movl 24(%eax), %eax subl %eax, %edx sarl $2, %edx xorl %esi, %esi subl $1024, %esp cmpl %edx, %esi movl %esp, %edi jge .L47 movl %eax, %ecx .p2align 2,,3 .L6: movl (%ecx,%esi,4), %eax movl %eax, (%edi,%esi,4) incl %esi cmpl %edx, %esi jl .L6 .L47: movl 8(%ebp), %edx movl 12(%edx), %eax cmpl $13, %eax je .L55 cmpl $14, %eax je .L56 movl 8(%ebp), %ecx call *4(%ecx) movl %eax, %esi movl 8(%ebp), %eax movl 12(%eax), %ecx cmpl $1, %ecx je .L8 testl %ecx, %ecx jne .L13 movl 8(%eax), %eax .L50: movl %esi, (%eax) .L8: leal -8(%ebp), %esp popl %esi xorl %eax, %eax popl %edi leave ret .L13: cmpl $2, %ecx je .L53 cmpl $3, %ecx je .L53 cmpl $4, %ecx je .L53 cmpl $5, %ecx je .L57 cmpl $6, %ecx je .L51 cmpl $7, %ecx je .L48 cmpl $8, %ecx je .L54 cmpl $9, %ecx je .L48 cmpl $10, %ecx je .L54 leal -11(%ecx), %eax cmpl $1, %eax jbe .L49 cmpl $15, %ecx je .L48 cmpl $16, %ecx jne .L8 movl 8(%ebp), %ecx testb $2, 1(%ecx) je .L8 movl 16(%ecx), %eax cmpl $1, %eax je .L58 cmpl $2, %eax je .L51 cmpl $4, %eax je .L48 cmpl $8, %eax jne .L8 .L49: movl 8(%ebp), %ecx movl 8(%ecx), %eax movl %esi, (%eax) movl %edx, 4(%eax) jmp .L8 .L48: movl 8(%ebp), %edx movl 8(%edx), %eax jmp .L50 .L51: movl 8(%ebp), %ecx movl 8(%ecx), %eax .L52: movw %si, (%eax) jmp .L8 .L58: movl 8(%ecx), %eax movl %esi, %edx movb %dl, (%eax) jmp .L8 .p2align 2,,3 .L54: movl 8(%ebp), %ecx movl 8(%ecx), %eax jmp .L50 .L57: movl 8(%ebp), %edx movl 8(%edx), %eax jmp .L52 .L53: movl 8(%ebp), %edx movl 8(%edx), %eax movl %esi, %ecx movb %cl, (%eax) jmp .L8 .L56: movl 8(%ebp), %eax call *4(%eax) movl 8(%ebp), %edx movl 8(%edx), %eax fstpl (%eax) jmp .L8 .L55: call *4(%edx) movl 8(%ebp), %ecx movl 8(%ecx), %eax fstps (%eax) jmp .L8 .Lfe1: .size avcall_call,.Lfe1-avcall_call .ident "GCC: (GNU) 3.1" libffcall-2.2/avcall/avcall-ia64-linux.s0000664000000000000000000003404013530357110014751 00000000000000 .file "avcall-ia64.c" .pred.safe_across_calls p1-p5,p16-p63 .text .align 16 .global avcall_call# .proc avcall_call# avcall_call: .prologue 14, 34 .mmi .save ar.pfs, r35 alloc r35 = ar.pfs, 1, 6, 8, 0 adds r14 = 40, r32 adds r20 = 48, r32 .mmi adds r16 = 64, r32 adds r21 = 72, r32 adds r19 = -2032, r12 ;; .mmb ld8 r15 = [r14] ld8 r17 = [r20] nop 0 .mii .vframe r36 mov r36 = r12 .save ar.lc, r38 mov r38 = ar.lc mov r37 = r1 ;; .mmi sub r15 = r15, r17 ld8 r14 = [r16] .save rp, r34 mov r34 = b0 .body .mmi nop 0 ;; nop 0 shr.u r15 = r15, 3 .mmi sub r14 = r14, r21 ;; nop 0 shr.u r18 = r14, 3 .mmb nop 0 cmp4.ge p6, p7 = 8, r15 (p6) br.cond.dptk .L2 .mii sub r14 = 8, r15 addl r16 = 8, r0 ;; andcm r14 = -1, r14 ;; .mii nop 0 addp4 r14 = r14, r0 ;; mov ar.lc = r14 .L4: .mii nop 0 sxt4 r14 = r16 adds r16 = 1, r16 ;; .mmi shladd r14 = r14, 3, r0 ;; add r15 = r17, r14 add r14 = r19, r14 ;; .mmb adds r14 = -64, r14 ld8 r15 = [r15] nop 0 ;; .mfb st8 [r14] = r15 nop 0 br.cloop.sptk.few .L4 .L2: .mmi adds r33 = 24, r32 ;; ld4 r15 = [r33] nop 0 ;; .mii nop 0 cmp4.ne p6, p7 = 16, r15 ;; (p7) adds r14 = 16, r32 ;; .mfi (p7) ld8 r8 = [r14] nop 0 cmp4.ge p6, p7 = 0, r18 .mfb adds r14 = 80, r32 nop 0 (p6) br.cond.dpnt .L7 ;; .mmb nop 0 cmp4.ge p6, p7 = 1, r18 nop 0 .mfb ldfd f8 = [r21] nop 0 (p6) br.cond.dpnt .L7 ;; .mmb nop 0 cmp4.ge p6, p7 = 2, r18 nop 0 .mfb ldfd f9 = [r14] nop 0 (p7) br.cond.dptk .L71 ;; .L7: .mib nop 0 cmp4.ne p6, p7 = 13, r15 (p7) br.cond.dpnt .L72 ;; .L16: .mib cmp4.ne p6, p7 = 14, r15 adds r15 = 8, r32 (p7) br.cond.dpnt .L73 .mmb nop 0 ld8 r14 = [r20] nop 0 ;; .mmi ld8 r15 = [r15] adds r16 = 8, r14 adds r17 = 16, r14 .mmi adds r18 = 24, r14 adds r19 = 32, r14 adds r20 = 40, r14 .mmi nop 0 adds r21 = 48, r14 adds r22 = 56, r14 .mmi ld8 r39 = [r14] ;; ld8 r14 = [r15], 8 nop 0 .mii ld8 r40 = [r16] nop 0 ;; mov b6 = r14 .mmb ld8 r1 = [r15] ld8 r41 = [r17] nop 0 .mmb ld8 r42 = [r18] ld8 r43 = [r19] nop 0 .mmb ld8 r44 = [r20] ld8 r45 = [r21] nop 0 .mbb ld8 r46 = [r22] nop 0 br.call.sptk.many b0 = b6 ;; .mmi mov r1 = r37 ld4 r14 = [r33] mov r28 = r8 ;; .mfb cmp4.eq p6, p7 = 1, r14 nop 0 (p6) br.cond.dpnt .L18 ;; .mib nop 0 cmp4.ne p6, p7 = 0, r14 (p7) br.cond.dptk .L69 ;; .mfb cmp4.ne p6, p7 = 2, r14 nop 0 (p7) br.cond.dpnt .L65 ;; .mfb cmp4.ne p6, p7 = 3, r14 nop 0 (p7) br.cond.dpnt .L65 ;; .mfb cmp4.ne p6, p7 = 4, r14 nop 0 (p7) br.cond.dpnt .L65 ;; .mfb cmp4.ne p6, p7 = 5, r14 nop 0 (p7) br.cond.dpnt .L66 ;; .mfb cmp4.ne p6, p7 = 6, r14 nop 0 (p7) br.cond.dpnt .L66 ;; .mfb cmp4.ne p6, p7 = 7, r14 nop 0 (p7) br.cond.dpnt .L67 ;; .mfb cmp4.ne p6, p7 = 8, r14 nop 0 (p7) br.cond.dpnt .L67 ;; .mii nop 0 cmp4.ne p6, p7 = 9, r14 ;; nop 0 .mfb cmp4.ne.and.orcm p6, p7 = 11, r14 nop 0 (p7) br.cond.dptk .L69 ;; .mii nop 0 cmp4.ne p6, p7 = 10, r14 ;; nop 0 .mfb cmp4.ne.and.orcm p6, p7 = 12, r14 nop 0 (p7) br.cond.dptk .L69 ;; .mfb cmp4.ne p6, p7 = 15, r14 nop 0 (p7) br.cond.dpnt .L69 ;; .mib nop 0 cmp4.ne p6, p7 = 16, r14 (p6) br.cond.dptk .L18 .mmi ld4 r14 = [r32] ;; nop 0 tbit.z p6, p7 = r14, 9 .mfb adds r14 = 32, r32 nop 0 (p6) br.cond.dpnt .L18 ;; .mmi ld8 r19 = [r14] ;; adds r14 = -1, r19 nop 0 ;; .mib cmp.ltu p6, p7 = 31, r14 adds r14 = 16, r32 (p6) br.cond.dpnt .L18 ;; .mii ld8 r14 = [r14] cmp.ltu p6, p7 = 8, r19 ;; and r17 = 7, r14 .mii nop 0 and r27 = -8, r14 ;; nop 0 .mfb add r23 = r19, r17 nop 0 (p6) br.cond.dptk .L47 ;; .mib nop 0 cmp.ltu p6, p7 = 8, r23 (p6) br.cond.dptk .L49 .mmi shladd r15 = r23, 3, r0 addl r14 = 2, r0 shladd r18 = r17, 3, r0 .mmi ld8 r17 = [r27] ;; adds r15 = -1, r15 nop 0 ;; .mii nop 0 sxt4 r15 = r15 ;; shl r14 = r14, r15 .mii addl r15 = 1, r0 shl r16 = r8, r18 ;; shl r15 = r15, r18 .mii nop 0 xor r16 = r16, r17 ;; sub r14 = r14, r15 ;; .mmi and r14 = r16, r14 ;; xor r17 = r14, r17 nop 0 ;; .mfb st8 [r27] = r17 nop 0 nop 0 .L18: .mfi mov r8 = r0 nop 0 mov b0 = r34 .mmi nop 0 .label_state 1 .restore sp mov r12 = r36 mov ar.pfs = r35 .mib nop 0 mov ar.lc = r38 br.ret.sptk.many b0 .L71: .body .copy_state 1 .mfi adds r14 = 88, r32 nop 0 cmp4.ge p6, p7 = 3, r18 ;; .mfb ldfd f10 = [r14] nop 0 (p6) br.cond.dptk .L7 .mfi adds r14 = 96, r32 nop 0 cmp4.ge p6, p7 = 4, r18 ;; .mfb ldfd f11 = [r14] nop 0 (p6) br.cond.dptk .L7 .mfi adds r14 = 104, r32 nop 0 cmp4.ge p6, p7 = 5, r18 ;; .mfb ldfd f12 = [r14] nop 0 (p6) br.cond.dptk .L7 .mfi adds r14 = 112, r32 nop 0 cmp4.ge p6, p7 = 6, r18 ;; .mfb ldfd f13 = [r14] nop 0 (p6) br.cond.dptk .L7 .mii adds r14 = 120, r32 cmp4.ge p6, p7 = 7, r18 ;; nop 0 .mii ldfd f14 = [r14] (p7) adds r14 = 128, r32 ;; nop 0 .mmb (p7) ldfd f15 = [r14] cmp4.ne p6, p7 = 13, r15 (p6) br.cond.dptk .L16 .L72: .mmb adds r16 = 8, r32 adds r15 = 16, r32 nop 0 .mfi ld8 r14 = [r20] nop 0 mov ar.lc = r38 ;; .mmi ld8 r33 = [r15] ld8 r15 = [r16] adds r17 = 8, r14 .mmi adds r18 = 16, r14 adds r19 = 24, r14 adds r20 = 32, r14 .mmi adds r21 = 40, r14 adds r22 = 48, r14 adds r23 = 56, r14 .mii ld8 r39 = [r14] nop 0 ;; nop 0 .mmb ld8 r14 = [r15], 8 ld8 r40 = [r17] nop 0 ;; .mmi ld8 r1 = [r15] ld8 r41 = [r18] mov b6 = r14 .mmb ld8 r42 = [r19] ld8 r43 = [r20] nop 0 .mmb ld8 r44 = [r21] ld8 r45 = [r22] nop 0 .mbb ld8 r46 = [r23] nop 0 br.call.sptk.many b0 = b6 ;; .mmb .label_state 2 .restore sp mov r12 = r36 mov r8 = r0 nop 0 .mmi mov r1 = r37 stfs [r33] = f8 mov b0 = r34 .mib nop 0 mov ar.pfs = r35 br.ret.sptk.many b0 ;; .L69: .body .copy_state 2 .mmi adds r14 = 16, r32 mov r8 = r0 mov b0 = r34 .mmi .label_state 3 .restore sp mov r12 = r36 ;; ld8 r14 = [r14] mov ar.pfs = r35 .mii nop 0 mov ar.lc = r38 ;; nop 0 .mfb st8 [r14] = r28 nop 0 br.ret.sptk.many b0 .L73: .body .copy_state 3 .mmb adds r16 = 8, r32 adds r15 = 16, r32 nop 0 .mfi ld8 r14 = [r20] nop 0 mov ar.lc = r38 ;; .mmi ld8 r33 = [r15] ld8 r15 = [r16] adds r17 = 8, r14 .mmi adds r18 = 16, r14 adds r19 = 24, r14 adds r20 = 32, r14 .mmi adds r21 = 40, r14 adds r22 = 48, r14 adds r23 = 56, r14 .mii ld8 r39 = [r14] nop 0 ;; nop 0 .mmb ld8 r14 = [r15], 8 ld8 r40 = [r17] nop 0 ;; .mmi ld8 r1 = [r15] ld8 r41 = [r18] mov b6 = r14 .mmb ld8 r42 = [r19] ld8 r43 = [r20] nop 0 .mmb ld8 r44 = [r21] ld8 r45 = [r22] nop 0 .mbb ld8 r46 = [r23] nop 0 br.call.sptk.many b0 = b6 ;; .mmb .label_state 4 .restore sp mov r12 = r36 mov r8 = r0 nop 0 .mmi mov r1 = r37 stfd [r33] = f8 mov b0 = r34 .mib nop 0 mov ar.pfs = r35 br.ret.sptk.many b0 ;; .L65: .body .copy_state 4 .mmi adds r14 = 16, r32 mov r8 = r0 mov b0 = r34 .mmi .label_state 5 .restore sp mov r12 = r36 ;; ld8 r14 = [r14] mov ar.pfs = r35 .mii nop 0 mov ar.lc = r38 ;; nop 0 .mfb st1 [r14] = r28 nop 0 br.ret.sptk.many b0 .L66: .body .copy_state 5 .mmi adds r14 = 16, r32 mov r8 = r0 mov b0 = r34 .mmi .label_state 6 .restore sp mov r12 = r36 ;; ld8 r14 = [r14] mov ar.pfs = r35 .mii nop 0 mov ar.lc = r38 ;; nop 0 .mfb st2 [r14] = r28 nop 0 br.ret.sptk.many b0 .L67: .body .copy_state 6 .mmi adds r14 = 16, r32 mov r8 = r0 mov b0 = r34 .mmi .label_state 7 .restore sp mov r12 = r36 ;; ld8 r14 = [r14] mov ar.pfs = r35 .mii nop 0 mov ar.lc = r38 ;; nop 0 .mfb st4 [r14] = r28 nop 0 br.ret.sptk.many b0 .L47: .body .copy_state 7 .mib nop 0 cmp.ltu p6, p7 = 16, r19 (p6) br.cond.dptk .L51 ;; .mfi shladd r20 = r17, 3, r0 nop 0 addl r14 = -1, r0 .mii ld8 r16 = [r27] cmp.ltu p6, p7 = 16, r23 ;; nop 0 .mii mov r19 = r20 shl r15 = r8, r20 shl r14 = r14, r20 ;; .mmi xor r15 = r15, r16 ;; and r14 = r15, r14 nop 0 ;; .mii nop 0 xor r16 = r14, r16 ;; nop 0 .mfb st8 [r27] = r16 nop 0 (p6) br.cond.dptk .L53 .mmi shladd r17 = r17, 2, r0 shladd r16 = r23, 3, r0 addl r15 = 2, r0 .mmi adds r19 = 8, r27 .label_state 8 .restore sp mov r12 = r36 shl r20 = r9, r20 ;; .mmb sub r17 = 32, r17 adds r16 = -65, r16 nop 0 .mii ld8 r18 = [r19] mov b0 = r34 mov ar.pfs = r35 ;; .mii nop 0 sxt4 r16 = r16 sxt4 r17 = r17 .mib nop 0 mov ar.lc = r38 nop 0 ;; .mii nop 0 shr r14 = r8, r17 shl r15 = r15, r16 .mmi mov r8 = r0 ;; nop 0 shr r14 = r14, r17 .mii nop 0 adds r15 = -1, r15 ;; or r14 = r20, r14 ;; .mii nop 0 xor r14 = r14, r18 ;; and r15 = r14, r15 ;; .mii nop 0 xor r18 = r15, r18 ;; nop 0 .mfb st8 [r19] = r18 nop 0 br.ret.sptk.many b0 .L49: .body .copy_state 8 .mmi shladd r14 = r23, 3, r0 addl r15 = 2, r0 mov b0 = r34 .mmi shladd r18 = r17, 3, r0 ld8 r19 = [r27] .label_state 9 .restore sp mov r12 = r36 ;; .mmi adds r14 = -65, r14 sub r16 = 64, r18 mov ar.pfs = r35 .mii nop 0 mov ar.lc = r38 ;; sxt4 r14 = r14 .mii nop 0 shl r17 = r8, r18 ;; shl r15 = r15, r14 .mii addl r14 = -1, r0 sxt4 r16 = r16 ;; shr r16 = r8, r16 .mii mov r8 = r0 xor r17 = r17, r19 shl r14 = r14, r18 .mii nop 0 adds r15 = -1, r15 ;; and r14 = r17, r14 ;; .mmi xor r19 = r14, r19 ;; st8 [r27] = r19, 8 nop 0 ;; .mmi ld8 r14 = [r27] ;; xor r16 = r16, r14 nop 0 ;; .mmi and r15 = r16, r15 ;; xor r14 = r15, r14 nop 0 ;; .mfb st8 [r27] = r14 nop 0 br.ret.sptk.many b0 .L53: .body .copy_state 9 .mmi shladd r15 = r23, 3, r0 addl r14 = 2, r0 sub r17 = 64, r20 .mmi adds r21 = 16, r27 adds r20 = 8, r27 shl r19 = r9, r19 ;; .mii adds r15 = -129, r15 mov b0 = r34 sxt4 r17 = r17 .mmi .label_state 10 .restore sp mov r12 = r36 nop 0 mov ar.pfs = r35 ;; .mii nop 0 shr r18 = r9, r17 sxt4 r15 = r15 ;; .mii nop 0 shl r14 = r14, r15 shr r16 = r8, r17 .mmi ld8 r15 = [r21] mov r8 = r0 mov ar.lc = r38 ;; .mii xor r18 = r18, r15 adds r14 = -1, r14 or r16 = r19, r16 ;; .mmb and r14 = r18, r14 st8 [r20] = r16 nop 0 ;; .mii nop 0 xor r15 = r14, r15 ;; nop 0 .mfb st8 [r21] = r15 nop 0 br.ret.sptk.many b0 .L51: .body .copy_state 10 .mib nop 0 cmp.ltu p6, p7 = 24, r19 (p6) br.cond.dptk .L55 ;; .mfi shladd r19 = r17, 3, r0 nop 0 addl r14 = -1, r0 .mii ld8 r16 = [r27] cmp.ltu p6, p7 = 24, r23 ;; nop 0 .mii mov r29 = r19 shl r15 = r8, r19 shl r14 = r14, r19 ;; .mmi xor r15 = r15, r16 ;; and r14 = r15, r14 nop 0 ;; .mii nop 0 xor r16 = r14, r16 ;; nop 0 .mfb st8 [r27] = r16 nop 0 (p6) br.cond.dptk .L57 .mmi shladd r14 = r17, 2, r0 shladd r18 = r23, 3, r0 addl r16 = 2, r0 .mmi adds r22 = 16, r27 adds r20 = 8, r27 shl r21 = r10, r29 ;; .mmi sub r14 = 32, r14 adds r18 = -65, r18 mov b0 = r34 .mii .label_state 11 .restore sp mov r12 = r36 shl r19 = r9, r29 mov ar.pfs = r35 ;; .mii nop 0 sxt4 r18 = r18 sxt4 r14 = r14 .mib nop 0 mov ar.lc = r38 nop 0 ;; .mii nop 0 shr r15 = r9, r14 shr r17 = r8, r14 .mii mov r8 = r0 nop 0 shl r16 = r16, r18 ;; .mii nop 0 shr r15 = r15, r14 shr r17 = r17, r14 .mii ld8 r14 = [r22] nop 0 adds r16 = -1, r16 ;; .mii or r15 = r21, r15 or r17 = r19, r17 ;; xor r15 = r15, r14 .mmi st8 [r20] = r17 ;; and r16 = r15, r16 nop 0 ;; .mii nop 0 xor r14 = r16, r14 ;; nop 0 .mfb st8 [r22] = r14 nop 0 br.ret.sptk.many b0 .L55: .body .copy_state 11 .mfi shladd r18 = r17, 3, r0 nop 0 addl r14 = -1, r0 .mii ld8 r16 = [r27] cmp.ltu p6, p7 = 32, r23 ;; nop 0 .mii mov r29 = r18 shl r15 = r8, r18 shl r14 = r14, r18 ;; .mmi xor r15 = r15, r16 ;; and r14 = r15, r14 nop 0 ;; .mii nop 0 xor r16 = r14, r16 ;; nop 0 .mfb st8 [r27] = r16 nop 0 (p6) br.cond.dptk .L59 .mmi shladd r14 = r17, 2, r0 addl r15 = 2, r0 shl r20 = r10, r18 .mmi shladd r18 = r23, 3, r0 adds r23 = 24, r27 shl r19 = r9, r29 ;; .mmi sub r14 = 32, r14 adds r18 = -65, r18 mov b0 = r34 .mmi adds r21 = 8, r27 adds r22 = 16, r27 .label_state 12 .restore sp mov r12 = r36 .mii nop 0 mov ar.pfs = r35 ;; sxt4 r18 = r18 .mii nop 0 sxt4 r14 = r14 mov ar.lc = r38 ;; .mii nop 0 shr r16 = r8, r14 shr r17 = r9, r14 .mii mov r8 = r0 nop 0 shl r15 = r15, r18 ;; .mii nop 0 shr r16 = r16, r14 shr r17 = r17, r14 .mii ld8 r14 = [r23] adds r15 = -1, r15 ;; or r16 = r19, r16 .mmi or r17 = r20, r17 ;; st8 [r21] = r16 xor r16 = r14, r16 .mmi st8 [r22] = r17 ;; and r15 = r16, r15 nop 0 ;; .mii nop 0 xor r14 = r15, r14 ;; nop 0 .mfb st8 [r23] = r14 nop 0 br.ret.sptk.many b0 .L57: .body .copy_state 12 .mmi shladd r14 = r23, 3, r0 addl r15 = 2, r0 sub r16 = 64, r19 .mmi adds r24 = 24, r27 adds r22 = 8, r27 shl r21 = r10, r29 ;; .mii adds r14 = -129, r14 sxt4 r16 = r16 shl r20 = r9, r29 .mmi adds r23 = 16, r27 .label_state 13 .restore sp mov r12 = r36 mov b0 = r34 ;; .mii nop 0 shr r18 = r10, r16 sxt4 r14 = r14 ;; .mii nop 0 shl r15 = r15, r14 shr r19 = r8, r16 .mmi ld8 r14 = [r24] mov r8 = r0 mov ar.pfs = r35 .mib nop 0 shr r17 = r9, r16 nop 0 ;; .mii xor r18 = r18, r14 mov ar.lc = r38 adds r15 = -1, r15 .mmi or r19 = r20, r19 ;; and r15 = r18, r15 or r17 = r21, r17 .mii st8 [r22] = r19 nop 0 ;; xor r14 = r15, r14 .mmb nop 0 st8 [r23] = r17 nop 0 ;; .mfb st8 [r24] = r14 nop 0 br.ret.sptk.many b0 .L59: .body .copy_state 13 .mmi shladd r16 = r23, 3, r0 addl r15 = 2, r0 sub r14 = 64, r18 .mmi adds r24 = 8, r27 adds r25 = 16, r27 adds r26 = 24, r27 ;; .mmi nop 0 adds r16 = -129, r16 sxt4 r14 = r14 .mmi adds r27 = 32, r27 .restore sp mov r12 = r36 shl r23 = r11, r29 ;; .mii nop 0 sxt4 r16 = r16 shr r22 = r11, r14 ;; .mii nop 0 shl r15 = r15, r16 shr r17 = r8, r14 .mii mov r8 = r0 shr r18 = r9, r14 shr r19 = r10, r14 .mii ld8 r14 = [r27] shl r20 = r9, r29 shl r21 = r10, r29 ;; .mmi xor r22 = r22, r14 adds r15 = -1, r15 mov b0 = r34 ;; .mmi and r15 = r22, r15 or r19 = r23, r19 mov ar.pfs = r35 .mmi or r17 = r20, r17 or r18 = r21, r18 mov ar.lc = r38 ;; .mmb xor r14 = r15, r14 st8 [r24] = r17 nop 0 .mmb st8 [r25] = r18 st8 [r26] = r19 nop 0 ;; .mfb st8 [r27] = r14 nop 0 br.ret.sptk.many b0 .endp avcall_call# .ident "GCC: (GNU) 4.0.1" libffcall-2.2/avcall/avcall-mipsn32eb-linux.s0000664000000000000000000002311713530357105016017 00000000000000 .file 1 "avcall-mipsn32.c" .section .mdebug.abiN32 .previous .nan legacy .module fp=64 .module oddspreg .abicalls .text .align 2 .align 3 .globl avcall_call .set nomips16 .set nomicromips .ent avcall_call .type avcall_call, @function avcall_call: .frame $fp,32,$31 # vars= 0, regs= 4/0, args= 0, gp= 0 .mask 0xd0010000,-8 .fmask 0x00000000,0 lw $5,20($4) lw $12,24($4) lw $2,36($4) addiu $sp,$sp,-32 sd $fp,16($sp) sd $16,0($sp) sd $31,24($sp) move $fp,$sp move $16,$4 addiu $sp,$sp,-2064 subu $4,$5,$12 move $3,$sp .set noreorder .set nomacro beq $2,$0,.L2 sra $4,$4,3 .set macro .set reorder andi $6,$2,0x1 .set noreorder .set nomacro beq $6,$0,.L125 andi $6,$2,0x2 .set macro .set reorder #APP # 78 "avcall-mipsn32.c" 1 lwc1 $f12,44($16) # 0 "" 2 #NO_APP andi $6,$2,0x2 .L125: .set noreorder .set nomacro beq $6,$0,.L126 andi $6,$2,0x4 .set macro .set reorder #APP # 80 "avcall-mipsn32.c" 1 lwc1 $f13,48($16) # 0 "" 2 #NO_APP andi $6,$2,0x4 .L126: .set noreorder .set nomacro beq $6,$0,.L127 andi $6,$2,0x8 .set macro .set reorder #APP # 82 "avcall-mipsn32.c" 1 lwc1 $f14,52($16) # 0 "" 2 #NO_APP andi $6,$2,0x8 .L127: .set noreorder .set nomacro beq $6,$0,.L128 andi $6,$2,0x10 .set macro .set reorder #APP # 84 "avcall-mipsn32.c" 1 lwc1 $f15,56($16) # 0 "" 2 #NO_APP andi $6,$2,0x10 .L128: .set noreorder .set nomacro beq $6,$0,.L129 andi $6,$2,0x20 .set macro .set reorder #APP # 86 "avcall-mipsn32.c" 1 lwc1 $f16,60($16) # 0 "" 2 #NO_APP andi $6,$2,0x20 .L129: .set noreorder .set nomacro beq $6,$0,.L130 andi $6,$2,0x40 .set macro .set reorder #APP # 88 "avcall-mipsn32.c" 1 lwc1 $f17,64($16) # 0 "" 2 #NO_APP andi $6,$2,0x40 .L130: .set noreorder .set nomacro beql $6,$0,.L131 andi $2,$2,0x80 .set macro .set reorder #APP # 90 "avcall-mipsn32.c" 1 lwc1 $f18,68($16) # 0 "" 2 #NO_APP andi $2,$2,0x80 .L131: bne $2,$0,.L118 .L2: lw $2,40($16) .L124: .set noreorder .set nomacro beql $2,$0,.L123 slt $4,$4,9 .set macro .set reorder andi $6,$2,0x1 .set noreorder .set nomacro beq $6,$0,.L132 andi $6,$2,0x2 .set macro .set reorder #APP # 98 "avcall-mipsn32.c" 1 ldc1 $f12,0($12) # 0 "" 2 #NO_APP andi $6,$2,0x2 .L132: .set noreorder .set nomacro beq $6,$0,.L133 andi $6,$2,0x4 .set macro .set reorder #APP # 100 "avcall-mipsn32.c" 1 ldc1 $f13,8($12) # 0 "" 2 #NO_APP andi $6,$2,0x4 .L133: .set noreorder .set nomacro beq $6,$0,.L134 andi $6,$2,0x8 .set macro .set reorder #APP # 102 "avcall-mipsn32.c" 1 ldc1 $f14,16($12) # 0 "" 2 #NO_APP andi $6,$2,0x8 .L134: .set noreorder .set nomacro beq $6,$0,.L135 andi $6,$2,0x10 .set macro .set reorder #APP # 104 "avcall-mipsn32.c" 1 ldc1 $f15,24($12) # 0 "" 2 #NO_APP andi $6,$2,0x10 .L135: .set noreorder .set nomacro beq $6,$0,.L136 andi $6,$2,0x20 .set macro .set reorder #APP # 106 "avcall-mipsn32.c" 1 ldc1 $f16,32($12) # 0 "" 2 #NO_APP andi $6,$2,0x20 .L136: .set noreorder .set nomacro beq $6,$0,.L137 andi $6,$2,0x40 .set macro .set reorder #APP # 108 "avcall-mipsn32.c" 1 ldc1 $f17,40($12) # 0 "" 2 #NO_APP andi $6,$2,0x40 .L137: .set noreorder .set nomacro beql $6,$0,.L138 andi $2,$2,0x80 .set macro .set reorder #APP # 110 "avcall-mipsn32.c" 1 ldc1 $f18,48($12) # 0 "" 2 #NO_APP andi $2,$2,0x80 .L138: bne $2,$0,.L119 slt $4,$4,9 .L123: .set noreorder .set nomacro bne $4,$0,.L22 addiu $2,$12,64 .set macro .set reorder .align 3 .L83: ld $4,0($2) addiu $3,$3,8 addiu $2,$2,8 .set noreorder .set nomacro bne $5,$2,.L83 sd $4,-8($3) .set macro .set reorder .L22: #APP # 119 "avcall-mipsn32.c" 1 ld $4,0($12) # 0 "" 2 # 120 "avcall-mipsn32.c" 1 ld $5,8($12) # 0 "" 2 # 121 "avcall-mipsn32.c" 1 ld $6,16($12) # 0 "" 2 # 122 "avcall-mipsn32.c" 1 ld $7,24($12) # 0 "" 2 # 123 "avcall-mipsn32.c" 1 ld $8,32($12) # 0 "" 2 # 124 "avcall-mipsn32.c" 1 ld $9,40($12) # 0 "" 2 # 125 "avcall-mipsn32.c" 1 ld $10,48($12) # 0 "" 2 # 126 "avcall-mipsn32.c" 1 ld $11,56($12) # 0 "" 2 #NO_APP lw $25,4($16) jalr $25 lw $4,12($16) li $5,1 # 0x1 .set noreorder .set nomacro beql $4,$5,.L139 move $sp,$fp .set macro .set reorder .set noreorder .set nomacro beq $4,$0,.L116 li $5,2 # 0x2 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L109 li $5,3 # 0x3 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L109 li $5,4 # 0x4 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L109 li $5,5 # 0x5 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L112 li $5,6 # 0x6 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L112 li $5,7 # 0x7 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L111 li $5,8 # 0x8 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L111 li $5,9 # 0x9 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L111 li $5,10 # 0xa .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L111 li $5,11 # 0xb .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L116 li $5,12 # 0xc .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L116 li $5,13 # 0xd .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L120 li $5,14 # 0xe .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L121 li $5,15 # 0xf .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L111 li $5,16 # 0x10 .set macro .set reorder .set noreorder .set nomacro bnel $4,$5,.L139 move $sp,$fp .set macro .set reorder lw $4,0($16) andi $5,$4,0x200 .set noreorder .set nomacro beq $5,$0,.L19 andi $4,$4,0x4 .set macro .set reorder .set noreorder .set nomacro beql $4,$0,.L38 lw $4,16($16) .set macro .set reorder lw $3,16($16) li $4,1 # 0x1 .set noreorder .set nomacro beq $3,$4,.L109 li $4,2 # 0x2 .set macro .set reorder .set noreorder .set nomacro beq $3,$4,.L112 li $4,4 # 0x4 .set macro .set reorder .set noreorder .set nomacro beq $3,$4,.L111 li $4,8 # 0x8 .set macro .set reorder .set noreorder .set nomacro beql $3,$4,.L140 lw $3,8($16) .set macro .set reorder .L19: move $sp,$fp .L139: ld $31,24($sp) ld $fp,16($sp) ld $16,0($sp) move $2,$0 .set noreorder .set nomacro j $31 addiu $sp,$sp,32 .set macro .set reorder .align 3 .L116: lw $3,8($16) .align 3 .L140: sd $2,0($3) move $sp,$fp ld $31,24($sp) ld $fp,16($sp) ld $16,0($sp) move $2,$0 .set noreorder .set nomacro j $31 addiu $sp,$sp,32 .set macro .set reorder .align 3 .L119: #APP # 112 "avcall-mipsn32.c" 1 ldc1 $f19,56($12) # 0 "" 2 #NO_APP .set noreorder .set nomacro b .L123 slt $4,$4,9 .set macro .set reorder .align 3 .L118: #APP # 92 "avcall-mipsn32.c" 1 lwc1 $f19,72($16) # 0 "" 2 #NO_APP .set noreorder .set nomacro b .L124 lw $2,40($16) .set macro .set reorder .align 3 .L109: lw $3,8($16) sb $2,0($3) move $sp,$fp ld $31,24($sp) ld $fp,16($sp) ld $16,0($sp) move $2,$0 .set noreorder .set nomacro j $31 addiu $sp,$sp,32 .set macro .set reorder .L112: lw $3,8($16) .set noreorder .set nomacro b .L19 sh $2,0($3) .set macro .set reorder .L111: lw $3,8($16) sw $2,0($3) move $sp,$fp ld $31,24($sp) ld $fp,16($sp) ld $16,0($sp) move $2,$0 .set noreorder .set nomacro j $31 addiu $sp,$sp,32 .set macro .set reorder .L120: lw $2,8($16) .set noreorder .set nomacro b .L19 swc1 $f0,0($2) .set macro .set reorder .L121: lw $2,8($16) .set noreorder .set nomacro b .L19 sdc1 $f0,0($2) .set macro .set reorder .L38: addiu $5,$4,-1 sltu $5,$5,16 .set noreorder .set nomacro beq $5,$0,.L19 sltu $8,$4,9 .set macro .set reorder lw $6,8($16) li $7,-8 # 0xfffffffffffffff8 andi $5,$6,0x7 and $7,$6,$7 .set noreorder .set nomacro beq $8,$0,.L42 addu $4,$4,$5 .set macro .set reorder sltu $3,$4,9 .set noreorder .set nomacro beq $3,$0,.L43 subu $6,$0,$5 .set macro .set reorder subu $3,$0,$5 sll $3,$3,3 ld $8,0($7) addiu $3,$3,63 subu $4,$0,$4 li $6,2 # 0x2 dsll $6,$6,$3 sll $4,$4,3 sll $5,$5,3 li $3,1 # 0x1 dsll $3,$3,$4 dsra $2,$2,$5 dsubu $3,$6,$3 xor $2,$2,$8 and $2,$3,$2 xor $2,$2,$8 .set noreorder .set nomacro b .L19 sd $2,0($7) .set macro .set reorder .align 3 .L42: subu $9,$0,$5 ld $11,0($7) sll $10,$9,3 addiu $6,$10,63 sll $5,$5,3 li $8,2 # 0x2 dsll $8,$8,$6 dsra $6,$2,$5 daddiu $8,$8,-1 xor $6,$6,$11 and $6,$8,$6 xor $6,$6,$11 sltu $8,$4,17 .set noreorder .set nomacro bne $8,$0,.L122 sd $6,0($7) .set macro .set reorder ld $11,16($7) addiu $6,$10,64 subu $4,$0,$4 move $8,$3 dsll $9,$3,$6 sll $4,$4,3 li $3,-1 # 0xffffffffffffffff dsll $4,$3,$4 xor $3,$9,$11 dsll $2,$2,$6 dsra $5,$8,$5 and $3,$4,$3 or $2,$2,$5 xor $3,$3,$11 sd $2,8($7) .set noreorder .set nomacro b .L19 sd $3,16($7) .set macro .set reorder .L43: ld $9,0($7) ld $8,8($7) sll $6,$6,3 addiu $10,$6,63 sll $3,$5,3 subu $4,$0,$4 li $5,2 # 0x2 dsra $3,$2,$3 dsll $5,$5,$10 dsll $2,$2,$6 sll $4,$4,3 li $6,-1 # 0xffffffffffffffff daddiu $5,$5,-1 xor $3,$3,$9 dsll $4,$6,$4 xor $2,$2,$8 and $3,$5,$3 and $2,$4,$2 xor $3,$3,$9 xor $2,$2,$8 sd $3,0($7) .set noreorder .set nomacro b .L19 sd $2,8($7) .set macro .set reorder .L122: sll $6,$9,2 addiu $6,$6,32 ld $8,8($7) dsll $2,$2,$6 dsll $6,$2,$6 dsra $3,$3,$5 subu $2,$0,$4 or $3,$6,$3 sll $2,$2,3 li $5,-1 # 0xffffffffffffffff xor $3,$3,$8 dsll $2,$5,$2 and $2,$3,$2 xor $2,$2,$8 .set noreorder .set nomacro b .L19 sd $2,8($7) .set macro .set reorder .end avcall_call .size avcall_call, .-avcall_call .ident "GCC: (GNU) 5.4.0" libffcall-2.2/avcall/avcall-mips64el-linux.s0000664000000000000000000002300513530357106015655 00000000000000 .file 1 "avcall-mips64.c" .section .mdebug.abi64 .previous .nan legacy .module fp=64 .module oddspreg .abicalls .text .align 2 .align 3 .globl avcall_call .set nomips16 .set nomicromips .ent avcall_call .type avcall_call, @function avcall_call: .frame $fp,32,$31 # vars= 0, regs= 4/0, args= 0, gp= 0 .mask 0xd0010000,-8 .fmask 0x00000000,0 ld $2,40($4) ld $12,48($4) lw $3,68($4) daddiu $sp,$sp,-32 dsubu $6,$2,$12 dsra $6,$6,3 sd $fp,16($sp) sd $16,0($sp) sd $31,24($sp) move $fp,$sp daddiu $sp,$sp,-2064 move $16,$4 sll $6,$6,0 .set noreorder .set nomacro beq $3,$0,.L2 move $2,$sp .set macro .set reorder andi $4,$3,0x1 .set noreorder .set nomacro beq $4,$0,.L125 andi $4,$3,0x2 .set macro .set reorder #APP # 77 "avcall-mips64.c" 1 lwc1 $f12,76($16) # 0 "" 2 #NO_APP andi $4,$3,0x2 .L125: .set noreorder .set nomacro beq $4,$0,.L126 andi $4,$3,0x4 .set macro .set reorder #APP # 79 "avcall-mips64.c" 1 lwc1 $f13,80($16) # 0 "" 2 #NO_APP andi $4,$3,0x4 .L126: .set noreorder .set nomacro beq $4,$0,.L127 andi $4,$3,0x8 .set macro .set reorder #APP # 81 "avcall-mips64.c" 1 lwc1 $f14,84($16) # 0 "" 2 #NO_APP andi $4,$3,0x8 .L127: .set noreorder .set nomacro beq $4,$0,.L128 andi $4,$3,0x10 .set macro .set reorder #APP # 83 "avcall-mips64.c" 1 lwc1 $f15,88($16) # 0 "" 2 #NO_APP andi $4,$3,0x10 .L128: .set noreorder .set nomacro beq $4,$0,.L129 andi $4,$3,0x20 .set macro .set reorder #APP # 85 "avcall-mips64.c" 1 lwc1 $f16,92($16) # 0 "" 2 #NO_APP andi $4,$3,0x20 .L129: .set noreorder .set nomacro beq $4,$0,.L130 andi $4,$3,0x40 .set macro .set reorder #APP # 87 "avcall-mips64.c" 1 lwc1 $f17,96($16) # 0 "" 2 #NO_APP andi $4,$3,0x40 .L130: .set noreorder .set nomacro beql $4,$0,.L131 andi $3,$3,0x80 .set macro .set reorder #APP # 89 "avcall-mips64.c" 1 lwc1 $f18,100($16) # 0 "" 2 #NO_APP andi $3,$3,0x80 .L131: bne $3,$0,.L118 .L2: lw $3,72($16) .L124: .set noreorder .set nomacro beql $3,$0,.L123 slt $3,$6,9 .set macro .set reorder andi $4,$3,0x1 .set noreorder .set nomacro beq $4,$0,.L132 andi $4,$3,0x2 .set macro .set reorder #APP # 97 "avcall-mips64.c" 1 ldc1 $f12,0($12) # 0 "" 2 #NO_APP andi $4,$3,0x2 .L132: .set noreorder .set nomacro beq $4,$0,.L133 andi $4,$3,0x4 .set macro .set reorder #APP # 99 "avcall-mips64.c" 1 ldc1 $f13,8($12) # 0 "" 2 #NO_APP andi $4,$3,0x4 .L133: .set noreorder .set nomacro beq $4,$0,.L134 andi $4,$3,0x8 .set macro .set reorder #APP # 101 "avcall-mips64.c" 1 ldc1 $f14,16($12) # 0 "" 2 #NO_APP andi $4,$3,0x8 .L134: .set noreorder .set nomacro beq $4,$0,.L135 andi $4,$3,0x10 .set macro .set reorder #APP # 103 "avcall-mips64.c" 1 ldc1 $f15,24($12) # 0 "" 2 #NO_APP andi $4,$3,0x10 .L135: .set noreorder .set nomacro beq $4,$0,.L136 andi $4,$3,0x20 .set macro .set reorder #APP # 105 "avcall-mips64.c" 1 ldc1 $f16,32($12) # 0 "" 2 #NO_APP andi $4,$3,0x20 .L136: .set noreorder .set nomacro beq $4,$0,.L137 andi $4,$3,0x40 .set macro .set reorder #APP # 107 "avcall-mips64.c" 1 ldc1 $f17,40($12) # 0 "" 2 #NO_APP andi $4,$3,0x40 .L137: .set noreorder .set nomacro beql $4,$0,.L138 andi $3,$3,0x80 .set macro .set reorder #APP # 109 "avcall-mips64.c" 1 ldc1 $f18,48($12) # 0 "" 2 #NO_APP andi $3,$3,0x80 .L138: bne $3,$0,.L119 slt $3,$6,9 .L123: .set noreorder .set nomacro bne $3,$0,.L22 daddiu $4,$12,64 .set macro .set reorder li $3,8 # 0x8 .align 3 .L21: ld $5,0($4) addiu $3,$3,1 daddiu $4,$4,8 sd $5,0($2) .set noreorder .set nomacro bne $6,$3,.L21 daddiu $2,$2,8 .set macro .set reorder .L22: #APP # 118 "avcall-mips64.c" 1 ld $4,0($12) # 0 "" 2 # 119 "avcall-mips64.c" 1 ld $5,8($12) # 0 "" 2 # 120 "avcall-mips64.c" 1 ld $6,16($12) # 0 "" 2 # 121 "avcall-mips64.c" 1 ld $7,24($12) # 0 "" 2 # 122 "avcall-mips64.c" 1 ld $8,32($12) # 0 "" 2 # 123 "avcall-mips64.c" 1 ld $9,40($12) # 0 "" 2 # 124 "avcall-mips64.c" 1 ld $10,48($12) # 0 "" 2 # 125 "avcall-mips64.c" 1 ld $11,56($12) # 0 "" 2 #NO_APP ld $25,8($16) jalr $25 lw $4,24($16) li $5,1 # 0x1 .set noreorder .set nomacro beql $4,$5,.L139 move $sp,$fp .set macro .set reorder .set noreorder .set nomacro beq $4,$0,.L110 li $5,2 # 0x2 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L108 li $5,3 # 0x3 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L108 li $5,4 # 0x4 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L108 li $5,5 # 0x5 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L111 li $5,6 # 0x6 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L111 li $5,7 # 0x7 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L113 li $5,8 # 0x8 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L113 li $5,9 # 0x9 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L110 li $5,10 # 0xa .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L110 li $5,11 # 0xb .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L110 li $5,12 # 0xc .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L110 li $5,13 # 0xd .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L120 li $5,14 # 0xe .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L121 li $5,15 # 0xf .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L110 li $5,16 # 0x10 .set macro .set reorder .set noreorder .set nomacro bnel $4,$5,.L139 move $sp,$fp .set macro .set reorder lw $4,0($16) andi $5,$4,0x200 .set noreorder .set nomacro beq $5,$0,.L19 andi $4,$4,0x4 .set macro .set reorder .set noreorder .set nomacro beql $4,$0,.L38 ld $5,32($16) .set macro .set reorder ld $3,32($16) li $4,1 # 0x1 .set noreorder .set nomacro beq $3,$4,.L108 li $4,2 # 0x2 .set macro .set reorder .set noreorder .set nomacro beq $3,$4,.L111 li $4,4 # 0x4 .set macro .set reorder .set noreorder .set nomacro beq $3,$4,.L113 li $4,8 # 0x8 .set macro .set reorder .set noreorder .set nomacro beql $3,$4,.L140 ld $3,16($16) .set macro .set reorder .L19: move $sp,$fp .L139: ld $31,24($sp) ld $fp,16($sp) ld $16,0($sp) move $2,$0 .set noreorder .set nomacro j $31 daddiu $sp,$sp,32 .set macro .set reorder .align 3 .L110: ld $3,16($16) .align 3 .L140: sd $2,0($3) move $sp,$fp ld $31,24($sp) ld $fp,16($sp) ld $16,0($sp) move $2,$0 .set noreorder .set nomacro j $31 daddiu $sp,$sp,32 .set macro .set reorder .align 3 .L119: #APP # 111 "avcall-mips64.c" 1 ldc1 $f19,56($12) # 0 "" 2 #NO_APP .set noreorder .set nomacro b .L123 slt $3,$6,9 .set macro .set reorder .align 3 .L118: #APP # 91 "avcall-mips64.c" 1 lwc1 $f19,104($16) # 0 "" 2 #NO_APP .set noreorder .set nomacro b .L124 lw $3,72($16) .set macro .set reorder .align 3 .L108: ld $3,16($16) sb $2,0($3) move $sp,$fp ld $31,24($sp) ld $fp,16($sp) ld $16,0($sp) move $2,$0 .set noreorder .set nomacro j $31 daddiu $sp,$sp,32 .set macro .set reorder .L111: ld $3,16($16) .set noreorder .set nomacro b .L19 sh $2,0($3) .set macro .set reorder .L113: ld $3,16($16) .set noreorder .set nomacro b .L19 sw $2,0($3) .set macro .set reorder .L120: ld $2,16($16) .set noreorder .set nomacro b .L19 swc1 $f0,0($2) .set macro .set reorder .L121: ld $2,16($16) .set noreorder .set nomacro b .L19 sdc1 $f0,0($2) .set macro .set reorder .L38: daddiu $4,$5,-1 sltu $4,$4,16 .set noreorder .set nomacro beq $4,$0,.L19 sltu $7,$5,9 .set macro .set reorder ld $6,16($16) li $8,-8 # 0xfffffffffffffff8 andi $4,$6,0x7 daddu $5,$5,$4 .set noreorder .set nomacro beq $7,$0,.L42 and $6,$6,$8 .set macro .set reorder sltu $3,$5,9 .set noreorder .set nomacro beq $3,$0,.L43 dsll $3,$5,3 .set macro .set reorder daddiu $3,$3,-1 ld $7,0($6) li $5,2 # 0x2 sll $3,$3,0 sll $4,$4,3 dsll $3,$5,$3 li $5,1 # 0x1 dsll $5,$5,$4 dsll $4,$2,$4 dsubu $3,$3,$5 xor $4,$4,$7 and $4,$3,$4 xor $4,$4,$7 .set noreorder .set nomacro b .L19 sd $4,0($6) .set macro .set reorder .align 3 .L42: ld $10,0($6) sll $8,$4,3 dsll $7,$2,$8 li $9,-1 # 0xffffffffffffffff dsll $9,$9,$8 xor $7,$7,$10 and $7,$9,$7 xor $7,$7,$10 sltu $9,$5,17 subu $4,$0,$4 .set noreorder .set nomacro bne $9,$0,.L122 sd $7,0($6) .set macro .set reorder dsll $5,$5,3 ld $10,16($6) sll $4,$4,3 daddiu $5,$5,-129 addiu $4,$4,64 sll $5,$5,0 li $7,2 # 0x2 move $9,$3 dsll $5,$7,$5 dsra $3,$3,$4 daddiu $5,$5,-1 xor $3,$3,$10 dsra $2,$2,$4 dsll $8,$9,$8 and $3,$5,$3 or $2,$2,$8 xor $3,$3,$10 sd $2,8($6) .set noreorder .set nomacro b .L19 sd $3,16($6) .set macro .set reorder .L43: ld $10,0($6) ld $9,8($6) subu $7,$0,$4 daddiu $3,$3,-65 sll $4,$4,3 li $5,2 # 0x2 sll $3,$3,0 sll $7,$7,3 dsll $8,$2,$4 dsll $3,$5,$3 dsra $2,$2,$7 li $5,-1 # 0xffffffffffffffff dsll $4,$5,$4 daddiu $3,$3,-1 xor $5,$8,$10 xor $2,$2,$9 and $2,$3,$2 and $4,$4,$5 xor $3,$4,$10 xor $2,$2,$9 sd $3,0($6) .set noreorder .set nomacro b .L19 sd $2,8($6) .set macro .set reorder .L122: sll $4,$4,2 addiu $4,$4,32 dsll $5,$5,3 ld $7,8($6) dsra $2,$2,$4 daddiu $5,$5,-65 dsra $4,$2,$4 dsll $3,$3,$8 sll $5,$5,0 li $2,2 # 0x2 or $3,$4,$3 dsll $2,$2,$5 xor $3,$3,$7 daddiu $2,$2,-1 and $2,$3,$2 xor $2,$2,$7 .set noreorder .set nomacro b .L19 sd $2,8($6) .set macro .set reorder .end avcall_call .size avcall_call, .-avcall_call .ident "GCC: (GNU) 5.4.0" libffcall-2.2/avcall/minitests.c0000664000000000000000000000136613347755263013636 00000000000000/* * Copyright 1999-2001 Bruno Haible * * This program is free software: you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by * the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program. If not, see . */ #define SKIP_EXTRA_STRUCTS #include "tests.c" libffcall-2.2/avcall/avcall-m68k-sun.s0000664000000000000000000000347713530357105014457 00000000000000#NO_APP .text .even .globl _avcall_call _avcall_call: link a6,#0 moveml #0x3820,sp@- movel a6@(8),a2 lea sp@(-1024),sp movel a2@(24),d1 movel a2@(20),d0 subl d1,d0 asrl #2,d0 jle L54 movel sp,a1 movel d1,a0 movel d0,d2 .even L6: movel a0@+,a1@+ subql #1,d2 jne L6 L54: moveq #16,d0 cmpl a2@(12),d0 jeq L59 L7: movel a2@(4),a0 jsr a0@ movel d0,d2 movel d1,d3 movel a2@(12),a1 moveq #1,d1 cmpl a1,d1 jeq L9 tstl a1 jeq L55 moveq #2,d4 cmpl a1,d4 jeq L58 moveq #3,d4 cmpl a1,d4 jeq L58 moveq #4,d4 cmpl a1,d4 jeq L58 moveq #5,d4 cmpl a1,d4 jeq L57 moveq #6,d4 cmpl a1,d4 jeq L57 moveq #7,d4 cmpl a1,d4 jeq L55 moveq #8,d4 cmpl a1,d4 jeq L55 moveq #9,d4 cmpl a1,d4 jeq L55 moveq #10,d4 cmpl a1,d4 jeq L55 lea a1@(-11),a0 moveq #1,d4 cmpl a0,d4 jcc L56 moveq #13,d4 cmpl a1,d4 jeq L60 moveq #14,d4 cmpl a1,d4 jeq L61 moveq #15,d0 cmpl a1,d0 jeq L55 moveq #16,d1 cmpl a1,d1 jne L9 btst #1,a2@(2) jeq L9 movel a2@(16),d0 moveq #1,d4 cmpl d0,d4 jeq L58 moveq #2,d1 cmpl d0,d1 jeq L57 moveq #4,d4 cmpl d0,d4 jeq L55 moveq #8,d1 cmpl d0,d1 jne L9 L56: movel a2@(8),a0 movel d2,a0@ movel d3,a0@(4) jra L9 .even L55: movel a2@(8),a0 movel d2,a0@ jra L9 .even L57: movel a2@(8),a0 movew d2,a0@ jra L9 .even L58: movel a2@(8),a0 moveb d2,a0@ jra L9 .even L61: btst #6,a2@(3) jeq L39 movel a2@(8),a0 fmoved fp0,a0@ jra L9 .even L39: movel a2@(8),a0 movel d0,a0@ movel d1,a0@(4) jra L9 .even L60: movel a2@,d2 btst #6,d2 jeq L33 movel a2@(8),a0 fmoves fp0,a0@ jra L9 .even L33: btst #5,d2 jeq L35 movel a2@(8),a0 movel d1,sp@- movel d0,sp@- fmoved sp@+,fp0 fmoves fp0,a0@ jra L9 .even L35: movel a2@(8),a0 movel d0,a0@ jra L9 .even L59: #APP movel a2@(8),a1 #NO_APP jra L7 .even L9: clrl d0 moveml a6@(-16),#0x41c unlk a6 rts libffcall-2.2/avcall/PLATFORMS0000664000000000000000000001272113530336773012735 00000000000000Supported CPUs: (Put the GNU config.guess values here.) CPU GNU config.guess value machine OS i386 i486-unknown-linux (gcc) i386/486/586 Linux i686-unknown-gnu0.9 (gcc) i686 GNU Hurd i386-unknown-sysv4.0 (gcc, i386 Consensys /usr/bin/cc, /usr/ucb/cc) i386-pc-solaris2.6 (gcc) i386/486/586 Solaris i386-pc-solaris2.10 (gcc, cc) i386/486/586 Solaris i486-unknown-sco3.2v4.2 (gcc, cc -Of) i386/486/586 SCO i386-pc-cygwin32 (gcc) i386/486/586 Cygwin32 i386-w64-mingw32 (gcc, MSVC 14) i386/486/586 Win32 i586-unknown-freebsd11.0 (cc) i386/486/586 FreeBSD 11 i386-unknown-dragonfly3.8 (gcc) i386/486/586 DragonFly BSD i386-unknown-netbsdelf7.0 (gcc) i386/486/586 NetBSD 7 i386-unknown-openbsd6.0 (gcc) i386/486/586 OpenBSD 6 i586-pc-haiku (gcc-x86) i586 Haiku 2017 i386-pc-minix (clang) i386/486/586 Minix 3.3 m68k m68k-sun-sunos4.0 (cc) Sun3 SunOS 4.0.3 m68k-unknown-linux (gcc) emulated Linux mips mips-sgi-irix4.0.5 (gcc, SGI mips Irix 4.0.x cc -ansi, cc -D__STDC__, cc -cckr) mips-sgi-irix5.2 (gcc, cc -ansi, ...) SGI mips Irix 5.2 mips-sgi-irix5.3 (gcc, cc -ansi, ...) SGI mips Irix 5.3 mips-sgi-irix6.2 (cc -32) SGI mips3 Irix 6.2 mips-sgi-irix6.4 (cc -32, -n32, -64) SGI mips3 Irix 6.4 mips-sgi-irix6.5 (cc -32, -n32, SGI mips3 Irix 6.5 gcc -mabi=n32) mips-unknown-linux (gcc -mabi=32) emulated Linux mips64-unknown-linux (gcc -mabi=n32,64)emulated Linux sparc sparc-sun-sunos4.1.1 (gcc, cc) Sun4 Sparc SunOS 4.x sparc-sun-solaris2.3 (gcc) Sun4 Sparc SunOS 5.x sparc-sun-solaris2.4 (gcc, cc) Sun4 Sparc SunOS 5.x sparc-sun-solaris2.10 (gcc, cc) Sun4 Sparc Solaris 10 sparc64-sun-solaris2.10 (gcc -m64, Sun4 Sparc Solaris 10 cc -xarch=generic64) sparc-unknown-linux (gcc) emulated Linux sparc64-unknown-linux (gcc) emulated Linux sparc-unknown-netbsdelf7.1 (gcc) emulated NetBSD 7.1 sparc64-unknown-netbsd8.0 (gcc) emulated NetBSD 8.0 alpha alpha-dec-osf3.0 (gcc, cc) DEC Alpha OSF/1 3.0 alpha-dec-osf4.0 (gcc, cc) DEC Alpha OSF/1 4.0 alphaev67-unknown-linux (gcc) emulated Linux hppa hppa1.0-hp-hpux8.00 (gcc, HP 9000/8xx HP-UX 8.0x cc, c89, cc -Aa) hppa1.1-hp-hpux9.05 (cc) HP 9000/8xx HP-UX 9.0x hppa1.1-hp-hpux10.01 (cc) HP 9000/8xx HP-UX 10.0x hppa2.0-hp-hpux10.20 (cc +DA1.1) HP 9000/8xx HP-UX 10.20 hppa2.0w-hp-hpux11.31 (cc) HP 9000/8xx HP-UX 11.31 hppa-unknown-linux (gcc) emulated Linux hppa64 hppa64-hp-hpux11.31 (cc +DD64) HP 9000/8xx HP-UX 11.31 arm armv5tejl-unknown-linux (gcc) emulated Linux armv6l-unknown-linux (gcc) emulated Linux armv7l-unknown-linux (gcc) emulated Linux arm64 aarch64-unknown-linux (gcc) APM X-Gene Linux powerpc powerpc-ibm-aix4.1.4.0 (cc) IBM RS/6000 AIX 4.1.4 powerpc-ibm-aix7.1.3.0 (xlc, gcc) IBM POWER AIX 7.1.3 powerpc-unknown-linux (gcc) Apple PPC LinuxPPC powerpc-apple-darwin6.8 (gcc) Apple PPC MacOS X powerpc-apple-darwin9.8.0 (gcc) Apple PPC MacOS X powerpc64 powerpc-ibm-aix7.1.3.0 (gcc -maix64, IBM POWER AIX 7.1.3 xlc -q64) powerpc64-unknown-linux (gcc -m64) IBM POWER Linux powerpc64le-unknown-linux (gcc) IBM POWER Linux ia64 ia64-unknown-linux (gcc) Intel Linux x86_64 x86_64-suse-linux (gcc) AMD64 Linux x86_64-unknown-linux (gcc -mx32) AMD64 Linux x86_64-pc-solaris2.10 (gcc -m64) AMD64 Solaris x86_64-pc-solaris2.10 (cc -xarch=generic64) AMD64 Solaris x86_64-pc-cygwin (gcc) AMD64 Windows 10 x86_64-w64-mingw32 (gcc, MSVC 14) AMD64 Windows 10 x86_64-unknown-freebsd11.0 (cc) AMD64 FreeBSD 11 x86_64-unknown-netbsd7.0 (gcc) AMD64 NetBSD 7 x86_64-unknown-openbsd6.0 (gcc) AMD64 OpenBSD 6 s390 s390x-ibm-linux (gcc -m31) emulated Linux s390x s390x-ibm-linux (gcc) emulated Linux riscv32 riscv32-unknown-linux (gcc -mabi=ilp32d) emulated Linux riscv64 riscv64-unknown-linux (gcc -mabi=lp64d) emulated Linux libffcall-2.2/avcall/avcall-i386-msvc.c0000664000000000000000000000776313530357105014510 00000000000000#include "asm-i386.h" TEXT() ALIGN(2) P2ALIGN(2,3) GLOBL(C(avcall_call)) DECLARE_FUNCTION(avcall_call) FUNBEGIN(avcall_call) INSN1(push,l ,R(ebp)) INSN2(mov,l ,R(esp), R(ebp)) INSN1(push,l ,R(edi)) INSN1(push,l ,R(esi)) INSN2(mov,l ,X4 MEM_DISP(ebp,8), R(eax)) INSN2(mov,l ,X4 MEM_DISP(eax,20), R(edx)) INSN2(mov,l ,X4 MEM_DISP(eax,24), R(eax)) INSN2(sub,l ,R(eax), R(edx)) INSN2(sar,l ,NUM(2), R(edx)) INSN2(xor,l ,R(esi), R(esi)) INSN2(sub,l ,NUM(1024), R(esp)) INSN2(cmp,l ,R(edx), R(esi)) INSN2(mov,l ,R(esp), R(edi)) INSN1(jge,_ ,L(47)) INSN2(mov,l ,R(eax), R(ecx)) P2ALIGN(2,3) L(6): INSN2(mov,l ,X4 MEM_SHINDEX(ecx,esi,4), R(eax)) INSN2(mov,l ,R(eax),X4 MEM_SHINDEX(edi,esi,4)) INSN1(inc,l ,R(esi)) INSN2(cmp,l ,R(edx), R(esi)) INSN1(jl,_ ,L(6)) L(47): INSN2(mov,l ,X4 MEM_DISP(ebp,8), R(edx)) INSN2(mov,l ,X4 MEM_DISP(edx,12), R(eax)) INSN2(cmp,l ,NUM(13), R(eax)) INSN1(je,_ ,L(55)) INSN2(cmp,l ,NUM(14), R(eax)) INSN1(je,_ ,L(56)) INSN2(mov,l ,X4 MEM_DISP(ebp,8), R(ecx)) INSN1(call,_ ,INDIR(X4 MEM_DISP(ecx,4))) INSN2(mov,l ,R(eax), R(esi)) INSN2(mov,l ,X4 MEM_DISP(ebp,8), R(eax)) INSN2(mov,l ,X4 MEM_DISP(eax,12), R(ecx)) INSN2(cmp,l ,NUM(1), R(ecx)) INSN1(je,_ ,L(8)) INSN2(test,l ,R(ecx), R(ecx)) INSN1(jne,_ ,L(13)) INSN2(mov,l ,X4 MEM_DISP(eax,8), R(eax)) L(50): INSN2(mov,l ,R(esi),X4 MEM(eax)) L(8): INSN2(lea,l ,X4 MEM_DISP(ebp,-8), R(esp)) INSN1(pop,l ,R(esi)) INSN2(xor,l ,R(eax), R(eax)) INSN1(pop,l ,R(edi)) leave ret L(13): INSN2(cmp,l ,NUM(2), R(ecx)) INSN1(je,_ ,L(53)) INSN2(cmp,l ,NUM(3), R(ecx)) INSN1(je,_ ,L(53)) INSN2(cmp,l ,NUM(4), R(ecx)) INSN1(je,_ ,L(53)) INSN2(cmp,l ,NUM(5), R(ecx)) INSN1(je,_ ,L(57)) INSN2(cmp,l ,NUM(6), R(ecx)) INSN1(je,_ ,L(51)) INSN2(cmp,l ,NUM(7), R(ecx)) INSN1(je,_ ,L(48)) INSN2(cmp,l ,NUM(8), R(ecx)) INSN1(je,_ ,L(54)) INSN2(cmp,l ,NUM(9), R(ecx)) INSN1(je,_ ,L(48)) INSN2(cmp,l ,NUM(10), R(ecx)) INSN1(je,_ ,L(54)) INSN2(lea,l ,X4 MEM_DISP(ecx,-11), R(eax)) INSN2(cmp,l ,NUM(1), R(eax)) INSN1(jbe,_ ,L(49)) INSN2(cmp,l ,NUM(15), R(ecx)) INSN1(je,_ ,L(48)) INSN2(cmp,l ,NUM(16), R(ecx)) INSN1(jne,_ ,L(8)) INSN2(mov,l ,X4 MEM_DISP(ebp,8), R(ecx)) INSN2(test,b ,NUM(2),X1 MEM_DISP(ecx,1)) INSN1(je,_ ,L(8)) INSN2(mov,l ,X4 MEM_DISP(ecx,16), R(eax)) INSN2(cmp,l ,NUM(1), R(eax)) INSN1(je,_ ,L(58)) INSN2(cmp,l ,NUM(2), R(eax)) INSN1(je,_ ,L(51)) INSN2(cmp,l ,NUM(4), R(eax)) INSN1(je,_ ,L(48)) INSN2(cmp,l ,NUM(8), R(eax)) INSN1(jne,_ ,L(8)) L(49): INSN2(mov,l ,X4 MEM_DISP(ebp,8), R(ecx)) INSN2(mov,l ,X4 MEM_DISP(ecx,8), R(eax)) INSN2(mov,l ,R(esi),X4 MEM(eax)) INSN2(mov,l ,R(edx),X4 MEM_DISP(eax,4)) INSN1(jmp,_ ,L(8)) L(48): INSN2(mov,l ,X4 MEM_DISP(ebp,8), R(edx)) INSN2(mov,l ,X4 MEM_DISP(edx,8), R(eax)) INSN1(jmp,_ ,L(50)) L(51): INSN2(mov,l ,X4 MEM_DISP(ebp,8), R(ecx)) INSN2(mov,l ,X4 MEM_DISP(ecx,8), R(eax)) L(52): INSN2(mov,w ,R(si),X2 MEM(eax)) INSN1(jmp,_ ,L(8)) L(58): INSN2(mov,l ,X4 MEM_DISP(ecx,8), R(eax)) INSN2(mov,l ,R(esi), R(edx)) INSN2(mov,b ,R(dl),X1 MEM(eax)) INSN1(jmp,_ ,L(8)) P2ALIGN(2,3) L(54): INSN2(mov,l ,X4 MEM_DISP(ebp,8), R(ecx)) INSN2(mov,l ,X4 MEM_DISP(ecx,8), R(eax)) INSN1(jmp,_ ,L(50)) L(57): INSN2(mov,l ,X4 MEM_DISP(ebp,8), R(edx)) INSN2(mov,l ,X4 MEM_DISP(edx,8), R(eax)) INSN1(jmp,_ ,L(52)) L(53): INSN2(mov,l ,X4 MEM_DISP(ebp,8), R(edx)) INSN2(mov,l ,X4 MEM_DISP(edx,8), R(eax)) INSN2(mov,l ,R(esi), R(ecx)) INSN2(mov,b ,R(cl),X1 MEM(eax)) INSN1(jmp,_ ,L(8)) L(56): INSN2(mov,l ,X4 MEM_DISP(ebp,8), R(eax)) INSN1(call,_ ,INDIR(X4 MEM_DISP(eax,4))) INSN2(mov,l ,X4 MEM_DISP(ebp,8), R(edx)) INSN2(mov,l ,X4 MEM_DISP(edx,8), R(eax)) INSN1(fstp,l ,X8 MEM(eax)) INSN1(jmp,_ ,L(8)) L(55): INSN1(call,_ ,INDIR(X4 MEM_DISP(edx,4))) INSN2(mov,l ,X4 MEM_DISP(ebp,8), R(ecx)) INSN2(mov,l ,X4 MEM_DISP(ecx,8), R(eax)) INSN1(fstp,s ,X4 MEM(eax)) INSN1(jmp,_ ,L(8)) L(fe1): FUNEND(avcall_call,L(fe1)-avcall_call) #if defined __linux__ || defined __FreeBSD__ || defined __FreeBSD_kernel__ || defined __DragonFly__ .section .note.GNU-stack,"",@progbits #endif libffcall-2.2/avcall/avcall-arm64-macro.S0000664000000000000000000001170613530357107015053 00000000000000#include "asm-arm.h" .cpu generic+fp+simd .text .align 2 .p2align 3,,7 .global C(avcall_call) .type avcall_call, %function FUNBEGIN(avcall_call) stp x29, x30, [sp, -48]! add x29, sp, 0 ldp x11, x12, [x0, 40] stp x19, x20, [sp, 16] sub x11, x11, x12 ldr w15, [x0, 64] asr x10, x11, 3 ldr w14, [x0, 136] cmp w10, wzr mov x19, x0 str d8, [sp, 32] sub sp, sp, $2064 ble L(6) mov x13, sp mov x9, 0 mov w11, w10 .p2align 2 L(87): ldr x10, [x12, x9, lsl 3] str x10, [x13, x9, lsl 3] add x9, x9, 1 cmp w11, w9 bgt L(87) L(6): cbz w15, L(7) cmp w15, 1 ldr x0, [x19, 72] bls L(7) cmp w15, 2 ldr x1, [x19, 80] beq L(7) cmp w15, 3 ldr x2, [x19, 88] beq L(7) cmp w15, 4 ldr x3, [x19, 96] beq L(7) cmp w15, 5 ldr x4, [x19, 104] beq L(7) cmp w15, 6 ldr x5, [x19, 112] beq L(7) cmp w15, 7 ldr x6, [x19, 120] beq L(7) ldr x7, [x19, 128] .p2align 2 L(7): cbz w14, L(9) ldr w9, [x19, 144] tbz x9, 0, L(10) ldr d0, [x19, 184] L(11): cmp w14, 1 bls L(9) tbnz x9, 1, L(121) ldr w10, [x19, 140] tbz x10, 1, L(14) ldr s1, [x19, 152] L(14): cmp w14, 2 beq L(9) tbz x9, 2, L(15) ldr d2, [x19, 200] L(16): cmp w14, 3 beq L(9) tbnz x9, 3, L(122) ldr w10, [x19, 140] tbz x10, 3, L(18) ldr s3, [x19, 160] L(18): cmp w14, 4 beq L(9) tbz x9, 4, L(19) ldr d4, [x19, 216] L(20): cmp w14, 5 beq L(9) tbz x9, 5, L(21) ldr d5, [x19, 224] L(22): cmp w14, 6 beq L(9) tbz x9, 6, L(23) ldr d6, [x19, 232] L(24): cmp w14, 7 beq L(9) tbz x9, 7, L(25) ldr d7, [x19, 240] .p2align 2 L(9): ldr w9, [x19, 24] cmp w9, 13 beq L(123) cmp w9, 14 beq L(124) ldr x9, [x19, 8] blr x9 mov x16, x0 ldr w9, [x19, 24] cmp w9, 1 beq L(27) cbz w9, L(119) cmp w9, 2 beq L(115) cmp w9, 3 beq L(115) cmp w9, 4 beq L(115) cmp w9, 5 beq L(116) cmp w9, 6 beq L(116) cmp w9, 7 beq L(117) cmp w9, 8 beq L(117) and w12, w9, -3 cmp w12, 9 beq L(119) sub w12, w9, $10 tst w12, -3 beq L(119) cmp w9, 15 beq L(119) cmp w9, 16 bne L(27) ldr w9, [x19] tbz x9, 9, L(27) ldr x12, [x19, 32] sub x9, x12, $1 cmp x9, 15 bhi L(27) ldr x13, [x19, 16] cmp x12, 8 and x9, x13, 7 and x13, x13, -8 add x12, x12, x9 bhi L(40) cmp x12, 8 lsl w11, w12, 3 bhi L(41) lsl w9, w9, 3 mov x12, 2 mov x14, 1 sub w11, w11, $1 lsl x14, x14, x9 lsl x11, x12, x11 lsl x9, x0, x9 sub x10, x11, x14 ldr d17, [x13] fmov d16, x10 fmov d8, x9 bif v8.8b, v17.8b, v16.8b str d8, [x13] L(27): add sp, x29, 0 ldr d8, [sp, 32] mov w0, 0 ldp x19, x20, [sp, 16] ldp x29, x30, [sp], 48 ret .p2align 3 L(10): ldr w10, [x19, 140] tbz x10, 0, L(11) ldr s0, [x19, 148] b L(11) .p2align 3 L(119): ldr x9, [x19, 16] mov w0, 0 str x16, [x9] ldr d8, [x29, 32] add sp, x29, 0 ldp x19, x20, [sp, 16] ldp x29, x30, [sp], 48 ret .p2align 3 L(121): ldr d1, [x19, 192] b L(14) .p2align 3 L(115): ldr x9, [x19, 16] mov w0, 0 strb w16, [x9] ldr d8, [x29, 32] add sp, x29, 0 ldp x19, x20, [sp, 16] ldp x29, x30, [sp], 48 ret .p2align 3 L(124): ldp x9, x20, [x19, 8] blr x9 str d0, [x20] mov w0, 0 ldr d8, [x29, 32] add sp, x29, 0 ldp x19, x20, [sp, 16] ldp x29, x30, [sp], 48 ret L(123): ldp x9, x20, [x19, 8] blr x9 str s0, [x20] b L(27) L(15): ldr w10, [x19, 140] tbz x10, 2, L(16) ldr s2, [x19, 156] b L(16) L(116): ldr x9, [x19, 16] strh w16, [x9] b L(27) L(122): ldr d3, [x19, 208] b L(18) L(117): ldr x9, [x19, 16] str w16, [x9] b L(27) L(19): ldr w10, [x19, 140] tbz x10, 4, L(20) ldr s4, [x19, 164] b L(20) L(21): ldr w10, [x19, 140] tbz x10, 5, L(22) ldr s5, [x19, 168] b L(22) L(23): ldr w10, [x19, 140] tbz x10, 6, L(24) ldr s6, [x19, 172] b L(24) L(25): ldr w9, [x19, 140] tbz x9, 7, L(9) ldr s7, [x19, 176] b L(9) L(41): lsl w14, w9, 3 neg w9, w9, lsl 3 movi d16, -1 add w10, w9, 64 dup v8.8b, w14 lsl x9, x0, x14 ldp d17, d18, [x13] mov x12, 2 sub w11, w11, $65 lsl x11, x12, x11 ushl d16, d16, d8 fmov d8, x9 asr x9, x0, x10 sub x10, x11, $1 bsl v16.8b, v8.8b, v17.8b fmov d8, x10 fmov d17, x9 str d16, [x13] bif v17.8b, v18.8b, v8.8b str d17, [x13, 8] b L(27) L(40): lsl w14, w9, 3 cmp x12, 16 movi d16, -1 lsl x15, x0, x14 dup v8.8b, w14 fmov d17, x15 ushl d16, d16, d8 ldr d8, [x13] bsl v16.8b, v17.8b, v8.8b str d16, [x13] bls L(125) lsl w12, w12, 3 mov x15, 2 neg w9, w9, lsl 3 sub w12, w12, $129 add w9, w9, 64 lsl x12, x15, x12 asr x11, x1, x9 asr x10, x0, x9 sub x9, x12, $1 ldr d17, [x13, 16] fmov d16, x11 lsl x14, x1, x14 fmov d8, x9 orr x10, x10, x14 bif v16.8b, v17.8b, v8.8b fmov x11, d16 stp x10, x11, [x13, 8] b L(27) L(125): neg w9, w9, lsl 2 lsl w12, w12, 3 add w9, w9, 32 mov x15, 2 sub w12, w12, $65 lsl x11, x1, x14 lsl x12, x15, x12 asr x14, x0, x9 asr x10, x14, x9 sub x9, x12, $1 ldr d17, [x13, 8] fmov d8, x9 orr x9, x10, x11 fmov d16, x9 bif v16.8b, v17.8b, v8.8b str d16, [x13, 8] b L(27) FUNEND(avcall_call) #if defined __linux__ || defined __FreeBSD__ || defined __FreeBSD_kernel__ || defined __DragonFly__ .section .note.GNU-stack,"",%progbits #endif libffcall-2.2/avcall/avcall-sparc64-linux.s0000664000000000000000000002150113530357106015473 00000000000000 .file "avcall-sparc64.c" .section ".text" .align 4 .global avcall_call .type avcall_call, #function .proc 04 avcall_call: .register %g2, #scratch .register %g3, #scratch save %sp, -192, %sp ldx [%i0+48], %g2 ldx [%i0+40], %g1 lduw [%i0+68], %g3 sub %g1, %g2, %g1 cmp %g3, 0 be,pt %icc, .LL2 srlx %g1, 3, %o7 andcc %g3, 1, %g0 bne,pt %xcc, .LL100 andcc %g3, 2, %g0 bne,pt %xcc, .LL101 andcc %g3, 4, %g0 .LL130: bne,pt %xcc, .LL102 andcc %g3, 8, %g0 .LL129: bne,pt %xcc, .LL103 andcc %g3, 16, %g0 .LL128: bne,pt %xcc, .LL104 andcc %g3, 32, %g0 .LL127: bne,pt %xcc, .LL105 andcc %g3, 64, %g0 .LL126: bne,pt %xcc, .LL106 andcc %g3, 128, %g0 .LL125: bne,pt %xcc, .LL107 andcc %g3, 256, %g0 .LL124: bne,pt %xcc, .LL108 andcc %g3, 512, %g0 .LL123: bne,pt %xcc, .LL109 andcc %g3, 1024, %g0 .LL134: bne,pt %xcc, .LL110 andcc %g3, 2048, %g0 .LL133: bne,pt %xcc, .LL111 sethi %hi(4096), %g1 .LL132: andcc %g3, %g1, %g0 bne,pt %icc, .LL112 sethi %hi(8192), %g1 .LL131: andcc %g3, %g1, %g0 bne,pt %icc, .LL113 sethi %hi(16384), %g1 .LL136: andcc %g3, %g1, %g0 bne,pt %icc, .LL114 sethi %hi(32768), %g1 .LL135: andcc %g3, %g1, %g0 bne,pt %icc, .LL115 nop .LL2: cmp %o7, 6 .LL137: bg,pn %icc, .LL120 add %o7, -6, %g1 ldx [%i0+48], %g3 .LL122: ldx [%g3+40], %o5 .LL119: ldx [%i0+8], %g1 ldx [%g3], %o0 ldx [%g3+8], %o1 ldx [%g3+16], %o2 ldx [%g3+24], %o3 call %g1, 0 ldx [%g3+32], %o4 mov %o0, %l3 nop lduw [%i0+24], %g1 cmp %g1, 1 be,pn %icc, .LL38 cmp %g1, 0 be,a,pt %icc, .LL121 ldx [%i0+16], %g1 cmp %g1, 2 be,pn %icc, .LL92 cmp %g1, 3 be,pn %icc, .LL92 cmp %g1, 4 be,pn %icc, .LL92 cmp %g1, 5 be,pn %icc, .LL93 cmp %g1, 6 be,pn %icc, .LL93 cmp %g1, 7 be,pn %icc, .LL94 cmp %g1, 8 be,pn %icc, .LL94 cmp %g1, 9 be,pn %icc, .LL98 cmp %g1, 10 be,pn %icc, .LL98 cmp %g1, 11 be,pn %icc, .LL98 cmp %g1, 12 be,pn %icc, .LL98 cmp %g1, 13 be,pn %icc, .LL117 cmp %g1, 14 be,pn %icc, .LL118 cmp %g1, 15 be,pn %icc, .LL98 cmp %g1, 16 bne,pt %icc, .LL38 nop lduw [%i0], %g1 andcc %g1, 512, %g0 be,pn %xcc, .LL38 nop ldx [%i0+32], %g2 add %g2, -1, %g1 cmp %g1, 31 bgu,pn %xcc, .LL38 cmp %g2, 8 ldx [%i0+16], %g1 and %g1, 7, %g5 and %g1, -8, %i0 bgu,pt %xcc, .LL73 add %g2, %g5, %g4 cmp %g4, 8 bgu,pt %xcc, .LL75 sllx %g5, 3, %g2 sllx %g5, 3, %g3 sllx %g4, 3, %g4 ldx [%i0], %g5 srax %o0, %g3, %o7 sub %g0, %g4, %g4 xor %g5, %o7, %o7 xnor %g0, %g3, %g3 mov 2, %g1 mov 1, %g2 sllx %g1, %g3, %g1 sllx %g2, %g4, %g2 sub %g1, %g2, %g1 and %g1, %o7, %g1 xor %g5, %g1, %g5 stx %g5, [%i0] .LL38: return %i7+8 mov 0, %o0 .LL98: ldx [%i0+16], %g1 .LL121: stx %l3, [%g1] return %i7+8 mov 0, %o0 .LL115: ldd [%g2+120],%f30 cmp %o7, 6 ble,a,pt %icc, .LL122 ldx [%i0+48], %g3 add %o7, -6, %g1 .LL120: sra %g1, 0, %g1 sllx %g1, 3, %g1 add %g1, 15, %g1 and %g1, -16, %g1 mov 6, %g4 sub %sp, %g1, %sp ldx [%i0+48], %g3 add %sp, 2238, %g1 and %g1, -16, %g1 add %g1, -48, %g5 .LL37: sra %g4, 0, %g1 add %g4, 1, %g4 sllx %g1, 3, %g1 cmp %o7, %g4 ldx [%g1+%g3], %g2 bne,pt %icc, .LL37 stx %g2, [%g5+%g1] ba,pt %xcc, .LL119 ldx [%g3+40], %o5 .LL107: ldd [%g2+56],%f14 andcc %g3, 256, %g0 be,pt %xcc, .LL123 andcc %g3, 512, %g0 ba,pt %xcc, .LL108 nop .LL106: ldd [%g2+48],%f12 andcc %g3, 128, %g0 be,pt %xcc, .LL124 andcc %g3, 256, %g0 ba,pt %xcc, .LL107 nop .LL105: ldd [%g2+40],%f10 andcc %g3, 64, %g0 be,pt %xcc, .LL125 andcc %g3, 128, %g0 ba,pt %xcc, .LL106 nop .LL104: ldd [%g2+32],%f8 andcc %g3, 32, %g0 be,pt %xcc, .LL126 andcc %g3, 64, %g0 ba,pt %xcc, .LL105 nop .LL103: ldd [%g2+24],%f6 andcc %g3, 16, %g0 be,pt %xcc, .LL127 andcc %g3, 32, %g0 ba,pt %xcc, .LL104 nop .LL102: ldd [%g2+16],%f4 andcc %g3, 8, %g0 be,pt %xcc, .LL128 andcc %g3, 16, %g0 ba,pt %xcc, .LL103 nop .LL101: ldd [%g2+8],%f2 andcc %g3, 4, %g0 be,pt %xcc, .LL129 andcc %g3, 8, %g0 ba,pt %xcc, .LL102 nop .LL100: ldd [%g2+0],%f0 andcc %g3, 2, %g0 be,pt %xcc, .LL130 andcc %g3, 4, %g0 ba,pt %xcc, .LL101 nop .LL111: ldd [%g2+88],%f22 sethi %hi(4096), %g1 andcc %g3, %g1, %g0 be,pt %icc, .LL131 sethi %hi(8192), %g1 ba,pt %xcc, .LL112 nop .LL110: ldd [%g2+80],%f20 andcc %g3, 2048, %g0 be,pt %xcc, .LL132 sethi %hi(4096), %g1 ba,pt %xcc, .LL111 nop .LL109: ldd [%g2+72],%f18 andcc %g3, 1024, %g0 be,pt %xcc, .LL133 andcc %g3, 2048, %g0 ba,pt %xcc, .LL110 nop .LL108: ldd [%g2+64],%f16 andcc %g3, 512, %g0 be,pt %xcc, .LL134 andcc %g3, 1024, %g0 ba,pt %xcc, .LL109 nop .LL113: ldd [%g2+104],%f26 sethi %hi(16384), %g1 andcc %g3, %g1, %g0 be,pt %icc, .LL135 sethi %hi(32768), %g1 ba,pt %xcc, .LL114 nop .LL112: ldd [%g2+96],%f24 sethi %hi(8192), %g1 andcc %g3, %g1, %g0 be,pt %icc, .LL136 sethi %hi(16384), %g1 ba,pt %xcc, .LL113 nop .LL114: ldd [%g2+112],%f28 sethi %hi(32768), %g1 andcc %g3, %g1, %g0 be,pt %icc, .LL137 cmp %o7, 6 ba,pt %xcc, .LL115 nop .LL92: ldx [%i0+16], %g1 stb %l3, [%g1] return %i7+8 mov 0, %o0 .LL93: ldx [%i0+16], %g1 ba,pt %xcc, .LL38 sth %l3, [%g1] .LL94: ldx [%i0+16], %g1 ba,pt %xcc, .LL38 st %l3, [%g1] .LL117: ldx [%i0+16], %g1 ba,pt %xcc, .LL38 st %f0, [%g1] .LL118: ldx [%i0+16], %g1 ba,pt %xcc, .LL38 std %f0, [%g1] .LL75: sllx %g4, 3, %l0 ldx [%i0], %g5 srax %o0, %g2, %g4 sub %g0, %g2, %g3 xor %g5, %g4, %g4 xnor %g0, %g2, %g2 mov 2, %g1 sllx %g1, %g2, %g1 add %g1, -1, %g1 and %g1, %g4, %g1 ldx [%i0+8], %o7 xor %g5, %g1, %g5 sub %g0, %l0, %l0 sllx %o0, %g3, %g3 mov -1, %g1 xor %o7, %g3, %g3 sllx %g1, %l0, %g1 stx %g5, [%i0] and %g1, %g3, %g1 xor %o7, %g1, %o7 ba,pt %xcc, .LL38 stx %o7, [%i0+8] .LL73: cmp %g2, 16 bgu,pt %xcc, .LL77 cmp %g2, 24 sll %g5, 3, %l2 xnor %g0, %l2, %g2 ldx [%i0], %g3 mov 2, %g1 cmp %g4, 16 sllx %g1, %g2, %g1 srax %o0, %l2, %g2 add %g1, -1, %g1 xor %g3, %g2, %g2 and %g1, %g2, %g1 xor %g3, %g1, %g3 bgu,pt %xcc, .LL79 stx %g3, [%i0] sllx %g5, 2, %g5 mov 32, %g2 sub %g2, %g5, %g2 ldx [%i0+8], %g3 sllx %o0, %g2, %g1 sllx %g4, 3, %g4 sllx %g1, %g2, %g1 srax %o1, %l2, %o7 sub %g0, %g4, %g4 or %g1, %o7, %g1 mov -1, %g2 xor %g3, %g1, %g1 sllx %g2, %g4, %g2 and %g2, %g1, %g2 xor %g3, %g2, %g3 ba,pt %xcc, .LL38 stx %g3, [%i0+8] .LL77: bgu,pt %xcc, .LL81 sll %g5, 3, %l4 sll %g5, 3, %l2 xnor %g0, %l2, %g2 ldx [%i0], %g3 mov 2, %g1 cmp %g4, 24 sllx %g1, %g2, %g1 srax %o0, %l2, %g2 add %g1, -1, %g1 xor %g3, %g2, %g2 and %g1, %g2, %g1 xor %g3, %g1, %g3 bgu,pt %xcc, .LL83 stx %g3, [%i0] sllx %g5, 2, %g2 mov 32, %g1 sub %g1, %g2, %g1 ldx [%i0+16], %o7 sllx %g4, 3, %g5 sllx %o0, %g1, %g3 sllx %o1, %g1, %g2 sllx %g3, %g1, %g3 sllx %g2, %g1, %g2 srax %o2, %l2, %l0 sub %g0, %g5, %g5 or %g2, %l0, %g2 srax %o1, %l2, %g4 xor %o7, %g2, %g2 or %g3, %g4, %g3 mov -1, %g1 stx %g3, [%i0+8] sllx %g1, %g5, %g1 and %g1, %g2, %g1 xor %o7, %g1, %o7 ba,pt %xcc, .LL38 stx %o7, [%i0+16] .LL79: srax %o1, %l2, %g5 mov 64, %g1 sub %g1, %l2, %g1 sllx %o1, %g1, %g2 sllx %o0, %g1, %g1 or %g1, %g5, %g1 sllx %g4, 3, %g3 stx %g1, [%i0+8] ldx [%i0+16], %g4 sub %g0, %g3, %g3 xor %g4, %g2, %g2 mov -1, %g1 sllx %g1, %g3, %g1 and %g1, %g2, %g1 xor %g4, %g1, %g4 ba,pt %xcc, .LL38 stx %g4, [%i0+16] .LL83: sllx %g4, 3, %g5 srax %o2, %l2, %l0 mov 64, %g1 sub %g1, %l2, %g1 sllx %o2, %g1, %g4 sllx %o0, %g1, %g2 sllx %o1, %g1, %g1 or %g1, %l0, %g1 ldx [%i0+24], %o7 sub %g0, %g5, %g5 xor %o7, %g4, %g4 stx %g1, [%i0+16] srax %o1, %l2, %g3 mov -1, %g1 or %g2, %g3, %g2 sllx %g1, %g5, %g1 stx %g2, [%i0+8] and %g1, %g4, %g1 xor %o7, %g1, %o7 ba,pt %xcc, .LL38 stx %o7, [%i0+24] .LL81: xnor %g0, %l4, %g2 ldx [%i0], %g3 mov 2, %g1 cmp %g4, 32 sllx %g1, %g2, %g1 srax %o0, %l4, %g2 add %g1, -1, %g1 xor %g3, %g2, %g2 and %g1, %g2, %g1 xor %g3, %g1, %g3 bgu,pt %xcc, .LL85 stx %g3, [%i0] sllx %g5, 2, %g2 mov 32, %g1 sub %g1, %g2, %g1 ldx [%i0+24], %l0 sllx %g4, 3, %l1 sllx %o0, %g1, %g3 sllx %o1, %g1, %g4 sllx %g3, %g1, %g3 sllx %g4, %g1, %g4 sllx %o2, %g1, %g2 srax %o3, %l4, %l2 sllx %g2, %g1, %g2 sub %g0, %l1, %l1 or %g2, %l2, %g2 srax %o1, %l4, %g5 xor %l0, %g2, %g2 or %g3, %g5, %g3 srax %o2, %l4, %o7 mov -1, %g1 or %g4, %o7, %g4 sllx %g1, %l1, %g1 stx %g3, [%i0+8] and %g1, %g2, %g1 stx %g4, [%i0+16] xor %l0, %g1, %l0 ba,pt %xcc, .LL38 stx %l0, [%i0+24] .LL85: srax %o3, %l4, %l2 mov 64, %g1 sub %g1, %l4, %g1 sllx %o3, %g1, %o7 sllx %o0, %g1, %g2 sllx %o1, %g1, %g3 sllx %o2, %g1, %g1 or %g1, %l2, %g1 ldx [%i0+32], %l0 sllx %g4, 3, %l1 xor %l0, %o7, %o7 sub %g0, %l1, %l1 stx %g1, [%i0+24] srax %o1, %l4, %g4 srax %o2, %l4, %g5 or %g2, %g4, %g2 or %g3, %g5, %g3 mov -1, %g1 stx %g2, [%i0+8] sllx %g1, %l1, %g1 stx %g3, [%i0+16] and %g1, %o7, %g1 xor %l0, %g1, %l0 ba,pt %xcc, .LL38 stx %l0, [%i0+32] .size avcall_call, .-avcall_call .ident "GCC: (GNU) 4.0.2" .section ".note.GNU-stack" libffcall-2.2/avcall/avcall.html0000664000000000000000000002522513146127475013576 00000000000000 AVCALL manual page

AVCALL manual page

Name

 avcall - build a C argument list incrementally and call a C function on it.

Synopsis

 
#include <avcall.h>
av_alist alist;
av_start_type (alist, &func, [[return_type,] &return_value]);
av_type (alist, [arg_type,] value);
av_call(alist);

Description

 This set of macros builds an argument list for a C function and calls the function on it. It significantly reduces the amount of ‘glue’ code required for parsers, debuggers, imbedded interpreters, C extensions to application programs and other situations where collections of functions need to be called on lists of externally- supplied arguments.

Function calling conventions differ considerably on different machines and avcall attempts to provide some degree of isolation from such architecture dependencies.

The interface is like stdarg(3) in reverse. All of the macros return 0 for success, < 0 for failure (e.g., argument list overflow or type-not-supported).

  1. #include <avcall.h> and declare the argument list structure av_alist alist;

  2. Set any special flags. This is architecture and compiler dependent. Compiler options that affect passing conventions may need to be flagged by #defines before the #include <avcall.h> statement. However, the configure script should have determined which #defines are needed and put them at the top of avcall.h.

  3. Initialize the alist with the function address and return value pointer (if any). There is a separate macro for each simple return type ([u]char, [u]short, [u]int, [u]long, [u]longlong, float, double, where ‘u’ indicates ‘unsigned’). The macros for functions returning structures or pointers require an explicit type argument.

    E.g., 

    av_start_int (alist, &func, &int_return);
av_start_double (alist, &func, &double_return);
av_start_void (alist, &func);
av_start_struct (alist, &func, struct_type, splittable, &struct_return);
av_start_ptr (alist, &func, pointer_type, &pointer_return);
    The splittable flag specifies whether the struct_type can be returned in registers such that every struct field fits entirely in a single register. This needs to be specified for structs of size 2*sizeof(long). For structs of size <= sizeof(long), splittable is ignored and assumed to be 1. For structs of size > 2*sizeof(long), splittable is ignored and assumed to be 0. There are some handy macros for this: 
    av_word_splittable_1 (type1)
av_word_splittable_2 (type1, type2)
av_word_splittable_3 (type1, type2, type3)
av_word_splittable_4 (type1, type2, type3, type4)
    For a struct with three slots 
    struct { type1 id1; type2 id2; type3 id3; }
    you can specify splittable as av_word_splittable_3 (type1, type2, type3).

  4. Push the arguments on to the list in order. Again there is a macro for each simple built-in type, and the macros for structure and pointer arguments require an extra type argument: 
    av_int (alist, int_value);
av_double (alist, double_value);
av_struct (alist, struct_or_union_type, struct_value);
av_ptr (alist, pointer_type, pointer_value);
  5. Call the function, set the return value, and tidy up: av_call (alist);

Notes
  1. Functions whose first declaration is in Kernighan & Ritchie style (i.e., without a typed argument list) MUST use default K&R C expression promotions (char and short to int, float to double) whether they are compiled by a K&R or an ANSI compiler, because the true argument types may not be known at the call point. Such functions typically back-convert their arguments to the declared types on function entry. (In fact, the only way to pass a true char, short or float in K&R C is by an explicit cast: func((char)c,(float)f) ). Similarly, some K&R compilers (such as Sun cc on the sparc) actually return a float as a double.

    Hence, for arguments of functions declared in K&R style you should use av_int() and av_double() rather than av_char(), av_short() or av_float(). If you use a K&R compiler, the avcall header files may be able to detect this and define av_float(), etc, appropriately, but with an ANSI compiler there is no way avcall can know how a function was declared, so you have to correct the argument types yourself.

  2. The explicit type arguments of the av_struct() and av_ptr() macros are typically used to calculate size, alignment, and passing conventions. This may not be sufficient for some machines with unusual structure and pointer handling: in this case additional av_start_type() and av_type() macros may be defined.

  3. The macros av_start_longlong(), av_start_ulonglong(), av_longlong() and av_ulonglong() work only if the C compiler has a working long long 64-bit integer type.

  4. The struct types used in av_start_struct() and av_struct() must only contain (signed or unsigned) int, long, long long or pointer fields. Struct types containing (signed or unsigned) char, short, float, double or other structs are not supported.

See also

 stdarg(3), varargs(3).

Bugs
  • The current implementations have been tested on a selection of common cases but there are probably still many bugs.
  • There are typically built-in limits on the size of the argument-list, which may also include the size of any structure arguments.
  • The decision whether a struct is to be returned in registers or in memory considers only the struct's size and alignment. This is inaccurate: for example, gcc on m68k-next returns struct { char a,b,c; } in registers and struct { char a[3]; } in memory, although both types have the same size and the same alignment.

Non-Bugs

 All information is passed in CPU registers and the stack. The avcall package is therefore multithread-safe.

Porting AVCALL

 Ports, bug-fixes, and suggestions are most welcome. The macros required for argument pushing are pretty grungy, but it does seem to be possible to port avcall to a range of machines. Ports to non-standard or non-32-bit machines are especially welcome so we can sort the interface out before it's too late.

Knowledge about argument passing conventions can be found in the gcc source, file gcc-2.6.3/config/cpu/cpu.h, section "Stack layout; function entry, exit and calling."

Some of the grunge is usually handled by a C or assembly level glue routine that actually pushes the arguments, calls the function and unpacks any return value. This is called avcall_call(). A precompiled assembler version for people without gcc is also made available. The routine should ideally have flags for the passing conventions of other compilers.

Many of the current routines waste a lot of stack space and generally do hairy things to stack frames - a bit more assembly code would probably help things along quite a bit here.

Author

Bill Triggs <Bill.Triggs@inrialpes.fr>, <Bill.Triggs@imag.fr>.

Acknowledgements

 Some initial ideas were stolen from the C interface to the Zelk extensions to Oliver Laumann's Elk scheme interpreter by J.P.Lewis, NEC C&C Research, <zilla@ccrl.nj.nec.com> (for Sun4 & SGI), and Roy Featherstone's <roy@robots.oxford.ac.uk> personal C interface library for Sun3, Sun4 & SGI. I also looked at the machine-dependent parts of the GCC and GDB distributions, and put the gcc asm() extensions to good use. Thanks guys!

This work was partly supported by EC-ESPRIT Basic Research Action SECOND.

AVCALL manual page
Bruno Haible <bruno@clisp.org>

Last modified: 14 January 2001. libffcall-2.2/avcall/avcall-x86_64-macro.S0000664000000000000000000004356113530357110015056 00000000000000#include "asm-x86_64.h" TEXT() P2ALIGN(4,15) GLOBL(C(avcall_call)) DECLARE_FUNCTION(avcall_call) FUNBEGIN(avcall_call) L(FB2): INSN1(push,q ,R(rbp)) L(CFI0): INSN2(mov,q ,R(rsp), R(rbp)) L(CFI1): INSN1(push,q ,R(r13)) L(CFI2): INSN1(push,q ,R(r12)) L(CFI3): INSN1(push,q ,R(rbx)) L(CFI4): INSN2(mov,q ,R(rdi), R(rbx)) INSN2(lea,q ,X8 MEM_DISP(rbx,128), R(rdx)) INSN2(sub,q ,NUM(2072), R(rsp)) L(CFI5): INSN2(mov,q ,X8 MEM_DISP(rdi,40), R(rax)) INSN2(mov,q ,X8 MEM_DISP(rdi,48), R(r8)) INSN2(lea,q ,X8 MEM_DISP(rsp,15), R(rsi)) INSN2(sub,q ,R(r8), R(rax)) INSN2(and,q ,NUM(-16), R(rsi)) INSN2(mov,q ,R(rax), R(rdi)) INSN2(mov,q ,X8 MEM_DISP(rbx,120), R(rax)) INSN2(shr,q ,NUM(3), R(rdi)) INSN2(sub,q ,R(rdx), R(rax)) INSN2(mov,q ,R(rax), R(r9)) INSN2(shr,q ,NUM(3), R(r9)) INSN2(test,l ,R(edi), R(edi)) INSN1(jle,_ ,L(2)) INSN2(xor,l ,R(ecx), R(ecx)) INSN2(xor,l ,R(edx), R(edx)) P2ALIGN(4,7) L(4): INSN2(mov,q ,X8 MEM_INDEX(rdx,r8), R(rax)) INSN1(inc,l ,R(ecx)) INSN2(mov,q ,R(rax),X8 MEM_INDEX(rsi,rdx)) INSN2(add,q ,NUM(8), R(rdx)) INSN2(cmp,l ,R(ecx), R(edi)) INSN1(jne,_ ,L(4)) L(2): INSN2(mov,l ,X4 MEM_DISP(rbx,24), R(eax)) INSN2(cmp,l ,NUM(13), R(eax)) INSN1(je,_ ,L(127)) INSN2(cmp,l ,NUM(14), R(eax)) INSN1(je,_ ,L(128)) INSN2(cmp,l ,NUM(7), R(r9d)) INSN2(mov,q ,X8 MEM_DISP(rbx,8), R(r12)) INSN1(jle,_ ,L(58)) INSN2(movlp,d ,X8 MEM_DISP(rbx,184), R(xmm10)) L(60): INSN2(mov,q ,X8 MEM_DISP(rbx,176), R(r9)) L(63): INSN2(mov,q ,X8 MEM_DISP(rbx,168), R(r11)) L(66): INSN2(mov,q ,X8 MEM_DISP(rbx,160), R(r10)) L(69): INSN2(movlp,d ,X8 MEM_DISP(rbx,152), R(xmm8)) L(72): INSN2(mov,q ,X8 MEM_DISP(rbx,144), R(rax)) L(75): INSN2(mov,q ,X8 MEM_DISP(rbx,136), R(r8)) L(78): INSN2(movlp,d ,X8 MEM_DISP(rbx,128), R(xmm9)) L(81): INSN2(mov,q ,X8 MEM_DISP(rbx,88), R(rdx)) INSN2(mov,q ,X8 MEM_DISP(rbx,96), R(rcx)) INSN2S(movs,d ,R(xmm10), R(xmm7)) INSN2(mov,q ,X8 MEM_DISP(rbx,80), R(rsi)) INSN2(mov,q ,X8 MEM_DISP(rbx,72), R(rdi)) INSN2S(movs,d ,R(xmm8), R(xmm3)) INSN2(mov,q ,R(r9),X8 MEM_DISP(rbp,-32)) INSN2S(movs,d ,R(xmm9), R(xmm0)) INSN2(movlp,d ,X8 MEM_DISP(rbp,-32), R(xmm6)) INSN2(mov,q ,R(r11),X8 MEM_DISP(rbp,-32)) INSN2(movlp,d ,X8 MEM_DISP(rbp,-32), R(xmm5)) INSN2(mov,q ,R(r10),X8 MEM_DISP(rbp,-32)) INSN2(movlp,d ,X8 MEM_DISP(rbp,-32), R(xmm4)) INSN2(mov,q ,R(rax),X8 MEM_DISP(rbp,-32)) INSN2(mov,l ,NUM(8), R(eax)) INSN2(movlp,d ,X8 MEM_DISP(rbp,-32), R(xmm2)) INSN2(mov,q ,R(r8),X8 MEM_DISP(rbp,-32)) INSN2(movlp,d ,X8 MEM_DISP(rbp,-32), R(xmm1)) INSN2(mov,q ,X8 MEM_DISP(rbx,112), R(r9)) INSN2(mov,q ,X8 MEM_DISP(rbx,104), R(r8)) INSN1(call,_ ,INDIR(R(r12))) INSN2(mov,q ,R(rax), R(r8)) INSN2(mov,l ,X4 MEM_DISP(rbx,24), R(eax)) INSN2(mov,q ,R(rdx), R(r9)) INSN2(cmp,l ,NUM(1), R(eax)) INSN1(je,_ ,L(31)) INSN2(test,l ,R(eax), R(eax)) INSN1(je,_ ,L(125)) INSN2(cmp,l ,NUM(2), R(eax)) INSN1(je,_ ,L(122)) INSN2(cmp,l ,NUM(3), R(eax)) P2ALIGN(4,5) INSN1(je,_ ,L(122)) INSN2(cmp,l ,NUM(4), R(eax)) P2ALIGN(4,5) INSN1(je,_ ,L(122)) INSN2(cmp,l ,NUM(5), R(eax)) P2ALIGN(4,5) INSN1(je,_ ,L(123)) INSN2(cmp,l ,NUM(6), R(eax)) P2ALIGN(4,5) INSN1(je,_ ,L(123)) INSN2(cmp,l ,NUM(7), R(eax)) P2ALIGN(4,5) INSN1(je,_ ,L(124)) INSN2(cmp,l ,NUM(8), R(eax)) P2ALIGN(4,5) INSN1(je,_ ,L(124)) INSN2(cmp,l ,NUM(9), R(eax)) P2ALIGN(4,5) INSN1(je,_ ,L(125)) INSN2(cmp,l ,NUM(10), R(eax)) P2ALIGN(4,5) INSN1(je,_ ,L(125)) INSN2(cmp,l ,NUM(11), R(eax)) P2ALIGN(4,5) INSN1(je,_ ,L(125)) INSN2(cmp,l ,NUM(12), R(eax)) P2ALIGN(4,5) INSN1(je,_ ,L(125)) INSN2(cmp,l ,NUM(15), R(eax)) P2ALIGN(4,5) INSN1(je,_ ,L(125)) INSN2(cmp,l ,NUM(16), R(eax)) P2ALIGN(4,5) INSN1(jne,_ ,L(31)) INSN2(test,b ,NUM(2),X1 MEM_DISP(rbx,1)) P2ALIGN(4,5) INSN1(je,_ ,L(31)) INSN2(mov,q ,X8 MEM_DISP(rbx,32), R(rdx)) INSN2(lea,q ,X8 MEM_DISP(rdx,-1), R(rax)) INSN2(cmp,q ,NUM(15), R(rax)) INSN1(ja,_ ,L(31)) INSN2(mov,q ,X8 MEM_DISP(rbx,16), R(rax)) INSN2(mov,q ,R(rax), R(r10)) INSN2(mov,q ,R(rax), R(rdi)) INSN2(and,l ,NUM(7), R(edi)) INSN2(and,q ,NUM(-8), R(r10)) INSN2(cmp,q ,NUM(8), R(rdx)) INSN2(lea,q ,X8 MEM_INDEX(rdx,rdi), R(r11)) INSN1(ja,_ ,L(112)) INSN2(cmp,q ,NUM(8), R(r11)) INSN1(ja,_ ,L(114)) INSN2(lea,l ,X4 MEM_DISP_SHINDEX0(-1,r11,8), R(ecx)) INSN2(mov,q ,X8 MEM(r10), R(rsi)) INSN2(sal,l ,NUM(3), R(edi)) INSN2(mov,l ,NUM(2), R(edx)) INSN2(mov,l ,NUM(1), R(eax)) INSN2(sal,q ,R(cl), R(rdx)) INSN2(mov,l ,R(edi), R(ecx)) INSN2(sal,q ,R(cl), R(rax)) INSN2(sal,q ,R(cl), R(r8)) INSN2(xor,q ,R(rsi), R(r8)) INSN2(sub,q ,R(rax), R(rdx)) INSN2(and,q ,R(r8), R(rdx)) INSN2(xor,q ,R(rdx), R(rsi)) INSN2(mov,q ,R(rsi),X8 MEM(r10)) L(31): INSN2(lea,q ,X8 MEM_DISP(rbp,-24), R(rsp)) INSN2(xor,l ,R(eax), R(eax)) INSN1(pop,q ,R(rbx)) INSN1(pop,q ,R(r12)) INSN1(pop,q ,R(r13)) leave ret L(58): INSN1(je,_ ,L(129)) INSN2(cmp,l ,NUM(5), R(r9d)) INSN1(jle,_ ,L(64)) INSN2(xor,l ,R(r9d), R(r9d)) INSN2(mov,q ,R(r9),X8 MEM_DISP(rbp,-32)) INSN2(movlp,d ,X8 MEM_DISP(rbp,-32), R(xmm10)) P2ALIGN(4,3) INSN1(jmp,_ ,L(63)) L(127): INSN2(cmp,l ,NUM(7), R(r9d)) INSN2(mov,q ,X8 MEM_DISP(rbx,16), R(r13)) INSN2(mov,q ,X8 MEM_DISP(rbx,8), R(r12)) INSN1(jle,_ ,L(7)) INSN2(movlp,d ,X8 MEM_DISP(rbx,184), R(xmm10)) L(9): INSN2(mov,q ,X8 MEM_DISP(rbx,176), R(r9)) L(12): INSN2(mov,q ,X8 MEM_DISP(rbx,168), R(r11)) L(15): INSN2(mov,q ,X8 MEM_DISP(rbx,160), R(r10)) L(18): INSN2(movlp,d ,X8 MEM_DISP(rbx,152), R(xmm8)) L(21): INSN2(mov,q ,X8 MEM_DISP(rbx,144), R(rax)) L(24): INSN2(mov,q ,X8 MEM_DISP(rbx,136), R(r8)) L(27): INSN2(movlp,d ,X8 MEM_DISP(rbx,128), R(xmm9)) L(30): INSN2(mov,q ,X8 MEM_DISP(rbx,96), R(rcx)) INSN2(mov,q ,X8 MEM_DISP(rbx,88), R(rdx)) INSN2S(movs,d ,R(xmm10), R(xmm7)) INSN2(mov,q ,X8 MEM_DISP(rbx,80), R(rsi)) INSN2(mov,q ,X8 MEM_DISP(rbx,72), R(rdi)) INSN2S(movs,d ,R(xmm8), R(xmm3)) INSN2(mov,q ,R(r9),X8 MEM_DISP(rbp,-32)) INSN2S(movs,d ,R(xmm9), R(xmm0)) INSN2(movlp,d ,X8 MEM_DISP(rbp,-32), R(xmm6)) INSN2(mov,q ,R(r11),X8 MEM_DISP(rbp,-32)) INSN2(movlp,d ,X8 MEM_DISP(rbp,-32), R(xmm5)) INSN2(mov,q ,R(r10),X8 MEM_DISP(rbp,-32)) INSN2(movlp,d ,X8 MEM_DISP(rbp,-32), R(xmm4)) INSN2(mov,q ,R(rax),X8 MEM_DISP(rbp,-32)) INSN2(mov,l ,NUM(8), R(eax)) INSN2(movlp,d ,X8 MEM_DISP(rbp,-32), R(xmm2)) INSN2(mov,q ,R(r8),X8 MEM_DISP(rbp,-32)) INSN2(movlp,d ,X8 MEM_DISP(rbp,-32), R(xmm1)) INSN2(mov,q ,X8 MEM_DISP(rbx,112), R(r9)) INSN2(mov,q ,X8 MEM_DISP(rbx,104), R(r8)) INSN1(call,_ ,INDIR(R(r12))) INSN2S(movs,s ,R(xmm0),X4 MEM(r13)) INSN2(lea,q ,X8 MEM_DISP(rbp,-24), R(rsp)) INSN2(xor,l ,R(eax), R(eax)) INSN1(pop,q ,R(rbx)) INSN1(pop,q ,R(r12)) INSN1(pop,q ,R(r13)) leave ret L(125): INSN2(mov,q ,X8 MEM_DISP(rbx,16), R(rax)) INSN2(mov,q ,R(r8),X8 MEM(rax)) INSN2(lea,q ,X8 MEM_DISP(rbp,-24), R(rsp)) INSN2(xor,l ,R(eax), R(eax)) INSN1(pop,q ,R(rbx)) INSN1(pop,q ,R(r12)) INSN1(pop,q ,R(r13)) leave ret L(128): INSN2(cmp,l ,NUM(7), R(r9d)) INSN2(mov,q ,X8 MEM_DISP(rbx,16), R(r13)) INSN2(mov,q ,X8 MEM_DISP(rbx,8), R(r12)) INSN1(jle,_ ,L(34)) INSN2(movlp,d ,X8 MEM_DISP(rbx,184), R(xmm10)) L(36): INSN2(mov,q ,X8 MEM_DISP(rbx,176), R(r10)) L(39): INSN2(mov,q ,X8 MEM_DISP(rbx,168), R(r11)) L(42): INSN2(mov,q ,X8 MEM_DISP(rbx,160), R(r9)) L(45): INSN2(movlp,d ,X8 MEM_DISP(rbx,152), R(xmm8)) L(48): INSN2(mov,q ,X8 MEM_DISP(rbx,144), R(rax)) L(51): INSN2(mov,q ,X8 MEM_DISP(rbx,136), R(r8)) L(54): INSN2(movlp,d ,X8 MEM_DISP(rbx,128), R(xmm9)) L(57): INSN2(mov,q ,X8 MEM_DISP(rbx,96), R(rcx)) INSN2(mov,q ,X8 MEM_DISP(rbx,88), R(rdx)) INSN2S(movs,d ,R(xmm10), R(xmm7)) INSN2(mov,q ,X8 MEM_DISP(rbx,80), R(rsi)) INSN2(mov,q ,X8 MEM_DISP(rbx,72), R(rdi)) INSN2S(movs,d ,R(xmm8), R(xmm3)) INSN2(mov,q ,R(r10),X8 MEM_DISP(rbp,-32)) INSN2S(movs,d ,R(xmm9), R(xmm0)) INSN2(movlp,d ,X8 MEM_DISP(rbp,-32), R(xmm6)) INSN2(mov,q ,R(r11),X8 MEM_DISP(rbp,-32)) INSN2(movlp,d ,X8 MEM_DISP(rbp,-32), R(xmm5)) INSN2(mov,q ,R(r9),X8 MEM_DISP(rbp,-32)) INSN2(movlp,d ,X8 MEM_DISP(rbp,-32), R(xmm4)) INSN2(mov,q ,R(rax),X8 MEM_DISP(rbp,-32)) INSN2(mov,l ,NUM(8), R(eax)) INSN2(movlp,d ,X8 MEM_DISP(rbp,-32), R(xmm2)) INSN2(mov,q ,R(r8),X8 MEM_DISP(rbp,-32)) INSN2(movlp,d ,X8 MEM_DISP(rbp,-32), R(xmm1)) INSN2(mov,q ,X8 MEM_DISP(rbx,112), R(r9)) INSN2(mov,q ,X8 MEM_DISP(rbx,104), R(r8)) INSN1(call,_ ,INDIR(R(r12))) INSN2S(movs,d ,R(xmm0),X8 MEM(r13)) INSN2(lea,q ,X8 MEM_DISP(rbp,-24), R(rsp)) INSN2(xor,l ,R(eax), R(eax)) INSN1(pop,q ,R(rbx)) INSN1(pop,q ,R(r12)) INSN1(pop,q ,R(r13)) leave ret L(7): INSN1(jne,_ ,L(10)) INSN2(xorp,d ,R(xmm10), R(xmm10)) INSN1(jmp,_ ,L(9)) L(129): INSN2(xorp,d ,R(xmm10), R(xmm10)) P2ALIGN(4,7) INSN1(jmp,_ ,L(60)) L(34): P2ALIGN(4,7) INSN1(jne,_ ,L(37)) INSN2(xorp,d ,R(xmm10), R(xmm10)) P2ALIGN(4,7) INSN1(jmp,_ ,L(36)) L(122): INSN2(mov,q ,X8 MEM_DISP(rbx,16), R(rax)) INSN2(mov,b ,R(r8b),X1 MEM(rax)) INSN2(lea,q ,X8 MEM_DISP(rbp,-24), R(rsp)) INSN2(xor,l ,R(eax), R(eax)) INSN1(pop,q ,R(rbx)) INSN1(pop,q ,R(r12)) INSN1(pop,q ,R(r13)) leave ret L(10): INSN2(cmp,l ,NUM(5), R(r9d)) INSN1(jg,_ ,L(130)) INSN1(jne,_ ,L(16)) INSN2(xor,l ,R(r9d), R(r9d)) INSN2(mov,q ,R(r9),X8 MEM_DISP(rbp,-32)) INSN2(mov,q ,R(r9), R(r11)) INSN2(movlp,d ,X8 MEM_DISP(rbp,-32), R(xmm10)) INSN1(jmp,_ ,L(15)) L(64): P2ALIGN(4,3) INSN1(je,_ ,L(131)) INSN2(cmp,l ,NUM(3), R(r9d)) INSN1(jle,_ ,L(70)) INSN2(xor,l ,R(r9d), R(r9d)) INSN2(mov,q ,R(r9),X8 MEM_DISP(rbp,-32)) INSN2(mov,q ,R(r9), R(r10)) INSN2(mov,q ,R(r9), R(r11)) INSN2(movlp,d ,X8 MEM_DISP(rbp,-32), R(xmm10)) INSN1(jmp,_ ,L(69)) L(37): INSN2(cmp,l ,NUM(5), R(r9d)) INSN1(jg,_ ,L(132)) INSN1(jne,_ ,L(43)) INSN2(xor,l ,R(r10d), R(r10d)) INSN2(mov,q ,R(r10),X8 MEM_DISP(rbp,-32)) INSN2(mov,q ,R(r10), R(r11)) INSN2(movlp,d ,X8 MEM_DISP(rbp,-32), R(xmm10)) INSN1(jmp,_ ,L(42)) L(130): INSN2(xor,l ,R(r9d), R(r9d)) INSN2(mov,q ,R(r9),X8 MEM_DISP(rbp,-32)) INSN2(movlp,d ,X8 MEM_DISP(rbp,-32), R(xmm10)) INSN1(jmp,_ ,L(12)) L(131): INSN2(xor,l ,R(r9d), R(r9d)) INSN2(mov,q ,R(r9),X8 MEM_DISP(rbp,-32)) INSN2(mov,q ,R(r9), R(r11)) INSN2(movlp,d ,X8 MEM_DISP(rbp,-32), R(xmm10)) INSN1(jmp,_ ,L(66)) L(132): INSN2(xor,l ,R(r10d), R(r10d)) INSN2(mov,q ,R(r10),X8 MEM_DISP(rbp,-32)) INSN2(movlp,d ,X8 MEM_DISP(rbp,-32), R(xmm10)) INSN1(jmp,_ ,L(39)) L(123): INSN2(mov,q ,X8 MEM_DISP(rbx,16), R(rax)) INSN2(mov,w ,R(r8w),X2 MEM(rax)) INSN1(jmp,_ ,L(31)) L(124): INSN2(mov,q ,X8 MEM_DISP(rbx,16), R(rax)) INSN2(mov,l ,R(r8d),X4 MEM(rax)) INSN1(jmp,_ ,L(31)) L(16): INSN2(cmp,l ,NUM(3), R(r9d)) INSN1(jle,_ ,L(19)) INSN2(xor,l ,R(r9d), R(r9d)) INSN2(mov,q ,R(r9),X8 MEM_DISP(rbp,-32)) INSN2(mov,q ,R(r9), R(r10)) INSN2(mov,q ,R(r9), R(r11)) INSN2(movlp,d ,X8 MEM_DISP(rbp,-32), R(xmm10)) INSN1(jmp,_ ,L(18)) L(70): INSN1(jne,_ ,L(73)) INSN2(xor,l ,R(r9d), R(r9d)) INSN2(mov,q ,R(r9),X8 MEM_DISP(rbp,-32)) INSN2(mov,q ,R(r9), R(r10)) INSN2(mov,q ,R(r9), R(r11)) INSN2(movlp,d ,X8 MEM_DISP(rbp,-32), R(xmm10)) INSN2S(movs,d ,R(xmm10), R(xmm8)) INSN1(jmp,_ ,L(72)) L(43): INSN2(cmp,l ,NUM(3), R(r9d)) INSN1(jle,_ ,L(46)) INSN2(xor,l ,R(r10d), R(r10d)) INSN2(mov,q ,R(r10),X8 MEM_DISP(rbp,-32)) INSN2(mov,q ,R(r10), R(r9)) INSN2(mov,q ,R(r10), R(r11)) INSN2(movlp,d ,X8 MEM_DISP(rbp,-32), R(xmm10)) INSN1(jmp,_ ,L(45)) L(19): INSN1(jne,_ ,L(22)) INSN2(xor,l ,R(r9d), R(r9d)) INSN2(mov,q ,R(r9),X8 MEM_DISP(rbp,-32)) INSN2(mov,q ,R(r9), R(r10)) INSN2(mov,q ,R(r9), R(r11)) INSN2(movlp,d ,X8 MEM_DISP(rbp,-32), R(xmm10)) INSN2S(movs,d ,R(xmm10), R(xmm8)) INSN1(jmp,_ ,L(21)) L(73): INSN2(cmp,l ,NUM(1), R(r9d)) INSN1(jle,_ ,L(76)) INSN2(xor,l ,R(r9d), R(r9d)) INSN2(mov,q ,R(r9),X8 MEM_DISP(rbp,-32)) INSN2(mov,q ,R(r9), R(r10)) INSN2(mov,q ,R(r9), R(r11)) INSN2(movlp,d ,X8 MEM_DISP(rbp,-32), R(xmm10)) INSN2(mov,q ,R(r9), R(rax)) INSN2S(movs,d ,R(xmm10), R(xmm8)) INSN1(jmp,_ ,L(75)) L(46): INSN1(jne,_ ,L(49)) INSN2(xor,l ,R(r10d), R(r10d)) INSN2(mov,q ,R(r10),X8 MEM_DISP(rbp,-32)) INSN2(mov,q ,R(r10), R(r9)) INSN2(mov,q ,R(r10), R(r11)) INSN2(movlp,d ,X8 MEM_DISP(rbp,-32), R(xmm10)) INSN2S(movs,d ,R(xmm10), R(xmm8)) INSN1(jmp,_ ,L(48)) L(22): INSN2(cmp,l ,NUM(1), R(r9d)) INSN1(jle,_ ,L(25)) INSN2(xor,l ,R(r9d), R(r9d)) INSN2(mov,q ,R(r9),X8 MEM_DISP(rbp,-32)) INSN2(mov,q ,R(r9), R(r10)) INSN2(mov,q ,R(r9), R(r11)) INSN2(movlp,d ,X8 MEM_DISP(rbp,-32), R(xmm10)) INSN2(mov,q ,R(r9), R(rax)) INSN2S(movs,d ,R(xmm10), R(xmm8)) INSN1(jmp,_ ,L(24)) L(49): INSN2(cmp,l ,NUM(1), R(r9d)) INSN1(jle,_ ,L(52)) INSN2(xor,l ,R(r10d), R(r10d)) INSN2(mov,q ,R(r10),X8 MEM_DISP(rbp,-32)) INSN2(mov,q ,R(r10), R(r9)) INSN2(mov,q ,R(r10), R(r11)) INSN2(movlp,d ,X8 MEM_DISP(rbp,-32), R(xmm10)) INSN2(mov,q ,R(r10), R(rax)) INSN2S(movs,d ,R(xmm10), R(xmm8)) INSN1(jmp,_ ,L(51)) L(76): INSN1(jne,_ ,L(133)) INSN2(xor,l ,R(r9d), R(r9d)) INSN2(mov,q ,R(r9),X8 MEM_DISP(rbp,-32)) INSN2(mov,q ,R(r9), R(r10)) INSN2(mov,q ,R(r9), R(r11)) INSN2(movlp,d ,X8 MEM_DISP(rbp,-32), R(xmm10)) INSN2(mov,q ,R(r9), R(rax)) INSN2(mov,q ,R(r9), R(r8)) INSN2S(movs,d ,R(xmm10), R(xmm8)) INSN1(jmp,_ ,L(78)) L(25): INSN1(jne,_ ,L(134)) INSN2(xor,l ,R(r9d), R(r9d)) INSN2(mov,q ,R(r9),X8 MEM_DISP(rbp,-32)) INSN2(mov,q ,R(r9), R(r10)) INSN2(mov,q ,R(r9), R(r11)) INSN2(movlp,d ,X8 MEM_DISP(rbp,-32), R(xmm10)) INSN2(mov,q ,R(r9), R(rax)) INSN2(mov,q ,R(r9), R(r8)) INSN2S(movs,d ,R(xmm10), R(xmm8)) INSN1(jmp,_ ,L(27)) L(112): INSN2(lea,q ,X8 MEM_DISP_SHINDEX0(0,rdi,8), R(r12)) INSN2(mov,q ,X8 MEM(r10), R(rsi)) INSN2(mov,q ,R(r8), R(rax)) INSN2(mov,q ,NUM(-1), R(rdx)) INSN2(mov,l ,R(r12d), R(ecx)) INSN2(sal,q ,R(cl), R(rax)) INSN2(sal,q ,R(cl), R(rdx)) INSN2(xor,q ,R(rsi), R(rax)) INSN2(and,q ,R(rax), R(rdx)) INSN2(xor,q ,R(rdx), R(rsi)) INSN2(cmp,q ,NUM(16), R(r11)) INSN2(mov,q ,R(rsi),X8 MEM(r10)) INSN1(ja,_ ,L(116)) INSN2(lea,q ,X8 MEM_DISP_SHINDEX0(0,rdi,4), R(rax)) INSN2(lea,l ,X4 MEM_DISP_SHINDEX0(-65,r11,8), R(edx)) INSN2(mov,l ,NUM(32), R(edi)) INSN2(mov,q ,X8 MEM_DISP(r10,8), R(rsi)) INSN2(sub,l ,R(eax), R(edi)) INSN2(mov,l ,R(edx), R(ecx)) INSN2(mov,l ,NUM(2), R(eax)) INSN2(sal,q ,R(cl), R(rax)) INSN2(mov,l ,R(edi), R(ecx)) INSN2(sar,q ,R(cl), R(r8)) INSN1(dec,q ,R(rax)) INSN2(sar,q ,R(cl), R(r8)) INSN2(mov,l ,R(r12d), R(ecx)) INSN2(sal,q ,R(cl), R(r9)) INSN2(or,q ,R(r9), R(r8)) INSN2(xor,q ,R(rsi), R(r8)) INSN2(and,q ,R(r8), R(rax)) INSN2(xor,q ,R(rax), R(rsi)) INSN2(mov,q ,R(rsi),X8 MEM_DISP(r10,8)) INSN1(jmp,_ ,L(31)) P2ALIGN(4,7) L(133): INSN2(xorp,d ,R(xmm9), R(xmm9)) INSN2S(movs,d ,R(xmm9),X8 MEM_DISP(rbp,-32)) INSN2(mov,q ,X8 MEM_DISP(rbp,-32), R(r9)) INSN2S(movs,d ,R(xmm9), R(xmm10)) INSN2S(movs,d ,R(xmm9), R(xmm8)) INSN2(mov,q ,R(r9), R(r11)) INSN2(mov,q ,R(r9), R(r10)) INSN2(mov,q ,R(r9), R(rax)) INSN2(mov,q ,R(r9), R(r8)) INSN1(jmp,_ ,L(81)) L(52): INSN1(jne,_ ,L(135)) INSN2(xor,l ,R(r10d), R(r10d)) INSN2(mov,q ,R(r10),X8 MEM_DISP(rbp,-32)) INSN2(mov,q ,R(r10), R(r9)) INSN2(mov,q ,R(r10), R(r11)) INSN2(movlp,d ,X8 MEM_DISP(rbp,-32), R(xmm10)) INSN2(mov,q ,R(r10), R(rax)) INSN2(mov,q ,R(r10), R(r8)) INSN2S(movs,d ,R(xmm10), R(xmm8)) INSN1(jmp,_ ,L(54)) L(134): INSN2(xorp,d ,R(xmm9), R(xmm9)) INSN2S(movs,d ,R(xmm9),X8 MEM_DISP(rbp,-32)) INSN2(mov,q ,X8 MEM_DISP(rbp,-32), R(r9)) INSN2S(movs,d ,R(xmm9), R(xmm10)) INSN2S(movs,d ,R(xmm9), R(xmm8)) INSN2(mov,q ,R(r9), R(r11)) INSN2(mov,q ,R(r9), R(r10)) INSN2(mov,q ,R(r9), R(rax)) INSN2(mov,q ,R(r9), R(r8)) INSN1(jmp,_ ,L(30)) L(135): INSN2(xorp,d ,R(xmm9), R(xmm9)) INSN2S(movs,d ,R(xmm9),X8 MEM_DISP(rbp,-32)) INSN2(mov,q ,X8 MEM_DISP(rbp,-32), R(r10)) INSN2S(movs,d ,R(xmm9), R(xmm10)) INSN2S(movs,d ,R(xmm9), R(xmm8)) INSN2(mov,q ,R(r10), R(r11)) INSN2(mov,q ,R(r10), R(r9)) INSN2(mov,q ,R(r10), R(rax)) INSN2(mov,q ,R(r10), R(r8)) INSN1(jmp,_ ,L(57)) L(114): INSN2(lea,q ,X8 MEM_DISP_SHINDEX0(0,rdi,8), R(rsi)) INSN2(mov,q ,X8 MEM(r10), R(rdx)) INSN2(mov,q ,R(r8), R(rbx)) INSN2(mov,q ,NUM(-1), R(rax)) INSN2(mov,l ,R(esi), R(ecx)) INSN2(sal,q ,R(cl), R(rbx)) INSN2(sal,q ,R(cl), R(rax)) INSN2(mov,q ,R(rbx), R(rcx)) INSN2(xor,q ,R(rdx), R(rcx)) INSN2(and,q ,R(rcx), R(rax)) INSN2(lea,l ,X4 MEM_DISP_SHINDEX0(-65,r11,8), R(ecx)) INSN2(xor,q ,R(rax), R(rdx)) INSN2(mov,l ,NUM(2), R(eax)) INSN2(sal,q ,R(cl), R(rax)) INSN2(mov,q ,R(rdx),X8 MEM(r10)) INSN2(mov,l ,NUM(64), R(ecx)) INSN2(mov,q ,X8 MEM_DISP(r10,8), R(rdx)) INSN2(sub,l ,R(esi), R(ecx)) INSN1(dec,q ,R(rax)) INSN2(sar,q ,R(cl), R(r8)) INSN2(xor,q ,R(rdx), R(r8)) INSN2(and,q ,R(r8), R(rax)) INSN2(xor,q ,R(rax), R(rdx)) INSN2(mov,q ,R(rdx),X8 MEM_DISP(r10,8)) INSN1(jmp,_ ,L(31)) L(116): INSN2(mov,l ,NUM(64), R(esi)) INSN2(mov,q ,R(r9), R(rax)) INSN2(mov,q ,X8 MEM_DISP(r10,16), R(rdx)) INSN2(sub,l ,R(r12d), R(esi)) INSN2(mov,l ,R(esi), R(ecx)) INSN2(sar,q ,R(cl), R(r8)) INSN2(mov,l ,R(r12d), R(ecx)) INSN2(sal,q ,R(cl), R(rax)) INSN2(lea,l ,X4 MEM_DISP_SHINDEX0(-129,r11,8), R(ecx)) INSN2(or,q ,R(r8), R(rax)) INSN2(mov,q ,R(rax),X8 MEM_DISP(r10,8)) INSN2(mov,l ,NUM(2), R(eax)) INSN2(sal,q ,R(cl), R(rax)) INSN2(mov,l ,R(esi), R(ecx)) INSN2(sar,q ,R(cl), R(r9)) INSN1(dec,q ,R(rax)) INSN2(xor,q ,R(rdx), R(r9)) INSN2(and,q ,R(r9), R(rax)) INSN2(xor,q ,R(rax), R(rdx)) INSN2(mov,q ,R(rdx),X8 MEM_DISP(r10,16)) INSN1(jmp,_ ,L(31)) L(FE2): FUNEND(avcall_call, .-avcall_call) #if !(defined __sun || (defined __APPLE__ && defined __MACH__) || (defined _WIN32 || defined __CYGWIN__)) .section EH_FRAME_SECTION L(frame1): .long L(ECIE1)-.LSCIE1 L(SCIE1): .long 0x0 .byte 0x1 .string "zR" .uleb128 0x1 .sleb128 -8 .byte 0x10 .uleb128 0x1 .byte 0x1b .byte 0xc .uleb128 0x7 .uleb128 0x8 .byte 0x90 .uleb128 0x1 .align 8 L(ECIE1): L(SFDE1): .long L(EFDE1)-.LASFDE1 L(ASFDE1): .long L(ASFDE1)-.Lframe1 .long L(FB2)-. .long L(FE2)-.LFB2 .uleb128 0x0 .byte 0x4 .long L(CFI0)-.LFB2 .byte 0xe .uleb128 0x10 .byte 0x86 .uleb128 0x2 .byte 0x4 .long L(CFI1)-.LCFI0 .byte 0xd .uleb128 0x6 .byte 0x4 .long L(CFI4)-.LCFI1 .byte 0x83 .uleb128 0x5 .byte 0x8c .uleb128 0x4 .byte 0x8d .uleb128 0x3 .align 8 L(EFDE1): #endif #if defined __linux__ || defined __FreeBSD__ || defined __FreeBSD_kernel__ || defined __DragonFly__ .section .note.GNU-stack,"",@progbits #endif libffcall-2.2/avcall/tests.c0000664000000000000000000010275613530344357012756 00000000000000/** Copyright 1993 Bill Triggs Copyright 1995-2019 Bruno Haible This program is free software: you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program. If not, see . **/ /*---------------------------------------------------------------------- Some test routines for avcall foreign function interface. The coverage is entirely random, this just contains some of the things that I think are likely to break. We really need to add some more pointer (void* / char* / func*) tests and some varargs ones, and also try to test structure alignment more throughly. ----------------------------------------------------------------------*/ #include #include #include #include "avcall.h" #include "testcases.c" #if defined(__hppa__) && defined(__GNUC__) #if (__GNUC__ == 2 && __GNUC_MINOR__ < 6) /* gcc-2.5.2 bugs prevent the T test from working. */ #define SKIP_T #endif #endif #if defined(__m68k__) && defined(__GNUC__) /* "gcc-2.6.3 -freg-struct-return" returns T = struct { char c[3]; } (which * has size 4 !) in memory, in contrast to struct { char a,b,c; } and * struct { char c[4]; } and struct { char a,b,c,d; } which have the same * size and the same alignment but are returned in registers. I don't know why. */ #define SKIP_T #endif /* * The way we run these tests - first call the function directly, then * through av_call() - there is the danger that arguments or results seem * to be passed correctly, but what we are seeing are in fact the vestiges * (traces) or the previous call. This may seriously fake the test. * Avoid this by clearing the registers between the first and the second call. */ long clear_traces_i (long a, long b, long c, long d, long e, long f, long g, long h, long i, long j, long k, long l, long m, long n, long o, long p) { return 0; } float clear_traces_f (float a, float b, float c, float d, float e, float f, float g, float h, float i, float j, float k, float l, float m, float n, float o, float p) { return 0.0; } double clear_traces_d (double a, double b, double c, double d, double e, double f, double g, double h, double i, double j, double k, double l, double m, double n, double o, double p) { return 0.0; } J clear_traces_J (void) { J j; j.l1 = j.l2 = 0; return j; } void clear_traces (void) { clear_traces_i(0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0); clear_traces_f(0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0); clear_traces_d(0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0); clear_traces_J(); } void void_tests (void) { av_alist a; v_v(); clear_traces(); av_start_void(a,v_v); av_call(a); return; } void int_tests (void) { av_alist a; int ir; ir = i_v(); fprintf(out,"->%d\n",ir); fflush(out); ir = 0; clear_traces(); av_start_int(a,i_v,&ir); av_call(a); fprintf(out,"->%d\n",ir); fflush(out); ir = i_i(i1); fprintf(out,"->%d\n",ir); fflush(out); ir = 0; clear_traces(); av_start_int(a,i_i,&ir); av_int(a,i1); av_call(a); fprintf(out,"->%d\n",ir); fflush(out); ir = i_i2(i1,i2); fprintf(out,"->%d\n",ir); fflush(out); ir = 0; clear_traces(); av_start_int(a,i_i2,&ir); av_int(a,i1); av_int(a,i2); av_call(a); fprintf(out,"->%d\n",ir); fflush(out); ir = i_i4(i1,i2,i3,i4); fprintf(out,"->%d\n",ir); fflush(out); ir = 0; clear_traces(); av_start_int(a,i_i4,&ir); av_int(a,i1); av_int(a,i2); av_int(a,i3); av_int(a,i4); av_call(a); fprintf(out,"->%d\n",ir); fflush(out); ir = i_i8(i1,i2,i3,i4,i5,i6,i7,i8); fprintf(out,"->%d\n",ir); fflush(out); ir = 0; clear_traces(); av_start_int(a,i_i8,&ir); av_int(a,i1); av_int(a,i2); av_int(a,i3); av_int(a,i4); av_int(a,i5); av_int(a,i6); av_int(a,i7); av_int(a,i8); av_call(a); fprintf(out,"->%d\n",ir); fflush(out); ir = i_i16(i1,i2,i3,i4,i5,i6,i7,i8,i9,i10,i11,i12,i13,i14,i15,i16); fprintf(out,"->%d\n",ir); fflush(out); ir = 0; clear_traces(); av_start_int(a,i_i16,&ir); av_int(a,i1); av_int(a,i2); av_int(a,i3); av_int(a,i4); av_int(a,i5); av_int(a,i6); av_int(a,i7); av_int(a,i8); av_int(a,i9); av_int(a,i10); av_int(a,i11); av_int(a,i12); av_int(a,i13); av_int(a,i14); av_int(a,i15); av_int(a,i16); av_call(a); fprintf(out,"->%d\n",ir); fflush(out); ir = i_i32(i1,i2,i3,i4,i5,i6,i7,i8,i9,i10,i11,i12,i13,i14,i15,i16,i17,i18,i19,i20,i21,i22,i23,i24,i25,i26,i27,i28,i29,i30,i31,i32); fprintf(out,"->%d\n",ir); fflush(out); ir = 0; clear_traces(); av_start_int(a,i_i32,&ir); av_int(a,i1); av_int(a,i2); av_int(a,i3); av_int(a,i4); av_int(a,i5); av_int(a,i6); av_int(a,i7); av_int(a,i8); av_int(a,i9); av_int(a,i10); av_int(a,i11); av_int(a,i12); av_int(a,i13); av_int(a,i14); av_int(a,i15); av_int(a,i16); av_int(a,i17); av_int(a,i18); av_int(a,i19); av_int(a,i20); av_int(a,i21); av_int(a,i22); av_int(a,i23); av_int(a,i24); av_int(a,i25); av_int(a,i26); av_int(a,i27); av_int(a,i28); av_int(a,i29); av_int(a,i30); av_int(a,i31); av_int(a,i32); av_call(a); fprintf(out,"->%d\n",ir); fflush(out); return; } void float_tests (void) { av_alist a; float fr; fr = f_f(f1); fprintf(out,"->%g\n",fr); fflush(out); fr = 0.0; clear_traces(); av_start_float(a,f_f,&fr); av_float(a,f1); av_call(a); fprintf(out,"->%g\n",fr); fflush(out); fr = f_f2(f1,f2); fprintf(out,"->%g\n",fr); fflush(out); fr = 0.0; clear_traces(); av_start_float(a,f_f2,&fr); av_float(a,f1); av_float(a,f2); av_call(a); fprintf(out,"->%g\n",fr); fflush(out); fr = f_f4(f1,f2,f3,f4); fprintf(out,"->%g\n",fr); fflush(out); fr = 0.0; clear_traces(); av_start_float(a,f_f4,&fr); av_float(a,f1); av_float(a,f2); av_float(a,f3); av_float(a,f4); av_call(a); fprintf(out,"->%g\n",fr); fflush(out); fr = f_f8(f1,f2,f3,f4,f5,f6,f7,f8); fprintf(out,"->%g\n",fr); fflush(out); fr = 0.0; clear_traces(); av_start_float(a,f_f8,&fr); av_float(a,f1); av_float(a,f2); av_float(a,f3); av_float(a,f4); av_float(a,f5); av_float(a,f6); av_float(a,f7); av_float(a,f8); av_call(a); fprintf(out,"->%g\n",fr); fflush(out); fr = f_f16(f1,f2,f3,f4,f5,f6,f7,f8,f9,f10,f11,f12,f13,f14,f15,f16); fprintf(out,"->%g\n",fr); fflush(out); fr = 0.0; clear_traces(); av_start_float(a,f_f16,&fr); av_float(a,f1); av_float(a,f2); av_float(a,f3); av_float(a,f4); av_float(a,f5); av_float(a,f6); av_float(a,f7); av_float(a,f8); av_float(a,f9); av_float(a,f10); av_float(a,f11); av_float(a,f12); av_float(a,f13); av_float(a,f14); av_float(a,f15); av_float(a,f16); av_call(a); fprintf(out,"->%g\n",fr); fflush(out); fr = f_f24(f1,f2,f3,f4,f5,f6,f7,f8,f9,f10,f11,f12,f13,f14,f15,f16,f17,f18,f19,f20,f21,f22,f23,f24); fprintf(out,"->%g\n",fr); fflush(out); fr = 0.0; clear_traces(); av_start_float(a,f_f24,&fr); av_float(a,f1); av_float(a,f2); av_float(a,f3); av_float(a,f4); av_float(a,f5); av_float(a,f6); av_float(a,f7); av_float(a,f8); av_float(a,f9); av_float(a,f10); av_float(a,f11); av_float(a,f12); av_float(a,f13); av_float(a,f14); av_float(a,f15); av_float(a,f16); av_float(a,f17); av_float(a,f18); av_float(a,f19); av_float(a,f20); av_float(a,f21); av_float(a,f22); av_float(a,f23); av_float(a,f24); av_call(a); fprintf(out,"->%g\n",fr); fflush(out); } void double_tests (void) { av_alist a; double dr; dr = d_d(d1); fprintf(out,"->%g\n",dr); fflush(out); dr = 0.0; clear_traces(); av_start_double(a,d_d,&dr); av_double(a,d1); av_call(a); fprintf(out,"->%g\n",dr); fflush(out); dr = d_d2(d1,d2); fprintf(out,"->%g\n",dr); fflush(out); dr = 0.0; clear_traces(); av_start_double(a,d_d2,&dr); av_double(a,d1); av_double(a,d2); av_call(a); fprintf(out,"->%g\n",dr); fflush(out); dr = d_d4(d1,d2,d3,d4); fprintf(out,"->%g\n",dr); fflush(out); dr = 0.0; clear_traces(); av_start_double(a,d_d4,&dr); av_double(a,d1); av_double(a,d2); av_double(a,d3); av_double(a,d4); av_call(a); fprintf(out,"->%g\n",dr); fflush(out); dr = d_d8(d1,d2,d3,d4,d5,d6,d7,d8); fprintf(out,"->%g\n",dr); fflush(out); dr = 0.0; clear_traces(); av_start_double(a,d_d8,&dr); av_double(a,d1); av_double(a,d2); av_double(a,d3); av_double(a,d4); av_double(a,d5); av_double(a,d6); av_double(a,d7); av_double(a,d8); av_call(a); fprintf(out,"->%g\n",dr); fflush(out); dr = d_d16(d1,d2,d3,d4,d5,d6,d7,d8,d9,d10,d11,d12,d13,d14,d15,d16); fprintf(out,"->%g\n",dr); fflush(out); dr = 0.0; clear_traces(); av_start_double(a,d_d16,&dr); av_double(a,d1); av_double(a,d2); av_double(a,d3); av_double(a,d4); av_double(a,d5); av_double(a,d6); av_double(a,d7); av_double(a,d8); av_double(a,d9); av_double(a,d10); av_double(a,d11); av_double(a,d12); av_double(a,d13); av_double(a,d14); av_double(a,d15); av_double(a,d16); av_call(a); fprintf(out,"->%g\n",dr); fflush(out); return; } void pointer_tests (void) { av_alist a; void* vpr; vpr = vp_vpdpcpsp(&uc1,&d2,str3,&I4); fprintf(out,"->0x%p\n",vpr); fflush(out); vpr = 0; clear_traces(); av_start_ptr(a,vp_vpdpcpsp,void*,&vpr); av_ptr(a,void*,&uc1); av_ptr(a,double*,&d2); av_ptr(a,char*,str3); av_ptr(a,Int*,&I4); av_call(a); fprintf(out,"->0x%p\n",vpr); fflush(out); return; } void mixed_number_tests (void) { av_alist a; uchar ucr; ushort usr; float fr; double dr; long long llr; /* Unsigned types. */ ucr = uc_ucsil(uc1,us2,ui3,ul4); fprintf(out,"->%u\n",ucr); fflush(out); ucr = 0; clear_traces(); av_start_uchar(a,uc_ucsil,&ucr); av_uchar(a,uc1); av_ushort(a,us2); av_uint(a,ui3); av_ulong(a,ul4); av_call(a); fprintf(out,"->%u\n",ucr); fflush(out); /* Mixed int & float types. */ dr = d_iidd(i1,i2,d3,d4); fprintf(out,"->%g\n",dr); fflush(out); dr = 0.0; clear_traces(); av_start_double(a,d_iidd,&dr); av_int(a,i1); av_int(a,i2); av_double(a,d3); av_double(a,d4); av_call(a); fprintf(out,"->%g\n",dr); fflush(out); dr = d_iiidi(i1,i2,i3,d4,i5); fprintf(out,"->%g\n",dr); fflush(out); dr = 0.0; clear_traces(); av_start_double(a,d_iiidi,&dr); av_int(a,i1); av_int(a,i2); av_int(a,i3); av_double(a,d4); av_int(a,i5); av_call(a); fprintf(out,"->%g\n",dr); fflush(out); dr = d_idid(i1,d2,i3,d4); fprintf(out,"->%g\n",dr); fflush(out); dr = 0.0; clear_traces(); av_start_double(a,d_idid,&dr); av_int(a,i1); av_double(a,d2); av_int(a,i3); av_double(a,d4); av_call(a); fprintf(out,"->%g\n",dr); fflush(out); dr = d_fdi(f1,d2,i3); fprintf(out,"->%g\n",dr); fflush(out); dr = 0.0; clear_traces(); av_start_double(a,d_fdi,&dr); av_float(a,f1); av_double(a,d2); av_int(a,i3); av_call(a); fprintf(out,"->%g\n",dr); fflush(out); usr = us_cdcd(c1,d2,c3,d4); fprintf(out,"->%u\n",usr); fflush(out); usr = 0; clear_traces(); av_start_ushort(a,us_cdcd,&usr); av_char(a,c1); av_double(a,d2); av_char(a,c3); av_double(a,d4); av_call(a); fprintf(out,"->%u\n",usr); fflush(out); /* Long long types. */ llr = ll_iiilli(i1,i2,i3,ll1,i13); fprintf(out,"->0x%lx%08lx\n",(long)(llr>>32),(long)(llr&0xffffffff)); fflush(out); llr = 0; clear_traces(); av_start_longlong(a,ll_iiilli,&llr); av_int(a,i1); av_int(a,i2); av_int(a,i3); av_longlong(a,ll1); av_int(a,i13); av_call(a); fprintf(out,"->0x%lx%08lx\n",(long)(llr>>32),(long)(llr&0xffffffff)); fflush(out); llr = ll_flli(f13,ll1,i13); fprintf(out,"->0x%lx%08lx\n",(long)(llr>>32),(long)(llr&0xffffffff)); fflush(out); llr = 0; clear_traces(); av_start_longlong(a,ll_flli,&llr); av_float(a,f13); av_longlong(a,ll1); av_int(a,i13); av_call(a); fprintf(out,"->0x%lx%08lx\n",(long)(llr>>32),(long)(llr&0xffffffff)); fflush(out); fr = f_fi(f1,i9); fprintf(out,"->%g\n",fr); fflush(out); fr = 0.0; clear_traces(); av_start_float(a,f_fi,&fr); av_float(a,f1); av_int(a,i9); av_call(a); fprintf(out,"->%g\n",fr); fflush(out); fr = f_f2i(f1,f2,i9); fprintf(out,"->%g\n",fr); fflush(out); fr = 0.0; clear_traces(); av_start_float(a,f_f2i,&fr); av_float(a,f1); av_float(a,f2); av_int(a,i9); av_call(a); fprintf(out,"->%g\n",fr); fflush(out); fr = f_f3i(f1,f2,f3,i9); fprintf(out,"->%g\n",fr); fflush(out); fr = 0.0; clear_traces(); av_start_float(a,f_f3i,&fr); av_float(a,f1); av_float(a,f2); av_float(a,f3); av_int(a,i9); av_call(a); fprintf(out,"->%g\n",fr); fflush(out); fr = f_f4i(f1,f2,f3,f4,i9); fprintf(out,"->%g\n",fr); fflush(out); fr = 0.0; clear_traces(); av_start_float(a,f_f4i,&fr); av_float(a,f1); av_float(a,f2); av_float(a,f3); av_float(a,f4); av_int(a,i9); av_call(a); fprintf(out,"->%g\n",fr); fflush(out); fr = f_f7i(f1,f2,f3,f4,f5,f6,f7,i9); fprintf(out,"->%g\n",fr); fflush(out); fr = 0.0; clear_traces(); av_start_float(a,f_f7i,&fr); av_float(a,f1); av_float(a,f2); av_float(a,f3); av_float(a,f4); av_float(a,f5); av_float(a,f6); av_float(a,f7); av_int(a,i9); av_call(a); fprintf(out,"->%g\n",fr); fflush(out); fr = f_f8i(f1,f2,f3,f4,f5,f6,f7,f8,i9); fprintf(out,"->%g\n",fr); fflush(out); fr = 0.0; clear_traces(); av_start_float(a,f_f8i,&fr); av_float(a,f1); av_float(a,f2); av_float(a,f3); av_float(a,f4); av_float(a,f5); av_float(a,f6); av_float(a,f7); av_float(a,f8); av_int(a,i9); av_call(a); fprintf(out,"->%g\n",fr); fflush(out); fr = f_f12i(f1,f2,f3,f4,f5,f6,f7,f8,f9,f10,f11,f12,i9); fprintf(out,"->%g\n",fr); fflush(out); fr = 0.0; clear_traces(); av_start_float(a,f_f12i,&fr); av_float(a,f1); av_float(a,f2); av_float(a,f3); av_float(a,f4); av_float(a,f5); av_float(a,f6); av_float(a,f7); av_float(a,f8); av_float(a,f9); av_float(a,f10); av_float(a,f11); av_float(a,f12); av_int(a,i9); av_call(a); fprintf(out,"->%g\n",fr); fflush(out); fr = f_f13i(f1,f2,f3,f4,f5,f6,f7,f8,f9,f10,f11,f12,f13,i9); fprintf(out,"->%g\n",fr); fflush(out); fr = 0.0; clear_traces(); av_start_float(a,f_f13i,&fr); av_float(a,f1); av_float(a,f2); av_float(a,f3); av_float(a,f4); av_float(a,f5); av_float(a,f6); av_float(a,f7); av_float(a,f8); av_float(a,f9); av_float(a,f10); av_float(a,f11); av_float(a,f12); av_float(a,f13); av_int(a,i9); av_call(a); fprintf(out,"->%g\n",fr); fflush(out); dr = d_di(d1,i9); fprintf(out,"->%g\n",dr); fflush(out); dr = 0.0; clear_traces(); av_start_double(a,d_di,&dr); av_double(a,d1); av_int(a,i9); av_call(a); fprintf(out,"->%g\n",dr); fflush(out); dr = d_d2i(d1,d2,i9); fprintf(out,"->%g\n",dr); fflush(out); dr = 0.0; clear_traces(); av_start_double(a,d_d2i,&dr); av_double(a,d1); av_double(a,d2); av_int(a,i9); av_call(a); fprintf(out,"->%g\n",dr); fflush(out); dr = d_d3i(d1,d2,d3,i9); fprintf(out,"->%g\n",dr); fflush(out); dr = 0.0; clear_traces(); av_start_double(a,d_d3i,&dr); av_double(a,d1); av_double(a,d2); av_double(a,d3); av_int(a,i9); av_call(a); fprintf(out,"->%g\n",dr); fflush(out); dr = d_d4i(d1,d2,d3,d4,i9); fprintf(out,"->%g\n",dr); fflush(out); dr = 0.0; clear_traces(); av_start_double(a,d_d4i,&dr); av_double(a,d1); av_double(a,d2); av_double(a,d3); av_double(a,d4); av_int(a,i9); av_call(a); fprintf(out,"->%g\n",dr); fflush(out); dr = d_d7i(d1,d2,d3,d4,d5,d6,d7,i9); fprintf(out,"->%g\n",dr); fflush(out); dr = 0.0; clear_traces(); av_start_double(a,d_d7i,&dr); av_double(a,d1); av_double(a,d2); av_double(a,d3); av_double(a,d4); av_double(a,d5); av_double(a,d6); av_double(a,d7); av_int(a,i9); av_call(a); fprintf(out,"->%g\n",dr); fflush(out); dr = d_d8i(d1,d2,d3,d4,d5,d6,d7,d8,i9); fprintf(out,"->%g\n",dr); fflush(out); dr = 0.0; clear_traces(); av_start_double(a,d_d8i,&dr); av_double(a,d1); av_double(a,d2); av_double(a,d3); av_double(a,d4); av_double(a,d5); av_double(a,d6); av_double(a,d7); av_double(a,d8); av_int(a,i9); av_call(a); fprintf(out,"->%g\n",dr); fflush(out); dr = d_d12i(d1,d2,d3,d4,d5,d6,d7,d8,d9,d10,d11,d12,i9); fprintf(out,"->%g\n",dr); fflush(out); dr = 0.0; clear_traces(); av_start_double(a,d_d12i,&dr); av_double(a,d1); av_double(a,d2); av_double(a,d3); av_double(a,d4); av_double(a,d5); av_double(a,d6); av_double(a,d7); av_double(a,d8); av_double(a,d9); av_double(a,d10); av_double(a,d11); av_double(a,d12); av_int(a,i9); av_call(a); fprintf(out,"->%g\n",dr); fflush(out); dr = d_d13i(d1,d2,d3,d4,d5,d6,d7,d8,d9,d10,d11,d12,d13,i9); fprintf(out,"->%g\n",dr); fflush(out); dr = 0.0; clear_traces(); av_start_double(a,d_d13i,&dr); av_double(a,d1); av_double(a,d2); av_double(a,d3); av_double(a,d4); av_double(a,d5); av_double(a,d6); av_double(a,d7); av_double(a,d8); av_double(a,d9); av_double(a,d10); av_double(a,d11); av_double(a,d12); av_double(a,d13); av_int(a,i9); av_call(a); fprintf(out,"->%g\n",dr); fflush(out); return; } void small_structure_return_tests (void) { av_alist a; { Size1 r = S1_v(); fprintf(out,"->{%c}\n",r.x1); fflush(out); memset(&r,0,sizeof(r)); clear_traces(); av_start_struct(a,S1_v,Size1,1,&r); av_call(a); fprintf(out,"->{%c}\n",r.x1); fflush(out); } { Size2 r = S2_v(); fprintf(out,"->{%c%c}\n",r.x1,r.x2); fflush(out); memset(&r,0,sizeof(r)); clear_traces(); av_start_struct(a,S2_v,Size2,1,&r); av_call(a); fprintf(out,"->{%c%c}\n",r.x1,r.x2); fflush(out); } { Size3 r = S3_v(); fprintf(out,"->{%c%c%c}\n",r.x1,r.x2,r.x3); fflush(out); memset(&r,0,sizeof(r)); clear_traces(); av_start_struct(a,S3_v,Size3,1,&r); av_call(a); fprintf(out,"->{%c%c%c}\n",r.x1,r.x2,r.x3); fflush(out); } { Size4 r = S4_v(); fprintf(out,"->{%c%c%c%c}\n",r.x1,r.x2,r.x3,r.x4); fflush(out); memset(&r,0,sizeof(r)); clear_traces(); av_start_struct(a,S4_v,Size4,1,&r); av_call(a); fprintf(out,"->{%c%c%c%c}\n",r.x1,r.x2,r.x3,r.x4); fflush(out); } { Size7 r = S7_v(); fprintf(out,"->{%c%c%c%c%c%c%c}\n",r.x1,r.x2,r.x3,r.x4,r.x5,r.x6,r.x7); fflush(out); memset(&r,0,sizeof(r)); clear_traces(); av_start_struct(a,S7_v,Size7,1,&r); av_call(a); fprintf(out,"->{%c%c%c%c%c%c%c}\n",r.x1,r.x2,r.x3,r.x4,r.x5,r.x6,r.x7); fflush(out); } { Size8 r = S8_v(); fprintf(out,"->{%c%c%c%c%c%c%c%c}\n",r.x1,r.x2,r.x3,r.x4,r.x5,r.x6,r.x7,r.x8); fflush(out); memset(&r,0,sizeof(r)); clear_traces(); av_start_struct(a,S8_v,Size8,1,&r); av_call(a); fprintf(out,"->{%c%c%c%c%c%c%c%c}\n",r.x1,r.x2,r.x3,r.x4,r.x5,r.x6,r.x7,r.x8); fflush(out); } { Size12 r = S12_v(); fprintf(out,"->{%c%c%c%c%c%c%c%c%c%c%c%c}\n",r.x1,r.x2,r.x3,r.x4,r.x5,r.x6,r.x7,r.x8,r.x9,r.x10,r.x11,r.x12); fflush(out); memset(&r,0,sizeof(r)); clear_traces(); av_start_struct(a,S12_v,Size12,1,&r); av_call(a); fprintf(out,"->{%c%c%c%c%c%c%c%c%c%c%c%c}\n",r.x1,r.x2,r.x3,r.x4,r.x5,r.x6,r.x7,r.x8,r.x9,r.x10,r.x11,r.x12); fflush(out); } { Size15 r = S15_v(); fprintf(out,"->{%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c}\n",r.x1,r.x2,r.x3,r.x4,r.x5,r.x6,r.x7,r.x8,r.x9,r.x10,r.x11,r.x12,r.x13,r.x14,r.x15); fflush(out); memset(&r,0,sizeof(r)); clear_traces(); av_start_struct(a,S15_v,Size15,1,&r); av_call(a); fprintf(out,"->{%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c}\n",r.x1,r.x2,r.x3,r.x4,r.x5,r.x6,r.x7,r.x8,r.x9,r.x10,r.x11,r.x12,r.x13,r.x14,r.x15); fflush(out); } { Size16 r = S16_v(); fprintf(out,"->{%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c}\n",r.x1,r.x2,r.x3,r.x4,r.x5,r.x6,r.x7,r.x8,r.x9,r.x10,r.x11,r.x12,r.x13,r.x14,r.x15,r.x16); fflush(out); memset(&r,0,sizeof(r)); clear_traces(); av_start_struct(a,S16_v,Size16,1,&r); av_call(a); fprintf(out,"->{%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c}\n",r.x1,r.x2,r.x3,r.x4,r.x5,r.x6,r.x7,r.x8,r.x9,r.x10,r.x11,r.x12,r.x13,r.x14,r.x15,r.x16); fflush(out); } } void structure_tests (void) { av_alist a; Int Ir; Char Cr; Float Fr; Double Dr; J Jr; T Tr; X Xr; Ir = I_III(I1,I2,I3); fprintf(out,"->{%d}\n",Ir.x); fflush(out); Ir.x = 0; clear_traces(); av_start_struct(a,I_III,Int,1,&Ir); av_struct(a,Int,I1); av_struct(a,Int,I2); av_struct(a,Int,I3); av_call(a); fprintf(out,"->{%d}\n",Ir.x); fflush(out); #ifndef SKIP_EXTRA_STRUCTS Cr = C_CdC(C1,d2,C3); fprintf(out,"->{'%c'}\n",Cr.x); fflush(out); Cr.x = '\0'; clear_traces(); av_start_struct(a,C_CdC,Char,1,&Cr); av_struct(a,Char,C1); av_double(a,d2); av_struct(a,Char,C3); av_call(a); fprintf(out,"->{'%c'}\n",Cr.x); fflush(out); Fr = F_Ffd(F1,f2,d3); fprintf(out,"->{%g}\n",Fr.x); fflush(out); Fr.x = 0.0; clear_traces(); av_start_struct(a,F_Ffd,Float,av_word_splittable_1(float),&Fr); av_struct(a,Float,F1); av_float(a,f2); av_double(a,d3); av_call(a); fprintf(out,"->{%g}\n",Fr.x); fflush(out); Dr = D_fDd(f1,D2,d3); fprintf(out,"->{%g}\n",Dr.x); fflush(out); Dr.x = 0.0; clear_traces(); av_start_struct(a,D_fDd,Double,av_word_splittable_1(double),&Dr); av_float(a,f1); av_struct(a,Double,D2); av_double(a,d3); av_call(a); fprintf(out,"->{%g}\n",Dr.x); fflush(out); Dr = D_Dfd(D1,f2,d3); fprintf(out,"->{%g}\n",Dr.x); fflush(out); Dr.x = 0.0; clear_traces(); av_start_struct(a,D_Dfd,Double,av_word_splittable_1(double),&Dr); av_struct(a,Double,D1); av_float(a,f2); av_double(a,d3); av_call(a); fprintf(out,"->{%g}\n",Dr.x); fflush(out); #endif Jr = J_JiJ(J1,i2,J2); fprintf(out,"->{%ld,%ld}\n",Jr.l1,Jr.l2); fflush(out); Jr.l1 = Jr.l2 = 0; clear_traces(); av_start_struct(a,J_JiJ,J,av_word_splittable_2(long,long),&Jr); av_struct(a,J,J1); av_int(a,i2); av_struct(a,J,J2); av_call(a); fprintf(out,"->{%ld,%ld}\n",Jr.l1,Jr.l2); fflush(out); #ifndef SKIP_EXTRA_STRUCTS #ifndef SKIP_T Tr = T_TcT(T1,' ',T2); fprintf(out,"->{\"%c%c%c\"}\n",Tr.c[0],Tr.c[1],Tr.c[2]); fflush(out); Tr.c[0] = Tr.c[1] = Tr.c[2] = 0; clear_traces(); av_start_struct(a,T_TcT,T,1,&Tr); av_struct(a,T,T1); av_char(a,' '); av_struct(a,T,T2); av_call(a); fprintf(out,"->{\"%c%c%c\"}\n",Tr.c[0],Tr.c[1],Tr.c[2]); fflush(out); #endif Xr = X_BcdB(B1,c2,d3,B2); fprintf(out,"->{\"%s\",'%c'}\n",Xr.c,Xr.c1); fflush(out); Xr.c[0]=Xr.c1='\0'; clear_traces(); av_start_struct(a,X_BcdB,X,0,&Xr); av_struct(a,B,B1); av_char(a,c2); av_double(a,d3); av_struct(a,B,B2); av_call(a); fprintf(out,"->{\"%s\",'%c'}\n",Xr.c,Xr.c1); fflush(out); #endif return; } void gpargs_boundary_tests (void) { av_alist a; long lr; long long llr; float fr; double dr; lr = l_l0J(J1,l9); fprintf(out,"->%ld\n",lr); fflush(out); lr = 0; clear_traces(); av_start_long(a,l_l0J,&lr); av_struct(a,J,J1); av_long(a,l9); av_call(a); fprintf(out,"->%ld\n",lr); fflush(out); lr = l_l1J(l1,J1,l9); fprintf(out,"->%ld\n",lr); fflush(out); lr = 0; clear_traces(); av_start_long(a,l_l1J,&lr); av_long(a,l1); av_struct(a,J,J1); av_long(a,l9); av_call(a); fprintf(out,"->%ld\n",lr); fflush(out); lr = l_l2J(l1,l2,J1,l9); fprintf(out,"->%ld\n",lr); fflush(out); lr = 0; clear_traces(); av_start_long(a,l_l2J,&lr); av_long(a,l1); av_long(a,l2); av_struct(a,J,J1); av_long(a,l9); av_call(a); fprintf(out,"->%ld\n",lr); fflush(out); lr = l_l3J(l1,l2,l3,J1,l9); fprintf(out,"->%ld\n",lr); fflush(out); lr = 0; clear_traces(); av_start_long(a,l_l3J,&lr); av_long(a,l1); av_long(a,l2); av_long(a,l3); av_struct(a,J,J1); av_long(a,l9); av_call(a); fprintf(out,"->%ld\n",lr); fflush(out); lr = l_l4J(l1,l2,l3,l4,J1,l9); fprintf(out,"->%ld\n",lr); fflush(out); lr = 0; clear_traces(); av_start_long(a,l_l4J,&lr); av_long(a,l1); av_long(a,l2); av_long(a,l3); av_long(a,l4); av_struct(a,J,J1); av_long(a,l9); av_call(a); fprintf(out,"->%ld\n",lr); fflush(out); lr = l_l5J(l1,l2,l3,l4,l5,J1,l9); fprintf(out,"->%ld\n",lr); fflush(out); lr = 0; clear_traces(); av_start_long(a,l_l5J,&lr); av_long(a,l1); av_long(a,l2); av_long(a,l3); av_long(a,l4); av_long(a,l5); av_struct(a,J,J1); av_long(a,l9); av_call(a); fprintf(out,"->%ld\n",lr); fflush(out); lr = l_l6J(l1,l2,l3,l4,l5,l6,J1,l9); fprintf(out,"->%ld\n",lr); fflush(out); lr = 0; clear_traces(); av_start_long(a,l_l6J,&lr); av_long(a,l1); av_long(a,l2); av_long(a,l3); av_long(a,l4); av_long(a,l5); av_long(a,l6); av_struct(a,J,J1); av_long(a,l9); av_call(a); fprintf(out,"->%ld\n",lr); fflush(out); lr = l_l7J(l1,l2,l3,l4,l5,l6,l7,J1,l9); fprintf(out,"->%ld\n",lr); fflush(out); lr = 0; clear_traces(); av_start_long(a,l_l7J,&lr); av_long(a,l1); av_long(a,l2); av_long(a,l3); av_long(a,l4); av_long(a,l5); av_long(a,l6); av_long(a,l7); av_struct(a,J,J1); av_long(a,l9); av_call(a); fprintf(out,"->%ld\n",lr); fflush(out); lr = l_l0K(K1,l9); fprintf(out,"->%ld\n",lr); fflush(out); lr = 0; clear_traces(); av_start_long(a,l_l0K,&lr); av_struct(a,K,K1); av_long(a,l9); av_call(a); fprintf(out,"->%ld\n",lr); fflush(out); lr = l_l1K(l1,K1,l9); fprintf(out,"->%ld\n",lr); fflush(out); lr = 0; clear_traces(); av_start_long(a,l_l1K,&lr); av_long(a,l1); av_struct(a,K,K1); av_long(a,l9); av_call(a); fprintf(out,"->%ld\n",lr); fflush(out); lr = l_l2K(l1,l2,K1,l9); fprintf(out,"->%ld\n",lr); fflush(out); lr = 0; clear_traces(); av_start_long(a,l_l2K,&lr); av_long(a,l1); av_long(a,l2); av_struct(a,K,K1); av_long(a,l9); av_call(a); fprintf(out,"->%ld\n",lr); fflush(out); lr = l_l3K(l1,l2,l3,K1,l9); fprintf(out,"->%ld\n",lr); fflush(out); lr = 0; clear_traces(); av_start_long(a,l_l3K,&lr); av_long(a,l1); av_long(a,l2); av_long(a,l3); av_struct(a,K,K1); av_long(a,l9); av_call(a); fprintf(out,"->%ld\n",lr); fflush(out); lr = l_l4K(l1,l2,l3,l4,K1,l9); fprintf(out,"->%ld\n",lr); fflush(out); lr = 0; clear_traces(); av_start_long(a,l_l4K,&lr); av_long(a,l1); av_long(a,l2); av_long(a,l3); av_long(a,l4); av_struct(a,K,K1); av_long(a,l9); av_call(a); fprintf(out,"->%ld\n",lr); fflush(out); lr = l_l5K(l1,l2,l3,l4,l5,K1,l9); fprintf(out,"->%ld\n",lr); fflush(out); lr = 0; clear_traces(); av_start_long(a,l_l5K,&lr); av_long(a,l1); av_long(a,l2); av_long(a,l3); av_long(a,l4); av_long(a,l5); av_struct(a,K,K1); av_long(a,l9); av_call(a); fprintf(out,"->%ld\n",lr); fflush(out); lr = l_l6K(l1,l2,l3,l4,l5,l6,K1,l9); fprintf(out,"->%ld\n",lr); fflush(out); lr = 0; clear_traces(); av_start_long(a,l_l6K,&lr); av_long(a,l1); av_long(a,l2); av_long(a,l3); av_long(a,l4); av_long(a,l5); av_long(a,l6); av_struct(a,K,K1); av_long(a,l9); av_call(a); fprintf(out,"->%ld\n",lr); fflush(out); fr = f_f17l3L(f1,f2,f3,f4,f5,f6,f7,f8,f9,f10,f11,f12,f13,f14,f15,f16,f17,l6,l7,l8,L1); fprintf(out,"->%g\n",fr); fflush(out); fr = 0.0; clear_traces(); av_start_float(a,f_f17l3L,&fr); av_float(a,f1); av_float(a,f2); av_float(a,f3); av_float(a,f4); av_float(a,f5); av_float(a,f6); av_float(a,f7); av_float(a,f8); av_float(a,f9); av_float(a,f10); av_float(a,f11); av_float(a,f12); av_float(a,f13); av_float(a,f14); av_float(a,f15); av_float(a,f16); av_float(a,f17); av_long(a,l6); av_long(a,l7); av_long(a,l8); av_struct(a,L,L1); av_call(a); fprintf(out,"->%g\n",fr); fflush(out); dr = d_d17l3L(d1,d2,d3,d4,d5,d6,d7,d8,d9,d10,d11,d12,d13,d14,d15,d16,d17,l6,l7,l8,L1); fprintf(out,"->%g\n",dr); fflush(out); dr = 0.0; clear_traces(); av_start_double(a,d_d17l3L,&dr); av_double(a,d1); av_double(a,d2); av_double(a,d3); av_double(a,d4); av_double(a,d5); av_double(a,d6); av_double(a,d7); av_double(a,d8); av_double(a,d9); av_double(a,d10); av_double(a,d11); av_double(a,d12); av_double(a,d13); av_double(a,d14); av_double(a,d15); av_double(a,d16); av_double(a,d17); av_long(a,l6); av_long(a,l7); av_long(a,l8); av_struct(a,L,L1); av_call(a); fprintf(out,"->%g\n",dr); fflush(out); llr = ll_l2ll(l1,l2,ll1,l9); fprintf(out,"->0x%lx%08lx\n",(long)(llr>>32),(long)(llr&0xffffffff)); fflush(out); llr = 0; clear_traces(); av_start_longlong(a,ll_l2ll,&llr); av_long(a,l1); av_long(a,l2); av_longlong(a,ll1); av_long(a,l9); av_call(a); fprintf(out,"->0x%lx%08lx\n",(long)(llr>>32),(long)(llr&0xffffffff)); fflush(out); llr = ll_l3ll(l1,l2,l3,ll1,l9); fprintf(out,"->0x%lx%08lx\n",(long)(llr>>32),(long)(llr&0xffffffff)); fflush(out); llr = 0; clear_traces(); av_start_longlong(a,ll_l3ll,&llr); av_long(a,l1); av_long(a,l2); av_long(a,l3); av_longlong(a,ll1); av_long(a,l9); av_call(a); fprintf(out,"->0x%lx%08lx\n",(long)(llr>>32),(long)(llr&0xffffffff)); fflush(out); llr = ll_l4ll(l1,l2,l3,l4,ll1,l9); fprintf(out,"->0x%lx%08lx\n",(long)(llr>>32),(long)(llr&0xffffffff)); fflush(out); llr = 0; clear_traces(); av_start_longlong(a,ll_l4ll,&llr); av_long(a,l1); av_long(a,l2); av_long(a,l3); av_long(a,l4); av_longlong(a,ll1); av_long(a,l9); av_call(a); fprintf(out,"->0x%lx%08lx\n",(long)(llr>>32),(long)(llr&0xffffffff)); fflush(out); llr = ll_l5ll(l1,l2,l3,l4,l5,ll1,l9); fprintf(out,"->0x%lx%08lx\n",(long)(llr>>32),(long)(llr&0xffffffff)); fflush(out); llr = 0; clear_traces(); av_start_longlong(a,ll_l5ll,&llr); av_long(a,l1); av_long(a,l2); av_long(a,l3); av_long(a,l4); av_long(a,l5); av_longlong(a,ll1); av_long(a,l9); av_call(a); fprintf(out,"->0x%lx%08lx\n",(long)(llr>>32),(long)(llr&0xffffffff)); fflush(out); llr = ll_l6ll(l1,l2,l3,l4,l5,l6,ll1,l9); fprintf(out,"->0x%lx%08lx\n",(long)(llr>>32),(long)(llr&0xffffffff)); fflush(out); llr = 0; clear_traces(); av_start_longlong(a,ll_l6ll,&llr); av_long(a,l1); av_long(a,l2); av_long(a,l3); av_long(a,l4); av_long(a,l5); av_long(a,l6); av_longlong(a,ll1); av_long(a,l9); av_call(a); fprintf(out,"->0x%lx%08lx\n",(long)(llr>>32),(long)(llr&0xffffffff)); fflush(out); llr = ll_l7ll(l1,l2,l3,l4,l5,l6,l7,ll1,l9); fprintf(out,"->0x%lx%08lx\n",(long)(llr>>32),(long)(llr&0xffffffff)); fflush(out); llr = 0; clear_traces(); av_start_longlong(a,ll_l7ll,&llr); av_long(a,l1); av_long(a,l2); av_long(a,l3); av_long(a,l4); av_long(a,l5); av_long(a,l6); av_long(a,l7); av_longlong(a,ll1); av_long(a,l9); av_call(a); fprintf(out,"->0x%lx%08lx\n",(long)(llr>>32),(long)(llr&0xffffffff)); fflush(out); dr = d_l2d(l1,l2,d2,l9); fprintf(out,"->%g\n",dr); fflush(out); dr = 0.0; clear_traces(); av_start_double(a,d_l2d,&dr); av_long(a,l1); av_long(a,l2); av_double(a,d2); av_long(a,l9); av_call(a); fprintf(out,"->%g\n",dr); fflush(out); dr = d_l3d(l1,l2,l3,d2,l9); fprintf(out,"->%g\n",dr); fflush(out); dr = 0.0; clear_traces(); av_start_double(a,d_l3d,&dr); av_long(a,l1); av_long(a,l2); av_long(a,l3); av_double(a,d2); av_long(a,l9); av_call(a); fprintf(out,"->%g\n",dr); fflush(out); dr = d_l4d(l1,l2,l3,l4,d2,l9); fprintf(out,"->%g\n",dr); fflush(out); dr = 0.0; clear_traces(); av_start_double(a,d_l4d,&dr); av_long(a,l1); av_long(a,l2); av_long(a,l3); av_long(a,l4); av_double(a,d2); av_long(a,l9); av_call(a); fprintf(out,"->%g\n",dr); fflush(out); dr = d_l5d(l1,l2,l3,l4,l5,d2,l9); fprintf(out,"->%g\n",dr); fflush(out); dr = 0.0; clear_traces(); av_start_double(a,d_l5d,&dr); av_long(a,l1); av_long(a,l2); av_long(a,l3); av_long(a,l4); av_long(a,l5); av_double(a,d2); av_long(a,l9); av_call(a); fprintf(out,"->%g\n",dr); fflush(out); dr = d_l6d(l1,l2,l3,l4,l5,l6,d2,l9); fprintf(out,"->%g\n",dr); fflush(out); dr = 0.0; clear_traces(); av_start_double(a,d_l6d,&dr); av_long(a,l1); av_long(a,l2); av_long(a,l3); av_long(a,l4); av_long(a,l5); av_long(a,l6); av_double(a,d2); av_long(a,l9); av_call(a); fprintf(out,"->%g\n",dr); fflush(out); dr = d_l7d(l1,l2,l3,l4,l5,l6,l7,d2,l9); fprintf(out,"->%g\n",dr); fflush(out); dr = 0.0; clear_traces(); av_start_double(a,d_l7d,&dr); av_long(a,l1); av_long(a,l2); av_long(a,l3); av_long(a,l4); av_long(a,l5); av_long(a,l6); av_long(a,l7); av_double(a,d2); av_long(a,l9); av_call(a); fprintf(out,"->%g\n",dr); fflush(out); return; } /* Verify that structs larger than 2 words are really passed by value, not accidentally by reference. */ void by_value_tests (void) { av_alist a; K k; k.l1 = l1; k.l2 = l2; k.l3 = l3; k.l4 = l4; fprintf(out,"by_value:%ld,%ld,%ld,%ld\n",k.l1,k.l2,k.l3,k.l4); fflush(out); clear_traces(); av_start_void(a,v_clobber_K); av_struct(a,K,k); av_call(a); fprintf(out,"by_value:%ld,%ld,%ld,%ld\n",k.l1,k.l2,k.l3,k.l4); fflush(out); } int main (void) { out = stdout; void_tests(); int_tests(); float_tests(); double_tests(); pointer_tests(); mixed_number_tests(); small_structure_return_tests(); structure_tests(); gpargs_boundary_tests(); by_value_tests(); exit(0); } libffcall-2.2/avcall/avcall-ia64.c0000664000000000000000000003453513347755255013627 00000000000000/** Copyright 1993 Bill Triggs Copyright 1995-2017 Bruno Haible This program is free software: you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program. If not, see . **/ /*---------------------------------------------------------------------- !!! THIS ROUTINE MUST BE COMPILED gcc -O !!! Foreign function interface for a Intel IA-64 in little-endian mode with gcc. This calls a C function with an argument list built up using macros defined in avcall.h. IA-64 64-bit Argument Passing Conventions: The argument sequence is mapped linearly on the registers r32,...,r39, and continued on the stack, in [r12+16], [r12+24], ... Items in this sequence are word-aligned. In gcc < 3.0, structures larger than a single word are even two-word-aligned. Integer/pointer arguments are passed in the allocated slots (registers or stack slots). The first 8 float/double arguments are passed in registers f8,...,f15 instead, but their slots are kept allocated. Structure args are passed like multiple integer arguments; except that structures consisting only of floats or only of doubles are passed like multiple float arguments or multiple double arguments, respectively. Integers and pointers are returned in r8, floats and doubles in f8. Structures consisting only of at most 8 floats or only of at most 8 doubles are returned in f8,...,f15. Other than that, structures of size <= 32 bytes are returned in r8,...,r11, as if these were 4 contiguous words in memory. Larger structures are returned in memory; the caller passes the address of the target memory area in r8, and it is returned unmodified in r8. ----------------------------------------------------------------------*/ #include "avcall-internal.h" #define RETURN(TYPE,VAL) (*(TYPE*)l->raddr = (TYPE)(VAL)) register __avword* sret __asm__("r8"); /* structure return pointer */ /*register __avword iret __asm__("r8");*/ register __avword iret2 __asm__("r9"); register __avword iret3 __asm__("r10"); register __avword iret4 __asm__("r11"); /*register float fret __asm__("f8");*/ /*register double dret __asm__("f8");*/ register double farg1 __asm__("f8"); register double farg2 __asm__("f9"); register double farg3 __asm__("f10"); register double farg4 __asm__("f11"); register double farg5 __asm__("f12"); register double farg6 __asm__("f13"); register double farg7 __asm__("f14"); register double farg8 __asm__("f15"); int avcall_call(av_alist* list) { register __avword* sp __asm__("r12"); /* C names for registers */ __av_alist* l = &AV_LIST_INNER(list); __avword* argframe = (sp -= __AV_ALIST_WORDS) + 2; /* make room for argument list */ int arglen = l->aptr - l->args; int farglen = l->faptr - l->fargs; __avword iret; { int i; for (i = 8; i < arglen; i++) /* push function args onto stack */ argframe[i-8] = l->args[i]; } /* struct return address */ if (l->rtype == __AVstruct) sret = l->raddr; /* put max. 8 double args in registers */ if (farglen > 0) { farg1 = l->fargs[0]; if (farglen > 1) { farg2 = l->fargs[1]; if (farglen > 2) { farg3 = l->fargs[2]; if (farglen > 3) { farg4 = l->fargs[3]; if (farglen > 4) { farg5 = l->fargs[4]; if (farglen > 5) { farg6 = l->fargs[5]; if (farglen > 6) { farg7 = l->fargs[6]; if (farglen > 7) farg8 = l->fargs[7]; } } } } } } } /* call function, pass 8 integer and 8 double args in registers */ if (l->rtype == __AVfloat) { *(float*)l->raddr = (*(float(*)())l->func)(l->args[0], l->args[1], l->args[2], l->args[3], l->args[4], l->args[5], l->args[6], l->args[7]); } else if (l->rtype == __AVdouble) { *(double*)l->raddr = (*(double(*)())l->func)(l->args[0], l->args[1], l->args[2], l->args[3], l->args[4], l->args[5], l->args[6], l->args[7]); } else { iret = (*l->func)(l->args[0], l->args[1], l->args[2], l->args[3], l->args[4], l->args[5], l->args[6], l->args[7]); /* save return value */ if (l->rtype == __AVvoid) { } else if (l->rtype == __AVword) { RETURN(__avword, iret); } else if (l->rtype == __AVchar) { RETURN(char, iret); } else if (l->rtype == __AVschar) { RETURN(signed char, iret); } else if (l->rtype == __AVuchar) { RETURN(unsigned char, iret); } else if (l->rtype == __AVshort) { RETURN(short, iret); } else if (l->rtype == __AVushort) { RETURN(unsigned short, iret); } else if (l->rtype == __AVint) { RETURN(int, iret); } else if (l->rtype == __AVuint) { RETURN(unsigned int, iret); } else if (l->rtype == __AVlong || l->rtype == __AVlonglong) { RETURN(long, iret); } else if (l->rtype == __AVulong || l->rtype == __AVulonglong) { RETURN(unsigned long, iret); } else /* see above if (l->rtype == __AVfloat) { } else if (l->rtype == __AVdouble) { } else */ if (l->rtype == __AVvoidp) { RETURN(void*, iret); } else if (l->rtype == __AVstruct) { if (l->flags & __AV_REGISTER_STRUCT_RETURN) { /* Return structs of size <= 32 in registers. */ if (l->rsize > 0 && l->rsize <= 32) { void* raddr = l->raddr; #if 0 /* Unoptimized */ if (l->rsize >= 1) ((unsigned char *)raddr)[0] = (unsigned char)(iret); if (l->rsize >= 2) ((unsigned char *)raddr)[1] = (unsigned char)(iret>>8); if (l->rsize >= 3) ((unsigned char *)raddr)[2] = (unsigned char)(iret>>16); if (l->rsize >= 4) ((unsigned char *)raddr)[3] = (unsigned char)(iret>>24); if (l->rsize >= 5) ((unsigned char *)raddr)[4] = (unsigned char)(iret>>32); if (l->rsize >= 6) ((unsigned char *)raddr)[5] = (unsigned char)(iret>>40); if (l->rsize >= 7) ((unsigned char *)raddr)[6] = (unsigned char)(iret>>48); if (l->rsize >= 8) ((unsigned char *)raddr)[7] = (unsigned char)(iret>>56); if (l->rsize >= 9) { ((unsigned char *)raddr)[8] = (unsigned char)(iret2); if (l->rsize >= 10) ((unsigned char *)raddr)[9] = (unsigned char)(iret2>>8); if (l->rsize >= 11) ((unsigned char *)raddr)[10] = (unsigned char)(iret2>>16); if (l->rsize >= 12) ((unsigned char *)raddr)[11] = (unsigned char)(iret2>>24); if (l->rsize >= 13) ((unsigned char *)raddr)[12] = (unsigned char)(iret2>>32); if (l->rsize >= 14) ((unsigned char *)raddr)[13] = (unsigned char)(iret2>>40); if (l->rsize >= 15) ((unsigned char *)raddr)[14] = (unsigned char)(iret2>>48); if (l->rsize >= 16) ((unsigned char *)raddr)[15] = (unsigned char)(iret2>>56); if (l->rsize >= 17) { ((unsigned char *)raddr)[16] = (unsigned char)(iret3); if (l->rsize >= 18) ((unsigned char *)raddr)[17] = (unsigned char)(iret3>>8); if (l->rsize >= 19) ((unsigned char *)raddr)[18] = (unsigned char)(iret3>>16); if (l->rsize >= 20) ((unsigned char *)raddr)[19] = (unsigned char)(iret3>>24); if (l->rsize >= 21) ((unsigned char *)raddr)[20] = (unsigned char)(iret3>>32); if (l->rsize >= 22) ((unsigned char *)raddr)[21] = (unsigned char)(iret3>>40); if (l->rsize >= 23) ((unsigned char *)raddr)[22] = (unsigned char)(iret3>>48); if (l->rsize >= 24) ((unsigned char *)raddr)[23] = (unsigned char)(iret3>>56); if (l->rsize >= 25) { ((unsigned char *)raddr)[24] = (unsigned char)(iret4); if (l->rsize >= 26) ((unsigned char *)raddr)[25] = (unsigned char)(iret4>>8); if (l->rsize >= 27) ((unsigned char *)raddr)[26] = (unsigned char)(iret4>>16); if (l->rsize >= 28) ((unsigned char *)raddr)[27] = (unsigned char)(iret4>>24); if (l->rsize >= 29) ((unsigned char *)raddr)[28] = (unsigned char)(iret4>>32); if (l->rsize >= 30) ((unsigned char *)raddr)[29] = (unsigned char)(iret4>>40); if (l->rsize >= 31) ((unsigned char *)raddr)[30] = (unsigned char)(iret4>>48); if (l->rsize >= 32) ((unsigned char *)raddr)[31] = (unsigned char)(iret4>>56); } } } #else /* Optimized: fewer conditional jumps, fewer memory accesses */ uintptr_t count = l->rsize; /* > 0, ≤ 4*sizeof(__avword) */ __avword* wordaddr = (__avword*)((uintptr_t)raddr & ~(uintptr_t)(sizeof(__avword)-1)); uintptr_t start_offset = (uintptr_t)raddr & (uintptr_t)(sizeof(__avword)-1); /* ≥ 0, < sizeof(__avword) */ uintptr_t end_offset = start_offset + count; /* > 0, < 5*sizeof(__avword) */ if (count <= sizeof(__avword)) { /* Use iret. */ if (end_offset <= sizeof(__avword)) { /* 0 < end_offset ≤ sizeof(__avword) */ __avword mask0 = ((__avword)2 << (end_offset*8-1)) - ((__avword)1 << (start_offset*8)); wordaddr[0] ^= (wordaddr[0] ^ (iret << (start_offset*8))) & mask0; } else { /* sizeof(__avword) < end_offset < 2*sizeof(__avword), start_offset > 0 */ __avword mask0 = - ((__avword)1 << (start_offset*8)); __avword mask1 = ((__avword)2 << (end_offset*8-sizeof(__avword)*8-1)) - 1; wordaddr[0] ^= (wordaddr[0] ^ (iret << (start_offset*8))) & mask0; wordaddr[1] ^= (wordaddr[1] ^ (iret >> (sizeof(__avword)*8-start_offset*8))) & mask1; } } else if (count <= 2*sizeof(__avword)) { /* Use iret, iret2. */ __avword mask0 = - ((__avword)1 << (start_offset*8)); wordaddr[0] ^= (wordaddr[0] ^ (iret << (start_offset*8))) & mask0; if (end_offset <= 2*sizeof(__avword)) { /* sizeof(__avword) < end_offset ≤ 2*sizeof(__avword) */ __avword mask1 = ((__avword)2 << (end_offset*8-sizeof(__avword)*8-1)) - 1; wordaddr[1] ^= (wordaddr[1] ^ ((iret >> (sizeof(__avword)*4-start_offset*4) >> (sizeof(__avword)*4-start_offset*4)) | (iret2 << (start_offset*8)))) & mask1; } else { /* 2*sizeof(__avword) < end_offset < 3*sizeof(__avword), start_offset > 0 */ __avword mask2 = ((__avword)2 << (end_offset*8-2*sizeof(__avword)*8-1)) - 1; wordaddr[1] = (iret >> (sizeof(__avword)*8-start_offset*8)) | (iret2 << (start_offset*8)); wordaddr[2] ^= (wordaddr[2] ^ (iret2 >> (sizeof(__avword)*8-start_offset*8))) & mask2; } } else if (count <= 3*sizeof(__avword)) { /* Use iret, iret2, iret3. */ __avword mask0 = - ((__avword)1 << (start_offset*8)); wordaddr[0] ^= (wordaddr[0] ^ (iret << (start_offset*8))) & mask0; if (end_offset <= 3*sizeof(__avword)) { /* 2*sizeof(__avword) < end_offset ≤ 3*sizeof(__avword) */ __avword mask2 = ((__avword)2 << (end_offset*8-sizeof(__avword)*8-1)) - 1; wordaddr[1] = (iret >> (sizeof(__avword)*4-start_offset*4) >> (sizeof(__avword)*4-start_offset*4)) | (iret2 << (start_offset*8)); wordaddr[2] ^= (wordaddr[2] ^ ((iret2 >> (sizeof(__avword)*4-start_offset*4) >> (sizeof(__avword)*4-start_offset*4)) | (iret3 << (start_offset*8)))) & mask2; } else { /* 3*sizeof(__avword) < end_offset < 4*sizeof(__avword), start_offset > 0 */ __avword mask3 = ((__avword)2 << (end_offset*8-2*sizeof(__avword)*8-1)) - 1; wordaddr[1] = (iret >> (sizeof(__avword)*8-start_offset*8)) | (iret2 << (start_offset*8)); wordaddr[2] = (iret2 >> (sizeof(__avword)*8-start_offset*8)) | (iret3 << (start_offset*8)); wordaddr[3] ^= (wordaddr[3] ^ (iret3 >> (sizeof(__avword)*8-start_offset*8))) & mask3; } } else { /* Use iret, iret2, iret3, iret4. */ __avword mask0 = - ((__avword)1 << (start_offset*8)); wordaddr[0] ^= (wordaddr[0] ^ (iret << (start_offset*8))) & mask0; if (end_offset <= 4*sizeof(__avword)) { /* 3*sizeof(__avword) < end_offset ≤ 4*sizeof(__avword) */ __avword mask3 = ((__avword)2 << (end_offset*8-sizeof(__avword)*8-1)) - 1; wordaddr[1] = (iret >> (sizeof(__avword)*4-start_offset*4) >> (sizeof(__avword)*4-start_offset*4)) | (iret2 << (start_offset*8)); wordaddr[2] = (iret2 >> (sizeof(__avword)*4-start_offset*4) >> (sizeof(__avword)*4-start_offset*4)) | (iret3 << (start_offset*8)); wordaddr[3] ^= (wordaddr[3] ^ ((iret >> (sizeof(__avword)*4-start_offset*4) >> (sizeof(__avword)*4-start_offset*4)) | (iret2 << (start_offset*8)))) & mask3; } else { /* 4*sizeof(__avword) < end_offset < 5*sizeof(__avword), start_offset > 0 */ __avword mask4 = ((__avword)2 << (end_offset*8-2*sizeof(__avword)*8-1)) - 1; wordaddr[1] = (iret >> (sizeof(__avword)*8-start_offset*8)) | (iret2 << (start_offset*8)); wordaddr[2] = (iret2 >> (sizeof(__avword)*8-start_offset*8)) | (iret3 << (start_offset*8)); wordaddr[3] = (iret3 >> (sizeof(__avword)*8-start_offset*8)) | (iret4 << (start_offset*8)); wordaddr[4] ^= (wordaddr[4] ^ (iret4 >> (sizeof(__avword)*8-start_offset*8))) & mask4; } } #endif } } } } return 0; } libffcall-2.2/avcall/avcall.h0000664000000000000000000004742113530336773013063 00000000000000/* * Copyright 1993-1995 Bill Triggs * Copyright 1995-2019 Bruno Haible * * This program is free software: you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by * the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program. If not, see . */ #ifndef _AVCALL_H #define _AVCALL_H /*---------------------------------------------------------------------- av_call() foreign function interface. Varargs-style macros to build a C argument list incrementally and call a function on it. ----------------------------------------------------------------------*/ #include #include "ffcall-version.h" #include "ffcall-abi.h" /* Max # words in argument-list and temporary structure storage. * If defined(__hppa__) && !defined(__hppa64__), this must be a multiple of 2. */ #ifndef __AV_ALIST_WORDS #define __AV_ALIST_WORDS 256 #endif /* Determine whether the current ABI is LLP64 ('long' = 32-bit, 'long long' = 'void*' = 64-bit). */ #if defined(__x86_64__) && defined(_WIN32) && !defined(__CYGWIN__) #define __AV_LLP64 1 #endif /* Determine the alignment of a type at compile time. */ #if defined(__GNUC__) || defined(__IBM__ALIGNOF__) #define __AV_alignof __alignof__ #elif defined(__cplusplus) template struct __AV_alignof_helper { char __slot1; type __slot2; }; #define __AV_alignof(type) offsetof (__AV_alignof_helper, __slot2) #elif defined(__mips__) || defined(__mipsn32__) || defined(__mips64__) /* SGI compiler */ #define __AV_alignof __builtin_alignof #else #define __AV_offsetof(type,ident) ((unsigned long)&(((type*)0)->ident)) #define __AV_alignof(type) __AV_offsetof(struct { char __slot1; type __slot2; }, __slot2) #endif #ifdef __cplusplus extern "C" { #endif /* C builtin types. */ #if defined(__mipsn32__) || defined(__x86_64_x32__) || defined(__AV_LLP64) typedef long long __avword; #else typedef long __avword; #endif enum __AVtype { __AVword, __AVvoid, __AVchar, __AVschar, __AVuchar, __AVshort, __AVushort, __AVint, __AVuint, __AVlong, __AVulong, __AVlonglong, __AVulonglong, __AVfloat, __AVdouble, __AVvoidp, __AVstruct }; enum __AV_alist_flags { /* how to return structs */ /* There are basically 3 ways to return structs: * a. The called function returns a pointer to static data. Not reentrant. * Not supported any more. * b. The caller passes the return structure address in a dedicated register * or as a first (or last), invisible argument. The called function stores * its result there. * c. Like b, and the called function also returns the return structure * address in the return value register. (This is not very distinguishable * from b.) * Independently of this, * r. small structures (<= 4 or <= 8 bytes) may be returned in the return * value register(s), or * m. even small structures are passed in memory. */ /* gcc-2.6.3 employs the following strategy: * - If PCC_STATIC_STRUCT_RETURN is defined in the machine description * it uses method a, else method c. * - If flag_pcc_struct_return is set (either by -fpcc-struct-return or if * DEFAULT_PCC_STRUCT_RETURN is defined to 1 in the machine description) * it uses method m, else (either by -freg-struct-return or if * DEFAULT_PCC_STRUCT_RETURN is defined to 0 in the machine description) * method r. */ __AV_SMALL_STRUCT_RETURN = 1<<1, /* r: special case for small structs */ __AV_GCC_STRUCT_RETURN = 1<<2, /* consider 8 byte structs as small */ #if defined(__sparc__) && !defined(__sparc64__) __AV_SUNCC_STRUCT_RETURN = 1<<3, __AV_SUNPROCC_STRUCT_RETURN = 1<<4, #endif #if defined(__i386__) __AV_MSVC_STRUCT_RETURN = 1<<4, #endif /* the default way to return structs */ /* This choice here is based on the assumption that the function you are * going to call has been compiled with the same compiler you are using to * include this file. * If you want to call functions with another struct returning convention, * just #define __AV_STRUCT_RETURN ... * before or after #including . */ #ifndef __AV_STRUCT_RETURN __AV_STRUCT_RETURN = #if defined(__sparc__) && !defined(__sparc64__) && defined(__sun) && (defined(__SUNPRO_C) || defined(__SUNPRO_CC)) /* SUNWspro cc or CC */ __AV_SUNPROCC_STRUCT_RETURN, #else #if (defined(__i386__) && (defined(_WIN32) || defined(__CYGWIN__) || (defined(__MACH__) && defined(__APPLE__)) || defined(__FreeBSD__) || defined(__DragonFly__) || defined(__OpenBSD__))) || defined(__m68k__) || defined(__mipsn32__) || defined(__mips64__) || defined(__sparc64__) || defined(__hppa__) || defined(__hppa64__) || defined(__arm__) || defined(__armhf__) || defined(__arm64__) || defined(__powerpc64_elfv2__) || defined(__ia64__) || defined(__x86_64__) || defined(__riscv32__) || defined(__riscv64__) __AV_SMALL_STRUCT_RETURN | #endif #if defined(__GNUC__) && !((defined(__mipsn32__) || defined(__mips64__)) && ((__GNUC__ == 3 && __GNUC_MINOR__ >= 4) || (__GNUC__ > 3))) __AV_GCC_STRUCT_RETURN | #endif #if defined(__i386__) && defined(_WIN32) && !defined(__CYGWIN__) /* native Windows */ __AV_MSVC_STRUCT_RETURN | #endif 0, #endif #endif /* how to return floats */ #if defined(__m68k__) || (defined(__sparc__) && !defined(__sparc64__)) __AV_SUNCC_FLOAT_RETURN = 1<<5, #endif #if defined(__m68k__) __AV_FREG_FLOAT_RETURN = 1<<6, #endif /* the default way to return floats */ /* This choice here is based on the assumption that the function you are * going to call has been compiled with the same compiler you are using to * include this file. * If you want to call functions with another float returning convention, * just #define __AV_FLOAT_RETURN ... * before or after #including . */ #ifndef __AV_FLOAT_RETURN #if (defined(__m68k__) || (defined(__sparc__) && !defined(__sparc64__))) && !defined(__GNUC__) && defined(__sun) && !(defined(__SUNPRO_C) || defined(__SUNPRO_CC)) /* Sun cc or CC */ __AV_FLOAT_RETURN = __AV_SUNCC_FLOAT_RETURN, #elif defined(__m68k__) __AV_FLOAT_RETURN = __AV_FREG_FLOAT_RETURN, #else __AV_FLOAT_RETURN = 0, #endif #endif /* how to pass structs */ #if defined(__mips__) || defined(__mipsn32__) || defined(__mips64__) __AV_SGICC_STRUCT_ARGS = 1<<7, #endif #if defined(__powerpc__) || defined(__powerpc64__) __AV_AIXCC_STRUCT_ARGS = 1<<7, #endif #if defined(__ia64__) __AV_OLDGCC_STRUCT_ARGS = 1<<7, #endif /* the default way to pass structs */ /* This choice here is based on the assumption that the function you are * going to call has been compiled with the same compiler you are using to * include this file. * If you want to call functions with another struct passing convention, * just #define __AV_STRUCT_ARGS ... * before or after #including . */ #ifndef __AV_STRUCT_ARGS #if (defined(__mips__) && !defined(__mipsn32__) && !defined(__mips64__)) && !defined(__GNUC__) /* SGI mips cc */ __AV_STRUCT_ARGS = __AV_SGICC_STRUCT_ARGS, #else #if (defined(__mipsn32__) || defined(__mips64__)) && (!defined(__GNUC__) || (__GNUC__ == 3 && __GNUC_MINOR__ >= 4) || (__GNUC__ > 3)) /* SGI mips cc or gcc >= 3.4 */ __AV_STRUCT_ARGS = __AV_SGICC_STRUCT_ARGS, #else #if defined(__powerpc__) && !defined(__powerpc64__) && defined(_AIX) && !defined(__GNUC__) /* AIX 32-bit cc, xlc */ __AV_STRUCT_ARGS = __AV_AIXCC_STRUCT_ARGS, #else #if defined(__powerpc64__) && defined(_AIX) /* AIX 64-bit cc, xlc, gcc */ __AV_STRUCT_ARGS = __AV_AIXCC_STRUCT_ARGS, #else #if defined(__ia64__) && !(defined(__GNUC__) && (__GNUC__ >= 3)) __AV_STRUCT_ARGS = __AV_OLDGCC_STRUCT_ARGS, #else __AV_STRUCT_ARGS = 0, #endif #endif #endif #endif #endif #endif /* how to pass floats */ /* ANSI C compilers and GNU gcc pass floats as floats. * K&R C compilers pass floats as doubles. We don't support them any more. */ #if defined(__powerpc64__) __AV_AIXCC_FLOAT_ARGS = 1<<8, /* pass floats in the low 4 bytes of an 8-bytes word */ #endif /* the default way to pass floats */ /* This choice here is based on the assumption that the function you are * going to call has been compiled with the same compiler you are using to * include this file. * If you want to call functions with another float passing convention, * just #define __AV_FLOAT_ARGS ... * before or after #including . */ #ifndef __AV_FLOAT_ARGS #if defined(__powerpc64__) && defined(_AIX) && !defined(__GNUC__) /* AIX 64-bit xlc */ __AV_FLOAT_ARGS = __AV_AIXCC_FLOAT_ARGS, #else __AV_FLOAT_ARGS = 0, #endif #endif /* how to pass and return small integer arguments */ __AV_ANSI_INTEGERS = 0, /* no promotions */ __AV_TRADITIONAL_INTEGERS = 0, /* promote [u]char, [u]short to [u]int */ /* Fortunately these two methods are compatible. Our macros work with both. */ /* stack cleanup policy */ __AV_CDECL_CLEANUP = 0, /* caller pops args after return */ __AV_STDCALL_CLEANUP = 0, /* callee pops args before return */ /* currently only supported on __i386__ */ #ifndef __AV_CLEANUP __AV_CLEANUP = __AV_CDECL_CLEANUP, #endif /* These are for internal use only */ #if defined(__i386__) || defined(__m68k__) || defined(__mipsn32__) || defined(__mips64__) || defined(__sparc64__) || defined(__alpha__) || defined(__hppa64__) || defined(__arm__) || defined(__armhf__) || defined(__arm64__) || defined(__powerpc__) || defined(__powerpc64__) || defined(__ia64__) || defined(__x86_64__) || (defined(__s390__) && !defined(__s390x__)) || defined(__riscv64__) __AV_REGISTER_STRUCT_RETURN = 1<<9, #endif __AV_flag_for_broken_compilers_that_dont_like_trailing_commas }; #ifdef _AVCALL_INTERNAL_H #include "avcall-alist.h" #endif /* An upper bound for sizeof(__av_alist). The total size of the __av_alist fields, ignoring alignment of fields, varies from 40 bytes (for __i386__, __m68k__, __sparc__, __hppa__, __arm__) to 232 bytes (for __arm64__). */ #define __AV_ALIST_SIZE_BOUND 256 typedef struct { /* First part: Fixed size __av_alist. */ union { char _av_m_room[__AV_ALIST_SIZE_BOUND]; #ifdef _AVCALL_INTERNAL_H __av_alist _av_m_alist; #endif /* GNU clisp pokes in internals of the alist! When used by GNU clisp, assume a C compiler that supports anonymous unions (GCC or an ISO C 11 compiler). */ #ifdef LISPFUN int flags; #endif /* For alignment. */ long align1; double align2; long long align3; long double align4; } #ifndef LISPFUN _av_alist_head #endif ; /* Second part: An array whose size depends on __AV_ALIST_WORDS. */ union { __avword _av_m_args[__AV_ALIST_WORDS]; /* For alignment. */ long align1; double align2; long long align3; long double align4; } _av_alist_flexarray; } av_alist; /* Delayed overflow detection */ extern int avcall_overflown (av_alist* /* LIST */); #define av_overflown(LIST) avcall_overflown(&(LIST)) /* * av_start_ macros which specify the return type */ #define __AV_START_FLAGS \ __AV_STRUCT_RETURN | __AV_FLOAT_RETURN | __AV_STRUCT_ARGS | __AV_FLOAT_ARGS | __AV_CLEANUP extern void avcall_start (av_alist* /* LIST */, __avword* /* LIST_ARGS */, __avword* /* LIST_ARGS_END */, __avword(* /* FUNC */)(), void* /* RADDR */, int /* RETTYPE */, int /* FLAGS */); #define av_start_void(LIST,FUNC) \ avcall_start(&(LIST),(LIST)._av_alist_flexarray._av_m_args,&(LIST)._av_alist_flexarray._av_m_args[__AV_ALIST_WORDS],(__avword(*)())(FUNC),0, __AVvoid, __AV_START_FLAGS) #define av_start_char(LIST,FUNC,RADDR) \ avcall_start(&(LIST),(LIST)._av_alist_flexarray._av_m_args,&(LIST)._av_alist_flexarray._av_m_args[__AV_ALIST_WORDS],(__avword(*)())(FUNC),RADDR,__AVchar, __AV_START_FLAGS) #define av_start_schar(LIST,FUNC,RADDR) \ avcall_start(&(LIST),(LIST)._av_alist_flexarray._av_m_args,&(LIST)._av_alist_flexarray._av_m_args[__AV_ALIST_WORDS],(__avword(*)())(FUNC),RADDR,__AVschar, __AV_START_FLAGS) #define av_start_uchar(LIST,FUNC,RADDR) \ avcall_start(&(LIST),(LIST)._av_alist_flexarray._av_m_args,&(LIST)._av_alist_flexarray._av_m_args[__AV_ALIST_WORDS],(__avword(*)())(FUNC),RADDR,__AVuchar, __AV_START_FLAGS) #define av_start_short(LIST,FUNC,RADDR) \ avcall_start(&(LIST),(LIST)._av_alist_flexarray._av_m_args,&(LIST)._av_alist_flexarray._av_m_args[__AV_ALIST_WORDS],(__avword(*)())(FUNC),RADDR,__AVshort, __AV_START_FLAGS) #define av_start_ushort(LIST,FUNC,RADDR) \ avcall_start(&(LIST),(LIST)._av_alist_flexarray._av_m_args,&(LIST)._av_alist_flexarray._av_m_args[__AV_ALIST_WORDS],(__avword(*)())(FUNC),RADDR,__AVushort, __AV_START_FLAGS) #define av_start_int(LIST,FUNC,RADDR) \ avcall_start(&(LIST),(LIST)._av_alist_flexarray._av_m_args,&(LIST)._av_alist_flexarray._av_m_args[__AV_ALIST_WORDS],(__avword(*)())(FUNC),RADDR,__AVint, __AV_START_FLAGS) #define av_start_uint(LIST,FUNC,RADDR) \ avcall_start(&(LIST),(LIST)._av_alist_flexarray._av_m_args,&(LIST)._av_alist_flexarray._av_m_args[__AV_ALIST_WORDS],(__avword(*)())(FUNC),RADDR,__AVuint, __AV_START_FLAGS) #define av_start_long(LIST,FUNC,RADDR) \ avcall_start(&(LIST),(LIST)._av_alist_flexarray._av_m_args,&(LIST)._av_alist_flexarray._av_m_args[__AV_ALIST_WORDS],(__avword(*)())(FUNC),RADDR,__AVlong, __AV_START_FLAGS) #define av_start_ulong(LIST,FUNC,RADDR) \ avcall_start(&(LIST),(LIST)._av_alist_flexarray._av_m_args,&(LIST)._av_alist_flexarray._av_m_args[__AV_ALIST_WORDS],(__avword(*)())(FUNC),RADDR,__AVulong, __AV_START_FLAGS) #define av_start_longlong(LIST,FUNC,RADDR) \ avcall_start(&(LIST),(LIST)._av_alist_flexarray._av_m_args,&(LIST)._av_alist_flexarray._av_m_args[__AV_ALIST_WORDS],(__avword(*)())(FUNC),RADDR,__AVlonglong, __AV_START_FLAGS) #define av_start_ulonglong(LIST,FUNC,RADDR) \ avcall_start(&(LIST),(LIST)._av_alist_flexarray._av_m_args,&(LIST)._av_alist_flexarray._av_m_args[__AV_ALIST_WORDS],(__avword(*)())(FUNC),RADDR,__AVulonglong,__AV_START_FLAGS) #define av_start_float(LIST,FUNC,RADDR) \ avcall_start(&(LIST),(LIST)._av_alist_flexarray._av_m_args,&(LIST)._av_alist_flexarray._av_m_args[__AV_ALIST_WORDS],(__avword(*)())(FUNC),RADDR,__AVfloat, __AV_START_FLAGS) #define av_start_double(LIST,FUNC,RADDR) \ avcall_start(&(LIST),(LIST)._av_alist_flexarray._av_m_args,&(LIST)._av_alist_flexarray._av_m_args[__AV_ALIST_WORDS],(__avword(*)())(FUNC),RADDR,__AVdouble, __AV_START_FLAGS) #define av_start_ptr(LIST,FUNC,TYPE,RADDR) \ avcall_start(&(LIST),(LIST)._av_alist_flexarray._av_m_args,&(LIST)._av_alist_flexarray._av_m_args[__AV_ALIST_WORDS],(__avword(*)())(FUNC),RADDR,__AVvoidp, __AV_START_FLAGS) extern void avcall_start_struct (av_alist* /* LIST */, __avword* /* LIST_ARGS */, __avword* /* LIST_ARGS_END */, __avword(* /* FUNC */)(), size_t /* TYPE_SIZE */, int /* TYPE_SPLITTABLE */, void* /* RADDR */, int /* FLAGS */); #define av_start_struct(LIST,FUNC,TYPE,TYPE_SPLITTABLE,RADDR) \ _av_start_struct(LIST,FUNC,sizeof(TYPE),TYPE_SPLITTABLE,RADDR) /* Undocumented, but used by GNU clisp. */ #define _av_start_struct(LIST,FUNC,TYPE_SIZE,TYPE_SPLITTABLE,RADDR) \ avcall_start_struct(&(LIST),(LIST)._av_alist_flexarray._av_m_args,&(LIST)._av_alist_flexarray._av_m_args[__AV_ALIST_WORDS],(__avword(*)())(FUNC),TYPE_SIZE,TYPE_SPLITTABLE,RADDR,__AV_START_FLAGS) /* * av_ macros which specify the argument and its type */ /* integer argument types */ extern int avcall_arg_long (av_alist* /* LIST */, long /* VAL */); extern int avcall_arg_ulong (av_alist* /* LIST */, unsigned long /* VAL */); #define av_char(LIST,VAL) avcall_arg_long(&(LIST),(char)(VAL)) #define av_schar(LIST,VAL) avcall_arg_long(&(LIST),(signed char)(VAL)) #define av_short(LIST,VAL) avcall_arg_long(&(LIST),(short)(VAL)) #define av_int(LIST,VAL) avcall_arg_long(&(LIST),(int)(VAL)) #define av_long(LIST,VAL) avcall_arg_long(&(LIST),(long)(VAL)) #define av_uchar(LIST,VAL) avcall_arg_ulong(&(LIST),(unsigned char)(VAL)) #define av_ushort(LIST,VAL) avcall_arg_ulong(&(LIST),(unsigned short)(VAL)) #define av_uint(LIST,VAL) avcall_arg_ulong(&(LIST),(unsigned int)(VAL)) #define av_ulong(LIST,VAL) avcall_arg_ulong(&(LIST),(unsigned long)(VAL)) extern int avcall_arg_ptr (av_alist* /* LIST */, void* /* VAL */); #define av_ptr(LIST,TYPE,VAL) avcall_arg_ptr(&(LIST),(TYPE)(VAL)) extern int avcall_arg_longlong (av_alist* /* LIST */, long long /* VAL */); extern int avcall_arg_ulonglong (av_alist* /* LIST */, unsigned long long /* VAL */); #define av_longlong(LIST,VAL) avcall_arg_longlong(&(LIST),VAL) #define av_ulonglong(LIST,VAL) avcall_arg_ulonglong(&(LIST),VAL) /* floating-point argument types */ extern int avcall_arg_float (av_alist* /* LIST */, float /* VAL */); #define av_float(LIST,VAL) avcall_arg_float(&(LIST),VAL) extern int avcall_arg_double (av_alist* /* LIST */, double /* VAL */); #define av_double(LIST,VAL) avcall_arg_double(&(LIST),VAL) /* * structure argument types */ extern int avcall_arg_struct (av_alist* /* LIST */, size_t /* TYPE_SIZE */, size_t /* TYPE_ALIGN */, const void* /* VAL_ADDR */); #define av_struct(LIST,TYPE,VAL) \ avcall_arg_struct(&(LIST),sizeof(TYPE),__AV_alignof(TYPE),&(VAL)) /* _av_struct() is like av_struct(), except that you pass the type's size and alignment * and the value's address instead of the type and the value themselves. * Undocumented, but used by GNU clisp. */ #define _av_struct(LIST,TYPE_SIZE,TYPE_ALIGN,VAL_ADDR) \ avcall_arg_struct(&(LIST),TYPE_SIZE,TYPE_ALIGN,VAL_ADDR) /* * calling the function */ extern int avcall_call (av_alist* /* LIST */); #define av_call(LIST) avcall_call(&(LIST)) /* Determine whether a struct type is word-splittable, i.e. whether each of * its components fit into a register. * The entire computation is done at compile time. */ #define av_word_splittable_1(slot1) \ (__av_offset1(slot1)/sizeof(__avword) == (__av_offset1(slot1)+sizeof(slot1)-1)/sizeof(__avword)) #define av_word_splittable_2(slot1,slot2) \ ((__av_offset1(slot1)/sizeof(__avword) == (__av_offset1(slot1)+sizeof(slot1)-1)/sizeof(__avword)) \ && (__av_offset2(slot1,slot2)/sizeof(__avword) == (__av_offset2(slot1,slot2)+sizeof(slot2)-1)/sizeof(__avword)) \ ) #define av_word_splittable_3(slot1,slot2,slot3) \ ((__av_offset1(slot1)/sizeof(__avword) == (__av_offset1(slot1)+sizeof(slot1)-1)/sizeof(__avword)) \ && (__av_offset2(slot1,slot2)/sizeof(__avword) == (__av_offset2(slot1,slot2)+sizeof(slot2)-1)/sizeof(__avword)) \ && (__av_offset3(slot1,slot2,slot3)/sizeof(__avword) == (__av_offset3(slot1,slot2,slot3)+sizeof(slot3)-1)/sizeof(__avword)) \ ) #define av_word_splittable_4(slot1,slot2,slot3,slot4) \ ((__av_offset1(slot1)/sizeof(__avword) == (__av_offset1(slot1)+sizeof(slot1)-1)/sizeof(__avword)) \ && (__av_offset2(slot1,slot2)/sizeof(__avword) == (__av_offset2(slot1,slot2)+sizeof(slot2)-1)/sizeof(__avword)) \ && (__av_offset3(slot1,slot2,slot3)/sizeof(__avword) == (__av_offset3(slot1,slot2,slot3)+sizeof(slot3)-1)/sizeof(__avword)) \ && (__av_offset4(slot1,slot2,slot3,slot4)/sizeof(__avword) == (__av_offset4(slot1,slot2,slot3,slot4)+sizeof(slot4)-1)/sizeof(__avword)) \ ) #define __av_offset1(slot1) \ 0 #define __av_offset2(slot1,slot2) \ ((__av_offset1(slot1)+sizeof(slot1)+__AV_alignof(slot2)-1) & -(long)__AV_alignof(slot2)) #define __av_offset3(slot1,slot2,slot3) \ ((__av_offset2(slot1,slot2)+sizeof(slot2)+__AV_alignof(slot3)-1) & -(long)__AV_alignof(slot3)) #define __av_offset4(slot1,slot2,slot3,slot4) \ ((__av_offset3(slot1,slot2,slot3)+sizeof(slot3)+__AV_alignof(slot4)-1) & -(long)__AV_alignof(slot4)) #ifdef __cplusplus } #endif #endif /* _AVCALL_H */ libffcall-2.2/avcall/avcall-mipsel-linux.s0000664000000000000000000001073413530357105015507 00000000000000 .file 1 "avcall-mips.c" .section .mdebug.abi32 .previous .nan legacy .module fp=xx .module nooddspreg .abicalls .text .align 2 .globl avcall_call .set nomips16 .set nomicromips .ent avcall_call .type avcall_call, @function avcall_call: .frame $fp,40,$31 # vars= 0, regs= 3/0, args= 16, gp= 8 .mask 0xc0010000,-4 .fmask 0x00000000,0 lw $6,40($4) lw $5,20($4) lw $8,24($4) addiu $sp,$sp,-40 andi $2,$6,0x1 sw $fp,32($sp) sw $16,28($sp) move $fp,$sp sw $31,36($sp) move $16,$4 addiu $sp,$sp,-1032 subu $4,$5,$8 move $3,$sp .set noreorder .set nomacro beq $2,$0,$L2 sra $4,$4,2 .set macro .set reorder #APP # 76 "avcall-mips.c" 1 l.s $f12,48($16) # 0 "" 2 #NO_APP $L2: lw $2,44($16) andi $7,$2,0x1 .set noreorder .set nomacro beql $7,$0,$L55 andi $6,$6,0x2 .set macro .set reorder #APP # 78 "avcall-mips.c" 1 l.d $f12,56($16) # 0 "" 2 #NO_APP andi $6,$6,0x2 $L55: .set noreorder .set nomacro beql $6,$0,$L56 andi $2,$2,0x2 .set macro .set reorder #APP # 80 "avcall-mips.c" 1 l.s $f14,52($16) # 0 "" 2 #NO_APP andi $2,$2,0x2 $L56: .set noreorder .set nomacro beql $2,$0,$L57 slt $4,$4,5 .set macro .set reorder #APP # 82 "avcall-mips.c" 1 l.d $f14,64($16) # 0 "" 2 #NO_APP slt $4,$4,5 $L57: addiu $2,$8,16 .set noreorder .set nomacro bne $4,$0,$L10 addiu $3,$3,16 .set macro .set reorder $L37: lw $4,0($2) addiu $3,$3,4 addiu $2,$2,4 .set noreorder .set nomacro bne $5,$2,$L37 sw $4,-4($3) .set macro .set reorder $L10: lw $5,4($8) lw $4,0($8) lw $25,4($16) lw $7,12($8) .set noreorder .set nomacro jalr $25 lw $6,8($8) .set macro .set reorder lw $4,12($16) li $5,1 # 0x1 .set noreorder .set nomacro beql $4,$5,$L58 move $sp,$fp .set macro .set reorder .set noreorder .set nomacro beq $4,$0,$L46 li $5,2 # 0x2 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,$L49 li $5,3 # 0x3 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,$L49 li $5,4 # 0x4 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,$L49 li $5,5 # 0x5 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,$L50 li $5,6 # 0x6 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,$L50 li $5,7 # 0x7 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,$L46 li $5,8 # 0x8 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,$L46 li $5,9 # 0x9 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,$L46 li $5,10 # 0xa .set macro .set reorder .set noreorder .set nomacro beq $4,$5,$L46 addiu $5,$4,-11 .set macro .set reorder sltu $5,$5,2 .set noreorder .set nomacro bnel $5,$0,$L52 lw $4,8($16) .set macro .set reorder li $3,13 # 0xd .set noreorder .set nomacro beq $4,$3,$L53 li $3,14 # 0xe .set macro .set reorder .set noreorder .set nomacro beq $4,$3,$L54 li $3,15 # 0xf .set macro .set reorder .set noreorder .set nomacro beq $4,$3,$L46 li $3,16 # 0x10 .set macro .set reorder .set noreorder .set nomacro bnel $4,$3,$L58 move $sp,$fp .set macro .set reorder lw $3,0($16) andi $3,$3,0x2 .set noreorder .set nomacro beq $3,$0,$L7 li $4,1 # 0x1 .set macro .set reorder lw $3,16($16) .set noreorder .set nomacro beq $3,$4,$L49 li $4,2 # 0x2 .set macro .set reorder .set noreorder .set nomacro beq $3,$4,$L50 li $4,4 # 0x4 .set macro .set reorder .set noreorder .set nomacro beql $3,$4,$L59 lw $3,8($16) .set macro .set reorder $L7: move $sp,$fp $L58: lw $31,36($sp) lw $fp,32($sp) lw $16,28($sp) move $2,$0 .set noreorder .set nomacro j $31 addiu $sp,$sp,40 .set macro .set reorder $L46: lw $3,8($16) $L59: sw $2,0($3) move $sp,$fp lw $31,36($sp) lw $fp,32($sp) lw $16,28($sp) move $2,$0 .set noreorder .set nomacro j $31 addiu $sp,$sp,40 .set macro .set reorder $L49: lw $3,8($16) sb $2,0($3) move $sp,$fp lw $31,36($sp) lw $fp,32($sp) lw $16,28($sp) move $2,$0 .set noreorder .set nomacro j $31 addiu $sp,$sp,40 .set macro .set reorder $L50: lw $3,8($16) .set noreorder .set nomacro b $L7 sh $2,0($3) .set macro .set reorder $L53: lw $2,8($16) .set noreorder .set nomacro b $L7 swc1 $f0,0($2) .set macro .set reorder $L52: sw $2,0($4) .set noreorder .set nomacro b $L7 sw $3,4($4) .set macro .set reorder $L54: lw $2,8($16) .set noreorder .set nomacro b $L7 sdc1 $f0,0($2) .set macro .set reorder .end avcall_call .size avcall_call, .-avcall_call .ident "GCC: (GNU) 5.4.0" libffcall-2.2/avcall/avcall-riscv64.c0000664000000000000000000003436713526636613014362 00000000000000/** Copyright 1993 Bill Triggs Copyright 1995-2019 Bruno Haible This program is free software: you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program. If not, see . **/ /*---------------------------------------------------------------------- Foreign function interface for a Linux riscv64 with LP64 ABI. This calls a C function with an argument list built up using macros defined in avcall.h. RISC-V Argument Passing Conventions are documented in https://people.eecs.berkeley.edu/~krste/papers/riscv-spec-v2.1.pdf chapter 20. ----------------------------------------------------------------------*/ #include "avcall-internal.h" #define RETURN(TYPE,VAL) (*(TYPE*)l->raddr = (TYPE)(VAL)) register __avword iarg1 __asm__("a0"); register __avword iarg2 __asm__("a1"); register __avword iarg3 __asm__("a2"); register __avword iarg4 __asm__("a3"); register __avword iarg5 __asm__("a4"); register __avword iarg6 __asm__("a5"); register __avword iarg7 __asm__("a6"); register __avword iarg8 __asm__("a7"); register float farg1 __asm__("fa0"); register float farg2 __asm__("fa1"); register float farg3 __asm__("fa2"); register float farg4 __asm__("fa3"); register float farg5 __asm__("fa4"); register float farg6 __asm__("fa5"); register float farg7 __asm__("fa6"); register float farg8 __asm__("fa7"); register double darg1 __asm__("fa0"); register double darg2 __asm__("fa1"); register double darg3 __asm__("fa2"); register double darg4 __asm__("fa3"); register double darg5 __asm__("fa4"); register double darg6 __asm__("fa5"); register double darg7 __asm__("fa6"); register double darg8 __asm__("fa7"); int avcall_call(av_alist* list) { register __avword iretreg __asm__("a0"); register __avword iret2reg __asm__("a1"); register double dret __asm__("fa0"); __av_alist* l = &AV_LIST_INNER(list); __avword* argframe = __builtin_alloca(__AV_ALIST_WORDS * sizeof(__avword)); /* make room for argument list */ int arglen = l->aptr - l->args; unsigned int fanum = l->fanum; { int i; for (i = 8; i < arglen; i++) /* push function args onto stack */ argframe[i-8] = l->args[i]; } /* Put up to 8 integer args into registers. */ if (arglen >= 1) { iarg1 = l->args[0]; if (arglen >= 2) { iarg2 = l->args[1]; if (arglen >= 3) { iarg3 = l->args[2]; if (arglen >= 4) { iarg4 = l->args[3]; if (arglen >= 5) { iarg5 = l->args[4]; if (arglen >= 6) { iarg6 = l->args[5]; if (arglen >= 7) { iarg7 = l->args[6]; if (arglen >= 8) { iarg8 = l->args[7]; } } } } } } } } /* Put upto 8 floating-point args into registers. */ if (fanum >= 1) { if (l->darg_mask & (1 << 0)) darg1 = l->dargs[0]; else if (l->farg_mask & (1 << 0)) farg1 = l->fargs[0]; if (fanum >= 2) { if (l->darg_mask & (1 << 1)) darg2 = l->dargs[1]; else if (l->farg_mask & (1 << 1)) farg2 = l->fargs[1]; if (fanum >= 3) { if (l->darg_mask & (1 << 2)) darg3 = l->dargs[2]; else if (l->farg_mask & (1 << 2)) farg3 = l->fargs[2]; if (fanum >= 4) { if (l->darg_mask & (1 << 3)) darg4 = l->dargs[3]; else if (l->farg_mask & (1 << 3)) farg4 = l->fargs[3]; if (fanum >= 5) { if (l->darg_mask & (1 << 4)) darg5 = l->dargs[4]; else if (l->farg_mask & (1 << 4)) farg5 = l->fargs[4]; if (fanum >= 6) { if (l->darg_mask & (1 << 5)) darg6 = l->dargs[5]; else if (l->farg_mask & (1 << 5)) farg6 = l->fargs[5]; if (fanum >= 7) { if (l->darg_mask & (1 << 6)) darg7 = l->dargs[6]; else if (l->farg_mask & (1 << 6)) farg7 = l->fargs[6]; if (fanum >= 8) { if (l->darg_mask & (1 << 7)) darg8 = l->dargs[7]; else if (l->farg_mask & (1 << 7)) farg8 = l->fargs[7]; } } } } } } } } /* Call function. */ if (l->rtype == __AVfloat) { *(float*)l->raddr = (*(float(*)())l->func)(); } else if (l->rtype == __AVdouble) { *(double*)l->raddr = (*(double(*)())l->func)(); } else { __avword iret, iret2; iret = (*l->func)(); iret2 = iret2reg; /* save return value */ if (l->rtype == __AVvoid) { } else if (l->rtype == __AVword) { RETURN(__avword, iret); } else if (l->rtype == __AVchar) { RETURN(char, iret); } else if (l->rtype == __AVschar) { RETURN(signed char, iret); } else if (l->rtype == __AVuchar) { RETURN(unsigned char, iret); } else if (l->rtype == __AVshort) { RETURN(short, iret); } else if (l->rtype == __AVushort) { RETURN(unsigned short, iret); } else if (l->rtype == __AVint) { RETURN(int, iret); } else if (l->rtype == __AVuint) { RETURN(unsigned int, iret); } else if (l->rtype == __AVlong || l->rtype == __AVlonglong) { RETURN(long, iret); } else if (l->rtype == __AVulong || l->rtype == __AVulonglong) { RETURN(unsigned long, iret); } else /* see above if (l->rtype == __AVfloat) { } else if (l->rtype == __AVdouble) { } else */ if (l->rtype == __AVvoidp) { RETURN(void*, iret); } else if (l->rtype == __AVstruct) { if (l->flags & __AV_REGISTER_STRUCT_RETURN) { /* Return structs of size <= 16 in registers. */ if (l->rsize > 0 && l->rsize <= 16) { void* raddr = l->raddr; #if 0 /* Unoptimized */ if (l->rsize == 1) { ((unsigned char *)raddr)[0] = (unsigned char)(iret); } else if (l->rsize == 2) { ((unsigned char *)raddr)[0] = (unsigned char)(iret); ((unsigned char *)raddr)[1] = (unsigned char)(iret>>8); } else if (l->rsize == 3) { ((unsigned char *)raddr)[0] = (unsigned char)(iret); ((unsigned char *)raddr)[1] = (unsigned char)(iret>>8); ((unsigned char *)raddr)[2] = (unsigned char)(iret>>16); } else if (l->rsize == 4) { ((unsigned char *)raddr)[0] = (unsigned char)(iret); ((unsigned char *)raddr)[1] = (unsigned char)(iret>>8); ((unsigned char *)raddr)[2] = (unsigned char)(iret>>16); ((unsigned char *)raddr)[3] = (unsigned char)(iret>>24); } else if (l->rsize == 5) { ((unsigned char *)raddr)[0] = (unsigned char)(iret); ((unsigned char *)raddr)[1] = (unsigned char)(iret>>8); ((unsigned char *)raddr)[2] = (unsigned char)(iret>>16); ((unsigned char *)raddr)[3] = (unsigned char)(iret>>24); ((unsigned char *)raddr)[4] = (unsigned char)(iret>>32); } else if (l->rsize == 6) { ((unsigned char *)raddr)[0] = (unsigned char)(iret); ((unsigned char *)raddr)[1] = (unsigned char)(iret>>8); ((unsigned char *)raddr)[2] = (unsigned char)(iret>>16); ((unsigned char *)raddr)[3] = (unsigned char)(iret>>24); ((unsigned char *)raddr)[4] = (unsigned char)(iret>>32); ((unsigned char *)raddr)[5] = (unsigned char)(iret>>40); } else if (l->rsize == 7) { ((unsigned char *)raddr)[0] = (unsigned char)(iret); ((unsigned char *)raddr)[1] = (unsigned char)(iret>>8); ((unsigned char *)raddr)[2] = (unsigned char)(iret>>16); ((unsigned char *)raddr)[3] = (unsigned char)(iret>>24); ((unsigned char *)raddr)[4] = (unsigned char)(iret>>32); ((unsigned char *)raddr)[5] = (unsigned char)(iret>>40); ((unsigned char *)raddr)[6] = (unsigned char)(iret>>48); } else if (l->rsize >= 8 && l->rsize <= 16) { ((unsigned char *)raddr)[0] = (unsigned char)(iret); ((unsigned char *)raddr)[1] = (unsigned char)(iret>>8); ((unsigned char *)raddr)[2] = (unsigned char)(iret>>16); ((unsigned char *)raddr)[3] = (unsigned char)(iret>>24); ((unsigned char *)raddr)[4] = (unsigned char)(iret>>32); ((unsigned char *)raddr)[5] = (unsigned char)(iret>>40); ((unsigned char *)raddr)[6] = (unsigned char)(iret>>48); ((unsigned char *)raddr)[7] = (unsigned char)(iret>>56); if (l->rsize == 8) { } else if (l->rsize == 9) { ((unsigned char *)raddr)[8+0] = (unsigned char)(iret2); } else if (l->rsize == 10) { ((unsigned char *)raddr)[8+0] = (unsigned char)(iret2); ((unsigned char *)raddr)[8+1] = (unsigned char)(iret2>>8); } else if (l->rsize == 11) { ((unsigned char *)raddr)[8+0] = (unsigned char)(iret2); ((unsigned char *)raddr)[8+1] = (unsigned char)(iret2>>8); ((unsigned char *)raddr)[8+2] = (unsigned char)(iret2>>16); } else if (l->rsize == 12) { ((unsigned char *)raddr)[8+0] = (unsigned char)(iret2); ((unsigned char *)raddr)[8+1] = (unsigned char)(iret2>>8); ((unsigned char *)raddr)[8+2] = (unsigned char)(iret2>>16); ((unsigned char *)raddr)[8+3] = (unsigned char)(iret2>>24); } else if (l->rsize == 13) { ((unsigned char *)raddr)[8+0] = (unsigned char)(iret2); ((unsigned char *)raddr)[8+1] = (unsigned char)(iret2>>8); ((unsigned char *)raddr)[8+2] = (unsigned char)(iret2>>16); ((unsigned char *)raddr)[8+3] = (unsigned char)(iret2>>24); ((unsigned char *)raddr)[8+4] = (unsigned char)(iret2>>32); } else if (l->rsize == 14) { ((unsigned char *)raddr)[8+0] = (unsigned char)(iret2); ((unsigned char *)raddr)[8+1] = (unsigned char)(iret2>>8); ((unsigned char *)raddr)[8+2] = (unsigned char)(iret2>>16); ((unsigned char *)raddr)[8+3] = (unsigned char)(iret2>>24); ((unsigned char *)raddr)[8+4] = (unsigned char)(iret2>>32); ((unsigned char *)raddr)[8+5] = (unsigned char)(iret2>>40); } else if (l->rsize == 15) { ((unsigned char *)raddr)[8+0] = (unsigned char)(iret2); ((unsigned char *)raddr)[8+1] = (unsigned char)(iret2>>8); ((unsigned char *)raddr)[8+2] = (unsigned char)(iret2>>16); ((unsigned char *)raddr)[8+3] = (unsigned char)(iret2>>24); ((unsigned char *)raddr)[8+4] = (unsigned char)(iret2>>32); ((unsigned char *)raddr)[8+5] = (unsigned char)(iret2>>40); ((unsigned char *)raddr)[8+6] = (unsigned char)(iret2>>48); } else if (l->rsize == 16) { ((unsigned char *)raddr)[8+0] = (unsigned char)(iret2); ((unsigned char *)raddr)[8+1] = (unsigned char)(iret2>>8); ((unsigned char *)raddr)[8+2] = (unsigned char)(iret2>>16); ((unsigned char *)raddr)[8+3] = (unsigned char)(iret2>>24); ((unsigned char *)raddr)[8+4] = (unsigned char)(iret2>>32); ((unsigned char *)raddr)[8+5] = (unsigned char)(iret2>>40); ((unsigned char *)raddr)[8+6] = (unsigned char)(iret2>>48); ((unsigned char *)raddr)[8+7] = (unsigned char)(iret2>>56); } } #else /* Optimized: fewer conditional jumps, fewer memory accesses */ uintptr_t count = l->rsize; /* > 0, ≤ 2*sizeof(__avword) */ __avword* wordaddr = (__avword*)((uintptr_t)raddr & ~(uintptr_t)(sizeof(__avword)-1)); uintptr_t start_offset = (uintptr_t)raddr & (uintptr_t)(sizeof(__avword)-1); /* ≥ 0, < sizeof(__avword) */ uintptr_t end_offset = start_offset + count; /* > 0, < 3*sizeof(__avword) */ if (count <= sizeof(__avword)) { /* Use iret. */ if (end_offset <= sizeof(__avword)) { /* 0 < end_offset ≤ sizeof(__avword) */ __avword mask0 = ((__avword)2 << (end_offset*8-1)) - ((__avword)1 << (start_offset*8)); wordaddr[0] ^= (wordaddr[0] ^ (iret << (start_offset*8))) & mask0; } else { /* sizeof(__avword) < end_offset < 2*sizeof(__avword), start_offset > 0 */ __avword mask0 = - ((__avword)1 << (start_offset*8)); __avword mask1 = ((__avword)2 << (end_offset*8-sizeof(__avword)*8-1)) - 1; wordaddr[0] ^= (wordaddr[0] ^ (iret << (start_offset*8))) & mask0; wordaddr[1] ^= (wordaddr[1] ^ (iret >> (sizeof(__avword)*8-start_offset*8))) & mask1; } } else { /* Use iret, iret2. */ __avword mask0 = - ((__avword)1 << (start_offset*8)); wordaddr[0] ^= (wordaddr[0] ^ (iret << (start_offset*8))) & mask0; if (end_offset <= 2*sizeof(__avword)) { /* sizeof(__avword) < end_offset ≤ 2*sizeof(__avword) */ __avword mask1 = ((__avword)2 << (end_offset*8-sizeof(__avword)*8-1)) - 1; wordaddr[1] ^= (wordaddr[1] ^ ((iret >> (sizeof(__avword)*4-start_offset*4) >> (sizeof(__avword)*4-start_offset*4)) | (iret2 << (start_offset*8)))) & mask1; } else { /* 2*sizeof(__avword) < end_offset < 3*sizeof(__avword), start_offset > 0 */ __avword mask2 = ((__avword)2 << (end_offset*8-2*sizeof(__avword)*8-1)) - 1; wordaddr[1] = (iret >> (sizeof(__avword)*8-start_offset*8)) | (iret2 << (start_offset*8)); wordaddr[2] ^= (wordaddr[2] ^ (iret2 >> (sizeof(__avword)*8-start_offset*8))) & mask2; } } #endif } } } } return 0; } libffcall-2.2/avcall/avcall-powerpc.c0000664000000000000000000001653613347755260014540 00000000000000/** Copyright 1993 Bill Triggs Copyright 1995-2017 Bruno Haible Copyright 2000 Adam Fedor Copyright 2004 Paul Guyot This program is free software: you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program. If not, see . **/ /*---------------------------------------------------------------------- !!! THIS ROUTINE MUST BE COMPILED gcc -O !!! Foreign function interface for an IBM RS/6000 with gcc This calls a C function with an argument list built up using macros defined in avcall.h. RS6000 Argument Passing Conventions: All arguments, except the first 8 words, are passed on the stack with word alignment. Doubles take two words. The first 13 doubles and floats are also passed in floating-point-registers. To return a structure, the called function copies the value to space pointed to by its first argument, and all other arguments are shifted down by one. Differences between AIX and SysV.4 argument passing conventions: - AIX: the first 13 doubles and floats are passed in FP registers, and when they do, there is still room allocated for them in the argument sequence (integer regs or stack). SysV.4: the first 8 doubles and floats are passed in FP registers, and no room is allocated for them in the argument sequence. - AIX: Structures are passed in the argument sequence. SysV.4: Structures are passed by reference: only a pointer appears in the argument sequence. - AIX: Long longs are only word aligned. SysV.4: Long longs are two-word aligned, both when passed in registers (pairs: 3/4, 5/6, 7/8, 9/10) and when passed on the stack. (Recall that the stack is always 8-byte aligned). Compile this routine with gcc -O (or -O2 -fno-omit-frame-pointer or -g -O) to get the right register variables. For other compilers use the pre-compiled assembler version. ----------------------------------------------------------------------*/ #include "avcall-internal.h" #if defined(_AIX) || (defined(__MACH__) && defined(__APPLE__)) /* __powerpc_aix__ */ #define STACK_OFFSET 14 #else /* __powerpc_sysv4__ */ #define STACK_OFFSET 2 #endif #define RETURN(TYPE,VAL) (*(TYPE*)l->raddr = (TYPE)(VAL)) register double farg1 __asm__("fr1"); register double farg2 __asm__("fr2"); register double farg3 __asm__("fr3"); register double farg4 __asm__("fr4"); register double farg5 __asm__("fr5"); register double farg6 __asm__("fr6"); register double farg7 __asm__("fr7"); register double farg8 __asm__("fr8"); register double farg9 __asm__("fr9"); register double farg10 __asm__("fr10"); register double farg11 __asm__("fr11"); register double farg12 __asm__("fr12"); register double farg13 __asm__("fr13"); int avcall_call(av_alist* list) { register __avword* sp __asm__("r1"); /* C names for registers */ /*register __avword iret __asm__("r3"); */ register __avword iret2 __asm__("r4"); register float fret __asm__("fr1"); register double dret __asm__("fr1"); __av_alist* l = &AV_LIST_INNER(list); #if defined(_AIX) /* for some reason, this does not work on Mac OS X and Linux! */ __avword* argframe = __builtin_alloca(__AV_ALIST_WORDS * sizeof(__avword)); /* make room for argument list */ #else __avword space[__AV_ALIST_WORDS]; /* space for callee's stack frame */ __avword* argframe = sp + STACK_OFFSET;/* stack offset for argument list */ #endif int arglen = l->aptr - l->args; __avword i; #if defined(_AIX) || (defined(__MACH__) && defined(__APPLE__)) /* __powerpc_aix__ */ int farglen = 0; for (i = (8-farglen); i < arglen; i++) /* push function args onto stack */ argframe[i-8+farglen] = l->args[i]; #else /* __powerpc_sysv4__ */ for (i = 0; i < arglen; i++) /* push function args onto stack */ argframe[i] = l->args[i]; #endif /* pass first 13 floating-point args in registers */ arglen = l->faptr - l->fargs; if (arglen == 0) goto fargs0; else if (arglen == 1) goto fargs1; else if (arglen == 2) goto fargs2; else if (arglen == 3) goto fargs3; else if (arglen == 4) goto fargs4; else if (arglen == 5) goto fargs5; else if (arglen == 6) goto fargs6; else if (arglen == 7) goto fargs7; else if (arglen == 8) goto fargs8; #if defined(_AIX) || (defined(__MACH__) && defined(__APPLE__)) /* __powerpc_aix__ */ else if (arglen == 9) goto fargs9; else if (arglen == 10) goto fargs10; else if (arglen == 11) goto fargs11; else if (arglen == 12) goto fargs12; else if (arglen == 13) goto fargs13; fargs13: farg13 = l->fargs[12]; fargs12: farg12 = l->fargs[11]; fargs11: farg11 = l->fargs[10]; fargs10: farg10 = l->fargs[9]; fargs9: farg9 = l->fargs[8]; #endif fargs8: farg8 = l->fargs[7]; fargs7: farg7 = l->fargs[6]; fargs6: farg6 = l->fargs[5]; fargs5: farg5 = l->fargs[4]; fargs4: farg4 = l->fargs[3]; fargs3: farg3 = l->fargs[2]; fargs2: farg2 = l->fargs[1]; fargs1: farg1 = l->fargs[0]; fargs0: ; #if defined(_AIX) || (defined(__MACH__) && defined(__APPLE__)) /* __powerpc_aix__ */ /* call function, pass 8 args in registers */ i = (*l->func)(l->args[0], l->args[1], l->args[2], l->args[3], l->args[4], l->args[5], l->args[6], l->args[7]); #else /* __powerpc_sysv4__ */ i = (*l->func)(l->iargs[0], l->iargs[1], l->iargs[2], l->iargs[3], l->iargs[4], l->iargs[5], l->iargs[6], l->iargs[7]); #endif /* save return value */ if (l->rtype == __AVvoid) { } else if (l->rtype == __AVword) { RETURN(__avword, i); } else if (l->rtype == __AVchar) { RETURN(char, i); } else if (l->rtype == __AVschar) { RETURN(signed char, i); } else if (l->rtype == __AVuchar) { RETURN(unsigned char, i); } else if (l->rtype == __AVshort) { RETURN(short, i); } else if (l->rtype == __AVushort) { RETURN(unsigned short, i); } else if (l->rtype == __AVint) { RETURN(int, i); } else if (l->rtype == __AVuint) { RETURN(unsigned int, i); } else if (l->rtype == __AVlong) { RETURN(long, i); } else if (l->rtype == __AVulong) { RETURN(unsigned long, i); } else if (l->rtype == __AVlonglong || l->rtype == __AVulonglong) { void* raddr = l->raddr; ((__avword*)raddr)[0] = i; ((__avword*)raddr)[1] = iret2; } else if (l->rtype == __AVfloat) { RETURN(float, fret); } else if (l->rtype == __AVdouble) { RETURN(double, dret); } else if (l->rtype == __AVvoidp) { RETURN(void*, i); } else if (l->rtype == __AVstruct) { if (l->flags & __AV_REGISTER_STRUCT_RETURN) { if (l->rsize == sizeof(char)) { RETURN(char, i); } else if (l->rsize == sizeof(short)) { RETURN(short, i); } else if (l->rsize == sizeof(int)) { RETURN(int, i); } else if (l->rsize == 2*sizeof(__avword)) { void* raddr = l->raddr; ((__avword*)raddr)[0] = i; ((__avword*)raddr)[1] = iret2; } } } return 0; } libffcall-2.2/avcall/avcall-m68k-linux.s0000664000000000000000000000444613530357105015006 00000000000000 .file "avcall-m68k.c" .text .align 2 .globl avcall_call .type avcall_call,@function avcall_call: link.w %a6,#0 movm.l #0x3820,-(%sp) move.l 8(%a6),%a2 lea (-1024,%sp),%sp move.l 24(%a2),%d1 move.l 20(%a2),%d0 sub.l %d1,%d0 asr.l #2,%d0 jble .L54 move.l %sp,%a1 move.l %d1,%a0 move.l %d0,%d2 .align 2 .L6: move.l (%a0)+,(%a1)+ subq.l #1,%d2 jbne .L6 .L54: moveq.l #16,%d0 cmp.l 12(%a2),%d0 jbeq .L59 .L7: move.l 4(%a2),%a0 jsr (%a0) move.l %d0,%d2 move.l %d1,%d3 move.l 12(%a2),%a1 moveq.l #1,%d1 cmp.l %a1,%d1 jbeq .L9 tst.l %a1 jbeq .L55 moveq.l #2,%d4 cmp.l %a1,%d4 jbeq .L58 moveq.l #3,%d4 cmp.l %a1,%d4 jbeq .L58 moveq.l #4,%d4 cmp.l %a1,%d4 jbeq .L58 moveq.l #5,%d4 cmp.l %a1,%d4 jbeq .L57 moveq.l #6,%d4 cmp.l %a1,%d4 jbeq .L57 moveq.l #7,%d4 cmp.l %a1,%d4 jbeq .L55 moveq.l #8,%d4 cmp.l %a1,%d4 jbeq .L55 moveq.l #9,%d4 cmp.l %a1,%d4 jbeq .L55 moveq.l #10,%d4 cmp.l %a1,%d4 jbeq .L55 lea (-11,%a1),%a0 moveq.l #1,%d4 cmp.l %a0,%d4 jbcc .L56 moveq.l #13,%d4 cmp.l %a1,%d4 jbeq .L60 moveq.l #14,%d4 cmp.l %a1,%d4 jbeq .L61 moveq.l #15,%d0 cmp.l %a1,%d0 jbeq .L55 moveq.l #16,%d1 cmp.l %a1,%d1 jbne .L9 btst #1,2(%a2) jbeq .L9 move.l 16(%a2),%d0 moveq.l #1,%d4 cmp.l %d0,%d4 jbeq .L58 moveq.l #2,%d1 cmp.l %d0,%d1 jbeq .L57 moveq.l #4,%d4 cmp.l %d0,%d4 jbeq .L55 moveq.l #8,%d1 cmp.l %d0,%d1 jbne .L9 .L56: move.l 8(%a2),%a0 move.l %d2,(%a0) move.l %d3,4(%a0) jbra .L9 .align 2 .L55: move.l 8(%a2),%a0 move.l %d2,(%a0) jbra .L9 .align 2 .L57: move.l 8(%a2),%a0 move.w %d2,(%a0) jbra .L9 .align 2 .L58: move.l 8(%a2),%a0 move.b %d2,(%a0) jbra .L9 .align 2 .L61: btst #6,3(%a2) jbeq .L39 move.l 8(%a2),%a0 fmove.d %fp0,(%a0) jbra .L9 .align 2 .L39: move.l 8(%a2),%a0 move.l %d0,(%a0) move.l %d1,4(%a0) jbra .L9 .align 2 .L60: move.l (%a2),%d2 btst #6,%d2 jbeq .L33 move.l 8(%a2),%a0 fmove.s %fp0,(%a0) jbra .L9 .align 2 .L33: btst #5,%d2 jbeq .L35 move.l 8(%a2),%a0 move.l %d1,-(%sp) move.l %d0,-(%sp) fmove.d (%sp)+,%fp0 fmove.s %fp0,(%a0) jbra .L9 .align 2 .L35: move.l 8(%a2),%a0 move.l %d0,(%a0) jbra .L9 .align 2 .L59: #APP move.l 8(%a2),%a1 #NO_APP jbra .L7 .align 2 .L9: clr.l %d0 movm.l -16(%a6),#0x41c unlk %a6 rts .Lfe1: .size avcall_call,.Lfe1-avcall_call .ident "GCC: (GNU) 3.1" libffcall-2.2/avcall/Makefile.maint0000664000000000000000000000065013153072134014175 00000000000000# maintainer -*-Makefile-*- LN = ln -s RM = rm -f # ==================== Easily regeneratable files ==================== ROFF_MAN = groff -Tutf8 -mandoc all : avcall.man \ avcall-i386-msvc.c avcall.man : avcall.3 $(ROFF_MAN) avcall.3 > avcall.man avcall-i386-msvc.c : avcall-i386-macro.S cp -p avcall-i386-macro.S avcall-i386-msvc.c totally-clean : force $(RM) avcall.man $(RM) avcall-i386-msvc.c force : libffcall-2.2/avcall/avcall-s390.c0000664000000000000000000001062213347755260013545 00000000000000/** Copyright 1993 Bill Triggs Copyright 1995-2017 Bruno Haible Copyright 2001 Gerhard Tonn This program is free software: you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program. If not, see . **/ /*---------------------------------------------------------------------- Foreign function interface for an IBM S/390 with gcc This calls a C function with an argument list built up using macros defined in avcall.h. S390 Argument Passing Conventions: All arguments, except the first 5 words, are passed on the stack with word alignment. Doubles take two words. The first 2 doubles and floats are also passed in floating-point-registers. To return a structure, the called function copies the value to space pointed to by its first argument, and all other arguments are shifted down by one. Compile this routine with gcc -O2 to get the right register variables. For other compilers use the pre-compiled assembler version. ----------------------------------------------------------------------*/ #include "avcall-internal.h" #define RETURN(TYPE,VAL) (*(TYPE*)l->raddr = (TYPE)(VAL)) register float farg1 __asm__("f0"); register float farg2 __asm__("f2"); register double darg1 __asm__("f0"); register double darg2 __asm__("f2"); int avcall_call(av_alist* list) { register __avword* sp __asm__("r15"); /* C names for registers */ /*register __avword iret __asm__("r2"); */ register __avword iret2 __asm__("r3"); register float fret __asm__("f0"); register double dret __asm__("f0"); __av_alist* l = &AV_LIST_INNER(list); __avword* argframe = __builtin_alloca(__AV_ALIST_WORDS * sizeof(__avword)); /* make room for argument list */ int arglen = l->aptr - l->args; unsigned int fanum = l->fanum; __avword i; for (i = 0; i < arglen; i++) /* push function args onto stack */ argframe[i] = l->args[i]; /* Put upto 2 floating-point args into registers. */ if (fanum >= 1) { if (l->darg_mask & (1 << 0)) darg1 = l->dargs[0]; else if (l->farg_mask & (1 << 0)) farg1 = l->fargs[0]; if (fanum >= 2) { if (l->darg_mask & (1 << 1)) darg2 = l->dargs[1]; else if (l->farg_mask & (1 << 1)) farg2 = l->fargs[1]; } } /* call function, pass 5 args in registers */ i = (*l->func)(l->iargs[0], l->iargs[1], l->iargs[2], l->iargs[3], l->iargs[4]); /* save return value */ if (l->rtype == __AVvoid) { } else if (l->rtype == __AVword) { RETURN(__avword, i); } else if (l->rtype == __AVchar) { RETURN(char, i); } else if (l->rtype == __AVschar) { RETURN(signed char, i); } else if (l->rtype == __AVuchar) { RETURN(unsigned char, i); } else if (l->rtype == __AVshort) { RETURN(short, i); } else if (l->rtype == __AVushort) { RETURN(unsigned short, i); } else if (l->rtype == __AVint) { RETURN(int, i); } else if (l->rtype == __AVuint) { RETURN(unsigned int, i); } else if (l->rtype == __AVlong) { RETURN(long, i); } else if (l->rtype == __AVulong) { RETURN(unsigned long, i); } else if (l->rtype == __AVlonglong || l->rtype == __AVulonglong) { void* raddr = l->raddr; ((__avword*)raddr)[0] = i; ((__avword*)raddr)[1] = iret2; } else if (l->rtype == __AVfloat) { RETURN(float, fret); } else if (l->rtype == __AVdouble) { RETURN(double, dret); } else if (l->rtype == __AVvoidp) { RETURN(void*, i); } else if (l->rtype == __AVstruct) { if (l->flags & __AV_REGISTER_STRUCT_RETURN) { if (l->rsize == sizeof(char)) { RETURN(char, i); } else if (l->rsize == sizeof(short)) { RETURN(short, i); } else if (l->rsize == sizeof(int)) { RETURN(int, i); } else if (l->rsize == 2*sizeof(__avword)) { void* raddr = l->raddr; ((__avword*)raddr)[0] = i; ((__avword*)raddr)[1] = iret2; } } } return 0; } libffcall-2.2/avcall/avcall-s390-macro.S0000664000000000000000000000360513530357110014611 00000000000000 .file "avcall-s390.c" .text .align 4 .globl avcall_call .type avcall_call,@function avcall_call: stm %r6,%r15,24(%r15) bras %r13,.LTN0_0 .LT0_0: .LC0: .long 1 .LTN0_0: lr %r14,%r15 ahi %r15,-96 lr %r10,%r2 lr %r11,%r15 lhi %r2,0 st %r14,0(%r15) l %r1,0(%r15) ahi %r15,-1032 l %r3,20(%r10) l %r4,24(%r10) sr %r3,%r4 sra %r3,2 la %r5,96(%r15) st %r1,0(%r15) cr %r2,%r3 l %r0,64(%r10) jhe .L55 .L6: lr %r1,%r2 sll %r1,2 ahi %r2,1 cr %r2,%r3 l %r9,0(%r1,%r4) st %r9,0(%r1,%r5) jl .L6 .L55: ltr %r0,%r0 je .L7 l %r1,72(%r10) tml %r1,1 je .L8 ld %f0,88(%r10) .L9: cl %r0,.LC0-.LT0_0(%r13) jle .L7 tml %r1,2 je .L12 ld %f2,96(%r10) .L7: l %r1,4(%r10) l %r4,52(%r10) l %r2,44(%r10) l %r3,48(%r10) l %r5,56(%r10) l %r6,60(%r10) basr %r14,%r1 l %r4,12(%r10) chi %r4,1 je .L16 ltr %r4,%r4 je .L65 chi %r4,2 je .L58 chi %r4,3 je .L58 chi %r4,4 je .L58 chi %r4,5 je .L57 chi %r4,6 je .L57 chi %r4,7 je .L65 chi %r4,8 je .L65 chi %r4,9 je .L65 chi %r4,10 je .L65 lr %r1,%r4 ahi %r1,-11 cl %r1,.LC0-.LT0_0(%r13) jle .L64 chi %r4,13 je .L66 chi %r4,14 je .L67 chi %r4,15 je .L65 chi %r4,16 je .L68 .L16: lhi %r2,0 l %r4,152(%r11) lm %r6,%r15,120(%r11) br %r4 .L68: tm 2(%r10),2 je .L16 l %r1,16(%r10) chi %r1,1 je .L58 chi %r1,2 je .L57 chi %r1,4 je .L65 chi %r1,8 jne .L16 .L64: l %r1,8(%r10) st %r3,4(%r1) .L56: st %r2,0(%r1) j .L16 .L65: l %r1,8(%r10) j .L56 .L57: l %r1,8(%r10) sth %r2,0(%r1) j .L16 .L58: l %r1,8(%r10) stc %r2,0(%r1) j .L16 .L67: l %r1,8(%r10) std %f0,0(%r1) j .L16 .L66: l %r1,8(%r10) ste %f0,0(%r1) j .L16 .L12: tm 71(%r10),2 je .L7 le %f2,80(%r10) j .L7 .L8: tm 71(%r10),1 je .L9 le %f0,76(%r10) j .L9 .Lfe1: .size avcall_call,.Lfe1-avcall_call #if defined __linux__ || defined __FreeBSD__ || defined __FreeBSD_kernel__ || defined __DragonFly__ .section .note.GNU-stack,"",@progbits #endif libffcall-2.2/avcall/avcall-mips64eb-linux.s0000664000000000000000000002312413530357105015644 00000000000000 .file 1 "avcall-mips64.c" .section .mdebug.abi64 .previous .nan legacy .module fp=64 .module oddspreg .abicalls .text .align 2 .align 3 .globl avcall_call .set nomips16 .set nomicromips .ent avcall_call .type avcall_call, @function avcall_call: .frame $fp,32,$31 # vars= 0, regs= 4/0, args= 0, gp= 0 .mask 0xd0010000,-8 .fmask 0x00000000,0 ld $2,40($4) ld $12,48($4) lw $3,68($4) daddiu $sp,$sp,-32 dsubu $6,$2,$12 dsra $6,$6,3 sd $fp,16($sp) sd $16,0($sp) sd $31,24($sp) move $fp,$sp daddiu $sp,$sp,-2064 move $16,$4 sll $6,$6,0 .set noreorder .set nomacro beq $3,$0,.L2 move $2,$sp .set macro .set reorder andi $4,$3,0x1 .set noreorder .set nomacro beq $4,$0,.L125 andi $4,$3,0x2 .set macro .set reorder #APP # 77 "avcall-mips64.c" 1 lwc1 $f12,76($16) # 0 "" 2 #NO_APP andi $4,$3,0x2 .L125: .set noreorder .set nomacro beq $4,$0,.L126 andi $4,$3,0x4 .set macro .set reorder #APP # 79 "avcall-mips64.c" 1 lwc1 $f13,80($16) # 0 "" 2 #NO_APP andi $4,$3,0x4 .L126: .set noreorder .set nomacro beq $4,$0,.L127 andi $4,$3,0x8 .set macro .set reorder #APP # 81 "avcall-mips64.c" 1 lwc1 $f14,84($16) # 0 "" 2 #NO_APP andi $4,$3,0x8 .L127: .set noreorder .set nomacro beq $4,$0,.L128 andi $4,$3,0x10 .set macro .set reorder #APP # 83 "avcall-mips64.c" 1 lwc1 $f15,88($16) # 0 "" 2 #NO_APP andi $4,$3,0x10 .L128: .set noreorder .set nomacro beq $4,$0,.L129 andi $4,$3,0x20 .set macro .set reorder #APP # 85 "avcall-mips64.c" 1 lwc1 $f16,92($16) # 0 "" 2 #NO_APP andi $4,$3,0x20 .L129: .set noreorder .set nomacro beq $4,$0,.L130 andi $4,$3,0x40 .set macro .set reorder #APP # 87 "avcall-mips64.c" 1 lwc1 $f17,96($16) # 0 "" 2 #NO_APP andi $4,$3,0x40 .L130: .set noreorder .set nomacro beql $4,$0,.L131 andi $3,$3,0x80 .set macro .set reorder #APP # 89 "avcall-mips64.c" 1 lwc1 $f18,100($16) # 0 "" 2 #NO_APP andi $3,$3,0x80 .L131: bne $3,$0,.L118 .L2: lw $3,72($16) .L124: .set noreorder .set nomacro beql $3,$0,.L123 slt $3,$6,9 .set macro .set reorder andi $4,$3,0x1 .set noreorder .set nomacro beq $4,$0,.L132 andi $4,$3,0x2 .set macro .set reorder #APP # 97 "avcall-mips64.c" 1 ldc1 $f12,0($12) # 0 "" 2 #NO_APP andi $4,$3,0x2 .L132: .set noreorder .set nomacro beq $4,$0,.L133 andi $4,$3,0x4 .set macro .set reorder #APP # 99 "avcall-mips64.c" 1 ldc1 $f13,8($12) # 0 "" 2 #NO_APP andi $4,$3,0x4 .L133: .set noreorder .set nomacro beq $4,$0,.L134 andi $4,$3,0x8 .set macro .set reorder #APP # 101 "avcall-mips64.c" 1 ldc1 $f14,16($12) # 0 "" 2 #NO_APP andi $4,$3,0x8 .L134: .set noreorder .set nomacro beq $4,$0,.L135 andi $4,$3,0x10 .set macro .set reorder #APP # 103 "avcall-mips64.c" 1 ldc1 $f15,24($12) # 0 "" 2 #NO_APP andi $4,$3,0x10 .L135: .set noreorder .set nomacro beq $4,$0,.L136 andi $4,$3,0x20 .set macro .set reorder #APP # 105 "avcall-mips64.c" 1 ldc1 $f16,32($12) # 0 "" 2 #NO_APP andi $4,$3,0x20 .L136: .set noreorder .set nomacro beq $4,$0,.L137 andi $4,$3,0x40 .set macro .set reorder #APP # 107 "avcall-mips64.c" 1 ldc1 $f17,40($12) # 0 "" 2 #NO_APP andi $4,$3,0x40 .L137: .set noreorder .set nomacro beql $4,$0,.L138 andi $3,$3,0x80 .set macro .set reorder #APP # 109 "avcall-mips64.c" 1 ldc1 $f18,48($12) # 0 "" 2 #NO_APP andi $3,$3,0x80 .L138: bne $3,$0,.L119 slt $3,$6,9 .L123: .set noreorder .set nomacro bne $3,$0,.L22 daddiu $4,$12,64 .set macro .set reorder li $3,8 # 0x8 .align 3 .L21: ld $5,0($4) addiu $3,$3,1 daddiu $4,$4,8 sd $5,0($2) .set noreorder .set nomacro bne $6,$3,.L21 daddiu $2,$2,8 .set macro .set reorder .L22: #APP # 118 "avcall-mips64.c" 1 ld $4,0($12) # 0 "" 2 # 119 "avcall-mips64.c" 1 ld $5,8($12) # 0 "" 2 # 120 "avcall-mips64.c" 1 ld $6,16($12) # 0 "" 2 # 121 "avcall-mips64.c" 1 ld $7,24($12) # 0 "" 2 # 122 "avcall-mips64.c" 1 ld $8,32($12) # 0 "" 2 # 123 "avcall-mips64.c" 1 ld $9,40($12) # 0 "" 2 # 124 "avcall-mips64.c" 1 ld $10,48($12) # 0 "" 2 # 125 "avcall-mips64.c" 1 ld $11,56($12) # 0 "" 2 #NO_APP ld $25,8($16) jalr $25 lw $4,24($16) li $5,1 # 0x1 .set noreorder .set nomacro beql $4,$5,.L139 move $sp,$fp .set macro .set reorder .set noreorder .set nomacro beq $4,$0,.L110 li $5,2 # 0x2 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L108 li $5,3 # 0x3 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L108 li $5,4 # 0x4 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L108 li $5,5 # 0x5 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L111 li $5,6 # 0x6 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L111 li $5,7 # 0x7 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L113 li $5,8 # 0x8 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L113 li $5,9 # 0x9 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L110 li $5,10 # 0xa .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L110 li $5,11 # 0xb .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L110 li $5,12 # 0xc .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L110 li $5,13 # 0xd .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L120 li $5,14 # 0xe .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L121 li $5,15 # 0xf .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L110 li $5,16 # 0x10 .set macro .set reorder .set noreorder .set nomacro bnel $4,$5,.L139 move $sp,$fp .set macro .set reorder lw $4,0($16) andi $5,$4,0x200 .set noreorder .set nomacro beq $5,$0,.L19 andi $4,$4,0x4 .set macro .set reorder .set noreorder .set nomacro beql $4,$0,.L38 ld $4,32($16) .set macro .set reorder ld $3,32($16) li $4,1 # 0x1 .set noreorder .set nomacro beq $3,$4,.L108 li $4,2 # 0x2 .set macro .set reorder .set noreorder .set nomacro beq $3,$4,.L111 li $4,4 # 0x4 .set macro .set reorder .set noreorder .set nomacro beq $3,$4,.L113 li $4,8 # 0x8 .set macro .set reorder .set noreorder .set nomacro beql $3,$4,.L140 ld $3,16($16) .set macro .set reorder .L19: move $sp,$fp .L139: ld $31,24($sp) ld $fp,16($sp) ld $16,0($sp) move $2,$0 .set noreorder .set nomacro j $31 daddiu $sp,$sp,32 .set macro .set reorder .align 3 .L110: ld $3,16($16) .align 3 .L140: sd $2,0($3) move $sp,$fp ld $31,24($sp) ld $fp,16($sp) ld $16,0($sp) move $2,$0 .set noreorder .set nomacro j $31 daddiu $sp,$sp,32 .set macro .set reorder .align 3 .L119: #APP # 111 "avcall-mips64.c" 1 ldc1 $f19,56($12) # 0 "" 2 #NO_APP .set noreorder .set nomacro b .L123 slt $3,$6,9 .set macro .set reorder .align 3 .L118: #APP # 91 "avcall-mips64.c" 1 lwc1 $f19,104($16) # 0 "" 2 #NO_APP .set noreorder .set nomacro b .L124 lw $3,72($16) .set macro .set reorder .align 3 .L108: ld $3,16($16) sb $2,0($3) move $sp,$fp ld $31,24($sp) ld $fp,16($sp) ld $16,0($sp) move $2,$0 .set noreorder .set nomacro j $31 daddiu $sp,$sp,32 .set macro .set reorder .L111: ld $3,16($16) .set noreorder .set nomacro b .L19 sh $2,0($3) .set macro .set reorder .L113: ld $3,16($16) .set noreorder .set nomacro b .L19 sw $2,0($3) .set macro .set reorder .L120: ld $2,16($16) .set noreorder .set nomacro b .L19 swc1 $f0,0($2) .set macro .set reorder .L121: ld $2,16($16) .set noreorder .set nomacro b .L19 sdc1 $f0,0($2) .set macro .set reorder .L38: daddiu $5,$4,-1 sltu $5,$5,16 .set noreorder .set nomacro beq $5,$0,.L19 sltu $7,$4,9 .set macro .set reorder ld $6,16($16) li $8,-8 # 0xfffffffffffffff8 andi $5,$6,0x7 daddu $4,$4,$5 .set noreorder .set nomacro beq $7,$0,.L42 and $6,$6,$8 .set macro .set reorder sltu $3,$4,9 .set noreorder .set nomacro beq $3,$0,.L43 subu $8,$0,$5 .set macro .set reorder subu $3,$0,$5 sll $7,$4,0 sll $3,$3,3 ld $8,0($6) addiu $3,$3,63 subu $7,$0,$7 li $4,2 # 0x2 dsll $4,$4,$3 sll $7,$7,3 sll $5,$5,3 li $3,1 # 0x1 dsll $3,$3,$7 dsra $2,$2,$5 dsubu $3,$4,$3 xor $2,$2,$8 and $2,$3,$2 xor $2,$2,$8 .set noreorder .set nomacro b .L19 sd $2,0($6) .set macro .set reorder .align 3 .L42: subu $9,$0,$5 ld $11,0($6) sll $10,$9,3 addiu $7,$10,63 sll $5,$5,3 li $8,2 # 0x2 dsll $8,$8,$7 dsra $7,$2,$5 daddiu $8,$8,-1 xor $7,$7,$11 and $7,$8,$7 xor $7,$7,$11 sltu $8,$4,17 .set noreorder .set nomacro bne $8,$0,.L122 sd $7,0($6) .set macro .set reorder ld $9,16($6) sll $4,$4,0 addiu $10,$10,64 subu $4,$0,$4 move $8,$3 sll $4,$4,3 dsll $3,$3,$10 li $7,-1 # 0xffffffffffffffff dsll $4,$7,$4 xor $3,$3,$9 dsll $2,$2,$10 dsra $5,$8,$5 and $3,$4,$3 or $2,$2,$5 xor $3,$3,$9 sd $2,8($6) .set noreorder .set nomacro b .L19 sd $3,16($6) .set macro .set reorder .L43: ld $11,0($6) ld $10,8($6) sll $7,$4,0 sll $8,$8,3 sll $5,$5,3 subu $9,$0,$7 addiu $4,$8,63 li $7,2 # 0x2 dsra $3,$2,$5 dsll $4,$7,$4 dsll $2,$2,$8 sll $7,$9,3 li $5,-1 # 0xffffffffffffffff daddiu $4,$4,-1 xor $3,$3,$11 dsll $5,$5,$7 xor $2,$2,$10 and $3,$4,$3 and $2,$5,$2 xor $3,$3,$11 xor $2,$2,$10 sd $3,0($6) .set noreorder .set nomacro b .L19 sd $2,8($6) .set macro .set reorder .L122: sll $7,$9,2 addiu $7,$7,32 ld $8,8($6) dsll $2,$2,$7 sll $4,$4,0 dsll $7,$2,$7 dsra $3,$3,$5 subu $4,$0,$4 or $3,$7,$3 sll $4,$4,3 li $2,-1 # 0xffffffffffffffff xor $3,$3,$8 dsll $2,$2,$4 and $2,$3,$2 xor $2,$2,$8 .set noreorder .set nomacro b .L19 sd $2,8($6) .set macro .set reorder .end avcall_call .size avcall_call, .-avcall_call .ident "GCC: (GNU) 5.4.0" libffcall-2.2/avcall/avcall-riscv32-ilp32d-linux.s0000664000000000000000000000777513530357111016614 00000000000000 .file "avcall-riscv32.c" .option pic .text .align 1 .globl avcall_call .type avcall_call, @function avcall_call: add sp,sp,-32 sw ra,28(sp) sw s0,24(sp) sw s1,20(sp) sw s2,16(sp) sw s3,12(sp) sw s4,8(sp) sw s5,4(sp) add s0,sp,32 lw t2,24(a0) lw t0,20(a0) li t3,32 mv s1,a0 sub t0,t0,t2 add sp,sp,-1040 lw ra,40(a0) ble t0,t3,.L2 mv t1,sp sra t6,t0,2 add t4,t2,32 li t3,8 .L3: lw t5,0(t4) add t3,t3,1 add t4,t4,4 sw t5,0(t1) add t1,t1,4 bgt t6,t3,.L3 .L4: li t1,4 lw a0,0(t2) bgt t0,t1,.L81 .L5: beqz ra,.L8 lw t1,48(s1) and t3,t1,1 beqz t3,.L9 fld fa0,88(s1) .L10: li t3,1 bleu ra,t3,.L8 and t3,t1,2 bnez t3,.L82 lw t3,44(s1) and t3,t3,2 beqz t3,.L13 flw fa1,56(s1) .L13: li t3,2 beq ra,t3,.L8 and t3,t1,4 beqz t3,.L14 fld fa2,104(s1) .L15: li t3,3 beq ra,t3,.L8 and t3,t1,8 bnez t3,.L83 lw t3,44(s1) and t3,t3,8 beqz t3,.L17 flw fa3,64(s1) .L17: li t3,4 beq ra,t3,.L8 and t3,t1,16 beqz t3,.L18 fld fa4,120(s1) .L19: li t3,5 beq ra,t3,.L8 and t3,t1,32 beqz t3,.L20 fld fa5,128(s1) .L21: li t3,6 beq ra,t3,.L8 and t3,t1,64 beqz t3,.L22 fld fa6,136(s1) .L23: li t3,7 beq ra,t3,.L8 and t1,t1,128 beqz t1,.L24 fld fa7,144(s1) .L8: lw t1,12(s1) li t3,13 lw t4,4(s1) bne t1,t3,.L25 lw s1,8(s1) jalr t4 fsw fa0,0(s1) .L26: add sp,s0,-32 lw ra,28(sp) li a0,0 lw s0,24(sp) lw s1,20(sp) lw s2,16(sp) lw s3,12(sp) lw s4,8(sp) lw s5,4(sp) add sp,sp,32 jr ra .L81: li t1,8 lw a1,4(t2) ble t0,t1,.L5 li t1,12 lw a2,8(t2) ble t0,t1,.L5 li t1,16 lw a3,12(t2) ble t0,t1,.L5 li t1,20 lw a4,16(t2) ble t0,t1,.L5 li t1,24 lw a5,20(t2) ble t0,t1,.L5 li t1,28 lw a6,24(t2) ble t0,t1,.L5 lw a7,28(t2) j .L5 .L9: lw t3,44(s1) and t3,t3,1 beqz t3,.L10 flw fa0,52(s1) j .L10 .L25: li t3,14 beq t1,t3,.L84 jalr t4 lw t1,12(s1) li t4,1 mv t3,a0 beq t1,t4,.L26 beqz t1,.L79 li t4,2 beq t1,t4,.L74 li t4,3 beq t1,t4,.L74 li t4,4 beq t1,t4,.L74 li t4,5 beq t1,t4,.L75 li t4,6 beq t1,t4,.L75 li t4,7 beq t1,t4,.L79 li s4,8 beq t1,s4,.L79 li t4,9 beq t1,t4,.L79 li t4,10 beq t1,t4,.L79 add t6,t1,-11 li t4,1 bleu t6,t4,.L85 li t6,15 beq t1,t6,.L79 li t6,16 bne t1,t6,.L26 lw t1,0(s1) and t1,t1,2 beqz t1,.L26 lw s3,16(s1) li t1,7 add t6,s3,-1 bgtu t6,t1,.L26 lw t6,8(s1) li s5,4 and t0,t6,-4 lw t2,0(t0) and t6,t6,3 sll s2,t6,3 sll s1,a0,s2 add t1,s3,t6 sll t4,t4,s2 xor s1,s1,t2 bgtu s3,s5,.L40 bgtu t1,s5,.L41 sll t1,t1,3 add t3,t1,-1 li t1,2 sll t1,t1,t3 sub t1,t1,t4 and t1,t1,s1 xor t1,t1,t2 sw t1,0(t0) j .L26 .L82: fld fa1,96(s1) j .L13 .L84: lw s1,8(s1) jalr t4 fsd fa0,0(s1) j .L26 .L2: blez t0,.L5 j .L4 .L14: lw t3,44(s1) and t3,t3,4 beqz t3,.L15 flw fa2,60(s1) j .L15 .L79: lw t1,8(s1) sw t3,0(t1) j .L26 .L83: fld fa3,112(s1) j .L17 .L74: lw t1,8(s1) sb t3,0(t1) j .L26 .L18: lw t3,44(s1) and t3,t3,16 beqz t3,.L19 flw fa4,68(s1) j .L19 .L75: lw t1,8(s1) sh t3,0(t1) j .L26 .L20: lw t3,44(s1) and t3,t3,32 beqz t3,.L21 flw fa5,72(s1) j .L21 .L22: lw t3,44(s1) and t3,t3,64 beqz t3,.L23 flw fa6,76(s1) j .L23 .L24: lw t1,44(s1) and t1,t1,128 beqz t1,.L8 flw fa7,80(s1) j .L8 .L85: lw t1,8(s1) sw a0,0(t1) sw a1,4(t1) j .L26 .L41: li t5,-8 mul t6,t6,t5 lw s2,4(t0) sll t1,t1,3 add t5,t1,-33 li t1,2 sll t1,t1,t5 sub t4,zero,t4 add t1,t1,-1 and t4,t4,s1 xor t4,t4,t2 sra t3,a0,t6 xor t3,t3,s2 and t1,t1,t3 xor t1,t1,s2 sw t4,0(t0) sw t1,4(t0) j .L26 .L40: sub t4,zero,t4 and t4,t4,s1 xor t4,t4,t2 sw t4,0(t0) sll s1,a1,s2 bleu t1,s4,.L86 li t4,-8 mul t6,t6,t4 sll t1,t1,3 li t2,2 add t1,t1,-65 lw s2,8(t0) sll t1,t2,t1 add t2,t1,-1 add t1,t6,32 sra t4,a1,t1 xor t4,t4,s2 sra t1,a0,t1 and t3,t2,t4 or t1,t1,s1 xor t3,t3,s2 sw t1,4(t0) sw t3,8(t0) j .L26 .L86: li t4,-4 mul t4,t6,t4 sll t1,t1,3 lw t6,4(t0) add t5,t1,-33 li t1,2 sll t1,t1,t5 add t1,t1,-1 add t4,t4,16 sra t3,a0,t4 sra t3,t3,t4 or t3,t3,s1 xor t3,t3,t6 and t1,t1,t3 xor t1,t1,t6 sw t1,4(t0) j .L26 .size avcall_call, .-avcall_call .ident "GCC: (GNU) 7.3.0" libffcall-2.2/avcall/avcall-mips64eb-macro.S0000664000000000000000000002047113530357105015550 00000000000000#include "asm-mips.h" .file 1 "avcall-mips64.c" .text .align 2 .align 3 .globl avcall_call .set nomips16 .set nomicromips .ent avcall_call DECLARE_FUNCTION(avcall_call) avcall_call: .frame $fp,32,$31 .mask 0xd0010000,-8 .fmask 0x00000000,0 ld $2,40($4) ld $12,48($4) lw $3,68($4) daddiu $sp,$sp,-32 dsubu $6,$2,$12 dsra $6,$6,3 sd $fp,16($sp) sd $16,0($sp) sd $31,24($sp) move $fp,$sp daddiu $sp,$sp,-2064 move $16,$4 sll $6,$6,0 .set noreorder .set nomacro beq $3,$0,.L2 move $2,$sp .set macro .set reorder andi $4,$3,0x1 .set noreorder .set nomacro beq $4,$0,.L125 andi $4,$3,0x2 .set macro .set reorder lwc1 $f12,76($16) andi $4,$3,0x2 .L125: .set noreorder .set nomacro beq $4,$0,.L126 andi $4,$3,0x4 .set macro .set reorder lwc1 $f13,80($16) andi $4,$3,0x4 .L126: .set noreorder .set nomacro beq $4,$0,.L127 andi $4,$3,0x8 .set macro .set reorder lwc1 $f14,84($16) andi $4,$3,0x8 .L127: .set noreorder .set nomacro beq $4,$0,.L128 andi $4,$3,0x10 .set macro .set reorder lwc1 $f15,88($16) andi $4,$3,0x10 .L128: .set noreorder .set nomacro beq $4,$0,.L129 andi $4,$3,0x20 .set macro .set reorder lwc1 $f16,92($16) andi $4,$3,0x20 .L129: .set noreorder .set nomacro beq $4,$0,.L130 andi $4,$3,0x40 .set macro .set reorder lwc1 $f17,96($16) andi $4,$3,0x40 .L130: .set noreorder .set nomacro beql $4,$0,.L131 andi $3,$3,0x80 .set macro .set reorder lwc1 $f18,100($16) andi $3,$3,0x80 .L131: bne $3,$0,.L118 .L2: lw $3,72($16) .L124: .set noreorder .set nomacro beql $3,$0,.L123 slt $3,$6,9 .set macro .set reorder andi $4,$3,0x1 .set noreorder .set nomacro beq $4,$0,.L132 andi $4,$3,0x2 .set macro .set reorder ldc1 $f12,0($12) andi $4,$3,0x2 .L132: .set noreorder .set nomacro beq $4,$0,.L133 andi $4,$3,0x4 .set macro .set reorder ldc1 $f13,8($12) andi $4,$3,0x4 .L133: .set noreorder .set nomacro beq $4,$0,.L134 andi $4,$3,0x8 .set macro .set reorder ldc1 $f14,16($12) andi $4,$3,0x8 .L134: .set noreorder .set nomacro beq $4,$0,.L135 andi $4,$3,0x10 .set macro .set reorder ldc1 $f15,24($12) andi $4,$3,0x10 .L135: .set noreorder .set nomacro beq $4,$0,.L136 andi $4,$3,0x20 .set macro .set reorder ldc1 $f16,32($12) andi $4,$3,0x20 .L136: .set noreorder .set nomacro beq $4,$0,.L137 andi $4,$3,0x40 .set macro .set reorder ldc1 $f17,40($12) andi $4,$3,0x40 .L137: .set noreorder .set nomacro beql $4,$0,.L138 andi $3,$3,0x80 .set macro .set reorder ldc1 $f18,48($12) andi $3,$3,0x80 .L138: bne $3,$0,.L119 slt $3,$6,9 .L123: .set noreorder .set nomacro bne $3,$0,.L22 daddiu $4,$12,64 .set macro .set reorder li $3,8 .align 3 .L21: ld $5,0($4) addiu $3,$3,1 daddiu $4,$4,8 sd $5,0($2) .set noreorder .set nomacro bne $6,$3,.L21 daddiu $2,$2,8 .set macro .set reorder .L22: ld $4,0($12) ld $5,8($12) ld $6,16($12) ld $7,24($12) ld $8,32($12) ld $9,40($12) ld $10,48($12) ld $11,56($12) ld $25,8($16) jalr $25 lw $4,24($16) li $5,1 .set noreorder .set nomacro beql $4,$5,.L139 move $sp,$fp .set macro .set reorder .set noreorder .set nomacro beq $4,$0,.L110 li $5,2 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L108 li $5,3 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L108 li $5,4 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L108 li $5,5 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L111 li $5,6 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L111 li $5,7 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L113 li $5,8 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L113 li $5,9 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L110 li $5,10 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L110 li $5,11 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L110 li $5,12 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L110 li $5,13 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L120 li $5,14 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L121 li $5,15 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L110 li $5,16 .set macro .set reorder .set noreorder .set nomacro bnel $4,$5,.L139 move $sp,$fp .set macro .set reorder lw $4,0($16) andi $5,$4,0x200 .set noreorder .set nomacro beq $5,$0,.L19 andi $4,$4,0x4 .set macro .set reorder .set noreorder .set nomacro beql $4,$0,.L38 ld $4,32($16) .set macro .set reorder ld $3,32($16) li $4,1 .set noreorder .set nomacro beq $3,$4,.L108 li $4,2 .set macro .set reorder .set noreorder .set nomacro beq $3,$4,.L111 li $4,4 .set macro .set reorder .set noreorder .set nomacro beq $3,$4,.L113 li $4,8 .set macro .set reorder .set noreorder .set nomacro beql $3,$4,.L140 ld $3,16($16) .set macro .set reorder .L19: move $sp,$fp .L139: ld $31,24($sp) ld $fp,16($sp) ld $16,0($sp) move $2,$0 .set noreorder .set nomacro j $31 daddiu $sp,$sp,32 .set macro .set reorder .align 3 .L110: ld $3,16($16) .align 3 .L140: sd $2,0($3) move $sp,$fp ld $31,24($sp) ld $fp,16($sp) ld $16,0($sp) move $2,$0 .set noreorder .set nomacro j $31 daddiu $sp,$sp,32 .set macro .set reorder .align 3 .L119: ldc1 $f19,56($12) .set noreorder .set nomacro b .L123 slt $3,$6,9 .set macro .set reorder .align 3 .L118: lwc1 $f19,104($16) .set noreorder .set nomacro b .L124 lw $3,72($16) .set macro .set reorder .align 3 .L108: ld $3,16($16) sb $2,0($3) move $sp,$fp ld $31,24($sp) ld $fp,16($sp) ld $16,0($sp) move $2,$0 .set noreorder .set nomacro j $31 daddiu $sp,$sp,32 .set macro .set reorder .L111: ld $3,16($16) .set noreorder .set nomacro b .L19 sh $2,0($3) .set macro .set reorder .L113: ld $3,16($16) .set noreorder .set nomacro b .L19 sw $2,0($3) .set macro .set reorder .L120: ld $2,16($16) .set noreorder .set nomacro b .L19 swc1 $f0,0($2) .set macro .set reorder .L121: ld $2,16($16) .set noreorder .set nomacro b .L19 sdc1 $f0,0($2) .set macro .set reorder .L38: daddiu $5,$4,-1 sltu $5,$5,16 .set noreorder .set nomacro beq $5,$0,.L19 sltu $7,$4,9 .set macro .set reorder ld $6,16($16) li $8,-8 andi $5,$6,0x7 daddu $4,$4,$5 .set noreorder .set nomacro beq $7,$0,.L42 and $6,$6,$8 .set macro .set reorder sltu $3,$4,9 .set noreorder .set nomacro beq $3,$0,.L43 subu $8,$0,$5 .set macro .set reorder subu $3,$0,$5 sll $7,$4,0 sll $3,$3,3 ld $8,0($6) addiu $3,$3,63 subu $7,$0,$7 li $4,2 dsll $4,$4,$3 sll $7,$7,3 sll $5,$5,3 li $3,1 dsll $3,$3,$7 dsra $2,$2,$5 dsubu $3,$4,$3 xor $2,$2,$8 and $2,$3,$2 xor $2,$2,$8 .set noreorder .set nomacro b .L19 sd $2,0($6) .set macro .set reorder .align 3 .L42: subu $9,$0,$5 ld $11,0($6) sll $10,$9,3 addiu $7,$10,63 sll $5,$5,3 li $8,2 dsll $8,$8,$7 dsra $7,$2,$5 daddiu $8,$8,-1 xor $7,$7,$11 and $7,$8,$7 xor $7,$7,$11 sltu $8,$4,17 .set noreorder .set nomacro bne $8,$0,.L122 sd $7,0($6) .set macro .set reorder ld $9,16($6) sll $4,$4,0 addiu $10,$10,64 subu $4,$0,$4 move $8,$3 sll $4,$4,3 dsll $3,$3,$10 li $7,-1 dsll $4,$7,$4 xor $3,$3,$9 dsll $2,$2,$10 dsra $5,$8,$5 and $3,$4,$3 or $2,$2,$5 xor $3,$3,$9 sd $2,8($6) .set noreorder .set nomacro b .L19 sd $3,16($6) .set macro .set reorder .L43: ld $11,0($6) ld $10,8($6) sll $7,$4,0 sll $8,$8,3 sll $5,$5,3 subu $9,$0,$7 addiu $4,$8,63 li $7,2 dsra $3,$2,$5 dsll $4,$7,$4 dsll $2,$2,$8 sll $7,$9,3 li $5,-1 daddiu $4,$4,-1 xor $3,$3,$11 dsll $5,$5,$7 xor $2,$2,$10 and $3,$4,$3 and $2,$5,$2 xor $3,$3,$11 xor $2,$2,$10 sd $3,0($6) .set noreorder .set nomacro b .L19 sd $2,8($6) .set macro .set reorder .L122: sll $7,$9,2 addiu $7,$7,32 ld $8,8($6) dsll $2,$2,$7 sll $4,$4,0 dsll $7,$2,$7 dsra $3,$3,$5 subu $4,$0,$4 or $3,$7,$3 sll $4,$4,3 li $2,-1 xor $3,$3,$8 dsll $2,$2,$4 and $2,$3,$2 xor $2,$2,$8 .set noreorder .set nomacro b .L19 sd $2,8($6) .set macro .set reorder .end avcall_call .size avcall_call, .-avcall_call libffcall-2.2/avcall/avcall-x86_64.c0000664000000000000000000003634313347755262014017 00000000000000/** Copyright 1993 Bill Triggs Copyright 1995-2017 Bruno Haible This program is free software: you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program. If not, see . **/ /*---------------------------------------------------------------------- Foreign function interface for an x86_64 (a.k.a. amd64) with gcc using the Unix ABI ('gcc -mabi=sysv'). This calls a C function with an argument list built up using macros defined in avcall.h. x86_64 Argument Passing Conventions on Unix: Documentation is at https://github.com/hjl-tools/x86-psABI/wiki/X86-psABI * Arguments: - Integer or pointer arguments: The first 6 integer or pointer arguments get passed in integer registers (%rdi, %rsi, %rdx, %rcx, %r8, %r9). The remaining ones (as an entire word each) on the stack. - Floating-point arguments: Up to 8 float/double arguments are passed in SSE registers (%xmm0..%xmm7). The remaining ones (as an entire word each) on the stack. - Structure arguments: Structure args are passed as true structures embedded in the argument stack. * Return value: Integers are returned in %rax, %rdx. Float/double values are returned in %xmm0, %xmm1. To return a structure larger than 16 bytes, the called function copies the value to space pointed to by its first argument, and all other arguments are shifted down by one. * Call-used registers: rax,rdx,rcx,rsi,rdi,r8-r11 ----------------------------------------------------------------------*/ #include "avcall-internal.h" #define RETURN(TYPE,VAL) (*(TYPE*)l->raddr = (TYPE)(VAL)) /*register __avword iarg1 __asm__("rdi");*/ /*register __avword iarg2 __asm__("rsi");*/ /*register __avword iarg3 __asm__("rdx");*/ /*register __avword iarg4 __asm__("rcx");*/ /*register __avword iarg5 __asm__("r8");*/ /*register __avword iarg6 __asm__("r9");*/ register double farg1 __asm__("xmm0"); register double farg2 __asm__("xmm1"); register double farg3 __asm__("xmm2"); register double farg4 __asm__("xmm3"); register double farg5 __asm__("xmm4"); register double farg6 __asm__("xmm5"); register double farg7 __asm__("xmm6"); register double farg8 __asm__("xmm7"); int avcall_call(av_alist* list) { register __avword* sp __asm__("rsp"); /* C names for registers */ /*register __avword iretreg __asm__("rax");*/ register __avword iret2reg __asm__("rdx"); register double dret __asm__("xmm0"); __av_alist* l = &AV_LIST_INNER(list); __avword* argframe = __builtin_alloca(__AV_ALIST_WORDS * sizeof(__avword)); /* make room for argument list */ int arglen = l->aptr - l->args; int farglen = l->faptr - l->fargs; __avword iret, iret2; { int i; for (i = 0; i < arglen; i++) /* push function args onto stack */ argframe[i] = l->args[i]; } /* Call function. It's OK to pass 8 values in SSE registers even if the called function takes less than 8 float/double arguments. Similarly for the integer arguments. */ if (l->rtype == __AVfloat) { *(float*)l->raddr = (*(float(*)())l->func)(l->iargs[0], l->iargs[1], l->iargs[2], l->iargs[3], l->iargs[4], l->iargs[5], farglen > 0 ? l->fargs[0] : 0.0, farglen > 1 ? l->fargs[1] : 0.0, farglen > 2 ? l->fargs[2] : 0.0, farglen > 3 ? l->fargs[3] : 0.0, farglen > 4 ? l->fargs[4] : 0.0, farglen > 5 ? l->fargs[5] : 0.0, farglen > 6 ? l->fargs[6] : 0.0, farglen > 7 ? l->fargs[7] : 0.0); } else if (l->rtype == __AVdouble) { *(double*)l->raddr = (*(double(*)())l->func)(l->iargs[0], l->iargs[1], l->iargs[2], l->iargs[3], l->iargs[4], l->iargs[5], farglen > 0 ? l->fargs[0] : 0.0, farglen > 1 ? l->fargs[1] : 0.0, farglen > 2 ? l->fargs[2] : 0.0, farglen > 3 ? l->fargs[3] : 0.0, farglen > 4 ? l->fargs[4] : 0.0, farglen > 5 ? l->fargs[5] : 0.0, farglen > 6 ? l->fargs[6] : 0.0, farglen > 7 ? l->fargs[7] : 0.0); } else { iret = (*l->func)(l->iargs[0], l->iargs[1], l->iargs[2], l->iargs[3], l->iargs[4], l->iargs[5], farglen > 0 ? l->fargs[0] : 0.0, farglen > 1 ? l->fargs[1] : 0.0, farglen > 2 ? l->fargs[2] : 0.0, farglen > 3 ? l->fargs[3] : 0.0, farglen > 4 ? l->fargs[4] : 0.0, farglen > 5 ? l->fargs[5] : 0.0, farglen > 6 ? l->fargs[6] : 0.0, farglen > 7 ? l->fargs[7] : 0.0); iret2 = iret2reg; /* save return value */ if (l->rtype == __AVvoid) { } else if (l->rtype == __AVword) { RETURN(__avword, iret); } else if (l->rtype == __AVchar) { RETURN(char, iret); } else if (l->rtype == __AVschar) { RETURN(signed char, iret); } else if (l->rtype == __AVuchar) { RETURN(unsigned char, iret); } else if (l->rtype == __AVshort) { RETURN(short, iret); } else if (l->rtype == __AVushort) { RETURN(unsigned short, iret); } else if (l->rtype == __AVint) { RETURN(int, iret); } else if (l->rtype == __AVuint) { RETURN(unsigned int, iret); } else if (l->rtype == __AVlong) { RETURN(long, iret); } else if (l->rtype == __AVulong) { RETURN(unsigned long, iret); } else if (l->rtype == __AVlonglong) { RETURN(long long, iret); } else if (l->rtype == __AVulonglong) { RETURN(unsigned long long, iret); } else /* see above if (l->rtype == __AVfloat) { } else if (l->rtype == __AVdouble) { } else */ if (l->rtype == __AVvoidp) { RETURN(void*, iret); } else if (l->rtype == __AVstruct) { if (l->flags & __AV_REGISTER_STRUCT_RETURN) { /* Return structs of size <= 16 in registers. */ if (l->rsize > 0 && l->rsize <= 16) { void* raddr = l->raddr; #if 0 /* Unoptimized */ if (l->rsize == 1) { ((unsigned char *)raddr)[0] = (unsigned char)(iret); } else if (l->rsize == 2) { ((unsigned char *)raddr)[0] = (unsigned char)(iret); ((unsigned char *)raddr)[1] = (unsigned char)(iret>>8); } else if (l->rsize == 3) { ((unsigned char *)raddr)[0] = (unsigned char)(iret); ((unsigned char *)raddr)[1] = (unsigned char)(iret>>8); ((unsigned char *)raddr)[2] = (unsigned char)(iret>>16); } else if (l->rsize == 4) { ((unsigned char *)raddr)[0] = (unsigned char)(iret); ((unsigned char *)raddr)[1] = (unsigned char)(iret>>8); ((unsigned char *)raddr)[2] = (unsigned char)(iret>>16); ((unsigned char *)raddr)[3] = (unsigned char)(iret>>24); } else if (l->rsize == 5) { ((unsigned char *)raddr)[0] = (unsigned char)(iret); ((unsigned char *)raddr)[1] = (unsigned char)(iret>>8); ((unsigned char *)raddr)[2] = (unsigned char)(iret>>16); ((unsigned char *)raddr)[3] = (unsigned char)(iret>>24); ((unsigned char *)raddr)[4] = (unsigned char)(iret>>32); } else if (l->rsize == 6) { ((unsigned char *)raddr)[0] = (unsigned char)(iret); ((unsigned char *)raddr)[1] = (unsigned char)(iret>>8); ((unsigned char *)raddr)[2] = (unsigned char)(iret>>16); ((unsigned char *)raddr)[3] = (unsigned char)(iret>>24); ((unsigned char *)raddr)[4] = (unsigned char)(iret>>32); ((unsigned char *)raddr)[5] = (unsigned char)(iret>>40); } else if (l->rsize == 7) { ((unsigned char *)raddr)[0] = (unsigned char)(iret); ((unsigned char *)raddr)[1] = (unsigned char)(iret>>8); ((unsigned char *)raddr)[2] = (unsigned char)(iret>>16); ((unsigned char *)raddr)[3] = (unsigned char)(iret>>24); ((unsigned char *)raddr)[4] = (unsigned char)(iret>>32); ((unsigned char *)raddr)[5] = (unsigned char)(iret>>40); ((unsigned char *)raddr)[6] = (unsigned char)(iret>>48); } else if (l->rsize >= 8 && l->rsize <= 16) { ((unsigned char *)raddr)[0] = (unsigned char)(iret); ((unsigned char *)raddr)[1] = (unsigned char)(iret>>8); ((unsigned char *)raddr)[2] = (unsigned char)(iret>>16); ((unsigned char *)raddr)[3] = (unsigned char)(iret>>24); ((unsigned char *)raddr)[4] = (unsigned char)(iret>>32); ((unsigned char *)raddr)[5] = (unsigned char)(iret>>40); ((unsigned char *)raddr)[6] = (unsigned char)(iret>>48); ((unsigned char *)raddr)[7] = (unsigned char)(iret>>56); if (l->rsize == 8) { } else if (l->rsize == 9) { ((unsigned char *)raddr)[8+0] = (unsigned char)(iret2); } else if (l->rsize == 10) { ((unsigned char *)raddr)[8+0] = (unsigned char)(iret2); ((unsigned char *)raddr)[8+1] = (unsigned char)(iret2>>8); } else if (l->rsize == 11) { ((unsigned char *)raddr)[8+0] = (unsigned char)(iret2); ((unsigned char *)raddr)[8+1] = (unsigned char)(iret2>>8); ((unsigned char *)raddr)[8+2] = (unsigned char)(iret2>>16); } else if (l->rsize == 12) { ((unsigned char *)raddr)[8+0] = (unsigned char)(iret2); ((unsigned char *)raddr)[8+1] = (unsigned char)(iret2>>8); ((unsigned char *)raddr)[8+2] = (unsigned char)(iret2>>16); ((unsigned char *)raddr)[8+3] = (unsigned char)(iret2>>24); } else if (l->rsize == 13) { ((unsigned char *)raddr)[8+0] = (unsigned char)(iret2); ((unsigned char *)raddr)[8+1] = (unsigned char)(iret2>>8); ((unsigned char *)raddr)[8+2] = (unsigned char)(iret2>>16); ((unsigned char *)raddr)[8+3] = (unsigned char)(iret2>>24); ((unsigned char *)raddr)[8+4] = (unsigned char)(iret2>>32); } else if (l->rsize == 14) { ((unsigned char *)raddr)[8+0] = (unsigned char)(iret2); ((unsigned char *)raddr)[8+1] = (unsigned char)(iret2>>8); ((unsigned char *)raddr)[8+2] = (unsigned char)(iret2>>16); ((unsigned char *)raddr)[8+3] = (unsigned char)(iret2>>24); ((unsigned char *)raddr)[8+4] = (unsigned char)(iret2>>32); ((unsigned char *)raddr)[8+5] = (unsigned char)(iret2>>40); } else if (l->rsize == 15) { ((unsigned char *)raddr)[8+0] = (unsigned char)(iret2); ((unsigned char *)raddr)[8+1] = (unsigned char)(iret2>>8); ((unsigned char *)raddr)[8+2] = (unsigned char)(iret2>>16); ((unsigned char *)raddr)[8+3] = (unsigned char)(iret2>>24); ((unsigned char *)raddr)[8+4] = (unsigned char)(iret2>>32); ((unsigned char *)raddr)[8+5] = (unsigned char)(iret2>>40); ((unsigned char *)raddr)[8+6] = (unsigned char)(iret2>>48); } else if (l->rsize == 16) { ((unsigned char *)raddr)[8+0] = (unsigned char)(iret2); ((unsigned char *)raddr)[8+1] = (unsigned char)(iret2>>8); ((unsigned char *)raddr)[8+2] = (unsigned char)(iret2>>16); ((unsigned char *)raddr)[8+3] = (unsigned char)(iret2>>24); ((unsigned char *)raddr)[8+4] = (unsigned char)(iret2>>32); ((unsigned char *)raddr)[8+5] = (unsigned char)(iret2>>40); ((unsigned char *)raddr)[8+6] = (unsigned char)(iret2>>48); ((unsigned char *)raddr)[8+7] = (unsigned char)(iret2>>56); } } #else /* Optimized: fewer conditional jumps, fewer memory accesses */ uintptr_t count = l->rsize; /* > 0, ≤ 2*sizeof(__avword) */ __avword* wordaddr = (__avword*)((uintptr_t)raddr & ~(uintptr_t)(sizeof(__avword)-1)); uintptr_t start_offset = (uintptr_t)raddr & (uintptr_t)(sizeof(__avword)-1); /* ≥ 0, < sizeof(__avword) */ uintptr_t end_offset = start_offset + count; /* > 0, < 3*sizeof(__avword) */ if (count <= sizeof(__avword)) { /* Use iret. */ if (end_offset <= sizeof(__avword)) { /* 0 < end_offset ≤ sizeof(__avword) */ __avword mask0 = ((__avword)2 << (end_offset*8-1)) - ((__avword)1 << (start_offset*8)); wordaddr[0] ^= (wordaddr[0] ^ (iret << (start_offset*8))) & mask0; } else { /* sizeof(__avword) < end_offset < 2*sizeof(__avword), start_offset > 0 */ __avword mask0 = - ((__avword)1 << (start_offset*8)); __avword mask1 = ((__avword)2 << (end_offset*8-sizeof(__avword)*8-1)) - 1; wordaddr[0] ^= (wordaddr[0] ^ (iret << (start_offset*8))) & mask0; wordaddr[1] ^= (wordaddr[1] ^ (iret >> (sizeof(__avword)*8-start_offset*8))) & mask1; } } else { /* Use iret, iret2. */ __avword mask0 = - ((__avword)1 << (start_offset*8)); wordaddr[0] ^= (wordaddr[0] ^ (iret << (start_offset*8))) & mask0; if (end_offset <= 2*sizeof(__avword)) { /* sizeof(__avword) < end_offset ≤ 2*sizeof(__avword) */ __avword mask1 = ((__avword)2 << (end_offset*8-sizeof(__avword)*8-1)) - 1; wordaddr[1] ^= (wordaddr[1] ^ ((iret >> (sizeof(__avword)*4-start_offset*4) >> (sizeof(__avword)*4-start_offset*4)) | (iret2 << (start_offset*8)))) & mask1; } else { /* 2*sizeof(__avword) < end_offset < 3*sizeof(__avword), start_offset > 0 */ __avword mask2 = ((__avword)2 << (end_offset*8-2*sizeof(__avword)*8-1)) - 1; wordaddr[1] = (iret >> (sizeof(__avword)*8-start_offset*8)) | (iret2 << (start_offset*8)); wordaddr[2] ^= (wordaddr[2] ^ (iret2 >> (sizeof(__avword)*8-start_offset*8))) & mask2; } } #endif } } } } return 0; } libffcall-2.2/avcall/avcall-powerpc64-aix.s0000664000000000000000000000510113530357107015463 00000000000000 .file "avcall-powerpc64.c" .csect .text[PR] .toc .csect .text[PR] .align 2 .align 4 .globl avcall_call .globl .avcall_call .csect avcall_call[DS],3 avcall_call: .llong .avcall_call, TOC[tc0], 0 .csect .text[PR] .avcall_call: mflr 0 std 30,-16(1) std 31,-8(1) mr 30,3 std 0,16(1) stdu 1,-128(1) ld 3,48(3) ld 9,40(30) ld 10,0(1) mr 31,1 subf 9,3,9 stdu 10,-2064(1) sradi 9,9,3 cmpwi 7,9,8 ble 7,L..6 addi 10,9,-9 addi 8,1,112 rldicl 10,10,0,32 addi 9,3,56 addi 10,10,8 addi 8,8,-8 sldi 10,10,3 add 10,3,10 .align 4 L..5: ldu 7,8(9) stdu 7,8(8) cmpld 7,10,9 bne 7,L..5 L..6: ld 10,64(30) addi 9,30,72 subf 9,9,10 sradi 9,9,3 extsw 9,9 cmpwi 7,9,0 ble 7,L..4 cmpwi 7,9,1 beq 7,L..7 cmpwi 7,9,2 beq 7,L..8 cmpwi 7,9,3 beq 7,L..9 cmpwi 7,9,4 beq 7,L..10 cmpwi 7,9,5 beq 7,L..11 cmpwi 7,9,6 beq 7,L..12 cmpwi 7,9,7 beq 7,L..13 cmpwi 7,9,8 beq 7,L..14 cmpwi 7,9,9 beq 7,L..15 cmpwi 7,9,10 beq 7,L..16 cmpwi 7,9,11 beq 7,L..17 cmpwi 7,9,12 beq 7,L..18 lfd 13,168(30) L..18: lfd 12,160(30) L..17: lfd 11,152(30) L..16: lfd 10,144(30) L..15: lfd 9,136(30) L..14: lfd 8,128(30) L..13: lfd 7,120(30) L..12: lfd 6,112(30) L..11: lfd 5,104(30) L..10: lfd 4,96(30) L..9: lfd 3,88(30) L..8: lfd 2,80(30) L..7: lfd 1,72(30) L..4: ld 9,48(3) ld 10,56(3) ld 8,40(3) ld 7,32(3) ld 6,24(3) ld 5,16(3) ld 4,8(3) ld 3,0(3) std 2,40(1) ld 12,8(30) ld 0,0(12) ld 11,16(12) mtctr 0 ld 2,8(12) bctrl ld 2,40(1) lwz 9,24(30) cmplwi 7,9,1 beq 7,L..19 cmpdi 7,9,0 beq 7,L..36 cmplwi 7,9,2 beq 7,L..38 cmplwi 7,9,3 beq 7,L..38 cmplwi 7,9,4 beq 7,L..38 cmplwi 7,9,5 beq 7,L..39 cmplwi 7,9,6 beq 7,L..39 cmplwi 7,9,7 beq 7,L..40 cmplwi 7,9,8 beq 7,L..40 cmplwi 7,9,9 beq 7,L..36 cmplwi 7,9,10 beq 7,L..36 cmplwi 7,9,11 beq 7,L..36 cmplwi 7,9,12 beq 7,L..36 cmplwi 7,9,13 beq 7,L..42 cmplwi 7,9,14 beq 7,L..43 cmplwi 7,9,15 beq 7,L..36 L..19: addi 1,31,128 ld 0,16(1) ld 30,-16(1) li 3,0 ld 31,-8(1) mtlr 0 blr .align 4 L..36: ld 9,16(30) std 3,0(9) addi 1,31,128 li 3,0 ld 0,16(1) ld 30,-16(1) ld 31,-8(1) mtlr 0 blr .align 4 L..38: ld 9,16(30) stb 3,0(9) addi 1,31,128 li 3,0 ld 0,16(1) ld 30,-16(1) ld 31,-8(1) mtlr 0 blr L..39: ld 9,16(30) sth 3,0(9) b L..19 L..40: ld 9,16(30) stw 3,0(9) b L..19 L..42: ld 9,16(30) stfs 1,0(9) b L..19 L..43: ld 9,16(30) stfd 1,0(9) b L..19 LT..avcall_call: .long 0 .byte 0,0,32,97,128,2,1,0 .long 0 .long LT..avcall_call-.avcall_call .short 11 .byte "avcall_call" .byte 31 .align 2 _section_.text: .csect .data[RW],4 .llong _section_.text libffcall-2.2/avcall/COPYING0000644000000000000000000004335713026317516012477 00000000000000 GNU GENERAL PUBLIC LICENSE Version 2, June 1991 Copyright (C) 1989, 1991 Free Software Foundation, Inc. 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. Everyone is permitted to copy and distribute verbatim copies of this license document, but changing it is not allowed. Preamble The licenses for most software are designed to take away your freedom to share and change it. By contrast, the GNU General Public License is intended to guarantee your freedom to share and change free software--to make sure the software is free for all its users. This General Public License applies to most of the Free Software Foundation's software and to any other program whose authors commit to using it. (Some other Free Software Foundation software is covered by the GNU Library General Public License instead.) You can apply it to your programs, too. When we speak of free software, we are referring to freedom, not price. Our General Public Licenses are designed to make sure that you have the freedom to distribute copies of free software (and charge for this service if you wish), that you receive source code or can get it if you want it, that you can change the software or use pieces of it in new free programs; and that you know you can do these things. To protect your rights, we need to make restrictions that forbid anyone to deny you these rights or to ask you to surrender the rights. These restrictions translate to certain responsibilities for you if you distribute copies of the software, or if you modify it. For example, if you distribute copies of such a program, whether gratis or for a fee, you must give the recipients all the rights that you have. You must make sure that they, too, receive or can get the source code. And you must show them these terms so they know their rights. We protect your rights with two steps: (1) copyright the software, and (2) offer you this license which gives you legal permission to copy, distribute and/or modify the software. Also, for each author's protection and ours, we want to make certain that everyone understands that there is no warranty for this free software. If the software is modified by someone else and passed on, we want its recipients to know that what they have is not the original, so that any problems introduced by others will not reflect on the original authors' reputations. Finally, any free program is threatened constantly by software patents. We wish to avoid the danger that redistributors of a free program will individually obtain patent licenses, in effect making the program proprietary. To prevent this, we have made it clear that any patent must be licensed for everyone's free use or not licensed at all. The precise terms and conditions for copying, distribution and modification follow. GNU GENERAL PUBLIC LICENSE TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION 0. This License applies to any program or other work which contains a notice placed by the copyright holder saying it may be distributed under the terms of this General Public License. The "Program", below, refers to any such program or work, and a "work based on the Program" means either the Program or any derivative work under copyright law: that is to say, a work containing the Program or a portion of it, either verbatim or with modifications and/or translated into another language. (Hereinafter, translation is included without limitation in the term "modification".) Each licensee is addressed as "you". Activities other than copying, distribution and modification are not covered by this License; they are outside its scope. The act of running the Program is not restricted, and the output from the Program is covered only if its contents constitute a work based on the Program (independent of having been made by running the Program). Whether that is true depends on what the Program does. 1. You may copy and distribute verbatim copies of the Program's source code as you receive it, in any medium, provided that you conspicuously and appropriately publish on each copy an appropriate copyright notice and disclaimer of warranty; keep intact all the notices that refer to this License and to the absence of any warranty; and give any other recipients of the Program a copy of this License along with the Program. You may charge a fee for the physical act of transferring a copy, and you may at your option offer warranty protection in exchange for a fee. 2. You may modify your copy or copies of the Program or any portion of it, thus forming a work based on the Program, and copy and distribute such modifications or work under the terms of Section 1 above, provided that you also meet all of these conditions: a) You must cause the modified files to carry prominent notices stating that you changed the files and the date of any change. b) You must cause any work that you distribute or publish, that in whole or in part contains or is derived from the Program or any part thereof, to be licensed as a whole at no charge to all third parties under the terms of this License. c) If the modified program normally reads commands interactively when run, you must cause it, when started running for such interactive use in the most ordinary way, to print or display an announcement including an appropriate copyright notice and a notice that there is no warranty (or else, saying that you provide a warranty) and that users may redistribute the program under these conditions, and telling the user how to view a copy of this License. (Exception: if the Program itself is interactive but does not normally print such an announcement, your work based on the Program is not required to print an announcement.) These requirements apply to the modified work as a whole. If identifiable sections of that work are not derived from the Program, and can be reasonably considered independent and separate works in themselves, then this License, and its terms, do not apply to those sections when you distribute them as separate works. But when you distribute the same sections as part of a whole which is a work based on the Program, the distribution of the whole must be on the terms of this License, whose permissions for other licensees extend to the entire whole, and thus to each and every part regardless of who wrote it. Thus, it is not the intent of this section to claim rights or contest your rights to work written entirely by you; rather, the intent is to exercise the right to control the distribution of derivative or collective works based on the Program. In addition, mere aggregation of another work not based on the Program with the Program (or with a work based on the Program) on a volume of a storage or distribution medium does not bring the other work under the scope of this License. 3. You may copy and distribute the Program (or a work based on it, under Section 2) in object code or executable form under the terms of Sections 1 and 2 above provided that you also do one of the following: a) Accompany it with the complete corresponding machine-readable source code, which must be distributed under the terms of Sections 1 and 2 above on a medium customarily used for software interchange; or, b) Accompany it with a written offer, valid for at least three years, to give any third party, for a charge no more than your cost of physically performing source distribution, a complete machine-readable copy of the corresponding source code, to be distributed under the terms of Sections 1 and 2 above on a medium customarily used for software interchange; or, c) Accompany it with the information you received as to the offer to distribute corresponding source code. (This alternative is allowed only for noncommercial distribution and only if you received the program in object code or executable form with such an offer, in accord with Subsection b above.) The source code for a work means the preferred form of the work for making modifications to it. For an executable work, complete source code means all the source code for all modules it contains, plus any associated interface definition files, plus the scripts used to control compilation and installation of the executable. However, as a special exception, the source code distributed need not include anything that is normally distributed (in either source or binary form) with the major components (compiler, kernel, and so on) of the operating system on which the executable runs, unless that component itself accompanies the executable. If distribution of executable or object code is made by offering access to copy from a designated place, then offering equivalent access to copy the source code from the same place counts as distribution of the source code, even though third parties are not compelled to copy the source along with the object code. 4. You may not copy, modify, sublicense, or distribute the Program except as expressly provided under this License. Any attempt otherwise to copy, modify, sublicense or distribute the Program is void, and will automatically terminate your rights under this License. However, parties who have received copies, or rights, from you under this License will not have their licenses terminated so long as such parties remain in full compliance. 5. You are not required to accept this License, since you have not signed it. However, nothing else grants you permission to modify or distribute the Program or its derivative works. These actions are prohibited by law if you do not accept this License. Therefore, by modifying or distributing the Program (or any work based on the Program), you indicate your acceptance of this License to do so, and all its terms and conditions for copying, distributing or modifying the Program or works based on it. 6. Each time you redistribute the Program (or any work based on the Program), the recipient automatically receives a license from the original licensor to copy, distribute or modify the Program subject to these terms and conditions. You may not impose any further restrictions on the recipients' exercise of the rights granted herein. You are not responsible for enforcing compliance by third parties to this License. 7. If, as a consequence of a court judgment or allegation of patent infringement or for any other reason (not limited to patent issues), conditions are imposed on you (whether by court order, agreement or otherwise) that contradict the conditions of this License, they do not excuse you from the conditions of this License. If you cannot distribute so as to satisfy simultaneously your obligations under this License and any other pertinent obligations, then as a consequence you may not distribute the Program at all. For example, if a patent license would not permit royalty-free redistribution of the Program by all those who receive copies directly or indirectly through you, then the only way you could satisfy both it and this License would be to refrain entirely from distribution of the Program. If any portion of this section is held invalid or unenforceable under any particular circumstance, the balance of the section is intended to apply and the section as a whole is intended to apply in other circumstances. It is not the purpose of this section to induce you to infringe any patents or other property right claims or to contest validity of any such claims; this section has the sole purpose of protecting the integrity of the free software distribution system, which is implemented by public license practices. Many people have made generous contributions to the wide range of software distributed through that system in reliance on consistent application of that system; it is up to the author/donor to decide if he or she is willing to distribute software through any other system and a licensee cannot impose that choice. This section is intended to make thoroughly clear what is believed to be a consequence of the rest of this License. 8. If the distribution and/or use of the Program is restricted in certain countries either by patents or by copyrighted interfaces, the original copyright holder who places the Program under this License may add an explicit geographical distribution limitation excluding those countries, so that distribution is permitted only in or among countries not thus excluded. In such case, this License incorporates the limitation as if written in the body of this License. 9. The Free Software Foundation may publish revised and/or new versions of the General Public License from time to time. Such new versions will be similar in spirit to the present version, but may differ in detail to address new problems or concerns. Each version is given a distinguishing version number. If the Program specifies a version number of this License which applies to it and "any later version", you have the option of following the terms and conditions either of that version or of any later version published by the Free Software Foundation. If the Program does not specify a version number of this License, you may choose any version ever published by the Free Software Foundation. 10. If you wish to incorporate parts of the Program into other free programs whose distribution conditions are different, write to the author to ask for permission. For software which is copyrighted by the Free Software Foundation, write to the Free Software Foundation; we sometimes make exceptions for this. Our decision will be guided by the two goals of preserving the free status of all derivatives of our free software and of promoting the sharing and reuse of software generally. NO WARRANTY 11. BECAUSE THE PROGRAM IS LICENSED FREE OF CHARGE, THERE IS NO WARRANTY FOR THE PROGRAM, TO THE EXTENT PERMITTED BY APPLICABLE LAW. EXCEPT WHEN OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR OTHER PARTIES PROVIDE THE PROGRAM "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. THE ENTIRE RISK AS TO THE QUALITY AND PERFORMANCE OF THE PROGRAM IS WITH YOU. SHOULD THE PROGRAM PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL NECESSARY SERVICING, REPAIR OR CORRECTION. 12. IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY AND/OR REDISTRIBUTE THE PROGRAM AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES, INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING OUT OF THE USE OR INABILITY TO USE THE PROGRAM (INCLUDING BUT NOT LIMITED TO LOSS OF DATA OR DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY YOU OR THIRD PARTIES OR A FAILURE OF THE PROGRAM TO OPERATE WITH ANY OTHER PROGRAMS), EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGES. END OF TERMS AND CONDITIONS Appendix: How to Apply These Terms to Your New Programs If you develop a new program, and you want it to be of the greatest possible use to the public, the best way to achieve this is to make it free software which everyone can redistribute and change under these terms. To do so, attach the following notices to the program. It is safest to attach them to the start of each source file to most effectively convey the exclusion of warranty; and each file should have at least the "copyright" line and a pointer to where the full notice is found. Copyright (C) This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program; if not, write to the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. Also add information on how to contact you by electronic and paper mail. If the program is interactive, make it output a short notice like this when it starts in an interactive mode: Gnomovision version 69, Copyright (C) year name of author Gnomovision comes with ABSOLUTELY NO WARRANTY; for details type `show w'. This is free software, and you are welcome to redistribute it under certain conditions; type `show c' for details. The hypothetical commands `show w' and `show c' should show the appropriate parts of the General Public License. Of course, the commands you use may be called something other than `show w' and `show c'; they could even be mouse-clicks or menu items--whatever suits your program. You should also get your employer (if you work as a programmer) or your school, if any, to sign a "copyright disclaimer" for the program, if necessary. Here is a sample; alter the names: Yoyodyne, Inc., hereby disclaims all copyright interest in the program `Gnomovision' (which makes passes at compilers) written by James Hacker. , 1 April 1989 Ty Coon, President of Vice This General Public License does not permit incorporating your program into proprietary programs. If your program is a subroutine library, you may consider it more useful to permit linking proprietary applications with the library. If this is what you want to do, use the GNU Library General Public License instead of this License. libffcall-2.2/avcall/avcall-i386-macro.S0000664000000000000000000000776313530357105014621 00000000000000#include "asm-i386.h" TEXT() ALIGN(2) P2ALIGN(2,3) GLOBL(C(avcall_call)) DECLARE_FUNCTION(avcall_call) FUNBEGIN(avcall_call) INSN1(push,l ,R(ebp)) INSN2(mov,l ,R(esp), R(ebp)) INSN1(push,l ,R(edi)) INSN1(push,l ,R(esi)) INSN2(mov,l ,X4 MEM_DISP(ebp,8), R(eax)) INSN2(mov,l ,X4 MEM_DISP(eax,20), R(edx)) INSN2(mov,l ,X4 MEM_DISP(eax,24), R(eax)) INSN2(sub,l ,R(eax), R(edx)) INSN2(sar,l ,NUM(2), R(edx)) INSN2(xor,l ,R(esi), R(esi)) INSN2(sub,l ,NUM(1024), R(esp)) INSN2(cmp,l ,R(edx), R(esi)) INSN2(mov,l ,R(esp), R(edi)) INSN1(jge,_ ,L(47)) INSN2(mov,l ,R(eax), R(ecx)) P2ALIGN(2,3) L(6): INSN2(mov,l ,X4 MEM_SHINDEX(ecx,esi,4), R(eax)) INSN2(mov,l ,R(eax),X4 MEM_SHINDEX(edi,esi,4)) INSN1(inc,l ,R(esi)) INSN2(cmp,l ,R(edx), R(esi)) INSN1(jl,_ ,L(6)) L(47): INSN2(mov,l ,X4 MEM_DISP(ebp,8), R(edx)) INSN2(mov,l ,X4 MEM_DISP(edx,12), R(eax)) INSN2(cmp,l ,NUM(13), R(eax)) INSN1(je,_ ,L(55)) INSN2(cmp,l ,NUM(14), R(eax)) INSN1(je,_ ,L(56)) INSN2(mov,l ,X4 MEM_DISP(ebp,8), R(ecx)) INSN1(call,_ ,INDIR(X4 MEM_DISP(ecx,4))) INSN2(mov,l ,R(eax), R(esi)) INSN2(mov,l ,X4 MEM_DISP(ebp,8), R(eax)) INSN2(mov,l ,X4 MEM_DISP(eax,12), R(ecx)) INSN2(cmp,l ,NUM(1), R(ecx)) INSN1(je,_ ,L(8)) INSN2(test,l ,R(ecx), R(ecx)) INSN1(jne,_ ,L(13)) INSN2(mov,l ,X4 MEM_DISP(eax,8), R(eax)) L(50): INSN2(mov,l ,R(esi),X4 MEM(eax)) L(8): INSN2(lea,l ,X4 MEM_DISP(ebp,-8), R(esp)) INSN1(pop,l ,R(esi)) INSN2(xor,l ,R(eax), R(eax)) INSN1(pop,l ,R(edi)) leave ret L(13): INSN2(cmp,l ,NUM(2), R(ecx)) INSN1(je,_ ,L(53)) INSN2(cmp,l ,NUM(3), R(ecx)) INSN1(je,_ ,L(53)) INSN2(cmp,l ,NUM(4), R(ecx)) INSN1(je,_ ,L(53)) INSN2(cmp,l ,NUM(5), R(ecx)) INSN1(je,_ ,L(57)) INSN2(cmp,l ,NUM(6), R(ecx)) INSN1(je,_ ,L(51)) INSN2(cmp,l ,NUM(7), R(ecx)) INSN1(je,_ ,L(48)) INSN2(cmp,l ,NUM(8), R(ecx)) INSN1(je,_ ,L(54)) INSN2(cmp,l ,NUM(9), R(ecx)) INSN1(je,_ ,L(48)) INSN2(cmp,l ,NUM(10), R(ecx)) INSN1(je,_ ,L(54)) INSN2(lea,l ,X4 MEM_DISP(ecx,-11), R(eax)) INSN2(cmp,l ,NUM(1), R(eax)) INSN1(jbe,_ ,L(49)) INSN2(cmp,l ,NUM(15), R(ecx)) INSN1(je,_ ,L(48)) INSN2(cmp,l ,NUM(16), R(ecx)) INSN1(jne,_ ,L(8)) INSN2(mov,l ,X4 MEM_DISP(ebp,8), R(ecx)) INSN2(test,b ,NUM(2),X1 MEM_DISP(ecx,1)) INSN1(je,_ ,L(8)) INSN2(mov,l ,X4 MEM_DISP(ecx,16), R(eax)) INSN2(cmp,l ,NUM(1), R(eax)) INSN1(je,_ ,L(58)) INSN2(cmp,l ,NUM(2), R(eax)) INSN1(je,_ ,L(51)) INSN2(cmp,l ,NUM(4), R(eax)) INSN1(je,_ ,L(48)) INSN2(cmp,l ,NUM(8), R(eax)) INSN1(jne,_ ,L(8)) L(49): INSN2(mov,l ,X4 MEM_DISP(ebp,8), R(ecx)) INSN2(mov,l ,X4 MEM_DISP(ecx,8), R(eax)) INSN2(mov,l ,R(esi),X4 MEM(eax)) INSN2(mov,l ,R(edx),X4 MEM_DISP(eax,4)) INSN1(jmp,_ ,L(8)) L(48): INSN2(mov,l ,X4 MEM_DISP(ebp,8), R(edx)) INSN2(mov,l ,X4 MEM_DISP(edx,8), R(eax)) INSN1(jmp,_ ,L(50)) L(51): INSN2(mov,l ,X4 MEM_DISP(ebp,8), R(ecx)) INSN2(mov,l ,X4 MEM_DISP(ecx,8), R(eax)) L(52): INSN2(mov,w ,R(si),X2 MEM(eax)) INSN1(jmp,_ ,L(8)) L(58): INSN2(mov,l ,X4 MEM_DISP(ecx,8), R(eax)) INSN2(mov,l ,R(esi), R(edx)) INSN2(mov,b ,R(dl),X1 MEM(eax)) INSN1(jmp,_ ,L(8)) P2ALIGN(2,3) L(54): INSN2(mov,l ,X4 MEM_DISP(ebp,8), R(ecx)) INSN2(mov,l ,X4 MEM_DISP(ecx,8), R(eax)) INSN1(jmp,_ ,L(50)) L(57): INSN2(mov,l ,X4 MEM_DISP(ebp,8), R(edx)) INSN2(mov,l ,X4 MEM_DISP(edx,8), R(eax)) INSN1(jmp,_ ,L(52)) L(53): INSN2(mov,l ,X4 MEM_DISP(ebp,8), R(edx)) INSN2(mov,l ,X4 MEM_DISP(edx,8), R(eax)) INSN2(mov,l ,R(esi), R(ecx)) INSN2(mov,b ,R(cl),X1 MEM(eax)) INSN1(jmp,_ ,L(8)) L(56): INSN2(mov,l ,X4 MEM_DISP(ebp,8), R(eax)) INSN1(call,_ ,INDIR(X4 MEM_DISP(eax,4))) INSN2(mov,l ,X4 MEM_DISP(ebp,8), R(edx)) INSN2(mov,l ,X4 MEM_DISP(edx,8), R(eax)) INSN1(fstp,l ,X8 MEM(eax)) INSN1(jmp,_ ,L(8)) L(55): INSN1(call,_ ,INDIR(X4 MEM_DISP(edx,4))) INSN2(mov,l ,X4 MEM_DISP(ebp,8), R(ecx)) INSN2(mov,l ,X4 MEM_DISP(ecx,8), R(eax)) INSN1(fstp,s ,X4 MEM(eax)) INSN1(jmp,_ ,L(8)) L(fe1): FUNEND(avcall_call,L(fe1)-avcall_call) #if defined __linux__ || defined __FreeBSD__ || defined __FreeBSD_kernel__ || defined __DragonFly__ .section .note.GNU-stack,"",@progbits #endif libffcall-2.2/avcall/avcall-mipseb-macro.S0000664000000000000000000001013313530357105015370 00000000000000#include "asm-mips.h" .file 1 "avcall-mips.c" .text .align 2 .globl avcall_call .set nomips16 .set nomicromips .ent avcall_call DECLARE_FUNCTION(avcall_call) avcall_call: .frame $fp,40,$31 .mask 0xc0010000,-4 .fmask 0x00000000,0 lw $6,40($4) lw $5,20($4) lw $8,24($4) addiu $sp,$sp,-40 andi $2,$6,0x1 sw $fp,32($sp) sw $16,28($sp) move $fp,$sp sw $31,36($sp) move $16,$4 addiu $sp,$sp,-1032 subu $4,$5,$8 move $3,$sp .set noreorder .set nomacro beq $2,$0,$L2 sra $4,$4,2 .set macro .set reorder l.s $f12,48($16) $L2: lw $2,44($16) andi $7,$2,0x1 .set noreorder .set nomacro beql $7,$0,$L55 andi $6,$6,0x2 .set macro .set reorder l.d $f12,56($16) andi $6,$6,0x2 $L55: .set noreorder .set nomacro beql $6,$0,$L56 andi $2,$2,0x2 .set macro .set reorder l.s $f14,52($16) andi $2,$2,0x2 $L56: .set noreorder .set nomacro beql $2,$0,$L57 slt $4,$4,5 .set macro .set reorder l.d $f14,64($16) slt $4,$4,5 $L57: addiu $2,$8,16 .set noreorder .set nomacro bne $4,$0,$L10 addiu $3,$3,16 .set macro .set reorder $L37: lw $4,0($2) addiu $3,$3,4 addiu $2,$2,4 .set noreorder .set nomacro bne $5,$2,$L37 sw $4,-4($3) .set macro .set reorder $L10: lw $5,4($8) lw $4,0($8) lw $25,4($16) lw $7,12($8) .set noreorder .set nomacro jalr $25 lw $6,8($8) .set macro .set reorder lw $4,12($16) li $5,1 .set noreorder .set nomacro beql $4,$5,$L58 move $sp,$fp .set macro .set reorder .set noreorder .set nomacro beq $4,$0,$L46 li $5,2 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,$L49 li $5,3 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,$L49 li $5,4 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,$L49 li $5,5 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,$L50 li $5,6 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,$L50 li $5,7 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,$L46 li $5,8 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,$L46 li $5,9 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,$L46 li $5,10 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,$L46 addiu $5,$4,-11 .set macro .set reorder sltu $5,$5,2 .set noreorder .set nomacro bnel $5,$0,$L52 lw $4,8($16) .set macro .set reorder li $3,13 .set noreorder .set nomacro beq $4,$3,$L53 li $3,14 .set macro .set reorder .set noreorder .set nomacro beq $4,$3,$L54 li $3,15 .set macro .set reorder .set noreorder .set nomacro beq $4,$3,$L46 li $3,16 .set macro .set reorder .set noreorder .set nomacro bnel $4,$3,$L58 move $sp,$fp .set macro .set reorder lw $3,0($16) andi $3,$3,0x2 .set noreorder .set nomacro beq $3,$0,$L7 li $4,1 .set macro .set reorder lw $3,16($16) .set noreorder .set nomacro beq $3,$4,$L49 li $4,2 .set macro .set reorder .set noreorder .set nomacro beq $3,$4,$L50 li $4,4 .set macro .set reorder .set noreorder .set nomacro beql $3,$4,$L59 lw $3,8($16) .set macro .set reorder $L7: move $sp,$fp $L58: lw $31,36($sp) lw $fp,32($sp) lw $16,28($sp) move $2,$0 .set noreorder .set nomacro j $31 addiu $sp,$sp,40 .set macro .set reorder $L46: lw $3,8($16) $L59: sw $2,0($3) move $sp,$fp lw $31,36($sp) lw $fp,32($sp) lw $16,28($sp) move $2,$0 .set noreorder .set nomacro j $31 addiu $sp,$sp,40 .set macro .set reorder $L49: lw $3,8($16) sb $2,0($3) move $sp,$fp lw $31,36($sp) lw $fp,32($sp) lw $16,28($sp) move $2,$0 .set noreorder .set nomacro j $31 addiu $sp,$sp,40 .set macro .set reorder $L50: lw $3,8($16) .set noreorder .set nomacro b $L7 sh $2,0($3) .set macro .set reorder $L53: lw $2,8($16) .set noreorder .set nomacro b $L7 swc1 $f0,0($2) .set macro .set reorder $L52: sw $2,0($4) .set noreorder .set nomacro b $L7 sw $3,4($4) .set macro .set reorder $L54: lw $2,8($16) .set noreorder .set nomacro b $L7 sdc1 $f0,0($2) .set macro .set reorder .end avcall_call .size avcall_call, .-avcall_call libffcall-2.2/avcall/avcall-alist.h0000664000000000000000000002052213530336773014166 00000000000000/* * Copyright 1993-1995 Bill Triggs * Copyright 1995-2019 Bruno Haible * * This program is free software: you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by * the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program. If not, see . */ #ifndef _AVCALL_INTERNAL_H #error "Never use directly; include instead." #endif /* The platform indicator symbols (__i386__, etc.) come from - "config.h" when compiling avcall-libapi.c, - the GCC command line options when compiling avcall-$(CPU).c. */ /* These two variants of powerpc ABIs are quite different. */ #if defined(__powerpc__) && !defined(__powerpc64__) #if defined(_AIX) || (defined(__MACH__) && defined(__APPLE__)) #define __powerpc_aix__ 1 #else #define __powerpc_sysv4__ 1 #endif #endif /* The Unix and Windows variants of x86_64 ABIs are quite different. */ #if defined(__x86_64__) #if defined(_WIN32) || defined(__CYGWIN__) #define __x86_64_ms__ 1 #else #define __x86_64_sysv__ 1 #endif #endif /* * Definition of the ‘__av_alist’ type. */ /* Note: This struct must not contain members of type 'long' or 'unsigned long', because in the mingw port we use precompiled code that assumes 'long' is 64-bit whereas avcall-libapi.c is then compiled by a compiler that has a 32-bit 'long' type. */ typedef struct { /* some av_... macros need these flags */ int flags; /* function to be called */ __avword (*func)(); /* return type, address for the result */ void* raddr; enum __AVtype rtype; uintptr_t rsize; /* current pointer into the args[] array */ __avword* aptr; /* beginning of the args[] array */ __avword* args; #if defined(__hppa__) && !defined(__hppa64__) /* end of the args[] array */ __avword* args_end; #endif /* limit pointer into the args[] array */ __avword* eptr; #if defined(__i386__) && 0 /* Filler word, needed if the numbers of words up to now in this structure */ /* is odd (because on MSVC, alignof(double) = 8, normally = 4). */ __avword filler1; #endif #if defined(__i386__) || defined(__m68k__) || (defined(__sparc__) && !defined(__sparc64__)) || (defined(__hppa__) && !defined(__hppa64__)) || defined(__arm__) || defined(__armhf__) || (defined(__powerpc__) && !defined(__powerpc64__)) || (defined(__s390__) && !defined(__s390x__)) || defined(__riscv32__) /* temporary storage, used to split doubles into two words */ union { double _double; #if defined(__sparc__) && !defined(__sparc64__) long long _longlong; #endif __avword words[2]; } tmp; #endif #if defined(__x86_64_sysv__) #define __AV_IARG_NUM 6 /* store the integer arguments in an extra array */ unsigned int ianum; __avword iargs[__AV_IARG_NUM]; #endif #if defined(__mips__) && !defined(__mipsn32__) && !defined(__mips64__) #define __AV_FARG_NUM 2 /* store the floating-point arguments in an extra array */ unsigned int anum; unsigned int fanum; unsigned int farg_mask; /* bitmask of those entries in fargs[] which have a float value */ unsigned int darg_mask; /* bitmask of those entries in dargs[] which have a double value */ float fargs[__AV_FARG_NUM]; double dargs[__AV_FARG_NUM]; #endif #if defined(__mipsn32__) || defined(__mips64__) /* store the floating-point arguments in an extra array */ int anum; /* redundant: (LIST).aptr = &(LIST).args[(LIST).anum] */ unsigned int farg_mask; /* bitmask of those entries in farg[] which have a value */ unsigned int darg_mask; /* bitmask of those entries in args[] which have a double value */ float fargs[8]; #endif #if defined(__sparc64__) /* store the floating-point arguments in an extra array */ int anum; /* redundant: (LIST).aptr = &(LIST).args[(LIST).anum] */ unsigned int darg_mask; /* bitmask of those entries in args[] which have a float or double value */ #endif #if defined(__hppa__) || defined(__hppa64__) unsigned int farg_mask; /* bitmask of those entries in args[] which have a float value */ unsigned int darg_mask; /* bitmask of those entries in args[] which have a double value */ #endif #if defined(__armhf__) #define __AV_IARG_NUM 4 /* The first __AV_IARG_NUM integer arguments are passed in registers, even if some floating-point arguments have already been allocated on the stack. */ unsigned int ianum; /* store the floating-point arguments in an extra array */ unsigned int fanum; /* number of fargs[] words that are occupied so far */ unsigned int farg_mask; /* bitmask of those entries in fargs[] which have a float value */ unsigned int darg_mask; /* bitmask of those entries in dargs[] which have a double value */ float fargs[16]; double dargs[8]; #endif #if defined(__arm64__) #define __AV_IARG_NUM 8 /* store the integer arguments in an extra array */ unsigned int ianum; __avword iargs[__AV_IARG_NUM]; #define __AV_FARG_NUM 8 /* store the floating-point arguments in an extra array */ unsigned int fanum; /* number of fargs[] words that are occupied so far */ unsigned int farg_mask; /* bitmask of those entries in fargs[] which have a float value */ unsigned int darg_mask; /* bitmask of those entries in dargs[] which have a double value */ float fargs[__AV_FARG_NUM]; double dargs[__AV_FARG_NUM]; #endif #if defined(__ia64__) || defined(__x86_64_sysv__) /* store the floating-point arguments in an extra array */ #define __AV_FARG_NUM 8 double* faptr; double fargs[__AV_FARG_NUM]; #endif #if defined(__powerpc__) || defined(__powerpc64__) #if defined(__powerpc_sysv4__) #define __AV_IARG_NUM 8 /* store the integer arguments in an extra array */ unsigned int ianum; __avword iargs[__AV_IARG_NUM]; #define __AV_FARG_NUM 8 #else #define __AV_FARG_NUM 13 #endif /* store the floating-point arguments in an extra array */ double* faptr; double fargs[__AV_FARG_NUM]; #endif #if defined(__x86_64_ms__) /* store the floating-point arguments in an extra array */ int anum; /* redundant: (LIST).aptr = &(LIST).args[(LIST).anum] */ #define __AV_FARG_NUM 4 unsigned int farg_mask; /* bitmask of those entries in fargs[] which have a float value */ unsigned int darg_mask; /* bitmask of those entries in dargs[] which have a double value */ float fargs[__AV_FARG_NUM]; double dargs[__AV_FARG_NUM]; #endif #if (defined(__s390__) && !defined(__s390x__)) #define __AV_IARG_NUM 5 /* store the integer arguments in an extra array */ unsigned int ianum; __avword iargs[__AV_IARG_NUM]; /* store the floating-point arguments in an extra array */ #define __AV_FARG_NUM 2 unsigned int fanum; /* number of fargs[] words that are occupied so far */ unsigned int farg_mask; /* bitmask of those entries in fargs[] which have a float value */ unsigned int darg_mask; /* bitmask of those entries in dargs[] which have a double value */ float fargs[__AV_FARG_NUM]; double dargs[__AV_FARG_NUM]; #endif #if defined(__s390x__) #define __AV_IARG_NUM 5 /* store the integer arguments in an extra array */ unsigned int ianum; __avword iargs[__AV_IARG_NUM]; #define __AV_FARG_NUM 4 /* store the floating-point arguments in an extra array */ unsigned int fanum; /* number of fargs[] words that are occupied so far */ unsigned int farg_mask; /* bitmask of those entries in fargs[] which have a float value */ unsigned int darg_mask; /* bitmask of those entries in dargs[] which have a double value */ float fargs[__AV_FARG_NUM]; double dargs[__AV_FARG_NUM]; #endif #if defined(__riscv32__) || defined(__riscv64__) #define __AV_FARG_NUM 8 /* store the floating-point arguments in an extra array */ unsigned int fanum; /* number of fargs[] words that are occupied so far */ unsigned int farg_mask; /* bitmask of those entries in fargs[] which have a float value */ unsigned int darg_mask; /* bitmask of those entries in dargs[] which have a double value */ float fargs[__AV_FARG_NUM]; double dargs[__AV_FARG_NUM]; #endif } __av_alist; libffcall-2.2/ffcall-version.c0000664000000000000000000000151113347755316013256 00000000000000/* * Copyright 2017 Bruno Haible * * This program is free software: you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by * the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program. If not, see . */ #include "config.h" /* Specification. */ #include "ffcall-version.h" int ffcall_get_version (void) { return LIBFFCALL_VERSION; } libffcall-2.2/build-aux/0000775000000000000000000000000013530357260012142 500000000000000libffcall-2.2/build-aux/missing0000755000000000000000000001533113530357246013466 00000000000000#! /bin/sh # Common wrapper for a few potentially missing GNU programs. scriptversion=2016-01-11.22; # UTC # Copyright (C) 1996-2017 Free Software Foundation, Inc. # Originally written by Fran,cois Pinard , 1996. # This program is free software; you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by # the Free Software Foundation; either version 2, or (at your option) # any later version. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # You should have received a copy of the GNU General Public License # along with this program. If not, see . # As a special exception to the GNU General Public License, if you # distribute this file as part of a program that contains a # configuration script generated by Autoconf, you may include it under # the same distribution terms that you use for the rest of that program. if test $# -eq 0; then echo 1>&2 "Try '$0 --help' for more information" exit 1 fi case $1 in --is-lightweight) # Used by our autoconf macros to check whether the available missing # script is modern enough. exit 0 ;; --run) # Back-compat with the calling convention used by older automake. shift ;; -h|--h|--he|--hel|--help) echo "\ $0 [OPTION]... PROGRAM [ARGUMENT]... Run 'PROGRAM [ARGUMENT]...', returning a proper advice when this fails due to PROGRAM being missing or too old. Options: -h, --help display this help and exit -v, --version output version information and exit Supported PROGRAM values: aclocal autoconf autoheader autom4te automake makeinfo bison yacc flex lex help2man Version suffixes to PROGRAM as well as the prefixes 'gnu-', 'gnu', and 'g' are ignored when checking the name. Send bug reports to ." exit $? ;; -v|--v|--ve|--ver|--vers|--versi|--versio|--version) echo "missing $scriptversion (GNU Automake)" exit $? ;; -*) echo 1>&2 "$0: unknown '$1' option" echo 1>&2 "Try '$0 --help' for more information" exit 1 ;; esac # Run the given program, remember its exit status. "$@"; st=$? # If it succeeded, we are done. test $st -eq 0 && exit 0 # Also exit now if we it failed (or wasn't found), and '--version' was # passed; such an option is passed most likely to detect whether the # program is present and works. case $2 in --version|--help) exit $st;; esac # Exit code 63 means version mismatch. This often happens when the user # tries to use an ancient version of a tool on a file that requires a # minimum version. if test $st -eq 63; then msg="probably too old" elif test $st -eq 127; then # Program was missing. msg="missing on your system" else # Program was found and executed, but failed. Give up. exit $st fi perl_URL=http://www.perl.org/ flex_URL=http://flex.sourceforge.net/ gnu_software_URL=http://www.gnu.org/software program_details () { case $1 in aclocal|automake) echo "The '$1' program is part of the GNU Automake package:" echo "<$gnu_software_URL/automake>" echo "It also requires GNU Autoconf, GNU m4 and Perl in order to run:" echo "<$gnu_software_URL/autoconf>" echo "<$gnu_software_URL/m4/>" echo "<$perl_URL>" ;; autoconf|autom4te|autoheader) echo "The '$1' program is part of the GNU Autoconf package:" echo "<$gnu_software_URL/autoconf/>" echo "It also requires GNU m4 and Perl in order to run:" echo "<$gnu_software_URL/m4/>" echo "<$perl_URL>" ;; esac } give_advice () { # Normalize program name to check for. normalized_program=`echo "$1" | sed ' s/^gnu-//; t s/^gnu//; t s/^g//; t'` printf '%s\n' "'$1' is $msg." configure_deps="'configure.ac' or m4 files included by 'configure.ac'" case $normalized_program in autoconf*) echo "You should only need it if you modified 'configure.ac'," echo "or m4 files included by it." program_details 'autoconf' ;; autoheader*) echo "You should only need it if you modified 'acconfig.h' or" echo "$configure_deps." program_details 'autoheader' ;; automake*) echo "You should only need it if you modified 'Makefile.am' or" echo "$configure_deps." program_details 'automake' ;; aclocal*) echo "You should only need it if you modified 'acinclude.m4' or" echo "$configure_deps." program_details 'aclocal' ;; autom4te*) echo "You might have modified some maintainer files that require" echo "the 'autom4te' program to be rebuilt." program_details 'autom4te' ;; bison*|yacc*) echo "You should only need it if you modified a '.y' file." echo "You may want to install the GNU Bison package:" echo "<$gnu_software_URL/bison/>" ;; lex*|flex*) echo "You should only need it if you modified a '.l' file." echo "You may want to install the Fast Lexical Analyzer package:" echo "<$flex_URL>" ;; help2man*) echo "You should only need it if you modified a dependency" \ "of a man page." echo "You may want to install the GNU Help2man package:" echo "<$gnu_software_URL/help2man/>" ;; makeinfo*) echo "You should only need it if you modified a '.texi' file, or" echo "any other file indirectly affecting the aspect of the manual." echo "You might want to install the Texinfo package:" echo "<$gnu_software_URL/texinfo/>" echo "The spurious makeinfo call might also be the consequence of" echo "using a buggy 'make' (AIX, DU, IRIX), in which case you might" echo "want to install GNU make:" echo "<$gnu_software_URL/make/>" ;; *) echo "You might have modified some files without having the proper" echo "tools for further handling them. Check the 'README' file, it" echo "often tells you about the needed prerequisites for installing" echo "this package. You may also peek at any GNU archive site, in" echo "case some other package contains this missing '$1' program." ;; esac } give_advice "$1" | sed -e '1s/^/WARNING: /' \ -e '2,$s/^/ /' >&2 # Propagate the correct exit status (expected to be 127 for a program # not found, 63 for a program that failed due to version mismatch). exit $st # Local variables: # eval: (add-hook 'write-file-hooks 'time-stamp) # time-stamp-start: "scriptversion=" # time-stamp-format: "%:y-%02m-%02d.%02H" # time-stamp-time-zone: "UTC0" # time-stamp-end: "; # UTC" # End: libffcall-2.2/build-aux/ar-lib0000775000000000000000000001334413526533141013162 00000000000000#! /bin/sh # Wrapper for Microsoft lib.exe me=ar-lib scriptversion=2019-07-04.01; # UTC # Copyright (C) 2010-2019 Free Software Foundation, Inc. # Written by Peter Rosin . # # This program is free software; you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by # the Free Software Foundation; either version 2, or (at your option) # any later version. # # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # # You should have received a copy of the GNU General Public License # along with this program. If not, see . # As a special exception to the GNU General Public License, if you # distribute this file as part of a program that contains a # configuration script generated by Autoconf, you may include it under # the same distribution terms that you use for the rest of that program. # This file is maintained in Automake, please report # bugs to or send patches to # . # func_error message func_error () { echo "$me: $1" 1>&2 exit 1 } file_conv= # func_file_conv build_file # Convert a $build file to $host form and store it in $file # Currently only supports Windows hosts. func_file_conv () { file=$1 case $file in / | /[!/]*) # absolute file, and not a UNC file if test -z "$file_conv"; then # lazily determine how to convert abs files case `uname -s` in MINGW*) file_conv=mingw ;; CYGWIN*) file_conv=cygwin ;; *) file_conv=wine ;; esac fi case $file_conv in mingw) file=`cmd //C echo "$file " | sed -e 's/"\(.*\) " *$/\1/'` ;; cygwin) file=`cygpath -m "$file" || echo "$file"` ;; wine) file=`winepath -w "$file" || echo "$file"` ;; esac ;; esac } # func_at_file at_file operation archive # Iterate over all members in AT_FILE performing OPERATION on ARCHIVE # for each of them. # When interpreting the content of the @FILE, do NOT use func_file_conv, # since the user would need to supply preconverted file names to # binutils ar, at least for MinGW. func_at_file () { operation=$2 archive=$3 at_file_contents=`cat "$1"` eval set x "$at_file_contents" shift for member do $AR -NOLOGO $operation:"$member" "$archive" || exit $? done } case $1 in '') func_error "no command. Try '$0 --help' for more information." ;; -h | --h*) cat <, 1996 # # This file is free software; the Free Software Foundation gives # unlimited permission to copy and/or distribute it, with or without # modifications, as long as this notice is preserved. # # The first argument passed to this file is the canonical host specification, # CPU_TYPE-MANUFACTURER-OPERATING_SYSTEM # or # CPU_TYPE-MANUFACTURER-KERNEL-OPERATING_SYSTEM # The environment variables CC, GCC, LDFLAGS, LD, with_gnu_ld # should be set by the caller. # # The set of defined variables is at the end of this script. # Known limitations: # - On IRIX 6.5 with CC="cc", the run time search patch must not be longer # than 256 bytes, otherwise the compiler driver will dump core. The only # known workaround is to choose shorter directory names for the build # directory and/or the installation directory. # All known linkers require a '.a' archive for static linking (except MSVC, # which needs '.lib'). libext=a shrext=.so host="$1" host_cpu=`echo "$host" | sed 's/^\([^-]*\)-\([^-]*\)-\(.*\)$/\1/'` host_vendor=`echo "$host" | sed 's/^\([^-]*\)-\([^-]*\)-\(.*\)$/\2/'` host_os=`echo "$host" | sed 's/^\([^-]*\)-\([^-]*\)-\(.*\)$/\3/'` # Code taken from libtool.m4's _LT_CC_BASENAME. for cc_temp in $CC""; do case $cc_temp in compile | *[\\/]compile | ccache | *[\\/]ccache ) ;; distcc | *[\\/]distcc | purify | *[\\/]purify ) ;; \-*) ;; *) break;; esac done cc_basename=`echo "$cc_temp" | sed -e 's%^.*/%%'` # Code taken from libtool.m4's _LT_COMPILER_PIC. wl= if test "$GCC" = yes; then wl='-Wl,' else case "$host_os" in aix*) wl='-Wl,' ;; mingw* | cygwin* | pw32* | os2* | cegcc*) ;; hpux9* | hpux10* | hpux11*) wl='-Wl,' ;; irix5* | irix6* | nonstopux*) wl='-Wl,' ;; linux* | k*bsd*-gnu | kopensolaris*-gnu) case $cc_basename in ecc*) wl='-Wl,' ;; icc* | ifort*) wl='-Wl,' ;; lf95*) wl='-Wl,' ;; nagfor*) wl='-Wl,-Wl,,' ;; pgcc* | pgf77* | pgf90* | pgf95* | pgfortran*) wl='-Wl,' ;; ccc*) wl='-Wl,' ;; xl* | bgxl* | bgf* | mpixl*) wl='-Wl,' ;; como) wl='-lopt=' ;; *) case `$CC -V 2>&1 | sed 5q` in *Sun\ F* | *Sun*Fortran*) wl= ;; *Sun\ C*) wl='-Wl,' ;; esac ;; esac ;; newsos6) ;; *nto* | *qnx*) ;; osf3* | osf4* | osf5*) wl='-Wl,' ;; rdos*) ;; solaris*) case $cc_basename in f77* | f90* | f95* | sunf77* | sunf90* | sunf95*) wl='-Qoption ld ' ;; *) wl='-Wl,' ;; esac ;; sunos4*) wl='-Qoption ld ' ;; sysv4 | sysv4.2uw2* | sysv4.3*) wl='-Wl,' ;; sysv4*MP*) ;; sysv5* | unixware* | sco3.2v5* | sco5v6* | OpenUNIX*) wl='-Wl,' ;; unicos*) wl='-Wl,' ;; uts4*) ;; esac fi # Code taken from libtool.m4's _LT_LINKER_SHLIBS. hardcode_libdir_flag_spec= hardcode_libdir_separator= hardcode_direct=no hardcode_minus_L=no case "$host_os" in cygwin* | mingw* | pw32* | cegcc*) # FIXME: the MSVC++ port hasn't been tested in a loooong time # When not using gcc, we currently assume that we are using # Microsoft Visual C++. if test "$GCC" != yes; then with_gnu_ld=no fi ;; interix*) # we just hope/assume this is gcc and not c89 (= MSVC++) with_gnu_ld=yes ;; openbsd*) with_gnu_ld=no ;; esac ld_shlibs=yes if test "$with_gnu_ld" = yes; then # Set some defaults for GNU ld with shared library support. These # are reset later if shared libraries are not supported. Putting them # here allows them to be overridden if necessary. # Unlike libtool, we use -rpath here, not --rpath, since the documented # option of GNU ld is called -rpath, not --rpath. hardcode_libdir_flag_spec='${wl}-rpath ${wl}$libdir' case "$host_os" in aix[3-9]*) # On AIX/PPC, the GNU linker is very broken if test "$host_cpu" != ia64; then ld_shlibs=no fi ;; amigaos*) case "$host_cpu" in powerpc) ;; m68k) hardcode_libdir_flag_spec='-L$libdir' hardcode_minus_L=yes ;; esac ;; beos*) if $LD --help 2>&1 | grep ': supported targets:.* elf' > /dev/null; then : else ld_shlibs=no fi ;; cygwin* | mingw* | pw32* | cegcc*) # hardcode_libdir_flag_spec is actually meaningless, as there is # no search path for DLLs. hardcode_libdir_flag_spec='-L$libdir' if $LD --help 2>&1 | grep 'auto-import' > /dev/null; then : else ld_shlibs=no fi ;; haiku*) ;; interix[3-9]*) hardcode_direct=no hardcode_libdir_flag_spec='${wl}-rpath,$libdir' ;; gnu* | linux* | tpf* | k*bsd*-gnu | kopensolaris*-gnu) if $LD --help 2>&1 | grep ': supported targets:.* elf' > /dev/null; then : else ld_shlibs=no fi ;; netbsd*) ;; solaris*) if $LD -v 2>&1 | grep 'BFD 2\.8' > /dev/null; then ld_shlibs=no elif $LD --help 2>&1 | grep ': supported targets:.* elf' > /dev/null; then : else ld_shlibs=no fi ;; sysv5* | sco3.2v5* | sco5v6* | unixware* | OpenUNIX*) case `$LD -v 2>&1` in *\ [01].* | *\ 2.[0-9].* | *\ 2.1[0-5].*) ld_shlibs=no ;; *) if $LD --help 2>&1 | grep ': supported targets:.* elf' > /dev/null; then hardcode_libdir_flag_spec='`test -z "$SCOABSPATH" && echo ${wl}-rpath,$libdir`' else ld_shlibs=no fi ;; esac ;; sunos4*) hardcode_direct=yes ;; *) if $LD --help 2>&1 | grep ': supported targets:.* elf' > /dev/null; then : else ld_shlibs=no fi ;; esac if test "$ld_shlibs" = no; then hardcode_libdir_flag_spec= fi else case "$host_os" in aix3*) # Note: this linker hardcodes the directories in LIBPATH if there # are no directories specified by -L. hardcode_minus_L=yes if test "$GCC" = yes; then # Neither direct hardcoding nor static linking is supported with a # broken collect2. hardcode_direct=unsupported fi ;; aix[4-9]*) if test "$host_cpu" = ia64; then # On IA64, the linker does run time linking by default, so we don't # have to do anything special. aix_use_runtimelinking=no else aix_use_runtimelinking=no # Test if we are trying to use run time linking or normal # AIX style linking. If -brtl is somewhere in LDFLAGS, we # need to do runtime linking. case $host_os in aix4.[23]|aix4.[23].*|aix[5-9]*) for ld_flag in $LDFLAGS; do if (test $ld_flag = "-brtl" || test $ld_flag = "-Wl,-brtl"); then aix_use_runtimelinking=yes break fi done ;; esac fi hardcode_direct=yes hardcode_libdir_separator=':' if test "$GCC" = yes; then case $host_os in aix4.[012]|aix4.[012].*) collect2name=`${CC} -print-prog-name=collect2` if test -f "$collect2name" && \ strings "$collect2name" | grep resolve_lib_name >/dev/null then # We have reworked collect2 : else # We have old collect2 hardcode_direct=unsupported hardcode_minus_L=yes hardcode_libdir_flag_spec='-L$libdir' hardcode_libdir_separator= fi ;; esac fi # Begin _LT_AC_SYS_LIBPATH_AIX. echo 'int main () { return 0; }' > conftest.c ${CC} ${LDFLAGS} conftest.c -o conftest aix_libpath=`dump -H conftest 2>/dev/null | sed -n -e '/Import File Strings/,/^$/ { /^0/ { s/^0 *\(.*\)$/\1/; p; } }'` if test -z "$aix_libpath"; then aix_libpath=`dump -HX64 conftest 2>/dev/null | sed -n -e '/Import File Strings/,/^$/ { /^0/ { s/^0 *\(.*\)$/\1/; p; } }'` fi if test -z "$aix_libpath"; then aix_libpath="/usr/lib:/lib" fi rm -f conftest.c conftest # End _LT_AC_SYS_LIBPATH_AIX. if test "$aix_use_runtimelinking" = yes; then hardcode_libdir_flag_spec='${wl}-blibpath:$libdir:'"$aix_libpath" else if test "$host_cpu" = ia64; then hardcode_libdir_flag_spec='${wl}-R $libdir:/usr/lib:/lib' else hardcode_libdir_flag_spec='${wl}-blibpath:$libdir:'"$aix_libpath" fi fi ;; amigaos*) case "$host_cpu" in powerpc) ;; m68k) hardcode_libdir_flag_spec='-L$libdir' hardcode_minus_L=yes ;; esac ;; bsdi[45]*) ;; cygwin* | mingw* | pw32* | cegcc*) # When not using gcc, we currently assume that we are using # Microsoft Visual C++. # hardcode_libdir_flag_spec is actually meaningless, as there is # no search path for DLLs. hardcode_libdir_flag_spec=' ' libext=lib ;; darwin* | rhapsody*) hardcode_direct=no if { case $cc_basename in ifort*) true;; *) test "$GCC" = yes;; esac; }; then : else ld_shlibs=no fi ;; dgux*) hardcode_libdir_flag_spec='-L$libdir' ;; freebsd2.[01]*) hardcode_direct=yes hardcode_minus_L=yes ;; freebsd* | dragonfly*) hardcode_libdir_flag_spec='-R$libdir' hardcode_direct=yes ;; hpux9*) hardcode_libdir_flag_spec='${wl}+b ${wl}$libdir' hardcode_libdir_separator=: hardcode_direct=yes # hardcode_minus_L: Not really in the search PATH, # but as the default location of the library. hardcode_minus_L=yes ;; hpux10*) if test "$with_gnu_ld" = no; then hardcode_libdir_flag_spec='${wl}+b ${wl}$libdir' hardcode_libdir_separator=: hardcode_direct=yes # hardcode_minus_L: Not really in the search PATH, # but as the default location of the library. hardcode_minus_L=yes fi ;; hpux11*) if test "$with_gnu_ld" = no; then hardcode_libdir_flag_spec='${wl}+b ${wl}$libdir' hardcode_libdir_separator=: case $host_cpu in hppa*64*|ia64*) hardcode_direct=no ;; *) hardcode_direct=yes # hardcode_minus_L: Not really in the search PATH, # but as the default location of the library. hardcode_minus_L=yes ;; esac fi ;; irix5* | irix6* | nonstopux*) hardcode_libdir_flag_spec='${wl}-rpath ${wl}$libdir' hardcode_libdir_separator=: ;; netbsd*) hardcode_libdir_flag_spec='-R$libdir' hardcode_direct=yes ;; newsos6) hardcode_direct=yes hardcode_libdir_flag_spec='${wl}-rpath ${wl}$libdir' hardcode_libdir_separator=: ;; *nto* | *qnx*) ;; openbsd*) if test -f /usr/libexec/ld.so; then hardcode_direct=yes if test -z "`echo __ELF__ | $CC -E - | grep __ELF__`" || test "$host_os-$host_cpu" = "openbsd2.8-powerpc"; then hardcode_libdir_flag_spec='${wl}-rpath,$libdir' else case "$host_os" in openbsd[01].* | openbsd2.[0-7] | openbsd2.[0-7].*) hardcode_libdir_flag_spec='-R$libdir' ;; *) hardcode_libdir_flag_spec='${wl}-rpath,$libdir' ;; esac fi else ld_shlibs=no fi ;; os2*) hardcode_libdir_flag_spec='-L$libdir' hardcode_minus_L=yes ;; osf3*) hardcode_libdir_flag_spec='${wl}-rpath ${wl}$libdir' hardcode_libdir_separator=: ;; osf4* | osf5*) if test "$GCC" = yes; then hardcode_libdir_flag_spec='${wl}-rpath ${wl}$libdir' else # Both cc and cxx compiler support -rpath directly hardcode_libdir_flag_spec='-rpath $libdir' fi hardcode_libdir_separator=: ;; solaris*) hardcode_libdir_flag_spec='-R$libdir' ;; sunos4*) hardcode_libdir_flag_spec='-L$libdir' hardcode_direct=yes hardcode_minus_L=yes ;; sysv4) case $host_vendor in sni) hardcode_direct=yes # is this really true??? ;; siemens) hardcode_direct=no ;; motorola) hardcode_direct=no #Motorola manual says yes, but my tests say they lie ;; esac ;; sysv4.3*) ;; sysv4*MP*) if test -d /usr/nec; then ld_shlibs=yes fi ;; sysv4*uw2* | sysv5OpenUNIX* | sysv5UnixWare7.[01].[10]* | unixware7* | sco3.2v5.0.[024]*) ;; sysv5* | sco3.2v5* | sco5v6*) hardcode_libdir_flag_spec='`test -z "$SCOABSPATH" && echo ${wl}-R,$libdir`' hardcode_libdir_separator=':' ;; uts4*) hardcode_libdir_flag_spec='-L$libdir' ;; *) ld_shlibs=no ;; esac fi # Check dynamic linker characteristics # Code taken from libtool.m4's _LT_SYS_DYNAMIC_LINKER. # Unlike libtool.m4, here we don't care about _all_ names of the library, but # only about the one the linker finds when passed -lNAME. This is the last # element of library_names_spec in libtool.m4, or possibly two of them if the # linker has special search rules. library_names_spec= # the last element of library_names_spec in libtool.m4 libname_spec='lib$name' case "$host_os" in aix3*) library_names_spec='$libname.a' ;; aix[4-9]*) library_names_spec='$libname$shrext' ;; amigaos*) case "$host_cpu" in powerpc*) library_names_spec='$libname$shrext' ;; m68k) library_names_spec='$libname.a' ;; esac ;; beos*) library_names_spec='$libname$shrext' ;; bsdi[45]*) library_names_spec='$libname$shrext' ;; cygwin* | mingw* | pw32* | cegcc*) shrext=.dll library_names_spec='$libname.dll.a $libname.lib' ;; darwin* | rhapsody*) shrext=.dylib library_names_spec='$libname$shrext' ;; dgux*) library_names_spec='$libname$shrext' ;; freebsd[23].*) library_names_spec='$libname$shrext$versuffix' ;; freebsd* | dragonfly*) library_names_spec='$libname$shrext' ;; gnu*) library_names_spec='$libname$shrext' ;; haiku*) library_names_spec='$libname$shrext' ;; hpux9* | hpux10* | hpux11*) case $host_cpu in ia64*) shrext=.so ;; hppa*64*) shrext=.sl ;; *) shrext=.sl ;; esac library_names_spec='$libname$shrext' ;; interix[3-9]*) library_names_spec='$libname$shrext' ;; irix5* | irix6* | nonstopux*) library_names_spec='$libname$shrext' case "$host_os" in irix5* | nonstopux*) libsuff= shlibsuff= ;; *) case $LD in *-32|*"-32 "|*-melf32bsmip|*"-melf32bsmip ") libsuff= shlibsuff= ;; *-n32|*"-n32 "|*-melf32bmipn32|*"-melf32bmipn32 ") libsuff=32 shlibsuff=N32 ;; *-64|*"-64 "|*-melf64bmip|*"-melf64bmip ") libsuff=64 shlibsuff=64 ;; *) libsuff= shlibsuff= ;; esac ;; esac ;; linux*oldld* | linux*aout* | linux*coff*) ;; linux* | k*bsd*-gnu | kopensolaris*-gnu) library_names_spec='$libname$shrext' ;; knetbsd*-gnu) library_names_spec='$libname$shrext' ;; netbsd*) library_names_spec='$libname$shrext' ;; newsos6) library_names_spec='$libname$shrext' ;; *nto* | *qnx*) library_names_spec='$libname$shrext' ;; openbsd*) library_names_spec='$libname$shrext$versuffix' ;; os2*) libname_spec='$name' shrext=.dll library_names_spec='$libname.a' ;; osf3* | osf4* | osf5*) library_names_spec='$libname$shrext' ;; rdos*) ;; solaris*) library_names_spec='$libname$shrext' ;; sunos4*) library_names_spec='$libname$shrext$versuffix' ;; sysv4 | sysv4.3*) library_names_spec='$libname$shrext' ;; sysv4*MP*) library_names_spec='$libname$shrext' ;; sysv5* | sco3.2v5* | sco5v6* | unixware* | OpenUNIX* | sysv4*uw2*) library_names_spec='$libname$shrext' ;; tpf*) library_names_spec='$libname$shrext' ;; uts4*) library_names_spec='$libname$shrext' ;; esac sed_quote_subst='s/\(["`$\\]\)/\\\1/g' escaped_wl=`echo "X$wl" | sed -e 's/^X//' -e "$sed_quote_subst"` shlibext=`echo "$shrext" | sed -e 's,^\.,,'` escaped_libname_spec=`echo "X$libname_spec" | sed -e 's/^X//' -e "$sed_quote_subst"` escaped_library_names_spec=`echo "X$library_names_spec" | sed -e 's/^X//' -e "$sed_quote_subst"` escaped_hardcode_libdir_flag_spec=`echo "X$hardcode_libdir_flag_spec" | sed -e 's/^X//' -e "$sed_quote_subst"` LC_ALL=C sed -e 's/^\([a-zA-Z0-9_]*\)=/acl_cv_\1=/' <, 1996 # Copyright (C) 1996-2015 Free Software Foundation, Inc. # This is free software; see the source for copying conditions. There is NO # warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. # GNU Libtool is free software; you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by # the Free Software Foundation; either version 2 of the License, or # (at your option) any later version. # # As a special exception to the GNU General Public License, # if you distribute this file as part of a program or library that # is built using GNU Libtool, you may include this file under the # same distribution terms that you use for the rest of that program. # # GNU Libtool is distributed in the hope that it will be useful, but # WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU # General Public License for more details. # # You should have received a copy of the GNU General Public License # along with this program. If not, see . PROGRAM=libtool PACKAGE=libtool VERSION=2.4.6 package_revision=2.4.6 ## ------ ## ## Usage. ## ## ------ ## # Run './libtool --help' for help with using this script from the # command line. ## ------------------------------- ## ## User overridable command paths. ## ## ------------------------------- ## # After configure completes, it has a better idea of some of the # shell tools we need than the defaults used by the functions shared # with bootstrap, so set those here where they can still be over- # ridden by the user, but otherwise take precedence. : ${AUTOCONF="autoconf"} : ${AUTOMAKE="automake"} ## -------------------------- ## ## Source external libraries. ## ## -------------------------- ## # Much of our low-level functionality needs to be sourced from external # libraries, which are installed to $pkgauxdir. # Set a version string for this script. scriptversion=2015-01-20.17; # UTC # General shell script boiler plate, and helper functions. # Written by Gary V. Vaughan, 2004 # Copyright (C) 2004-2015 Free Software Foundation, Inc. # This is free software; see the source for copying conditions. There is NO # warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. # This program is free software; you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by # the Free Software Foundation; either version 3 of the License, or # (at your option) any later version. # As a special exception to the GNU General Public License, if you distribute # this file as part of a program or library that is built using GNU Libtool, # you may include this file under the same distribution terms that you use # for the rest of that program. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNES FOR A PARTICULAR PURPOSE. See the GNU # General Public License for more details. # You should have received a copy of the GNU General Public License # along with this program. If not, see . # Please report bugs or propose patches to gary@gnu.org. ## ------ ## ## Usage. ## ## ------ ## # Evaluate this file near the top of your script to gain access to # the functions and variables defined here: # # . `echo "$0" | ${SED-sed} 's|[^/]*$||'`/build-aux/funclib.sh # # If you need to override any of the default environment variable # settings, do that before evaluating this file. ## -------------------- ## ## Shell normalisation. ## ## -------------------- ## # Some shells need a little help to be as Bourne compatible as possible. # Before doing anything else, make sure all that help has been provided! DUALCASE=1; export DUALCASE # for MKS sh if test -n "${ZSH_VERSION+set}" && (emulate sh) >/dev/null 2>&1; then : emulate sh NULLCMD=: # Pre-4.2 versions of Zsh do word splitting on ${1+"$@"}, which # is contrary to our usage. Disable this feature. alias -g '${1+"$@"}'='"$@"' setopt NO_GLOB_SUBST else case `(set -o) 2>/dev/null` in *posix*) set -o posix ;; esac fi # NLS nuisances: We save the old values in case they are required later. _G_user_locale= _G_safe_locale= for _G_var in LANG LANGUAGE LC_ALL LC_CTYPE LC_COLLATE LC_MESSAGES do eval "if test set = \"\${$_G_var+set}\"; then save_$_G_var=\$$_G_var $_G_var=C export $_G_var _G_user_locale=\"$_G_var=\\\$save_\$_G_var; \$_G_user_locale\" _G_safe_locale=\"$_G_var=C; \$_G_safe_locale\" fi" done # CDPATH. (unset CDPATH) >/dev/null 2>&1 && unset CDPATH # Make sure IFS has a sensible default sp=' ' nl=' ' IFS="$sp $nl" # There are apparently some retarded systems that use ';' as a PATH separator! if test "${PATH_SEPARATOR+set}" != set; then PATH_SEPARATOR=: (PATH='/bin;/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 && { (PATH='/bin:/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 || PATH_SEPARATOR=';' } fi ## ------------------------- ## ## Locate command utilities. ## ## ------------------------- ## # func_executable_p FILE # ---------------------- # Check that FILE is an executable regular file. func_executable_p () { test -f "$1" && test -x "$1" } # func_path_progs PROGS_LIST CHECK_FUNC [PATH] # -------------------------------------------- # Search for either a program that responds to --version with output # containing "GNU", or else returned by CHECK_FUNC otherwise, by # trying all the directories in PATH with each of the elements of # PROGS_LIST. # # CHECK_FUNC should accept the path to a candidate program, and # set $func_check_prog_result if it truncates its output less than # $_G_path_prog_max characters. func_path_progs () { _G_progs_list=$1 _G_check_func=$2 _G_PATH=${3-"$PATH"} _G_path_prog_max=0 _G_path_prog_found=false _G_save_IFS=$IFS; IFS=${PATH_SEPARATOR-:} for _G_dir in $_G_PATH; do IFS=$_G_save_IFS test -z "$_G_dir" && _G_dir=. for _G_prog_name in $_G_progs_list; do for _exeext in '' .EXE; do _G_path_prog=$_G_dir/$_G_prog_name$_exeext func_executable_p "$_G_path_prog" || continue case `"$_G_path_prog" --version 2>&1` in *GNU*) func_path_progs_result=$_G_path_prog _G_path_prog_found=: ;; *) $_G_check_func $_G_path_prog func_path_progs_result=$func_check_prog_result ;; esac $_G_path_prog_found && break 3 done done done IFS=$_G_save_IFS test -z "$func_path_progs_result" && { echo "no acceptable sed could be found in \$PATH" >&2 exit 1 } } # We want to be able to use the functions in this file before configure # has figured out where the best binaries are kept, which means we have # to search for them ourselves - except when the results are already set # where we skip the searches. # Unless the user overrides by setting SED, search the path for either GNU # sed, or the sed that truncates its output the least. test -z "$SED" && { _G_sed_script=s/aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa/bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb/ for _G_i in 1 2 3 4 5 6 7; do _G_sed_script=$_G_sed_script$nl$_G_sed_script done echo "$_G_sed_script" 2>/dev/null | sed 99q >conftest.sed _G_sed_script= func_check_prog_sed () { _G_path_prog=$1 _G_count=0 printf 0123456789 >conftest.in while : do cat conftest.in conftest.in >conftest.tmp mv conftest.tmp conftest.in cp conftest.in conftest.nl echo '' >> conftest.nl "$_G_path_prog" -f conftest.sed conftest.out 2>/dev/null || break diff conftest.out conftest.nl >/dev/null 2>&1 || break _G_count=`expr $_G_count + 1` if test "$_G_count" -gt "$_G_path_prog_max"; then # Best one so far, save it but keep looking for a better one func_check_prog_result=$_G_path_prog _G_path_prog_max=$_G_count fi # 10*(2^10) chars as input seems more than enough test 10 -lt "$_G_count" && break done rm -f conftest.in conftest.tmp conftest.nl conftest.out } func_path_progs "sed gsed" func_check_prog_sed $PATH:/usr/xpg4/bin rm -f conftest.sed SED=$func_path_progs_result } # Unless the user overrides by setting GREP, search the path for either GNU # grep, or the grep that truncates its output the least. test -z "$GREP" && { func_check_prog_grep () { _G_path_prog=$1 _G_count=0 _G_path_prog_max=0 printf 0123456789 >conftest.in while : do cat conftest.in conftest.in >conftest.tmp mv conftest.tmp conftest.in cp conftest.in conftest.nl echo 'GREP' >> conftest.nl "$_G_path_prog" -e 'GREP$' -e '-(cannot match)-' conftest.out 2>/dev/null || break diff conftest.out conftest.nl >/dev/null 2>&1 || break _G_count=`expr $_G_count + 1` if test "$_G_count" -gt "$_G_path_prog_max"; then # Best one so far, save it but keep looking for a better one func_check_prog_result=$_G_path_prog _G_path_prog_max=$_G_count fi # 10*(2^10) chars as input seems more than enough test 10 -lt "$_G_count" && break done rm -f conftest.in conftest.tmp conftest.nl conftest.out } func_path_progs "grep ggrep" func_check_prog_grep $PATH:/usr/xpg4/bin GREP=$func_path_progs_result } ## ------------------------------- ## ## User overridable command paths. ## ## ------------------------------- ## # All uppercase variable names are used for environment variables. These # variables can be overridden by the user before calling a script that # uses them if a suitable command of that name is not already available # in the command search PATH. : ${CP="cp -f"} : ${ECHO="printf %s\n"} : ${EGREP="$GREP -E"} : ${FGREP="$GREP -F"} : ${LN_S="ln -s"} : ${MAKE="make"} : ${MKDIR="mkdir"} : ${MV="mv -f"} : ${RM="rm -f"} : ${SHELL="${CONFIG_SHELL-/bin/sh}"} ## -------------------- ## ## Useful sed snippets. ## ## -------------------- ## sed_dirname='s|/[^/]*$||' sed_basename='s|^.*/||' # Sed substitution that helps us do robust quoting. It backslashifies # metacharacters that are still active within double-quoted strings. sed_quote_subst='s|\([`"$\\]\)|\\\1|g' # Same as above, but do not quote variable references. sed_double_quote_subst='s/\(["`\\]\)/\\\1/g' # Sed substitution that turns a string into a regex matching for the # string literally. sed_make_literal_regex='s|[].[^$\\*\/]|\\&|g' # Sed substitution that converts a w32 file name or path # that contains forward slashes, into one that contains # (escaped) backslashes. A very naive implementation. sed_naive_backslashify='s|\\\\*|\\|g;s|/|\\|g;s|\\|\\\\|g' # Re-'\' parameter expansions in output of sed_double_quote_subst that # were '\'-ed in input to the same. If an odd number of '\' preceded a # '$' in input to sed_double_quote_subst, that '$' was protected from # expansion. Since each input '\' is now two '\'s, look for any number # of runs of four '\'s followed by two '\'s and then a '$'. '\' that '$'. _G_bs='\\' _G_bs2='\\\\' _G_bs4='\\\\\\\\' _G_dollar='\$' sed_double_backslash="\ s/$_G_bs4/&\\ /g s/^$_G_bs2$_G_dollar/$_G_bs&/ s/\\([^$_G_bs]\\)$_G_bs2$_G_dollar/\\1$_G_bs2$_G_bs$_G_dollar/g s/\n//g" ## ----------------- ## ## Global variables. ## ## ----------------- ## # Except for the global variables explicitly listed below, the following # functions in the '^func_' namespace, and the '^require_' namespace # variables initialised in the 'Resource management' section, sourcing # this file will not pollute your global namespace with anything # else. There's no portable way to scope variables in Bourne shell # though, so actually running these functions will sometimes place # results into a variable named after the function, and often use # temporary variables in the '^_G_' namespace. If you are careful to # avoid using those namespaces casually in your sourcing script, things # should continue to work as you expect. And, of course, you can freely # overwrite any of the functions or variables defined here before # calling anything to customize them. EXIT_SUCCESS=0 EXIT_FAILURE=1 EXIT_MISMATCH=63 # $? = 63 is used to indicate version mismatch to missing. EXIT_SKIP=77 # $? = 77 is used to indicate a skipped test to automake. # Allow overriding, eg assuming that you follow the convention of # putting '$debug_cmd' at the start of all your functions, you can get # bash to show function call trace with: # # debug_cmd='eval echo "${FUNCNAME[0]} $*" >&2' bash your-script-name debug_cmd=${debug_cmd-":"} exit_cmd=: # By convention, finish your script with: # # exit $exit_status # # so that you can set exit_status to non-zero if you want to indicate # something went wrong during execution without actually bailing out at # the point of failure. exit_status=$EXIT_SUCCESS # Work around backward compatibility issue on IRIX 6.5. On IRIX 6.4+, sh # is ksh but when the shell is invoked as "sh" and the current value of # the _XPG environment variable is not equal to 1 (one), the special # positional parameter $0, within a function call, is the name of the # function. progpath=$0 # The name of this program. progname=`$ECHO "$progpath" |$SED "$sed_basename"` # Make sure we have an absolute progpath for reexecution: case $progpath in [\\/]*|[A-Za-z]:\\*) ;; *[\\/]*) progdir=`$ECHO "$progpath" |$SED "$sed_dirname"` progdir=`cd "$progdir" && pwd` progpath=$progdir/$progname ;; *) _G_IFS=$IFS IFS=${PATH_SEPARATOR-:} for progdir in $PATH; do IFS=$_G_IFS test -x "$progdir/$progname" && break done IFS=$_G_IFS test -n "$progdir" || progdir=`pwd` progpath=$progdir/$progname ;; esac ## ----------------- ## ## Standard options. ## ## ----------------- ## # The following options affect the operation of the functions defined # below, and should be set appropriately depending on run-time para- # meters passed on the command line. opt_dry_run=false opt_quiet=false opt_verbose=false # Categories 'all' and 'none' are always available. Append any others # you will pass as the first argument to func_warning from your own # code. warning_categories= # By default, display warnings according to 'opt_warning_types'. Set # 'warning_func' to ':' to elide all warnings, or func_fatal_error to # treat the next displayed warning as a fatal error. warning_func=func_warn_and_continue # Set to 'all' to display all warnings, 'none' to suppress all # warnings, or a space delimited list of some subset of # 'warning_categories' to display only the listed warnings. opt_warning_types=all ## -------------------- ## ## Resource management. ## ## -------------------- ## # This section contains definitions for functions that each ensure a # particular resource (a file, or a non-empty configuration variable for # example) is available, and if appropriate to extract default values # from pertinent package files. Call them using their associated # 'require_*' variable to ensure that they are executed, at most, once. # # It's entirely deliberate that calling these functions can set # variables that don't obey the namespace limitations obeyed by the rest # of this file, in order that that they be as useful as possible to # callers. # require_term_colors # ------------------- # Allow display of bold text on terminals that support it. require_term_colors=func_require_term_colors func_require_term_colors () { $debug_cmd test -t 1 && { # COLORTERM and USE_ANSI_COLORS environment variables take # precedence, because most terminfo databases neglect to describe # whether color sequences are supported. test -n "${COLORTERM+set}" && : ${USE_ANSI_COLORS="1"} if test 1 = "$USE_ANSI_COLORS"; then # Standard ANSI escape sequences tc_reset='' tc_bold=''; tc_standout='' tc_red=''; tc_green='' tc_blue=''; tc_cyan='' else # Otherwise trust the terminfo database after all. test -n "`tput sgr0 2>/dev/null`" && { tc_reset=`tput sgr0` test -n "`tput bold 2>/dev/null`" && tc_bold=`tput bold` tc_standout=$tc_bold test -n "`tput smso 2>/dev/null`" && tc_standout=`tput smso` test -n "`tput setaf 1 2>/dev/null`" && tc_red=`tput setaf 1` test -n "`tput setaf 2 2>/dev/null`" && tc_green=`tput setaf 2` test -n "`tput setaf 4 2>/dev/null`" && tc_blue=`tput setaf 4` test -n "`tput setaf 5 2>/dev/null`" && tc_cyan=`tput setaf 5` } fi } require_term_colors=: } ## ----------------- ## ## Function library. ## ## ----------------- ## # This section contains a variety of useful functions to call in your # scripts. Take note of the portable wrappers for features provided by # some modern shells, which will fall back to slower equivalents on # less featureful shells. # func_append VAR VALUE # --------------------- # Append VALUE onto the existing contents of VAR. # We should try to minimise forks, especially on Windows where they are # unreasonably slow, so skip the feature probes when bash or zsh are # being used: if test set = "${BASH_VERSION+set}${ZSH_VERSION+set}"; then : ${_G_HAVE_ARITH_OP="yes"} : ${_G_HAVE_XSI_OPS="yes"} # The += operator was introduced in bash 3.1 case $BASH_VERSION in [12].* | 3.0 | 3.0*) ;; *) : ${_G_HAVE_PLUSEQ_OP="yes"} ;; esac fi # _G_HAVE_PLUSEQ_OP # Can be empty, in which case the shell is probed, "yes" if += is # useable or anything else if it does not work. test -z "$_G_HAVE_PLUSEQ_OP" \ && (eval 'x=a; x+=" b"; test "a b" = "$x"') 2>/dev/null \ && _G_HAVE_PLUSEQ_OP=yes if test yes = "$_G_HAVE_PLUSEQ_OP" then # This is an XSI compatible shell, allowing a faster implementation... eval 'func_append () { $debug_cmd eval "$1+=\$2" }' else # ...otherwise fall back to using expr, which is often a shell builtin. func_append () { $debug_cmd eval "$1=\$$1\$2" } fi # func_append_quoted VAR VALUE # ---------------------------- # Quote VALUE and append to the end of shell variable VAR, separated # by a space. if test yes = "$_G_HAVE_PLUSEQ_OP"; then eval 'func_append_quoted () { $debug_cmd func_quote_for_eval "$2" eval "$1+=\\ \$func_quote_for_eval_result" }' else func_append_quoted () { $debug_cmd func_quote_for_eval "$2" eval "$1=\$$1\\ \$func_quote_for_eval_result" } fi # func_append_uniq VAR VALUE # -------------------------- # Append unique VALUE onto the existing contents of VAR, assuming # entries are delimited by the first character of VALUE. For example: # # func_append_uniq options " --another-option option-argument" # # will only append to $options if " --another-option option-argument " # is not already present somewhere in $options already (note spaces at # each end implied by leading space in second argument). func_append_uniq () { $debug_cmd eval _G_current_value='`$ECHO $'$1'`' _G_delim=`expr "$2" : '\(.\)'` case $_G_delim$_G_current_value$_G_delim in *"$2$_G_delim"*) ;; *) func_append "$@" ;; esac } # func_arith TERM... # ------------------ # Set func_arith_result to the result of evaluating TERMs. test -z "$_G_HAVE_ARITH_OP" \ && (eval 'test 2 = $(( 1 + 1 ))') 2>/dev/null \ && _G_HAVE_ARITH_OP=yes if test yes = "$_G_HAVE_ARITH_OP"; then eval 'func_arith () { $debug_cmd func_arith_result=$(( $* )) }' else func_arith () { $debug_cmd func_arith_result=`expr "$@"` } fi # func_basename FILE # ------------------ # Set func_basename_result to FILE with everything up to and including # the last / stripped. if test yes = "$_G_HAVE_XSI_OPS"; then # If this shell supports suffix pattern removal, then use it to avoid # forking. Hide the definitions single quotes in case the shell chokes # on unsupported syntax... _b='func_basename_result=${1##*/}' _d='case $1 in */*) func_dirname_result=${1%/*}$2 ;; * ) func_dirname_result=$3 ;; esac' else # ...otherwise fall back to using sed. _b='func_basename_result=`$ECHO "$1" |$SED "$sed_basename"`' _d='func_dirname_result=`$ECHO "$1" |$SED "$sed_dirname"` if test "X$func_dirname_result" = "X$1"; then func_dirname_result=$3 else func_append func_dirname_result "$2" fi' fi eval 'func_basename () { $debug_cmd '"$_b"' }' # func_dirname FILE APPEND NONDIR_REPLACEMENT # ------------------------------------------- # Compute the dirname of FILE. If nonempty, add APPEND to the result, # otherwise set result to NONDIR_REPLACEMENT. eval 'func_dirname () { $debug_cmd '"$_d"' }' # func_dirname_and_basename FILE APPEND NONDIR_REPLACEMENT # -------------------------------------------------------- # Perform func_basename and func_dirname in a single function # call: # dirname: Compute the dirname of FILE. If nonempty, # add APPEND to the result, otherwise set result # to NONDIR_REPLACEMENT. # value returned in "$func_dirname_result" # basename: Compute filename of FILE. # value retuned in "$func_basename_result" # For efficiency, we do not delegate to the functions above but instead # duplicate the functionality here. eval 'func_dirname_and_basename () { $debug_cmd '"$_b"' '"$_d"' }' # func_echo ARG... # ---------------- # Echo program name prefixed message. func_echo () { $debug_cmd _G_message=$* func_echo_IFS=$IFS IFS=$nl for _G_line in $_G_message; do IFS=$func_echo_IFS $ECHO "$progname: $_G_line" done IFS=$func_echo_IFS } # func_echo_all ARG... # -------------------- # Invoke $ECHO with all args, space-separated. func_echo_all () { $ECHO "$*" } # func_echo_infix_1 INFIX ARG... # ------------------------------ # Echo program name, followed by INFIX on the first line, with any # additional lines not showing INFIX. func_echo_infix_1 () { $debug_cmd $require_term_colors _G_infix=$1; shift _G_indent=$_G_infix _G_prefix="$progname: $_G_infix: " _G_message=$* # Strip color escape sequences before counting printable length for _G_tc in "$tc_reset" "$tc_bold" "$tc_standout" "$tc_red" "$tc_green" "$tc_blue" "$tc_cyan" do test -n "$_G_tc" && { _G_esc_tc=`$ECHO "$_G_tc" | $SED "$sed_make_literal_regex"` _G_indent=`$ECHO "$_G_indent" | $SED "s|$_G_esc_tc||g"` } done _G_indent="$progname: "`echo "$_G_indent" | $SED 's|.| |g'`" " ## exclude from sc_prohibit_nested_quotes func_echo_infix_1_IFS=$IFS IFS=$nl for _G_line in $_G_message; do IFS=$func_echo_infix_1_IFS $ECHO "$_G_prefix$tc_bold$_G_line$tc_reset" >&2 _G_prefix=$_G_indent done IFS=$func_echo_infix_1_IFS } # func_error ARG... # ----------------- # Echo program name prefixed message to standard error. func_error () { $debug_cmd $require_term_colors func_echo_infix_1 " $tc_standout${tc_red}error$tc_reset" "$*" >&2 } # func_fatal_error ARG... # ----------------------- # Echo program name prefixed message to standard error, and exit. func_fatal_error () { $debug_cmd func_error "$*" exit $EXIT_FAILURE } # func_grep EXPRESSION FILENAME # ----------------------------- # Check whether EXPRESSION matches any line of FILENAME, without output. func_grep () { $debug_cmd $GREP "$1" "$2" >/dev/null 2>&1 } # func_len STRING # --------------- # Set func_len_result to the length of STRING. STRING may not # start with a hyphen. test -z "$_G_HAVE_XSI_OPS" \ && (eval 'x=a/b/c; test 5aa/bb/cc = "${#x}${x%%/*}${x%/*}${x#*/}${x##*/}"') 2>/dev/null \ && _G_HAVE_XSI_OPS=yes if test yes = "$_G_HAVE_XSI_OPS"; then eval 'func_len () { $debug_cmd func_len_result=${#1} }' else func_len () { $debug_cmd func_len_result=`expr "$1" : ".*" 2>/dev/null || echo $max_cmd_len` } fi # func_mkdir_p DIRECTORY-PATH # --------------------------- # Make sure the entire path to DIRECTORY-PATH is available. func_mkdir_p () { $debug_cmd _G_directory_path=$1 _G_dir_list= if test -n "$_G_directory_path" && test : != "$opt_dry_run"; then # Protect directory names starting with '-' case $_G_directory_path in -*) _G_directory_path=./$_G_directory_path ;; esac # While some portion of DIR does not yet exist... while test ! -d "$_G_directory_path"; do # ...make a list in topmost first order. Use a colon delimited # list incase some portion of path contains whitespace. _G_dir_list=$_G_directory_path:$_G_dir_list # If the last portion added has no slash in it, the list is done case $_G_directory_path in */*) ;; *) break ;; esac # ...otherwise throw away the child directory and loop _G_directory_path=`$ECHO "$_G_directory_path" | $SED -e "$sed_dirname"` done _G_dir_list=`$ECHO "$_G_dir_list" | $SED 's|:*$||'` func_mkdir_p_IFS=$IFS; IFS=: for _G_dir in $_G_dir_list; do IFS=$func_mkdir_p_IFS # mkdir can fail with a 'File exist' error if two processes # try to create one of the directories concurrently. Don't # stop in that case! $MKDIR "$_G_dir" 2>/dev/null || : done IFS=$func_mkdir_p_IFS # Bail out if we (or some other process) failed to create a directory. test -d "$_G_directory_path" || \ func_fatal_error "Failed to create '$1'" fi } # func_mktempdir [BASENAME] # ------------------------- # Make a temporary directory that won't clash with other running # libtool processes, and avoids race conditions if possible. If # given, BASENAME is the basename for that directory. func_mktempdir () { $debug_cmd _G_template=${TMPDIR-/tmp}/${1-$progname} if test : = "$opt_dry_run"; then # Return a directory name, but don't create it in dry-run mode _G_tmpdir=$_G_template-$$ else # If mktemp works, use that first and foremost _G_tmpdir=`mktemp -d "$_G_template-XXXXXXXX" 2>/dev/null` if test ! -d "$_G_tmpdir"; then # Failing that, at least try and use $RANDOM to avoid a race _G_tmpdir=$_G_template-${RANDOM-0}$$ func_mktempdir_umask=`umask` umask 0077 $MKDIR "$_G_tmpdir" umask $func_mktempdir_umask fi # If we're not in dry-run mode, bomb out on failure test -d "$_G_tmpdir" || \ func_fatal_error "cannot create temporary directory '$_G_tmpdir'" fi $ECHO "$_G_tmpdir" } # func_normal_abspath PATH # ------------------------ # Remove doubled-up and trailing slashes, "." path components, # and cancel out any ".." path components in PATH after making # it an absolute path. func_normal_abspath () { $debug_cmd # These SED scripts presuppose an absolute path with a trailing slash. _G_pathcar='s|^/\([^/]*\).*$|\1|' _G_pathcdr='s|^/[^/]*||' _G_removedotparts=':dotsl s|/\./|/|g t dotsl s|/\.$|/|' _G_collapseslashes='s|/\{1,\}|/|g' _G_finalslash='s|/*$|/|' # Start from root dir and reassemble the path. func_normal_abspath_result= func_normal_abspath_tpath=$1 func_normal_abspath_altnamespace= case $func_normal_abspath_tpath in "") # Empty path, that just means $cwd. func_stripname '' '/' "`pwd`" func_normal_abspath_result=$func_stripname_result return ;; # The next three entries are used to spot a run of precisely # two leading slashes without using negated character classes; # we take advantage of case's first-match behaviour. ///*) # Unusual form of absolute path, do nothing. ;; //*) # Not necessarily an ordinary path; POSIX reserves leading '//' # and for example Cygwin uses it to access remote file shares # over CIFS/SMB, so we conserve a leading double slash if found. func_normal_abspath_altnamespace=/ ;; /*) # Absolute path, do nothing. ;; *) # Relative path, prepend $cwd. func_normal_abspath_tpath=`pwd`/$func_normal_abspath_tpath ;; esac # Cancel out all the simple stuff to save iterations. We also want # the path to end with a slash for ease of parsing, so make sure # there is one (and only one) here. func_normal_abspath_tpath=`$ECHO "$func_normal_abspath_tpath" | $SED \ -e "$_G_removedotparts" -e "$_G_collapseslashes" -e "$_G_finalslash"` while :; do # Processed it all yet? if test / = "$func_normal_abspath_tpath"; then # If we ascended to the root using ".." the result may be empty now. if test -z "$func_normal_abspath_result"; then func_normal_abspath_result=/ fi break fi func_normal_abspath_tcomponent=`$ECHO "$func_normal_abspath_tpath" | $SED \ -e "$_G_pathcar"` func_normal_abspath_tpath=`$ECHO "$func_normal_abspath_tpath" | $SED \ -e "$_G_pathcdr"` # Figure out what to do with it case $func_normal_abspath_tcomponent in "") # Trailing empty path component, ignore it. ;; ..) # Parent dir; strip last assembled component from result. func_dirname "$func_normal_abspath_result" func_normal_abspath_result=$func_dirname_result ;; *) # Actual path component, append it. func_append func_normal_abspath_result "/$func_normal_abspath_tcomponent" ;; esac done # Restore leading double-slash if one was found on entry. func_normal_abspath_result=$func_normal_abspath_altnamespace$func_normal_abspath_result } # func_notquiet ARG... # -------------------- # Echo program name prefixed message only when not in quiet mode. func_notquiet () { $debug_cmd $opt_quiet || func_echo ${1+"$@"} # A bug in bash halts the script if the last line of a function # fails when set -e is in force, so we need another command to # work around that: : } # func_relative_path SRCDIR DSTDIR # -------------------------------- # Set func_relative_path_result to the relative path from SRCDIR to DSTDIR. func_relative_path () { $debug_cmd func_relative_path_result= func_normal_abspath "$1" func_relative_path_tlibdir=$func_normal_abspath_result func_normal_abspath "$2" func_relative_path_tbindir=$func_normal_abspath_result # Ascend the tree starting from libdir while :; do # check if we have found a prefix of bindir case $func_relative_path_tbindir in $func_relative_path_tlibdir) # found an exact match func_relative_path_tcancelled= break ;; $func_relative_path_tlibdir*) # found a matching prefix func_stripname "$func_relative_path_tlibdir" '' "$func_relative_path_tbindir" func_relative_path_tcancelled=$func_stripname_result if test -z "$func_relative_path_result"; then func_relative_path_result=. fi break ;; *) func_dirname $func_relative_path_tlibdir func_relative_path_tlibdir=$func_dirname_result if test -z "$func_relative_path_tlibdir"; then # Have to descend all the way to the root! func_relative_path_result=../$func_relative_path_result func_relative_path_tcancelled=$func_relative_path_tbindir break fi func_relative_path_result=../$func_relative_path_result ;; esac done # Now calculate path; take care to avoid doubling-up slashes. func_stripname '' '/' "$func_relative_path_result" func_relative_path_result=$func_stripname_result func_stripname '/' '/' "$func_relative_path_tcancelled" if test -n "$func_stripname_result"; then func_append func_relative_path_result "/$func_stripname_result" fi # Normalisation. If bindir is libdir, return '.' else relative path. if test -n "$func_relative_path_result"; then func_stripname './' '' "$func_relative_path_result" func_relative_path_result=$func_stripname_result fi test -n "$func_relative_path_result" || func_relative_path_result=. : } # func_quote_for_eval ARG... # -------------------------- # Aesthetically quote ARGs to be evaled later. # This function returns two values: # i) func_quote_for_eval_result # double-quoted, suitable for a subsequent eval # ii) func_quote_for_eval_unquoted_result # has all characters that are still active within double # quotes backslashified. func_quote_for_eval () { $debug_cmd func_quote_for_eval_unquoted_result= func_quote_for_eval_result= while test 0 -lt $#; do case $1 in *[\\\`\"\$]*) _G_unquoted_arg=`printf '%s\n' "$1" |$SED "$sed_quote_subst"` ;; *) _G_unquoted_arg=$1 ;; esac if test -n "$func_quote_for_eval_unquoted_result"; then func_append func_quote_for_eval_unquoted_result " $_G_unquoted_arg" else func_append func_quote_for_eval_unquoted_result "$_G_unquoted_arg" fi case $_G_unquoted_arg in # Double-quote args containing shell metacharacters to delay # word splitting, command substitution and variable expansion # for a subsequent eval. # Many Bourne shells cannot handle close brackets correctly # in scan sets, so we specify it separately. *[\[\~\#\^\&\*\(\)\{\}\|\;\<\>\?\'\ \ ]*|*]*|"") _G_quoted_arg=\"$_G_unquoted_arg\" ;; *) _G_quoted_arg=$_G_unquoted_arg ;; esac if test -n "$func_quote_for_eval_result"; then func_append func_quote_for_eval_result " $_G_quoted_arg" else func_append func_quote_for_eval_result "$_G_quoted_arg" fi shift done } # func_quote_for_expand ARG # ------------------------- # Aesthetically quote ARG to be evaled later; same as above, # but do not quote variable references. func_quote_for_expand () { $debug_cmd case $1 in *[\\\`\"]*) _G_arg=`$ECHO "$1" | $SED \ -e "$sed_double_quote_subst" -e "$sed_double_backslash"` ;; *) _G_arg=$1 ;; esac case $_G_arg in # Double-quote args containing shell metacharacters to delay # word splitting and command substitution for a subsequent eval. # Many Bourne shells cannot handle close brackets correctly # in scan sets, so we specify it separately. *[\[\~\#\^\&\*\(\)\{\}\|\;\<\>\?\'\ \ ]*|*]*|"") _G_arg=\"$_G_arg\" ;; esac func_quote_for_expand_result=$_G_arg } # func_stripname PREFIX SUFFIX NAME # --------------------------------- # strip PREFIX and SUFFIX from NAME, and store in func_stripname_result. # PREFIX and SUFFIX must not contain globbing or regex special # characters, hashes, percent signs, but SUFFIX may contain a leading # dot (in which case that matches only a dot). if test yes = "$_G_HAVE_XSI_OPS"; then eval 'func_stripname () { $debug_cmd # pdksh 5.2.14 does not do ${X%$Y} correctly if both X and Y are # positional parameters, so assign one to ordinary variable first. func_stripname_result=$3 func_stripname_result=${func_stripname_result#"$1"} func_stripname_result=${func_stripname_result%"$2"} }' else func_stripname () { $debug_cmd case $2 in .*) func_stripname_result=`$ECHO "$3" | $SED -e "s%^$1%%" -e "s%\\\\$2\$%%"`;; *) func_stripname_result=`$ECHO "$3" | $SED -e "s%^$1%%" -e "s%$2\$%%"`;; esac } fi # func_show_eval CMD [FAIL_EXP] # ----------------------------- # Unless opt_quiet is true, then output CMD. Then, if opt_dryrun is # not true, evaluate CMD. If the evaluation of CMD fails, and FAIL_EXP # is given, then evaluate it. func_show_eval () { $debug_cmd _G_cmd=$1 _G_fail_exp=${2-':'} func_quote_for_expand "$_G_cmd" eval "func_notquiet $func_quote_for_expand_result" $opt_dry_run || { eval "$_G_cmd" _G_status=$? if test 0 -ne "$_G_status"; then eval "(exit $_G_status); $_G_fail_exp" fi } } # func_show_eval_locale CMD [FAIL_EXP] # ------------------------------------ # Unless opt_quiet is true, then output CMD. Then, if opt_dryrun is # not true, evaluate CMD. If the evaluation of CMD fails, and FAIL_EXP # is given, then evaluate it. Use the saved locale for evaluation. func_show_eval_locale () { $debug_cmd _G_cmd=$1 _G_fail_exp=${2-':'} $opt_quiet || { func_quote_for_expand "$_G_cmd" eval "func_echo $func_quote_for_expand_result" } $opt_dry_run || { eval "$_G_user_locale $_G_cmd" _G_status=$? eval "$_G_safe_locale" if test 0 -ne "$_G_status"; then eval "(exit $_G_status); $_G_fail_exp" fi } } # func_tr_sh # ---------- # Turn $1 into a string suitable for a shell variable name. # Result is stored in $func_tr_sh_result. All characters # not in the set a-zA-Z0-9_ are replaced with '_'. Further, # if $1 begins with a digit, a '_' is prepended as well. func_tr_sh () { $debug_cmd case $1 in [0-9]* | *[!a-zA-Z0-9_]*) func_tr_sh_result=`$ECHO "$1" | $SED -e 's/^\([0-9]\)/_\1/' -e 's/[^a-zA-Z0-9_]/_/g'` ;; * ) func_tr_sh_result=$1 ;; esac } # func_verbose ARG... # ------------------- # Echo program name prefixed message in verbose mode only. func_verbose () { $debug_cmd $opt_verbose && func_echo "$*" : } # func_warn_and_continue ARG... # ----------------------------- # Echo program name prefixed warning message to standard error. func_warn_and_continue () { $debug_cmd $require_term_colors func_echo_infix_1 "${tc_red}warning$tc_reset" "$*" >&2 } # func_warning CATEGORY ARG... # ---------------------------- # Echo program name prefixed warning message to standard error. Warning # messages can be filtered according to CATEGORY, where this function # elides messages where CATEGORY is not listed in the global variable # 'opt_warning_types'. func_warning () { $debug_cmd # CATEGORY must be in the warning_categories list! case " $warning_categories " in *" $1 "*) ;; *) func_internal_error "invalid warning category '$1'" ;; esac _G_category=$1 shift case " $opt_warning_types " in *" $_G_category "*) $warning_func ${1+"$@"} ;; esac } # func_sort_ver VER1 VER2 # ----------------------- # 'sort -V' is not generally available. # Note this deviates from the version comparison in automake # in that it treats 1.5 < 1.5.0, and treats 1.4.4a < 1.4-p3a # but this should suffice as we won't be specifying old # version formats or redundant trailing .0 in bootstrap.conf. # If we did want full compatibility then we should probably # use m4_version_compare from autoconf. func_sort_ver () { $debug_cmd printf '%s\n%s\n' "$1" "$2" \ | sort -t. -k 1,1n -k 2,2n -k 3,3n -k 4,4n -k 5,5n -k 6,6n -k 7,7n -k 8,8n -k 9,9n } # func_lt_ver PREV CURR # --------------------- # Return true if PREV and CURR are in the correct order according to # func_sort_ver, otherwise false. Use it like this: # # func_lt_ver "$prev_ver" "$proposed_ver" || func_fatal_error "..." func_lt_ver () { $debug_cmd test "x$1" = x`func_sort_ver "$1" "$2" | $SED 1q` } # Local variables: # mode: shell-script # sh-indentation: 2 # eval: (add-hook 'before-save-hook 'time-stamp) # time-stamp-pattern: "10/scriptversion=%:y-%02m-%02d.%02H; # UTC" # time-stamp-time-zone: "UTC" # End: #! /bin/sh # Set a version string for this script. scriptversion=2014-01-07.03; # UTC # A portable, pluggable option parser for Bourne shell. # Written by Gary V. Vaughan, 2010 # Copyright (C) 2010-2015 Free Software Foundation, Inc. # This is free software; see the source for copying conditions. There is NO # warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. # This program is free software: you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by # the Free Software Foundation, either version 3 of the License, or # (at your option) any later version. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # You should have received a copy of the GNU General Public License # along with this program. If not, see . # Please report bugs or propose patches to gary@gnu.org. ## ------ ## ## Usage. ## ## ------ ## # This file is a library for parsing options in your shell scripts along # with assorted other useful supporting features that you can make use # of too. # # For the simplest scripts you might need only: # # #!/bin/sh # . relative/path/to/funclib.sh # . relative/path/to/options-parser # scriptversion=1.0 # func_options ${1+"$@"} # eval set dummy "$func_options_result"; shift # ...rest of your script... # # In order for the '--version' option to work, you will need to have a # suitably formatted comment like the one at the top of this file # starting with '# Written by ' and ending with '# warranty; '. # # For '-h' and '--help' to work, you will also need a one line # description of your script's purpose in a comment directly above the # '# Written by ' line, like the one at the top of this file. # # The default options also support '--debug', which will turn on shell # execution tracing (see the comment above debug_cmd below for another # use), and '--verbose' and the func_verbose function to allow your script # to display verbose messages only when your user has specified # '--verbose'. # # After sourcing this file, you can plug processing for additional # options by amending the variables from the 'Configuration' section # below, and following the instructions in the 'Option parsing' # section further down. ## -------------- ## ## Configuration. ## ## -------------- ## # You should override these variables in your script after sourcing this # file so that they reflect the customisations you have added to the # option parser. # The usage line for option parsing errors and the start of '-h' and # '--help' output messages. You can embed shell variables for delayed # expansion at the time the message is displayed, but you will need to # quote other shell meta-characters carefully to prevent them being # expanded when the contents are evaled. usage='$progpath [OPTION]...' # Short help message in response to '-h' and '--help'. Add to this or # override it after sourcing this library to reflect the full set of # options your script accepts. usage_message="\ --debug enable verbose shell tracing -W, --warnings=CATEGORY report the warnings falling in CATEGORY [all] -v, --verbose verbosely report processing --version print version information and exit -h, --help print short or long help message and exit " # Additional text appended to 'usage_message' in response to '--help'. long_help_message=" Warning categories include: 'all' show all warnings 'none' turn off all the warnings 'error' warnings are treated as fatal errors" # Help message printed before fatal option parsing errors. fatal_help="Try '\$progname --help' for more information." ## ------------------------- ## ## Hook function management. ## ## ------------------------- ## # This section contains functions for adding, removing, and running hooks # to the main code. A hook is just a named list of of function, that can # be run in order later on. # func_hookable FUNC_NAME # ----------------------- # Declare that FUNC_NAME will run hooks added with # 'func_add_hook FUNC_NAME ...'. func_hookable () { $debug_cmd func_append hookable_fns " $1" } # func_add_hook FUNC_NAME HOOK_FUNC # --------------------------------- # Request that FUNC_NAME call HOOK_FUNC before it returns. FUNC_NAME must # first have been declared "hookable" by a call to 'func_hookable'. func_add_hook () { $debug_cmd case " $hookable_fns " in *" $1 "*) ;; *) func_fatal_error "'$1' does not accept hook functions." ;; esac eval func_append ${1}_hooks '" $2"' } # func_remove_hook FUNC_NAME HOOK_FUNC # ------------------------------------ # Remove HOOK_FUNC from the list of functions called by FUNC_NAME. func_remove_hook () { $debug_cmd eval ${1}_hooks='`$ECHO "\$'$1'_hooks" |$SED "s| '$2'||"`' } # func_run_hooks FUNC_NAME [ARG]... # --------------------------------- # Run all hook functions registered to FUNC_NAME. # It is assumed that the list of hook functions contains nothing more # than a whitespace-delimited list of legal shell function names, and # no effort is wasted trying to catch shell meta-characters or preserve # whitespace. func_run_hooks () { $debug_cmd case " $hookable_fns " in *" $1 "*) ;; *) func_fatal_error "'$1' does not support hook funcions.n" ;; esac eval _G_hook_fns=\$$1_hooks; shift for _G_hook in $_G_hook_fns; do eval $_G_hook '"$@"' # store returned options list back into positional # parameters for next 'cmd' execution. eval _G_hook_result=\$${_G_hook}_result eval set dummy "$_G_hook_result"; shift done func_quote_for_eval ${1+"$@"} func_run_hooks_result=$func_quote_for_eval_result } ## --------------- ## ## Option parsing. ## ## --------------- ## # In order to add your own option parsing hooks, you must accept the # full positional parameter list in your hook function, remove any # options that you action, and then pass back the remaining unprocessed # options in '_result', escaped suitably for # 'eval'. Like this: # # my_options_prep () # { # $debug_cmd # # # Extend the existing usage message. # usage_message=$usage_message' # -s, --silent don'\''t print informational messages # ' # # func_quote_for_eval ${1+"$@"} # my_options_prep_result=$func_quote_for_eval_result # } # func_add_hook func_options_prep my_options_prep # # # my_silent_option () # { # $debug_cmd # # # Note that for efficiency, we parse as many options as we can # # recognise in a loop before passing the remainder back to the # # caller on the first unrecognised argument we encounter. # while test $# -gt 0; do # opt=$1; shift # case $opt in # --silent|-s) opt_silent=: ;; # # Separate non-argument short options: # -s*) func_split_short_opt "$_G_opt" # set dummy "$func_split_short_opt_name" \ # "-$func_split_short_opt_arg" ${1+"$@"} # shift # ;; # *) set dummy "$_G_opt" "$*"; shift; break ;; # esac # done # # func_quote_for_eval ${1+"$@"} # my_silent_option_result=$func_quote_for_eval_result # } # func_add_hook func_parse_options my_silent_option # # # my_option_validation () # { # $debug_cmd # # $opt_silent && $opt_verbose && func_fatal_help "\ # '--silent' and '--verbose' options are mutually exclusive." # # func_quote_for_eval ${1+"$@"} # my_option_validation_result=$func_quote_for_eval_result # } # func_add_hook func_validate_options my_option_validation # # You'll alse need to manually amend $usage_message to reflect the extra # options you parse. It's preferable to append if you can, so that # multiple option parsing hooks can be added safely. # func_options [ARG]... # --------------------- # All the functions called inside func_options are hookable. See the # individual implementations for details. func_hookable func_options func_options () { $debug_cmd func_options_prep ${1+"$@"} eval func_parse_options \ ${func_options_prep_result+"$func_options_prep_result"} eval func_validate_options \ ${func_parse_options_result+"$func_parse_options_result"} eval func_run_hooks func_options \ ${func_validate_options_result+"$func_validate_options_result"} # save modified positional parameters for caller func_options_result=$func_run_hooks_result } # func_options_prep [ARG]... # -------------------------- # All initialisations required before starting the option parse loop. # Note that when calling hook functions, we pass through the list of # positional parameters. If a hook function modifies that list, and # needs to propogate that back to rest of this script, then the complete # modified list must be put in 'func_run_hooks_result' before # returning. func_hookable func_options_prep func_options_prep () { $debug_cmd # Option defaults: opt_verbose=false opt_warning_types= func_run_hooks func_options_prep ${1+"$@"} # save modified positional parameters for caller func_options_prep_result=$func_run_hooks_result } # func_parse_options [ARG]... # --------------------------- # The main option parsing loop. func_hookable func_parse_options func_parse_options () { $debug_cmd func_parse_options_result= # this just eases exit handling while test $# -gt 0; do # Defer to hook functions for initial option parsing, so they # get priority in the event of reusing an option name. func_run_hooks func_parse_options ${1+"$@"} # Adjust func_parse_options positional parameters to match eval set dummy "$func_run_hooks_result"; shift # Break out of the loop if we already parsed every option. test $# -gt 0 || break _G_opt=$1 shift case $_G_opt in --debug|-x) debug_cmd='set -x' func_echo "enabling shell trace mode" $debug_cmd ;; --no-warnings|--no-warning|--no-warn) set dummy --warnings none ${1+"$@"} shift ;; --warnings|--warning|-W) test $# = 0 && func_missing_arg $_G_opt && break case " $warning_categories $1" in *" $1 "*) # trailing space prevents matching last $1 above func_append_uniq opt_warning_types " $1" ;; *all) opt_warning_types=$warning_categories ;; *none) opt_warning_types=none warning_func=: ;; *error) opt_warning_types=$warning_categories warning_func=func_fatal_error ;; *) func_fatal_error \ "unsupported warning category: '$1'" ;; esac shift ;; --verbose|-v) opt_verbose=: ;; --version) func_version ;; -\?|-h) func_usage ;; --help) func_help ;; # Separate optargs to long options (plugins may need this): --*=*) func_split_equals "$_G_opt" set dummy "$func_split_equals_lhs" \ "$func_split_equals_rhs" ${1+"$@"} shift ;; # Separate optargs to short options: -W*) func_split_short_opt "$_G_opt" set dummy "$func_split_short_opt_name" \ "$func_split_short_opt_arg" ${1+"$@"} shift ;; # Separate non-argument short options: -\?*|-h*|-v*|-x*) func_split_short_opt "$_G_opt" set dummy "$func_split_short_opt_name" \ "-$func_split_short_opt_arg" ${1+"$@"} shift ;; --) break ;; -*) func_fatal_help "unrecognised option: '$_G_opt'" ;; *) set dummy "$_G_opt" ${1+"$@"}; shift; break ;; esac done # save modified positional parameters for caller func_quote_for_eval ${1+"$@"} func_parse_options_result=$func_quote_for_eval_result } # func_validate_options [ARG]... # ------------------------------ # Perform any sanity checks on option settings and/or unconsumed # arguments. func_hookable func_validate_options func_validate_options () { $debug_cmd # Display all warnings if -W was not given. test -n "$opt_warning_types" || opt_warning_types=" $warning_categories" func_run_hooks func_validate_options ${1+"$@"} # Bail if the options were screwed! $exit_cmd $EXIT_FAILURE # save modified positional parameters for caller func_validate_options_result=$func_run_hooks_result } ## ----------------- ## ## Helper functions. ## ## ----------------- ## # This section contains the helper functions used by the rest of the # hookable option parser framework in ascii-betical order. # func_fatal_help ARG... # ---------------------- # Echo program name prefixed message to standard error, followed by # a help hint, and exit. func_fatal_help () { $debug_cmd eval \$ECHO \""Usage: $usage"\" eval \$ECHO \""$fatal_help"\" func_error ${1+"$@"} exit $EXIT_FAILURE } # func_help # --------- # Echo long help message to standard output and exit. func_help () { $debug_cmd func_usage_message $ECHO "$long_help_message" exit 0 } # func_missing_arg ARGNAME # ------------------------ # Echo program name prefixed message to standard error and set global # exit_cmd. func_missing_arg () { $debug_cmd func_error "Missing argument for '$1'." exit_cmd=exit } # func_split_equals STRING # ------------------------ # Set func_split_equals_lhs and func_split_equals_rhs shell variables after # splitting STRING at the '=' sign. test -z "$_G_HAVE_XSI_OPS" \ && (eval 'x=a/b/c; test 5aa/bb/cc = "${#x}${x%%/*}${x%/*}${x#*/}${x##*/}"') 2>/dev/null \ && _G_HAVE_XSI_OPS=yes if test yes = "$_G_HAVE_XSI_OPS" then # This is an XSI compatible shell, allowing a faster implementation... eval 'func_split_equals () { $debug_cmd func_split_equals_lhs=${1%%=*} func_split_equals_rhs=${1#*=} test "x$func_split_equals_lhs" = "x$1" \ && func_split_equals_rhs= }' else # ...otherwise fall back to using expr, which is often a shell builtin. func_split_equals () { $debug_cmd func_split_equals_lhs=`expr "x$1" : 'x\([^=]*\)'` func_split_equals_rhs= test "x$func_split_equals_lhs" = "x$1" \ || func_split_equals_rhs=`expr "x$1" : 'x[^=]*=\(.*\)$'` } fi #func_split_equals # func_split_short_opt SHORTOPT # ----------------------------- # Set func_split_short_opt_name and func_split_short_opt_arg shell # variables after splitting SHORTOPT after the 2nd character. if test yes = "$_G_HAVE_XSI_OPS" then # This is an XSI compatible shell, allowing a faster implementation... eval 'func_split_short_opt () { $debug_cmd func_split_short_opt_arg=${1#??} func_split_short_opt_name=${1%"$func_split_short_opt_arg"} }' else # ...otherwise fall back to using expr, which is often a shell builtin. func_split_short_opt () { $debug_cmd func_split_short_opt_name=`expr "x$1" : 'x-\(.\)'` func_split_short_opt_arg=`expr "x$1" : 'x-.\(.*\)$'` } fi #func_split_short_opt # func_usage # ---------- # Echo short help message to standard output and exit. func_usage () { $debug_cmd func_usage_message $ECHO "Run '$progname --help |${PAGER-more}' for full usage" exit 0 } # func_usage_message # ------------------ # Echo short help message to standard output. func_usage_message () { $debug_cmd eval \$ECHO \""Usage: $usage"\" echo $SED -n 's|^# || /^Written by/{ x;p;x } h /^Written by/q' < "$progpath" echo eval \$ECHO \""$usage_message"\" } # func_version # ------------ # Echo version message to standard output and exit. func_version () { $debug_cmd printf '%s\n' "$progname $scriptversion" $SED -n ' /(C)/!b go :more /\./!{ N s|\n# | | b more } :go /^# Written by /,/# warranty; / { s|^# || s|^# *$|| s|\((C)\)[ 0-9,-]*[ ,-]\([1-9][0-9]* \)|\1 \2| p } /^# Written by / { s|^# || p } /^warranty; /q' < "$progpath" exit $? } # Local variables: # mode: shell-script # sh-indentation: 2 # eval: (add-hook 'before-save-hook 'time-stamp) # time-stamp-pattern: "10/scriptversion=%:y-%02m-%02d.%02H; # UTC" # time-stamp-time-zone: "UTC" # End: # Set a version string. scriptversion='(GNU libtool) 2.4.6' # func_echo ARG... # ---------------- # Libtool also displays the current mode in messages, so override # funclib.sh func_echo with this custom definition. func_echo () { $debug_cmd _G_message=$* func_echo_IFS=$IFS IFS=$nl for _G_line in $_G_message; do IFS=$func_echo_IFS $ECHO "$progname${opt_mode+: $opt_mode}: $_G_line" done IFS=$func_echo_IFS } # func_warning ARG... # ------------------- # Libtool warnings are not categorized, so override funclib.sh # func_warning with this simpler definition. func_warning () { $debug_cmd $warning_func ${1+"$@"} } ## ---------------- ## ## Options parsing. ## ## ---------------- ## # Hook in the functions to make sure our own options are parsed during # the option parsing loop. usage='$progpath [OPTION]... [MODE-ARG]...' # Short help message in response to '-h'. usage_message="Options: --config show all configuration variables --debug enable verbose shell tracing -n, --dry-run display commands without modifying any files --features display basic configuration information and exit --mode=MODE use operation mode MODE --no-warnings equivalent to '-Wnone' --preserve-dup-deps don't remove duplicate dependency libraries --quiet, --silent don't print informational messages --tag=TAG use configuration variables from tag TAG -v, --verbose print more informational messages than default --version print version information -W, --warnings=CATEGORY report the warnings falling in CATEGORY [all] -h, --help, --help-all print short, long, or detailed help message " # Additional text appended to 'usage_message' in response to '--help'. func_help () { $debug_cmd func_usage_message $ECHO "$long_help_message MODE must be one of the following: clean remove files from the build directory compile compile a source file into a libtool object execute automatically set library path, then run a program finish complete the installation of libtool libraries install install libraries or executables link create a library or an executable uninstall remove libraries from an installed directory MODE-ARGS vary depending on the MODE. When passed as first option, '--mode=MODE' may be abbreviated as 'MODE' or a unique abbreviation of that. Try '$progname --help --mode=MODE' for a more detailed description of MODE. When reporting a bug, please describe a test case to reproduce it and include the following information: host-triplet: $host shell: $SHELL compiler: $LTCC compiler flags: $LTCFLAGS linker: $LD (gnu? $with_gnu_ld) version: $progname (GNU libtool) 2.4.6 automake: `($AUTOMAKE --version) 2>/dev/null |$SED 1q` autoconf: `($AUTOCONF --version) 2>/dev/null |$SED 1q` Report bugs to . GNU libtool home page: . General help using GNU software: ." exit 0 } # func_lo2o OBJECT-NAME # --------------------- # Transform OBJECT-NAME from a '.lo' suffix to the platform specific # object suffix. lo2o=s/\\.lo\$/.$objext/ o2lo=s/\\.$objext\$/.lo/ if test yes = "$_G_HAVE_XSI_OPS"; then eval 'func_lo2o () { case $1 in *.lo) func_lo2o_result=${1%.lo}.$objext ;; * ) func_lo2o_result=$1 ;; esac }' # func_xform LIBOBJ-OR-SOURCE # --------------------------- # Transform LIBOBJ-OR-SOURCE from a '.o' or '.c' (or otherwise) # suffix to a '.lo' libtool-object suffix. eval 'func_xform () { func_xform_result=${1%.*}.lo }' else # ...otherwise fall back to using sed. func_lo2o () { func_lo2o_result=`$ECHO "$1" | $SED "$lo2o"` } func_xform () { func_xform_result=`$ECHO "$1" | $SED 's|\.[^.]*$|.lo|'` } fi # func_fatal_configuration ARG... # ------------------------------- # Echo program name prefixed message to standard error, followed by # a configuration failure hint, and exit. func_fatal_configuration () { func__fatal_error ${1+"$@"} \ "See the $PACKAGE documentation for more information." \ "Fatal configuration error." } # func_config # ----------- # Display the configuration for all the tags in this script. func_config () { re_begincf='^# ### BEGIN LIBTOOL' re_endcf='^# ### END LIBTOOL' # Default configuration. $SED "1,/$re_begincf CONFIG/d;/$re_endcf CONFIG/,\$d" < "$progpath" # Now print the configurations for the tags. for tagname in $taglist; do $SED -n "/$re_begincf TAG CONFIG: $tagname\$/,/$re_endcf TAG CONFIG: $tagname\$/p" < "$progpath" done exit $? } # func_features # ------------- # Display the features supported by this script. func_features () { echo "host: $host" if test yes = "$build_libtool_libs"; then echo "enable shared libraries" else echo "disable shared libraries" fi if test yes = "$build_old_libs"; then echo "enable static libraries" else echo "disable static libraries" fi exit $? } # func_enable_tag TAGNAME # ----------------------- # Verify that TAGNAME is valid, and either flag an error and exit, or # enable the TAGNAME tag. We also add TAGNAME to the global $taglist # variable here. func_enable_tag () { # Global variable: tagname=$1 re_begincf="^# ### BEGIN LIBTOOL TAG CONFIG: $tagname\$" re_endcf="^# ### END LIBTOOL TAG CONFIG: $tagname\$" sed_extractcf=/$re_begincf/,/$re_endcf/p # Validate tagname. case $tagname in *[!-_A-Za-z0-9,/]*) func_fatal_error "invalid tag name: $tagname" ;; esac # Don't test for the "default" C tag, as we know it's # there but not specially marked. case $tagname in CC) ;; *) if $GREP "$re_begincf" "$progpath" >/dev/null 2>&1; then taglist="$taglist $tagname" # Evaluate the configuration. Be careful to quote the path # and the sed script, to avoid splitting on whitespace, but # also don't use non-portable quotes within backquotes within # quotes we have to do it in 2 steps: extractedcf=`$SED -n -e "$sed_extractcf" < "$progpath"` eval "$extractedcf" else func_error "ignoring unknown tag $tagname" fi ;; esac } # func_check_version_match # ------------------------ # Ensure that we are using m4 macros, and libtool script from the same # release of libtool. func_check_version_match () { if test "$package_revision" != "$macro_revision"; then if test "$VERSION" != "$macro_version"; then if test -z "$macro_version"; then cat >&2 <<_LT_EOF $progname: Version mismatch error. This is $PACKAGE $VERSION, but the $progname: definition of this LT_INIT comes from an older release. $progname: You should recreate aclocal.m4 with macros from $PACKAGE $VERSION $progname: and run autoconf again. _LT_EOF else cat >&2 <<_LT_EOF $progname: Version mismatch error. This is $PACKAGE $VERSION, but the $progname: definition of this LT_INIT comes from $PACKAGE $macro_version. $progname: You should recreate aclocal.m4 with macros from $PACKAGE $VERSION $progname: and run autoconf again. _LT_EOF fi else cat >&2 <<_LT_EOF $progname: Version mismatch error. This is $PACKAGE $VERSION, revision $package_revision, $progname: but the definition of this LT_INIT comes from revision $macro_revision. $progname: You should recreate aclocal.m4 with macros from revision $package_revision $progname: of $PACKAGE $VERSION and run autoconf again. _LT_EOF fi exit $EXIT_MISMATCH fi } # libtool_options_prep [ARG]... # ----------------------------- # Preparation for options parsed by libtool. libtool_options_prep () { $debug_mode # Option defaults: opt_config=false opt_dlopen= opt_dry_run=false opt_help=false opt_mode= opt_preserve_dup_deps=false opt_quiet=false nonopt= preserve_args= # Shorthand for --mode=foo, only valid as the first argument case $1 in clean|clea|cle|cl) shift; set dummy --mode clean ${1+"$@"}; shift ;; compile|compil|compi|comp|com|co|c) shift; set dummy --mode compile ${1+"$@"}; shift ;; execute|execut|execu|exec|exe|ex|e) shift; set dummy --mode execute ${1+"$@"}; shift ;; finish|finis|fini|fin|fi|f) shift; set dummy --mode finish ${1+"$@"}; shift ;; install|instal|insta|inst|ins|in|i) shift; set dummy --mode install ${1+"$@"}; shift ;; link|lin|li|l) shift; set dummy --mode link ${1+"$@"}; shift ;; uninstall|uninstal|uninsta|uninst|unins|unin|uni|un|u) shift; set dummy --mode uninstall ${1+"$@"}; shift ;; esac # Pass back the list of options. func_quote_for_eval ${1+"$@"} libtool_options_prep_result=$func_quote_for_eval_result } func_add_hook func_options_prep libtool_options_prep # libtool_parse_options [ARG]... # --------------------------------- # Provide handling for libtool specific options. libtool_parse_options () { $debug_cmd # Perform our own loop to consume as many options as possible in # each iteration. while test $# -gt 0; do _G_opt=$1 shift case $_G_opt in --dry-run|--dryrun|-n) opt_dry_run=: ;; --config) func_config ;; --dlopen|-dlopen) opt_dlopen="${opt_dlopen+$opt_dlopen }$1" shift ;; --preserve-dup-deps) opt_preserve_dup_deps=: ;; --features) func_features ;; --finish) set dummy --mode finish ${1+"$@"}; shift ;; --help) opt_help=: ;; --help-all) opt_help=': help-all' ;; --mode) test $# = 0 && func_missing_arg $_G_opt && break opt_mode=$1 case $1 in # Valid mode arguments: clean|compile|execute|finish|install|link|relink|uninstall) ;; # Catch anything else as an error *) func_error "invalid argument for $_G_opt" exit_cmd=exit break ;; esac shift ;; --no-silent|--no-quiet) opt_quiet=false func_append preserve_args " $_G_opt" ;; --no-warnings|--no-warning|--no-warn) opt_warning=false func_append preserve_args " $_G_opt" ;; --no-verbose) opt_verbose=false func_append preserve_args " $_G_opt" ;; --silent|--quiet) opt_quiet=: opt_verbose=false func_append preserve_args " $_G_opt" ;; --tag) test $# = 0 && func_missing_arg $_G_opt && break opt_tag=$1 func_append preserve_args " $_G_opt $1" func_enable_tag "$1" shift ;; --verbose|-v) opt_quiet=false opt_verbose=: func_append preserve_args " $_G_opt" ;; # An option not handled by this hook function: *) set dummy "$_G_opt" ${1+"$@"}; shift; break ;; esac done # save modified positional parameters for caller func_quote_for_eval ${1+"$@"} libtool_parse_options_result=$func_quote_for_eval_result } func_add_hook func_parse_options libtool_parse_options # libtool_validate_options [ARG]... # --------------------------------- # Perform any sanity checks on option settings and/or unconsumed # arguments. libtool_validate_options () { # save first non-option argument if test 0 -lt $#; then nonopt=$1 shift fi # preserve --debug test : = "$debug_cmd" || func_append preserve_args " --debug" case $host in # Solaris2 added to fix http://debbugs.gnu.org/cgi/bugreport.cgi?bug=16452 # see also: http://gcc.gnu.org/bugzilla/show_bug.cgi?id=59788 *cygwin* | *mingw* | *pw32* | *cegcc* | *solaris2* | *os2*) # don't eliminate duplications in $postdeps and $predeps opt_duplicate_compiler_generated_deps=: ;; *) opt_duplicate_compiler_generated_deps=$opt_preserve_dup_deps ;; esac $opt_help || { # Sanity checks first: func_check_version_match test yes != "$build_libtool_libs" \ && test yes != "$build_old_libs" \ && func_fatal_configuration "not configured to build any kind of library" # Darwin sucks eval std_shrext=\"$shrext_cmds\" # Only execute mode is allowed to have -dlopen flags. if test -n "$opt_dlopen" && test execute != "$opt_mode"; then func_error "unrecognized option '-dlopen'" $ECHO "$help" 1>&2 exit $EXIT_FAILURE fi # Change the help message to a mode-specific one. generic_help=$help help="Try '$progname --help --mode=$opt_mode' for more information." } # Pass back the unparsed argument list func_quote_for_eval ${1+"$@"} libtool_validate_options_result=$func_quote_for_eval_result } func_add_hook func_validate_options libtool_validate_options # Process options as early as possible so that --help and --version # can return quickly. func_options ${1+"$@"} eval set dummy "$func_options_result"; shift ## ----------- ## ## Main. ## ## ----------- ## magic='%%%MAGIC variable%%%' magic_exe='%%%MAGIC EXE variable%%%' # Global variables. extracted_archives= extracted_serial=0 # If this variable is set in any of the actions, the command in it # will be execed at the end. This prevents here-documents from being # left over by shells. exec_cmd= # A function that is used when there is no print builtin or printf. func_fallback_echo () { eval 'cat <<_LTECHO_EOF $1 _LTECHO_EOF' } # func_generated_by_libtool # True iff stdin has been generated by Libtool. This function is only # a basic sanity check; it will hardly flush out determined imposters. func_generated_by_libtool_p () { $GREP "^# Generated by .*$PACKAGE" > /dev/null 2>&1 } # func_lalib_p file # True iff FILE is a libtool '.la' library or '.lo' object file. # This function is only a basic sanity check; it will hardly flush out # determined imposters. func_lalib_p () { test -f "$1" && $SED -e 4q "$1" 2>/dev/null | func_generated_by_libtool_p } # func_lalib_unsafe_p file # True iff FILE is a libtool '.la' library or '.lo' object file. # This function implements the same check as func_lalib_p without # resorting to external programs. To this end, it redirects stdin and # closes it afterwards, without saving the original file descriptor. # As a safety measure, use it only where a negative result would be # fatal anyway. Works if 'file' does not exist. func_lalib_unsafe_p () { lalib_p=no if test -f "$1" && test -r "$1" && exec 5<&0 <"$1"; then for lalib_p_l in 1 2 3 4 do read lalib_p_line case $lalib_p_line in \#\ Generated\ by\ *$PACKAGE* ) lalib_p=yes; break;; esac done exec 0<&5 5<&- fi test yes = "$lalib_p" } # func_ltwrapper_script_p file # True iff FILE is a libtool wrapper script # This function is only a basic sanity check; it will hardly flush out # determined imposters. func_ltwrapper_script_p () { test -f "$1" && $lt_truncate_bin < "$1" 2>/dev/null | func_generated_by_libtool_p } # func_ltwrapper_executable_p file # True iff FILE is a libtool wrapper executable # This function is only a basic sanity check; it will hardly flush out # determined imposters. func_ltwrapper_executable_p () { func_ltwrapper_exec_suffix= case $1 in *.exe) ;; *) func_ltwrapper_exec_suffix=.exe ;; esac $GREP "$magic_exe" "$1$func_ltwrapper_exec_suffix" >/dev/null 2>&1 } # func_ltwrapper_scriptname file # Assumes file is an ltwrapper_executable # uses $file to determine the appropriate filename for a # temporary ltwrapper_script. func_ltwrapper_scriptname () { func_dirname_and_basename "$1" "" "." func_stripname '' '.exe' "$func_basename_result" func_ltwrapper_scriptname_result=$func_dirname_result/$objdir/${func_stripname_result}_ltshwrapper } # func_ltwrapper_p file # True iff FILE is a libtool wrapper script or wrapper executable # This function is only a basic sanity check; it will hardly flush out # determined imposters. func_ltwrapper_p () { func_ltwrapper_script_p "$1" || func_ltwrapper_executable_p "$1" } # func_execute_cmds commands fail_cmd # Execute tilde-delimited COMMANDS. # If FAIL_CMD is given, eval that upon failure. # FAIL_CMD may read-access the current command in variable CMD! func_execute_cmds () { $debug_cmd save_ifs=$IFS; IFS='~' for cmd in $1; do IFS=$sp$nl eval cmd=\"$cmd\" IFS=$save_ifs func_show_eval "$cmd" "${2-:}" done IFS=$save_ifs } # func_source file # Source FILE, adding directory component if necessary. # Note that it is not necessary on cygwin/mingw to append a dot to # FILE even if both FILE and FILE.exe exist: automatic-append-.exe # behavior happens only for exec(3), not for open(2)! Also, sourcing # 'FILE.' does not work on cygwin managed mounts. func_source () { $debug_cmd case $1 in */* | *\\*) . "$1" ;; *) . "./$1" ;; esac } # func_resolve_sysroot PATH # Replace a leading = in PATH with a sysroot. Store the result into # func_resolve_sysroot_result func_resolve_sysroot () { func_resolve_sysroot_result=$1 case $func_resolve_sysroot_result in =*) func_stripname '=' '' "$func_resolve_sysroot_result" func_resolve_sysroot_result=$lt_sysroot$func_stripname_result ;; esac } # func_replace_sysroot PATH # If PATH begins with the sysroot, replace it with = and # store the result into func_replace_sysroot_result. func_replace_sysroot () { case $lt_sysroot:$1 in ?*:"$lt_sysroot"*) func_stripname "$lt_sysroot" '' "$1" func_replace_sysroot_result='='$func_stripname_result ;; *) # Including no sysroot. func_replace_sysroot_result=$1 ;; esac } # func_infer_tag arg # Infer tagged configuration to use if any are available and # if one wasn't chosen via the "--tag" command line option. # Only attempt this if the compiler in the base compile # command doesn't match the default compiler. # arg is usually of the form 'gcc ...' func_infer_tag () { $debug_cmd if test -n "$available_tags" && test -z "$tagname"; then CC_quoted= for arg in $CC; do func_append_quoted CC_quoted "$arg" done CC_expanded=`func_echo_all $CC` CC_quoted_expanded=`func_echo_all $CC_quoted` case $@ in # Blanks in the command may have been stripped by the calling shell, # but not from the CC environment variable when configure was run. " $CC "* | "$CC "* | " $CC_expanded "* | "$CC_expanded "* | \ " $CC_quoted"* | "$CC_quoted "* | " $CC_quoted_expanded "* | "$CC_quoted_expanded "*) ;; # Blanks at the start of $base_compile will cause this to fail # if we don't check for them as well. *) for z in $available_tags; do if $GREP "^# ### BEGIN LIBTOOL TAG CONFIG: $z$" < "$progpath" > /dev/null; then # Evaluate the configuration. eval "`$SED -n -e '/^# ### BEGIN LIBTOOL TAG CONFIG: '$z'$/,/^# ### END LIBTOOL TAG CONFIG: '$z'$/p' < $progpath`" CC_quoted= for arg in $CC; do # Double-quote args containing other shell metacharacters. func_append_quoted CC_quoted "$arg" done CC_expanded=`func_echo_all $CC` CC_quoted_expanded=`func_echo_all $CC_quoted` case "$@ " in " $CC "* | "$CC "* | " $CC_expanded "* | "$CC_expanded "* | \ " $CC_quoted"* | "$CC_quoted "* | " $CC_quoted_expanded "* | "$CC_quoted_expanded "*) # The compiler in the base compile command matches # the one in the tagged configuration. # Assume this is the tagged configuration we want. tagname=$z break ;; esac fi done # If $tagname still isn't set, then no tagged configuration # was found and let the user know that the "--tag" command # line option must be used. if test -z "$tagname"; then func_echo "unable to infer tagged configuration" func_fatal_error "specify a tag with '--tag'" # else # func_verbose "using $tagname tagged configuration" fi ;; esac fi } # func_write_libtool_object output_name pic_name nonpic_name # Create a libtool object file (analogous to a ".la" file), # but don't create it if we're doing a dry run. func_write_libtool_object () { write_libobj=$1 if test yes = "$build_libtool_libs"; then write_lobj=\'$2\' else write_lobj=none fi if test yes = "$build_old_libs"; then write_oldobj=\'$3\' else write_oldobj=none fi $opt_dry_run || { cat >${write_libobj}T </dev/null` if test "$?" -eq 0 && test -n "$func_convert_core_file_wine_to_w32_tmp"; then func_convert_core_file_wine_to_w32_result=`$ECHO "$func_convert_core_file_wine_to_w32_tmp" | $SED -e "$sed_naive_backslashify"` else func_convert_core_file_wine_to_w32_result= fi fi } # end: func_convert_core_file_wine_to_w32 # func_convert_core_path_wine_to_w32 ARG # Helper function used by path conversion functions when $build is *nix, and # $host is mingw, cygwin, or some other w32 environment. Relies on a correctly # configured wine environment available, with the winepath program in $build's # $PATH. Assumes ARG has no leading or trailing path separator characters. # # ARG is path to be converted from $build format to win32. # Result is available in $func_convert_core_path_wine_to_w32_result. # Unconvertible file (directory) names in ARG are skipped; if no directory names # are convertible, then the result may be empty. func_convert_core_path_wine_to_w32 () { $debug_cmd # unfortunately, winepath doesn't convert paths, only file names func_convert_core_path_wine_to_w32_result= if test -n "$1"; then oldIFS=$IFS IFS=: for func_convert_core_path_wine_to_w32_f in $1; do IFS=$oldIFS func_convert_core_file_wine_to_w32 "$func_convert_core_path_wine_to_w32_f" if test -n "$func_convert_core_file_wine_to_w32_result"; then if test -z "$func_convert_core_path_wine_to_w32_result"; then func_convert_core_path_wine_to_w32_result=$func_convert_core_file_wine_to_w32_result else func_append func_convert_core_path_wine_to_w32_result ";$func_convert_core_file_wine_to_w32_result" fi fi done IFS=$oldIFS fi } # end: func_convert_core_path_wine_to_w32 # func_cygpath ARGS... # Wrapper around calling the cygpath program via LT_CYGPATH. This is used when # when (1) $build is *nix and Cygwin is hosted via a wine environment; or (2) # $build is MSYS and $host is Cygwin, or (3) $build is Cygwin. In case (1) or # (2), returns the Cygwin file name or path in func_cygpath_result (input # file name or path is assumed to be in w32 format, as previously converted # from $build's *nix or MSYS format). In case (3), returns the w32 file name # or path in func_cygpath_result (input file name or path is assumed to be in # Cygwin format). Returns an empty string on error. # # ARGS are passed to cygpath, with the last one being the file name or path to # be converted. # # Specify the absolute *nix (or w32) name to cygpath in the LT_CYGPATH # environment variable; do not put it in $PATH. func_cygpath () { $debug_cmd if test -n "$LT_CYGPATH" && test -f "$LT_CYGPATH"; then func_cygpath_result=`$LT_CYGPATH "$@" 2>/dev/null` if test "$?" -ne 0; then # on failure, ensure result is empty func_cygpath_result= fi else func_cygpath_result= func_error "LT_CYGPATH is empty or specifies non-existent file: '$LT_CYGPATH'" fi } #end: func_cygpath # func_convert_core_msys_to_w32 ARG # Convert file name or path ARG from MSYS format to w32 format. Return # result in func_convert_core_msys_to_w32_result. func_convert_core_msys_to_w32 () { $debug_cmd # awkward: cmd appends spaces to result func_convert_core_msys_to_w32_result=`( cmd //c echo "$1" ) 2>/dev/null | $SED -e 's/[ ]*$//' -e "$sed_naive_backslashify"` } #end: func_convert_core_msys_to_w32 # func_convert_file_check ARG1 ARG2 # Verify that ARG1 (a file name in $build format) was converted to $host # format in ARG2. Otherwise, emit an error message, but continue (resetting # func_to_host_file_result to ARG1). func_convert_file_check () { $debug_cmd if test -z "$2" && test -n "$1"; then func_error "Could not determine host file name corresponding to" func_error " '$1'" func_error "Continuing, but uninstalled executables may not work." # Fallback: func_to_host_file_result=$1 fi } # end func_convert_file_check # func_convert_path_check FROM_PATHSEP TO_PATHSEP FROM_PATH TO_PATH # Verify that FROM_PATH (a path in $build format) was converted to $host # format in TO_PATH. Otherwise, emit an error message, but continue, resetting # func_to_host_file_result to a simplistic fallback value (see below). func_convert_path_check () { $debug_cmd if test -z "$4" && test -n "$3"; then func_error "Could not determine the host path corresponding to" func_error " '$3'" func_error "Continuing, but uninstalled executables may not work." # Fallback. This is a deliberately simplistic "conversion" and # should not be "improved". See libtool.info. if test "x$1" != "x$2"; then lt_replace_pathsep_chars="s|$1|$2|g" func_to_host_path_result=`echo "$3" | $SED -e "$lt_replace_pathsep_chars"` else func_to_host_path_result=$3 fi fi } # end func_convert_path_check # func_convert_path_front_back_pathsep FRONTPAT BACKPAT REPL ORIG # Modifies func_to_host_path_result by prepending REPL if ORIG matches FRONTPAT # and appending REPL if ORIG matches BACKPAT. func_convert_path_front_back_pathsep () { $debug_cmd case $4 in $1 ) func_to_host_path_result=$3$func_to_host_path_result ;; esac case $4 in $2 ) func_append func_to_host_path_result "$3" ;; esac } # end func_convert_path_front_back_pathsep ################################################## # $build to $host FILE NAME CONVERSION FUNCTIONS # ################################################## # invoked via '$to_host_file_cmd ARG' # # In each case, ARG is the path to be converted from $build to $host format. # Result will be available in $func_to_host_file_result. # func_to_host_file ARG # Converts the file name ARG from $build format to $host format. Return result # in func_to_host_file_result. func_to_host_file () { $debug_cmd $to_host_file_cmd "$1" } # end func_to_host_file # func_to_tool_file ARG LAZY # converts the file name ARG from $build format to toolchain format. Return # result in func_to_tool_file_result. If the conversion in use is listed # in (the comma separated) LAZY, no conversion takes place. func_to_tool_file () { $debug_cmd case ,$2, in *,"$to_tool_file_cmd",*) func_to_tool_file_result=$1 ;; *) $to_tool_file_cmd "$1" func_to_tool_file_result=$func_to_host_file_result ;; esac } # end func_to_tool_file # func_convert_file_noop ARG # Copy ARG to func_to_host_file_result. func_convert_file_noop () { func_to_host_file_result=$1 } # end func_convert_file_noop # func_convert_file_msys_to_w32 ARG # Convert file name ARG from (mingw) MSYS to (mingw) w32 format; automatic # conversion to w32 is not available inside the cwrapper. Returns result in # func_to_host_file_result. func_convert_file_msys_to_w32 () { $debug_cmd func_to_host_file_result=$1 if test -n "$1"; then func_convert_core_msys_to_w32 "$1" func_to_host_file_result=$func_convert_core_msys_to_w32_result fi func_convert_file_check "$1" "$func_to_host_file_result" } # end func_convert_file_msys_to_w32 # func_convert_file_cygwin_to_w32 ARG # Convert file name ARG from Cygwin to w32 format. Returns result in # func_to_host_file_result. func_convert_file_cygwin_to_w32 () { $debug_cmd func_to_host_file_result=$1 if test -n "$1"; then # because $build is cygwin, we call "the" cygpath in $PATH; no need to use # LT_CYGPATH in this case. func_to_host_file_result=`cygpath -m "$1"` fi func_convert_file_check "$1" "$func_to_host_file_result" } # end func_convert_file_cygwin_to_w32 # func_convert_file_nix_to_w32 ARG # Convert file name ARG from *nix to w32 format. Requires a wine environment # and a working winepath. Returns result in func_to_host_file_result. func_convert_file_nix_to_w32 () { $debug_cmd func_to_host_file_result=$1 if test -n "$1"; then func_convert_core_file_wine_to_w32 "$1" func_to_host_file_result=$func_convert_core_file_wine_to_w32_result fi func_convert_file_check "$1" "$func_to_host_file_result" } # end func_convert_file_nix_to_w32 # func_convert_file_msys_to_cygwin ARG # Convert file name ARG from MSYS to Cygwin format. Requires LT_CYGPATH set. # Returns result in func_to_host_file_result. func_convert_file_msys_to_cygwin () { $debug_cmd func_to_host_file_result=$1 if test -n "$1"; then func_convert_core_msys_to_w32 "$1" func_cygpath -u "$func_convert_core_msys_to_w32_result" func_to_host_file_result=$func_cygpath_result fi func_convert_file_check "$1" "$func_to_host_file_result" } # end func_convert_file_msys_to_cygwin # func_convert_file_nix_to_cygwin ARG # Convert file name ARG from *nix to Cygwin format. Requires Cygwin installed # in a wine environment, working winepath, and LT_CYGPATH set. Returns result # in func_to_host_file_result. func_convert_file_nix_to_cygwin () { $debug_cmd func_to_host_file_result=$1 if test -n "$1"; then # convert from *nix to w32, then use cygpath to convert from w32 to cygwin. func_convert_core_file_wine_to_w32 "$1" func_cygpath -u "$func_convert_core_file_wine_to_w32_result" func_to_host_file_result=$func_cygpath_result fi func_convert_file_check "$1" "$func_to_host_file_result" } # end func_convert_file_nix_to_cygwin ############################################# # $build to $host PATH CONVERSION FUNCTIONS # ############################################# # invoked via '$to_host_path_cmd ARG' # # In each case, ARG is the path to be converted from $build to $host format. # The result will be available in $func_to_host_path_result. # # Path separators are also converted from $build format to $host format. If # ARG begins or ends with a path separator character, it is preserved (but # converted to $host format) on output. # # All path conversion functions are named using the following convention: # file name conversion function : func_convert_file_X_to_Y () # path conversion function : func_convert_path_X_to_Y () # where, for any given $build/$host combination the 'X_to_Y' value is the # same. If conversion functions are added for new $build/$host combinations, # the two new functions must follow this pattern, or func_init_to_host_path_cmd # will break. # func_init_to_host_path_cmd # Ensures that function "pointer" variable $to_host_path_cmd is set to the # appropriate value, based on the value of $to_host_file_cmd. to_host_path_cmd= func_init_to_host_path_cmd () { $debug_cmd if test -z "$to_host_path_cmd"; then func_stripname 'func_convert_file_' '' "$to_host_file_cmd" to_host_path_cmd=func_convert_path_$func_stripname_result fi } # func_to_host_path ARG # Converts the path ARG from $build format to $host format. Return result # in func_to_host_path_result. func_to_host_path () { $debug_cmd func_init_to_host_path_cmd $to_host_path_cmd "$1" } # end func_to_host_path # func_convert_path_noop ARG # Copy ARG to func_to_host_path_result. func_convert_path_noop () { func_to_host_path_result=$1 } # end func_convert_path_noop # func_convert_path_msys_to_w32 ARG # Convert path ARG from (mingw) MSYS to (mingw) w32 format; automatic # conversion to w32 is not available inside the cwrapper. Returns result in # func_to_host_path_result. func_convert_path_msys_to_w32 () { $debug_cmd func_to_host_path_result=$1 if test -n "$1"; then # Remove leading and trailing path separator characters from ARG. MSYS # behavior is inconsistent here; cygpath turns them into '.;' and ';.'; # and winepath ignores them completely. func_stripname : : "$1" func_to_host_path_tmp1=$func_stripname_result func_convert_core_msys_to_w32 "$func_to_host_path_tmp1" func_to_host_path_result=$func_convert_core_msys_to_w32_result func_convert_path_check : ";" \ "$func_to_host_path_tmp1" "$func_to_host_path_result" func_convert_path_front_back_pathsep ":*" "*:" ";" "$1" fi } # end func_convert_path_msys_to_w32 # func_convert_path_cygwin_to_w32 ARG # Convert path ARG from Cygwin to w32 format. Returns result in # func_to_host_file_result. func_convert_path_cygwin_to_w32 () { $debug_cmd func_to_host_path_result=$1 if test -n "$1"; then # See func_convert_path_msys_to_w32: func_stripname : : "$1" func_to_host_path_tmp1=$func_stripname_result func_to_host_path_result=`cygpath -m -p "$func_to_host_path_tmp1"` func_convert_path_check : ";" \ "$func_to_host_path_tmp1" "$func_to_host_path_result" func_convert_path_front_back_pathsep ":*" "*:" ";" "$1" fi } # end func_convert_path_cygwin_to_w32 # func_convert_path_nix_to_w32 ARG # Convert path ARG from *nix to w32 format. Requires a wine environment and # a working winepath. Returns result in func_to_host_file_result. func_convert_path_nix_to_w32 () { $debug_cmd func_to_host_path_result=$1 if test -n "$1"; then # See func_convert_path_msys_to_w32: func_stripname : : "$1" func_to_host_path_tmp1=$func_stripname_result func_convert_core_path_wine_to_w32 "$func_to_host_path_tmp1" func_to_host_path_result=$func_convert_core_path_wine_to_w32_result func_convert_path_check : ";" \ "$func_to_host_path_tmp1" "$func_to_host_path_result" func_convert_path_front_back_pathsep ":*" "*:" ";" "$1" fi } # end func_convert_path_nix_to_w32 # func_convert_path_msys_to_cygwin ARG # Convert path ARG from MSYS to Cygwin format. Requires LT_CYGPATH set. # Returns result in func_to_host_file_result. func_convert_path_msys_to_cygwin () { $debug_cmd func_to_host_path_result=$1 if test -n "$1"; then # See func_convert_path_msys_to_w32: func_stripname : : "$1" func_to_host_path_tmp1=$func_stripname_result func_convert_core_msys_to_w32 "$func_to_host_path_tmp1" func_cygpath -u -p "$func_convert_core_msys_to_w32_result" func_to_host_path_result=$func_cygpath_result func_convert_path_check : : \ "$func_to_host_path_tmp1" "$func_to_host_path_result" func_convert_path_front_back_pathsep ":*" "*:" : "$1" fi } # end func_convert_path_msys_to_cygwin # func_convert_path_nix_to_cygwin ARG # Convert path ARG from *nix to Cygwin format. Requires Cygwin installed in a # a wine environment, working winepath, and LT_CYGPATH set. Returns result in # func_to_host_file_result. func_convert_path_nix_to_cygwin () { $debug_cmd func_to_host_path_result=$1 if test -n "$1"; then # Remove leading and trailing path separator characters from # ARG. msys behavior is inconsistent here, cygpath turns them # into '.;' and ';.', and winepath ignores them completely. func_stripname : : "$1" func_to_host_path_tmp1=$func_stripname_result func_convert_core_path_wine_to_w32 "$func_to_host_path_tmp1" func_cygpath -u -p "$func_convert_core_path_wine_to_w32_result" func_to_host_path_result=$func_cygpath_result func_convert_path_check : : \ "$func_to_host_path_tmp1" "$func_to_host_path_result" func_convert_path_front_back_pathsep ":*" "*:" : "$1" fi } # end func_convert_path_nix_to_cygwin # func_dll_def_p FILE # True iff FILE is a Windows DLL '.def' file. # Keep in sync with _LT_DLL_DEF_P in libtool.m4 func_dll_def_p () { $debug_cmd func_dll_def_p_tmp=`$SED -n \ -e 's/^[ ]*//' \ -e '/^\(;.*\)*$/d' \ -e 's/^\(EXPORTS\|LIBRARY\)\([ ].*\)*$/DEF/p' \ -e q \ "$1"` test DEF = "$func_dll_def_p_tmp" } # func_mode_compile arg... func_mode_compile () { $debug_cmd # Get the compilation command and the source file. base_compile= srcfile=$nonopt # always keep a non-empty value in "srcfile" suppress_opt=yes suppress_output= arg_mode=normal libobj= later= pie_flag= for arg do case $arg_mode in arg ) # do not "continue". Instead, add this to base_compile lastarg=$arg arg_mode=normal ;; target ) libobj=$arg arg_mode=normal continue ;; normal ) # Accept any command-line options. case $arg in -o) test -n "$libobj" && \ func_fatal_error "you cannot specify '-o' more than once" arg_mode=target continue ;; -pie | -fpie | -fPIE) func_append pie_flag " $arg" continue ;; -shared | -static | -prefer-pic | -prefer-non-pic) func_append later " $arg" continue ;; -no-suppress) suppress_opt=no continue ;; -Xcompiler) arg_mode=arg # the next one goes into the "base_compile" arg list continue # The current "srcfile" will either be retained or ;; # replaced later. I would guess that would be a bug. -Wc,*) func_stripname '-Wc,' '' "$arg" args=$func_stripname_result lastarg= save_ifs=$IFS; IFS=, for arg in $args; do IFS=$save_ifs func_append_quoted lastarg "$arg" done IFS=$save_ifs func_stripname ' ' '' "$lastarg" lastarg=$func_stripname_result # Add the arguments to base_compile. func_append base_compile " $lastarg" continue ;; *) # Accept the current argument as the source file. # The previous "srcfile" becomes the current argument. # lastarg=$srcfile srcfile=$arg ;; esac # case $arg ;; esac # case $arg_mode # Aesthetically quote the previous argument. func_append_quoted base_compile "$lastarg" done # for arg case $arg_mode in arg) func_fatal_error "you must specify an argument for -Xcompile" ;; target) func_fatal_error "you must specify a target with '-o'" ;; *) # Get the name of the library object. test -z "$libobj" && { func_basename "$srcfile" libobj=$func_basename_result } ;; esac # Recognize several different file suffixes. # If the user specifies -o file.o, it is replaced with file.lo case $libobj in *.[cCFSifmso] | \ *.ada | *.adb | *.ads | *.asm | \ *.c++ | *.cc | *.ii | *.class | *.cpp | *.cxx | \ *.[fF][09]? | *.for | *.java | *.go | *.obj | *.sx | *.cu | *.cup) func_xform "$libobj" libobj=$func_xform_result ;; esac case $libobj in *.lo) func_lo2o "$libobj"; obj=$func_lo2o_result ;; *) func_fatal_error "cannot determine name of library object from '$libobj'" ;; esac func_infer_tag $base_compile for arg in $later; do case $arg in -shared) test yes = "$build_libtool_libs" \ || func_fatal_configuration "cannot build a shared library" build_old_libs=no continue ;; -static) build_libtool_libs=no build_old_libs=yes continue ;; -prefer-pic) pic_mode=yes continue ;; -prefer-non-pic) pic_mode=no continue ;; esac done func_quote_for_eval "$libobj" test "X$libobj" != "X$func_quote_for_eval_result" \ && $ECHO "X$libobj" | $GREP '[]~#^*{};<>?"'"'"' &()|`$[]' \ && func_warning "libobj name '$libobj' may not contain shell special characters." func_dirname_and_basename "$obj" "/" "" objname=$func_basename_result xdir=$func_dirname_result lobj=$xdir$objdir/$objname test -z "$base_compile" && \ func_fatal_help "you must specify a compilation command" # Delete any leftover library objects. if test yes = "$build_old_libs"; then removelist="$obj $lobj $libobj ${libobj}T" else removelist="$lobj $libobj ${libobj}T" fi # On Cygwin there's no "real" PIC flag so we must build both object types case $host_os in cygwin* | mingw* | pw32* | os2* | cegcc*) pic_mode=default ;; esac if test no = "$pic_mode" && test pass_all != "$deplibs_check_method"; then # non-PIC code in shared libraries is not supported pic_mode=default fi # Calculate the filename of the output object if compiler does # not support -o with -c if test no = "$compiler_c_o"; then output_obj=`$ECHO "$srcfile" | $SED 's%^.*/%%; s%\.[^.]*$%%'`.$objext lockfile=$output_obj.lock else output_obj= need_locks=no lockfile= fi # Lock this critical section if it is needed # We use this script file to make the link, it avoids creating a new file if test yes = "$need_locks"; then until $opt_dry_run || ln "$progpath" "$lockfile" 2>/dev/null; do func_echo "Waiting for $lockfile to be removed" sleep 2 done elif test warn = "$need_locks"; then if test -f "$lockfile"; then $ECHO "\ *** ERROR, $lockfile exists and contains: `cat $lockfile 2>/dev/null` This indicates that another process is trying to use the same temporary object file, and libtool could not work around it because your compiler does not support '-c' and '-o' together. If you repeat this compilation, it may succeed, by chance, but you had better avoid parallel builds (make -j) in this platform, or get a better compiler." $opt_dry_run || $RM $removelist exit $EXIT_FAILURE fi func_append removelist " $output_obj" $ECHO "$srcfile" > "$lockfile" fi $opt_dry_run || $RM $removelist func_append removelist " $lockfile" trap '$opt_dry_run || $RM $removelist; exit $EXIT_FAILURE' 1 2 15 func_to_tool_file "$srcfile" func_convert_file_msys_to_w32 srcfile=$func_to_tool_file_result func_quote_for_eval "$srcfile" qsrcfile=$func_quote_for_eval_result # Only build a PIC object if we are building libtool libraries. if test yes = "$build_libtool_libs"; then # Without this assignment, base_compile gets emptied. fbsd_hideous_sh_bug=$base_compile if test no != "$pic_mode"; then command="$base_compile $qsrcfile $pic_flag" else # Don't build PIC code command="$base_compile $qsrcfile" fi func_mkdir_p "$xdir$objdir" if test -z "$output_obj"; then # Place PIC objects in $objdir func_append command " -o $lobj" fi func_show_eval_locale "$command" \ 'test -n "$output_obj" && $RM $removelist; exit $EXIT_FAILURE' if test warn = "$need_locks" && test "X`cat $lockfile 2>/dev/null`" != "X$srcfile"; then $ECHO "\ *** ERROR, $lockfile contains: `cat $lockfile 2>/dev/null` but it should contain: $srcfile This indicates that another process is trying to use the same temporary object file, and libtool could not work around it because your compiler does not support '-c' and '-o' together. If you repeat this compilation, it may succeed, by chance, but you had better avoid parallel builds (make -j) in this platform, or get a better compiler." $opt_dry_run || $RM $removelist exit $EXIT_FAILURE fi # Just move the object if needed, then go on to compile the next one if test -n "$output_obj" && test "X$output_obj" != "X$lobj"; then func_show_eval '$MV "$output_obj" "$lobj"' \ 'error=$?; $opt_dry_run || $RM $removelist; exit $error' fi # Allow error messages only from the first compilation. if test yes = "$suppress_opt"; then suppress_output=' >/dev/null 2>&1' fi fi # Only build a position-dependent object if we build old libraries. if test yes = "$build_old_libs"; then if test yes != "$pic_mode"; then # Don't build PIC code command="$base_compile $qsrcfile$pie_flag" else command="$base_compile $qsrcfile $pic_flag" fi if test yes = "$compiler_c_o"; then func_append command " -o $obj" fi # Suppress compiler output if we already did a PIC compilation. func_append command "$suppress_output" func_show_eval_locale "$command" \ '$opt_dry_run || $RM $removelist; exit $EXIT_FAILURE' if test warn = "$need_locks" && test "X`cat $lockfile 2>/dev/null`" != "X$srcfile"; then $ECHO "\ *** ERROR, $lockfile contains: `cat $lockfile 2>/dev/null` but it should contain: $srcfile This indicates that another process is trying to use the same temporary object file, and libtool could not work around it because your compiler does not support '-c' and '-o' together. If you repeat this compilation, it may succeed, by chance, but you had better avoid parallel builds (make -j) in this platform, or get a better compiler." $opt_dry_run || $RM $removelist exit $EXIT_FAILURE fi # Just move the object if needed if test -n "$output_obj" && test "X$output_obj" != "X$obj"; then func_show_eval '$MV "$output_obj" "$obj"' \ 'error=$?; $opt_dry_run || $RM $removelist; exit $error' fi fi $opt_dry_run || { func_write_libtool_object "$libobj" "$objdir/$objname" "$objname" # Unlock the critical section if it was locked if test no != "$need_locks"; then removelist=$lockfile $RM "$lockfile" fi } exit $EXIT_SUCCESS } $opt_help || { test compile = "$opt_mode" && func_mode_compile ${1+"$@"} } func_mode_help () { # We need to display help for each of the modes. case $opt_mode in "") # Generic help is extracted from the usage comments # at the start of this file. func_help ;; clean) $ECHO \ "Usage: $progname [OPTION]... --mode=clean RM [RM-OPTION]... FILE... Remove files from the build directory. RM is the name of the program to use to delete files associated with each FILE (typically '/bin/rm'). RM-OPTIONS are options (such as '-f') to be passed to RM. If FILE is a libtool library, object or program, all the files associated with it are deleted. Otherwise, only FILE itself is deleted using RM." ;; compile) $ECHO \ "Usage: $progname [OPTION]... --mode=compile COMPILE-COMMAND... SOURCEFILE Compile a source file into a libtool library object. This mode accepts the following additional options: -o OUTPUT-FILE set the output file name to OUTPUT-FILE -no-suppress do not suppress compiler output for multiple passes -prefer-pic try to build PIC objects only -prefer-non-pic try to build non-PIC objects only -shared do not build a '.o' file suitable for static linking -static only build a '.o' file suitable for static linking -Wc,FLAG pass FLAG directly to the compiler COMPILE-COMMAND is a command to be used in creating a 'standard' object file from the given SOURCEFILE. The output file name is determined by removing the directory component from SOURCEFILE, then substituting the C source code suffix '.c' with the library object suffix, '.lo'." ;; execute) $ECHO \ "Usage: $progname [OPTION]... --mode=execute COMMAND [ARGS]... Automatically set library path, then run a program. This mode accepts the following additional options: -dlopen FILE add the directory containing FILE to the library path This mode sets the library path environment variable according to '-dlopen' flags. If any of the ARGS are libtool executable wrappers, then they are translated into their corresponding uninstalled binary, and any of their required library directories are added to the library path. Then, COMMAND is executed, with ARGS as arguments." ;; finish) $ECHO \ "Usage: $progname [OPTION]... --mode=finish [LIBDIR]... Complete the installation of libtool libraries. Each LIBDIR is a directory that contains libtool libraries. The commands that this mode executes may require superuser privileges. Use the '--dry-run' option if you just want to see what would be executed." ;; install) $ECHO \ "Usage: $progname [OPTION]... --mode=install INSTALL-COMMAND... Install executables or libraries. INSTALL-COMMAND is the installation command. The first component should be either the 'install' or 'cp' program. The following components of INSTALL-COMMAND are treated specially: -inst-prefix-dir PREFIX-DIR Use PREFIX-DIR as a staging area for installation The rest of the components are interpreted as arguments to that command (only BSD-compatible install options are recognized)." ;; link) $ECHO \ "Usage: $progname [OPTION]... --mode=link LINK-COMMAND... Link object files or libraries together to form another library, or to create an executable program. LINK-COMMAND is a command using the C compiler that you would use to create a program from several object files. The following components of LINK-COMMAND are treated specially: -all-static do not do any dynamic linking at all -static do not do any dynamic linking at all -avoid-version do not add a version suffix if possible -bindir BINDIR specify path to binaries directory (for systems where libraries must be found in the PATH setting at runtime) -dlopen FILE '-dlpreopen' FILE if it cannot be dlopened at runtime -dlpreopen FILE link in FILE and add its symbols to lt_preloaded_symbols -export-dynamic allow symbols from OUTPUT-FILE to be resolved with dlsym(3) -export-symbols SYMFILE try to export only the symbols listed in SYMFILE -export-symbols-regex REGEX try to export only the symbols matching REGEX -LLIBDIR search LIBDIR for required installed libraries -lNAME OUTPUT-FILE requires the installed library libNAME -module build a library that can dlopened -no-fast-install disable the fast-install mode -no-install link a not-installable executable -no-undefined declare that a library does not refer to external symbols -o OUTPUT-FILE create OUTPUT-FILE from the specified objects -objectlist FILE use a list of object files found in FILE to specify objects -os2dllname NAME force a short DLL name on OS/2 (no effect on other OSes) -precious-files-regex REGEX don't remove output files matching REGEX -release RELEASE specify package release information -rpath LIBDIR the created library will eventually be installed in LIBDIR -R[ ]LIBDIR add LIBDIR to the runtime path of programs and libraries -shared only do dynamic linking of libtool libraries -shrext SUFFIX override the standard shared library file extension -static-uninstalled-libs do not do any dynamic linking of uninstalled libtool libraries -static-libtool-libs do not do any dynamic linking of libtool libraries -version-info CURRENT[:REVISION[:AGE]] specify library version info [each variable defaults to 0] -weak LIBNAME declare that the target provides the LIBNAME interface -Wc,FLAG -Xcompiler FLAG pass linker-specific FLAG directly to the compiler -Wl,FLAG -Xlinker FLAG pass linker-specific FLAG directly to the linker -XCClinker FLAG pass link-specific FLAG to the compiler driver (CC) All other options (arguments beginning with '-') are ignored. Every other argument is treated as a filename. Files ending in '.la' are treated as uninstalled libtool libraries, other files are standard or library object files. If the OUTPUT-FILE ends in '.la', then a libtool library is created, only library objects ('.lo' files) may be specified, and '-rpath' is required, except when creating a convenience library. If OUTPUT-FILE ends in '.a' or '.lib', then a standard library is created using 'ar' and 'ranlib', or on Windows using 'lib'. If OUTPUT-FILE ends in '.lo' or '.$objext', then a reloadable object file is created, otherwise an executable program is created." ;; uninstall) $ECHO \ "Usage: $progname [OPTION]... --mode=uninstall RM [RM-OPTION]... FILE... Remove libraries from an installation directory. RM is the name of the program to use to delete files associated with each FILE (typically '/bin/rm'). RM-OPTIONS are options (such as '-f') to be passed to RM. If FILE is a libtool library, all the files associated with it are deleted. Otherwise, only FILE itself is deleted using RM." ;; *) func_fatal_help "invalid operation mode '$opt_mode'" ;; esac echo $ECHO "Try '$progname --help' for more information about other modes." } # Now that we've collected a possible --mode arg, show help if necessary if $opt_help; then if test : = "$opt_help"; then func_mode_help else { func_help noexit for opt_mode in compile link execute install finish uninstall clean; do func_mode_help done } | $SED -n '1p; 2,$s/^Usage:/ or: /p' { func_help noexit for opt_mode in compile link execute install finish uninstall clean; do echo func_mode_help done } | $SED '1d /^When reporting/,/^Report/{ H d } $x /information about other modes/d /more detailed .*MODE/d s/^Usage:.*--mode=\([^ ]*\) .*/Description of \1 mode:/' fi exit $? fi # func_mode_execute arg... func_mode_execute () { $debug_cmd # The first argument is the command name. cmd=$nonopt test -z "$cmd" && \ func_fatal_help "you must specify a COMMAND" # Handle -dlopen flags immediately. for file in $opt_dlopen; do test -f "$file" \ || func_fatal_help "'$file' is not a file" dir= case $file in *.la) func_resolve_sysroot "$file" file=$func_resolve_sysroot_result # Check to see that this really is a libtool archive. func_lalib_unsafe_p "$file" \ || func_fatal_help "'$lib' is not a valid libtool archive" # Read the libtool library. dlname= library_names= func_source "$file" # Skip this library if it cannot be dlopened. if test -z "$dlname"; then # Warn if it was a shared library. test -n "$library_names" && \ func_warning "'$file' was not linked with '-export-dynamic'" continue fi func_dirname "$file" "" "." dir=$func_dirname_result if test -f "$dir/$objdir/$dlname"; then func_append dir "/$objdir" else if test ! -f "$dir/$dlname"; then func_fatal_error "cannot find '$dlname' in '$dir' or '$dir/$objdir'" fi fi ;; *.lo) # Just add the directory containing the .lo file. func_dirname "$file" "" "." dir=$func_dirname_result ;; *) func_warning "'-dlopen' is ignored for non-libtool libraries and objects" continue ;; esac # Get the absolute pathname. absdir=`cd "$dir" && pwd` test -n "$absdir" && dir=$absdir # Now add the directory to shlibpath_var. if eval "test -z \"\$$shlibpath_var\""; then eval "$shlibpath_var=\"\$dir\"" else eval "$shlibpath_var=\"\$dir:\$$shlibpath_var\"" fi done # This variable tells wrapper scripts just to set shlibpath_var # rather than running their programs. libtool_execute_magic=$magic # Check if any of the arguments is a wrapper script. args= for file do case $file in -* | *.la | *.lo ) ;; *) # Do a test to see if this is really a libtool program. if func_ltwrapper_script_p "$file"; then func_source "$file" # Transform arg to wrapped name. file=$progdir/$program elif func_ltwrapper_executable_p "$file"; then func_ltwrapper_scriptname "$file" func_source "$func_ltwrapper_scriptname_result" # Transform arg to wrapped name. file=$progdir/$program fi ;; esac # Quote arguments (to preserve shell metacharacters). func_append_quoted args "$file" done if $opt_dry_run; then # Display what would be done. if test -n "$shlibpath_var"; then eval "\$ECHO \"\$shlibpath_var=\$$shlibpath_var\"" echo "export $shlibpath_var" fi $ECHO "$cmd$args" exit $EXIT_SUCCESS else if test -n "$shlibpath_var"; then # Export the shlibpath_var. eval "export $shlibpath_var" fi # Restore saved environment variables for lt_var in LANG LANGUAGE LC_ALL LC_CTYPE LC_COLLATE LC_MESSAGES do eval "if test \"\${save_$lt_var+set}\" = set; then $lt_var=\$save_$lt_var; export $lt_var else $lt_unset $lt_var fi" done # Now prepare to actually exec the command. exec_cmd=\$cmd$args fi } test execute = "$opt_mode" && func_mode_execute ${1+"$@"} # func_mode_finish arg... func_mode_finish () { $debug_cmd libs= libdirs= admincmds= for opt in "$nonopt" ${1+"$@"} do if test -d "$opt"; then func_append libdirs " $opt" elif test -f "$opt"; then if func_lalib_unsafe_p "$opt"; then func_append libs " $opt" else func_warning "'$opt' is not a valid libtool archive" fi else func_fatal_error "invalid argument '$opt'" fi done if test -n "$libs"; then if test -n "$lt_sysroot"; then sysroot_regex=`$ECHO "$lt_sysroot" | $SED "$sed_make_literal_regex"` sysroot_cmd="s/\([ ']\)$sysroot_regex/\1/g;" else sysroot_cmd= fi # Remove sysroot references if $opt_dry_run; then for lib in $libs; do echo "removing references to $lt_sysroot and '=' prefixes from $lib" done else tmpdir=`func_mktempdir` for lib in $libs; do $SED -e "$sysroot_cmd s/\([ ']-[LR]\)=/\1/g; s/\([ ']\)=/\1/g" $lib \ > $tmpdir/tmp-la mv -f $tmpdir/tmp-la $lib done ${RM}r "$tmpdir" fi fi if test -n "$finish_cmds$finish_eval" && test -n "$libdirs"; then for libdir in $libdirs; do if test -n "$finish_cmds"; then # Do each command in the finish commands. func_execute_cmds "$finish_cmds" 'admincmds="$admincmds '"$cmd"'"' fi if test -n "$finish_eval"; then # Do the single finish_eval. eval cmds=\"$finish_eval\" $opt_dry_run || eval "$cmds" || func_append admincmds " $cmds" fi done fi # Exit here if they wanted silent mode. $opt_quiet && exit $EXIT_SUCCESS if test -n "$finish_cmds$finish_eval" && test -n "$libdirs"; then echo "----------------------------------------------------------------------" echo "Libraries have been installed in:" for libdir in $libdirs; do $ECHO " $libdir" done echo echo "If you ever happen to want to link against installed libraries" echo "in a given directory, LIBDIR, you must either use libtool, and" echo "specify the full pathname of the library, or use the '-LLIBDIR'" echo "flag during linking and do at least one of the following:" if test -n "$shlibpath_var"; then echo " - add LIBDIR to the '$shlibpath_var' environment variable" echo " during execution" fi if test -n "$runpath_var"; then echo " - add LIBDIR to the '$runpath_var' environment variable" echo " during linking" fi if test -n "$hardcode_libdir_flag_spec"; then libdir=LIBDIR eval flag=\"$hardcode_libdir_flag_spec\" $ECHO " - use the '$flag' linker flag" fi if test -n "$admincmds"; then $ECHO " - have your system administrator run these commands:$admincmds" fi if test -f /etc/ld.so.conf; then echo " - have your system administrator add LIBDIR to '/etc/ld.so.conf'" fi echo echo "See any operating system documentation about shared libraries for" case $host in solaris2.[6789]|solaris2.1[0-9]) echo "more information, such as the ld(1), crle(1) and ld.so(8) manual" echo "pages." ;; *) echo "more information, such as the ld(1) and ld.so(8) manual pages." ;; esac echo "----------------------------------------------------------------------" fi exit $EXIT_SUCCESS } test finish = "$opt_mode" && func_mode_finish ${1+"$@"} # func_mode_install arg... func_mode_install () { $debug_cmd # There may be an optional sh(1) argument at the beginning of # install_prog (especially on Windows NT). if test "$SHELL" = "$nonopt" || test /bin/sh = "$nonopt" || # Allow the use of GNU shtool's install command. case $nonopt in *shtool*) :;; *) false;; esac then # Aesthetically quote it. func_quote_for_eval "$nonopt" install_prog="$func_quote_for_eval_result " arg=$1 shift else install_prog= arg=$nonopt fi # The real first argument should be the name of the installation program. # Aesthetically quote it. func_quote_for_eval "$arg" func_append install_prog "$func_quote_for_eval_result" install_shared_prog=$install_prog case " $install_prog " in *[\\\ /]cp\ *) install_cp=: ;; *) install_cp=false ;; esac # We need to accept at least all the BSD install flags. dest= files= opts= prev= install_type= isdir=false stripme= no_mode=: for arg do arg2= if test -n "$dest"; then func_append files " $dest" dest=$arg continue fi case $arg in -d) isdir=: ;; -f) if $install_cp; then :; else prev=$arg fi ;; -g | -m | -o) prev=$arg ;; -s) stripme=" -s" continue ;; -*) ;; *) # If the previous option needed an argument, then skip it. if test -n "$prev"; then if test X-m = "X$prev" && test -n "$install_override_mode"; then arg2=$install_override_mode no_mode=false fi prev= else dest=$arg continue fi ;; esac # Aesthetically quote the argument. func_quote_for_eval "$arg" func_append install_prog " $func_quote_for_eval_result" if test -n "$arg2"; then func_quote_for_eval "$arg2" fi func_append install_shared_prog " $func_quote_for_eval_result" done test -z "$install_prog" && \ func_fatal_help "you must specify an install program" test -n "$prev" && \ func_fatal_help "the '$prev' option requires an argument" if test -n "$install_override_mode" && $no_mode; then if $install_cp; then :; else func_quote_for_eval "$install_override_mode" func_append install_shared_prog " -m $func_quote_for_eval_result" fi fi if test -z "$files"; then if test -z "$dest"; then func_fatal_help "no file or destination specified" else func_fatal_help "you must specify a destination" fi fi # Strip any trailing slash from the destination. func_stripname '' '/' "$dest" dest=$func_stripname_result # Check to see that the destination is a directory. test -d "$dest" && isdir=: if $isdir; then destdir=$dest destname= else func_dirname_and_basename "$dest" "" "." destdir=$func_dirname_result destname=$func_basename_result # Not a directory, so check to see that there is only one file specified. set dummy $files; shift test "$#" -gt 1 && \ func_fatal_help "'$dest' is not a directory" fi case $destdir in [\\/]* | [A-Za-z]:[\\/]*) ;; *) for file in $files; do case $file in *.lo) ;; *) func_fatal_help "'$destdir' must be an absolute directory name" ;; esac done ;; esac # This variable tells wrapper scripts just to set variables rather # than running their programs. libtool_install_magic=$magic staticlibs= future_libdirs= current_libdirs= for file in $files; do # Do each installation. case $file in *.$libext) # Do the static libraries later. func_append staticlibs " $file" ;; *.la) func_resolve_sysroot "$file" file=$func_resolve_sysroot_result # Check to see that this really is a libtool archive. func_lalib_unsafe_p "$file" \ || func_fatal_help "'$file' is not a valid libtool archive" library_names= old_library= relink_command= func_source "$file" # Add the libdir to current_libdirs if it is the destination. if test "X$destdir" = "X$libdir"; then case "$current_libdirs " in *" $libdir "*) ;; *) func_append current_libdirs " $libdir" ;; esac else # Note the libdir as a future libdir. case "$future_libdirs " in *" $libdir "*) ;; *) func_append future_libdirs " $libdir" ;; esac fi func_dirname "$file" "/" "" dir=$func_dirname_result func_append dir "$objdir" if test -n "$relink_command"; then # Determine the prefix the user has applied to our future dir. inst_prefix_dir=`$ECHO "$destdir" | $SED -e "s%$libdir\$%%"` # Don't allow the user to place us outside of our expected # location b/c this prevents finding dependent libraries that # are installed to the same prefix. # At present, this check doesn't affect windows .dll's that # are installed into $libdir/../bin (currently, that works fine) # but it's something to keep an eye on. test "$inst_prefix_dir" = "$destdir" && \ func_fatal_error "error: cannot install '$file' to a directory not ending in $libdir" if test -n "$inst_prefix_dir"; then # Stick the inst_prefix_dir data into the link command. relink_command=`$ECHO "$relink_command" | $SED "s%@inst_prefix_dir@%-inst-prefix-dir $inst_prefix_dir%"` else relink_command=`$ECHO "$relink_command" | $SED "s%@inst_prefix_dir@%%"` fi func_warning "relinking '$file'" func_show_eval "$relink_command" \ 'func_fatal_error "error: relink '\''$file'\'' with the above command before installing it"' fi # See the names of the shared library. set dummy $library_names; shift if test -n "$1"; then realname=$1 shift srcname=$realname test -n "$relink_command" && srcname=${realname}T # Install the shared library and build the symlinks. func_show_eval "$install_shared_prog $dir/$srcname $destdir/$realname" \ 'exit $?' tstripme=$stripme case $host_os in cygwin* | mingw* | pw32* | cegcc*) case $realname in *.dll.a) tstripme= ;; esac ;; os2*) case $realname in *_dll.a) tstripme= ;; esac ;; esac if test -n "$tstripme" && test -n "$striplib"; then func_show_eval "$striplib $destdir/$realname" 'exit $?' fi if test "$#" -gt 0; then # Delete the old symlinks, and create new ones. # Try 'ln -sf' first, because the 'ln' binary might depend on # the symlink we replace! Solaris /bin/ln does not understand -f, # so we also need to try rm && ln -s. for linkname do test "$linkname" != "$realname" \ && func_show_eval "(cd $destdir && { $LN_S -f $realname $linkname || { $RM $linkname && $LN_S $realname $linkname; }; })" done fi # Do each command in the postinstall commands. lib=$destdir/$realname func_execute_cmds "$postinstall_cmds" 'exit $?' fi # Install the pseudo-library for information purposes. func_basename "$file" name=$func_basename_result instname=$dir/${name}i func_show_eval "$install_prog $instname $destdir/$name" 'exit $?' # Maybe install the static library, too. test -n "$old_library" && func_append staticlibs " $dir/$old_library" ;; *.lo) # Install (i.e. copy) a libtool object. # Figure out destination file name, if it wasn't already specified. if test -n "$destname"; then destfile=$destdir/$destname else func_basename "$file" destfile=$func_basename_result destfile=$destdir/$destfile fi # Deduce the name of the destination old-style object file. case $destfile in *.lo) func_lo2o "$destfile" staticdest=$func_lo2o_result ;; *.$objext) staticdest=$destfile destfile= ;; *) func_fatal_help "cannot copy a libtool object to '$destfile'" ;; esac # Install the libtool object if requested. test -n "$destfile" && \ func_show_eval "$install_prog $file $destfile" 'exit $?' # Install the old object if enabled. if test yes = "$build_old_libs"; then # Deduce the name of the old-style object file. func_lo2o "$file" staticobj=$func_lo2o_result func_show_eval "$install_prog \$staticobj \$staticdest" 'exit $?' fi exit $EXIT_SUCCESS ;; *) # Figure out destination file name, if it wasn't already specified. if test -n "$destname"; then destfile=$destdir/$destname else func_basename "$file" destfile=$func_basename_result destfile=$destdir/$destfile fi # If the file is missing, and there is a .exe on the end, strip it # because it is most likely a libtool script we actually want to # install stripped_ext= case $file in *.exe) if test ! -f "$file"; then func_stripname '' '.exe' "$file" file=$func_stripname_result stripped_ext=.exe fi ;; esac # Do a test to see if this is really a libtool program. case $host in *cygwin* | *mingw*) if func_ltwrapper_executable_p "$file"; then func_ltwrapper_scriptname "$file" wrapper=$func_ltwrapper_scriptname_result else func_stripname '' '.exe' "$file" wrapper=$func_stripname_result fi ;; *) wrapper=$file ;; esac if func_ltwrapper_script_p "$wrapper"; then notinst_deplibs= relink_command= func_source "$wrapper" # Check the variables that should have been set. test -z "$generated_by_libtool_version" && \ func_fatal_error "invalid libtool wrapper script '$wrapper'" finalize=: for lib in $notinst_deplibs; do # Check to see that each library is installed. libdir= if test -f "$lib"; then func_source "$lib" fi libfile=$libdir/`$ECHO "$lib" | $SED 's%^.*/%%g'` if test -n "$libdir" && test ! -f "$libfile"; then func_warning "'$lib' has not been installed in '$libdir'" finalize=false fi done relink_command= func_source "$wrapper" outputname= if test no = "$fast_install" && test -n "$relink_command"; then $opt_dry_run || { if $finalize; then tmpdir=`func_mktempdir` func_basename "$file$stripped_ext" file=$func_basename_result outputname=$tmpdir/$file # Replace the output file specification. relink_command=`$ECHO "$relink_command" | $SED 's%@OUTPUT@%'"$outputname"'%g'` $opt_quiet || { func_quote_for_expand "$relink_command" eval "func_echo $func_quote_for_expand_result" } if eval "$relink_command"; then : else func_error "error: relink '$file' with the above command before installing it" $opt_dry_run || ${RM}r "$tmpdir" continue fi file=$outputname else func_warning "cannot relink '$file'" fi } else # Install the binary that we compiled earlier. file=`$ECHO "$file$stripped_ext" | $SED "s%\([^/]*\)$%$objdir/\1%"` fi fi # remove .exe since cygwin /usr/bin/install will append another # one anyway case $install_prog,$host in */usr/bin/install*,*cygwin*) case $file:$destfile in *.exe:*.exe) # this is ok ;; *.exe:*) destfile=$destfile.exe ;; *:*.exe) func_stripname '' '.exe' "$destfile" destfile=$func_stripname_result ;; esac ;; esac func_show_eval "$install_prog\$stripme \$file \$destfile" 'exit $?' $opt_dry_run || if test -n "$outputname"; then ${RM}r "$tmpdir" fi ;; esac done for file in $staticlibs; do func_basename "$file" name=$func_basename_result # Set up the ranlib parameters. oldlib=$destdir/$name func_to_tool_file "$oldlib" func_convert_file_msys_to_w32 tool_oldlib=$func_to_tool_file_result func_show_eval "$install_prog \$file \$oldlib" 'exit $?' if test -n "$stripme" && test -n "$old_striplib"; then func_show_eval "$old_striplib $tool_oldlib" 'exit $?' fi # Do each command in the postinstall commands. func_execute_cmds "$old_postinstall_cmds" 'exit $?' done test -n "$future_libdirs" && \ func_warning "remember to run '$progname --finish$future_libdirs'" if test -n "$current_libdirs"; then # Maybe just do a dry run. $opt_dry_run && current_libdirs=" -n$current_libdirs" exec_cmd='$SHELL "$progpath" $preserve_args --finish$current_libdirs' else exit $EXIT_SUCCESS fi } test install = "$opt_mode" && func_mode_install ${1+"$@"} # func_generate_dlsyms outputname originator pic_p # Extract symbols from dlprefiles and create ${outputname}S.o with # a dlpreopen symbol table. func_generate_dlsyms () { $debug_cmd my_outputname=$1 my_originator=$2 my_pic_p=${3-false} my_prefix=`$ECHO "$my_originator" | $SED 's%[^a-zA-Z0-9]%_%g'` my_dlsyms= if test -n "$dlfiles$dlprefiles" || test no != "$dlself"; then if test -n "$NM" && test -n "$global_symbol_pipe"; then my_dlsyms=${my_outputname}S.c else func_error "not configured to extract global symbols from dlpreopened files" fi fi if test -n "$my_dlsyms"; then case $my_dlsyms in "") ;; *.c) # Discover the nlist of each of the dlfiles. nlist=$output_objdir/$my_outputname.nm func_show_eval "$RM $nlist ${nlist}S ${nlist}T" # Parse the name list into a source file. func_verbose "creating $output_objdir/$my_dlsyms" $opt_dry_run || $ECHO > "$output_objdir/$my_dlsyms" "\ /* $my_dlsyms - symbol resolution table for '$my_outputname' dlsym emulation. */ /* Generated by $PROGRAM (GNU $PACKAGE) $VERSION */ #ifdef __cplusplus extern \"C\" { #endif #if defined __GNUC__ && (((__GNUC__ == 4) && (__GNUC_MINOR__ >= 4)) || (__GNUC__ > 4)) #pragma GCC diagnostic ignored \"-Wstrict-prototypes\" #endif /* Keep this code in sync between libtool.m4, ltmain, lt_system.h, and tests. */ #if defined _WIN32 || defined __CYGWIN__ || defined _WIN32_WCE /* DATA imports from DLLs on WIN32 can't be const, because runtime relocations are performed -- see ld's documentation on pseudo-relocs. */ # define LT_DLSYM_CONST #elif defined __osf__ /* This system does not cope well with relocations in const data. */ # define LT_DLSYM_CONST #else # define LT_DLSYM_CONST const #endif #define STREQ(s1, s2) (strcmp ((s1), (s2)) == 0) /* External symbol declarations for the compiler. */\ " if test yes = "$dlself"; then func_verbose "generating symbol list for '$output'" $opt_dry_run || echo ': @PROGRAM@ ' > "$nlist" # Add our own program objects to the symbol list. progfiles=`$ECHO "$objs$old_deplibs" | $SP2NL | $SED "$lo2o" | $NL2SP` for progfile in $progfiles; do func_to_tool_file "$progfile" func_convert_file_msys_to_w32 func_verbose "extracting global C symbols from '$func_to_tool_file_result'" $opt_dry_run || eval "$NM $func_to_tool_file_result | $global_symbol_pipe >> '$nlist'" done if test -n "$exclude_expsyms"; then $opt_dry_run || { eval '$EGREP -v " ($exclude_expsyms)$" "$nlist" > "$nlist"T' eval '$MV "$nlist"T "$nlist"' } fi if test -n "$export_symbols_regex"; then $opt_dry_run || { eval '$EGREP -e "$export_symbols_regex" "$nlist" > "$nlist"T' eval '$MV "$nlist"T "$nlist"' } fi # Prepare the list of exported symbols if test -z "$export_symbols"; then export_symbols=$output_objdir/$outputname.exp $opt_dry_run || { $RM $export_symbols eval "$SED -n -e '/^: @PROGRAM@ $/d' -e 's/^.* \(.*\)$/\1/p' "'< "$nlist" > "$export_symbols"' case $host in *cygwin* | *mingw* | *cegcc* ) eval "echo EXPORTS "'> "$output_objdir/$outputname.def"' eval 'cat "$export_symbols" >> "$output_objdir/$outputname.def"' ;; esac } else $opt_dry_run || { eval "$SED -e 's/\([].[*^$]\)/\\\\\1/g' -e 's/^/ /' -e 's/$/$/'"' < "$export_symbols" > "$output_objdir/$outputname.exp"' eval '$GREP -f "$output_objdir/$outputname.exp" < "$nlist" > "$nlist"T' eval '$MV "$nlist"T "$nlist"' case $host in *cygwin* | *mingw* | *cegcc* ) eval "echo EXPORTS "'> "$output_objdir/$outputname.def"' eval 'cat "$nlist" >> "$output_objdir/$outputname.def"' ;; esac } fi fi for dlprefile in $dlprefiles; do func_verbose "extracting global C symbols from '$dlprefile'" func_basename "$dlprefile" name=$func_basename_result case $host in *cygwin* | *mingw* | *cegcc* ) # if an import library, we need to obtain dlname if func_win32_import_lib_p "$dlprefile"; then func_tr_sh "$dlprefile" eval "curr_lafile=\$libfile_$func_tr_sh_result" dlprefile_dlbasename= if test -n "$curr_lafile" && func_lalib_p "$curr_lafile"; then # Use subshell, to avoid clobbering current variable values dlprefile_dlname=`source "$curr_lafile" && echo "$dlname"` if test -n "$dlprefile_dlname"; then func_basename "$dlprefile_dlname" dlprefile_dlbasename=$func_basename_result else # no lafile. user explicitly requested -dlpreopen . $sharedlib_from_linklib_cmd "$dlprefile" dlprefile_dlbasename=$sharedlib_from_linklib_result fi fi $opt_dry_run || { if test -n "$dlprefile_dlbasename"; then eval '$ECHO ": $dlprefile_dlbasename" >> "$nlist"' else func_warning "Could not compute DLL name from $name" eval '$ECHO ": $name " >> "$nlist"' fi func_to_tool_file "$dlprefile" func_convert_file_msys_to_w32 eval "$NM \"$func_to_tool_file_result\" 2>/dev/null | $global_symbol_pipe | $SED -e '/I __imp/d' -e 's/I __nm_/D /;s/_nm__//' >> '$nlist'" } else # not an import lib $opt_dry_run || { eval '$ECHO ": $name " >> "$nlist"' func_to_tool_file "$dlprefile" func_convert_file_msys_to_w32 eval "$NM \"$func_to_tool_file_result\" 2>/dev/null | $global_symbol_pipe >> '$nlist'" } fi ;; *) $opt_dry_run || { eval '$ECHO ": $name " >> "$nlist"' func_to_tool_file "$dlprefile" func_convert_file_msys_to_w32 eval "$NM \"$func_to_tool_file_result\" 2>/dev/null | $global_symbol_pipe >> '$nlist'" } ;; esac done $opt_dry_run || { # Make sure we have at least an empty file. test -f "$nlist" || : > "$nlist" if test -n "$exclude_expsyms"; then $EGREP -v " ($exclude_expsyms)$" "$nlist" > "$nlist"T $MV "$nlist"T "$nlist" fi # Try sorting and uniquifying the output. if $GREP -v "^: " < "$nlist" | if sort -k 3 /dev/null 2>&1; then sort -k 3 else sort +2 fi | uniq > "$nlist"S; then : else $GREP -v "^: " < "$nlist" > "$nlist"S fi if test -f "$nlist"S; then eval "$global_symbol_to_cdecl"' < "$nlist"S >> "$output_objdir/$my_dlsyms"' else echo '/* NONE */' >> "$output_objdir/$my_dlsyms" fi func_show_eval '$RM "${nlist}I"' if test -n "$global_symbol_to_import"; then eval "$global_symbol_to_import"' < "$nlist"S > "$nlist"I' fi echo >> "$output_objdir/$my_dlsyms" "\ /* The mapping between symbol names and symbols. */ typedef struct { const char *name; void *address; } lt_dlsymlist; extern LT_DLSYM_CONST lt_dlsymlist lt_${my_prefix}_LTX_preloaded_symbols[];\ " if test -s "$nlist"I; then echo >> "$output_objdir/$my_dlsyms" "\ static void lt_syminit(void) { LT_DLSYM_CONST lt_dlsymlist *symbol = lt_${my_prefix}_LTX_preloaded_symbols; for (; symbol->name; ++symbol) {" $SED 's/.*/ if (STREQ (symbol->name, \"&\")) symbol->address = (void *) \&&;/' < "$nlist"I >> "$output_objdir/$my_dlsyms" echo >> "$output_objdir/$my_dlsyms" "\ } }" fi echo >> "$output_objdir/$my_dlsyms" "\ LT_DLSYM_CONST lt_dlsymlist lt_${my_prefix}_LTX_preloaded_symbols[] = { {\"$my_originator\", (void *) 0}," if test -s "$nlist"I; then echo >> "$output_objdir/$my_dlsyms" "\ {\"@INIT@\", (void *) <_syminit}," fi case $need_lib_prefix in no) eval "$global_symbol_to_c_name_address" < "$nlist" >> "$output_objdir/$my_dlsyms" ;; *) eval "$global_symbol_to_c_name_address_lib_prefix" < "$nlist" >> "$output_objdir/$my_dlsyms" ;; esac echo >> "$output_objdir/$my_dlsyms" "\ {0, (void *) 0} }; /* This works around a problem in FreeBSD linker */ #ifdef FREEBSD_WORKAROUND static const void *lt_preloaded_setup() { return lt_${my_prefix}_LTX_preloaded_symbols; } #endif #ifdef __cplusplus } #endif\ " } # !$opt_dry_run pic_flag_for_symtable= case "$compile_command " in *" -static "*) ;; *) case $host in # compiling the symbol table file with pic_flag works around # a FreeBSD bug that causes programs to crash when -lm is # linked before any other PIC object. But we must not use # pic_flag when linking with -static. The problem exists in # FreeBSD 2.2.6 and is fixed in FreeBSD 3.1. *-*-freebsd2.*|*-*-freebsd3.0*|*-*-freebsdelf3.0*) pic_flag_for_symtable=" $pic_flag -DFREEBSD_WORKAROUND" ;; *-*-hpux*) pic_flag_for_symtable=" $pic_flag" ;; *) $my_pic_p && pic_flag_for_symtable=" $pic_flag" ;; esac ;; esac symtab_cflags= for arg in $LTCFLAGS; do case $arg in -pie | -fpie | -fPIE) ;; *) func_append symtab_cflags " $arg" ;; esac done # Now compile the dynamic symbol file. func_show_eval '(cd $output_objdir && $LTCC$symtab_cflags -c$no_builtin_flag$pic_flag_for_symtable "$my_dlsyms")' 'exit $?' # Clean up the generated files. func_show_eval '$RM "$output_objdir/$my_dlsyms" "$nlist" "${nlist}S" "${nlist}T" "${nlist}I"' # Transform the symbol file into the correct name. symfileobj=$output_objdir/${my_outputname}S.$objext case $host in *cygwin* | *mingw* | *cegcc* ) if test -f "$output_objdir/$my_outputname.def"; then compile_command=`$ECHO "$compile_command" | $SED "s%@SYMFILE@%$output_objdir/$my_outputname.def $symfileobj%"` finalize_command=`$ECHO "$finalize_command" | $SED "s%@SYMFILE@%$output_objdir/$my_outputname.def $symfileobj%"` else compile_command=`$ECHO "$compile_command" | $SED "s%@SYMFILE@%$symfileobj%"` finalize_command=`$ECHO "$finalize_command" | $SED "s%@SYMFILE@%$symfileobj%"` fi ;; *) compile_command=`$ECHO "$compile_command" | $SED "s%@SYMFILE@%$symfileobj%"` finalize_command=`$ECHO "$finalize_command" | $SED "s%@SYMFILE@%$symfileobj%"` ;; esac ;; *) func_fatal_error "unknown suffix for '$my_dlsyms'" ;; esac else # We keep going just in case the user didn't refer to # lt_preloaded_symbols. The linker will fail if global_symbol_pipe # really was required. # Nullify the symbol file. compile_command=`$ECHO "$compile_command" | $SED "s% @SYMFILE@%%"` finalize_command=`$ECHO "$finalize_command" | $SED "s% @SYMFILE@%%"` fi } # func_cygming_gnu_implib_p ARG # This predicate returns with zero status (TRUE) if # ARG is a GNU/binutils-style import library. Returns # with nonzero status (FALSE) otherwise. func_cygming_gnu_implib_p () { $debug_cmd func_to_tool_file "$1" func_convert_file_msys_to_w32 func_cygming_gnu_implib_tmp=`$NM "$func_to_tool_file_result" | eval "$global_symbol_pipe" | $EGREP ' (_head_[A-Za-z0-9_]+_[ad]l*|[A-Za-z0-9_]+_[ad]l*_iname)$'` test -n "$func_cygming_gnu_implib_tmp" } # func_cygming_ms_implib_p ARG # This predicate returns with zero status (TRUE) if # ARG is an MS-style import library. Returns # with nonzero status (FALSE) otherwise. func_cygming_ms_implib_p () { $debug_cmd func_to_tool_file "$1" func_convert_file_msys_to_w32 func_cygming_ms_implib_tmp=`$NM "$func_to_tool_file_result" | eval "$global_symbol_pipe" | $GREP '_NULL_IMPORT_DESCRIPTOR'` test -n "$func_cygming_ms_implib_tmp" } # func_win32_libid arg # return the library type of file 'arg' # # Need a lot of goo to handle *both* DLLs and import libs # Has to be a shell function in order to 'eat' the argument # that is supplied when $file_magic_command is called. # Despite the name, also deal with 64 bit binaries. func_win32_libid () { $debug_cmd win32_libid_type=unknown win32_fileres=`file -L $1 2>/dev/null` case $win32_fileres in *ar\ archive\ import\ library*) # definitely import win32_libid_type="x86 archive import" ;; *ar\ archive*) # could be an import, or static # Keep the egrep pattern in sync with the one in _LT_CHECK_MAGIC_METHOD. if eval $OBJDUMP -f $1 | $SED -e '10q' 2>/dev/null | $EGREP 'file format (pei*-i386(.*architecture: i386)?|pe-arm-wince|pe-x86-64)' >/dev/null; then case $nm_interface in "MS dumpbin") if func_cygming_ms_implib_p "$1" || func_cygming_gnu_implib_p "$1" then win32_nmres=import else win32_nmres= fi ;; *) func_to_tool_file "$1" func_convert_file_msys_to_w32 win32_nmres=`eval $NM -f posix -A \"$func_to_tool_file_result\" | $SED -n -e ' 1,100{ / I /{ s|.*|import| p q } }'` ;; esac case $win32_nmres in import*) win32_libid_type="x86 archive import";; *) win32_libid_type="x86 archive static";; esac fi ;; *DLL*) win32_libid_type="x86 DLL" ;; *executable*) # but shell scripts are "executable" too... case $win32_fileres in *MS\ Windows\ PE\ Intel*) win32_libid_type="x86 DLL" ;; esac ;; esac $ECHO "$win32_libid_type" } # func_cygming_dll_for_implib ARG # # Platform-specific function to extract the # name of the DLL associated with the specified # import library ARG. # Invoked by eval'ing the libtool variable # $sharedlib_from_linklib_cmd # Result is available in the variable # $sharedlib_from_linklib_result func_cygming_dll_for_implib () { $debug_cmd sharedlib_from_linklib_result=`$DLLTOOL --identify-strict --identify "$1"` } # func_cygming_dll_for_implib_fallback_core SECTION_NAME LIBNAMEs # # The is the core of a fallback implementation of a # platform-specific function to extract the name of the # DLL associated with the specified import library LIBNAME. # # SECTION_NAME is either .idata$6 or .idata$7, depending # on the platform and compiler that created the implib. # # Echos the name of the DLL associated with the # specified import library. func_cygming_dll_for_implib_fallback_core () { $debug_cmd match_literal=`$ECHO "$1" | $SED "$sed_make_literal_regex"` $OBJDUMP -s --section "$1" "$2" 2>/dev/null | $SED '/^Contents of section '"$match_literal"':/{ # Place marker at beginning of archive member dllname section s/.*/====MARK====/ p d } # These lines can sometimes be longer than 43 characters, but # are always uninteresting /:[ ]*file format pe[i]\{,1\}-/d /^In archive [^:]*:/d # Ensure marker is printed /^====MARK====/p # Remove all lines with less than 43 characters /^.\{43\}/!d # From remaining lines, remove first 43 characters s/^.\{43\}//' | $SED -n ' # Join marker and all lines until next marker into a single line /^====MARK====/ b para H $ b para b :para x s/\n//g # Remove the marker s/^====MARK====// # Remove trailing dots and whitespace s/[\. \t]*$// # Print /./p' | # we now have a list, one entry per line, of the stringified # contents of the appropriate section of all members of the # archive that possess that section. Heuristic: eliminate # all those that have a first or second character that is # a '.' (that is, objdump's representation of an unprintable # character.) This should work for all archives with less than # 0x302f exports -- but will fail for DLLs whose name actually # begins with a literal '.' or a single character followed by # a '.'. # # Of those that remain, print the first one. $SED -e '/^\./d;/^.\./d;q' } # func_cygming_dll_for_implib_fallback ARG # Platform-specific function to extract the # name of the DLL associated with the specified # import library ARG. # # This fallback implementation is for use when $DLLTOOL # does not support the --identify-strict option. # Invoked by eval'ing the libtool variable # $sharedlib_from_linklib_cmd # Result is available in the variable # $sharedlib_from_linklib_result func_cygming_dll_for_implib_fallback () { $debug_cmd if func_cygming_gnu_implib_p "$1"; then # binutils import library sharedlib_from_linklib_result=`func_cygming_dll_for_implib_fallback_core '.idata$7' "$1"` elif func_cygming_ms_implib_p "$1"; then # ms-generated import library sharedlib_from_linklib_result=`func_cygming_dll_for_implib_fallback_core '.idata$6' "$1"` else # unknown sharedlib_from_linklib_result= fi } # func_extract_an_archive dir oldlib func_extract_an_archive () { $debug_cmd f_ex_an_ar_dir=$1; shift f_ex_an_ar_oldlib=$1 if test yes = "$lock_old_archive_extraction"; then lockfile=$f_ex_an_ar_oldlib.lock until $opt_dry_run || ln "$progpath" "$lockfile" 2>/dev/null; do func_echo "Waiting for $lockfile to be removed" sleep 2 done fi func_show_eval "(cd \$f_ex_an_ar_dir && $AR x \"\$f_ex_an_ar_oldlib\")" \ 'stat=$?; rm -f "$lockfile"; exit $stat' if test yes = "$lock_old_archive_extraction"; then $opt_dry_run || rm -f "$lockfile" fi if ($AR t "$f_ex_an_ar_oldlib" | sort | sort -uc >/dev/null 2>&1); then : else func_fatal_error "object name conflicts in archive: $f_ex_an_ar_dir/$f_ex_an_ar_oldlib" fi } # func_extract_archives gentop oldlib ... func_extract_archives () { $debug_cmd my_gentop=$1; shift my_oldlibs=${1+"$@"} my_oldobjs= my_xlib= my_xabs= my_xdir= for my_xlib in $my_oldlibs; do # Extract the objects. case $my_xlib in [\\/]* | [A-Za-z]:[\\/]*) my_xabs=$my_xlib ;; *) my_xabs=`pwd`"/$my_xlib" ;; esac func_basename "$my_xlib" my_xlib=$func_basename_result my_xlib_u=$my_xlib while :; do case " $extracted_archives " in *" $my_xlib_u "*) func_arith $extracted_serial + 1 extracted_serial=$func_arith_result my_xlib_u=lt$extracted_serial-$my_xlib ;; *) break ;; esac done extracted_archives="$extracted_archives $my_xlib_u" my_xdir=$my_gentop/$my_xlib_u func_mkdir_p "$my_xdir" case $host in *-darwin*) func_verbose "Extracting $my_xabs" # Do not bother doing anything if just a dry run $opt_dry_run || { darwin_orig_dir=`pwd` cd $my_xdir || exit $? darwin_archive=$my_xabs darwin_curdir=`pwd` func_basename "$darwin_archive" darwin_base_archive=$func_basename_result darwin_arches=`$LIPO -info "$darwin_archive" 2>/dev/null | $GREP Architectures 2>/dev/null || true` if test -n "$darwin_arches"; then darwin_arches=`$ECHO "$darwin_arches" | $SED -e 's/.*are://'` darwin_arch= func_verbose "$darwin_base_archive has multiple architectures $darwin_arches" for darwin_arch in $darwin_arches; do func_mkdir_p "unfat-$$/$darwin_base_archive-$darwin_arch" $LIPO -thin $darwin_arch -output "unfat-$$/$darwin_base_archive-$darwin_arch/$darwin_base_archive" "$darwin_archive" cd "unfat-$$/$darwin_base_archive-$darwin_arch" func_extract_an_archive "`pwd`" "$darwin_base_archive" cd "$darwin_curdir" $RM "unfat-$$/$darwin_base_archive-$darwin_arch/$darwin_base_archive" done # $darwin_arches ## Okay now we've a bunch of thin objects, gotta fatten them up :) darwin_filelist=`find unfat-$$ -type f -name \*.o -print -o -name \*.lo -print | $SED -e "$sed_basename" | sort -u` darwin_file= darwin_files= for darwin_file in $darwin_filelist; do darwin_files=`find unfat-$$ -name $darwin_file -print | sort | $NL2SP` $LIPO -create -output "$darwin_file" $darwin_files done # $darwin_filelist $RM -rf unfat-$$ cd "$darwin_orig_dir" else cd $darwin_orig_dir func_extract_an_archive "$my_xdir" "$my_xabs" fi # $darwin_arches } # !$opt_dry_run ;; *) func_extract_an_archive "$my_xdir" "$my_xabs" ;; esac my_oldobjs="$my_oldobjs "`find $my_xdir -name \*.$objext -print -o -name \*.lo -print | sort | $NL2SP` done func_extract_archives_result=$my_oldobjs } # func_emit_wrapper [arg=no] # # Emit a libtool wrapper script on stdout. # Don't directly open a file because we may want to # incorporate the script contents within a cygwin/mingw # wrapper executable. Must ONLY be called from within # func_mode_link because it depends on a number of variables # set therein. # # ARG is the value that the WRAPPER_SCRIPT_BELONGS_IN_OBJDIR # variable will take. If 'yes', then the emitted script # will assume that the directory where it is stored is # the $objdir directory. This is a cygwin/mingw-specific # behavior. func_emit_wrapper () { func_emit_wrapper_arg1=${1-no} $ECHO "\ #! $SHELL # $output - temporary wrapper script for $objdir/$outputname # Generated by $PROGRAM (GNU $PACKAGE) $VERSION # # The $output program cannot be directly executed until all the libtool # libraries that it depends on are installed. # # This wrapper script should never be moved out of the build directory. # If it is, it will not operate correctly. # Sed substitution that helps us do robust quoting. It backslashifies # metacharacters that are still active within double-quoted strings. sed_quote_subst='$sed_quote_subst' # Be Bourne compatible if test -n \"\${ZSH_VERSION+set}\" && (emulate sh) >/dev/null 2>&1; then emulate sh NULLCMD=: # Zsh 3.x and 4.x performs word splitting on \${1+\"\$@\"}, which # is contrary to our usage. Disable this feature. alias -g '\${1+\"\$@\"}'='\"\$@\"' setopt NO_GLOB_SUBST else case \`(set -o) 2>/dev/null\` in *posix*) set -o posix;; esac fi BIN_SH=xpg4; export BIN_SH # for Tru64 DUALCASE=1; export DUALCASE # for MKS sh # The HP-UX ksh and POSIX shell print the target directory to stdout # if CDPATH is set. (unset CDPATH) >/dev/null 2>&1 && unset CDPATH relink_command=\"$relink_command\" # This environment variable determines our operation mode. if test \"\$libtool_install_magic\" = \"$magic\"; then # install mode needs the following variables: generated_by_libtool_version='$macro_version' notinst_deplibs='$notinst_deplibs' else # When we are sourced in execute mode, \$file and \$ECHO are already set. if test \"\$libtool_execute_magic\" != \"$magic\"; then file=\"\$0\"" qECHO=`$ECHO "$ECHO" | $SED "$sed_quote_subst"` $ECHO "\ # A function that is used when there is no print builtin or printf. func_fallback_echo () { eval 'cat <<_LTECHO_EOF \$1 _LTECHO_EOF' } ECHO=\"$qECHO\" fi # Very basic option parsing. These options are (a) specific to # the libtool wrapper, (b) are identical between the wrapper # /script/ and the wrapper /executable/ that is used only on # windows platforms, and (c) all begin with the string "--lt-" # (application programs are unlikely to have options that match # this pattern). # # There are only two supported options: --lt-debug and # --lt-dump-script. There is, deliberately, no --lt-help. # # The first argument to this parsing function should be the # script's $0 value, followed by "$@". lt_option_debug= func_parse_lt_options () { lt_script_arg0=\$0 shift for lt_opt do case \"\$lt_opt\" in --lt-debug) lt_option_debug=1 ;; --lt-dump-script) lt_dump_D=\`\$ECHO \"X\$lt_script_arg0\" | $SED -e 's/^X//' -e 's%/[^/]*$%%'\` test \"X\$lt_dump_D\" = \"X\$lt_script_arg0\" && lt_dump_D=. lt_dump_F=\`\$ECHO \"X\$lt_script_arg0\" | $SED -e 's/^X//' -e 's%^.*/%%'\` cat \"\$lt_dump_D/\$lt_dump_F\" exit 0 ;; --lt-*) \$ECHO \"Unrecognized --lt- option: '\$lt_opt'\" 1>&2 exit 1 ;; esac done # Print the debug banner immediately: if test -n \"\$lt_option_debug\"; then echo \"$outputname:$output:\$LINENO: libtool wrapper (GNU $PACKAGE) $VERSION\" 1>&2 fi } # Used when --lt-debug. Prints its arguments to stdout # (redirection is the responsibility of the caller) func_lt_dump_args () { lt_dump_args_N=1; for lt_arg do \$ECHO \"$outputname:$output:\$LINENO: newargv[\$lt_dump_args_N]: \$lt_arg\" lt_dump_args_N=\`expr \$lt_dump_args_N + 1\` done } # Core function for launching the target application func_exec_program_core () { " case $host in # Backslashes separate directories on plain windows *-*-mingw | *-*-os2* | *-cegcc*) $ECHO "\ if test -n \"\$lt_option_debug\"; then \$ECHO \"$outputname:$output:\$LINENO: newargv[0]: \$progdir\\\\\$program\" 1>&2 func_lt_dump_args \${1+\"\$@\"} 1>&2 fi exec \"\$progdir\\\\\$program\" \${1+\"\$@\"} " ;; *) $ECHO "\ if test -n \"\$lt_option_debug\"; then \$ECHO \"$outputname:$output:\$LINENO: newargv[0]: \$progdir/\$program\" 1>&2 func_lt_dump_args \${1+\"\$@\"} 1>&2 fi exec \"\$progdir/\$program\" \${1+\"\$@\"} " ;; esac $ECHO "\ \$ECHO \"\$0: cannot exec \$program \$*\" 1>&2 exit 1 } # A function to encapsulate launching the target application # Strips options in the --lt-* namespace from \$@ and # launches target application with the remaining arguments. func_exec_program () { case \" \$* \" in *\\ --lt-*) for lt_wr_arg do case \$lt_wr_arg in --lt-*) ;; *) set x \"\$@\" \"\$lt_wr_arg\"; shift;; esac shift done ;; esac func_exec_program_core \${1+\"\$@\"} } # Parse options func_parse_lt_options \"\$0\" \${1+\"\$@\"} # Find the directory that this script lives in. thisdir=\`\$ECHO \"\$file\" | $SED 's%/[^/]*$%%'\` test \"x\$thisdir\" = \"x\$file\" && thisdir=. # Follow symbolic links until we get to the real thisdir. file=\`ls -ld \"\$file\" | $SED -n 's/.*-> //p'\` while test -n \"\$file\"; do destdir=\`\$ECHO \"\$file\" | $SED 's%/[^/]*\$%%'\` # If there was a directory component, then change thisdir. if test \"x\$destdir\" != \"x\$file\"; then case \"\$destdir\" in [\\\\/]* | [A-Za-z]:[\\\\/]*) thisdir=\"\$destdir\" ;; *) thisdir=\"\$thisdir/\$destdir\" ;; esac fi file=\`\$ECHO \"\$file\" | $SED 's%^.*/%%'\` file=\`ls -ld \"\$thisdir/\$file\" | $SED -n 's/.*-> //p'\` done # Usually 'no', except on cygwin/mingw when embedded into # the cwrapper. WRAPPER_SCRIPT_BELONGS_IN_OBJDIR=$func_emit_wrapper_arg1 if test \"\$WRAPPER_SCRIPT_BELONGS_IN_OBJDIR\" = \"yes\"; then # special case for '.' if test \"\$thisdir\" = \".\"; then thisdir=\`pwd\` fi # remove .libs from thisdir case \"\$thisdir\" in *[\\\\/]$objdir ) thisdir=\`\$ECHO \"\$thisdir\" | $SED 's%[\\\\/][^\\\\/]*$%%'\` ;; $objdir ) thisdir=. ;; esac fi # Try to get the absolute directory name. absdir=\`cd \"\$thisdir\" && pwd\` test -n \"\$absdir\" && thisdir=\"\$absdir\" " if test yes = "$fast_install"; then $ECHO "\ program=lt-'$outputname'$exeext progdir=\"\$thisdir/$objdir\" if test ! -f \"\$progdir/\$program\" || { file=\`ls -1dt \"\$progdir/\$program\" \"\$progdir/../\$program\" 2>/dev/null | $SED 1q\`; \\ test \"X\$file\" != \"X\$progdir/\$program\"; }; then file=\"\$\$-\$program\" if test ! -d \"\$progdir\"; then $MKDIR \"\$progdir\" else $RM \"\$progdir/\$file\" fi" $ECHO "\ # relink executable if necessary if test -n \"\$relink_command\"; then if relink_command_output=\`eval \$relink_command 2>&1\`; then : else \$ECHO \"\$relink_command_output\" >&2 $RM \"\$progdir/\$file\" exit 1 fi fi $MV \"\$progdir/\$file\" \"\$progdir/\$program\" 2>/dev/null || { $RM \"\$progdir/\$program\"; $MV \"\$progdir/\$file\" \"\$progdir/\$program\"; } $RM \"\$progdir/\$file\" fi" else $ECHO "\ program='$outputname' progdir=\"\$thisdir/$objdir\" " fi $ECHO "\ if test -f \"\$progdir/\$program\"; then" # fixup the dll searchpath if we need to. # # Fix the DLL searchpath if we need to. Do this before prepending # to shlibpath, because on Windows, both are PATH and uninstalled # libraries must come first. if test -n "$dllsearchpath"; then $ECHO "\ # Add the dll search path components to the executable PATH PATH=$dllsearchpath:\$PATH " fi # Export our shlibpath_var if we have one. if test yes = "$shlibpath_overrides_runpath" && test -n "$shlibpath_var" && test -n "$temp_rpath"; then $ECHO "\ # Add our own library path to $shlibpath_var $shlibpath_var=\"$temp_rpath\$$shlibpath_var\" # Some systems cannot cope with colon-terminated $shlibpath_var # The second colon is a workaround for a bug in BeOS R4 sed $shlibpath_var=\`\$ECHO \"\$$shlibpath_var\" | $SED 's/::*\$//'\` export $shlibpath_var " fi $ECHO "\ if test \"\$libtool_execute_magic\" != \"$magic\"; then # Run the actual program with our arguments. func_exec_program \${1+\"\$@\"} fi else # The program doesn't exist. \$ECHO \"\$0: error: '\$progdir/\$program' does not exist\" 1>&2 \$ECHO \"This script is just a wrapper for \$program.\" 1>&2 \$ECHO \"See the $PACKAGE documentation for more information.\" 1>&2 exit 1 fi fi\ " } # func_emit_cwrapperexe_src # emit the source code for a wrapper executable on stdout # Must ONLY be called from within func_mode_link because # it depends on a number of variable set therein. func_emit_cwrapperexe_src () { cat < #include #ifdef _MSC_VER # include # include # include #else # include # include # ifdef __CYGWIN__ # include # endif #endif #include #include #include #include #include #include #include #include #define STREQ(s1, s2) (strcmp ((s1), (s2)) == 0) /* declarations of non-ANSI functions */ #if defined __MINGW32__ # ifdef __STRICT_ANSI__ int _putenv (const char *); # endif #elif defined __CYGWIN__ # ifdef __STRICT_ANSI__ char *realpath (const char *, char *); int putenv (char *); int setenv (const char *, const char *, int); # endif /* #elif defined other_platform || defined ... */ #endif /* portability defines, excluding path handling macros */ #if defined _MSC_VER # define setmode _setmode # define stat _stat # define chmod _chmod # define getcwd _getcwd # define putenv _putenv # define S_IXUSR _S_IEXEC #elif defined __MINGW32__ # define setmode _setmode # define stat _stat # define chmod _chmod # define getcwd _getcwd # define putenv _putenv #elif defined __CYGWIN__ # define HAVE_SETENV # define FOPEN_WB "wb" /* #elif defined other platforms ... */ #endif #if defined PATH_MAX # define LT_PATHMAX PATH_MAX #elif defined MAXPATHLEN # define LT_PATHMAX MAXPATHLEN #else # define LT_PATHMAX 1024 #endif #ifndef S_IXOTH # define S_IXOTH 0 #endif #ifndef S_IXGRP # define S_IXGRP 0 #endif /* path handling portability macros */ #ifndef DIR_SEPARATOR # define DIR_SEPARATOR '/' # define PATH_SEPARATOR ':' #endif #if defined _WIN32 || defined __MSDOS__ || defined __DJGPP__ || \ defined __OS2__ # define HAVE_DOS_BASED_FILE_SYSTEM # define FOPEN_WB "wb" # ifndef DIR_SEPARATOR_2 # define DIR_SEPARATOR_2 '\\' # endif # ifndef PATH_SEPARATOR_2 # define PATH_SEPARATOR_2 ';' # endif #endif #ifndef DIR_SEPARATOR_2 # define IS_DIR_SEPARATOR(ch) ((ch) == DIR_SEPARATOR) #else /* DIR_SEPARATOR_2 */ # define IS_DIR_SEPARATOR(ch) \ (((ch) == DIR_SEPARATOR) || ((ch) == DIR_SEPARATOR_2)) #endif /* DIR_SEPARATOR_2 */ #ifndef PATH_SEPARATOR_2 # define IS_PATH_SEPARATOR(ch) ((ch) == PATH_SEPARATOR) #else /* PATH_SEPARATOR_2 */ # define IS_PATH_SEPARATOR(ch) ((ch) == PATH_SEPARATOR_2) #endif /* PATH_SEPARATOR_2 */ #ifndef FOPEN_WB # define FOPEN_WB "w" #endif #ifndef _O_BINARY # define _O_BINARY 0 #endif #define XMALLOC(type, num) ((type *) xmalloc ((num) * sizeof(type))) #define XFREE(stale) do { \ if (stale) { free (stale); stale = 0; } \ } while (0) #if defined LT_DEBUGWRAPPER static int lt_debug = 1; #else static int lt_debug = 0; #endif const char *program_name = "libtool-wrapper"; /* in case xstrdup fails */ void *xmalloc (size_t num); char *xstrdup (const char *string); const char *base_name (const char *name); char *find_executable (const char *wrapper); char *chase_symlinks (const char *pathspec); int make_executable (const char *path); int check_executable (const char *path); char *strendzap (char *str, const char *pat); void lt_debugprintf (const char *file, int line, const char *fmt, ...); void lt_fatal (const char *file, int line, const char *message, ...); static const char *nonnull (const char *s); static const char *nonempty (const char *s); void lt_setenv (const char *name, const char *value); char *lt_extend_str (const char *orig_value, const char *add, int to_end); void lt_update_exe_path (const char *name, const char *value); void lt_update_lib_path (const char *name, const char *value); char **prepare_spawn (char **argv); void lt_dump_script (FILE *f); EOF cat <= 0) && (st.st_mode & (S_IXUSR | S_IXGRP | S_IXOTH))) return 1; else return 0; } int make_executable (const char *path) { int rval = 0; struct stat st; lt_debugprintf (__FILE__, __LINE__, "(make_executable): %s\n", nonempty (path)); if ((!path) || (!*path)) return 0; if (stat (path, &st) >= 0) { rval = chmod (path, st.st_mode | S_IXOTH | S_IXGRP | S_IXUSR); } return rval; } /* Searches for the full path of the wrapper. Returns newly allocated full path name if found, NULL otherwise Does not chase symlinks, even on platforms that support them. */ char * find_executable (const char *wrapper) { int has_slash = 0; const char *p; const char *p_next; /* static buffer for getcwd */ char tmp[LT_PATHMAX + 1]; size_t tmp_len; char *concat_name; lt_debugprintf (__FILE__, __LINE__, "(find_executable): %s\n", nonempty (wrapper)); if ((wrapper == NULL) || (*wrapper == '\0')) return NULL; /* Absolute path? */ #if defined HAVE_DOS_BASED_FILE_SYSTEM if (isalpha ((unsigned char) wrapper[0]) && wrapper[1] == ':') { concat_name = xstrdup (wrapper); if (check_executable (concat_name)) return concat_name; XFREE (concat_name); } else { #endif if (IS_DIR_SEPARATOR (wrapper[0])) { concat_name = xstrdup (wrapper); if (check_executable (concat_name)) return concat_name; XFREE (concat_name); } #if defined HAVE_DOS_BASED_FILE_SYSTEM } #endif for (p = wrapper; *p; p++) if (*p == '/') { has_slash = 1; break; } if (!has_slash) { /* no slashes; search PATH */ const char *path = getenv ("PATH"); if (path != NULL) { for (p = path; *p; p = p_next) { const char *q; size_t p_len; for (q = p; *q; q++) if (IS_PATH_SEPARATOR (*q)) break; p_len = (size_t) (q - p); p_next = (*q == '\0' ? q : q + 1); if (p_len == 0) { /* empty path: current directory */ if (getcwd (tmp, LT_PATHMAX) == NULL) lt_fatal (__FILE__, __LINE__, "getcwd failed: %s", nonnull (strerror (errno))); tmp_len = strlen (tmp); concat_name = XMALLOC (char, tmp_len + 1 + strlen (wrapper) + 1); memcpy (concat_name, tmp, tmp_len); concat_name[tmp_len] = '/'; strcpy (concat_name + tmp_len + 1, wrapper); } else { concat_name = XMALLOC (char, p_len + 1 + strlen (wrapper) + 1); memcpy (concat_name, p, p_len); concat_name[p_len] = '/'; strcpy (concat_name + p_len + 1, wrapper); } if (check_executable (concat_name)) return concat_name; XFREE (concat_name); } } /* not found in PATH; assume curdir */ } /* Relative path | not found in path: prepend cwd */ if (getcwd (tmp, LT_PATHMAX) == NULL) lt_fatal (__FILE__, __LINE__, "getcwd failed: %s", nonnull (strerror (errno))); tmp_len = strlen (tmp); concat_name = XMALLOC (char, tmp_len + 1 + strlen (wrapper) + 1); memcpy (concat_name, tmp, tmp_len); concat_name[tmp_len] = '/'; strcpy (concat_name + tmp_len + 1, wrapper); if (check_executable (concat_name)) return concat_name; XFREE (concat_name); return NULL; } char * chase_symlinks (const char *pathspec) { #ifndef S_ISLNK return xstrdup (pathspec); #else char buf[LT_PATHMAX]; struct stat s; char *tmp_pathspec = xstrdup (pathspec); char *p; int has_symlinks = 0; while (strlen (tmp_pathspec) && !has_symlinks) { lt_debugprintf (__FILE__, __LINE__, "checking path component for symlinks: %s\n", tmp_pathspec); if (lstat (tmp_pathspec, &s) == 0) { if (S_ISLNK (s.st_mode) != 0) { has_symlinks = 1; break; } /* search backwards for last DIR_SEPARATOR */ p = tmp_pathspec + strlen (tmp_pathspec) - 1; while ((p > tmp_pathspec) && (!IS_DIR_SEPARATOR (*p))) p--; if ((p == tmp_pathspec) && (!IS_DIR_SEPARATOR (*p))) { /* no more DIR_SEPARATORS left */ break; } *p = '\0'; } else { lt_fatal (__FILE__, __LINE__, "error accessing file \"%s\": %s", tmp_pathspec, nonnull (strerror (errno))); } } XFREE (tmp_pathspec); if (!has_symlinks) { return xstrdup (pathspec); } tmp_pathspec = realpath (pathspec, buf); if (tmp_pathspec == 0) { lt_fatal (__FILE__, __LINE__, "could not follow symlinks for %s", pathspec); } return xstrdup (tmp_pathspec); #endif } char * strendzap (char *str, const char *pat) { size_t len, patlen; assert (str != NULL); assert (pat != NULL); len = strlen (str); patlen = strlen (pat); if (patlen <= len) { str += len - patlen; if (STREQ (str, pat)) *str = '\0'; } return str; } void lt_debugprintf (const char *file, int line, const char *fmt, ...) { va_list args; if (lt_debug) { (void) fprintf (stderr, "%s:%s:%d: ", program_name, file, line); va_start (args, fmt); (void) vfprintf (stderr, fmt, args); va_end (args); } } static void lt_error_core (int exit_status, const char *file, int line, const char *mode, const char *message, va_list ap) { fprintf (stderr, "%s:%s:%d: %s: ", program_name, file, line, mode); vfprintf (stderr, message, ap); fprintf (stderr, ".\n"); if (exit_status >= 0) exit (exit_status); } void lt_fatal (const char *file, int line, const char *message, ...) { va_list ap; va_start (ap, message); lt_error_core (EXIT_FAILURE, file, line, "FATAL", message, ap); va_end (ap); } static const char * nonnull (const char *s) { return s ? s : "(null)"; } static const char * nonempty (const char *s) { return (s && !*s) ? "(empty)" : nonnull (s); } void lt_setenv (const char *name, const char *value) { lt_debugprintf (__FILE__, __LINE__, "(lt_setenv) setting '%s' to '%s'\n", nonnull (name), nonnull (value)); { #ifdef HAVE_SETENV /* always make a copy, for consistency with !HAVE_SETENV */ char *str = xstrdup (value); setenv (name, str, 1); #else size_t len = strlen (name) + 1 + strlen (value) + 1; char *str = XMALLOC (char, len); sprintf (str, "%s=%s", name, value); if (putenv (str) != EXIT_SUCCESS) { XFREE (str); } #endif } } char * lt_extend_str (const char *orig_value, const char *add, int to_end) { char *new_value; if (orig_value && *orig_value) { size_t orig_value_len = strlen (orig_value); size_t add_len = strlen (add); new_value = XMALLOC (char, add_len + orig_value_len + 1); if (to_end) { strcpy (new_value, orig_value); strcpy (new_value + orig_value_len, add); } else { strcpy (new_value, add); strcpy (new_value + add_len, orig_value); } } else { new_value = xstrdup (add); } return new_value; } void lt_update_exe_path (const char *name, const char *value) { lt_debugprintf (__FILE__, __LINE__, "(lt_update_exe_path) modifying '%s' by prepending '%s'\n", nonnull (name), nonnull (value)); if (name && *name && value && *value) { char *new_value = lt_extend_str (getenv (name), value, 0); /* some systems can't cope with a ':'-terminated path #' */ size_t len = strlen (new_value); while ((len > 0) && IS_PATH_SEPARATOR (new_value[len-1])) { new_value[--len] = '\0'; } lt_setenv (name, new_value); XFREE (new_value); } } void lt_update_lib_path (const char *name, const char *value) { lt_debugprintf (__FILE__, __LINE__, "(lt_update_lib_path) modifying '%s' by prepending '%s'\n", nonnull (name), nonnull (value)); if (name && *name && value && *value) { char *new_value = lt_extend_str (getenv (name), value, 0); lt_setenv (name, new_value); XFREE (new_value); } } EOF case $host_os in mingw*) cat <<"EOF" /* Prepares an argument vector before calling spawn(). Note that spawn() does not by itself call the command interpreter (getenv ("COMSPEC") != NULL ? getenv ("COMSPEC") : ({ OSVERSIONINFO v; v.dwOSVersionInfoSize = sizeof(OSVERSIONINFO); GetVersionEx(&v); v.dwPlatformId == VER_PLATFORM_WIN32_NT; }) ? "cmd.exe" : "command.com"). Instead it simply concatenates the arguments, separated by ' ', and calls CreateProcess(). We must quote the arguments since Win32 CreateProcess() interprets characters like ' ', '\t', '\\', '"' (but not '<' and '>') in a special way: - Space and tab are interpreted as delimiters. They are not treated as delimiters if they are surrounded by double quotes: "...". - Unescaped double quotes are removed from the input. Their only effect is that within double quotes, space and tab are treated like normal characters. - Backslashes not followed by double quotes are not special. - But 2*n+1 backslashes followed by a double quote become n backslashes followed by a double quote (n >= 0): \" -> " \\\" -> \" \\\\\" -> \\" */ #define SHELL_SPECIAL_CHARS "\"\\ \001\002\003\004\005\006\007\010\011\012\013\014\015\016\017\020\021\022\023\024\025\026\027\030\031\032\033\034\035\036\037" #define SHELL_SPACE_CHARS " \001\002\003\004\005\006\007\010\011\012\013\014\015\016\017\020\021\022\023\024\025\026\027\030\031\032\033\034\035\036\037" char ** prepare_spawn (char **argv) { size_t argc; char **new_argv; size_t i; /* Count number of arguments. */ for (argc = 0; argv[argc] != NULL; argc++) ; /* Allocate new argument vector. */ new_argv = XMALLOC (char *, argc + 1); /* Put quoted arguments into the new argument vector. */ for (i = 0; i < argc; i++) { const char *string = argv[i]; if (string[0] == '\0') new_argv[i] = xstrdup ("\"\""); else if (strpbrk (string, SHELL_SPECIAL_CHARS) != NULL) { int quote_around = (strpbrk (string, SHELL_SPACE_CHARS) != NULL); size_t length; unsigned int backslashes; const char *s; char *quoted_string; char *p; length = 0; backslashes = 0; if (quote_around) length++; for (s = string; *s != '\0'; s++) { char c = *s; if (c == '"') length += backslashes + 1; length++; if (c == '\\') backslashes++; else backslashes = 0; } if (quote_around) length += backslashes + 1; quoted_string = XMALLOC (char, length + 1); p = quoted_string; backslashes = 0; if (quote_around) *p++ = '"'; for (s = string; *s != '\0'; s++) { char c = *s; if (c == '"') { unsigned int j; for (j = backslashes + 1; j > 0; j--) *p++ = '\\'; } *p++ = c; if (c == '\\') backslashes++; else backslashes = 0; } if (quote_around) { unsigned int j; for (j = backslashes; j > 0; j--) *p++ = '\\'; *p++ = '"'; } *p = '\0'; new_argv[i] = quoted_string; } else new_argv[i] = (char *) string; } new_argv[argc] = NULL; return new_argv; } EOF ;; esac cat <<"EOF" void lt_dump_script (FILE* f) { EOF func_emit_wrapper yes | $SED -n -e ' s/^\(.\{79\}\)\(..*\)/\1\ \2/ h s/\([\\"]\)/\\\1/g s/$/\\n/ s/\([^\n]*\).*/ fputs ("\1", f);/p g D' cat <<"EOF" } EOF } # end: func_emit_cwrapperexe_src # func_win32_import_lib_p ARG # True if ARG is an import lib, as indicated by $file_magic_cmd func_win32_import_lib_p () { $debug_cmd case `eval $file_magic_cmd \"\$1\" 2>/dev/null | $SED -e 10q` in *import*) : ;; *) false ;; esac } # func_suncc_cstd_abi # !!ONLY CALL THIS FOR SUN CC AFTER $compile_command IS FULLY EXPANDED!! # Several compiler flags select an ABI that is incompatible with the # Cstd library. Avoid specifying it if any are in CXXFLAGS. func_suncc_cstd_abi () { $debug_cmd case " $compile_command " in *" -compat=g "*|*\ -std=c++[0-9][0-9]\ *|*" -library=stdcxx4 "*|*" -library=stlport4 "*) suncc_use_cstd_abi=no ;; *) suncc_use_cstd_abi=yes ;; esac } # func_mode_link arg... func_mode_link () { $debug_cmd case $host in *-*-cygwin* | *-*-mingw* | *-*-pw32* | *-*-os2* | *-cegcc*) # It is impossible to link a dll without this setting, and # we shouldn't force the makefile maintainer to figure out # what system we are compiling for in order to pass an extra # flag for every libtool invocation. # allow_undefined=no # FIXME: Unfortunately, there are problems with the above when trying # to make a dll that has undefined symbols, in which case not # even a static library is built. For now, we need to specify # -no-undefined on the libtool link line when we can be certain # that all symbols are satisfied, otherwise we get a static library. allow_undefined=yes ;; *) allow_undefined=yes ;; esac libtool_args=$nonopt base_compile="$nonopt $@" compile_command=$nonopt finalize_command=$nonopt compile_rpath= finalize_rpath= compile_shlibpath= finalize_shlibpath= convenience= old_convenience= deplibs= old_deplibs= compiler_flags= linker_flags= dllsearchpath= lib_search_path=`pwd` inst_prefix_dir= new_inherited_linker_flags= avoid_version=no bindir= dlfiles= dlprefiles= dlself=no export_dynamic=no export_symbols= export_symbols_regex= generated= libobjs= ltlibs= module=no no_install=no objs= os2dllname= non_pic_objects= precious_files_regex= prefer_static_libs=no preload=false prev= prevarg= release= rpath= xrpath= perm_rpath= temp_rpath= thread_safe=no vinfo= vinfo_number=no weak_libs= single_module=$wl-single_module func_infer_tag $base_compile # We need to know -static, to get the right output filenames. for arg do case $arg in -shared) test yes != "$build_libtool_libs" \ && func_fatal_configuration "cannot build a shared library" build_old_libs=no break ;; -all-static | -static | -static-uninstalled-libs | -static-libtool-libs) case $arg in -all-static | -static) if test yes = "$build_libtool_libs" && test -z "$link_static_flag"; then func_warning "complete static linking is impossible in this configuration" fi if test -n "$link_static_flag"; then dlopen_self=$dlopen_self_static fi prefer_static_libs=yes ;; -static-uninstalled-libs) if test -z "$pic_flag" && test -n "$link_static_flag"; then dlopen_self=$dlopen_self_static fi prefer_static_libs=built ;; -static-libtool-libs) if test -z "$pic_flag" && test -n "$link_static_flag"; then dlopen_self=$dlopen_self_static fi prefer_static_libs=yes ;; esac build_libtool_libs=no build_old_libs=yes break ;; esac done # See if our shared archives depend on static archives. test -n "$old_archive_from_new_cmds" && build_old_libs=yes # Go through the arguments, transforming them on the way. while test "$#" -gt 0; do arg=$1 shift func_quote_for_eval "$arg" qarg=$func_quote_for_eval_unquoted_result func_append libtool_args " $func_quote_for_eval_result" # If the previous option needs an argument, assign it. if test -n "$prev"; then case $prev in output) func_append compile_command " @OUTPUT@" func_append finalize_command " @OUTPUT@" ;; esac case $prev in bindir) bindir=$arg prev= continue ;; dlfiles|dlprefiles) $preload || { # Add the symbol object into the linking commands. func_append compile_command " @SYMFILE@" func_append finalize_command " @SYMFILE@" preload=: } case $arg in *.la | *.lo) ;; # We handle these cases below. force) if test no = "$dlself"; then dlself=needless export_dynamic=yes fi prev= continue ;; self) if test dlprefiles = "$prev"; then dlself=yes elif test dlfiles = "$prev" && test yes != "$dlopen_self"; then dlself=yes else dlself=needless export_dynamic=yes fi prev= continue ;; *) if test dlfiles = "$prev"; then func_append dlfiles " $arg" else func_append dlprefiles " $arg" fi prev= continue ;; esac ;; expsyms) export_symbols=$arg test -f "$arg" \ || func_fatal_error "symbol file '$arg' does not exist" prev= continue ;; expsyms_regex) export_symbols_regex=$arg prev= continue ;; framework) case $host in *-*-darwin*) case "$deplibs " in *" $qarg.ltframework "*) ;; *) func_append deplibs " $qarg.ltframework" # this is fixed later ;; esac ;; esac prev= continue ;; inst_prefix) inst_prefix_dir=$arg prev= continue ;; mllvm) # Clang does not use LLVM to link, so we can simply discard any # '-mllvm $arg' options when doing the link step. prev= continue ;; objectlist) if test -f "$arg"; then save_arg=$arg moreargs= for fil in `cat "$save_arg"` do # func_append moreargs " $fil" arg=$fil # A libtool-controlled object. # Check to see that this really is a libtool object. if func_lalib_unsafe_p "$arg"; then pic_object= non_pic_object= # Read the .lo file func_source "$arg" if test -z "$pic_object" || test -z "$non_pic_object" || test none = "$pic_object" && test none = "$non_pic_object"; then func_fatal_error "cannot find name of object for '$arg'" fi # Extract subdirectory from the argument. func_dirname "$arg" "/" "" xdir=$func_dirname_result if test none != "$pic_object"; then # Prepend the subdirectory the object is found in. pic_object=$xdir$pic_object if test dlfiles = "$prev"; then if test yes = "$build_libtool_libs" && test yes = "$dlopen_support"; then func_append dlfiles " $pic_object" prev= continue else # If libtool objects are unsupported, then we need to preload. prev=dlprefiles fi fi # CHECK ME: I think I busted this. -Ossama if test dlprefiles = "$prev"; then # Preload the old-style object. func_append dlprefiles " $pic_object" prev= fi # A PIC object. func_append libobjs " $pic_object" arg=$pic_object fi # Non-PIC object. if test none != "$non_pic_object"; then # Prepend the subdirectory the object is found in. non_pic_object=$xdir$non_pic_object # A standard non-PIC object func_append non_pic_objects " $non_pic_object" if test -z "$pic_object" || test none = "$pic_object"; then arg=$non_pic_object fi else # If the PIC object exists, use it instead. # $xdir was prepended to $pic_object above. non_pic_object=$pic_object func_append non_pic_objects " $non_pic_object" fi else # Only an error if not doing a dry-run. if $opt_dry_run; then # Extract subdirectory from the argument. func_dirname "$arg" "/" "" xdir=$func_dirname_result func_lo2o "$arg" pic_object=$xdir$objdir/$func_lo2o_result non_pic_object=$xdir$func_lo2o_result func_append libobjs " $pic_object" func_append non_pic_objects " $non_pic_object" else func_fatal_error "'$arg' is not a valid libtool object" fi fi done else func_fatal_error "link input file '$arg' does not exist" fi arg=$save_arg prev= continue ;; os2dllname) os2dllname=$arg prev= continue ;; precious_regex) precious_files_regex=$arg prev= continue ;; release) release=-$arg prev= continue ;; rpath | xrpath) # We need an absolute path. case $arg in [\\/]* | [A-Za-z]:[\\/]*) ;; *) func_fatal_error "only absolute run-paths are allowed" ;; esac if test rpath = "$prev"; then case "$rpath " in *" $arg "*) ;; *) func_append rpath " $arg" ;; esac else case "$xrpath " in *" $arg "*) ;; *) func_append xrpath " $arg" ;; esac fi prev= continue ;; shrext) shrext_cmds=$arg prev= continue ;; weak) func_append weak_libs " $arg" prev= continue ;; xcclinker) func_append linker_flags " $qarg" func_append compiler_flags " $qarg" prev= func_append compile_command " $qarg" func_append finalize_command " $qarg" continue ;; xcompiler) func_append compiler_flags " $qarg" prev= func_append compile_command " $qarg" func_append finalize_command " $qarg" continue ;; xlinker) func_append linker_flags " $qarg" func_append compiler_flags " $wl$qarg" prev= func_append compile_command " $wl$qarg" func_append finalize_command " $wl$qarg" continue ;; *) eval "$prev=\"\$arg\"" prev= continue ;; esac fi # test -n "$prev" prevarg=$arg case $arg in -all-static | -static) if test -n "$link_static_flag"; then # See comment for -static flag below, for more details. func_append compile_command " $link_static_flag" func_append finalize_command " $link_static_flag" fi continue ;; -allow-undefined) # FIXME: remove this flag sometime in the future. func_fatal_error "'-allow-undefined' must not be used because it is the default" ;; -avoid-version) avoid_version=yes continue ;; -bindir) prev=bindir continue ;; -dlopen) prev=dlfiles continue ;; -dlpreopen) prev=dlprefiles continue ;; -export-dynamic) export_dynamic=yes continue ;; -export-symbols | -export-symbols-regex) if test -n "$export_symbols" || test -n "$export_symbols_regex"; then func_fatal_error "more than one -exported-symbols argument is not allowed" fi if test X-export-symbols = "X$arg"; then prev=expsyms else prev=expsyms_regex fi continue ;; -framework) prev=framework continue ;; -inst-prefix-dir) prev=inst_prefix continue ;; # The native IRIX linker understands -LANG:*, -LIST:* and -LNO:* # so, if we see these flags be careful not to treat them like -L -L[A-Z][A-Z]*:*) case $with_gcc/$host in no/*-*-irix* | /*-*-irix*) func_append compile_command " $arg" func_append finalize_command " $arg" ;; esac continue ;; -L*) func_stripname "-L" '' "$arg" if test -z "$func_stripname_result"; then if test "$#" -gt 0; then func_fatal_error "require no space between '-L' and '$1'" else func_fatal_error "need path for '-L' option" fi fi func_resolve_sysroot "$func_stripname_result" dir=$func_resolve_sysroot_result # We need an absolute path. case $dir in [\\/]* | [A-Za-z]:[\\/]*) ;; *) absdir=`cd "$dir" && pwd` test -z "$absdir" && \ func_fatal_error "cannot determine absolute directory name of '$dir'" dir=$absdir ;; esac case "$deplibs " in *" -L$dir "* | *" $arg "*) # Will only happen for absolute or sysroot arguments ;; *) # Preserve sysroot, but never include relative directories case $dir in [\\/]* | [A-Za-z]:[\\/]* | =*) func_append deplibs " $arg" ;; *) func_append deplibs " -L$dir" ;; esac func_append lib_search_path " $dir" ;; esac case $host in *-*-cygwin* | *-*-mingw* | *-*-pw32* | *-*-os2* | *-cegcc*) testbindir=`$ECHO "$dir" | $SED 's*/lib$*/bin*'` case :$dllsearchpath: in *":$dir:"*) ;; ::) dllsearchpath=$dir;; *) func_append dllsearchpath ":$dir";; esac case :$dllsearchpath: in *":$testbindir:"*) ;; ::) dllsearchpath=$testbindir;; *) func_append dllsearchpath ":$testbindir";; esac ;; esac continue ;; -l*) if test X-lc = "X$arg" || test X-lm = "X$arg"; then case $host in *-*-cygwin* | *-*-mingw* | *-*-pw32* | *-*-beos* | *-cegcc* | *-*-haiku*) # These systems don't actually have a C or math library (as such) continue ;; *-*-os2*) # These systems don't actually have a C library (as such) test X-lc = "X$arg" && continue ;; *-*-openbsd* | *-*-freebsd* | *-*-dragonfly* | *-*-bitrig*) # Do not include libc due to us having libc/libc_r. test X-lc = "X$arg" && continue ;; *-*-rhapsody* | *-*-darwin1.[012]) # Rhapsody C and math libraries are in the System framework func_append deplibs " System.ltframework" continue ;; *-*-sco3.2v5* | *-*-sco5v6*) # Causes problems with __ctype test X-lc = "X$arg" && continue ;; *-*-sysv4.2uw2* | *-*-sysv5* | *-*-unixware* | *-*-OpenUNIX*) # Compiler inserts libc in the correct place for threads to work test X-lc = "X$arg" && continue ;; esac elif test X-lc_r = "X$arg"; then case $host in *-*-openbsd* | *-*-freebsd* | *-*-dragonfly* | *-*-bitrig*) # Do not include libc_r directly, use -pthread flag. continue ;; esac fi func_append deplibs " $arg" continue ;; -mllvm) prev=mllvm continue ;; -module) module=yes continue ;; # Tru64 UNIX uses -model [arg] to determine the layout of C++ # classes, name mangling, and exception handling. # Darwin uses the -arch flag to determine output architecture. -model|-arch|-isysroot|--sysroot) func_append compiler_flags " $arg" func_append compile_command " $arg" func_append finalize_command " $arg" prev=xcompiler continue ;; -mt|-mthreads|-kthread|-Kthread|-pthread|-pthreads|--thread-safe \ |-threads|-fopenmp|-openmp|-mp|-xopenmp|-omp|-qsmp=*) func_append compiler_flags " $arg" func_append compile_command " $arg" func_append finalize_command " $arg" case "$new_inherited_linker_flags " in *" $arg "*) ;; * ) func_append new_inherited_linker_flags " $arg" ;; esac continue ;; -multi_module) single_module=$wl-multi_module continue ;; -no-fast-install) fast_install=no continue ;; -no-install) case $host in *-*-cygwin* | *-*-mingw* | *-*-pw32* | *-*-os2* | *-*-darwin* | *-cegcc*) # The PATH hackery in wrapper scripts is required on Windows # and Darwin in order for the loader to find any dlls it needs. func_warning "'-no-install' is ignored for $host" func_warning "assuming '-no-fast-install' instead" fast_install=no ;; *) no_install=yes ;; esac continue ;; -no-undefined) allow_undefined=no continue ;; -objectlist) prev=objectlist continue ;; -os2dllname) prev=os2dllname continue ;; -o) prev=output ;; -precious-files-regex) prev=precious_regex continue ;; -release) prev=release continue ;; -rpath) prev=rpath continue ;; -R) prev=xrpath continue ;; -R*) func_stripname '-R' '' "$arg" dir=$func_stripname_result # We need an absolute path. case $dir in [\\/]* | [A-Za-z]:[\\/]*) ;; =*) func_stripname '=' '' "$dir" dir=$lt_sysroot$func_stripname_result ;; *) func_fatal_error "only absolute run-paths are allowed" ;; esac case "$xrpath " in *" $dir "*) ;; *) func_append xrpath " $dir" ;; esac continue ;; -shared) # The effects of -shared are defined in a previous loop. continue ;; -shrext) prev=shrext continue ;; -static-uninstalled-libs | -static-libtool-libs) # The effects of -static-uninstalled-libs are defined in a previous # loop. We used to do the same as -all-static on platforms that # didn't have a PIC flag, but the assumption that the effects # would be equivalent was wrong. It would break on at least # Digital Unix and AIX. continue ;; -thread-safe) thread_safe=yes continue ;; -version-info) prev=vinfo continue ;; -version-number) prev=vinfo vinfo_number=yes continue ;; -weak) prev=weak continue ;; -Wc,*) func_stripname '-Wc,' '' "$arg" args=$func_stripname_result arg= save_ifs=$IFS; IFS=, for flag in $args; do IFS=$save_ifs func_quote_for_eval "$flag" func_append arg " $func_quote_for_eval_result" func_append compiler_flags " $func_quote_for_eval_result" done IFS=$save_ifs func_stripname ' ' '' "$arg" arg=$func_stripname_result ;; -Wl,*) func_stripname '-Wl,' '' "$arg" args=$func_stripname_result arg= save_ifs=$IFS; IFS=, for flag in $args; do IFS=$save_ifs func_quote_for_eval "$flag" func_append arg " $wl$func_quote_for_eval_result" func_append compiler_flags " $wl$func_quote_for_eval_result" func_append linker_flags " $func_quote_for_eval_result" done IFS=$save_ifs func_stripname ' ' '' "$arg" arg=$func_stripname_result ;; -Xcompiler) prev=xcompiler continue ;; -Xlinker) prev=xlinker continue ;; -XCClinker) prev=xcclinker continue ;; # -msg_* for osf cc -msg_*) func_quote_for_eval "$arg" arg=$func_quote_for_eval_result ;; # Flags to be passed through unchanged, with rationale: # -64, -mips[0-9] enable 64-bit mode for the SGI compiler # -r[0-9][0-9]* specify processor for the SGI compiler # -xarch=*, -xtarget=* enable 64-bit mode for the Sun compiler # +DA*, +DD* enable 64-bit mode for the HP compiler # -q* compiler args for the IBM compiler # -m*, -t[45]*, -txscale* architecture-specific flags for GCC # -F/path path to uninstalled frameworks, gcc on darwin # -p, -pg, --coverage, -fprofile-* profiling flags for GCC # -fstack-protector* stack protector flags for GCC # @file GCC response files # -tp=* Portland pgcc target processor selection # --sysroot=* for sysroot support # -O*, -g*, -flto*, -fwhopr*, -fuse-linker-plugin GCC link-time optimization # -stdlib=* select c++ std lib with clang -64|-mips[0-9]|-r[0-9][0-9]*|-xarch=*|-xtarget=*|+DA*|+DD*|-q*|-m*| \ -t[45]*|-txscale*|-p|-pg|--coverage|-fprofile-*|-F*|@*|-tp=*|--sysroot=*| \ -O*|-g*|-flto*|-fwhopr*|-fuse-linker-plugin|-fstack-protector*|-stdlib=*) func_quote_for_eval "$arg" arg=$func_quote_for_eval_result func_append compile_command " $arg" func_append finalize_command " $arg" func_append compiler_flags " $arg" continue ;; -Z*) if test os2 = "`expr $host : '.*\(os2\)'`"; then # OS/2 uses -Zxxx to specify OS/2-specific options compiler_flags="$compiler_flags $arg" func_append compile_command " $arg" func_append finalize_command " $arg" case $arg in -Zlinker | -Zstack) prev=xcompiler ;; esac continue else # Otherwise treat like 'Some other compiler flag' below func_quote_for_eval "$arg" arg=$func_quote_for_eval_result fi ;; # Some other compiler flag. -* | +*) func_quote_for_eval "$arg" arg=$func_quote_for_eval_result ;; *.$objext) # A standard object. func_append objs " $arg" ;; *.lo) # A libtool-controlled object. # Check to see that this really is a libtool object. if func_lalib_unsafe_p "$arg"; then pic_object= non_pic_object= # Read the .lo file func_source "$arg" if test -z "$pic_object" || test -z "$non_pic_object" || test none = "$pic_object" && test none = "$non_pic_object"; then func_fatal_error "cannot find name of object for '$arg'" fi # Extract subdirectory from the argument. func_dirname "$arg" "/" "" xdir=$func_dirname_result test none = "$pic_object" || { # Prepend the subdirectory the object is found in. pic_object=$xdir$pic_object if test dlfiles = "$prev"; then if test yes = "$build_libtool_libs" && test yes = "$dlopen_support"; then func_append dlfiles " $pic_object" prev= continue else # If libtool objects are unsupported, then we need to preload. prev=dlprefiles fi fi # CHECK ME: I think I busted this. -Ossama if test dlprefiles = "$prev"; then # Preload the old-style object. func_append dlprefiles " $pic_object" prev= fi # A PIC object. func_append libobjs " $pic_object" arg=$pic_object } # Non-PIC object. if test none != "$non_pic_object"; then # Prepend the subdirectory the object is found in. non_pic_object=$xdir$non_pic_object # A standard non-PIC object func_append non_pic_objects " $non_pic_object" if test -z "$pic_object" || test none = "$pic_object"; then arg=$non_pic_object fi else # If the PIC object exists, use it instead. # $xdir was prepended to $pic_object above. non_pic_object=$pic_object func_append non_pic_objects " $non_pic_object" fi else # Only an error if not doing a dry-run. if $opt_dry_run; then # Extract subdirectory from the argument. func_dirname "$arg" "/" "" xdir=$func_dirname_result func_lo2o "$arg" pic_object=$xdir$objdir/$func_lo2o_result non_pic_object=$xdir$func_lo2o_result func_append libobjs " $pic_object" func_append non_pic_objects " $non_pic_object" else func_fatal_error "'$arg' is not a valid libtool object" fi fi ;; *.$libext) # An archive. func_append deplibs " $arg" func_append old_deplibs " $arg" continue ;; *.la) # A libtool-controlled library. func_resolve_sysroot "$arg" if test dlfiles = "$prev"; then # This library was specified with -dlopen. func_append dlfiles " $func_resolve_sysroot_result" prev= elif test dlprefiles = "$prev"; then # The library was specified with -dlpreopen. func_append dlprefiles " $func_resolve_sysroot_result" prev= else func_append deplibs " $func_resolve_sysroot_result" fi continue ;; # Some other compiler argument. *) # Unknown arguments in both finalize_command and compile_command need # to be aesthetically quoted because they are evaled later. func_quote_for_eval "$arg" arg=$func_quote_for_eval_result ;; esac # arg # Now actually substitute the argument into the commands. if test -n "$arg"; then func_append compile_command " $arg" func_append finalize_command " $arg" fi done # argument parsing loop test -n "$prev" && \ func_fatal_help "the '$prevarg' option requires an argument" if test yes = "$export_dynamic" && test -n "$export_dynamic_flag_spec"; then eval arg=\"$export_dynamic_flag_spec\" func_append compile_command " $arg" func_append finalize_command " $arg" fi oldlibs= # calculate the name of the file, without its directory func_basename "$output" outputname=$func_basename_result libobjs_save=$libobjs if test -n "$shlibpath_var"; then # get the directories listed in $shlibpath_var eval shlib_search_path=\`\$ECHO \"\$$shlibpath_var\" \| \$SED \'s/:/ /g\'\` else shlib_search_path= fi eval sys_lib_search_path=\"$sys_lib_search_path_spec\" eval sys_lib_dlsearch_path=\"$sys_lib_dlsearch_path_spec\" # Definition is injected by LT_CONFIG during libtool generation. func_munge_path_list sys_lib_dlsearch_path "$LT_SYS_LIBRARY_PATH" func_dirname "$output" "/" "" output_objdir=$func_dirname_result$objdir func_to_tool_file "$output_objdir/" tool_output_objdir=$func_to_tool_file_result # Create the object directory. func_mkdir_p "$output_objdir" # Determine the type of output case $output in "") func_fatal_help "you must specify an output file" ;; *.$libext) linkmode=oldlib ;; *.lo | *.$objext) linkmode=obj ;; *.la) linkmode=lib ;; *) linkmode=prog ;; # Anything else should be a program. esac specialdeplibs= libs= # Find all interdependent deplibs by searching for libraries # that are linked more than once (e.g. -la -lb -la) for deplib in $deplibs; do if $opt_preserve_dup_deps; then case "$libs " in *" $deplib "*) func_append specialdeplibs " $deplib" ;; esac fi func_append libs " $deplib" done if test lib = "$linkmode"; then libs="$predeps $libs $compiler_lib_search_path $postdeps" # Compute libraries that are listed more than once in $predeps # $postdeps and mark them as special (i.e., whose duplicates are # not to be eliminated). pre_post_deps= if $opt_duplicate_compiler_generated_deps; then for pre_post_dep in $predeps $postdeps; do case "$pre_post_deps " in *" $pre_post_dep "*) func_append specialdeplibs " $pre_post_deps" ;; esac func_append pre_post_deps " $pre_post_dep" done fi pre_post_deps= fi deplibs= newdependency_libs= newlib_search_path= need_relink=no # whether we're linking any uninstalled libtool libraries notinst_deplibs= # not-installed libtool libraries notinst_path= # paths that contain not-installed libtool libraries case $linkmode in lib) passes="conv dlpreopen link" for file in $dlfiles $dlprefiles; do case $file in *.la) ;; *) func_fatal_help "libraries can '-dlopen' only libtool libraries: $file" ;; esac done ;; prog) compile_deplibs= finalize_deplibs= alldeplibs=false newdlfiles= newdlprefiles= passes="conv scan dlopen dlpreopen link" ;; *) passes="conv" ;; esac for pass in $passes; do # The preopen pass in lib mode reverses $deplibs; put it back here # so that -L comes before libs that need it for instance... if test lib,link = "$linkmode,$pass"; then ## FIXME: Find the place where the list is rebuilt in the wrong ## order, and fix it there properly tmp_deplibs= for deplib in $deplibs; do tmp_deplibs="$deplib $tmp_deplibs" done deplibs=$tmp_deplibs fi if test lib,link = "$linkmode,$pass" || test prog,scan = "$linkmode,$pass"; then libs=$deplibs deplibs= fi if test prog = "$linkmode"; then case $pass in dlopen) libs=$dlfiles ;; dlpreopen) libs=$dlprefiles ;; link) libs="$deplibs %DEPLIBS% $dependency_libs" ;; esac fi if test lib,dlpreopen = "$linkmode,$pass"; then # Collect and forward deplibs of preopened libtool libs for lib in $dlprefiles; do # Ignore non-libtool-libs dependency_libs= func_resolve_sysroot "$lib" case $lib in *.la) func_source "$func_resolve_sysroot_result" ;; esac # Collect preopened libtool deplibs, except any this library # has declared as weak libs for deplib in $dependency_libs; do func_basename "$deplib" deplib_base=$func_basename_result case " $weak_libs " in *" $deplib_base "*) ;; *) func_append deplibs " $deplib" ;; esac done done libs=$dlprefiles fi if test dlopen = "$pass"; then # Collect dlpreopened libraries save_deplibs=$deplibs deplibs= fi for deplib in $libs; do lib= found=false case $deplib in -mt|-mthreads|-kthread|-Kthread|-pthread|-pthreads|--thread-safe \ |-threads|-fopenmp|-openmp|-mp|-xopenmp|-omp|-qsmp=*) if test prog,link = "$linkmode,$pass"; then compile_deplibs="$deplib $compile_deplibs" finalize_deplibs="$deplib $finalize_deplibs" else func_append compiler_flags " $deplib" if test lib = "$linkmode"; then case "$new_inherited_linker_flags " in *" $deplib "*) ;; * ) func_append new_inherited_linker_flags " $deplib" ;; esac fi fi continue ;; -l*) if test lib != "$linkmode" && test prog != "$linkmode"; then func_warning "'-l' is ignored for archives/objects" continue fi func_stripname '-l' '' "$deplib" name=$func_stripname_result if test lib = "$linkmode"; then searchdirs="$newlib_search_path $lib_search_path $compiler_lib_search_dirs $sys_lib_search_path $shlib_search_path" else searchdirs="$newlib_search_path $lib_search_path $sys_lib_search_path $shlib_search_path" fi for searchdir in $searchdirs; do for search_ext in .la $std_shrext .so .a; do # Search the libtool library lib=$searchdir/lib$name$search_ext if test -f "$lib"; then if test .la = "$search_ext"; then found=: else found=false fi break 2 fi done done if $found; then # deplib is a libtool library # If $allow_libtool_libs_with_static_runtimes && $deplib is a stdlib, # We need to do some special things here, and not later. if test yes = "$allow_libtool_libs_with_static_runtimes"; then case " $predeps $postdeps " in *" $deplib "*) if func_lalib_p "$lib"; then library_names= old_library= func_source "$lib" for l in $old_library $library_names; do ll=$l done if test "X$ll" = "X$old_library"; then # only static version available found=false func_dirname "$lib" "" "." ladir=$func_dirname_result lib=$ladir/$old_library if test prog,link = "$linkmode,$pass"; then compile_deplibs="$deplib $compile_deplibs" finalize_deplibs="$deplib $finalize_deplibs" else deplibs="$deplib $deplibs" test lib = "$linkmode" && newdependency_libs="$deplib $newdependency_libs" fi continue fi fi ;; *) ;; esac fi else # deplib doesn't seem to be a libtool library if test prog,link = "$linkmode,$pass"; then compile_deplibs="$deplib $compile_deplibs" finalize_deplibs="$deplib $finalize_deplibs" else deplibs="$deplib $deplibs" test lib = "$linkmode" && newdependency_libs="$deplib $newdependency_libs" fi continue fi ;; # -l *.ltframework) if test prog,link = "$linkmode,$pass"; then compile_deplibs="$deplib $compile_deplibs" finalize_deplibs="$deplib $finalize_deplibs" else deplibs="$deplib $deplibs" if test lib = "$linkmode"; then case "$new_inherited_linker_flags " in *" $deplib "*) ;; * ) func_append new_inherited_linker_flags " $deplib" ;; esac fi fi continue ;; -L*) case $linkmode in lib) deplibs="$deplib $deplibs" test conv = "$pass" && continue newdependency_libs="$deplib $newdependency_libs" func_stripname '-L' '' "$deplib" func_resolve_sysroot "$func_stripname_result" func_append newlib_search_path " $func_resolve_sysroot_result" ;; prog) if test conv = "$pass"; then deplibs="$deplib $deplibs" continue fi if test scan = "$pass"; then deplibs="$deplib $deplibs" else compile_deplibs="$deplib $compile_deplibs" finalize_deplibs="$deplib $finalize_deplibs" fi func_stripname '-L' '' "$deplib" func_resolve_sysroot "$func_stripname_result" func_append newlib_search_path " $func_resolve_sysroot_result" ;; *) func_warning "'-L' is ignored for archives/objects" ;; esac # linkmode continue ;; # -L -R*) if test link = "$pass"; then func_stripname '-R' '' "$deplib" func_resolve_sysroot "$func_stripname_result" dir=$func_resolve_sysroot_result # Make sure the xrpath contains only unique directories. case "$xrpath " in *" $dir "*) ;; *) func_append xrpath " $dir" ;; esac fi deplibs="$deplib $deplibs" continue ;; *.la) func_resolve_sysroot "$deplib" lib=$func_resolve_sysroot_result ;; *.$libext) if test conv = "$pass"; then deplibs="$deplib $deplibs" continue fi case $linkmode in lib) # Linking convenience modules into shared libraries is allowed, # but linking other static libraries is non-portable. case " $dlpreconveniencelibs " in *" $deplib "*) ;; *) valid_a_lib=false case $deplibs_check_method in match_pattern*) set dummy $deplibs_check_method; shift match_pattern_regex=`expr "$deplibs_check_method" : "$1 \(.*\)"` if eval "\$ECHO \"$deplib\"" 2>/dev/null | $SED 10q \ | $EGREP "$match_pattern_regex" > /dev/null; then valid_a_lib=: fi ;; pass_all) valid_a_lib=: ;; esac if $valid_a_lib; then echo $ECHO "*** Warning: Linking the shared library $output against the" $ECHO "*** static library $deplib is not portable!" deplibs="$deplib $deplibs" else echo $ECHO "*** Warning: Trying to link with static lib archive $deplib." echo "*** I have the capability to make that library automatically link in when" echo "*** you link to this library. But I can only do this if you have a" echo "*** shared version of the library, which you do not appear to have" echo "*** because the file extensions .$libext of this argument makes me believe" echo "*** that it is just a static archive that I should not use here." fi ;; esac continue ;; prog) if test link != "$pass"; then deplibs="$deplib $deplibs" else compile_deplibs="$deplib $compile_deplibs" finalize_deplibs="$deplib $finalize_deplibs" fi continue ;; esac # linkmode ;; # *.$libext *.lo | *.$objext) if test conv = "$pass"; then deplibs="$deplib $deplibs" elif test prog = "$linkmode"; then if test dlpreopen = "$pass" || test yes != "$dlopen_support" || test no = "$build_libtool_libs"; then # If there is no dlopen support or we're linking statically, # we need to preload. func_append newdlprefiles " $deplib" compile_deplibs="$deplib $compile_deplibs" finalize_deplibs="$deplib $finalize_deplibs" else func_append newdlfiles " $deplib" fi fi continue ;; %DEPLIBS%) alldeplibs=: continue ;; esac # case $deplib $found || test -f "$lib" \ || func_fatal_error "cannot find the library '$lib' or unhandled argument '$deplib'" # Check to see that this really is a libtool archive. func_lalib_unsafe_p "$lib" \ || func_fatal_error "'$lib' is not a valid libtool archive" func_dirname "$lib" "" "." ladir=$func_dirname_result dlname= dlopen= dlpreopen= libdir= library_names= old_library= inherited_linker_flags= # If the library was installed with an old release of libtool, # it will not redefine variables installed, or shouldnotlink installed=yes shouldnotlink=no avoidtemprpath= # Read the .la file func_source "$lib" # Convert "-framework foo" to "foo.ltframework" if test -n "$inherited_linker_flags"; then tmp_inherited_linker_flags=`$ECHO "$inherited_linker_flags" | $SED 's/-framework \([^ $]*\)/\1.ltframework/g'` for tmp_inherited_linker_flag in $tmp_inherited_linker_flags; do case " $new_inherited_linker_flags " in *" $tmp_inherited_linker_flag "*) ;; *) func_append new_inherited_linker_flags " $tmp_inherited_linker_flag";; esac done fi dependency_libs=`$ECHO " $dependency_libs" | $SED 's% \([^ $]*\).ltframework% -framework \1%g'` if test lib,link = "$linkmode,$pass" || test prog,scan = "$linkmode,$pass" || { test prog != "$linkmode" && test lib != "$linkmode"; }; then test -n "$dlopen" && func_append dlfiles " $dlopen" test -n "$dlpreopen" && func_append dlprefiles " $dlpreopen" fi if test conv = "$pass"; then # Only check for convenience libraries deplibs="$lib $deplibs" if test -z "$libdir"; then if test -z "$old_library"; then func_fatal_error "cannot find name of link library for '$lib'" fi # It is a libtool convenience library, so add in its objects. func_append convenience " $ladir/$objdir/$old_library" func_append old_convenience " $ladir/$objdir/$old_library" elif test prog != "$linkmode" && test lib != "$linkmode"; then func_fatal_error "'$lib' is not a convenience library" fi tmp_libs= for deplib in $dependency_libs; do deplibs="$deplib $deplibs" if $opt_preserve_dup_deps; then case "$tmp_libs " in *" $deplib "*) func_append specialdeplibs " $deplib" ;; esac fi func_append tmp_libs " $deplib" done continue fi # $pass = conv # Get the name of the library we link against. linklib= if test -n "$old_library" && { test yes = "$prefer_static_libs" || test built,no = "$prefer_static_libs,$installed"; }; then linklib=$old_library else for l in $old_library $library_names; do linklib=$l done fi if test -z "$linklib"; then func_fatal_error "cannot find name of link library for '$lib'" fi # This library was specified with -dlopen. if test dlopen = "$pass"; then test -z "$libdir" \ && func_fatal_error "cannot -dlopen a convenience library: '$lib'" if test -z "$dlname" || test yes != "$dlopen_support" || test no = "$build_libtool_libs" then # If there is no dlname, no dlopen support or we're linking # statically, we need to preload. We also need to preload any # dependent libraries so libltdl's deplib preloader doesn't # bomb out in the load deplibs phase. func_append dlprefiles " $lib $dependency_libs" else func_append newdlfiles " $lib" fi continue fi # $pass = dlopen # We need an absolute path. case $ladir in [\\/]* | [A-Za-z]:[\\/]*) abs_ladir=$ladir ;; *) abs_ladir=`cd "$ladir" && pwd` if test -z "$abs_ladir"; then func_warning "cannot determine absolute directory name of '$ladir'" func_warning "passing it literally to the linker, although it might fail" abs_ladir=$ladir fi ;; esac func_basename "$lib" laname=$func_basename_result # Find the relevant object directory and library name. if test yes = "$installed"; then if test ! -f "$lt_sysroot$libdir/$linklib" && test -f "$abs_ladir/$linklib"; then func_warning "library '$lib' was moved." dir=$ladir absdir=$abs_ladir libdir=$abs_ladir else dir=$lt_sysroot$libdir absdir=$lt_sysroot$libdir fi test yes = "$hardcode_automatic" && avoidtemprpath=yes else if test ! -f "$ladir/$objdir/$linklib" && test -f "$abs_ladir/$linklib"; then dir=$ladir absdir=$abs_ladir # Remove this search path later func_append notinst_path " $abs_ladir" else dir=$ladir/$objdir absdir=$abs_ladir/$objdir # Remove this search path later func_append notinst_path " $abs_ladir" fi fi # $installed = yes func_stripname 'lib' '.la' "$laname" name=$func_stripname_result # This library was specified with -dlpreopen. if test dlpreopen = "$pass"; then if test -z "$libdir" && test prog = "$linkmode"; then func_fatal_error "only libraries may -dlpreopen a convenience library: '$lib'" fi case $host in # special handling for platforms with PE-DLLs. *cygwin* | *mingw* | *cegcc* ) # Linker will automatically link against shared library if both # static and shared are present. Therefore, ensure we extract # symbols from the import library if a shared library is present # (otherwise, the dlopen module name will be incorrect). We do # this by putting the import library name into $newdlprefiles. # We recover the dlopen module name by 'saving' the la file # name in a special purpose variable, and (later) extracting the # dlname from the la file. if test -n "$dlname"; then func_tr_sh "$dir/$linklib" eval "libfile_$func_tr_sh_result=\$abs_ladir/\$laname" func_append newdlprefiles " $dir/$linklib" else func_append newdlprefiles " $dir/$old_library" # Keep a list of preopened convenience libraries to check # that they are being used correctly in the link pass. test -z "$libdir" && \ func_append dlpreconveniencelibs " $dir/$old_library" fi ;; * ) # Prefer using a static library (so that no silly _DYNAMIC symbols # are required to link). if test -n "$old_library"; then func_append newdlprefiles " $dir/$old_library" # Keep a list of preopened convenience libraries to check # that they are being used correctly in the link pass. test -z "$libdir" && \ func_append dlpreconveniencelibs " $dir/$old_library" # Otherwise, use the dlname, so that lt_dlopen finds it. elif test -n "$dlname"; then func_append newdlprefiles " $dir/$dlname" else func_append newdlprefiles " $dir/$linklib" fi ;; esac fi # $pass = dlpreopen if test -z "$libdir"; then # Link the convenience library if test lib = "$linkmode"; then deplibs="$dir/$old_library $deplibs" elif test prog,link = "$linkmode,$pass"; then compile_deplibs="$dir/$old_library $compile_deplibs" finalize_deplibs="$dir/$old_library $finalize_deplibs" else deplibs="$lib $deplibs" # used for prog,scan pass fi continue fi if test prog = "$linkmode" && test link != "$pass"; then func_append newlib_search_path " $ladir" deplibs="$lib $deplibs" linkalldeplibs=false if test no != "$link_all_deplibs" || test -z "$library_names" || test no = "$build_libtool_libs"; then linkalldeplibs=: fi tmp_libs= for deplib in $dependency_libs; do case $deplib in -L*) func_stripname '-L' '' "$deplib" func_resolve_sysroot "$func_stripname_result" func_append newlib_search_path " $func_resolve_sysroot_result" ;; esac # Need to link against all dependency_libs? if $linkalldeplibs; then deplibs="$deplib $deplibs" else # Need to hardcode shared library paths # or/and link against static libraries newdependency_libs="$deplib $newdependency_libs" fi if $opt_preserve_dup_deps; then case "$tmp_libs " in *" $deplib "*) func_append specialdeplibs " $deplib" ;; esac fi func_append tmp_libs " $deplib" done # for deplib continue fi # $linkmode = prog... if test prog,link = "$linkmode,$pass"; then if test -n "$library_names" && { { test no = "$prefer_static_libs" || test built,yes = "$prefer_static_libs,$installed"; } || test -z "$old_library"; }; then # We need to hardcode the library path if test -n "$shlibpath_var" && test -z "$avoidtemprpath"; then # Make sure the rpath contains only unique directories. case $temp_rpath: in *"$absdir:"*) ;; *) func_append temp_rpath "$absdir:" ;; esac fi # Hardcode the library path. # Skip directories that are in the system default run-time # search path. case " $sys_lib_dlsearch_path " in *" $absdir "*) ;; *) case "$compile_rpath " in *" $absdir "*) ;; *) func_append compile_rpath " $absdir" ;; esac ;; esac case " $sys_lib_dlsearch_path " in *" $libdir "*) ;; *) case "$finalize_rpath " in *" $libdir "*) ;; *) func_append finalize_rpath " $libdir" ;; esac ;; esac fi # $linkmode,$pass = prog,link... if $alldeplibs && { test pass_all = "$deplibs_check_method" || { test yes = "$build_libtool_libs" && test -n "$library_names"; }; }; then # We only need to search for static libraries continue fi fi link_static=no # Whether the deplib will be linked statically use_static_libs=$prefer_static_libs if test built = "$use_static_libs" && test yes = "$installed"; then use_static_libs=no fi if test -n "$library_names" && { test no = "$use_static_libs" || test -z "$old_library"; }; then case $host in *cygwin* | *mingw* | *cegcc* | *os2*) # No point in relinking DLLs because paths are not encoded func_append notinst_deplibs " $lib" need_relink=no ;; *) if test no = "$installed"; then func_append notinst_deplibs " $lib" need_relink=yes fi ;; esac # This is a shared library # Warn about portability, can't link against -module's on some # systems (darwin). Don't bleat about dlopened modules though! dlopenmodule= for dlpremoduletest in $dlprefiles; do if test "X$dlpremoduletest" = "X$lib"; then dlopenmodule=$dlpremoduletest break fi done if test -z "$dlopenmodule" && test yes = "$shouldnotlink" && test link = "$pass"; then echo if test prog = "$linkmode"; then $ECHO "*** Warning: Linking the executable $output against the loadable module" else $ECHO "*** Warning: Linking the shared library $output against the loadable module" fi $ECHO "*** $linklib is not portable!" fi if test lib = "$linkmode" && test yes = "$hardcode_into_libs"; then # Hardcode the library path. # Skip directories that are in the system default run-time # search path. case " $sys_lib_dlsearch_path " in *" $absdir "*) ;; *) case "$compile_rpath " in *" $absdir "*) ;; *) func_append compile_rpath " $absdir" ;; esac ;; esac case " $sys_lib_dlsearch_path " in *" $libdir "*) ;; *) case "$finalize_rpath " in *" $libdir "*) ;; *) func_append finalize_rpath " $libdir" ;; esac ;; esac fi if test -n "$old_archive_from_expsyms_cmds"; then # figure out the soname set dummy $library_names shift realname=$1 shift libname=`eval "\\$ECHO \"$libname_spec\""` # use dlname if we got it. it's perfectly good, no? if test -n "$dlname"; then soname=$dlname elif test -n "$soname_spec"; then # bleh windows case $host in *cygwin* | mingw* | *cegcc* | *os2*) func_arith $current - $age major=$func_arith_result versuffix=-$major ;; esac eval soname=\"$soname_spec\" else soname=$realname fi # Make a new name for the extract_expsyms_cmds to use soroot=$soname func_basename "$soroot" soname=$func_basename_result func_stripname 'lib' '.dll' "$soname" newlib=libimp-$func_stripname_result.a # If the library has no export list, then create one now if test -f "$output_objdir/$soname-def"; then : else func_verbose "extracting exported symbol list from '$soname'" func_execute_cmds "$extract_expsyms_cmds" 'exit $?' fi # Create $newlib if test -f "$output_objdir/$newlib"; then :; else func_verbose "generating import library for '$soname'" func_execute_cmds "$old_archive_from_expsyms_cmds" 'exit $?' fi # make sure the library variables are pointing to the new library dir=$output_objdir linklib=$newlib fi # test -n "$old_archive_from_expsyms_cmds" if test prog = "$linkmode" || test relink != "$opt_mode"; then add_shlibpath= add_dir= add= lib_linked=yes case $hardcode_action in immediate | unsupported) if test no = "$hardcode_direct"; then add=$dir/$linklib case $host in *-*-sco3.2v5.0.[024]*) add_dir=-L$dir ;; *-*-sysv4*uw2*) add_dir=-L$dir ;; *-*-sysv5OpenUNIX* | *-*-sysv5UnixWare7.[01].[10]* | \ *-*-unixware7*) add_dir=-L$dir ;; *-*-darwin* ) # if the lib is a (non-dlopened) module then we cannot # link against it, someone is ignoring the earlier warnings if /usr/bin/file -L $add 2> /dev/null | $GREP ": [^:]* bundle" >/dev/null; then if test "X$dlopenmodule" != "X$lib"; then $ECHO "*** Warning: lib $linklib is a module, not a shared library" if test -z "$old_library"; then echo echo "*** And there doesn't seem to be a static archive available" echo "*** The link will probably fail, sorry" else add=$dir/$old_library fi elif test -n "$old_library"; then add=$dir/$old_library fi fi esac elif test no = "$hardcode_minus_L"; then case $host in *-*-sunos*) add_shlibpath=$dir ;; esac add_dir=-L$dir add=-l$name elif test no = "$hardcode_shlibpath_var"; then add_shlibpath=$dir add=-l$name else lib_linked=no fi ;; relink) if test yes = "$hardcode_direct" && test no = "$hardcode_direct_absolute"; then add=$dir/$linklib elif test yes = "$hardcode_minus_L"; then add_dir=-L$absdir # Try looking first in the location we're being installed to. if test -n "$inst_prefix_dir"; then case $libdir in [\\/]*) func_append add_dir " -L$inst_prefix_dir$libdir" ;; esac fi add=-l$name elif test yes = "$hardcode_shlibpath_var"; then add_shlibpath=$dir add=-l$name else lib_linked=no fi ;; *) lib_linked=no ;; esac if test yes != "$lib_linked"; then func_fatal_configuration "unsupported hardcode properties" fi if test -n "$add_shlibpath"; then case :$compile_shlibpath: in *":$add_shlibpath:"*) ;; *) func_append compile_shlibpath "$add_shlibpath:" ;; esac fi if test prog = "$linkmode"; then test -n "$add_dir" && compile_deplibs="$add_dir $compile_deplibs" test -n "$add" && compile_deplibs="$add $compile_deplibs" else test -n "$add_dir" && deplibs="$add_dir $deplibs" test -n "$add" && deplibs="$add $deplibs" if test yes != "$hardcode_direct" && test yes != "$hardcode_minus_L" && test yes = "$hardcode_shlibpath_var"; then case :$finalize_shlibpath: in *":$libdir:"*) ;; *) func_append finalize_shlibpath "$libdir:" ;; esac fi fi fi if test prog = "$linkmode" || test relink = "$opt_mode"; then add_shlibpath= add_dir= add= # Finalize command for both is simple: just hardcode it. if test yes = "$hardcode_direct" && test no = "$hardcode_direct_absolute"; then add=$libdir/$linklib elif test yes = "$hardcode_minus_L"; then add_dir=-L$libdir add=-l$name elif test yes = "$hardcode_shlibpath_var"; then case :$finalize_shlibpath: in *":$libdir:"*) ;; *) func_append finalize_shlibpath "$libdir:" ;; esac add=-l$name elif test yes = "$hardcode_automatic"; then if test -n "$inst_prefix_dir" && test -f "$inst_prefix_dir$libdir/$linklib"; then add=$inst_prefix_dir$libdir/$linklib else add=$libdir/$linklib fi else # We cannot seem to hardcode it, guess we'll fake it. add_dir=-L$libdir # Try looking first in the location we're being installed to. if test -n "$inst_prefix_dir"; then case $libdir in [\\/]*) func_append add_dir " -L$inst_prefix_dir$libdir" ;; esac fi add=-l$name fi if test prog = "$linkmode"; then test -n "$add_dir" && finalize_deplibs="$add_dir $finalize_deplibs" test -n "$add" && finalize_deplibs="$add $finalize_deplibs" else test -n "$add_dir" && deplibs="$add_dir $deplibs" test -n "$add" && deplibs="$add $deplibs" fi fi elif test prog = "$linkmode"; then # Here we assume that one of hardcode_direct or hardcode_minus_L # is not unsupported. This is valid on all known static and # shared platforms. if test unsupported != "$hardcode_direct"; then test -n "$old_library" && linklib=$old_library compile_deplibs="$dir/$linklib $compile_deplibs" finalize_deplibs="$dir/$linklib $finalize_deplibs" else compile_deplibs="-l$name -L$dir $compile_deplibs" finalize_deplibs="-l$name -L$dir $finalize_deplibs" fi elif test yes = "$build_libtool_libs"; then # Not a shared library if test pass_all != "$deplibs_check_method"; then # We're trying link a shared library against a static one # but the system doesn't support it. # Just print a warning and add the library to dependency_libs so # that the program can be linked against the static library. echo $ECHO "*** Warning: This system cannot link to static lib archive $lib." echo "*** I have the capability to make that library automatically link in when" echo "*** you link to this library. But I can only do this if you have a" echo "*** shared version of the library, which you do not appear to have." if test yes = "$module"; then echo "*** But as you try to build a module library, libtool will still create " echo "*** a static module, that should work as long as the dlopening application" echo "*** is linked with the -dlopen flag to resolve symbols at runtime." if test -z "$global_symbol_pipe"; then echo echo "*** However, this would only work if libtool was able to extract symbol" echo "*** lists from a program, using 'nm' or equivalent, but libtool could" echo "*** not find such a program. So, this module is probably useless." echo "*** 'nm' from GNU binutils and a full rebuild may help." fi if test no = "$build_old_libs"; then build_libtool_libs=module build_old_libs=yes else build_libtool_libs=no fi fi else deplibs="$dir/$old_library $deplibs" link_static=yes fi fi # link shared/static library? if test lib = "$linkmode"; then if test -n "$dependency_libs" && { test yes != "$hardcode_into_libs" || test yes = "$build_old_libs" || test yes = "$link_static"; }; then # Extract -R from dependency_libs temp_deplibs= for libdir in $dependency_libs; do case $libdir in -R*) func_stripname '-R' '' "$libdir" temp_xrpath=$func_stripname_result case " $xrpath " in *" $temp_xrpath "*) ;; *) func_append xrpath " $temp_xrpath";; esac;; *) func_append temp_deplibs " $libdir";; esac done dependency_libs=$temp_deplibs fi func_append newlib_search_path " $absdir" # Link against this library test no = "$link_static" && newdependency_libs="$abs_ladir/$laname $newdependency_libs" # ... and its dependency_libs tmp_libs= for deplib in $dependency_libs; do newdependency_libs="$deplib $newdependency_libs" case $deplib in -L*) func_stripname '-L' '' "$deplib" func_resolve_sysroot "$func_stripname_result";; *) func_resolve_sysroot "$deplib" ;; esac if $opt_preserve_dup_deps; then case "$tmp_libs " in *" $func_resolve_sysroot_result "*) func_append specialdeplibs " $func_resolve_sysroot_result" ;; esac fi func_append tmp_libs " $func_resolve_sysroot_result" done if test no != "$link_all_deplibs"; then # Add the search paths of all dependency libraries for deplib in $dependency_libs; do path= case $deplib in -L*) path=$deplib ;; *.la) func_resolve_sysroot "$deplib" deplib=$func_resolve_sysroot_result func_dirname "$deplib" "" "." dir=$func_dirname_result # We need an absolute path. case $dir in [\\/]* | [A-Za-z]:[\\/]*) absdir=$dir ;; *) absdir=`cd "$dir" && pwd` if test -z "$absdir"; then func_warning "cannot determine absolute directory name of '$dir'" absdir=$dir fi ;; esac if $GREP "^installed=no" $deplib > /dev/null; then case $host in *-*-darwin*) depdepl= eval deplibrary_names=`$SED -n -e 's/^library_names=\(.*\)$/\1/p' $deplib` if test -n "$deplibrary_names"; then for tmp in $deplibrary_names; do depdepl=$tmp done if test -f "$absdir/$objdir/$depdepl"; then depdepl=$absdir/$objdir/$depdepl darwin_install_name=`$OTOOL -L $depdepl | awk '{if (NR == 2) {print $1;exit}}'` if test -z "$darwin_install_name"; then darwin_install_name=`$OTOOL64 -L $depdepl | awk '{if (NR == 2) {print $1;exit}}'` fi func_append compiler_flags " $wl-dylib_file $wl$darwin_install_name:$depdepl" func_append linker_flags " -dylib_file $darwin_install_name:$depdepl" path= fi fi ;; *) path=-L$absdir/$objdir ;; esac else eval libdir=`$SED -n -e 's/^libdir=\(.*\)$/\1/p' $deplib` test -z "$libdir" && \ func_fatal_error "'$deplib' is not a valid libtool archive" test "$absdir" != "$libdir" && \ func_warning "'$deplib' seems to be moved" path=-L$absdir fi ;; esac case " $deplibs " in *" $path "*) ;; *) deplibs="$path $deplibs" ;; esac done fi # link_all_deplibs != no fi # linkmode = lib done # for deplib in $libs if test link = "$pass"; then if test prog = "$linkmode"; then compile_deplibs="$new_inherited_linker_flags $compile_deplibs" finalize_deplibs="$new_inherited_linker_flags $finalize_deplibs" else compiler_flags="$compiler_flags "`$ECHO " $new_inherited_linker_flags" | $SED 's% \([^ $]*\).ltframework% -framework \1%g'` fi fi dependency_libs=$newdependency_libs if test dlpreopen = "$pass"; then # Link the dlpreopened libraries before other libraries for deplib in $save_deplibs; do deplibs="$deplib $deplibs" done fi if test dlopen != "$pass"; then test conv = "$pass" || { # Make sure lib_search_path contains only unique directories. lib_search_path= for dir in $newlib_search_path; do case "$lib_search_path " in *" $dir "*) ;; *) func_append lib_search_path " $dir" ;; esac done newlib_search_path= } if test prog,link = "$linkmode,$pass"; then vars="compile_deplibs finalize_deplibs" else vars=deplibs fi for var in $vars dependency_libs; do # Add libraries to $var in reverse order eval tmp_libs=\"\$$var\" new_libs= for deplib in $tmp_libs; do # FIXME: Pedantically, this is the right thing to do, so # that some nasty dependency loop isn't accidentally # broken: #new_libs="$deplib $new_libs" # Pragmatically, this seems to cause very few problems in # practice: case $deplib in -L*) new_libs="$deplib $new_libs" ;; -R*) ;; *) # And here is the reason: when a library appears more # than once as an explicit dependence of a library, or # is implicitly linked in more than once by the # compiler, it is considered special, and multiple # occurrences thereof are not removed. Compare this # with having the same library being listed as a # dependency of multiple other libraries: in this case, # we know (pedantically, we assume) the library does not # need to be listed more than once, so we keep only the # last copy. This is not always right, but it is rare # enough that we require users that really mean to play # such unportable linking tricks to link the library # using -Wl,-lname, so that libtool does not consider it # for duplicate removal. case " $specialdeplibs " in *" $deplib "*) new_libs="$deplib $new_libs" ;; *) case " $new_libs " in *" $deplib "*) ;; *) new_libs="$deplib $new_libs" ;; esac ;; esac ;; esac done tmp_libs= for deplib in $new_libs; do case $deplib in -L*) case " $tmp_libs " in *" $deplib "*) ;; *) func_append tmp_libs " $deplib" ;; esac ;; *) func_append tmp_libs " $deplib" ;; esac done eval $var=\"$tmp_libs\" done # for var fi # Add Sun CC postdeps if required: test CXX = "$tagname" && { case $host_os in linux*) case `$CC -V 2>&1 | sed 5q` in *Sun\ C*) # Sun C++ 5.9 func_suncc_cstd_abi if test no != "$suncc_use_cstd_abi"; then func_append postdeps ' -library=Cstd -library=Crun' fi ;; esac ;; solaris*) func_cc_basename "$CC" case $func_cc_basename_result in CC* | sunCC*) func_suncc_cstd_abi if test no != "$suncc_use_cstd_abi"; then func_append postdeps ' -library=Cstd -library=Crun' fi ;; esac ;; esac } # Last step: remove runtime libs from dependency_libs # (they stay in deplibs) tmp_libs= for i in $dependency_libs; do case " $predeps $postdeps $compiler_lib_search_path " in *" $i "*) i= ;; esac if test -n "$i"; then func_append tmp_libs " $i" fi done dependency_libs=$tmp_libs done # for pass if test prog = "$linkmode"; then dlfiles=$newdlfiles fi if test prog = "$linkmode" || test lib = "$linkmode"; then dlprefiles=$newdlprefiles fi case $linkmode in oldlib) if test -n "$dlfiles$dlprefiles" || test no != "$dlself"; then func_warning "'-dlopen' is ignored for archives" fi case " $deplibs" in *\ -l* | *\ -L*) func_warning "'-l' and '-L' are ignored for archives" ;; esac test -n "$rpath" && \ func_warning "'-rpath' is ignored for archives" test -n "$xrpath" && \ func_warning "'-R' is ignored for archives" test -n "$vinfo" && \ func_warning "'-version-info/-version-number' is ignored for archives" test -n "$release" && \ func_warning "'-release' is ignored for archives" test -n "$export_symbols$export_symbols_regex" && \ func_warning "'-export-symbols' is ignored for archives" # Now set the variables for building old libraries. build_libtool_libs=no oldlibs=$output func_append objs "$old_deplibs" ;; lib) # Make sure we only generate libraries of the form 'libNAME.la'. case $outputname in lib*) func_stripname 'lib' '.la' "$outputname" name=$func_stripname_result eval shared_ext=\"$shrext_cmds\" eval libname=\"$libname_spec\" ;; *) test no = "$module" \ && func_fatal_help "libtool library '$output' must begin with 'lib'" if test no != "$need_lib_prefix"; then # Add the "lib" prefix for modules if required func_stripname '' '.la' "$outputname" name=$func_stripname_result eval shared_ext=\"$shrext_cmds\" eval libname=\"$libname_spec\" else func_stripname '' '.la' "$outputname" libname=$func_stripname_result fi ;; esac if test -n "$objs"; then if test pass_all != "$deplibs_check_method"; then func_fatal_error "cannot build libtool library '$output' from non-libtool objects on this host:$objs" else echo $ECHO "*** Warning: Linking the shared library $output against the non-libtool" $ECHO "*** objects $objs is not portable!" func_append libobjs " $objs" fi fi test no = "$dlself" \ || func_warning "'-dlopen self' is ignored for libtool libraries" set dummy $rpath shift test 1 -lt "$#" \ && func_warning "ignoring multiple '-rpath's for a libtool library" install_libdir=$1 oldlibs= if test -z "$rpath"; then if test yes = "$build_libtool_libs"; then # Building a libtool convenience library. # Some compilers have problems with a '.al' extension so # convenience libraries should have the same extension an # archive normally would. oldlibs="$output_objdir/$libname.$libext $oldlibs" build_libtool_libs=convenience build_old_libs=yes fi test -n "$vinfo" && \ func_warning "'-version-info/-version-number' is ignored for convenience libraries" test -n "$release" && \ func_warning "'-release' is ignored for convenience libraries" else # Parse the version information argument. save_ifs=$IFS; IFS=: set dummy $vinfo 0 0 0 shift IFS=$save_ifs test -n "$7" && \ func_fatal_help "too many parameters to '-version-info'" # convert absolute version numbers to libtool ages # this retains compatibility with .la files and attempts # to make the code below a bit more comprehensible case $vinfo_number in yes) number_major=$1 number_minor=$2 number_revision=$3 # # There are really only two kinds -- those that # use the current revision as the major version # and those that subtract age and use age as # a minor version. But, then there is irix # that has an extra 1 added just for fun # case $version_type in # correct linux to gnu/linux during the next big refactor darwin|freebsd-elf|linux|osf|windows|none) func_arith $number_major + $number_minor current=$func_arith_result age=$number_minor revision=$number_revision ;; freebsd-aout|qnx|sunos) current=$number_major revision=$number_minor age=0 ;; irix|nonstopux) func_arith $number_major + $number_minor current=$func_arith_result age=$number_minor revision=$number_minor lt_irix_increment=no ;; esac ;; no) current=$1 revision=$2 age=$3 ;; esac # Check that each of the things are valid numbers. case $current in 0|[1-9]|[1-9][0-9]|[1-9][0-9][0-9]|[1-9][0-9][0-9][0-9]|[1-9][0-9][0-9][0-9][0-9]) ;; *) func_error "CURRENT '$current' must be a nonnegative integer" func_fatal_error "'$vinfo' is not valid version information" ;; esac case $revision in 0|[1-9]|[1-9][0-9]|[1-9][0-9][0-9]|[1-9][0-9][0-9][0-9]|[1-9][0-9][0-9][0-9][0-9]) ;; *) func_error "REVISION '$revision' must be a nonnegative integer" func_fatal_error "'$vinfo' is not valid version information" ;; esac case $age in 0|[1-9]|[1-9][0-9]|[1-9][0-9][0-9]|[1-9][0-9][0-9][0-9]|[1-9][0-9][0-9][0-9][0-9]) ;; *) func_error "AGE '$age' must be a nonnegative integer" func_fatal_error "'$vinfo' is not valid version information" ;; esac if test "$age" -gt "$current"; then func_error "AGE '$age' is greater than the current interface number '$current'" func_fatal_error "'$vinfo' is not valid version information" fi # Calculate the version variables. major= versuffix= verstring= case $version_type in none) ;; darwin) # Like Linux, but with the current version available in # verstring for coding it into the library header func_arith $current - $age major=.$func_arith_result versuffix=$major.$age.$revision # Darwin ld doesn't like 0 for these options... func_arith $current + 1 minor_current=$func_arith_result xlcverstring="$wl-compatibility_version $wl$minor_current $wl-current_version $wl$minor_current.$revision" verstring="-compatibility_version $minor_current -current_version $minor_current.$revision" # On Darwin other compilers case $CC in nagfor*) verstring="$wl-compatibility_version $wl$minor_current $wl-current_version $wl$minor_current.$revision" ;; *) verstring="-compatibility_version $minor_current -current_version $minor_current.$revision" ;; esac ;; freebsd-aout) major=.$current versuffix=.$current.$revision ;; freebsd-elf) func_arith $current - $age major=.$func_arith_result versuffix=$major.$age.$revision ;; irix | nonstopux) if test no = "$lt_irix_increment"; then func_arith $current - $age else func_arith $current - $age + 1 fi major=$func_arith_result case $version_type in nonstopux) verstring_prefix=nonstopux ;; *) verstring_prefix=sgi ;; esac verstring=$verstring_prefix$major.$revision # Add in all the interfaces that we are compatible with. loop=$revision while test 0 -ne "$loop"; do func_arith $revision - $loop iface=$func_arith_result func_arith $loop - 1 loop=$func_arith_result verstring=$verstring_prefix$major.$iface:$verstring done # Before this point, $major must not contain '.'. major=.$major versuffix=$major.$revision ;; linux) # correct to gnu/linux during the next big refactor func_arith $current - $age major=.$func_arith_result versuffix=$major.$age.$revision ;; osf) func_arith $current - $age major=.$func_arith_result versuffix=.$current.$age.$revision verstring=$current.$age.$revision # Add in all the interfaces that we are compatible with. loop=$age while test 0 -ne "$loop"; do func_arith $current - $loop iface=$func_arith_result func_arith $loop - 1 loop=$func_arith_result verstring=$verstring:$iface.0 done # Make executables depend on our current version. func_append verstring ":$current.0" ;; qnx) major=.$current versuffix=.$current ;; sco) major=.$current versuffix=.$current ;; sunos) major=.$current versuffix=.$current.$revision ;; windows) # Use '-' rather than '.', since we only want one # extension on DOS 8.3 file systems. func_arith $current - $age major=$func_arith_result versuffix=-$major ;; *) func_fatal_configuration "unknown library version type '$version_type'" ;; esac # Clear the version info if we defaulted, and they specified a release. if test -z "$vinfo" && test -n "$release"; then major= case $version_type in darwin) # we can't check for "0.0" in archive_cmds due to quoting # problems, so we reset it completely verstring= ;; *) verstring=0.0 ;; esac if test no = "$need_version"; then versuffix= else versuffix=.0.0 fi fi # Remove version info from name if versioning should be avoided if test yes,no = "$avoid_version,$need_version"; then major= versuffix= verstring= fi # Check to see if the archive will have undefined symbols. if test yes = "$allow_undefined"; then if test unsupported = "$allow_undefined_flag"; then if test yes = "$build_old_libs"; then func_warning "undefined symbols not allowed in $host shared libraries; building static only" build_libtool_libs=no else func_fatal_error "can't build $host shared library unless -no-undefined is specified" fi fi else # Don't allow undefined symbols. allow_undefined_flag=$no_undefined_flag fi fi func_generate_dlsyms "$libname" "$libname" : func_append libobjs " $symfileobj" test " " = "$libobjs" && libobjs= if test relink != "$opt_mode"; then # Remove our outputs, but don't remove object files since they # may have been created when compiling PIC objects. removelist= tempremovelist=`$ECHO "$output_objdir/*"` for p in $tempremovelist; do case $p in *.$objext | *.gcno) ;; $output_objdir/$outputname | $output_objdir/$libname.* | $output_objdir/$libname$release.*) if test -n "$precious_files_regex"; then if $ECHO "$p" | $EGREP -e "$precious_files_regex" >/dev/null 2>&1 then continue fi fi func_append removelist " $p" ;; *) ;; esac done test -n "$removelist" && \ func_show_eval "${RM}r \$removelist" fi # Now set the variables for building old libraries. if test yes = "$build_old_libs" && test convenience != "$build_libtool_libs"; then func_append oldlibs " $output_objdir/$libname.$libext" # Transform .lo files to .o files. oldobjs="$objs "`$ECHO "$libobjs" | $SP2NL | $SED "/\.$libext$/d; $lo2o" | $NL2SP` fi # Eliminate all temporary directories. #for path in $notinst_path; do # lib_search_path=`$ECHO "$lib_search_path " | $SED "s% $path % %g"` # deplibs=`$ECHO "$deplibs " | $SED "s% -L$path % %g"` # dependency_libs=`$ECHO "$dependency_libs " | $SED "s% -L$path % %g"` #done if test -n "$xrpath"; then # If the user specified any rpath flags, then add them. temp_xrpath= for libdir in $xrpath; do func_replace_sysroot "$libdir" func_append temp_xrpath " -R$func_replace_sysroot_result" case "$finalize_rpath " in *" $libdir "*) ;; *) func_append finalize_rpath " $libdir" ;; esac done if test yes != "$hardcode_into_libs" || test yes = "$build_old_libs"; then dependency_libs="$temp_xrpath $dependency_libs" fi fi # Make sure dlfiles contains only unique files that won't be dlpreopened old_dlfiles=$dlfiles dlfiles= for lib in $old_dlfiles; do case " $dlprefiles $dlfiles " in *" $lib "*) ;; *) func_append dlfiles " $lib" ;; esac done # Make sure dlprefiles contains only unique files old_dlprefiles=$dlprefiles dlprefiles= for lib in $old_dlprefiles; do case "$dlprefiles " in *" $lib "*) ;; *) func_append dlprefiles " $lib" ;; esac done if test yes = "$build_libtool_libs"; then if test -n "$rpath"; then case $host in *-*-cygwin* | *-*-mingw* | *-*-pw32* | *-*-os2* | *-*-beos* | *-cegcc* | *-*-haiku*) # these systems don't actually have a c library (as such)! ;; *-*-rhapsody* | *-*-darwin1.[012]) # Rhapsody C library is in the System framework func_append deplibs " System.ltframework" ;; *-*-netbsd*) # Don't link with libc until the a.out ld.so is fixed. ;; *-*-openbsd* | *-*-freebsd* | *-*-dragonfly*) # Do not include libc due to us having libc/libc_r. ;; *-*-sco3.2v5* | *-*-sco5v6*) # Causes problems with __ctype ;; *-*-sysv4.2uw2* | *-*-sysv5* | *-*-unixware* | *-*-OpenUNIX*) # Compiler inserts libc in the correct place for threads to work ;; *) # Add libc to deplibs on all other systems if necessary. if test yes = "$build_libtool_need_lc"; then func_append deplibs " -lc" fi ;; esac fi # Transform deplibs into only deplibs that can be linked in shared. name_save=$name libname_save=$libname release_save=$release versuffix_save=$versuffix major_save=$major # I'm not sure if I'm treating the release correctly. I think # release should show up in the -l (ie -lgmp5) so we don't want to # add it in twice. Is that correct? release= versuffix= major= newdeplibs= droppeddeps=no case $deplibs_check_method in pass_all) # Don't check for shared/static. Everything works. # This might be a little naive. We might want to check # whether the library exists or not. But this is on # osf3 & osf4 and I'm not really sure... Just # implementing what was already the behavior. newdeplibs=$deplibs ;; test_compile) # This code stresses the "libraries are programs" paradigm to its # limits. Maybe even breaks it. We compile a program, linking it # against the deplibs as a proxy for the library. Then we can check # whether they linked in statically or dynamically with ldd. $opt_dry_run || $RM conftest.c cat > conftest.c </dev/null` $nocaseglob else potential_libs=`ls $i/$libnameglob[.-]* 2>/dev/null` fi for potent_lib in $potential_libs; do # Follow soft links. if ls -lLd "$potent_lib" 2>/dev/null | $GREP " -> " >/dev/null; then continue fi # The statement above tries to avoid entering an # endless loop below, in case of cyclic links. # We might still enter an endless loop, since a link # loop can be closed while we follow links, # but so what? potlib=$potent_lib while test -h "$potlib" 2>/dev/null; do potliblink=`ls -ld $potlib | $SED 's/.* -> //'` case $potliblink in [\\/]* | [A-Za-z]:[\\/]*) potlib=$potliblink;; *) potlib=`$ECHO "$potlib" | $SED 's|[^/]*$||'`"$potliblink";; esac done if eval $file_magic_cmd \"\$potlib\" 2>/dev/null | $SED -e 10q | $EGREP "$file_magic_regex" > /dev/null; then func_append newdeplibs " $a_deplib" a_deplib= break 2 fi done done fi if test -n "$a_deplib"; then droppeddeps=yes echo $ECHO "*** Warning: linker path does not have real file for library $a_deplib." echo "*** I have the capability to make that library automatically link in when" echo "*** you link to this library. But I can only do this if you have a" echo "*** shared version of the library, which you do not appear to have" echo "*** because I did check the linker path looking for a file starting" if test -z "$potlib"; then $ECHO "*** with $libname but no candidates were found. (...for file magic test)" else $ECHO "*** with $libname and none of the candidates passed a file format test" $ECHO "*** using a file magic. Last file checked: $potlib" fi fi ;; *) # Add a -L argument. func_append newdeplibs " $a_deplib" ;; esac done # Gone through all deplibs. ;; match_pattern*) set dummy $deplibs_check_method; shift match_pattern_regex=`expr "$deplibs_check_method" : "$1 \(.*\)"` for a_deplib in $deplibs; do case $a_deplib in -l*) func_stripname -l '' "$a_deplib" name=$func_stripname_result if test yes = "$allow_libtool_libs_with_static_runtimes"; then case " $predeps $postdeps " in *" $a_deplib "*) func_append newdeplibs " $a_deplib" a_deplib= ;; esac fi if test -n "$a_deplib"; then libname=`eval "\\$ECHO \"$libname_spec\""` for i in $lib_search_path $sys_lib_search_path $shlib_search_path; do potential_libs=`ls $i/$libname[.-]* 2>/dev/null` for potent_lib in $potential_libs; do potlib=$potent_lib # see symlink-check above in file_magic test if eval "\$ECHO \"$potent_lib\"" 2>/dev/null | $SED 10q | \ $EGREP "$match_pattern_regex" > /dev/null; then func_append newdeplibs " $a_deplib" a_deplib= break 2 fi done done fi if test -n "$a_deplib"; then droppeddeps=yes echo $ECHO "*** Warning: linker path does not have real file for library $a_deplib." echo "*** I have the capability to make that library automatically link in when" echo "*** you link to this library. But I can only do this if you have a" echo "*** shared version of the library, which you do not appear to have" echo "*** because I did check the linker path looking for a file starting" if test -z "$potlib"; then $ECHO "*** with $libname but no candidates were found. (...for regex pattern test)" else $ECHO "*** with $libname and none of the candidates passed a file format test" $ECHO "*** using a regex pattern. Last file checked: $potlib" fi fi ;; *) # Add a -L argument. func_append newdeplibs " $a_deplib" ;; esac done # Gone through all deplibs. ;; none | unknown | *) newdeplibs= tmp_deplibs=`$ECHO " $deplibs" | $SED 's/ -lc$//; s/ -[LR][^ ]*//g'` if test yes = "$allow_libtool_libs_with_static_runtimes"; then for i in $predeps $postdeps; do # can't use Xsed below, because $i might contain '/' tmp_deplibs=`$ECHO " $tmp_deplibs" | $SED "s|$i||"` done fi case $tmp_deplibs in *[!\ \ ]*) echo if test none = "$deplibs_check_method"; then echo "*** Warning: inter-library dependencies are not supported in this platform." else echo "*** Warning: inter-library dependencies are not known to be supported." fi echo "*** All declared inter-library dependencies are being dropped." droppeddeps=yes ;; esac ;; esac versuffix=$versuffix_save major=$major_save release=$release_save libname=$libname_save name=$name_save case $host in *-*-rhapsody* | *-*-darwin1.[012]) # On Rhapsody replace the C library with the System framework newdeplibs=`$ECHO " $newdeplibs" | $SED 's/ -lc / System.ltframework /'` ;; esac if test yes = "$droppeddeps"; then if test yes = "$module"; then echo echo "*** Warning: libtool could not satisfy all declared inter-library" $ECHO "*** dependencies of module $libname. Therefore, libtool will create" echo "*** a static module, that should work as long as the dlopening" echo "*** application is linked with the -dlopen flag." if test -z "$global_symbol_pipe"; then echo echo "*** However, this would only work if libtool was able to extract symbol" echo "*** lists from a program, using 'nm' or equivalent, but libtool could" echo "*** not find such a program. So, this module is probably useless." echo "*** 'nm' from GNU binutils and a full rebuild may help." fi if test no = "$build_old_libs"; then oldlibs=$output_objdir/$libname.$libext build_libtool_libs=module build_old_libs=yes else build_libtool_libs=no fi else echo "*** The inter-library dependencies that have been dropped here will be" echo "*** automatically added whenever a program is linked with this library" echo "*** or is declared to -dlopen it." if test no = "$allow_undefined"; then echo echo "*** Since this library must not contain undefined symbols," echo "*** because either the platform does not support them or" echo "*** it was explicitly requested with -no-undefined," echo "*** libtool will only create a static version of it." if test no = "$build_old_libs"; then oldlibs=$output_objdir/$libname.$libext build_libtool_libs=module build_old_libs=yes else build_libtool_libs=no fi fi fi fi # Done checking deplibs! deplibs=$newdeplibs fi # Time to change all our "foo.ltframework" stuff back to "-framework foo" case $host in *-*-darwin*) newdeplibs=`$ECHO " $newdeplibs" | $SED 's% \([^ $]*\).ltframework% -framework \1%g'` new_inherited_linker_flags=`$ECHO " $new_inherited_linker_flags" | $SED 's% \([^ $]*\).ltframework% -framework \1%g'` deplibs=`$ECHO " $deplibs" | $SED 's% \([^ $]*\).ltframework% -framework \1%g'` ;; esac # move library search paths that coincide with paths to not yet # installed libraries to the beginning of the library search list new_libs= for path in $notinst_path; do case " $new_libs " in *" -L$path/$objdir "*) ;; *) case " $deplibs " in *" -L$path/$objdir "*) func_append new_libs " -L$path/$objdir" ;; esac ;; esac done for deplib in $deplibs; do case $deplib in -L*) case " $new_libs " in *" $deplib "*) ;; *) func_append new_libs " $deplib" ;; esac ;; *) func_append new_libs " $deplib" ;; esac done deplibs=$new_libs # All the library-specific variables (install_libdir is set above). library_names= old_library= dlname= # Test again, we may have decided not to build it any more if test yes = "$build_libtool_libs"; then # Remove $wl instances when linking with ld. # FIXME: should test the right _cmds variable. case $archive_cmds in *\$LD\ *) wl= ;; esac if test yes = "$hardcode_into_libs"; then # Hardcode the library paths hardcode_libdirs= dep_rpath= rpath=$finalize_rpath test relink = "$opt_mode" || rpath=$compile_rpath$rpath for libdir in $rpath; do if test -n "$hardcode_libdir_flag_spec"; then if test -n "$hardcode_libdir_separator"; then func_replace_sysroot "$libdir" libdir=$func_replace_sysroot_result if test -z "$hardcode_libdirs"; then hardcode_libdirs=$libdir else # Just accumulate the unique libdirs. case $hardcode_libdir_separator$hardcode_libdirs$hardcode_libdir_separator in *"$hardcode_libdir_separator$libdir$hardcode_libdir_separator"*) ;; *) func_append hardcode_libdirs "$hardcode_libdir_separator$libdir" ;; esac fi else eval flag=\"$hardcode_libdir_flag_spec\" func_append dep_rpath " $flag" fi elif test -n "$runpath_var"; then case "$perm_rpath " in *" $libdir "*) ;; *) func_append perm_rpath " $libdir" ;; esac fi done # Substitute the hardcoded libdirs into the rpath. if test -n "$hardcode_libdir_separator" && test -n "$hardcode_libdirs"; then libdir=$hardcode_libdirs eval "dep_rpath=\"$hardcode_libdir_flag_spec\"" fi if test -n "$runpath_var" && test -n "$perm_rpath"; then # We should set the runpath_var. rpath= for dir in $perm_rpath; do func_append rpath "$dir:" done eval "$runpath_var='$rpath\$$runpath_var'; export $runpath_var" fi test -n "$dep_rpath" && deplibs="$dep_rpath $deplibs" fi shlibpath=$finalize_shlibpath test relink = "$opt_mode" || shlibpath=$compile_shlibpath$shlibpath if test -n "$shlibpath"; then eval "$shlibpath_var='$shlibpath\$$shlibpath_var'; export $shlibpath_var" fi # Get the real and link names of the library. eval shared_ext=\"$shrext_cmds\" eval library_names=\"$library_names_spec\" set dummy $library_names shift realname=$1 shift if test -n "$soname_spec"; then eval soname=\"$soname_spec\" else soname=$realname fi if test -z "$dlname"; then dlname=$soname fi lib=$output_objdir/$realname linknames= for link do func_append linknames " $link" done # Use standard objects if they are pic test -z "$pic_flag" && libobjs=`$ECHO "$libobjs" | $SP2NL | $SED "$lo2o" | $NL2SP` test "X$libobjs" = "X " && libobjs= delfiles= if test -n "$export_symbols" && test -n "$include_expsyms"; then $opt_dry_run || cp "$export_symbols" "$output_objdir/$libname.uexp" export_symbols=$output_objdir/$libname.uexp func_append delfiles " $export_symbols" fi orig_export_symbols= case $host_os in cygwin* | mingw* | cegcc*) if test -n "$export_symbols" && test -z "$export_symbols_regex"; then # exporting using user supplied symfile func_dll_def_p "$export_symbols" || { # and it's NOT already a .def file. Must figure out # which of the given symbols are data symbols and tag # them as such. So, trigger use of export_symbols_cmds. # export_symbols gets reassigned inside the "prepare # the list of exported symbols" if statement, so the # include_expsyms logic still works. orig_export_symbols=$export_symbols export_symbols= always_export_symbols=yes } fi ;; esac # Prepare the list of exported symbols if test -z "$export_symbols"; then if test yes = "$always_export_symbols" || test -n "$export_symbols_regex"; then func_verbose "generating symbol list for '$libname.la'" export_symbols=$output_objdir/$libname.exp $opt_dry_run || $RM $export_symbols cmds=$export_symbols_cmds save_ifs=$IFS; IFS='~' for cmd1 in $cmds; do IFS=$save_ifs # Take the normal branch if the nm_file_list_spec branch # doesn't work or if tool conversion is not needed. case $nm_file_list_spec~$to_tool_file_cmd in *~func_convert_file_noop | *~func_convert_file_msys_to_w32 | ~*) try_normal_branch=yes eval cmd=\"$cmd1\" func_len " $cmd" len=$func_len_result ;; *) try_normal_branch=no ;; esac if test yes = "$try_normal_branch" \ && { test "$len" -lt "$max_cmd_len" \ || test "$max_cmd_len" -le -1; } then func_show_eval "$cmd" 'exit $?' skipped_export=false elif test -n "$nm_file_list_spec"; then func_basename "$output" output_la=$func_basename_result save_libobjs=$libobjs save_output=$output output=$output_objdir/$output_la.nm func_to_tool_file "$output" libobjs=$nm_file_list_spec$func_to_tool_file_result func_append delfiles " $output" func_verbose "creating $NM input file list: $output" for obj in $save_libobjs; do func_to_tool_file "$obj" $ECHO "$func_to_tool_file_result" done > "$output" eval cmd=\"$cmd1\" func_show_eval "$cmd" 'exit $?' output=$save_output libobjs=$save_libobjs skipped_export=false else # The command line is too long to execute in one step. func_verbose "using reloadable object file for export list..." skipped_export=: # Break out early, otherwise skipped_export may be # set to false by a later but shorter cmd. break fi done IFS=$save_ifs if test -n "$export_symbols_regex" && test : != "$skipped_export"; then func_show_eval '$EGREP -e "$export_symbols_regex" "$export_symbols" > "${export_symbols}T"' func_show_eval '$MV "${export_symbols}T" "$export_symbols"' fi fi fi if test -n "$export_symbols" && test -n "$include_expsyms"; then tmp_export_symbols=$export_symbols test -n "$orig_export_symbols" && tmp_export_symbols=$orig_export_symbols $opt_dry_run || eval '$ECHO "$include_expsyms" | $SP2NL >> "$tmp_export_symbols"' fi if test : != "$skipped_export" && test -n "$orig_export_symbols"; then # The given exports_symbols file has to be filtered, so filter it. func_verbose "filter symbol list for '$libname.la' to tag DATA exports" # FIXME: $output_objdir/$libname.filter potentially contains lots of # 's' commands, which not all seds can handle. GNU sed should be fine # though. Also, the filter scales superlinearly with the number of # global variables. join(1) would be nice here, but unfortunately # isn't a blessed tool. $opt_dry_run || $SED -e '/[ ,]DATA/!d;s,\(.*\)\([ \,].*\),s|^\1$|\1\2|,' < $export_symbols > $output_objdir/$libname.filter func_append delfiles " $export_symbols $output_objdir/$libname.filter" export_symbols=$output_objdir/$libname.def $opt_dry_run || $SED -f $output_objdir/$libname.filter < $orig_export_symbols > $export_symbols fi tmp_deplibs= for test_deplib in $deplibs; do case " $convenience " in *" $test_deplib "*) ;; *) func_append tmp_deplibs " $test_deplib" ;; esac done deplibs=$tmp_deplibs if test -n "$convenience"; then if test -n "$whole_archive_flag_spec" && test yes = "$compiler_needs_object" && test -z "$libobjs"; then # extract the archives, so we have objects to list. # TODO: could optimize this to just extract one archive. whole_archive_flag_spec= fi if test -n "$whole_archive_flag_spec"; then save_libobjs=$libobjs eval libobjs=\"\$libobjs $whole_archive_flag_spec\" test "X$libobjs" = "X " && libobjs= else gentop=$output_objdir/${outputname}x func_append generated " $gentop" func_extract_archives $gentop $convenience func_append libobjs " $func_extract_archives_result" test "X$libobjs" = "X " && libobjs= fi fi if test yes = "$thread_safe" && test -n "$thread_safe_flag_spec"; then eval flag=\"$thread_safe_flag_spec\" func_append linker_flags " $flag" fi # Make a backup of the uninstalled library when relinking if test relink = "$opt_mode"; then $opt_dry_run || eval '(cd $output_objdir && $RM ${realname}U && $MV $realname ${realname}U)' || exit $? fi # Do each of the archive commands. if test yes = "$module" && test -n "$module_cmds"; then if test -n "$export_symbols" && test -n "$module_expsym_cmds"; then eval test_cmds=\"$module_expsym_cmds\" cmds=$module_expsym_cmds else eval test_cmds=\"$module_cmds\" cmds=$module_cmds fi else if test -n "$export_symbols" && test -n "$archive_expsym_cmds"; then eval test_cmds=\"$archive_expsym_cmds\" cmds=$archive_expsym_cmds else eval test_cmds=\"$archive_cmds\" cmds=$archive_cmds fi fi if test : != "$skipped_export" && func_len " $test_cmds" && len=$func_len_result && test "$len" -lt "$max_cmd_len" || test "$max_cmd_len" -le -1; then : else # The command line is too long to link in one step, link piecewise # or, if using GNU ld and skipped_export is not :, use a linker # script. # Save the value of $output and $libobjs because we want to # use them later. If we have whole_archive_flag_spec, we # want to use save_libobjs as it was before # whole_archive_flag_spec was expanded, because we can't # assume the linker understands whole_archive_flag_spec. # This may have to be revisited, in case too many # convenience libraries get linked in and end up exceeding # the spec. if test -z "$convenience" || test -z "$whole_archive_flag_spec"; then save_libobjs=$libobjs fi save_output=$output func_basename "$output" output_la=$func_basename_result # Clear the reloadable object creation command queue and # initialize k to one. test_cmds= concat_cmds= objlist= last_robj= k=1 if test -n "$save_libobjs" && test : != "$skipped_export" && test yes = "$with_gnu_ld"; then output=$output_objdir/$output_la.lnkscript func_verbose "creating GNU ld script: $output" echo 'INPUT (' > $output for obj in $save_libobjs do func_to_tool_file "$obj" $ECHO "$func_to_tool_file_result" >> $output done echo ')' >> $output func_append delfiles " $output" func_to_tool_file "$output" output=$func_to_tool_file_result elif test -n "$save_libobjs" && test : != "$skipped_export" && test -n "$file_list_spec"; then output=$output_objdir/$output_la.lnk func_verbose "creating linker input file list: $output" : > $output set x $save_libobjs shift firstobj= if test yes = "$compiler_needs_object"; then firstobj="$1 " shift fi for obj do func_to_tool_file "$obj" $ECHO "$func_to_tool_file_result" >> $output done func_append delfiles " $output" func_to_tool_file "$output" output=$firstobj\"$file_list_spec$func_to_tool_file_result\" else if test -n "$save_libobjs"; then func_verbose "creating reloadable object files..." output=$output_objdir/$output_la-$k.$objext eval test_cmds=\"$reload_cmds\" func_len " $test_cmds" len0=$func_len_result len=$len0 # Loop over the list of objects to be linked. for obj in $save_libobjs do func_len " $obj" func_arith $len + $func_len_result len=$func_arith_result if test -z "$objlist" || test "$len" -lt "$max_cmd_len"; then func_append objlist " $obj" else # The command $test_cmds is almost too long, add a # command to the queue. if test 1 -eq "$k"; then # The first file doesn't have a previous command to add. reload_objs=$objlist eval concat_cmds=\"$reload_cmds\" else # All subsequent reloadable object files will link in # the last one created. reload_objs="$objlist $last_robj" eval concat_cmds=\"\$concat_cmds~$reload_cmds~\$RM $last_robj\" fi last_robj=$output_objdir/$output_la-$k.$objext func_arith $k + 1 k=$func_arith_result output=$output_objdir/$output_la-$k.$objext objlist=" $obj" func_len " $last_robj" func_arith $len0 + $func_len_result len=$func_arith_result fi done # Handle the remaining objects by creating one last # reloadable object file. All subsequent reloadable object # files will link in the last one created. test -z "$concat_cmds" || concat_cmds=$concat_cmds~ reload_objs="$objlist $last_robj" eval concat_cmds=\"\$concat_cmds$reload_cmds\" if test -n "$last_robj"; then eval concat_cmds=\"\$concat_cmds~\$RM $last_robj\" fi func_append delfiles " $output" else output= fi ${skipped_export-false} && { func_verbose "generating symbol list for '$libname.la'" export_symbols=$output_objdir/$libname.exp $opt_dry_run || $RM $export_symbols libobjs=$output # Append the command to create the export file. test -z "$concat_cmds" || concat_cmds=$concat_cmds~ eval concat_cmds=\"\$concat_cmds$export_symbols_cmds\" if test -n "$last_robj"; then eval concat_cmds=\"\$concat_cmds~\$RM $last_robj\" fi } test -n "$save_libobjs" && func_verbose "creating a temporary reloadable object file: $output" # Loop through the commands generated above and execute them. save_ifs=$IFS; IFS='~' for cmd in $concat_cmds; do IFS=$save_ifs $opt_quiet || { func_quote_for_expand "$cmd" eval "func_echo $func_quote_for_expand_result" } $opt_dry_run || eval "$cmd" || { lt_exit=$? # Restore the uninstalled library and exit if test relink = "$opt_mode"; then ( cd "$output_objdir" && \ $RM "${realname}T" && \ $MV "${realname}U" "$realname" ) fi exit $lt_exit } done IFS=$save_ifs if test -n "$export_symbols_regex" && ${skipped_export-false}; then func_show_eval '$EGREP -e "$export_symbols_regex" "$export_symbols" > "${export_symbols}T"' func_show_eval '$MV "${export_symbols}T" "$export_symbols"' fi fi ${skipped_export-false} && { if test -n "$export_symbols" && test -n "$include_expsyms"; then tmp_export_symbols=$export_symbols test -n "$orig_export_symbols" && tmp_export_symbols=$orig_export_symbols $opt_dry_run || eval '$ECHO "$include_expsyms" | $SP2NL >> "$tmp_export_symbols"' fi if test -n "$orig_export_symbols"; then # The given exports_symbols file has to be filtered, so filter it. func_verbose "filter symbol list for '$libname.la' to tag DATA exports" # FIXME: $output_objdir/$libname.filter potentially contains lots of # 's' commands, which not all seds can handle. GNU sed should be fine # though. Also, the filter scales superlinearly with the number of # global variables. join(1) would be nice here, but unfortunately # isn't a blessed tool. $opt_dry_run || $SED -e '/[ ,]DATA/!d;s,\(.*\)\([ \,].*\),s|^\1$|\1\2|,' < $export_symbols > $output_objdir/$libname.filter func_append delfiles " $export_symbols $output_objdir/$libname.filter" export_symbols=$output_objdir/$libname.def $opt_dry_run || $SED -f $output_objdir/$libname.filter < $orig_export_symbols > $export_symbols fi } libobjs=$output # Restore the value of output. output=$save_output if test -n "$convenience" && test -n "$whole_archive_flag_spec"; then eval libobjs=\"\$libobjs $whole_archive_flag_spec\" test "X$libobjs" = "X " && libobjs= fi # Expand the library linking commands again to reset the # value of $libobjs for piecewise linking. # Do each of the archive commands. if test yes = "$module" && test -n "$module_cmds"; then if test -n "$export_symbols" && test -n "$module_expsym_cmds"; then cmds=$module_expsym_cmds else cmds=$module_cmds fi else if test -n "$export_symbols" && test -n "$archive_expsym_cmds"; then cmds=$archive_expsym_cmds else cmds=$archive_cmds fi fi fi if test -n "$delfiles"; then # Append the command to remove temporary files to $cmds. eval cmds=\"\$cmds~\$RM $delfiles\" fi # Add any objects from preloaded convenience libraries if test -n "$dlprefiles"; then gentop=$output_objdir/${outputname}x func_append generated " $gentop" func_extract_archives $gentop $dlprefiles func_append libobjs " $func_extract_archives_result" test "X$libobjs" = "X " && libobjs= fi save_ifs=$IFS; IFS='~' for cmd in $cmds; do IFS=$sp$nl eval cmd=\"$cmd\" IFS=$save_ifs $opt_quiet || { func_quote_for_expand "$cmd" eval "func_echo $func_quote_for_expand_result" } $opt_dry_run || eval "$cmd" || { lt_exit=$? # Restore the uninstalled library and exit if test relink = "$opt_mode"; then ( cd "$output_objdir" && \ $RM "${realname}T" && \ $MV "${realname}U" "$realname" ) fi exit $lt_exit } done IFS=$save_ifs # Restore the uninstalled library and exit if test relink = "$opt_mode"; then $opt_dry_run || eval '(cd $output_objdir && $RM ${realname}T && $MV $realname ${realname}T && $MV ${realname}U $realname)' || exit $? if test -n "$convenience"; then if test -z "$whole_archive_flag_spec"; then func_show_eval '${RM}r "$gentop"' fi fi exit $EXIT_SUCCESS fi # Create links to the real library. for linkname in $linknames; do if test "$realname" != "$linkname"; then func_show_eval '(cd "$output_objdir" && $RM "$linkname" && $LN_S "$realname" "$linkname")' 'exit $?' fi done # If -module or -export-dynamic was specified, set the dlname. if test yes = "$module" || test yes = "$export_dynamic"; then # On all known operating systems, these are identical. dlname=$soname fi fi ;; obj) if test -n "$dlfiles$dlprefiles" || test no != "$dlself"; then func_warning "'-dlopen' is ignored for objects" fi case " $deplibs" in *\ -l* | *\ -L*) func_warning "'-l' and '-L' are ignored for objects" ;; esac test -n "$rpath" && \ func_warning "'-rpath' is ignored for objects" test -n "$xrpath" && \ func_warning "'-R' is ignored for objects" test -n "$vinfo" && \ func_warning "'-version-info' is ignored for objects" test -n "$release" && \ func_warning "'-release' is ignored for objects" case $output in *.lo) test -n "$objs$old_deplibs" && \ func_fatal_error "cannot build library object '$output' from non-libtool objects" libobj=$output func_lo2o "$libobj" obj=$func_lo2o_result ;; *) libobj= obj=$output ;; esac # Delete the old objects. $opt_dry_run || $RM $obj $libobj # Objects from convenience libraries. This assumes # single-version convenience libraries. Whenever we create # different ones for PIC/non-PIC, this we'll have to duplicate # the extraction. reload_conv_objs= gentop= # if reload_cmds runs $LD directly, get rid of -Wl from # whole_archive_flag_spec and hope we can get by with turning comma # into space. case $reload_cmds in *\$LD[\ \$]*) wl= ;; esac if test -n "$convenience"; then if test -n "$whole_archive_flag_spec"; then eval tmp_whole_archive_flags=\"$whole_archive_flag_spec\" test -n "$wl" || tmp_whole_archive_flags=`$ECHO "$tmp_whole_archive_flags" | $SED 's|,| |g'` reload_conv_objs=$reload_objs\ $tmp_whole_archive_flags else gentop=$output_objdir/${obj}x func_append generated " $gentop" func_extract_archives $gentop $convenience reload_conv_objs="$reload_objs $func_extract_archives_result" fi fi # If we're not building shared, we need to use non_pic_objs test yes = "$build_libtool_libs" || libobjs=$non_pic_objects # Create the old-style object. reload_objs=$objs$old_deplibs' '`$ECHO "$libobjs" | $SP2NL | $SED "/\.$libext$/d; /\.lib$/d; $lo2o" | $NL2SP`' '$reload_conv_objs output=$obj func_execute_cmds "$reload_cmds" 'exit $?' # Exit if we aren't doing a library object file. if test -z "$libobj"; then if test -n "$gentop"; then func_show_eval '${RM}r "$gentop"' fi exit $EXIT_SUCCESS fi test yes = "$build_libtool_libs" || { if test -n "$gentop"; then func_show_eval '${RM}r "$gentop"' fi # Create an invalid libtool object if no PIC, so that we don't # accidentally link it into a program. # $show "echo timestamp > $libobj" # $opt_dry_run || eval "echo timestamp > $libobj" || exit $? exit $EXIT_SUCCESS } if test -n "$pic_flag" || test default != "$pic_mode"; then # Only do commands if we really have different PIC objects. reload_objs="$libobjs $reload_conv_objs" output=$libobj func_execute_cmds "$reload_cmds" 'exit $?' fi if test -n "$gentop"; then func_show_eval '${RM}r "$gentop"' fi exit $EXIT_SUCCESS ;; prog) case $host in *cygwin*) func_stripname '' '.exe' "$output" output=$func_stripname_result.exe;; esac test -n "$vinfo" && \ func_warning "'-version-info' is ignored for programs" test -n "$release" && \ func_warning "'-release' is ignored for programs" $preload \ && test unknown,unknown,unknown = "$dlopen_support,$dlopen_self,$dlopen_self_static" \ && func_warning "'LT_INIT([dlopen])' not used. Assuming no dlopen support." case $host in *-*-rhapsody* | *-*-darwin1.[012]) # On Rhapsody replace the C library is the System framework compile_deplibs=`$ECHO " $compile_deplibs" | $SED 's/ -lc / System.ltframework /'` finalize_deplibs=`$ECHO " $finalize_deplibs" | $SED 's/ -lc / System.ltframework /'` ;; esac case $host in *-*-darwin*) # Don't allow lazy linking, it breaks C++ global constructors # But is supposedly fixed on 10.4 or later (yay!). if test CXX = "$tagname"; then case ${MACOSX_DEPLOYMENT_TARGET-10.0} in 10.[0123]) func_append compile_command " $wl-bind_at_load" func_append finalize_command " $wl-bind_at_load" ;; esac fi # Time to change all our "foo.ltframework" stuff back to "-framework foo" compile_deplibs=`$ECHO " $compile_deplibs" | $SED 's% \([^ $]*\).ltframework% -framework \1%g'` finalize_deplibs=`$ECHO " $finalize_deplibs" | $SED 's% \([^ $]*\).ltframework% -framework \1%g'` ;; esac # move library search paths that coincide with paths to not yet # installed libraries to the beginning of the library search list new_libs= for path in $notinst_path; do case " $new_libs " in *" -L$path/$objdir "*) ;; *) case " $compile_deplibs " in *" -L$path/$objdir "*) func_append new_libs " -L$path/$objdir" ;; esac ;; esac done for deplib in $compile_deplibs; do case $deplib in -L*) case " $new_libs " in *" $deplib "*) ;; *) func_append new_libs " $deplib" ;; esac ;; *) func_append new_libs " $deplib" ;; esac done compile_deplibs=$new_libs func_append compile_command " $compile_deplibs" func_append finalize_command " $finalize_deplibs" if test -n "$rpath$xrpath"; then # If the user specified any rpath flags, then add them. for libdir in $rpath $xrpath; do # This is the magic to use -rpath. case "$finalize_rpath " in *" $libdir "*) ;; *) func_append finalize_rpath " $libdir" ;; esac done fi # Now hardcode the library paths rpath= hardcode_libdirs= for libdir in $compile_rpath $finalize_rpath; do if test -n "$hardcode_libdir_flag_spec"; then if test -n "$hardcode_libdir_separator"; then if test -z "$hardcode_libdirs"; then hardcode_libdirs=$libdir else # Just accumulate the unique libdirs. case $hardcode_libdir_separator$hardcode_libdirs$hardcode_libdir_separator in *"$hardcode_libdir_separator$libdir$hardcode_libdir_separator"*) ;; *) func_append hardcode_libdirs "$hardcode_libdir_separator$libdir" ;; esac fi else eval flag=\"$hardcode_libdir_flag_spec\" func_append rpath " $flag" fi elif test -n "$runpath_var"; then case "$perm_rpath " in *" $libdir "*) ;; *) func_append perm_rpath " $libdir" ;; esac fi case $host in *-*-cygwin* | *-*-mingw* | *-*-pw32* | *-*-os2* | *-cegcc*) testbindir=`$ECHO "$libdir" | $SED -e 's*/lib$*/bin*'` case :$dllsearchpath: in *":$libdir:"*) ;; ::) dllsearchpath=$libdir;; *) func_append dllsearchpath ":$libdir";; esac case :$dllsearchpath: in *":$testbindir:"*) ;; ::) dllsearchpath=$testbindir;; *) func_append dllsearchpath ":$testbindir";; esac ;; esac done # Substitute the hardcoded libdirs into the rpath. if test -n "$hardcode_libdir_separator" && test -n "$hardcode_libdirs"; then libdir=$hardcode_libdirs eval rpath=\" $hardcode_libdir_flag_spec\" fi compile_rpath=$rpath rpath= hardcode_libdirs= for libdir in $finalize_rpath; do if test -n "$hardcode_libdir_flag_spec"; then if test -n "$hardcode_libdir_separator"; then if test -z "$hardcode_libdirs"; then hardcode_libdirs=$libdir else # Just accumulate the unique libdirs. case $hardcode_libdir_separator$hardcode_libdirs$hardcode_libdir_separator in *"$hardcode_libdir_separator$libdir$hardcode_libdir_separator"*) ;; *) func_append hardcode_libdirs "$hardcode_libdir_separator$libdir" ;; esac fi else eval flag=\"$hardcode_libdir_flag_spec\" func_append rpath " $flag" fi elif test -n "$runpath_var"; then case "$finalize_perm_rpath " in *" $libdir "*) ;; *) func_append finalize_perm_rpath " $libdir" ;; esac fi done # Substitute the hardcoded libdirs into the rpath. if test -n "$hardcode_libdir_separator" && test -n "$hardcode_libdirs"; then libdir=$hardcode_libdirs eval rpath=\" $hardcode_libdir_flag_spec\" fi finalize_rpath=$rpath if test -n "$libobjs" && test yes = "$build_old_libs"; then # Transform all the library objects into standard objects. compile_command=`$ECHO "$compile_command" | $SP2NL | $SED "$lo2o" | $NL2SP` finalize_command=`$ECHO "$finalize_command" | $SP2NL | $SED "$lo2o" | $NL2SP` fi func_generate_dlsyms "$outputname" "@PROGRAM@" false # template prelinking step if test -n "$prelink_cmds"; then func_execute_cmds "$prelink_cmds" 'exit $?' fi wrappers_required=: case $host in *cegcc* | *mingw32ce*) # Disable wrappers for cegcc and mingw32ce hosts, we are cross compiling anyway. wrappers_required=false ;; *cygwin* | *mingw* ) test yes = "$build_libtool_libs" || wrappers_required=false ;; *) if test no = "$need_relink" || test yes != "$build_libtool_libs"; then wrappers_required=false fi ;; esac $wrappers_required || { # Replace the output file specification. compile_command=`$ECHO "$compile_command" | $SED 's%@OUTPUT@%'"$output"'%g'` link_command=$compile_command$compile_rpath # We have no uninstalled library dependencies, so finalize right now. exit_status=0 func_show_eval "$link_command" 'exit_status=$?' if test -n "$postlink_cmds"; then func_to_tool_file "$output" postlink_cmds=`func_echo_all "$postlink_cmds" | $SED -e 's%@OUTPUT@%'"$output"'%g' -e 's%@TOOL_OUTPUT@%'"$func_to_tool_file_result"'%g'` func_execute_cmds "$postlink_cmds" 'exit $?' fi # Delete the generated files. if test -f "$output_objdir/${outputname}S.$objext"; then func_show_eval '$RM "$output_objdir/${outputname}S.$objext"' fi exit $exit_status } if test -n "$compile_shlibpath$finalize_shlibpath"; then compile_command="$shlibpath_var=\"$compile_shlibpath$finalize_shlibpath\$$shlibpath_var\" $compile_command" fi if test -n "$finalize_shlibpath"; then finalize_command="$shlibpath_var=\"$finalize_shlibpath\$$shlibpath_var\" $finalize_command" fi compile_var= finalize_var= if test -n "$runpath_var"; then if test -n "$perm_rpath"; then # We should set the runpath_var. rpath= for dir in $perm_rpath; do func_append rpath "$dir:" done compile_var="$runpath_var=\"$rpath\$$runpath_var\" " fi if test -n "$finalize_perm_rpath"; then # We should set the runpath_var. rpath= for dir in $finalize_perm_rpath; do func_append rpath "$dir:" done finalize_var="$runpath_var=\"$rpath\$$runpath_var\" " fi fi if test yes = "$no_install"; then # We don't need to create a wrapper script. link_command=$compile_var$compile_command$compile_rpath # Replace the output file specification. link_command=`$ECHO "$link_command" | $SED 's%@OUTPUT@%'"$output"'%g'` # Delete the old output file. $opt_dry_run || $RM $output # Link the executable and exit func_show_eval "$link_command" 'exit $?' if test -n "$postlink_cmds"; then func_to_tool_file "$output" postlink_cmds=`func_echo_all "$postlink_cmds" | $SED -e 's%@OUTPUT@%'"$output"'%g' -e 's%@TOOL_OUTPUT@%'"$func_to_tool_file_result"'%g'` func_execute_cmds "$postlink_cmds" 'exit $?' fi exit $EXIT_SUCCESS fi case $hardcode_action,$fast_install in relink,*) # Fast installation is not supported link_command=$compile_var$compile_command$compile_rpath relink_command=$finalize_var$finalize_command$finalize_rpath func_warning "this platform does not like uninstalled shared libraries" func_warning "'$output' will be relinked during installation" ;; *,yes) link_command=$finalize_var$compile_command$finalize_rpath relink_command=`$ECHO "$compile_var$compile_command$compile_rpath" | $SED 's%@OUTPUT@%\$progdir/\$file%g'` ;; *,no) link_command=$compile_var$compile_command$compile_rpath relink_command=$finalize_var$finalize_command$finalize_rpath ;; *,needless) link_command=$finalize_var$compile_command$finalize_rpath relink_command= ;; esac # Replace the output file specification. link_command=`$ECHO "$link_command" | $SED 's%@OUTPUT@%'"$output_objdir/$outputname"'%g'` # Delete the old output files. $opt_dry_run || $RM $output $output_objdir/$outputname $output_objdir/lt-$outputname func_show_eval "$link_command" 'exit $?' if test -n "$postlink_cmds"; then func_to_tool_file "$output_objdir/$outputname" postlink_cmds=`func_echo_all "$postlink_cmds" | $SED -e 's%@OUTPUT@%'"$output_objdir/$outputname"'%g' -e 's%@TOOL_OUTPUT@%'"$func_to_tool_file_result"'%g'` func_execute_cmds "$postlink_cmds" 'exit $?' fi # Now create the wrapper script. func_verbose "creating $output" # Quote the relink command for shipping. if test -n "$relink_command"; then # Preserve any variables that may affect compiler behavior for var in $variables_saved_for_relink; do if eval test -z \"\${$var+set}\"; then relink_command="{ test -z \"\${$var+set}\" || $lt_unset $var || { $var=; export $var; }; }; $relink_command" elif eval var_value=\$$var; test -z "$var_value"; then relink_command="$var=; export $var; $relink_command" else func_quote_for_eval "$var_value" relink_command="$var=$func_quote_for_eval_result; export $var; $relink_command" fi done relink_command="(cd `pwd`; $relink_command)" relink_command=`$ECHO "$relink_command" | $SED "$sed_quote_subst"` fi # Only actually do things if not in dry run mode. $opt_dry_run || { # win32 will think the script is a binary if it has # a .exe suffix, so we strip it off here. case $output in *.exe) func_stripname '' '.exe' "$output" output=$func_stripname_result ;; esac # test for cygwin because mv fails w/o .exe extensions case $host in *cygwin*) exeext=.exe func_stripname '' '.exe' "$outputname" outputname=$func_stripname_result ;; *) exeext= ;; esac case $host in *cygwin* | *mingw* ) func_dirname_and_basename "$output" "" "." output_name=$func_basename_result output_path=$func_dirname_result cwrappersource=$output_path/$objdir/lt-$output_name.c cwrapper=$output_path/$output_name.exe $RM $cwrappersource $cwrapper trap "$RM $cwrappersource $cwrapper; exit $EXIT_FAILURE" 1 2 15 func_emit_cwrapperexe_src > $cwrappersource # The wrapper executable is built using the $host compiler, # because it contains $host paths and files. If cross- # compiling, it, like the target executable, must be # executed on the $host or under an emulation environment. $opt_dry_run || { $LTCC $LTCFLAGS -o $cwrapper $cwrappersource $STRIP $cwrapper } # Now, create the wrapper script for func_source use: func_ltwrapper_scriptname $cwrapper $RM $func_ltwrapper_scriptname_result trap "$RM $func_ltwrapper_scriptname_result; exit $EXIT_FAILURE" 1 2 15 $opt_dry_run || { # note: this script will not be executed, so do not chmod. if test "x$build" = "x$host"; then $cwrapper --lt-dump-script > $func_ltwrapper_scriptname_result else func_emit_wrapper no > $func_ltwrapper_scriptname_result fi } ;; * ) $RM $output trap "$RM $output; exit $EXIT_FAILURE" 1 2 15 func_emit_wrapper no > $output chmod +x $output ;; esac } exit $EXIT_SUCCESS ;; esac # See if we need to build an old-fashioned archive. for oldlib in $oldlibs; do case $build_libtool_libs in convenience) oldobjs="$libobjs_save $symfileobj" addlibs=$convenience build_libtool_libs=no ;; module) oldobjs=$libobjs_save addlibs=$old_convenience build_libtool_libs=no ;; *) oldobjs="$old_deplibs $non_pic_objects" $preload && test -f "$symfileobj" \ && func_append oldobjs " $symfileobj" addlibs=$old_convenience ;; esac if test -n "$addlibs"; then gentop=$output_objdir/${outputname}x func_append generated " $gentop" func_extract_archives $gentop $addlibs func_append oldobjs " $func_extract_archives_result" fi # Do each command in the archive commands. if test -n "$old_archive_from_new_cmds" && test yes = "$build_libtool_libs"; then cmds=$old_archive_from_new_cmds else # Add any objects from preloaded convenience libraries if test -n "$dlprefiles"; then gentop=$output_objdir/${outputname}x func_append generated " $gentop" func_extract_archives $gentop $dlprefiles func_append oldobjs " $func_extract_archives_result" fi # POSIX demands no paths to be encoded in archives. We have # to avoid creating archives with duplicate basenames if we # might have to extract them afterwards, e.g., when creating a # static archive out of a convenience library, or when linking # the entirety of a libtool archive into another (currently # not supported by libtool). if (for obj in $oldobjs do func_basename "$obj" $ECHO "$func_basename_result" done | sort | sort -uc >/dev/null 2>&1); then : else echo "copying selected object files to avoid basename conflicts..." gentop=$output_objdir/${outputname}x func_append generated " $gentop" func_mkdir_p "$gentop" save_oldobjs=$oldobjs oldobjs= counter=1 for obj in $save_oldobjs do func_basename "$obj" objbase=$func_basename_result case " $oldobjs " in " ") oldobjs=$obj ;; *[\ /]"$objbase "*) while :; do # Make sure we don't pick an alternate name that also # overlaps. newobj=lt$counter-$objbase func_arith $counter + 1 counter=$func_arith_result case " $oldobjs " in *[\ /]"$newobj "*) ;; *) if test ! -f "$gentop/$newobj"; then break; fi ;; esac done func_show_eval "ln $obj $gentop/$newobj || cp $obj $gentop/$newobj" func_append oldobjs " $gentop/$newobj" ;; *) func_append oldobjs " $obj" ;; esac done fi func_to_tool_file "$oldlib" func_convert_file_msys_to_w32 tool_oldlib=$func_to_tool_file_result eval cmds=\"$old_archive_cmds\" func_len " $cmds" len=$func_len_result if test "$len" -lt "$max_cmd_len" || test "$max_cmd_len" -le -1; then cmds=$old_archive_cmds elif test -n "$archiver_list_spec"; then func_verbose "using command file archive linking..." for obj in $oldobjs do func_to_tool_file "$obj" $ECHO "$func_to_tool_file_result" done > $output_objdir/$libname.libcmd func_to_tool_file "$output_objdir/$libname.libcmd" oldobjs=" $archiver_list_spec$func_to_tool_file_result" cmds=$old_archive_cmds else # the command line is too long to link in one step, link in parts func_verbose "using piecewise archive linking..." save_RANLIB=$RANLIB RANLIB=: objlist= concat_cmds= save_oldobjs=$oldobjs oldobjs= # Is there a better way of finding the last object in the list? for obj in $save_oldobjs do last_oldobj=$obj done eval test_cmds=\"$old_archive_cmds\" func_len " $test_cmds" len0=$func_len_result len=$len0 for obj in $save_oldobjs do func_len " $obj" func_arith $len + $func_len_result len=$func_arith_result func_append objlist " $obj" if test "$len" -lt "$max_cmd_len"; then : else # the above command should be used before it gets too long oldobjs=$objlist if test "$obj" = "$last_oldobj"; then RANLIB=$save_RANLIB fi test -z "$concat_cmds" || concat_cmds=$concat_cmds~ eval concat_cmds=\"\$concat_cmds$old_archive_cmds\" objlist= len=$len0 fi done RANLIB=$save_RANLIB oldobjs=$objlist if test -z "$oldobjs"; then eval cmds=\"\$concat_cmds\" else eval cmds=\"\$concat_cmds~\$old_archive_cmds\" fi fi fi func_execute_cmds "$cmds" 'exit $?' done test -n "$generated" && \ func_show_eval "${RM}r$generated" # Now create the libtool archive. case $output in *.la) old_library= test yes = "$build_old_libs" && old_library=$libname.$libext func_verbose "creating $output" # Preserve any variables that may affect compiler behavior for var in $variables_saved_for_relink; do if eval test -z \"\${$var+set}\"; then relink_command="{ test -z \"\${$var+set}\" || $lt_unset $var || { $var=; export $var; }; }; $relink_command" elif eval var_value=\$$var; test -z "$var_value"; then relink_command="$var=; export $var; $relink_command" else func_quote_for_eval "$var_value" relink_command="$var=$func_quote_for_eval_result; export $var; $relink_command" fi done # Quote the link command for shipping. relink_command="(cd `pwd`; $SHELL \"$progpath\" $preserve_args --mode=relink $libtool_args @inst_prefix_dir@)" relink_command=`$ECHO "$relink_command" | $SED "$sed_quote_subst"` if test yes = "$hardcode_automatic"; then relink_command= fi # Only create the output if not a dry run. $opt_dry_run || { for installed in no yes; do if test yes = "$installed"; then if test -z "$install_libdir"; then break fi output=$output_objdir/${outputname}i # Replace all uninstalled libtool libraries with the installed ones newdependency_libs= for deplib in $dependency_libs; do case $deplib in *.la) func_basename "$deplib" name=$func_basename_result func_resolve_sysroot "$deplib" eval libdir=`$SED -n -e 's/^libdir=\(.*\)$/\1/p' $func_resolve_sysroot_result` test -z "$libdir" && \ func_fatal_error "'$deplib' is not a valid libtool archive" func_append newdependency_libs " ${lt_sysroot:+=}$libdir/$name" ;; -L*) func_stripname -L '' "$deplib" func_replace_sysroot "$func_stripname_result" func_append newdependency_libs " -L$func_replace_sysroot_result" ;; -R*) func_stripname -R '' "$deplib" func_replace_sysroot "$func_stripname_result" func_append newdependency_libs " -R$func_replace_sysroot_result" ;; *) func_append newdependency_libs " $deplib" ;; esac done dependency_libs=$newdependency_libs newdlfiles= for lib in $dlfiles; do case $lib in *.la) func_basename "$lib" name=$func_basename_result eval libdir=`$SED -n -e 's/^libdir=\(.*\)$/\1/p' $lib` test -z "$libdir" && \ func_fatal_error "'$lib' is not a valid libtool archive" func_append newdlfiles " ${lt_sysroot:+=}$libdir/$name" ;; *) func_append newdlfiles " $lib" ;; esac done dlfiles=$newdlfiles newdlprefiles= for lib in $dlprefiles; do case $lib in *.la) # Only pass preopened files to the pseudo-archive (for # eventual linking with the app. that links it) if we # didn't already link the preopened objects directly into # the library: func_basename "$lib" name=$func_basename_result eval libdir=`$SED -n -e 's/^libdir=\(.*\)$/\1/p' $lib` test -z "$libdir" && \ func_fatal_error "'$lib' is not a valid libtool archive" func_append newdlprefiles " ${lt_sysroot:+=}$libdir/$name" ;; esac done dlprefiles=$newdlprefiles else newdlfiles= for lib in $dlfiles; do case $lib in [\\/]* | [A-Za-z]:[\\/]*) abs=$lib ;; *) abs=`pwd`"/$lib" ;; esac func_append newdlfiles " $abs" done dlfiles=$newdlfiles newdlprefiles= for lib in $dlprefiles; do case $lib in [\\/]* | [A-Za-z]:[\\/]*) abs=$lib ;; *) abs=`pwd`"/$lib" ;; esac func_append newdlprefiles " $abs" done dlprefiles=$newdlprefiles fi $RM $output # place dlname in correct position for cygwin # In fact, it would be nice if we could use this code for all target # systems that can't hard-code library paths into their executables # and that have no shared library path variable independent of PATH, # but it turns out we can't easily determine that from inspecting # libtool variables, so we have to hard-code the OSs to which it # applies here; at the moment, that means platforms that use the PE # object format with DLL files. See the long comment at the top of # tests/bindir.at for full details. tdlname=$dlname case $host,$output,$installed,$module,$dlname in *cygwin*,*lai,yes,no,*.dll | *mingw*,*lai,yes,no,*.dll | *cegcc*,*lai,yes,no,*.dll) # If a -bindir argument was supplied, place the dll there. if test -n "$bindir"; then func_relative_path "$install_libdir" "$bindir" tdlname=$func_relative_path_result/$dlname else # Otherwise fall back on heuristic. tdlname=../bin/$dlname fi ;; esac $ECHO > $output "\ # $outputname - a libtool library file # Generated by $PROGRAM (GNU $PACKAGE) $VERSION # # Please DO NOT delete this file! # It is necessary for linking the library. # The name that we can dlopen(3). dlname='$tdlname' # Names of this library. library_names='$library_names' # The name of the static archive. old_library='$old_library' # Linker flags that cannot go in dependency_libs. inherited_linker_flags='$new_inherited_linker_flags' # Libraries that this one depends upon. dependency_libs='$dependency_libs' # Names of additional weak libraries provided by this library weak_library_names='$weak_libs' # Version information for $libname. current=$current age=$age revision=$revision # Is this an already installed library? installed=$installed # Should we warn about portability when linking against -modules? shouldnotlink=$module # Files to dlopen/dlpreopen dlopen='$dlfiles' dlpreopen='$dlprefiles' # Directory that this library needs to be installed in: libdir='$install_libdir'" if test no,yes = "$installed,$need_relink"; then $ECHO >> $output "\ relink_command=\"$relink_command\"" fi done } # Do a symbolic link so that the libtool archive can be found in # LD_LIBRARY_PATH before the program is installed. func_show_eval '( cd "$output_objdir" && $RM "$outputname" && $LN_S "../$outputname" "$outputname" )' 'exit $?' ;; esac exit $EXIT_SUCCESS } if test link = "$opt_mode" || test relink = "$opt_mode"; then func_mode_link ${1+"$@"} fi # func_mode_uninstall arg... func_mode_uninstall () { $debug_cmd RM=$nonopt files= rmforce=false exit_status=0 # This variable tells wrapper scripts just to set variables rather # than running their programs. libtool_install_magic=$magic for arg do case $arg in -f) func_append RM " $arg"; rmforce=: ;; -*) func_append RM " $arg" ;; *) func_append files " $arg" ;; esac done test -z "$RM" && \ func_fatal_help "you must specify an RM program" rmdirs= for file in $files; do func_dirname "$file" "" "." dir=$func_dirname_result if test . = "$dir"; then odir=$objdir else odir=$dir/$objdir fi func_basename "$file" name=$func_basename_result test uninstall = "$opt_mode" && odir=$dir # Remember odir for removal later, being careful to avoid duplicates if test clean = "$opt_mode"; then case " $rmdirs " in *" $odir "*) ;; *) func_append rmdirs " $odir" ;; esac fi # Don't error if the file doesn't exist and rm -f was used. if { test -L "$file"; } >/dev/null 2>&1 || { test -h "$file"; } >/dev/null 2>&1 || test -f "$file"; then : elif test -d "$file"; then exit_status=1 continue elif $rmforce; then continue fi rmfiles=$file case $name in *.la) # Possibly a libtool archive, so verify it. if func_lalib_p "$file"; then func_source $dir/$name # Delete the libtool libraries and symlinks. for n in $library_names; do func_append rmfiles " $odir/$n" done test -n "$old_library" && func_append rmfiles " $odir/$old_library" case $opt_mode in clean) case " $library_names " in *" $dlname "*) ;; *) test -n "$dlname" && func_append rmfiles " $odir/$dlname" ;; esac test -n "$libdir" && func_append rmfiles " $odir/$name $odir/${name}i" ;; uninstall) if test -n "$library_names"; then # Do each command in the postuninstall commands. func_execute_cmds "$postuninstall_cmds" '$rmforce || exit_status=1' fi if test -n "$old_library"; then # Do each command in the old_postuninstall commands. func_execute_cmds "$old_postuninstall_cmds" '$rmforce || exit_status=1' fi # FIXME: should reinstall the best remaining shared library. ;; esac fi ;; *.lo) # Possibly a libtool object, so verify it. if func_lalib_p "$file"; then # Read the .lo file func_source $dir/$name # Add PIC object to the list of files to remove. if test -n "$pic_object" && test none != "$pic_object"; then func_append rmfiles " $dir/$pic_object" fi # Add non-PIC object to the list of files to remove. if test -n "$non_pic_object" && test none != "$non_pic_object"; then func_append rmfiles " $dir/$non_pic_object" fi fi ;; *) if test clean = "$opt_mode"; then noexename=$name case $file in *.exe) func_stripname '' '.exe' "$file" file=$func_stripname_result func_stripname '' '.exe' "$name" noexename=$func_stripname_result # $file with .exe has already been added to rmfiles, # add $file without .exe func_append rmfiles " $file" ;; esac # Do a test to see if this is a libtool program. if func_ltwrapper_p "$file"; then if func_ltwrapper_executable_p "$file"; then func_ltwrapper_scriptname "$file" relink_command= func_source $func_ltwrapper_scriptname_result func_append rmfiles " $func_ltwrapper_scriptname_result" else relink_command= func_source $dir/$noexename fi # note $name still contains .exe if it was in $file originally # as does the version of $file that was added into $rmfiles func_append rmfiles " $odir/$name $odir/${name}S.$objext" if test yes = "$fast_install" && test -n "$relink_command"; then func_append rmfiles " $odir/lt-$name" fi if test "X$noexename" != "X$name"; then func_append rmfiles " $odir/lt-$noexename.c" fi fi fi ;; esac func_show_eval "$RM $rmfiles" 'exit_status=1' done # Try to remove the $objdir's in the directories where we deleted files for dir in $rmdirs; do if test -d "$dir"; then func_show_eval "rmdir $dir >/dev/null 2>&1" fi done exit $exit_status } if test uninstall = "$opt_mode" || test clean = "$opt_mode"; then func_mode_uninstall ${1+"$@"} fi test -z "$opt_mode" && { help=$generic_help func_fatal_help "you must specify a MODE" } test -z "$exec_cmd" && \ func_fatal_help "invalid operation mode '$opt_mode'" if test -n "$exec_cmd"; then eval exec "$exec_cmd" exit $EXIT_FAILURE fi exit $exit_status # The TAGs below are defined such that we never get into a situation # where we disable both kinds of libraries. Given conflicting # choices, we go for a static library, that is the most portable, # since we can't tell whether shared libraries were disabled because # the user asked for that or because the platform doesn't support # them. This is particularly important on AIX, because we don't # support having both static and shared libraries enabled at the same # time on that platform, so we default to a shared-only configuration. # If a disable-shared tag is given, we'll fallback to a static-only # configuration. But we'll never go from static-only to shared-only. # ### BEGIN LIBTOOL TAG CONFIG: disable-shared build_libtool_libs=no build_old_libs=yes # ### END LIBTOOL TAG CONFIG: disable-shared # ### BEGIN LIBTOOL TAG CONFIG: disable-static build_old_libs=`case $build_libtool_libs in yes) echo no;; *) echo yes;; esac` # ### END LIBTOOL TAG CONFIG: disable-static # Local Variables: # mode:shell-script # sh-indentation:2 # End: libffcall-2.2/build-aux/depcomp0000755000000000000000000005601713530357246013452 00000000000000#! /bin/sh # depcomp - compile a program generating dependencies as side-effects scriptversion=2016-01-11.22; # UTC # Copyright (C) 1999-2017 Free Software Foundation, Inc. # This program is free software; you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by # the Free Software Foundation; either version 2, or (at your option) # any later version. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # You should have received a copy of the GNU General Public License # along with this program. If not, see . # As a special exception to the GNU General Public License, if you # distribute this file as part of a program that contains a # configuration script generated by Autoconf, you may include it under # the same distribution terms that you use for the rest of that program. # Originally written by Alexandre Oliva . case $1 in '') echo "$0: No command. Try '$0 --help' for more information." 1>&2 exit 1; ;; -h | --h*) cat <<\EOF Usage: depcomp [--help] [--version] PROGRAM [ARGS] Run PROGRAMS ARGS to compile a file, generating dependencies as side-effects. Environment variables: depmode Dependency tracking mode. source Source file read by 'PROGRAMS ARGS'. object Object file output by 'PROGRAMS ARGS'. DEPDIR directory where to store dependencies. depfile Dependency file to output. tmpdepfile Temporary file to use when outputting dependencies. libtool Whether libtool is used (yes/no). Report bugs to . EOF exit $? ;; -v | --v*) echo "depcomp $scriptversion" exit $? ;; esac # Get the directory component of the given path, and save it in the # global variables '$dir'. Note that this directory component will # be either empty or ending with a '/' character. This is deliberate. set_dir_from () { case $1 in */*) dir=`echo "$1" | sed -e 's|/[^/]*$|/|'`;; *) dir=;; esac } # Get the suffix-stripped basename of the given path, and save it the # global variable '$base'. set_base_from () { base=`echo "$1" | sed -e 's|^.*/||' -e 's/\.[^.]*$//'` } # If no dependency file was actually created by the compiler invocation, # we still have to create a dummy depfile, to avoid errors with the # Makefile "include basename.Plo" scheme. make_dummy_depfile () { echo "#dummy" > "$depfile" } # Factor out some common post-processing of the generated depfile. # Requires the auxiliary global variable '$tmpdepfile' to be set. aix_post_process_depfile () { # If the compiler actually managed to produce a dependency file, # post-process it. if test -f "$tmpdepfile"; then # Each line is of the form 'foo.o: dependency.h'. # Do two passes, one to just change these to # $object: dependency.h # and one to simply output # dependency.h: # which is needed to avoid the deleted-header problem. { sed -e "s,^.*\.[$lower]*:,$object:," < "$tmpdepfile" sed -e "s,^.*\.[$lower]*:[$tab ]*,," -e 's,$,:,' < "$tmpdepfile" } > "$depfile" rm -f "$tmpdepfile" else make_dummy_depfile fi } # A tabulation character. tab=' ' # A newline character. nl=' ' # Character ranges might be problematic outside the C locale. # These definitions help. upper=ABCDEFGHIJKLMNOPQRSTUVWXYZ lower=abcdefghijklmnopqrstuvwxyz digits=0123456789 alpha=${upper}${lower} if test -z "$depmode" || test -z "$source" || test -z "$object"; then echo "depcomp: Variables source, object and depmode must be set" 1>&2 exit 1 fi # Dependencies for sub/bar.o or sub/bar.obj go into sub/.deps/bar.Po. depfile=${depfile-`echo "$object" | sed 's|[^\\/]*$|'${DEPDIR-.deps}'/&|;s|\.\([^.]*\)$|.P\1|;s|Pobj$|Po|'`} tmpdepfile=${tmpdepfile-`echo "$depfile" | sed 's/\.\([^.]*\)$/.T\1/'`} rm -f "$tmpdepfile" # Avoid interferences from the environment. gccflag= dashmflag= # Some modes work just like other modes, but use different flags. We # parameterize here, but still list the modes in the big case below, # to make depend.m4 easier to write. Note that we *cannot* use a case # here, because this file can only contain one case statement. if test "$depmode" = hp; then # HP compiler uses -M and no extra arg. gccflag=-M depmode=gcc fi if test "$depmode" = dashXmstdout; then # This is just like dashmstdout with a different argument. dashmflag=-xM depmode=dashmstdout fi cygpath_u="cygpath -u -f -" if test "$depmode" = msvcmsys; then # This is just like msvisualcpp but w/o cygpath translation. # Just convert the backslash-escaped backslashes to single forward # slashes to satisfy depend.m4 cygpath_u='sed s,\\\\,/,g' depmode=msvisualcpp fi if test "$depmode" = msvc7msys; then # This is just like msvc7 but w/o cygpath translation. # Just convert the backslash-escaped backslashes to single forward # slashes to satisfy depend.m4 cygpath_u='sed s,\\\\,/,g' depmode=msvc7 fi if test "$depmode" = xlc; then # IBM C/C++ Compilers xlc/xlC can output gcc-like dependency information. gccflag=-qmakedep=gcc,-MF depmode=gcc fi case "$depmode" in gcc3) ## gcc 3 implements dependency tracking that does exactly what ## we want. Yay! Note: for some reason libtool 1.4 doesn't like ## it if -MD -MP comes after the -MF stuff. Hmm. ## Unfortunately, FreeBSD c89 acceptance of flags depends upon ## the command line argument order; so add the flags where they ## appear in depend2.am. Note that the slowdown incurred here ## affects only configure: in makefiles, %FASTDEP% shortcuts this. for arg do case $arg in -c) set fnord "$@" -MT "$object" -MD -MP -MF "$tmpdepfile" "$arg" ;; *) set fnord "$@" "$arg" ;; esac shift # fnord shift # $arg done "$@" stat=$? if test $stat -ne 0; then rm -f "$tmpdepfile" exit $stat fi mv "$tmpdepfile" "$depfile" ;; gcc) ## Note that this doesn't just cater to obsosete pre-3.x GCC compilers. ## but also to in-use compilers like IMB xlc/xlC and the HP C compiler. ## (see the conditional assignment to $gccflag above). ## There are various ways to get dependency output from gcc. Here's ## why we pick this rather obscure method: ## - Don't want to use -MD because we'd like the dependencies to end ## up in a subdir. Having to rename by hand is ugly. ## (We might end up doing this anyway to support other compilers.) ## - The DEPENDENCIES_OUTPUT environment variable makes gcc act like ## -MM, not -M (despite what the docs say). Also, it might not be ## supported by the other compilers which use the 'gcc' depmode. ## - Using -M directly means running the compiler twice (even worse ## than renaming). if test -z "$gccflag"; then gccflag=-MD, fi "$@" -Wp,"$gccflag$tmpdepfile" stat=$? if test $stat -ne 0; then rm -f "$tmpdepfile" exit $stat fi rm -f "$depfile" echo "$object : \\" > "$depfile" # The second -e expression handles DOS-style file names with drive # letters. sed -e 's/^[^:]*: / /' \ -e 's/^['$alpha']:\/[^:]*: / /' < "$tmpdepfile" >> "$depfile" ## This next piece of magic avoids the "deleted header file" problem. ## The problem is that when a header file which appears in a .P file ## is deleted, the dependency causes make to die (because there is ## typically no way to rebuild the header). We avoid this by adding ## dummy dependencies for each header file. Too bad gcc doesn't do ## this for us directly. ## Some versions of gcc put a space before the ':'. On the theory ## that the space means something, we add a space to the output as ## well. hp depmode also adds that space, but also prefixes the VPATH ## to the object. Take care to not repeat it in the output. ## Some versions of the HPUX 10.20 sed can't process this invocation ## correctly. Breaking it into two sed invocations is a workaround. tr ' ' "$nl" < "$tmpdepfile" \ | sed -e 's/^\\$//' -e '/^$/d' -e "s|.*$object$||" -e '/:$/d' \ | sed -e 's/$/ :/' >> "$depfile" rm -f "$tmpdepfile" ;; hp) # This case exists only to let depend.m4 do its work. It works by # looking at the text of this script. This case will never be run, # since it is checked for above. exit 1 ;; sgi) if test "$libtool" = yes; then "$@" "-Wp,-MDupdate,$tmpdepfile" else "$@" -MDupdate "$tmpdepfile" fi stat=$? if test $stat -ne 0; then rm -f "$tmpdepfile" exit $stat fi rm -f "$depfile" if test -f "$tmpdepfile"; then # yes, the sourcefile depend on other files echo "$object : \\" > "$depfile" # Clip off the initial element (the dependent). Don't try to be # clever and replace this with sed code, as IRIX sed won't handle # lines with more than a fixed number of characters (4096 in # IRIX 6.2 sed, 8192 in IRIX 6.5). We also remove comment lines; # the IRIX cc adds comments like '#:fec' to the end of the # dependency line. tr ' ' "$nl" < "$tmpdepfile" \ | sed -e 's/^.*\.o://' -e 's/#.*$//' -e '/^$/ d' \ | tr "$nl" ' ' >> "$depfile" echo >> "$depfile" # The second pass generates a dummy entry for each header file. tr ' ' "$nl" < "$tmpdepfile" \ | sed -e 's/^.*\.o://' -e 's/#.*$//' -e '/^$/ d' -e 's/$/:/' \ >> "$depfile" else make_dummy_depfile fi rm -f "$tmpdepfile" ;; xlc) # This case exists only to let depend.m4 do its work. It works by # looking at the text of this script. This case will never be run, # since it is checked for above. exit 1 ;; aix) # The C for AIX Compiler uses -M and outputs the dependencies # in a .u file. In older versions, this file always lives in the # current directory. Also, the AIX compiler puts '$object:' at the # start of each line; $object doesn't have directory information. # Version 6 uses the directory in both cases. set_dir_from "$object" set_base_from "$object" if test "$libtool" = yes; then tmpdepfile1=$dir$base.u tmpdepfile2=$base.u tmpdepfile3=$dir.libs/$base.u "$@" -Wc,-M else tmpdepfile1=$dir$base.u tmpdepfile2=$dir$base.u tmpdepfile3=$dir$base.u "$@" -M fi stat=$? if test $stat -ne 0; then rm -f "$tmpdepfile1" "$tmpdepfile2" "$tmpdepfile3" exit $stat fi for tmpdepfile in "$tmpdepfile1" "$tmpdepfile2" "$tmpdepfile3" do test -f "$tmpdepfile" && break done aix_post_process_depfile ;; tcc) # tcc (Tiny C Compiler) understand '-MD -MF file' since version 0.9.26 # FIXME: That version still under development at the moment of writing. # Make that this statement remains true also for stable, released # versions. # It will wrap lines (doesn't matter whether long or short) with a # trailing '\', as in: # # foo.o : \ # foo.c \ # foo.h \ # # It will put a trailing '\' even on the last line, and will use leading # spaces rather than leading tabs (at least since its commit 0394caf7 # "Emit spaces for -MD"). "$@" -MD -MF "$tmpdepfile" stat=$? if test $stat -ne 0; then rm -f "$tmpdepfile" exit $stat fi rm -f "$depfile" # Each non-empty line is of the form 'foo.o : \' or ' dep.h \'. # We have to change lines of the first kind to '$object: \'. sed -e "s|.*:|$object :|" < "$tmpdepfile" > "$depfile" # And for each line of the second kind, we have to emit a 'dep.h:' # dummy dependency, to avoid the deleted-header problem. sed -n -e 's|^ *\(.*\) *\\$|\1:|p' < "$tmpdepfile" >> "$depfile" rm -f "$tmpdepfile" ;; ## The order of this option in the case statement is important, since the ## shell code in configure will try each of these formats in the order ## listed in this file. A plain '-MD' option would be understood by many ## compilers, so we must ensure this comes after the gcc and icc options. pgcc) # Portland's C compiler understands '-MD'. # Will always output deps to 'file.d' where file is the root name of the # source file under compilation, even if file resides in a subdirectory. # The object file name does not affect the name of the '.d' file. # pgcc 10.2 will output # foo.o: sub/foo.c sub/foo.h # and will wrap long lines using '\' : # foo.o: sub/foo.c ... \ # sub/foo.h ... \ # ... set_dir_from "$object" # Use the source, not the object, to determine the base name, since # that's sadly what pgcc will do too. set_base_from "$source" tmpdepfile=$base.d # For projects that build the same source file twice into different object # files, the pgcc approach of using the *source* file root name can cause # problems in parallel builds. Use a locking strategy to avoid stomping on # the same $tmpdepfile. lockdir=$base.d-lock trap " echo '$0: caught signal, cleaning up...' >&2 rmdir '$lockdir' exit 1 " 1 2 13 15 numtries=100 i=$numtries while test $i -gt 0; do # mkdir is a portable test-and-set. if mkdir "$lockdir" 2>/dev/null; then # This process acquired the lock. "$@" -MD stat=$? # Release the lock. rmdir "$lockdir" break else # If the lock is being held by a different process, wait # until the winning process is done or we timeout. while test -d "$lockdir" && test $i -gt 0; do sleep 1 i=`expr $i - 1` done fi i=`expr $i - 1` done trap - 1 2 13 15 if test $i -le 0; then echo "$0: failed to acquire lock after $numtries attempts" >&2 echo "$0: check lockdir '$lockdir'" >&2 exit 1 fi if test $stat -ne 0; then rm -f "$tmpdepfile" exit $stat fi rm -f "$depfile" # Each line is of the form `foo.o: dependent.h', # or `foo.o: dep1.h dep2.h \', or ` dep3.h dep4.h \'. # Do two passes, one to just change these to # `$object: dependent.h' and one to simply `dependent.h:'. sed "s,^[^:]*:,$object :," < "$tmpdepfile" > "$depfile" # Some versions of the HPUX 10.20 sed can't process this invocation # correctly. Breaking it into two sed invocations is a workaround. sed 's,^[^:]*: \(.*\)$,\1,;s/^\\$//;/^$/d;/:$/d' < "$tmpdepfile" \ | sed -e 's/$/ :/' >> "$depfile" rm -f "$tmpdepfile" ;; hp2) # The "hp" stanza above does not work with aCC (C++) and HP's ia64 # compilers, which have integrated preprocessors. The correct option # to use with these is +Maked; it writes dependencies to a file named # 'foo.d', which lands next to the object file, wherever that # happens to be. # Much of this is similar to the tru64 case; see comments there. set_dir_from "$object" set_base_from "$object" if test "$libtool" = yes; then tmpdepfile1=$dir$base.d tmpdepfile2=$dir.libs/$base.d "$@" -Wc,+Maked else tmpdepfile1=$dir$base.d tmpdepfile2=$dir$base.d "$@" +Maked fi stat=$? if test $stat -ne 0; then rm -f "$tmpdepfile1" "$tmpdepfile2" exit $stat fi for tmpdepfile in "$tmpdepfile1" "$tmpdepfile2" do test -f "$tmpdepfile" && break done if test -f "$tmpdepfile"; then sed -e "s,^.*\.[$lower]*:,$object:," "$tmpdepfile" > "$depfile" # Add 'dependent.h:' lines. sed -ne '2,${ s/^ *// s/ \\*$// s/$/:/ p }' "$tmpdepfile" >> "$depfile" else make_dummy_depfile fi rm -f "$tmpdepfile" "$tmpdepfile2" ;; tru64) # The Tru64 compiler uses -MD to generate dependencies as a side # effect. 'cc -MD -o foo.o ...' puts the dependencies into 'foo.o.d'. # At least on Alpha/Redhat 6.1, Compaq CCC V6.2-504 seems to put # dependencies in 'foo.d' instead, so we check for that too. # Subdirectories are respected. set_dir_from "$object" set_base_from "$object" if test "$libtool" = yes; then # Libtool generates 2 separate objects for the 2 libraries. These # two compilations output dependencies in $dir.libs/$base.o.d and # in $dir$base.o.d. We have to check for both files, because # one of the two compilations can be disabled. We should prefer # $dir$base.o.d over $dir.libs/$base.o.d because the latter is # automatically cleaned when .libs/ is deleted, while ignoring # the former would cause a distcleancheck panic. tmpdepfile1=$dir$base.o.d # libtool 1.5 tmpdepfile2=$dir.libs/$base.o.d # Likewise. tmpdepfile3=$dir.libs/$base.d # Compaq CCC V6.2-504 "$@" -Wc,-MD else tmpdepfile1=$dir$base.d tmpdepfile2=$dir$base.d tmpdepfile3=$dir$base.d "$@" -MD fi stat=$? if test $stat -ne 0; then rm -f "$tmpdepfile1" "$tmpdepfile2" "$tmpdepfile3" exit $stat fi for tmpdepfile in "$tmpdepfile1" "$tmpdepfile2" "$tmpdepfile3" do test -f "$tmpdepfile" && break done # Same post-processing that is required for AIX mode. aix_post_process_depfile ;; msvc7) if test "$libtool" = yes; then showIncludes=-Wc,-showIncludes else showIncludes=-showIncludes fi "$@" $showIncludes > "$tmpdepfile" stat=$? grep -v '^Note: including file: ' "$tmpdepfile" if test $stat -ne 0; then rm -f "$tmpdepfile" exit $stat fi rm -f "$depfile" echo "$object : \\" > "$depfile" # The first sed program below extracts the file names and escapes # backslashes for cygpath. The second sed program outputs the file # name when reading, but also accumulates all include files in the # hold buffer in order to output them again at the end. This only # works with sed implementations that can handle large buffers. sed < "$tmpdepfile" -n ' /^Note: including file: *\(.*\)/ { s//\1/ s/\\/\\\\/g p }' | $cygpath_u | sort -u | sed -n ' s/ /\\ /g s/\(.*\)/'"$tab"'\1 \\/p s/.\(.*\) \\/\1:/ H $ { s/.*/'"$tab"'/ G p }' >> "$depfile" echo >> "$depfile" # make sure the fragment doesn't end with a backslash rm -f "$tmpdepfile" ;; msvc7msys) # This case exists only to let depend.m4 do its work. It works by # looking at the text of this script. This case will never be run, # since it is checked for above. exit 1 ;; #nosideeffect) # This comment above is used by automake to tell side-effect # dependency tracking mechanisms from slower ones. dashmstdout) # Important note: in order to support this mode, a compiler *must* # always write the preprocessed file to stdout, regardless of -o. "$@" || exit $? # Remove the call to Libtool. if test "$libtool" = yes; then while test "X$1" != 'X--mode=compile'; do shift done shift fi # Remove '-o $object'. IFS=" " for arg do case $arg in -o) shift ;; $object) shift ;; *) set fnord "$@" "$arg" shift # fnord shift # $arg ;; esac done test -z "$dashmflag" && dashmflag=-M # Require at least two characters before searching for ':' # in the target name. This is to cope with DOS-style filenames: # a dependency such as 'c:/foo/bar' could be seen as target 'c' otherwise. "$@" $dashmflag | sed "s|^[$tab ]*[^:$tab ][^:][^:]*:[$tab ]*|$object: |" > "$tmpdepfile" rm -f "$depfile" cat < "$tmpdepfile" > "$depfile" # Some versions of the HPUX 10.20 sed can't process this sed invocation # correctly. Breaking it into two sed invocations is a workaround. tr ' ' "$nl" < "$tmpdepfile" \ | sed -e 's/^\\$//' -e '/^$/d' -e '/:$/d' \ | sed -e 's/$/ :/' >> "$depfile" rm -f "$tmpdepfile" ;; dashXmstdout) # This case only exists to satisfy depend.m4. It is never actually # run, as this mode is specially recognized in the preamble. exit 1 ;; makedepend) "$@" || exit $? # Remove any Libtool call if test "$libtool" = yes; then while test "X$1" != 'X--mode=compile'; do shift done shift fi # X makedepend shift cleared=no eat=no for arg do case $cleared in no) set ""; shift cleared=yes ;; esac if test $eat = yes; then eat=no continue fi case "$arg" in -D*|-I*) set fnord "$@" "$arg"; shift ;; # Strip any option that makedepend may not understand. Remove # the object too, otherwise makedepend will parse it as a source file. -arch) eat=yes ;; -*|$object) ;; *) set fnord "$@" "$arg"; shift ;; esac done obj_suffix=`echo "$object" | sed 's/^.*\././'` touch "$tmpdepfile" ${MAKEDEPEND-makedepend} -o"$obj_suffix" -f"$tmpdepfile" "$@" rm -f "$depfile" # makedepend may prepend the VPATH from the source file name to the object. # No need to regex-escape $object, excess matching of '.' is harmless. sed "s|^.*\($object *:\)|\1|" "$tmpdepfile" > "$depfile" # Some versions of the HPUX 10.20 sed can't process the last invocation # correctly. Breaking it into two sed invocations is a workaround. sed '1,2d' "$tmpdepfile" \ | tr ' ' "$nl" \ | sed -e 's/^\\$//' -e '/^$/d' -e '/:$/d' \ | sed -e 's/$/ :/' >> "$depfile" rm -f "$tmpdepfile" "$tmpdepfile".bak ;; cpp) # Important note: in order to support this mode, a compiler *must* # always write the preprocessed file to stdout. "$@" || exit $? # Remove the call to Libtool. if test "$libtool" = yes; then while test "X$1" != 'X--mode=compile'; do shift done shift fi # Remove '-o $object'. IFS=" " for arg do case $arg in -o) shift ;; $object) shift ;; *) set fnord "$@" "$arg" shift # fnord shift # $arg ;; esac done "$@" -E \ | sed -n -e '/^# [0-9][0-9]* "\([^"]*\)".*/ s:: \1 \\:p' \ -e '/^#line [0-9][0-9]* "\([^"]*\)".*/ s:: \1 \\:p' \ | sed '$ s: \\$::' > "$tmpdepfile" rm -f "$depfile" echo "$object : \\" > "$depfile" cat < "$tmpdepfile" >> "$depfile" sed < "$tmpdepfile" '/^$/d;s/^ //;s/ \\$//;s/$/ :/' >> "$depfile" rm -f "$tmpdepfile" ;; msvisualcpp) # Important note: in order to support this mode, a compiler *must* # always write the preprocessed file to stdout. "$@" || exit $? # Remove the call to Libtool. if test "$libtool" = yes; then while test "X$1" != 'X--mode=compile'; do shift done shift fi IFS=" " for arg do case "$arg" in -o) shift ;; $object) shift ;; "-Gm"|"/Gm"|"-Gi"|"/Gi"|"-ZI"|"/ZI") set fnord "$@" shift shift ;; *) set fnord "$@" "$arg" shift shift ;; esac done "$@" -E 2>/dev/null | sed -n '/^#line [0-9][0-9]* "\([^"]*\)"/ s::\1:p' | $cygpath_u | sort -u > "$tmpdepfile" rm -f "$depfile" echo "$object : \\" > "$depfile" sed < "$tmpdepfile" -n -e 's% %\\ %g' -e '/^\(.*\)$/ s::'"$tab"'\1 \\:p' >> "$depfile" echo "$tab" >> "$depfile" sed < "$tmpdepfile" -n -e 's% %\\ %g' -e '/^\(.*\)$/ s::\1\::p' >> "$depfile" rm -f "$tmpdepfile" ;; msvcmsys) # This case exists only to let depend.m4 do its work. It works by # looking at the text of this script. This case will never be run, # since it is checked for above. exit 1 ;; none) exec "$@" ;; *) echo "Unknown depmode $depmode" 1>&2 exit 1 ;; esac exit 0 # Local Variables: # mode: shell-script # sh-indentation: 2 # eval: (add-hook 'write-file-hooks 'time-stamp) # time-stamp-start: "scriptversion=" # time-stamp-format: "%:y-%02m-%02d.%02H" # time-stamp-time-zone: "UTC0" # time-stamp-end: "; # UTC" # End: libffcall-2.2/build-aux/config.guess0000775000000000000000000013623213526533142014411 00000000000000#! /bin/sh # Attempt to guess a canonical system name. # Copyright 1992-2019 Free Software Foundation, Inc. timestamp='2019-07-24' # This file is free software; you can redistribute it and/or modify it # under the terms of the GNU General Public License as published by # the Free Software Foundation; either version 3 of the License, or # (at your option) any later version. # # This program is distributed in the hope that it will be useful, but # WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU # General Public License for more details. # # You should have received a copy of the GNU General Public License # along with this program; if not, see . # # As a special exception to the GNU General Public License, if you # distribute this file as part of a program that contains a # configuration script generated by Autoconf, you may include it under # the same distribution terms that you use for the rest of that # program. This Exception is an additional permission under section 7 # of the GNU General Public License, version 3 ("GPLv3"). # # Originally written by Per Bothner; maintained since 2000 by Ben Elliston. # # You can get the latest version of this script from: # https://git.savannah.gnu.org/gitweb/?p=config.git;a=blob_plain;f=config.guess # # Please send patches to . me=`echo "$0" | sed -e 's,.*/,,'` usage="\ Usage: $0 [OPTION] Output the configuration name of the system \`$me' is run on. Options: -h, --help print this help, then exit -t, --time-stamp print date of last modification, then exit -v, --version print version number, then exit Report bugs and patches to ." version="\ GNU config.guess ($timestamp) Originally written by Per Bothner. Copyright 1992-2019 Free Software Foundation, Inc. This is free software; see the source for copying conditions. There is NO warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE." help=" Try \`$me --help' for more information." # Parse command line while test $# -gt 0 ; do case $1 in --time-stamp | --time* | -t ) echo "$timestamp" ; exit ;; --version | -v ) echo "$version" ; exit ;; --help | --h* | -h ) echo "$usage"; exit ;; -- ) # Stop option processing shift; break ;; - ) # Use stdin as input. break ;; -* ) echo "$me: invalid option $1$help" >&2 exit 1 ;; * ) break ;; esac done if test $# != 0; then echo "$me: too many arguments$help" >&2 exit 1 fi # CC_FOR_BUILD -- compiler used by this script. Note that the use of a # compiler to aid in system detection is discouraged as it requires # temporary files to be created and, as you can see below, it is a # headache to deal with in a portable fashion. # Historically, `CC_FOR_BUILD' used to be named `HOST_CC'. We still # use `HOST_CC' if defined, but it is deprecated. # Portable tmp directory creation inspired by the Autoconf team. tmp= # shellcheck disable=SC2172 trap 'test -z "$tmp" || rm -fr "$tmp"' 0 1 2 13 15 set_cc_for_build() { : "${TMPDIR=/tmp}" # shellcheck disable=SC2039 { tmp=`(umask 077 && mktemp -d "$TMPDIR/cgXXXXXX") 2>/dev/null` && test -n "$tmp" && test -d "$tmp" ; } || { test -n "$RANDOM" && tmp=$TMPDIR/cg$$-$RANDOM && (umask 077 && mkdir "$tmp" 2>/dev/null) ; } || { tmp=$TMPDIR/cg-$$ && (umask 077 && mkdir "$tmp" 2>/dev/null) && echo "Warning: creating insecure temp directory" >&2 ; } || { echo "$me: cannot create a temporary directory in $TMPDIR" >&2 ; exit 1 ; } dummy=$tmp/dummy case ${CC_FOR_BUILD-},${HOST_CC-},${CC-} in ,,) echo "int x;" > "$dummy.c" for driver in cc gcc c89 c99 ; do if ($driver -c -o "$dummy.o" "$dummy.c") >/dev/null 2>&1 ; then CC_FOR_BUILD="$driver" break fi done if test x"$CC_FOR_BUILD" = x ; then CC_FOR_BUILD=no_compiler_found fi ;; ,,*) CC_FOR_BUILD=$CC ;; ,*,*) CC_FOR_BUILD=$HOST_CC ;; esac } # This is needed to find uname on a Pyramid OSx when run in the BSD universe. # (ghazi@noc.rutgers.edu 1994-08-24) if test -f /.attbin/uname ; then PATH=$PATH:/.attbin ; export PATH fi UNAME_MACHINE=`(uname -m) 2>/dev/null` || UNAME_MACHINE=unknown UNAME_RELEASE=`(uname -r) 2>/dev/null` || UNAME_RELEASE=unknown UNAME_SYSTEM=`(uname -s) 2>/dev/null` || UNAME_SYSTEM=unknown UNAME_VERSION=`(uname -v) 2>/dev/null` || UNAME_VERSION=unknown case "$UNAME_SYSTEM" in Linux|GNU|GNU/*) # If the system lacks a compiler, then just pick glibc. # We could probably try harder. LIBC=gnu set_cc_for_build cat <<-EOF > "$dummy.c" #include #if defined(__UCLIBC__) LIBC=uclibc #elif defined(__dietlibc__) LIBC=dietlibc #else LIBC=gnu #endif EOF eval "`$CC_FOR_BUILD -E "$dummy.c" 2>/dev/null | grep '^LIBC' | sed 's, ,,g'`" # If ldd exists, use it to detect musl libc. if command -v ldd >/dev/null && \ ldd --version 2>&1 | grep -q ^musl then LIBC=musl fi ;; esac # Note: order is significant - the case branches are not exclusive. case "$UNAME_MACHINE:$UNAME_SYSTEM:$UNAME_RELEASE:$UNAME_VERSION" in *:NetBSD:*:*) # NetBSD (nbsd) targets should (where applicable) match one or # more of the tuples: *-*-netbsdelf*, *-*-netbsdaout*, # *-*-netbsdecoff* and *-*-netbsd*. For targets that recently # switched to ELF, *-*-netbsd* would select the old # object file format. This provides both forward # compatibility and a consistent mechanism for selecting the # object file format. # # Note: NetBSD doesn't particularly care about the vendor # portion of the name. We always set it to "unknown". sysctl="sysctl -n hw.machine_arch" UNAME_MACHINE_ARCH=`(uname -p 2>/dev/null || \ "/sbin/$sysctl" 2>/dev/null || \ "/usr/sbin/$sysctl" 2>/dev/null || \ echo unknown)` case "$UNAME_MACHINE_ARCH" in armeb) machine=armeb-unknown ;; arm*) machine=arm-unknown ;; sh3el) machine=shl-unknown ;; sh3eb) machine=sh-unknown ;; sh5el) machine=sh5le-unknown ;; earmv*) arch=`echo "$UNAME_MACHINE_ARCH" | sed -e 's,^e\(armv[0-9]\).*$,\1,'` endian=`echo "$UNAME_MACHINE_ARCH" | sed -ne 's,^.*\(eb\)$,\1,p'` machine="${arch}${endian}"-unknown ;; *) machine="$UNAME_MACHINE_ARCH"-unknown ;; esac # The Operating System including object format, if it has switched # to ELF recently (or will in the future) and ABI. case "$UNAME_MACHINE_ARCH" in earm*) os=netbsdelf ;; arm*|i386|m68k|ns32k|sh3*|sparc|vax) set_cc_for_build if echo __ELF__ | $CC_FOR_BUILD -E - 2>/dev/null \ | grep -q __ELF__ then # Once all utilities can be ECOFF (netbsdecoff) or a.out (netbsdaout). # Return netbsd for either. FIX? os=netbsd else os=netbsdelf fi ;; *) os=netbsd ;; esac # Determine ABI tags. case "$UNAME_MACHINE_ARCH" in earm*) expr='s/^earmv[0-9]/-eabi/;s/eb$//' abi=`echo "$UNAME_MACHINE_ARCH" | sed -e "$expr"` ;; esac # The OS release # Debian GNU/NetBSD machines have a different userland, and # thus, need a distinct triplet. However, they do not need # kernel version information, so it can be replaced with a # suitable tag, in the style of linux-gnu. case "$UNAME_VERSION" in Debian*) release='-gnu' ;; *) release=`echo "$UNAME_RELEASE" | sed -e 's/[-_].*//' | cut -d. -f1,2` ;; esac # Since CPU_TYPE-MANUFACTURER-KERNEL-OPERATING_SYSTEM: # contains redundant information, the shorter form: # CPU_TYPE-MANUFACTURER-OPERATING_SYSTEM is used. echo "$machine-${os}${release}${abi-}" exit ;; *:Bitrig:*:*) UNAME_MACHINE_ARCH=`arch | sed 's/Bitrig.//'` echo "$UNAME_MACHINE_ARCH"-unknown-bitrig"$UNAME_RELEASE" exit ;; *:OpenBSD:*:*) UNAME_MACHINE_ARCH=`arch | sed 's/OpenBSD.//'` echo "$UNAME_MACHINE_ARCH"-unknown-openbsd"$UNAME_RELEASE" exit ;; *:LibertyBSD:*:*) UNAME_MACHINE_ARCH=`arch | sed 's/^.*BSD\.//'` echo "$UNAME_MACHINE_ARCH"-unknown-libertybsd"$UNAME_RELEASE" exit ;; *:MidnightBSD:*:*) echo "$UNAME_MACHINE"-unknown-midnightbsd"$UNAME_RELEASE" exit ;; *:ekkoBSD:*:*) echo "$UNAME_MACHINE"-unknown-ekkobsd"$UNAME_RELEASE" exit ;; *:SolidBSD:*:*) echo "$UNAME_MACHINE"-unknown-solidbsd"$UNAME_RELEASE" exit ;; *:OS108:*:*) echo "$UNAME_MACHINE"-unknown-os108_"$UNAME_RELEASE" exit ;; macppc:MirBSD:*:*) echo powerpc-unknown-mirbsd"$UNAME_RELEASE" exit ;; *:MirBSD:*:*) echo "$UNAME_MACHINE"-unknown-mirbsd"$UNAME_RELEASE" exit ;; *:Sortix:*:*) echo "$UNAME_MACHINE"-unknown-sortix exit ;; *:Redox:*:*) echo "$UNAME_MACHINE"-unknown-redox exit ;; mips:OSF1:*.*) echo mips-dec-osf1 exit ;; alpha:OSF1:*:*) case $UNAME_RELEASE in *4.0) UNAME_RELEASE=`/usr/sbin/sizer -v | awk '{print $3}'` ;; *5.*) UNAME_RELEASE=`/usr/sbin/sizer -v | awk '{print $4}'` ;; esac # According to Compaq, /usr/sbin/psrinfo has been available on # OSF/1 and Tru64 systems produced since 1995. I hope that # covers most systems running today. This code pipes the CPU # types through head -n 1, so we only detect the type of CPU 0. ALPHA_CPU_TYPE=`/usr/sbin/psrinfo -v | sed -n -e 's/^ The alpha \(.*\) processor.*$/\1/p' | head -n 1` case "$ALPHA_CPU_TYPE" in "EV4 (21064)") UNAME_MACHINE=alpha ;; "EV4.5 (21064)") UNAME_MACHINE=alpha ;; "LCA4 (21066/21068)") UNAME_MACHINE=alpha ;; "EV5 (21164)") UNAME_MACHINE=alphaev5 ;; "EV5.6 (21164A)") UNAME_MACHINE=alphaev56 ;; "EV5.6 (21164PC)") UNAME_MACHINE=alphapca56 ;; "EV5.7 (21164PC)") UNAME_MACHINE=alphapca57 ;; "EV6 (21264)") UNAME_MACHINE=alphaev6 ;; "EV6.7 (21264A)") UNAME_MACHINE=alphaev67 ;; "EV6.8CB (21264C)") UNAME_MACHINE=alphaev68 ;; "EV6.8AL (21264B)") UNAME_MACHINE=alphaev68 ;; "EV6.8CX (21264D)") UNAME_MACHINE=alphaev68 ;; "EV6.9A (21264/EV69A)") UNAME_MACHINE=alphaev69 ;; "EV7 (21364)") UNAME_MACHINE=alphaev7 ;; "EV7.9 (21364A)") UNAME_MACHINE=alphaev79 ;; esac # A Pn.n version is a patched version. # A Vn.n version is a released version. # A Tn.n version is a released field test version. # A Xn.n version is an unreleased experimental baselevel. # 1.2 uses "1.2" for uname -r. echo "$UNAME_MACHINE"-dec-osf"`echo "$UNAME_RELEASE" | sed -e 's/^[PVTX]//' | tr ABCDEFGHIJKLMNOPQRSTUVWXYZ abcdefghijklmnopqrstuvwxyz`" # Reset EXIT trap before exiting to avoid spurious non-zero exit code. exitcode=$? trap '' 0 exit $exitcode ;; Amiga*:UNIX_System_V:4.0:*) echo m68k-unknown-sysv4 exit ;; *:[Aa]miga[Oo][Ss]:*:*) echo "$UNAME_MACHINE"-unknown-amigaos exit ;; *:[Mm]orph[Oo][Ss]:*:*) echo "$UNAME_MACHINE"-unknown-morphos exit ;; *:OS/390:*:*) echo i370-ibm-openedition exit ;; *:z/VM:*:*) echo s390-ibm-zvmoe exit ;; *:OS400:*:*) echo powerpc-ibm-os400 exit ;; arm:RISC*:1.[012]*:*|arm:riscix:1.[012]*:*) echo arm-acorn-riscix"$UNAME_RELEASE" exit ;; arm*:riscos:*:*|arm*:RISCOS:*:*) echo arm-unknown-riscos exit ;; SR2?01:HI-UX/MPP:*:* | SR8000:HI-UX/MPP:*:*) echo hppa1.1-hitachi-hiuxmpp exit ;; Pyramid*:OSx*:*:* | MIS*:OSx*:*:* | MIS*:SMP_DC-OSx*:*:*) # akee@wpdis03.wpafb.af.mil (Earle F. Ake) contributed MIS and NILE. if test "`(/bin/universe) 2>/dev/null`" = att ; then echo pyramid-pyramid-sysv3 else echo pyramid-pyramid-bsd fi exit ;; NILE*:*:*:dcosx) echo pyramid-pyramid-svr4 exit ;; DRS?6000:unix:4.0:6*) echo sparc-icl-nx6 exit ;; DRS?6000:UNIX_SV:4.2*:7* | DRS?6000:isis:4.2*:7*) case `/usr/bin/uname -p` in sparc) echo sparc-icl-nx7; exit ;; esac ;; s390x:SunOS:*:*) echo "$UNAME_MACHINE"-ibm-solaris2"`echo "$UNAME_RELEASE" | sed -e 's/[^.]*//'`" exit ;; sun4H:SunOS:5.*:*) echo sparc-hal-solaris2"`echo "$UNAME_RELEASE"|sed -e 's/[^.]*//'`" exit ;; sun4*:SunOS:5.*:* | tadpole*:SunOS:5.*:*) echo sparc-sun-solaris2"`echo "$UNAME_RELEASE" | sed -e 's/[^.]*//'`" exit ;; i86pc:AuroraUX:5.*:* | i86xen:AuroraUX:5.*:*) echo i386-pc-auroraux"$UNAME_RELEASE" exit ;; i86pc:SunOS:5.*:* | i86xen:SunOS:5.*:*) set_cc_for_build SUN_ARCH=i386 # If there is a compiler, see if it is configured for 64-bit objects. # Note that the Sun cc does not turn __LP64__ into 1 like gcc does. # This test works for both compilers. if [ "$CC_FOR_BUILD" != no_compiler_found ]; then if (echo '#ifdef __amd64'; echo IS_64BIT_ARCH; echo '#endif') | \ (CCOPTS="" $CC_FOR_BUILD -E - 2>/dev/null) | \ grep IS_64BIT_ARCH >/dev/null then SUN_ARCH=x86_64 fi fi echo "$SUN_ARCH"-pc-solaris2"`echo "$UNAME_RELEASE"|sed -e 's/[^.]*//'`" exit ;; sun4*:SunOS:6*:*) # According to config.sub, this is the proper way to canonicalize # SunOS6. Hard to guess exactly what SunOS6 will be like, but # it's likely to be more like Solaris than SunOS4. echo sparc-sun-solaris3"`echo "$UNAME_RELEASE"|sed -e 's/[^.]*//'`" exit ;; sun4*:SunOS:*:*) case "`/usr/bin/arch -k`" in Series*|S4*) UNAME_RELEASE=`uname -v` ;; esac # Japanese Language versions have a version number like `4.1.3-JL'. echo sparc-sun-sunos"`echo "$UNAME_RELEASE"|sed -e 's/-/_/'`" exit ;; sun3*:SunOS:*:*) echo m68k-sun-sunos"$UNAME_RELEASE" exit ;; sun*:*:4.2BSD:*) UNAME_RELEASE=`(sed 1q /etc/motd | awk '{print substr($5,1,3)}') 2>/dev/null` test "x$UNAME_RELEASE" = x && UNAME_RELEASE=3 case "`/bin/arch`" in sun3) echo m68k-sun-sunos"$UNAME_RELEASE" ;; sun4) echo sparc-sun-sunos"$UNAME_RELEASE" ;; esac exit ;; aushp:SunOS:*:*) echo sparc-auspex-sunos"$UNAME_RELEASE" exit ;; # The situation for MiNT is a little confusing. The machine name # can be virtually everything (everything which is not # "atarist" or "atariste" at least should have a processor # > m68000). The system name ranges from "MiNT" over "FreeMiNT" # to the lowercase version "mint" (or "freemint"). Finally # the system name "TOS" denotes a system which is actually not # MiNT. But MiNT is downward compatible to TOS, so this should # be no problem. atarist[e]:*MiNT:*:* | atarist[e]:*mint:*:* | atarist[e]:*TOS:*:*) echo m68k-atari-mint"$UNAME_RELEASE" exit ;; atari*:*MiNT:*:* | atari*:*mint:*:* | atarist[e]:*TOS:*:*) echo m68k-atari-mint"$UNAME_RELEASE" exit ;; *falcon*:*MiNT:*:* | *falcon*:*mint:*:* | *falcon*:*TOS:*:*) echo m68k-atari-mint"$UNAME_RELEASE" exit ;; milan*:*MiNT:*:* | milan*:*mint:*:* | *milan*:*TOS:*:*) echo m68k-milan-mint"$UNAME_RELEASE" exit ;; hades*:*MiNT:*:* | hades*:*mint:*:* | *hades*:*TOS:*:*) echo m68k-hades-mint"$UNAME_RELEASE" exit ;; *:*MiNT:*:* | *:*mint:*:* | *:*TOS:*:*) echo m68k-unknown-mint"$UNAME_RELEASE" exit ;; m68k:machten:*:*) echo m68k-apple-machten"$UNAME_RELEASE" exit ;; powerpc:machten:*:*) echo powerpc-apple-machten"$UNAME_RELEASE" exit ;; RISC*:Mach:*:*) echo mips-dec-mach_bsd4.3 exit ;; RISC*:ULTRIX:*:*) echo mips-dec-ultrix"$UNAME_RELEASE" exit ;; VAX*:ULTRIX*:*:*) echo vax-dec-ultrix"$UNAME_RELEASE" exit ;; 2020:CLIX:*:* | 2430:CLIX:*:*) echo clipper-intergraph-clix"$UNAME_RELEASE" exit ;; mips:*:*:UMIPS | mips:*:*:RISCos) set_cc_for_build sed 's/^ //' << EOF > "$dummy.c" #ifdef __cplusplus #include /* for printf() prototype */ int main (int argc, char *argv[]) { #else int main (argc, argv) int argc; char *argv[]; { #endif #if defined (host_mips) && defined (MIPSEB) #if defined (SYSTYPE_SYSV) printf ("mips-mips-riscos%ssysv\\n", argv[1]); exit (0); #endif #if defined (SYSTYPE_SVR4) printf ("mips-mips-riscos%ssvr4\\n", argv[1]); exit (0); #endif #if defined (SYSTYPE_BSD43) || defined(SYSTYPE_BSD) printf ("mips-mips-riscos%sbsd\\n", argv[1]); exit (0); #endif #endif exit (-1); } EOF $CC_FOR_BUILD -o "$dummy" "$dummy.c" && dummyarg=`echo "$UNAME_RELEASE" | sed -n 's/\([0-9]*\).*/\1/p'` && SYSTEM_NAME=`"$dummy" "$dummyarg"` && { echo "$SYSTEM_NAME"; exit; } echo mips-mips-riscos"$UNAME_RELEASE" exit ;; Motorola:PowerMAX_OS:*:*) echo powerpc-motorola-powermax exit ;; Motorola:*:4.3:PL8-*) echo powerpc-harris-powermax exit ;; Night_Hawk:*:*:PowerMAX_OS | Synergy:PowerMAX_OS:*:*) echo powerpc-harris-powermax exit ;; Night_Hawk:Power_UNIX:*:*) echo powerpc-harris-powerunix exit ;; m88k:CX/UX:7*:*) echo m88k-harris-cxux7 exit ;; m88k:*:4*:R4*) echo m88k-motorola-sysv4 exit ;; m88k:*:3*:R3*) echo m88k-motorola-sysv3 exit ;; AViiON:dgux:*:*) # DG/UX returns AViiON for all architectures UNAME_PROCESSOR=`/usr/bin/uname -p` if [ "$UNAME_PROCESSOR" = mc88100 ] || [ "$UNAME_PROCESSOR" = mc88110 ] then if [ "$TARGET_BINARY_INTERFACE"x = m88kdguxelfx ] || \ [ "$TARGET_BINARY_INTERFACE"x = x ] then echo m88k-dg-dgux"$UNAME_RELEASE" else echo m88k-dg-dguxbcs"$UNAME_RELEASE" fi else echo i586-dg-dgux"$UNAME_RELEASE" fi exit ;; M88*:DolphinOS:*:*) # DolphinOS (SVR3) echo m88k-dolphin-sysv3 exit ;; M88*:*:R3*:*) # Delta 88k system running SVR3 echo m88k-motorola-sysv3 exit ;; XD88*:*:*:*) # Tektronix XD88 system running UTekV (SVR3) echo m88k-tektronix-sysv3 exit ;; Tek43[0-9][0-9]:UTek:*:*) # Tektronix 4300 system running UTek (BSD) echo m68k-tektronix-bsd exit ;; *:IRIX*:*:*) echo mips-sgi-irix"`echo "$UNAME_RELEASE"|sed -e 's/-/_/g'`" exit ;; ????????:AIX?:[12].1:2) # AIX 2.2.1 or AIX 2.1.1 is RT/PC AIX. echo romp-ibm-aix # uname -m gives an 8 hex-code CPU id exit ;; # Note that: echo "'`uname -s`'" gives 'AIX ' i*86:AIX:*:*) echo i386-ibm-aix exit ;; ia64:AIX:*:*) if [ -x /usr/bin/oslevel ] ; then IBM_REV=`/usr/bin/oslevel` else IBM_REV="$UNAME_VERSION.$UNAME_RELEASE" fi echo "$UNAME_MACHINE"-ibm-aix"$IBM_REV" exit ;; *:AIX:2:3) if grep bos325 /usr/include/stdio.h >/dev/null 2>&1; then set_cc_for_build sed 's/^ //' << EOF > "$dummy.c" #include main() { if (!__power_pc()) exit(1); puts("powerpc-ibm-aix3.2.5"); exit(0); } EOF if $CC_FOR_BUILD -o "$dummy" "$dummy.c" && SYSTEM_NAME=`"$dummy"` then echo "$SYSTEM_NAME" else echo rs6000-ibm-aix3.2.5 fi elif grep bos324 /usr/include/stdio.h >/dev/null 2>&1; then echo rs6000-ibm-aix3.2.4 else echo rs6000-ibm-aix3.2 fi exit ;; *:AIX:*:[4567]) IBM_CPU_ID=`/usr/sbin/lsdev -C -c processor -S available | sed 1q | awk '{ print $1 }'` if /usr/sbin/lsattr -El "$IBM_CPU_ID" | grep ' POWER' >/dev/null 2>&1; then IBM_ARCH=rs6000 else IBM_ARCH=powerpc fi if [ -x /usr/bin/lslpp ] ; then IBM_REV=`/usr/bin/lslpp -Lqc bos.rte.libc | awk -F: '{ print $3 }' | sed s/[0-9]*$/0/` else IBM_REV="$UNAME_VERSION.$UNAME_RELEASE" fi echo "$IBM_ARCH"-ibm-aix"$IBM_REV" exit ;; *:AIX:*:*) echo rs6000-ibm-aix exit ;; ibmrt:4.4BSD:*|romp-ibm:4.4BSD:*) echo romp-ibm-bsd4.4 exit ;; ibmrt:*BSD:*|romp-ibm:BSD:*) # covers RT/PC BSD and echo romp-ibm-bsd"$UNAME_RELEASE" # 4.3 with uname added to exit ;; # report: romp-ibm BSD 4.3 *:BOSX:*:*) echo rs6000-bull-bosx exit ;; DPX/2?00:B.O.S.:*:*) echo m68k-bull-sysv3 exit ;; 9000/[34]??:4.3bsd:1.*:*) echo m68k-hp-bsd exit ;; hp300:4.4BSD:*:* | 9000/[34]??:4.3bsd:2.*:*) echo m68k-hp-bsd4.4 exit ;; 9000/[34678]??:HP-UX:*:*) HPUX_REV=`echo "$UNAME_RELEASE"|sed -e 's/[^.]*.[0B]*//'` case "$UNAME_MACHINE" in 9000/31?) HP_ARCH=m68000 ;; 9000/[34]??) HP_ARCH=m68k ;; 9000/[678][0-9][0-9]) if [ -x /usr/bin/getconf ]; then sc_cpu_version=`/usr/bin/getconf SC_CPU_VERSION 2>/dev/null` sc_kernel_bits=`/usr/bin/getconf SC_KERNEL_BITS 2>/dev/null` case "$sc_cpu_version" in 523) HP_ARCH=hppa1.0 ;; # CPU_PA_RISC1_0 528) HP_ARCH=hppa1.1 ;; # CPU_PA_RISC1_1 532) # CPU_PA_RISC2_0 case "$sc_kernel_bits" in 32) HP_ARCH=hppa2.0n ;; 64) HP_ARCH=hppa2.0w ;; '') HP_ARCH=hppa2.0 ;; # HP-UX 10.20 esac ;; esac fi if [ "$HP_ARCH" = "" ]; then set_cc_for_build sed 's/^ //' << EOF > "$dummy.c" #define _HPUX_SOURCE #include #include int main () { #if defined(_SC_KERNEL_BITS) long bits = sysconf(_SC_KERNEL_BITS); #endif long cpu = sysconf (_SC_CPU_VERSION); switch (cpu) { case CPU_PA_RISC1_0: puts ("hppa1.0"); break; case CPU_PA_RISC1_1: puts ("hppa1.1"); break; case CPU_PA_RISC2_0: #if defined(_SC_KERNEL_BITS) switch (bits) { case 64: puts ("hppa2.0w"); break; case 32: puts ("hppa2.0n"); break; default: puts ("hppa2.0"); break; } break; #else /* !defined(_SC_KERNEL_BITS) */ puts ("hppa2.0"); break; #endif default: puts ("hppa1.0"); break; } exit (0); } EOF (CCOPTS="" $CC_FOR_BUILD -o "$dummy" "$dummy.c" 2>/dev/null) && HP_ARCH=`"$dummy"` test -z "$HP_ARCH" && HP_ARCH=hppa fi ;; esac if [ "$HP_ARCH" = hppa2.0w ] then set_cc_for_build # hppa2.0w-hp-hpux* has a 64-bit kernel and a compiler generating # 32-bit code. hppa64-hp-hpux* has the same kernel and a compiler # generating 64-bit code. GNU and HP use different nomenclature: # # $ CC_FOR_BUILD=cc ./config.guess # => hppa2.0w-hp-hpux11.23 # $ CC_FOR_BUILD="cc +DA2.0w" ./config.guess # => hppa64-hp-hpux11.23 if echo __LP64__ | (CCOPTS="" $CC_FOR_BUILD -E - 2>/dev/null) | grep -q __LP64__ then HP_ARCH=hppa2.0w else HP_ARCH=hppa64 fi fi echo "$HP_ARCH"-hp-hpux"$HPUX_REV" exit ;; ia64:HP-UX:*:*) HPUX_REV=`echo "$UNAME_RELEASE"|sed -e 's/[^.]*.[0B]*//'` echo ia64-hp-hpux"$HPUX_REV" exit ;; 3050*:HI-UX:*:*) set_cc_for_build sed 's/^ //' << EOF > "$dummy.c" #include int main () { long cpu = sysconf (_SC_CPU_VERSION); /* The order matters, because CPU_IS_HP_MC68K erroneously returns true for CPU_PA_RISC1_0. CPU_IS_PA_RISC returns correct results, however. */ if (CPU_IS_PA_RISC (cpu)) { switch (cpu) { case CPU_PA_RISC1_0: puts ("hppa1.0-hitachi-hiuxwe2"); break; case CPU_PA_RISC1_1: puts ("hppa1.1-hitachi-hiuxwe2"); break; case CPU_PA_RISC2_0: puts ("hppa2.0-hitachi-hiuxwe2"); break; default: puts ("hppa-hitachi-hiuxwe2"); break; } } else if (CPU_IS_HP_MC68K (cpu)) puts ("m68k-hitachi-hiuxwe2"); else puts ("unknown-hitachi-hiuxwe2"); exit (0); } EOF $CC_FOR_BUILD -o "$dummy" "$dummy.c" && SYSTEM_NAME=`"$dummy"` && { echo "$SYSTEM_NAME"; exit; } echo unknown-hitachi-hiuxwe2 exit ;; 9000/7??:4.3bsd:*:* | 9000/8?[79]:4.3bsd:*:*) echo hppa1.1-hp-bsd exit ;; 9000/8??:4.3bsd:*:*) echo hppa1.0-hp-bsd exit ;; *9??*:MPE/iX:*:* | *3000*:MPE/iX:*:*) echo hppa1.0-hp-mpeix exit ;; hp7??:OSF1:*:* | hp8?[79]:OSF1:*:*) echo hppa1.1-hp-osf exit ;; hp8??:OSF1:*:*) echo hppa1.0-hp-osf exit ;; i*86:OSF1:*:*) if [ -x /usr/sbin/sysversion ] ; then echo "$UNAME_MACHINE"-unknown-osf1mk else echo "$UNAME_MACHINE"-unknown-osf1 fi exit ;; parisc*:Lites*:*:*) echo hppa1.1-hp-lites exit ;; C1*:ConvexOS:*:* | convex:ConvexOS:C1*:*) echo c1-convex-bsd exit ;; C2*:ConvexOS:*:* | convex:ConvexOS:C2*:*) if getsysinfo -f scalar_acc then echo c32-convex-bsd else echo c2-convex-bsd fi exit ;; C34*:ConvexOS:*:* | convex:ConvexOS:C34*:*) echo c34-convex-bsd exit ;; C38*:ConvexOS:*:* | convex:ConvexOS:C38*:*) echo c38-convex-bsd exit ;; C4*:ConvexOS:*:* | convex:ConvexOS:C4*:*) echo c4-convex-bsd exit ;; CRAY*Y-MP:*:*:*) echo ymp-cray-unicos"$UNAME_RELEASE" | sed -e 's/\.[^.]*$/.X/' exit ;; CRAY*[A-Z]90:*:*:*) echo "$UNAME_MACHINE"-cray-unicos"$UNAME_RELEASE" \ | sed -e 's/CRAY.*\([A-Z]90\)/\1/' \ -e y/ABCDEFGHIJKLMNOPQRSTUVWXYZ/abcdefghijklmnopqrstuvwxyz/ \ -e 's/\.[^.]*$/.X/' exit ;; CRAY*TS:*:*:*) echo t90-cray-unicos"$UNAME_RELEASE" | sed -e 's/\.[^.]*$/.X/' exit ;; CRAY*T3E:*:*:*) echo alphaev5-cray-unicosmk"$UNAME_RELEASE" | sed -e 's/\.[^.]*$/.X/' exit ;; CRAY*SV1:*:*:*) echo sv1-cray-unicos"$UNAME_RELEASE" | sed -e 's/\.[^.]*$/.X/' exit ;; *:UNICOS/mp:*:*) echo craynv-cray-unicosmp"$UNAME_RELEASE" | sed -e 's/\.[^.]*$/.X/' exit ;; F30[01]:UNIX_System_V:*:* | F700:UNIX_System_V:*:*) FUJITSU_PROC=`uname -m | tr ABCDEFGHIJKLMNOPQRSTUVWXYZ abcdefghijklmnopqrstuvwxyz` FUJITSU_SYS=`uname -p | tr ABCDEFGHIJKLMNOPQRSTUVWXYZ abcdefghijklmnopqrstuvwxyz | sed -e 's/\///'` FUJITSU_REL=`echo "$UNAME_RELEASE" | sed -e 's/ /_/'` echo "${FUJITSU_PROC}-fujitsu-${FUJITSU_SYS}${FUJITSU_REL}" exit ;; 5000:UNIX_System_V:4.*:*) FUJITSU_SYS=`uname -p | tr ABCDEFGHIJKLMNOPQRSTUVWXYZ abcdefghijklmnopqrstuvwxyz | sed -e 's/\///'` FUJITSU_REL=`echo "$UNAME_RELEASE" | tr ABCDEFGHIJKLMNOPQRSTUVWXYZ abcdefghijklmnopqrstuvwxyz | sed -e 's/ /_/'` echo "sparc-fujitsu-${FUJITSU_SYS}${FUJITSU_REL}" exit ;; i*86:BSD/386:*:* | i*86:BSD/OS:*:* | *:Ascend\ Embedded/OS:*:*) echo "$UNAME_MACHINE"-pc-bsdi"$UNAME_RELEASE" exit ;; sparc*:BSD/OS:*:*) echo sparc-unknown-bsdi"$UNAME_RELEASE" exit ;; *:BSD/OS:*:*) echo "$UNAME_MACHINE"-unknown-bsdi"$UNAME_RELEASE" exit ;; arm:FreeBSD:*:*) UNAME_PROCESSOR=`uname -p` set_cc_for_build if echo __ARM_PCS_VFP | $CC_FOR_BUILD -E - 2>/dev/null \ | grep -q __ARM_PCS_VFP then echo "${UNAME_PROCESSOR}"-unknown-freebsd"`echo ${UNAME_RELEASE}|sed -e 's/[-(].*//'`"-gnueabi else echo "${UNAME_PROCESSOR}"-unknown-freebsd"`echo ${UNAME_RELEASE}|sed -e 's/[-(].*//'`"-gnueabihf fi exit ;; *:FreeBSD:*:*) UNAME_PROCESSOR=`/usr/bin/uname -p` case "$UNAME_PROCESSOR" in amd64) UNAME_PROCESSOR=x86_64 ;; i386) UNAME_PROCESSOR=i586 ;; esac echo "$UNAME_PROCESSOR"-unknown-freebsd"`echo "$UNAME_RELEASE"|sed -e 's/[-(].*//'`" exit ;; i*:CYGWIN*:*) echo "$UNAME_MACHINE"-pc-cygwin exit ;; *:MINGW64*:*) echo "$UNAME_MACHINE"-pc-mingw64 exit ;; *:MINGW*:*) echo "$UNAME_MACHINE"-pc-mingw32 exit ;; *:MSYS*:*) echo "$UNAME_MACHINE"-pc-msys exit ;; i*:PW*:*) echo "$UNAME_MACHINE"-pc-pw32 exit ;; *:Interix*:*) case "$UNAME_MACHINE" in x86) echo i586-pc-interix"$UNAME_RELEASE" exit ;; authenticamd | genuineintel | EM64T) echo x86_64-unknown-interix"$UNAME_RELEASE" exit ;; IA64) echo ia64-unknown-interix"$UNAME_RELEASE" exit ;; esac ;; i*:UWIN*:*) echo "$UNAME_MACHINE"-pc-uwin exit ;; amd64:CYGWIN*:*:* | x86_64:CYGWIN*:*:*) echo x86_64-pc-cygwin exit ;; prep*:SunOS:5.*:*) echo powerpcle-unknown-solaris2"`echo "$UNAME_RELEASE"|sed -e 's/[^.]*//'`" exit ;; *:GNU:*:*) # the GNU system echo "`echo "$UNAME_MACHINE"|sed -e 's,[-/].*$,,'`-unknown-$LIBC`echo "$UNAME_RELEASE"|sed -e 's,/.*$,,'`" exit ;; *:GNU/*:*:*) # other systems with GNU libc and userland echo "$UNAME_MACHINE-unknown-`echo "$UNAME_SYSTEM" | sed 's,^[^/]*/,,' | tr "[:upper:]" "[:lower:]"``echo "$UNAME_RELEASE"|sed -e 's/[-(].*//'`-$LIBC" exit ;; *:Minix:*:*) echo "$UNAME_MACHINE"-unknown-minix exit ;; aarch64:Linux:*:*) echo "$UNAME_MACHINE"-unknown-linux-"$LIBC" exit ;; aarch64_be:Linux:*:*) UNAME_MACHINE=aarch64_be echo "$UNAME_MACHINE"-unknown-linux-"$LIBC" exit ;; alpha:Linux:*:*) case `sed -n '/^cpu model/s/^.*: \(.*\)/\1/p' < /proc/cpuinfo` in EV5) UNAME_MACHINE=alphaev5 ;; EV56) UNAME_MACHINE=alphaev56 ;; PCA56) UNAME_MACHINE=alphapca56 ;; PCA57) UNAME_MACHINE=alphapca56 ;; EV6) UNAME_MACHINE=alphaev6 ;; EV67) UNAME_MACHINE=alphaev67 ;; EV68*) UNAME_MACHINE=alphaev68 ;; esac objdump --private-headers /bin/sh | grep -q ld.so.1 if test "$?" = 0 ; then LIBC=gnulibc1 ; fi echo "$UNAME_MACHINE"-unknown-linux-"$LIBC" exit ;; arc:Linux:*:* | arceb:Linux:*:*) echo "$UNAME_MACHINE"-unknown-linux-"$LIBC" exit ;; arm*:Linux:*:*) set_cc_for_build if echo __ARM_EABI__ | $CC_FOR_BUILD -E - 2>/dev/null \ | grep -q __ARM_EABI__ then echo "$UNAME_MACHINE"-unknown-linux-"$LIBC" else if echo __ARM_PCS_VFP | $CC_FOR_BUILD -E - 2>/dev/null \ | grep -q __ARM_PCS_VFP then echo "$UNAME_MACHINE"-unknown-linux-"$LIBC"eabi else echo "$UNAME_MACHINE"-unknown-linux-"$LIBC"eabihf fi fi exit ;; avr32*:Linux:*:*) echo "$UNAME_MACHINE"-unknown-linux-"$LIBC" exit ;; cris:Linux:*:*) echo "$UNAME_MACHINE"-axis-linux-"$LIBC" exit ;; crisv32:Linux:*:*) echo "$UNAME_MACHINE"-axis-linux-"$LIBC" exit ;; e2k:Linux:*:*) echo "$UNAME_MACHINE"-unknown-linux-"$LIBC" exit ;; frv:Linux:*:*) echo "$UNAME_MACHINE"-unknown-linux-"$LIBC" exit ;; hexagon:Linux:*:*) echo "$UNAME_MACHINE"-unknown-linux-"$LIBC" exit ;; i*86:Linux:*:*) echo "$UNAME_MACHINE"-pc-linux-"$LIBC" exit ;; ia64:Linux:*:*) echo "$UNAME_MACHINE"-unknown-linux-"$LIBC" exit ;; k1om:Linux:*:*) echo "$UNAME_MACHINE"-unknown-linux-"$LIBC" exit ;; m32r*:Linux:*:*) echo "$UNAME_MACHINE"-unknown-linux-"$LIBC" exit ;; m68*:Linux:*:*) echo "$UNAME_MACHINE"-unknown-linux-"$LIBC" exit ;; mips:Linux:*:* | mips64:Linux:*:*) set_cc_for_build IS_GLIBC=0 test x"${LIBC}" = xgnu && IS_GLIBC=1 sed 's/^ //' << EOF > "$dummy.c" #undef CPU #undef mips #undef mipsel #undef mips64 #undef mips64el #if ${IS_GLIBC} && defined(_ABI64) LIBCABI=gnuabi64 #else #if ${IS_GLIBC} && defined(_ABIN32) LIBCABI=gnuabin32 #else LIBCABI=${LIBC} #endif #endif #if ${IS_GLIBC} && defined(__mips64) && defined(__mips_isa_rev) && __mips_isa_rev>=6 CPU=mipsisa64r6 #else #if ${IS_GLIBC} && !defined(__mips64) && defined(__mips_isa_rev) && __mips_isa_rev>=6 CPU=mipsisa32r6 #else #if defined(__mips64) CPU=mips64 #else CPU=mips #endif #endif #endif #if defined(__MIPSEL__) || defined(__MIPSEL) || defined(_MIPSEL) || defined(MIPSEL) MIPS_ENDIAN=el #else #if defined(__MIPSEB__) || defined(__MIPSEB) || defined(_MIPSEB) || defined(MIPSEB) MIPS_ENDIAN= #else MIPS_ENDIAN= #endif #endif EOF eval "`$CC_FOR_BUILD -E "$dummy.c" 2>/dev/null | grep '^CPU\|^MIPS_ENDIAN\|^LIBCABI'`" test "x$CPU" != x && { echo "$CPU${MIPS_ENDIAN}-unknown-linux-$LIBCABI"; exit; } ;; mips64el:Linux:*:*) echo "$UNAME_MACHINE"-unknown-linux-"$LIBC" exit ;; openrisc*:Linux:*:*) echo or1k-unknown-linux-"$LIBC" exit ;; or32:Linux:*:* | or1k*:Linux:*:*) echo "$UNAME_MACHINE"-unknown-linux-"$LIBC" exit ;; padre:Linux:*:*) echo sparc-unknown-linux-"$LIBC" exit ;; parisc64:Linux:*:* | hppa64:Linux:*:*) echo hppa64-unknown-linux-"$LIBC" exit ;; parisc:Linux:*:* | hppa:Linux:*:*) # Look for CPU level case `grep '^cpu[^a-z]*:' /proc/cpuinfo 2>/dev/null | cut -d' ' -f2` in PA7*) echo hppa1.1-unknown-linux-"$LIBC" ;; PA8*) echo hppa2.0-unknown-linux-"$LIBC" ;; *) echo hppa-unknown-linux-"$LIBC" ;; esac exit ;; ppc64:Linux:*:*) echo powerpc64-unknown-linux-"$LIBC" exit ;; ppc:Linux:*:*) echo powerpc-unknown-linux-"$LIBC" exit ;; ppc64le:Linux:*:*) echo powerpc64le-unknown-linux-"$LIBC" exit ;; ppcle:Linux:*:*) echo powerpcle-unknown-linux-"$LIBC" exit ;; riscv32:Linux:*:* | riscv64:Linux:*:*) echo "$UNAME_MACHINE"-unknown-linux-"$LIBC" exit ;; s390:Linux:*:* | s390x:Linux:*:*) echo "$UNAME_MACHINE"-ibm-linux-"$LIBC" exit ;; sh64*:Linux:*:*) echo "$UNAME_MACHINE"-unknown-linux-"$LIBC" exit ;; sh*:Linux:*:*) echo "$UNAME_MACHINE"-unknown-linux-"$LIBC" exit ;; sparc:Linux:*:* | sparc64:Linux:*:*) echo "$UNAME_MACHINE"-unknown-linux-"$LIBC" exit ;; tile*:Linux:*:*) echo "$UNAME_MACHINE"-unknown-linux-"$LIBC" exit ;; vax:Linux:*:*) echo "$UNAME_MACHINE"-dec-linux-"$LIBC" exit ;; x86_64:Linux:*:*) echo "$UNAME_MACHINE"-pc-linux-"$LIBC" exit ;; xtensa*:Linux:*:*) echo "$UNAME_MACHINE"-unknown-linux-"$LIBC" exit ;; i*86:DYNIX/ptx:4*:*) # ptx 4.0 does uname -s correctly, with DYNIX/ptx in there. # earlier versions are messed up and put the nodename in both # sysname and nodename. echo i386-sequent-sysv4 exit ;; i*86:UNIX_SV:4.2MP:2.*) # Unixware is an offshoot of SVR4, but it has its own version # number series starting with 2... # I am not positive that other SVR4 systems won't match this, # I just have to hope. -- rms. # Use sysv4.2uw... so that sysv4* matches it. echo "$UNAME_MACHINE"-pc-sysv4.2uw"$UNAME_VERSION" exit ;; i*86:OS/2:*:*) # If we were able to find `uname', then EMX Unix compatibility # is probably installed. echo "$UNAME_MACHINE"-pc-os2-emx exit ;; i*86:XTS-300:*:STOP) echo "$UNAME_MACHINE"-unknown-stop exit ;; i*86:atheos:*:*) echo "$UNAME_MACHINE"-unknown-atheos exit ;; i*86:syllable:*:*) echo "$UNAME_MACHINE"-pc-syllable exit ;; i*86:LynxOS:2.*:* | i*86:LynxOS:3.[01]*:* | i*86:LynxOS:4.[02]*:*) echo i386-unknown-lynxos"$UNAME_RELEASE" exit ;; i*86:*DOS:*:*) echo "$UNAME_MACHINE"-pc-msdosdjgpp exit ;; i*86:*:4.*:*) UNAME_REL=`echo "$UNAME_RELEASE" | sed 's/\/MP$//'` if grep Novell /usr/include/link.h >/dev/null 2>/dev/null; then echo "$UNAME_MACHINE"-univel-sysv"$UNAME_REL" else echo "$UNAME_MACHINE"-pc-sysv"$UNAME_REL" fi exit ;; i*86:*:5:[678]*) # UnixWare 7.x, OpenUNIX and OpenServer 6. case `/bin/uname -X | grep "^Machine"` in *486*) UNAME_MACHINE=i486 ;; *Pentium) UNAME_MACHINE=i586 ;; *Pent*|*Celeron) UNAME_MACHINE=i686 ;; esac echo "$UNAME_MACHINE-unknown-sysv${UNAME_RELEASE}${UNAME_SYSTEM}${UNAME_VERSION}" exit ;; i*86:*:3.2:*) if test -f /usr/options/cb.name; then UNAME_REL=`sed -n 's/.*Version //p' /dev/null >/dev/null ; then UNAME_REL=`(/bin/uname -X|grep Release|sed -e 's/.*= //')` (/bin/uname -X|grep i80486 >/dev/null) && UNAME_MACHINE=i486 (/bin/uname -X|grep '^Machine.*Pentium' >/dev/null) \ && UNAME_MACHINE=i586 (/bin/uname -X|grep '^Machine.*Pent *II' >/dev/null) \ && UNAME_MACHINE=i686 (/bin/uname -X|grep '^Machine.*Pentium Pro' >/dev/null) \ && UNAME_MACHINE=i686 echo "$UNAME_MACHINE"-pc-sco"$UNAME_REL" else echo "$UNAME_MACHINE"-pc-sysv32 fi exit ;; pc:*:*:*) # Left here for compatibility: # uname -m prints for DJGPP always 'pc', but it prints nothing about # the processor, so we play safe by assuming i586. # Note: whatever this is, it MUST be the same as what config.sub # prints for the "djgpp" host, or else GDB configure will decide that # this is a cross-build. echo i586-pc-msdosdjgpp exit ;; Intel:Mach:3*:*) echo i386-pc-mach3 exit ;; paragon:*:*:*) echo i860-intel-osf1 exit ;; i860:*:4.*:*) # i860-SVR4 if grep Stardent /usr/include/sys/uadmin.h >/dev/null 2>&1 ; then echo i860-stardent-sysv"$UNAME_RELEASE" # Stardent Vistra i860-SVR4 else # Add other i860-SVR4 vendors below as they are discovered. echo i860-unknown-sysv"$UNAME_RELEASE" # Unknown i860-SVR4 fi exit ;; mini*:CTIX:SYS*5:*) # "miniframe" echo m68010-convergent-sysv exit ;; mc68k:UNIX:SYSTEM5:3.51m) echo m68k-convergent-sysv exit ;; M680?0:D-NIX:5.3:*) echo m68k-diab-dnix exit ;; M68*:*:R3V[5678]*:*) test -r /sysV68 && { echo 'm68k-motorola-sysv'; exit; } ;; 3[345]??:*:4.0:3.0 | 3[34]??A:*:4.0:3.0 | 3[34]??,*:*:4.0:3.0 | 3[34]??/*:*:4.0:3.0 | 4400:*:4.0:3.0 | 4850:*:4.0:3.0 | SKA40:*:4.0:3.0 | SDS2:*:4.0:3.0 | SHG2:*:4.0:3.0 | S7501*:*:4.0:3.0) OS_REL='' test -r /etc/.relid \ && OS_REL=.`sed -n 's/[^ ]* [^ ]* \([0-9][0-9]\).*/\1/p' < /etc/.relid` /bin/uname -p 2>/dev/null | grep 86 >/dev/null \ && { echo i486-ncr-sysv4.3"$OS_REL"; exit; } /bin/uname -p 2>/dev/null | /bin/grep entium >/dev/null \ && { echo i586-ncr-sysv4.3"$OS_REL"; exit; } ;; 3[34]??:*:4.0:* | 3[34]??,*:*:4.0:*) /bin/uname -p 2>/dev/null | grep 86 >/dev/null \ && { echo i486-ncr-sysv4; exit; } ;; NCR*:*:4.2:* | MPRAS*:*:4.2:*) OS_REL='.3' test -r /etc/.relid \ && OS_REL=.`sed -n 's/[^ ]* [^ ]* \([0-9][0-9]\).*/\1/p' < /etc/.relid` /bin/uname -p 2>/dev/null | grep 86 >/dev/null \ && { echo i486-ncr-sysv4.3"$OS_REL"; exit; } /bin/uname -p 2>/dev/null | /bin/grep entium >/dev/null \ && { echo i586-ncr-sysv4.3"$OS_REL"; exit; } /bin/uname -p 2>/dev/null | /bin/grep pteron >/dev/null \ && { echo i586-ncr-sysv4.3"$OS_REL"; exit; } ;; m68*:LynxOS:2.*:* | m68*:LynxOS:3.0*:*) echo m68k-unknown-lynxos"$UNAME_RELEASE" exit ;; mc68030:UNIX_System_V:4.*:*) echo m68k-atari-sysv4 exit ;; TSUNAMI:LynxOS:2.*:*) echo sparc-unknown-lynxos"$UNAME_RELEASE" exit ;; rs6000:LynxOS:2.*:*) echo rs6000-unknown-lynxos"$UNAME_RELEASE" exit ;; PowerPC:LynxOS:2.*:* | PowerPC:LynxOS:3.[01]*:* | PowerPC:LynxOS:4.[02]*:*) echo powerpc-unknown-lynxos"$UNAME_RELEASE" exit ;; SM[BE]S:UNIX_SV:*:*) echo mips-dde-sysv"$UNAME_RELEASE" exit ;; RM*:ReliantUNIX-*:*:*) echo mips-sni-sysv4 exit ;; RM*:SINIX-*:*:*) echo mips-sni-sysv4 exit ;; *:SINIX-*:*:*) if uname -p 2>/dev/null >/dev/null ; then UNAME_MACHINE=`(uname -p) 2>/dev/null` echo "$UNAME_MACHINE"-sni-sysv4 else echo ns32k-sni-sysv fi exit ;; PENTIUM:*:4.0*:*) # Unisys `ClearPath HMP IX 4000' SVR4/MP effort # says echo i586-unisys-sysv4 exit ;; *:UNIX_System_V:4*:FTX*) # From Gerald Hewes . # How about differentiating between stratus architectures? -djm echo hppa1.1-stratus-sysv4 exit ;; *:*:*:FTX*) # From seanf@swdc.stratus.com. echo i860-stratus-sysv4 exit ;; i*86:VOS:*:*) # From Paul.Green@stratus.com. echo "$UNAME_MACHINE"-stratus-vos exit ;; *:VOS:*:*) # From Paul.Green@stratus.com. echo hppa1.1-stratus-vos exit ;; mc68*:A/UX:*:*) echo m68k-apple-aux"$UNAME_RELEASE" exit ;; news*:NEWS-OS:6*:*) echo mips-sony-newsos6 exit ;; R[34]000:*System_V*:*:* | R4000:UNIX_SYSV:*:* | R*000:UNIX_SV:*:*) if [ -d /usr/nec ]; then echo mips-nec-sysv"$UNAME_RELEASE" else echo mips-unknown-sysv"$UNAME_RELEASE" fi exit ;; BeBox:BeOS:*:*) # BeOS running on hardware made by Be, PPC only. echo powerpc-be-beos exit ;; BeMac:BeOS:*:*) # BeOS running on Mac or Mac clone, PPC only. echo powerpc-apple-beos exit ;; BePC:BeOS:*:*) # BeOS running on Intel PC compatible. echo i586-pc-beos exit ;; BePC:Haiku:*:*) # Haiku running on Intel PC compatible. echo i586-pc-haiku exit ;; x86_64:Haiku:*:*) echo x86_64-unknown-haiku exit ;; SX-4:SUPER-UX:*:*) echo sx4-nec-superux"$UNAME_RELEASE" exit ;; SX-5:SUPER-UX:*:*) echo sx5-nec-superux"$UNAME_RELEASE" exit ;; SX-6:SUPER-UX:*:*) echo sx6-nec-superux"$UNAME_RELEASE" exit ;; SX-7:SUPER-UX:*:*) echo sx7-nec-superux"$UNAME_RELEASE" exit ;; SX-8:SUPER-UX:*:*) echo sx8-nec-superux"$UNAME_RELEASE" exit ;; SX-8R:SUPER-UX:*:*) echo sx8r-nec-superux"$UNAME_RELEASE" exit ;; SX-ACE:SUPER-UX:*:*) echo sxace-nec-superux"$UNAME_RELEASE" exit ;; Power*:Rhapsody:*:*) echo powerpc-apple-rhapsody"$UNAME_RELEASE" exit ;; *:Rhapsody:*:*) echo "$UNAME_MACHINE"-apple-rhapsody"$UNAME_RELEASE" exit ;; *:Darwin:*:*) UNAME_PROCESSOR=`uname -p` case $UNAME_PROCESSOR in unknown) UNAME_PROCESSOR=powerpc ;; esac if command -v xcode-select > /dev/null 2> /dev/null && \ ! xcode-select --print-path > /dev/null 2> /dev/null ; then # Avoid executing cc if there is no toolchain installed as # cc will be a stub that puts up a graphical alert # prompting the user to install developer tools. CC_FOR_BUILD=no_compiler_found else set_cc_for_build fi if [ "$CC_FOR_BUILD" != no_compiler_found ]; then if (echo '#ifdef __LP64__'; echo IS_64BIT_ARCH; echo '#endif') | \ (CCOPTS="" $CC_FOR_BUILD -E - 2>/dev/null) | \ grep IS_64BIT_ARCH >/dev/null then case $UNAME_PROCESSOR in i386) UNAME_PROCESSOR=x86_64 ;; powerpc) UNAME_PROCESSOR=powerpc64 ;; esac fi # On 10.4-10.6 one might compile for PowerPC via gcc -arch ppc if (echo '#ifdef __POWERPC__'; echo IS_PPC; echo '#endif') | \ (CCOPTS="" $CC_FOR_BUILD -E - 2>/dev/null) | \ grep IS_PPC >/dev/null then UNAME_PROCESSOR=powerpc fi elif test "$UNAME_PROCESSOR" = i386 ; then # uname -m returns i386 or x86_64 UNAME_PROCESSOR=$UNAME_MACHINE fi echo "$UNAME_PROCESSOR"-apple-darwin"$UNAME_RELEASE" exit ;; *:procnto*:*:* | *:QNX:[0123456789]*:*) UNAME_PROCESSOR=`uname -p` if test "$UNAME_PROCESSOR" = x86; then UNAME_PROCESSOR=i386 UNAME_MACHINE=pc fi echo "$UNAME_PROCESSOR"-"$UNAME_MACHINE"-nto-qnx"$UNAME_RELEASE" exit ;; *:QNX:*:4*) echo i386-pc-qnx exit ;; NEO-*:NONSTOP_KERNEL:*:*) echo neo-tandem-nsk"$UNAME_RELEASE" exit ;; NSE-*:NONSTOP_KERNEL:*:*) echo nse-tandem-nsk"$UNAME_RELEASE" exit ;; NSR-*:NONSTOP_KERNEL:*:*) echo nsr-tandem-nsk"$UNAME_RELEASE" exit ;; NSV-*:NONSTOP_KERNEL:*:*) echo nsv-tandem-nsk"$UNAME_RELEASE" exit ;; NSX-*:NONSTOP_KERNEL:*:*) echo nsx-tandem-nsk"$UNAME_RELEASE" exit ;; *:NonStop-UX:*:*) echo mips-compaq-nonstopux exit ;; BS2000:POSIX*:*:*) echo bs2000-siemens-sysv exit ;; DS/*:UNIX_System_V:*:*) echo "$UNAME_MACHINE"-"$UNAME_SYSTEM"-"$UNAME_RELEASE" exit ;; *:Plan9:*:*) # "uname -m" is not consistent, so use $cputype instead. 386 # is converted to i386 for consistency with other x86 # operating systems. # shellcheck disable=SC2154 if test "$cputype" = 386; then UNAME_MACHINE=i386 else UNAME_MACHINE="$cputype" fi echo "$UNAME_MACHINE"-unknown-plan9 exit ;; *:TOPS-10:*:*) echo pdp10-unknown-tops10 exit ;; *:TENEX:*:*) echo pdp10-unknown-tenex exit ;; KS10:TOPS-20:*:* | KL10:TOPS-20:*:* | TYPE4:TOPS-20:*:*) echo pdp10-dec-tops20 exit ;; XKL-1:TOPS-20:*:* | TYPE5:TOPS-20:*:*) echo pdp10-xkl-tops20 exit ;; *:TOPS-20:*:*) echo pdp10-unknown-tops20 exit ;; *:ITS:*:*) echo pdp10-unknown-its exit ;; SEI:*:*:SEIUX) echo mips-sei-seiux"$UNAME_RELEASE" exit ;; *:DragonFly:*:*) echo "$UNAME_MACHINE"-unknown-dragonfly"`echo "$UNAME_RELEASE"|sed -e 's/[-(].*//'`" exit ;; *:*VMS:*:*) UNAME_MACHINE=`(uname -p) 2>/dev/null` case "$UNAME_MACHINE" in A*) echo alpha-dec-vms ; exit ;; I*) echo ia64-dec-vms ; exit ;; V*) echo vax-dec-vms ; exit ;; esac ;; *:XENIX:*:SysV) echo i386-pc-xenix exit ;; i*86:skyos:*:*) echo "$UNAME_MACHINE"-pc-skyos"`echo "$UNAME_RELEASE" | sed -e 's/ .*$//'`" exit ;; i*86:rdos:*:*) echo "$UNAME_MACHINE"-pc-rdos exit ;; i*86:AROS:*:*) echo "$UNAME_MACHINE"-pc-aros exit ;; x86_64:VMkernel:*:*) echo "$UNAME_MACHINE"-unknown-esx exit ;; amd64:Isilon\ OneFS:*:*) echo x86_64-unknown-onefs exit ;; *:Unleashed:*:*) echo "$UNAME_MACHINE"-unknown-unleashed"$UNAME_RELEASE" exit ;; esac # No uname command or uname output not recognized. set_cc_for_build cat > "$dummy.c" < #include #endif #if defined(ultrix) || defined(_ultrix) || defined(__ultrix) || defined(__ultrix__) #if defined (vax) || defined (__vax) || defined (__vax__) || defined(mips) || defined(__mips) || defined(__mips__) || defined(MIPS) || defined(__MIPS__) #include #if defined(_SIZE_T_) || defined(SIGLOST) #include #endif #endif #endif main () { #if defined (sony) #if defined (MIPSEB) /* BFD wants "bsd" instead of "newsos". Perhaps BFD should be changed, I don't know.... */ printf ("mips-sony-bsd\n"); exit (0); #else #include printf ("m68k-sony-newsos%s\n", #ifdef NEWSOS4 "4" #else "" #endif ); exit (0); #endif #endif #if defined (NeXT) #if !defined (__ARCHITECTURE__) #define __ARCHITECTURE__ "m68k" #endif int version; version=`(hostinfo | sed -n 's/.*NeXT Mach \([0-9]*\).*/\1/p') 2>/dev/null`; if (version < 4) printf ("%s-next-nextstep%d\n", __ARCHITECTURE__, version); else printf ("%s-next-openstep%d\n", __ARCHITECTURE__, version); exit (0); #endif #if defined (MULTIMAX) || defined (n16) #if defined (UMAXV) printf ("ns32k-encore-sysv\n"); exit (0); #else #if defined (CMU) printf ("ns32k-encore-mach\n"); exit (0); #else printf ("ns32k-encore-bsd\n"); exit (0); #endif #endif #endif #if defined (__386BSD__) printf ("i386-pc-bsd\n"); exit (0); #endif #if defined (sequent) #if defined (i386) printf ("i386-sequent-dynix\n"); exit (0); #endif #if defined (ns32000) printf ("ns32k-sequent-dynix\n"); exit (0); #endif #endif #if defined (_SEQUENT_) struct utsname un; uname(&un); if (strncmp(un.version, "V2", 2) == 0) { printf ("i386-sequent-ptx2\n"); exit (0); } if (strncmp(un.version, "V1", 2) == 0) { /* XXX is V1 correct? */ printf ("i386-sequent-ptx1\n"); exit (0); } printf ("i386-sequent-ptx\n"); exit (0); #endif #if defined (vax) #if !defined (ultrix) #include #if defined (BSD) #if BSD == 43 printf ("vax-dec-bsd4.3\n"); exit (0); #else #if BSD == 199006 printf ("vax-dec-bsd4.3reno\n"); exit (0); #else printf ("vax-dec-bsd\n"); exit (0); #endif #endif #else printf ("vax-dec-bsd\n"); exit (0); #endif #else #if defined(_SIZE_T_) || defined(SIGLOST) struct utsname un; uname (&un); printf ("vax-dec-ultrix%s\n", un.release); exit (0); #else printf ("vax-dec-ultrix\n"); exit (0); #endif #endif #endif #if defined(ultrix) || defined(_ultrix) || defined(__ultrix) || defined(__ultrix__) #if defined(mips) || defined(__mips) || defined(__mips__) || defined(MIPS) || defined(__MIPS__) #if defined(_SIZE_T_) || defined(SIGLOST) struct utsname *un; uname (&un); printf ("mips-dec-ultrix%s\n", un.release); exit (0); #else printf ("mips-dec-ultrix\n"); exit (0); #endif #endif #endif #if defined (alliant) && defined (i860) printf ("i860-alliant-bsd\n"); exit (0); #endif exit (1); } EOF $CC_FOR_BUILD -o "$dummy" "$dummy.c" 2>/dev/null && SYSTEM_NAME=`$dummy` && { echo "$SYSTEM_NAME"; exit; } # Apollos put the system type in the environment. test -d /usr/apollo && { echo "$ISP-apollo-$SYSTYPE"; exit; } echo "$0: unable to guess system type" >&2 case "$UNAME_MACHINE:$UNAME_SYSTEM" in mips:Linux | mips64:Linux) # If we got here on MIPS GNU/Linux, output extra information. cat >&2 <&2 </dev/null || echo unknown` uname -r = `(uname -r) 2>/dev/null || echo unknown` uname -s = `(uname -s) 2>/dev/null || echo unknown` uname -v = `(uname -v) 2>/dev/null || echo unknown` /usr/bin/uname -p = `(/usr/bin/uname -p) 2>/dev/null` /bin/uname -X = `(/bin/uname -X) 2>/dev/null` hostinfo = `(hostinfo) 2>/dev/null` /bin/universe = `(/bin/universe) 2>/dev/null` /usr/bin/arch -k = `(/usr/bin/arch -k) 2>/dev/null` /bin/arch = `(/bin/arch) 2>/dev/null` /usr/bin/oslevel = `(/usr/bin/oslevel) 2>/dev/null` /usr/convex/getsysinfo = `(/usr/convex/getsysinfo) 2>/dev/null` UNAME_MACHINE = "$UNAME_MACHINE" UNAME_RELEASE = "$UNAME_RELEASE" UNAME_SYSTEM = "$UNAME_SYSTEM" UNAME_VERSION = "$UNAME_VERSION" EOF exit 1 # Local variables: # eval: (add-hook 'before-save-hook 'time-stamp) # time-stamp-start: "timestamp='" # time-stamp-format: "%:y-%02m-%02d" # time-stamp-end: "'" # End: libffcall-2.2/build-aux/compile0000775000000000000000000001632713262357637013463 00000000000000#! /bin/sh # Wrapper for compilers which do not understand '-c -o'. scriptversion=2018-03-07.03; # UTC # Copyright (C) 1999-2018 Free Software Foundation, Inc. # Written by Tom Tromey . # # This program is free software; you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by # the Free Software Foundation; either version 2, or (at your option) # any later version. # # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # # You should have received a copy of the GNU General Public License # along with this program. If not, see . # As a special exception to the GNU General Public License, if you # distribute this file as part of a program that contains a # configuration script generated by Autoconf, you may include it under # the same distribution terms that you use for the rest of that program. # This file is maintained in Automake, please report # bugs to or send patches to # . nl=' ' # We need space, tab and new line, in precisely that order. Quoting is # there to prevent tools from complaining about whitespace usage. IFS=" "" $nl" file_conv= # func_file_conv build_file lazy # Convert a $build file to $host form and store it in $file # Currently only supports Windows hosts. If the determined conversion # type is listed in (the comma separated) LAZY, no conversion will # take place. func_file_conv () { file=$1 case $file in / | /[!/]*) # absolute file, and not a UNC file if test -z "$file_conv"; then # lazily determine how to convert abs files case `uname -s` in MINGW*) file_conv=mingw ;; CYGWIN*) file_conv=cygwin ;; *) file_conv=wine ;; esac fi case $file_conv/,$2, in *,$file_conv,*) ;; mingw/*) file=`cmd //C echo "$file " | sed -e 's/"\(.*\) " *$/\1/'` ;; cygwin/*) file=`cygpath -m "$file" || echo "$file"` ;; wine/*) file=`winepath -w "$file" || echo "$file"` ;; esac ;; esac } # func_cl_dashL linkdir # Make cl look for libraries in LINKDIR func_cl_dashL () { func_file_conv "$1" if test -z "$lib_path"; then lib_path=$file else lib_path="$lib_path;$file" fi linker_opts="$linker_opts -LIBPATH:$file" } # func_cl_dashl library # Do a library search-path lookup for cl func_cl_dashl () { lib=$1 found=no save_IFS=$IFS IFS=';' for dir in $lib_path $LIB do IFS=$save_IFS if $shared && test -f "$dir/$lib.dll.lib"; then found=yes lib=$dir/$lib.dll.lib break fi if test -f "$dir/$lib.lib"; then found=yes lib=$dir/$lib.lib break fi if test -f "$dir/lib$lib.a"; then found=yes lib=$dir/lib$lib.a break fi done IFS=$save_IFS if test "$found" != yes; then lib=$lib.lib fi } # func_cl_wrapper cl arg... # Adjust compile command to suit cl func_cl_wrapper () { # Assume a capable shell lib_path= shared=: linker_opts= for arg do if test -n "$eat"; then eat= else case $1 in -o) # configure might choose to run compile as 'compile cc -o foo foo.c'. eat=1 case $2 in *.o | *.[oO][bB][jJ]) func_file_conv "$2" set x "$@" -Fo"$file" shift ;; *) func_file_conv "$2" set x "$@" -Fe"$file" shift ;; esac ;; -I) eat=1 func_file_conv "$2" mingw set x "$@" -I"$file" shift ;; -I*) func_file_conv "${1#-I}" mingw set x "$@" -I"$file" shift ;; -l) eat=1 func_cl_dashl "$2" set x "$@" "$lib" shift ;; -l*) func_cl_dashl "${1#-l}" set x "$@" "$lib" shift ;; -L) eat=1 func_cl_dashL "$2" ;; -L*) func_cl_dashL "${1#-L}" ;; -static) shared=false ;; -Wl,*) arg=${1#-Wl,} save_ifs="$IFS"; IFS=',' for flag in $arg; do IFS="$save_ifs" linker_opts="$linker_opts $flag" done IFS="$save_ifs" ;; -Xlinker) eat=1 linker_opts="$linker_opts $2" ;; -*) set x "$@" "$1" shift ;; *.cc | *.CC | *.cxx | *.CXX | *.[cC]++) func_file_conv "$1" set x "$@" -Tp"$file" shift ;; *.c | *.cpp | *.CPP | *.lib | *.LIB | *.Lib | *.OBJ | *.obj | *.[oO]) func_file_conv "$1" mingw set x "$@" "$file" shift ;; *) set x "$@" "$1" shift ;; esac fi shift done if test -n "$linker_opts"; then linker_opts="-link$linker_opts" fi exec "$@" $linker_opts exit 1 } eat= case $1 in '') echo "$0: No command. Try '$0 --help' for more information." 1>&2 exit 1; ;; -h | --h*) cat <<\EOF Usage: compile [--help] [--version] PROGRAM [ARGS] Wrapper for compilers which do not understand '-c -o'. Remove '-o dest.o' from ARGS, run PROGRAM with the remaining arguments, and rename the output as expected. If you are trying to build a whole package this is not the right script to run: please start by reading the file 'INSTALL'. Report bugs to . EOF exit $? ;; -v | --v*) echo "compile $scriptversion" exit $? ;; cl | *[/\\]cl | cl.exe | *[/\\]cl.exe | \ icl | *[/\\]icl | icl.exe | *[/\\]icl.exe ) func_cl_wrapper "$@" # Doesn't return... ;; esac ofile= cfile= for arg do if test -n "$eat"; then eat= else case $1 in -o) # configure might choose to run compile as 'compile cc -o foo foo.c'. # So we strip '-o arg' only if arg is an object. eat=1 case $2 in *.o | *.obj) ofile=$2 ;; *) set x "$@" -o "$2" shift ;; esac ;; *.c) cfile=$1 set x "$@" "$1" shift ;; *) set x "$@" "$1" shift ;; esac fi shift done if test -z "$ofile" || test -z "$cfile"; then # If no '-o' option was seen then we might have been invoked from a # pattern rule where we don't need one. That is ok -- this is a # normal compilation that the losing compiler can handle. If no # '.c' file was seen then we are probably linking. That is also # ok. exec "$@" fi # Name of file we expect compiler to create. cofile=`echo "$cfile" | sed 's|^.*[\\/]||; s|^[a-zA-Z]:||; s/\.c$/.o/'` # Create the lock directory. # Note: use '[/\\:.-]' here to ensure that we don't use the same name # that we are using for the .o file. Also, base the name on the expected # object file name, since that is what matters with a parallel build. lockdir=`echo "$cofile" | sed -e 's|[/\\:.-]|_|g'`.d while true; do if mkdir "$lockdir" >/dev/null 2>&1; then break fi sleep 1 done # FIXME: race condition here if user kills between mkdir and trap. trap "rmdir '$lockdir'; exit 1" 1 2 15 # Run the compile. "$@" ret=$? if test -f "$cofile"; then test "$cofile" = "$ofile" || mv "$cofile" "$ofile" elif test -f "${cofile}bj"; then test "${cofile}bj" = "$ofile" || mv "${cofile}bj" "$ofile" fi rmdir "$lockdir" exit $ret # Local Variables: # mode: shell-script # sh-indentation: 2 # eval: (add-hook 'before-save-hook 'time-stamp) # time-stamp-start: "scriptversion=" # time-stamp-format: "%:y-%02m-%02d.%02H" # time-stamp-time-zone: "UTC0" # time-stamp-end: "; # UTC" # End: libffcall-2.2/build-aux/config.sub0000775000000000000000000007555513526533142014066 00000000000000#! /bin/sh # Configuration validation subroutine script. # Copyright 1992-2019 Free Software Foundation, Inc. timestamp='2019-06-30' # This file is free software; you can redistribute it and/or modify it # under the terms of the GNU General Public License as published by # the Free Software Foundation; either version 3 of the License, or # (at your option) any later version. # # This program is distributed in the hope that it will be useful, but # WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU # General Public License for more details. # # You should have received a copy of the GNU General Public License # along with this program; if not, see . # # As a special exception to the GNU General Public License, if you # distribute this file as part of a program that contains a # configuration script generated by Autoconf, you may include it under # the same distribution terms that you use for the rest of that # program. This Exception is an additional permission under section 7 # of the GNU General Public License, version 3 ("GPLv3"). # Please send patches to . # # Configuration subroutine to validate and canonicalize a configuration type. # Supply the specified configuration type as an argument. # If it is invalid, we print an error message on stderr and exit with code 1. # Otherwise, we print the canonical config type on stdout and succeed. # You can get the latest version of this script from: # https://git.savannah.gnu.org/gitweb/?p=config.git;a=blob_plain;f=config.sub # This file is supposed to be the same for all GNU packages # and recognize all the CPU types, system types and aliases # that are meaningful with *any* GNU software. # Each package is responsible for reporting which valid configurations # it does not support. The user should be able to distinguish # a failure to support a valid configuration from a meaningless # configuration. # The goal of this file is to map all the various variations of a given # machine specification into a single specification in the form: # CPU_TYPE-MANUFACTURER-OPERATING_SYSTEM # or in some cases, the newer four-part form: # CPU_TYPE-MANUFACTURER-KERNEL-OPERATING_SYSTEM # It is wrong to echo any other type of specification. me=`echo "$0" | sed -e 's,.*/,,'` usage="\ Usage: $0 [OPTION] CPU-MFR-OPSYS or ALIAS Canonicalize a configuration name. Options: -h, --help print this help, then exit -t, --time-stamp print date of last modification, then exit -v, --version print version number, then exit Report bugs and patches to ." version="\ GNU config.sub ($timestamp) Copyright 1992-2019 Free Software Foundation, Inc. This is free software; see the source for copying conditions. There is NO warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE." help=" Try \`$me --help' for more information." # Parse command line while test $# -gt 0 ; do case $1 in --time-stamp | --time* | -t ) echo "$timestamp" ; exit ;; --version | -v ) echo "$version" ; exit ;; --help | --h* | -h ) echo "$usage"; exit ;; -- ) # Stop option processing shift; break ;; - ) # Use stdin as input. break ;; -* ) echo "$me: invalid option $1$help" >&2 exit 1 ;; *local*) # First pass through any local machine types. echo "$1" exit ;; * ) break ;; esac done case $# in 0) echo "$me: missing argument$help" >&2 exit 1;; 1) ;; *) echo "$me: too many arguments$help" >&2 exit 1;; esac # Split fields of configuration type # shellcheck disable=SC2162 IFS="-" read field1 field2 field3 field4 <&2 exit 1 ;; *-*-*-*) basic_machine=$field1-$field2 os=$field3-$field4 ;; *-*-*) # Ambiguous whether COMPANY is present, or skipped and KERNEL-OS is two # parts maybe_os=$field2-$field3 case $maybe_os in nto-qnx* | linux-gnu* | linux-android* | linux-dietlibc \ | linux-newlib* | linux-musl* | linux-uclibc* | uclinux-uclibc* \ | uclinux-gnu* | kfreebsd*-gnu* | knetbsd*-gnu* | netbsd*-gnu* \ | netbsd*-eabi* | kopensolaris*-gnu* | cloudabi*-eabi* \ | storm-chaos* | os2-emx* | rtmk-nova*) basic_machine=$field1 os=$maybe_os ;; android-linux) basic_machine=$field1-unknown os=linux-android ;; *) basic_machine=$field1-$field2 os=$field3 ;; esac ;; *-*) # A lone config we happen to match not fitting any pattern case $field1-$field2 in decstation-3100) basic_machine=mips-dec os= ;; *-*) # Second component is usually, but not always the OS case $field2 in # Prevent following clause from handling this valid os sun*os*) basic_machine=$field1 os=$field2 ;; # Manufacturers dec* | mips* | sequent* | encore* | pc533* | sgi* | sony* \ | att* | 7300* | 3300* | delta* | motorola* | sun[234]* \ | unicom* | ibm* | next | hp | isi* | apollo | altos* \ | convergent* | ncr* | news | 32* | 3600* | 3100* \ | hitachi* | c[123]* | convex* | sun | crds | omron* | dg \ | ultra | tti* | harris | dolphin | highlevel | gould \ | cbm | ns | masscomp | apple | axis | knuth | cray \ | microblaze* | sim | cisco \ | oki | wec | wrs | winbond) basic_machine=$field1-$field2 os= ;; *) basic_machine=$field1 os=$field2 ;; esac ;; esac ;; *) # Convert single-component short-hands not valid as part of # multi-component configurations. case $field1 in 386bsd) basic_machine=i386-pc os=bsd ;; a29khif) basic_machine=a29k-amd os=udi ;; adobe68k) basic_machine=m68010-adobe os=scout ;; alliant) basic_machine=fx80-alliant os= ;; altos | altos3068) basic_machine=m68k-altos os= ;; am29k) basic_machine=a29k-none os=bsd ;; amdahl) basic_machine=580-amdahl os=sysv ;; amiga) basic_machine=m68k-unknown os= ;; amigaos | amigados) basic_machine=m68k-unknown os=amigaos ;; amigaunix | amix) basic_machine=m68k-unknown os=sysv4 ;; apollo68) basic_machine=m68k-apollo os=sysv ;; apollo68bsd) basic_machine=m68k-apollo os=bsd ;; aros) basic_machine=i386-pc os=aros ;; aux) basic_machine=m68k-apple os=aux ;; balance) basic_machine=ns32k-sequent os=dynix ;; blackfin) basic_machine=bfin-unknown os=linux ;; cegcc) basic_machine=arm-unknown os=cegcc ;; convex-c1) basic_machine=c1-convex os=bsd ;; convex-c2) basic_machine=c2-convex os=bsd ;; convex-c32) basic_machine=c32-convex os=bsd ;; convex-c34) basic_machine=c34-convex os=bsd ;; convex-c38) basic_machine=c38-convex os=bsd ;; cray) basic_machine=j90-cray os=unicos ;; crds | unos) basic_machine=m68k-crds os= ;; da30) basic_machine=m68k-da30 os= ;; decstation | pmax | pmin | dec3100 | decstatn) basic_machine=mips-dec os= ;; delta88) basic_machine=m88k-motorola os=sysv3 ;; dicos) basic_machine=i686-pc os=dicos ;; djgpp) basic_machine=i586-pc os=msdosdjgpp ;; ebmon29k) basic_machine=a29k-amd os=ebmon ;; es1800 | OSE68k | ose68k | ose | OSE) basic_machine=m68k-ericsson os=ose ;; gmicro) basic_machine=tron-gmicro os=sysv ;; go32) basic_machine=i386-pc os=go32 ;; h8300hms) basic_machine=h8300-hitachi os=hms ;; h8300xray) basic_machine=h8300-hitachi os=xray ;; h8500hms) basic_machine=h8500-hitachi os=hms ;; harris) basic_machine=m88k-harris os=sysv3 ;; hp300 | hp300hpux) basic_machine=m68k-hp os=hpux ;; hp300bsd) basic_machine=m68k-hp os=bsd ;; hppaosf) basic_machine=hppa1.1-hp os=osf ;; hppro) basic_machine=hppa1.1-hp os=proelf ;; i386mach) basic_machine=i386-mach os=mach ;; isi68 | isi) basic_machine=m68k-isi os=sysv ;; m68knommu) basic_machine=m68k-unknown os=linux ;; magnum | m3230) basic_machine=mips-mips os=sysv ;; merlin) basic_machine=ns32k-utek os=sysv ;; mingw64) basic_machine=x86_64-pc os=mingw64 ;; mingw32) basic_machine=i686-pc os=mingw32 ;; mingw32ce) basic_machine=arm-unknown os=mingw32ce ;; monitor) basic_machine=m68k-rom68k os=coff ;; morphos) basic_machine=powerpc-unknown os=morphos ;; moxiebox) basic_machine=moxie-unknown os=moxiebox ;; msdos) basic_machine=i386-pc os=msdos ;; msys) basic_machine=i686-pc os=msys ;; mvs) basic_machine=i370-ibm os=mvs ;; nacl) basic_machine=le32-unknown os=nacl ;; ncr3000) basic_machine=i486-ncr os=sysv4 ;; netbsd386) basic_machine=i386-pc os=netbsd ;; netwinder) basic_machine=armv4l-rebel os=linux ;; news | news700 | news800 | news900) basic_machine=m68k-sony os=newsos ;; news1000) basic_machine=m68030-sony os=newsos ;; necv70) basic_machine=v70-nec os=sysv ;; nh3000) basic_machine=m68k-harris os=cxux ;; nh[45]000) basic_machine=m88k-harris os=cxux ;; nindy960) basic_machine=i960-intel os=nindy ;; mon960) basic_machine=i960-intel os=mon960 ;; nonstopux) basic_machine=mips-compaq os=nonstopux ;; os400) basic_machine=powerpc-ibm os=os400 ;; OSE68000 | ose68000) basic_machine=m68000-ericsson os=ose ;; os68k) basic_machine=m68k-none os=os68k ;; paragon) basic_machine=i860-intel os=osf ;; parisc) basic_machine=hppa-unknown os=linux ;; pw32) basic_machine=i586-unknown os=pw32 ;; rdos | rdos64) basic_machine=x86_64-pc os=rdos ;; rdos32) basic_machine=i386-pc os=rdos ;; rom68k) basic_machine=m68k-rom68k os=coff ;; sa29200) basic_machine=a29k-amd os=udi ;; sei) basic_machine=mips-sei os=seiux ;; sequent) basic_machine=i386-sequent os= ;; sps7) basic_machine=m68k-bull os=sysv2 ;; st2000) basic_machine=m68k-tandem os= ;; stratus) basic_machine=i860-stratus os=sysv4 ;; sun2) basic_machine=m68000-sun os= ;; sun2os3) basic_machine=m68000-sun os=sunos3 ;; sun2os4) basic_machine=m68000-sun os=sunos4 ;; sun3) basic_machine=m68k-sun os= ;; sun3os3) basic_machine=m68k-sun os=sunos3 ;; sun3os4) basic_machine=m68k-sun os=sunos4 ;; sun4) basic_machine=sparc-sun os= ;; sun4os3) basic_machine=sparc-sun os=sunos3 ;; sun4os4) basic_machine=sparc-sun os=sunos4 ;; sun4sol2) basic_machine=sparc-sun os=solaris2 ;; sun386 | sun386i | roadrunner) basic_machine=i386-sun os= ;; sv1) basic_machine=sv1-cray os=unicos ;; symmetry) basic_machine=i386-sequent os=dynix ;; t3e) basic_machine=alphaev5-cray os=unicos ;; t90) basic_machine=t90-cray os=unicos ;; toad1) basic_machine=pdp10-xkl os=tops20 ;; tpf) basic_machine=s390x-ibm os=tpf ;; udi29k) basic_machine=a29k-amd os=udi ;; ultra3) basic_machine=a29k-nyu os=sym1 ;; v810 | necv810) basic_machine=v810-nec os=none ;; vaxv) basic_machine=vax-dec os=sysv ;; vms) basic_machine=vax-dec os=vms ;; vsta) basic_machine=i386-pc os=vsta ;; vxworks960) basic_machine=i960-wrs os=vxworks ;; vxworks68) basic_machine=m68k-wrs os=vxworks ;; vxworks29k) basic_machine=a29k-wrs os=vxworks ;; xbox) basic_machine=i686-pc os=mingw32 ;; ymp) basic_machine=ymp-cray os=unicos ;; *) basic_machine=$1 os= ;; esac ;; esac # Decode 1-component or ad-hoc basic machines case $basic_machine in # Here we handle the default manufacturer of certain CPU types. It is in # some cases the only manufacturer, in others, it is the most popular. w89k) cpu=hppa1.1 vendor=winbond ;; op50n) cpu=hppa1.1 vendor=oki ;; op60c) cpu=hppa1.1 vendor=oki ;; ibm*) cpu=i370 vendor=ibm ;; orion105) cpu=clipper vendor=highlevel ;; mac | mpw | mac-mpw) cpu=m68k vendor=apple ;; pmac | pmac-mpw) cpu=powerpc vendor=apple ;; # Recognize the various machine names and aliases which stand # for a CPU type and a company and sometimes even an OS. 3b1 | 7300 | 7300-att | att-7300 | pc7300 | safari | unixpc) cpu=m68000 vendor=att ;; 3b*) cpu=we32k vendor=att ;; bluegene*) cpu=powerpc vendor=ibm os=cnk ;; decsystem10* | dec10*) cpu=pdp10 vendor=dec os=tops10 ;; decsystem20* | dec20*) cpu=pdp10 vendor=dec os=tops20 ;; delta | 3300 | motorola-3300 | motorola-delta \ | 3300-motorola | delta-motorola) cpu=m68k vendor=motorola ;; dpx2*) cpu=m68k vendor=bull os=sysv3 ;; encore | umax | mmax) cpu=ns32k vendor=encore ;; elxsi) cpu=elxsi vendor=elxsi os=${os:-bsd} ;; fx2800) cpu=i860 vendor=alliant ;; genix) cpu=ns32k vendor=ns ;; h3050r* | hiux*) cpu=hppa1.1 vendor=hitachi os=hiuxwe2 ;; hp3k9[0-9][0-9] | hp9[0-9][0-9]) cpu=hppa1.0 vendor=hp ;; hp9k2[0-9][0-9] | hp9k31[0-9]) cpu=m68000 vendor=hp ;; hp9k3[2-9][0-9]) cpu=m68k vendor=hp ;; hp9k6[0-9][0-9] | hp6[0-9][0-9]) cpu=hppa1.0 vendor=hp ;; hp9k7[0-79][0-9] | hp7[0-79][0-9]) cpu=hppa1.1 vendor=hp ;; hp9k78[0-9] | hp78[0-9]) # FIXME: really hppa2.0-hp cpu=hppa1.1 vendor=hp ;; hp9k8[67]1 | hp8[67]1 | hp9k80[24] | hp80[24] | hp9k8[78]9 | hp8[78]9 | hp9k893 | hp893) # FIXME: really hppa2.0-hp cpu=hppa1.1 vendor=hp ;; hp9k8[0-9][13679] | hp8[0-9][13679]) cpu=hppa1.1 vendor=hp ;; hp9k8[0-9][0-9] | hp8[0-9][0-9]) cpu=hppa1.0 vendor=hp ;; i*86v32) cpu=`echo "$1" | sed -e 's/86.*/86/'` vendor=pc os=sysv32 ;; i*86v4*) cpu=`echo "$1" | sed -e 's/86.*/86/'` vendor=pc os=sysv4 ;; i*86v) cpu=`echo "$1" | sed -e 's/86.*/86/'` vendor=pc os=sysv ;; i*86sol2) cpu=`echo "$1" | sed -e 's/86.*/86/'` vendor=pc os=solaris2 ;; j90 | j90-cray) cpu=j90 vendor=cray os=${os:-unicos} ;; iris | iris4d) cpu=mips vendor=sgi case $os in irix*) ;; *) os=irix4 ;; esac ;; miniframe) cpu=m68000 vendor=convergent ;; *mint | mint[0-9]* | *MiNT | *MiNT[0-9]*) cpu=m68k vendor=atari os=mint ;; news-3600 | risc-news) cpu=mips vendor=sony os=newsos ;; next | m*-next) cpu=m68k vendor=next case $os in openstep*) ;; nextstep*) ;; ns2*) os=nextstep2 ;; *) os=nextstep3 ;; esac ;; np1) cpu=np1 vendor=gould ;; op50n-* | op60c-*) cpu=hppa1.1 vendor=oki os=proelf ;; pa-hitachi) cpu=hppa1.1 vendor=hitachi os=hiuxwe2 ;; pbd) cpu=sparc vendor=tti ;; pbb) cpu=m68k vendor=tti ;; pc532) cpu=ns32k vendor=pc532 ;; pn) cpu=pn vendor=gould ;; power) cpu=power vendor=ibm ;; ps2) cpu=i386 vendor=ibm ;; rm[46]00) cpu=mips vendor=siemens ;; rtpc | rtpc-*) cpu=romp vendor=ibm ;; sde) cpu=mipsisa32 vendor=sde os=${os:-elf} ;; simso-wrs) cpu=sparclite vendor=wrs os=vxworks ;; tower | tower-32) cpu=m68k vendor=ncr ;; vpp*|vx|vx-*) cpu=f301 vendor=fujitsu ;; w65) cpu=w65 vendor=wdc ;; w89k-*) cpu=hppa1.1 vendor=winbond os=proelf ;; none) cpu=none vendor=none ;; leon|leon[3-9]) cpu=sparc vendor=$basic_machine ;; leon-*|leon[3-9]-*) cpu=sparc vendor=`echo "$basic_machine" | sed 's/-.*//'` ;; *-*) # shellcheck disable=SC2162 IFS="-" read cpu vendor <&2 exit 1 ;; esac ;; esac # Here we canonicalize certain aliases for manufacturers. case $vendor in digital*) vendor=dec ;; commodore*) vendor=cbm ;; *) ;; esac # Decode manufacturer-specific aliases for certain operating systems. if [ x$os != x ] then case $os in # First match some system type aliases that might get confused # with valid system types. # solaris* is a basic system type, with this one exception. auroraux) os=auroraux ;; bluegene*) os=cnk ;; solaris1 | solaris1.*) os=`echo $os | sed -e 's|solaris1|sunos4|'` ;; solaris) os=solaris2 ;; unixware*) os=sysv4.2uw ;; gnu/linux*) os=`echo $os | sed -e 's|gnu/linux|linux-gnu|'` ;; # es1800 is here to avoid being matched by es* (a different OS) es1800*) os=ose ;; # Some version numbers need modification chorusos*) os=chorusos ;; isc) os=isc2.2 ;; sco6) os=sco5v6 ;; sco5) os=sco3.2v5 ;; sco4) os=sco3.2v4 ;; sco3.2.[4-9]*) os=`echo $os | sed -e 's/sco3.2./sco3.2v/'` ;; sco3.2v[4-9]* | sco5v6*) # Don't forget version if it is 3.2v4 or newer. ;; scout) # Don't match below ;; sco*) os=sco3.2v2 ;; psos*) os=psos ;; # Now accept the basic system types. # The portable systems comes first. # Each alternative MUST end in a * to match a version number. # sysv* is not here because it comes later, after sysvr4. gnu* | bsd* | mach* | minix* | genix* | ultrix* | irix* \ | *vms* | esix* | aix* | cnk* | sunos | sunos[34]*\ | hpux* | unos* | osf* | luna* | dgux* | auroraux* | solaris* \ | sym* | kopensolaris* | plan9* \ | amigaos* | amigados* | msdos* | newsos* | unicos* | aof* \ | aos* | aros* | cloudabi* | sortix* \ | nindy* | vxsim* | vxworks* | ebmon* | hms* | mvs* \ | clix* | riscos* | uniplus* | iris* | isc* | rtu* | xenix* \ | knetbsd* | mirbsd* | netbsd* \ | bitrig* | openbsd* | solidbsd* | libertybsd* | os108* \ | ekkobsd* | kfreebsd* | freebsd* | riscix* | lynxos* \ | bosx* | nextstep* | cxux* | aout* | elf* | oabi* \ | ptx* | coff* | ecoff* | winnt* | domain* | vsta* \ | udi* | eabi* | lites* | ieee* | go32* | aux* | hcos* \ | chorusrdb* | cegcc* | glidix* \ | cygwin* | msys* | pe* | moss* | proelf* | rtems* \ | midipix* | mingw32* | mingw64* | linux-gnu* | linux-android* \ | linux-newlib* | linux-musl* | linux-uclibc* \ | uxpv* | beos* | mpeix* | udk* | moxiebox* \ | interix* | uwin* | mks* | rhapsody* | darwin* \ | openstep* | oskit* | conix* | pw32* | nonstopux* \ | storm-chaos* | tops10* | tenex* | tops20* | its* \ | os2* | vos* | palmos* | uclinux* | nucleus* \ | morphos* | superux* | rtmk* | windiss* \ | powermax* | dnix* | nx6 | nx7 | sei* | dragonfly* \ | skyos* | haiku* | rdos* | toppers* | drops* | es* \ | onefs* | tirtos* | phoenix* | fuchsia* | redox* | bme* \ | midnightbsd* | amdhsa* | unleashed* | emscripten* | wasi* \ | nsk* | powerunix) # Remember, each alternative MUST END IN *, to match a version number. ;; qnx*) case $cpu in x86 | i*86) ;; *) os=nto-$os ;; esac ;; hiux*) os=hiuxwe2 ;; nto-qnx*) ;; nto*) os=`echo $os | sed -e 's|nto|nto-qnx|'` ;; sim | xray | os68k* | v88r* \ | windows* | osx | abug | netware* | os9* \ | macos* | mpw* | magic* | mmixware* | mon960* | lnews*) ;; linux-dietlibc) os=linux-dietlibc ;; linux*) os=`echo $os | sed -e 's|linux|linux-gnu|'` ;; lynx*178) os=lynxos178 ;; lynx*5) os=lynxos5 ;; lynx*) os=lynxos ;; mac*) os=`echo "$os" | sed -e 's|mac|macos|'` ;; opened*) os=openedition ;; os400*) os=os400 ;; sunos5*) os=`echo "$os" | sed -e 's|sunos5|solaris2|'` ;; sunos6*) os=`echo "$os" | sed -e 's|sunos6|solaris3|'` ;; wince*) os=wince ;; utek*) os=bsd ;; dynix*) os=bsd ;; acis*) os=aos ;; atheos*) os=atheos ;; syllable*) os=syllable ;; 386bsd) os=bsd ;; ctix* | uts*) os=sysv ;; nova*) os=rtmk-nova ;; ns2) os=nextstep2 ;; # Preserve the version number of sinix5. sinix5.*) os=`echo $os | sed -e 's|sinix|sysv|'` ;; sinix*) os=sysv4 ;; tpf*) os=tpf ;; triton*) os=sysv3 ;; oss*) os=sysv3 ;; svr4*) os=sysv4 ;; svr3) os=sysv3 ;; sysvr4) os=sysv4 ;; # This must come after sysvr4. sysv*) ;; ose*) os=ose ;; *mint | mint[0-9]* | *MiNT | MiNT[0-9]*) os=mint ;; zvmoe) os=zvmoe ;; dicos*) os=dicos ;; pikeos*) # Until real need of OS specific support for # particular features comes up, bare metal # configurations are quite functional. case $cpu in arm*) os=eabi ;; *) os=elf ;; esac ;; nacl*) ;; ios) ;; none) ;; *-eabi) ;; *) echo Invalid configuration \`"$1"\': system \`"$os"\' not recognized 1>&2 exit 1 ;; esac else # Here we handle the default operating systems that come with various machines. # The value should be what the vendor currently ships out the door with their # machine or put another way, the most popular os provided with the machine. # Note that if you're going to try to match "-MANUFACTURER" here (say, # "-sun"), then you have to tell the case statement up towards the top # that MANUFACTURER isn't an operating system. Otherwise, code above # will signal an error saying that MANUFACTURER isn't an operating # system, and we'll never get to this point. case $cpu-$vendor in score-*) os=elf ;; spu-*) os=elf ;; *-acorn) os=riscix1.2 ;; arm*-rebel) os=linux ;; arm*-semi) os=aout ;; c4x-* | tic4x-*) os=coff ;; c8051-*) os=elf ;; clipper-intergraph) os=clix ;; hexagon-*) os=elf ;; tic54x-*) os=coff ;; tic55x-*) os=coff ;; tic6x-*) os=coff ;; # This must come before the *-dec entry. pdp10-*) os=tops20 ;; pdp11-*) os=none ;; *-dec | vax-*) os=ultrix4.2 ;; m68*-apollo) os=domain ;; i386-sun) os=sunos4.0.2 ;; m68000-sun) os=sunos3 ;; m68*-cisco) os=aout ;; mep-*) os=elf ;; mips*-cisco) os=elf ;; mips*-*) os=elf ;; or32-*) os=coff ;; *-tti) # must be before sparc entry or we get the wrong os. os=sysv3 ;; sparc-* | *-sun) os=sunos4.1.1 ;; pru-*) os=elf ;; *-be) os=beos ;; *-ibm) os=aix ;; *-knuth) os=mmixware ;; *-wec) os=proelf ;; *-winbond) os=proelf ;; *-oki) os=proelf ;; *-hp) os=hpux ;; *-hitachi) os=hiux ;; i860-* | *-att | *-ncr | *-altos | *-motorola | *-convergent) os=sysv ;; *-cbm) os=amigaos ;; *-dg) os=dgux ;; *-dolphin) os=sysv3 ;; m68k-ccur) os=rtu ;; m88k-omron*) os=luna ;; *-next) os=nextstep ;; *-sequent) os=ptx ;; *-crds) os=unos ;; *-ns) os=genix ;; i370-*) os=mvs ;; *-gould) os=sysv ;; *-highlevel) os=bsd ;; *-encore) os=bsd ;; *-sgi) os=irix ;; *-siemens) os=sysv4 ;; *-masscomp) os=rtu ;; f30[01]-fujitsu | f700-fujitsu) os=uxpv ;; *-rom68k) os=coff ;; *-*bug) os=coff ;; *-apple) os=macos ;; *-atari*) os=mint ;; *-wrs) os=vxworks ;; *) os=none ;; esac fi # Here we handle the case where we know the os, and the CPU type, but not the # manufacturer. We pick the logical manufacturer. case $vendor in unknown) case $os in riscix*) vendor=acorn ;; sunos*) vendor=sun ;; cnk*|-aix*) vendor=ibm ;; beos*) vendor=be ;; hpux*) vendor=hp ;; mpeix*) vendor=hp ;; hiux*) vendor=hitachi ;; unos*) vendor=crds ;; dgux*) vendor=dg ;; luna*) vendor=omron ;; genix*) vendor=ns ;; clix*) vendor=intergraph ;; mvs* | opened*) vendor=ibm ;; os400*) vendor=ibm ;; ptx*) vendor=sequent ;; tpf*) vendor=ibm ;; vxsim* | vxworks* | windiss*) vendor=wrs ;; aux*) vendor=apple ;; hms*) vendor=hitachi ;; mpw* | macos*) vendor=apple ;; *mint | mint[0-9]* | *MiNT | MiNT[0-9]*) vendor=atari ;; vos*) vendor=stratus ;; esac ;; esac echo "$cpu-$vendor-$os" exit # Local variables: # eval: (add-hook 'before-save-hook 'time-stamp) # time-stamp-start: "timestamp='" # time-stamp-format: "%:y-%02m-%02d" # time-stamp-end: "'" # End: libffcall-2.2/build-aux/install-sh0000775000000000000000000003601013262357637014100 00000000000000#!/bin/sh # install - install a program, script, or datafile scriptversion=2018-03-11.20; # UTC # This originates from X11R5 (mit/util/scripts/install.sh), which was # later released in X11R6 (xc/config/util/install.sh) with the # following copyright and license. # # Copyright (C) 1994 X Consortium # # Permission is hereby granted, free of charge, to any person obtaining a copy # of this software and associated documentation files (the "Software"), to # deal in the Software without restriction, including without limitation the # rights to use, copy, modify, merge, publish, distribute, sublicense, and/or # sell copies of the Software, and to permit persons to whom the Software is # furnished to do so, subject to the following conditions: # # The above copyright notice and this permission notice shall be included in # all copies or substantial portions of the Software. # # THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR # IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, # FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE # X CONSORTIUM BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN # AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNEC- # TION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. # # Except as contained in this notice, the name of the X Consortium shall not # be used in advertising or otherwise to promote the sale, use or other deal- # ings in this Software without prior written authorization from the X Consor- # tium. # # # FSF changes to this file are in the public domain. # # Calling this script install-sh is preferred over install.sh, to prevent # 'make' implicit rules from creating a file called install from it # when there is no Makefile. # # This script is compatible with the BSD install script, but was written # from scratch. tab=' ' nl=' ' IFS=" $tab$nl" # Set DOITPROG to "echo" to test this script. doit=${DOITPROG-} doit_exec=${doit:-exec} # Put in absolute file names if you don't have them in your path; # or use environment vars. chgrpprog=${CHGRPPROG-chgrp} chmodprog=${CHMODPROG-chmod} chownprog=${CHOWNPROG-chown} cmpprog=${CMPPROG-cmp} cpprog=${CPPROG-cp} mkdirprog=${MKDIRPROG-mkdir} mvprog=${MVPROG-mv} rmprog=${RMPROG-rm} stripprog=${STRIPPROG-strip} posix_mkdir= # Desired mode of installed file. mode=0755 chgrpcmd= chmodcmd=$chmodprog chowncmd= mvcmd=$mvprog rmcmd="$rmprog -f" stripcmd= src= dst= dir_arg= dst_arg= copy_on_change=false is_target_a_directory=possibly usage="\ Usage: $0 [OPTION]... [-T] SRCFILE DSTFILE or: $0 [OPTION]... SRCFILES... DIRECTORY or: $0 [OPTION]... -t DIRECTORY SRCFILES... or: $0 [OPTION]... -d DIRECTORIES... In the 1st form, copy SRCFILE to DSTFILE. In the 2nd and 3rd, copy all SRCFILES to DIRECTORY. In the 4th, create DIRECTORIES. Options: --help display this help and exit. --version display version info and exit. -c (ignored) -C install only if different (preserve the last data modification time) -d create directories instead of installing files. -g GROUP $chgrpprog installed files to GROUP. -m MODE $chmodprog installed files to MODE. -o USER $chownprog installed files to USER. -s $stripprog installed files. -t DIRECTORY install into DIRECTORY. -T report an error if DSTFILE is a directory. Environment variables override the default commands: CHGRPPROG CHMODPROG CHOWNPROG CMPPROG CPPROG MKDIRPROG MVPROG RMPROG STRIPPROG " while test $# -ne 0; do case $1 in -c) ;; -C) copy_on_change=true;; -d) dir_arg=true;; -g) chgrpcmd="$chgrpprog $2" shift;; --help) echo "$usage"; exit $?;; -m) mode=$2 case $mode in *' '* | *"$tab"* | *"$nl"* | *'*'* | *'?'* | *'['*) echo "$0: invalid mode: $mode" >&2 exit 1;; esac shift;; -o) chowncmd="$chownprog $2" shift;; -s) stripcmd=$stripprog;; -t) is_target_a_directory=always dst_arg=$2 # Protect names problematic for 'test' and other utilities. case $dst_arg in -* | [=\(\)!]) dst_arg=./$dst_arg;; esac shift;; -T) is_target_a_directory=never;; --version) echo "$0 $scriptversion"; exit $?;; --) shift break;; -*) echo "$0: invalid option: $1" >&2 exit 1;; *) break;; esac shift done # We allow the use of options -d and -T together, by making -d # take the precedence; this is for compatibility with GNU install. if test -n "$dir_arg"; then if test -n "$dst_arg"; then echo "$0: target directory not allowed when installing a directory." >&2 exit 1 fi fi if test $# -ne 0 && test -z "$dir_arg$dst_arg"; then # When -d is used, all remaining arguments are directories to create. # When -t is used, the destination is already specified. # Otherwise, the last argument is the destination. Remove it from $@. for arg do if test -n "$dst_arg"; then # $@ is not empty: it contains at least $arg. set fnord "$@" "$dst_arg" shift # fnord fi shift # arg dst_arg=$arg # Protect names problematic for 'test' and other utilities. case $dst_arg in -* | [=\(\)!]) dst_arg=./$dst_arg;; esac done fi if test $# -eq 0; then if test -z "$dir_arg"; then echo "$0: no input file specified." >&2 exit 1 fi # It's OK to call 'install-sh -d' without argument. # This can happen when creating conditional directories. exit 0 fi if test -z "$dir_arg"; then if test $# -gt 1 || test "$is_target_a_directory" = always; then if test ! -d "$dst_arg"; then echo "$0: $dst_arg: Is not a directory." >&2 exit 1 fi fi fi if test -z "$dir_arg"; then do_exit='(exit $ret); exit $ret' trap "ret=129; $do_exit" 1 trap "ret=130; $do_exit" 2 trap "ret=141; $do_exit" 13 trap "ret=143; $do_exit" 15 # Set umask so as not to create temps with too-generous modes. # However, 'strip' requires both read and write access to temps. case $mode in # Optimize common cases. *644) cp_umask=133;; *755) cp_umask=22;; *[0-7]) if test -z "$stripcmd"; then u_plus_rw= else u_plus_rw='% 200' fi cp_umask=`expr '(' 777 - $mode % 1000 ')' $u_plus_rw`;; *) if test -z "$stripcmd"; then u_plus_rw= else u_plus_rw=,u+rw fi cp_umask=$mode$u_plus_rw;; esac fi for src do # Protect names problematic for 'test' and other utilities. case $src in -* | [=\(\)!]) src=./$src;; esac if test -n "$dir_arg"; then dst=$src dstdir=$dst test -d "$dstdir" dstdir_status=$? else # Waiting for this to be detected by the "$cpprog $src $dsttmp" command # might cause directories to be created, which would be especially bad # if $src (and thus $dsttmp) contains '*'. if test ! -f "$src" && test ! -d "$src"; then echo "$0: $src does not exist." >&2 exit 1 fi if test -z "$dst_arg"; then echo "$0: no destination specified." >&2 exit 1 fi dst=$dst_arg # If destination is a directory, append the input filename. if test -d "$dst"; then if test "$is_target_a_directory" = never; then echo "$0: $dst_arg: Is a directory" >&2 exit 1 fi dstdir=$dst dstbase=`basename "$src"` case $dst in */) dst=$dst$dstbase;; *) dst=$dst/$dstbase;; esac dstdir_status=0 else dstdir=`dirname "$dst"` test -d "$dstdir" dstdir_status=$? fi fi case $dstdir in */) dstdirslash=$dstdir;; *) dstdirslash=$dstdir/;; esac obsolete_mkdir_used=false if test $dstdir_status != 0; then case $posix_mkdir in '') # Create intermediate dirs using mode 755 as modified by the umask. # This is like FreeBSD 'install' as of 1997-10-28. umask=`umask` case $stripcmd.$umask in # Optimize common cases. *[2367][2367]) mkdir_umask=$umask;; .*0[02][02] | .[02][02] | .[02]) mkdir_umask=22;; *[0-7]) mkdir_umask=`expr $umask + 22 \ - $umask % 100 % 40 + $umask % 20 \ - $umask % 10 % 4 + $umask % 2 `;; *) mkdir_umask=$umask,go-w;; esac # With -d, create the new directory with the user-specified mode. # Otherwise, rely on $mkdir_umask. if test -n "$dir_arg"; then mkdir_mode=-m$mode else mkdir_mode= fi posix_mkdir=false case $umask in *[123567][0-7][0-7]) # POSIX mkdir -p sets u+wx bits regardless of umask, which # is incompatible with FreeBSD 'install' when (umask & 300) != 0. ;; *) # Note that $RANDOM variable is not portable (e.g. dash); Use it # here however when possible just to lower collision chance. tmpdir=${TMPDIR-/tmp}/ins$RANDOM-$$ trap 'ret=$?; rmdir "$tmpdir/a/b" "$tmpdir/a" "$tmpdir" 2>/dev/null; exit $ret' 0 # Because "mkdir -p" follows existing symlinks and we likely work # directly in world-writeable /tmp, make sure that the '$tmpdir' # directory is successfully created first before we actually test # 'mkdir -p' feature. if (umask $mkdir_umask && $mkdirprog $mkdir_mode "$tmpdir" && exec $mkdirprog $mkdir_mode -p -- "$tmpdir/a/b") >/dev/null 2>&1 then if test -z "$dir_arg" || { # Check for POSIX incompatibilities with -m. # HP-UX 11.23 and IRIX 6.5 mkdir -m -p sets group- or # other-writable bit of parent directory when it shouldn't. # FreeBSD 6.1 mkdir -m -p sets mode of existing directory. test_tmpdir="$tmpdir/a" ls_ld_tmpdir=`ls -ld "$test_tmpdir"` case $ls_ld_tmpdir in d????-?r-*) different_mode=700;; d????-?--*) different_mode=755;; *) false;; esac && $mkdirprog -m$different_mode -p -- "$test_tmpdir" && { ls_ld_tmpdir_1=`ls -ld "$test_tmpdir"` test "$ls_ld_tmpdir" = "$ls_ld_tmpdir_1" } } then posix_mkdir=: fi rmdir "$tmpdir/a/b" "$tmpdir/a" "$tmpdir" else # Remove any dirs left behind by ancient mkdir implementations. rmdir ./$mkdir_mode ./-p ./-- "$tmpdir" 2>/dev/null fi trap '' 0;; esac;; esac if $posix_mkdir && ( umask $mkdir_umask && $doit_exec $mkdirprog $mkdir_mode -p -- "$dstdir" ) then : else # The umask is ridiculous, or mkdir does not conform to POSIX, # or it failed possibly due to a race condition. Create the # directory the slow way, step by step, checking for races as we go. case $dstdir in /*) prefix='/';; [-=\(\)!]*) prefix='./';; *) prefix='';; esac oIFS=$IFS IFS=/ set -f set fnord $dstdir shift set +f IFS=$oIFS prefixes= for d do test X"$d" = X && continue prefix=$prefix$d if test -d "$prefix"; then prefixes= else if $posix_mkdir; then (umask=$mkdir_umask && $doit_exec $mkdirprog $mkdir_mode -p -- "$dstdir") && break # Don't fail if two instances are running concurrently. test -d "$prefix" || exit 1 else case $prefix in *\'*) qprefix=`echo "$prefix" | sed "s/'/'\\\\\\\\''/g"`;; *) qprefix=$prefix;; esac prefixes="$prefixes '$qprefix'" fi fi prefix=$prefix/ done if test -n "$prefixes"; then # Don't fail if two instances are running concurrently. (umask $mkdir_umask && eval "\$doit_exec \$mkdirprog $prefixes") || test -d "$dstdir" || exit 1 obsolete_mkdir_used=true fi fi fi if test -n "$dir_arg"; then { test -z "$chowncmd" || $doit $chowncmd "$dst"; } && { test -z "$chgrpcmd" || $doit $chgrpcmd "$dst"; } && { test "$obsolete_mkdir_used$chowncmd$chgrpcmd" = false || test -z "$chmodcmd" || $doit $chmodcmd $mode "$dst"; } || exit 1 else # Make a couple of temp file names in the proper directory. dsttmp=${dstdirslash}_inst.$$_ rmtmp=${dstdirslash}_rm.$$_ # Trap to clean up those temp files at exit. trap 'ret=$?; rm -f "$dsttmp" "$rmtmp" && exit $ret' 0 # Copy the file name to the temp name. (umask $cp_umask && $doit_exec $cpprog "$src" "$dsttmp") && # and set any options; do chmod last to preserve setuid bits. # # If any of these fail, we abort the whole thing. If we want to # ignore errors from any of these, just make sure not to ignore # errors from the above "$doit $cpprog $src $dsttmp" command. # { test -z "$chowncmd" || $doit $chowncmd "$dsttmp"; } && { test -z "$chgrpcmd" || $doit $chgrpcmd "$dsttmp"; } && { test -z "$stripcmd" || $doit $stripcmd "$dsttmp"; } && { test -z "$chmodcmd" || $doit $chmodcmd $mode "$dsttmp"; } && # If -C, don't bother to copy if it wouldn't change the file. if $copy_on_change && old=`LC_ALL=C ls -dlL "$dst" 2>/dev/null` && new=`LC_ALL=C ls -dlL "$dsttmp" 2>/dev/null` && set -f && set X $old && old=:$2:$4:$5:$6 && set X $new && new=:$2:$4:$5:$6 && set +f && test "$old" = "$new" && $cmpprog "$dst" "$dsttmp" >/dev/null 2>&1 then rm -f "$dsttmp" else # Rename the file to the real destination. $doit $mvcmd -f "$dsttmp" "$dst" 2>/dev/null || # The rename failed, perhaps because mv can't rename something else # to itself, or perhaps because mv is so ancient that it does not # support -f. { # Now remove or move aside any old file at destination location. # We try this two ways since rm can't unlink itself on some # systems and the destination file might be busy for other # reasons. In this case, the final cleanup might fail but the new # file should still install successfully. { test ! -f "$dst" || $doit $rmcmd -f "$dst" 2>/dev/null || { $doit $mvcmd -f "$dst" "$rmtmp" 2>/dev/null && { $doit $rmcmd -f "$rmtmp" 2>/dev/null; :; } } || { echo "$0: cannot unlink or rename $dst" >&2 (exit 1); exit 1 } } && # Now rename the file to the real destination. $doit $mvcmd "$dsttmp" "$dst" } fi || exit 1 trap '' 0 fi done # Local variables: # eval: (add-hook 'before-save-hook 'time-stamp) # time-stamp-start: "scriptversion=" # time-stamp-format: "%:y-%02m-%02d.%02H" # time-stamp-time-zone: "UTC0" # time-stamp-end: "; # UTC" # End: libffcall-2.2/ChangeLog0000664000000000000000000070635313530356767011773 000000000000002019-08-24 Bruno Haible Bump shared library version numbers. * Makefile.in (LIBFFCALL_VERSION_INFO): Bump to 0:2:0. * avcall/Makefile.in (LIBAVCALL_VERSION_INFO): Bump to 1:2:0. * trampoline/Makefile.in (LIBTRAMPOLINE_VERSION_INFO): Likewise. * callback/Makefile.in (LIBCALLBACK_VERSION_INFO): Likewise. 2019-08-24 Bruno Haible hppa: Add comments about structure arguments. * avcall/avcall-hppa.c: Add comment. * avcall/avcall-internal.h (__av_struct): Likewise. * vacall/vacall-internal.h (__va_arg_struct): Likewise. 2019-08-24 Bruno Haible Add a test for by-value passing. * testcases.c (v_clobber_K): New function. * avcall/tests.c (by_value_tests): New function. (main): Invoke it. * vacall/tests.c (simulator, main): Test v_clobber_K. * callback/tests.c (v_clobber_K_simulator): New function. (main): Test it. 2019-08-24 Bruno Haible hppa: Implement correct floating-point argument passing on Linux. * avcall/avcall.h (__AV_ALIST_WORDS): Add comment. * avcall/avcall-alist.h (__av_alist) [__hppa__]: Add farg_mask, darg_mask. * avcall/avcall-internal.h (__av_start1) [__hppa__]: Initialize farg_mask, darg_mask. (_av_float) [__hppa__]: Set a bit in farg_mask. (_av_double) [__hppa__]: Set a bit in darg_mask. * avcall/avcall-hppa.c (avcall_call): Copy floating-point arguments among the first 4 words to %fr4L...%fr7L and %fr5,%fr7. * vacall/vacall-internal.h (_va_arg_float, _va_arg_double) [__hppa__]: For floating-point arguments among the first 4 words, use the value passed in floating-point registers. * PLATFORMS, */PLATFORMS: List the Linux/hppa ABI. * NEWS: Mention the new port. 2019-08-24 Bruno Haible hppa: Fix stack corruption in avcall. * avcall/avcall-hppa.c (avcall_call): Don't let GCC optimize away the stack-allocated array. * NEWS: Mention the fix. 2019-08-24 Bruno Haible Add another integer test. * testcases.c (i17, ..., i32): New variables. (i_i32): New function. * avcall/tests.c (int_tests): Test it. * vacall/tests.c (simulator, main): Likewise. * callback/tests.c (i_i32_simulator): New function. (main): Test it. 2019-08-24 Bruno Haible cross-tools: Add support for GCC 8 and 9. * cross-tools/cross-build.sh (func_build_gcc): Handle also GCC 8 and 9. 2019-08-21 Bruno Haible mips: Change the default 32-bit ABI from fp32 to fpxx. Reported by Sébastien Villemot at . He also found the trick with -fno-tree-dce. * porting-tools/abis/mips-abis.txt: New file. * cross-tools/cross.conf (mips): Use gcc 5 and binutils 2.27. * common/asm-mips.sh: Eliminate .nan and .module lines. * avcall/avcall-mipsn32.c (avcall_call): Use return value of __builtin_alloca instead of accessing the stack pointer directly. * avcall/Makefile.devel (avcall-mipseb-linux.s, avcall-mipsel-linux.s): Build with gcc 5, with option -mfpxx (for compatibility with current Debian), with -march=mips2 (required by -mfpxx), and -fno-tree-dce (required to avoid that gcc eliminates the __builtin_alloca call). (avcall-mipsn32eb-linux.s, avcall-mipsn32el-linux.s, avcall-mips64eb-linux.s, avcall-mips64el-linux.s): Build with gcc 5. * vacall/Makefile.devel (vacall-mipseb-linux.s, vacall-mipsel-linux.s): Build with gcc 5, with option -mfpxx (for compatibility with current Debian) and -march=mips2 (required by -mfpxx). (vacall-mipsn32eb-linux.s, vacall-mipsn32el-linux.s, vacall-mips64eb-linux.s, vacall-mips64el-linux.s): Build with gcc 5. * callback/vacall_r/Makefile.devel (vacall-mipseb-linux.s, vacall-mipsel-linux.s): Build with gcc 5, with option -mfpxx (for compatibility with current Debian) and -march=mips2 (required by -mfpxx). (vacall-mipsn32eb-linux.s, vacall-mipsn32el-linux.s, vacall-mips64eb-linux.s, vacall-mips64el-linux.s): Build with gcc 5. * NEWS: Mention the change. 2019-08-20 Bruno Haible riscv32: Add support for riscv32-ilp32d ABI. * cross-tools/cross.conf: Add configuration for riscv32 cross tools. * porting-tools/emulation/buildroot-riscv-2018-10-20-riscv32.config: New file. * porting-tools/emulation/tinyemu-riscv32.txt: New file. * porting-tools/emulation/README: Refer to it. * porting-tools/abis/README: Tweaks. * porting-tools/abis/call-used-registers.txt: Add info about riscv32. * porting-tools/abis/reg-struct-return.txt: Likewise. * porting-tools/abis/stack-frame.txt: Likewise. * porting-tools/execstack/voidfunc.c: Add command for riscv32. * porting-tools/execstack/voidfunc-riscv32.o: New generated file. * porting-tools/execstack/README: Add info about riscv32. * ffcall-abi.h: Add support for riscv32-lp64. * configure.ac: Check for also on riscv32. * avcall/avcall.h (__AV_STRUCT_RETURN): Add code for __riscv32__. * avcall/avcall-alist.h (__av_alist): Likewise. * avcall/avcall-internal.h: Add code for __riscv32__, especially __av_start1, __av_reg_struct_return, __av_start_struct4, __av_word, __av_longlong, __av_ulonglong, __av_arg_longlong, _av_float, _av_double, __av_struct. * avcall/avcall-riscv32.c: New file. * avcall/Makefile.devel (avcall-riscv32-ilp32d-linux.s, avcall-riscv32-ilp32d-macro.S): New targets. * avcall/Makefile.in (avcall-riscv32-ilp32d.lo, avcall-riscv32-ilp32d.s): New targets. (clean): Remove avcall-riscv32-ilp32d.s. (SOURCE_FILES): Add avcall-riscv32.c, avcall-riscv32-ilp32d-linux.s, avcall-riscv32-ilp32d-macro.S. * vacall/vacall.h (__VA_STRUCT_RETURN): Add code for __riscv32__. * vacall/vacall-internal.h: Add code for __riscv32__, especially __va_alist, __va_reg_struct_return, __va_start_struct2, __va_arg_leftadjusted, __va_arg_adjusted, _va_arg_longlong, _va_arg_ulonglong, __va_arg_longlong, __va_align_double, _va_arg_float, _va_arg_double, __va_arg_struct. * vacall/vacall-riscv32.c: New file. * vacall/Makefile.devel (vacall-riscv32-ilp32d-linux.s, vacall-riscv32-ilp32d-macro.S): New targets. * vacall/Makefile.in (vacall-riscv32-ilp32d.@OBJEXT@, vacall-riscv32-ilp32d.s): New targets. (clean): Remove vacall-riscv32-ilp32d.s. (SOURCE_FILES): Add vacall-riscv32.c, vacall-riscv32-ilp32d-linux.s, vacall-riscv32-ilp32d-macro.S. * callback/vacall_r/vacall_r.h (__VA_STRUCT_RETURN): Add code for __riscv32__. * callback/vacall_r/Makefile.devel (vacall-riscv32-ilp32d-linux.s, vacall-riscv32-ilp32d-macro.S): New targets. * callback/vacall_r/Makefile.in (vacall-riscv32-ilp32d.lo, vacall-riscv32-ilp32d.s): New targets. (clean): Remove vacall-riscv32-ilp32d.s. (SOURCE_FILES): Add vacall-riscv32-ilp32d-linux.s, vacall-riscv32-ilp32d-macro.S. * trampoline/Makefile.devel (proto-riscv32.s, tramp-riscv32.o): New targets. * trampoline/proto-riscv32.s: New generated file. * trampoline/tramp-riscv32.old.s: New file. * trampoline/tramp-riscv32.old.o: New generated file. * trampoline/tramp-riscv32.s: New file. * trampoline/tramp-riscv32.o: New generated file. * trampoline/trampoline.c: Implement for __riscv32__. * callback/trampoline_r/Makefile.devel (proto-riscv32.s, tramp-riscv32.o): New targets. * callback/trampoline_r/proto.c: Add code for __riscv32__. * callback/trampoline_r/proto-riscv32.s: New generated file. * callback/trampoline_r/tramp-riscv32.old.s: New file. * callback/trampoline_r/tramp-riscv32.old.o: New generated file. * callback/trampoline_r/tramp-riscv32.s: New file. * callback/trampoline_r/tramp-riscv32.o: New generated file. * callback/trampoline_r/trampoline.c: Implement for __riscv32__. * callback/trampoline_r/test1.c: Add support for __riscv32__. * PLATFORMS, */PLATFORMS: List the 32-bit RISC-V ABI. * NEWS: Mention the new port. 2019-08-19 Bruno Haible Add some more general-purpose args boundary tests. * testcases.c (l_l0J, l_l1J, l_l2J, l_l3J, l_l4J, l_l5J, l_l6J, l_l7J): New functions. * avcall/tests.c (gpargs_boundary_tests): Test them. * vacall/tests.c (simulator, main): Likewise. * callback/tests.c (l_l*J_simulator): New functions. (main): Test them. * porting-tools/abis/gpargs*.c: Add a corresponding test here as well. 2019-08-19 Bruno Haible riscv64: Fix bug regarding passing of more than 8 arguments. * porting-tools/abis/stack-frame.txt: Correct information about riscv64 ABI. * avcall/avcall-alist.h (__av_alist) [__riscv64__]: Remove ianum and iargs. * avcall/avcall-internal.h (__av_start1, __av_start_struct4, __av_long, __av_ulong, __av_ptr, _av_float, _av_double, __av_struct) [__riscv64__]: Change accordingly. * avcall/avcall-riscv64.c (avcall_call): Likewise. * vacall/vacall-internal.h (__va_arg_adjusted): Deal with a split struct that spans the 8th and 9th argument words. * vacall/vacall-riscv64.c (struct gpargsequence): New type. (vacall_receiver): Use it to make sure that room is allocated when a struct is passed that spans the 8th and 9th argument words. 2019-08-19 Bruno Haible arm64: Fix bug regarding passing of more than 8 arguments. * vacall/vacall-internal.h (__va_arg_adjusted): Bump (LIST)->ianum when switching from registers to the stack. * NEWS: Mention it. 2019-08-19 Bruno Haible avcall: Remove unnecessary parentheses. * avcall/avcall-internal.h (av_double, _av_float, _av_double): Remove unnecessary level of parentheses. 2019-05-11 Bruno Haible Update bug reporting instructions. * README: Tell users to report bugs in the bug tracker or by email. * cross-tools/cross-build.sh (func_usage): Likewise. 2019-04-01 Bruno Haible build: Separate git operations from build operations. * gitsub.sh: New file, from gnulib. * .gitmodules: New file. * autogen.sh: Remove all git operations. Look at GNULIB_SRCDIR environment variable. Ignore the GNULIB_TOOL environment variable. * README-hacking: Explain when to use gitsub.sh. 2019-01-19 Bruno Haible Record support for NetBSD/SPARC64. * PLATFORMS, */PLATFORMS: List this platform. 2018-05-04 Bruno Haible Simplify code. Drop support for Borland C++ on Windows. * common/asm-x86_64.h, common/asm-x86_64.sh, ffcall-stdint.h: Simplify 'defined _WIN32 || defined __WIN32__' to just 'defined _WIN32'. * avcall/avcall.h, avcall/avcall-alist.h: Likewise. * vacall/vacall.h, vacall/vacall-internal.h: Likewise. * callback/vacall_r/vacall_r.h: Likewise. * trampoline/trampoline.c: Likewise. * callback/trampoline_r/trampoline.c: Likewise. 2018-04-08 Bruno Haible riscv64: Add support for riscv64-lp64d ABI. * cross-tools/cross-build.sh (func_build_gcc): Add support for GCC 7.2.0 and 7.3.0. * cross-tools/cross.conf: Add configuration for riscv64 cross tools. * porting-tools/emulation/qemu-riscv64.txt: New file. * porting-tools/emulation/README: Refer to it. * porting-tools/abis/README: Tweaks. * porting-tools/abis/call-used-registers.txt: Add info about riscv64. * porting-tools/abis/reg-struct-return.txt: Likewise. * porting-tools/abis/stack-frame.txt: Likewise. * porting-tools/abis/function-pointer.txt: Clarify file locations. * porting-tools/execstack/voidfunc.c: Add command for riscv64. * porting-tools/execstack/voidfunc-riscv64.o: New generated file. * porting-tools/execstack/main.c (voidfunc): Define also for riscv. * porting-tools/execstack/README: Add info about riscv64. * ffcall-abi.h: Add support for riscv64-lp64. * common/asm-riscv.sh: New file. * Makefile.in (SOURCE_FILES): Add it. * configure.ac: Check for also on riscv64. * avcall/avcall.h (__AV_STRUCT_RETURN, __AV_REGISTER_STRUCT_RETURN): Add code for __riscv64__. * avcall/avcall-alist.h (__av_alist): Likewise. * avcall/avcall-internal.h: Add code for __riscv64__, especially __av_start1, __av_reg_struct_return, __av_start_struct4, __av_word, __av_long, __av_ulong, __av_ptr, __av_longlong, __av_ulonglong, _av_float, _av_double, __av_struct. * avcall/avcall-riscv64.c: New file. * avcall/Makefile.devel (avcall-riscv64-lp64d-linux.s, avcall-riscv64-lp64d-macro.S): New targets. * avcall/Makefile.in (avcall-riscv64-lp64d.lo, avcall-riscv64-lp64d.s): New targets. (clean): Remove avcall-riscv64-lp64d.s. (SOURCE_FILES): Add avcall-riscv64.c, avcall-riscv64-lp64d-linux.s, avcall-riscv64-lp64d-macro.S. * vacall/vacall.h (__VA_STRUCT_RETURN, __VA_REGISTER_STRUCT_RETURN): Add code for __riscv64__. * vacall/vacall-internal.h: Add code for __riscv64__, especially __va_alist, __va_reg_struct_return, __va_start_struct2, __va_arg_leftadjusted, __va_arg_adjusted, _va_arg_longlong, _va_arg_ulonglong, __va_align_double, _va_arg_float, _va_arg_double, __va_arg_struct, _va_return_longlong. * vacall/vacall-riscv64.c: New file. * vacall/Makefile.devel (vacall-riscv64-lp64d-linux.s, vacall-riscv64-lp64d-macro.S): New targets. * vacall/Makefile.in (vacall-riscv64-lp64d.@OBJEXT@, vacall-riscv64-lp64d.s): New targets. (clean): Remove vacall-riscv64-lp64d.s. (SOURCE_FILES): Add vacall-riscv64.c, vacall-riscv64-lp64d-linux.s, vacall-riscv64-lp64d-macro.S. * callback/vacall_r/vacall_r.h (__VA_STRUCT_RETURN, __VA_REGISTER_STRUCT_RETURN): Add code for __riscv64__. * callback/vacall_r/Makefile.devel (vacall-riscv64-lp64d-linux.s, vacall-riscv64-lp64d-macro.S): New targets. * callback/vacall_r/Makefile.in (vacall-riscv64-lp64d.lo, vacall-riscv64-lp64d.s): New targets. (clean): Remove vacall-riscv64-lp64d.s. (SOURCE_FILES): Add vacall-riscv64-lp64d-linux.s, vacall-riscv64-lp64d-macro.S. * trampoline/Makefile.devel (proto-riscv64.s, tramp-riscv64.o): New targets. * trampoline/proto-riscv64.s: New generated file. * trampoline/tramp-riscv64.s: New file. * trampoline/tramp-riscv64.o: New generated file. * trampoline/trampoline.c: Implement for __riscv64__. * callback/trampoline_r/Makefile.devel (proto-riscv64.s, tramp-riscv64.o): New targets. * callback/trampoline_r/proto64.c: Add code for __riscv64__. * callback/trampoline_r/proto-riscv64.s: New generated file. * callback/trampoline_r/tramp-riscv64.s: New file. * callback/trampoline_r/tramp-riscv64.o: New generated file. * callback/trampoline_r/trampoline.c: Implement for __riscv64__. * callback/trampoline_r/test1.c: Add support for __riscv64__. * PLATFORMS, */PLATFORMS: List the 64-bit RISC-V ABI. * NEWS: Mention the new port. 2018-04-08 Bruno Haible s390x: Trivial tweak. * avcall/avcall-s390x.c (avcall_call): Rename result variable from 'i' to 'iret'. 2018-02-26 Bruno Haible Add support for Linux/arm on Raspberry Pi. Reported by Simon Dales . * avcall/Makefile.devel (avcall-armhf-macro.S): Pass option '-march=armv6' to gcc. * vacall/Makefile.devel (vacall-arm-linux.s, vacall-arm-linux-pic.s): Likewise. * callback/vacall_r/Makefile.devel (vacall-armhf-macro.S): Likewise. * PLATFORMS, */PLATFORMS: List this platform. * NEWS: Mention this. 2018-02-24 Bruno Haible Add support for Linux/i386 with PIE-enabled gcc. * vacall/Makefile.devel (vacall-i386-linux-pic.s): New target. (vacall-i386-macro.S): Include code for the PIC and the non-PIC case. * vacall/Makefile.in (SOURCE_FILES): Add vacall-i386-linux-pic.s. 2018-02-18 Bruno Haible Avoid undesired compiler optimizations. Reported by Jerry James . * configure.ac (DISABLE_TYPE_BASED_ALIASING): New substituted variable. * avcall/Makefile.in (avcall-libapi.lo): Use it. * vacall/Makefile.in (vacall-libapi.o): Likewise. * callback/vacall_r/Makefile.in (vacall-libapi.lo): Likewise. 2018-02-17 Bruno Haible Bump version number. * VERSION: Set to 2.2. * NEWS: Open new section for 2.2. 2018-02-17 Bruno Haible Bump shared library version numbers. * Makefile.in (LIBFFCALL_VERSION_INFO): Bump to 0:1:0. * avcall/Makefile.in (LIBAVCALL_VERSION_INFO): Bump to 1:1:0. * trampoline/Makefile.in (LIBTRAMPOLINE_VERSION_INFO): Likewise. * callback/Makefile.in (LIBCALLBACK_VERSION_INFO): Likewise. 2018-02-17 Bruno Haible Add support for HardenedBSD. The fix was done in gnulib today. * NEWS: Mention this. 2018-02-17 Bruno Haible Add support for Linux/arm with PIE-enabled gcc. Reported by Nelson Beebe. * vacall/Makefile.devel (vacall-arm-linux.s, vacall-arm-linux-pic.s, vacall-armhf-linux.s, vacall-armhf-linux-pic.s): New targets. (vacall-arm-macro.S, vacall-armhf-macro.S): Include code for the PIC and the non-PIC case. * vacall/Makefile.in (SOURCE_FILES): Add vacall-arm*-linux*.s. 2018-02-17 Bruno Haible Add support for OpenBSD 6.1 and newer. Reported by Nelson Beebe. * m4/codeexec.m4 (FFCALL_CODEEXEC_PAX): Also test whether mprotect returns with errno=ENOTSUP. * NEWS: Mention this. 2018-01-30 Bruno Haible Verify support for Minix/i386. * PLATFORMS, */PLATFORMS: List this platform. 2018-01-27 Bruno Haible Rename some files. * INSTALL.windows: Renamed from README.windows. * INSTALL.os2: Renamed from README.os2. * Makefile.in (SOURCE_FILES): Update. 2018-01-09 Bruno Haible Make processing of assembly-language files work with GNU clisp. * common/asm-arm.sh: Don't introduce C() macro in .req lines. * common/asm-hppa.h (DEF): Don't use token-pasting operator here, since the result would not be a valid token. * common/asm-hppa64.h (DEF): Likewise. * common/asm-i386.h (INSN2SHCL): Omit the cl register only on Solaris. All other assemblers support it. (P2ALIGN): Use __SVR4, not __sun, to detect Solaris. * common/asm-i386.sh: Allow spaces instead of tabs after .type and .size. Recognize INSN2SHCL without assuming an 'shcl' macro. 2017-11-28 Bruno Haible mips, mipsn32, mips64: Improvement for ELF format. * common/asm-mips.h (DECLARE_FUNCTION): Test __ELF__, not __GNU__. 2017-11-25 Bruno Haible mips64: Fix crash on some real hardware mips64el (Octeon). Reported by Sébastien Villemot . Reminder: Some real MIPS hardware executes the "branch delay slot" after a branch or jump instruction. See * trampoline/trampoline.c (alloc_trampoline) [__mips64__]: Store the instructions as 32-bit words, so that the instructions come out as expected, regardless of the endianness. * trampoline/tramp-mips*.s: Update comments. * callback/trampoline_r/tramp-mips*.s: Likewise. 2017-10-29 Bruno Haible Verify support for Haiku/i386. * PLATFORMS, */PLATFORMS: List this platform. 2017-10-22 Bruno Haible x86_64-x32: Fix passing of pointers. * avcall/avcall-internal.h (__av_start_struct4, __av_ptr): For pointer values, use zero-extend instead of cast from 'void*' to '__avword'. * vacall/vacall-x86_64.c (vacall_receiver): For pointer values, use zero-extend instead of cast from 'void*' to '__vaword'. 2017-10-21 Bruno Haible Include libtool fix for Solaris 11.3. Reported at . * Makefile.maint (libtool-imported-files): Download and apply said fix. 2017-10-09 Bruno Haible Avoid build failures caused by parallel make. Reported by Riccardo G Corsi . * Makefile.in (GNUMAKEFLAGS): New variable. 2017-09-24 Bruno Haible Update NEWS. * NEWS: Mention the API changes in 2.0. 2017-09-15 Bruno Haible tests: Consistency. * avcall/tests.c (pointer_tests): Move before the mixed_number_tests. (gpargs_boundary_tests): Fix weakness in the f_f17l3L test. 2017-09-12 Bruno Haible sparc: Verify support for NetBSD. * PLATFORMS, */PLATFORMS: List this platform. 2017-09-11 Bruno Haible Bump version number. * VERSION: Set to 2.1. * NEWS: Open new section for 2.1. 2017-09-10 Bruno Haible Install the libraries as shared libraries by default. * configure.ac (LT_INIT): Remove option 'disable-shared'. * README: Remove outdated text. * NEWS: Mention the change. 2017-09-10 Bruno Haible Install a library named libffcall. * ffcall-version.c: New file. * ffcall-version.in.h: Rename double-inclusion guard. (ffcall_get_version): New declaration. * Makefile.in: Add variables for using libtool. (LIBFFCALL_EXPORTED_SYMBOLS_REGEX, LIBFFCALL_VERSION_INFO): New variables. (all-subdirs, ffcall-version.lo, libffcall.la): New targets. (all): Depend on them. (install): Install also libffcall.la. (installdirs): Create also $(libdir). (uninstall): Uninstall also libffcall.la. (MOSTLYCLEANDIRS, MOSTLYCLEANFILES): New variables. (mostlyclean, clean, distclean, maintainer-clean): Delete these. (SOURCE_FILES): Add ffcall-version.c. * README: Mention libffcall.{a,so}. Mark libavcall and libcallback as deprecated. * NEWS: Mention the change. 2017-09-10 Bruno Haible Move the backward compatibility code to separate object files. * avcall/avcall-compat.c: New file, extracted from avcall/avcall-libapi.c. * avcall/Makefile.in (SOURCE_FILES): Add it. (avcall-compat.lo): New target. (OBJECTS): Add it. * avcall/avcall-libapi.c (__builtin_avcall): Remove function. * callback/callback-compat.c: New file, extracted from callback/callback-libapi.c. * callback/Makefile.in (SOURCE_FILES): Add it. (callback-compat.lo): New target. (libcallback.la): Include it. * callback/callback-libapi.c (trampoline_r_data0): Remove function. 2017-09-10 Bruno Haible vacall: Fix build failure with gcc configured with --enable-default-pie. Works around a GCC bug, reported at . * configure.ac (WORKAROUND_BUG_81653): New variable. * vacall/Makefile.in (vacall-sparc.@OBJEXT@, vacall-sparc.s): Use it. 2017-09-10 Bruno Haible Fix build failure "error: narrowing conversion" with g++ on arm. * testcases.c (C5): Cast -1 to 'char' explicitly. 2017-09-10 Bruno Haible Fix build failure with --enable-shared on Solaris/x86 with cc. * common/asm-i386.h: Test __SVR4, not __svr4__. 2017-09-10 Bruno Haible Support building shared libraries on native Windows. * configure.ac (LT_INIT): Add option 'win32-dll'. * avcall/Makefile.in (avcall-x86_64.lo): Copy object file into .libs/ directory. * callback/vacall_r/Makefile.in (vacall-x86_64.lo): Likewise. 2017-09-09 Bruno Haible i386: Verify support for Hurd. * NEWS: List this platform. 2017-09-09 Bruno Haible x86_64: Verify support for FreeBSD, NetBSD, OpenBSD. * PLATFORMS, */PLATFORMS: List these platforms. * NEWS: Likewise. 2017-09-09 Bruno Haible i386: Restore support for FreeBSD, NetBSD, OpenBSD, DragonFly BSD. * avcall/avcall.h (__AV_STRUCT_RETURN): Enable __AV_SMALL_STRUCT_RETURN on FreeBSD/i386, OpenBSD/i386, DragonFly/i386. * vacall/vacall.h (__VA_STRUCT_RETURN): Enable __VA_SMALL_STRUCT_RETURN on FreeBSD/i386, OpenBSD/i386, DragonFly/i386. * callback/vacall_r/vacall_r.h: Likewise. * avcall/avcall-i386.c: Update comments. * vacall/vacall-i386.c (vacall_receiver): Return the structure address in %eax also for other platforms than MSVC. * PLATFORMS, */PLATFORMS: List these platforms. * NEWS: Likewise. 2017-09-09 Bruno Haible i386: Assume MSVC struct return convention also on 32-bit mingw. * avcall/avcall.h (__AV_STRUCT_RETURN): Enable __AV_MSVC_STRUCT_RETURN on 32-bit mingw. * vacall/vacall.h (__VA_STRUCT_RETURN): Enable __VA_MSVC_STRUCT_RETURN on 32-bit mingw. * callback/vacall_r/vacall_r.h: Likewise. * NEWS: Mention the fix. 2017-09-09 Bruno Haible vacall: Fix warnings on DragonFly BSD. * vacall/vacall-internal.h (__va_start, __va_arg): Undefine first. 2017-09-09 Bruno Haible avcall, vacall: Optimize struct return of small structs. * avcall/avcall-arm64.c (avcall_call): Add alternative optimized code for struct return. * avcall/avcall-hppa.c (avcall_call): Likewise. * avcall/avcall-ia64.c (avcall_call): Likewise. * avcall/avcall-mipsn32.c (avcall_call): Likewise. * avcall/avcall-mips64.c (avcall_call): Likewise. * avcall/avcall-powerpc64.c (avcall_call): Likewise. * avcall/avcall-sparc64.c (avcall_call): Likewise. * avcall/avcall-x86_64.c (avcall_call): Likewise. * avcall/avcall-x86_64-windows.c (avcall_call): Likewise. * avcall/avcall-hppa64.c (avcall_call): Likewise, but don't enable it. * vacall/vacall-arm64.c (vacall_receiver): Add alternative optimized code for struct return. * vacall/vacall-hppa.c (vacall_receiver): Likewise. * vacall/vacall-ia64.c (vacall_receiver): Likewise. * vacall/vacall-mipsn32.c (vacall_receiver): Likewise. * vacall/vacall-mips64.c (vacall_receiver): Likewise. * vacall/vacall-powerpc64.c (vacall_receiver): Likewise. * vacall/vacall-sparc64.c (vacall_receiver): Likewise. * vacall/vacall-x86_64.c (vacall_receiver): Likewise. * vacall/vacall-x86_64-windows.c (vacall_receiver): Likewise. * vacall/vacall-hppa64.c (vacall_receiver): Likewise. 2017-09-09 Bruno Haible avcall, vacall: Align code style. * avcall/avcall-hppa.c (avcall_call): Use variable name 'iret', like for the other ABIs. * avcall/avcall-ia64.c: Likewise. * avcall/avcall-arm64.c (avcall_call): Use variable names 'iret' and 'iret2', like for the other ABIs. * avcall/avcall-x86_64.c: Likewise. * avcall/avcall-sparc64.c (avcall_call): Use variable names 'iret', 'iret2', 'iret3', 'iret4', for consistency. * vacall/vacall-sparc64 (vacall_receiver): Likewise. 2017-09-09 Bruno Haible x86_64: Remove register pressure on gcc. * avcall/avcall-x86_64.c: Don't declare iarg[1-6]. (avcall_call): Pass the integer arguments through arguments. * avcall/avcall-x86_64-windows.c: Don't declare iarg[1-4]. (avcall_call): Pass the integer arguments through arguments. * vacall/vacall-x86_64.c: Don't declare iarg[1-6]. (vacall_receiver): Use another way to save the integer registers. * vacall/vacall-x86_64-windows.c: Don't declare iarg[1-4]. 2017-09-09 Bruno Haible Fix preprocessor warning "does not give a valid preprocessing token". * common/asm-i386.h (NUM): Don't use token concatenation between '$' and a possibly negative number. * common/asm-x86_64.h (NUM): Likewise. 2017-09-09 Bruno Haible hppa64: Simplify trampoline. * trampoline/tramp-hppa64-old.s: Renamed from trampoline/tramp-hppa64.s. * trampoline/tramp-hppa64-old.o: Renamed from trampoline/tramp-hppa64.o. * trampoline/tramp-hppa64-macro.S: New file. * trampoline/Makefile.in (tramp-hppa64.lo, tramp-hppa64.s): New targets. (clean): Remove tramp-hppa64.s. (SOURCE_FILES): Add tramp-hppa64-macro.S. * trampoline/trampoline.c: Distinguish __hppa64old__ and __hppa64new__. Implement trampoline for __hppa64new__. * callback/trampoline_r/tramp-hppa64-old.s: Renamed from callback/trampoline_r/tramp-hppa64.s. * callback/trampoline_r/tramp-hppa64-old.o: Renamed from callback/trampoline_r/tramp-hppa64.o. * callback/trampoline_r/tramp-hppa64-macro.S: New file. * callback/trampoline_r/Makefile.in (tramp-hppa64.lo, tramp-hppa64.s): New targets. (clean): Remove tramp-hppa64.s. (SOURCE_FILES): Add tramp-hppa64-macro.S. * callback/trampoline_r/trampoline.c: Distinguish __hppa64old__ and __hppa64new__. Implement trampoline for __hppa64new__. * configure.ac (CPU_OBJECTS): Augment with tramp-hppa64.lo. 2017-09-09 Bruno Haible hppa64: Add support for HP-PA in 64-bit mode on HP-UX. * cross-tools/cross.conf: Add configuration for hppa64 cross tools. * porting-tools/abis/README: Add details about platforms where function pointers are actually pointers to some struct. * porting-tools/abis/call-used-registers.txt: Add info about hppa64. Fix info about hppa. * porting-tools/abis/reg-struct-return.txt: Add info about hppa64. * porting-tools/abis/stack-frame.txt: Likewise. * porting-tools/execstack/voidfunc-hppa64.o: New file. * common/asm-hppa64.h: New file. * common/asm-hppa64.sh: New file. * Makefile.in (SOURCE_FILES): Add them. * avcall/avcall.h (__AV_REGISTER_STRUCT_RETURN): Add code for __hppa64__. * avcall/avcall-alist.h (__av_alist): Likewise. * avcall/avcall-internal.h: Add code for __hppa64__, especially __av_start1, __av_reg_struct_return, __av_start_struct4, __av_word, __av_longlong, __av_ulonglong, _av_float, _av_double, __av_struct_leftadjusted, __av_struct. * avcall/avcall-hppa64.c: New file. * avcall/Makefile.devel (avcall-hppa64-linux.s, avcall-hppa64-macro.S): New targets. * avcall/Makefile.in (avcall-hppa64.lo, avcall-hppa64.s): New targets. (clean): Remove avcall-hppa64.s. (SOURCE_FILES): Add avcall-hppa64.c, avcall-hppa64-linux.s, avcall-hppa64-macro.S. * vacall/vacall.h (__VA_REGISTER_STRUCT_RETURN): Add code for __hppa64__. * vacall/vacall-internal.h: Add code for __hppa64__, especially __va_alist, __va_reg_struct_return, __va_start_struct2, __va_arg_leftadjusted, __va_arg_rightadjusted, __va_arg_adjusted, _va_arg_longlong, _va_arg_ulonglong, __va_align_double, _va_arg_float, _va_arg_double, __va_arg_struct, _va_return_longlong. * vacall/vacall-hppa64.c: New file. * vacall/Makefile.devel (vacall-hppa64-linux.s, vacall-hppa64-macro.S): New targets. * vacall/Makefile.in (vacall-hppa64.@OBJEXT@, vacall-hppa64.s): New targets. (clean): Remove vacall-hppa64.s. (SOURCE_FILES): Add vacall-hppa64.c, vacall-hppa64-linux.s, vacall-hppa64-macro.S. * callback/vacall_r/vacall_r.h (__VA_REGISTER_STRUCT_RETURN): Add code for __hppa64__. * callback/vacall_r/Makefile.devel (vacall-hppa64-linux.s, vacall-hppa64-macro.S): New targets. * callback/vacall_r/Makefile.in (vacall-hppa64.lo, vacall-hppa64.s): New targets. (clean): Remove vacall-hppa64.s. (SOURCE_FILES): Add vacall-hppa64-linux.s, vacall-hppa64-macro.S. * trampoline/Makefile.devel (cache-hppa64-linux.s, cache-hppa64-macro.S): New targets. (proto-hppa64.s, tramp-hppa64.o): New targets. * trampoline/proto-hppa64.s: New generated file. * trampoline/tramp-hppa64.s: New file. * trampoline/tramp-hppa64.o: New generated file. * trampoline/tramp-hppa-macro.S: Fix comment. * trampoline/cache-hppa.c: Add code for __hppa64__. * trampoline/trampoline.c: Implement for __hppa64__. * trampoline/Makefile.in (cache-hppa64.lo, cache-hppa64.s): New targets. (clean): Remove cache-hppa64.s. (SOURCE_FILES): Add cache-hppa64-linux.s, cache-hppa64-macro.S. * callback/trampoline_r/Makefile.devel (cache-hppa64-linux.s, cache-hppa64-macro.S): New targets. (proto-hppa64.s, tramp-hppa64.o): New targets. * callback/trampoline_r/proto64.c: Add code for __hppa64__. * callback/trampoline_r/proto-hppa64.s: New generated file. * callback/trampoline_r/tramp-hppa64.s: New file. * callback/trampoline_r/tramp-hppa64.o: New generated file. * callback/trampoline_r/tramp-hppa-macro.S: Fix comment. * callback/trampoline_r/trampoline.c: Implement for __hppa64__. * callback/trampoline_r/test1.c: Add support for __hppa64__. * callback/trampoline_r/Makefile.in (cache-hppa64.lo, cache-hppa64.s): New targets. (clean): Remove cache-hppa64.s. (SOURCE_FILES): Add cache-hppa64-linux.s, cache-hppa64-macro.S. * configure.ac (CPU_OBJECTS): Augment also for hppa64 ABI. * PLATFORMS, */PLATFORMS: List the 64-bit HP-PA machine. * NEWS: Mention the new port. 2017-09-09 Bruno Haible Don't violate ISO C rules. * avcall/avcall-internal.h (__av_struct): Don't store an unaligned pointer in (LIST).aptr. 2017-09-09 Bruno Haible Assume the C preprocessor discards // comments. * common/asm-i386.h: Renamed from common/asm-i386.hh. * Makefile.maint (common/asm-i386.h): Remove target. * Makefile.in (SOURCE_FILES): Add common/asm-i386.h. Remove common/asm-i386.hh. (GENERATED_FILES): Remove common/asm-i386.h. 2017-09-09 Bruno Haible avcall: Optimize struct return of small structs. * avcall/avcall-*.c: Cache l->raddr in a local variable. 2017-09-09 Bruno Haible x86_64: Improve processing of assembly-language files. * common/asm-x86_64.sh: Eliminate #APP and #NO_APP directives. In the MEM* patterns, recognize all 64-bit register names. 2017-09-09 Bruno Haible Fix compilation error on HP-UX (regression from 2017-09-03). * avcall/avcall-libapi.c: Include before ffcall-stdint.h. 2017-09-03 Bruno Haible i386: Align processing of assembly-language files with x86_64 case. * common/asm-i386.hh (INSN2MOVXL): Renamed from INSN2MOVX. * common/asm-i386.sh: Generate INSN2MOVXL instead of INSN2MOVX. 2017-09-03 Bruno Haible i386: Provide disambiguating size prefixes in more cases. * common/asm-i386.sh: Introduce size prefixes also for the second operand of instructions with two operands. 2017-09-03 Bruno Haible i386: Simplify processing of assembly-language files. * common/asm-i386.sh: Remove unused introduction of FUNEND. Remove no-op rule for GLOBL. 2017-09-03 Bruno Haible x86_64: Add support for MSVC 14. * common/asm-x86_64.h (R, NUM, ADDR, ADDR_PCRELATIVE, X1, X2, X4, X8, MEM, MEM_DISP, MEM_INDEX, MEM_SHINDEX, MEM_DISP_SHINDEX0, MEM_DISP_SHINDEX, MEM_PCRELATIVE, INDIR, INSNCONC, INSN1, INSN2, INSN2S, INSN2MOVXL, INSN2MOVXQ, INSN2MOVXLQ, _): New macros. (TEXT, P2ALIGN, DECLARE_FUNCTION, FUNBEGIN, FUNEND): Implement for MSVC. * common/asm-x86_64.sh: Generate instructions as macros that may expand into AT&T syntax or MSVC syntax. * avcall/Makefile.in (avcall-x86_64.lo): Use a different rule for MSVC. (clean): Remove also avcall-x86_64.asm. * vacall/Makefile.in (vacall-x86_64.@OBJEXT@): Use a different rule for MSVC. (clean): Remove also vacall-x86_64.asm. * callback/vacall_r/Makefile.in (vacall-x86_64.lo): Use a different rule for MSVC. (clean): Remove also vacall-x86_64.asm. * PLATFORMS, */PLATFORMS: List the 64-bit mingw machine. * NEWS: Mention the new port. 2017-09-03 Bruno Haible x86_64: Add support for mingw. * avcall/avcall.h (__AV_LLP64): New macro. (__avword): Use it. * avcall/avcall-alist.h (__av_alist): Change fields of type 'unsigned long' to 'uintptr_t'. * avcall/avcall-internal.h (__av_longlong): Update implementation for LLP64 platforms. * vacall/vacall.h (__VA_LLP64): New macro. (__vaword): Use it. * callback/vacall_r/vacall_r.h: Likewise. * vacall/vacall-internal.h (__va_alist): Change fields of type 'unsigned long' to 'uintptr_t'. Don't assume that 'long long' is the same as 'long' on x86_64. (_va_arg_longlong, _va_arg_ulonglong, _va_return_longlong, _va_return_ulonglong): Update implementation for LLP64 platforms. * PLATFORMS, */PLATFORMS: List the 64-bit mingw machine. * NEWS: Mention the new port. 2017-09-03 Bruno Haible Fix warnings on 64-bit native Windows. * avcall/tests.c (pointer_tests): Use %p to display the value of a pointer. * vacall/tests.c (main): Likewise, * callback/tests.c (main): Likewise, 2017-09-03 Bruno Haible Add support for platforms where sizeof(long) < sizeof(void*). * ffcall-stdint.h: New file. * Makefile.in (SOURCE_FILES): Add it. * avcall/avcall-internal.h: Include ffcall-stdint.h. Use [u]intptr_t instead of 'long', 'unsigned long', or '__avword' where appropriate. * vacall/vacall-internal.h: Include ffcall-stdint.h. Use [u]intptr_t instead of 'long', 'unsigned long', or '__vaword' where appropriate. * Makefile.maint (GNULIB_MODULES): Add stdint. * trampoline/trampoline.c: Include . Use [u]intptr_t instead of 'long' or 'unsigned long' where appropriate. For __x86_64__, use 'unsigned long long' instead of 'unsigned long'. * callback/trampoline_r/trampoline.c: Likewise. * callback/trampoline_r/test1.c (f): Use 'void*' instead of 'long' to access env. 2017-09-03 Bruno Haible x86_64: Add support for Cygwin. * porting-tools/abis/call-used-registers.txt: Add info about x86_64-ms ABI. * porting-tools/abis/reg-struct-return.txt: Likewise. * porting-tools/abis/stack-frame.txt: Likewise. * common/asm-x86_64.h: Add support for compilers on Windows. (TEXT, GLOBL): New macros. * common/asm-x86_64.sh: Truncate the EH_FRAME_SECTION also on Windows. Eliminate .file pseudo-op. Macroize .text, .p2align, .globl directives. * avcall/avcall-alist.h (__x86_64_ms__, __x86_64_sysv__): New macros. (__av_alist): Add support for __x86_64_ms__. * avcall/avcall-internal.h (__av_start1, __av_reg_struct_return, __av_start_struct3, __av_start_struct4, __av_word, _av_float, _av_double, __av_struct): Add support for __x86_64_ms__. * avcall/avcall-x86_64.c: Improve comments. * avcall/avcall-x86_64-windows.c: New file. * avcall/Makefile.devel (avcall-x86_64-windows.s, avcall-x86_64-windows-macro.S): New targets. * avcall/Makefile.in (avcall-x86_64.s): On Windows, use avcall-x86_64-windows-macro.S. (SOURCE_FILES): Add avcall-x86_64-windows.c, avcall-x86_64-windows.s, avcall-x86_64-windows-macro.S. * vacall/vacall-internal.h (__x86_64_ms__, __x86_64_sysv__): New macros. (__VA_FARG_NUM): Define also for __mipsn32__ || __mips64__. (__va_alist): Add support for __x86_64_ms__. (__va_reg_struct_return, __va_start_struct1, __va_start_struct2, __va_arg_leftadjusted, __va_arg_rightadjusted, __va_arg_adjusted, _va_arg_float, _va_arg_double, __va_arg_struct): Likewise. * vacall/vacall-x86_64.c: Update comments. * vacall/vacall-x86_64-windows.c: New file. * vacall/Makefile.devel (vacall-x86_64-windows.s, vacall-x86_64-windows-macro.S): New targets. * vacall/Makefile.in (vacall-x86_64.s): On Windows, use vacall-x86_64-windows-macro.S. (SOURCE_FILES): Add vacall-x86_64-windows.c, vacall-x86_64-windows.s, vacall-x86_64-windows-macro.S. * callback/vacall_r/Makefile.devel (vacall-x86_64-windows.s, vacall-x86_64-windows-macro.S): New targets. * callback/vacall_r/Makefile.in (vacall-x86_64.s): On Windows, use vacall-x86_64-windows-macro.S. (SOURCE_FILES): Add vacall-x86_64-windows.s, vacall-x86_64-windows-macro.S. * PLATFORMS, */PLATFORMS: List the 64-bit Cygwin machine. * NEWS: Mention the new port. 2017-09-03 Bruno Haible Remove special build infrastructure for MSVC. The generic one works. * avcall/Makefile.msvc: Remove file. * avcall/Makefile.in (SOURCE_FILES): Remove it. * vacall/Makefile.maint (config.h.msvc): Remove target. (totally-clean): Don't remove config.h.msvc. * vacall/Makefile.msvc: Remove file. * vacall/Makefile.in (SOURCE_FILES): Remove it. (GENERATED_FILES): Remove config.h.msvc. * trampoline/Makefile.maint (config.h.msvc): Remove target. (totally-clean): Don't remove config.h.msvc. * trampoline/Makefile.msvc: Remove file. * trampoline/Makefile.in (SOURCE_FILES): Remove it. (GENERATED_FILES): Remove config.h.msvc. * callback/vacall_r/Makefile.maint (config.h.msvc): Remove target. (totally-clean): Don't remove config.h.msvc. * callback/vacall_r/Makefile.msvc: Remove file. * callback/vacall_r/Makefile.in (SOURCE_FILES): Remove it. (GENERATED_FILES): Remove config.h.msvc. * callback/trampoline_r/Makefile.maint (config.h.msvc): Remove target. (totally-clean): Don't remove config.h.msvc. * callback/trampoline_r/Makefile.msvc: Remove file. * callback/trampoline_r/Makefile.in (SOURCE_FILES): Remove it. (GENERATED_FILES): Remove config.h.msvc. * callback/Makefile.maint (vacall_r/config.h.msvc, trampoline_r/config.h.msvc): Remove targets. * callback/Makefile.msvc: Remove file. * callback/Makefile.in (SOURCE_FILES): Remove it. * Makefile.msvc: Remove file. * Makefile.in (SOURCE_FILES): Remove it. 2017-09-03 Bruno Haible Make the generic build infrastructure work on MSVC. * m4/as-underscore.m4: Rely on gl_ASM_SYMBOL_PREFIX from gnulib. Don't define ASM_UNDERSCORE any more. * configure.ac: Set IF_MSVC, IFNOT_MSVC. * common/asm-i386.hh: Fix P2ALIGN parameter list. * common/asm-i386.sh: Improve handling of indirect calls and jmps. * avcall/Makefile.in: Use OBJEXT. (avcall-i386.lo): Use a different rule for MSVC. * vacall/Makefile.devel: Transform 'vacall_function' before the asm-i386.sh script, not afterwards. * vacall/Makefile.in: Use OBJEXT. (vacall-i386.o): Use a different rule for MSVC. * trampoline/trampoline.c: On native Windows, when CODE_EXECUTABLE is not defined, use VirtualAlloc. * trampoline/Makefile.in: Use OBJEXT. * callback/vacall_r/get_receiver.c: New file. * callback/vacall_r/Makefile.maint (vacall-i386-msvc.c): Use the C source code of callback_get_receiver. * callback/vacall_r/Makefile.in: Use OBJEXT. (vacall-i386.lo): Use a different rule for MSVC. (SOURCE_FILES): Add get_receiver.c. * callback/trampoline_r/trampoline.c: On native Windows, when CODE_EXECUTABLE is not defined, use VirtualAlloc. * callback/trampoline_r/Makefile.in: Use OBJEXT. * callback/Makefile.in: Use OBJEXT. * README.win32: Remove file. * README.windows: New file, from GNU gettext. * Makefile.in (SOURCE_FILES): Remove README.win32. Add README.windows. * PLATFORMS, */PLATFORMS: List the 32-bit mingw and MSVC machine. * NEWS: Mention MSVC support. 2017-09-03 Bruno Haible Don't use symbolic links for .h files. MSVC 14 does not follow the symbolic links set by Cygwin's 'ln -s'. * trampoline/Makefile.in (LN_S): Remove variable. * callback/trampoline_r/Makefile.in (LN_S): Remove variable. * callback/Makefile.in (INCLUDES): Add an -I option for vacall_r.h. (LN_S): Remove variable. (vacall_r.h, trampoline_r.h): Remove targets. (callback-libapi.lo): Use explicit -I option for trampoline_r.h. Update dependencies. (test1.o, minitests.o, minitests.s, minitests-c++.o, tests.o, tests.s): Update dependencies. (MOSTLYCLEANFILES): Remove vacall_r.h, trampoline_r.h. * configure.ac: Don't invoke CL_PROG_LN_S. 2017-09-03 Bruno Haible Remove special build infrastructure for mingw. The generic one works. * avcall/Makefile.maint (avcall-i386-mingw32.c): Remove target. (totally-clean): Don't remove avcall-i386-mingw32.c. * avcall/Makefile.mingw32: Remove file. * avcall/Makefile.in (SOURCE_FILES): Remove it. (GENERATED_FILES): Remove avcall-i386-mingw32.c. * vacall/Makefile.maint (config.h.mingw32, vacall-i386-mingw32.c): Remove targets. (totally-clean): Don't remove config.h.mingw32, vacall-i386-mingw32.c. * vacall/Makefile.mingw32: Remove file. * vacall/Makefile.in (SOURCE_FILES): Remove it. (GENERATED_FILES): Remove config.h.mingw32, vacall-i386-mingw32.c. * trampoline/Makefile.maint (config.h.mingw32): Remove target. (totally-clean): Don't remove config.h.mingw32. * trampoline/Makefile.mingw32: Remove file. * trampoline/Makefile.in (SOURCE_FILES): Remove it. (GENERATED_FILES): Remove config.h.mingw32. * callback/vacall_r/Makefile.maint (config.h.mingw32, vacall-i386-mingw32.c): Remove targets. (totally-clean): Don't remove config.h.mingw32, vacall-i386-mingw32.c. * callback/vacall_r/Makefile.mingw32: Remove file. * callback/vacall_r/Makefile.in (SOURCE_FILES): Remove it. (GENERATED_FILES): Remove config.h.mingw32, vacall-i386-mingw32.c). * callback/trampoline_r/Makefile.maint (config.h.mingw32): Remove target. (totally-clean): Don't remove config.h.mingw32. * callback/trampoline_r/Makefile.mingw32: Remove file. * callback/trampoline_r/Makefile.in (SOURCE_FILES): Remove it. (GENERATED_FILES): Remove config.h.mingw32. * callback/Makefile.maint (vacall_r/config.h.mingw32, vacall_r/vacall-i386-mingw32.c, trampoline_r/config.h.mingw32): Remove targets. * callback/Makefile.mingw32: Remove file. * callback/Makefile.in (SOURCE_FILES): Remove it. * Makefile.mingw32: Remove file. * Makefile.in (SOURCE_FILES): Remove it. 2017-09-03 Bruno Haible Fix leftover files after "make distclean" (regression from 2017-08-27). * avcall/Makefile.in (distclean): Also remove minitests-c++.output.*. * vacall/Makefile.in (distclean): Likewise. * callback/Makefile.in (DISTCLEANFILES): Add minitests-c++.output.*. 2017-08-27 Bruno Haible Enable building shared libraries on Windows. * avcall/Makefile.in (libavcall.la): Pass option '-no-undefined' to $(LIBTOOL_LINK). * trampoline/Makefile.in (libtrampoline.la): Likewise. * callback/vacall_r/Makefile.in (libvacall.la): Likewise. * callback/trampoline_r/Makefile.in (libtrampoline.la): Likewise. * callback/Makefile.in (libcallback.la): Likewise. 2017-08-27 Bruno Haible Do proper versioning of shared libraries. * avcall/Makefile.in (LIBAVCALL_VERSION_INFO): New variable. (libavcall.la): Use libtool option -version-info. * trampoline/Makefile.in (LIBTRAMPOLINE_VERSION_INFO): New variable. (libtrampoline.la): Use libtool option -version-info. * callback/Makefile.in (LIBCALLBACK_VERSION_INFO): New variable. (libcallback.la): Use libtool option -version-info. * README: Remove statement of problem. Update figures about code size. * NEWS: Mention the change. 2017-08-27 Bruno Haible Fix warnings on 64-bit native Windows. * testcases.c (vp_vpdpcpsp): Use %p to display the value of a pointer. * vacall/tests.c (simulator): Likewise. * callback/tests.c (vp_vpdpcpsp_simulator): Likewise, 2017-08-27 Bruno Haible Remove code duplication of test cases. * testcases.c: New file, extracted from avcall/tests.c. * Makefile.in (SOURCE_FILES): Add it. * avcall/tests.c: Remove testcases functions. Include testcases.c instead. * vacall/tests.c: Likewise. * callback/tests.c: Likewise. * porting-tools/abis/README: Update. 2017-08-27 Bruno Haible avcall: Fix weakness in tests (added on 2017-01-29). * avcall/tests.c (ll_l2ll, ll_l3ll, ll_l4ll, ll_l5ll, ll_l6ll, ll_l7ll): Use a temporary variable of type 'long long'. 2017-08-27 Bruno Haible vacall, callback: Remove workarounds for obsolete platforms. * vacall/tests.c: Remove workarounds for SunOS 4 cc, gcc-2.5, gcc-2.7.x. * callback/tests.c: Likewise. 2017-08-27 Bruno Haible Add tests that verify the C++ support. * Makefile.maint (GNULIB_MODULES): Add ansi-c++-opt. * configure.ac: Invoke gl_PROG_ANSI_CXX. Set IF_CXX. * avcall/minitests-c++.cc: New file. * avcall/Makefile.in (CXX, CXXFLAGS): New variables. (minitests-c++.o, minitests-c++): New targets. (check): Optionally, test also minitests-c++. (clean): Remove minitests-c++.o, minitests-c++, minitests-c++.out. (SOURCE_FILES): Add minitests-c++.cc. * vacall/minitests-c++.cc: New file. * vacall/Makefile.in (CXX, CXXFLAGS): New variables. (minitests-c++.o, minitests-c++): New targets. (check): Optionally, test also minitests-c++. (clean): Remove minitests-c++.o, minitests-c++, minitests-c++.out. (SOURCE_FILES): Add minitests-c++.cc. * trampoline/test2-c++.cc: New file. * trampoline/test2.c (main): Don't test &main in C++ mode. * trampoline/Makefile.in (CXX, CXXFLAGS): New variables. (test2-c++.o, test2-c++): New targets. (check): Optionally, test also test2-c++. (clean): Remove test2-c++.o, test2-c++. (SOURCE_FILES): test2-c++.cc. * callback/minitests-c++.cc: New file. * callback/Makefile.in (CXX, CXXFLAGS): New variables. (minitests-c++.o, minitests-c++): New targets. (check): Optionally, test also minitests-c++. (MOSTLYCLEANFILES): Add minitests-c++.o, minitests-c++, minitests-c++.out. (SOURCE_FILES): Add minitests-c++.cc. 2017-08-27 Bruno Haible Add support for SUNWspro C++ on Solaris. * avcall/avcall.h: Treat SUNWspro C++ like SUNWspro C. * vacall/vacall.h: Likewise. * callback/vacall_r/vacall_r.h: Likewise. 2017-08-27 Bruno Haible Make the include files C++-safe. * avcall/avcall.h: Add C++ guards. (__AV_alignof): Test __IBM__ALIGNOF__. Use template-based definition for C++. * vacall/vacall.h: Add C++ guards. (__VA_alignof): Test __IBM__ALIGNOF__. Use template-based definition for C++. * callback/vacall_r/vacall_r.h: Add C++ guards. (__VA_alignof): Test __IBM__ALIGNOF__. Use template-based definition for C++. 2017-08-27 Bruno Haible Make sure the tests use only the public include files. * avcall/tests.c: Don't include config.h. * vacall/tests.c: Don't include config.h. * callback/tests.c: Likewise. * callback/trampoline_r/test1.c: Likewise. Include ffcall-abi.h instead. * avcall/Makefile.in (avcall-libapi.lo): Use $(INCLUDES). * vacall/Makefile.in (INCLUDES): Remove -I options that reference gnulib-lib. (INCLUDES_WITH_GNULIB): New variable. (vacall-libapi.o): Use INCLUDES_WITH_GNULIB instead of INCLUDES. * trampoline/Makefile.in (INCLUDES): Remove -I options that reference gnulib-lib. (INCLUDES_WITH_GNULIB): New variable. (trampoline.lo): Use INCLUDES_WITH_GNULIB instead of INCLUDES. * callback/vacall_r/Makefile.in (INCLUDES): Remove -I options that reference gnulib-lib. (INCLUDES_WITH_GNULIB): New variable. (vacall-libapi.lo): Use INCLUDES_WITH_GNULIB instead of INCLUDES. * callback/trampoline_r/Makefile.in (INCLUDES): Remove -I options that reference gnulib-lib. (INCLUDES_WITH_GNULIB): New variable. (trampoline.lo): Use INCLUDES_WITH_GNULIB instead of INCLUDES. 2017-08-27 Bruno Haible Make recognition of Solaris more robust. * avcall/avcall.h: Test for '__sun', not for 'sun'. * vacall/vacall.h: Likewise. * callback/vacall_r/vacall_r.h: Likewise. * vacall/tests.c: Likewise. * callback/tests.c: Likewise. 2017-08-27 Bruno Haible avcall: Align field names. * avcall/avcall-alist.h (__av_alist): Rename field 'farg' to 'fargs'. * avcall/avcall-internal.h (_av_float): Update. * avcall/avcall-mipsn32.c (avcall_call): Likewise. * avcall/avcall-mips64.c (avcall_call): Likewise. 2017-08-27 Bruno Haible Remove support for old NeXTstep. * avcall/avcall.h (__AV_NEXTGCC_STRUCT_RETURN): Remove enum value. * avcall/avcall-internal.h (__av_start_struct4) [__i386__]: Remove test for __AV_NEXTGCC_STRUCT_RETURN. * avcall/avcall-i386.c (avcall_call): Likewise. * avcall/PLATFORMS: Update. * vacall/vacall.h (__VA_NEXTGCC_STRUCT_RETURN): Remove enum value. * callback/vacall_r/vacall_r.h: Likewise. * vacall/vacall-internal.h (__va_start_struct2) [__i386__]: Remove test for __VA_NEXTGCC_STRUCT_RETURN. * vacall/vacall-i386.c (vacall_receiver): Likewise. * trampoline/trampoline.c: Don't include . * callback/trampoline_r/trampoline.c: Likewise. 2017-08-27 Bruno Haible hppa: Remove support for old gcc-2.6.3. * avcall/avcall.h (__AV_OLDGCC_STRUCT_RETURN): Remove enum value. * avcall/avcall-internal.h (__av_reg_struct_return) [__hppa__]: Remove test for __AV_OLDGCC_STRUCT_RETURN. * avcall/avcall-hppa.c (avcall_call): Likewise. * vacall/vacall.h (__VA_OLDGCC_STRUCT_RETURN): Remove enum value. * callback/vacall_r/vacall_r.h (__VA_OLDGCC_STRUCT_RETURN): Likewise. * vacall/vacall-internal.h (__va_reg_struct_return) [__hppa__]: Remove test for __VA_OLDGCC_STRUCT_RETURN. * vacall/vacall-hppa.c (vacall_receiver): Likewise. 2017-08-27 Bruno Haible avcall: Evaluate __AV_ALIST_WORDS only during av_start_* macros. Part 2. * avcall/avcall-alist.h (__av_alist) [__hppa__]: Add 'args_end' field. * avcall/avcall-internal.h (__av_start1) [__hppa__]: Initialize it. * avcall/avcall-hppa.c (avcall_call): Use it to reduce the use of __AV_ALIST_WORDS. 2017-08-27 Bruno Haible avcall: Fix overflow detection bug on hppa. * avcall/avcall-internal.h (__av_struct) [__hppa__]: Use LIST.eptr instead of &LIST.args[0]. 2017-08-27 Bruno Haible Fix build failure with --enable-shared on Solaris/SPARC with cc. * common/asm-sparc.h: Test __SVR4, not __svr4__. * common/asm-sparc.sh: Fix comment about postprocessing. * avcall/Makefile.in (avcall-sparc.s, avcall-sparc64.s): Remove space after '#'. * vacall/Makefile.in (vacall-sparc.s, vacall-sparc64.s): Likewise. * trampoline/Makefile.in (cache-sparc.s, cache-sparc64.s): Likewise. * callback/vacall_r/Makefile.in (vacall-sparc.s, vacall-sparc64.s): Likewise. * callback/trampoline_r/Makefile.in (cache-sparc.s, cache-sparc64.s): Likewise. 2017-08-27 Bruno Haible vacall: Fix build failure with gcc configured with --enable-default-pie. Works around a GCC bug, reported at . * vacall/Makefile.devel (vacall-sparc-linux-pic.s): New target. (vacall-sparc-macro.S): Combine vacall-sparc-linux.s and vacall-sparc-linux-pic.s in one file. (vacall-sparc64-linux-pic.s): New target. (vacall-sparc64-macro.S): Combine vacall-sparc64-linux.s and vacall-sparc64-linux-pic.s in one file. * vacall/Makefile.in (SOURCE_FILES): Add vacall-sparc-linux-pic.s, vacall-sparc64-linux-pic.s. 2017-08-27 Bruno Haible mips: Avoid warning about undeclared function 'cacheflush' on Linux. * trampoline/trampoline.c: On Linux, include , not . * callback/trampoline_r/trampoline.c: Likewise. 2017-08-27 Bruno Haible vacall: Fix struct returns on mips (o32 ABI). * vacall/vacall-mips.c (vacall_receiver): Return the struct return address in register $2. 2017-08-27 Bruno Haible ia64: Test __GNUC__ only in av/va_start_* (regression from 2017-07-30). * avcall/avcall.h (__AV_OLDGCC_STRUCT_ARGS): New enum item. (__AV_STRUCT_ARGS): Use it. * avcall/avcall-internal.h (__av_struct) [__ia64__]: Test flag __AV_OLDGCC_STRUCT_ARGS, not __GNUC__. * vacall/vacall.h (__VA_OLDGCC_STRUCT_ARGS): New enum item. (__VA_STRUCT_ARGS): Use it. * callback/vacall_r/vacall_r.h: Likewise. * vacall/vacall-internal.h (__va_arg_struct): Test flag __VA_OLDGCC_STRUCT_ARGS, not __GNUC__. 2017-08-27 Bruno Haible Fix "make check" failure on Linux/mips (regression from 2017-07-30). * ffcall-abi.h: For mipsn32, test _MIPS_SIM, because defines both _ABIO32 and _ABIN32. 2017-07-31 Bruno Haible Fix preprocessor warning "does not give a valid preprocessing token". Reported by Reini Urban at . * common/asm-arm.sh: Don't put a colon inside the C() or L() argument. * common/asm-i386.sh: Likewise. * common/asm-m68k.sh: Likewise. * common/asm-sparc.sh: Likewise. * common/asm-x86_64.sh: Likewise. * common/asm-arm.h (FUNBEGIN): Don't put a colon inside the C() argument. * common/asm-i386.hh (FUNBEGIN): Likewise. * common/asm-m68k.h (FUNBEGIN): Likewise. * common/asm-sparc.h (FUNBEGIN): Likewise. * common/asm-x86_64.h (FUNBEGIN): Likewise. 2017-07-31 Bruno Haible Fix preprocessor warning "Unknown preprocessing directive". * common/asm-hppa.sh: Eliminate #APP, #NO_APP lines. * common/asm-powerpc.sh: Likewise. 2017-07-31 Bruno Haible trampoline_r: Rework API. * callback/trampoline_r/trampoline_r.h (trampoline_r_address, trampoline_r_data0, trampoline_r_data1): Change signatures. * callback/trampoline_r/trampoline.c (trampoline_r_address, trampoline_r_data0, trampoline_r_data1): Update accordingly. * callback/trampoline_r/test2.c: Update. * callback/callback-libapi.c (is_callback): Likewise. 2017-07-31 Bruno Haible vacall: Fix build error on IRIX with cc (regression from 2017-07-30). * vacall/vacall-internal.h (__va_arg_adjusted, __va_arg_struct): Cast result of __va_arg_leftadjusted and __va_arg_rightadjusted to 'void*'. 2017-07-31 Bruno Haible Fix "make check" failure on arm (regression from 2017-07-30). * vacall/vacall-internal.h (__va_alist): Move the 'filler1' field right before the 'tmp' field. * callback/vacall_r/vacall_r.h (vacall_alist): Add 'filler1' field between 'flags' and 'tmp' fields. 2017-07-31 Bruno Haible Fix build error (regression from 2017-07-30). * vacall/Makefile.in (INCLUDES): Add -I options for . * callback/vacall_r/Makefile.in (INCLUDES): Likewise. 2017-07-30 Bruno Haible vacall: Polish Makefile.in. * vacall/Makefile.in (vacall-x86_64-x32.o): Remove spurious reference to LIBTOOL_COMPILE. 2017-07-30 Bruno Haible m68k: Fix callback test crash on Linux. * avcall/Makefile.in (avcall-m68k.s): Use the .S file in Motorola syntax (cross-compiled for m68k-linux), not the one in MIT syntax (cross-compiled for m68k-sun). * vacall/Makefile.in (vacall-m68k.s): Likewise. * callback/vacall_r/Makefile.in (vacall-m68k.s): Likewise. * avcall/PLATFORM, NEWS: Update. 2017-07-30 Bruno Haible m68k: Fix build failure on Linux. * common/asm-m68k.sh: In mit syntax, recognize 'pc' as a register name. 2017-07-30 Bruno Haible Limit the exported symbols of the installed shared libraries. * avcall/Makefile.in (LIBAVCALL_EXPORTED_SYMBOLS_REGEX): New variable. (libavcall.la): Use libtool's -export-symbols-regex option. * trampoline/Makefile.in (LIBTRAMPOLINE_EXPORTED_SYMBOLS_REGEX): New variable. (libtrampoline.la): Use libtool's -export-symbols-regex option. * callback/Makefile.in (LIBCALLBACK_EXPORTED_SYMBOLS_REGEX): New variable. (libcallback.la): Use libtool's -export-symbols-regex option. 2017-07-30 Bruno Haible Ensure source compatibility with existing versions of GNU clisp, part 3. * vacall/vacall-internal.h (__va_alist): Move the 'flags' and 'tmp' fields to the beginning. * callback/vacall_r/vacall_r.h (vacall_alist): When used by GNU clisp, declare 'flags' and 'tmp' members. 2017-07-30 Bruno Haible Ensure source compatibility with existing versions of GNU clisp, part 2. * avcall/avcall-alist.h (__av_alist): Move the 'flags' field to the beginning. * avcall/avcall.h (av_alist): When used by GNU clisp, declare a 'flags' member. 2017-07-30 Bruno Haible Ensure source compatibility with existing versions of GNU clisp, part 1. * avcall/avcall-libapi.c (__builtin_avcall): New dummy function. * callback/callback-libapi.c (trampoline_r_data0): New dummy function. 2017-07-30 Bruno Haible Remove copied files from callback/vacall_r/. * callback/vacall_r/Makefile.devel (vacall-*.s): Compile ../../vacall/vacall-*.c directly. * autogen.sh: Don't invoke target 'copied-files' in callback/vacall_r/. * Makefile.devel (precompiled): Likewise. * Makefile.in (COPIED_FILES): Remove callback/vacall_r/*. * callback/vacall_r/Makefile.maint (COPIED_FILES): Remove variable. (copied-files): Remove target. * callback/vacall_r/Makefile.in (SOURCE_FILES): Remove vacall-*.c. 2017-07-30 Bruno Haible callback: Allow for binary-compatible future changes of main API. * callback/callback.h: Renamed from callback/callback.h.in. Don't include trampoline_r.h. (callback_t, __TR_function): New types. (callback_function_t): Renamed from __VA_function. (alloc_callback, free_callback, is_callback, callback_address, callback_data): Declare as functions, not as macros. * callback/callback-libapi.c: New file. * configure.ac: Don't create callback/callback.h. * callback/Makefile.in (LIBTOOL_COMPILE): New variable. (callback.h): Remove target (callback-libapi.lo): New target. (libcallback.la): Include it. (install-lib, install, installdirs, uninstall): Don't recurse into 'trampoline_r' directory. (test1.o, minitests.o, minitests.s, tests.o, tests.s): Update dependency. (MOSTLYCLEANFILES): Remove callback.h. (SOURCE_FILES): Add callback.h, callback-libapi.c. Remove callback.h.in. * callback/test1.c (function): Remove type. (main): Remove a cast. * callback/tests.c (main): Use the type 'callback_t'. * Makefile.in (DISTCLEANFILES): Update stamp file list. * NEWS: Mention the improvement. 2017-07-30 Bruno Haible callback: Remove version number from trampoline_r.h. Rationale: It is already present in callback.h. * callback/trampoline_r/trampoline_r.h: Renamed from callback/trampoline_r/trampoline_r.h.in. (LIBFFCALL_VERSION): Remove macro. * configure.ac: Don't create callback/trampoline_r/trampoline_r.h. * callback/trampoline_r/Makefile.in (trampoline_r.h): Remove target. (trampoline.lo, test1.o, test2.o): Update dependencies. (install-lib, install): Update. (distclean): Don't remove trampoline_r.h. (SOURCE_FILES): Add trampoline_r.h. Remove trampoline_r.h.in. * callback/Makefile.in (trampoline_r.h): Link to $(srcdir)/trampoline_r/trampoline_r.h. * Makefile.in (DISTCLEANFILES): Update stamp file list. 2017-07-30 Bruno Haible vacall, callback: Allow compiler optimizations regarding noreturn. * Makefile.maint (GNULIB_MODULES): Add 'stdnoreturn'. * vacall/vacall-libapi.c: Include . (__va_struct_buffer_t): Moved to here. (vacall_struct_buffer): Declare static. (vacall_error_type_mismatch, vacall_error_struct_too_large): Declare static and noreturn. * callback/vacall_r/vacall-libapi.c: Likewise. * vacall/vacall-internal.h (__va_start_struct, __va_return): Update. (vacall_error_type_mismatch, vacall_error_struct_too_large, __va_struct_buffer_t, vacall_struct_buffer): Remove declarations. 2017-07-30 Bruno Haible vacall, callback: Move copyright notice up. * vacall/vacall.h: Put double-inclusion guard after copyright header. * callback/vacall_r/vacall_r.h: Likewise. 2017-07-30 Bruno Haible callback: Allow for binary-compatible future changes of __va_* macros. * callback/vacall_r/vacall_r.h: New file, extracted from callback/vacall_r/vacall_r.h.in. Include , ffcall-abi.h. (vacall_*): Define to symbols that start with 'callback_'. (va_alist): Define als pointer to 'struct vacall_alist'. (vacall_start, vacall_start_struct, vacall_arg_char, vacall_arg_schar, vacall_arg_uchar, vacall_arg_short, vacall_arg_ushort, vacall_arg_int, vacall_arg_uint, vacall_arg_long, vacall_arg_ulong, vacall_arg_longlong, vacall_arg_ulonglong, vacall_arg_float, vacall_arg_double, vacall_arg_ptr, vacall_arg_struct, vacall_return_void, vacall_return_char, vacall_return_schar, vacall_return_uchar, vacall_return_short, vacall_return_ushort, vacall_return_int, vacall_return_uint, vacall_return_long, vacall_return_ulong, vacall_return_longlong, vacall_return_ulonglong, vacall_return_float, vacall_return_double, vacall_return_ptr, vacall_return_struct): New declarations. (va_start_void, va_start_char, va_start_schar, va_start_uchar, va_start_short, va_start_ushort, va_start_int, va_start_uint, va_start_long, va_start_ulong, va_start_longlong, va_start_ulonglong, va_start_float, va_start_double, va_start_ptr, _va_start_struct, va_arg_char, va_arg_schar, va_arg_uchar, va_arg_short, va_arg_ushort, va_arg_int, va_arg_uint, va_arg_long, va_arg_ulong, va_arg_longlong, va_arg_ulonglong, va_arg_float, va_arg_double, va_arg_ptr, va_arg_struct, _va_arg_struct, va_return_void, va_return_char, va_return_schar, va_return_uchar, va_return_short, va_return_ushort, va_return_int, va_return_uint, va_return_long, va_return_ulong, va_return_longlong, va_return_ulonglong, va_return_float, va_return_double, va_return_ptr, _va_return_struct): Define in terms of these functions. * callback/vacall_r/vacall-libapi.c: Include vacall-internal.h instead of vacall_r.h.in. (vacall_start, vacall_start_struct, vacall_arg_char, vacall_arg_schar, vacall_arg_uchar, vacall_arg_short, vacall_arg_ushort, vacall_arg_int, vacall_arg_uint, vacall_arg_long, vacall_arg_ulong, vacall_arg_longlong, vacall_arg_ulonglong, vacall_arg_float, vacall_arg_double, vacall_arg_ptr, vacall_arg_struct, vacall_return_void, vacall_return_char, vacall_return_schar, vacall_return_uchar, vacall_return_short, vacall_return_ushort, vacall_return_int, vacall_return_uint, vacall_return_long, vacall_return_ulong, vacall_return_longlong, vacall_return_ulonglong, vacall_return_float, vacall_return_double, vacall_return_ptr, vacall_return_struct): New functions. * vacall/vacall-internal.h: If REENTRANT, include vacall_r.h. * callback/vacall_r/vacall_r.h.in: Remove file. * vacall/vacall-*.c: Include vacall-internal.h instead of vacall_r.h.in. * vacall/vacall-libapi.c: Likewise. * callback/vacall_r/Makefile.devel (GCCFLAGS): Add -I option for ffcall-abi.h. (vacall-*.s): Update dependencies. Pass -I options to gcc. * configure.ac: Don't create callback/vacall_r/vacall_r.h. * callback/vacall_r/Makefile.maint (vacall_r.h.msvc, vacall_r.h.mingw32): Remove targets. (totally-clean): Don't remove vacall_r.h.msvc, vacall_r.h.mingw32. * callback/Makefile.maint (vacall_r/vacall_r.h.msvc, vacall_r/vacall_r.h.mingw32): Remove targets. * callback/vacall_r/Makefile.in (INCLUDES): Add -I options for vacall-internal.h and ffcall-abi.h. (all): Don't depend on vacall_r.h. (vacall-libapi.lo): Update dependencies. Pass -DREENTRANT option. (install-lib, install): Update. (distclean): Don't remove vacall_r.h. (SOURCE_FILES): Add vacall_r.h. Remove vacall_r.h.in. (GENERATED_FILES): Remove vacall_r.h.mingw32, vacall_r.h.msvc. * callback/Makefile.in (INCLUDES): Add -I option for ffcall-abi.h. (vacall_r.h): Link to $(srcdir)/vacall_r/vacall_r.h. * Makefile.in (DISTCLEANFILES): Update. * porting-tools/abis/README: Update. 2017-07-30 Bruno Haible vacall: Allow for binary-compatible future changes of the __va_* macros. * vacall/vacall.h: New file, extracted from vacall/vacall.h.in. Include , ffcall-abi.h. (va_alist): Define als pointer to 'struct vacall_alist'. (vacall_start, vacall_start_struct, vacall_arg_char, vacall_arg_schar, vacall_arg_uchar, vacall_arg_short, vacall_arg_ushort, vacall_arg_int, vacall_arg_uint, vacall_arg_long, vacall_arg_ulong, vacall_arg_longlong, vacall_arg_ulonglong, vacall_arg_float, vacall_arg_double, vacall_arg_ptr, vacall_arg_struct, vacall_return_void, vacall_return_char, vacall_return_schar, vacall_return_uchar, vacall_return_short, vacall_return_ushort, vacall_return_int, vacall_return_uint, vacall_return_long, vacall_return_ulong, vacall_return_longlong, vacall_return_ulonglong, vacall_return_float, vacall_return_double, vacall_return_ptr, vacall_return_struct): New declarations. (va_start_void, va_start_char, va_start_schar, va_start_uchar, va_start_short, va_start_ushort, va_start_int, va_start_uint, va_start_long, va_start_ulong, va_start_longlong, va_start_ulonglong, va_start_float, va_start_double, va_start_ptr, _va_start_struct, va_arg_char, va_arg_schar, va_arg_uchar, va_arg_short, va_arg_ushort, va_arg_int, va_arg_uint, va_arg_long, va_arg_ulong, va_arg_longlong, va_arg_ulonglong, va_arg_float, va_arg_double, va_arg_ptr, va_arg_struct, _va_arg_struct, va_return_void, va_return_char, va_return_schar, va_return_uchar, va_return_short, va_return_ushort, va_return_int, va_return_uint, va_return_long, va_return_ulong, va_return_longlong, va_return_ulonglong, va_return_float, va_return_double, va_return_ptr, _va_return_struct): Define in terms of these functions. * vacall/vacall-libapi.c: Include vacall-internal.h instead of vacall.h.in. (vacall_start, vacall_start_struct, vacall_arg_char, vacall_arg_schar, vacall_arg_uchar, vacall_arg_short, vacall_arg_ushort, vacall_arg_int, vacall_arg_uint, vacall_arg_long, vacall_arg_ulong, vacall_arg_longlong, vacall_arg_ulonglong, vacall_arg_float, vacall_arg_double, vacall_arg_ptr, vacall_arg_struct, vacall_return_void, vacall_return_char, vacall_return_schar, vacall_return_uchar, vacall_return_short, vacall_return_ushort, vacall_return_int, vacall_return_uint, vacall_return_long, vacall_return_ulong, vacall_return_longlong, vacall_return_ulonglong, vacall_return_float, vacall_return_double, vacall_return_ptr, vacall_return_struct): New functions. * vacall/vacall-internal.h: New file, extracted from vacall/vacall.h.in. (__VA_ALIST_WORDS): Fix comment. (__va_alist): Declare as 'struct vacall_alist'. (__va_start): Add FLAGS argument. (__va_start_struct): Renamed from _va_start_struct. Add FLAGS argument. (_va_arg_*): Renamed from va_arg_*. (_va_arg_ptr): Renamed from va_arg_ptr. Remove TYPE argument. (_va_return_*): Renamed from va_return_*. (_va_return_ptr): Renamed from va_return_ptr. Remove TYPE argument. (__va_return_struct): Renamed from _va_return_struct. * vacall/vacall.h.in: Remove file. * configure.ac: Don't create vacall.h by substitution. * vacall/vacall-*.c: Include vacall-internal.h instead of vacall.h.in. * vacall/Makefile.devel (GCCFLAGS): Add -I option for ffcall-abi.h. (vacall-*.s): Update dependencies. (tests-*.s): Likewise. No more need to symlink vacall.h. * vacall/Makefile.maint (vacall.h.msvc, vacall.h.mingw32): Remove targets. (totally-clean): Don't remove them. * vacall/Makefile.in (INCLUDES): Add -I option for ffcall-abi.h. (vacall-libapi.o): Update dependencies. (install): Update. (minitests.o, minitests.s, tests.o, tests.s): Update dependency. (distclean): Don't remove vacall.h. (SOURCE_FILES): Add vacall.h, vacall-internal.h. Remove vacall.h.in. (GENERATED_FILES): Remove vacall.h.mingw32, vacall.h.msvc. * Makefile.in (DISTCLEANFILES): Update stamp file list. * vacall/README: Update. * porting-tools/abis/README: Update. 2017-07-30 Bruno Haible vacall: Remove special optimization of va_return_struct macro. * vacall/vacall.h.in (va_return_struct): Define through _va_return_struct. * callback/vacall_r/vacall_r.h.in: Likewise. 2017-07-30 Bruno Haible vacall, callback: Prefix all exported symbols at linker level. * vacall/vacall-*.c: Define vacall_receiver instead of __vacall, callback_receiver instead of __vacall_r, callback_get_receiver instead of get__vacall_r. * vacall/vacall-libapi.c: Include config.h first. (vacall_receiver): Renamed from __vacall. (vacall_struct_buffer): Renamed from __va_struct_buffer. (vacall_error_type_mismatch): Renamed from __va_error1. (vacall_error_struct_too_large): Renamed from __va_error2. * vacall/vacall.h.in (_va_start_struct, __va_return): Update. (vacall_error_type_mismatch): Renamed from __va_error1. (vacall_error_struct_too_large): Renamed from __va_error2. (vacall_struct_buffer): Renamed from __va_struct_buffer. * callback/vacall_r/vacall-libapi.c: Include config.h first. (vacall_struct_buffer): Renamed from __va_struct_buffer. (vacall_error_type_mismatch): Renamed from __va_error1. (vacall_error_struct_too_large): Renamed from __va_error2. * callback/vacall_r/vacall_r.h.in (vacall_error_type_mismatch, vacall_error_struct_too_large, vacall_structcpy, vacall_struct_buffer): Define to symbols that start with 'callback_'. (_va_start_struct, __va_return): Update. (callback_receiver): Renamed from __vacall_r. (callback_get_receiver): Renamed from get__vacall_r. (vacall_error_type_mismatch): Renamed from __va_error1. (vacall_error_struct_too_large): Renamed from __va_error2. (vacall_struct_buffer): Renamed from __va_struct_buffer. * callback/callback.h.in: Update. * callback/trampoline_r/trampoline_r.h.in (alloc_trampoline_r, free_trampoline_r, is_trampoline_r, trampoline_r_address, trampoline_r_data0, trampoline_r_data1): Define to symbols that start with 'callback_trampoline_'. * callback/elf-hack.txt: Update. * porting-tools/abis/call-used-registers.txt: Update. 2017-07-30 Bruno Haible callback: Use distinct object file names in static library. * callback/vacall_r/vacall-libapi.c: Renamed from callback/vacall_r/misc.c. * callback/vacall_r/Makefile.in (OBJECTS, SOURCE_FILES): Update. (vacall-libapi.lo): Renamed from misc.lo. * callback/Makefile.in (libcallback.la): Update. 2017-07-30 Bruno Haible vacall: Use distinct object file names in static library. * vacall/vacall-libapi.c: Renamed from vacall/misc.c. * vacall/Makefile.in (OBJECTS, SOURCE_FILES): Update. (vacall-libapi.o): Renamed from misc.o. * vacall/README: Update. 2017-07-30 Bruno Haible avcall: Modernize. * avcall/avcall.h: Change double-include guard. Modernize copyright header. 2017-07-30 Bruno Haible avcall: Allow for binary-compatible future changes of the __av_* macros. * avcall/avcall.h: New file, extracted from avcall/avcall.h.in. Include , ffcall-abi.h. When included from avcall-internal.h, include avcall-alist.h and add member '_av_m_alist' in av_alist type. (avcall_overflown, avcall_start, avcall_start_struct, avcall_arg_long, avcall_arg_ulong, avcall_arg_ptr, avcall_arg_longlong, avcall_arg_ulonglong, avcall_arg_float, avcall_arg_double, avcall_arg_struct): New declarations. (av_overflown, av_start_void, av_start_char, av_start_schar, av_start_uchar, av_start_short, av_start_ushort, av_start_int, av_start_uint, av_start_long, av_start_ulong, av_start_longlong, av_start_ulonglong, av_start_float, av_start_double, av_start_ptr, _av_start_struct, av_char, av_schar, av_short, av_int, av_long, av_uchar, av_ushort, av_uint, av_ulong, av_ptr, av_longlong, av_ulonglong, av_float, av_double, av_struct, _av_struct, av_call): Define in terms of these functions. * avcall/avcall-libapi.c: New file. * avcall/avcall-alist.h: New file, extracted from avcall/avcall.h.in. * avcall/avcall-internal.h: New file, extracted from avcall/avcall.h.in. (__av_start): Add LIST_ARGS_END and FLAGS arguments. (__av_start1, __av_start_init_eptr): Add LIST_ARGS_END argument. (__av_start_struct): Add LIST_ARGS, LIST_ARGS_END, FLAGS arguments. (__av_long): Renamed from _av_long. (__av_ulong): Renamed from _av_ulong. (__av_ptr): Renamed from _av_ptr. Remove TYPE argument. (__av_arg_longlong): Renamed from __av_longlong. (__av_longlong): Renamed from _av_longlong. (__av_ulonglong): Renamed from _av_ulonglong. * avcall/avcall.h.in: Remove file. * configure.ac: Don't create avcall.h by substitution. * avcall/avcall-*.c: Include avcall-internal.h instead of avcall.h.in. (avcall_call): Change argument type to 'av_alist*'. * avcall/Makefile.devel (GCCFLAGS): Add -I option for ffcall-abi.h. (avcall-*.s): Update dependencies. (tests-*.s): Likewise. No more need to symlink avcall.h. * avcall/Makefile.maint (avcall.h.msvc, avcall.h.mingw32): Remove targets. (totally-clean): Don't remove them. * avcall/Makefile.in (INCLUDES): Add -I option for ffcall-abi.h. (OBJECTS): Add avcall-libapi.lo. (avcall-libapi.lo): New target. (install-lib, install): Update. (minitests.o, minitests.s, tests.o, tests.s): Update dependency. (distclean): Don't remove avcall.h. (SOURCE_FILES): Add avcall.h, avcall-internal.h, avcall-alist.h, avcall-libapi.c. Remove avcall.h.in. (GENERATED_FILES): Remove avcall.h.mingw32, avcall.h.msvc. * Makefile.in (DISTCLEANFILES): Update stamp file list. * avcall/README: Update. * porting-tools/abis/README: Update. 2017-07-30 Bruno Haible avcall: Allow for binary-compatible future changes of __av_alist. * avcall/avcall.h.in (__AV_ALIST_SIZE_BOUND): New macro. (__av_alist_verify): New verification. (av_alist): Use it to allocate room. 2017-07-30 Bruno Haible avcall: Separate the fixed-size part from the variable part of av_alist. * avcall/avcall.h.in (__av_alist): Renamed from av_alist. Add 'args' field as a pointer. (av_alist): New type. (_av_overflown): Renamed from av_overflown. (av_overflown): New macro. (__av_start): Add LIST_ARGS argument. (av_start_*, _av_start_struct): Update accordingly. (_av_long): Renamed from av_long. (_av_ulong): Renamed from av_ulong. (_av_ptr): Renamed from av_ptr. (av_long, av_ulong, av_ptr): New macros. (_av_longlong): Renamed from av_longlong. (_av_ulonglong): Renamed from av_ulonglong. (av_longlong, av_ulonglong): New macros. (_av_float): Renamed from av_float. (_av_double): Renamed from av_double. (av_float, av_double): New macros. (av_struct, _av_struct, av_call): Update. (avcall_call): Take an '__av_alist*' parameter. * avcall/avcall-*.c (avcall_call): Take an '__av_alist*' parameter. 2017-07-30 Bruno Haible avcall: Remove unused macro argument TYPE. * avcall/avcall.h.in (__av_struct_copy, __av_struct_leftadjusted, __av_struct_rightadjusted, __av_struct): Remove TYPE argument. 2017-07-30 Bruno Haible avcall: Remove special optimization of av_struct macro. * avcall/avcall.h.in (av_struct): Take the address of VAL. (__av_struct_assign): Remove macro. (__av_struct, __av_struct_leftadjusted, __av_struct_rightadjusted): Remove ASSIGN argument; use __av_struct_copy instead. 2017-07-30 Bruno Haible avcall: Evaluate __AV_ALIST_WORDS only during av_start_* macros. Part 1. * avcall/avcall.h.in (av_alist): Enable 'eptr' field on all platforms. (__av_eptr): Remove macro. Use (LIST).eptr eveywhere instead. (__av_start_init_eptr): New macro. (__av_start): Invoke it. (__av_start1): Don't initialize (LIST).eptr here. 2017-07-30 Bruno Haible avcall: Prefix all exported symbols at linker level with 'avcall_'. * avcall/avcall.h.in (avcall_call): Renamed from __builtin_avcall. * avcall/avcall-*.c: Update accordingly. * avcall/DOC: Likewise. * avcall/avcall.3: Likewise. * avcall/avcall.html: Likewise. 2017-07-30 Bruno Haible trampoline: Rework API. * trampoline/trampoline.h: Add C++ guards. Add comments. (trampoline_function_t): Renamed from __TR_function. (alloc_trampoline, trampoline_address, trampoline_variable, trampoline_data): Change signatures. * trampoline/trampoline.c: Update accordingly. * trampoline/test1.c (function): Remove type. (main): Update. * trampoline/test2.c (function): Remove type. (main): Update. * NEWS: Mention the changes. 2017-07-30 Bruno Haible trampoline: Restructure include file. * trampoline/trampoline.h: Renamed from trampoline/trampoline.h.in. * configure.ac: Don't create trampoline.h by substitution. * trampoline/Makefile.in (trampoline.h): Remove target. (trampoline.lo, test1.o, test2.o): Update dependency. (install, SOURCE_FILES): Update. (distclean): Don't remove trampoline.h. * trampoline/README: Update. * Makefile.in (DISTCLEANFILES): Update stamp file list. 2017-07-30 Bruno Haible Move ABI indicator macro definitions to a separate include file. Rationale: Prepare for getting rid of most .h.in -> .h substitutions. * ffcall-abi.h: New file. * Makefile.in (install, uninstall): Install/uninstall ffcall-abi.h. (SOURCE_FILES): Add ffcall-abi.h. * porting-tools/abis/predefines.c: New file. * porting-tools/abis/README: Update. 2017-07-30 Bruno Haible Move libffcall version number to a separate include file. Rationale: Prepare for getting rid of most .h.in -> .h substitutions. * ffcall-version.in.h: New file. * configure.ac: Invoke AC_CONFIG_HEADERS for ffcall-version.h. * avcall/avcall.h.in (LIBFFCALL_VERSION): Remove definition. Include ffcall-version.h instead. * vacall/vacall.h.in: Likewise. * trampoline/trampoline.h.in: Likewise. * callback/callback.h.in: Likewise. * callback/vacall_r/vacall_r.h.in (LIBFFCALL_VERSION): Remove definition. * callback/trampoline_r/trampoline_r.h.in (LIBFFCALL_VERSION): Likewise. * dummy/ffcall-version.h: New file. * avcall/Makefile.devel (GCCFLAGS): Add -I option to find a dummy ffcall-version.h. * vacall/Makefile.devel (GCCFLAGS): Likewise. * callback/vacall_r/Makefile.devel (GCCFLAGS): Likewise. * vacall/Makefile.maint (VERSION): Remove macro. (vacall.h.msvc, vacall.h.mingw32): Don't substitute LIBFFCALL_VERSION. * callback/vacall_r/Makefile.maint (VERSION): Remove macro. (vacall_r.h.msvc, vacall_r.h.mingw32): Don't substitute LIBFFCALL_VERSION. * Makefile.in (ffcall-version.h): New target. (install, installdirs, uninstall): Install/uninstall ffcall-version.h. (DISTCLEANFILES): Add ffcall-version.h. Update stamp file list. (SOURCE_FILES): Add ffcall-version.in.h, dummy/ffcall-version.h. 2017-07-30 Bruno Haible Remove configure test for 'long long'. Assume the compiler has it. Rationale: All compilers nowadays have 'long long', for years. * configure.ac: Don't invoke AC_TYPE_LONG_LONG_INT. * avcall/avcall.h.in (HAVE_LONG_LONG_INT): Remove macro. * vacall/vacall.h.in (HAVE_LONG_LONG_INT): Likewise. * callback/vacall_r/vacall_r.h.in (HAVE_LONG_LONG_INT): Likewise. * vacall/Makefile.devel (GCCFLAGS): Remove -DHAVE_LONG_LONG_INT. * callback/vacall_r/Makefile.devel (GCCFLAGS): Likewise. * avcall/tests.c: Remove test for HAVE_LONG_LONG_INT. * vacall/tests.c: Likewise. * callback/tests.c: Likewise. * porting-tools/abis/README: Update. 2017-07-30 Bruno Haible Remove unused configure test AC_C_CHAR_UNSIGNED. * vacall/vacall.h.in (__CHAR_UNSIGNED__): Remove unuseed macro. * callback/vacall_r/vacall_r.h.in (__CHAR_UNSIGNED__): Likewise. * configure.ac: Don't invoke AC_C_CHAR_UNSIGNED. 2017-07-30 Bruno Haible Don't depend on FFCALL_IREG_FLOAT_RETURN configure result. Rationale: The installed .h files should be compiler independent. * avcall/avcall.h.in (__IREG_FLOAT_RETURN__): Remove macro. Assume it is not defined on m68k. * vacall/vacall.h.in (__IREG_FLOAT_RETURN__): Likewise. * callback/vacall_r/vacall_r.h.in (__IREG_FLOAT_RETURN__): Likewise. 2017-07-30 Bruno Haible Don't depend on FFCALL_SMALL_STRUCT_RETURN configure result. Rationale: The installed .h files should be compiler independent. * avcall/avcall.h.in (__SMALL_STRUCT_RETURN__): Remove macro. Use explicit ABI conditional instead. * vacall/vacall.h.in (__SMALL_STRUCT_RETURN__): Likewise. * callback/vacall_r/vacall_r.h.in (__SMALL_STRUCT_RETURN__): Likewise. * avcall/Makefile.maint (avcall.h.msvc, avcall.h.mingw32): Don't substitute __SMALL_STRUCT_RETURN__. * vacall/Makefile.maint (vacall.h.msvc, vacall.h.mingw32): Likewise. * callback/vacall_r/Makefile.maint (vacall_r.h.msvc, vacall_r.h.mingw32): Likewise. 2017-07-30 Bruno Haible Move a file. * avcall/port-structs.c: Moved to porting-tools/abis/. * porting-tools/abis/README: Mention it. 2017-07-30 Bruno Haible Remove support for old PCC struct return convention. It is not reentrant and therefore a fortiori not multithread-safe. * m4/pccstruct.m4: Remove file. * Makefile.in (SOURCE_FILES): Remove it. * configure.ac: Remove FFCALL_PCC_STRUCT_RETURN invocation. * avcall/avcall.h.in (__PCC_STRUCT_RETURN__): Remove macro. (__AV_PCC_STRUCT_RETURN): Remove enum value. (__av_start_struct1): Remove macro. (_av_start_struct): Use __av_start_struct2 instead. * avcall/avcall-*.c: Remove support for __AV_PCC_STRUCT_RETURN flag. * vacall/vacall.h.in (__PCC_STRUCT_RETURN__): Remove macro. (__VA_PCC_STRUCT_RETURN): Remove enum value. (_va_start_struct): Update accordingly. * callback/vacall_r/vacall_r.h.in: Likewise. * vacall/vacall-*.c: Remove support for __VA_PCC_STRUCT_RETURN flag. * vacall/misc.c (__va_error2): Update error message. * callback/vacall_r/misc.c (__va_error2): Likewise. 2017-07-22 Bruno Haible ia64: Make vacall code more robust. * vacall/vacall-ia64.c: Use a split struct to allocate room for the 8 leading words in the callee's stack. * porting-tools/abis/stack-frame.txt: Mention the change. 2017-07-22 Bruno Haible alpha: Make vacall code more robust. * vacall/vacall-alpha.c: Use a split struct to allocate room for the 6 leading words in the callee's stack. * porting-tools/abis/stack-frame.txt: Mention the change. 2017-07-22 Bruno Haible alpha: Make vacall code more maintainable. * vacall/vacall.h.in (__va_alist, va_arg_double, va_arg_float) [alpha]: Add fields 'farg_offset', 'farg'. * callback/vacall_r/vacall_r.h.in: Likewise. * vacall/vacall-alpha.c (__vacall): Don't allocate the fargs in the 'locals' struct. Initialize 'farg_offset' field. 2017-07-22 Bruno Haible mipsn32, mips64: Remove unused field. * vacall/vacall.h.in (__va_alist) [__mipsn32__ || __mips64__]: Remove field 'memargptr'. * callback/vacall_r/vacall_r.h.in: Likewise. * vacall/vacall-mipsn32.c (__vacall): Update accordingly. * vacall/vacall-mips64.c (__vacall): Likewise. 2017-07-22 Bruno Haible mipsn32, mips64: Make vacall code more robust. * vacall/Makefile.devel (vacall-mipsn32eb-macro.S, vacall-mipsn32el-macro.S, vacall-mips64eb-macro.S, vacall-mips64el-macro.S): Remove post-processing hack. * callback/vacall_r/Makefile.devel (vacall-mipsn32eb-macro.S, vacall-mipsn32el-macro.S, vacall-mips64eb-macro.S, vacall-mips64el-macro.S): Likewise. * vacall/vacall-mipsn32.c: Use a split struct to allocate room for the 8 leading words in the callee's stack. * vacall/vacall-mips64.c: Likewise. * porting-tools/abis/stack-frame.txt: Mention the change. 2017-07-22 Bruno Haible mips: Don't store dynamic state in the flags. * avcall/avcall.h.in (__AV_FLOAT_1, __AV_FLOAT_2, __AV_DOUBLE_1, __AV_DOUBLE_2): Remove enum values. (av_alist) [mips]: Store the number of floating-point register arguments in fanum. Store bitmasks in farg_mask and darg_mask. Rename field 'floatarg' to 'fargs'. Rename field 'doublearg' to 'dargs'. (__av_start1, av_float, av_double): Update implementation accordingly. * avcall/avcall-mips.c (__builtin_avcall): Access farg_mask and darg_mask instead of the flags. * vacall/vacall.h.in (__VA_FLOAT_1, __VA_FLOAT_2): Remove enum values. (__VA_REGISTER_FLOATSTRUCT_RETURN, __VA_REGISTER_DOUBLESTRUCT_RETURN): Change values. (__va_alist, va_arg_float, va_arg_double) [mips]: Store the number of floating-point register arguments in fanum. Use it instead of the __VA_FLOAT_1 flag. * callback/vacall_r/vacall_r.h.in: Likewise. * vacall/vacall-mips.c (__vacall): Update accordingly. 2017-07-22 Bruno Haible powerpc, powerpc64, ia64, x86_64: Undo premature optimization. * vacall/vacall.h.in: Use 'fanum' field instead of 'memfargptr' field. * callback/vacall_r/vacall_r.h.in: Likewise. * vacall/vacall-ia64.c: Update accordingly. * vacall/vacall-powerpc.c: Likewise. * vacall/vacall-powerpc64.c: Likewise. * vacall/vacall-x86_64.c: Likewise. 2017-07-22 Bruno Haible x86_64: Undo premature optimization. * vacall/vacall.h.in [__x86_64__]: Use 'ianum' field instead of 'memiargptr' field. * callback/vacall_r/vacall_r.h.in: Likewise. * vacall/vacall-x86_64.c (__vacall): Update accordingly. 2017-07-22 Bruno Haible x86_64: Undo premature optimization. * avcall/avcall.h.in [__x86_64__]: Use 'ianum' field instead of 'iaptr' field. 2017-07-22 Bruno Haible ia64, x86_64: Use symbolic constants. * avcall/avcall.h.in (__AV_FARG_NUM) [__ia64__ || __x86_64__]: New macro. (av_float, av_double): Use it. (__av_struct): Use __AV_IARG_NUM. * vacall/vacall.h.in (__VA_FARG_NUM) [__ia64__ || __x86_64__]: New macro. (va_arg_float, va_arg_double): Use it. * callback/vacall_r/vacall_r.h.in: Likewise. 2017-07-22 Bruno Haible armhf: Fix a bug in vacall (failing tests d_d13i, f_f17l3L, d_d17l3L). * vacall/vacall.h.in (__va_alist, __va_start_struct2, __va_arg_leftadjusted, __va_arg_rightadjusted, __va_arg_longlong) [__armhf__]: Use 'iarg' and 'ianum' fields instead of 'saptr' field. (va_arg_float, va_arg_double) [__armhf__]: Don't force all remaining integer arguments to the stack. * callback/vacall_r/vacall_r.h.in: Likewise. * vacall/vacall-armhf.c (__vacall): Update accordingly. 2017-07-22 Bruno Haible armhf: Fix a bug in avcall (failing tests f_f17l3L, d_d17l3L). * avcall/avcall.h.in [__armhf__]: Store integer argument count in ianum. (__av_start1, __av_start_struct4, __av_word, __av_longlong, av_float, av_double, __av_struct): Update implementation accordingly. * avcall/avcall-arm.c: Add comment. * avcall/avcall-armhf.c: Likewise. * porting-tools/abis/stack-frame.txt: Update information. * NEWS: Mention the fix. 2017-07-22 Bruno Haible powerpc: Make avcall code more robust. * avcall/avcall-powerpc.c (__builtin_avcall) [_AIX]: Don't rely on a particular stack frame layout produced by GCC. Use __builtin_alloca instead. * avcall/avcall-powerpc64.c (STACK_OFFSET): Remove unused macro. 2017-07-22 Bruno Haible powerpc: Don't ever access out-of-range array elements. * avcall/avcall-powerpc.c (__builtin_avcall): Access only 8 fargs when only 8 exist. 2017-07-22 Bruno Haible powerpc, powerpc64: Use symbolic constants. * avcall/avcall.h.in (__AV_FARG_NUM) [__powerpc__ || __powerpc64__]: New macro. (av_float, av_double): Use it. * vacall/vacall.h.in (__VA_FARG_NUM) [__powerpc__ || __powerpc64__]: New macro. (va_arg_float, va_arg_double): Use it. * callback/vacall_r/vacall_r.h.in: Likewise. 2017-07-22 Bruno Haible powerpc: Fix a bug (failing tests f_f12i, f_f13i, d_d12i, d_d13i). * avcall/avcall.h.in [__powerpc_sysv4__]: Store integer register arguments in iargs[] and their count in ianum. (__av_start1, __av_start_struct4, av_long, av_ulong, av_ptr, __av_longlong, __av_struct): Update implementation accordingly. * avcall/avcall-powerpc.c (__builtin_avcall): Update accordingly. Ignore farglen in the arg copy loop. * vacall/vacall.h.in (__va_alist, __va_start_struct2, __va_arg_leftadjusted, __va_arg_rightadjusted, __va_arg_longlong, va_arg_float, va_arg_double) [__powerpc_sysv4__]: Use 'ianum' field instead of 'saptr', 'onstack' fields. Don't bump 'ianum' in va_arg_float, va_arg_double. * callback/vacall_r/vacall_r.h.in: Likewise. * vacall/vacall-powerpc.c (__vacall): Update accordingly * porting-tools/abis/stack-frame.txt: Fix information. * NEWS: Mention the fix. 2017-07-22 Bruno Haible powerpc: Simplify #if expressions. * avcall/avcall.h.in (__powerpc_aix__, __powerpc_sysv4__): New macros. Use them in #if expressions. * vacall/vacall.h.in: Likewise. * callback/vacall_r/vacall_r.h.in: Likewise. * avcall/avcall-powerpc.c: Add comments. * vacall/vacall-powerpc.c: Likewise. 2017-07-22 Bruno Haible s390, s390x: Merge common code. * vacall/vacall.h.in (va_arg_float, va_arg_double) [s390,s390x]: Merge. * callback/vacall_r/vacall_r.h.in: Likewise. 2017-07-22 Bruno Haible s390: Fix a bug (failing tests f_f3i...f_f13i, d_d3i...d_d13i). * vacall/vacall.h.in (va_arg_float, va_arg_double) [s390]: Don't bump ianum, * callback/vacall_r/vacall_r.h.in: Likewise. * NEWS: Mention the fix. 2017-07-22 Bruno Haible s390: Make vacall code more similar to s390x, arm64 cases. * vacall/vacall.h.in (__va_alist, __va_start_struct2, __va_arg_leftadjusted, __va_arg_rightadjusted, __va_arg_adjusted, va_arg_float, va_arg_double, __va_arg_struct) [s390]: Use 'ianum' field instead of 'saptr', 'onstack' fields. * callback/vacall_r/vacall_r.h.in: Likewise. * vacall/vacall-s390.c: Update accordingly. 2017-07-22 Bruno Haible Add some mixed-number args boundary tests. * avcall/tests.c (f_f17l3L, d_d17l3L): New tests. * vacall/tests.c: Likewise. * callback/tests.c: Likewise. 2017-07-22 Bruno Haible Add more mixed-number tests. * avcall/tests.c (f_fi, ..., f_f13i, d_di, ..., d_d13i): New tests. * vacall/tests.c: Likewise. * callback/tests.c: Likewise. 2017-07-19 Bruno Haible s390: Make avcall code more robust. * avcall/avcall-s390.c (STACK_OFFSET): Remove macro. (__builtin_avcall): Don't rely on a particular stack frame layout produced by GCC. Use __builtin_alloca instead. 2017-07-19 Bruno Haible s390: Make avcall code more similar to s390x, arm64, x86_64 cases. * avcall/avcall.h.in (av_alist, __av_start_struct4, __av_word, av_long, av_ulong, av_ptr, __av_longlong, __av_struct) [s390]: Use iargs[] array for the first 5 general-purpose argument words, like on s390x. (__av_struct_rightadjusted) [s390]: Remove macro. * avcall/avcall-s390.c (__builtin_avcall): Update accordingly. 2017-07-19 Bruno Haible s390: Simplify avcall code. * avcall/avcall.h.in (av_alist, __av_start1, __av_start_struct4, __av_word, __av_longlong, av_float, av_double, __av_struct_rightadjusted, __av_struct) [s390]: Use 'ianum' field instead of 'fargwords' field. * avcall/avcall-s390.c (__builtin_avcall): Update accordingly. 2017-07-16 Bruno Haible Allow building statically linked binaries, through LDFLAGS="-static". * Makefile.main (libtool-imported-files): Fetch and apply patch from : 2017-07-15 Bruno Haible * build-aux/ltmain.sh (func_mode_help, func_mode_link): In the link mode, accept option '-static-uninstalled-libs' in place of '-static', and make '-static' an equivalent of '-all-static'. 2017-07-07 Bruno Haible build: Avoid a hanging configure test on FreeBSD/arm64. Seen with FreeBSD 11.1-RC1 on arm64 (under qemu 2.9.0). * m4/codeexec.m4 (FFCALL_CODEEXEC): Avoid running the test on FreeBSD/arm64. 2017-06-27 Bruno Haible build: Fix warning in autoconf test. * m4/shm.m4 (CL_SHM): Include , to declare exit(). 2017-06-25 Bruno Haible Add doc about ABIs and calling conventions. * porting-tools/abis: New directory. * common/reg-struct-return.txt: Moved to porting-tools/abis/. * callback/call-used-registers.txt: Likewise. 2017-06-25 Bruno Haible Add doc about emulation of target platforms. * porting-tools/emulation: New directory. 2017-06-24 Bruno Haible s390: Simplify code. * vacall/vacall.h.in (__va_alist) [s390]: Use a counter instead of 2 pointers. (va_arg_float, va_arg_double): Update accordingly; * callback/vacall_r/vacall_r.h.in: Likewise. * vacall/vacall-s390.c: Update accordingly. 2017-06-24 Bruno Haible s390: Simplify code. * avcall/avcall.h.in (av_alist) [s390]: Use a counter instead of 4 pointers. Use 2 bitmasks instead of 2 int[] arrays. (__av_start1, av_float, av_double): Update accordingly. * avcall/avcall-s390.c (__builtin_avcall): Likewise. 2017-06-24 Bruno Haible build: Improve guesses when cross-compiling. * m4/codeexec.m4 (FFCALL_CODEEXEC, FFCALL_CODEEXEC_PAX): When cross-compiling, use the known autoconf test results. * m4/mmap.m4 (FFCALL_MMAP): Likewise. * m4/mprotect.m4 (FFCALL_MPROTECT): Likewise. * m4/pccstruct.m4 (FFCALL_PCC_STRUCT_RETURN): Likewise. * m4/shm.m4 (CL_SHM): Likewise. * m4/smallstruct.m4 (FFCALL_SMALL_STRUCT_RETURN): Likewise. 2017-06-24 Bruno Haible Bump version number. * VERSION: Set to 2.0. * NEWS: Open new section for 2.0. 2017-06-24 Bruno Haible build: Use decimal notation for the version number. * VERSION: Set to 1.13. * configure.ac: Simplify AC_CONFIG_HEADERS invocations. Define LIBFFCALL_VERSION as C macro, based on PACKAGE_VERSION. * avcall/avcall.h.in (LIBFFCALL_VERSION): Use a plain #define, for substitution by config.status. * vacall/vacall.h.in: Likewise. * trampoline/trampoline.h.in: Likewise. * callback/callback.h.in: Likewise. * callback/vacall_r/vacall_r.h.in: Likewise. * callback/trampoline_r/trampoline_r.h.in: Likewise. 2017-06-24 Bruno Haible trampoline, callback: Make multithread-safe. * Makefile.maint (AUTOMAKE): New variable. (all): Depend on Makefile-ins. (GNULIB_MODULES): Add 'lock'. (gnulib-m4/gnulib-cache.m4): Don't remove generated gnulib-lib files. (ALL_MAKEFILE_IN_FROM_AM): New variable. (Makefile-ins, gnulib-lib/Makefile.in): New targets. * configure.ac: Invoke AM_INIT_AUTOMAKE. Arrange to generate gnulib-lib/Makefile. Invoke gl_EARLY earlier. Recurse into gnulib-lib directory. * Makefile.in (DISTCLEANFILES): Add the various stamp-h* files created by config.status at the end of the 'configure' run. (AUTOMAKE_IMPORTED_FILES): New variable. (IMPORTED_FILES): Use it. * trampoline/Makefile.in (INCLUDES): Reference the gnulib build dir and source dir. (LTLIBTHREAD): New variable. (libtrampoline.la): Link against libgnu.la, with options $(LTLIBTHREAD). (test1, test2): Link against libtrampoline.la. * trampoline/trampoline.c: Include glthread/lock.h. (zero_fd, file_fd, file_length): Move to file scope. (for_mmap_init): New function, extracted from alloc_trampoline. (for_mmap_once): New variable. (freelist_lock): New variable. (alloc_trampoline): Use once-only execution and locking. * callback/trampoline_r/Makefile.in (INCLUDES): Reference the gnulib build dir and source dir. (LTLIBTHREAD): New variable. (libtrampoline.la): Link against libgnu.la, with options $(LTLIBTHREAD). (test1, test2): Link against libtrampoline.la. * callback/trampoline_r/trampoline.c: Include glthread/lock.h. (zero_fd, file_fd, file_length): Move to file scope. (for_mmap_init): New function, extracted from alloc_trampoline. (for_mmap_once): New variable. (freelist_lock): New variable. (alloc_trampoline_r): Use once-only execution and locking. * callback/Makefile.in (LTLIBTHREAD): New variable. (libcallback.la): Link against libgnu.la, with options $(LTLIBTHREAD). 2017-06-24 Bruno Haible build: Rename glm4 to gnulib-m4. * autogen.sh: Write gnulib-m4 instead of glm4. * Makefile.maint: Likewise. * Makefile.in (GNULIB_IMPORTED_FILES): Likewise. 2017-06-24 Bruno Haible build: Assume a single configure.ac file. * Makefile.maint (ALL_CONFIGURE_AC, aclocal.m4): Simplify. 2017-06-24 Bruno Haible Merge all autoconf configurations into a single one. * configure.ac: Include the body of all other configure.ac files. Use a single config.h file. Inline FFCALL_COMMON_LIBTOOL and FFCALL_COMMON_TRAMPOLINE. * avcall/configure.ac: Remove file. * vacall/configure.ac: Remove file. * trampoline/configure.ac: Remove file. * callback/configure.ac: Remove file. * callback/vacall_r/configure.ac: Remove file. * callback/trampoline_r/configure.ac: Remove file. * m4/general.m4 (FFCALL_COMMON_LIBTOOL, FFCALL_COMMON_TRAMPOLINE): Remove macros. * build-aux/ac-help.sed: Remove file. * Makefile.maint (CONFIGURED_SUBDIRS, SUBDIRS_CONFIGURE): Remove variables. (ALL_CONFIGURE): Keep only the top-level configure. (%/configure): Remove rule. (ALL_CONFIG_H_IN): Set to only the top-level config.h.in. (config.h.in): Replace the %/config.h.in rule. * vacall/Makefile.maint (config.h.msvc, config.h.mingw32): Use top-level config.h.in. * trampoline/Makefile.maint (config.h.msvc, config.h.mingw32): Use top-level config.h.in. * callback/Makefile.maint (vacall_r/config.h.msvc, vacall_r/config.h.mingw32, trampoline_r/config.h.msvc, trampoline_r/config.h.mingw32): Update dependencies. * callback/vacall_r/Makefile.maint (config.h.msvc, config.h.mingw32): Use top-level config.h.in. * callback/trampoline_r/Makefile.maint (config.h.msvc, config.h.mingw32): Use top-level config.h.in. * Makefile.in (DISTCLEANFILES): Add config.h, libtool. (SOURCE_FILES): Remove build-aux/ac-help.sed. (GENERATED_FILES): Add config.h.in. Remove */config* and callback/*/config*. * avcall/Makefile.in (INCLUDES): Look also in '..'. (top_builddir): Set to '..'. (distclean): Don't remove config* and libtool. (SOURCE_FILES): Remove configure.ac. * vacall/Makefile.in (INCLUDES): Look also in '..'. (misc.o): Update dependency. (distclean): Don't remove config* and libtool. (SOURCE_FILES): Remove configure.ac. * trampoline/Makefile.in (INCLUDES): Look also in '..'. (top_builddir): Set to '..'. (distclean): Don't remove config* and libtool. (SOURCE_FILES): Remove configure.ac. * callback/Makefile.in (INCLUDES): Look also in '..'. (top_builddir): Set to '..'. (DISTCLEANFILES): Remove config* and libtool. (SOURCE_FILES): Remove configure.ac. * callback/vacall_r/Makefile.in (INCLUDES): Look also in '../..'. (top_builddir): Set to '../..'. (misc.lo): Update dependency. (distclean): Don't remove config* and libtool. (SOURCE_FILES): Remove configure.ac. * callback/trampoline_r/Makefile.in (INCLUDES): Look also in '../..'. (top_builddir): Set to '../..'. (distclean): Don't remove config* and libtool. (SOURCE_FILES): Remove configure.ac. * README, */README: Update. 2017-06-24 Bruno Haible trampoline: Build library using libtool. * trampoline/configure.ac: Invoke FFCALL_COMMON_LIBTOOL. (CPU_OBJECTS): Now contains .lo file names instead of .o file names. * trampoline/Makefile.in (LIBTOOL*, top_builddir): New variables. (*.lo): Targets renamed from *.o. (libtrampoline.la): Replaces target libtrampoline.a. Use LIBTOOL* variables as appropriate. (clean): Remove also *.lo, libtrampoline.*, .libs, _libs. (distclean): Remove also 'libtool'. 2017-06-24 Bruno Haible trampoline: Generate position-independent code. * trampoline/Makefile.devel (GCCFLAGS): Add -fPIC. 2017-06-24 Bruno Haible vacall: Explain why not using libtool. * vacall/README: Add comment about libtool. 2017-06-24 Bruno Haible Fix result of an autoconf test on AIX. * m4/codeexec.m4 (FFCALL_CODEEXEC): Don't actually run the test on powerpc64 (AIX and Linux) and ia64 (Linux). 2017-06-24 Bruno Haible build: Avoid testing an undefined variable. * m4/codeexec.m4 (FFCALL_CODEEXEC_PAX): Before testing cl_cv_func_mprotect_works, test ac_cv_func_mprotect. 2017-06-24 Bruno Haible build: Add necessary AC_REQUIREs. * m4/codeexec.m4 (FFCALL_CODEEXEC): Require AC_CANONICAL_HOST and gl_HOST_CPU_C_ABI. 2017-06-24 Bruno Haible Fix build error on Solaris 11 with Oracle Developer Studio 12.5. * common/asm-x86_64.sh: Clarify the necessary postprocessing. * common/asm-i386.sh: Document the necessary postprocessing. * avcall/Makefile.in (avcall-i386.s): Do more postprocessing. * vacall/Makefile.in (vacall-i386.s): Likewise. * callback/vacall_r/Makefile.in (vacall-i386.s): Likewise. 2017-06-24 Bruno Haible Fix compilation error on CentOS 5. * trampoline/trampoline.c (open_noinherit): New function. (alloc_trampoline): Use it. * callback/trampoline_r/trampoline.c: Likewise. 2017-06-24 Bruno Haible Prefer https over http URLs. * autogen.sh: Access ftp.gnu.org through https. 2017-06-24 Bruno Haible Remove obsolete mention of nonexistent file. * avcall/README: Don't mention underscore.h. * vacall/README: Likewise. 2017-06-24 Bruno Haible Remove obsolete protexec.c file. * trampoline/protexec.c: Remove file. * trampoline/README: Update. * callback/trampoline_r/Makefile.maint (COPIED_FILES): Remove protexec.c. 2017-06-21 Bruno Haible Fix list of distributed files. * Makefile.in (SOURCE_FILES): Add m4/endianness.m4, common/asm-s390.sh. 2017-06-19 Bruno Haible Fix a misnomer. * vacall/vacall.h.in: Rename 'regarg' to 'iarg'. * callback/vacall_r/vacall_r.h.in: Likewise. * vacall/vacall-powerpc.c: Update accordingly. * vacall/vacall-s390.c: Likewise. 2017-06-18 Bruno Haible s390x: Add support for s390x CPU (64-bit S/390). * cross-tools/cross.conf: Add configuration for s390x cross tools. * common/reg-struct-return.txt: Add info about s390x. * callback/call-used-registers.txt: Likewise. * common/asm-s390.sh: New file. * avcall/avcall.h.in: Optionally define __s390x__. Add code for __s390x__, especially __av_start_struct4, av_float, av_double, __av_struct. * avcall/avcall-s390x.c: New file. * avcall/Makefile.devel (avcall-s390-macro.S): Use asm-s390.sh. (avcall-s390x-linux.s, avcall-s390x-macro.S): New targets. * avcall/Makefile.in (avcall-s390x.lo, avcall-s390x.s): New targets. (clean): Remove avcall-s390x.s. (SOURCE_FILES): Add avcall-s390x.c, avcall-s390x-linux.s, avcall-s390x-macro.S. * vacall/vacall.h.in: Optionally define __s390x__. Add code for __s390x__, especially __va_start_struct2, __va_arg_adjusted, va_arg_float, va_arg_double, __va_arg_struct. * vacall/vacall-s390x.c: New file. * vacall/Makefile.devel (vacall-s390-macro.S): Use asm-s390.sh. (vacall-s390x-linux.s, vacall-s390x-macro.S): New targets. * vacall/Makefile.in (vacall-s390x.o, vacall-s390x.s): New targets. (clean): Remove vacall-s390x.s. (SOURCE_FILES): Add vacall-s390x.c, vacall-s390x-linux.s, vacall-s390x-macro.S. * callback/vacall_r/Makefile.maint (COPIED_FILES): Add vacall-s390x.c. * Makefile.in (COPIED_FILES): Add callback/vacall_r/vacall-s390x.c. * callback/vacall_r/vacall_r.h.in: Optionally define __s390x__. Add code for __s390x__, especially __va_start_struct2, __va_arg_adjusted, va_arg_float, va_arg_double, __va_arg_struct. * callback/vacall_r/Makefile.devel (vacall-s390-macro.S): Use asm-s390.sh. (vacall-s390x-linux.s, vacall-s390x-macro.S): New targets. * callback/vacall_r/Makefile.in (vacall-s390x.lo, vacall-s390x.s): New targets. (clean): Remove vacall-s390x.s. (SOURCE_FILES): Add vacall-s390x.c, vacall-s390x-linux.s, vacall-s390x-macro.S. * trampoline/Makefile.devel (proto-s390x.s, tramp-s390x.o): New targets. * trampoline/proto-s390x.s: New generated file. * trampoline/tramp-s390x.s: New file. * trampoline/tramp-s390x.o: New generated file. * trampoline/trampoline.c: Implement for __s390x__. * callback/trampoline_r/Makefile.devel (proto-s390x.s, tramp-s390x.o): New targets. * callback/trampoline_r/proto64.c: Add support for __s390x__. * callback/trampoline_r/proto-s390x.s: New generated file. * callback/trampoline_r/tramp-s390x.s: New file. * callback/trampoline_r/tramp-s390x.o: New generated file. * callback/trampoline_r/trampoline.c: Implement for __s390x__. * callback/trampoline_r/test1.c: Add support for __s390x__. * PLATFORMS, */PLATFORMS: List the s390x machine. * NEWS: Mention the new port. 2017-06-18 Bruno Haible Small code style improvements. * avcall/avcall.h.in [__arm64__]: Define and use __AV_FARG_NUM. [__s390__, __arm64__] (__av_struct): Avoid a boolean negation. * vacall/vacall.h.in [__arm64__]: Define and use __VA_IARG_NUM, __VA_FARG_NUM. [__x86_64__]: Define and use __VA_IARG_NUM. * callback/vacall_r/vacall_r.h.in: Likewise. 2017-06-18 Bruno Haible s390: Reorder code. * avcall/avcall.h.in: Move s390 specific code to the end (after ia64 and x86_64 specific code). * vacall/vacall.h.in: Likewise. * callback/vacall_r/vacall_r.h.in: Likewise. 2017-06-18 Bruno Haible s390: Improve trampolines. * trampoline/Makefile.devel (proto-s390.s): New target. (tramp-s390.o): Use cross tools. * trampoline/proto-s390.s: Regenerated with gcc 3.1. * trampoline/tramp-s390.s: Rewritten from scratch, to not use %r13. * trampoline/tramp-s390.o: New generated file. * trampoline/trampoline.c (alloc_trampoline) [__s390__]: Change the trampoline to not use %r13. * callback/trampoline_r/Makefile.devel (proto-s390.s): New target. (tramp-s390.o): Use cross tools. * callback/trampoline_r/proto-s390.s: Regenerated with gcc 3.1. * callback/trampoline_r/tramp-s390.s: Rewritten from scratch. Use 'lm' instruction. * callback/trampoline_r/tramp-s390.o: Regenerated. * callback/trampoline_r/trampoline.c (alloc_trampoline_r) [__s390__]: Change the trampoline accordingly. 2017-06-17 Bruno Haible arm64: Add support for arm64 CPU (a.k.a. aarch64). * cross-tools/cross.conf: Add configuration for arm64 cross tools. * common/reg-struct-return.txt: Add info about arm64. * callback/call-used-registers.txt: Likewise. * avcall/avcall.h.in: Add code for __arm64__, especially __av_start1, av_long, av_ulong, av_ptr, av_float, av_double, __av_struct. * avcall/avcall-arm64.c: New file. * avcall/Makefile.devel (avcall-arm64-macro.S): New target. * avcall/Makefile.in (avcall-arm64.lo, avcall-arm64.s): New targets. (clean): Remove avcall-arm64.s. (SOURCE_FILES): Add avcall-arm64.c, avcall-arm64-macro.S. * vacall/vacall.h.in: Add code for __arm64__, especially __va_arg_adjusted, va_arg_float, va_arg_double, __va_arg_struct. * vacall/vacall-arm64.c: New file. * vacall/Makefile.devel (vacall-arm64-macro.S): New target. * vacall/Makefile.in (vacall-arm64.o, vacall-arm64.s): New targets. (clean): Remove vacall-arm64.s. (SOURCE_FILES): Add vacall-arm64.c, vacall-arm64-macro.S. * callback/vacall_r/Makefile.maint (COPIED_FILES): Add vacall-arm64.c. * Makefile.in (COPIED_FILES): Add callback/vacall_r/vacall-arm64.c. * callback/vacall_r/vacall_r.h.in: Add code for __arm64__, especially __va_arg_adjusted, va_arg_float, va_arg_double, __va_arg_struct. * callback/vacall_r/Makefile.devel (vacall-arm64-macro.S): New target. * callback/vacall_r/Makefile.in (vacall-arm64.lo, vacall-arm64.s): New targets. (clean): Remove vacall-arm64.s. (SOURCE_FILES): Add vacall-arm64.c, vacall-arm64-macro.S. * trampoline/Makefile.devel (proto-arm64.s, tramp-arm64.o): New targets. * trampoline/proto-arm64.s: New generated file. * trampoline/tramp-arm64.s: New file. * trampoline/tramp-arm64.o: New generated file. * trampoline/trampoline.c: Implement for __arm64__. * callback/trampoline_r/Makefile.devel (proto-arm64.s, tramp-arm64.o): New targets. * callback/trampoline_r/proto64.c: Add support for __arm64__. * callback/trampoline_r/proto-arm64.s: New generated file. * callback/trampoline_r/tramp-arm64.s: New file. * callback/trampoline_r/tramp-arm64.o: New generated file. * callback/trampoline_r/trampoline.c: Implement for __arm64__. * callback/trampoline_r/test1.c: Add support for __arm64__. * PLATFORMS, */PLATFORMS: List the arm64 machine. * NEWS: Mention the new port. 2017-06-16 Bruno Haible Remove unused fields from __va_alist. * vacall/vacall.h.in (__va_alist): Don't include _longlong and _ulonglong on platforms where they are unused. * callback/vacall_r/vacall_r.h.in: Likewise. 2017-06-15 Bruno Haible Reduce the amount of cache invalidation to the necessary minimum. * trampoline/trampoline.c (alloc_trampoline): New macro TRAMP_CODE_LENGTH. Use it instead of TRAMP_LENGTH for cache invalidation. * callback/trampoline_r/trampoline.c (alloc_trampoline_r): Likewise. 2017-06-10 Bruno Haible Make the top-level "./configure --help" output complete. Reported by Karl Berry in . * build-aux/ac-help.sed: New file, from GNU gettext with modifications. * Makefile.in (SOURCE_FILES): Add it. * configure.ac: Collect the AC_ARG_* options from the subdirectories, like in GNU gettext. * callback/configure.ac: Likewise. * Makefile.maint (aclocal.m4): Disable esyscmd invocations while running aclocal. 2017-06-10 Bruno Haible In comments, write 'libffcall' instead of 'ffcall'. 2017-06-10 Bruno Haible Add cache invalidation for 64-bit powerpc. * trampoline/cache-powerpc64.c: New file. * trampoline/Makefile.devel (cache-powerpc64-elfv2-linux.s, cache-powerpc64-elfv2-macro.S): New rules. * trampoline/configure.ac (CPU_OBJECTS): Augment also for powerpc64-elfv2 ABI. * trampoline/Makefile.in (cache-powerpc64-elfv2.o, cache-powerpc64-elfv2.s): New rules. (clean): Remove also cache-powerpc64-elfv2.s. (SOURCE_FILES): Add cache-powerpc64.c, cache-powerpc64-elfv2-linux.s, cache-powerpc64-elfv2-macro.S. * trampoline/trampoline.c (__TR_clear_cache): Declare also for powerpc64-elfv2 ABI. (alloc_trampoline): Invoke __TR_clear_cache also on powerpc64-elfv2 ABI. * callback/trampoline_r/cache-powerpc64.c: New file. * callback/trampoline_r/Makefile.devel (cache-powerpc64-elfv2-linux.s, cache-powerpc64-elfv2-macro.S): New rules. * trampoline/configure.ac (CPU_OBJECTS): Augment also for powerpc64-elfv2 ABI. * callback/trampoline_r/Makefile.in (cache-powerpc64-elfv2.lo, cache-powerpc64-elfv2.s): New rules. (clean): Remove also cache-powerpc64-elfv2.s. (SOURCE_FILES): Add cache-powerpc64.c, cache-powerpc64-elfv2-linux.s, cache-powerpc64-elfv2-macro.S. * callback/trampoline_r/trampoline.c (__TR_clear_cache): Declare also for powerpc64-elfv2 ABI. (alloc_trampoline_r): Invoke __TR_clear_cache also on powerpc64-elfv2 ABI. 2017-06-10 Bruno Haible Fix cache invalidation for 32-bit powerpc. * trampoline/cache-powerpc.c: Add comment. * callback/trampoline_r/cache-powerpc.c: New file, based on trampoline/cache-powerpc.c. * callback/trampoline_r/Makefile.maint (COPIED_FILES): Remove cache-powerpc.c. * Makefile.in (COPIED_FILES): Remove callback/trampoline_r/cache-powerpc.c. 2017-06-10 Bruno Haible Don't declare the need for an executable stack on Linux and FreeBSD. * porting-tools: New directory. * common/asm-alpha.sh: New file. * common/asm-powerpc.sh: New file. * common/asm-arm.sh: Remove the GNU-stack note line. * common/asm-sparc.sh: Likewise. * common/asm-x86_64.sh: Likewise. * common/noexecstack.h: New file. * common/noexecstack-arm.h: New file. * avcall/Makefile.devel (precompiled): Add avcall-alpha-macro.S, avcall-powerpc-linux-macro.S, avcall-powerpc-sysv4-macro.S, avcall-powerpc64-linux.S, avcall-powerpc64-elfv2-linux.S, avcall-ia64-macro.S, avcall-s390-macro.S. Remove avcall-alpha.s, avcall-powerpc-linux.s, avcall-powerpc-sysv4.s, avcall-powerpc64-linux.s, avcall-powerpc64-elfv2-linux.s, avcall-ia64.s, avcall-s390.s. (avcall-i386-macro.S, avcall-m68k.mit.S, avcall-m68k.motorola.S, avcall-sparc-macro.S, avcall-sparc64-macro.S, avcall-hppa-macro.S, avcall-x86_64-macro.S): Include noexecstack.h. (avcall-alpha-linux.s): Renamed from avcall-alpha.s. (avcall-alpha-macro.S): New rule. (avcall-arm-macro.S, avcall-armhf-macro.S): Include noexecstack-arm.h. (avcall-powerpc-linux-macro.S): New rule. (avcall-powerpc-sysv4-macro.S): Replaces rule for avcall-powerpc-sysv4.s. (avcall-powerpc64-linux.S): Replaces rule for avcall-powerpc64-linux.s. (avcall-powerpc64-elfv2-linux.S): Replaces rule for avcall-powerpc64-elfv2-linux.s. (avcall-ia64-linux.s): Renamed from avcall-ia64.s. (avcall-ia64-macro.S): New rule. (avcall-s390-linux.s): Renamed from avcall-s390.s. (avcall-s390-macro.S): New rule. * avcall/Makefile.in (avcall-alpha.s): New rule. (avcall-alpha.lo): Update. (avcall-powerpc.s): Use avcall-powerpc-linux-macro.S, avcall-powerpc-sysv4-macro.S instead of avcall-powerpc-linux.s, avcall-powerpc-sysv4.s. (avcall-powerpc64.s): Use avcall-powerpc64-linux.S instead of avcall-powerpc64-linux.s. (avcall-powerpc64-elfv2.s): Use avcall-powerpc64-elfv2-linux.S instead of avcall-powerpc64-elfv2-linux.s. (avcall-ia64.s): New rule. (avcall-ia64.lo): Update. (avcall-s390.s): New rule. (avcall-s390.lo): Update. (clean): Remove also avcall-alpha.s, avcall-ia64.s, avcall-s390.s. (SOURCE_FILES): Update. * vacall/Makefile.devel (precompiled): Add vacall-alpha-macro.S, vacall-powerpc-linux-macro.S, vacall-powerpc-sysv4-macro.S, vacall-powerpc64-linux.S, vacall-powerpc64-elfv2-linux.S, vacall-ia64-macro.S, vacall-s390-macro.S. Remove vacall-alpha.s, vacall-powerpc-linux.s, vacall-powerpc-sysv4.s, vacall-powerpc64-linux.s, vacall-powerpc64-elfv2-linux.s, vacall-ia64.s, vacall-s390.s. (vacall-i386-macro.S, vacall-m68k.mit.S, vacall-m68k.motorola.S, vacall-sparc-macro.S, vacall-sparc64-macro.S, vacall-hppa-macro.S, vacall-x86_64-macro.S): Include noexecstack.h. (vacall-alpha-linux.s): Renamed from vacall-alpha.s. (vacall-alpha-macro.S): New rule. (vacall-arm-macro.S, vacall-armhf-macro.S): Include noexecstack-arm.h. (vacall-powerpc-linux-macro.S): New rule. (vacall-powerpc-sysv4-macro.S): Replaces rule for vacall-powerpc-sysv4.s. (vacall-powerpc64-linux.S): Replaces rule for vacall-powerpc64-linux.s. (vacall-powerpc64-elfv2-linux.S): Replaces rule for vacall-powerpc64-elfv2-linux.s. (vacall-ia64-linux.s): Renamed from vacall-ia64.s. (vacall-ia64-macro.S): New rule. (vacall-s390-linux.s): Renamed from vacall-s390.s. (vacall-s390-macro.S): New rule. * vacall/Makefile.in (vacall-alpha.s): New rule. (vacall-alpha.o): Update. (vacall-powerpc.s): Use vacall-powerpc-linux-macro.S, vacall-powerpc-sysv4-macro.S instead of vacall-powerpc-linux.s, vacall-powerpc-sysv4.s. (vacall-powerpc64.s): Use vacall-powerpc64-linux.S instead of vacall-powerpc64-linux.s. (vacall-powerpc64-elfv2.s): Use vacall-powerpc64-elfv2-linux.S instead of vacall-powerpc64-elfv2-linux.s. (vacall-ia64.s): New rule. (vacall-ia64.o): Update. (vacall-s390.s): New rule. (vacall-s390.o): Update. (clean): Remove also vacall-alpha.s, vacall-ia64.s, vacall-s390.s. (SOURCE_FILES): Update. * callback/vacall_r/Makefile.devel (precompiled): Add vacall-powerpc64-linux.S, vacall-powerpc64-elfv2-linux.S, vacall-ia64-macro.S. Remove vacall-powerpc64-linux.s, vacall-powerpc64-elfv2-linux.s, vacall-ia64.s. (vacall-i386-macro.S, vacall-m68k.mit.S, vacall-m68k.motorola.S, vacall-sparc-macro.S, vacall-sparc64-macro.S, vacall-alpha-macro.S, vacall-hppa-macro.S, vacall-powerpc-linux-macro.S, vacall-powerpc-sysv4-macro.S, vacall-x86_64-macro.S, vacall-s390-macro.S): Include noexecstack.h. (vacall-arm-macro.S, vacall-armhf-macro.S): Include noexecstack-arm.h. (vacall-powerpc64-linux.S): Replaces rule for vacall-powerpc64-linux.s. (vacall-powerpc64-elfv2-linux.S): Replaces rule for vacall-powerpc64-elfv2-linux.s. (vacall-ia64-linux.s): Renamed from vacall-ia64.s. (vacall-ia64-macro.S): New rule. * callback/vacall_r/Makefile.in (vacall-powerpc64.s): Use vacall-powerpc64-linux.S instead of vacall-powerpc64-linux.s. (vacall-powerpc64-elfv2.s): Use vacall-powerpc64-elfv2-linux.S instead of vacall-powerpc64-elfv2-linux.s. (vacall-ia64.s): New rule. (vacall-ia64.lo): Update. (vacall-s390.s): New rule. (vacall-s390.lo): Update. (clean): Remove also vacall-ia64.s. (SOURCE_FILES): Update. * trampoline/cache-alpha.s: Remove file. * trampoline/cache-hppa.s: Remove file. * trampoline/cache-powerpc-macos.s, trampoline/cache-powerpc-sysv4.s: Remove files. * trampoline/cache-sparc-macro.S: Remove file. * trampoline/tramp-hppa-macro.S: Renamed from trampoline/tramp-hppa.s. Include "noexecstack.h". * trampoline/tramp-ia64-macro.S: Renamed from trampoline/tramp-ia64.s. Include "noexecstack.h". * trampoline/tramp-powerpc64-aix.S: Include "noexecstack.h". * trampoline/Makefile.devel: Rename GCCFLAGS to OLDGCCFLAGS in old rules. (cache-*): Remove old rules. (precompiled): New target. (cache-sparc-linux.s, cache-sparc-macro.S, cache-sparc64-linux.s, cache-sparc64-macro.S, cache-alpha-linux.s, cache-alpha-macro.S, cache-hppa-linux.s, cache-hppa-macro.S, cache-powerpc-linux.s, cache-powerpc-linux-macro.S, cache-powerpc-macos.s): New rules. * trampoline/Makefile.in (tramp-hppa.s): New rule. (tramp-hppa.o): Update. (tramp-powerpc64.s: Depend on noexecstack.h. (tramp-ia64.s): New rule. (tramp-ia64.o): Update. (cache-sparc64.s): Update. (cache-alpha.s): New rule. (cache-alpha.o): Update. (cache-hppa.s): New rule. (cache-hppa.o): Update. (cache-powerpc.s): New rule. (cache-powerpc.o): Update. (clean): Remove also tramp-hppa.s, tramp-ia64.s, cache-alpha.s, cache-hppa.s, cache-powerpc.s. (SOURCE_FILES): Update. * callback/trampoline_r/cache-sparc-macro.S: Remove file. * callback/trampoline_r/tramp-hppa-macro.S: Renamed from callback/trampoline_r/tramp-hppa.s. Include "noexecstack.h". * callback/trampoline_r/tramp-ia64-macro.S: Renamed from callback/trampoline_r/tramp-ia64.s. Include "noexecstack.h". * callback/trampoline_r/tramp-powerpc64-aix.S: Include "noexecstack.h". * callback/trampoline_r/Makefile.maint (COPIED_FILES): Remove cache-alpha.s, cache-hppa.s, cache-powerpc-macos.s, cache-powerpc-sysv4.s. * callback/trampoline_r/Makefile.devel: Rename GCCFLAGS to OLDGCCFLAGS in old rules. (cache-*): Remove old rules. (precompiled): New target. (cache-sparc-linux.s, cache-sparc-macro.S, cache-sparc64-linux.s, cache-sparc64-macro.S, cache-alpha-linux.s, cache-alpha-macro.S, cache-hppa-linux.s, cache-hppa-macro.S, cache-powerpc-linux.s, cache-powerpc-linux-macro.S, cache-powerpc-macos.s): New rules. * callback/trampoline_r/Makefile.in (tramp-hppa.s): New rule. (tramp-hppa.lo): Update. (tramp-powerpc64.s: Depend on noexecstack.h. (tramp-ia64.s): New rule. (tramp-ia64.lo): Update. (cache-sparc64.s): Update. (cache-alpha.s): New rule. (cache-alpha.lo): Update. (cache-hppa.s): New rule. (cache-hppa.lo): Update. (cache-powerpc.s): New rule. (cache-powerpc.lo): Update. (clean): Remove also tramp-hppa.s, tramp-ia64.s, cache-alpha.s, cache-hppa.s, cache-powerpc.s. (SOURCE_FILES): Update. * Makefile.devel (precompiled): Recurse also into trampoline and callback/trampoline_r directories. * Makefile.in (SOURCE_FILES): Update. (COPIED_FILES): Remove callback/trampoline_r/cache-alpha.s, callback/trampoline_r/cache-hppa.s, callback/trampoline_r/cache-powerpc-macos.s, callback/trampoline_r/cache-powerpc-sysv4.s. * NEWS: Mention the change. 2017-06-10 Bruno Haible Simplify Makefile.devel. * avcall/Makefile.devel (HOST, CPU): Remove unused variables. * vacall/Makefile.devel (HOST, CPU): Likewise. * trampoline/Makefile.devel (HOST, CPU): Likewise. * callback/vacall_r/Makefile.devel (HOST, CPU): Likewise. * callback/trampoline_r/Makefile.devel (HOST, CPU): Likewise. 2017-06-10 Bruno Haible Make the EXECUTABLE_VIA_MMAP_FILE_SHARED support work on i386. * trampoline/trampoline.c (alloc_trampoline): New local variable 'function_x'. Use it instead of 'function' for the computation of the relative address in the i386 trampoline. * callback/trampoline_r/trampoline.c (alloc_trampoline_r): Likewise. 2017-06-04 Bruno Haible build: Get rid of autom4te.cache directories. * Makefile.maint (configure, $(SUBDIRS_CONFIGURE), $(ALL_CONFIG_H_IN)): Remove autom4te.cache subdirectory. 2017-06-04 Bruno Haible Change the license from GPLv2 to GPLv2+. * **/configure.ac, **/*.3, **/*.html, **/minitests.c, callback/MIGRATION, common/asm-*: Add copyright notice. * m4/*.m4: Use GPLv2+ with exception notice. * Everywhere else: Change GPLv2 copyright notice to GPLv2+ copyright notice. Update copyright years. 2017-06-03 Bruno Haible Make the cross-build.sh script work with argument 'all'. * cross-tools/cross-build.sh: Fix typo. 2017-06-03 Bruno Haible Improve support for SELinux. * m4/codeexec.m4 (FFCALL_CODEEXEC_PAX): On SELinux systems, define HAVE_MPROTECT_AFTER_MALLOC_CAN_EXEC to -1. * trampoline/trampoline.c: When HAVE_MPROTECT_AFTER_MALLOC_CAN_EXEC is -1, assume the worst and don't set EXECUTABLE_VIA_MALLOC_THEN_MPROTECT. * callback/trampoline_r/trampoline.c: Likewise. 2017-06-03 Bruno Haible Improve support for SELinux. * m4/codeexec.m4 (FFCALL_CODEEXEC_PAX): On SELinux systems, define HAVE_MPROTECT_AFTER_MMAP_CAN_EXEC to -1. * trampoline/trampoline.c: When HAVE_MPROTECT_AFTER_MMAP_CAN_EXEC is -1, assume the worst and don't set EXECUTABLE_VIA_MMAP_THEN_MPROTECT. * callback/trampoline_r/trampoline.c: Likewise. 2017-06-03 Bruno Haible Indent the *.m4 files. * m4/as-underscore.m4: Use reasonable indentation. * m4/cc-gcc.m4: Likewise. * m4/codeexec.m4: Likewise. * m4/endianness.m4: Likewise. * m4/general.m4: Likewise. * m4/getpagesize.m4: Likewise. * m4/ireg.m4: Likewise. * m4/ln.m4: Likewise. * m4/mach-vm.m4: Likewise. * m4/mmap.m4: Likewise. * m4/mprotect.m4: Likewise. * m4/pccstruct.m4: Likewise. * m4/shm.m4: Likewise. * m4/smallstruct.m4: Likewise. * m4/proto.m4: Likewise. (CL_PROTO_TRY, CL_PROTO_CONST, CL_PROTO_MISSING, CONST_VARIANTS, SIZE_VARIANTS): Remove macros. 2017-02-26 Bruno Haible Document more clearly the maintainer prerequisites. * Makefile.in (ACLOCAL, AUTOCONF, AUTOHEADER): Add comments. * README-hacking: Likewise. Reported by Don Cohen in and Sam Steingold . 2017-02-26 Bruno Haible Document the support for GNU Hurd. * PLATFORMS, */PLATFORMS: List i686-unknown-gnu0.9 (gcc). 2017-02-19 Bruno Haible configuration: Avoid running an unneeded test. * m4/codeexec.m4 (FFCALL_CODEEXEC_PAX): Require FFCALL_CODEEXEC. Do nothing if its result is that malloc()ed memory is already executable. 2017-02-19 Bruno Haible Remove useless double-inclusion guard on .c files. * avcall/tests.c: Remove double-inclusion guard. * avcall/avcall-*.c: Likewise. Fix comment. 2017-02-19 Bruno Haible powerpc: Fix build failure on MacOS X (regression from 2017-01-29). 1. * cross-tools/cross.conf: For powerpc-darwin, go back to gcc 3.3.6. * cross-tools/patches/gcc-3.3.6.patch: New file. * avcall/Makefile.devel (avcall-powerpc-macos.s): Use gcc 3.3.6. * vacall/Makefile.devel (vacall-powerpc-macos.s): Use gcc 3.3.6. * callback/vacall_r/Makefile.devel (vacall-powerpc-macos.s): Use gcc 3.3.6. 2. * avcall/Makefile.in (avcall-powerpc.s): For MacOS, remove the .machine pseudo-op. * vacall/Makefile.in (vacall-powerpc.s): Likewise. * callback/vacall_r/Makefile.in (vacall-powerpc.s): Likewise. 3. * PLATFORMS, */PLATFORMS: List powerpc-apple-darwin9.8.0 (gcc). * NEWS: Mention the status of MacOS X / powerpc. 2017-02-12 Bruno Haible Make the cross-build.sh script work on an x86_64-linux host. * cross-tools/cross-build.sh: Remove the binutils-*/gprof directory. * cross-tools/patches/binutils-*.patch: Backport a buffer overrun bug fix from binutils-2.17. 2017-02-12 Bruno Haible Make the cross-build.sh script more usable. * README-hacking: Add more text. * cross-tools/cross-build.sh: Don't assume the script is run from the current directory. Accept a relative HOST_CROSS_DIR. Reported by Don Cohen . 2017-02-11 Bruno Haible Update documentation. * NEWS: List the progress since version 1.12. 2017-02-11 Bruno Haible powerpc: Add support for OpenBSD. * avcall/Makefile.in (avcall-powerpc.s): Treat OpenBSD like NetBSD. * vacall/Makefile.in (vacall-powerpc.s): Likewise. * callback/vacall_r/Makefile.in (vacall-powerpc.s): Likewise. 2017-02-11 Bruno Haible mips64: Add support for OpenBSD. On OpenBSD, cacheflush() is declared in , see openbsd-src/blob/master/lib/libarch/mips64/cacheflush.3 . * trampoline/trampoline.c [__OpenBSD__]: Include . * callback/trampoline_r/trampoline.c: Likewise. 2017-02-11 Bruno Haible Support the LDFLAGS configure variable. * avcall/Makefile.in (LDFLAGS): New variable. Use it in all linking commands. * vacall/Makefile.in (LDFLAGS): New variable. Use it in all linking commands. * trampoline/Makefile.in (LDFLAGS): New variable. Use it in all linking commands. * callback/Makefile.in (LDFLAGS): New variable. Use it in all linking commands. * callback/vacall_r/Makefile.in (LDFLAGS): New variable. Use it in all linking commands. * callback/trampoline_r/Makefile.in (LDFLAGS): New variable. Use it in all linking commands. 2017-02-11 Bruno Haible Fix build failure on Mac OS X 10.5 / x86_64. Regression from today. * common/asm-x86_64.sh: Recognize symbol in symbol(%rip) syntax. * vacall/Makefile.devel (vacall-x86_64-macro.S): Remove extra postprocessing, now done by common/asm-x86_64.sh. 2017-02-11 Bruno Haible Fix build failure on Mac OS X 10.5 / i386. Regression from today. * common/asm-i386.sh: Simplify the function referencing code, originally for PIC on ELF platforms, so that it works also on non-ELF platforms. 2017-02-11 Bruno Haible x86_64: Add support for the x32 ABI on Linux. * avcall/avcall.h.in: Optionally define __x86_64_x32__. (__avword, __av_longlong): Define differently for __x86_64_x32__. * avcall/Makefile.devel (avcall-x86_64-x32-linux.s): New target. * avcall/Makefile.in (avcall-x86_64-x32.lo, avcall-x86_64-x32.s): New targets. (clean): Remove also avcall-x86_64-x32.s. (SOURCE_FILES): Add avcall-x86_64-x32-linux.s. * vacall/vacall-x86_64.c: Don't declare a register variable in %rbp for GCC >= 4.9. For __x86_64_x32__, treat return of 'long long' and 'unsigned long long' differently. * vacall/vacall.h.in: Optionally define __x86_64_x32__. (__vaword, va_arg_longlong, va_return_longlong): Define differently for __x86_64_x32__. * callback/vacall_r/vacall_r.h.in: Likewise. * vacall/Makefile.devel (vacall-x86_64-x32-linux.s): New target. * vacall/Makefile.in (vacall-x86_64-x32.o, vacall-x86_64-x32.s): New targets. (clean): Remove also vacall-x86_64-x32.s. (SOURCE_FILES): Add vacall-x86_64-x32-linux.s. * trampoline/Makefile.devel (proto-x86_64-x32.s, tramp-x86_64-x32.o): New targets. * trampoline/proto-x86_64-x32.s: New generated file. * trampoline/tramp-x86_64-x32.s: New file. * trampoline/tramp-x86_64-x32.o: New generated file. * trampoline/trampoline.c: Add code for __x86_64_x32__. * callback/vacall_r/Makefile.devel (vacall-x86_64-x32-linux.s): New target. * callback/vacall_r/Makefile.in (vacall-x86_64-x32.lo, vacall-x86_64-x32.s): New targets. (clean): Remove also vacall-x86_64-x32.s. (SOURCE_FILES): Add vacall-x86_64-x32-linux.s. * callback/trampoline_r/Makefile.devel (proto-x86_64-x32.s, tramp-x86_64-x32.o): New targets. * callback/trampoline_r/proto.c: Specify env register for __x86_64_x32__. * callback/trampoline_r/proto-x86_64-x32.s: New generated file. * callback/trampoline_r/tramp-x86_64-x32.s: New file. * callback/trampoline_r/tramp-x86_64-x32.o: New generated file. * callback/trampoline_r/trampoline.c: Add code for __x86_64_x32__. * PLATFORMS, */PLATFORMS: List x86_64-unknown-linux (gcc -mx32). 2017-02-11 Bruno Haible Simplify platform defines. Reverts commit from 2010-07-20. * trampoline/trampoline.h.in: Remove CPU symbol definitions. * callback/trampoline_r/trampoline_r.h.in: Likewise. 2017-02-11 Bruno Haible powerpc64: Add support for the ELFv2 ABI on Linux. * avcall/avcall-powerpc64.c: Handle small struct return in registers when __AV_REGISTER_STRUCT_RETURN is set. * avcall/avcall.h.in: Optionally define __powerpc64_elfv2__. (__AV_REGISTER_STRUCT_RETURN): Define also for __powerpc64__. (__av_reg_struct_return, __av_start_struct3): Define differently for __powerpc64_elfv2__. (av_float) [__powerpc64__]: Define in a simplified way if __AV_AIXCC_FLOAT_ARGS cannot be set. (__av_struct): Define differently for little-endian __powerpc64__. * avcall/Makefile.devel (avcall-powerpc64-elfv2-linux.s): New target. * avcall/Makefile.in (avcall-powerpc64-elfv2.lo, avcall-powerpc64-elfv2.s): New targets. (clean): Remove also avcall-powerpc64-elfv2.s. (SOURCE_FILES): Add avcall-powerpc64-elfv2-linux.s. * vacall/vacall-powerpc64.c: Handle small struct return in registers when __VA_REGISTER_STRUCT_RETURN is set. * vacall/vacall.h.in: Optionally define __powerpc64_elfv2__. (__VA_REGISTER_STRUCT_RETURN): Define also for __powerpc64__. (__va_reg_struct_return, __va_start_struct1): Define differently for __powerpc64_elfv2__. (__va_arg_adjusted): Define differently for little-endian __powerpc64__. (va_arg_float) [__powerpc64__]: Define in a simplified way if __VA_AIXCC_FLOAT_ARGS cannot be set. * callback/vacall_r/vacall_r.h.in: Likewise. * vacall/Makefile.devel (vacall-powerpc64-elfv2-linux.s): New target. * vacall/Makefile.in (vacall-powerpc64-elfv2.o, vacall-powerpc64-elfv2.s): New targets. (clean): Remove also vacall-powerpc64-elfv2.s. (SOURCE_FILES): Add vacall-powerpc64-elfv2-linux.s. * trampoline/Makefile.devel (proto-powerpc64-elfv2.s, tramp-powerpc64-elfv2.o): New targets. * trampoline/proto-powerpc64elfv2.s: New generated file. * trampoline/tramp-powerpc64elfv2.s: New file. * trampoline/tramp-powerpc64elfv2.o: New generated file. * trampoline/trampoline.c: Add code for __powerpc64_elfv2__. * callback/vacall_r/Makefile.devel (vacall-powerpc64-elfv2-linux.s): New target. * callback/vacall_r/Makefile.in (vacall-powerpc64-elfv2.lo, vacall-powerpc64-elfv2.s): New targets. (clean): Remove also vacall-powerpc64-elfv2.s. (SOURCE_FILES): Add vacall-powerpc64-elfv2-linux.s. * callback/trampoline_r/Makefile.devel (proto-powerpc64-elfv2.s, tramp-powerpc64-elfv2.o): New targets. * callback/trampoline_r/proto-powerpc64elfv2.s: New generated file. * callback/trampoline_r/tramp-powerpc64elfv2.s: New file. * callback/trampoline_r/tramp-powerpc64elfv2.o: New generated file. * callback/trampoline_r/trampoline.c: Add code for __powerpc64_elfv2__. * PLATFORMS, */PLATFORMS: List powerpc64le-unknown-linux (gcc). 2017-02-11 Bruno Haible powerpc64: Add support for AIX in a 64-bit build, with xlc. * avcall/avcall.h.in (__AV_AIXCC_FLOAT_ARGS, __AV_FLOAT_ARGS): New enum values. (__AV_START_FLAGS): Include __AV_FLOAT_ARGS. (av_float) [__powerpc64__]: Pick word according to whether __AV_AIXCC_FLOAT_ARGS is set. * vacall/vacall.h.in (__VA_AIXCC_FLOAT_ARGS, __VA_FLOAT_ARGS): New enum values. (__VA_START_FLAGS): Include __VA_FLOAT_ARGS. (va_arg_float) [__powerpc64__]: Pick word according to whether __VA_AIXCC_FLOAT_ARGS is set. * callback/vacall_r/vacall_r.h.in: Likewise. * PLATFORMS, */PLATFORMS: List powerpc-ibm-aix7.1.3.0 (xlc -q64). 2017-02-11 Bruno Haible powerpc64: Add support for AIX in a 64-bit build, with gcc. * avcall/avcall.h.in (__AV_AIXCC_STRUCT_ARGS): Define also on __powerpc64__. (__AV_STRUCT_ARGS): Set to __AV_AIXCC_STRUCT_ARGS on __powerpc64__ with AIX. (__av_struct): Define for __powerpc64__ like for __powerpc__. * vacall/vacall.h.in (__VA_AIXCC_STRUCT_ARGS): Define also on __powerpc64__. (__VA_STRUCT_ARGS): Set to __VA_AIXCC_STRUCT_ARGS on __powerpc64__ with AIX. (__va_arg_struct): Define for __powerpc64__ with AIX like for __powerpc__ with AIX. * callback/vacall_r/vacall_r.h.in: Likewise. * PLATFORMS, */PLATFORMS: List powerpc-ibm-aix7.1.3.0 (gcc -maix64). 2017-02-11 Bruno Haible powerpc64: Add support for AIX in a 64-bit build, part 1. * avcall/Makefile.devel (avcall-powerpc64-aix.s, avcall-powerpc64-linux.s): New targets. (avcall-powerpc64.s): Remove target. * avcall/Makefile.in (avcall-powerpc64.s): New target. (avcall-powerpc64.lo): Update. (clean): Remove also avcall-powerpc64.s. (SOURCE_FILES): Add avcall-powerpc64-aix.s, avcall-powerpc64-linux.s. Remove avcall-powerpc64.s. * vacall/Makefile.devel (vacall-powerpc64-aix.s, vacall-powerpc64-linux.s): New targets. (vacall-powerpc64.s): Remove target. * vacall/Makefile.in (vacall-powerpc64.s): New target. (vacall-powerpc64.o): Update. (clean): Remove also vacall-powerpc64.s. (SOURCE_FILES): Add vacall-powerpc64-aix.s, vacall-powerpc64-linux.s. Remove vacall-powerpc64.s. * callback/vacall_r/Makefile.devel (vacall-powerpc64-aix.s, vacall-powerpc64-linux.s): New targets. (vacall-powerpc64.s): Remove target. * callback/vacall_r/Makefile.in (vacall-powerpc64.s): New target. (vacall-powerpc64.lo): Update. (clean): Remove also vacall-powerpc64.s. (SOURCE_FILES): Add vacall-powerpc64-aix.s, vacall-powerpc64-linux.s. Remove vacall-powerpc64.s. 2017-02-11 Bruno Haible powerpc64: Update Makefile.devel rules. * trampoline/Makefile.devel (CROSS_TOOL): New variable. (proto-powerpc64-aix.s): Update rule. * callback/trampoline_r/Makefile.devel (proto-powerpc64-aix.s): Update rule. 2017-02-11 Bruno Haible hppa: Fix bug with structure return for sizes 5, 6, 7. * avcall/avcall-hppa.c: For structure return for sizes > 4, get 4 bytes from iret2. * vacall/vacall-hppa.c: For structure return for sizes > 4, put 4 bytes into iret2. 2017-02-11 Bruno Haible x86_64: Fix bug with structure return for sizes < 16, != 1, 2, 4, 8. * avcall/avcall-x86_64.c: Treat structure returns for all sizes <= 16 like those with sizes 1, 2, 4, 8, 16. 2017-02-11 Bruno Haible Add some dedicated small structure return tests. * avcall/tests.c (Size1, Size2, Size3, Size4, Size7, Size8, Size12, Size15, Size16): New types. (S1_v, S2_v, S3_v, S4_v, S7_v, S8_v, S12_v, S15_v, S15_v): New tests. * vacall/tests.c: Likewise. * callback/tests.c: Likewise. 2017-02-11 Bruno Haible Remove outdated no-op definition. * vacall/vacall.h.in (__VA_ANSI_FLOAT_ARGS): Remove enum value. 2017-02-11 Bruno Haible powerpc: Don't special-case NetBSD. * vacall/vacall-powerpc.c: Remove special case of NetBSD. * callback/vacall_r/Makefile.devel (vacall-powerpc-netbsd-macro.S): Remove target. * callback/vacall_r/vacall-powerpc-netbsd.s: Remove file. * callback/vacall_r/vacall-powerpc-netbsd-macro.S: Remove file. * callback/vacall_r/Makefile.in (vacall-powerpc.s): Use vacall-powerpc-linux-macro.S instead of vacall-powerpc-netbsd-macro.S. (SOURCE_FILES): Remove vacall-powerpc-netbsd.s, vacall-powerpc-netbsd-macro.S. * callback/trampoline_r/proto.c: Remove special case of powerpc/NetBSD. * callback/trampoline_r/trampoline.c: Remove special case of powerpc/NetBSD. * callback/trampoline_r/test1.c: Likewise. 2017-02-11 Bruno Haible m68k: Don't special-case NetBSD. * callback/call-used-registers.txt: Add comment about NetBSD. * vacall/vacall-m68k.c: Remove special case of NetBSD. * callback/vacall_r/Makefile.devel (vacall-m68k-netbsd-macro.S): Remove target. * callback/vacall_r/Makefile.in (vacall-m68k.s): Always use vacall-m68k.mit.S. (SOURCE_FILES): Remove vacall-m68k-netbsd-macro.S. * callback/trampoline_r/proto.c: Remove special case of m68k/NetBSD. * callback/trampoline_r/proto-m68k-netbsd.s: Remove file. * callback/trampoline_r/tramp-m68k-netbsd.s: Remove file. * callback/trampoline_r/tramp-m68k-netbsd.o: Remove file. * callback/trampoline_r/Makefile.devel (proto-m68k-netbsd.s, tramp-m68k-netbsd.o): Remove targets. * callback/trampoline_r/trampoline.c: Remove special case of m68k/NetBSD. * callback/trampoline_r/test1.c: Likewise. 2017-02-11 Bruno Haible Revert BINFMT_ELF hack. * callback/elf-hack.txt: Explain the new workaround. * callback/vacall_r/Makefile.devel (vacall-i386-macro.S, vacall-m68k.mit.S, vacall-m68k.motorola.S, vacall-m68k-netbsd-macro.S, vacall-mipseb-macro.S, vacall-mipsel-macro.S, vacall-mipsn32eb-macro.S, vacall-mipsn32el-macro.S, vacall-mips64eb-macro.S, vacall-mips64el-macro.S, vacall-alpha-macro.S, vacall-powerpc-linux-macro.S, vacall-powerpc-netbsd-macro.S, vacall-powerpc-sysv4-macro.S, vacall-x86_64-macro.S, vacall-s390-macro.S): Don't postprocess through elfhack-*.sed. * callback/vacall_r/elfhack-alpha.S: Remove file. * callback/vacall_r/elfhack-alpha.sed: Remove file. * callback/vacall_r/elfhack-i386.S: Remove file. * callback/vacall_r/elfhack-i386.sed: Remove file. * callback/vacall_r/elfhack-m68k.S: Remove file. * callback/vacall_r/elfhack-m68k.sed: Remove file. * callback/vacall_r/elfhack-mips.S: Remove file. * callback/vacall_r/elfhack-mips.sed: Remove file. * callback/vacall_r/elfhack-mips64.S: Remove file. * callback/vacall_r/elfhack-mips64.sed: Remove file. * callback/vacall_r/elfhack-powerpc.S: Remove file. * callback/vacall_r/elfhack-powerpc.sed: Remove file. * callback/vacall_r/elfhack-s390.S: Remove file. * callback/vacall_r/elfhack-s390.sed: Remove file. * callback/vacall_r/elfhack-x86_64.S: Remove file. * callback/vacall_r/elfhack-x86_64.sed: Remove file. * callback/vacall_r/Makefile.in (ASPFLAGS): Don't set BINFMT_ELF. (SOURCE_FILES): Remove elhack-*.S and elfhack-*.sed. * callback/vacall_r/configure.ac: Don't invoke FFCALL_BINFMT_ELF. * callback/trampoline_r/trampoline.c: Remove code for BINFMT_ELF. * callback/trampoline_r/tramp-alpha.s: Remove trampelf. * callback/trampoline_r/tramp-alpha.o: Regenerated. * callback/trampoline_r/tramp-i386.s: Remove trampelf. * callback/trampoline_r/tramp-i386.o: Regenerated. * callback/trampoline_r/tramp-m68k-netbsd.s: Remove trampelf. * callback/trampoline_r/tramp-m68k-netbsd.o: Regenerated. * callback/trampoline_r/tramp-m68k.s: Remove trampelf. * callback/trampoline_r/tramp-m68k.o: Regenerated. * callback/trampoline_r/tramp-mips.s: Remove trampelf. * callback/trampoline_r/tramp-mips.o: Regenerated. * callback/trampoline_r/tramp-mips64.s: Remove trampelf. * callback/trampoline_r/tramp-mips64.o: Regenerated. * callback/trampoline_r/tramp-powerpc-sysv4.s: Remove trampelf. * callback/trampoline_r/tramp-powerpc-sysv4.o: Regenerated. * callback/trampoline_r/tramp-s390.s: Remove trampelf. * callback/trampoline_r/tramp-s390.o: Regenerated. * callback/trampoline_r/tramp-x86_64.s: Remove trampelf. * callback/trampoline_r/tramp-x86_64.o: Regenerated. * callback/trampoline_r/test1.c: Reenable on ELF platforms. * callback/trampoline_r/configure.ac: Don't invoke FFCALL_BINFMT_ELF. * callback/configure.ac: Don't invoke FFCALL_BINFMT_ELF_OPTION. * configure.ac: Don't invoke FFCALL_BINFMT_ELF_OPTION. * m4/binfmt-elf.m4: Remove file. * Makefile.in (SOURCE_FILES): Remove it. * README: Update regarding the ELF problem. 2017-02-11 Bruno Haible Access __vacall_r through an indirection, except on SPARC. * callback/vacall_r/vacall_r.h.in (__vacall_r_t): New type. (get__vacall_r): New declaration. (__vacall_r): Remove declaration. * vacall/vacall-alpha.c [REENTRANT]: Make __vacall_r static. (get__vacall_r): New function. * vacall/vacall-arm.c: Likewise. * vacall/vacall-armhf.c: Likewise. * vacall/vacall-hppa.c: Likewise. * vacall/vacall-i386.c: Likewise. * vacall/vacall-ia64.c: Likewise. * vacall/vacall-m68k.c: Likewise. * vacall/vacall-mips.c: Likewise. * vacall/vacall-mipsn32.c: Likewise. * vacall/vacall-mips64.c: Likewise. * vacall/vacall-powerpc.c: Likewise. * vacall/vacall-powerpc64.c: Likewise. * vacall/vacall-s390.c: Likewise. * vacall/vacall-x86_64.c: Likewise. * callback/vacall_r/vacall-powerpc-netbsd-macro.S: Update accordingly. * callback/vacall_r/Makefile.devel (vacall-mipseb-linux.s, vacall-mipsel-linux.s): Use option -mno-explicit-relocs. Needed for IRIX. * callback/vacall_r/Makefile.in (vacall-i386.s): Remove space after '@'. Needed on Solaris/x86. * callback/callback.h.in (alloc_callback, is_callback): Use get__vacall_r(). 2017-01-29 Bruno Haible s390: Regenerate .s and .S files with known compilers. * avcall/avcall-s390.c: Fix include statement. * avcall/Makefile.devel (avcall-s390.s): New target. * vacall/Makefile.devel (vacall-s390.s): New target. * callback/vacall_r/Makefile.devel (vacall-s390-linux.s): New target. * avcall/Makefile.in: Move avcall-s390.lo target. * vacall/Makefile.in: Move vacall-s390.o target. * avcall/avcall-s390.s: Remove from version control. * vacall/vacall-s390.s: Likewise. * callback/vacall_r/vacall-s390-linux.s: Likewise. * callback/vacall_r/vacall-s390-macro.S: Likewise. 2017-01-29 Bruno Haible x86_64: Regenerate .s and .S files with known compilers. * common/asm-x86_64.h (P2ALIGN): New macro. (ALIGN): Remove macro. * common/asm-x86_64.sh: Rewritten to consume ELF input. Produce L, P2ALIGN macros. * avcall/avcall-x86_64.c: Use __builtin_alloca instead of hacking on the 'sp' register. * avcall/Makefile.devel (avcall-x86_64-linux.s): Rewritten. * vacall/Makefile.devel (vacall-x86_64-linux.s): Rewritten. * callback/vacall_r/Makefile.devel (vacall-x86_64-linux.s): Rewritten. * avcall/avcall-x86_64-linux.s: Remove from version control. * avcall/avcall-x86_64-macro.S: Likewise. * vacall/vacall-x86_64-linux.s: Likewise. * vacall/vacall-x86_64-macro.S: Likewise. * callback/vacall_r/vacall-x86_64-linux.s: Likewise. * callback/vacall_r/vacall-x86_64-macro.S: Likewise. 2017-01-29 Bruno Haible ia64: Regenerate .s and .S files with known compilers. * avcall/Makefile.devel (avcall-ia64.s): Rewritten. * vacall/Makefile.devel (vacall-ia64.s): Rewritten. * callback/vacall_r/Makefile.devel (vacall-ia64.s): Rewritten. * vacall/vacall-ia64.c: Put all local variables in a struct. * avcall/avcall-ia64.s: Remove from version control. * vacall/vacall-ia64.s: Likewise. * callback/vacall_r/vacall-ia64.s: Likewise. 2017-01-29 Bruno Haible powerpc, powerpc64: Regenerate .s and .S files with known compilers. * avcall/avcall-powerpc64.c: Use __builtin_alloca. Use an 'if' cascade instead of gotos. * avcall/Makefile.devel (avcall-powerpc-linux.s): New target. (avcall-powerpc-aix.s, avcall-powerpc-sysv4.s, avcall-powerpc-macos.s, avcall-powerpc64.s): Rewritten. * vacall/Makefile.devel (vacall-powerpc-linux.s): New target. (vacall-powerpc-aix.s, vacall-powerpc-sysv4.s, vacall-powerpc-macos.s, vacall-powerpc64.s): Rewritten. * callback/vacall_r/Makefile.devel (vacall-powerpc-linux.s): New target. (vacall-powerpc-aix.s, vacall-powerpc-sysv4-macro.S, vacall-powerpc-macos.s, vacall-powerpc64.s): Rewritten. * avcall/avcall-powerpc-aix.s: Remove from version control. * avcall/avcall-powerpc-linux.s: Likewise. * avcall/avcall-powerpc-sysv4.s: Likewise. * avcall/avcall-powerpc-macos.s: Likewise. * avcall/avcall-powerpc64.s: Likewise. * vacall/vacall-powerpc-aix.s: Likewise. * vacall/vacall-powerpc-linux.s: Likewise. * vacall/vacall-powerpc-sysv4.s: Likewise. * vacall/vacall-powerpc-macos.s: Likewise. * vacall/vacall-powerpc64.s: Likewise. * callback/vacall_r/vacall-powerpc-aix.s: Likewise. * callback/vacall_r/vacall-powerpc-linux.s: Likewise. * callback/vacall_r/vacall-powerpc-linux-macro.S: Likewise. * callback/vacall_r/vacall-powerpc-sysv4-macro.S: Likewise. * callback/vacall_r/vacall-powerpc-macos.s: Likewise. * callback/vacall_r/vacall-powerpc64.s: Likewise. 2017-02-11 Bruno Haible armhf: Add support for arm with -mfloat-abi=hard. * avcall/avcall.h.in: Add code for __armhf__, especially __av_start1, __av_start_struct4, av_long, av_ulong, av_ptr, __av_longlong, av_float, av_double, __av_struct. * avcall/avcall-armhf.c: New file. * avcall/Makefile.devel (avcall-armhf-macro.S): New target. * avcall/Makefile.in (avcall-armhf.lo, avcall-armhf.s): New targets. (clean): Remove avcall-armhf.s. (SOURCE_FILES): Add avcall-armhf.c, avcall-armhf-macro.S. * vacall/vacall.h.in: Add code for __armhf__, especially va_arg_float, va_arg_double. * vacall/vacall-armhf.c: New file. * vacall/Makefile.devel (vacall-armhf-macro.S): New target. * vacall/Makefile.in (vacall-armhf.o, vacall-armhf.s): New targets. (clean): Remove vacall-armhf.s. (SOURCE_FILES): Add vacall-armhf.c, vacall-armhf-macro.S. * callback/vacall_r/Makefile.maint (COPIED_FILES): Add vacall-armhf.c. * Makefile.in (COPIED_FILES): Add callback/vacall_r/vacall-armhf.c. * callback/vacall_r/vacall_r.h.in: Add code for __armhf__, especially va_arg_float, va_arg_double. * callback/vacall_r/Makefile.devel (vacall-armhf-macro.S): New target. * callback/vacall_r/Makefile.in (vacall-armhf.lo, vacall-armhf.s): New targets. (clean): Remove vacall-armhf.s. (SOURCE_FILES): Add vacall-armhf.c, vacall-armhf-macro.S. * trampoline/trampoline.h.in: Optionally define __armhf__. * trampoline/trampoline.c: Treat __armhf__ like __arm__. * callback/trampoline_r/trampoline_r.h.in: Optionally define __armhf__. * callback/trampoline_r/trampoline.c: Treat __armhf__ like __arm__. * PLATFORMS, */PLATFORMS: List the armv7 machine with 'hard' floats. 2017-02-11 Bruno Haible arm: Make callback work, for -mfloat-abi=soft. * callback/trampoline_r/Makefile.devel (CROSS_TOOL): New variable. (proto-arm.s): Use known cross-compiler and -fno-omit-frame-pointer. (tramp-arm.o): Use known cross-assembler. * callback/trampoline_r/proto-arm.s: Regenerated. * callback/trampoline_r/tramp-arm.s: Try three different trampolines. The third one, trampcallwithframe, works. * callback/trampoline_r/tramp-arm.o: Regenerated. * callback/call-used-registers.txt: Add comments about arm. * callback/trampoline_r/trampoline.c: For arm, use a trampoline with standard prologue with struct args and standard epilogue. * callback/trampoline_r/test1.c: On arm platforms, don't check the passing of env. * vacall/vacall-arm.c [REENTRANT]: Expect to find env on the stack, not in r12. * callback/vacall_r/Makefile.devel (vacall-arm-macro.S): Don't postprocess through elfhack-arm.sed. * callback/vacall_r/elfhack-arm.S: Remove file. * callback/vacall_r/elfhack-arm.sed: Remove file. * callback/vacall_r/Makefile.in (SOURCE_FILES): Remove elfhack-arm.S, elfhack-arm.sed. * PLATFORMS: List the arm5 machine with 'soft' floats. * callback/PLATFORMS: Likewise. 2017-01-31 Bruno Haible arm: Make vacall work, for -mfloat-abi=soft. * vacall/vacall.h.in [__arm__] (__va_alist): Enable the filler word. * callback/vacall_r/vacall_r.h.in: Likewise. * vacall/vacall-arm.c: Use a split struct to convince GCC to allocate room on the stack for the first 4 general-purpose argument words. * vacall/PLATFORMS: List the arm5 machine with 'soft' floats. * avcall/PLATFORMS: Likewise. 2017-01-29 Bruno Haible arm: Fulfil the constraint that the sp register must be 8-bytes-aligned. * avcall/avcall-arm.c: Enforce 8-bytes-alignment of the stack pointer. * vacall/vacall-arm.c: Likewise. arm: Remove support for old arm platforms without the ARM EABI. * avcall/avcall.h.in: Revisit all __arm__ and __ARMEL__ conditionals. * vacall/vacall.h.in: Likewise. * callback/vacall_r/vacall_r.h.in: Likewise. * avcall/avcall-arm.c: Renamed from avcall/avcall-armel.c. * avcall/Makefile.devel (avcall-arm-macro.S): Make sure it's usable for both endiannesses. (avcall-armel.s): Remove target. * avcall/Makefile.in (avcall-armel.lo): Remove target. (SOURCE_FILES): Remove avcall-armel.[cs]. * vacall/vacall-arm.c: Renamed from vacall/vacall-armel.c. * vacall/Makefile.devel (vacall-arm-macro.S): Make sure it's usable for both endiannesses. (vacall-armel.s): Remove target. * vacall/Makefile.in (vacall-armel.o): Remove target. (SOURCE_FILES): Remove vacall-armel.[cs]. * Makefile.in (COPIED_FILES): Remove callback/vacall_r/vacall-armel.c. * callback/vacall_r/Makefile.devel (vacall-arm-macro.S): Make sure it's usable for both endiannesses. (vacall-armel-macro.S): Remove target. * callback/vacall_r/Makefile.maint (COPIED_FILES): Remove vacall-armel.c. * callback/vacall_r/Makefile.in (vacall-armel.lo, vacall-armel.s): Remove targets. (clean): Don't remove vacall-armel.s. (SOURCE_FILES): Remove vacall-armel.c, vacall-armel-macro.S. arm: Regenerate .s and .S files with known compilers. * common/asm-arm.h (L, FUNBEGIN, FUNEND): New macros. * common/asm-arm.sh: Rewritten to consume ELF input. Produce L, FUNBEGIN, FUNEND macros. * avcall/Makefile.devel (avcall-arm-macro.S, avcall-armel.s): Rewritten. * vacall/Makefile.devel (vacall-arm-macro.S, vacall-armel.s): Rewritten. * callback/vacall_r/Makefile.devel (vacall-arm-macro.S, vacall-armel-macro.S): Rewritten. * avcall/avcall-arm-macro.S: Remove from version control. * avcall/avcall-armel.s: Likewise. * vacall/vacall-arm-macro.S: Likewise. * vacall/vacall-armel.s: Likewise. * callback/vacall_r/vacall-arm-macro.S: Likewise. * callback/vacall_r/vacall-armel-macro.S: Likewise. 2017-01-29 Bruno Haible hppa: Regenerate .s and .S files with known compilers. * common/asm-hppa.sh: New file. * common/asm-hppa.h: New file. * Makefile.in (SOURCE_FILES): Add them. * avcall/Makefile.devel (avcall-hppa-linux.s, avcall-hppa-macro.S): New targets. (avcall-hppa.s): Remove target. * avcall/Makefile.in (avcall-hppa.s): New target. (avcall-hppa.lo): Update. (clean): Remove also avcall-hppa.s. (SOURCE_FILES): Add avcall-hppa-linux.s, avcall-hppa-macro.S. Remove avcall-hppa.s. * vacall/vacall-hppa.c: Use explicit assignments to move the arguments to their stack locations. * vacall/Makefile.devel (vacall-hppa-linux.s, vacall-hppa-macro.S): New targets. (vacall-hppa.s): Remove target. * vacall/Makefile.in (vacall-hppa.s): New target. (vacall-hppa.o): Update. (clean): Remove also vacall-hppa.s. (SOURCE_FILES): Add vacall-hppa-linux.s, vacall-hppa-macro.S. Remove vacall-hppa.s. * callback/vacall_r/Makefile.devel (vacall-hppa-linux.s, vacall-hppa-macro.S): New targets. (vacall-hppa.s): Remove target. * callback/vacall_r/Makefile.in (vacall-hppa.s): New target. (vacall-hppa.lo): Update. (clean): Remove also vacall-hppa.s. (SOURCE_FILES): Add vacall-hppa-linux.s, vacall-hppa-macro.S. Remove vacall-hppa.s. * avcall/avcall-hppa.s: Remove from version control. * vacall/vacall-hppa.s: Likewise. * callback/vacall_r/vacall-hppa.s: Likewise. * PLATFORMS, */PLATFORMS: List hppa2.0w-hp-hpux11.31 (cc). 2017-01-29 Bruno Haible alpha: Regenerate .s and .S files with known compilers. * avcall/avcall-alpha.c: Use __builtin_alloca. * avcall/Makefile.devel (precompiled): Depend on avcall-alpha.s. (avcall-alpha.s): Rewritten. * vacall/vacall-alpha.c: Put all local variables in a struct. * vacall/Makefile.devel (precompiled): Depend on vacall-alpha.s. (vacall-alpha.s): Rewritten. * callback/vacall_r/Makefile.devel (precompiled): Depend on vacall-alpha-macro.S. (vacall-alpha-linux.s): New target. (vacall-alpha-macro.S): Rewritten. * callback/vacall_r/Makefile.in (SOURCE_FILES): Add vacall-alpha-linux.s. * avcall/avcall-alpha.s: Remove from version control. * vacall/vacall-alpha.s: Likewise. * callback/vacall_r/vacall-alpha-macro.S: Likewise. 2017-01-29 Bruno Haible sparc64: Fix for Solaris. * vacall/Makefile.devel (vacall-sparc64-linux.s): Produce code that does not make assumptions about the address space. * PLATFORMS, */PLATFORMS: List sparc64-sun-solaris2.10 (gcc -m64, cc -xarch=generic64). 2017-01-29 Bruno Haible sparc, sparc64: Regenerate .s and .S files with known compilers. * common/asm-sparc.h (L, FUNBEGIN, FUNEND): New macros. * common/asm-sparc.sh: Rewritten to consume ELF input. Produce L, FUNBEGIN, FUNEND macros. * common/asm-sparc64.sh: Remove file. * Makefile.in (SOURCE_FILES): Remove common/asm-sparc64.sh. * avcall/Makefile.devel (precompiled): Depend on avcall-sparc-macro.S and avcall-sparc64-macro.S. (avcall-sparc-linux.s, avcall-sparc64-linux.s): New target. (avcall-sparc-macro.S, avcall-sparc64-macro.S): Rewritten. * avcall/Makefile.in (SOURCE_FILES): Add avcall-sparc-linux.s, avcall-sparc64-linux.s. * vacall/Makefile.devel (precompiled): Depend on vacall-sparc-macro.S and vacall-sparc64-macro.S. (vacall-sparc-linux.s, vacall-sparc64-linux.s): New target. (vacall-sparc-macro.S, vacall-sparc64-macro.S): Rewritten. * vacall/Makefile.in (SOURCE_FILES): Add vacall-sparc-linux.s, vacall-sparc64-linux.s. * callback/vacall_r/Makefile.devel (precompiled): Depend on vacall-sparc-macro.S and vacall-sparc64-macro.S. (vacall-sparc-linux.s, vacall-sparc64-linux.s): New target. (vacall-sparc-macro.S, vacall-sparc64-macro.S): Rewritten. * callback/vacall_r/Makefile.in (SOURCE_FILES): Add vacall-sparc-linux.s, vacall-sparc64-linux.s. * avcall/avcall-sparc-macro.S: Remove from version control. * avcall/avcall-sparc64-macro.S: Likewise. * vacall/vacall-sparc-macro.S: Likewise. * vacall/vacall-sparc64-macro.S: Likewise. * callback/vacall_r/vacall-sparc-macro.S: Likewise. * callback/vacall_r/vacall-sparc64-macro.S: Likewise. 2017-01-29 Bruno Haible mips64: Make it work on Linux (mips64, mips64el) with "gcc -mabi=64". * avcall/avcall-mips64.c: Add code for struct returns on _MIPSEL. * avcall/Makefile.devel (avcall-mips64eb-linux.s, avcall-mips64eb-macro.S, avcall-mips64el-linux.s, avcall-mips64el-macro.S): New targets. (avcall-mips64-linux.s, avcall-mips64-macro.S): Remove targets. * avcall/Makefile.in (avcall-mips64.s): Take into account the ENDIANNESS. (SOURCE_FILES): Add avcall-mips64eb-linux.s, avcall-mips64el-linux.s, avcall-mips64eb-macro.S, avcall-mips64el-macro.S. Remove avcall-mips64-linux.s, avcall-mips64-macro.S. * vacall/vacall-mips64.c: Add code for struct returns on _MIPSEL. * vacall/Makefile.devel (vacall-mips64eb-linux.s, vacall-mips64eb-macro.S, vacall-mips64el-linux.s, vacall-mips64el-macro.S): New targets. (vacall-mips64-linux.s, vacall-mips64-macro.S): Remove targets. * vacall/Makefile.in (vacall-mips64.s): Take into account the ENDIANNESS. (SOURCE_FILES): Add vacall-mips64eb-linux.s, vacall-mips64el-linux.s, vacall-mips64eb-macro.S, vacall-mips64el-macro.S. Remove vacall-mips64-linux.s, vacall-mips64-macro.S. * callback/vacall_r/Makefile.devel (vacall-mips64eb-linux.s, vacall-mips64eb-macro.S, vacall-mips64el-linux.s, vacall-mips64el-macro.S): New targets. (vacall-mips64-linux.s, vacall-mips64-macro.S): Remove targets. * callback/vacall_r/Makefile.in (vacall-mips64.s): Take into account the ENDIANNESS. (SOURCE_FILES): Add vacall-mips64eb-linux.s, vacall-mips64el-linux.s, vacall-mips64eb-macro.S, vacall-mips64el-macro.S. Remove vacall-mips64-linux.s, vacall-mips64-macro.S. * PLATFORMS, */PLATFORMS: List mips64-unknown-linux (gcc -mabi=64). 2017-01-29 Bruno Haible mipsn32: Make it work on Linux (mips64, mips64el) with "gcc -mabi=n32". * avcall/avcall-mipsn32.c: Add code for struct returns on _MIPSEL. * avcall/Makefile.devel (avcall-mipsn32eb-linux.s, avcall-mipsn32eb-macro.S, avcall-mipsn32el-linux.s, avcall-mipsn32el-macro.S): New targets. (avcall-mipsn32-linux.s, avcall-mipsn32-macro.S): Remove targets. * avcall/Makefile.in (avcall-mipsn32.s): Take into account the ENDIANNESS. (SOURCE_FILES): Add avcall-mipsn32eb-linux.s, avcall-mipsn32el-linux.s, avcall-mipsn32eb-macro.S, avcall-mipsn32el-macro.S. Remove avcall-mipsn32-linux.s, avcall-mipsn32-macro.S. * vacall/vacall-mipsn32.c: Add code for struct returns on _MIPSEL. * vacall/Makefile.devel (vacall-mipsn32eb-linux.s, vacall-mipsn32eb-macro.S, vacall-mipsn32el-linux.s, vacall-mipsn32el-macro.S): New targets. (vacall-mipsn32-linux.s, vacall-mipsn32-macro.S): Remove targets. * vacall/Makefile.in (vacall-mipsn32.s): Take into account the ENDIANNESS. (SOURCE_FILES): Add vacall-mipsn32eb-linux.s, vacall-mipsn32el-linux.s, vacall-mipsn32eb-macro.S, vacall-mipsn32el-macro.S. Remove vacall-mipsn32-linux.s, vacall-mipsn32-macro.S. * callback/vacall_r/Makefile.devel (vacall-mipsn32eb-linux.s, vacall-mipsn32eb-macro.S, vacall-mipsn32el-linux.s, vacall-mipsn32el-macro.S): New targets. (vacall-mipsn32-linux.s, vacall-mipsn32-macro.S): Remove targets. * callback/vacall_r/Makefile.in (vacall-mipsn32.s): Take into account the ENDIANNESS. (SOURCE_FILES): Add vacall-mipsn32eb-linux.s, vacall-mipsn32el-linux.s, vacall-mipsn32eb-macro.S, vacall-mipsn32el-macro.S. Remove vacall-mipsn32-linux.s, vacall-mipsn32-macro.S. * PLATFORMS, */PLATFORMS: List mips64-unknown-linux (gcc -mabi=n32). 2017-01-29 Bruno Haible mips: Make it work on Linux (mips, mipsel) with "gcc -mabi=32". * m4/endianness.m4: New file. * avcall/Makefile.devel (avcall-mipseb-linux.s, avcall-mipseb-macro.S, avcall-mipsel-linux.s, avcall-mipsel-macro.S): New targets. (avcall-mips-linux.s, avcall-mips-macro.S): Remove targets. * avcall/configure.ac: Invoke FFCALL_ENDIANNESS. * avcall/Makefile.in (avcall-mips.s): Take into account the ENDIANNESS. (SOURCE_FILES): Add avcall-mipseb-linux.s, avcall-mipsel-linux.s, avcall-mipseb-macro.S, avcall-mipsel-macro.S. Remove avcall-mips-linux.s, avcall-mips-macro.S. * vacall/Makefile.devel (vacall-mipseb-linux.s, vacall-mipseb-macro.S, vacall-mipsel-linux.s, vacall-mipsel-macro.S): New targets. (vacall-mips-linux.s, vacall-mips-macro.S): Remove targets. * vacall/configure.ac: Invoke FFCALL_ENDIANNESS. * vacall/Makefile.in (vacall-mips.s): Take into account the ENDIANNESS. (SOURCE_FILES): Add vacall-mipseb-linux.s, vacall-mipsel-linux.s, vacall-mipseb-macro.S, vacall-mipsel-macro.S. Remove vacall-mips-linux.s, vacall-mips-macro.S. * callback/vacall_r/Makefile.devel (vacall-mipseb-linux.s, vacall-mipseb-macro.S, vacall-mipsel-linux.s, vacall-mipsel-macro.S): New targets. * callback/vacall_r/configure.ac: Invoke FFCALL_ENDIANNESS. * callback/vacall_r/Makefile.in (vacall-mips.s): Take into account the ENDIANNESS. (SOURCE_FILES): Add vacall-mipseb-linux.s, vacall-mipsel-linux.s, vacall-mipseb-macro.S, vacall-mipsel-macro.S. Remove vacall-mips-linux.s, vacall-mips-macro.S. * PLATFORMS, */PLATFORMS: List mips-unknown-linux (gcc -mabi=32). 2017-01-29 Bruno Haible mips, mipsn32, mips64: Regenerate .s and .S files with known compilers. This restores support for IRIX with cc -32 (regression from 2008-09-26). * common/asm-mips.sh: Rewritten to consume ELF input. * avcall/avcall-mips.c: Rely on the compiler to set $25 at each function call. Add comment about broken GCC 3.3.x and 3.4.x. Avoid 'switch' statements, to make the generated code position-independent. Declare iret2 as single __avword. * avcall/avcall-mipsn32.c: Use __builtin_alloca. Rely on the compiler to set $25 at each function call. * avcall/avcall-mips64.c: Likewise. * avcall/Makefile.devel (precompiled): Depend on avcall-mips-macro.S, avcall-mipsn32-macro.S, avcall-mips64-macro.S. (avcall-mips-linux.s, avcall-mipsn32-linux.s, avcall-mips64-linux.s): New targets. (avcall-mips-macro.S, avcall-mipsn32-macro.S, avcall-mips64-macro.S): Rewritten. * avcall/Makefile.in (SOURCE_FILES): Add avcall-mips-linux.s, avcall-mipsn32-linux.s, avcall-mips64-linux.s. * vacall/vacall-mips.c: Rely on the compiler to set $25 at each function call. * vacall/vacall-mipsn32.c: Likewise. * vacall/vacall-mips64.c: Likewise. Add offset to references of arguments in the stack. * vacall/Makefile.devel (precompiled): Depend on vacall-mips-macro.S, vacall-mipsn32-macro.S, vacall-mips64-macro.S. (vacall-mips-linux.s, vacall-mipsn32-linux.s, vacall-mips64-linux.s): New targets. (vacall-mips-macro.S): Rewritten. (vacall-mipsn32-macro.S): Rewritten. Update the postprocessing hack. (vacall-mips64-macro.S): Rewritten. Add a postprocessing hack. * vacall/Makefile.in (SOURCE_FILES): Add vacall-mips-linux.s, vacall-mipsn32-linux.s, vacall-mips64-linux.s. * callback/vacall_r/Makefile.devel (precompiled): Depend on vacall-mips-macro.S, vacall-mipsn32-macro.S, vacall-mips64-macro.S. (vacall-mips-linux.s, vacall-mipsn32-linux.s, vacall-mips64-linux.s): New targets. (vacall-mips-macro.S): Rewritten. (vacall-mipsn32-macro.S): Rewritten. Update the postprocessing hack. (vacall-mips64-macro.S): Rewritten. Add a postprocessing hack. * callback/vacall_r/Makefile.in (SOURCE_FILES): Add vacall-mips-linux.s, vacall-mipsn32-linux.s, vacall-mips64-linux.s. * avcall/avcall-mips-macro.S: Remove from version control. * avcall/avcall-mipsn32-macro.S: Likewise. * avcall/avcall-mips64-macro.S: Likewise. * vacall/vacall-mips-macro.S: Likewise. * vacall/vacall-mipsn32-macro.S: Likewise. * vacall/vacall-mips64-macro.S: Likewise. * callback/vacall_r/vacall-mips-macro.S: Likewise. * callback/vacall_r/vacall-mipsn32-macro.S: Likewise. * callback/vacall_r/vacall-mips64-macro.S: Likewise. * PLATFORMS, */PLATFORMS: List mips-sgi-irix6.5 (cc -32). 2017-01-29 Bruno Haible m68k: Regenerate .s and .S files with known compilers. * common/asm-m68k.h (L, FUNBEGIN, FUNEND): New macros. * common/asm-m68k.sh: Expect a syntax argument. Produce L, FUNBEGIN, FUNEND macros. * avcall/avcall-m68k.c: Use __builtin_alloca instead of hacking on the 'sp' register. * avcall/Makefile.devel (precompiled): Depend on avcall-m68k.mit.S and avcall-m68k.motorola.S. (avcall-m68k-linux.s, avcall-m68k-sun.s): New targets. (avcall-m68k.mit.S, avcall-m68k.motorola.S): Rewritten. * avcall/Makefile.in (avcall-m68k.s): Depend on avcall-m68k.motorola.S instead of avcall-m68k.mot.s. (SOURCE_FILES): Add avcall-m68k-linux.s, avcall-m68k-sun.s. Replace avcall-m68k.mot.s with avcall-m68k.motorola.S. * vacall/Makefile.devel (precompiled): Depend on vacall-m68k.mit.S and vacall-m68k.motorola.S. (vacall-m68k-linux.s, vacall-m68k-sun.s): New targets. (vacall-m68k.mit.S, vacall-m68k.motorola.S): Rewritten. * vacall/Makefile.in (vacall-m68k.s): Depend on vacall-m68k.motorola.S instead of vacall-m68k.mot.s. (SOURCE_FILES): Add vacall-m68k-linux.s, vacall-m68k-sun.s, vacall-mips-linux.s, vacall-mipsn32-linux.s, Replace vacall-m68k.mot.s with vacall-m68k.motorola.S. * callback/vacall_r/Makefile.devel (precompiled): Depend on vacall-m68k.mit.S, vacall-m68k.motorola.S, vacall-m68k-netbsd-macro.S. (vacall-m68k-linux.s, vacall-m68k-sun.s): New targets. (vacall-m68k.mit.S, vacall-m68k.motorola.S, vacall-m68k-netbsd-macro.S): Rewritten. * callback/vacall_r/Makefile.in (vacall-m68k.s): Depend on vacall-m68k.motorola.S instead of vacall-m68k.mot.s. (SOURCE_FILES): Add vacall-m68k-linux.s, vacall-m68k-sun.s. Replace vacall-m68k.mot.s with vacall-m68k.motorola.S. * avcall/avcall-m68k.mit.S: Remove from version control. * avcall/avcall-m68k.mot.s: Likewise. * callback/vacall_r/vacall-m68k-netbsd-macro.S: Likewise. * callback/vacall_r/vacall-m68k.mit.S: Likewise. * callback/vacall_r/vacall-m68k.mot.s: Likewise. * vacall/vacall-m68k.mit.S: Likewise. * vacall/vacall-m68k.mot.s: Likewise. 2017-01-29 Bruno Haible i386: Regenerate .s and .S files with known compilers. * common/asm-i386.hh (P2ALIGN): New macro. (FUNEND): Take two arguments. * common/asm-i386.sh: Rewritten to consume ELF input. Produce P2ALIGN macro. Handle indirect call statements. * avcall/avcall-i386.c: Use __builtin_alloca instead of hacking on the 'sp' register. * avcall/Makefile.devel (precompiled): Depend on avcall-i386-macro.S. (avcall-i386-linux.s): New target. (avcall-i386-macro.S): Rewritten. * avcall/Makefile.in (SOURCE_FILES): Add avcall-i386-linux.s. * vacall/vacall-i386.c: Insert the appropriate stack cleanup before 'ret $4'. * vacall/Makefile.devel (precompiled): Depend on vacall-i386-macro.S. (vacall-i386-linux.s): New target. (vacall-i386-macro.S): Rewritten. * vacall/Makefile.in (SOURCE_FILES): Add vacall-i386-linux.s. * callback/vacall_r/Makefile.devel (precompiled): Depend on vacall-i386-macro.S. (vacall-i386-linux.s): New target. (vacall-i386-macro.S): Rewritten. * callback/vacall_r/Makefile.in (SOURCE_FILES): Add vacall-i386-linux.s. * avcall/avcall-i386-macro.S: Remove from version control. * vacall/vacall-i386-macro.S: Likewise. * callback/vacall_r/vacall-i386-macro.S: Likewise. 2017-02-11 Bruno Haible Prepare for regenerating .s and .S files with known compilers. This serves three purposes: 1. Being able to regenerate everything if avcall.h.in or vacall.h.in changes. 2. Allow safe stack unwinding across avcall and vacall invocations. 3. Allow distributing libavcall and libcallback as shared libraries. * README-hacking: Document the cross compilers. * cross-tools/cross.conf: New file. * cross-tools/cross-build.sh: New file. * cross-tools/cross.in: New file. * cross-tools/patches/*.patch: New files. * avcall/Makefile.devel (GCCFLAGS): Add -fno-omit-frame-pointer, -fPIC. (CROSS_TOOL): New variable. * vacall/Makefile.devel (GCCFLAGS): Add -fno-omit-frame-pointer. (CROSS_TOOL): New variable. * callback/vacall_r/Makefile.devel (GCCFLAGS): Add -fno-omit-frame-pointer, -fPIC. (CROSS_TOOL): New variable. 2017-01-29 Bruno Haible s390: Fix long long args. * avcall/avcall.h.in (__av_longlong): Align only on a 4-bytes boundary, not on an 8-bytes boundary. Fix condition for switching from register args to stack args. * vacall/vacall.h.in (__va_arg_leftadjusted, __va_arg_rightadjusted): Fix condition for switching from register args to stack args. (__va_arg_longlong): Use __va_arg. * callback/vacall_r/vacall_r.h.in (__va_arg_leftadjusted, __va_arg_rightadjusted): Fix condition for switching from register args to stack args. (__va_arg_longlong): Use __va_arg. * PLATFORMS, */PLATFORMS: List s390x-ibm-linux with "gcc -m31". 2017-01-29 Bruno Haible s390: Fix trampoline. * trampoline/trampoline.c [__s390__]: Fix is_tramp macro. 2017-01-29 Bruno Haible ia64: Fix struct args. * avcall/avcall.h.in (__av_struct): Tweak #if. * avcall/avcall-ia64.c: Fix comment. * vacall/vacall.h.in (__va_arg_struct): Change #if to match callback/vacall_r/vacall_r.h.in. * callback/call-used-registers.txt: Fix info about ia64. * callback/vacall_r/vacall_r.h.in (__va_arg_struct): Tweak #if. * callback/trampoline_r/trampoline.c [__ia64__]: Fix is_tramp macro. 2017-01-29 Bruno Haible powerpc64: Make trampoline work on AIX in a 64-bit build. * trampoline/tramp-powerpc64-aix.S: Add assembler pseudo-ops for AIX. * callback/trampoline_r/tramp-powerpc64-aix.S: Likewise. 2017-01-29 Bruno Haible arm: Comments. * avcall/avcall-arm.c: Add comments. * avcall/avcall.h.in: Fix comment. 2017-01-29 Bruno Haible arm: Make trampoline work on real ARM harware. The cache flushing code in cache-arm.c and cache-armel.c are for old Linux versions. Nowadays the best way is through the GCC builtin function __clear_cache (which makes the appropriate Linux system call). * trampoline/trampoline.c (alloc_trampoline) [__arm__]: Invoke GCC builtin function __clear_cache. Remove call to __TR_clear_cache. * callback/trampoline_r/trampoline.c (alloc_trampoline_r) [__arm__]: Likewise. * trampoline/cache-arm.[cs]: Remove files. * trampoline/cache-armel.[cs]: Remove files. * callback/trampoline_r/Makefile.maint (COPIED_FILES): Remove cache-arm*. * Makefile.in (COPIED_FILES): Remove callback/trampoline_r/cache-arm*. * trampoline/Makefile.devel (cache-armel.s): Remove target. * trampoline/configure.ac (CPU_OBJECTS): Leave empty for arm and armel. * trampoline/Makefile.in (cache-arm.o, cache-armel.o): Remove targets. (SOURCE_FILES): Remove cache-arm.[cs], cache-armel.[cs]. * callback/trampoline_r/Makefile.devel (cache-armel.s): Remove target. * callback/trampoline_r/configure.ac (CPU_OBJECTS): Leave empty for arm and armel. * callback/trampoline_r/Makefile.in (cache-arm.lo, cache-armel.lo): Remove targets. (SOURCE_FILES): Remove cache-arm.[cs], cache-armel.[cs]. * trampoline/PLATFORMS: Add two ARM platforms. 2017-01-29 Bruno Haible hppa: Fix struct returns. * avcall/avcall.h.in [__hppa__]: Don't set __AV_PCC_STRUCT_RETURN by default. * avcall/avcall-hppa.c: Fix comment. * vacall/vacall.h.in [__hppa__]: Don't set __VA_PCC_STRUCT_RETURN by default. * callback/vacall_r/vacall_r.h.in [__hppa__]: Don't set __VA_PCC_STRUCT_RETURN by default. 2017-01-29 Bruno Haible sparc64: Fix the passing of 'float' arguments. * vacall/vacall.h.in (va_arg_float): Expect the float in the upper half of the 8-bytes word. * callback/vacall_r/vacall_r.h.in (va_arg_float): Likewise. * PLATFORMS, */PLATFORMS: List sparc64-unknown-linux (gcc). 2017-01-29 Bruno Haible sparc64: Fix a compiler warning. * vacall/vacall.h.in (__va_arg_struct): Add a cast to pointer. * callback/vacall_r/vacall_r.h.in: Likewise. 2017-01-29 Bruno Haible mips64: Fix trampoline_r. * callback/trampoline_r/trampoline.c: Fix conditionals that involve __mips64__. * callback/trampoline_r/test1.c: Fix duplicate declaration of 'env' on mips64. 2017-01-29 Bruno Haible mipsn32, mips64: Fix for little-endian platforms. * vacall/vacall.h.in (__va_arg_adjusted): Use same conditional on _MIPSEB and _MIPSEL as in callback/vacall_r/vacall_r.h.in. * callback/vacall_r/vacall_r.h.in: Reorder parts of a #if condition. 2017-01-29 Bruno Haible mips: Fix for Linux with "gcc -mabi=32". * trampoline/tramp-mips.old.o: Renamed from trampoline/tramp-mips.o. * trampoline/tramp-mips.old.s: Renamed from trampoline/tramp-mips.s. * trampoline/tramp-mips.s: New file, based on trampoline/tramp-mipsn32.s. * trampoline/tramp-mips.o: New generated file. * trampoline/trampoline.c: For __mips__, use the same trampoline as for __mipsn32__. 2017-01-29 Bruno Haible mips: Fix for Linux with "gcc -mabi=32". * vacall/vacall.h.in (__va_arg_adjusted): Use same conditional on _MIPSEB as in callback/vacall_r/vacall_r.h.in. 2017-01-29 Bruno Haible mipsn32, mips64: Fix struct args and struct returns with newer GCC. * avcall/avcall.h.in: For mipsn32 and mips64 in gcc >= 3.4: 1. Don't set __AV_GCC_STRUCT_RETURN. 2. Use __AV_SGICC_STRUCT_ARGS. * vacall/vacall.h.in: For mipsn32 and mips64 in gcc >= 3.4: 1. Don't set __VA_GCC_STRUCT_RETURN. 2. Use __VA_SGICC_STRUCT_ARGS. * callback/vacall_r/vacall_r.h.in: Likewise. * PLATFORMS, */PLATFORMS: List mips-sgi-irix6.5 (gcc -mabi=n32). 2017-01-29 Bruno Haible x86_64: Fix bug with structure arguments larger than 16 bytes. * avcall/avcall.h.in (__av_struct): Pass structures > 16 bytes on the stack. * vacall/vacall.h.in (__va_arg_adjusted): Expect types > 16 bytes passed on the stack. * callback/vacall_r/vacall_r.h.in (__va_arg_adjusted): Likewise. 2017-01-29 Bruno Haible i386, x86_64, sparc, sparc64: Fix for the Sun Studio 11 compiler. When preprocessing a .S file, "cc -E" activates some other preprocessor than the usual C preprocessor. * avcall/Makefile.in (avcall-i386.s, avcall-sparc.s, avcall-sparc64.s, avcall-x86_64.s): Feed the input to the preprocessor through standard input. Postprocess to remove space after '.' and '@'. * vacall/Makefile.in (vacall-i386.s, vacall-sparc.s, vacall-sparc64.s, vacall-x86_64.s): Likewise. * trampoline/Makefile.in (cache-sparc.s, cache-sparc64.s): Likewise. * callback/vacall_r/Makefile.in (vacall-i386.s, vacall-sparc.s, vacall-sparc64.s, vacall-x86_64.s): Likewise. * callback/trampoline_r/Makefile.in (cache-sparc.s, cache-sparc64.s): Likewise. 2017-01-29 Bruno Haible List platforms on which libffcall is known to work. * PLATFORMS, */PLATFORMS: List i386-pc-solaris2.10 (gcc), mips-sgi-irix6.5 (cc -n32), sparc-unknown-linux (gcc), alphaev67-unknown-linux (gcc), powerpc-ibm-aix7.1.3.0 (xlc, gcc). 2017-01-29 Bruno Haible Don't violate ISO C rules. * avcall/avcall.h.in (__av_struct): Don't store an unaligned pointer in (LIST).aptr. 2017-01-29 Bruno Haible Don't make side-effects before overflow checking. * avcall/avcall.h.in: In most macro definitions, modify (LIST).aptr after checking that it will remain within range, not before. But continue to modify (LIST).aptr before storing the argument, as this makes it easier w.r.t. to the alignment. This produces some more duplicate expressions that the compiler will eliminate. But the code is clearer this way. 2017-01-29 Bruno Haible Add more floating-point, mixed-number, general-purpose args tests. * avcall/tests.c (f_f24, d_iiidi, d_fdi, ll_iiilli, D_Dfd, l_l0K, ..., l_l6K, ll_l2ll, ..., ll_l7ll, d_l2d, ... d_l7d): New tests. * vacall/tests.c: Likewise. * callback/tests.c: Likewise. 2017-01-29 Bruno Haible Enable the 'long long' tests in callback. * callback/configure.ac: Invoke AC_TYPE_LONG_LONG_INT. * callback/tests.c: Test HAVE_LONG_LONG_INT, not HAVE_LONG_LONG. * avcall/avcall.h.in: Fix comment. * vacall/vacall.h.in: Likewise. 2017-01-29 Bruno Haible devel: Make it easy to keep the autogenerated files up-to-date. * avcall/Makefile.devel: Make all *.[sS] files depend on this file. (precompiled): Comment out all dependencies. * vacall/Makefile.devel: Likewise. * callback/vacall_r/Makefile.devel: Likewise. * callback/vacall_r/Makefile.maint (copied-files): New target. * callback/trampoline_r/Makefile.maint (copied-files): New target. * autogen.sh: To copy the files, just invoke these targets. * Makefile.devel (precompiled): New target. 2017-01-29 Bruno Haible configuration: Support the AR configure variable. Needed for a 64-bit build on AIX. * vacall/configure.ac: Invoke gl_PROG_AR_RANLIB instead of AC_PROG_RANLIB. * trampoline/configure.ac: Likewise. * vacall/Makefile.in (AR): Use value determined by gl_PROG_AR_RANLIB. * trampoline/Makefile.in (AR): Likewise. * avcall/Makefile.in (AR): Use value determined by libtool. * callback/Makefile.in (AR): Likewise. * callback/vacall_r/Makefile.in (AR): Likewise. * callback/trampoline_r/Makefile.in (AR): Likewise. * avcall/configure.ac: Reorder (a no-op). * callback/configure.ac: Likewise. * callback/vacall_r/configure.ac: Likewise. * callback/trampoline_r/configure.ac: Likewise. 2017-01-29 Bruno Haible configuration: Simplification. * m4/general.m4 (CL_CONFIG_SUBDIRS): Remove macro. * configure.ac: Use AC_CONFIG_SUBDIRS instead of CL_CONFIG_SUBDIRS. * callback/configure.ac: Likewise. 2017-01-29 Bruno Haible Revert the addition of a powerpc64le port by Masanori Mitsugi (commit from 2015-08-23). 2017-01-29 Bruno Haible Add support for some Linux+PaX or SELinux kernels and for HardenedBSD. Reported - by Gerard Milmeister in https://sourceforge.net/p/clisp/bugs/356/, - by Pradeep Kumar in https://sourceforge.net/p/clisp/bugs/415/, - by Don Cohen in https://lists.gnu.org/archive/html/libffcall/2016-12/msg00002.html, - by Nelson Beebe. * m4/codeexec.m4 (FFCALL_CODEEXEC_PAX): New macro. * m4/general.m4 (FFCALL_COMMON_TRAMPOLINE): Require it. * trampoline/trampoline.c (EXECUTABLE_VIA_MALLOC_THEN_MPROTECT, EXECUTABLE_VIA_MMAP_THEN_MPROTECT, EXECUTABLE_VIA_MMAP_FILE_SHARED): New macros. (EXECUTABLE_VIA_MPROTECT, EXECUTABLE_VIA_MMAP_ANONYMOUS, EXECUTABLE_VIA_MMAP_DEVZERO): Remove macros. (MAP_FILE, MAP_VARIABLE): Define fallbacks. (pagesize): Define outside of functions. (alloc_trampoline): If EXECUTABLE_VIA_MMAP_FILE_SHARED is defined, create separate mappings of a file, for writing and for executing. If EXECUTABLE_VIA_MMAP_THEN_MPROTECT is defined, use mmap of an anonymous page, then mprotect. (free_trampoline): Convert back from executable address to writable address. * callback/trampoline_r/trampoline.c (EXECUTABLE_VIA_MALLOC_THEN_MPROTECT, EXECUTABLE_VIA_MMAP_THEN_MPROTECT, EXECUTABLE_VIA_MMAP_FILE_SHARED): New macros. (EXECUTABLE_VIA_MPROTECT, EXECUTABLE_VIA_MMAP_ANONYMOUS, EXECUTABLE_VIA_MMAP_DEVZERO): Remove macros. (MAP_FILE, MAP_VARIABLE): Define fallbacks. (pagesize): Define outside of functions. (alloc_trampoline_r): If EXECUTABLE_VIA_MMAP_FILE_SHARED is defined, create separate mappings of a file, for writing and for executing. If EXECUTABLE_VIA_MMAP_THEN_MPROTECT is defined, use mmap of an anonymous page, then mprotect. (free_trampoline_r, is_trampoline_r): Convert back from executable address to writable address. 2017-01-29 Bruno Haible Fix "Generic workaround against the ELF symbol resolving routine". * callback/vacall_r/elfhack-alpha.S: Put env in register $1, not $2. * callback/vacall_r/elfhack-alpha.sed: Make it find the correct line. * callback/trampoline_r/trampoline.c [__ia64__]: Fix code for BINFMT_ELF. [__mips64__]: Fix a typo in the trampoline for BINFMT_ELF. [__s390__]: Fix typo in is_tramp macro for BINFMT_ELF. 2017-01-10 Bruno Haible Update documentation. * README: Refer to the git repository, not to the last release. * DEPENDENCIES: New file. * Makefile.in (SOURCE_FILES): Add it. * README-hacking: New file. 2017-01-09 Bruno Haible Remove support for m68k/HP-UX, m68k/NeXT, apollo, mips/Ultrix. * trampoline/trampoline.c: Remove hpux, NeXT, apollo, ultrix conditionals. * trampoline/cache.c: Likewise. * callback/trampoline_r/trampoline.c: Likewise. 2017-01-09 Bruno Haible Remove support for m68k/AmigaOS. * avcall/Makefile.devel (avcall-m68k-amiga.s): Remove target. * avcall/avcall-m68k-amiga.c: Remove file. * avcall/avcall-m68k-amiga.s: Remove file. * avcall/Makefile.in (SOURCE_FILES): Remove them. * avcall/avcall.h.in: Remove AMIGA conditionals. * avcall/tests.c: Likewise. * trampoline/trampoline.c: Likewise. * callback/trampoline_r/trampoline.c: Likewise. 2017-01-09 Bruno Haible Remove support for the AIX 3 operating system. * avcall/Makefile.devel (avcall-powerpc-aix.s): Renamed from avcall-powerpc-aix.new.s. (avcall-powerpc-aix.old.s): Remove target. * avcall/avcall-powerpc-aix.s: Renamed from avcall/avcall-powerpc-aix.new.s. * avcall/avcall-powerpc-aix.old.s: Remove file. * avcall/Makefile.in (avcall-powerpc.s): No longer use avcall-powerpc-aix.old.s. (SOURCE_FILES): Add avcall-powerpc-aix.s. Remove avcall-powerpc-aix.new.s, avcall-powerpc-aix.old.s. * vacall/Makefile.devel (vacall-powerpc-aix.s): Renamed from vacall-powerpc-aix.new.s. (vacall-powerpc-aix.old.s): Remove target. * vacall/vacall-powerpc-aix.s: Renamed from vacall/vacall-powerpc-aix.new.s. * vacall/vacall-powerpc-aix.old.s: Remove file. * vacall/Makefile.in (vacall-powerpc.s): No longer use vacall-powerpc-aix.old.s. (SOURCE_FILES): Add vacall-powerpc-aix.s. Remove vacall-powerpc-aix.new.s, vacall-powerpc-aix.old.s. * callback/vacall_r/Makefile.devel (vacall-powerpc-aix.s): Renamed from vacall-powerpc-aix.new.s. (vacall-powerpc-aix.old.s): Remove target. * callback/vacall_r/vacall-powerpc-aix.s: Renamed from callback/vacall_r/vacall-powerpc-aix.new.s. * callback/vacall_r/vacall-powerpc-aix.old.s: Remove file. * callback/vacall_r/Makefile.in (vacall-powerpc.s): No longer use vacall-powerpc-aix.old.s. (SOURCE_FILES): Add vacall-powerpc-aix.s. Remove vacall-powerpc-aix.new.s, vacall-powerpc-aix.old.s. * trampoline/Makefile.devel (proto-powerpc-aix.s): Renamed from proto-powerpc-aix.new.s. (proto-powerpc-aix.old.s): Remove target. * trampoline/proto-powerpc-aix.s: Renamed from trampoline/proto-powerpc-aix.new.s. * trampoline/proto-powerpc-aix.old.s: Remove file. * trampoline/tramp-powerpc-aix.S: Renamed from trampoline/tramp-powerpc.new.S. * trampoline/tramp-powerpc.old.S: Remove file. * trampoline/tramp-powerpc64-aix.S: Renamed from trampoline/tramp-powerpc64.new.S. * trampoline/Makefile.in (tramp-powerpc.s): No longer use tramp-powerpc.old.S. (tramp-powerpc64.s): Update. (SOURCE_FILES): Add tramp-powerpc-aix.S, tramp-powerpc64-aix.S. Remove tramp-powerpc.old.S, tramp-powerpc.new.S tramp-powerpc64.new.S. * callback/trampoline_r/Makefile.devel (proto-powerpc-aix.s): Renamed from proto-powerpc-aix.new.s. (proto-powerpc-aix.old.s): Remove target. * callback/trampoline_r/proto-powerpc-aix.s: Renamed from callback/trampoline_r/proto-powerpc-aix.new.s. * callback/trampoline_r/proto-powerpc-aix.old.s: Remove file. * callback/trampoline_r/tramp-powerpc-aix.S: Renamed from callback/trampoline_r/tramp-powerpc.new.S. * callback/trampoline_r/tramp-powerpc.old.S: Remove file. * callback/trampoline_r/tramp-powerpc64-aix.S: Renamed from callback/trampoline_r/tramp-powerpc64.new.S. * callback/trampoline_r/Makefile.in (tramp-powerpc.s): No longer use tramp-powerpc.old.S. (tramp-powerpc64.s): Update. (SOURCE_FILES): Add tramp-powerpc-aix.S, tramp-powerpc64-aix.S. Remove tramp-powerpc.old.S, tramp-powerpc.new.S tramp-powerpc64.new.S. * PLATFORMS, **/PLATFORMS: Update. 2017-01-08 Bruno Haible Remove support for the m88k CPU. The only place where this CPU is still used is in the OpenBSD 5.8 luna88k port. The luna88k is museum hardware. They use the ELF binary format, through an inofficial port of the 10-years old binutils-2.17. * avcall/Makefile.devel (avcall-m88k.s, tests-m88k.s): Remove targets. * avcall/avcall-m88k.[cs]: Remove files. * avcall/Makefile.in (avcall-m88k.lo): Remove target. (SOURCE_FILES): Remove avcall-m88k.[cs]. * avcall/avcall.h.in: Remove defined(__m88k__) conditionals. * vacall/Makefile.devel (vacall-m88k.s, tests-m88k.s): Remove targets. * vacall/vacall-m88k.[cs]: Remove files. * vacall/Makefile.in (vacall-m88k.o): Remove target. (SOURCE_FILES): Remove vacall-m88k.[cs]. * vacall/vacall.h.in: Remove defined(__m88k__) conditionals. * trampoline/Makefile.devel (proto-m88k.s, tramp-m88k.s): Remove targets. * trampoline/proto-m88k.s: Remove file. * trampoline/tramp-m88k.s: Remove file. * trampoline/protexec.c: Remove __DOLPHIN__ conditionals. * trampoline/trampoline.c: Remove defined(__m88k__), HAVE_SYS_M88KBCS_H conditionals. * trampoline/trampoline.h.in: Don't test for m88k host. * trampoline/configure.ac: Don't test for m88k host. * callback/vacall_r/Makefile.devel (vacall-m88k.s): Remove target. * callback/vacall_r/vacall-m88k.s: Remove file. * callback/vacall_r/Makefile.in (vacall-m88k.lo): Remove target. (SOURCE_FILES): Remove vacall-m88k.[cs]. * callback/vacall_r/vacall_r.h.in: Remove defined(__m88k__) conditionals. * callback/trampoline_r/Makefile.devel (proto-m88k.s, tramp-m88k.s): Remove targets. * callback/trampoline_r/proto-m88k.s: Remove file. * callback/trampoline_r/tramp-m88k.s: Remove file. * callback/trampoline_r/proto.c: Remove defined(__m88k__) conditional. * callback/trampoline_r/trampoline.c: Remove defined(__m88k__), HAVE_SYS_M88KBCS_H conditionals. * callback/trampoline_r/trampoline_r.h.in: Don't test for m88k host. * callback/trampoline_r/test1.c: Remove defined(__m88k__) conditionals. * callback/trampoline_r/configure.ac: Don't test for m88k host. * callback/call-used-registers.txt: Update. * callback/elf-hack.txt: Update. * common/reg-struct-return.txt: Update. * PLATFORMS, **/PLATFORMS: Update. * README: Update. * autogen.sh: Don't copy vacall-m88k.c. * Makefile.in (COPIED_FILES): Remove callback/vacall_r/vacall-m88k.c. 2017-01-08 Bruno Haible Fix last commit. * common/asm-x86_64.sh: Escape '&' characters in replacement string. 2017-01-03 Bruno Haible Add support for the Mac OS X 10.5 / x86_64 platform. * common/asm-x86_64.sh: Disable the frame info for exception handlers on Mac OS X. * avcall/avcall-x86_64-macro.S: Regenerated. * vacall/vacall-x86_64-macro.S: Likewise. * callback/vacall_r/vacall-x86_64-macro.S: Likewise. * m4/mmap.m4 (FFCALL_MMAP): Renamed from CL_MMAP. Remove AC_BEFORE invocations. Test mmap without MAP_FIXED only. Don't define HAVE_MMAP_DEVZERO_SUN4_29. * m4/mprotect.m4 (FFCALL_MPROTECT): Renamed from CL_MPROTECT. Update dependency. * m4/getpagesize.m4 (CL_GETPAGESIZE): Remove AC_BEFORE invocations. * m4/general.m4 (FFCALL_COMMON_TRAMPOLINE): Update dependencies. 2017-01-02 Bruno Haible Ensure the alignment of trampolines when we use the free-list approach. * trampoline/trampoline.c (alloc_trampoline): Consider TRAMP_ALIGN when allocating a page of trampolines. * callback/trampoline_r/trampoline.c (alloc_trampoline_r): Likewise. 2017-01-02 Bruno Haible Fix a build failure on Solaris/SPARC with newer gcc. * trampoline/trampoline.c: Remove 'extern inline' declarations. * callback/trampoline_r/trampoline.c: Likewise. For SPARC, declare __TR_clear_cache_2, not __TR_clear_cache_4. * PLATFORMS: Update. * avcall/PLATFORMS: Likewise. * vacall/PLATFORMS: Likewise. * trampoline/PLATFORMS: Likewise. * callback/PLATFORMS: Likewise. 2017-01-02 Bruno Haible Add support for the Solaris/x86 platform with cc. * common/asm-i386.sh: Remove the whitespace in the second argument of INSN2MOVX. * vacall/vacall-i386-macro.S: Regenerated. * callback/vacall_r/vacall-i386-macro.S: Likewise. * avcall/Makefile.in (avcall-i386.s): Eliminate ##. * vacall/Makefile.in (vacall-i386.s): Likewise. * callback/vacall_r/Makefile.in (vacall-i386.s): Likewise. * PLATFORMS: Update. * avcall/PLATFORMS: Likewise. * vacall/PLATFORMS: Likewise. * trampoline/PLATFORMS: Likewise. * callback/PLATFORMS: Likewise. 2017-01-02 Bruno Haible Add support for the Solaris/x86_64 platform. * common/asm-x86_64.sh: Introduce ALIGN macro. Disable the frame info for exception handlers on Solaris. * common/asm-x86_64.h (ALIGN): New macro. (FUNEND, EH_FRAME_SECTION): Define differently for Solaris. * vacall/Makefile.devel (vacall-x86_64-macro.S): Don't use a #define that assumes an ANSI C preprocessor. * avcall/avcall-x86_64-macro.S: Regenerated. * vacall/vacall-x86_64-macro.S: Likewise. * callback/vacall_r/vacall-x86_64-macro.S: Likewise. * avcall/Makefile.in (avcall-x86_64.s): Eliminate ##. * vacall/Makefile.in (vacall-x86_64.s): Likewise. * callback/vacall_r/Makefile.in (vacall-x86_64.s): Likewise. * PLATFORMS: Update. * avcall/PLATFORMS: Likewise. * vacall/PLATFORMS: Likewise. * trampoline/PLATFORMS: Likewise. * callback/PLATFORMS: Likewise. 2017-01-01 Bruno Haible Assume ANSI C in the documentation. * vacall/vacall.{3,html}: Use ANSI C declaration syntax. Stop mentioning . Reference stdarg(3). * trampoline/trampoline.{3,html}: Reference stdarg(3). * callback/callback.{3,html}: Use ANSI C declaration syntax. Stop mentioning . * callback/trampoline_r/trampoline_r.{3,html}: Reference stdarg(3). 2017-01-01 Bruno Haible Support the CPPFLAGS configure variable. * avcall/Makefile.in (CPPFLAGS): New variable. Use it in all .c file compilations. * vacall/Makefile.in (CPPFLAGS): New variable. Use it in all .c file compilations. * trampoline/Makefile.in (CPPFLAGS): New variable. Use it in all .c file compilations. * callback/Makefile.in (CPPFLAGS): New variable. Use it in all .c file compilations. * callback/vacall_r/Makefile.in (CPPFLAGS): New variable. Use it in all .c file compilations. * callback/trampoline_r/Makefile.in (CPPFLAGS): New variable. Use it in all .c file compilations. 2017-01-01 Bruno Haible Add option --disable-elf-hack to disable the ELF workaround. * m4/binfmt-elf.m4 (FFCALL_BINFMT_ELF_OPTION): New macro. (FFCALL_BINFMT_ELF): Require it. Set BINFMT_ELF to false and define BINFMT_ELF to 0 if --disable-elf-hack was specified. * configure.ac: Invoke FFCALL_BINFMT_ELF_OPTION. * callback/configure.ac: Likewise. * callback/elf-hack.txt: Explain how to use --disable-elf-hack for testing. 2017-01-01 Bruno Haible Generic workaround against the ELF symbol resolving routine. Reported for x86_64 by Andrey Kutejko at https://savannah.gnu.org/bugs/?32466 . * m4/binfmt-elf.m4: New file. * Makefile.in (SOURCE_FILES): Add it. * callback/elf-hack.txt: New file. * callback/test1.c: New file. * callback/Makefile.in (SOURCE_FILES): Add both. (test1.o, test1): New targets. (check): Also run test1. (MOSTLYCLEANFILES): Add test1.o, test1. * callback/trampoline_r/configure.ac: Invoke FFCALL_BINFMT_ELF. * callback/trampoline_r/Makefile.devel: Update the paths to the cross assemblers. * callback/trampoline_r/tramp-*.s: Add a 'trampelf' function. * callback/trampoline_r/tramp-*.S: Likewise. * callback/trampoline_r/tramp-*.o: Regenerated. * callback/trampoline_r/trampoline.c: Implement alternate trampolines on platforms with BINFMT_ELF. * callback/trampoline_r/test1.c: Skip the test if BINFMT_ELF. * callback/vacall_r/configure.ac: Invoke FFCALL_BINFMT_ELF. * callback/vacall_r/elfhack-alpha.S: New file. * callback/vacall_r/elfhack-alpha.sed: New file. * callback/vacall_r/elfhack-arm.S: New file. * callback/vacall_r/elfhack-arm.sed: New file. * callback/vacall_r/elfhack-i386.S: New file. * callback/vacall_r/elfhack-i386.sed: New file. * callback/vacall_r/elfhack-m68k.S: New file. * callback/vacall_r/elfhack-m68k.sed: New file. * callback/vacall_r/elfhack-mips.S: New file. * callback/vacall_r/elfhack-mips.sed: New file. * callback/vacall_r/elfhack-mips64.S: New file. * callback/vacall_r/elfhack-mips64.sed: New file. * callback/vacall_r/elfhack-powerpc.S: New file. * callback/vacall_r/elfhack-powerpc.sed: New file. * callback/vacall_r/elfhack-powerpc64le.S: New file. * callback/vacall_r/elfhack-powerpc64le.sed: New file. * callback/vacall_r/elfhack-s390.S: New file. * callback/vacall_r/elfhack-s390.sed: New file. * callback/vacall_r/elfhack-x86_64.S: New file. * callback/vacall_r/elfhack-x86_64.sed: New file. * callback/vacall_r/Makefile.devel (vacall-i386-macro.S): Insert an include of elfhack-i386.S. (vacall-m68k.mit.S, vacall-m68k-netbsd-macro.S): Insert an include of elfhack-m68k.S. (vacall-mips-macro.S, vacall-mipsn32-macro.S): Insert an include of elfhack-mips.S. (vacall-mips64-macro.S): Insert an include of elfhack-mips64.S. (vacall-alpha-macro.S): Renamed from vacall-alpha.s. Insert an include of elfhack-alpha.S. (vacall-arm-macro.S): Insert an include of elfhack-arm.S. (vacall-armel-macro.S): Renamed from vacall-armel.s. Insert an include of asm-arm.h and elfhack-arm.S. (vacall-powerpc-linux-macro.S, vacall-powerpc-netbsd-macro.S): New targets. (vacall-powerpc-sysv4-macro.S): Renamed from vacall-powerpc-sysv4.s. Insert an include of elfhack-powerpc.S. (vacall-powerpc64le-macro.S): Renamed from vacall-powerpc64le.s. Insert an include of elfhack-powerpc64.S. (vacall-x86_64-macro.S): Insert an include of elfhack-x86_64.S. (vacall-s390-macro.S): New target. * callback/vacall_r/vacall-alpha-macro.S: Renamed from callback/vacall_r/vacall-alpha.s. Include elfhack-alpha.S. * callback/vacall_r/vacall-arm-macro.S: Include elfhack-arm.S. * callback/vacall_r/vacall-armel-macro.S: Renamed from callback/vacall_r/vacall-armel.s. Include asm-arm.h and elfhack-arm.S. * callback/vacall_r/vacall-i386-macro.S: Include elfhack-i386.S. * callback/vacall_r/vacall-m68k.mit.S: Include elfhack-m68k.S. * callback/vacall_r/vacall-m68k-netbsd-macro.S: Likewise. * callback/vacall_r/vacall-mips-macro.S: Include elfhack-mips.S. * callback/vacall_r/vacall-mipsn32-macro.S: Likewise. * callback/vacall_r/vacall-mips64-macro.S: Include elfhack-mips64.S. * callback/vacall_r/vacall-powerpc-linux-macro.S: Generated, to include elfhack-powerpc.S. * callback/vacall_r/vacall-powerpc-netbsd-macro.S: Generated, to include elfhack-powerpc.S. * callback/vacall_r/vacall-powerpc-sysv4-macro.S: Renamed from callback/vacall_r/vacall-powerpc-sysv4.s. Include elfhack-powerpc.S. * callback/vacall_r/vacall-powerpc64le-macro.S: Renamed from callback/vacall_r/vacall-powerpc64le.s. Include elfhack-powerpc64le.S. * callback/vacall_r/vacall-s390-linux.s: Renamed from callback/vacall_r/vacall-s390.s. * callback/vacall_r/vacall-s390-macro.S: Generated, to include elfhack-s390.S. * callback/vacall_r/vacall-x86_64-macro.S: Include elfhack-x86_64.S. * callback/vacall_r/Makefile.in (ASPFLAGS): Conditionally define BINFMT_ELF. (vacall-i386.s, vacall-m68k.s, vacall-mips.s, vacall-mipsn32.s, vacall-mips64.s): Add a -I option for elfhack-*.S. (vacall-alpha.s): New target. (vacall-alpha.lo): Depend on it. (vacall-arm.s): Add a -I option for elfhack-*.S. (vacall-armel.s): New target. (vacall-armel.lo): Depend on it. (vacall-powerpc.s): For the linux, netbsd, sysv4 syntaxes, use the corresponding *.S file. (vacall-powerpc64le.s): New target. (vacall-powerpc64le.lo): Depend on it. (vacall-x86_64.s): Add a -I option for elfhack-*.S. (vacall-s390.s): New target. (vacall-s390.lo): Depend on it. (clean): Remove also vacall-alpha.s, vacall-armel.s, vacall-powerpc64le.s, vacall-s390.s. (SOURCE_FILES): Update for the renamed files. Add vacall-powerpc-linux-macro.S, vacall-powerpc-netbsd-macro.S, vacall-s390-macro.S, elfhack-*.S, elfhack-*.sed. * README: Clarify on which platforms the problem with the ELF symbol resolving routine still exists. 2016-12-31 Bruno Haible Update doc about available registers. * callback/call-used-registers.txt: Clarify call-used registers versus registers available for use in trampolines. * trampoline/tramp-powerpc-old.s: Mark as obsolete. * callback/trampoline_r/tramp-powerpc-old.s: Likewise. * trampoline/tramp-x86_64.s: Fix comment about available registers. * callback/trampoline_r/tramp-x86_64.s: Likewise. * trampoline/tramp-powerpc-sysv4.s: Likewise. * callback/trampoline_r/tramp-powerpc-sysv4.s: Likewise. * trampoline/tramp-*.s: Update comment about available registers. * trampoline/tramp-*.S: Likewise. * callback/trampoline_r/tramp-*.s: Likewise. * callback/trampoline_r/tramp-*.S: Likewise. 2016-12-31 Bruno Haible Simplify powerpc compilation rules. * avcall/Makefile.in (avcall-powerpc.s): New rule. (avcall-powerpc.lo): Depend on it. Remove libtool specific workaround. (clean): Remove also avcall-powerpc.s. * vacall/Makefile.in (vacall-powerpc.s): New rule. (vacall-powerpc.o): Depend on it. (clean): Remove also vacall-powerpc.s. * callback/vacall_r/Makefile.in (vacall-powerpc.s): New rule. (vacall-powerpc.lo): Depend on it. Remove libtool specific workaround. (clean): Remove also vacall-powerpc.s. 2016-12-29 Bruno Haible Revert "Pass the environment argument through the stack, not in a register." commit from 1999-06-01. * vacall/vacall-i386.c: Revert: Allow use of registers %esi, %edi, %ebp. Expect env in %ecx, not as first stack argument. * vacall/vacall-i386-macro.S: Revert. * callback/vacall_r/vacall-i386-macro.S: Revert. * callback/trampoline_r/proto.c (tramp2): Remove function. * callback/trampoline_r/proto-i386.s: Revert accordingly. * callback/trampoline_r/tramp-i386.s: Put the data in %ecx, not as first stack argument. * callback/trampoline_r/trampoline.c [i386]: Revert to simple trampoline. * callback/trampoline_r/test1.c (f) [i386]: Expect env in %ecx, not as first stack argument. 2016-12-29 Bruno Haible Revert "Never build shared libraries: --enable-shared has no effect." commit from 2012-04-24. * README: Revert, but still recommend --disable-shared. * avcall/Makefile.in (libavcall.la): Don't pass -static to libtool. * callback/Makefile.in (libcallback.la): Likewise. * callback/vacall_r/Makefile.in (libvacall.la): Likewise. * callback/trampoline_r/Makefile.in (libtrampoline.la): Likewise. 2016-12-30 Bruno Haible Rename text files. * common/reg-struct-return.txt: Renamed from common/reg-struct-return. * callback/call-used-registers.txt: Renamed from callback/call-used-registers. * trampoline/PORTING: Update. * callback/README: Likewise. 2016-12-29 Bruno Haible Update documentation about register usage. * callback/call-used-registers: Update regarding powerpc/NetBSD. 2016-12-29 Bruno Haible Remove support for the 'convex' CPU. * avcall/Makefile.devel (avcall-convex.s, tests-convex.s): Remove targets. * avcall/avcall-convex.[cs]: Remove files. * avcall/Makefile.in (avcall-convex.lo): Remove target. (SOURCE_FILES): Remove avcall-convex.[cs]. * avcall/avcall.h.in: Remove defined(__convex__) conditionals. * vacall/Makefile.devel (vacall-convex.s, tests-convex.s): Remove targets. * vacall/vacall-convex.[cs]: Remove files. * vacall/Makefile.in (vacall-convex.o): Remove target. (SOURCE_FILES): Remove vacall-convex.[cs]. * vacall/vacall.h.in: Remove defined(__convex__) conditionals. * trampoline/Makefile.devel (proto-convex.s, cache-convex.s, tramp-convex.s): Remove targets. * trampoline/proto-convex.s: Remove file. * trampoline/cache-convex.[cs]: Remove files. * trampoline/tramp-convex.s: Remove file. * trampoline/Makefile.in (cache-convex.o): Remove target. (SOURCE_FILES): Remove cache-convex.[cs]. * trampoline/cache.c: Remove defined(__convex__) conditionals. * trampoline/protexec.c: Remove defined(__convex__) conditionals. * trampoline/trampoline.c: Remove defined(__convex__) conditionals. * trampoline/trampoline.h.in: Don't test for convex host. * trampoline/configure.ac: Don't test for convex host. * callback/vacall_r/Makefile.devel (vacall-convex.s): Remove target. * callback/vacall_r/vacall-convex.s: Remove file. * callback/vacall_r/Makefile.in (vacall-convex.lo): Remove target. (SOURCE_FILES): Remove vacall-convex.[cs]. * callback/vacall_r/vacall_r.h.in: Remove defined(__convex__) conditionals. * callback/trampoline_r/Makefile.devel (proto-convex.s, cache-convex.s, tramp-convex.s): Remove targets. * callback/trampoline_r/proto-convex.s: Remove file. * callback/trampoline_r/tramp-convex.s: Remove file. * callback/trampoline_r/Makefile.in (cache-convex.lo): Remove target. (SOURCE_FILES): Remove cache-convex.[cs]. * callback/trampoline_r/proto.c: Remove defined(__convex__) conditionals. * callback/trampoline_r/trampoline.c: Remove defined(__convex__) conditionals. * callback/trampoline_r/trampoline_r.h.in: Don't test for convex host. * callback/trampoline_r/test1.c: Remove defined(__convex__) conditionals. * callback/trampoline_r/configure.ac: Don't test for convex host. * callback/call-used-registers: Update. * common/reg-struct-return: Update. * PLATFORMS, **/PLATFORMS: Update. * autogen.sh: Don't copy vacall-convex.c, cache-convex.[cs]. * Makefile.in (COPIED_FILES): Remove callback/vacall_r/vacall-convex.c, callback/trampoline_r/cache-convex.[cs]. 2016-12-29 Bruno Haible Fix collision between different copies of __structcpy. Reported in https://savannah.gnu.org/bugs/?23474 . * avcall/avcall-structcpy.c: New file. * avcall/Makefile.in (avcall-structcpy.lo): Renamed from structcpy.lo. (SOURCE_FILES): Add avcall-structcpy.c. * avcall/Makefile.mingw32 (avcall-structcpy.o): Renamed from structcpy.o. * avcall/Makefile.msvc (avcall-structcpy.obj): Renamed from structcpy.obj. * avcall/avcall.h.in: Declare and use avcall_structcpy instead of __structcpy. * avcall/README: Update. * vacall/vacall-structcpy.c: New file. * vacall/Makefile.in (vacall-structcpy.o): Renamed from structcpy.o. (SOURCE_FILES): Add vacall-structcpy.c. * vacall/Makefile.mingw32 (vacall-structcpy.o): Renamed from structcpy.o. * vacall/Makefile.msvc (vacall-structcpy.obj): Renamed from structcpy.obj. * vacall/vacall.h.in: Declare and use vacall_structcpy instead of __structcpy. * callback/vacall_r/vacall-structcpy.c: New file. * callback/vacall_r/Makefile.in (vacall-structcpy.lo): Renamed from structcpy.lo. (SOURCE_FILES): Add vacall-structcpy.c. * callback/vacall_r/Makefile.mingw32 (vacall-structcpy.o): Renamed from structcpy.o. * callback/vacall_r/Makefile.msvc (vacall-structcpy.obj): Renamed from structcpy.obj. * callback/vacall_r/vacall_r.h.in: Declare and use callback_structcpy instead of __structcpy. * callback/Makefile.in (libcallback.la): Use vacall-structcpy.lo, not structcpy.lo. * callback/Makefile.mingw32 (OBJECTS): Use vacall-structcpy.o, not structcpy.o. * callback/Makefile.msvc (OBJECTS): Use vacall-structcpy.obj, not structcpy.obj. (vacall_r/vacall-structcpy.obj): Renamed from vacall_r/structcpy.obj. (clean): Update accordingly. 2016-12-29 Bruno Haible Put duplicated files under version control only once, part 2. * vacall/vacall-powerpc.c: Update with the 'REENTRANT' code from callback/vacall_r/. * vacall/vacall-s390.c: Likewise. * callback/vacall_r/vacall-alpha.c: Remove file. * callback/vacall_r/vacall-arm.c: Remove file. * callback/vacall_r/vacall-armel.c: Remove file. * callback/vacall_r/vacall-convex.c: Remove file. * callback/vacall_r/vacall-hppa.c: Remove file. * callback/vacall_r/vacall-i386.c: Remove file. * callback/vacall_r/vacall-ia64.c: Remove file. * callback/vacall_r/vacall-m68k.c: Remove file. * callback/vacall_r/vacall-m88k.c: Remove file. * callback/vacall_r/vacall-mips.c: Remove file. * callback/vacall_r/vacall-mipsn32.c: Remove file. * callback/vacall_r/vacall-mips64.c: Remove file. * callback/vacall_r/vacall-powerpc.c: Remove file. * callback/vacall_r/vacall-powerpc64.c: Remove file. * callback/vacall_r/vacall-powerpc64le.c: Remove file. * callback/vacall_r/vacall-s390.c: Remove file. * callback/vacall_r/vacall-sparc.c: Remove file. * callback/vacall_r/vacall-sparc64.c: Remove file. * callback/vacall_r/vacall-x86_64.c: Remove file. * autogen.sh: Copy these files from vacall/. * Makefile.in (COPIED_FILES): Add these files. 2016-12-28 Bruno Haible More robust quoting in Autoconf macros. * configure.ac: Add brackets around Autoconf macro arguments. * avcall/configure.ac: Likewise. * vacall/configure.ac: Likewise. * trampoline/configure.ac: Likewise. * callback/configure.ac: Likewise. * callback/vacall_r/configure.ac: Likewise. * callback/trampoline_r/configure.ac: Likewise. * m4/as-underscore.m4: Likewise. * m4/cc-gcc.m4: Likewise. * m4/codeexec.m4: Likewise. * m4/general.m4: Likewise. * m4/getpagesize.m4: Likewise. * m4/ireg.m4: Likewise. * m4/ln.m4: Likewise. * m4/mach-vm.m4: Likewise. * m4/mmap.m4: Likewise. * m4/mprotect.m4: Likewise. * m4/pccstruct.m4: Likewise. * m4/proto.m4: Likewise. * m4/shm.m4: Likewise. * m4/smallstruct.m4: Likewise. 2016-12-28 Bruno Haible Update list of contributors. * README: List all contributors. 2016-12-28 Bruno Haible Add support for 64-bit mode (x86_64) on Mac OS X. * common/asm-x86_64.sh: New file. * common/asm-x86_64.h: New file. * Makefile.in (SOURCE_FILES): Add them. * avcall/avcall-x86_64-linux.s: Renamed from avcall/avcall-x86_64.s. * avcall/Makefile.devel (avcall-x86_64-linux.s): Renamed from avcall-x86_64.s. (avcall-x86_64-macro.S): New target. * avcall/avcall-x86_64-macro.S: New file, generated through avcall/Makefile.devel. * avcall/Makefile.in (avcall-x86_64.s): New target. (avcall-x86_64.lo): Use it, in the build dir. (clean): Remove it. (SOURCE_FILES): Add avcall-x86_64-linux.s, avcall-x86_64-macro.S. Remove avcall-x86_64.s. * vacall/vacall-x86_64-linux.s: Renamed from vacall/vacall-x86_64.s. * vacall/Makefile.devel (vacall-x86_64-linux.s): Renamed from vacall-x86_64.s. (vacall-x86_64-macro.S): New target. * vacall/vacall-x86_64-macro.S: New file, generated through vacall/Makefile.devel. * vacall/Makefile.in (vacall-x86_64.s): New target. (vacall-x86_64.o): Use it, in the build dir. (clean): Remove it. (SOURCE_FILES): Add vacall-x86_64-linux.s, vacall-x86_64-macro.S. Remove vacall-x86_64.s. * callback/vacall_r/vacall-x86_64-linux.s: Renamed from callback/vacall_r/vacall-x86_64.s. * callback/vacall_r/Makefile.devel (vacall-x86_64-linux.s): Renamed from vacall-x86_64.s. (vacall-x86_64-macro.S): New target. * callback/vacall_r/vacall-x86_64-macro.S: New file, generated through callback/vacall_r/Makefile.devel. * callback/vacall_r/Makefile.in (vacall-x86_64.s): New target. (vacall-x86_64.lo): Use it, in the build dir. (clean): Remove it. (SOURCE_FILES): Add vacall-x86_64-linux.s, vacall-x86_64-macro.S. Remove vacall-x86_64.s. * callback/trampoline_r/test1.c (CHECK_ENV_REGISTER): New macro. (f, main): Use it instead of __GNUC__. * NEWS: Mention the change. 2016-12-28 Bruno Haible Rename the asm* files. * common/asm-arm.h: Renamed from common/asmarm.h. * common/asm-arm.sh: Renamed from common/asmarm.sh. * common/asm-i386.hh: Renamed from common/asmi386.hh. * common/asm-i386.sh: Renamed from common/asmi386.sh. * common/asm-m68k.h: Renamed from common/asmm68k.h. * common/asm-m68k.sh: Renamed from common/asmm68k.sh. * common/asm-mips.h: Renamed from common/asmmips.h. * common/asm-mips.sh: Renamed from common/asmmips.sh. * common/asm-sparc.h: Renamed from common/asmsparc.h. * common/asm-sparc.sh: Renamed from common/asmsparc.sh. * common/asm-sparc64.sh: Renamed from common/asmsparc64.sh. * **/Makefile.devel, **/*.S: Update. * Makefile.maint (common/asm-i386.h): Renamed from common/asmi386.h. * Makefile.in (SOURCE_FILES, GENERATED_FILES): Update. 2016-12-27 Bruno Haible Add the real source of asmi386.h. * common/asmi386.hh: New file, from GNU clisp. * common/asmi386.h: Remove file. * Makefile.maint (common/asmi386.h): New target. Rule copied from GNU clisp's Makefile.devel. (all): Depend on it. * Makefile.in (SOURCE_FILES): Add common/asmi386.hh. Remove common/asmi386.h. (GENERATED_FILES): Add common/asmi386.h. 2016-12-27 Bruno Haible Modernize Cygwin detection. * common/asmi386.h: Test __CYGWIN__, not __CYGWIN32__. From Ken Brown on 2015-03-05. 2016-12-27 Bruno Haible Create tarballs through an Automake-like "make dist" command. * Makefile.in (SOURCE_FILES, LIBTOOL_IMPORTED_FILES, GNULIB_IMPORTED_FILES, IMPORTED_FILES, COPIED_FILES, GENERATED_FILES, DISTFILES): New macros. (distdir): New target. (PACKAGE, VERSION, TAR, GZIP): New macros. (dist): New target. * avcall/Makefile.in (SOURCE_FILES, GENERATED_FILES, DISTFILES): New macros. (distdir): New target. * vacall/Makefile.in (SOURCE_FILES, GENERATED_FILES, DISTFILES): New macros. (distdir): New target. * trampoline/Makefile.in (SOURCE_FILES, GENERATED_FILES, DISTFILES): New macros. (distdir): New target. * callback/Makefile.in (SOURCE_FILES, GENERATED_FILES, DISTFILES): New macros. (distdir): New target. * callback/vacall_r/Makefile.in (SOURCE_FILES, GENERATED_FILES, DISTFILES): New macros. (distdir): New target. * callback/trampoline_r/Makefile.in (SOURCE_FILES, GENERATED_FILES, DISTFILES): New macros. (distdir): New target. * configure.ac (extrasub): Replace all occurrences of @subdir@. * callback/configure.ac (extrasub): Likewise. 2016-12-27 Bruno Haible Bump version number. * VERSION: Set to 0x010D (= 1.13). 2016-12-27 Bruno Haible Rename each configure.in to configure.ac. * configure.ac: Renamed from configure.in. * avcall/configure.ac: Renamed from avcall/configure.in. * vacall/configure.ac: Renamed from vacall/configure.in. * trampoline/configure.ac: Renamed from trampoline/configure.in. * callback/configure.ac: Renamed from callback/configure.in. * callback/vacall_r/configure.ac: Renamed from callback/vacall_r/configure.in. * callback/trampoline_r/configure.ac: Renamed from callback/trampoline_r/configure.in. * Makefile.maint (ALL_CONFIGURE_AC): Renamed from ALL_CONFIGURE_IN. (aclocal.m4, configure, %/configure, %/config.h.in): Update. * README, */README: Update. 2016-12-27 Bruno Haible Modernize quoting. * NEWS: Quote ‘like this’, not `like this'. * README.os2: Likewise. * common/uniq-u.c: Likewise. * avcall/DOC: Likewise. * avcall/avcall-i386.c: Likewise. * avcall/avcall-sparc.c: Likewise. * avcall/avcall-sparc64.c: Likewise. * avcall/avcall.h.in: Likewise. * avcall/avcall.html: Likewise. * vacall/vacall.h.in: Likewise. * callback/trampoline_r/trampoline.c: Likewise. * callback/trampoline_r/trampoline_r.h.in: Likewise. * trampoline/PORTING: Likewise. * trampoline/trampoline.c: Likewise. * trampoline/trampoline.h.in: Likewise. * callback/vacall_r/vacall_r.h.in: Likewise. * configurations/README: Likewise. * avcall/Makefile.maint (ROFF_MAN): Produce UTF-8 output instead of ASCII output. * vacall/Makefile.maint (ROFF_MAN): Likewise. * trampoline/Makefile.maint (ROFF_MAN): Likewise. * callback/Makefile.maint (ROFF_MAN): Likewise. * callback/trampoline_r/Makefile.maint (ROFF_MAN): Likewise. 2016-12-27 Bruno Haible Avoid unnecessary recursion in "make maintainer-clean". * Makefile.in (DISTCLEANFILES): New variable. (distclean, maintainer-clean): Use it. * callback/Makefile.in (DISTCLEANFILES): New variable. (distclean): Use it. Don't depend on 'clean'. Instead, use MOSTLYCLEANDIRS, MOSTLYCLEANFILES. (maintainer-clean): Don't depend on 'distclean'. Instead, use MOSTLYCLEANDIRS, MOSTLYCLEANFILES, DISTCLEANFILES. (distclean-subdirs, maintainerclean-subdirs): Inline and remove targets. 2016-12-27 Bruno Haible Make "make mostlyclean" act like "make clean". * callback/Makefile.in (MOSTLYCLEANDIRS, MOSTLYCLEANFILES): New variables. (mostlyclean, clean): Use them. (clean-subdirs): Inline and remove target. 2016-12-27 Bruno Haible Fix Makefile rules for powerpc64, from 2006-04-27. * trampoline/Makefile.in (clean): Also remove tramp-powerpc64.s. * callback/trampoline_r/Makefile.in (clean): Likewise. 2016-12-26 Bruno Haible Reorder Makefile targets. * trampoline/Makefile.in: Reorder. * callback/trampoline_r/Makefile.in: Reorder. 2016-12-26 Bruno Haible Fix Makefile rules for powerpc64le, from 2015-08-23. * trampoline/Makefile.devel (CPP): New variable. (tramp-powerpc64le.o, tramp-powerpc64le.s): New targets. * trampoline/Makefile.in (tramp-powerpc64le.o, tramp-powerpc64le.s): Remove targets. * callback/trampoline_r/Makefile.devel (CPP): New variable. (tramp-powerpc64le.o, tramp-powerpc64le.s): New targets. * callback/trampoline_r/Makefile.in (tramp-powerpc64le.lo, tramp-powerpc64le.s): Remove targets. 2016-12-26 Bruno Haible Fix Makefile rules for s390, from 2002-03-24. * trampoline/Makefile.devel (tramp-s390.o): New target. * trampoline/Makefile.in (tramp-s390.o): Remove target. * callback/trampoline_r/Makefile.devel (tramp-s390.o): New target. * callback/trampoline_r/Makefile.in (tramp-s390.lo): Remove target. 2016-12-26 Bruno Haible Fix "make distclean". * avcall/Makefile.in (distclean): Also remove config.h. * callback/Makefile.in (distclean): Likewise. 2016-12-26 Bruno Haible Make it possible to build in $(srcdir) on case-insensitive file systems. * avcall/avcall-${cpu}-macro.S: Renamed from avcall/avcall-${cpu}.S. * avcall/Makefile.devel: Update accordingly. * avcall/Makefile.in: Likewise. * vacall/vacall-${cpu}-macro.S: Renamed from vacall/vacall-${cpu}.S. * vacall/Makefile.devel: Update accordingly. * vacall/Makefile.in: Likewise. * trampoline/cache-sparc-macro.S: Renamed from trampoline/cache-sparc.S. * trampoline/Makefile.devel: Update accordingly. * trampoline/Makefile.in: Update accordingly. * callback/vacall_r/vacall-${cpu}-macro.S: Renamed from callback/vacall_r/vacall-${cpu}.S. * callback/vacall_r/Makefile.devel: Update accordingly. * callback/vacall_r/Makefile.in: Likewise. * callback/trampoline_r/cache-sparc-macro.S: Renamed from callback/trampoline_r/cache-sparc.S. * callback/trampoline_r/Makefile.devel: Update accordingly. * callback/trampoline_r/Makefile.in: Update accordingly. 2016-12-26 Bruno Haible Simplify armel build rule. * avcall/Makefile.devel (avcall-armel.s): Renamed from avcall-armel.S. Simplify. * avcall/Makefile.in (avcall-armel.lo): Use $(srcdir)/avcall-armel.s. (avcall-armel.s): Remove target. 2016-12-26 Bruno Haible Put duplicated files under version control only once. * autogen.sh: Copy some files from trampoline/ to callback/trampoline_r. * common/asm*.sh: Moved here from avcall/, vacall/, callback/vacall_r. * common/asm*.h: Likewise. * common/reg-struct-return: Likewise. * common/structcpy.c: Likewise. * common/uniq-u.c: Moved here from avcall/, vacall/, callback/. * avcall/Makefile.devel: Update paths of asm*.sh. * avcall/Makefile.in: Add -I options for asm*.h. Update path of structcpy.c. * avcall/Makefile.mingw32: Likewise. * avcall/Makefile.msvc: Likewise. Update path of uniq-u.c. * vacall/Makefile.devel: Update paths of asm*.sh. * vacall/Makefile.in: Add -I options for asm*.h. Update path of structcpy.c. * vacall/Makefile.mingw32: Likewise. * vacall/Makefile.msvc: Likewise. Update path of uniq-u.c. * trampoline/Makefile.devel: Update paths of asm*.sh. * trampoline/Makefile.in: Add -I options for asm*.h. * callback/Makefile.msvc: Update path of uniq-u.c. * callback/vacall_r/Makefile.devel: Update paths of asm*.sh. * callback/vacall_r/Makefile.in: Add -I options for asm*.h. Update path of structcpy.c. * callback/vacall_r/Makefile.mingw32: Likewise. * callback/vacall_r/Makefile.msvc: Likewise. * callback/trampoline_r/Makefile.devel: Update paths of asm*.sh. * callback/trampoline_r/Makefile.in: Add -I options for asm*.h. 2016-12-26 Bruno Haible Fix dependencies. * avcall/Makefile.devel (avcall-sparc64.S): Depend on asmsparc64.sh, not asmsparc.sh. * vacall/Makefile.devel (vacall-sparc64.S): Likewise. * callback/vacall_r/Makefile.devel (vacall-sparc64.S): Likewise. * callback/Makefile.maint (vacall_r/vacall-i386-*.c): Don't depend on vacall_r/asmi386.sh. 2016-12-26 Bruno Haible Add missing dependency. * callback/vacall_r/Makefile.devel (vacall-m68k-netbsd.S): Depend on asmm68k.sh. 2016-12-26 Bruno Haible Switch to libtool-2.4.6. * autogen.sh (LIBTOOL_VERSION): Set to 2.4.6. * Makefile.maint (libtool-imported-files): Import also m4/ltoptions.m4, m4/ltsugar.m4, m4/ltversion.m4, m4/lt~obsolete.m4. * m4/general.m4 (FFCALL_COMMON_LIBTOOL): Invoke LT_INIT. 2016-12-26 Bruno Haible Switch to autoconf 2.69 and automake 1.15. * Makefile.maint (ACLOCAL, AUTOCONF, AUTOHEADER): Bump version numbers. 2016-12-26 Bruno Haible Remove files that can easily be autogenerated from version control. * autogen.sh: New file. * Makefile.maint: New file, partially inspired by Makefile.devel. * Makefile.devel (all): Remove target and its subtargets. * avcall/Makefile.maint: New file, extracted from avcall/Makefile.devel. * avcall/Makefile.devel (precompiled): Renamed from 'all'. Remove all targets that are moved to avcall/Makefile.maint. * vacall/Makefile.maint: New file, extracted from vacall/Makefile.devel. * vacall/Makefile.devel (precompiled): Renamed from 'all'. Remove all targets that are moved to vacall/Makefile.maint. * trampoline/Makefile.maint: New file, extracted from trampoline/Makefile.devel. * trampoline/Makefile.devel (precompiled): Renamed from 'all'. Remove all targets that are moved to trampoline/Makefile.maint. * callback/Makefile.maint: Renamed from callback/Makefile.devel. (trampoline_r/trampoline_r.man): New target. (totally-clean, force): New targets. * callback/vacall_r/Makefile.maint: New file, extracted from callback/vacall_r/Makefile.devel. * callback/vacall_r/Makefile.devel (precompiled): Renamed from 'all'. Remove all targets that are moved to callback/vacall_r/Makefile.maint. (vacall_r.man): Remove target. * callback/trampoline_r/Makefile.maint: New file, extracted from callback/trampoline_r/Makefile.devel. * callback/trampoline_r/Makefile.devel (precompiled): Renamed from 'all'. Remove all targets that are moved to callback/trampoline_r/Makefile.maint. 2016-12-26 Bruno Haible Remove test result files from version control. * callback/trampoline_r/tests.passed.i386-pc-win32-gcc: Remove file. 2015-08-23 Hernán Erasmo Added compatibility with ppc64le architecture. Credit goes to Masanori Mitsugi 2012-04-24 Sam Steingold Never build shared libraries: --enable-shared has no effect. * avcall/Makefile.in (libavcall.la): pass -static to LIBTOOL_LINK * callback/Makefile.in (libcallback.la): ditto * callback/trampoline_r/Makefile.in (libtrampoline.la): ditto * callback/vacall_r/Makefile.in (libvacall.la): ditto 2010-09-03 Sam Steingold * configure.in: call AC_CONFIG_AUX_DIR(build-aux) 2010-09-03 Sam Steingold * Makefile.devel (gnulib-imported): also import host-cpu-c-abi * avcall/configure.in, callback/configure.in: * callback/trampoline_r/configure.in, callback/vacall_r/configure.in: * trampoline/configure.in, vacall/configure.in: use gl_HOST_CPU_C_ABI instead of FFCALL_CANONICAL_HOST_CPU * m4/general.m4: remove FFCALL_CANONICAL_HOST_CPU, FFCALL_CACHE_EGREP_CPP, FFCALL_SET_CPU_ABI * glm4/host-cpu-c-abi.m4: add * avcall/Makefile.in, callback/Makefile.in: * callback/trampoline_r/Makefile.in, callback/vacall_r/Makefile.in: * trampoline/Makefile.in, vacall/Makefile.in, use @HOST_CPU_C_ABI@ instead of @host_cpu_abi@ * callback/trampoline_r/configure.in, trampoline/configure.in: * m4/codeexec.m4: use $HOST_CPU_C_ABI instead of $host_cpu_abi 2010-07-20 Sam Steingold * callback/trampoline_r/trampoline_r.h.in, trampoline/trampoline.h.in: add autoconf CPU detection block; this fixes trampoline on sparc64/linux Suggested by Valeriy E. Ushakov 2010-07-20 Valeriy E. Ushakov https://savannah.gnu.org/bugs/?22081 support sparc64 for solaris & *bsd * avcall/avcall-sparc64.c, avcall/avcall.h.in: Kill callee (%g2). Sparc64 doesn't need that code. Delete space[] - gcc optimizes it away anyway, and it doesn't guarantee correct operation even if it's not removed - if compiler allocs it below other local vars on the stack, then calling function with enough arguments will clobber local vars. Instead i've changed the code to use alloca, see the comment in the code for details on why this works. It also doesn't waste 2K of stack on each call, we only grab the space we actually need. I nuked farg_mask. It's not necessary for float args, marking them in darg_mask does the right thing (new av_float). And they just hurt structure passing, where, again, marking up darg_mask does the right thing. * avcall/avcall-saprc64.S: Regenerated with NetBSD gcc4 * vacall/vacall-sparc64.S, callback/vacall_r/vacall-sparc64.S: New binutils on sparc64 insist on having global registers properly declared with .register. I've just added the declarations manually w/out actually regenerating the files to demonstrate that's the only change needed there. IF the files are regenerated with a newer compiler you will get them automatically. 2009-11-10 Sam Steingold * vacall/Makefile.in (vacall-armel.o): vacall-armel.s is in $(srcdir) * callback/vacall_r/Makefile.in (vacall-armel.lo): ditto 2009-10-16 Sam Steingold the final fix for LIBFFCALL_VERSION * Makefile.devel (vacall/vacall.h.msvc, vacall/vacall.h.mingw32) (callback/vacall_r/vacall_r.h.msvc) (callback/vacall_r/vacall_r.h.mingw32): depend on VERSION * avcall/avcall.h.in, callback/callback.h.in, * callback/trampoline_r/trampoline_r.h.in, vacall/vacall.h.in, * callback/vacall_r/vacall_r.h.in, trampoline/trampoline.h.in: use @LIBFFCALL_VERSION@ instead of @PACKAGE_VERSION@ * avcall/configure.in: additional processing for avcall.h to substitute @LIBFFCALL_VERSION@ * callback/configure.in: ditto for callback.h * callback/trampoline_r/configure.in: ditto for trampoline_r.h * callback/vacall_r/configure.in: ditto for vacall_r.h * trampoline/configure.in: ditto for trampoline.h * vacall/configure.in: ditto for vacall.h * callback/vacall_r/Makefile.devel (vacall_r.h.msvc) (vacall_r.h.mingw32): depend on ../../VERSION; substitute @LIBFFCALL_VERSION@ * vacall/Makefile.devel (vacall.h.msvc, vacall.h.mingw32): depend on ../VERSION; substitute @LIBFFCALL_VERSION@ 2009-10-16 Sam Steingold * glm4/longlong.m4, glm4/nocrash.m4: update from gnulib 2009-10-16 Sam Steingold * Makefile.devel (update-gnulib): use git when available 2009-10-16 Sam Steingold * avcall/configure.in, callback/configure.in, * callback/trampoline_r/configure.in, callback/vacall_r/configure.in, * trampoline/configure.in, vacall/configure.in: list the main generated header (avcall.h et al) in AC_CONFIG_HEADERS, not in AC_CONFIG_FILES fixes the bug#27706 (introduced on 2009-04-24) 2009-04-28 Sam Steingold * m4/general.m4 (FFCALL_CACHE_EGREP_CPP, FFCALL_SET_CPU_ABI): abstracted out of FFCALL_CANONICAL_HOST_CPU (FFCALL_CANONICAL_HOST_CPU): use them 2009-04-27 Max Lapan Sam Steingold * avcall/Makefile.devel, avcall/Makefile.in, avcall/avcall.h.in, * callback/trampoline_r/Makefile.devel, * callback/trampoline_r/Makefile.in, * callback/trampoline_r/configure.in, * callback/vacall_r/Makefile.devel, callback/vacall_r/Makefile.in, * callback/vacall_r/vacall_r.h.in, trampoline/Makefile.devel, * trampoline/Makefile.in, trampoline/configure.in, * vacall/Makefile.devel, vacall/Makefile.in, vacall/vacall.h.in: Add ARMel support * m4/general.m4 (FFCALL_CANONICAL_HOST_CPU): use AC_EGREP_CPP to distinguish between arm and armel * avcall/avcall-armel.S, avcall/avcall-armel.c, * callback/trampoline_r/cache-armel.c, * callback/trampoline_r/cache-armel.s, * callback/vacall_r/vacall-armel.c, callback/vacall_r/vacall-armel.s, * trampoline/cache-armel.c, trampoline/cache-armel.s, * vacall/vacall-armel.c, vacall/vacall-armel.s: new files 2009-04-27 Max Lapan * avcall/tests.c, callback/tests.c, vacall/tests.c: #include "config.h" for HAVE_LONG_LONG_INT 2009-04-27 Max Lapan * callback/trampoline_r/trampoline.c (is_tramp) [__arm__]: fix bug in the last patch 2009-04-24 Sam Steingold * avcall/configure.in, callback/configure.in, * callback/trampoline_r/configure.in, callback/vacall_r/configure.in, * trampoline/configure.in, vacall/configure.in: use AC_CONFIG_FILES instead of AC_OUTPUT with argument * Makefile.devel (aclocal.m4): adjust the grep regexp 2009-04-24 Sam Steingold * Makefile.in, avcall/Makefile.in, callback/Makefile.in, * callback/trampoline_r/Makefile.in, callback/vacall_r/Makefile.in, * trampoline/Makefile.in, vacall/Makefile.in (datarootdir): set to @datarootdir@ to avoid a configure warning 2009-04-24 Sam Steingold * Makefile.devel (SUBDIRS_CONFIG_H): add avcall and callback 2009-04-24 Sam Steingold * VERSION: new file * configure.in: use AC_INIT with the version argument * avcall/Makefile.mingw32: use sed to set LIBFFCALL_VERSION in avcall.h * callback/vacall_r/Makefile.mingw32: use sed to set LIBFFCALL_VERSION in vacall_r.h * vacall/Makefile.mingw32: use sed to set LIBFFCALL_VERSION in vacall.h * avcall/avcall.h.in, callback/callback.h.in, * callback/trampoline_r/trampoline_r.h.in, * callback/vacall_r/vacall_r.h.in, * trampoline/trampoline.h.in, vacall/vacall.h.in: (LIBFFCALL_VERSION): define to @PACKAGE_VERSION@ * avcall/configure.in, callback/configure.in, * callback/trampoline_r/configure.in, callback/vacall_r/configure.in, * trampoline/configure.in, vacall/configure.in: use AC_INIT with the version argument, pass [config.h] to AC_CONFIG_HEADERS 2009-04-23 Sam Steingold * m4/codeexec.m4, m4/ireg.m4, m4/pccstruct.m4, m4/smallstruct.m4: all 3 arguments of AC_DEFINE are now required 2009-04-21 Sam Steingold * m4/as-underscore.m4, m4/codeexec.m4, m4/general.m4: * m4/getpagesize.m4, m4/ireg.m4, m4/mach-vm.m4, m4/mmap.m4: * m4/mprotect.m4, m4/pccstruct.m4, m4/shm.m4, m4/smallstruct.m4: quote AC_DEFINE arguments 2008-09-28 Sam Steingold * Makefile.devel (aclocal.m4): include glm4 (this defined gl_EARLY and gl_INIT and fixes make check on x86_64) 2008-09-26 Sam Steingold * avcall/avcall-ia64.s, avcall/avcall.h.in: * callback/vacall_r/vacall_r.h.in: support IA64 on Linux (kernel 2.6.16+ and gcc 4.1.0+) https://savannah.gnu.org/bugs/index.php?22130 https://sourceforge.net/tracker/index.php?func=detail&aid=1528895&group_id=1355&atid=301355 2008-09-26 Sam Steingold * callback/trampoline_r/Makefile.in, callback/trampoline_r/cache-arm.c: * callback/trampoline_r/cache-arm.s, callback/trampoline_r/configure.in: * callback/trampoline_r/tramp-arm.s, callback/trampoline_r/tramp-mips.s: * callback/trampoline_r/trampoline.c, trampoline/cache-arm.c: * trampoline/cache-arm.s, trampoline/configure.in: * trampoline/tramp-arm.s, trampoline/trampoline.c: add arm support from Jonathan Olson (debian 1.10-2) https://savannah.gnu.org/bugs/?func=detailitem&item_id=9468 2008-09-26 Sam Steingold * avcall/avcall-mips.S, avcall/avcall-mips.c, avcall/avcall.h.in: * callback/trampoline_r/trampoline.c, callback/vacall_r/vacall_r.h.in: * m4/general.m4, trampoline/trampoline.c, vacall/vacall.h.in: add mipsel support from Thiemo Seufer (debian 1.10-2) 2008-09-26 Sam Steingold * Makefile.devel, Makefile.in, callback/Makefile.devel, * callback/Makefile.in: use "&&" instead of ";" for all targets 2008-07-13 Sam Steingold * glm4/gnulib-cache.m4, glm4/gnulib-common.m4, glm4/gnulib-comp.m4: * glm4/gnulib-tool.m4, glm4/onceonly.m4: add from gnulib * glm4/nocrash.m4: update from gnulib * Makefile.devel (gnulib-imported): remove gllib * configure.ac: call gl_EARLY and gl_INIT 2008-07-08 Sam Steingold * Makefile.devel (SUBDIRS_CONFIGURE): use $(CURDIR) instead of . (%/configure): use "&&" instead of ";" 2008-07-03 Sam Steingold * Makefile.devel (all): split into a few manageable targets (config-h-in, woe32-h, woe32-c): new targets (configure): use patterns 2008-07-03 Sam Steingold * m4/smallstruct.m4 (FFCALL_SMALL_STRUCT_RETURN): rename from CL_SMALL_STRUCT_RETURN; use ffcall_cv_* instead of cl_cv_*; use return instead of exit() * m4/pccstruct.m4 (FFCALL_PCC_STRUCT_RETURN): rename from CL_PCC_STRUCT_RETURN; use ffcall_cv_* instead of cl_cv_*; use return instead of exit() * m4/ireg.m4 (FFCALL_IREG_FLOAT_RETURN): remame from CL_IREG_FLOAT_RETURN; use ffcall_cv_* instead of cl_cv_*; use return instead of exit() * m4/codeexec.m4 (FFCALL_CODEEXEC): rename from CL_CODEEXEC use ffcall_cv_* instead of cl_cv_*; use return instead of exit() * m4/general.m4: remove non-FFCALL code (FFCALL_COMMON_LIBTOOL): rename from CL_FFCALL_COMMON_LIBTOOL (FFCALL_COMMON_TRAMPOLINE): rename from CL_FFCALL_COMMON_TRAMPOLINE (FFCALL_CANONICAL_HOST_CPU): <- CL_CANONICAL_HOST_CPU_FOR_FFCALL 2008-07-03 Sam Steingold * Makefile.devel (build-aux-update): new target 2008-07-02 Sam Steingold * Makefile.devel (gnulib-imported, update-gnulib): new targets * glm4: new directory * longlong.m4, nocrash.m4: move from m4 to glm4 2008-07-02 Sam Steingold * m4/ln.m4: update from clisp * m4/cp.m4: remove * m4/getpagesize.m4: update from clisp * m4/general.m4: update from clisp * m4/mmap.m4: update from clisp * m4/mprotect.m4: update from clisp * m4/proto.m4: update from clisp * m4/openflags.m4: remove * m4/cc-void.m4: remove 2008-07-02 Sam Steingold * Makefile.devel, aclocal.m4: move autoconf/aclocal.m4 to aclocal.m4 * aclocal/autoconf.m4: remove * Makefile.devel (CLISP_DIR): remove 2008-07-02 Sam Steingold * m4/ffcall-pccstruct.m4, m4/ffcall-smallstruct.m4, m4/ffcall-ireg.m4: * m4/ffcall-codeexec.m4: remove "ffcall-" prefix * Makefile.devel: update See clisp ChangeLog for earlier changes. libffcall-2.2/dummy/0000775000000000000000000000000013530357260011403 500000000000000libffcall-2.2/dummy/ffcall-version.h0000664000000000000000000000005013146127475014407 00000000000000/* This file is intentionally empty. */ libffcall-2.2/INSTALL.os20000644000000000000000000000051713030557144011722 00000000000000Installation on OS/2: - Requires emx+gcc and a working shell (Bourne shell, Korn shell or GNU bash). - Set the environment variables CC=gcc CFLAGS="-Zexe" before calling ‘configure’. - Must build in a separate directory and pass the --srcdir option to ‘configure’, otherwise avcall-i386.s will overwrite avcall-i386.S. libffcall-2.2/Makefile.devel0000664000000000000000000000165713146127475012745 00000000000000# This is the developer's -*-Makefile-*-, not the user's makefile. # Do not use it unless you know exactly what you do! # ============ Rules that require cross-compilation tools ============ precompiled : force cd avcall && $(MAKE) -f Makefile.devel precompiled cd vacall && $(MAKE) -f Makefile.devel precompiled cd trampoline && $(MAKE) -f Makefile.devel precompiled cd callback/vacall_r \ && $(MAKE) -f Makefile.devel precompiled cd callback/trampoline_r \ && $(MAKE) -f Makefile.maint copied-files \ && $(MAKE) -f Makefile.devel precompiled # ==================== Targets for testing ==================== COMPILERS="cc -O" "gcc -freg-struct-return" "gcc -fpcc-struct-return" multibuild : force for compiler in $(COMPILERS) ; do \ dir=build-`echo $$compiler | sed -e 's, ,,g' -e 's,/,_,g'`; \ mkdir $$dir; cd $$dir; \ CC="$$compiler" ../configure --srcdir=.. && make && make check; \ cd ..; \ done force : libffcall-2.2/configure0000775000000000000000000234075313530357244012117 00000000000000#! /bin/sh # Guess values for system-dependent variables and create Makefiles. # Generated by GNU Autoconf 2.69 for GNU libffcall 2.2. # # Report bugs to . # # # Copyright (C) 1992-1996, 1998-2012 Free Software Foundation, Inc. # # # This configure script is free software; the Free Software Foundation # gives unlimited permission to copy, distribute and modify it. ## -------------------- ## ## M4sh Initialization. ## ## -------------------- ## # Be more Bourne compatible DUALCASE=1; export DUALCASE # for MKS sh if test -n "${ZSH_VERSION+set}" && (emulate sh) >/dev/null 2>&1; then : emulate sh NULLCMD=: # Pre-4.2 versions of Zsh do word splitting on ${1+"$@"}, which # is contrary to our usage. Disable this feature. alias -g '${1+"$@"}'='"$@"' setopt NO_GLOB_SUBST else case `(set -o) 2>/dev/null` in #( *posix*) : set -o posix ;; #( *) : ;; esac fi as_nl=' ' export as_nl # Printing a long string crashes Solaris 7 /usr/bin/printf. as_echo='\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\' as_echo=$as_echo$as_echo$as_echo$as_echo$as_echo as_echo=$as_echo$as_echo$as_echo$as_echo$as_echo$as_echo # Prefer a ksh shell builtin over an external printf program on Solaris, # but without wasting forks for bash or zsh. if test -z "$BASH_VERSION$ZSH_VERSION" \ && (test "X`print -r -- $as_echo`" = "X$as_echo") 2>/dev/null; then as_echo='print -r --' as_echo_n='print -rn --' elif (test "X`printf %s $as_echo`" = "X$as_echo") 2>/dev/null; then as_echo='printf %s\n' as_echo_n='printf %s' else if test "X`(/usr/ucb/echo -n -n $as_echo) 2>/dev/null`" = "X-n $as_echo"; then as_echo_body='eval /usr/ucb/echo -n "$1$as_nl"' as_echo_n='/usr/ucb/echo -n' else as_echo_body='eval expr "X$1" : "X\\(.*\\)"' as_echo_n_body='eval arg=$1; case $arg in #( *"$as_nl"*) expr "X$arg" : "X\\(.*\\)$as_nl"; arg=`expr "X$arg" : ".*$as_nl\\(.*\\)"`;; esac; expr "X$arg" : "X\\(.*\\)" | tr -d "$as_nl" ' export as_echo_n_body as_echo_n='sh -c $as_echo_n_body as_echo' fi export as_echo_body as_echo='sh -c $as_echo_body as_echo' fi # The user is always right. if test "${PATH_SEPARATOR+set}" != set; then PATH_SEPARATOR=: (PATH='/bin;/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 && { (PATH='/bin:/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 || PATH_SEPARATOR=';' } fi # IFS # We need space, tab and new line, in precisely that order. Quoting is # there to prevent editors from complaining about space-tab. # (If _AS_PATH_WALK were called with IFS unset, it would disable word # splitting by setting IFS to empty value.) IFS=" "" $as_nl" # Find who we are. Look in the path if we contain no directory separator. as_myself= case $0 in #(( *[\\/]* ) as_myself=$0 ;; *) as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. test -r "$as_dir/$0" && as_myself=$as_dir/$0 && break done IFS=$as_save_IFS ;; esac # We did not find ourselves, most probably we were run as `sh COMMAND' # in which case we are not to be found in the path. if test "x$as_myself" = x; then as_myself=$0 fi if test ! -f "$as_myself"; then $as_echo "$as_myself: error: cannot find myself; rerun with an absolute file name" >&2 exit 1 fi # Unset variables that we do not need and which cause bugs (e.g. in # pre-3.0 UWIN ksh). But do not cause bugs in bash 2.01; the "|| exit 1" # suppresses any "Segmentation fault" message there. '((' could # trigger a bug in pdksh 5.2.14. for as_var in BASH_ENV ENV MAIL MAILPATH do eval test x\${$as_var+set} = xset \ && ( (unset $as_var) || exit 1) >/dev/null 2>&1 && unset $as_var || : done PS1='$ ' PS2='> ' PS4='+ ' # NLS nuisances. LC_ALL=C export LC_ALL LANGUAGE=C export LANGUAGE # CDPATH. (unset CDPATH) >/dev/null 2>&1 && unset CDPATH # Use a proper internal environment variable to ensure we don't fall # into an infinite loop, continuously re-executing ourselves. if test x"${_as_can_reexec}" != xno && test "x$CONFIG_SHELL" != x; then _as_can_reexec=no; export _as_can_reexec; # We cannot yet assume a decent shell, so we have to provide a # neutralization value for shells without unset; and this also # works around shells that cannot unset nonexistent variables. # Preserve -v and -x to the replacement shell. BASH_ENV=/dev/null ENV=/dev/null (unset BASH_ENV) >/dev/null 2>&1 && unset BASH_ENV ENV case $- in # (((( *v*x* | *x*v* ) as_opts=-vx ;; *v* ) as_opts=-v ;; *x* ) as_opts=-x ;; * ) as_opts= ;; esac exec $CONFIG_SHELL $as_opts "$as_myself" ${1+"$@"} # Admittedly, this is quite paranoid, since all the known shells bail # out after a failed `exec'. $as_echo "$0: could not re-execute with $CONFIG_SHELL" >&2 as_fn_exit 255 fi # We don't want this to propagate to other subprocesses. { _as_can_reexec=; unset _as_can_reexec;} if test "x$CONFIG_SHELL" = x; then as_bourne_compatible="if test -n \"\${ZSH_VERSION+set}\" && (emulate sh) >/dev/null 2>&1; then : emulate sh NULLCMD=: # Pre-4.2 versions of Zsh do word splitting on \${1+\"\$@\"}, which # is contrary to our usage. Disable this feature. alias -g '\${1+\"\$@\"}'='\"\$@\"' setopt NO_GLOB_SUBST else case \`(set -o) 2>/dev/null\` in #( *posix*) : set -o posix ;; #( *) : ;; esac fi " as_required="as_fn_return () { (exit \$1); } as_fn_success () { as_fn_return 0; } as_fn_failure () { as_fn_return 1; } as_fn_ret_success () { return 0; } as_fn_ret_failure () { return 1; } exitcode=0 as_fn_success || { exitcode=1; echo as_fn_success failed.; } as_fn_failure && { exitcode=1; echo as_fn_failure succeeded.; } as_fn_ret_success || { exitcode=1; echo as_fn_ret_success failed.; } as_fn_ret_failure && { exitcode=1; echo as_fn_ret_failure succeeded.; } if ( set x; as_fn_ret_success y && test x = \"\$1\" ); then : else exitcode=1; echo positional parameters were not saved. fi test x\$exitcode = x0 || exit 1 test -x / || exit 1" as_suggested=" as_lineno_1=";as_suggested=$as_suggested$LINENO;as_suggested=$as_suggested" as_lineno_1a=\$LINENO as_lineno_2=";as_suggested=$as_suggested$LINENO;as_suggested=$as_suggested" as_lineno_2a=\$LINENO eval 'test \"x\$as_lineno_1'\$as_run'\" != \"x\$as_lineno_2'\$as_run'\" && test \"x\`expr \$as_lineno_1'\$as_run' + 1\`\" = \"x\$as_lineno_2'\$as_run'\"' || exit 1 test \$(( 1 + 1 )) = 2 || exit 1 test -n \"\${ZSH_VERSION+set}\${BASH_VERSION+set}\" || ( ECHO='\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\' ECHO=\$ECHO\$ECHO\$ECHO\$ECHO\$ECHO ECHO=\$ECHO\$ECHO\$ECHO\$ECHO\$ECHO\$ECHO PATH=/empty FPATH=/empty; export PATH FPATH test \"X\`printf %s \$ECHO\`\" = \"X\$ECHO\" \\ || test \"X\`print -r -- \$ECHO\`\" = \"X\$ECHO\" ) || exit 1" if (eval "$as_required") 2>/dev/null; then : as_have_required=yes else as_have_required=no fi if test x$as_have_required = xyes && (eval "$as_suggested") 2>/dev/null; then : else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR as_found=false for as_dir in /bin$PATH_SEPARATOR/usr/bin$PATH_SEPARATOR$PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. as_found=: case $as_dir in #( /*) for as_base in sh bash ksh sh5; do # Try only shells that exist, to save several forks. as_shell=$as_dir/$as_base if { test -f "$as_shell" || test -f "$as_shell.exe"; } && { $as_echo "$as_bourne_compatible""$as_required" | as_run=a "$as_shell"; } 2>/dev/null; then : CONFIG_SHELL=$as_shell as_have_required=yes if { $as_echo "$as_bourne_compatible""$as_suggested" | as_run=a "$as_shell"; } 2>/dev/null; then : break 2 fi fi done;; esac as_found=false done $as_found || { if { test -f "$SHELL" || test -f "$SHELL.exe"; } && { $as_echo "$as_bourne_compatible""$as_required" | as_run=a "$SHELL"; } 2>/dev/null; then : CONFIG_SHELL=$SHELL as_have_required=yes fi; } IFS=$as_save_IFS if test "x$CONFIG_SHELL" != x; then : export CONFIG_SHELL # We cannot yet assume a decent shell, so we have to provide a # neutralization value for shells without unset; and this also # works around shells that cannot unset nonexistent variables. # Preserve -v and -x to the replacement shell. BASH_ENV=/dev/null ENV=/dev/null (unset BASH_ENV) >/dev/null 2>&1 && unset BASH_ENV ENV case $- in # (((( *v*x* | *x*v* ) as_opts=-vx ;; *v* ) as_opts=-v ;; *x* ) as_opts=-x ;; * ) as_opts= ;; esac exec $CONFIG_SHELL $as_opts "$as_myself" ${1+"$@"} # Admittedly, this is quite paranoid, since all the known shells bail # out after a failed `exec'. $as_echo "$0: could not re-execute with $CONFIG_SHELL" >&2 exit 255 fi if test x$as_have_required = xno; then : $as_echo "$0: This script requires a shell more modern than all" $as_echo "$0: the shells that I found on your system." if test x${ZSH_VERSION+set} = xset ; then $as_echo "$0: In particular, zsh $ZSH_VERSION has bugs and should" $as_echo "$0: be upgraded to zsh 4.3.4 or later." else $as_echo "$0: Please tell bug-autoconf@gnu.org and $0: https://savannah.gnu.org/projects/libffcall about your $0: system, including any error possibly output before this $0: message. Then install a modern shell, or manually run $0: the script under such a shell if you do have one." fi exit 1 fi fi fi SHELL=${CONFIG_SHELL-/bin/sh} export SHELL # Unset more variables known to interfere with behavior of common tools. CLICOLOR_FORCE= GREP_OPTIONS= unset CLICOLOR_FORCE GREP_OPTIONS ## --------------------- ## ## M4sh Shell Functions. ## ## --------------------- ## # as_fn_unset VAR # --------------- # Portably unset VAR. as_fn_unset () { { eval $1=; unset $1;} } as_unset=as_fn_unset # as_fn_set_status STATUS # ----------------------- # Set $? to STATUS, without forking. as_fn_set_status () { return $1 } # as_fn_set_status # as_fn_exit STATUS # ----------------- # Exit the shell with STATUS, even in a "trap 0" or "set -e" context. as_fn_exit () { set +e as_fn_set_status $1 exit $1 } # as_fn_exit # as_fn_mkdir_p # ------------- # Create "$as_dir" as a directory, including parents if necessary. as_fn_mkdir_p () { case $as_dir in #( -*) as_dir=./$as_dir;; esac test -d "$as_dir" || eval $as_mkdir_p || { as_dirs= while :; do case $as_dir in #( *\'*) as_qdir=`$as_echo "$as_dir" | sed "s/'/'\\\\\\\\''/g"`;; #'( *) as_qdir=$as_dir;; esac as_dirs="'$as_qdir' $as_dirs" as_dir=`$as_dirname -- "$as_dir" || $as_expr X"$as_dir" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ X"$as_dir" : 'X\(//\)[^/]' \| \ X"$as_dir" : 'X\(//\)$' \| \ X"$as_dir" : 'X\(/\)' \| . 2>/dev/null || $as_echo X"$as_dir" | sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ s//\1/ q } /^X\(\/\/\)[^/].*/{ s//\1/ q } /^X\(\/\/\)$/{ s//\1/ q } /^X\(\/\).*/{ s//\1/ q } s/.*/./; q'` test -d "$as_dir" && break done test -z "$as_dirs" || eval "mkdir $as_dirs" } || test -d "$as_dir" || as_fn_error $? "cannot create directory $as_dir" } # as_fn_mkdir_p # as_fn_executable_p FILE # ----------------------- # Test if FILE is an executable regular file. as_fn_executable_p () { test -f "$1" && test -x "$1" } # as_fn_executable_p # as_fn_append VAR VALUE # ---------------------- # Append the text in VALUE to the end of the definition contained in VAR. Take # advantage of any shell optimizations that allow amortized linear growth over # repeated appends, instead of the typical quadratic growth present in naive # implementations. if (eval "as_var=1; as_var+=2; test x\$as_var = x12") 2>/dev/null; then : eval 'as_fn_append () { eval $1+=\$2 }' else as_fn_append () { eval $1=\$$1\$2 } fi # as_fn_append # as_fn_arith ARG... # ------------------ # Perform arithmetic evaluation on the ARGs, and store the result in the # global $as_val. Take advantage of shells that can avoid forks. The arguments # must be portable across $(()) and expr. if (eval "test \$(( 1 + 1 )) = 2") 2>/dev/null; then : eval 'as_fn_arith () { as_val=$(( $* )) }' else as_fn_arith () { as_val=`expr "$@" || test $? -eq 1` } fi # as_fn_arith # as_fn_error STATUS ERROR [LINENO LOG_FD] # ---------------------------------------- # Output "`basename $0`: error: ERROR" to stderr. If LINENO and LOG_FD are # provided, also output the error to LOG_FD, referencing LINENO. Then exit the # script with STATUS, using 1 if that was 0. as_fn_error () { as_status=$1; test $as_status -eq 0 && as_status=1 if test "$4"; then as_lineno=${as_lineno-"$3"} as_lineno_stack=as_lineno_stack=$as_lineno_stack $as_echo "$as_me:${as_lineno-$LINENO}: error: $2" >&$4 fi $as_echo "$as_me: error: $2" >&2 as_fn_exit $as_status } # as_fn_error if expr a : '\(a\)' >/dev/null 2>&1 && test "X`expr 00001 : '.*\(...\)'`" = X001; then as_expr=expr else as_expr=false fi if (basename -- /) >/dev/null 2>&1 && test "X`basename -- / 2>&1`" = "X/"; then as_basename=basename else as_basename=false fi if (as_dir=`dirname -- /` && test "X$as_dir" = X/) >/dev/null 2>&1; then as_dirname=dirname else as_dirname=false fi as_me=`$as_basename -- "$0" || $as_expr X/"$0" : '.*/\([^/][^/]*\)/*$' \| \ X"$0" : 'X\(//\)$' \| \ X"$0" : 'X\(/\)' \| . 2>/dev/null || $as_echo X/"$0" | sed '/^.*\/\([^/][^/]*\)\/*$/{ s//\1/ q } /^X\/\(\/\/\)$/{ s//\1/ q } /^X\/\(\/\).*/{ s//\1/ q } s/.*/./; q'` # Avoid depending upon Character Ranges. as_cr_letters='abcdefghijklmnopqrstuvwxyz' as_cr_LETTERS='ABCDEFGHIJKLMNOPQRSTUVWXYZ' as_cr_Letters=$as_cr_letters$as_cr_LETTERS as_cr_digits='0123456789' as_cr_alnum=$as_cr_Letters$as_cr_digits as_lineno_1=$LINENO as_lineno_1a=$LINENO as_lineno_2=$LINENO as_lineno_2a=$LINENO eval 'test "x$as_lineno_1'$as_run'" != "x$as_lineno_2'$as_run'" && test "x`expr $as_lineno_1'$as_run' + 1`" = "x$as_lineno_2'$as_run'"' || { # Blame Lee E. McMahon (1931-1989) for sed's syntax. :-) sed -n ' p /[$]LINENO/= ' <$as_myself | sed ' s/[$]LINENO.*/&-/ t lineno b :lineno N :loop s/[$]LINENO\([^'$as_cr_alnum'_].*\n\)\(.*\)/\2\1\2/ t loop s/-\n.*// ' >$as_me.lineno && chmod +x "$as_me.lineno" || { $as_echo "$as_me: error: cannot create $as_me.lineno; rerun with a POSIX shell" >&2; as_fn_exit 1; } # If we had to re-execute with $CONFIG_SHELL, we're ensured to have # already done that, so ensure we don't try to do so again and fall # in an infinite loop. This has already happened in practice. _as_can_reexec=no; export _as_can_reexec # Don't try to exec as it changes $[0], causing all sort of problems # (the dirname of $[0] is not the place where we might find the # original and so on. Autoconf is especially sensitive to this). . "./$as_me.lineno" # Exit status is that of the last command. exit } ECHO_C= ECHO_N= ECHO_T= case `echo -n x` in #((((( -n*) case `echo 'xy\c'` in *c*) ECHO_T=' ';; # ECHO_T is single tab character. xy) ECHO_C='\c';; *) echo `echo ksh88 bug on AIX 6.1` > /dev/null ECHO_T=' ';; esac;; *) ECHO_N='-n';; esac rm -f conf$$ conf$$.exe conf$$.file if test -d conf$$.dir; then rm -f conf$$.dir/conf$$.file else rm -f conf$$.dir mkdir conf$$.dir 2>/dev/null fi if (echo >conf$$.file) 2>/dev/null; then if ln -s conf$$.file conf$$ 2>/dev/null; then as_ln_s='ln -s' # ... but there are two gotchas: # 1) On MSYS, both `ln -s file dir' and `ln file dir' fail. # 2) DJGPP < 2.04 has no symlinks; `ln -s' creates a wrapper executable. # In both cases, we have to default to `cp -pR'. ln -s conf$$.file conf$$.dir 2>/dev/null && test ! -f conf$$.exe || as_ln_s='cp -pR' elif ln conf$$.file conf$$ 2>/dev/null; then as_ln_s=ln else as_ln_s='cp -pR' fi else as_ln_s='cp -pR' fi rm -f conf$$ conf$$.exe conf$$.dir/conf$$.file conf$$.file rmdir conf$$.dir 2>/dev/null if mkdir -p . 2>/dev/null; then as_mkdir_p='mkdir -p "$as_dir"' else test -d ./-p && rmdir ./-p as_mkdir_p=false fi as_test_x='test -x' as_executable_p=as_fn_executable_p # Sed expression to map a string onto a valid CPP name. as_tr_cpp="eval sed 'y%*$as_cr_letters%P$as_cr_LETTERS%;s%[^_$as_cr_alnum]%_%g'" # Sed expression to map a string onto a valid variable name. as_tr_sh="eval sed 'y%*+%pp%;s%[^_$as_cr_alnum]%_%g'" SHELL=${CONFIG_SHELL-/bin/sh} test -n "$DJDIR" || exec 7<&0 &1 # Name of the host. # hostname on some systems (SVR3.2, old GNU/Linux) returns a bogus exit status, # so uname gets run too. ac_hostname=`(hostname || uname -n) 2>/dev/null | sed 1q` # # Initializations. # ac_default_prefix=/usr/local ac_clean_files= ac_config_libobj_dir=. LIBOBJS= cross_compiling=no subdirs= MFLAGS= MAKEFLAGS= # Identity of this package. PACKAGE_NAME='GNU libffcall' PACKAGE_TARNAME='libffcall' PACKAGE_VERSION='2.2' PACKAGE_STRING='GNU libffcall 2.2' PACKAGE_BUGREPORT='https://savannah.gnu.org/projects/libffcall' PACKAGE_URL='http://www.gnu.org/software/libffcall/' ac_unique_file="trampoline/trampoline.h" # Factoring default headers for most tests. ac_includes_default="\ #include #ifdef HAVE_SYS_TYPES_H # include #endif #ifdef HAVE_SYS_STAT_H # include #endif #ifdef STDC_HEADERS # include # include #else # ifdef HAVE_STDLIB_H # include # endif #endif #ifdef HAVE_STRING_H # if !defined STDC_HEADERS && defined HAVE_MEMORY_H # include # endif # include #endif #ifdef HAVE_STRINGS_H # include #endif #ifdef HAVE_INTTYPES_H # include #endif #ifdef HAVE_STDINT_H # include #endif #ifdef HAVE_UNISTD_H # include #endif" gl_use_threads_default= gl_use_winpthreads_default= gl_header_list= ac_subst_vars='gltests_LTLIBOBJS gltests_LIBOBJS gl_LTLIBOBJS gl_LIBOBJS am__EXEEXT_FALSE am__EXEEXT_TRUE LTLIBOBJS LIBOBJS gltests_WITNESS WINDOWS_STAT_INODES WINDOWS_64_BIT_OFF_T NEXT_AS_FIRST_DIRECTIVE_SYS_TYPES_H NEXT_SYS_TYPES_H GL_GENERATE_STDNORETURN_H_FALSE GL_GENERATE_STDNORETURN_H_TRUE STDNORETURN_H GL_GENERATE_STDINT_H_FALSE GL_GENERATE_STDINT_H_TRUE STDINT_H HAVE_SYS_INTTYPES_H HAVE_SYS_BITYPES_H HAVE_C99_STDINT_H WINT_T_SUFFIX WCHAR_T_SUFFIX SIG_ATOMIC_T_SUFFIX SIZE_T_SUFFIX PTRDIFF_T_SUFFIX HAVE_SIGNED_WINT_T HAVE_SIGNED_WCHAR_T HAVE_SIGNED_SIG_ATOMIC_T BITSIZEOF_WINT_T BITSIZEOF_WCHAR_T BITSIZEOF_SIG_ATOMIC_T BITSIZEOF_SIZE_T BITSIZEOF_PTRDIFF_T HAVE_STDINT_H NEXT_AS_FIRST_DIRECTIVE_STDINT_H NEXT_STDINT_H HAVE_SYS_TYPES_H HAVE_INTTYPES_H HAVE_WCHAR_H HAVE_UNSIGNED_LONG_LONG_INT HAVE_LONG_LONG_INT GNULIB_OVERRIDES_WINT_T APPLE_UNIVERSAL_BUILD LTLIBMULTITHREAD LIBMULTITHREAD LTLIBTHREAD LIBTHREAD GL_GENERATE_LIMITS_H_FALSE GL_GENERATE_LIMITS_H_TRUE LIMITS_H NEXT_AS_FIRST_DIRECTIVE_LIMITS_H NEXT_LIMITS_H PRAGMA_COLUMNS PRAGMA_SYSTEM_HEADER INCLUDE_NEXT_AS_FIRST_DIRECTIVE INCLUDE_NEXT GL_COND_LIBTOOL_FALSE GL_COND_LIBTOOL_TRUE DISABLE_TYPE_BASED_ALIASING WORKAROUND_BUG_81653 CPU_OBJECTS LT_SYS_LIBRARY_PATH OTOOL64 OTOOL LIPO NMEDIT DSYMUTIL MANIFEST_TOOL ac_ct_AR LN_S NM ac_ct_DUMPBIN DUMPBIN LD FGREP SED LIBTOOL OBJDUMP DLLTOOL AS ENDIANNESS HOST_CPU_C_ABI HOST_CPU host_os host_vendor host_cpu host build_os build_vendor build_cpu build LN IFNOT_MSVC IF_MSVC RANLIB ARFLAGS AR IF_CXX am__fastdepCXX_FALSE am__fastdepCXX_TRUE CXXDEPMODE ANSICXX_FALSE ANSICXX_TRUE CXXFLAGS ac_ct_CXX CXX CXX_CHOICE AS_UNDERSCORE ASM_SYMBOL_PREFIX GCC_X_NONE CC_GCC EGREP GREP CPP am__fastdepCC_FALSE am__fastdepCC_TRUE CCDEPMODE am__nodep AMDEPBACKSLASH AMDEP_FALSE AMDEP_TRUE am__quote am__include DEPDIR OBJEXT EXEEXT ac_ct_CC CPPFLAGS LDFLAGS CFLAGS CC AM_BACKSLASH AM_DEFAULT_VERBOSITY AM_DEFAULT_V AM_V am__untar am__tar AMTAR am__leading_dot SET_MAKE AWK mkdir_p MKDIR_P INSTALL_STRIP_PROGRAM STRIP install_sh MAKEINFO AUTOHEADER AUTOMAKE AUTOCONF ACLOCAL VERSION PACKAGE CYGPATH_W am__isrc INSTALL_DATA INSTALL_SCRIPT INSTALL_PROGRAM target_alias host_alias build_alias LIBS ECHO_T ECHO_N ECHO_C DEFS mandir localedir libdir psdir pdfdir dvidir htmldir infodir docdir oldincludedir includedir localstatedir sharedstatedir sysconfdir datadir datarootdir libexecdir sbindir bindir program_transform_name prefix exec_prefix PACKAGE_URL PACKAGE_BUGREPORT PACKAGE_STRING PACKAGE_VERSION PACKAGE_TARNAME PACKAGE_NAME PATH_SEPARATOR SHELL' ac_subst_files='' ac_user_opts=' enable_option_checking enable_silent_rules enable_dependency_tracking enable_c__ enable_threads enable_shared enable_static with_pic enable_fast_install with_aix_soname with_gnu_ld with_sysroot enable_libtool_lock ' ac_precious_vars='build_alias host_alias target_alias CC CFLAGS LDFLAGS LIBS CPPFLAGS CPP CXX CXXFLAGS LT_SYS_LIBRARY_PATH' # Initialize some variables set by options. ac_init_help= ac_init_version=false ac_unrecognized_opts= ac_unrecognized_sep= # The variables have the same names as the options, with # dashes changed to underlines. cache_file=/dev/null exec_prefix=NONE no_create= no_recursion= prefix=NONE program_prefix=NONE program_suffix=NONE program_transform_name=s,x,x, silent= site= srcdir= verbose= x_includes=NONE x_libraries=NONE # Installation directory options. # These are left unexpanded so users can "make install exec_prefix=/foo" # and all the variables that are supposed to be based on exec_prefix # by default will actually change. # Use braces instead of parens because sh, perl, etc. also accept them. # (The list follows the same order as the GNU Coding Standards.) bindir='${exec_prefix}/bin' sbindir='${exec_prefix}/sbin' libexecdir='${exec_prefix}/libexec' datarootdir='${prefix}/share' datadir='${datarootdir}' sysconfdir='${prefix}/etc' sharedstatedir='${prefix}/com' localstatedir='${prefix}/var' includedir='${prefix}/include' oldincludedir='/usr/include' docdir='${datarootdir}/doc/${PACKAGE_TARNAME}' infodir='${datarootdir}/info' htmldir='${docdir}' dvidir='${docdir}' pdfdir='${docdir}' psdir='${docdir}' libdir='${exec_prefix}/lib' localedir='${datarootdir}/locale' mandir='${datarootdir}/man' ac_prev= ac_dashdash= for ac_option do # If the previous option needs an argument, assign it. if test -n "$ac_prev"; then eval $ac_prev=\$ac_option ac_prev= continue fi case $ac_option in *=?*) ac_optarg=`expr "X$ac_option" : '[^=]*=\(.*\)'` ;; *=) ac_optarg= ;; *) ac_optarg=yes ;; esac # Accept the important Cygnus configure options, so we can diagnose typos. case $ac_dashdash$ac_option in --) ac_dashdash=yes ;; -bindir | --bindir | --bindi | --bind | --bin | --bi) ac_prev=bindir ;; -bindir=* | --bindir=* | --bindi=* | --bind=* | --bin=* | --bi=*) bindir=$ac_optarg ;; -build | --build | --buil | --bui | --bu) ac_prev=build_alias ;; -build=* | --build=* | --buil=* | --bui=* | --bu=*) build_alias=$ac_optarg ;; -cache-file | --cache-file | --cache-fil | --cache-fi \ | --cache-f | --cache- | --cache | --cach | --cac | --ca | --c) ac_prev=cache_file ;; -cache-file=* | --cache-file=* | --cache-fil=* | --cache-fi=* \ | --cache-f=* | --cache-=* | --cache=* | --cach=* | --cac=* | --ca=* | --c=*) cache_file=$ac_optarg ;; --config-cache | -C) cache_file=config.cache ;; -datadir | --datadir | --datadi | --datad) ac_prev=datadir ;; -datadir=* | --datadir=* | --datadi=* | --datad=*) datadir=$ac_optarg ;; -datarootdir | --datarootdir | --datarootdi | --datarootd | --dataroot \ | --dataroo | --dataro | --datar) ac_prev=datarootdir ;; -datarootdir=* | --datarootdir=* | --datarootdi=* | --datarootd=* \ | --dataroot=* | --dataroo=* | --dataro=* | --datar=*) datarootdir=$ac_optarg ;; -disable-* | --disable-*) ac_useropt=`expr "x$ac_option" : 'x-*disable-\(.*\)'` # Reject names that are not valid shell variable names. expr "x$ac_useropt" : ".*[^-+._$as_cr_alnum]" >/dev/null && as_fn_error $? "invalid feature name: $ac_useropt" ac_useropt_orig=$ac_useropt ac_useropt=`$as_echo "$ac_useropt" | sed 's/[-+.]/_/g'` case $ac_user_opts in *" "enable_$ac_useropt" "*) ;; *) ac_unrecognized_opts="$ac_unrecognized_opts$ac_unrecognized_sep--disable-$ac_useropt_orig" ac_unrecognized_sep=', ';; esac eval enable_$ac_useropt=no ;; -docdir | --docdir | --docdi | --doc | --do) ac_prev=docdir ;; -docdir=* | --docdir=* | --docdi=* | --doc=* | --do=*) docdir=$ac_optarg ;; -dvidir | --dvidir | --dvidi | --dvid | --dvi | --dv) ac_prev=dvidir ;; -dvidir=* | --dvidir=* | --dvidi=* | --dvid=* | --dvi=* | --dv=*) dvidir=$ac_optarg ;; -enable-* | --enable-*) ac_useropt=`expr "x$ac_option" : 'x-*enable-\([^=]*\)'` # Reject names that are not valid shell variable names. expr "x$ac_useropt" : ".*[^-+._$as_cr_alnum]" >/dev/null && as_fn_error $? "invalid feature name: $ac_useropt" ac_useropt_orig=$ac_useropt ac_useropt=`$as_echo "$ac_useropt" | sed 's/[-+.]/_/g'` case $ac_user_opts in *" "enable_$ac_useropt" "*) ;; *) ac_unrecognized_opts="$ac_unrecognized_opts$ac_unrecognized_sep--enable-$ac_useropt_orig" ac_unrecognized_sep=', ';; esac eval enable_$ac_useropt=\$ac_optarg ;; -exec-prefix | --exec_prefix | --exec-prefix | --exec-prefi \ | --exec-pref | --exec-pre | --exec-pr | --exec-p | --exec- \ | --exec | --exe | --ex) ac_prev=exec_prefix ;; -exec-prefix=* | --exec_prefix=* | --exec-prefix=* | --exec-prefi=* \ | --exec-pref=* | --exec-pre=* | --exec-pr=* | --exec-p=* | --exec-=* \ | --exec=* | --exe=* | --ex=*) exec_prefix=$ac_optarg ;; -gas | --gas | --ga | --g) # Obsolete; use --with-gas. with_gas=yes ;; -help | --help | --hel | --he | -h) ac_init_help=long ;; -help=r* | --help=r* | --hel=r* | --he=r* | -hr*) ac_init_help=recursive ;; -help=s* | --help=s* | --hel=s* | --he=s* | -hs*) ac_init_help=short ;; -host | --host | --hos | --ho) ac_prev=host_alias ;; -host=* | --host=* | --hos=* | --ho=*) host_alias=$ac_optarg ;; -htmldir | --htmldir | --htmldi | --htmld | --html | --htm | --ht) ac_prev=htmldir ;; -htmldir=* | --htmldir=* | --htmldi=* | --htmld=* | --html=* | --htm=* \ | --ht=*) htmldir=$ac_optarg ;; -includedir | --includedir | --includedi | --included | --include \ | --includ | --inclu | --incl | --inc) ac_prev=includedir ;; -includedir=* | --includedir=* | --includedi=* | --included=* | --include=* \ | --includ=* | --inclu=* | --incl=* | --inc=*) includedir=$ac_optarg ;; -infodir | --infodir | --infodi | --infod | --info | --inf) ac_prev=infodir ;; -infodir=* | --infodir=* | --infodi=* | --infod=* | --info=* | --inf=*) infodir=$ac_optarg ;; -libdir | --libdir | --libdi | --libd) ac_prev=libdir ;; -libdir=* | --libdir=* | --libdi=* | --libd=*) libdir=$ac_optarg ;; -libexecdir | --libexecdir | --libexecdi | --libexecd | --libexec \ | --libexe | --libex | --libe) ac_prev=libexecdir ;; -libexecdir=* | --libexecdir=* | --libexecdi=* | --libexecd=* | --libexec=* \ | --libexe=* | --libex=* | --libe=*) libexecdir=$ac_optarg ;; -localedir | --localedir | --localedi | --localed | --locale) ac_prev=localedir ;; -localedir=* | --localedir=* | --localedi=* | --localed=* | --locale=*) localedir=$ac_optarg ;; -localstatedir | --localstatedir | --localstatedi | --localstated \ | --localstate | --localstat | --localsta | --localst | --locals) ac_prev=localstatedir ;; -localstatedir=* | --localstatedir=* | --localstatedi=* | --localstated=* \ | --localstate=* | --localstat=* | --localsta=* | --localst=* | --locals=*) localstatedir=$ac_optarg ;; -mandir | --mandir | --mandi | --mand | --man | --ma | --m) ac_prev=mandir ;; -mandir=* | --mandir=* | --mandi=* | --mand=* | --man=* | --ma=* | --m=*) mandir=$ac_optarg ;; -nfp | --nfp | --nf) # Obsolete; use --without-fp. with_fp=no ;; -no-create | --no-create | --no-creat | --no-crea | --no-cre \ | --no-cr | --no-c | -n) no_create=yes ;; -no-recursion | --no-recursion | --no-recursio | --no-recursi \ | --no-recurs | --no-recur | --no-recu | --no-rec | --no-re | --no-r) no_recursion=yes ;; -oldincludedir | --oldincludedir | --oldincludedi | --oldincluded \ | --oldinclude | --oldinclud | --oldinclu | --oldincl | --oldinc \ | --oldin | --oldi | --old | --ol | --o) ac_prev=oldincludedir ;; -oldincludedir=* | --oldincludedir=* | --oldincludedi=* | --oldincluded=* \ | --oldinclude=* | --oldinclud=* | --oldinclu=* | --oldincl=* | --oldinc=* \ | --oldin=* | --oldi=* | --old=* | --ol=* | --o=*) oldincludedir=$ac_optarg ;; -prefix | --prefix | --prefi | --pref | --pre | --pr | --p) ac_prev=prefix ;; -prefix=* | --prefix=* | --prefi=* | --pref=* | --pre=* | --pr=* | --p=*) prefix=$ac_optarg ;; -program-prefix | --program-prefix | --program-prefi | --program-pref \ | --program-pre | --program-pr | --program-p) ac_prev=program_prefix ;; -program-prefix=* | --program-prefix=* | --program-prefi=* \ | --program-pref=* | --program-pre=* | --program-pr=* | --program-p=*) program_prefix=$ac_optarg ;; -program-suffix | --program-suffix | --program-suffi | --program-suff \ | --program-suf | --program-su | --program-s) ac_prev=program_suffix ;; -program-suffix=* | --program-suffix=* | --program-suffi=* \ | --program-suff=* | --program-suf=* | --program-su=* | --program-s=*) program_suffix=$ac_optarg ;; -program-transform-name | --program-transform-name \ | --program-transform-nam | --program-transform-na \ | --program-transform-n | --program-transform- \ | --program-transform | --program-transfor \ | --program-transfo | --program-transf \ | --program-trans | --program-tran \ | --progr-tra | --program-tr | --program-t) ac_prev=program_transform_name ;; -program-transform-name=* | --program-transform-name=* \ | --program-transform-nam=* | --program-transform-na=* \ | --program-transform-n=* | --program-transform-=* \ | --program-transform=* | --program-transfor=* \ | --program-transfo=* | --program-transf=* \ | --program-trans=* | --program-tran=* \ | --progr-tra=* | --program-tr=* | --program-t=*) program_transform_name=$ac_optarg ;; -pdfdir | --pdfdir | --pdfdi | --pdfd | --pdf | --pd) ac_prev=pdfdir ;; -pdfdir=* | --pdfdir=* | --pdfdi=* | --pdfd=* | --pdf=* | --pd=*) pdfdir=$ac_optarg ;; -psdir | --psdir | --psdi | --psd | --ps) ac_prev=psdir ;; -psdir=* | --psdir=* | --psdi=* | --psd=* | --ps=*) psdir=$ac_optarg ;; -q | -quiet | --quiet | --quie | --qui | --qu | --q \ | -silent | --silent | --silen | --sile | --sil) silent=yes ;; -sbindir | --sbindir | --sbindi | --sbind | --sbin | --sbi | --sb) ac_prev=sbindir ;; -sbindir=* | --sbindir=* | --sbindi=* | --sbind=* | --sbin=* \ | --sbi=* | --sb=*) sbindir=$ac_optarg ;; -sharedstatedir | --sharedstatedir | --sharedstatedi \ | --sharedstated | --sharedstate | --sharedstat | --sharedsta \ | --sharedst | --shareds | --shared | --share | --shar \ | --sha | --sh) ac_prev=sharedstatedir ;; -sharedstatedir=* | --sharedstatedir=* | --sharedstatedi=* \ | --sharedstated=* | --sharedstate=* | --sharedstat=* | --sharedsta=* \ | --sharedst=* | --shareds=* | --shared=* | --share=* | --shar=* \ | --sha=* | --sh=*) sharedstatedir=$ac_optarg ;; -site | --site | --sit) ac_prev=site ;; -site=* | --site=* | --sit=*) site=$ac_optarg ;; -srcdir | --srcdir | --srcdi | --srcd | --src | --sr) ac_prev=srcdir ;; -srcdir=* | --srcdir=* | --srcdi=* | --srcd=* | --src=* | --sr=*) srcdir=$ac_optarg ;; -sysconfdir | --sysconfdir | --sysconfdi | --sysconfd | --sysconf \ | --syscon | --sysco | --sysc | --sys | --sy) ac_prev=sysconfdir ;; -sysconfdir=* | --sysconfdir=* | --sysconfdi=* | --sysconfd=* | --sysconf=* \ | --syscon=* | --sysco=* | --sysc=* | --sys=* | --sy=*) sysconfdir=$ac_optarg ;; -target | --target | --targe | --targ | --tar | --ta | --t) ac_prev=target_alias ;; -target=* | --target=* | --targe=* | --targ=* | --tar=* | --ta=* | --t=*) target_alias=$ac_optarg ;; -v | -verbose | --verbose | --verbos | --verbo | --verb) verbose=yes ;; -version | --version | --versio | --versi | --vers | -V) ac_init_version=: ;; -with-* | --with-*) ac_useropt=`expr "x$ac_option" : 'x-*with-\([^=]*\)'` # Reject names that are not valid shell variable names. expr "x$ac_useropt" : ".*[^-+._$as_cr_alnum]" >/dev/null && as_fn_error $? "invalid package name: $ac_useropt" ac_useropt_orig=$ac_useropt ac_useropt=`$as_echo "$ac_useropt" | sed 's/[-+.]/_/g'` case $ac_user_opts in *" "with_$ac_useropt" "*) ;; *) ac_unrecognized_opts="$ac_unrecognized_opts$ac_unrecognized_sep--with-$ac_useropt_orig" ac_unrecognized_sep=', ';; esac eval with_$ac_useropt=\$ac_optarg ;; -without-* | --without-*) ac_useropt=`expr "x$ac_option" : 'x-*without-\(.*\)'` # Reject names that are not valid shell variable names. expr "x$ac_useropt" : ".*[^-+._$as_cr_alnum]" >/dev/null && as_fn_error $? "invalid package name: $ac_useropt" ac_useropt_orig=$ac_useropt ac_useropt=`$as_echo "$ac_useropt" | sed 's/[-+.]/_/g'` case $ac_user_opts in *" "with_$ac_useropt" "*) ;; *) ac_unrecognized_opts="$ac_unrecognized_opts$ac_unrecognized_sep--without-$ac_useropt_orig" ac_unrecognized_sep=', ';; esac eval with_$ac_useropt=no ;; --x) # Obsolete; use --with-x. with_x=yes ;; -x-includes | --x-includes | --x-include | --x-includ | --x-inclu \ | --x-incl | --x-inc | --x-in | --x-i) ac_prev=x_includes ;; -x-includes=* | --x-includes=* | --x-include=* | --x-includ=* | --x-inclu=* \ | --x-incl=* | --x-inc=* | --x-in=* | --x-i=*) x_includes=$ac_optarg ;; -x-libraries | --x-libraries | --x-librarie | --x-librari \ | --x-librar | --x-libra | --x-libr | --x-lib | --x-li | --x-l) ac_prev=x_libraries ;; -x-libraries=* | --x-libraries=* | --x-librarie=* | --x-librari=* \ | --x-librar=* | --x-libra=* | --x-libr=* | --x-lib=* | --x-li=* | --x-l=*) x_libraries=$ac_optarg ;; -*) as_fn_error $? "unrecognized option: \`$ac_option' Try \`$0 --help' for more information" ;; *=*) ac_envvar=`expr "x$ac_option" : 'x\([^=]*\)='` # Reject names that are not valid shell variable names. case $ac_envvar in #( '' | [0-9]* | *[!_$as_cr_alnum]* ) as_fn_error $? "invalid variable name: \`$ac_envvar'" ;; esac eval $ac_envvar=\$ac_optarg export $ac_envvar ;; *) # FIXME: should be removed in autoconf 3.0. $as_echo "$as_me: WARNING: you should use --build, --host, --target" >&2 expr "x$ac_option" : ".*[^-._$as_cr_alnum]" >/dev/null && $as_echo "$as_me: WARNING: invalid host type: $ac_option" >&2 : "${build_alias=$ac_option} ${host_alias=$ac_option} ${target_alias=$ac_option}" ;; esac done if test -n "$ac_prev"; then ac_option=--`echo $ac_prev | sed 's/_/-/g'` as_fn_error $? "missing argument to $ac_option" fi if test -n "$ac_unrecognized_opts"; then case $enable_option_checking in no) ;; fatal) as_fn_error $? "unrecognized options: $ac_unrecognized_opts" ;; *) $as_echo "$as_me: WARNING: unrecognized options: $ac_unrecognized_opts" >&2 ;; esac fi # Check all directory arguments for consistency. for ac_var in exec_prefix prefix bindir sbindir libexecdir datarootdir \ datadir sysconfdir sharedstatedir localstatedir includedir \ oldincludedir docdir infodir htmldir dvidir pdfdir psdir \ libdir localedir mandir do eval ac_val=\$$ac_var # Remove trailing slashes. case $ac_val in */ ) ac_val=`expr "X$ac_val" : 'X\(.*[^/]\)' \| "X$ac_val" : 'X\(.*\)'` eval $ac_var=\$ac_val;; esac # Be sure to have absolute directory names. case $ac_val in [\\/$]* | ?:[\\/]* ) continue;; NONE | '' ) case $ac_var in *prefix ) continue;; esac;; esac as_fn_error $? "expected an absolute directory name for --$ac_var: $ac_val" done # There might be people who depend on the old broken behavior: `$host' # used to hold the argument of --host etc. # FIXME: To remove some day. build=$build_alias host=$host_alias target=$target_alias # FIXME: To remove some day. if test "x$host_alias" != x; then if test "x$build_alias" = x; then cross_compiling=maybe elif test "x$build_alias" != "x$host_alias"; then cross_compiling=yes fi fi ac_tool_prefix= test -n "$host_alias" && ac_tool_prefix=$host_alias- test "$silent" = yes && exec 6>/dev/null ac_pwd=`pwd` && test -n "$ac_pwd" && ac_ls_di=`ls -di .` && ac_pwd_ls_di=`cd "$ac_pwd" && ls -di .` || as_fn_error $? "working directory cannot be determined" test "X$ac_ls_di" = "X$ac_pwd_ls_di" || as_fn_error $? "pwd does not report name of working directory" # Find the source files, if location was not specified. if test -z "$srcdir"; then ac_srcdir_defaulted=yes # Try the directory containing this script, then the parent directory. ac_confdir=`$as_dirname -- "$as_myself" || $as_expr X"$as_myself" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ X"$as_myself" : 'X\(//\)[^/]' \| \ X"$as_myself" : 'X\(//\)$' \| \ X"$as_myself" : 'X\(/\)' \| . 2>/dev/null || $as_echo X"$as_myself" | sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ s//\1/ q } /^X\(\/\/\)[^/].*/{ s//\1/ q } /^X\(\/\/\)$/{ s//\1/ q } /^X\(\/\).*/{ s//\1/ q } s/.*/./; q'` srcdir=$ac_confdir if test ! -r "$srcdir/$ac_unique_file"; then srcdir=.. fi else ac_srcdir_defaulted=no fi if test ! -r "$srcdir/$ac_unique_file"; then test "$ac_srcdir_defaulted" = yes && srcdir="$ac_confdir or .." as_fn_error $? "cannot find sources ($ac_unique_file) in $srcdir" fi ac_msg="sources are in $srcdir, but \`cd $srcdir' does not work" ac_abs_confdir=`( cd "$srcdir" && test -r "./$ac_unique_file" || as_fn_error $? "$ac_msg" pwd)` # When building in place, set srcdir=. if test "$ac_abs_confdir" = "$ac_pwd"; then srcdir=. fi # Remove unnecessary trailing slashes from srcdir. # Double slashes in file names in object file debugging info # mess up M-x gdb in Emacs. case $srcdir in */) srcdir=`expr "X$srcdir" : 'X\(.*[^/]\)' \| "X$srcdir" : 'X\(.*\)'`;; esac for ac_var in $ac_precious_vars; do eval ac_env_${ac_var}_set=\${${ac_var}+set} eval ac_env_${ac_var}_value=\$${ac_var} eval ac_cv_env_${ac_var}_set=\${${ac_var}+set} eval ac_cv_env_${ac_var}_value=\$${ac_var} done # # Report the --help message. # if test "$ac_init_help" = "long"; then # Omit some internal or obsolete options to make the list less imposing. # This message is too long to be a string in the A/UX 3.1 sh. cat <<_ACEOF \`configure' configures GNU libffcall 2.2 to adapt to many kinds of systems. Usage: $0 [OPTION]... [VAR=VALUE]... To assign environment variables (e.g., CC, CFLAGS...), specify them as VAR=VALUE. See below for descriptions of some of the useful variables. Defaults for the options are specified in brackets. Configuration: -h, --help display this help and exit --help=short display options specific to this package --help=recursive display the short help of all the included packages -V, --version display version information and exit -q, --quiet, --silent do not print \`checking ...' messages --cache-file=FILE cache test results in FILE [disabled] -C, --config-cache alias for \`--cache-file=config.cache' -n, --no-create do not create output files --srcdir=DIR find the sources in DIR [configure dir or \`..'] Installation directories: --prefix=PREFIX install architecture-independent files in PREFIX [$ac_default_prefix] --exec-prefix=EPREFIX install architecture-dependent files in EPREFIX [PREFIX] By default, \`make install' will install all the files in \`$ac_default_prefix/bin', \`$ac_default_prefix/lib' etc. You can specify an installation prefix other than \`$ac_default_prefix' using \`--prefix', for instance \`--prefix=\$HOME'. For better control, use the options below. Fine tuning of the installation directories: --bindir=DIR user executables [EPREFIX/bin] --sbindir=DIR system admin executables [EPREFIX/sbin] --libexecdir=DIR program executables [EPREFIX/libexec] --sysconfdir=DIR read-only single-machine data [PREFIX/etc] --sharedstatedir=DIR modifiable architecture-independent data [PREFIX/com] --localstatedir=DIR modifiable single-machine data [PREFIX/var] --libdir=DIR object code libraries [EPREFIX/lib] --includedir=DIR C header files [PREFIX/include] --oldincludedir=DIR C header files for non-gcc [/usr/include] --datarootdir=DIR read-only arch.-independent data root [PREFIX/share] --datadir=DIR read-only architecture-independent data [DATAROOTDIR] --infodir=DIR info documentation [DATAROOTDIR/info] --localedir=DIR locale-dependent data [DATAROOTDIR/locale] --mandir=DIR man documentation [DATAROOTDIR/man] --docdir=DIR documentation root [DATAROOTDIR/doc/libffcall] --htmldir=DIR html documentation [DOCDIR] --dvidir=DIR dvi documentation [DOCDIR] --pdfdir=DIR pdf documentation [DOCDIR] --psdir=DIR ps documentation [DOCDIR] _ACEOF cat <<\_ACEOF Program names: --program-prefix=PREFIX prepend PREFIX to installed program names --program-suffix=SUFFIX append SUFFIX to installed program names --program-transform-name=PROGRAM run sed PROGRAM on installed program names System types: --build=BUILD configure for building on BUILD [guessed] --host=HOST cross-compile to build programs to run on HOST [BUILD] _ACEOF fi if test -n "$ac_init_help"; then case $ac_init_help in short | recursive ) echo "Configuration of GNU libffcall 2.2:";; esac cat <<\_ACEOF Optional Features: --disable-option-checking ignore unrecognized --enable/--with options --disable-FEATURE do not include FEATURE (same as --enable-FEATURE=no) --enable-FEATURE[=ARG] include FEATURE [ARG=yes] --enable-silent-rules less verbose build output (undo: "make V=1") --disable-silent-rules verbose build output (undo: "make V=0") --enable-dependency-tracking do not reject slow dependency extractors --disable-dependency-tracking speeds up one-time build --disable-c++ do not build C++ sources --enable-threads={posix|windows} specify multithreading API --disable-threads build without multithread safety --enable-shared[=PKGS] build shared libraries [default=yes] --enable-static[=PKGS] build static libraries [default=yes] --enable-fast-install[=PKGS] optimize for fast installation [default=yes] --disable-libtool-lock avoid locking (might break parallel builds) Optional Packages: --with-PACKAGE[=ARG] use PACKAGE [ARG=yes] --without-PACKAGE do not use PACKAGE (same as --with-PACKAGE=no) --with-pic[=PKGS] try to use only PIC/non-PIC objects [default=use both] --with-aix-soname=aix|svr4|both shared library versioning (aka "SONAME") variant to provide on AIX, [default=aix]. --with-gnu-ld assume the C compiler uses GNU ld [default=no] --with-sysroot[=DIR] Search for dependent libraries within DIR (or the compiler's sysroot if not specified). Some influential environment variables: CC C compiler command CFLAGS C compiler flags LDFLAGS linker flags, e.g. -L if you have libraries in a nonstandard directory LIBS libraries to pass to the linker, e.g. -l CPPFLAGS (Objective) C/C++ preprocessor flags, e.g. -I if you have headers in a nonstandard directory CPP C preprocessor CXX C++ compiler command CXXFLAGS C++ compiler flags LT_SYS_LIBRARY_PATH User-defined run-time library search path. Use these variables to override the choices made by `configure' or to help it to find libraries and programs with nonstandard names/locations. Report bugs to . GNU libffcall home page: . General help using GNU software: . _ACEOF ac_status=$? fi if test "$ac_init_help" = "recursive"; then # If there are subdirs, report their specific --help. for ac_dir in : $ac_subdirs_all; do test "x$ac_dir" = x: && continue test -d "$ac_dir" || { cd "$srcdir" && ac_pwd=`pwd` && srcdir=. && test -d "$ac_dir"; } || continue ac_builddir=. case "$ac_dir" in .) ac_dir_suffix= ac_top_builddir_sub=. ac_top_build_prefix= ;; *) ac_dir_suffix=/`$as_echo "$ac_dir" | sed 's|^\.[\\/]||'` # A ".." for each directory in $ac_dir_suffix. ac_top_builddir_sub=`$as_echo "$ac_dir_suffix" | sed 's|/[^\\/]*|/..|g;s|/||'` case $ac_top_builddir_sub in "") ac_top_builddir_sub=. ac_top_build_prefix= ;; *) ac_top_build_prefix=$ac_top_builddir_sub/ ;; esac ;; esac ac_abs_top_builddir=$ac_pwd ac_abs_builddir=$ac_pwd$ac_dir_suffix # for backward compatibility: ac_top_builddir=$ac_top_build_prefix case $srcdir in .) # We are building in place. ac_srcdir=. ac_top_srcdir=$ac_top_builddir_sub ac_abs_top_srcdir=$ac_pwd ;; [\\/]* | ?:[\\/]* ) # Absolute name. ac_srcdir=$srcdir$ac_dir_suffix; ac_top_srcdir=$srcdir ac_abs_top_srcdir=$srcdir ;; *) # Relative name. ac_srcdir=$ac_top_build_prefix$srcdir$ac_dir_suffix ac_top_srcdir=$ac_top_build_prefix$srcdir ac_abs_top_srcdir=$ac_pwd/$srcdir ;; esac ac_abs_srcdir=$ac_abs_top_srcdir$ac_dir_suffix cd "$ac_dir" || { ac_status=$?; continue; } # Check for guested configure. if test -f "$ac_srcdir/configure.gnu"; then echo && $SHELL "$ac_srcdir/configure.gnu" --help=recursive elif test -f "$ac_srcdir/configure"; then echo && $SHELL "$ac_srcdir/configure" --help=recursive else $as_echo "$as_me: WARNING: no configuration information is in $ac_dir" >&2 fi || ac_status=$? cd "$ac_pwd" || { ac_status=$?; break; } done fi test -n "$ac_init_help" && exit $ac_status if $ac_init_version; then cat <<\_ACEOF GNU libffcall configure 2.2 generated by GNU Autoconf 2.69 Copyright (C) 2012 Free Software Foundation, Inc. This configure script is free software; the Free Software Foundation gives unlimited permission to copy, distribute and modify it. _ACEOF exit fi ## ------------------------ ## ## Autoconf initialization. ## ## ------------------------ ## # ac_fn_c_try_compile LINENO # -------------------------- # Try to compile conftest.$ac_ext, and return whether this succeeded. ac_fn_c_try_compile () { as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack rm -f conftest.$ac_objext if { { ac_try="$ac_compile" case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" $as_echo "$ac_try_echo"; } >&5 (eval "$ac_compile") 2>conftest.err ac_status=$? if test -s conftest.err; then grep -v '^ *+' conftest.err >conftest.er1 cat conftest.er1 >&5 mv -f conftest.er1 conftest.err fi $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; } && { test -z "$ac_c_werror_flag" || test ! -s conftest.err } && test -s conftest.$ac_objext; then : ac_retval=0 else $as_echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_retval=1 fi eval $as_lineno_stack; ${as_lineno_stack:+:} unset as_lineno as_fn_set_status $ac_retval } # ac_fn_c_try_compile # ac_fn_c_try_cpp LINENO # ---------------------- # Try to preprocess conftest.$ac_ext, and return whether this succeeded. ac_fn_c_try_cpp () { as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack if { { ac_try="$ac_cpp conftest.$ac_ext" case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" $as_echo "$ac_try_echo"; } >&5 (eval "$ac_cpp conftest.$ac_ext") 2>conftest.err ac_status=$? if test -s conftest.err; then grep -v '^ *+' conftest.err >conftest.er1 cat conftest.er1 >&5 mv -f conftest.er1 conftest.err fi $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; } > conftest.i && { test -z "$ac_c_preproc_warn_flag$ac_c_werror_flag" || test ! -s conftest.err }; then : ac_retval=0 else $as_echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_retval=1 fi eval $as_lineno_stack; ${as_lineno_stack:+:} unset as_lineno as_fn_set_status $ac_retval } # ac_fn_c_try_cpp # ac_fn_c_check_header_mongrel LINENO HEADER VAR INCLUDES # ------------------------------------------------------- # Tests whether HEADER exists, giving a warning if it cannot be compiled using # the include files in INCLUDES and setting the cache variable VAR # accordingly. ac_fn_c_check_header_mongrel () { as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack if eval \${$3+:} false; then : { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $2" >&5 $as_echo_n "checking for $2... " >&6; } if eval \${$3+:} false; then : $as_echo_n "(cached) " >&6 fi eval ac_res=\$$3 { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_res" >&5 $as_echo "$ac_res" >&6; } else # Is the header compilable? { $as_echo "$as_me:${as_lineno-$LINENO}: checking $2 usability" >&5 $as_echo_n "checking $2 usability... " >&6; } cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ $4 #include <$2> _ACEOF if ac_fn_c_try_compile "$LINENO"; then : ac_header_compiler=yes else ac_header_compiler=no fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_header_compiler" >&5 $as_echo "$ac_header_compiler" >&6; } # Is the header present? { $as_echo "$as_me:${as_lineno-$LINENO}: checking $2 presence" >&5 $as_echo_n "checking $2 presence... " >&6; } cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include <$2> _ACEOF if ac_fn_c_try_cpp "$LINENO"; then : ac_header_preproc=yes else ac_header_preproc=no fi rm -f conftest.err conftest.i conftest.$ac_ext { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_header_preproc" >&5 $as_echo "$ac_header_preproc" >&6; } # So? What about this header? case $ac_header_compiler:$ac_header_preproc:$ac_c_preproc_warn_flag in #(( yes:no: ) { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $2: accepted by the compiler, rejected by the preprocessor!" >&5 $as_echo "$as_me: WARNING: $2: accepted by the compiler, rejected by the preprocessor!" >&2;} { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $2: proceeding with the compiler's result" >&5 $as_echo "$as_me: WARNING: $2: proceeding with the compiler's result" >&2;} ;; no:yes:* ) { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $2: present but cannot be compiled" >&5 $as_echo "$as_me: WARNING: $2: present but cannot be compiled" >&2;} { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $2: check for missing prerequisite headers?" >&5 $as_echo "$as_me: WARNING: $2: check for missing prerequisite headers?" >&2;} { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $2: see the Autoconf documentation" >&5 $as_echo "$as_me: WARNING: $2: see the Autoconf documentation" >&2;} { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $2: section \"Present But Cannot Be Compiled\"" >&5 $as_echo "$as_me: WARNING: $2: section \"Present But Cannot Be Compiled\"" >&2;} { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $2: proceeding with the compiler's result" >&5 $as_echo "$as_me: WARNING: $2: proceeding with the compiler's result" >&2;} ( $as_echo "## ---------------------------------------------------------- ## ## Report this to https://savannah.gnu.org/projects/libffcall ## ## ---------------------------------------------------------- ##" ) | sed "s/^/$as_me: WARNING: /" >&2 ;; esac { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $2" >&5 $as_echo_n "checking for $2... " >&6; } if eval \${$3+:} false; then : $as_echo_n "(cached) " >&6 else eval "$3=\$ac_header_compiler" fi eval ac_res=\$$3 { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_res" >&5 $as_echo "$ac_res" >&6; } fi eval $as_lineno_stack; ${as_lineno_stack:+:} unset as_lineno } # ac_fn_c_check_header_mongrel # ac_fn_c_try_run LINENO # ---------------------- # Try to link conftest.$ac_ext, and return whether this succeeded. Assumes # that executables *can* be run. ac_fn_c_try_run () { as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack if { { ac_try="$ac_link" case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" $as_echo "$ac_try_echo"; } >&5 (eval "$ac_link") 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; } && { ac_try='./conftest$ac_exeext' { { case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" $as_echo "$ac_try_echo"; } >&5 (eval "$ac_try") 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; }; }; then : ac_retval=0 else $as_echo "$as_me: program exited with status $ac_status" >&5 $as_echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_retval=$ac_status fi rm -rf conftest.dSYM conftest_ipa8_conftest.oo eval $as_lineno_stack; ${as_lineno_stack:+:} unset as_lineno as_fn_set_status $ac_retval } # ac_fn_c_try_run # ac_fn_c_check_header_compile LINENO HEADER VAR INCLUDES # ------------------------------------------------------- # Tests whether HEADER exists and can be compiled using the include files in # INCLUDES, setting the cache variable VAR accordingly. ac_fn_c_check_header_compile () { as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $2" >&5 $as_echo_n "checking for $2... " >&6; } if eval \${$3+:} false; then : $as_echo_n "(cached) " >&6 else cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ $4 #include <$2> _ACEOF if ac_fn_c_try_compile "$LINENO"; then : eval "$3=yes" else eval "$3=no" fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext fi eval ac_res=\$$3 { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_res" >&5 $as_echo "$ac_res" >&6; } eval $as_lineno_stack; ${as_lineno_stack:+:} unset as_lineno } # ac_fn_c_check_header_compile # ac_fn_c_try_link LINENO # ----------------------- # Try to link conftest.$ac_ext, and return whether this succeeded. ac_fn_c_try_link () { as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack rm -f conftest.$ac_objext conftest$ac_exeext if { { ac_try="$ac_link" case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" $as_echo "$ac_try_echo"; } >&5 (eval "$ac_link") 2>conftest.err ac_status=$? if test -s conftest.err; then grep -v '^ *+' conftest.err >conftest.er1 cat conftest.er1 >&5 mv -f conftest.er1 conftest.err fi $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; } && { test -z "$ac_c_werror_flag" || test ! -s conftest.err } && test -s conftest$ac_exeext && { test "$cross_compiling" = yes || test -x conftest$ac_exeext }; then : ac_retval=0 else $as_echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_retval=1 fi # Delete the IPA/IPO (Inter Procedural Analysis/Optimization) information # created by the PGI compiler (conftest_ipa8_conftest.oo), as it would # interfere with the next link command; also delete a directory that is # left behind by Apple's compiler. We do this before executing the actions. rm -rf conftest.dSYM conftest_ipa8_conftest.oo eval $as_lineno_stack; ${as_lineno_stack:+:} unset as_lineno as_fn_set_status $ac_retval } # ac_fn_c_try_link # ac_fn_c_check_func LINENO FUNC VAR # ---------------------------------- # Tests whether FUNC exists, setting the cache variable VAR accordingly ac_fn_c_check_func () { as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $2" >&5 $as_echo_n "checking for $2... " >&6; } if eval \${$3+:} false; then : $as_echo_n "(cached) " >&6 else cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ /* Define $2 to an innocuous variant, in case declares $2. For example, HP-UX 11i declares gettimeofday. */ #define $2 innocuous_$2 /* System header to define __stub macros and hopefully few prototypes, which can conflict with char $2 (); below. Prefer to if __STDC__ is defined, since exists even on freestanding compilers. */ #ifdef __STDC__ # include #else # include #endif #undef $2 /* Override any GCC internal prototype to avoid an error. Use char because int might match the return type of a GCC builtin and then its argument prototype would still apply. */ #ifdef __cplusplus extern "C" #endif char $2 (); /* The GNU C library defines this for functions which it implements to always fail with ENOSYS. Some functions are actually named something starting with __ and the normal name is an alias. */ #if defined __stub_$2 || defined __stub___$2 choke me #endif int main () { return $2 (); ; return 0; } _ACEOF if ac_fn_c_try_link "$LINENO"; then : eval "$3=yes" else eval "$3=no" fi rm -f core conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext fi eval ac_res=\$$3 { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_res" >&5 $as_echo "$ac_res" >&6; } eval $as_lineno_stack; ${as_lineno_stack:+:} unset as_lineno } # ac_fn_c_check_func # ac_fn_c_check_type LINENO TYPE VAR INCLUDES # ------------------------------------------- # Tests whether TYPE exists after having included INCLUDES, setting cache # variable VAR accordingly. ac_fn_c_check_type () { as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $2" >&5 $as_echo_n "checking for $2... " >&6; } if eval \${$3+:} false; then : $as_echo_n "(cached) " >&6 else eval "$3=no" cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ $4 int main () { if (sizeof ($2)) return 0; ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO"; then : cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ $4 int main () { if (sizeof (($2))) return 0; ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO"; then : else eval "$3=yes" fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext fi eval ac_res=\$$3 { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_res" >&5 $as_echo "$ac_res" >&6; } eval $as_lineno_stack; ${as_lineno_stack:+:} unset as_lineno } # ac_fn_c_check_type # ac_fn_c_compute_int LINENO EXPR VAR INCLUDES # -------------------------------------------- # Tries to find the compile-time value of EXPR in a program that includes # INCLUDES, setting VAR accordingly. Returns whether the value could be # computed ac_fn_c_compute_int () { as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack if test "$cross_compiling" = yes; then # Depending upon the size, compute the lo and hi bounds. cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ $4 int main () { static int test_array [1 - 2 * !(($2) >= 0)]; test_array [0] = 0; return test_array [0]; ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO"; then : ac_lo=0 ac_mid=0 while :; do cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ $4 int main () { static int test_array [1 - 2 * !(($2) <= $ac_mid)]; test_array [0] = 0; return test_array [0]; ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO"; then : ac_hi=$ac_mid; break else as_fn_arith $ac_mid + 1 && ac_lo=$as_val if test $ac_lo -le $ac_mid; then ac_lo= ac_hi= break fi as_fn_arith 2 '*' $ac_mid + 1 && ac_mid=$as_val fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext done else cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ $4 int main () { static int test_array [1 - 2 * !(($2) < 0)]; test_array [0] = 0; return test_array [0]; ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO"; then : ac_hi=-1 ac_mid=-1 while :; do cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ $4 int main () { static int test_array [1 - 2 * !(($2) >= $ac_mid)]; test_array [0] = 0; return test_array [0]; ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO"; then : ac_lo=$ac_mid; break else as_fn_arith '(' $ac_mid ')' - 1 && ac_hi=$as_val if test $ac_mid -le $ac_hi; then ac_lo= ac_hi= break fi as_fn_arith 2 '*' $ac_mid && ac_mid=$as_val fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext done else ac_lo= ac_hi= fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext # Binary search between lo and hi bounds. while test "x$ac_lo" != "x$ac_hi"; do as_fn_arith '(' $ac_hi - $ac_lo ')' / 2 + $ac_lo && ac_mid=$as_val cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ $4 int main () { static int test_array [1 - 2 * !(($2) <= $ac_mid)]; test_array [0] = 0; return test_array [0]; ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO"; then : ac_hi=$ac_mid else as_fn_arith '(' $ac_mid ')' + 1 && ac_lo=$as_val fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext done case $ac_lo in #(( ?*) eval "$3=\$ac_lo"; ac_retval=0 ;; '') ac_retval=1 ;; esac else cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ $4 static long int longval () { return $2; } static unsigned long int ulongval () { return $2; } #include #include int main () { FILE *f = fopen ("conftest.val", "w"); if (! f) return 1; if (($2) < 0) { long int i = longval (); if (i != ($2)) return 1; fprintf (f, "%ld", i); } else { unsigned long int i = ulongval (); if (i != ($2)) return 1; fprintf (f, "%lu", i); } /* Do not output a trailing newline, as this causes \r\n confusion on some platforms. */ return ferror (f) || fclose (f) != 0; ; return 0; } _ACEOF if ac_fn_c_try_run "$LINENO"; then : echo >>conftest.val; read $3 config.log <<_ACEOF This file contains any messages produced by compilers while running configure, to aid debugging if configure makes a mistake. It was created by GNU libffcall $as_me 2.2, which was generated by GNU Autoconf 2.69. Invocation command line was $ $0 $@ _ACEOF exec 5>>config.log { cat <<_ASUNAME ## --------- ## ## Platform. ## ## --------- ## hostname = `(hostname || uname -n) 2>/dev/null | sed 1q` uname -m = `(uname -m) 2>/dev/null || echo unknown` uname -r = `(uname -r) 2>/dev/null || echo unknown` uname -s = `(uname -s) 2>/dev/null || echo unknown` uname -v = `(uname -v) 2>/dev/null || echo unknown` /usr/bin/uname -p = `(/usr/bin/uname -p) 2>/dev/null || echo unknown` /bin/uname -X = `(/bin/uname -X) 2>/dev/null || echo unknown` /bin/arch = `(/bin/arch) 2>/dev/null || echo unknown` /usr/bin/arch -k = `(/usr/bin/arch -k) 2>/dev/null || echo unknown` /usr/convex/getsysinfo = `(/usr/convex/getsysinfo) 2>/dev/null || echo unknown` /usr/bin/hostinfo = `(/usr/bin/hostinfo) 2>/dev/null || echo unknown` /bin/machine = `(/bin/machine) 2>/dev/null || echo unknown` /usr/bin/oslevel = `(/usr/bin/oslevel) 2>/dev/null || echo unknown` /bin/universe = `(/bin/universe) 2>/dev/null || echo unknown` _ASUNAME as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. $as_echo "PATH: $as_dir" done IFS=$as_save_IFS } >&5 cat >&5 <<_ACEOF ## ----------- ## ## Core tests. ## ## ----------- ## _ACEOF # Keep a trace of the command line. # Strip out --no-create and --no-recursion so they do not pile up. # Strip out --silent because we don't want to record it for future runs. # Also quote any args containing shell meta-characters. # Make two passes to allow for proper duplicate-argument suppression. ac_configure_args= ac_configure_args0= ac_configure_args1= ac_must_keep_next=false for ac_pass in 1 2 do for ac_arg do case $ac_arg in -no-create | --no-c* | -n | -no-recursion | --no-r*) continue ;; -q | -quiet | --quiet | --quie | --qui | --qu | --q \ | -silent | --silent | --silen | --sile | --sil) continue ;; *\'*) ac_arg=`$as_echo "$ac_arg" | sed "s/'/'\\\\\\\\''/g"` ;; esac case $ac_pass in 1) as_fn_append ac_configure_args0 " '$ac_arg'" ;; 2) as_fn_append ac_configure_args1 " '$ac_arg'" if test $ac_must_keep_next = true; then ac_must_keep_next=false # Got value, back to normal. else case $ac_arg in *=* | --config-cache | -C | -disable-* | --disable-* \ | -enable-* | --enable-* | -gas | --g* | -nfp | --nf* \ | -q | -quiet | --q* | -silent | --sil* | -v | -verb* \ | -with-* | --with-* | -without-* | --without-* | --x) case "$ac_configure_args0 " in "$ac_configure_args1"*" '$ac_arg' "* ) continue ;; esac ;; -* ) ac_must_keep_next=true ;; esac fi as_fn_append ac_configure_args " '$ac_arg'" ;; esac done done { ac_configure_args0=; unset ac_configure_args0;} { ac_configure_args1=; unset ac_configure_args1;} # When interrupted or exit'd, cleanup temporary files, and complete # config.log. We remove comments because anyway the quotes in there # would cause problems or look ugly. # WARNING: Use '\'' to represent an apostrophe within the trap. # WARNING: Do not start the trap code with a newline, due to a FreeBSD 4.0 bug. trap 'exit_status=$? # Save into config.log some information that might help in debugging. { echo $as_echo "## ---------------- ## ## Cache variables. ## ## ---------------- ##" echo # The following way of writing the cache mishandles newlines in values, ( for ac_var in `(set) 2>&1 | sed -n '\''s/^\([a-zA-Z_][a-zA-Z0-9_]*\)=.*/\1/p'\''`; do eval ac_val=\$$ac_var case $ac_val in #( *${as_nl}*) case $ac_var in #( *_cv_*) { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: cache variable $ac_var contains a newline" >&5 $as_echo "$as_me: WARNING: cache variable $ac_var contains a newline" >&2;} ;; esac case $ac_var in #( _ | IFS | as_nl) ;; #( BASH_ARGV | BASH_SOURCE) eval $ac_var= ;; #( *) { eval $ac_var=; unset $ac_var;} ;; esac ;; esac done (set) 2>&1 | case $as_nl`(ac_space='\'' '\''; set) 2>&1` in #( *${as_nl}ac_space=\ *) sed -n \ "s/'\''/'\''\\\\'\'''\''/g; s/^\\([_$as_cr_alnum]*_cv_[_$as_cr_alnum]*\\)=\\(.*\\)/\\1='\''\\2'\''/p" ;; #( *) sed -n "/^[_$as_cr_alnum]*_cv_[_$as_cr_alnum]*=/p" ;; esac | sort ) echo $as_echo "## ----------------- ## ## Output variables. ## ## ----------------- ##" echo for ac_var in $ac_subst_vars do eval ac_val=\$$ac_var case $ac_val in *\'\''*) ac_val=`$as_echo "$ac_val" | sed "s/'\''/'\''\\\\\\\\'\'''\''/g"`;; esac $as_echo "$ac_var='\''$ac_val'\''" done | sort echo if test -n "$ac_subst_files"; then $as_echo "## ------------------- ## ## File substitutions. ## ## ------------------- ##" echo for ac_var in $ac_subst_files do eval ac_val=\$$ac_var case $ac_val in *\'\''*) ac_val=`$as_echo "$ac_val" | sed "s/'\''/'\''\\\\\\\\'\'''\''/g"`;; esac $as_echo "$ac_var='\''$ac_val'\''" done | sort echo fi if test -s confdefs.h; then $as_echo "## ----------- ## ## confdefs.h. ## ## ----------- ##" echo cat confdefs.h echo fi test "$ac_signal" != 0 && $as_echo "$as_me: caught signal $ac_signal" $as_echo "$as_me: exit $exit_status" } >&5 rm -f core *.core core.conftest.* && rm -f -r conftest* confdefs* conf$$* $ac_clean_files && exit $exit_status ' 0 for ac_signal in 1 2 13 15; do trap 'ac_signal='$ac_signal'; as_fn_exit 1' $ac_signal done ac_signal=0 # confdefs.h avoids OS command line length limits that DEFS can exceed. rm -f -r conftest* confdefs.h $as_echo "/* confdefs.h */" > confdefs.h # Predefined preprocessor variables. cat >>confdefs.h <<_ACEOF #define PACKAGE_NAME "$PACKAGE_NAME" _ACEOF cat >>confdefs.h <<_ACEOF #define PACKAGE_TARNAME "$PACKAGE_TARNAME" _ACEOF cat >>confdefs.h <<_ACEOF #define PACKAGE_VERSION "$PACKAGE_VERSION" _ACEOF cat >>confdefs.h <<_ACEOF #define PACKAGE_STRING "$PACKAGE_STRING" _ACEOF cat >>confdefs.h <<_ACEOF #define PACKAGE_BUGREPORT "$PACKAGE_BUGREPORT" _ACEOF cat >>confdefs.h <<_ACEOF #define PACKAGE_URL "$PACKAGE_URL" _ACEOF # Let the site file select an alternate cache file if it wants to. # Prefer an explicitly selected file to automatically selected ones. ac_site_file1=NONE ac_site_file2=NONE if test -n "$CONFIG_SITE"; then # We do not want a PATH search for config.site. case $CONFIG_SITE in #(( -*) ac_site_file1=./$CONFIG_SITE;; */*) ac_site_file1=$CONFIG_SITE;; *) ac_site_file1=./$CONFIG_SITE;; esac elif test "x$prefix" != xNONE; then ac_site_file1=$prefix/share/config.site ac_site_file2=$prefix/etc/config.site else ac_site_file1=$ac_default_prefix/share/config.site ac_site_file2=$ac_default_prefix/etc/config.site fi for ac_site_file in "$ac_site_file1" "$ac_site_file2" do test "x$ac_site_file" = xNONE && continue if test /dev/null != "$ac_site_file" && test -r "$ac_site_file"; then { $as_echo "$as_me:${as_lineno-$LINENO}: loading site script $ac_site_file" >&5 $as_echo "$as_me: loading site script $ac_site_file" >&6;} sed 's/^/| /' "$ac_site_file" >&5 . "$ac_site_file" \ || { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 $as_echo "$as_me: error: in \`$ac_pwd':" >&2;} as_fn_error $? "failed to load site script $ac_site_file See \`config.log' for more details" "$LINENO" 5; } fi done if test -r "$cache_file"; then # Some versions of bash will fail to source /dev/null (special files # actually), so we avoid doing that. DJGPP emulates it as a regular file. if test /dev/null != "$cache_file" && test -f "$cache_file"; then { $as_echo "$as_me:${as_lineno-$LINENO}: loading cache $cache_file" >&5 $as_echo "$as_me: loading cache $cache_file" >&6;} case $cache_file in [\\/]* | ?:[\\/]* ) . "$cache_file";; *) . "./$cache_file";; esac fi else { $as_echo "$as_me:${as_lineno-$LINENO}: creating cache $cache_file" >&5 $as_echo "$as_me: creating cache $cache_file" >&6;} >$cache_file fi gl_header_list="$gl_header_list limits.h" gl_header_list="$gl_header_list threads.h" gl_header_list="$gl_header_list wchar.h" gl_header_list="$gl_header_list stdint.h" # Check that the precious variables saved in the cache have kept the same # value. ac_cache_corrupted=false for ac_var in $ac_precious_vars; do eval ac_old_set=\$ac_cv_env_${ac_var}_set eval ac_new_set=\$ac_env_${ac_var}_set eval ac_old_val=\$ac_cv_env_${ac_var}_value eval ac_new_val=\$ac_env_${ac_var}_value case $ac_old_set,$ac_new_set in set,) { $as_echo "$as_me:${as_lineno-$LINENO}: error: \`$ac_var' was set to \`$ac_old_val' in the previous run" >&5 $as_echo "$as_me: error: \`$ac_var' was set to \`$ac_old_val' in the previous run" >&2;} ac_cache_corrupted=: ;; ,set) { $as_echo "$as_me:${as_lineno-$LINENO}: error: \`$ac_var' was not set in the previous run" >&5 $as_echo "$as_me: error: \`$ac_var' was not set in the previous run" >&2;} ac_cache_corrupted=: ;; ,);; *) if test "x$ac_old_val" != "x$ac_new_val"; then # differences in whitespace do not lead to failure. ac_old_val_w=`echo x $ac_old_val` ac_new_val_w=`echo x $ac_new_val` if test "$ac_old_val_w" != "$ac_new_val_w"; then { $as_echo "$as_me:${as_lineno-$LINENO}: error: \`$ac_var' has changed since the previous run:" >&5 $as_echo "$as_me: error: \`$ac_var' has changed since the previous run:" >&2;} ac_cache_corrupted=: else { $as_echo "$as_me:${as_lineno-$LINENO}: warning: ignoring whitespace changes in \`$ac_var' since the previous run:" >&5 $as_echo "$as_me: warning: ignoring whitespace changes in \`$ac_var' since the previous run:" >&2;} eval $ac_var=\$ac_old_val fi { $as_echo "$as_me:${as_lineno-$LINENO}: former value: \`$ac_old_val'" >&5 $as_echo "$as_me: former value: \`$ac_old_val'" >&2;} { $as_echo "$as_me:${as_lineno-$LINENO}: current value: \`$ac_new_val'" >&5 $as_echo "$as_me: current value: \`$ac_new_val'" >&2;} fi;; esac # Pass precious variables to config.status. if test "$ac_new_set" = set; then case $ac_new_val in *\'*) ac_arg=$ac_var=`$as_echo "$ac_new_val" | sed "s/'/'\\\\\\\\''/g"` ;; *) ac_arg=$ac_var=$ac_new_val ;; esac case " $ac_configure_args " in *" '$ac_arg' "*) ;; # Avoid dups. Use of quotes ensures accuracy. *) as_fn_append ac_configure_args " '$ac_arg'" ;; esac fi done if $ac_cache_corrupted; then { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 $as_echo "$as_me: error: in \`$ac_pwd':" >&2;} { $as_echo "$as_me:${as_lineno-$LINENO}: error: changes in the environment can compromise the build" >&5 $as_echo "$as_me: error: changes in the environment can compromise the build" >&2;} as_fn_error $? "run \`make distclean' and/or \`rm $cache_file' and start over" "$LINENO" 5 fi ## -------------------- ## ## Main body of script. ## ## -------------------- ## ac_ext=c ac_cpp='$CPP $CPPFLAGS' ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' ac_compiler_gnu=$ac_cv_c_compiler_gnu ac_aux_dir= for ac_dir in build-aux "$srcdir"/build-aux; do if test -f "$ac_dir/install-sh"; then ac_aux_dir=$ac_dir ac_install_sh="$ac_aux_dir/install-sh -c" break elif test -f "$ac_dir/install.sh"; then ac_aux_dir=$ac_dir ac_install_sh="$ac_aux_dir/install.sh -c" break elif test -f "$ac_dir/shtool"; then ac_aux_dir=$ac_dir ac_install_sh="$ac_aux_dir/shtool install -c" break fi done if test -z "$ac_aux_dir"; then as_fn_error $? "cannot find install-sh, install.sh, or shtool in build-aux \"$srcdir\"/build-aux" "$LINENO" 5 fi # These three variables are undocumented and unsupported, # and are intended to be withdrawn in a future Autoconf release. # They can cause serious problems if a builder's source tree is in a directory # whose full name contains unusual characters. ac_config_guess="$SHELL $ac_aux_dir/config.guess" # Please don't use this var. ac_config_sub="$SHELL $ac_aux_dir/config.sub" # Please don't use this var. ac_configure="$SHELL $ac_aux_dir/configure" # Please don't use this var. am__api_version='1.15' # Find a good install program. We prefer a C program (faster), # so one script is as good as another. But avoid the broken or # incompatible versions: # SysV /etc/install, /usr/sbin/install # SunOS /usr/etc/install # IRIX /sbin/install # AIX /bin/install # AmigaOS /C/install, which installs bootblocks on floppy discs # AIX 4 /usr/bin/installbsd, which doesn't work without a -g flag # AFS /usr/afsws/bin/install, which mishandles nonexistent args # SVR4 /usr/ucb/install, which tries to use the nonexistent group "staff" # OS/2's system install, which has a completely different semantic # ./install, which can be erroneously created by make from ./install.sh. # Reject install programs that cannot install multiple files. { $as_echo "$as_me:${as_lineno-$LINENO}: checking for a BSD-compatible install" >&5 $as_echo_n "checking for a BSD-compatible install... " >&6; } if test -z "$INSTALL"; then if ${ac_cv_path_install+:} false; then : $as_echo_n "(cached) " >&6 else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. # Account for people who put trailing slashes in PATH elements. case $as_dir/ in #(( ./ | .// | /[cC]/* | \ /etc/* | /usr/sbin/* | /usr/etc/* | /sbin/* | /usr/afsws/bin/* | \ ?:[\\/]os2[\\/]install[\\/]* | ?:[\\/]OS2[\\/]INSTALL[\\/]* | \ /usr/ucb/* ) ;; *) # OSF1 and SCO ODT 3.0 have their own names for install. # Don't use installbsd from OSF since it installs stuff as root # by default. for ac_prog in ginstall scoinst install; do for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_prog$ac_exec_ext"; then if test $ac_prog = install && grep dspmsg "$as_dir/$ac_prog$ac_exec_ext" >/dev/null 2>&1; then # AIX install. It has an incompatible calling convention. : elif test $ac_prog = install && grep pwplus "$as_dir/$ac_prog$ac_exec_ext" >/dev/null 2>&1; then # program-specific install script used by HP pwplus--don't use. : else rm -rf conftest.one conftest.two conftest.dir echo one > conftest.one echo two > conftest.two mkdir conftest.dir if "$as_dir/$ac_prog$ac_exec_ext" -c conftest.one conftest.two "`pwd`/conftest.dir" && test -s conftest.one && test -s conftest.two && test -s conftest.dir/conftest.one && test -s conftest.dir/conftest.two then ac_cv_path_install="$as_dir/$ac_prog$ac_exec_ext -c" break 3 fi fi fi done done ;; esac done IFS=$as_save_IFS rm -rf conftest.one conftest.two conftest.dir fi if test "${ac_cv_path_install+set}" = set; then INSTALL=$ac_cv_path_install else # As a last resort, use the slow shell script. Don't cache a # value for INSTALL within a source directory, because that will # break other packages using the cache if that directory is # removed, or if the value is a relative name. INSTALL=$ac_install_sh fi fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $INSTALL" >&5 $as_echo "$INSTALL" >&6; } # Use test -z because SunOS4 sh mishandles braces in ${var-val}. # It thinks the first close brace ends the variable substitution. test -z "$INSTALL_PROGRAM" && INSTALL_PROGRAM='${INSTALL}' test -z "$INSTALL_SCRIPT" && INSTALL_SCRIPT='${INSTALL}' test -z "$INSTALL_DATA" && INSTALL_DATA='${INSTALL} -m 644' { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether build environment is sane" >&5 $as_echo_n "checking whether build environment is sane... " >&6; } # Reject unsafe characters in $srcdir or the absolute working directory # name. Accept space and tab only in the latter. am_lf=' ' case `pwd` in *[\\\"\#\$\&\'\`$am_lf]*) as_fn_error $? "unsafe absolute working directory name" "$LINENO" 5;; esac case $srcdir in *[\\\"\#\$\&\'\`$am_lf\ \ ]*) as_fn_error $? "unsafe srcdir value: '$srcdir'" "$LINENO" 5;; esac # Do 'set' in a subshell so we don't clobber the current shell's # arguments. Must try -L first in case configure is actually a # symlink; some systems play weird games with the mod time of symlinks # (eg FreeBSD returns the mod time of the symlink's containing # directory). if ( am_has_slept=no for am_try in 1 2; do echo "timestamp, slept: $am_has_slept" > conftest.file set X `ls -Lt "$srcdir/configure" conftest.file 2> /dev/null` if test "$*" = "X"; then # -L didn't work. set X `ls -t "$srcdir/configure" conftest.file` fi if test "$*" != "X $srcdir/configure conftest.file" \ && test "$*" != "X conftest.file $srcdir/configure"; then # If neither matched, then we have a broken ls. This can happen # if, for instance, CONFIG_SHELL is bash and it inherits a # broken ls alias from the environment. This has actually # happened. Such a system could not be considered "sane". as_fn_error $? "ls -t appears to fail. Make sure there is not a broken alias in your environment" "$LINENO" 5 fi if test "$2" = conftest.file || test $am_try -eq 2; then break fi # Just in case. sleep 1 am_has_slept=yes done test "$2" = conftest.file ) then # Ok. : else as_fn_error $? "newly created file is older than distributed files! Check your system clock" "$LINENO" 5 fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5 $as_echo "yes" >&6; } # If we didn't sleep, we still need to ensure time stamps of config.status and # generated files are strictly newer. am_sleep_pid= if grep 'slept: no' conftest.file >/dev/null 2>&1; then ( sleep 1 ) & am_sleep_pid=$! fi rm -f conftest.file test "$program_prefix" != NONE && program_transform_name="s&^&$program_prefix&;$program_transform_name" # Use a double $ so make ignores it. test "$program_suffix" != NONE && program_transform_name="s&\$&$program_suffix&;$program_transform_name" # Double any \ or $. # By default was `s,x,x', remove it if useless. ac_script='s/[\\$]/&&/g;s/;s,x,x,$//' program_transform_name=`$as_echo "$program_transform_name" | sed "$ac_script"` # Expand $ac_aux_dir to an absolute path. am_aux_dir=`cd "$ac_aux_dir" && pwd` if test x"${MISSING+set}" != xset; then case $am_aux_dir in *\ * | *\ *) MISSING="\${SHELL} \"$am_aux_dir/missing\"" ;; *) MISSING="\${SHELL} $am_aux_dir/missing" ;; esac fi # Use eval to expand $SHELL if eval "$MISSING --is-lightweight"; then am_missing_run="$MISSING " else am_missing_run= { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: 'missing' script is too old or missing" >&5 $as_echo "$as_me: WARNING: 'missing' script is too old or missing" >&2;} fi if test x"${install_sh+set}" != xset; then case $am_aux_dir in *\ * | *\ *) install_sh="\${SHELL} '$am_aux_dir/install-sh'" ;; *) install_sh="\${SHELL} $am_aux_dir/install-sh" esac fi # Installed binaries are usually stripped using 'strip' when the user # run "make install-strip". However 'strip' might not be the right # tool to use in cross-compilation environments, therefore Automake # will honor the 'STRIP' environment variable to overrule this program. if test "$cross_compiling" != no; then if test -n "$ac_tool_prefix"; then # Extract the first word of "${ac_tool_prefix}strip", so it can be a program name with args. set dummy ${ac_tool_prefix}strip; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_STRIP+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$STRIP"; then ac_cv_prog_STRIP="$STRIP" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_STRIP="${ac_tool_prefix}strip" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi STRIP=$ac_cv_prog_STRIP if test -n "$STRIP"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $STRIP" >&5 $as_echo "$STRIP" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi fi if test -z "$ac_cv_prog_STRIP"; then ac_ct_STRIP=$STRIP # Extract the first word of "strip", so it can be a program name with args. set dummy strip; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_ac_ct_STRIP+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$ac_ct_STRIP"; then ac_cv_prog_ac_ct_STRIP="$ac_ct_STRIP" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_ac_ct_STRIP="strip" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi ac_ct_STRIP=$ac_cv_prog_ac_ct_STRIP if test -n "$ac_ct_STRIP"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_STRIP" >&5 $as_echo "$ac_ct_STRIP" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi if test "x$ac_ct_STRIP" = x; then STRIP=":" else case $cross_compiling:$ac_tool_warned in yes:) { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5 $as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;} ac_tool_warned=yes ;; esac STRIP=$ac_ct_STRIP fi else STRIP="$ac_cv_prog_STRIP" fi fi INSTALL_STRIP_PROGRAM="\$(install_sh) -c -s" { $as_echo "$as_me:${as_lineno-$LINENO}: checking for a thread-safe mkdir -p" >&5 $as_echo_n "checking for a thread-safe mkdir -p... " >&6; } if test -z "$MKDIR_P"; then if ${ac_cv_path_mkdir+:} false; then : $as_echo_n "(cached) " >&6 else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH$PATH_SEPARATOR/opt/sfw/bin do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_prog in mkdir gmkdir; do for ac_exec_ext in '' $ac_executable_extensions; do as_fn_executable_p "$as_dir/$ac_prog$ac_exec_ext" || continue case `"$as_dir/$ac_prog$ac_exec_ext" --version 2>&1` in #( 'mkdir (GNU coreutils) '* | \ 'mkdir (coreutils) '* | \ 'mkdir (fileutils) '4.1*) ac_cv_path_mkdir=$as_dir/$ac_prog$ac_exec_ext break 3;; esac done done done IFS=$as_save_IFS fi test -d ./--version && rmdir ./--version if test "${ac_cv_path_mkdir+set}" = set; then MKDIR_P="$ac_cv_path_mkdir -p" else # As a last resort, use the slow shell script. Don't cache a # value for MKDIR_P within a source directory, because that will # break other packages using the cache if that directory is # removed, or if the value is a relative name. MKDIR_P="$ac_install_sh -d" fi fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $MKDIR_P" >&5 $as_echo "$MKDIR_P" >&6; } for ac_prog in gawk mawk nawk awk do # Extract the first word of "$ac_prog", so it can be a program name with args. set dummy $ac_prog; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_AWK+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$AWK"; then ac_cv_prog_AWK="$AWK" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_AWK="$ac_prog" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi AWK=$ac_cv_prog_AWK if test -n "$AWK"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $AWK" >&5 $as_echo "$AWK" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi test -n "$AWK" && break done { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether ${MAKE-make} sets \$(MAKE)" >&5 $as_echo_n "checking whether ${MAKE-make} sets \$(MAKE)... " >&6; } set x ${MAKE-make} ac_make=`$as_echo "$2" | sed 's/+/p/g; s/[^a-zA-Z0-9_]/_/g'` if eval \${ac_cv_prog_make_${ac_make}_set+:} false; then : $as_echo_n "(cached) " >&6 else cat >conftest.make <<\_ACEOF SHELL = /bin/sh all: @echo '@@@%%%=$(MAKE)=@@@%%%' _ACEOF # GNU make sometimes prints "make[1]: Entering ...", which would confuse us. case `${MAKE-make} -f conftest.make 2>/dev/null` in *@@@%%%=?*=@@@%%%*) eval ac_cv_prog_make_${ac_make}_set=yes;; *) eval ac_cv_prog_make_${ac_make}_set=no;; esac rm -f conftest.make fi if eval test \$ac_cv_prog_make_${ac_make}_set = yes; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5 $as_echo "yes" >&6; } SET_MAKE= else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } SET_MAKE="MAKE=${MAKE-make}" fi rm -rf .tst 2>/dev/null mkdir .tst 2>/dev/null if test -d .tst; then am__leading_dot=. else am__leading_dot=_ fi rmdir .tst 2>/dev/null # Check whether --enable-silent-rules was given. if test "${enable_silent_rules+set}" = set; then : enableval=$enable_silent_rules; fi case $enable_silent_rules in # ((( yes) AM_DEFAULT_VERBOSITY=0;; no) AM_DEFAULT_VERBOSITY=1;; *) AM_DEFAULT_VERBOSITY=1;; esac am_make=${MAKE-make} { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether $am_make supports nested variables" >&5 $as_echo_n "checking whether $am_make supports nested variables... " >&6; } if ${am_cv_make_support_nested_variables+:} false; then : $as_echo_n "(cached) " >&6 else if $as_echo 'TRUE=$(BAR$(V)) BAR0=false BAR1=true V=1 am__doit: @$(TRUE) .PHONY: am__doit' | $am_make -f - >/dev/null 2>&1; then am_cv_make_support_nested_variables=yes else am_cv_make_support_nested_variables=no fi fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $am_cv_make_support_nested_variables" >&5 $as_echo "$am_cv_make_support_nested_variables" >&6; } if test $am_cv_make_support_nested_variables = yes; then AM_V='$(V)' AM_DEFAULT_V='$(AM_DEFAULT_VERBOSITY)' else AM_V=$AM_DEFAULT_VERBOSITY AM_DEFAULT_V=$AM_DEFAULT_VERBOSITY fi AM_BACKSLASH='\' if test "`cd $srcdir && pwd`" != "`pwd`"; then # Use -I$(srcdir) only when $(srcdir) != ., so that make's output # is not polluted with repeated "-I." am__isrc=' -I$(srcdir)' # test to see if srcdir already configured if test -f $srcdir/config.status; then as_fn_error $? "source directory already configured; run \"make distclean\" there first" "$LINENO" 5 fi fi # test whether we have cygpath if test -z "$CYGPATH_W"; then if (cygpath --version) >/dev/null 2>/dev/null; then CYGPATH_W='cygpath -w' else CYGPATH_W=echo fi fi # Define the identity of the package. PACKAGE='libffcall' VERSION='2.2' cat >>confdefs.h <<_ACEOF #define PACKAGE "$PACKAGE" _ACEOF cat >>confdefs.h <<_ACEOF #define VERSION "$VERSION" _ACEOF # Some tools Automake needs. ACLOCAL=${ACLOCAL-"${am_missing_run}aclocal-${am__api_version}"} AUTOCONF=${AUTOCONF-"${am_missing_run}autoconf"} AUTOMAKE=${AUTOMAKE-"${am_missing_run}automake-${am__api_version}"} AUTOHEADER=${AUTOHEADER-"${am_missing_run}autoheader"} MAKEINFO=${MAKEINFO-"${am_missing_run}makeinfo"} # For better backward compatibility. To be removed once Automake 1.9.x # dies out for good. For more background, see: # # mkdir_p='$(MKDIR_P)' # We need awk for the "check" target (and possibly the TAP driver). The # system "awk" is bad on some platforms. # Always define AMTAR for backward compatibility. Yes, it's still used # in the wild :-( We should find a proper way to deprecate it ... AMTAR='$${TAR-tar}' # We'll loop over all known methods to create a tar archive until one works. _am_tools='gnutar pax cpio none' am__tar='$${TAR-tar} chof - "$$tardir"' am__untar='$${TAR-tar} xf -' # POSIX will say in a future version that running "rm -f" with no argument # is OK; and we want to be able to make that assumption in our Makefile # recipes. So use an aggressive probe to check that the usage we want is # actually supported "in the wild" to an acceptable degree. # See automake bug#10828. # To make any issue more visible, cause the running configure to be aborted # by default if the 'rm' program in use doesn't match our expectations; the # user can still override this though. if rm -f && rm -fr && rm -rf; then : OK; else cat >&2 <<'END' Oops! Your 'rm' program seems unable to run without file operands specified on the command line, even when the '-f' option is present. This is contrary to the behaviour of most rm programs out there, and not conforming with the upcoming POSIX standard: Please tell bug-automake@gnu.org about your system, including the value of your $PATH and any error possibly output before this message. This can help us improve future automake versions. END if test x"$ACCEPT_INFERIOR_RM_PROGRAM" = x"yes"; then echo 'Configuration will proceed anyway, since you have set the' >&2 echo 'ACCEPT_INFERIOR_RM_PROGRAM variable to "yes"' >&2 echo >&2 else cat >&2 <<'END' Aborting the configuration process, to ensure you take notice of the issue. You can download and install GNU coreutils to get an 'rm' implementation that behaves properly: . If you want to complete the configuration process using your problematic 'rm' anyway, export the environment variable ACCEPT_INFERIOR_RM_PROGRAM to "yes", and re-run configure. END as_fn_error $? "Your 'rm' program is bad, sorry." "$LINENO" 5 fi fi ac_config_headers="$ac_config_headers config.h" ac_config_headers="$ac_config_headers ffcall-version.h:ffcall-version.in.h" ac_config_files="$ac_config_files Makefile" ac_config_files="$ac_config_files gnulib-lib/Makefile" ac_config_files="$ac_config_files avcall/Makefile" ac_config_files="$ac_config_files vacall/Makefile" ac_config_files="$ac_config_files trampoline/Makefile" ac_config_files="$ac_config_files callback/Makefile" ac_config_files="$ac_config_files callback/vacall_r/Makefile" ac_config_files="$ac_config_files callback/trampoline_r/Makefile" sed_extract_major='/^[0-9]/{s/^\([0-9]*\).*/\1/p;q;} i\ 0 q ' sed_extract_minor='/^[0-9][0-9]*[.][0-9]/{s/^[0-9]*[.]\([0-9]*\).*/\1/p;q;} i\ 0 q ' version_major=`echo "${PACKAGE_VERSION}" | sed -n -e "$sed_extract_major"` version_minor=`echo "${PACKAGE_VERSION}" | sed -n -e "$sed_extract_minor"` HEXVERSION=`printf '0x%02X%02X' $version_major $version_minor` cat >>confdefs.h <<_ACEOF #define LIBFFCALL_VERSION $HEXVERSION _ACEOF { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether ${MAKE-make} sets \$(MAKE)" >&5 $as_echo_n "checking whether ${MAKE-make} sets \$(MAKE)... " >&6; } set x ${MAKE-make} ac_make=`$as_echo "$2" | sed 's/+/p/g; s/[^a-zA-Z0-9_]/_/g'` if eval \${ac_cv_prog_make_${ac_make}_set+:} false; then : $as_echo_n "(cached) " >&6 else cat >conftest.make <<\_ACEOF SHELL = /bin/sh all: @echo '@@@%%%=$(MAKE)=@@@%%%' _ACEOF # GNU make sometimes prints "make[1]: Entering ...", which would confuse us. case `${MAKE-make} -f conftest.make 2>/dev/null` in *@@@%%%=?*=@@@%%%*) eval ac_cv_prog_make_${ac_make}_set=yes;; *) eval ac_cv_prog_make_${ac_make}_set=no;; esac rm -f conftest.make fi if eval test \$ac_cv_prog_make_${ac_make}_set = yes; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5 $as_echo "yes" >&6; } SET_MAKE= else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } SET_MAKE="MAKE=${MAKE-make}" fi ac_ext=c ac_cpp='$CPP $CPPFLAGS' ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' ac_compiler_gnu=$ac_cv_c_compiler_gnu if test -n "$ac_tool_prefix"; then # Extract the first word of "${ac_tool_prefix}gcc", so it can be a program name with args. set dummy ${ac_tool_prefix}gcc; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_CC+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$CC"; then ac_cv_prog_CC="$CC" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_CC="${ac_tool_prefix}gcc" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi CC=$ac_cv_prog_CC if test -n "$CC"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $CC" >&5 $as_echo "$CC" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi fi if test -z "$ac_cv_prog_CC"; then ac_ct_CC=$CC # Extract the first word of "gcc", so it can be a program name with args. set dummy gcc; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_ac_ct_CC+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$ac_ct_CC"; then ac_cv_prog_ac_ct_CC="$ac_ct_CC" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_ac_ct_CC="gcc" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi ac_ct_CC=$ac_cv_prog_ac_ct_CC if test -n "$ac_ct_CC"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_CC" >&5 $as_echo "$ac_ct_CC" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi if test "x$ac_ct_CC" = x; then CC="" else case $cross_compiling:$ac_tool_warned in yes:) { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5 $as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;} ac_tool_warned=yes ;; esac CC=$ac_ct_CC fi else CC="$ac_cv_prog_CC" fi if test -z "$CC"; then if test -n "$ac_tool_prefix"; then # Extract the first word of "${ac_tool_prefix}cc", so it can be a program name with args. set dummy ${ac_tool_prefix}cc; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_CC+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$CC"; then ac_cv_prog_CC="$CC" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_CC="${ac_tool_prefix}cc" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi CC=$ac_cv_prog_CC if test -n "$CC"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $CC" >&5 $as_echo "$CC" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi fi fi if test -z "$CC"; then # Extract the first word of "cc", so it can be a program name with args. set dummy cc; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_CC+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$CC"; then ac_cv_prog_CC="$CC" # Let the user override the test. else ac_prog_rejected=no as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then if test "$as_dir/$ac_word$ac_exec_ext" = "/usr/ucb/cc"; then ac_prog_rejected=yes continue fi ac_cv_prog_CC="cc" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS if test $ac_prog_rejected = yes; then # We found a bogon in the path, so make sure we never use it. set dummy $ac_cv_prog_CC shift if test $# != 0; then # We chose a different compiler from the bogus one. # However, it has the same basename, so the bogon will be chosen # first if we set CC to just the basename; use the full file name. shift ac_cv_prog_CC="$as_dir/$ac_word${1+' '}$@" fi fi fi fi CC=$ac_cv_prog_CC if test -n "$CC"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $CC" >&5 $as_echo "$CC" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi fi if test -z "$CC"; then if test -n "$ac_tool_prefix"; then for ac_prog in cl.exe do # Extract the first word of "$ac_tool_prefix$ac_prog", so it can be a program name with args. set dummy $ac_tool_prefix$ac_prog; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_CC+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$CC"; then ac_cv_prog_CC="$CC" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_CC="$ac_tool_prefix$ac_prog" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi CC=$ac_cv_prog_CC if test -n "$CC"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $CC" >&5 $as_echo "$CC" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi test -n "$CC" && break done fi if test -z "$CC"; then ac_ct_CC=$CC for ac_prog in cl.exe do # Extract the first word of "$ac_prog", so it can be a program name with args. set dummy $ac_prog; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_ac_ct_CC+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$ac_ct_CC"; then ac_cv_prog_ac_ct_CC="$ac_ct_CC" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_ac_ct_CC="$ac_prog" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi ac_ct_CC=$ac_cv_prog_ac_ct_CC if test -n "$ac_ct_CC"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_CC" >&5 $as_echo "$ac_ct_CC" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi test -n "$ac_ct_CC" && break done if test "x$ac_ct_CC" = x; then CC="" else case $cross_compiling:$ac_tool_warned in yes:) { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5 $as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;} ac_tool_warned=yes ;; esac CC=$ac_ct_CC fi fi fi test -z "$CC" && { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 $as_echo "$as_me: error: in \`$ac_pwd':" >&2;} as_fn_error $? "no acceptable C compiler found in \$PATH See \`config.log' for more details" "$LINENO" 5; } # Provide some information about the compiler. $as_echo "$as_me:${as_lineno-$LINENO}: checking for C compiler version" >&5 set X $ac_compile ac_compiler=$2 for ac_option in --version -v -V -qversion; do { { ac_try="$ac_compiler $ac_option >&5" case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" $as_echo "$ac_try_echo"; } >&5 (eval "$ac_compiler $ac_option >&5") 2>conftest.err ac_status=$? if test -s conftest.err; then sed '10a\ ... rest of stderr output deleted ... 10q' conftest.err >conftest.er1 cat conftest.er1 >&5 fi rm -f conftest.er1 conftest.err $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; } done cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ int main () { ; return 0; } _ACEOF ac_clean_files_save=$ac_clean_files ac_clean_files="$ac_clean_files a.out a.out.dSYM a.exe b.out" # Try to create an executable without -o first, disregard a.out. # It will help us diagnose broken compilers, and finding out an intuition # of exeext. { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether the C compiler works" >&5 $as_echo_n "checking whether the C compiler works... " >&6; } ac_link_default=`$as_echo "$ac_link" | sed 's/ -o *conftest[^ ]*//'` # The possible output files: ac_files="a.out conftest.exe conftest a.exe a_out.exe b.out conftest.*" ac_rmfiles= for ac_file in $ac_files do case $ac_file in *.$ac_ext | *.xcoff | *.tds | *.d | *.pdb | *.xSYM | *.bb | *.bbg | *.map | *.inf | *.dSYM | *.o | *.obj ) ;; * ) ac_rmfiles="$ac_rmfiles $ac_file";; esac done rm -f $ac_rmfiles if { { ac_try="$ac_link_default" case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" $as_echo "$ac_try_echo"; } >&5 (eval "$ac_link_default") 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; }; then : # Autoconf-2.13 could set the ac_cv_exeext variable to `no'. # So ignore a value of `no', otherwise this would lead to `EXEEXT = no' # in a Makefile. We should not override ac_cv_exeext if it was cached, # so that the user can short-circuit this test for compilers unknown to # Autoconf. for ac_file in $ac_files '' do test -f "$ac_file" || continue case $ac_file in *.$ac_ext | *.xcoff | *.tds | *.d | *.pdb | *.xSYM | *.bb | *.bbg | *.map | *.inf | *.dSYM | *.o | *.obj ) ;; [ab].out ) # We found the default executable, but exeext='' is most # certainly right. break;; *.* ) if test "${ac_cv_exeext+set}" = set && test "$ac_cv_exeext" != no; then :; else ac_cv_exeext=`expr "$ac_file" : '[^.]*\(\..*\)'` fi # We set ac_cv_exeext here because the later test for it is not # safe: cross compilers may not add the suffix if given an `-o' # argument, so we may need to know it at that point already. # Even if this section looks crufty: it has the advantage of # actually working. break;; * ) break;; esac done test "$ac_cv_exeext" = no && ac_cv_exeext= else ac_file='' fi if test -z "$ac_file"; then : { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } $as_echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 $as_echo "$as_me: error: in \`$ac_pwd':" >&2;} as_fn_error 77 "C compiler cannot create executables See \`config.log' for more details" "$LINENO" 5; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5 $as_echo "yes" >&6; } fi { $as_echo "$as_me:${as_lineno-$LINENO}: checking for C compiler default output file name" >&5 $as_echo_n "checking for C compiler default output file name... " >&6; } { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_file" >&5 $as_echo "$ac_file" >&6; } ac_exeext=$ac_cv_exeext rm -f -r a.out a.out.dSYM a.exe conftest$ac_cv_exeext b.out ac_clean_files=$ac_clean_files_save { $as_echo "$as_me:${as_lineno-$LINENO}: checking for suffix of executables" >&5 $as_echo_n "checking for suffix of executables... " >&6; } if { { ac_try="$ac_link" case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" $as_echo "$ac_try_echo"; } >&5 (eval "$ac_link") 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; }; then : # If both `conftest.exe' and `conftest' are `present' (well, observable) # catch `conftest.exe'. For instance with Cygwin, `ls conftest' will # work properly (i.e., refer to `conftest.exe'), while it won't with # `rm'. for ac_file in conftest.exe conftest conftest.*; do test -f "$ac_file" || continue case $ac_file in *.$ac_ext | *.xcoff | *.tds | *.d | *.pdb | *.xSYM | *.bb | *.bbg | *.map | *.inf | *.dSYM | *.o | *.obj ) ;; *.* ) ac_cv_exeext=`expr "$ac_file" : '[^.]*\(\..*\)'` break;; * ) break;; esac done else { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 $as_echo "$as_me: error: in \`$ac_pwd':" >&2;} as_fn_error $? "cannot compute suffix of executables: cannot compile and link See \`config.log' for more details" "$LINENO" 5; } fi rm -f conftest conftest$ac_cv_exeext { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_exeext" >&5 $as_echo "$ac_cv_exeext" >&6; } rm -f conftest.$ac_ext EXEEXT=$ac_cv_exeext ac_exeext=$EXEEXT cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include int main () { FILE *f = fopen ("conftest.out", "w"); return ferror (f) || fclose (f) != 0; ; return 0; } _ACEOF ac_clean_files="$ac_clean_files conftest.out" # Check that the compiler produces executables we can run. If not, either # the compiler is broken, or we cross compile. { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether we are cross compiling" >&5 $as_echo_n "checking whether we are cross compiling... " >&6; } if test "$cross_compiling" != yes; then { { ac_try="$ac_link" case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" $as_echo "$ac_try_echo"; } >&5 (eval "$ac_link") 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; } if { ac_try='./conftest$ac_cv_exeext' { { case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" $as_echo "$ac_try_echo"; } >&5 (eval "$ac_try") 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; }; }; then cross_compiling=no else if test "$cross_compiling" = maybe; then cross_compiling=yes else { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 $as_echo "$as_me: error: in \`$ac_pwd':" >&2;} as_fn_error $? "cannot run C compiled programs. If you meant to cross compile, use \`--host'. See \`config.log' for more details" "$LINENO" 5; } fi fi fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $cross_compiling" >&5 $as_echo "$cross_compiling" >&6; } rm -f conftest.$ac_ext conftest$ac_cv_exeext conftest.out ac_clean_files=$ac_clean_files_save { $as_echo "$as_me:${as_lineno-$LINENO}: checking for suffix of object files" >&5 $as_echo_n "checking for suffix of object files... " >&6; } if ${ac_cv_objext+:} false; then : $as_echo_n "(cached) " >&6 else cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ int main () { ; return 0; } _ACEOF rm -f conftest.o conftest.obj if { { ac_try="$ac_compile" case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" $as_echo "$ac_try_echo"; } >&5 (eval "$ac_compile") 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; }; then : for ac_file in conftest.o conftest.obj conftest.*; do test -f "$ac_file" || continue; case $ac_file in *.$ac_ext | *.xcoff | *.tds | *.d | *.pdb | *.xSYM | *.bb | *.bbg | *.map | *.inf | *.dSYM ) ;; *) ac_cv_objext=`expr "$ac_file" : '.*\.\(.*\)'` break;; esac done else $as_echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 $as_echo "$as_me: error: in \`$ac_pwd':" >&2;} as_fn_error $? "cannot compute suffix of object files: cannot compile See \`config.log' for more details" "$LINENO" 5; } fi rm -f conftest.$ac_cv_objext conftest.$ac_ext fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_objext" >&5 $as_echo "$ac_cv_objext" >&6; } OBJEXT=$ac_cv_objext ac_objext=$OBJEXT { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether we are using the GNU C compiler" >&5 $as_echo_n "checking whether we are using the GNU C compiler... " >&6; } if ${ac_cv_c_compiler_gnu+:} false; then : $as_echo_n "(cached) " >&6 else cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ int main () { #ifndef __GNUC__ choke me #endif ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO"; then : ac_compiler_gnu=yes else ac_compiler_gnu=no fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext ac_cv_c_compiler_gnu=$ac_compiler_gnu fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_c_compiler_gnu" >&5 $as_echo "$ac_cv_c_compiler_gnu" >&6; } if test $ac_compiler_gnu = yes; then GCC=yes else GCC= fi ac_test_CFLAGS=${CFLAGS+set} ac_save_CFLAGS=$CFLAGS { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether $CC accepts -g" >&5 $as_echo_n "checking whether $CC accepts -g... " >&6; } if ${ac_cv_prog_cc_g+:} false; then : $as_echo_n "(cached) " >&6 else ac_save_c_werror_flag=$ac_c_werror_flag ac_c_werror_flag=yes ac_cv_prog_cc_g=no CFLAGS="-g" cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ int main () { ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO"; then : ac_cv_prog_cc_g=yes else CFLAGS="" cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ int main () { ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO"; then : else ac_c_werror_flag=$ac_save_c_werror_flag CFLAGS="-g" cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ int main () { ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO"; then : ac_cv_prog_cc_g=yes fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext ac_c_werror_flag=$ac_save_c_werror_flag fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_prog_cc_g" >&5 $as_echo "$ac_cv_prog_cc_g" >&6; } if test "$ac_test_CFLAGS" = set; then CFLAGS=$ac_save_CFLAGS elif test $ac_cv_prog_cc_g = yes; then if test "$GCC" = yes; then CFLAGS="-g -O2" else CFLAGS="-g" fi else if test "$GCC" = yes; then CFLAGS="-O2" else CFLAGS= fi fi { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $CC option to accept ISO C89" >&5 $as_echo_n "checking for $CC option to accept ISO C89... " >&6; } if ${ac_cv_prog_cc_c89+:} false; then : $as_echo_n "(cached) " >&6 else ac_cv_prog_cc_c89=no ac_save_CC=$CC cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include #include struct stat; /* Most of the following tests are stolen from RCS 5.7's src/conf.sh. */ struct buf { int x; }; FILE * (*rcsopen) (struct buf *, struct stat *, int); static char *e (p, i) char **p; int i; { return p[i]; } static char *f (char * (*g) (char **, int), char **p, ...) { char *s; va_list v; va_start (v,p); s = g (p, va_arg (v,int)); va_end (v); return s; } /* OSF 4.0 Compaq cc is some sort of almost-ANSI by default. It has function prototypes and stuff, but not '\xHH' hex character constants. These don't provoke an error unfortunately, instead are silently treated as 'x'. The following induces an error, until -std is added to get proper ANSI mode. Curiously '\x00'!='x' always comes out true, for an array size at least. It's necessary to write '\x00'==0 to get something that's true only with -std. */ int osf4_cc_array ['\x00' == 0 ? 1 : -1]; /* IBM C 6 for AIX is almost-ANSI by default, but it replaces macro parameters inside strings and character constants. */ #define FOO(x) 'x' int xlc6_cc_array[FOO(a) == 'x' ? 1 : -1]; int test (int i, double x); struct s1 {int (*f) (int a);}; struct s2 {int (*f) (double a);}; int pairnames (int, char **, FILE *(*)(struct buf *, struct stat *, int), int, int); int argc; char **argv; int main () { return f (e, argv, 0) != argv[0] || f (e, argv, 1) != argv[1]; ; return 0; } _ACEOF for ac_arg in '' -qlanglvl=extc89 -qlanglvl=ansi -std \ -Ae "-Aa -D_HPUX_SOURCE" "-Xc -D__EXTENSIONS__" do CC="$ac_save_CC $ac_arg" if ac_fn_c_try_compile "$LINENO"; then : ac_cv_prog_cc_c89=$ac_arg fi rm -f core conftest.err conftest.$ac_objext test "x$ac_cv_prog_cc_c89" != "xno" && break done rm -f conftest.$ac_ext CC=$ac_save_CC fi # AC_CACHE_VAL case "x$ac_cv_prog_cc_c89" in x) { $as_echo "$as_me:${as_lineno-$LINENO}: result: none needed" >&5 $as_echo "none needed" >&6; } ;; xno) { $as_echo "$as_me:${as_lineno-$LINENO}: result: unsupported" >&5 $as_echo "unsupported" >&6; } ;; *) CC="$CC $ac_cv_prog_cc_c89" { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_prog_cc_c89" >&5 $as_echo "$ac_cv_prog_cc_c89" >&6; } ;; esac if test "x$ac_cv_prog_cc_c89" != xno; then : fi ac_ext=c ac_cpp='$CPP $CPPFLAGS' ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' ac_compiler_gnu=$ac_cv_c_compiler_gnu ac_ext=c ac_cpp='$CPP $CPPFLAGS' ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' ac_compiler_gnu=$ac_cv_c_compiler_gnu { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether $CC understands -c and -o together" >&5 $as_echo_n "checking whether $CC understands -c and -o together... " >&6; } if ${am_cv_prog_cc_c_o+:} false; then : $as_echo_n "(cached) " >&6 else cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ int main () { ; return 0; } _ACEOF # Make sure it works both with $CC and with simple cc. # Following AC_PROG_CC_C_O, we do the test twice because some # compilers refuse to overwrite an existing .o file with -o, # though they will create one. am_cv_prog_cc_c_o=yes for am_i in 1 2; do if { echo "$as_me:$LINENO: $CC -c conftest.$ac_ext -o conftest2.$ac_objext" >&5 ($CC -c conftest.$ac_ext -o conftest2.$ac_objext) >&5 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } \ && test -f conftest2.$ac_objext; then : OK else am_cv_prog_cc_c_o=no break fi done rm -f core conftest* unset am_i fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $am_cv_prog_cc_c_o" >&5 $as_echo "$am_cv_prog_cc_c_o" >&6; } if test "$am_cv_prog_cc_c_o" != yes; then # Losing compiler, so override with the script. # FIXME: It is wrong to rewrite CC. # But if we don't then we get into trouble of one sort or another. # A longer-term fix would be to have automake use am__CC in this case, # and then we could set am__CC="\$(top_srcdir)/compile \$(CC)" CC="$am_aux_dir/compile $CC" fi ac_ext=c ac_cpp='$CPP $CPPFLAGS' ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' ac_compiler_gnu=$ac_cv_c_compiler_gnu DEPDIR="${am__leading_dot}deps" ac_config_commands="$ac_config_commands depfiles" am_make=${MAKE-make} cat > confinc << 'END' am__doit: @echo this is the am__doit target .PHONY: am__doit END # If we don't find an include directive, just comment out the code. { $as_echo "$as_me:${as_lineno-$LINENO}: checking for style of include used by $am_make" >&5 $as_echo_n "checking for style of include used by $am_make... " >&6; } am__include="#" am__quote= _am_result=none # First try GNU make style include. echo "include confinc" > confmf # Ignore all kinds of additional output from 'make'. case `$am_make -s -f confmf 2> /dev/null` in #( *the\ am__doit\ target*) am__include=include am__quote= _am_result=GNU ;; esac # Now try BSD make style include. if test "$am__include" = "#"; then echo '.include "confinc"' > confmf case `$am_make -s -f confmf 2> /dev/null` in #( *the\ am__doit\ target*) am__include=.include am__quote="\"" _am_result=BSD ;; esac fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $_am_result" >&5 $as_echo "$_am_result" >&6; } rm -f confinc confmf # Check whether --enable-dependency-tracking was given. if test "${enable_dependency_tracking+set}" = set; then : enableval=$enable_dependency_tracking; fi if test "x$enable_dependency_tracking" != xno; then am_depcomp="$ac_aux_dir/depcomp" AMDEPBACKSLASH='\' am__nodep='_no' fi if test "x$enable_dependency_tracking" != xno; then AMDEP_TRUE= AMDEP_FALSE='#' else AMDEP_TRUE='#' AMDEP_FALSE= fi depcc="$CC" am_compiler_list= { $as_echo "$as_me:${as_lineno-$LINENO}: checking dependency style of $depcc" >&5 $as_echo_n "checking dependency style of $depcc... " >&6; } if ${am_cv_CC_dependencies_compiler_type+:} false; then : $as_echo_n "(cached) " >&6 else if test -z "$AMDEP_TRUE" && test -f "$am_depcomp"; then # We make a subdir and do the tests there. Otherwise we can end up # making bogus files that we don't know about and never remove. For # instance it was reported that on HP-UX the gcc test will end up # making a dummy file named 'D' -- because '-MD' means "put the output # in D". rm -rf conftest.dir mkdir conftest.dir # Copy depcomp to subdir because otherwise we won't find it if we're # using a relative directory. cp "$am_depcomp" conftest.dir cd conftest.dir # We will build objects and dependencies in a subdirectory because # it helps to detect inapplicable dependency modes. For instance # both Tru64's cc and ICC support -MD to output dependencies as a # side effect of compilation, but ICC will put the dependencies in # the current directory while Tru64 will put them in the object # directory. mkdir sub am_cv_CC_dependencies_compiler_type=none if test "$am_compiler_list" = ""; then am_compiler_list=`sed -n 's/^#*\([a-zA-Z0-9]*\))$/\1/p' < ./depcomp` fi am__universal=false case " $depcc " in #( *\ -arch\ *\ -arch\ *) am__universal=true ;; esac for depmode in $am_compiler_list; do # Setup a source with many dependencies, because some compilers # like to wrap large dependency lists on column 80 (with \), and # we should not choose a depcomp mode which is confused by this. # # We need to recreate these files for each test, as the compiler may # overwrite some of them when testing with obscure command lines. # This happens at least with the AIX C compiler. : > sub/conftest.c for i in 1 2 3 4 5 6; do echo '#include "conftst'$i'.h"' >> sub/conftest.c # Using ": > sub/conftst$i.h" creates only sub/conftst1.h with # Solaris 10 /bin/sh. echo '/* dummy */' > sub/conftst$i.h done echo "${am__include} ${am__quote}sub/conftest.Po${am__quote}" > confmf # We check with '-c' and '-o' for the sake of the "dashmstdout" # mode. It turns out that the SunPro C++ compiler does not properly # handle '-M -o', and we need to detect this. Also, some Intel # versions had trouble with output in subdirs. am__obj=sub/conftest.${OBJEXT-o} am__minus_obj="-o $am__obj" case $depmode in gcc) # This depmode causes a compiler race in universal mode. test "$am__universal" = false || continue ;; nosideeffect) # After this tag, mechanisms are not by side-effect, so they'll # only be used when explicitly requested. if test "x$enable_dependency_tracking" = xyes; then continue else break fi ;; msvc7 | msvc7msys | msvisualcpp | msvcmsys) # This compiler won't grok '-c -o', but also, the minuso test has # not run yet. These depmodes are late enough in the game, and # so weak that their functioning should not be impacted. am__obj=conftest.${OBJEXT-o} am__minus_obj= ;; none) break ;; esac if depmode=$depmode \ source=sub/conftest.c object=$am__obj \ depfile=sub/conftest.Po tmpdepfile=sub/conftest.TPo \ $SHELL ./depcomp $depcc -c $am__minus_obj sub/conftest.c \ >/dev/null 2>conftest.err && grep sub/conftst1.h sub/conftest.Po > /dev/null 2>&1 && grep sub/conftst6.h sub/conftest.Po > /dev/null 2>&1 && grep $am__obj sub/conftest.Po > /dev/null 2>&1 && ${MAKE-make} -s -f confmf > /dev/null 2>&1; then # icc doesn't choke on unknown options, it will just issue warnings # or remarks (even with -Werror). So we grep stderr for any message # that says an option was ignored or not supported. # When given -MP, icc 7.0 and 7.1 complain thusly: # icc: Command line warning: ignoring option '-M'; no argument required # The diagnosis changed in icc 8.0: # icc: Command line remark: option '-MP' not supported if (grep 'ignoring option' conftest.err || grep 'not supported' conftest.err) >/dev/null 2>&1; then :; else am_cv_CC_dependencies_compiler_type=$depmode break fi fi done cd .. rm -rf conftest.dir else am_cv_CC_dependencies_compiler_type=none fi fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $am_cv_CC_dependencies_compiler_type" >&5 $as_echo "$am_cv_CC_dependencies_compiler_type" >&6; } CCDEPMODE=depmode=$am_cv_CC_dependencies_compiler_type if test "x$enable_dependency_tracking" != xno \ && test "$am_cv_CC_dependencies_compiler_type" = gcc3; then am__fastdepCC_TRUE= am__fastdepCC_FALSE='#' else am__fastdepCC_TRUE='#' am__fastdepCC_FALSE= fi ac_ext=c ac_cpp='$CPP $CPPFLAGS' ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' ac_compiler_gnu=$ac_cv_c_compiler_gnu { $as_echo "$as_me:${as_lineno-$LINENO}: checking how to run the C preprocessor" >&5 $as_echo_n "checking how to run the C preprocessor... " >&6; } # On Suns, sometimes $CPP names a directory. if test -n "$CPP" && test -d "$CPP"; then CPP= fi if test -z "$CPP"; then if ${ac_cv_prog_CPP+:} false; then : $as_echo_n "(cached) " >&6 else # Double quotes because CPP needs to be expanded for CPP in "$CC -E" "$CC -E -traditional-cpp" "/lib/cpp" do ac_preproc_ok=false for ac_c_preproc_warn_flag in '' yes do # Use a header file that comes with gcc, so configuring glibc # with a fresh cross-compiler works. # Prefer to if __STDC__ is defined, since # exists even on freestanding compilers. # On the NeXT, cc -E runs the code through the compiler's parser, # not just through cpp. "Syntax error" is here to catch this case. cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #ifdef __STDC__ # include #else # include #endif Syntax error _ACEOF if ac_fn_c_try_cpp "$LINENO"; then : else # Broken: fails on valid input. continue fi rm -f conftest.err conftest.i conftest.$ac_ext # OK, works on sane cases. Now check whether nonexistent headers # can be detected and how. cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include _ACEOF if ac_fn_c_try_cpp "$LINENO"; then : # Broken: success on invalid input. continue else # Passes both tests. ac_preproc_ok=: break fi rm -f conftest.err conftest.i conftest.$ac_ext done # Because of `break', _AC_PREPROC_IFELSE's cleaning code was skipped. rm -f conftest.i conftest.err conftest.$ac_ext if $ac_preproc_ok; then : break fi done ac_cv_prog_CPP=$CPP fi CPP=$ac_cv_prog_CPP else ac_cv_prog_CPP=$CPP fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $CPP" >&5 $as_echo "$CPP" >&6; } ac_preproc_ok=false for ac_c_preproc_warn_flag in '' yes do # Use a header file that comes with gcc, so configuring glibc # with a fresh cross-compiler works. # Prefer to if __STDC__ is defined, since # exists even on freestanding compilers. # On the NeXT, cc -E runs the code through the compiler's parser, # not just through cpp. "Syntax error" is here to catch this case. cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #ifdef __STDC__ # include #else # include #endif Syntax error _ACEOF if ac_fn_c_try_cpp "$LINENO"; then : else # Broken: fails on valid input. continue fi rm -f conftest.err conftest.i conftest.$ac_ext # OK, works on sane cases. Now check whether nonexistent headers # can be detected and how. cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include _ACEOF if ac_fn_c_try_cpp "$LINENO"; then : # Broken: success on invalid input. continue else # Passes both tests. ac_preproc_ok=: break fi rm -f conftest.err conftest.i conftest.$ac_ext done # Because of `break', _AC_PREPROC_IFELSE's cleaning code was skipped. rm -f conftest.i conftest.err conftest.$ac_ext if $ac_preproc_ok; then : else { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 $as_echo "$as_me: error: in \`$ac_pwd':" >&2;} as_fn_error $? "C preprocessor \"$CPP\" fails sanity check See \`config.log' for more details" "$LINENO" 5; } fi ac_ext=c ac_cpp='$CPP $CPPFLAGS' ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' ac_compiler_gnu=$ac_cv_c_compiler_gnu { $as_echo "$as_me:${as_lineno-$LINENO}: checking for grep that handles long lines and -e" >&5 $as_echo_n "checking for grep that handles long lines and -e... " >&6; } if ${ac_cv_path_GREP+:} false; then : $as_echo_n "(cached) " >&6 else if test -z "$GREP"; then ac_path_GREP_found=false # Loop through the user's path and test for each of PROGNAME-LIST as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH$PATH_SEPARATOR/usr/xpg4/bin do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_prog in grep ggrep; do for ac_exec_ext in '' $ac_executable_extensions; do ac_path_GREP="$as_dir/$ac_prog$ac_exec_ext" as_fn_executable_p "$ac_path_GREP" || continue # Check for GNU ac_path_GREP and select it if it is found. # Check for GNU $ac_path_GREP case `"$ac_path_GREP" --version 2>&1` in *GNU*) ac_cv_path_GREP="$ac_path_GREP" ac_path_GREP_found=:;; *) ac_count=0 $as_echo_n 0123456789 >"conftest.in" while : do cat "conftest.in" "conftest.in" >"conftest.tmp" mv "conftest.tmp" "conftest.in" cp "conftest.in" "conftest.nl" $as_echo 'GREP' >> "conftest.nl" "$ac_path_GREP" -e 'GREP$' -e '-(cannot match)-' < "conftest.nl" >"conftest.out" 2>/dev/null || break diff "conftest.out" "conftest.nl" >/dev/null 2>&1 || break as_fn_arith $ac_count + 1 && ac_count=$as_val if test $ac_count -gt ${ac_path_GREP_max-0}; then # Best one so far, save it but keep looking for a better one ac_cv_path_GREP="$ac_path_GREP" ac_path_GREP_max=$ac_count fi # 10*(2^10) chars as input seems more than enough test $ac_count -gt 10 && break done rm -f conftest.in conftest.tmp conftest.nl conftest.out;; esac $ac_path_GREP_found && break 3 done done done IFS=$as_save_IFS if test -z "$ac_cv_path_GREP"; then as_fn_error $? "no acceptable grep could be found in $PATH$PATH_SEPARATOR/usr/xpg4/bin" "$LINENO" 5 fi else ac_cv_path_GREP=$GREP fi fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_path_GREP" >&5 $as_echo "$ac_cv_path_GREP" >&6; } GREP="$ac_cv_path_GREP" { $as_echo "$as_me:${as_lineno-$LINENO}: checking for egrep" >&5 $as_echo_n "checking for egrep... " >&6; } if ${ac_cv_path_EGREP+:} false; then : $as_echo_n "(cached) " >&6 else if echo a | $GREP -E '(a|b)' >/dev/null 2>&1 then ac_cv_path_EGREP="$GREP -E" else if test -z "$EGREP"; then ac_path_EGREP_found=false # Loop through the user's path and test for each of PROGNAME-LIST as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH$PATH_SEPARATOR/usr/xpg4/bin do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_prog in egrep; do for ac_exec_ext in '' $ac_executable_extensions; do ac_path_EGREP="$as_dir/$ac_prog$ac_exec_ext" as_fn_executable_p "$ac_path_EGREP" || continue # Check for GNU ac_path_EGREP and select it if it is found. # Check for GNU $ac_path_EGREP case `"$ac_path_EGREP" --version 2>&1` in *GNU*) ac_cv_path_EGREP="$ac_path_EGREP" ac_path_EGREP_found=:;; *) ac_count=0 $as_echo_n 0123456789 >"conftest.in" while : do cat "conftest.in" "conftest.in" >"conftest.tmp" mv "conftest.tmp" "conftest.in" cp "conftest.in" "conftest.nl" $as_echo 'EGREP' >> "conftest.nl" "$ac_path_EGREP" 'EGREP$' < "conftest.nl" >"conftest.out" 2>/dev/null || break diff "conftest.out" "conftest.nl" >/dev/null 2>&1 || break as_fn_arith $ac_count + 1 && ac_count=$as_val if test $ac_count -gt ${ac_path_EGREP_max-0}; then # Best one so far, save it but keep looking for a better one ac_cv_path_EGREP="$ac_path_EGREP" ac_path_EGREP_max=$ac_count fi # 10*(2^10) chars as input seems more than enough test $ac_count -gt 10 && break done rm -f conftest.in conftest.tmp conftest.nl conftest.out;; esac $ac_path_EGREP_found && break 3 done done done IFS=$as_save_IFS if test -z "$ac_cv_path_EGREP"; then as_fn_error $? "no acceptable egrep could be found in $PATH$PATH_SEPARATOR/usr/xpg4/bin" "$LINENO" 5 fi else ac_cv_path_EGREP=$EGREP fi fi fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_path_EGREP" >&5 $as_echo "$ac_cv_path_EGREP" >&6; } EGREP="$ac_cv_path_EGREP" if test $ac_cv_c_compiler_gnu = yes; then { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether $CC needs -traditional" >&5 $as_echo_n "checking whether $CC needs -traditional... " >&6; } if ${ac_cv_prog_gcc_traditional+:} false; then : $as_echo_n "(cached) " >&6 else ac_pattern="Autoconf.*'x'" cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include Autoconf TIOCGETP _ACEOF if (eval "$ac_cpp conftest.$ac_ext") 2>&5 | $EGREP "$ac_pattern" >/dev/null 2>&1; then : ac_cv_prog_gcc_traditional=yes else ac_cv_prog_gcc_traditional=no fi rm -f conftest* if test $ac_cv_prog_gcc_traditional = no; then cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include Autoconf TCGETA _ACEOF if (eval "$ac_cpp conftest.$ac_ext") 2>&5 | $EGREP "$ac_pattern" >/dev/null 2>&1; then : ac_cv_prog_gcc_traditional=yes fi rm -f conftest* fi fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_prog_gcc_traditional" >&5 $as_echo "$ac_cv_prog_gcc_traditional" >&6; } if test $ac_cv_prog_gcc_traditional = yes; then CC="$CC -traditional" fi fi { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether using GNU C" >&5 $as_echo_n "checking whether using GNU C... " >&6; } if ${cl_cv_prog_cc_gcc+:} false; then : $as_echo_n "(cached) " >&6 else cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #ifdef __GNUC__ yes #endif _ACEOF if (eval "$ac_cpp conftest.$ac_ext") 2>&5 | $EGREP "yes" >/dev/null 2>&1; then : cl_cv_prog_cc_gcc=yes else cl_cv_prog_cc_gcc=no fi rm -f conftest* fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $cl_cv_prog_cc_gcc" >&5 $as_echo "$cl_cv_prog_cc_gcc" >&6; } if test $cl_cv_prog_cc_gcc = yes; then CC_GCC=true GCC_X_NONE='-x none' else CC_GCC=false GCC_X_NONE='' fi cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #ifdef _MSC_VER MicrosoftCompiler #endif _ACEOF if (eval "$ac_cpp conftest.$ac_ext") 2>&5 | $EGREP "MicrosoftCompiler" >/dev/null 2>&1; then : gl_asmext='asm' gl_c_asm_opt='-c -Fa' else gl_asmext='s' gl_c_asm_opt='-S' fi rm -f conftest* { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether C symbols are prefixed with underscore at the linker level" >&5 $as_echo_n "checking whether C symbols are prefixed with underscore at the linker level... " >&6; } if ${gl_cv_prog_as_underscore+:} false; then : $as_echo_n "(cached) " >&6 else cat > conftest.c <&5 (eval $ac_try) 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; }; } >/dev/null 2>&1 if LC_ALL=C $EGREP '(^|[^a-zA-Z0-9_])_foo([^a-zA-Z0-9_]|$)' conftest.$gl_asmext >/dev/null; then gl_cv_prog_as_underscore=yes else gl_cv_prog_as_underscore=no fi rm -f conftest* fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $gl_cv_prog_as_underscore" >&5 $as_echo "$gl_cv_prog_as_underscore" >&6; } if test $gl_cv_prog_as_underscore = yes; then USER_LABEL_PREFIX=_ else USER_LABEL_PREFIX= fi cat >>confdefs.h <<_ACEOF #define USER_LABEL_PREFIX $USER_LABEL_PREFIX _ACEOF ASM_SYMBOL_PREFIX='"'${USER_LABEL_PREFIX}'"' if test "$USER_LABEL_PREFIX" = '_'; then AS_UNDERSCORE=true else AS_UNDERSCORE=false fi { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether to use C++" >&5 $as_echo_n "checking whether to use C++... " >&6; } # Check whether --enable-c++ was given. if test "${enable_c__+set}" = set; then : enableval=$enable_c__; CXX_CHOICE="$enableval" else CXX_CHOICE=yes fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $CXX_CHOICE" >&5 $as_echo "$CXX_CHOICE" >&6; } if test "$CXX_CHOICE" = no; then CXX=no fi if test -z "$CXX"; then if test -n "$CCC"; then CXX="$CCC" else if test -n "$ac_tool_prefix"; then for ac_prog in g++ c++ gpp aCC CC cxx cc++ cl FCC KCC RCC xlC_r xlC do # Extract the first word of "$ac_tool_prefix$ac_prog", so it can be a program name with args. set dummy $ac_tool_prefix$ac_prog; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_CXX+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$CXX"; then ac_cv_prog_CXX="$CXX" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_CXX="$ac_tool_prefix$ac_prog" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi CXX=$ac_cv_prog_CXX if test -n "$CXX"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $CXX" >&5 $as_echo "$CXX" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi test -n "$CXX" && break done fi if test -z "$CXX"; then ac_ct_CXX=$CXX for ac_prog in g++ c++ gpp aCC CC cxx cc++ cl FCC KCC RCC xlC_r xlC do # Extract the first word of "$ac_prog", so it can be a program name with args. set dummy $ac_prog; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_ac_ct_CXX+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$ac_ct_CXX"; then ac_cv_prog_ac_ct_CXX="$ac_ct_CXX" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_ac_ct_CXX="$ac_prog" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi ac_ct_CXX=$ac_cv_prog_ac_ct_CXX if test -n "$ac_ct_CXX"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_CXX" >&5 $as_echo "$ac_ct_CXX" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi test -n "$ac_ct_CXX" && break done if test "x$ac_ct_CXX" = x; then CXX=":" else case $cross_compiling:$ac_tool_warned in yes:) { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5 $as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;} ac_tool_warned=yes ;; esac CXX=$ac_ct_CXX fi fi fi fi if test "$CXX" != no; then { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether the C++ compiler ($CXX $CXXFLAGS $LDFLAGS) works" >&5 $as_echo_n "checking whether the C++ compiler ($CXX $CXXFLAGS $LDFLAGS) works... " >&6; } ac_ext=cpp ac_cpp='$CXXCPP $CPPFLAGS' ac_compile='$CXX -c $CXXFLAGS $CPPFLAGS conftest.$ac_ext >&5' ac_link='$CXX -o conftest$ac_exeext $CXXFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' ac_compiler_gnu=$ac_cv_cxx_compiler_gnu echo 'int main () { return 0; }' > conftest.$ac_ext if { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$ac_link\""; } >&5 (eval $ac_link) 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; } && test -s conftest$ac_exeext; then gl_cv_prog_ansicxx_works=yes if (./conftest; exit) 2>/dev/null; then gl_cv_prog_ansicxx_cross=no else gl_cv_prog_ansicxx_cross=yes fi else gl_cv_prog_ansicxx_works=no fi rm -fr conftest* ac_ext=c ac_cpp='$CPP $CPPFLAGS' ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' ac_compiler_gnu=$ac_cv_c_compiler_gnu { $as_echo "$as_me:${as_lineno-$LINENO}: result: $gl_cv_prog_ansicxx_works" >&5 $as_echo "$gl_cv_prog_ansicxx_works" >&6; } if test $gl_cv_prog_ansicxx_works = no; then CXX=no else { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether the C++ compiler supports namespaces" >&5 $as_echo_n "checking whether the C++ compiler supports namespaces... " >&6; } ac_ext=cpp ac_cpp='$CXXCPP $CPPFLAGS' ac_compile='$CXX -c $CXXFLAGS $CPPFLAGS conftest.$ac_ext >&5' ac_link='$CXX -o conftest$ac_exeext $CXXFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' ac_compiler_gnu=$ac_cv_cxx_compiler_gnu cat < conftest.$ac_ext #include namespace test { using namespace std; } std::ostream* ptr; int main () { return 0; } EOF if { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$ac_link\""; } >&5 (eval $ac_link) 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; } && test -s conftest$ac_exeext; then gl_cv_prog_ansicxx_namespaces=yes else gl_cv_prog_ansicxx_namespaces=no fi rm -fr conftest* ac_ext=c ac_cpp='$CPP $CPPFLAGS' ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' ac_compiler_gnu=$ac_cv_c_compiler_gnu { $as_echo "$as_me:${as_lineno-$LINENO}: result: $gl_cv_prog_ansicxx_namespaces" >&5 $as_echo "$gl_cv_prog_ansicxx_namespaces" >&6; } if test $gl_cv_prog_ansicxx_namespaces = no; then CXX=no fi fi fi if test "$CXX" != no; then ANSICXX_TRUE= ANSICXX_FALSE='#' else ANSICXX_TRUE='#' ANSICXX_FALSE= fi if test "$CXX" != no; then depcc="$CXX" am_compiler_list= { $as_echo "$as_me:${as_lineno-$LINENO}: checking dependency style of $depcc" >&5 $as_echo_n "checking dependency style of $depcc... " >&6; } if ${am_cv_CXX_dependencies_compiler_type+:} false; then : $as_echo_n "(cached) " >&6 else if test -z "$AMDEP_TRUE" && test -f "$am_depcomp"; then # We make a subdir and do the tests there. Otherwise we can end up # making bogus files that we don't know about and never remove. For # instance it was reported that on HP-UX the gcc test will end up # making a dummy file named 'D' -- because '-MD' means "put the output # in D". rm -rf conftest.dir mkdir conftest.dir # Copy depcomp to subdir because otherwise we won't find it if we're # using a relative directory. cp "$am_depcomp" conftest.dir cd conftest.dir # We will build objects and dependencies in a subdirectory because # it helps to detect inapplicable dependency modes. For instance # both Tru64's cc and ICC support -MD to output dependencies as a # side effect of compilation, but ICC will put the dependencies in # the current directory while Tru64 will put them in the object # directory. mkdir sub am_cv_CXX_dependencies_compiler_type=none if test "$am_compiler_list" = ""; then am_compiler_list=`sed -n 's/^#*\([a-zA-Z0-9]*\))$/\1/p' < ./depcomp` fi am__universal=false case " $depcc " in #( *\ -arch\ *\ -arch\ *) am__universal=true ;; esac for depmode in $am_compiler_list; do # Setup a source with many dependencies, because some compilers # like to wrap large dependency lists on column 80 (with \), and # we should not choose a depcomp mode which is confused by this. # # We need to recreate these files for each test, as the compiler may # overwrite some of them when testing with obscure command lines. # This happens at least with the AIX C compiler. : > sub/conftest.c for i in 1 2 3 4 5 6; do echo '#include "conftst'$i'.h"' >> sub/conftest.c # Using ": > sub/conftst$i.h" creates only sub/conftst1.h with # Solaris 10 /bin/sh. echo '/* dummy */' > sub/conftst$i.h done echo "${am__include} ${am__quote}sub/conftest.Po${am__quote}" > confmf # We check with '-c' and '-o' for the sake of the "dashmstdout" # mode. It turns out that the SunPro C++ compiler does not properly # handle '-M -o', and we need to detect this. Also, some Intel # versions had trouble with output in subdirs. am__obj=sub/conftest.${OBJEXT-o} am__minus_obj="-o $am__obj" case $depmode in gcc) # This depmode causes a compiler race in universal mode. test "$am__universal" = false || continue ;; nosideeffect) # After this tag, mechanisms are not by side-effect, so they'll # only be used when explicitly requested. if test "x$enable_dependency_tracking" = xyes; then continue else break fi ;; msvc7 | msvc7msys | msvisualcpp | msvcmsys) # This compiler won't grok '-c -o', but also, the minuso test has # not run yet. These depmodes are late enough in the game, and # so weak that their functioning should not be impacted. am__obj=conftest.${OBJEXT-o} am__minus_obj= ;; none) break ;; esac if depmode=$depmode \ source=sub/conftest.c object=$am__obj \ depfile=sub/conftest.Po tmpdepfile=sub/conftest.TPo \ $SHELL ./depcomp $depcc -c $am__minus_obj sub/conftest.c \ >/dev/null 2>conftest.err && grep sub/conftst1.h sub/conftest.Po > /dev/null 2>&1 && grep sub/conftst6.h sub/conftest.Po > /dev/null 2>&1 && grep $am__obj sub/conftest.Po > /dev/null 2>&1 && ${MAKE-make} -s -f confmf > /dev/null 2>&1; then # icc doesn't choke on unknown options, it will just issue warnings # or remarks (even with -Werror). So we grep stderr for any message # that says an option was ignored or not supported. # When given -MP, icc 7.0 and 7.1 complain thusly: # icc: Command line warning: ignoring option '-M'; no argument required # The diagnosis changed in icc 8.0: # icc: Command line remark: option '-MP' not supported if (grep 'ignoring option' conftest.err || grep 'not supported' conftest.err) >/dev/null 2>&1; then :; else am_cv_CXX_dependencies_compiler_type=$depmode break fi fi done cd .. rm -rf conftest.dir else am_cv_CXX_dependencies_compiler_type=none fi fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $am_cv_CXX_dependencies_compiler_type" >&5 $as_echo "$am_cv_CXX_dependencies_compiler_type" >&6; } CXXDEPMODE=depmode=$am_cv_CXX_dependencies_compiler_type if test "x$enable_dependency_tracking" != xno \ && test "$am_cv_CXX_dependencies_compiler_type" = gcc3; then am__fastdepCXX_TRUE= am__fastdepCXX_FALSE='#' else am__fastdepCXX_TRUE='#' am__fastdepCXX_FALSE= fi else if false; then am__fastdepCXX_TRUE= am__fastdepCXX_FALSE='#' else am__fastdepCXX_TRUE='#' am__fastdepCXX_FALSE= fi fi if test "$CXX" != no; then IF_CXX='' else IF_CXX='# ' fi { $as_echo "$as_me:${as_lineno-$LINENO}: checking for Minix Amsterdam compiler" >&5 $as_echo_n "checking for Minix Amsterdam compiler... " >&6; } if ${gl_cv_c_amsterdam_compiler+:} false; then : $as_echo_n "(cached) " >&6 else cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #ifdef __ACK__ Amsterdam #endif _ACEOF if (eval "$ac_cpp conftest.$ac_ext") 2>&5 | $EGREP "Amsterdam" >/dev/null 2>&1; then : gl_cv_c_amsterdam_compiler=yes else gl_cv_c_amsterdam_compiler=no fi rm -f conftest* fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $gl_cv_c_amsterdam_compiler" >&5 $as_echo "$gl_cv_c_amsterdam_compiler" >&6; } if test $gl_cv_c_amsterdam_compiler = yes; then if test -z "$AR"; then AR='cc -c.a' fi if test -z "$ARFLAGS"; then ARFLAGS='-o' fi else : fi if test -n "$ac_tool_prefix"; then # Extract the first word of "${ac_tool_prefix}ar", so it can be a program name with args. set dummy ${ac_tool_prefix}ar; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_AR+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$AR"; then ac_cv_prog_AR="$AR" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_AR="${ac_tool_prefix}ar" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi AR=$ac_cv_prog_AR if test -n "$AR"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $AR" >&5 $as_echo "$AR" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi fi if test -z "$ac_cv_prog_AR"; then ac_ct_AR=$AR # Extract the first word of "ar", so it can be a program name with args. set dummy ar; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_ac_ct_AR+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$ac_ct_AR"; then ac_cv_prog_ac_ct_AR="$ac_ct_AR" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_ac_ct_AR="ar" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi ac_ct_AR=$ac_cv_prog_ac_ct_AR if test -n "$ac_ct_AR"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_AR" >&5 $as_echo "$ac_ct_AR" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi if test "x$ac_ct_AR" = x; then AR="ar" else case $cross_compiling:$ac_tool_warned in yes:) { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5 $as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;} ac_tool_warned=yes ;; esac AR=$ac_ct_AR fi else AR="$ac_cv_prog_AR" fi if test -z "$ARFLAGS"; then ARFLAGS='cr' fi if test -z "$RANLIB"; then if test $gl_cv_c_amsterdam_compiler = yes; then RANLIB=':' else if test -n "$ac_tool_prefix"; then # Extract the first word of "${ac_tool_prefix}ranlib", so it can be a program name with args. set dummy ${ac_tool_prefix}ranlib; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_RANLIB+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$RANLIB"; then ac_cv_prog_RANLIB="$RANLIB" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_RANLIB="${ac_tool_prefix}ranlib" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi RANLIB=$ac_cv_prog_RANLIB if test -n "$RANLIB"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $RANLIB" >&5 $as_echo "$RANLIB" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi fi if test -z "$ac_cv_prog_RANLIB"; then ac_ct_RANLIB=$RANLIB # Extract the first word of "ranlib", so it can be a program name with args. set dummy ranlib; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_ac_ct_RANLIB+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$ac_ct_RANLIB"; then ac_cv_prog_ac_ct_RANLIB="$ac_ct_RANLIB" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_ac_ct_RANLIB="ranlib" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi ac_ct_RANLIB=$ac_cv_prog_ac_ct_RANLIB if test -n "$ac_ct_RANLIB"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_RANLIB" >&5 $as_echo "$ac_ct_RANLIB" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi if test "x$ac_ct_RANLIB" = x; then RANLIB=":" else case $cross_compiling:$ac_tool_warned in yes:) { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5 $as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;} ac_tool_warned=yes ;; esac RANLIB=$ac_ct_RANLIB fi else RANLIB="$ac_cv_prog_RANLIB" fi fi fi cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #ifdef _MSC_VER MicrosoftCompiler #endif _ACEOF if (eval "$ac_cpp conftest.$ac_ext") 2>&5 | $EGREP "MicrosoftCompiler" >/dev/null 2>&1; then : IF_MSVC='' IFNOT_MSVC='# ' else IF_MSVC='# ' IFNOT_MSVC='' fi rm -f conftest* { $as_echo "$as_me:${as_lineno-$LINENO}: checking how to make hard links" >&5 $as_echo_n "checking how to make hard links... " >&6; } if ${cl_cv_prog_LN+:} false; then : $as_echo_n "(cached) " >&6 else rm -f conftestdata conftestfile echo data > conftestfile if ln conftestfile conftestdata 2>/dev/null; then cl_cv_prog_LN=ln else cl_cv_prog_LN="cp -p" fi rm -f conftestdata conftestfile fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $cl_cv_prog_LN" >&5 $as_echo "$cl_cv_prog_LN" >&6; } LN="$cl_cv_prog_LN" { $as_echo "$as_me:${as_lineno-$LINENO}: checking for ANSI C header files" >&5 $as_echo_n "checking for ANSI C header files... " >&6; } if ${ac_cv_header_stdc+:} false; then : $as_echo_n "(cached) " >&6 else cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include #include #include #include int main () { ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO"; then : ac_cv_header_stdc=yes else ac_cv_header_stdc=no fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext if test $ac_cv_header_stdc = yes; then # SunOS 4.x string.h does not declare mem*, contrary to ANSI. cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include _ACEOF if (eval "$ac_cpp conftest.$ac_ext") 2>&5 | $EGREP "memchr" >/dev/null 2>&1; then : else ac_cv_header_stdc=no fi rm -f conftest* fi if test $ac_cv_header_stdc = yes; then # ISC 2.0.2 stdlib.h does not declare free, contrary to ANSI. cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include _ACEOF if (eval "$ac_cpp conftest.$ac_ext") 2>&5 | $EGREP "free" >/dev/null 2>&1; then : else ac_cv_header_stdc=no fi rm -f conftest* fi if test $ac_cv_header_stdc = yes; then # /bin/cc in Irix-4.0.5 gets non-ANSI ctype macros unless using -ansi. if test "$cross_compiling" = yes; then : : else cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include #include #if ((' ' & 0x0FF) == 0x020) # define ISLOWER(c) ('a' <= (c) && (c) <= 'z') # define TOUPPER(c) (ISLOWER(c) ? 'A' + ((c) - 'a') : (c)) #else # define ISLOWER(c) \ (('a' <= (c) && (c) <= 'i') \ || ('j' <= (c) && (c) <= 'r') \ || ('s' <= (c) && (c) <= 'z')) # define TOUPPER(c) (ISLOWER(c) ? ((c) | 0x40) : (c)) #endif #define XOR(e, f) (((e) && !(f)) || (!(e) && (f))) int main () { int i; for (i = 0; i < 256; i++) if (XOR (islower (i), ISLOWER (i)) || toupper (i) != TOUPPER (i)) return 2; return 0; } _ACEOF if ac_fn_c_try_run "$LINENO"; then : else ac_cv_header_stdc=no fi rm -f core *.core core.conftest.* gmon.out bb.out conftest$ac_exeext \ conftest.$ac_objext conftest.beam conftest.$ac_ext fi fi fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_header_stdc" >&5 $as_echo "$ac_cv_header_stdc" >&6; } if test $ac_cv_header_stdc = yes; then $as_echo "#define STDC_HEADERS 1" >>confdefs.h fi # On IRIX 5.3, sys/types and inttypes.h are conflicting. for ac_header in sys/types.h sys/stat.h stdlib.h string.h memory.h strings.h \ inttypes.h stdint.h unistd.h do : as_ac_Header=`$as_echo "ac_cv_header_$ac_header" | $as_tr_sh` ac_fn_c_check_header_compile "$LINENO" "$ac_header" "$as_ac_Header" "$ac_includes_default " if eval test \"x\$"$as_ac_Header"\" = x"yes"; then : cat >>confdefs.h <<_ACEOF #define `$as_echo "HAVE_$ac_header" | $as_tr_cpp` 1 _ACEOF fi done ac_fn_c_check_header_mongrel "$LINENO" "minix/config.h" "ac_cv_header_minix_config_h" "$ac_includes_default" if test "x$ac_cv_header_minix_config_h" = xyes; then : MINIX=yes else MINIX= fi if test "$MINIX" = yes; then $as_echo "#define _POSIX_SOURCE 1" >>confdefs.h $as_echo "#define _POSIX_1_SOURCE 2" >>confdefs.h $as_echo "#define _MINIX 1" >>confdefs.h $as_echo "#define _NETBSD_SOURCE 1" >>confdefs.h fi { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether it is safe to define __EXTENSIONS__" >&5 $as_echo_n "checking whether it is safe to define __EXTENSIONS__... " >&6; } if ${ac_cv_safe_to_define___extensions__+:} false; then : $as_echo_n "(cached) " >&6 else cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ # define __EXTENSIONS__ 1 $ac_includes_default int main () { ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO"; then : ac_cv_safe_to_define___extensions__=yes else ac_cv_safe_to_define___extensions__=no fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_safe_to_define___extensions__" >&5 $as_echo "$ac_cv_safe_to_define___extensions__" >&6; } test $ac_cv_safe_to_define___extensions__ = yes && $as_echo "#define __EXTENSIONS__ 1" >>confdefs.h $as_echo "#define _ALL_SOURCE 1" >>confdefs.h $as_echo "#define _DARWIN_C_SOURCE 1" >>confdefs.h $as_echo "#define _GNU_SOURCE 1" >>confdefs.h $as_echo "#define _NETBSD_SOURCE 1" >>confdefs.h $as_echo "#define _OPENBSD_SOURCE 1" >>confdefs.h $as_echo "#define _POSIX_PTHREAD_SEMANTICS 1" >>confdefs.h $as_echo "#define __STDC_WANT_IEC_60559_ATTRIBS_EXT__ 1" >>confdefs.h $as_echo "#define __STDC_WANT_IEC_60559_BFP_EXT__ 1" >>confdefs.h $as_echo "#define __STDC_WANT_IEC_60559_DFP_EXT__ 1" >>confdefs.h $as_echo "#define __STDC_WANT_IEC_60559_FUNCS_EXT__ 1" >>confdefs.h $as_echo "#define __STDC_WANT_IEC_60559_TYPES_EXT__ 1" >>confdefs.h $as_echo "#define __STDC_WANT_LIB_EXT2__ 1" >>confdefs.h $as_echo "#define __STDC_WANT_MATH_SPEC_FUNCS__ 1" >>confdefs.h $as_echo "#define _TANDEM_SOURCE 1" >>confdefs.h { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether _XOPEN_SOURCE should be defined" >&5 $as_echo_n "checking whether _XOPEN_SOURCE should be defined... " >&6; } if ${ac_cv_should_define__xopen_source+:} false; then : $as_echo_n "(cached) " >&6 else ac_cv_should_define__xopen_source=no cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include mbstate_t x; int main () { ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO"; then : else cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #define _XOPEN_SOURCE 500 #include mbstate_t x; int main () { ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO"; then : ac_cv_should_define__xopen_source=yes fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_should_define__xopen_source" >&5 $as_echo "$ac_cv_should_define__xopen_source" >&6; } test $ac_cv_should_define__xopen_source = yes && $as_echo "#define _XOPEN_SOURCE 500" >>confdefs.h $as_echo "#define _HPUX_ALT_XOPEN_SOCKET_API 1" >>confdefs.h # Make sure we can run config.sub. $SHELL "$ac_aux_dir/config.sub" sun4 >/dev/null 2>&1 || as_fn_error $? "cannot run $SHELL $ac_aux_dir/config.sub" "$LINENO" 5 { $as_echo "$as_me:${as_lineno-$LINENO}: checking build system type" >&5 $as_echo_n "checking build system type... " >&6; } if ${ac_cv_build+:} false; then : $as_echo_n "(cached) " >&6 else ac_build_alias=$build_alias test "x$ac_build_alias" = x && ac_build_alias=`$SHELL "$ac_aux_dir/config.guess"` test "x$ac_build_alias" = x && as_fn_error $? "cannot guess build type; you must specify one" "$LINENO" 5 ac_cv_build=`$SHELL "$ac_aux_dir/config.sub" $ac_build_alias` || as_fn_error $? "$SHELL $ac_aux_dir/config.sub $ac_build_alias failed" "$LINENO" 5 fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_build" >&5 $as_echo "$ac_cv_build" >&6; } case $ac_cv_build in *-*-*) ;; *) as_fn_error $? "invalid value of canonical build" "$LINENO" 5;; esac build=$ac_cv_build ac_save_IFS=$IFS; IFS='-' set x $ac_cv_build shift build_cpu=$1 build_vendor=$2 shift; shift # Remember, the first character of IFS is used to create $*, # except with old shells: build_os=$* IFS=$ac_save_IFS case $build_os in *\ *) build_os=`echo "$build_os" | sed 's/ /-/g'`;; esac { $as_echo "$as_me:${as_lineno-$LINENO}: checking host system type" >&5 $as_echo_n "checking host system type... " >&6; } if ${ac_cv_host+:} false; then : $as_echo_n "(cached) " >&6 else if test "x$host_alias" = x; then ac_cv_host=$ac_cv_build else ac_cv_host=`$SHELL "$ac_aux_dir/config.sub" $host_alias` || as_fn_error $? "$SHELL $ac_aux_dir/config.sub $host_alias failed" "$LINENO" 5 fi fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_host" >&5 $as_echo "$ac_cv_host" >&6; } case $ac_cv_host in *-*-*) ;; *) as_fn_error $? "invalid value of canonical host" "$LINENO" 5;; esac host=$ac_cv_host ac_save_IFS=$IFS; IFS='-' set x $ac_cv_host shift host_cpu=$1 host_vendor=$2 shift; shift # Remember, the first character of IFS is used to create $*, # except with old shells: host_os=$* IFS=$ac_save_IFS case $host_os in *\ *) host_os=`echo "$host_os" | sed 's/ /-/g'`;; esac # Check whether --enable-threads was given. if test "${enable_threads+set}" = set; then : enableval=$enable_threads; gl_use_threads=$enableval else if test -n "$gl_use_threads_default"; then gl_use_threads="$gl_use_threads_default" else case "$host_os" in osf*) gl_use_threads=no ;; cygwin*) case `uname -r` in 1.[0-5].*) gl_use_threads=no ;; *) gl_use_threads=yes ;; esac ;; mingw*) case "$gl_use_winpthreads_default" in yes) gl_use_threads=posix ;; no) gl_use_threads=windows ;; *) gl_use_threads=yes ;; esac ;; *) gl_use_threads=yes ;; esac fi fi if test "$gl_use_threads" = yes || test "$gl_use_threads" = posix; then # For using : case "$host_os" in osf*) # On OSF/1, the compiler needs the flag -D_REENTRANT so that it # groks . cc also understands the flag -pthread, but # we don't use it because 1. gcc-2.95 doesn't understand -pthread, # 2. putting a flag into CPPFLAGS that has an effect on the linker # causes the AC_LINK_IFELSE test below to succeed unexpectedly, # leading to wrong values of LIBTHREAD and LTLIBTHREAD. CPPFLAGS="$CPPFLAGS -D_REENTRANT" ;; esac # Some systems optimize for single-threaded programs by default, and # need special flags to disable these optimizations. For example, the # definition of 'errno' in . case "$host_os" in aix* | freebsd*) CPPFLAGS="$CPPFLAGS -D_THREAD_SAFE" ;; solaris*) CPPFLAGS="$CPPFLAGS -D_REENTRANT" ;; esac fi # Pre-early section. # Code from module absolute-header: # Code from module ansi-c++-opt: # Code from module extensions: # Code from module havelib: # Code from module host-cpu-c-abi: # Code from module include_next: # Code from module limits-h: # Code from module lock: # Code from module longlong: # Code from module multiarch: # Code from module nocrash: # Code from module snippet/_Noreturn: # Code from module ssize_t: # Code from module stdint: # Code from module stdnoreturn: # Code from module sys_types: # Code from module threadlib: # Code from module windows-mutex: # Code from module windows-once: # Code from module windows-recmutex: # Code from module windows-rwlock: { $as_echo "$as_me:${as_lineno-$LINENO}: checking host CPU and C ABI" >&5 $as_echo_n "checking host CPU and C ABI... " >&6; } if ${gl_cv_host_cpu_c_abi+:} false; then : $as_echo_n "(cached) " >&6 else case "$host_cpu" in i[4567]86 ) gl_cv_host_cpu_c_abi=i386 ;; x86_64 ) # On x86_64 systems, the C compiler may be generating code in one of # these ABIs: # - 64-bit instruction set, 64-bit pointers, 64-bit 'long': x86_64. # - 64-bit instruction set, 64-bit pointers, 32-bit 'long': x86_64 # with native Windows (mingw, MSVC). # - 64-bit instruction set, 32-bit pointers, 32-bit 'long': x86_64-x32. # - 32-bit instruction set, 32-bit pointers, 32-bit 'long': i386. cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #if (defined __x86_64__ || defined __amd64__ \ || defined _M_X64 || defined _M_AMD64) int ok; #else error fail #endif _ACEOF if ac_fn_c_try_compile "$LINENO"; then : cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #if defined __ILP32__ || defined _ILP32 int ok; #else error fail #endif _ACEOF if ac_fn_c_try_compile "$LINENO"; then : gl_cv_host_cpu_c_abi=x86_64-x32 else gl_cv_host_cpu_c_abi=x86_64 fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext else gl_cv_host_cpu_c_abi=i386 fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext ;; alphaev[4-8] | alphaev56 | alphapca5[67] | alphaev6[78] ) gl_cv_host_cpu_c_abi=alpha ;; arm* | aarch64 ) # Assume arm with EABI. # On arm64 systems, the C compiler may be generating code in one of # these ABIs: # - aarch64 instruction set, 64-bit pointers, 64-bit 'long': arm64. # - aarch64 instruction set, 32-bit pointers, 32-bit 'long': arm64-ilp32. # - 32-bit instruction set, 32-bit pointers, 32-bit 'long': arm or armhf. cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #ifdef __aarch64__ int ok; #else error fail #endif _ACEOF if ac_fn_c_try_compile "$LINENO"; then : cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #if defined __ILP32__ || defined _ILP32 int ok; #else error fail #endif _ACEOF if ac_fn_c_try_compile "$LINENO"; then : gl_cv_host_cpu_c_abi=arm64-ilp32 else gl_cv_host_cpu_c_abi=arm64 fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext else # Don't distinguish little-endian and big-endian arm, since they # don't require different machine code for simple operations and # since the user can distinguish them through the preprocessor # defines __ARMEL__ vs. __ARMEB__. # But distinguish arm which passes floating-point arguments and # return values in integer registers (r0, r1, ...) - this is # gcc -mfloat-abi=soft or gcc -mfloat-abi=softfp - from arm which # passes them in float registers (s0, s1, ...) and double registers # (d0, d1, ...) - this is gcc -mfloat-abi=hard. GCC 4.6 or newer # sets the preprocessor defines __ARM_PCS (for the first case) and # __ARM_PCS_VFP (for the second case), but older GCC does not. echo 'double ddd; void func (double dd) { ddd = dd; }' > conftest.c # Look for a reference to the register d0 in the .s file. { ac_try='${CC-cc} $CFLAGS $CPPFLAGS $gl_c_asm_opt conftest.c' { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$ac_try\""; } >&5 (eval $ac_try) 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; }; } >/dev/null 2>&1 if LC_ALL=C grep 'd0,' conftest.$gl_asmext >/dev/null; then gl_cv_host_cpu_c_abi=armhf else gl_cv_host_cpu_c_abi=arm fi rm -f conftest* fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext ;; hppa1.0 | hppa1.1 | hppa2.0* | hppa64 ) # On hppa, the C compiler may be generating 32-bit code or 64-bit # code. In the latter case, it defines _LP64 and __LP64__. cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #ifdef __LP64__ int ok; #else error fail #endif _ACEOF if ac_fn_c_try_compile "$LINENO"; then : gl_cv_host_cpu_c_abi=hppa64 else gl_cv_host_cpu_c_abi=hppa fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext ;; ia64* ) # On ia64 on HP-UX, the C compiler may be generating 64-bit code or # 32-bit code. In the latter case, it defines _ILP32. cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #ifdef _ILP32 int ok; #else error fail #endif _ACEOF if ac_fn_c_try_compile "$LINENO"; then : gl_cv_host_cpu_c_abi=ia64-ilp32 else gl_cv_host_cpu_c_abi=ia64 fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext ;; mips* ) # We should also check for (_MIPS_SZPTR == 64), but gcc keeps this # at 32. cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #if defined _MIPS_SZLONG && (_MIPS_SZLONG == 64) int ok; #else error fail #endif _ACEOF if ac_fn_c_try_compile "$LINENO"; then : gl_cv_host_cpu_c_abi=mips64 else # In the n32 ABI, _ABIN32 is defined, _ABIO32 is not defined (but # may later get defined by ), and _MIPS_SIM == _ABIN32. # In the 32 ABI, _ABIO32 is defined, _ABIN32 is not defined (but # may later get defined by ), and _MIPS_SIM == _ABIO32. cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #if (_MIPS_SIM == _ABIN32) int ok; #else error fail #endif _ACEOF if ac_fn_c_try_compile "$LINENO"; then : gl_cv_host_cpu_c_abi=mipsn32 else gl_cv_host_cpu_c_abi=mips fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext ;; powerpc* ) # Different ABIs are in use on AIX vs. Mac OS X vs. Linux,*BSD. # No need to distinguish them here; the caller may distinguish # them based on the OS. # On powerpc64 systems, the C compiler may still be generating # 32-bit code. And on powerpc-ibm-aix systems, the C compiler may # be generating 64-bit code. cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #if defined __powerpc64__ || defined _ARCH_PPC64 int ok; #else error fail #endif _ACEOF if ac_fn_c_try_compile "$LINENO"; then : # On powerpc64, there are two ABIs on Linux: The AIX compatible # one and the ELFv2 one. The latter defines _CALL_ELF=2. cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #if defined _CALL_ELF && _CALL_ELF == 2 int ok; #else error fail #endif _ACEOF if ac_fn_c_try_compile "$LINENO"; then : gl_cv_host_cpu_c_abi=powerpc64-elfv2 else gl_cv_host_cpu_c_abi=powerpc64 fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext else gl_cv_host_cpu_c_abi=powerpc fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext ;; rs6000 ) gl_cv_host_cpu_c_abi=powerpc ;; riscv32 | riscv64 ) # There are 2 architectures (with variants): rv32* and rv64*. cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #if __riscv_xlen == 64 int ok; #else error fail #endif _ACEOF if ac_fn_c_try_compile "$LINENO"; then : cpu=riscv64 else cpu=riscv32 fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext # There are 6 ABIs: ilp32, ilp32f, ilp32d, lp64, lp64f, lp64d. # Size of 'long' and 'void *': cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #if defined __LP64__ int ok; #else error fail #endif _ACEOF if ac_fn_c_try_compile "$LINENO"; then : main_abi=lp64 else main_abi=ilp32 fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext # Float ABIs: # __riscv_float_abi_double: # 'float' and 'double' are passed in floating-point registers. # __riscv_float_abi_single: # 'float' are passed in floating-point registers. # __riscv_float_abi_soft: # No values are passed in floating-point registers. cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #if defined __riscv_float_abi_double int ok; #else error fail #endif _ACEOF if ac_fn_c_try_compile "$LINENO"; then : float_abi=d else cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #if defined __riscv_float_abi_single int ok; #else error fail #endif _ACEOF if ac_fn_c_try_compile "$LINENO"; then : float_abi=f else float_abi='' fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext gl_cv_host_cpu_c_abi="${cpu}-${main_abi}${float_abi}" ;; s390* ) # On s390x, the C compiler may be generating 64-bit (= s390x) code # or 31-bit (= s390) code. cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #if defined __LP64__ || defined __s390x__ int ok; #else error fail #endif _ACEOF if ac_fn_c_try_compile "$LINENO"; then : gl_cv_host_cpu_c_abi=s390x else gl_cv_host_cpu_c_abi=s390 fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext ;; sparc | sparc64 ) # UltraSPARCs running Linux have `uname -m` = "sparc64", but the # C compiler still generates 32-bit code. cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #if defined __sparcv9 || defined __arch64__ int ok; #else error fail #endif _ACEOF if ac_fn_c_try_compile "$LINENO"; then : gl_cv_host_cpu_c_abi=sparc64 else gl_cv_host_cpu_c_abi=sparc fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext ;; *) gl_cv_host_cpu_c_abi="$host_cpu" ;; esac fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $gl_cv_host_cpu_c_abi" >&5 $as_echo "$gl_cv_host_cpu_c_abi" >&6; } HOST_CPU=`echo "$gl_cv_host_cpu_c_abi" | sed -e 's/-.*//'` HOST_CPU_C_ABI="$gl_cv_host_cpu_c_abi" # This was # AC_DEFINE_UNQUOTED([__${HOST_CPU}__]) # AC_DEFINE_UNQUOTED([__${HOST_CPU_C_ABI}__]) # earlier, but KAI C++ 3.2d doesn't like this. sed -e 's/-/_/g' >> confdefs.h <&5 $as_echo_n "checking endianness... " >&6; } if ${ffcall_cv_endianness+:} false; then : $as_echo_n "(cached) " >&6 else cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #if defined __ARMEL__ yes #endif _ACEOF if (eval "$ac_cpp conftest.$ac_ext") 2>&5 | $EGREP "yes" >/dev/null 2>&1; then : ffcall_cv_endianness=little else ffcall_cv_endianness=big fi rm -f conftest* fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ffcall_cv_endianness" >&5 $as_echo "$ffcall_cv_endianness" >&6; } ;; mips* ) { $as_echo "$as_me:${as_lineno-$LINENO}: checking endianness" >&5 $as_echo_n "checking endianness... " >&6; } if ${ffcall_cv_endianness+:} false; then : $as_echo_n "(cached) " >&6 else # Compilers on IRIX define only _MIPSEB as indicator. # Compilers on Linux define _MIPSEB, __MIPSEB__, __MIPSEB or - in # the opposite case - _MIPSEL, __MIPSEL__, __MIPSEL. cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #if defined _MIPSEB yes #endif _ACEOF if (eval "$ac_cpp conftest.$ac_ext") 2>&5 | $EGREP "yes" >/dev/null 2>&1; then : ffcall_cv_endianness=big else cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #if defined _MIPSEL yes #endif _ACEOF if (eval "$ac_cpp conftest.$ac_ext") 2>&5 | $EGREP "yes" >/dev/null 2>&1; then : ffcall_cv_endianness=little else ffcall_cv_endianness=unknown fi rm -f conftest* fi rm -f conftest* fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ffcall_cv_endianness" >&5 $as_echo "$ffcall_cv_endianness" >&6; } ;; powerpc*) { $as_echo "$as_me:${as_lineno-$LINENO}: checking endianness" >&5 $as_echo_n "checking endianness... " >&6; } if ${ffcall_cv_endianness+:} false; then : $as_echo_n "(cached) " >&6 else # Compilers on AIX and Linux define _BIG_ENDIAN, __BIG_ENDIAN__ or # - in the opposite case - _LITTLE_ENDIAN, __LITTLE_ENDIAN__. cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #if defined _BIG_ENDIAN yes #endif _ACEOF if (eval "$ac_cpp conftest.$ac_ext") 2>&5 | $EGREP "yes" >/dev/null 2>&1; then : ffcall_cv_endianness=big else cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #if defined _LITTLE_ENDIAN yes #endif _ACEOF if (eval "$ac_cpp conftest.$ac_ext") 2>&5 | $EGREP "yes" >/dev/null 2>&1; then : ffcall_cv_endianness=little else ffcall_cv_endianness=unknown fi rm -f conftest* fi rm -f conftest* fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ffcall_cv_endianness" >&5 $as_echo "$ffcall_cv_endianness" >&6; } ;; *) ffcall_cv_endianness=known ;; esac case "$ffcall_cv_endianness" in big) ENDIANNESS='eb' ;; little) ENDIANNESS='el' ;; *) ENDIANNESS='' ;; esac PACKAGE=libffcall case `pwd` in *\ * | *\ *) { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: Libtool does not cope well with whitespace in \`pwd\`" >&5 $as_echo "$as_me: WARNING: Libtool does not cope well with whitespace in \`pwd\`" >&2;} ;; esac macro_version='2.4.6' macro_revision='2.4.6' ltmain=$ac_aux_dir/ltmain.sh # Backslashify metacharacters that are still active within # double-quoted strings. sed_quote_subst='s/\(["`$\\]\)/\\\1/g' # Same as above, but do not quote variable references. double_quote_subst='s/\(["`\\]\)/\\\1/g' # Sed substitution to delay expansion of an escaped shell variable in a # double_quote_subst'ed string. delay_variable_subst='s/\\\\\\\\\\\$/\\\\\\$/g' # Sed substitution to delay expansion of an escaped single quote. delay_single_quote_subst='s/'\''/'\'\\\\\\\'\''/g' # Sed substitution to avoid accidental globbing in evaled expressions no_glob_subst='s/\*/\\\*/g' ECHO='\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\' ECHO=$ECHO$ECHO$ECHO$ECHO$ECHO ECHO=$ECHO$ECHO$ECHO$ECHO$ECHO$ECHO { $as_echo "$as_me:${as_lineno-$LINENO}: checking how to print strings" >&5 $as_echo_n "checking how to print strings... " >&6; } # Test print first, because it will be a builtin if present. if test "X`( print -r -- -n ) 2>/dev/null`" = X-n && \ test "X`print -r -- $ECHO 2>/dev/null`" = "X$ECHO"; then ECHO='print -r --' elif test "X`printf %s $ECHO 2>/dev/null`" = "X$ECHO"; then ECHO='printf %s\n' else # Use this function as a fallback that always works. func_fallback_echo () { eval 'cat <<_LTECHO_EOF $1 _LTECHO_EOF' } ECHO='func_fallback_echo' fi # func_echo_all arg... # Invoke $ECHO with all args, space-separated. func_echo_all () { $ECHO "" } case $ECHO in printf*) { $as_echo "$as_me:${as_lineno-$LINENO}: result: printf" >&5 $as_echo "printf" >&6; } ;; print*) { $as_echo "$as_me:${as_lineno-$LINENO}: result: print -r" >&5 $as_echo "print -r" >&6; } ;; *) { $as_echo "$as_me:${as_lineno-$LINENO}: result: cat" >&5 $as_echo "cat" >&6; } ;; esac { $as_echo "$as_me:${as_lineno-$LINENO}: checking for a sed that does not truncate output" >&5 $as_echo_n "checking for a sed that does not truncate output... " >&6; } if ${ac_cv_path_SED+:} false; then : $as_echo_n "(cached) " >&6 else ac_script=s/aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa/bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb/ for ac_i in 1 2 3 4 5 6 7; do ac_script="$ac_script$as_nl$ac_script" done echo "$ac_script" 2>/dev/null | sed 99q >conftest.sed { ac_script=; unset ac_script;} if test -z "$SED"; then ac_path_SED_found=false # Loop through the user's path and test for each of PROGNAME-LIST as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_prog in sed gsed; do for ac_exec_ext in '' $ac_executable_extensions; do ac_path_SED="$as_dir/$ac_prog$ac_exec_ext" as_fn_executable_p "$ac_path_SED" || continue # Check for GNU ac_path_SED and select it if it is found. # Check for GNU $ac_path_SED case `"$ac_path_SED" --version 2>&1` in *GNU*) ac_cv_path_SED="$ac_path_SED" ac_path_SED_found=:;; *) ac_count=0 $as_echo_n 0123456789 >"conftest.in" while : do cat "conftest.in" "conftest.in" >"conftest.tmp" mv "conftest.tmp" "conftest.in" cp "conftest.in" "conftest.nl" $as_echo '' >> "conftest.nl" "$ac_path_SED" -f conftest.sed < "conftest.nl" >"conftest.out" 2>/dev/null || break diff "conftest.out" "conftest.nl" >/dev/null 2>&1 || break as_fn_arith $ac_count + 1 && ac_count=$as_val if test $ac_count -gt ${ac_path_SED_max-0}; then # Best one so far, save it but keep looking for a better one ac_cv_path_SED="$ac_path_SED" ac_path_SED_max=$ac_count fi # 10*(2^10) chars as input seems more than enough test $ac_count -gt 10 && break done rm -f conftest.in conftest.tmp conftest.nl conftest.out;; esac $ac_path_SED_found && break 3 done done done IFS=$as_save_IFS if test -z "$ac_cv_path_SED"; then as_fn_error $? "no acceptable sed could be found in \$PATH" "$LINENO" 5 fi else ac_cv_path_SED=$SED fi fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_path_SED" >&5 $as_echo "$ac_cv_path_SED" >&6; } SED="$ac_cv_path_SED" rm -f conftest.sed test -z "$SED" && SED=sed Xsed="$SED -e 1s/^X//" { $as_echo "$as_me:${as_lineno-$LINENO}: checking for fgrep" >&5 $as_echo_n "checking for fgrep... " >&6; } if ${ac_cv_path_FGREP+:} false; then : $as_echo_n "(cached) " >&6 else if echo 'ab*c' | $GREP -F 'ab*c' >/dev/null 2>&1 then ac_cv_path_FGREP="$GREP -F" else if test -z "$FGREP"; then ac_path_FGREP_found=false # Loop through the user's path and test for each of PROGNAME-LIST as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH$PATH_SEPARATOR/usr/xpg4/bin do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_prog in fgrep; do for ac_exec_ext in '' $ac_executable_extensions; do ac_path_FGREP="$as_dir/$ac_prog$ac_exec_ext" as_fn_executable_p "$ac_path_FGREP" || continue # Check for GNU ac_path_FGREP and select it if it is found. # Check for GNU $ac_path_FGREP case `"$ac_path_FGREP" --version 2>&1` in *GNU*) ac_cv_path_FGREP="$ac_path_FGREP" ac_path_FGREP_found=:;; *) ac_count=0 $as_echo_n 0123456789 >"conftest.in" while : do cat "conftest.in" "conftest.in" >"conftest.tmp" mv "conftest.tmp" "conftest.in" cp "conftest.in" "conftest.nl" $as_echo 'FGREP' >> "conftest.nl" "$ac_path_FGREP" FGREP < "conftest.nl" >"conftest.out" 2>/dev/null || break diff "conftest.out" "conftest.nl" >/dev/null 2>&1 || break as_fn_arith $ac_count + 1 && ac_count=$as_val if test $ac_count -gt ${ac_path_FGREP_max-0}; then # Best one so far, save it but keep looking for a better one ac_cv_path_FGREP="$ac_path_FGREP" ac_path_FGREP_max=$ac_count fi # 10*(2^10) chars as input seems more than enough test $ac_count -gt 10 && break done rm -f conftest.in conftest.tmp conftest.nl conftest.out;; esac $ac_path_FGREP_found && break 3 done done done IFS=$as_save_IFS if test -z "$ac_cv_path_FGREP"; then as_fn_error $? "no acceptable fgrep could be found in $PATH$PATH_SEPARATOR/usr/xpg4/bin" "$LINENO" 5 fi else ac_cv_path_FGREP=$FGREP fi fi fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_path_FGREP" >&5 $as_echo "$ac_cv_path_FGREP" >&6; } FGREP="$ac_cv_path_FGREP" test -z "$GREP" && GREP=grep # Check whether --with-gnu-ld was given. if test "${with_gnu_ld+set}" = set; then : withval=$with_gnu_ld; test no = "$withval" || with_gnu_ld=yes else with_gnu_ld=no fi ac_prog=ld if test yes = "$GCC"; then # Check if gcc -print-prog-name=ld gives a path. { $as_echo "$as_me:${as_lineno-$LINENO}: checking for ld used by $CC" >&5 $as_echo_n "checking for ld used by $CC... " >&6; } case $host in *-*-mingw*) # gcc leaves a trailing carriage return, which upsets mingw ac_prog=`($CC -print-prog-name=ld) 2>&5 | tr -d '\015'` ;; *) ac_prog=`($CC -print-prog-name=ld) 2>&5` ;; esac case $ac_prog in # Accept absolute paths. [\\/]* | ?:[\\/]*) re_direlt='/[^/][^/]*/\.\./' # Canonicalize the pathname of ld ac_prog=`$ECHO "$ac_prog"| $SED 's%\\\\%/%g'` while $ECHO "$ac_prog" | $GREP "$re_direlt" > /dev/null 2>&1; do ac_prog=`$ECHO $ac_prog| $SED "s%$re_direlt%/%"` done test -z "$LD" && LD=$ac_prog ;; "") # If it fails, then pretend we aren't using GCC. ac_prog=ld ;; *) # If it is relative, then search for the first ld in PATH. with_gnu_ld=unknown ;; esac elif test yes = "$with_gnu_ld"; then { $as_echo "$as_me:${as_lineno-$LINENO}: checking for GNU ld" >&5 $as_echo_n "checking for GNU ld... " >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: checking for non-GNU ld" >&5 $as_echo_n "checking for non-GNU ld... " >&6; } fi if ${lt_cv_path_LD+:} false; then : $as_echo_n "(cached) " >&6 else if test -z "$LD"; then lt_save_ifs=$IFS; IFS=$PATH_SEPARATOR for ac_dir in $PATH; do IFS=$lt_save_ifs test -z "$ac_dir" && ac_dir=. if test -f "$ac_dir/$ac_prog" || test -f "$ac_dir/$ac_prog$ac_exeext"; then lt_cv_path_LD=$ac_dir/$ac_prog # Check to see if the program is GNU ld. I'd rather use --version, # but apparently some variants of GNU ld only accept -v. # Break only if it was the GNU/non-GNU ld that we prefer. case `"$lt_cv_path_LD" -v 2>&1 &5 $as_echo "$LD" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi test -z "$LD" && as_fn_error $? "no acceptable ld found in \$PATH" "$LINENO" 5 { $as_echo "$as_me:${as_lineno-$LINENO}: checking if the linker ($LD) is GNU ld" >&5 $as_echo_n "checking if the linker ($LD) is GNU ld... " >&6; } if ${lt_cv_prog_gnu_ld+:} false; then : $as_echo_n "(cached) " >&6 else # I'd rather use --version here, but apparently some GNU lds only accept -v. case `$LD -v 2>&1 &5 $as_echo "$lt_cv_prog_gnu_ld" >&6; } with_gnu_ld=$lt_cv_prog_gnu_ld { $as_echo "$as_me:${as_lineno-$LINENO}: checking for BSD- or MS-compatible name lister (nm)" >&5 $as_echo_n "checking for BSD- or MS-compatible name lister (nm)... " >&6; } if ${lt_cv_path_NM+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$NM"; then # Let the user override the test. lt_cv_path_NM=$NM else lt_nm_to_check=${ac_tool_prefix}nm if test -n "$ac_tool_prefix" && test "$build" = "$host"; then lt_nm_to_check="$lt_nm_to_check nm" fi for lt_tmp_nm in $lt_nm_to_check; do lt_save_ifs=$IFS; IFS=$PATH_SEPARATOR for ac_dir in $PATH /usr/ccs/bin/elf /usr/ccs/bin /usr/ucb /bin; do IFS=$lt_save_ifs test -z "$ac_dir" && ac_dir=. tmp_nm=$ac_dir/$lt_tmp_nm if test -f "$tmp_nm" || test -f "$tmp_nm$ac_exeext"; then # Check to see if the nm accepts a BSD-compat flag. # Adding the 'sed 1q' prevents false positives on HP-UX, which says: # nm: unknown option "B" ignored # Tru64's nm complains that /dev/null is an invalid object file # MSYS converts /dev/null to NUL, MinGW nm treats NUL as empty case $build_os in mingw*) lt_bad_file=conftest.nm/nofile ;; *) lt_bad_file=/dev/null ;; esac case `"$tmp_nm" -B $lt_bad_file 2>&1 | sed '1q'` in *$lt_bad_file* | *'Invalid file or object type'*) lt_cv_path_NM="$tmp_nm -B" break 2 ;; *) case `"$tmp_nm" -p /dev/null 2>&1 | sed '1q'` in */dev/null*) lt_cv_path_NM="$tmp_nm -p" break 2 ;; *) lt_cv_path_NM=${lt_cv_path_NM="$tmp_nm"} # keep the first match, but continue # so that we can try to find one that supports BSD flags ;; esac ;; esac fi done IFS=$lt_save_ifs done : ${lt_cv_path_NM=no} fi fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_path_NM" >&5 $as_echo "$lt_cv_path_NM" >&6; } if test no != "$lt_cv_path_NM"; then NM=$lt_cv_path_NM else # Didn't find any BSD compatible name lister, look for dumpbin. if test -n "$DUMPBIN"; then : # Let the user override the test. else if test -n "$ac_tool_prefix"; then for ac_prog in dumpbin "link -dump" do # Extract the first word of "$ac_tool_prefix$ac_prog", so it can be a program name with args. set dummy $ac_tool_prefix$ac_prog; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_DUMPBIN+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$DUMPBIN"; then ac_cv_prog_DUMPBIN="$DUMPBIN" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_DUMPBIN="$ac_tool_prefix$ac_prog" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi DUMPBIN=$ac_cv_prog_DUMPBIN if test -n "$DUMPBIN"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $DUMPBIN" >&5 $as_echo "$DUMPBIN" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi test -n "$DUMPBIN" && break done fi if test -z "$DUMPBIN"; then ac_ct_DUMPBIN=$DUMPBIN for ac_prog in dumpbin "link -dump" do # Extract the first word of "$ac_prog", so it can be a program name with args. set dummy $ac_prog; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_ac_ct_DUMPBIN+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$ac_ct_DUMPBIN"; then ac_cv_prog_ac_ct_DUMPBIN="$ac_ct_DUMPBIN" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_ac_ct_DUMPBIN="$ac_prog" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi ac_ct_DUMPBIN=$ac_cv_prog_ac_ct_DUMPBIN if test -n "$ac_ct_DUMPBIN"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_DUMPBIN" >&5 $as_echo "$ac_ct_DUMPBIN" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi test -n "$ac_ct_DUMPBIN" && break done if test "x$ac_ct_DUMPBIN" = x; then DUMPBIN=":" else case $cross_compiling:$ac_tool_warned in yes:) { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5 $as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;} ac_tool_warned=yes ;; esac DUMPBIN=$ac_ct_DUMPBIN fi fi case `$DUMPBIN -symbols -headers /dev/null 2>&1 | sed '1q'` in *COFF*) DUMPBIN="$DUMPBIN -symbols -headers" ;; *) DUMPBIN=: ;; esac fi if test : != "$DUMPBIN"; then NM=$DUMPBIN fi fi test -z "$NM" && NM=nm { $as_echo "$as_me:${as_lineno-$LINENO}: checking the name lister ($NM) interface" >&5 $as_echo_n "checking the name lister ($NM) interface... " >&6; } if ${lt_cv_nm_interface+:} false; then : $as_echo_n "(cached) " >&6 else lt_cv_nm_interface="BSD nm" echo "int some_variable = 0;" > conftest.$ac_ext (eval echo "\"\$as_me:$LINENO: $ac_compile\"" >&5) (eval "$ac_compile" 2>conftest.err) cat conftest.err >&5 (eval echo "\"\$as_me:$LINENO: $NM \\\"conftest.$ac_objext\\\"\"" >&5) (eval "$NM \"conftest.$ac_objext\"" 2>conftest.err > conftest.out) cat conftest.err >&5 (eval echo "\"\$as_me:$LINENO: output\"" >&5) cat conftest.out >&5 if $GREP 'External.*some_variable' conftest.out > /dev/null; then lt_cv_nm_interface="MS dumpbin" fi rm -f conftest* fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_nm_interface" >&5 $as_echo "$lt_cv_nm_interface" >&6; } { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether ln -s works" >&5 $as_echo_n "checking whether ln -s works... " >&6; } LN_S=$as_ln_s if test "$LN_S" = "ln -s"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5 $as_echo "yes" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no, using $LN_S" >&5 $as_echo "no, using $LN_S" >&6; } fi # find the maximum length of command line arguments { $as_echo "$as_me:${as_lineno-$LINENO}: checking the maximum length of command line arguments" >&5 $as_echo_n "checking the maximum length of command line arguments... " >&6; } if ${lt_cv_sys_max_cmd_len+:} false; then : $as_echo_n "(cached) " >&6 else i=0 teststring=ABCD case $build_os in msdosdjgpp*) # On DJGPP, this test can blow up pretty badly due to problems in libc # (any single argument exceeding 2000 bytes causes a buffer overrun # during glob expansion). Even if it were fixed, the result of this # check would be larger than it should be. lt_cv_sys_max_cmd_len=12288; # 12K is about right ;; gnu*) # Under GNU Hurd, this test is not required because there is # no limit to the length of command line arguments. # Libtool will interpret -1 as no limit whatsoever lt_cv_sys_max_cmd_len=-1; ;; cygwin* | mingw* | cegcc*) # On Win9x/ME, this test blows up -- it succeeds, but takes # about 5 minutes as the teststring grows exponentially. # Worse, since 9x/ME are not pre-emptively multitasking, # you end up with a "frozen" computer, even though with patience # the test eventually succeeds (with a max line length of 256k). # Instead, let's just punt: use the minimum linelength reported by # all of the supported platforms: 8192 (on NT/2K/XP). lt_cv_sys_max_cmd_len=8192; ;; mint*) # On MiNT this can take a long time and run out of memory. lt_cv_sys_max_cmd_len=8192; ;; amigaos*) # On AmigaOS with pdksh, this test takes hours, literally. # So we just punt and use a minimum line length of 8192. lt_cv_sys_max_cmd_len=8192; ;; bitrig* | darwin* | dragonfly* | freebsd* | netbsd* | openbsd*) # This has been around since 386BSD, at least. Likely further. if test -x /sbin/sysctl; then lt_cv_sys_max_cmd_len=`/sbin/sysctl -n kern.argmax` elif test -x /usr/sbin/sysctl; then lt_cv_sys_max_cmd_len=`/usr/sbin/sysctl -n kern.argmax` else lt_cv_sys_max_cmd_len=65536 # usable default for all BSDs fi # And add a safety zone lt_cv_sys_max_cmd_len=`expr $lt_cv_sys_max_cmd_len \/ 4` lt_cv_sys_max_cmd_len=`expr $lt_cv_sys_max_cmd_len \* 3` ;; interix*) # We know the value 262144 and hardcode it with a safety zone (like BSD) lt_cv_sys_max_cmd_len=196608 ;; os2*) # The test takes a long time on OS/2. lt_cv_sys_max_cmd_len=8192 ;; osf*) # Dr. Hans Ekkehard Plesser reports seeing a kernel panic running configure # due to this test when exec_disable_arg_limit is 1 on Tru64. It is not # nice to cause kernel panics so lets avoid the loop below. # First set a reasonable default. lt_cv_sys_max_cmd_len=16384 # if test -x /sbin/sysconfig; then case `/sbin/sysconfig -q proc exec_disable_arg_limit` in *1*) lt_cv_sys_max_cmd_len=-1 ;; esac fi ;; sco3.2v5*) lt_cv_sys_max_cmd_len=102400 ;; sysv5* | sco5v6* | sysv4.2uw2*) kargmax=`grep ARG_MAX /etc/conf/cf.d/stune 2>/dev/null` if test -n "$kargmax"; then lt_cv_sys_max_cmd_len=`echo $kargmax | sed 's/.*[ ]//'` else lt_cv_sys_max_cmd_len=32768 fi ;; *) lt_cv_sys_max_cmd_len=`(getconf ARG_MAX) 2> /dev/null` if test -n "$lt_cv_sys_max_cmd_len" && \ test undefined != "$lt_cv_sys_max_cmd_len"; then lt_cv_sys_max_cmd_len=`expr $lt_cv_sys_max_cmd_len \/ 4` lt_cv_sys_max_cmd_len=`expr $lt_cv_sys_max_cmd_len \* 3` else # Make teststring a little bigger before we do anything with it. # a 1K string should be a reasonable start. for i in 1 2 3 4 5 6 7 8; do teststring=$teststring$teststring done SHELL=${SHELL-${CONFIG_SHELL-/bin/sh}} # If test is not a shell built-in, we'll probably end up computing a # maximum length that is only half of the actual maximum length, but # we can't tell. while { test X`env echo "$teststring$teststring" 2>/dev/null` \ = "X$teststring$teststring"; } >/dev/null 2>&1 && test 17 != "$i" # 1/2 MB should be enough do i=`expr $i + 1` teststring=$teststring$teststring done # Only check the string length outside the loop. lt_cv_sys_max_cmd_len=`expr "X$teststring" : ".*" 2>&1` teststring= # Add a significant safety factor because C++ compilers can tack on # massive amounts of additional arguments before passing them to the # linker. It appears as though 1/2 is a usable value. lt_cv_sys_max_cmd_len=`expr $lt_cv_sys_max_cmd_len \/ 2` fi ;; esac fi if test -n "$lt_cv_sys_max_cmd_len"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_sys_max_cmd_len" >&5 $as_echo "$lt_cv_sys_max_cmd_len" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: none" >&5 $as_echo "none" >&6; } fi max_cmd_len=$lt_cv_sys_max_cmd_len : ${CP="cp -f"} : ${MV="mv -f"} : ${RM="rm -f"} if ( (MAIL=60; unset MAIL) || exit) >/dev/null 2>&1; then lt_unset=unset else lt_unset=false fi # test EBCDIC or ASCII case `echo X|tr X '\101'` in A) # ASCII based system # \n is not interpreted correctly by Solaris 8 /usr/ucb/tr lt_SP2NL='tr \040 \012' lt_NL2SP='tr \015\012 \040\040' ;; *) # EBCDIC based system lt_SP2NL='tr \100 \n' lt_NL2SP='tr \r\n \100\100' ;; esac { $as_echo "$as_me:${as_lineno-$LINENO}: checking how to convert $build file names to $host format" >&5 $as_echo_n "checking how to convert $build file names to $host format... " >&6; } if ${lt_cv_to_host_file_cmd+:} false; then : $as_echo_n "(cached) " >&6 else case $host in *-*-mingw* ) case $build in *-*-mingw* ) # actually msys lt_cv_to_host_file_cmd=func_convert_file_msys_to_w32 ;; *-*-cygwin* ) lt_cv_to_host_file_cmd=func_convert_file_cygwin_to_w32 ;; * ) # otherwise, assume *nix lt_cv_to_host_file_cmd=func_convert_file_nix_to_w32 ;; esac ;; *-*-cygwin* ) case $build in *-*-mingw* ) # actually msys lt_cv_to_host_file_cmd=func_convert_file_msys_to_cygwin ;; *-*-cygwin* ) lt_cv_to_host_file_cmd=func_convert_file_noop ;; * ) # otherwise, assume *nix lt_cv_to_host_file_cmd=func_convert_file_nix_to_cygwin ;; esac ;; * ) # unhandled hosts (and "normal" native builds) lt_cv_to_host_file_cmd=func_convert_file_noop ;; esac fi to_host_file_cmd=$lt_cv_to_host_file_cmd { $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_to_host_file_cmd" >&5 $as_echo "$lt_cv_to_host_file_cmd" >&6; } { $as_echo "$as_me:${as_lineno-$LINENO}: checking how to convert $build file names to toolchain format" >&5 $as_echo_n "checking how to convert $build file names to toolchain format... " >&6; } if ${lt_cv_to_tool_file_cmd+:} false; then : $as_echo_n "(cached) " >&6 else #assume ordinary cross tools, or native build. lt_cv_to_tool_file_cmd=func_convert_file_noop case $host in *-*-mingw* ) case $build in *-*-mingw* ) # actually msys lt_cv_to_tool_file_cmd=func_convert_file_msys_to_w32 ;; esac ;; esac fi to_tool_file_cmd=$lt_cv_to_tool_file_cmd { $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_to_tool_file_cmd" >&5 $as_echo "$lt_cv_to_tool_file_cmd" >&6; } { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $LD option to reload object files" >&5 $as_echo_n "checking for $LD option to reload object files... " >&6; } if ${lt_cv_ld_reload_flag+:} false; then : $as_echo_n "(cached) " >&6 else lt_cv_ld_reload_flag='-r' fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_ld_reload_flag" >&5 $as_echo "$lt_cv_ld_reload_flag" >&6; } reload_flag=$lt_cv_ld_reload_flag case $reload_flag in "" | " "*) ;; *) reload_flag=" $reload_flag" ;; esac reload_cmds='$LD$reload_flag -o $output$reload_objs' case $host_os in cygwin* | mingw* | pw32* | cegcc*) if test yes != "$GCC"; then reload_cmds=false fi ;; darwin*) if test yes = "$GCC"; then reload_cmds='$LTCC $LTCFLAGS -nostdlib $wl-r -o $output$reload_objs' else reload_cmds='$LD$reload_flag -o $output$reload_objs' fi ;; esac if test -n "$ac_tool_prefix"; then # Extract the first word of "${ac_tool_prefix}objdump", so it can be a program name with args. set dummy ${ac_tool_prefix}objdump; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_OBJDUMP+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$OBJDUMP"; then ac_cv_prog_OBJDUMP="$OBJDUMP" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_OBJDUMP="${ac_tool_prefix}objdump" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi OBJDUMP=$ac_cv_prog_OBJDUMP if test -n "$OBJDUMP"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $OBJDUMP" >&5 $as_echo "$OBJDUMP" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi fi if test -z "$ac_cv_prog_OBJDUMP"; then ac_ct_OBJDUMP=$OBJDUMP # Extract the first word of "objdump", so it can be a program name with args. set dummy objdump; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_ac_ct_OBJDUMP+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$ac_ct_OBJDUMP"; then ac_cv_prog_ac_ct_OBJDUMP="$ac_ct_OBJDUMP" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_ac_ct_OBJDUMP="objdump" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi ac_ct_OBJDUMP=$ac_cv_prog_ac_ct_OBJDUMP if test -n "$ac_ct_OBJDUMP"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_OBJDUMP" >&5 $as_echo "$ac_ct_OBJDUMP" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi if test "x$ac_ct_OBJDUMP" = x; then OBJDUMP="false" else case $cross_compiling:$ac_tool_warned in yes:) { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5 $as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;} ac_tool_warned=yes ;; esac OBJDUMP=$ac_ct_OBJDUMP fi else OBJDUMP="$ac_cv_prog_OBJDUMP" fi test -z "$OBJDUMP" && OBJDUMP=objdump { $as_echo "$as_me:${as_lineno-$LINENO}: checking how to recognize dependent libraries" >&5 $as_echo_n "checking how to recognize dependent libraries... " >&6; } if ${lt_cv_deplibs_check_method+:} false; then : $as_echo_n "(cached) " >&6 else lt_cv_file_magic_cmd='$MAGIC_CMD' lt_cv_file_magic_test_file= lt_cv_deplibs_check_method='unknown' # Need to set the preceding variable on all platforms that support # interlibrary dependencies. # 'none' -- dependencies not supported. # 'unknown' -- same as none, but documents that we really don't know. # 'pass_all' -- all dependencies passed with no checks. # 'test_compile' -- check by making test program. # 'file_magic [[regex]]' -- check by looking for files in library path # that responds to the $file_magic_cmd with a given extended regex. # If you have 'file' or equivalent on your system and you're not sure # whether 'pass_all' will *always* work, you probably want this one. case $host_os in aix[4-9]*) lt_cv_deplibs_check_method=pass_all ;; beos*) lt_cv_deplibs_check_method=pass_all ;; bsdi[45]*) lt_cv_deplibs_check_method='file_magic ELF [0-9][0-9]*-bit [ML]SB (shared object|dynamic lib)' lt_cv_file_magic_cmd='/usr/bin/file -L' lt_cv_file_magic_test_file=/shlib/libc.so ;; cygwin*) # func_win32_libid is a shell function defined in ltmain.sh lt_cv_deplibs_check_method='file_magic ^x86 archive import|^x86 DLL' lt_cv_file_magic_cmd='func_win32_libid' ;; mingw* | pw32*) # Base MSYS/MinGW do not provide the 'file' command needed by # func_win32_libid shell function, so use a weaker test based on 'objdump', # unless we find 'file', for example because we are cross-compiling. if ( file / ) >/dev/null 2>&1; then lt_cv_deplibs_check_method='file_magic ^x86 archive import|^x86 DLL' lt_cv_file_magic_cmd='func_win32_libid' else # Keep this pattern in sync with the one in func_win32_libid. lt_cv_deplibs_check_method='file_magic file format (pei*-i386(.*architecture: i386)?|pe-arm-wince|pe-x86-64)' lt_cv_file_magic_cmd='$OBJDUMP -f' fi ;; cegcc*) # use the weaker test based on 'objdump'. See mingw*. lt_cv_deplibs_check_method='file_magic file format pe-arm-.*little(.*architecture: arm)?' lt_cv_file_magic_cmd='$OBJDUMP -f' ;; darwin* | rhapsody*) lt_cv_deplibs_check_method=pass_all ;; freebsd* | dragonfly*) if echo __ELF__ | $CC -E - | $GREP __ELF__ > /dev/null; then case $host_cpu in i*86 ) # Not sure whether the presence of OpenBSD here was a mistake. # Let's accept both of them until this is cleared up. lt_cv_deplibs_check_method='file_magic (FreeBSD|OpenBSD|DragonFly)/i[3-9]86 (compact )?demand paged shared library' lt_cv_file_magic_cmd=/usr/bin/file lt_cv_file_magic_test_file=`echo /usr/lib/libc.so.*` ;; esac else lt_cv_deplibs_check_method=pass_all fi ;; haiku*) lt_cv_deplibs_check_method=pass_all ;; hpux10.20* | hpux11*) lt_cv_file_magic_cmd=/usr/bin/file case $host_cpu in ia64*) lt_cv_deplibs_check_method='file_magic (s[0-9][0-9][0-9]|ELF-[0-9][0-9]) shared object file - IA64' lt_cv_file_magic_test_file=/usr/lib/hpux32/libc.so ;; hppa*64*) lt_cv_deplibs_check_method='file_magic (s[0-9][0-9][0-9]|ELF[ -][0-9][0-9])(-bit)?( [LM]SB)? shared object( file)?[, -]* PA-RISC [0-9]\.[0-9]' lt_cv_file_magic_test_file=/usr/lib/pa20_64/libc.sl ;; *) lt_cv_deplibs_check_method='file_magic (s[0-9][0-9][0-9]|PA-RISC[0-9]\.[0-9]) shared library' lt_cv_file_magic_test_file=/usr/lib/libc.sl ;; esac ;; interix[3-9]*) # PIC code is broken on Interix 3.x, that's why |\.a not |_pic\.a here lt_cv_deplibs_check_method='match_pattern /lib[^/]+(\.so|\.a)$' ;; irix5* | irix6* | nonstopux*) case $LD in *-32|*"-32 ") libmagic=32-bit;; *-n32|*"-n32 ") libmagic=N32;; *-64|*"-64 ") libmagic=64-bit;; *) libmagic=never-match;; esac lt_cv_deplibs_check_method=pass_all ;; # This must be glibc/ELF. linux* | k*bsd*-gnu | kopensolaris*-gnu | gnu*) lt_cv_deplibs_check_method=pass_all ;; netbsd*) if echo __ELF__ | $CC -E - | $GREP __ELF__ > /dev/null; then lt_cv_deplibs_check_method='match_pattern /lib[^/]+(\.so\.[0-9]+\.[0-9]+|_pic\.a)$' else lt_cv_deplibs_check_method='match_pattern /lib[^/]+(\.so|_pic\.a)$' fi ;; newos6*) lt_cv_deplibs_check_method='file_magic ELF [0-9][0-9]*-bit [ML]SB (executable|dynamic lib)' lt_cv_file_magic_cmd=/usr/bin/file lt_cv_file_magic_test_file=/usr/lib/libnls.so ;; *nto* | *qnx*) lt_cv_deplibs_check_method=pass_all ;; openbsd* | bitrig*) if test -z "`echo __ELF__ | $CC -E - | $GREP __ELF__`"; then lt_cv_deplibs_check_method='match_pattern /lib[^/]+(\.so\.[0-9]+\.[0-9]+|\.so|_pic\.a)$' else lt_cv_deplibs_check_method='match_pattern /lib[^/]+(\.so\.[0-9]+\.[0-9]+|_pic\.a)$' fi ;; osf3* | osf4* | osf5*) lt_cv_deplibs_check_method=pass_all ;; rdos*) lt_cv_deplibs_check_method=pass_all ;; solaris*) lt_cv_deplibs_check_method=pass_all ;; sysv5* | sco3.2v5* | sco5v6* | unixware* | OpenUNIX* | sysv4*uw2*) lt_cv_deplibs_check_method=pass_all ;; sysv4 | sysv4.3*) case $host_vendor in motorola) lt_cv_deplibs_check_method='file_magic ELF [0-9][0-9]*-bit [ML]SB (shared object|dynamic lib) M[0-9][0-9]* Version [0-9]' lt_cv_file_magic_test_file=`echo /usr/lib/libc.so*` ;; ncr) lt_cv_deplibs_check_method=pass_all ;; sequent) lt_cv_file_magic_cmd='/bin/file' lt_cv_deplibs_check_method='file_magic ELF [0-9][0-9]*-bit [LM]SB (shared object|dynamic lib )' ;; sni) lt_cv_file_magic_cmd='/bin/file' lt_cv_deplibs_check_method="file_magic ELF [0-9][0-9]*-bit [LM]SB dynamic lib" lt_cv_file_magic_test_file=/lib/libc.so ;; siemens) lt_cv_deplibs_check_method=pass_all ;; pc) lt_cv_deplibs_check_method=pass_all ;; esac ;; tpf*) lt_cv_deplibs_check_method=pass_all ;; os2*) lt_cv_deplibs_check_method=pass_all ;; esac fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_deplibs_check_method" >&5 $as_echo "$lt_cv_deplibs_check_method" >&6; } file_magic_glob= want_nocaseglob=no if test "$build" = "$host"; then case $host_os in mingw* | pw32*) if ( shopt | grep nocaseglob ) >/dev/null 2>&1; then want_nocaseglob=yes else file_magic_glob=`echo aAbBcCdDeEfFgGhHiIjJkKlLmMnNoOpPqQrRsStTuUvVwWxXyYzZ | $SED -e "s/\(..\)/s\/[\1]\/[\1]\/g;/g"` fi ;; esac fi file_magic_cmd=$lt_cv_file_magic_cmd deplibs_check_method=$lt_cv_deplibs_check_method test -z "$deplibs_check_method" && deplibs_check_method=unknown if test -n "$ac_tool_prefix"; then # Extract the first word of "${ac_tool_prefix}dlltool", so it can be a program name with args. set dummy ${ac_tool_prefix}dlltool; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_DLLTOOL+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$DLLTOOL"; then ac_cv_prog_DLLTOOL="$DLLTOOL" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_DLLTOOL="${ac_tool_prefix}dlltool" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi DLLTOOL=$ac_cv_prog_DLLTOOL if test -n "$DLLTOOL"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $DLLTOOL" >&5 $as_echo "$DLLTOOL" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi fi if test -z "$ac_cv_prog_DLLTOOL"; then ac_ct_DLLTOOL=$DLLTOOL # Extract the first word of "dlltool", so it can be a program name with args. set dummy dlltool; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_ac_ct_DLLTOOL+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$ac_ct_DLLTOOL"; then ac_cv_prog_ac_ct_DLLTOOL="$ac_ct_DLLTOOL" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_ac_ct_DLLTOOL="dlltool" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi ac_ct_DLLTOOL=$ac_cv_prog_ac_ct_DLLTOOL if test -n "$ac_ct_DLLTOOL"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_DLLTOOL" >&5 $as_echo "$ac_ct_DLLTOOL" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi if test "x$ac_ct_DLLTOOL" = x; then DLLTOOL="false" else case $cross_compiling:$ac_tool_warned in yes:) { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5 $as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;} ac_tool_warned=yes ;; esac DLLTOOL=$ac_ct_DLLTOOL fi else DLLTOOL="$ac_cv_prog_DLLTOOL" fi test -z "$DLLTOOL" && DLLTOOL=dlltool { $as_echo "$as_me:${as_lineno-$LINENO}: checking how to associate runtime and link libraries" >&5 $as_echo_n "checking how to associate runtime and link libraries... " >&6; } if ${lt_cv_sharedlib_from_linklib_cmd+:} false; then : $as_echo_n "(cached) " >&6 else lt_cv_sharedlib_from_linklib_cmd='unknown' case $host_os in cygwin* | mingw* | pw32* | cegcc*) # two different shell functions defined in ltmain.sh; # decide which one to use based on capabilities of $DLLTOOL case `$DLLTOOL --help 2>&1` in *--identify-strict*) lt_cv_sharedlib_from_linklib_cmd=func_cygming_dll_for_implib ;; *) lt_cv_sharedlib_from_linklib_cmd=func_cygming_dll_for_implib_fallback ;; esac ;; *) # fallback: assume linklib IS sharedlib lt_cv_sharedlib_from_linklib_cmd=$ECHO ;; esac fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_sharedlib_from_linklib_cmd" >&5 $as_echo "$lt_cv_sharedlib_from_linklib_cmd" >&6; } sharedlib_from_linklib_cmd=$lt_cv_sharedlib_from_linklib_cmd test -z "$sharedlib_from_linklib_cmd" && sharedlib_from_linklib_cmd=$ECHO if test -n "$ac_tool_prefix"; then for ac_prog in ar do # Extract the first word of "$ac_tool_prefix$ac_prog", so it can be a program name with args. set dummy $ac_tool_prefix$ac_prog; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_AR+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$AR"; then ac_cv_prog_AR="$AR" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_AR="$ac_tool_prefix$ac_prog" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi AR=$ac_cv_prog_AR if test -n "$AR"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $AR" >&5 $as_echo "$AR" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi test -n "$AR" && break done fi if test -z "$AR"; then ac_ct_AR=$AR for ac_prog in ar do # Extract the first word of "$ac_prog", so it can be a program name with args. set dummy $ac_prog; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_ac_ct_AR+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$ac_ct_AR"; then ac_cv_prog_ac_ct_AR="$ac_ct_AR" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_ac_ct_AR="$ac_prog" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi ac_ct_AR=$ac_cv_prog_ac_ct_AR if test -n "$ac_ct_AR"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_AR" >&5 $as_echo "$ac_ct_AR" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi test -n "$ac_ct_AR" && break done if test "x$ac_ct_AR" = x; then AR="false" else case $cross_compiling:$ac_tool_warned in yes:) { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5 $as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;} ac_tool_warned=yes ;; esac AR=$ac_ct_AR fi fi : ${AR=ar} : ${AR_FLAGS=cru} { $as_echo "$as_me:${as_lineno-$LINENO}: checking for archiver @FILE support" >&5 $as_echo_n "checking for archiver @FILE support... " >&6; } if ${lt_cv_ar_at_file+:} false; then : $as_echo_n "(cached) " >&6 else lt_cv_ar_at_file=no cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ int main () { ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO"; then : echo conftest.$ac_objext > conftest.lst lt_ar_try='$AR $AR_FLAGS libconftest.a @conftest.lst >&5' { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$lt_ar_try\""; } >&5 (eval $lt_ar_try) 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; } if test 0 -eq "$ac_status"; then # Ensure the archiver fails upon bogus file names. rm -f conftest.$ac_objext libconftest.a { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$lt_ar_try\""; } >&5 (eval $lt_ar_try) 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; } if test 0 -ne "$ac_status"; then lt_cv_ar_at_file=@ fi fi rm -f conftest.* libconftest.a fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_ar_at_file" >&5 $as_echo "$lt_cv_ar_at_file" >&6; } if test no = "$lt_cv_ar_at_file"; then archiver_list_spec= else archiver_list_spec=$lt_cv_ar_at_file fi if test -n "$ac_tool_prefix"; then # Extract the first word of "${ac_tool_prefix}strip", so it can be a program name with args. set dummy ${ac_tool_prefix}strip; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_STRIP+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$STRIP"; then ac_cv_prog_STRIP="$STRIP" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_STRIP="${ac_tool_prefix}strip" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi STRIP=$ac_cv_prog_STRIP if test -n "$STRIP"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $STRIP" >&5 $as_echo "$STRIP" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi fi if test -z "$ac_cv_prog_STRIP"; then ac_ct_STRIP=$STRIP # Extract the first word of "strip", so it can be a program name with args. set dummy strip; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_ac_ct_STRIP+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$ac_ct_STRIP"; then ac_cv_prog_ac_ct_STRIP="$ac_ct_STRIP" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_ac_ct_STRIP="strip" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi ac_ct_STRIP=$ac_cv_prog_ac_ct_STRIP if test -n "$ac_ct_STRIP"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_STRIP" >&5 $as_echo "$ac_ct_STRIP" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi if test "x$ac_ct_STRIP" = x; then STRIP=":" else case $cross_compiling:$ac_tool_warned in yes:) { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5 $as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;} ac_tool_warned=yes ;; esac STRIP=$ac_ct_STRIP fi else STRIP="$ac_cv_prog_STRIP" fi test -z "$STRIP" && STRIP=: if test -n "$ac_tool_prefix"; then # Extract the first word of "${ac_tool_prefix}ranlib", so it can be a program name with args. set dummy ${ac_tool_prefix}ranlib; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_RANLIB+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$RANLIB"; then ac_cv_prog_RANLIB="$RANLIB" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_RANLIB="${ac_tool_prefix}ranlib" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi RANLIB=$ac_cv_prog_RANLIB if test -n "$RANLIB"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $RANLIB" >&5 $as_echo "$RANLIB" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi fi if test -z "$ac_cv_prog_RANLIB"; then ac_ct_RANLIB=$RANLIB # Extract the first word of "ranlib", so it can be a program name with args. set dummy ranlib; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_ac_ct_RANLIB+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$ac_ct_RANLIB"; then ac_cv_prog_ac_ct_RANLIB="$ac_ct_RANLIB" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_ac_ct_RANLIB="ranlib" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi ac_ct_RANLIB=$ac_cv_prog_ac_ct_RANLIB if test -n "$ac_ct_RANLIB"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_RANLIB" >&5 $as_echo "$ac_ct_RANLIB" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi if test "x$ac_ct_RANLIB" = x; then RANLIB=":" else case $cross_compiling:$ac_tool_warned in yes:) { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5 $as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;} ac_tool_warned=yes ;; esac RANLIB=$ac_ct_RANLIB fi else RANLIB="$ac_cv_prog_RANLIB" fi test -z "$RANLIB" && RANLIB=: # Determine commands to create old-style static archives. old_archive_cmds='$AR $AR_FLAGS $oldlib$oldobjs' old_postinstall_cmds='chmod 644 $oldlib' old_postuninstall_cmds= if test -n "$RANLIB"; then case $host_os in bitrig* | openbsd*) old_postinstall_cmds="$old_postinstall_cmds~\$RANLIB -t \$tool_oldlib" ;; *) old_postinstall_cmds="$old_postinstall_cmds~\$RANLIB \$tool_oldlib" ;; esac old_archive_cmds="$old_archive_cmds~\$RANLIB \$tool_oldlib" fi case $host_os in darwin*) lock_old_archive_extraction=yes ;; *) lock_old_archive_extraction=no ;; esac # If no C compiler was specified, use CC. LTCC=${LTCC-"$CC"} # If no C compiler flags were specified, use CFLAGS. LTCFLAGS=${LTCFLAGS-"$CFLAGS"} # Allow CC to be a program name with arguments. compiler=$CC # Check for command to grab the raw symbol name followed by C symbol from nm. { $as_echo "$as_me:${as_lineno-$LINENO}: checking command to parse $NM output from $compiler object" >&5 $as_echo_n "checking command to parse $NM output from $compiler object... " >&6; } if ${lt_cv_sys_global_symbol_pipe+:} false; then : $as_echo_n "(cached) " >&6 else # These are sane defaults that work on at least a few old systems. # [They come from Ultrix. What could be older than Ultrix?!! ;)] # Character class describing NM global symbol codes. symcode='[BCDEGRST]' # Regexp to match symbols that can be accessed directly from C. sympat='\([_A-Za-z][_A-Za-z0-9]*\)' # Define system-specific variables. case $host_os in aix*) symcode='[BCDT]' ;; cygwin* | mingw* | pw32* | cegcc*) symcode='[ABCDGISTW]' ;; hpux*) if test ia64 = "$host_cpu"; then symcode='[ABCDEGRST]' fi ;; irix* | nonstopux*) symcode='[BCDEGRST]' ;; osf*) symcode='[BCDEGQRST]' ;; solaris*) symcode='[BCDRT]' ;; sco3.2v5*) symcode='[DT]' ;; sysv4.2uw2*) symcode='[DT]' ;; sysv5* | sco5v6* | unixware* | OpenUNIX*) symcode='[ABDT]' ;; sysv4) symcode='[DFNSTU]' ;; esac # If we're using GNU nm, then use its standard symbol codes. case `$NM -V 2>&1` in *GNU* | *'with BFD'*) symcode='[ABCDGIRSTW]' ;; esac if test "$lt_cv_nm_interface" = "MS dumpbin"; then # Gets list of data symbols to import. lt_cv_sys_global_symbol_to_import="sed -n -e 's/^I .* \(.*\)$/\1/p'" # Adjust the below global symbol transforms to fixup imported variables. lt_cdecl_hook=" -e 's/^I .* \(.*\)$/extern __declspec(dllimport) char \1;/p'" lt_c_name_hook=" -e 's/^I .* \(.*\)$/ {\"\1\", (void *) 0},/p'" lt_c_name_lib_hook="\ -e 's/^I .* \(lib.*\)$/ {\"\1\", (void *) 0},/p'\ -e 's/^I .* \(.*\)$/ {\"lib\1\", (void *) 0},/p'" else # Disable hooks by default. lt_cv_sys_global_symbol_to_import= lt_cdecl_hook= lt_c_name_hook= lt_c_name_lib_hook= fi # Transform an extracted symbol line into a proper C declaration. # Some systems (esp. on ia64) link data and code symbols differently, # so use this general approach. lt_cv_sys_global_symbol_to_cdecl="sed -n"\ $lt_cdecl_hook\ " -e 's/^T .* \(.*\)$/extern int \1();/p'"\ " -e 's/^$symcode$symcode* .* \(.*\)$/extern char \1;/p'" # Transform an extracted symbol line into symbol name and symbol address lt_cv_sys_global_symbol_to_c_name_address="sed -n"\ $lt_c_name_hook\ " -e 's/^: \(.*\) .*$/ {\"\1\", (void *) 0},/p'"\ " -e 's/^$symcode$symcode* .* \(.*\)$/ {\"\1\", (void *) \&\1},/p'" # Transform an extracted symbol line into symbol name with lib prefix and # symbol address. lt_cv_sys_global_symbol_to_c_name_address_lib_prefix="sed -n"\ $lt_c_name_lib_hook\ " -e 's/^: \(.*\) .*$/ {\"\1\", (void *) 0},/p'"\ " -e 's/^$symcode$symcode* .* \(lib.*\)$/ {\"\1\", (void *) \&\1},/p'"\ " -e 's/^$symcode$symcode* .* \(.*\)$/ {\"lib\1\", (void *) \&\1},/p'" # Handle CRLF in mingw tool chain opt_cr= case $build_os in mingw*) opt_cr=`$ECHO 'x\{0,1\}' | tr x '\015'` # option cr in regexp ;; esac # Try without a prefix underscore, then with it. for ac_symprfx in "" "_"; do # Transform symcode, sympat, and symprfx into a raw symbol and a C symbol. symxfrm="\\1 $ac_symprfx\\2 \\2" # Write the raw and C identifiers. if test "$lt_cv_nm_interface" = "MS dumpbin"; then # Fake it for dumpbin and say T for any non-static function, # D for any global variable and I for any imported variable. # Also find C++ and __fastcall symbols from MSVC++, # which start with @ or ?. lt_cv_sys_global_symbol_pipe="$AWK '"\ " {last_section=section; section=\$ 3};"\ " /^COFF SYMBOL TABLE/{for(i in hide) delete hide[i]};"\ " /Section length .*#relocs.*(pick any)/{hide[last_section]=1};"\ " /^ *Symbol name *: /{split(\$ 0,sn,\":\"); si=substr(sn[2],2)};"\ " /^ *Type *: code/{print \"T\",si,substr(si,length(prfx))};"\ " /^ *Type *: data/{print \"I\",si,substr(si,length(prfx))};"\ " \$ 0!~/External *\|/{next};"\ " / 0+ UNDEF /{next}; / UNDEF \([^|]\)*()/{next};"\ " {if(hide[section]) next};"\ " {f=\"D\"}; \$ 0~/\(\).*\|/{f=\"T\"};"\ " {split(\$ 0,a,/\||\r/); split(a[2],s)};"\ " s[1]~/^[@?]/{print f,s[1],s[1]; next};"\ " s[1]~prfx {split(s[1],t,\"@\"); print f,t[1],substr(t[1],length(prfx))}"\ " ' prfx=^$ac_symprfx" else lt_cv_sys_global_symbol_pipe="sed -n -e 's/^.*[ ]\($symcode$symcode*\)[ ][ ]*$ac_symprfx$sympat$opt_cr$/$symxfrm/p'" fi lt_cv_sys_global_symbol_pipe="$lt_cv_sys_global_symbol_pipe | sed '/ __gnu_lto/d'" # Check to see that the pipe works correctly. pipe_works=no rm -f conftest* cat > conftest.$ac_ext <<_LT_EOF #ifdef __cplusplus extern "C" { #endif char nm_test_var; void nm_test_func(void); void nm_test_func(void){} #ifdef __cplusplus } #endif int main(){nm_test_var='a';nm_test_func();return(0);} _LT_EOF if { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$ac_compile\""; } >&5 (eval $ac_compile) 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; }; then # Now try to grab the symbols. nlist=conftest.nm if { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$NM conftest.$ac_objext \| "$lt_cv_sys_global_symbol_pipe" \> $nlist\""; } >&5 (eval $NM conftest.$ac_objext \| "$lt_cv_sys_global_symbol_pipe" \> $nlist) 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; } && test -s "$nlist"; then # Try sorting and uniquifying the output. if sort "$nlist" | uniq > "$nlist"T; then mv -f "$nlist"T "$nlist" else rm -f "$nlist"T fi # Make sure that we snagged all the symbols we need. if $GREP ' nm_test_var$' "$nlist" >/dev/null; then if $GREP ' nm_test_func$' "$nlist" >/dev/null; then cat <<_LT_EOF > conftest.$ac_ext /* Keep this code in sync between libtool.m4, ltmain, lt_system.h, and tests. */ #if defined _WIN32 || defined __CYGWIN__ || defined _WIN32_WCE /* DATA imports from DLLs on WIN32 can't be const, because runtime relocations are performed -- see ld's documentation on pseudo-relocs. */ # define LT_DLSYM_CONST #elif defined __osf__ /* This system does not cope well with relocations in const data. */ # define LT_DLSYM_CONST #else # define LT_DLSYM_CONST const #endif #ifdef __cplusplus extern "C" { #endif _LT_EOF # Now generate the symbol file. eval "$lt_cv_sys_global_symbol_to_cdecl"' < "$nlist" | $GREP -v main >> conftest.$ac_ext' cat <<_LT_EOF >> conftest.$ac_ext /* The mapping between symbol names and symbols. */ LT_DLSYM_CONST struct { const char *name; void *address; } lt__PROGRAM__LTX_preloaded_symbols[] = { { "@PROGRAM@", (void *) 0 }, _LT_EOF $SED "s/^$symcode$symcode* .* \(.*\)$/ {\"\1\", (void *) \&\1},/" < "$nlist" | $GREP -v main >> conftest.$ac_ext cat <<\_LT_EOF >> conftest.$ac_ext {0, (void *) 0} }; /* This works around a problem in FreeBSD linker */ #ifdef FREEBSD_WORKAROUND static const void *lt_preloaded_setup() { return lt__PROGRAM__LTX_preloaded_symbols; } #endif #ifdef __cplusplus } #endif _LT_EOF # Now try linking the two files. mv conftest.$ac_objext conftstm.$ac_objext lt_globsym_save_LIBS=$LIBS lt_globsym_save_CFLAGS=$CFLAGS LIBS=conftstm.$ac_objext CFLAGS="$CFLAGS$lt_prog_compiler_no_builtin_flag" if { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$ac_link\""; } >&5 (eval $ac_link) 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; } && test -s conftest$ac_exeext; then pipe_works=yes fi LIBS=$lt_globsym_save_LIBS CFLAGS=$lt_globsym_save_CFLAGS else echo "cannot find nm_test_func in $nlist" >&5 fi else echo "cannot find nm_test_var in $nlist" >&5 fi else echo "cannot run $lt_cv_sys_global_symbol_pipe" >&5 fi else echo "$progname: failed program was:" >&5 cat conftest.$ac_ext >&5 fi rm -rf conftest* conftst* # Do not use the global_symbol_pipe unless it works. if test yes = "$pipe_works"; then break else lt_cv_sys_global_symbol_pipe= fi done fi if test -z "$lt_cv_sys_global_symbol_pipe"; then lt_cv_sys_global_symbol_to_cdecl= fi if test -z "$lt_cv_sys_global_symbol_pipe$lt_cv_sys_global_symbol_to_cdecl"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: failed" >&5 $as_echo "failed" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: ok" >&5 $as_echo "ok" >&6; } fi # Response file support. if test "$lt_cv_nm_interface" = "MS dumpbin"; then nm_file_list_spec='@' elif $NM --help 2>/dev/null | grep '[@]FILE' >/dev/null; then nm_file_list_spec='@' fi { $as_echo "$as_me:${as_lineno-$LINENO}: checking for sysroot" >&5 $as_echo_n "checking for sysroot... " >&6; } # Check whether --with-sysroot was given. if test "${with_sysroot+set}" = set; then : withval=$with_sysroot; else with_sysroot=no fi lt_sysroot= case $with_sysroot in #( yes) if test yes = "$GCC"; then lt_sysroot=`$CC --print-sysroot 2>/dev/null` fi ;; #( /*) lt_sysroot=`echo "$with_sysroot" | sed -e "$sed_quote_subst"` ;; #( no|'') ;; #( *) { $as_echo "$as_me:${as_lineno-$LINENO}: result: $with_sysroot" >&5 $as_echo "$with_sysroot" >&6; } as_fn_error $? "The sysroot must be an absolute path." "$LINENO" 5 ;; esac { $as_echo "$as_me:${as_lineno-$LINENO}: result: ${lt_sysroot:-no}" >&5 $as_echo "${lt_sysroot:-no}" >&6; } { $as_echo "$as_me:${as_lineno-$LINENO}: checking for a working dd" >&5 $as_echo_n "checking for a working dd... " >&6; } if ${ac_cv_path_lt_DD+:} false; then : $as_echo_n "(cached) " >&6 else printf 0123456789abcdef0123456789abcdef >conftest.i cat conftest.i conftest.i >conftest2.i : ${lt_DD:=$DD} if test -z "$lt_DD"; then ac_path_lt_DD_found=false # Loop through the user's path and test for each of PROGNAME-LIST as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_prog in dd; do for ac_exec_ext in '' $ac_executable_extensions; do ac_path_lt_DD="$as_dir/$ac_prog$ac_exec_ext" as_fn_executable_p "$ac_path_lt_DD" || continue if "$ac_path_lt_DD" bs=32 count=1 conftest.out 2>/dev/null; then cmp -s conftest.i conftest.out \ && ac_cv_path_lt_DD="$ac_path_lt_DD" ac_path_lt_DD_found=: fi $ac_path_lt_DD_found && break 3 done done done IFS=$as_save_IFS if test -z "$ac_cv_path_lt_DD"; then : fi else ac_cv_path_lt_DD=$lt_DD fi rm -f conftest.i conftest2.i conftest.out fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_path_lt_DD" >&5 $as_echo "$ac_cv_path_lt_DD" >&6; } { $as_echo "$as_me:${as_lineno-$LINENO}: checking how to truncate binary pipes" >&5 $as_echo_n "checking how to truncate binary pipes... " >&6; } if ${lt_cv_truncate_bin+:} false; then : $as_echo_n "(cached) " >&6 else printf 0123456789abcdef0123456789abcdef >conftest.i cat conftest.i conftest.i >conftest2.i lt_cv_truncate_bin= if "$ac_cv_path_lt_DD" bs=32 count=1 conftest.out 2>/dev/null; then cmp -s conftest.i conftest.out \ && lt_cv_truncate_bin="$ac_cv_path_lt_DD bs=4096 count=1" fi rm -f conftest.i conftest2.i conftest.out test -z "$lt_cv_truncate_bin" && lt_cv_truncate_bin="$SED -e 4q" fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_truncate_bin" >&5 $as_echo "$lt_cv_truncate_bin" >&6; } # Calculate cc_basename. Skip known compiler wrappers and cross-prefix. func_cc_basename () { for cc_temp in $*""; do case $cc_temp in compile | *[\\/]compile | ccache | *[\\/]ccache ) ;; distcc | *[\\/]distcc | purify | *[\\/]purify ) ;; \-*) ;; *) break;; esac done func_cc_basename_result=`$ECHO "$cc_temp" | $SED "s%.*/%%; s%^$host_alias-%%"` } # Check whether --enable-libtool-lock was given. if test "${enable_libtool_lock+set}" = set; then : enableval=$enable_libtool_lock; fi test no = "$enable_libtool_lock" || enable_libtool_lock=yes # Some flags need to be propagated to the compiler or linker for good # libtool support. case $host in ia64-*-hpux*) # Find out what ABI is being produced by ac_compile, and set mode # options accordingly. echo 'int i;' > conftest.$ac_ext if { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$ac_compile\""; } >&5 (eval $ac_compile) 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; }; then case `/usr/bin/file conftest.$ac_objext` in *ELF-32*) HPUX_IA64_MODE=32 ;; *ELF-64*) HPUX_IA64_MODE=64 ;; esac fi rm -rf conftest* ;; *-*-irix6*) # Find out what ABI is being produced by ac_compile, and set linker # options accordingly. echo '#line '$LINENO' "configure"' > conftest.$ac_ext if { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$ac_compile\""; } >&5 (eval $ac_compile) 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; }; then if test yes = "$lt_cv_prog_gnu_ld"; then case `/usr/bin/file conftest.$ac_objext` in *32-bit*) LD="${LD-ld} -melf32bsmip" ;; *N32*) LD="${LD-ld} -melf32bmipn32" ;; *64-bit*) LD="${LD-ld} -melf64bmip" ;; esac else case `/usr/bin/file conftest.$ac_objext` in *32-bit*) LD="${LD-ld} -32" ;; *N32*) LD="${LD-ld} -n32" ;; *64-bit*) LD="${LD-ld} -64" ;; esac fi fi rm -rf conftest* ;; mips64*-*linux*) # Find out what ABI is being produced by ac_compile, and set linker # options accordingly. echo '#line '$LINENO' "configure"' > conftest.$ac_ext if { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$ac_compile\""; } >&5 (eval $ac_compile) 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; }; then emul=elf case `/usr/bin/file conftest.$ac_objext` in *32-bit*) emul="${emul}32" ;; *64-bit*) emul="${emul}64" ;; esac case `/usr/bin/file conftest.$ac_objext` in *MSB*) emul="${emul}btsmip" ;; *LSB*) emul="${emul}ltsmip" ;; esac case `/usr/bin/file conftest.$ac_objext` in *N32*) emul="${emul}n32" ;; esac LD="${LD-ld} -m $emul" fi rm -rf conftest* ;; x86_64-*kfreebsd*-gnu|x86_64-*linux*|powerpc*-*linux*| \ s390*-*linux*|s390*-*tpf*|sparc*-*linux*) # Find out what ABI is being produced by ac_compile, and set linker # options accordingly. Note that the listed cases only cover the # situations where additional linker options are needed (such as when # doing 32-bit compilation for a host where ld defaults to 64-bit, or # vice versa); the common cases where no linker options are needed do # not appear in the list. echo 'int i;' > conftest.$ac_ext if { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$ac_compile\""; } >&5 (eval $ac_compile) 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; }; then case `/usr/bin/file conftest.o` in *32-bit*) case $host in x86_64-*kfreebsd*-gnu) LD="${LD-ld} -m elf_i386_fbsd" ;; x86_64-*linux*) case `/usr/bin/file conftest.o` in *x86-64*) LD="${LD-ld} -m elf32_x86_64" ;; *) LD="${LD-ld} -m elf_i386" ;; esac ;; powerpc64le-*linux*) LD="${LD-ld} -m elf32lppclinux" ;; powerpc64-*linux*) LD="${LD-ld} -m elf32ppclinux" ;; s390x-*linux*) LD="${LD-ld} -m elf_s390" ;; sparc64-*linux*) LD="${LD-ld} -m elf32_sparc" ;; esac ;; *64-bit*) case $host in x86_64-*kfreebsd*-gnu) LD="${LD-ld} -m elf_x86_64_fbsd" ;; x86_64-*linux*) LD="${LD-ld} -m elf_x86_64" ;; powerpcle-*linux*) LD="${LD-ld} -m elf64lppc" ;; powerpc-*linux*) LD="${LD-ld} -m elf64ppc" ;; s390*-*linux*|s390*-*tpf*) LD="${LD-ld} -m elf64_s390" ;; sparc*-*linux*) LD="${LD-ld} -m elf64_sparc" ;; esac ;; esac fi rm -rf conftest* ;; *-*-sco3.2v5*) # On SCO OpenServer 5, we need -belf to get full-featured binaries. SAVE_CFLAGS=$CFLAGS CFLAGS="$CFLAGS -belf" { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether the C compiler needs -belf" >&5 $as_echo_n "checking whether the C compiler needs -belf... " >&6; } if ${lt_cv_cc_needs_belf+:} false; then : $as_echo_n "(cached) " >&6 else ac_ext=c ac_cpp='$CPP $CPPFLAGS' ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' ac_compiler_gnu=$ac_cv_c_compiler_gnu cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ int main () { ; return 0; } _ACEOF if ac_fn_c_try_link "$LINENO"; then : lt_cv_cc_needs_belf=yes else lt_cv_cc_needs_belf=no fi rm -f core conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext ac_ext=c ac_cpp='$CPP $CPPFLAGS' ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' ac_compiler_gnu=$ac_cv_c_compiler_gnu fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_cc_needs_belf" >&5 $as_echo "$lt_cv_cc_needs_belf" >&6; } if test yes != "$lt_cv_cc_needs_belf"; then # this is probably gcc 2.8.0, egcs 1.0 or newer; no need for -belf CFLAGS=$SAVE_CFLAGS fi ;; *-*solaris*) # Find out what ABI is being produced by ac_compile, and set linker # options accordingly. echo 'int i;' > conftest.$ac_ext if { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$ac_compile\""; } >&5 (eval $ac_compile) 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; }; then case `/usr/bin/file conftest.o` in *64-bit*) case $lt_cv_prog_gnu_ld in yes*) case $host in i?86-*-solaris*|x86_64-*-solaris*) LD="${LD-ld} -m elf_x86_64" ;; sparc*-*-solaris*) LD="${LD-ld} -m elf64_sparc" ;; esac # GNU ld 2.21 introduced _sol2 emulations. Use them if available. if ${LD-ld} -V | grep _sol2 >/dev/null 2>&1; then LD=${LD-ld}_sol2 fi ;; *) if ${LD-ld} -64 -r -o conftest2.o conftest.o >/dev/null 2>&1; then LD="${LD-ld} -64" fi ;; esac ;; esac fi rm -rf conftest* ;; esac need_locks=$enable_libtool_lock if test -n "$ac_tool_prefix"; then # Extract the first word of "${ac_tool_prefix}mt", so it can be a program name with args. set dummy ${ac_tool_prefix}mt; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_MANIFEST_TOOL+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$MANIFEST_TOOL"; then ac_cv_prog_MANIFEST_TOOL="$MANIFEST_TOOL" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_MANIFEST_TOOL="${ac_tool_prefix}mt" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi MANIFEST_TOOL=$ac_cv_prog_MANIFEST_TOOL if test -n "$MANIFEST_TOOL"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $MANIFEST_TOOL" >&5 $as_echo "$MANIFEST_TOOL" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi fi if test -z "$ac_cv_prog_MANIFEST_TOOL"; then ac_ct_MANIFEST_TOOL=$MANIFEST_TOOL # Extract the first word of "mt", so it can be a program name with args. set dummy mt; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_ac_ct_MANIFEST_TOOL+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$ac_ct_MANIFEST_TOOL"; then ac_cv_prog_ac_ct_MANIFEST_TOOL="$ac_ct_MANIFEST_TOOL" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_ac_ct_MANIFEST_TOOL="mt" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi ac_ct_MANIFEST_TOOL=$ac_cv_prog_ac_ct_MANIFEST_TOOL if test -n "$ac_ct_MANIFEST_TOOL"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_MANIFEST_TOOL" >&5 $as_echo "$ac_ct_MANIFEST_TOOL" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi if test "x$ac_ct_MANIFEST_TOOL" = x; then MANIFEST_TOOL=":" else case $cross_compiling:$ac_tool_warned in yes:) { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5 $as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;} ac_tool_warned=yes ;; esac MANIFEST_TOOL=$ac_ct_MANIFEST_TOOL fi else MANIFEST_TOOL="$ac_cv_prog_MANIFEST_TOOL" fi test -z "$MANIFEST_TOOL" && MANIFEST_TOOL=mt { $as_echo "$as_me:${as_lineno-$LINENO}: checking if $MANIFEST_TOOL is a manifest tool" >&5 $as_echo_n "checking if $MANIFEST_TOOL is a manifest tool... " >&6; } if ${lt_cv_path_mainfest_tool+:} false; then : $as_echo_n "(cached) " >&6 else lt_cv_path_mainfest_tool=no echo "$as_me:$LINENO: $MANIFEST_TOOL '-?'" >&5 $MANIFEST_TOOL '-?' 2>conftest.err > conftest.out cat conftest.err >&5 if $GREP 'Manifest Tool' conftest.out > /dev/null; then lt_cv_path_mainfest_tool=yes fi rm -f conftest* fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_path_mainfest_tool" >&5 $as_echo "$lt_cv_path_mainfest_tool" >&6; } if test yes != "$lt_cv_path_mainfest_tool"; then MANIFEST_TOOL=: fi case $host_os in rhapsody* | darwin*) if test -n "$ac_tool_prefix"; then # Extract the first word of "${ac_tool_prefix}dsymutil", so it can be a program name with args. set dummy ${ac_tool_prefix}dsymutil; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_DSYMUTIL+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$DSYMUTIL"; then ac_cv_prog_DSYMUTIL="$DSYMUTIL" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_DSYMUTIL="${ac_tool_prefix}dsymutil" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi DSYMUTIL=$ac_cv_prog_DSYMUTIL if test -n "$DSYMUTIL"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $DSYMUTIL" >&5 $as_echo "$DSYMUTIL" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi fi if test -z "$ac_cv_prog_DSYMUTIL"; then ac_ct_DSYMUTIL=$DSYMUTIL # Extract the first word of "dsymutil", so it can be a program name with args. set dummy dsymutil; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_ac_ct_DSYMUTIL+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$ac_ct_DSYMUTIL"; then ac_cv_prog_ac_ct_DSYMUTIL="$ac_ct_DSYMUTIL" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_ac_ct_DSYMUTIL="dsymutil" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi ac_ct_DSYMUTIL=$ac_cv_prog_ac_ct_DSYMUTIL if test -n "$ac_ct_DSYMUTIL"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_DSYMUTIL" >&5 $as_echo "$ac_ct_DSYMUTIL" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi if test "x$ac_ct_DSYMUTIL" = x; then DSYMUTIL=":" else case $cross_compiling:$ac_tool_warned in yes:) { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5 $as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;} ac_tool_warned=yes ;; esac DSYMUTIL=$ac_ct_DSYMUTIL fi else DSYMUTIL="$ac_cv_prog_DSYMUTIL" fi if test -n "$ac_tool_prefix"; then # Extract the first word of "${ac_tool_prefix}nmedit", so it can be a program name with args. set dummy ${ac_tool_prefix}nmedit; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_NMEDIT+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$NMEDIT"; then ac_cv_prog_NMEDIT="$NMEDIT" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_NMEDIT="${ac_tool_prefix}nmedit" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi NMEDIT=$ac_cv_prog_NMEDIT if test -n "$NMEDIT"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $NMEDIT" >&5 $as_echo "$NMEDIT" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi fi if test -z "$ac_cv_prog_NMEDIT"; then ac_ct_NMEDIT=$NMEDIT # Extract the first word of "nmedit", so it can be a program name with args. set dummy nmedit; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_ac_ct_NMEDIT+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$ac_ct_NMEDIT"; then ac_cv_prog_ac_ct_NMEDIT="$ac_ct_NMEDIT" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_ac_ct_NMEDIT="nmedit" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi ac_ct_NMEDIT=$ac_cv_prog_ac_ct_NMEDIT if test -n "$ac_ct_NMEDIT"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_NMEDIT" >&5 $as_echo "$ac_ct_NMEDIT" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi if test "x$ac_ct_NMEDIT" = x; then NMEDIT=":" else case $cross_compiling:$ac_tool_warned in yes:) { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5 $as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;} ac_tool_warned=yes ;; esac NMEDIT=$ac_ct_NMEDIT fi else NMEDIT="$ac_cv_prog_NMEDIT" fi if test -n "$ac_tool_prefix"; then # Extract the first word of "${ac_tool_prefix}lipo", so it can be a program name with args. set dummy ${ac_tool_prefix}lipo; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_LIPO+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$LIPO"; then ac_cv_prog_LIPO="$LIPO" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_LIPO="${ac_tool_prefix}lipo" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi LIPO=$ac_cv_prog_LIPO if test -n "$LIPO"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $LIPO" >&5 $as_echo "$LIPO" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi fi if test -z "$ac_cv_prog_LIPO"; then ac_ct_LIPO=$LIPO # Extract the first word of "lipo", so it can be a program name with args. set dummy lipo; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_ac_ct_LIPO+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$ac_ct_LIPO"; then ac_cv_prog_ac_ct_LIPO="$ac_ct_LIPO" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_ac_ct_LIPO="lipo" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi ac_ct_LIPO=$ac_cv_prog_ac_ct_LIPO if test -n "$ac_ct_LIPO"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_LIPO" >&5 $as_echo "$ac_ct_LIPO" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi if test "x$ac_ct_LIPO" = x; then LIPO=":" else case $cross_compiling:$ac_tool_warned in yes:) { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5 $as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;} ac_tool_warned=yes ;; esac LIPO=$ac_ct_LIPO fi else LIPO="$ac_cv_prog_LIPO" fi if test -n "$ac_tool_prefix"; then # Extract the first word of "${ac_tool_prefix}otool", so it can be a program name with args. set dummy ${ac_tool_prefix}otool; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_OTOOL+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$OTOOL"; then ac_cv_prog_OTOOL="$OTOOL" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_OTOOL="${ac_tool_prefix}otool" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi OTOOL=$ac_cv_prog_OTOOL if test -n "$OTOOL"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $OTOOL" >&5 $as_echo "$OTOOL" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi fi if test -z "$ac_cv_prog_OTOOL"; then ac_ct_OTOOL=$OTOOL # Extract the first word of "otool", so it can be a program name with args. set dummy otool; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_ac_ct_OTOOL+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$ac_ct_OTOOL"; then ac_cv_prog_ac_ct_OTOOL="$ac_ct_OTOOL" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_ac_ct_OTOOL="otool" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi ac_ct_OTOOL=$ac_cv_prog_ac_ct_OTOOL if test -n "$ac_ct_OTOOL"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_OTOOL" >&5 $as_echo "$ac_ct_OTOOL" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi if test "x$ac_ct_OTOOL" = x; then OTOOL=":" else case $cross_compiling:$ac_tool_warned in yes:) { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5 $as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;} ac_tool_warned=yes ;; esac OTOOL=$ac_ct_OTOOL fi else OTOOL="$ac_cv_prog_OTOOL" fi if test -n "$ac_tool_prefix"; then # Extract the first word of "${ac_tool_prefix}otool64", so it can be a program name with args. set dummy ${ac_tool_prefix}otool64; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_OTOOL64+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$OTOOL64"; then ac_cv_prog_OTOOL64="$OTOOL64" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_OTOOL64="${ac_tool_prefix}otool64" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi OTOOL64=$ac_cv_prog_OTOOL64 if test -n "$OTOOL64"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $OTOOL64" >&5 $as_echo "$OTOOL64" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi fi if test -z "$ac_cv_prog_OTOOL64"; then ac_ct_OTOOL64=$OTOOL64 # Extract the first word of "otool64", so it can be a program name with args. set dummy otool64; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_ac_ct_OTOOL64+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$ac_ct_OTOOL64"; then ac_cv_prog_ac_ct_OTOOL64="$ac_ct_OTOOL64" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_ac_ct_OTOOL64="otool64" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi ac_ct_OTOOL64=$ac_cv_prog_ac_ct_OTOOL64 if test -n "$ac_ct_OTOOL64"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_OTOOL64" >&5 $as_echo "$ac_ct_OTOOL64" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi if test "x$ac_ct_OTOOL64" = x; then OTOOL64=":" else case $cross_compiling:$ac_tool_warned in yes:) { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5 $as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;} ac_tool_warned=yes ;; esac OTOOL64=$ac_ct_OTOOL64 fi else OTOOL64="$ac_cv_prog_OTOOL64" fi { $as_echo "$as_me:${as_lineno-$LINENO}: checking for -single_module linker flag" >&5 $as_echo_n "checking for -single_module linker flag... " >&6; } if ${lt_cv_apple_cc_single_mod+:} false; then : $as_echo_n "(cached) " >&6 else lt_cv_apple_cc_single_mod=no if test -z "$LT_MULTI_MODULE"; then # By default we will add the -single_module flag. You can override # by either setting the environment variable LT_MULTI_MODULE # non-empty at configure time, or by adding -multi_module to the # link flags. rm -rf libconftest.dylib* echo "int foo(void){return 1;}" > conftest.c echo "$LTCC $LTCFLAGS $LDFLAGS -o libconftest.dylib \ -dynamiclib -Wl,-single_module conftest.c" >&5 $LTCC $LTCFLAGS $LDFLAGS -o libconftest.dylib \ -dynamiclib -Wl,-single_module conftest.c 2>conftest.err _lt_result=$? # If there is a non-empty error log, and "single_module" # appears in it, assume the flag caused a linker warning if test -s conftest.err && $GREP single_module conftest.err; then cat conftest.err >&5 # Otherwise, if the output was created with a 0 exit code from # the compiler, it worked. elif test -f libconftest.dylib && test 0 = "$_lt_result"; then lt_cv_apple_cc_single_mod=yes else cat conftest.err >&5 fi rm -rf libconftest.dylib* rm -f conftest.* fi fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_apple_cc_single_mod" >&5 $as_echo "$lt_cv_apple_cc_single_mod" >&6; } { $as_echo "$as_me:${as_lineno-$LINENO}: checking for -exported_symbols_list linker flag" >&5 $as_echo_n "checking for -exported_symbols_list linker flag... " >&6; } if ${lt_cv_ld_exported_symbols_list+:} false; then : $as_echo_n "(cached) " >&6 else lt_cv_ld_exported_symbols_list=no save_LDFLAGS=$LDFLAGS echo "_main" > conftest.sym LDFLAGS="$LDFLAGS -Wl,-exported_symbols_list,conftest.sym" cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ int main () { ; return 0; } _ACEOF if ac_fn_c_try_link "$LINENO"; then : lt_cv_ld_exported_symbols_list=yes else lt_cv_ld_exported_symbols_list=no fi rm -f core conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext LDFLAGS=$save_LDFLAGS fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_ld_exported_symbols_list" >&5 $as_echo "$lt_cv_ld_exported_symbols_list" >&6; } { $as_echo "$as_me:${as_lineno-$LINENO}: checking for -force_load linker flag" >&5 $as_echo_n "checking for -force_load linker flag... " >&6; } if ${lt_cv_ld_force_load+:} false; then : $as_echo_n "(cached) " >&6 else lt_cv_ld_force_load=no cat > conftest.c << _LT_EOF int forced_loaded() { return 2;} _LT_EOF echo "$LTCC $LTCFLAGS -c -o conftest.o conftest.c" >&5 $LTCC $LTCFLAGS -c -o conftest.o conftest.c 2>&5 echo "$AR cru libconftest.a conftest.o" >&5 $AR cru libconftest.a conftest.o 2>&5 echo "$RANLIB libconftest.a" >&5 $RANLIB libconftest.a 2>&5 cat > conftest.c << _LT_EOF int main() { return 0;} _LT_EOF echo "$LTCC $LTCFLAGS $LDFLAGS -o conftest conftest.c -Wl,-force_load,./libconftest.a" >&5 $LTCC $LTCFLAGS $LDFLAGS -o conftest conftest.c -Wl,-force_load,./libconftest.a 2>conftest.err _lt_result=$? if test -s conftest.err && $GREP force_load conftest.err; then cat conftest.err >&5 elif test -f conftest && test 0 = "$_lt_result" && $GREP forced_load conftest >/dev/null 2>&1; then lt_cv_ld_force_load=yes else cat conftest.err >&5 fi rm -f conftest.err libconftest.a conftest conftest.c rm -rf conftest.dSYM fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_ld_force_load" >&5 $as_echo "$lt_cv_ld_force_load" >&6; } case $host_os in rhapsody* | darwin1.[012]) _lt_dar_allow_undefined='$wl-undefined ${wl}suppress' ;; darwin1.*) _lt_dar_allow_undefined='$wl-flat_namespace $wl-undefined ${wl}suppress' ;; darwin*) # darwin 5.x on # if running on 10.5 or later, the deployment target defaults # to the OS version, if on x86, and 10.4, the deployment # target defaults to 10.4. Don't you love it? case ${MACOSX_DEPLOYMENT_TARGET-10.0},$host in 10.0,*86*-darwin8*|10.0,*-darwin[91]*) _lt_dar_allow_undefined='$wl-undefined ${wl}dynamic_lookup' ;; 10.[012][,.]*) _lt_dar_allow_undefined='$wl-flat_namespace $wl-undefined ${wl}suppress' ;; 10.*) _lt_dar_allow_undefined='$wl-undefined ${wl}dynamic_lookup' ;; esac ;; esac if test yes = "$lt_cv_apple_cc_single_mod"; then _lt_dar_single_mod='$single_module' fi if test yes = "$lt_cv_ld_exported_symbols_list"; then _lt_dar_export_syms=' $wl-exported_symbols_list,$output_objdir/$libname-symbols.expsym' else _lt_dar_export_syms='~$NMEDIT -s $output_objdir/$libname-symbols.expsym $lib' fi if test : != "$DSYMUTIL" && test no = "$lt_cv_ld_force_load"; then _lt_dsymutil='~$DSYMUTIL $lib || :' else _lt_dsymutil= fi ;; esac # func_munge_path_list VARIABLE PATH # ----------------------------------- # VARIABLE is name of variable containing _space_ separated list of # directories to be munged by the contents of PATH, which is string # having a format: # "DIR[:DIR]:" # string "DIR[ DIR]" will be prepended to VARIABLE # ":DIR[:DIR]" # string "DIR[ DIR]" will be appended to VARIABLE # "DIRP[:DIRP]::[DIRA:]DIRA" # string "DIRP[ DIRP]" will be prepended to VARIABLE and string # "DIRA[ DIRA]" will be appended to VARIABLE # "DIR[:DIR]" # VARIABLE will be replaced by "DIR[ DIR]" func_munge_path_list () { case x$2 in x) ;; *:) eval $1=\"`$ECHO $2 | $SED 's/:/ /g'` \$$1\" ;; x:*) eval $1=\"\$$1 `$ECHO $2 | $SED 's/:/ /g'`\" ;; *::*) eval $1=\"\$$1\ `$ECHO $2 | $SED -e 's/.*:://' -e 's/:/ /g'`\" eval $1=\"`$ECHO $2 | $SED -e 's/::.*//' -e 's/:/ /g'`\ \$$1\" ;; *) eval $1=\"`$ECHO $2 | $SED 's/:/ /g'`\" ;; esac } for ac_header in dlfcn.h do : ac_fn_c_check_header_compile "$LINENO" "dlfcn.h" "ac_cv_header_dlfcn_h" "$ac_includes_default " if test "x$ac_cv_header_dlfcn_h" = xyes; then : cat >>confdefs.h <<_ACEOF #define HAVE_DLFCN_H 1 _ACEOF fi done # Set options enable_win32_dll=yes case $host in *-*-cygwin* | *-*-mingw* | *-*-pw32* | *-*-cegcc*) if test -n "$ac_tool_prefix"; then # Extract the first word of "${ac_tool_prefix}as", so it can be a program name with args. set dummy ${ac_tool_prefix}as; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_AS+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$AS"; then ac_cv_prog_AS="$AS" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_AS="${ac_tool_prefix}as" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi AS=$ac_cv_prog_AS if test -n "$AS"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $AS" >&5 $as_echo "$AS" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi fi if test -z "$ac_cv_prog_AS"; then ac_ct_AS=$AS # Extract the first word of "as", so it can be a program name with args. set dummy as; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_ac_ct_AS+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$ac_ct_AS"; then ac_cv_prog_ac_ct_AS="$ac_ct_AS" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_ac_ct_AS="as" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi ac_ct_AS=$ac_cv_prog_ac_ct_AS if test -n "$ac_ct_AS"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_AS" >&5 $as_echo "$ac_ct_AS" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi if test "x$ac_ct_AS" = x; then AS="false" else case $cross_compiling:$ac_tool_warned in yes:) { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5 $as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;} ac_tool_warned=yes ;; esac AS=$ac_ct_AS fi else AS="$ac_cv_prog_AS" fi if test -n "$ac_tool_prefix"; then # Extract the first word of "${ac_tool_prefix}dlltool", so it can be a program name with args. set dummy ${ac_tool_prefix}dlltool; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_DLLTOOL+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$DLLTOOL"; then ac_cv_prog_DLLTOOL="$DLLTOOL" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_DLLTOOL="${ac_tool_prefix}dlltool" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi DLLTOOL=$ac_cv_prog_DLLTOOL if test -n "$DLLTOOL"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $DLLTOOL" >&5 $as_echo "$DLLTOOL" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi fi if test -z "$ac_cv_prog_DLLTOOL"; then ac_ct_DLLTOOL=$DLLTOOL # Extract the first word of "dlltool", so it can be a program name with args. set dummy dlltool; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_ac_ct_DLLTOOL+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$ac_ct_DLLTOOL"; then ac_cv_prog_ac_ct_DLLTOOL="$ac_ct_DLLTOOL" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_ac_ct_DLLTOOL="dlltool" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi ac_ct_DLLTOOL=$ac_cv_prog_ac_ct_DLLTOOL if test -n "$ac_ct_DLLTOOL"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_DLLTOOL" >&5 $as_echo "$ac_ct_DLLTOOL" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi if test "x$ac_ct_DLLTOOL" = x; then DLLTOOL="false" else case $cross_compiling:$ac_tool_warned in yes:) { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5 $as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;} ac_tool_warned=yes ;; esac DLLTOOL=$ac_ct_DLLTOOL fi else DLLTOOL="$ac_cv_prog_DLLTOOL" fi if test -n "$ac_tool_prefix"; then # Extract the first word of "${ac_tool_prefix}objdump", so it can be a program name with args. set dummy ${ac_tool_prefix}objdump; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_OBJDUMP+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$OBJDUMP"; then ac_cv_prog_OBJDUMP="$OBJDUMP" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_OBJDUMP="${ac_tool_prefix}objdump" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi OBJDUMP=$ac_cv_prog_OBJDUMP if test -n "$OBJDUMP"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $OBJDUMP" >&5 $as_echo "$OBJDUMP" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi fi if test -z "$ac_cv_prog_OBJDUMP"; then ac_ct_OBJDUMP=$OBJDUMP # Extract the first word of "objdump", so it can be a program name with args. set dummy objdump; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_ac_ct_OBJDUMP+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$ac_ct_OBJDUMP"; then ac_cv_prog_ac_ct_OBJDUMP="$ac_ct_OBJDUMP" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_ac_ct_OBJDUMP="objdump" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi ac_ct_OBJDUMP=$ac_cv_prog_ac_ct_OBJDUMP if test -n "$ac_ct_OBJDUMP"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_OBJDUMP" >&5 $as_echo "$ac_ct_OBJDUMP" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi if test "x$ac_ct_OBJDUMP" = x; then OBJDUMP="false" else case $cross_compiling:$ac_tool_warned in yes:) { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5 $as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;} ac_tool_warned=yes ;; esac OBJDUMP=$ac_ct_OBJDUMP fi else OBJDUMP="$ac_cv_prog_OBJDUMP" fi ;; esac test -z "$AS" && AS=as test -z "$DLLTOOL" && DLLTOOL=dlltool test -z "$OBJDUMP" && OBJDUMP=objdump enable_dlopen=no # Check whether --enable-shared was given. if test "${enable_shared+set}" = set; then : enableval=$enable_shared; p=${PACKAGE-default} case $enableval in yes) enable_shared=yes ;; no) enable_shared=no ;; *) enable_shared=no # Look at the argument we got. We use all the common list separators. lt_save_ifs=$IFS; IFS=$IFS$PATH_SEPARATOR, for pkg in $enableval; do IFS=$lt_save_ifs if test "X$pkg" = "X$p"; then enable_shared=yes fi done IFS=$lt_save_ifs ;; esac else enable_shared=yes fi # Check whether --enable-static was given. if test "${enable_static+set}" = set; then : enableval=$enable_static; p=${PACKAGE-default} case $enableval in yes) enable_static=yes ;; no) enable_static=no ;; *) enable_static=no # Look at the argument we got. We use all the common list separators. lt_save_ifs=$IFS; IFS=$IFS$PATH_SEPARATOR, for pkg in $enableval; do IFS=$lt_save_ifs if test "X$pkg" = "X$p"; then enable_static=yes fi done IFS=$lt_save_ifs ;; esac else enable_static=yes fi # Check whether --with-pic was given. if test "${with_pic+set}" = set; then : withval=$with_pic; lt_p=${PACKAGE-default} case $withval in yes|no) pic_mode=$withval ;; *) pic_mode=default # Look at the argument we got. We use all the common list separators. lt_save_ifs=$IFS; IFS=$IFS$PATH_SEPARATOR, for lt_pkg in $withval; do IFS=$lt_save_ifs if test "X$lt_pkg" = "X$lt_p"; then pic_mode=yes fi done IFS=$lt_save_ifs ;; esac else pic_mode=default fi # Check whether --enable-fast-install was given. if test "${enable_fast_install+set}" = set; then : enableval=$enable_fast_install; p=${PACKAGE-default} case $enableval in yes) enable_fast_install=yes ;; no) enable_fast_install=no ;; *) enable_fast_install=no # Look at the argument we got. We use all the common list separators. lt_save_ifs=$IFS; IFS=$IFS$PATH_SEPARATOR, for pkg in $enableval; do IFS=$lt_save_ifs if test "X$pkg" = "X$p"; then enable_fast_install=yes fi done IFS=$lt_save_ifs ;; esac else enable_fast_install=yes fi shared_archive_member_spec= case $host,$enable_shared in power*-*-aix[5-9]*,yes) { $as_echo "$as_me:${as_lineno-$LINENO}: checking which variant of shared library versioning to provide" >&5 $as_echo_n "checking which variant of shared library versioning to provide... " >&6; } # Check whether --with-aix-soname was given. if test "${with_aix_soname+set}" = set; then : withval=$with_aix_soname; case $withval in aix|svr4|both) ;; *) as_fn_error $? "Unknown argument to --with-aix-soname" "$LINENO" 5 ;; esac lt_cv_with_aix_soname=$with_aix_soname else if ${lt_cv_with_aix_soname+:} false; then : $as_echo_n "(cached) " >&6 else lt_cv_with_aix_soname=aix fi with_aix_soname=$lt_cv_with_aix_soname fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $with_aix_soname" >&5 $as_echo "$with_aix_soname" >&6; } if test aix != "$with_aix_soname"; then # For the AIX way of multilib, we name the shared archive member # based on the bitwidth used, traditionally 'shr.o' or 'shr_64.o', # and 'shr.imp' or 'shr_64.imp', respectively, for the Import File. # Even when GNU compilers ignore OBJECT_MODE but need '-maix64' flag, # the AIX toolchain works better with OBJECT_MODE set (default 32). if test 64 = "${OBJECT_MODE-32}"; then shared_archive_member_spec=shr_64 else shared_archive_member_spec=shr fi fi ;; *) with_aix_soname=aix ;; esac # This can be used to rebuild libtool when needed LIBTOOL_DEPS=$ltmain # Always use our own libtool. LIBTOOL='$(SHELL) $(top_builddir)/libtool' test -z "$LN_S" && LN_S="ln -s" if test -n "${ZSH_VERSION+set}"; then setopt NO_GLOB_SUBST fi { $as_echo "$as_me:${as_lineno-$LINENO}: checking for objdir" >&5 $as_echo_n "checking for objdir... " >&6; } if ${lt_cv_objdir+:} false; then : $as_echo_n "(cached) " >&6 else rm -f .libs 2>/dev/null mkdir .libs 2>/dev/null if test -d .libs; then lt_cv_objdir=.libs else # MS-DOS does not allow filenames that begin with a dot. lt_cv_objdir=_libs fi rmdir .libs 2>/dev/null fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_objdir" >&5 $as_echo "$lt_cv_objdir" >&6; } objdir=$lt_cv_objdir cat >>confdefs.h <<_ACEOF #define LT_OBJDIR "$lt_cv_objdir/" _ACEOF case $host_os in aix3*) # AIX sometimes has problems with the GCC collect2 program. For some # reason, if we set the COLLECT_NAMES environment variable, the problems # vanish in a puff of smoke. if test set != "${COLLECT_NAMES+set}"; then COLLECT_NAMES= export COLLECT_NAMES fi ;; esac # Global variables: ofile=libtool can_build_shared=yes # All known linkers require a '.a' archive for static linking (except MSVC, # which needs '.lib'). libext=a with_gnu_ld=$lt_cv_prog_gnu_ld old_CC=$CC old_CFLAGS=$CFLAGS # Set sane defaults for various variables test -z "$CC" && CC=cc test -z "$LTCC" && LTCC=$CC test -z "$LTCFLAGS" && LTCFLAGS=$CFLAGS test -z "$LD" && LD=ld test -z "$ac_objext" && ac_objext=o func_cc_basename $compiler cc_basename=$func_cc_basename_result # Only perform the check for file, if the check method requires it test -z "$MAGIC_CMD" && MAGIC_CMD=file case $deplibs_check_method in file_magic*) if test "$file_magic_cmd" = '$MAGIC_CMD'; then { $as_echo "$as_me:${as_lineno-$LINENO}: checking for ${ac_tool_prefix}file" >&5 $as_echo_n "checking for ${ac_tool_prefix}file... " >&6; } if ${lt_cv_path_MAGIC_CMD+:} false; then : $as_echo_n "(cached) " >&6 else case $MAGIC_CMD in [\\/*] | ?:[\\/]*) lt_cv_path_MAGIC_CMD=$MAGIC_CMD # Let the user override the test with a path. ;; *) lt_save_MAGIC_CMD=$MAGIC_CMD lt_save_ifs=$IFS; IFS=$PATH_SEPARATOR ac_dummy="/usr/bin$PATH_SEPARATOR$PATH" for ac_dir in $ac_dummy; do IFS=$lt_save_ifs test -z "$ac_dir" && ac_dir=. if test -f "$ac_dir/${ac_tool_prefix}file"; then lt_cv_path_MAGIC_CMD=$ac_dir/"${ac_tool_prefix}file" if test -n "$file_magic_test_file"; then case $deplibs_check_method in "file_magic "*) file_magic_regex=`expr "$deplibs_check_method" : "file_magic \(.*\)"` MAGIC_CMD=$lt_cv_path_MAGIC_CMD if eval $file_magic_cmd \$file_magic_test_file 2> /dev/null | $EGREP "$file_magic_regex" > /dev/null; then : else cat <<_LT_EOF 1>&2 *** Warning: the command libtool uses to detect shared libraries, *** $file_magic_cmd, produces output that libtool cannot recognize. *** The result is that libtool may fail to recognize shared libraries *** as such. This will affect the creation of libtool libraries that *** depend on shared libraries, but programs linked with such libtool *** libraries will work regardless of this problem. Nevertheless, you *** may want to report the problem to your system manager and/or to *** bug-libtool@gnu.org _LT_EOF fi ;; esac fi break fi done IFS=$lt_save_ifs MAGIC_CMD=$lt_save_MAGIC_CMD ;; esac fi MAGIC_CMD=$lt_cv_path_MAGIC_CMD if test -n "$MAGIC_CMD"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $MAGIC_CMD" >&5 $as_echo "$MAGIC_CMD" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi if test -z "$lt_cv_path_MAGIC_CMD"; then if test -n "$ac_tool_prefix"; then { $as_echo "$as_me:${as_lineno-$LINENO}: checking for file" >&5 $as_echo_n "checking for file... " >&6; } if ${lt_cv_path_MAGIC_CMD+:} false; then : $as_echo_n "(cached) " >&6 else case $MAGIC_CMD in [\\/*] | ?:[\\/]*) lt_cv_path_MAGIC_CMD=$MAGIC_CMD # Let the user override the test with a path. ;; *) lt_save_MAGIC_CMD=$MAGIC_CMD lt_save_ifs=$IFS; IFS=$PATH_SEPARATOR ac_dummy="/usr/bin$PATH_SEPARATOR$PATH" for ac_dir in $ac_dummy; do IFS=$lt_save_ifs test -z "$ac_dir" && ac_dir=. if test -f "$ac_dir/file"; then lt_cv_path_MAGIC_CMD=$ac_dir/"file" if test -n "$file_magic_test_file"; then case $deplibs_check_method in "file_magic "*) file_magic_regex=`expr "$deplibs_check_method" : "file_magic \(.*\)"` MAGIC_CMD=$lt_cv_path_MAGIC_CMD if eval $file_magic_cmd \$file_magic_test_file 2> /dev/null | $EGREP "$file_magic_regex" > /dev/null; then : else cat <<_LT_EOF 1>&2 *** Warning: the command libtool uses to detect shared libraries, *** $file_magic_cmd, produces output that libtool cannot recognize. *** The result is that libtool may fail to recognize shared libraries *** as such. This will affect the creation of libtool libraries that *** depend on shared libraries, but programs linked with such libtool *** libraries will work regardless of this problem. Nevertheless, you *** may want to report the problem to your system manager and/or to *** bug-libtool@gnu.org _LT_EOF fi ;; esac fi break fi done IFS=$lt_save_ifs MAGIC_CMD=$lt_save_MAGIC_CMD ;; esac fi MAGIC_CMD=$lt_cv_path_MAGIC_CMD if test -n "$MAGIC_CMD"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $MAGIC_CMD" >&5 $as_echo "$MAGIC_CMD" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi else MAGIC_CMD=: fi fi fi ;; esac # Use C for the default configuration in the libtool script lt_save_CC=$CC ac_ext=c ac_cpp='$CPP $CPPFLAGS' ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' ac_compiler_gnu=$ac_cv_c_compiler_gnu # Source file extension for C test sources. ac_ext=c # Object file extension for compiled C test sources. objext=o objext=$objext # Code to be used in simple compile tests lt_simple_compile_test_code="int some_variable = 0;" # Code to be used in simple link tests lt_simple_link_test_code='int main(){return(0);}' # If no C compiler was specified, use CC. LTCC=${LTCC-"$CC"} # If no C compiler flags were specified, use CFLAGS. LTCFLAGS=${LTCFLAGS-"$CFLAGS"} # Allow CC to be a program name with arguments. compiler=$CC # Save the default compiler, since it gets overwritten when the other # tags are being tested, and _LT_TAGVAR(compiler, []) is a NOP. compiler_DEFAULT=$CC # save warnings/boilerplate of simple test code ac_outfile=conftest.$ac_objext echo "$lt_simple_compile_test_code" >conftest.$ac_ext eval "$ac_compile" 2>&1 >/dev/null | $SED '/^$/d; /^ *+/d' >conftest.err _lt_compiler_boilerplate=`cat conftest.err` $RM conftest* ac_outfile=conftest.$ac_objext echo "$lt_simple_link_test_code" >conftest.$ac_ext eval "$ac_link" 2>&1 >/dev/null | $SED '/^$/d; /^ *+/d' >conftest.err _lt_linker_boilerplate=`cat conftest.err` $RM -r conftest* ## CAVEAT EMPTOR: ## There is no encapsulation within the following macros, do not change ## the running order or otherwise move them around unless you know exactly ## what you are doing... if test -n "$compiler"; then lt_prog_compiler_no_builtin_flag= if test yes = "$GCC"; then case $cc_basename in nvcc*) lt_prog_compiler_no_builtin_flag=' -Xcompiler -fno-builtin' ;; *) lt_prog_compiler_no_builtin_flag=' -fno-builtin' ;; esac { $as_echo "$as_me:${as_lineno-$LINENO}: checking if $compiler supports -fno-rtti -fno-exceptions" >&5 $as_echo_n "checking if $compiler supports -fno-rtti -fno-exceptions... " >&6; } if ${lt_cv_prog_compiler_rtti_exceptions+:} false; then : $as_echo_n "(cached) " >&6 else lt_cv_prog_compiler_rtti_exceptions=no ac_outfile=conftest.$ac_objext echo "$lt_simple_compile_test_code" > conftest.$ac_ext lt_compiler_flag="-fno-rtti -fno-exceptions" ## exclude from sc_useless_quotes_in_assignment # Insert the option either (1) after the last *FLAGS variable, or # (2) before a word containing "conftest.", or (3) at the end. # Note that $ac_compile itself does not contain backslashes and begins # with a dollar sign (not a hyphen), so the echo should work correctly. # The option is referenced via a variable to avoid confusing sed. lt_compile=`echo "$ac_compile" | $SED \ -e 's:.*FLAGS}\{0,1\} :&$lt_compiler_flag :; t' \ -e 's: [^ ]*conftest\.: $lt_compiler_flag&:; t' \ -e 's:$: $lt_compiler_flag:'` (eval echo "\"\$as_me:$LINENO: $lt_compile\"" >&5) (eval "$lt_compile" 2>conftest.err) ac_status=$? cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 if (exit $ac_status) && test -s "$ac_outfile"; then # The compiler can only warn and ignore the option if not recognized # So say no if there are warnings other than the usual output. $ECHO "$_lt_compiler_boilerplate" | $SED '/^$/d' >conftest.exp $SED '/^$/d; /^ *+/d' conftest.err >conftest.er2 if test ! -s conftest.er2 || diff conftest.exp conftest.er2 >/dev/null; then lt_cv_prog_compiler_rtti_exceptions=yes fi fi $RM conftest* fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_prog_compiler_rtti_exceptions" >&5 $as_echo "$lt_cv_prog_compiler_rtti_exceptions" >&6; } if test yes = "$lt_cv_prog_compiler_rtti_exceptions"; then lt_prog_compiler_no_builtin_flag="$lt_prog_compiler_no_builtin_flag -fno-rtti -fno-exceptions" else : fi fi lt_prog_compiler_wl= lt_prog_compiler_pic= lt_prog_compiler_static= if test yes = "$GCC"; then lt_prog_compiler_wl='-Wl,' lt_prog_compiler_static='-static' case $host_os in aix*) # All AIX code is PIC. if test ia64 = "$host_cpu"; then # AIX 5 now supports IA64 processor lt_prog_compiler_static='-Bstatic' fi lt_prog_compiler_pic='-fPIC' ;; amigaos*) case $host_cpu in powerpc) # see comment about AmigaOS4 .so support lt_prog_compiler_pic='-fPIC' ;; m68k) # FIXME: we need at least 68020 code to build shared libraries, but # adding the '-m68020' flag to GCC prevents building anything better, # like '-m68040'. lt_prog_compiler_pic='-m68020 -resident32 -malways-restore-a4' ;; esac ;; beos* | irix5* | irix6* | nonstopux* | osf3* | osf4* | osf5*) # PIC is the default for these OSes. ;; mingw* | cygwin* | pw32* | os2* | cegcc*) # This hack is so that the source file can tell whether it is being # built for inclusion in a dll (and should export symbols for example). # Although the cygwin gcc ignores -fPIC, still need this for old-style # (--disable-auto-import) libraries lt_prog_compiler_pic='-DDLL_EXPORT' case $host_os in os2*) lt_prog_compiler_static='$wl-static' ;; esac ;; darwin* | rhapsody*) # PIC is the default on this platform # Common symbols not allowed in MH_DYLIB files lt_prog_compiler_pic='-fno-common' ;; haiku*) # PIC is the default for Haiku. # The "-static" flag exists, but is broken. lt_prog_compiler_static= ;; hpux*) # PIC is the default for 64-bit PA HP-UX, but not for 32-bit # PA HP-UX. On IA64 HP-UX, PIC is the default but the pic flag # sets the default TLS model and affects inlining. case $host_cpu in hppa*64*) # +Z the default ;; *) lt_prog_compiler_pic='-fPIC' ;; esac ;; interix[3-9]*) # Interix 3.x gcc -fpic/-fPIC options generate broken code. # Instead, we relocate shared libraries at runtime. ;; msdosdjgpp*) # Just because we use GCC doesn't mean we suddenly get shared libraries # on systems that don't support them. lt_prog_compiler_can_build_shared=no enable_shared=no ;; *nto* | *qnx*) # QNX uses GNU C++, but need to define -shared option too, otherwise # it will coredump. lt_prog_compiler_pic='-fPIC -shared' ;; sysv4*MP*) if test -d /usr/nec; then lt_prog_compiler_pic=-Kconform_pic fi ;; *) lt_prog_compiler_pic='-fPIC' ;; esac case $cc_basename in nvcc*) # Cuda Compiler Driver 2.2 lt_prog_compiler_wl='-Xlinker ' if test -n "$lt_prog_compiler_pic"; then lt_prog_compiler_pic="-Xcompiler $lt_prog_compiler_pic" fi ;; esac else # PORTME Check for flag to pass linker flags through the system compiler. case $host_os in aix*) lt_prog_compiler_wl='-Wl,' if test ia64 = "$host_cpu"; then # AIX 5 now supports IA64 processor lt_prog_compiler_static='-Bstatic' else lt_prog_compiler_static='-bnso -bI:/lib/syscalls.exp' fi ;; darwin* | rhapsody*) # PIC is the default on this platform # Common symbols not allowed in MH_DYLIB files lt_prog_compiler_pic='-fno-common' case $cc_basename in nagfor*) # NAG Fortran compiler lt_prog_compiler_wl='-Wl,-Wl,,' lt_prog_compiler_pic='-PIC' lt_prog_compiler_static='-Bstatic' ;; esac ;; mingw* | cygwin* | pw32* | os2* | cegcc*) # This hack is so that the source file can tell whether it is being # built for inclusion in a dll (and should export symbols for example). lt_prog_compiler_pic='-DDLL_EXPORT' case $host_os in os2*) lt_prog_compiler_static='$wl-static' ;; esac ;; hpux9* | hpux10* | hpux11*) lt_prog_compiler_wl='-Wl,' # PIC is the default for IA64 HP-UX and 64-bit HP-UX, but # not for PA HP-UX. case $host_cpu in hppa*64*|ia64*) # +Z the default ;; *) lt_prog_compiler_pic='+Z' ;; esac # Is there a better lt_prog_compiler_static that works with the bundled CC? lt_prog_compiler_static='$wl-a ${wl}archive' ;; irix5* | irix6* | nonstopux*) lt_prog_compiler_wl='-Wl,' # PIC (with -KPIC) is the default. lt_prog_compiler_static='-non_shared' ;; linux* | k*bsd*-gnu | kopensolaris*-gnu | gnu*) case $cc_basename in # old Intel for x86_64, which still supported -KPIC. ecc*) lt_prog_compiler_wl='-Wl,' lt_prog_compiler_pic='-KPIC' lt_prog_compiler_static='-static' ;; # icc used to be incompatible with GCC. # ICC 10 doesn't accept -KPIC any more. icc* | ifort*) lt_prog_compiler_wl='-Wl,' lt_prog_compiler_pic='-fPIC' lt_prog_compiler_static='-static' ;; # Lahey Fortran 8.1. lf95*) lt_prog_compiler_wl='-Wl,' lt_prog_compiler_pic='--shared' lt_prog_compiler_static='--static' ;; nagfor*) # NAG Fortran compiler lt_prog_compiler_wl='-Wl,-Wl,,' lt_prog_compiler_pic='-PIC' lt_prog_compiler_static='-Bstatic' ;; tcc*) # Fabrice Bellard et al's Tiny C Compiler lt_prog_compiler_wl='-Wl,' lt_prog_compiler_pic='-fPIC' lt_prog_compiler_static='-static' ;; pgcc* | pgf77* | pgf90* | pgf95* | pgfortran*) # Portland Group compilers (*not* the Pentium gcc compiler, # which looks to be a dead project) lt_prog_compiler_wl='-Wl,' lt_prog_compiler_pic='-fpic' lt_prog_compiler_static='-Bstatic' ;; ccc*) lt_prog_compiler_wl='-Wl,' # All Alpha code is PIC. lt_prog_compiler_static='-non_shared' ;; xl* | bgxl* | bgf* | mpixl*) # IBM XL C 8.0/Fortran 10.1, 11.1 on PPC and BlueGene lt_prog_compiler_wl='-Wl,' lt_prog_compiler_pic='-qpic' lt_prog_compiler_static='-qstaticlink' ;; *) case `$CC -V 2>&1 | sed 5q` in *Sun\ Ceres\ Fortran* | *Sun*Fortran*\ [1-7].* | *Sun*Fortran*\ 8.[0-3]*) # Sun Fortran 8.3 passes all unrecognized flags to the linker lt_prog_compiler_pic='-KPIC' lt_prog_compiler_static='-Bstatic' lt_prog_compiler_wl='' ;; *Sun\ F* | *Sun*Fortran*) lt_prog_compiler_pic='-KPIC' lt_prog_compiler_static='-Bstatic' lt_prog_compiler_wl='-Qoption ld ' ;; *Sun\ C*) # Sun C 5.9 lt_prog_compiler_pic='-KPIC' lt_prog_compiler_static='-Bstatic' lt_prog_compiler_wl='-Wl,' ;; *Intel*\ [CF]*Compiler*) lt_prog_compiler_wl='-Wl,' lt_prog_compiler_pic='-fPIC' lt_prog_compiler_static='-static' ;; *Portland\ Group*) lt_prog_compiler_wl='-Wl,' lt_prog_compiler_pic='-fpic' lt_prog_compiler_static='-Bstatic' ;; esac ;; esac ;; newsos6) lt_prog_compiler_pic='-KPIC' lt_prog_compiler_static='-Bstatic' ;; *nto* | *qnx*) # QNX uses GNU C++, but need to define -shared option too, otherwise # it will coredump. lt_prog_compiler_pic='-fPIC -shared' ;; osf3* | osf4* | osf5*) lt_prog_compiler_wl='-Wl,' # All OSF/1 code is PIC. lt_prog_compiler_static='-non_shared' ;; rdos*) lt_prog_compiler_static='-non_shared' ;; solaris*) lt_prog_compiler_pic='-KPIC' lt_prog_compiler_static='-Bstatic' case $cc_basename in f77* | f90* | f95* | sunf77* | sunf90* | sunf95*) lt_prog_compiler_wl='-Qoption ld ';; *) lt_prog_compiler_wl='-Wl,';; esac ;; sunos4*) lt_prog_compiler_wl='-Qoption ld ' lt_prog_compiler_pic='-PIC' lt_prog_compiler_static='-Bstatic' ;; sysv4 | sysv4.2uw2* | sysv4.3*) lt_prog_compiler_wl='-Wl,' lt_prog_compiler_pic='-KPIC' lt_prog_compiler_static='-Bstatic' ;; sysv4*MP*) if test -d /usr/nec; then lt_prog_compiler_pic='-Kconform_pic' lt_prog_compiler_static='-Bstatic' fi ;; sysv5* | unixware* | sco3.2v5* | sco5v6* | OpenUNIX*) lt_prog_compiler_wl='-Wl,' lt_prog_compiler_pic='-KPIC' lt_prog_compiler_static='-Bstatic' ;; unicos*) lt_prog_compiler_wl='-Wl,' lt_prog_compiler_can_build_shared=no ;; uts4*) lt_prog_compiler_pic='-pic' lt_prog_compiler_static='-Bstatic' ;; *) lt_prog_compiler_can_build_shared=no ;; esac fi case $host_os in # For platforms that do not support PIC, -DPIC is meaningless: *djgpp*) lt_prog_compiler_pic= ;; *) lt_prog_compiler_pic="$lt_prog_compiler_pic -DPIC" ;; esac { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $compiler option to produce PIC" >&5 $as_echo_n "checking for $compiler option to produce PIC... " >&6; } if ${lt_cv_prog_compiler_pic+:} false; then : $as_echo_n "(cached) " >&6 else lt_cv_prog_compiler_pic=$lt_prog_compiler_pic fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_prog_compiler_pic" >&5 $as_echo "$lt_cv_prog_compiler_pic" >&6; } lt_prog_compiler_pic=$lt_cv_prog_compiler_pic # # Check to make sure the PIC flag actually works. # if test -n "$lt_prog_compiler_pic"; then { $as_echo "$as_me:${as_lineno-$LINENO}: checking if $compiler PIC flag $lt_prog_compiler_pic works" >&5 $as_echo_n "checking if $compiler PIC flag $lt_prog_compiler_pic works... " >&6; } if ${lt_cv_prog_compiler_pic_works+:} false; then : $as_echo_n "(cached) " >&6 else lt_cv_prog_compiler_pic_works=no ac_outfile=conftest.$ac_objext echo "$lt_simple_compile_test_code" > conftest.$ac_ext lt_compiler_flag="$lt_prog_compiler_pic -DPIC" ## exclude from sc_useless_quotes_in_assignment # Insert the option either (1) after the last *FLAGS variable, or # (2) before a word containing "conftest.", or (3) at the end. # Note that $ac_compile itself does not contain backslashes and begins # with a dollar sign (not a hyphen), so the echo should work correctly. # The option is referenced via a variable to avoid confusing sed. lt_compile=`echo "$ac_compile" | $SED \ -e 's:.*FLAGS}\{0,1\} :&$lt_compiler_flag :; t' \ -e 's: [^ ]*conftest\.: $lt_compiler_flag&:; t' \ -e 's:$: $lt_compiler_flag:'` (eval echo "\"\$as_me:$LINENO: $lt_compile\"" >&5) (eval "$lt_compile" 2>conftest.err) ac_status=$? cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 if (exit $ac_status) && test -s "$ac_outfile"; then # The compiler can only warn and ignore the option if not recognized # So say no if there are warnings other than the usual output. $ECHO "$_lt_compiler_boilerplate" | $SED '/^$/d' >conftest.exp $SED '/^$/d; /^ *+/d' conftest.err >conftest.er2 if test ! -s conftest.er2 || diff conftest.exp conftest.er2 >/dev/null; then lt_cv_prog_compiler_pic_works=yes fi fi $RM conftest* fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_prog_compiler_pic_works" >&5 $as_echo "$lt_cv_prog_compiler_pic_works" >&6; } if test yes = "$lt_cv_prog_compiler_pic_works"; then case $lt_prog_compiler_pic in "" | " "*) ;; *) lt_prog_compiler_pic=" $lt_prog_compiler_pic" ;; esac else lt_prog_compiler_pic= lt_prog_compiler_can_build_shared=no fi fi # # Check to make sure the static flag actually works. # wl=$lt_prog_compiler_wl eval lt_tmp_static_flag=\"$lt_prog_compiler_static\" { $as_echo "$as_me:${as_lineno-$LINENO}: checking if $compiler static flag $lt_tmp_static_flag works" >&5 $as_echo_n "checking if $compiler static flag $lt_tmp_static_flag works... " >&6; } if ${lt_cv_prog_compiler_static_works+:} false; then : $as_echo_n "(cached) " >&6 else lt_cv_prog_compiler_static_works=no save_LDFLAGS=$LDFLAGS LDFLAGS="$LDFLAGS $lt_tmp_static_flag" echo "$lt_simple_link_test_code" > conftest.$ac_ext if (eval $ac_link 2>conftest.err) && test -s conftest$ac_exeext; then # The linker can only warn and ignore the option if not recognized # So say no if there are warnings if test -s conftest.err; then # Append any errors to the config.log. cat conftest.err 1>&5 $ECHO "$_lt_linker_boilerplate" | $SED '/^$/d' > conftest.exp $SED '/^$/d; /^ *+/d' conftest.err >conftest.er2 if diff conftest.exp conftest.er2 >/dev/null; then lt_cv_prog_compiler_static_works=yes fi else lt_cv_prog_compiler_static_works=yes fi fi $RM -r conftest* LDFLAGS=$save_LDFLAGS fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_prog_compiler_static_works" >&5 $as_echo "$lt_cv_prog_compiler_static_works" >&6; } if test yes = "$lt_cv_prog_compiler_static_works"; then : else lt_prog_compiler_static= fi { $as_echo "$as_me:${as_lineno-$LINENO}: checking if $compiler supports -c -o file.$ac_objext" >&5 $as_echo_n "checking if $compiler supports -c -o file.$ac_objext... " >&6; } if ${lt_cv_prog_compiler_c_o+:} false; then : $as_echo_n "(cached) " >&6 else lt_cv_prog_compiler_c_o=no $RM -r conftest 2>/dev/null mkdir conftest cd conftest mkdir out echo "$lt_simple_compile_test_code" > conftest.$ac_ext lt_compiler_flag="-o out/conftest2.$ac_objext" # Insert the option either (1) after the last *FLAGS variable, or # (2) before a word containing "conftest.", or (3) at the end. # Note that $ac_compile itself does not contain backslashes and begins # with a dollar sign (not a hyphen), so the echo should work correctly. lt_compile=`echo "$ac_compile" | $SED \ -e 's:.*FLAGS}\{0,1\} :&$lt_compiler_flag :; t' \ -e 's: [^ ]*conftest\.: $lt_compiler_flag&:; t' \ -e 's:$: $lt_compiler_flag:'` (eval echo "\"\$as_me:$LINENO: $lt_compile\"" >&5) (eval "$lt_compile" 2>out/conftest.err) ac_status=$? cat out/conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 if (exit $ac_status) && test -s out/conftest2.$ac_objext then # The compiler can only warn and ignore the option if not recognized # So say no if there are warnings $ECHO "$_lt_compiler_boilerplate" | $SED '/^$/d' > out/conftest.exp $SED '/^$/d; /^ *+/d' out/conftest.err >out/conftest.er2 if test ! -s out/conftest.er2 || diff out/conftest.exp out/conftest.er2 >/dev/null; then lt_cv_prog_compiler_c_o=yes fi fi chmod u+w . 2>&5 $RM conftest* # SGI C++ compiler will create directory out/ii_files/ for # template instantiation test -d out/ii_files && $RM out/ii_files/* && rmdir out/ii_files $RM out/* && rmdir out cd .. $RM -r conftest $RM conftest* fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_prog_compiler_c_o" >&5 $as_echo "$lt_cv_prog_compiler_c_o" >&6; } { $as_echo "$as_me:${as_lineno-$LINENO}: checking if $compiler supports -c -o file.$ac_objext" >&5 $as_echo_n "checking if $compiler supports -c -o file.$ac_objext... " >&6; } if ${lt_cv_prog_compiler_c_o+:} false; then : $as_echo_n "(cached) " >&6 else lt_cv_prog_compiler_c_o=no $RM -r conftest 2>/dev/null mkdir conftest cd conftest mkdir out echo "$lt_simple_compile_test_code" > conftest.$ac_ext lt_compiler_flag="-o out/conftest2.$ac_objext" # Insert the option either (1) after the last *FLAGS variable, or # (2) before a word containing "conftest.", or (3) at the end. # Note that $ac_compile itself does not contain backslashes and begins # with a dollar sign (not a hyphen), so the echo should work correctly. lt_compile=`echo "$ac_compile" | $SED \ -e 's:.*FLAGS}\{0,1\} :&$lt_compiler_flag :; t' \ -e 's: [^ ]*conftest\.: $lt_compiler_flag&:; t' \ -e 's:$: $lt_compiler_flag:'` (eval echo "\"\$as_me:$LINENO: $lt_compile\"" >&5) (eval "$lt_compile" 2>out/conftest.err) ac_status=$? cat out/conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 if (exit $ac_status) && test -s out/conftest2.$ac_objext then # The compiler can only warn and ignore the option if not recognized # So say no if there are warnings $ECHO "$_lt_compiler_boilerplate" | $SED '/^$/d' > out/conftest.exp $SED '/^$/d; /^ *+/d' out/conftest.err >out/conftest.er2 if test ! -s out/conftest.er2 || diff out/conftest.exp out/conftest.er2 >/dev/null; then lt_cv_prog_compiler_c_o=yes fi fi chmod u+w . 2>&5 $RM conftest* # SGI C++ compiler will create directory out/ii_files/ for # template instantiation test -d out/ii_files && $RM out/ii_files/* && rmdir out/ii_files $RM out/* && rmdir out cd .. $RM -r conftest $RM conftest* fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_prog_compiler_c_o" >&5 $as_echo "$lt_cv_prog_compiler_c_o" >&6; } hard_links=nottested if test no = "$lt_cv_prog_compiler_c_o" && test no != "$need_locks"; then # do not overwrite the value of need_locks provided by the user { $as_echo "$as_me:${as_lineno-$LINENO}: checking if we can lock with hard links" >&5 $as_echo_n "checking if we can lock with hard links... " >&6; } hard_links=yes $RM conftest* ln conftest.a conftest.b 2>/dev/null && hard_links=no touch conftest.a ln conftest.a conftest.b 2>&5 || hard_links=no ln conftest.a conftest.b 2>/dev/null && hard_links=no { $as_echo "$as_me:${as_lineno-$LINENO}: result: $hard_links" >&5 $as_echo "$hard_links" >&6; } if test no = "$hard_links"; then { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: '$CC' does not support '-c -o', so 'make -j' may be unsafe" >&5 $as_echo "$as_me: WARNING: '$CC' does not support '-c -o', so 'make -j' may be unsafe" >&2;} need_locks=warn fi else need_locks=no fi { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether the $compiler linker ($LD) supports shared libraries" >&5 $as_echo_n "checking whether the $compiler linker ($LD) supports shared libraries... " >&6; } runpath_var= allow_undefined_flag= always_export_symbols=no archive_cmds= archive_expsym_cmds= compiler_needs_object=no enable_shared_with_static_runtimes=no export_dynamic_flag_spec= export_symbols_cmds='$NM $libobjs $convenience | $global_symbol_pipe | $SED '\''s/.* //'\'' | sort | uniq > $export_symbols' hardcode_automatic=no hardcode_direct=no hardcode_direct_absolute=no hardcode_libdir_flag_spec= hardcode_libdir_separator= hardcode_minus_L=no hardcode_shlibpath_var=unsupported inherit_rpath=no link_all_deplibs=unknown module_cmds= module_expsym_cmds= old_archive_from_new_cmds= old_archive_from_expsyms_cmds= thread_safe_flag_spec= whole_archive_flag_spec= # include_expsyms should be a list of space-separated symbols to be *always* # included in the symbol list include_expsyms= # exclude_expsyms can be an extended regexp of symbols to exclude # it will be wrapped by ' (' and ')$', so one must not match beginning or # end of line. Example: 'a|bc|.*d.*' will exclude the symbols 'a' and 'bc', # as well as any symbol that contains 'd'. exclude_expsyms='_GLOBAL_OFFSET_TABLE_|_GLOBAL__F[ID]_.*' # Although _GLOBAL_OFFSET_TABLE_ is a valid symbol C name, most a.out # platforms (ab)use it in PIC code, but their linkers get confused if # the symbol is explicitly referenced. Since portable code cannot # rely on this symbol name, it's probably fine to never include it in # preloaded symbol tables. # Exclude shared library initialization/finalization symbols. extract_expsyms_cmds= case $host_os in cygwin* | mingw* | pw32* | cegcc*) # FIXME: the MSVC++ port hasn't been tested in a loooong time # When not using gcc, we currently assume that we are using # Microsoft Visual C++. if test yes != "$GCC"; then with_gnu_ld=no fi ;; interix*) # we just hope/assume this is gcc and not c89 (= MSVC++) with_gnu_ld=yes ;; openbsd* | bitrig*) with_gnu_ld=no ;; esac ld_shlibs=yes # On some targets, GNU ld is compatible enough with the native linker # that we're better off using the native interface for both. lt_use_gnu_ld_interface=no if test yes = "$with_gnu_ld"; then case $host_os in aix*) # The AIX port of GNU ld has always aspired to compatibility # with the native linker. However, as the warning in the GNU ld # block says, versions before 2.19.5* couldn't really create working # shared libraries, regardless of the interface used. case `$LD -v 2>&1` in *\ \(GNU\ Binutils\)\ 2.19.5*) ;; *\ \(GNU\ Binutils\)\ 2.[2-9]*) ;; *\ \(GNU\ Binutils\)\ [3-9]*) ;; *) lt_use_gnu_ld_interface=yes ;; esac ;; *) lt_use_gnu_ld_interface=yes ;; esac fi if test yes = "$lt_use_gnu_ld_interface"; then # If archive_cmds runs LD, not CC, wlarc should be empty wlarc='$wl' # Set some defaults for GNU ld with shared library support. These # are reset later if shared libraries are not supported. Putting them # here allows them to be overridden if necessary. runpath_var=LD_RUN_PATH hardcode_libdir_flag_spec='$wl-rpath $wl$libdir' export_dynamic_flag_spec='$wl--export-dynamic' # ancient GNU ld didn't support --whole-archive et. al. if $LD --help 2>&1 | $GREP 'no-whole-archive' > /dev/null; then whole_archive_flag_spec=$wlarc'--whole-archive$convenience '$wlarc'--no-whole-archive' else whole_archive_flag_spec= fi supports_anon_versioning=no case `$LD -v | $SED -e 's/(^)\+)\s\+//' 2>&1` in *GNU\ gold*) supports_anon_versioning=yes ;; *\ [01].* | *\ 2.[0-9].* | *\ 2.10.*) ;; # catch versions < 2.11 *\ 2.11.93.0.2\ *) supports_anon_versioning=yes ;; # RH7.3 ... *\ 2.11.92.0.12\ *) supports_anon_versioning=yes ;; # Mandrake 8.2 ... *\ 2.11.*) ;; # other 2.11 versions *) supports_anon_versioning=yes ;; esac # See if GNU ld supports shared libraries. case $host_os in aix[3-9]*) # On AIX/PPC, the GNU linker is very broken if test ia64 != "$host_cpu"; then ld_shlibs=no cat <<_LT_EOF 1>&2 *** Warning: the GNU linker, at least up to release 2.19, is reported *** to be unable to reliably create shared libraries on AIX. *** Therefore, libtool is disabling shared libraries support. If you *** really care for shared libraries, you may want to install binutils *** 2.20 or above, or modify your PATH so that a non-GNU linker is found. *** You will then need to restart the configuration process. _LT_EOF fi ;; amigaos*) case $host_cpu in powerpc) # see comment about AmigaOS4 .so support archive_cmds='$CC -shared $libobjs $deplibs $compiler_flags $wl-soname $wl$soname -o $lib' archive_expsym_cmds='' ;; m68k) archive_cmds='$RM $output_objdir/a2ixlibrary.data~$ECHO "#define NAME $libname" > $output_objdir/a2ixlibrary.data~$ECHO "#define LIBRARY_ID 1" >> $output_objdir/a2ixlibrary.data~$ECHO "#define VERSION $major" >> $output_objdir/a2ixlibrary.data~$ECHO "#define REVISION $revision" >> $output_objdir/a2ixlibrary.data~$AR $AR_FLAGS $lib $libobjs~$RANLIB $lib~(cd $output_objdir && a2ixlibrary -32)' hardcode_libdir_flag_spec='-L$libdir' hardcode_minus_L=yes ;; esac ;; beos*) if $LD --help 2>&1 | $GREP ': supported targets:.* elf' > /dev/null; then allow_undefined_flag=unsupported # Joseph Beckenbach says some releases of gcc # support --undefined. This deserves some investigation. FIXME archive_cmds='$CC -nostart $libobjs $deplibs $compiler_flags $wl-soname $wl$soname -o $lib' else ld_shlibs=no fi ;; cygwin* | mingw* | pw32* | cegcc*) # _LT_TAGVAR(hardcode_libdir_flag_spec, ) is actually meaningless, # as there is no search path for DLLs. hardcode_libdir_flag_spec='-L$libdir' export_dynamic_flag_spec='$wl--export-all-symbols' allow_undefined_flag=unsupported always_export_symbols=no enable_shared_with_static_runtimes=yes export_symbols_cmds='$NM $libobjs $convenience | $global_symbol_pipe | $SED -e '\''/^[BCDGRS][ ]/s/.*[ ]\([^ ]*\)/\1 DATA/;s/^.*[ ]__nm__\([^ ]*\)[ ][^ ]*/\1 DATA/;/^I[ ]/d;/^[AITW][ ]/s/.* //'\'' | sort | uniq > $export_symbols' exclude_expsyms='[_]+GLOBAL_OFFSET_TABLE_|[_]+GLOBAL__[FID]_.*|[_]+head_[A-Za-z0-9_]+_dll|[A-Za-z0-9_]+_dll_iname' if $LD --help 2>&1 | $GREP 'auto-import' > /dev/null; then archive_cmds='$CC -shared $libobjs $deplibs $compiler_flags -o $output_objdir/$soname $wl--enable-auto-image-base -Xlinker --out-implib -Xlinker $lib' # If the export-symbols file already is a .def file, use it as # is; otherwise, prepend EXPORTS... archive_expsym_cmds='if test DEF = "`$SED -n -e '\''s/^[ ]*//'\'' -e '\''/^\(;.*\)*$/d'\'' -e '\''s/^\(EXPORTS\|LIBRARY\)\([ ].*\)*$/DEF/p'\'' -e q $export_symbols`" ; then cp $export_symbols $output_objdir/$soname.def; else echo EXPORTS > $output_objdir/$soname.def; cat $export_symbols >> $output_objdir/$soname.def; fi~ $CC -shared $output_objdir/$soname.def $libobjs $deplibs $compiler_flags -o $output_objdir/$soname $wl--enable-auto-image-base -Xlinker --out-implib -Xlinker $lib' else ld_shlibs=no fi ;; haiku*) archive_cmds='$CC -shared $libobjs $deplibs $compiler_flags $wl-soname $wl$soname -o $lib' link_all_deplibs=yes ;; os2*) hardcode_libdir_flag_spec='-L$libdir' hardcode_minus_L=yes allow_undefined_flag=unsupported shrext_cmds=.dll archive_cmds='$ECHO "LIBRARY ${soname%$shared_ext} INITINSTANCE TERMINSTANCE" > $output_objdir/$libname.def~ $ECHO "DESCRIPTION \"$libname\"" >> $output_objdir/$libname.def~ $ECHO "DATA MULTIPLE NONSHARED" >> $output_objdir/$libname.def~ $ECHO EXPORTS >> $output_objdir/$libname.def~ emxexp $libobjs | $SED /"_DLL_InitTerm"/d >> $output_objdir/$libname.def~ $CC -Zdll -Zcrtdll -o $output_objdir/$soname $libobjs $deplibs $compiler_flags $output_objdir/$libname.def~ emximp -o $lib $output_objdir/$libname.def' archive_expsym_cmds='$ECHO "LIBRARY ${soname%$shared_ext} INITINSTANCE TERMINSTANCE" > $output_objdir/$libname.def~ $ECHO "DESCRIPTION \"$libname\"" >> $output_objdir/$libname.def~ $ECHO "DATA MULTIPLE NONSHARED" >> $output_objdir/$libname.def~ $ECHO EXPORTS >> $output_objdir/$libname.def~ prefix_cmds="$SED"~ if test EXPORTS = "`$SED 1q $export_symbols`"; then prefix_cmds="$prefix_cmds -e 1d"; fi~ prefix_cmds="$prefix_cmds -e \"s/^\(.*\)$/_\1/g\""~ cat $export_symbols | $prefix_cmds >> $output_objdir/$libname.def~ $CC -Zdll -Zcrtdll -o $output_objdir/$soname $libobjs $deplibs $compiler_flags $output_objdir/$libname.def~ emximp -o $lib $output_objdir/$libname.def' old_archive_From_new_cmds='emximp -o $output_objdir/${libname}_dll.a $output_objdir/$libname.def' enable_shared_with_static_runtimes=yes ;; interix[3-9]*) hardcode_direct=no hardcode_shlibpath_var=no hardcode_libdir_flag_spec='$wl-rpath,$libdir' export_dynamic_flag_spec='$wl-E' # Hack: On Interix 3.x, we cannot compile PIC because of a broken gcc. # Instead, shared libraries are loaded at an image base (0x10000000 by # default) and relocated if they conflict, which is a slow very memory # consuming and fragmenting process. To avoid this, we pick a random, # 256 KiB-aligned image base between 0x50000000 and 0x6FFC0000 at link # time. Moving up from 0x10000000 also allows more sbrk(2) space. archive_cmds='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags $wl-h,$soname $wl--image-base,`expr ${RANDOM-$$} % 4096 / 2 \* 262144 + 1342177280` -o $lib' archive_expsym_cmds='sed "s|^|_|" $export_symbols >$output_objdir/$soname.expsym~$CC -shared $pic_flag $libobjs $deplibs $compiler_flags $wl-h,$soname $wl--retain-symbols-file,$output_objdir/$soname.expsym $wl--image-base,`expr ${RANDOM-$$} % 4096 / 2 \* 262144 + 1342177280` -o $lib' ;; gnu* | linux* | tpf* | k*bsd*-gnu | kopensolaris*-gnu) tmp_diet=no if test linux-dietlibc = "$host_os"; then case $cc_basename in diet\ *) tmp_diet=yes;; # linux-dietlibc with static linking (!diet-dyn) esac fi if $LD --help 2>&1 | $EGREP ': supported targets:.* elf' > /dev/null \ && test no = "$tmp_diet" then tmp_addflag=' $pic_flag' tmp_sharedflag='-shared' case $cc_basename,$host_cpu in pgcc*) # Portland Group C compiler whole_archive_flag_spec='$wl--whole-archive`for conv in $convenience\"\"; do test -n \"$conv\" && new_convenience=\"$new_convenience,$conv\"; done; func_echo_all \"$new_convenience\"` $wl--no-whole-archive' tmp_addflag=' $pic_flag' ;; pgf77* | pgf90* | pgf95* | pgfortran*) # Portland Group f77 and f90 compilers whole_archive_flag_spec='$wl--whole-archive`for conv in $convenience\"\"; do test -n \"$conv\" && new_convenience=\"$new_convenience,$conv\"; done; func_echo_all \"$new_convenience\"` $wl--no-whole-archive' tmp_addflag=' $pic_flag -Mnomain' ;; ecc*,ia64* | icc*,ia64*) # Intel C compiler on ia64 tmp_addflag=' -i_dynamic' ;; efc*,ia64* | ifort*,ia64*) # Intel Fortran compiler on ia64 tmp_addflag=' -i_dynamic -nofor_main' ;; ifc* | ifort*) # Intel Fortran compiler tmp_addflag=' -nofor_main' ;; lf95*) # Lahey Fortran 8.1 whole_archive_flag_spec= tmp_sharedflag='--shared' ;; nagfor*) # NAGFOR 5.3 tmp_sharedflag='-Wl,-shared' ;; xl[cC]* | bgxl[cC]* | mpixl[cC]*) # IBM XL C 8.0 on PPC (deal with xlf below) tmp_sharedflag='-qmkshrobj' tmp_addflag= ;; nvcc*) # Cuda Compiler Driver 2.2 whole_archive_flag_spec='$wl--whole-archive`for conv in $convenience\"\"; do test -n \"$conv\" && new_convenience=\"$new_convenience,$conv\"; done; func_echo_all \"$new_convenience\"` $wl--no-whole-archive' compiler_needs_object=yes ;; esac case `$CC -V 2>&1 | sed 5q` in *Sun\ C*) # Sun C 5.9 whole_archive_flag_spec='$wl--whole-archive`new_convenience=; for conv in $convenience\"\"; do test -z \"$conv\" || new_convenience=\"$new_convenience,$conv\"; done; func_echo_all \"$new_convenience\"` $wl--no-whole-archive' compiler_needs_object=yes tmp_sharedflag='-G' ;; *Sun\ F*) # Sun Fortran 8.3 tmp_sharedflag='-G' ;; esac archive_cmds='$CC '"$tmp_sharedflag""$tmp_addflag"' $libobjs $deplibs $compiler_flags $wl-soname $wl$soname -o $lib' if test yes = "$supports_anon_versioning"; then archive_expsym_cmds='echo "{ global:" > $output_objdir/$libname.ver~ cat $export_symbols | sed -e "s/\(.*\)/\1;/" >> $output_objdir/$libname.ver~ echo "local: *; };" >> $output_objdir/$libname.ver~ $CC '"$tmp_sharedflag""$tmp_addflag"' $libobjs $deplibs $compiler_flags $wl-soname $wl$soname $wl-version-script $wl$output_objdir/$libname.ver -o $lib' fi case $cc_basename in tcc*) export_dynamic_flag_spec='-rdynamic' ;; xlf* | bgf* | bgxlf* | mpixlf*) # IBM XL Fortran 10.1 on PPC cannot create shared libs itself whole_archive_flag_spec='--whole-archive$convenience --no-whole-archive' hardcode_libdir_flag_spec='$wl-rpath $wl$libdir' archive_cmds='$LD -shared $libobjs $deplibs $linker_flags -soname $soname -o $lib' if test yes = "$supports_anon_versioning"; then archive_expsym_cmds='echo "{ global:" > $output_objdir/$libname.ver~ cat $export_symbols | sed -e "s/\(.*\)/\1;/" >> $output_objdir/$libname.ver~ echo "local: *; };" >> $output_objdir/$libname.ver~ $LD -shared $libobjs $deplibs $linker_flags -soname $soname -version-script $output_objdir/$libname.ver -o $lib' fi ;; esac else ld_shlibs=no fi ;; netbsd*) if echo __ELF__ | $CC -E - | $GREP __ELF__ >/dev/null; then archive_cmds='$LD -Bshareable $libobjs $deplibs $linker_flags -o $lib' wlarc= else archive_cmds='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags $wl-soname $wl$soname -o $lib' archive_expsym_cmds='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags $wl-soname $wl$soname $wl-retain-symbols-file $wl$export_symbols -o $lib' fi ;; solaris*) if $LD -v 2>&1 | $GREP 'BFD 2\.8' > /dev/null; then ld_shlibs=no cat <<_LT_EOF 1>&2 *** Warning: The releases 2.8.* of the GNU linker cannot reliably *** create shared libraries on Solaris systems. Therefore, libtool *** is disabling shared libraries support. We urge you to upgrade GNU *** binutils to release 2.9.1 or newer. Another option is to modify *** your PATH or compiler configuration so that the native linker is *** used, and then restart. _LT_EOF elif $LD --help 2>&1 | $GREP ': supported targets:.* elf' > /dev/null; then archive_cmds='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags $wl-soname $wl$soname -o $lib' archive_expsym_cmds='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags $wl-soname $wl$soname $wl-retain-symbols-file $wl$export_symbols -o $lib' else ld_shlibs=no fi ;; sysv5* | sco3.2v5* | sco5v6* | unixware* | OpenUNIX*) case `$LD -v 2>&1` in *\ [01].* | *\ 2.[0-9].* | *\ 2.1[0-5].*) ld_shlibs=no cat <<_LT_EOF 1>&2 *** Warning: Releases of the GNU linker prior to 2.16.91.0.3 cannot *** reliably create shared libraries on SCO systems. Therefore, libtool *** is disabling shared libraries support. We urge you to upgrade GNU *** binutils to release 2.16.91.0.3 or newer. Another option is to modify *** your PATH or compiler configuration so that the native linker is *** used, and then restart. _LT_EOF ;; *) # For security reasons, it is highly recommended that you always # use absolute paths for naming shared libraries, and exclude the # DT_RUNPATH tag from executables and libraries. But doing so # requires that you compile everything twice, which is a pain. if $LD --help 2>&1 | $GREP ': supported targets:.* elf' > /dev/null; then hardcode_libdir_flag_spec='$wl-rpath $wl$libdir' archive_cmds='$CC -shared $libobjs $deplibs $compiler_flags $wl-soname $wl$soname -o $lib' archive_expsym_cmds='$CC -shared $libobjs $deplibs $compiler_flags $wl-soname $wl$soname $wl-retain-symbols-file $wl$export_symbols -o $lib' else ld_shlibs=no fi ;; esac ;; sunos4*) archive_cmds='$LD -assert pure-text -Bshareable -o $lib $libobjs $deplibs $linker_flags' wlarc= hardcode_direct=yes hardcode_shlibpath_var=no ;; *) if $LD --help 2>&1 | $GREP ': supported targets:.* elf' > /dev/null; then archive_cmds='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags $wl-soname $wl$soname -o $lib' archive_expsym_cmds='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags $wl-soname $wl$soname $wl-retain-symbols-file $wl$export_symbols -o $lib' else ld_shlibs=no fi ;; esac if test no = "$ld_shlibs"; then runpath_var= hardcode_libdir_flag_spec= export_dynamic_flag_spec= whole_archive_flag_spec= fi else # PORTME fill in a description of your system's linker (not GNU ld) case $host_os in aix3*) allow_undefined_flag=unsupported always_export_symbols=yes archive_expsym_cmds='$LD -o $output_objdir/$soname $libobjs $deplibs $linker_flags -bE:$export_symbols -T512 -H512 -bM:SRE~$AR $AR_FLAGS $lib $output_objdir/$soname' # Note: this linker hardcodes the directories in LIBPATH if there # are no directories specified by -L. hardcode_minus_L=yes if test yes = "$GCC" && test -z "$lt_prog_compiler_static"; then # Neither direct hardcoding nor static linking is supported with a # broken collect2. hardcode_direct=unsupported fi ;; aix[4-9]*) if test ia64 = "$host_cpu"; then # On IA64, the linker does run time linking by default, so we don't # have to do anything special. aix_use_runtimelinking=no exp_sym_flag='-Bexport' no_entry_flag= else # If we're using GNU nm, then we don't want the "-C" option. # -C means demangle to GNU nm, but means don't demangle to AIX nm. # Without the "-l" option, or with the "-B" option, AIX nm treats # weak defined symbols like other global defined symbols, whereas # GNU nm marks them as "W". # While the 'weak' keyword is ignored in the Export File, we need # it in the Import File for the 'aix-soname' feature, so we have # to replace the "-B" option with "-P" for AIX nm. if $NM -V 2>&1 | $GREP 'GNU' > /dev/null; then export_symbols_cmds='$NM -Bpg $libobjs $convenience | awk '\''{ if (((\$ 2 == "T") || (\$ 2 == "D") || (\$ 2 == "B") || (\$ 2 == "W")) && (substr(\$ 3,1,1) != ".")) { if (\$ 2 == "W") { print \$ 3 " weak" } else { print \$ 3 } } }'\'' | sort -u > $export_symbols' else export_symbols_cmds='`func_echo_all $NM | $SED -e '\''s/B\([^B]*\)$/P\1/'\''` -PCpgl $libobjs $convenience | awk '\''{ if (((\$ 2 == "T") || (\$ 2 == "D") || (\$ 2 == "B") || (\$ 2 == "W") || (\$ 2 == "V") || (\$ 2 == "Z")) && (substr(\$ 1,1,1) != ".")) { if ((\$ 2 == "W") || (\$ 2 == "V") || (\$ 2 == "Z")) { print \$ 1 " weak" } else { print \$ 1 } } }'\'' | sort -u > $export_symbols' fi aix_use_runtimelinking=no # Test if we are trying to use run time linking or normal # AIX style linking. If -brtl is somewhere in LDFLAGS, we # have runtime linking enabled, and use it for executables. # For shared libraries, we enable/disable runtime linking # depending on the kind of the shared library created - # when "with_aix_soname,aix_use_runtimelinking" is: # "aix,no" lib.a(lib.so.V) shared, rtl:no, for executables # "aix,yes" lib.so shared, rtl:yes, for executables # lib.a static archive # "both,no" lib.so.V(shr.o) shared, rtl:yes # lib.a(lib.so.V) shared, rtl:no, for executables # "both,yes" lib.so.V(shr.o) shared, rtl:yes, for executables # lib.a(lib.so.V) shared, rtl:no # "svr4,*" lib.so.V(shr.o) shared, rtl:yes, for executables # lib.a static archive case $host_os in aix4.[23]|aix4.[23].*|aix[5-9]*) for ld_flag in $LDFLAGS; do if (test x-brtl = "x$ld_flag" || test x-Wl,-brtl = "x$ld_flag"); then aix_use_runtimelinking=yes break fi done if test svr4,no = "$with_aix_soname,$aix_use_runtimelinking"; then # With aix-soname=svr4, we create the lib.so.V shared archives only, # so we don't have lib.a shared libs to link our executables. # We have to force runtime linking in this case. aix_use_runtimelinking=yes LDFLAGS="$LDFLAGS -Wl,-brtl" fi ;; esac exp_sym_flag='-bexport' no_entry_flag='-bnoentry' fi # When large executables or shared objects are built, AIX ld can # have problems creating the table of contents. If linking a library # or program results in "error TOC overflow" add -mminimal-toc to # CXXFLAGS/CFLAGS for g++/gcc. In the cases where that is not # enough to fix the problem, add -Wl,-bbigtoc to LDFLAGS. archive_cmds='' hardcode_direct=yes hardcode_direct_absolute=yes hardcode_libdir_separator=':' link_all_deplibs=yes file_list_spec='$wl-f,' case $with_aix_soname,$aix_use_runtimelinking in aix,*) ;; # traditional, no import file svr4,* | *,yes) # use import file # The Import File defines what to hardcode. hardcode_direct=no hardcode_direct_absolute=no ;; esac if test yes = "$GCC"; then case $host_os in aix4.[012]|aix4.[012].*) # We only want to do this on AIX 4.2 and lower, the check # below for broken collect2 doesn't work under 4.3+ collect2name=`$CC -print-prog-name=collect2` if test -f "$collect2name" && strings "$collect2name" | $GREP resolve_lib_name >/dev/null then # We have reworked collect2 : else # We have old collect2 hardcode_direct=unsupported # It fails to find uninstalled libraries when the uninstalled # path is not listed in the libpath. Setting hardcode_minus_L # to unsupported forces relinking hardcode_minus_L=yes hardcode_libdir_flag_spec='-L$libdir' hardcode_libdir_separator= fi ;; esac shared_flag='-shared' if test yes = "$aix_use_runtimelinking"; then shared_flag="$shared_flag "'$wl-G' fi # Need to ensure runtime linking is disabled for the traditional # shared library, or the linker may eventually find shared libraries # /with/ Import File - we do not want to mix them. shared_flag_aix='-shared' shared_flag_svr4='-shared $wl-G' else # not using gcc if test ia64 = "$host_cpu"; then # VisualAge C++, Version 5.5 for AIX 5L for IA-64, Beta 3 Release # chokes on -Wl,-G. The following line is correct: shared_flag='-G' else if test yes = "$aix_use_runtimelinking"; then shared_flag='$wl-G' else shared_flag='$wl-bM:SRE' fi shared_flag_aix='$wl-bM:SRE' shared_flag_svr4='$wl-G' fi fi export_dynamic_flag_spec='$wl-bexpall' # It seems that -bexpall does not export symbols beginning with # underscore (_), so it is better to generate a list of symbols to export. always_export_symbols=yes if test aix,yes = "$with_aix_soname,$aix_use_runtimelinking"; then # Warning - without using the other runtime loading flags (-brtl), # -berok will link without error, but may produce a broken library. allow_undefined_flag='-berok' # Determine the default libpath from the value encoded in an # empty executable. if test set = "${lt_cv_aix_libpath+set}"; then aix_libpath=$lt_cv_aix_libpath else if ${lt_cv_aix_libpath_+:} false; then : $as_echo_n "(cached) " >&6 else cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ int main () { ; return 0; } _ACEOF if ac_fn_c_try_link "$LINENO"; then : lt_aix_libpath_sed=' /Import File Strings/,/^$/ { /^0/ { s/^0 *\([^ ]*\) *$/\1/ p } }' lt_cv_aix_libpath_=`dump -H conftest$ac_exeext 2>/dev/null | $SED -n -e "$lt_aix_libpath_sed"` # Check for a 64-bit object if we didn't find anything. if test -z "$lt_cv_aix_libpath_"; then lt_cv_aix_libpath_=`dump -HX64 conftest$ac_exeext 2>/dev/null | $SED -n -e "$lt_aix_libpath_sed"` fi fi rm -f core conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext if test -z "$lt_cv_aix_libpath_"; then lt_cv_aix_libpath_=/usr/lib:/lib fi fi aix_libpath=$lt_cv_aix_libpath_ fi hardcode_libdir_flag_spec='$wl-blibpath:$libdir:'"$aix_libpath" archive_expsym_cmds='$CC -o $output_objdir/$soname $libobjs $deplibs $wl'$no_entry_flag' $compiler_flags `if test -n "$allow_undefined_flag"; then func_echo_all "$wl$allow_undefined_flag"; else :; fi` $wl'$exp_sym_flag:\$export_symbols' '$shared_flag else if test ia64 = "$host_cpu"; then hardcode_libdir_flag_spec='$wl-R $libdir:/usr/lib:/lib' allow_undefined_flag="-z nodefs" archive_expsym_cmds="\$CC $shared_flag"' -o $output_objdir/$soname $libobjs $deplibs '"\$wl$no_entry_flag"' $compiler_flags $wl$allow_undefined_flag '"\$wl$exp_sym_flag:\$export_symbols" else # Determine the default libpath from the value encoded in an # empty executable. if test set = "${lt_cv_aix_libpath+set}"; then aix_libpath=$lt_cv_aix_libpath else if ${lt_cv_aix_libpath_+:} false; then : $as_echo_n "(cached) " >&6 else cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ int main () { ; return 0; } _ACEOF if ac_fn_c_try_link "$LINENO"; then : lt_aix_libpath_sed=' /Import File Strings/,/^$/ { /^0/ { s/^0 *\([^ ]*\) *$/\1/ p } }' lt_cv_aix_libpath_=`dump -H conftest$ac_exeext 2>/dev/null | $SED -n -e "$lt_aix_libpath_sed"` # Check for a 64-bit object if we didn't find anything. if test -z "$lt_cv_aix_libpath_"; then lt_cv_aix_libpath_=`dump -HX64 conftest$ac_exeext 2>/dev/null | $SED -n -e "$lt_aix_libpath_sed"` fi fi rm -f core conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext if test -z "$lt_cv_aix_libpath_"; then lt_cv_aix_libpath_=/usr/lib:/lib fi fi aix_libpath=$lt_cv_aix_libpath_ fi hardcode_libdir_flag_spec='$wl-blibpath:$libdir:'"$aix_libpath" # Warning - without using the other run time loading flags, # -berok will link without error, but may produce a broken library. no_undefined_flag=' $wl-bernotok' allow_undefined_flag=' $wl-berok' if test yes = "$with_gnu_ld"; then # We only use this code for GNU lds that support --whole-archive. whole_archive_flag_spec='$wl--whole-archive$convenience $wl--no-whole-archive' else # Exported symbols can be pulled into shared objects from archives whole_archive_flag_spec='$convenience' fi archive_cmds_need_lc=yes archive_expsym_cmds='$RM -r $output_objdir/$realname.d~$MKDIR $output_objdir/$realname.d' # -brtl affects multiple linker settings, -berok does not and is overridden later compiler_flags_filtered='`func_echo_all "$compiler_flags " | $SED -e "s%-brtl\\([, ]\\)%-berok\\1%g"`' if test svr4 != "$with_aix_soname"; then # This is similar to how AIX traditionally builds its shared libraries. archive_expsym_cmds="$archive_expsym_cmds"'~$CC '$shared_flag_aix' -o $output_objdir/$realname.d/$soname $libobjs $deplibs $wl-bnoentry '$compiler_flags_filtered'$wl-bE:$export_symbols$allow_undefined_flag~$AR $AR_FLAGS $output_objdir/$libname$release.a $output_objdir/$realname.d/$soname' fi if test aix != "$with_aix_soname"; then archive_expsym_cmds="$archive_expsym_cmds"'~$CC '$shared_flag_svr4' -o $output_objdir/$realname.d/$shared_archive_member_spec.o $libobjs $deplibs $wl-bnoentry '$compiler_flags_filtered'$wl-bE:$export_symbols$allow_undefined_flag~$STRIP -e $output_objdir/$realname.d/$shared_archive_member_spec.o~( func_echo_all "#! $soname($shared_archive_member_spec.o)"; if test shr_64 = "$shared_archive_member_spec"; then func_echo_all "# 64"; else func_echo_all "# 32"; fi; cat $export_symbols ) > $output_objdir/$realname.d/$shared_archive_member_spec.imp~$AR $AR_FLAGS $output_objdir/$soname $output_objdir/$realname.d/$shared_archive_member_spec.o $output_objdir/$realname.d/$shared_archive_member_spec.imp' else # used by -dlpreopen to get the symbols archive_expsym_cmds="$archive_expsym_cmds"'~$MV $output_objdir/$realname.d/$soname $output_objdir' fi archive_expsym_cmds="$archive_expsym_cmds"'~$RM -r $output_objdir/$realname.d' fi fi ;; amigaos*) case $host_cpu in powerpc) # see comment about AmigaOS4 .so support archive_cmds='$CC -shared $libobjs $deplibs $compiler_flags $wl-soname $wl$soname -o $lib' archive_expsym_cmds='' ;; m68k) archive_cmds='$RM $output_objdir/a2ixlibrary.data~$ECHO "#define NAME $libname" > $output_objdir/a2ixlibrary.data~$ECHO "#define LIBRARY_ID 1" >> $output_objdir/a2ixlibrary.data~$ECHO "#define VERSION $major" >> $output_objdir/a2ixlibrary.data~$ECHO "#define REVISION $revision" >> $output_objdir/a2ixlibrary.data~$AR $AR_FLAGS $lib $libobjs~$RANLIB $lib~(cd $output_objdir && a2ixlibrary -32)' hardcode_libdir_flag_spec='-L$libdir' hardcode_minus_L=yes ;; esac ;; bsdi[45]*) export_dynamic_flag_spec=-rdynamic ;; cygwin* | mingw* | pw32* | cegcc*) # When not using gcc, we currently assume that we are using # Microsoft Visual C++. # hardcode_libdir_flag_spec is actually meaningless, as there is # no search path for DLLs. case $cc_basename in cl*) # Native MSVC hardcode_libdir_flag_spec=' ' allow_undefined_flag=unsupported always_export_symbols=yes file_list_spec='@' # Tell ltmain to make .lib files, not .a files. libext=lib # Tell ltmain to make .dll files, not .so files. shrext_cmds=.dll # FIXME: Setting linknames here is a bad hack. archive_cmds='$CC -o $output_objdir/$soname $libobjs $compiler_flags $deplibs -Wl,-DLL,-IMPLIB:"$tool_output_objdir$libname.dll.lib"~linknames=' archive_expsym_cmds='if test DEF = "`$SED -n -e '\''s/^[ ]*//'\'' -e '\''/^\(;.*\)*$/d'\'' -e '\''s/^\(EXPORTS\|LIBRARY\)\([ ].*\)*$/DEF/p'\'' -e q $export_symbols`" ; then cp "$export_symbols" "$output_objdir/$soname.def"; echo "$tool_output_objdir$soname.def" > "$output_objdir/$soname.exp"; else $SED -e '\''s/^/-link -EXPORT:/'\'' < $export_symbols > $output_objdir/$soname.exp; fi~ $CC -o $tool_output_objdir$soname $libobjs $compiler_flags $deplibs "@$tool_output_objdir$soname.exp" -Wl,-DLL,-IMPLIB:"$tool_output_objdir$libname.dll.lib"~ linknames=' # The linker will not automatically build a static lib if we build a DLL. # _LT_TAGVAR(old_archive_from_new_cmds, )='true' enable_shared_with_static_runtimes=yes exclude_expsyms='_NULL_IMPORT_DESCRIPTOR|_IMPORT_DESCRIPTOR_.*' export_symbols_cmds='$NM $libobjs $convenience | $global_symbol_pipe | $SED -e '\''/^[BCDGRS][ ]/s/.*[ ]\([^ ]*\)/\1,DATA/'\'' | $SED -e '\''/^[AITW][ ]/s/.*[ ]//'\'' | sort | uniq > $export_symbols' # Don't use ranlib old_postinstall_cmds='chmod 644 $oldlib' postlink_cmds='lt_outputfile="@OUTPUT@"~ lt_tool_outputfile="@TOOL_OUTPUT@"~ case $lt_outputfile in *.exe|*.EXE) ;; *) lt_outputfile=$lt_outputfile.exe lt_tool_outputfile=$lt_tool_outputfile.exe ;; esac~ if test : != "$MANIFEST_TOOL" && test -f "$lt_outputfile.manifest"; then $MANIFEST_TOOL -manifest "$lt_tool_outputfile.manifest" -outputresource:"$lt_tool_outputfile" || exit 1; $RM "$lt_outputfile.manifest"; fi' ;; *) # Assume MSVC wrapper hardcode_libdir_flag_spec=' ' allow_undefined_flag=unsupported # Tell ltmain to make .lib files, not .a files. libext=lib # Tell ltmain to make .dll files, not .so files. shrext_cmds=.dll # FIXME: Setting linknames here is a bad hack. archive_cmds='$CC -o $lib $libobjs $compiler_flags `func_echo_all "$deplibs" | $SED '\''s/ -lc$//'\''` -link -dll~linknames=' # The linker will automatically build a .lib file if we build a DLL. old_archive_from_new_cmds='true' # FIXME: Should let the user specify the lib program. old_archive_cmds='lib -OUT:$oldlib$oldobjs$old_deplibs' enable_shared_with_static_runtimes=yes ;; esac ;; darwin* | rhapsody*) archive_cmds_need_lc=no hardcode_direct=no hardcode_automatic=yes hardcode_shlibpath_var=unsupported if test yes = "$lt_cv_ld_force_load"; then whole_archive_flag_spec='`for conv in $convenience\"\"; do test -n \"$conv\" && new_convenience=\"$new_convenience $wl-force_load,$conv\"; done; func_echo_all \"$new_convenience\"`' else whole_archive_flag_spec='' fi link_all_deplibs=yes allow_undefined_flag=$_lt_dar_allow_undefined case $cc_basename in ifort*|nagfor*) _lt_dar_can_shared=yes ;; *) _lt_dar_can_shared=$GCC ;; esac if test yes = "$_lt_dar_can_shared"; then output_verbose_link_cmd=func_echo_all archive_cmds="\$CC -dynamiclib \$allow_undefined_flag -o \$lib \$libobjs \$deplibs \$compiler_flags -install_name \$rpath/\$soname \$verstring $_lt_dar_single_mod$_lt_dsymutil" module_cmds="\$CC \$allow_undefined_flag -o \$lib -bundle \$libobjs \$deplibs \$compiler_flags$_lt_dsymutil" archive_expsym_cmds="sed 's|^|_|' < \$export_symbols > \$output_objdir/\$libname-symbols.expsym~\$CC -dynamiclib \$allow_undefined_flag -o \$lib \$libobjs \$deplibs \$compiler_flags -install_name \$rpath/\$soname \$verstring $_lt_dar_single_mod$_lt_dar_export_syms$_lt_dsymutil" module_expsym_cmds="sed -e 's|^|_|' < \$export_symbols > \$output_objdir/\$libname-symbols.expsym~\$CC \$allow_undefined_flag -o \$lib -bundle \$libobjs \$deplibs \$compiler_flags$_lt_dar_export_syms$_lt_dsymutil" else ld_shlibs=no fi ;; dgux*) archive_cmds='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags' hardcode_libdir_flag_spec='-L$libdir' hardcode_shlibpath_var=no ;; # FreeBSD 2.2.[012] allows us to include c++rt0.o to get C++ constructor # support. Future versions do this automatically, but an explicit c++rt0.o # does not break anything, and helps significantly (at the cost of a little # extra space). freebsd2.2*) archive_cmds='$LD -Bshareable -o $lib $libobjs $deplibs $linker_flags /usr/lib/c++rt0.o' hardcode_libdir_flag_spec='-R$libdir' hardcode_direct=yes hardcode_shlibpath_var=no ;; # Unfortunately, older versions of FreeBSD 2 do not have this feature. freebsd2.*) archive_cmds='$LD -Bshareable -o $lib $libobjs $deplibs $linker_flags' hardcode_direct=yes hardcode_minus_L=yes hardcode_shlibpath_var=no ;; # FreeBSD 3 and greater uses gcc -shared to do shared libraries. freebsd* | dragonfly*) archive_cmds='$CC -shared $pic_flag -o $lib $libobjs $deplibs $compiler_flags' hardcode_libdir_flag_spec='-R$libdir' hardcode_direct=yes hardcode_shlibpath_var=no ;; hpux9*) if test yes = "$GCC"; then archive_cmds='$RM $output_objdir/$soname~$CC -shared $pic_flag $wl+b $wl$install_libdir -o $output_objdir/$soname $libobjs $deplibs $compiler_flags~test "x$output_objdir/$soname" = "x$lib" || mv $output_objdir/$soname $lib' else archive_cmds='$RM $output_objdir/$soname~$LD -b +b $install_libdir -o $output_objdir/$soname $libobjs $deplibs $linker_flags~test "x$output_objdir/$soname" = "x$lib" || mv $output_objdir/$soname $lib' fi hardcode_libdir_flag_spec='$wl+b $wl$libdir' hardcode_libdir_separator=: hardcode_direct=yes # hardcode_minus_L: Not really in the search PATH, # but as the default location of the library. hardcode_minus_L=yes export_dynamic_flag_spec='$wl-E' ;; hpux10*) if test yes,no = "$GCC,$with_gnu_ld"; then archive_cmds='$CC -shared $pic_flag $wl+h $wl$soname $wl+b $wl$install_libdir -o $lib $libobjs $deplibs $compiler_flags' else archive_cmds='$LD -b +h $soname +b $install_libdir -o $lib $libobjs $deplibs $linker_flags' fi if test no = "$with_gnu_ld"; then hardcode_libdir_flag_spec='$wl+b $wl$libdir' hardcode_libdir_separator=: hardcode_direct=yes hardcode_direct_absolute=yes export_dynamic_flag_spec='$wl-E' # hardcode_minus_L: Not really in the search PATH, # but as the default location of the library. hardcode_minus_L=yes fi ;; hpux11*) if test yes,no = "$GCC,$with_gnu_ld"; then case $host_cpu in hppa*64*) archive_cmds='$CC -shared $wl+h $wl$soname -o $lib $libobjs $deplibs $compiler_flags' ;; ia64*) archive_cmds='$CC -shared $pic_flag $wl+h $wl$soname $wl+nodefaultrpath -o $lib $libobjs $deplibs $compiler_flags' ;; *) archive_cmds='$CC -shared $pic_flag $wl+h $wl$soname $wl+b $wl$install_libdir -o $lib $libobjs $deplibs $compiler_flags' ;; esac else case $host_cpu in hppa*64*) archive_cmds='$CC -b $wl+h $wl$soname -o $lib $libobjs $deplibs $compiler_flags' ;; ia64*) archive_cmds='$CC -b $wl+h $wl$soname $wl+nodefaultrpath -o $lib $libobjs $deplibs $compiler_flags' ;; *) # Older versions of the 11.00 compiler do not understand -b yet # (HP92453-01 A.11.01.20 doesn't, HP92453-01 B.11.X.35175-35176.GP does) { $as_echo "$as_me:${as_lineno-$LINENO}: checking if $CC understands -b" >&5 $as_echo_n "checking if $CC understands -b... " >&6; } if ${lt_cv_prog_compiler__b+:} false; then : $as_echo_n "(cached) " >&6 else lt_cv_prog_compiler__b=no save_LDFLAGS=$LDFLAGS LDFLAGS="$LDFLAGS -b" echo "$lt_simple_link_test_code" > conftest.$ac_ext if (eval $ac_link 2>conftest.err) && test -s conftest$ac_exeext; then # The linker can only warn and ignore the option if not recognized # So say no if there are warnings if test -s conftest.err; then # Append any errors to the config.log. cat conftest.err 1>&5 $ECHO "$_lt_linker_boilerplate" | $SED '/^$/d' > conftest.exp $SED '/^$/d; /^ *+/d' conftest.err >conftest.er2 if diff conftest.exp conftest.er2 >/dev/null; then lt_cv_prog_compiler__b=yes fi else lt_cv_prog_compiler__b=yes fi fi $RM -r conftest* LDFLAGS=$save_LDFLAGS fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_prog_compiler__b" >&5 $as_echo "$lt_cv_prog_compiler__b" >&6; } if test yes = "$lt_cv_prog_compiler__b"; then archive_cmds='$CC -b $wl+h $wl$soname $wl+b $wl$install_libdir -o $lib $libobjs $deplibs $compiler_flags' else archive_cmds='$LD -b +h $soname +b $install_libdir -o $lib $libobjs $deplibs $linker_flags' fi ;; esac fi if test no = "$with_gnu_ld"; then hardcode_libdir_flag_spec='$wl+b $wl$libdir' hardcode_libdir_separator=: case $host_cpu in hppa*64*|ia64*) hardcode_direct=no hardcode_shlibpath_var=no ;; *) hardcode_direct=yes hardcode_direct_absolute=yes export_dynamic_flag_spec='$wl-E' # hardcode_minus_L: Not really in the search PATH, # but as the default location of the library. hardcode_minus_L=yes ;; esac fi ;; irix5* | irix6* | nonstopux*) if test yes = "$GCC"; then archive_cmds='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags $wl-soname $wl$soname `test -n "$verstring" && func_echo_all "$wl-set_version $wl$verstring"` $wl-update_registry $wl$output_objdir/so_locations -o $lib' # Try to use the -exported_symbol ld option, if it does not # work, assume that -exports_file does not work either and # implicitly export all symbols. # This should be the same for all languages, so no per-tag cache variable. { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether the $host_os linker accepts -exported_symbol" >&5 $as_echo_n "checking whether the $host_os linker accepts -exported_symbol... " >&6; } if ${lt_cv_irix_exported_symbol+:} false; then : $as_echo_n "(cached) " >&6 else save_LDFLAGS=$LDFLAGS LDFLAGS="$LDFLAGS -shared $wl-exported_symbol ${wl}foo $wl-update_registry $wl/dev/null" cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ int foo (void) { return 0; } _ACEOF if ac_fn_c_try_link "$LINENO"; then : lt_cv_irix_exported_symbol=yes else lt_cv_irix_exported_symbol=no fi rm -f core conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext LDFLAGS=$save_LDFLAGS fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_irix_exported_symbol" >&5 $as_echo "$lt_cv_irix_exported_symbol" >&6; } if test yes = "$lt_cv_irix_exported_symbol"; then archive_expsym_cmds='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags $wl-soname $wl$soname `test -n "$verstring" && func_echo_all "$wl-set_version $wl$verstring"` $wl-update_registry $wl$output_objdir/so_locations $wl-exports_file $wl$export_symbols -o $lib' fi else archive_cmds='$CC -shared $libobjs $deplibs $compiler_flags -soname $soname `test -n "$verstring" && func_echo_all "-set_version $verstring"` -update_registry $output_objdir/so_locations -o $lib' archive_expsym_cmds='$CC -shared $libobjs $deplibs $compiler_flags -soname $soname `test -n "$verstring" && func_echo_all "-set_version $verstring"` -update_registry $output_objdir/so_locations -exports_file $export_symbols -o $lib' fi archive_cmds_need_lc='no' hardcode_libdir_flag_spec='$wl-rpath $wl$libdir' hardcode_libdir_separator=: inherit_rpath=yes link_all_deplibs=yes ;; linux*) case $cc_basename in tcc*) # Fabrice Bellard et al's Tiny C Compiler ld_shlibs=yes archive_cmds='$CC -shared $pic_flag -o $lib $libobjs $deplibs $compiler_flags' ;; esac ;; netbsd*) if echo __ELF__ | $CC -E - | $GREP __ELF__ >/dev/null; then archive_cmds='$LD -Bshareable -o $lib $libobjs $deplibs $linker_flags' # a.out else archive_cmds='$LD -shared -o $lib $libobjs $deplibs $linker_flags' # ELF fi hardcode_libdir_flag_spec='-R$libdir' hardcode_direct=yes hardcode_shlibpath_var=no ;; newsos6) archive_cmds='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags' hardcode_direct=yes hardcode_libdir_flag_spec='$wl-rpath $wl$libdir' hardcode_libdir_separator=: hardcode_shlibpath_var=no ;; *nto* | *qnx*) ;; openbsd* | bitrig*) if test -f /usr/libexec/ld.so; then hardcode_direct=yes hardcode_shlibpath_var=no hardcode_direct_absolute=yes if test -z "`echo __ELF__ | $CC -E - | $GREP __ELF__`"; then archive_cmds='$CC -shared $pic_flag -o $lib $libobjs $deplibs $compiler_flags' archive_expsym_cmds='$CC -shared $pic_flag -o $lib $libobjs $deplibs $compiler_flags $wl-retain-symbols-file,$export_symbols' hardcode_libdir_flag_spec='$wl-rpath,$libdir' export_dynamic_flag_spec='$wl-E' else archive_cmds='$CC -shared $pic_flag -o $lib $libobjs $deplibs $compiler_flags' hardcode_libdir_flag_spec='$wl-rpath,$libdir' fi else ld_shlibs=no fi ;; os2*) hardcode_libdir_flag_spec='-L$libdir' hardcode_minus_L=yes allow_undefined_flag=unsupported shrext_cmds=.dll archive_cmds='$ECHO "LIBRARY ${soname%$shared_ext} INITINSTANCE TERMINSTANCE" > $output_objdir/$libname.def~ $ECHO "DESCRIPTION \"$libname\"" >> $output_objdir/$libname.def~ $ECHO "DATA MULTIPLE NONSHARED" >> $output_objdir/$libname.def~ $ECHO EXPORTS >> $output_objdir/$libname.def~ emxexp $libobjs | $SED /"_DLL_InitTerm"/d >> $output_objdir/$libname.def~ $CC -Zdll -Zcrtdll -o $output_objdir/$soname $libobjs $deplibs $compiler_flags $output_objdir/$libname.def~ emximp -o $lib $output_objdir/$libname.def' archive_expsym_cmds='$ECHO "LIBRARY ${soname%$shared_ext} INITINSTANCE TERMINSTANCE" > $output_objdir/$libname.def~ $ECHO "DESCRIPTION \"$libname\"" >> $output_objdir/$libname.def~ $ECHO "DATA MULTIPLE NONSHARED" >> $output_objdir/$libname.def~ $ECHO EXPORTS >> $output_objdir/$libname.def~ prefix_cmds="$SED"~ if test EXPORTS = "`$SED 1q $export_symbols`"; then prefix_cmds="$prefix_cmds -e 1d"; fi~ prefix_cmds="$prefix_cmds -e \"s/^\(.*\)$/_\1/g\""~ cat $export_symbols | $prefix_cmds >> $output_objdir/$libname.def~ $CC -Zdll -Zcrtdll -o $output_objdir/$soname $libobjs $deplibs $compiler_flags $output_objdir/$libname.def~ emximp -o $lib $output_objdir/$libname.def' old_archive_From_new_cmds='emximp -o $output_objdir/${libname}_dll.a $output_objdir/$libname.def' enable_shared_with_static_runtimes=yes ;; osf3*) if test yes = "$GCC"; then allow_undefined_flag=' $wl-expect_unresolved $wl\*' archive_cmds='$CC -shared$allow_undefined_flag $libobjs $deplibs $compiler_flags $wl-soname $wl$soname `test -n "$verstring" && func_echo_all "$wl-set_version $wl$verstring"` $wl-update_registry $wl$output_objdir/so_locations -o $lib' else allow_undefined_flag=' -expect_unresolved \*' archive_cmds='$CC -shared$allow_undefined_flag $libobjs $deplibs $compiler_flags -soname $soname `test -n "$verstring" && func_echo_all "-set_version $verstring"` -update_registry $output_objdir/so_locations -o $lib' fi archive_cmds_need_lc='no' hardcode_libdir_flag_spec='$wl-rpath $wl$libdir' hardcode_libdir_separator=: ;; osf4* | osf5*) # as osf3* with the addition of -msym flag if test yes = "$GCC"; then allow_undefined_flag=' $wl-expect_unresolved $wl\*' archive_cmds='$CC -shared$allow_undefined_flag $pic_flag $libobjs $deplibs $compiler_flags $wl-msym $wl-soname $wl$soname `test -n "$verstring" && func_echo_all "$wl-set_version $wl$verstring"` $wl-update_registry $wl$output_objdir/so_locations -o $lib' hardcode_libdir_flag_spec='$wl-rpath $wl$libdir' else allow_undefined_flag=' -expect_unresolved \*' archive_cmds='$CC -shared$allow_undefined_flag $libobjs $deplibs $compiler_flags -msym -soname $soname `test -n "$verstring" && func_echo_all "-set_version $verstring"` -update_registry $output_objdir/so_locations -o $lib' archive_expsym_cmds='for i in `cat $export_symbols`; do printf "%s %s\\n" -exported_symbol "\$i" >> $lib.exp; done; printf "%s\\n" "-hidden">> $lib.exp~ $CC -shared$allow_undefined_flag $wl-input $wl$lib.exp $compiler_flags $libobjs $deplibs -soname $soname `test -n "$verstring" && $ECHO "-set_version $verstring"` -update_registry $output_objdir/so_locations -o $lib~$RM $lib.exp' # Both c and cxx compiler support -rpath directly hardcode_libdir_flag_spec='-rpath $libdir' fi archive_cmds_need_lc='no' hardcode_libdir_separator=: ;; solaris*) no_undefined_flag=' -z defs' if test yes = "$GCC"; then wlarc='$wl' archive_cmds='$CC -shared $pic_flag $wl-z ${wl}text $wl-h $wl$soname -o $lib $libobjs $deplibs $compiler_flags' archive_expsym_cmds='echo "{ global:" > $lib.exp~cat $export_symbols | $SED -e "s/\(.*\)/\1;/" >> $lib.exp~echo "local: *; };" >> $lib.exp~ $CC -shared $pic_flag $wl-z ${wl}text $wl-M $wl$lib.exp $wl-h $wl$soname -o $lib $libobjs $deplibs $compiler_flags~$RM $lib.exp' else case `$CC -V 2>&1` in *"Compilers 5.0"*) wlarc='' archive_cmds='$LD -G$allow_undefined_flag -h $soname -o $lib $libobjs $deplibs $linker_flags' archive_expsym_cmds='echo "{ global:" > $lib.exp~cat $export_symbols | $SED -e "s/\(.*\)/\1;/" >> $lib.exp~echo "local: *; };" >> $lib.exp~ $LD -G$allow_undefined_flag -M $lib.exp -h $soname -o $lib $libobjs $deplibs $linker_flags~$RM $lib.exp' ;; *) wlarc='$wl' archive_cmds='$CC -G$allow_undefined_flag -h $soname -o $lib $libobjs $deplibs $compiler_flags' archive_expsym_cmds='echo "{ global:" > $lib.exp~cat $export_symbols | $SED -e "s/\(.*\)/\1;/" >> $lib.exp~echo "local: *; };" >> $lib.exp~ $CC -G$allow_undefined_flag -M $lib.exp -h $soname -o $lib $libobjs $deplibs $compiler_flags~$RM $lib.exp' ;; esac fi hardcode_libdir_flag_spec='-R$libdir' hardcode_shlibpath_var=no case $host_os in solaris2.[0-5] | solaris2.[0-5].*) ;; *) # The compiler driver will combine and reorder linker options, # but understands '-z linker_flag'. GCC discards it without '$wl', # but is careful enough not to reorder. # Supported since Solaris 2.6 (maybe 2.5.1?) if test yes = "$GCC"; then whole_archive_flag_spec='$wl-z ${wl}allextract$convenience $wl-z ${wl}defaultextract' else whole_archive_flag_spec='-z allextract$convenience -z defaultextract' fi ;; esac link_all_deplibs=yes ;; sunos4*) if test sequent = "$host_vendor"; then # Use $CC to link under sequent, because it throws in some extra .o # files that make .init and .fini sections work. archive_cmds='$CC -G $wl-h $soname -o $lib $libobjs $deplibs $compiler_flags' else archive_cmds='$LD -assert pure-text -Bstatic -o $lib $libobjs $deplibs $linker_flags' fi hardcode_libdir_flag_spec='-L$libdir' hardcode_direct=yes hardcode_minus_L=yes hardcode_shlibpath_var=no ;; sysv4) case $host_vendor in sni) archive_cmds='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags' hardcode_direct=yes # is this really true??? ;; siemens) ## LD is ld it makes a PLAMLIB ## CC just makes a GrossModule. archive_cmds='$LD -G -o $lib $libobjs $deplibs $linker_flags' reload_cmds='$CC -r -o $output$reload_objs' hardcode_direct=no ;; motorola) archive_cmds='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags' hardcode_direct=no #Motorola manual says yes, but my tests say they lie ;; esac runpath_var='LD_RUN_PATH' hardcode_shlibpath_var=no ;; sysv4.3*) archive_cmds='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags' hardcode_shlibpath_var=no export_dynamic_flag_spec='-Bexport' ;; sysv4*MP*) if test -d /usr/nec; then archive_cmds='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags' hardcode_shlibpath_var=no runpath_var=LD_RUN_PATH hardcode_runpath_var=yes ld_shlibs=yes fi ;; sysv4*uw2* | sysv5OpenUNIX* | sysv5UnixWare7.[01].[10]* | unixware7* | sco3.2v5.0.[024]*) no_undefined_flag='$wl-z,text' archive_cmds_need_lc=no hardcode_shlibpath_var=no runpath_var='LD_RUN_PATH' if test yes = "$GCC"; then archive_cmds='$CC -shared $wl-h,$soname -o $lib $libobjs $deplibs $compiler_flags' archive_expsym_cmds='$CC -shared $wl-Bexport:$export_symbols $wl-h,$soname -o $lib $libobjs $deplibs $compiler_flags' else archive_cmds='$CC -G $wl-h,$soname -o $lib $libobjs $deplibs $compiler_flags' archive_expsym_cmds='$CC -G $wl-Bexport:$export_symbols $wl-h,$soname -o $lib $libobjs $deplibs $compiler_flags' fi ;; sysv5* | sco3.2v5* | sco5v6*) # Note: We CANNOT use -z defs as we might desire, because we do not # link with -lc, and that would cause any symbols used from libc to # always be unresolved, which means just about no library would # ever link correctly. If we're not using GNU ld we use -z text # though, which does catch some bad symbols but isn't as heavy-handed # as -z defs. no_undefined_flag='$wl-z,text' allow_undefined_flag='$wl-z,nodefs' archive_cmds_need_lc=no hardcode_shlibpath_var=no hardcode_libdir_flag_spec='$wl-R,$libdir' hardcode_libdir_separator=':' link_all_deplibs=yes export_dynamic_flag_spec='$wl-Bexport' runpath_var='LD_RUN_PATH' if test yes = "$GCC"; then archive_cmds='$CC -shared $wl-h,$soname -o $lib $libobjs $deplibs $compiler_flags' archive_expsym_cmds='$CC -shared $wl-Bexport:$export_symbols $wl-h,$soname -o $lib $libobjs $deplibs $compiler_flags' else archive_cmds='$CC -G $wl-h,$soname -o $lib $libobjs $deplibs $compiler_flags' archive_expsym_cmds='$CC -G $wl-Bexport:$export_symbols $wl-h,$soname -o $lib $libobjs $deplibs $compiler_flags' fi ;; uts4*) archive_cmds='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags' hardcode_libdir_flag_spec='-L$libdir' hardcode_shlibpath_var=no ;; *) ld_shlibs=no ;; esac if test sni = "$host_vendor"; then case $host in sysv4 | sysv4.2uw2* | sysv4.3* | sysv5*) export_dynamic_flag_spec='$wl-Blargedynsym' ;; esac fi fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ld_shlibs" >&5 $as_echo "$ld_shlibs" >&6; } test no = "$ld_shlibs" && can_build_shared=no with_gnu_ld=$with_gnu_ld # # Do we need to explicitly link libc? # case "x$archive_cmds_need_lc" in x|xyes) # Assume -lc should be added archive_cmds_need_lc=yes if test yes,yes = "$GCC,$enable_shared"; then case $archive_cmds in *'~'*) # FIXME: we may have to deal with multi-command sequences. ;; '$CC '*) # Test whether the compiler implicitly links with -lc since on some # systems, -lgcc has to come before -lc. If gcc already passes -lc # to ld, don't add -lc before -lgcc. { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether -lc should be explicitly linked in" >&5 $as_echo_n "checking whether -lc should be explicitly linked in... " >&6; } if ${lt_cv_archive_cmds_need_lc+:} false; then : $as_echo_n "(cached) " >&6 else $RM conftest* echo "$lt_simple_compile_test_code" > conftest.$ac_ext if { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$ac_compile\""; } >&5 (eval $ac_compile) 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; } 2>conftest.err; then soname=conftest lib=conftest libobjs=conftest.$ac_objext deplibs= wl=$lt_prog_compiler_wl pic_flag=$lt_prog_compiler_pic compiler_flags=-v linker_flags=-v verstring= output_objdir=. libname=conftest lt_save_allow_undefined_flag=$allow_undefined_flag allow_undefined_flag= if { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$archive_cmds 2\>\&1 \| $GREP \" -lc \" \>/dev/null 2\>\&1\""; } >&5 (eval $archive_cmds 2\>\&1 \| $GREP \" -lc \" \>/dev/null 2\>\&1) 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; } then lt_cv_archive_cmds_need_lc=no else lt_cv_archive_cmds_need_lc=yes fi allow_undefined_flag=$lt_save_allow_undefined_flag else cat conftest.err 1>&5 fi $RM conftest* fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_archive_cmds_need_lc" >&5 $as_echo "$lt_cv_archive_cmds_need_lc" >&6; } archive_cmds_need_lc=$lt_cv_archive_cmds_need_lc ;; esac fi ;; esac { $as_echo "$as_me:${as_lineno-$LINENO}: checking dynamic linker characteristics" >&5 $as_echo_n "checking dynamic linker characteristics... " >&6; } if test yes = "$GCC"; then case $host_os in darwin*) lt_awk_arg='/^libraries:/,/LR/' ;; *) lt_awk_arg='/^libraries:/' ;; esac case $host_os in mingw* | cegcc*) lt_sed_strip_eq='s|=\([A-Za-z]:\)|\1|g' ;; *) lt_sed_strip_eq='s|=/|/|g' ;; esac lt_search_path_spec=`$CC -print-search-dirs | awk $lt_awk_arg | $SED -e "s/^libraries://" -e $lt_sed_strip_eq` case $lt_search_path_spec in *\;*) # if the path contains ";" then we assume it to be the separator # otherwise default to the standard path separator (i.e. ":") - it is # assumed that no part of a normal pathname contains ";" but that should # okay in the real world where ";" in dirpaths is itself problematic. lt_search_path_spec=`$ECHO "$lt_search_path_spec" | $SED 's/;/ /g'` ;; *) lt_search_path_spec=`$ECHO "$lt_search_path_spec" | $SED "s/$PATH_SEPARATOR/ /g"` ;; esac # Ok, now we have the path, separated by spaces, we can step through it # and add multilib dir if necessary... lt_tmp_lt_search_path_spec= lt_multi_os_dir=/`$CC $CPPFLAGS $CFLAGS $LDFLAGS -print-multi-os-directory 2>/dev/null` # ...but if some path component already ends with the multilib dir we assume # that all is fine and trust -print-search-dirs as is (GCC 4.2? or newer). case "$lt_multi_os_dir; $lt_search_path_spec " in "/; "* | "/.; "* | "/./; "* | *"$lt_multi_os_dir "* | *"$lt_multi_os_dir/ "*) lt_multi_os_dir= ;; esac for lt_sys_path in $lt_search_path_spec; do if test -d "$lt_sys_path$lt_multi_os_dir"; then lt_tmp_lt_search_path_spec="$lt_tmp_lt_search_path_spec $lt_sys_path$lt_multi_os_dir" elif test -n "$lt_multi_os_dir"; then test -d "$lt_sys_path" && \ lt_tmp_lt_search_path_spec="$lt_tmp_lt_search_path_spec $lt_sys_path" fi done lt_search_path_spec=`$ECHO "$lt_tmp_lt_search_path_spec" | awk ' BEGIN {RS = " "; FS = "/|\n";} { lt_foo = ""; lt_count = 0; for (lt_i = NF; lt_i > 0; lt_i--) { if ($lt_i != "" && $lt_i != ".") { if ($lt_i == "..") { lt_count++; } else { if (lt_count == 0) { lt_foo = "/" $lt_i lt_foo; } else { lt_count--; } } } } if (lt_foo != "") { lt_freq[lt_foo]++; } if (lt_freq[lt_foo] == 1) { print lt_foo; } }'` # AWK program above erroneously prepends '/' to C:/dos/paths # for these hosts. case $host_os in mingw* | cegcc*) lt_search_path_spec=`$ECHO "$lt_search_path_spec" |\ $SED 's|/\([A-Za-z]:\)|\1|g'` ;; esac sys_lib_search_path_spec=`$ECHO "$lt_search_path_spec" | $lt_NL2SP` else sys_lib_search_path_spec="/lib /usr/lib /usr/local/lib" fi library_names_spec= libname_spec='lib$name' soname_spec= shrext_cmds=.so postinstall_cmds= postuninstall_cmds= finish_cmds= finish_eval= shlibpath_var= shlibpath_overrides_runpath=unknown version_type=none dynamic_linker="$host_os ld.so" sys_lib_dlsearch_path_spec="/lib /usr/lib" need_lib_prefix=unknown hardcode_into_libs=no # when you set need_version to no, make sure it does not cause -set_version # flags to be left without arguments need_version=unknown case $host_os in aix3*) version_type=linux # correct to gnu/linux during the next big refactor library_names_spec='$libname$release$shared_ext$versuffix $libname.a' shlibpath_var=LIBPATH # AIX 3 has no versioning support, so we append a major version to the name. soname_spec='$libname$release$shared_ext$major' ;; aix[4-9]*) version_type=linux # correct to gnu/linux during the next big refactor need_lib_prefix=no need_version=no hardcode_into_libs=yes if test ia64 = "$host_cpu"; then # AIX 5 supports IA64 library_names_spec='$libname$release$shared_ext$major $libname$release$shared_ext$versuffix $libname$shared_ext' shlibpath_var=LD_LIBRARY_PATH else # With GCC up to 2.95.x, collect2 would create an import file # for dependence libraries. The import file would start with # the line '#! .'. This would cause the generated library to # depend on '.', always an invalid library. This was fixed in # development snapshots of GCC prior to 3.0. case $host_os in aix4 | aix4.[01] | aix4.[01].*) if { echo '#if __GNUC__ > 2 || (__GNUC__ == 2 && __GNUC_MINOR__ >= 97)' echo ' yes ' echo '#endif'; } | $CC -E - | $GREP yes > /dev/null; then : else can_build_shared=no fi ;; esac # Using Import Files as archive members, it is possible to support # filename-based versioning of shared library archives on AIX. While # this would work for both with and without runtime linking, it will # prevent static linking of such archives. So we do filename-based # shared library versioning with .so extension only, which is used # when both runtime linking and shared linking is enabled. # Unfortunately, runtime linking may impact performance, so we do # not want this to be the default eventually. Also, we use the # versioned .so libs for executables only if there is the -brtl # linker flag in LDFLAGS as well, or --with-aix-soname=svr4 only. # To allow for filename-based versioning support, we need to create # libNAME.so.V as an archive file, containing: # *) an Import File, referring to the versioned filename of the # archive as well as the shared archive member, telling the # bitwidth (32 or 64) of that shared object, and providing the # list of exported symbols of that shared object, eventually # decorated with the 'weak' keyword # *) the shared object with the F_LOADONLY flag set, to really avoid # it being seen by the linker. # At run time we better use the real file rather than another symlink, # but for link time we create the symlink libNAME.so -> libNAME.so.V case $with_aix_soname,$aix_use_runtimelinking in # AIX (on Power*) has no versioning support, so currently we cannot hardcode correct # soname into executable. Probably we can add versioning support to # collect2, so additional links can be useful in future. aix,yes) # traditional libtool dynamic_linker='AIX unversionable lib.so' # If using run time linking (on AIX 4.2 or later) use lib.so # instead of lib.a to let people know that these are not # typical AIX shared libraries. library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext' ;; aix,no) # traditional AIX only dynamic_linker='AIX lib.a(lib.so.V)' # We preserve .a as extension for shared libraries through AIX4.2 # and later when we are not doing run time linking. library_names_spec='$libname$release.a $libname.a' soname_spec='$libname$release$shared_ext$major' ;; svr4,*) # full svr4 only dynamic_linker="AIX lib.so.V($shared_archive_member_spec.o)" library_names_spec='$libname$release$shared_ext$major $libname$shared_ext' # We do not specify a path in Import Files, so LIBPATH fires. shlibpath_overrides_runpath=yes ;; *,yes) # both, prefer svr4 dynamic_linker="AIX lib.so.V($shared_archive_member_spec.o), lib.a(lib.so.V)" library_names_spec='$libname$release$shared_ext$major $libname$shared_ext' # unpreferred sharedlib libNAME.a needs extra handling postinstall_cmds='test -n "$linkname" || linkname="$realname"~func_stripname "" ".so" "$linkname"~$install_shared_prog "$dir/$func_stripname_result.$libext" "$destdir/$func_stripname_result.$libext"~test -z "$tstripme" || test -z "$striplib" || $striplib "$destdir/$func_stripname_result.$libext"' postuninstall_cmds='for n in $library_names $old_library; do :; done~func_stripname "" ".so" "$n"~test "$func_stripname_result" = "$n" || func_append rmfiles " $odir/$func_stripname_result.$libext"' # We do not specify a path in Import Files, so LIBPATH fires. shlibpath_overrides_runpath=yes ;; *,no) # both, prefer aix dynamic_linker="AIX lib.a(lib.so.V), lib.so.V($shared_archive_member_spec.o)" library_names_spec='$libname$release.a $libname.a' soname_spec='$libname$release$shared_ext$major' # unpreferred sharedlib libNAME.so.V and symlink libNAME.so need extra handling postinstall_cmds='test -z "$dlname" || $install_shared_prog $dir/$dlname $destdir/$dlname~test -z "$tstripme" || test -z "$striplib" || $striplib $destdir/$dlname~test -n "$linkname" || linkname=$realname~func_stripname "" ".a" "$linkname"~(cd "$destdir" && $LN_S -f $dlname $func_stripname_result.so)' postuninstall_cmds='test -z "$dlname" || func_append rmfiles " $odir/$dlname"~for n in $old_library $library_names; do :; done~func_stripname "" ".a" "$n"~func_append rmfiles " $odir/$func_stripname_result.so"' ;; esac shlibpath_var=LIBPATH fi ;; amigaos*) case $host_cpu in powerpc) # Since July 2007 AmigaOS4 officially supports .so libraries. # When compiling the executable, add -use-dynld -Lsobjs: to the compileline. library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext' ;; m68k) library_names_spec='$libname.ixlibrary $libname.a' # Create ${libname}_ixlibrary.a entries in /sys/libs. finish_eval='for lib in `ls $libdir/*.ixlibrary 2>/dev/null`; do libname=`func_echo_all "$lib" | $SED '\''s%^.*/\([^/]*\)\.ixlibrary$%\1%'\''`; $RM /sys/libs/${libname}_ixlibrary.a; $show "cd /sys/libs && $LN_S $lib ${libname}_ixlibrary.a"; cd /sys/libs && $LN_S $lib ${libname}_ixlibrary.a || exit 1; done' ;; esac ;; beos*) library_names_spec='$libname$shared_ext' dynamic_linker="$host_os ld.so" shlibpath_var=LIBRARY_PATH ;; bsdi[45]*) version_type=linux # correct to gnu/linux during the next big refactor need_version=no library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext' soname_spec='$libname$release$shared_ext$major' finish_cmds='PATH="\$PATH:/sbin" ldconfig $libdir' shlibpath_var=LD_LIBRARY_PATH sys_lib_search_path_spec="/shlib /usr/lib /usr/X11/lib /usr/contrib/lib /lib /usr/local/lib" sys_lib_dlsearch_path_spec="/shlib /usr/lib /usr/local/lib" # the default ld.so.conf also contains /usr/contrib/lib and # /usr/X11R6/lib (/usr/X11 is a link to /usr/X11R6), but let us allow # libtool to hard-code these into programs ;; cygwin* | mingw* | pw32* | cegcc*) version_type=windows shrext_cmds=.dll need_version=no need_lib_prefix=no case $GCC,$cc_basename in yes,*) # gcc library_names_spec='$libname.dll.a' # DLL is installed to $(libdir)/../bin by postinstall_cmds postinstall_cmds='base_file=`basename \$file`~ dlpath=`$SHELL 2>&1 -c '\''. $dir/'\''\$base_file'\''i; echo \$dlname'\''`~ dldir=$destdir/`dirname \$dlpath`~ test -d \$dldir || mkdir -p \$dldir~ $install_prog $dir/$dlname \$dldir/$dlname~ chmod a+x \$dldir/$dlname~ if test -n '\''$stripme'\'' && test -n '\''$striplib'\''; then eval '\''$striplib \$dldir/$dlname'\'' || exit \$?; fi' postuninstall_cmds='dldll=`$SHELL 2>&1 -c '\''. $file; echo \$dlname'\''`~ dlpath=$dir/\$dldll~ $RM \$dlpath' shlibpath_overrides_runpath=yes case $host_os in cygwin*) # Cygwin DLLs use 'cyg' prefix rather than 'lib' soname_spec='`echo $libname | sed -e 's/^lib/cyg/'``echo $release | $SED -e 's/[.]/-/g'`$versuffix$shared_ext' sys_lib_search_path_spec="$sys_lib_search_path_spec /usr/lib/w32api" ;; mingw* | cegcc*) # MinGW DLLs use traditional 'lib' prefix soname_spec='$libname`echo $release | $SED -e 's/[.]/-/g'`$versuffix$shared_ext' ;; pw32*) # pw32 DLLs use 'pw' prefix rather than 'lib' library_names_spec='`echo $libname | sed -e 's/^lib/pw/'``echo $release | $SED -e 's/[.]/-/g'`$versuffix$shared_ext' ;; esac dynamic_linker='Win32 ld.exe' ;; *,cl*) # Native MSVC libname_spec='$name' soname_spec='$libname`echo $release | $SED -e 's/[.]/-/g'`$versuffix$shared_ext' library_names_spec='$libname.dll.lib' case $build_os in mingw*) sys_lib_search_path_spec= lt_save_ifs=$IFS IFS=';' for lt_path in $LIB do IFS=$lt_save_ifs # Let DOS variable expansion print the short 8.3 style file name. lt_path=`cd "$lt_path" 2>/dev/null && cmd //C "for %i in (".") do @echo %~si"` sys_lib_search_path_spec="$sys_lib_search_path_spec $lt_path" done IFS=$lt_save_ifs # Convert to MSYS style. sys_lib_search_path_spec=`$ECHO "$sys_lib_search_path_spec" | sed -e 's|\\\\|/|g' -e 's| \\([a-zA-Z]\\):| /\\1|g' -e 's|^ ||'` ;; cygwin*) # Convert to unix form, then to dos form, then back to unix form # but this time dos style (no spaces!) so that the unix form looks # like /cygdrive/c/PROGRA~1:/cygdr... sys_lib_search_path_spec=`cygpath --path --unix "$LIB"` sys_lib_search_path_spec=`cygpath --path --dos "$sys_lib_search_path_spec" 2>/dev/null` sys_lib_search_path_spec=`cygpath --path --unix "$sys_lib_search_path_spec" | $SED -e "s/$PATH_SEPARATOR/ /g"` ;; *) sys_lib_search_path_spec=$LIB if $ECHO "$sys_lib_search_path_spec" | $GREP ';[c-zC-Z]:/' >/dev/null; then # It is most probably a Windows format PATH. sys_lib_search_path_spec=`$ECHO "$sys_lib_search_path_spec" | $SED -e 's/;/ /g'` else sys_lib_search_path_spec=`$ECHO "$sys_lib_search_path_spec" | $SED -e "s/$PATH_SEPARATOR/ /g"` fi # FIXME: find the short name or the path components, as spaces are # common. (e.g. "Program Files" -> "PROGRA~1") ;; esac # DLL is installed to $(libdir)/../bin by postinstall_cmds postinstall_cmds='base_file=`basename \$file`~ dlpath=`$SHELL 2>&1 -c '\''. $dir/'\''\$base_file'\''i; echo \$dlname'\''`~ dldir=$destdir/`dirname \$dlpath`~ test -d \$dldir || mkdir -p \$dldir~ $install_prog $dir/$dlname \$dldir/$dlname' postuninstall_cmds='dldll=`$SHELL 2>&1 -c '\''. $file; echo \$dlname'\''`~ dlpath=$dir/\$dldll~ $RM \$dlpath' shlibpath_overrides_runpath=yes dynamic_linker='Win32 link.exe' ;; *) # Assume MSVC wrapper library_names_spec='$libname`echo $release | $SED -e 's/[.]/-/g'`$versuffix$shared_ext $libname.lib' dynamic_linker='Win32 ld.exe' ;; esac # FIXME: first we should search . and the directory the executable is in shlibpath_var=PATH ;; darwin* | rhapsody*) dynamic_linker="$host_os dyld" version_type=darwin need_lib_prefix=no need_version=no library_names_spec='$libname$release$major$shared_ext $libname$shared_ext' soname_spec='$libname$release$major$shared_ext' shlibpath_overrides_runpath=yes shlibpath_var=DYLD_LIBRARY_PATH shrext_cmds='`test .$module = .yes && echo .so || echo .dylib`' sys_lib_search_path_spec="$sys_lib_search_path_spec /usr/local/lib" sys_lib_dlsearch_path_spec='/usr/local/lib /lib /usr/lib' ;; dgux*) version_type=linux # correct to gnu/linux during the next big refactor need_lib_prefix=no need_version=no library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext' soname_spec='$libname$release$shared_ext$major' shlibpath_var=LD_LIBRARY_PATH ;; freebsd* | dragonfly*) # DragonFly does not have aout. When/if they implement a new # versioning mechanism, adjust this. if test -x /usr/bin/objformat; then objformat=`/usr/bin/objformat` else case $host_os in freebsd[23].*) objformat=aout ;; *) objformat=elf ;; esac fi version_type=freebsd-$objformat case $version_type in freebsd-elf*) library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext' soname_spec='$libname$release$shared_ext$major' need_version=no need_lib_prefix=no ;; freebsd-*) library_names_spec='$libname$release$shared_ext$versuffix $libname$shared_ext$versuffix' need_version=yes ;; esac shlibpath_var=LD_LIBRARY_PATH case $host_os in freebsd2.*) shlibpath_overrides_runpath=yes ;; freebsd3.[01]* | freebsdelf3.[01]*) shlibpath_overrides_runpath=yes hardcode_into_libs=yes ;; freebsd3.[2-9]* | freebsdelf3.[2-9]* | \ freebsd4.[0-5] | freebsdelf4.[0-5] | freebsd4.1.1 | freebsdelf4.1.1) shlibpath_overrides_runpath=no hardcode_into_libs=yes ;; *) # from 4.6 on, and DragonFly shlibpath_overrides_runpath=yes hardcode_into_libs=yes ;; esac ;; haiku*) version_type=linux # correct to gnu/linux during the next big refactor need_lib_prefix=no need_version=no dynamic_linker="$host_os runtime_loader" library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext' soname_spec='$libname$release$shared_ext$major' shlibpath_var=LIBRARY_PATH shlibpath_overrides_runpath=no sys_lib_dlsearch_path_spec='/boot/home/config/lib /boot/common/lib /boot/system/lib' hardcode_into_libs=yes ;; hpux9* | hpux10* | hpux11*) # Give a soname corresponding to the major version so that dld.sl refuses to # link against other versions. version_type=sunos need_lib_prefix=no need_version=no case $host_cpu in ia64*) shrext_cmds='.so' hardcode_into_libs=yes dynamic_linker="$host_os dld.so" shlibpath_var=LD_LIBRARY_PATH shlibpath_overrides_runpath=yes # Unless +noenvvar is specified. library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext' soname_spec='$libname$release$shared_ext$major' if test 32 = "$HPUX_IA64_MODE"; then sys_lib_search_path_spec="/usr/lib/hpux32 /usr/local/lib/hpux32 /usr/local/lib" sys_lib_dlsearch_path_spec=/usr/lib/hpux32 else sys_lib_search_path_spec="/usr/lib/hpux64 /usr/local/lib/hpux64" sys_lib_dlsearch_path_spec=/usr/lib/hpux64 fi ;; hppa*64*) shrext_cmds='.sl' hardcode_into_libs=yes dynamic_linker="$host_os dld.sl" shlibpath_var=LD_LIBRARY_PATH # How should we handle SHLIB_PATH shlibpath_overrides_runpath=yes # Unless +noenvvar is specified. library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext' soname_spec='$libname$release$shared_ext$major' sys_lib_search_path_spec="/usr/lib/pa20_64 /usr/ccs/lib/pa20_64" sys_lib_dlsearch_path_spec=$sys_lib_search_path_spec ;; *) shrext_cmds='.sl' dynamic_linker="$host_os dld.sl" shlibpath_var=SHLIB_PATH shlibpath_overrides_runpath=no # +s is required to enable SHLIB_PATH library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext' soname_spec='$libname$release$shared_ext$major' ;; esac # HP-UX runs *really* slowly unless shared libraries are mode 555, ... postinstall_cmds='chmod 555 $lib' # or fails outright, so override atomically: install_override_mode=555 ;; interix[3-9]*) version_type=linux # correct to gnu/linux during the next big refactor need_lib_prefix=no need_version=no library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext' soname_spec='$libname$release$shared_ext$major' dynamic_linker='Interix 3.x ld.so.1 (PE, like ELF)' shlibpath_var=LD_LIBRARY_PATH shlibpath_overrides_runpath=no hardcode_into_libs=yes ;; irix5* | irix6* | nonstopux*) case $host_os in nonstopux*) version_type=nonstopux ;; *) if test yes = "$lt_cv_prog_gnu_ld"; then version_type=linux # correct to gnu/linux during the next big refactor else version_type=irix fi ;; esac need_lib_prefix=no need_version=no soname_spec='$libname$release$shared_ext$major' library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$release$shared_ext $libname$shared_ext' case $host_os in irix5* | nonstopux*) libsuff= shlibsuff= ;; *) case $LD in # libtool.m4 will add one of these switches to LD *-32|*"-32 "|*-melf32bsmip|*"-melf32bsmip ") libsuff= shlibsuff= libmagic=32-bit;; *-n32|*"-n32 "|*-melf32bmipn32|*"-melf32bmipn32 ") libsuff=32 shlibsuff=N32 libmagic=N32;; *-64|*"-64 "|*-melf64bmip|*"-melf64bmip ") libsuff=64 shlibsuff=64 libmagic=64-bit;; *) libsuff= shlibsuff= libmagic=never-match;; esac ;; esac shlibpath_var=LD_LIBRARY${shlibsuff}_PATH shlibpath_overrides_runpath=no sys_lib_search_path_spec="/usr/lib$libsuff /lib$libsuff /usr/local/lib$libsuff" sys_lib_dlsearch_path_spec="/usr/lib$libsuff /lib$libsuff" hardcode_into_libs=yes ;; # No shared lib support for Linux oldld, aout, or coff. linux*oldld* | linux*aout* | linux*coff*) dynamic_linker=no ;; linux*android*) version_type=none # Android doesn't support versioned libraries. need_lib_prefix=no need_version=no library_names_spec='$libname$release$shared_ext' soname_spec='$libname$release$shared_ext' finish_cmds= shlibpath_var=LD_LIBRARY_PATH shlibpath_overrides_runpath=yes # This implies no fast_install, which is unacceptable. # Some rework will be needed to allow for fast_install # before this can be enabled. hardcode_into_libs=yes dynamic_linker='Android linker' # Don't embed -rpath directories since the linker doesn't support them. hardcode_libdir_flag_spec='-L$libdir' ;; # This must be glibc/ELF. linux* | k*bsd*-gnu | kopensolaris*-gnu | gnu*) version_type=linux # correct to gnu/linux during the next big refactor need_lib_prefix=no need_version=no library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext' soname_spec='$libname$release$shared_ext$major' finish_cmds='PATH="\$PATH:/sbin" ldconfig -n $libdir' shlibpath_var=LD_LIBRARY_PATH shlibpath_overrides_runpath=no # Some binutils ld are patched to set DT_RUNPATH if ${lt_cv_shlibpath_overrides_runpath+:} false; then : $as_echo_n "(cached) " >&6 else lt_cv_shlibpath_overrides_runpath=no save_LDFLAGS=$LDFLAGS save_libdir=$libdir eval "libdir=/foo; wl=\"$lt_prog_compiler_wl\"; \ LDFLAGS=\"\$LDFLAGS $hardcode_libdir_flag_spec\"" cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ int main () { ; return 0; } _ACEOF if ac_fn_c_try_link "$LINENO"; then : if ($OBJDUMP -p conftest$ac_exeext) 2>/dev/null | grep "RUNPATH.*$libdir" >/dev/null; then : lt_cv_shlibpath_overrides_runpath=yes fi fi rm -f core conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext LDFLAGS=$save_LDFLAGS libdir=$save_libdir fi shlibpath_overrides_runpath=$lt_cv_shlibpath_overrides_runpath # This implies no fast_install, which is unacceptable. # Some rework will be needed to allow for fast_install # before this can be enabled. hardcode_into_libs=yes # Ideally, we could use ldconfig to report *all* directores which are # searched for libraries, however this is still not possible. Aside from not # being certain /sbin/ldconfig is available, command # 'ldconfig -N -X -v | grep ^/' on 64bit Fedora does not report /usr/lib64, # even though it is searched at run-time. Try to do the best guess by # appending ld.so.conf contents (and includes) to the search path. if test -f /etc/ld.so.conf; then lt_ld_extra=`awk '/^include / { system(sprintf("cd /etc; cat %s 2>/dev/null", \$2)); skip = 1; } { if (!skip) print \$0; skip = 0; }' < /etc/ld.so.conf | $SED -e 's/#.*//;/^[ ]*hwcap[ ]/d;s/[:, ]/ /g;s/=[^=]*$//;s/=[^= ]* / /g;s/"//g;/^$/d' | tr '\n' ' '` sys_lib_dlsearch_path_spec="/lib /usr/lib $lt_ld_extra" fi # We used to test for /lib/ld.so.1 and disable shared libraries on # powerpc, because MkLinux only supported shared libraries with the # GNU dynamic linker. Since this was broken with cross compilers, # most powerpc-linux boxes support dynamic linking these days and # people can always --disable-shared, the test was removed, and we # assume the GNU/Linux dynamic linker is in use. dynamic_linker='GNU/Linux ld.so' ;; netbsd*) version_type=sunos need_lib_prefix=no need_version=no if echo __ELF__ | $CC -E - | $GREP __ELF__ >/dev/null; then library_names_spec='$libname$release$shared_ext$versuffix $libname$shared_ext$versuffix' finish_cmds='PATH="\$PATH:/sbin" ldconfig -m $libdir' dynamic_linker='NetBSD (a.out) ld.so' else library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext' soname_spec='$libname$release$shared_ext$major' dynamic_linker='NetBSD ld.elf_so' fi shlibpath_var=LD_LIBRARY_PATH shlibpath_overrides_runpath=yes hardcode_into_libs=yes ;; newsos6) version_type=linux # correct to gnu/linux during the next big refactor library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext' shlibpath_var=LD_LIBRARY_PATH shlibpath_overrides_runpath=yes ;; *nto* | *qnx*) version_type=qnx need_lib_prefix=no need_version=no library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext' soname_spec='$libname$release$shared_ext$major' shlibpath_var=LD_LIBRARY_PATH shlibpath_overrides_runpath=no hardcode_into_libs=yes dynamic_linker='ldqnx.so' ;; openbsd* | bitrig*) version_type=sunos sys_lib_dlsearch_path_spec=/usr/lib need_lib_prefix=no if test -z "`echo __ELF__ | $CC -E - | $GREP __ELF__`"; then need_version=no else need_version=yes fi library_names_spec='$libname$release$shared_ext$versuffix $libname$shared_ext$versuffix' finish_cmds='PATH="\$PATH:/sbin" ldconfig -m $libdir' shlibpath_var=LD_LIBRARY_PATH shlibpath_overrides_runpath=yes ;; os2*) libname_spec='$name' version_type=windows shrext_cmds=.dll need_version=no need_lib_prefix=no # OS/2 can only load a DLL with a base name of 8 characters or less. soname_spec='`test -n "$os2dllname" && libname="$os2dllname"; v=$($ECHO $release$versuffix | tr -d .-); n=$($ECHO $libname | cut -b -$((8 - ${#v})) | tr . _); $ECHO $n$v`$shared_ext' library_names_spec='${libname}_dll.$libext' dynamic_linker='OS/2 ld.exe' shlibpath_var=BEGINLIBPATH sys_lib_search_path_spec="/lib /usr/lib /usr/local/lib" sys_lib_dlsearch_path_spec=$sys_lib_search_path_spec postinstall_cmds='base_file=`basename \$file`~ dlpath=`$SHELL 2>&1 -c '\''. $dir/'\''\$base_file'\''i; $ECHO \$dlname'\''`~ dldir=$destdir/`dirname \$dlpath`~ test -d \$dldir || mkdir -p \$dldir~ $install_prog $dir/$dlname \$dldir/$dlname~ chmod a+x \$dldir/$dlname~ if test -n '\''$stripme'\'' && test -n '\''$striplib'\''; then eval '\''$striplib \$dldir/$dlname'\'' || exit \$?; fi' postuninstall_cmds='dldll=`$SHELL 2>&1 -c '\''. $file; $ECHO \$dlname'\''`~ dlpath=$dir/\$dldll~ $RM \$dlpath' ;; osf3* | osf4* | osf5*) version_type=osf need_lib_prefix=no need_version=no soname_spec='$libname$release$shared_ext$major' library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext' shlibpath_var=LD_LIBRARY_PATH sys_lib_search_path_spec="/usr/shlib /usr/ccs/lib /usr/lib/cmplrs/cc /usr/lib /usr/local/lib /var/shlib" sys_lib_dlsearch_path_spec=$sys_lib_search_path_spec ;; rdos*) dynamic_linker=no ;; solaris*) version_type=linux # correct to gnu/linux during the next big refactor need_lib_prefix=no need_version=no library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext' soname_spec='$libname$release$shared_ext$major' shlibpath_var=LD_LIBRARY_PATH shlibpath_overrides_runpath=yes hardcode_into_libs=yes # ldd complains unless libraries are executable postinstall_cmds='chmod +x $lib' ;; sunos4*) version_type=sunos library_names_spec='$libname$release$shared_ext$versuffix $libname$shared_ext$versuffix' finish_cmds='PATH="\$PATH:/usr/etc" ldconfig $libdir' shlibpath_var=LD_LIBRARY_PATH shlibpath_overrides_runpath=yes if test yes = "$with_gnu_ld"; then need_lib_prefix=no fi need_version=yes ;; sysv4 | sysv4.3*) version_type=linux # correct to gnu/linux during the next big refactor library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext' soname_spec='$libname$release$shared_ext$major' shlibpath_var=LD_LIBRARY_PATH case $host_vendor in sni) shlibpath_overrides_runpath=no need_lib_prefix=no runpath_var=LD_RUN_PATH ;; siemens) need_lib_prefix=no ;; motorola) need_lib_prefix=no need_version=no shlibpath_overrides_runpath=no sys_lib_search_path_spec='/lib /usr/lib /usr/ccs/lib' ;; esac ;; sysv4*MP*) if test -d /usr/nec; then version_type=linux # correct to gnu/linux during the next big refactor library_names_spec='$libname$shared_ext.$versuffix $libname$shared_ext.$major $libname$shared_ext' soname_spec='$libname$shared_ext.$major' shlibpath_var=LD_LIBRARY_PATH fi ;; sysv5* | sco3.2v5* | sco5v6* | unixware* | OpenUNIX* | sysv4*uw2*) version_type=sco need_lib_prefix=no need_version=no library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext $libname$shared_ext' soname_spec='$libname$release$shared_ext$major' shlibpath_var=LD_LIBRARY_PATH shlibpath_overrides_runpath=yes hardcode_into_libs=yes if test yes = "$with_gnu_ld"; then sys_lib_search_path_spec='/usr/local/lib /usr/gnu/lib /usr/ccs/lib /usr/lib /lib' else sys_lib_search_path_spec='/usr/ccs/lib /usr/lib' case $host_os in sco3.2v5*) sys_lib_search_path_spec="$sys_lib_search_path_spec /lib" ;; esac fi sys_lib_dlsearch_path_spec='/usr/lib' ;; tpf*) # TPF is a cross-target only. Preferred cross-host = GNU/Linux. version_type=linux # correct to gnu/linux during the next big refactor need_lib_prefix=no need_version=no library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext' shlibpath_var=LD_LIBRARY_PATH shlibpath_overrides_runpath=no hardcode_into_libs=yes ;; uts4*) version_type=linux # correct to gnu/linux during the next big refactor library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext' soname_spec='$libname$release$shared_ext$major' shlibpath_var=LD_LIBRARY_PATH ;; *) dynamic_linker=no ;; esac { $as_echo "$as_me:${as_lineno-$LINENO}: result: $dynamic_linker" >&5 $as_echo "$dynamic_linker" >&6; } test no = "$dynamic_linker" && can_build_shared=no variables_saved_for_relink="PATH $shlibpath_var $runpath_var" if test yes = "$GCC"; then variables_saved_for_relink="$variables_saved_for_relink GCC_EXEC_PREFIX COMPILER_PATH LIBRARY_PATH" fi if test set = "${lt_cv_sys_lib_search_path_spec+set}"; then sys_lib_search_path_spec=$lt_cv_sys_lib_search_path_spec fi if test set = "${lt_cv_sys_lib_dlsearch_path_spec+set}"; then sys_lib_dlsearch_path_spec=$lt_cv_sys_lib_dlsearch_path_spec fi # remember unaugmented sys_lib_dlsearch_path content for libtool script decls... configure_time_dlsearch_path=$sys_lib_dlsearch_path_spec # ... but it needs LT_SYS_LIBRARY_PATH munging for other configure-time code func_munge_path_list sys_lib_dlsearch_path_spec "$LT_SYS_LIBRARY_PATH" # to be used as default LT_SYS_LIBRARY_PATH value in generated libtool configure_time_lt_sys_library_path=$LT_SYS_LIBRARY_PATH { $as_echo "$as_me:${as_lineno-$LINENO}: checking how to hardcode library paths into programs" >&5 $as_echo_n "checking how to hardcode library paths into programs... " >&6; } hardcode_action= if test -n "$hardcode_libdir_flag_spec" || test -n "$runpath_var" || test yes = "$hardcode_automatic"; then # We can hardcode non-existent directories. if test no != "$hardcode_direct" && # If the only mechanism to avoid hardcoding is shlibpath_var, we # have to relink, otherwise we might link with an installed library # when we should be linking with a yet-to-be-installed one ## test no != "$_LT_TAGVAR(hardcode_shlibpath_var, )" && test no != "$hardcode_minus_L"; then # Linking always hardcodes the temporary library directory. hardcode_action=relink else # We can link without hardcoding, and we can hardcode nonexisting dirs. hardcode_action=immediate fi else # We cannot hardcode anything, or else we can only hardcode existing # directories. hardcode_action=unsupported fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $hardcode_action" >&5 $as_echo "$hardcode_action" >&6; } if test relink = "$hardcode_action" || test yes = "$inherit_rpath"; then # Fast installation is not supported enable_fast_install=no elif test yes = "$shlibpath_overrides_runpath" || test no = "$enable_shared"; then # Fast installation is not necessary enable_fast_install=needless fi if test yes != "$enable_dlopen"; then enable_dlopen=unknown enable_dlopen_self=unknown enable_dlopen_self_static=unknown else lt_cv_dlopen=no lt_cv_dlopen_libs= case $host_os in beos*) lt_cv_dlopen=load_add_on lt_cv_dlopen_libs= lt_cv_dlopen_self=yes ;; mingw* | pw32* | cegcc*) lt_cv_dlopen=LoadLibrary lt_cv_dlopen_libs= ;; cygwin*) lt_cv_dlopen=dlopen lt_cv_dlopen_libs= ;; darwin*) # if libdl is installed we need to link against it { $as_echo "$as_me:${as_lineno-$LINENO}: checking for dlopen in -ldl" >&5 $as_echo_n "checking for dlopen in -ldl... " >&6; } if ${ac_cv_lib_dl_dlopen+:} false; then : $as_echo_n "(cached) " >&6 else ac_check_lib_save_LIBS=$LIBS LIBS="-ldl $LIBS" cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ /* Override any GCC internal prototype to avoid an error. Use char because int might match the return type of a GCC builtin and then its argument prototype would still apply. */ #ifdef __cplusplus extern "C" #endif char dlopen (); int main () { return dlopen (); ; return 0; } _ACEOF if ac_fn_c_try_link "$LINENO"; then : ac_cv_lib_dl_dlopen=yes else ac_cv_lib_dl_dlopen=no fi rm -f core conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext LIBS=$ac_check_lib_save_LIBS fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_dl_dlopen" >&5 $as_echo "$ac_cv_lib_dl_dlopen" >&6; } if test "x$ac_cv_lib_dl_dlopen" = xyes; then : lt_cv_dlopen=dlopen lt_cv_dlopen_libs=-ldl else lt_cv_dlopen=dyld lt_cv_dlopen_libs= lt_cv_dlopen_self=yes fi ;; tpf*) # Don't try to run any link tests for TPF. We know it's impossible # because TPF is a cross-compiler, and we know how we open DSOs. lt_cv_dlopen=dlopen lt_cv_dlopen_libs= lt_cv_dlopen_self=no ;; *) ac_fn_c_check_func "$LINENO" "shl_load" "ac_cv_func_shl_load" if test "x$ac_cv_func_shl_load" = xyes; then : lt_cv_dlopen=shl_load else { $as_echo "$as_me:${as_lineno-$LINENO}: checking for shl_load in -ldld" >&5 $as_echo_n "checking for shl_load in -ldld... " >&6; } if ${ac_cv_lib_dld_shl_load+:} false; then : $as_echo_n "(cached) " >&6 else ac_check_lib_save_LIBS=$LIBS LIBS="-ldld $LIBS" cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ /* Override any GCC internal prototype to avoid an error. Use char because int might match the return type of a GCC builtin and then its argument prototype would still apply. */ #ifdef __cplusplus extern "C" #endif char shl_load (); int main () { return shl_load (); ; return 0; } _ACEOF if ac_fn_c_try_link "$LINENO"; then : ac_cv_lib_dld_shl_load=yes else ac_cv_lib_dld_shl_load=no fi rm -f core conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext LIBS=$ac_check_lib_save_LIBS fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_dld_shl_load" >&5 $as_echo "$ac_cv_lib_dld_shl_load" >&6; } if test "x$ac_cv_lib_dld_shl_load" = xyes; then : lt_cv_dlopen=shl_load lt_cv_dlopen_libs=-ldld else ac_fn_c_check_func "$LINENO" "dlopen" "ac_cv_func_dlopen" if test "x$ac_cv_func_dlopen" = xyes; then : lt_cv_dlopen=dlopen else { $as_echo "$as_me:${as_lineno-$LINENO}: checking for dlopen in -ldl" >&5 $as_echo_n "checking for dlopen in -ldl... " >&6; } if ${ac_cv_lib_dl_dlopen+:} false; then : $as_echo_n "(cached) " >&6 else ac_check_lib_save_LIBS=$LIBS LIBS="-ldl $LIBS" cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ /* Override any GCC internal prototype to avoid an error. Use char because int might match the return type of a GCC builtin and then its argument prototype would still apply. */ #ifdef __cplusplus extern "C" #endif char dlopen (); int main () { return dlopen (); ; return 0; } _ACEOF if ac_fn_c_try_link "$LINENO"; then : ac_cv_lib_dl_dlopen=yes else ac_cv_lib_dl_dlopen=no fi rm -f core conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext LIBS=$ac_check_lib_save_LIBS fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_dl_dlopen" >&5 $as_echo "$ac_cv_lib_dl_dlopen" >&6; } if test "x$ac_cv_lib_dl_dlopen" = xyes; then : lt_cv_dlopen=dlopen lt_cv_dlopen_libs=-ldl else { $as_echo "$as_me:${as_lineno-$LINENO}: checking for dlopen in -lsvld" >&5 $as_echo_n "checking for dlopen in -lsvld... " >&6; } if ${ac_cv_lib_svld_dlopen+:} false; then : $as_echo_n "(cached) " >&6 else ac_check_lib_save_LIBS=$LIBS LIBS="-lsvld $LIBS" cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ /* Override any GCC internal prototype to avoid an error. Use char because int might match the return type of a GCC builtin and then its argument prototype would still apply. */ #ifdef __cplusplus extern "C" #endif char dlopen (); int main () { return dlopen (); ; return 0; } _ACEOF if ac_fn_c_try_link "$LINENO"; then : ac_cv_lib_svld_dlopen=yes else ac_cv_lib_svld_dlopen=no fi rm -f core conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext LIBS=$ac_check_lib_save_LIBS fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_svld_dlopen" >&5 $as_echo "$ac_cv_lib_svld_dlopen" >&6; } if test "x$ac_cv_lib_svld_dlopen" = xyes; then : lt_cv_dlopen=dlopen lt_cv_dlopen_libs=-lsvld else { $as_echo "$as_me:${as_lineno-$LINENO}: checking for dld_link in -ldld" >&5 $as_echo_n "checking for dld_link in -ldld... " >&6; } if ${ac_cv_lib_dld_dld_link+:} false; then : $as_echo_n "(cached) " >&6 else ac_check_lib_save_LIBS=$LIBS LIBS="-ldld $LIBS" cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ /* Override any GCC internal prototype to avoid an error. Use char because int might match the return type of a GCC builtin and then its argument prototype would still apply. */ #ifdef __cplusplus extern "C" #endif char dld_link (); int main () { return dld_link (); ; return 0; } _ACEOF if ac_fn_c_try_link "$LINENO"; then : ac_cv_lib_dld_dld_link=yes else ac_cv_lib_dld_dld_link=no fi rm -f core conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext LIBS=$ac_check_lib_save_LIBS fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_dld_dld_link" >&5 $as_echo "$ac_cv_lib_dld_dld_link" >&6; } if test "x$ac_cv_lib_dld_dld_link" = xyes; then : lt_cv_dlopen=dld_link lt_cv_dlopen_libs=-ldld fi fi fi fi fi fi ;; esac if test no = "$lt_cv_dlopen"; then enable_dlopen=no else enable_dlopen=yes fi case $lt_cv_dlopen in dlopen) save_CPPFLAGS=$CPPFLAGS test yes = "$ac_cv_header_dlfcn_h" && CPPFLAGS="$CPPFLAGS -DHAVE_DLFCN_H" save_LDFLAGS=$LDFLAGS wl=$lt_prog_compiler_wl eval LDFLAGS=\"\$LDFLAGS $export_dynamic_flag_spec\" save_LIBS=$LIBS LIBS="$lt_cv_dlopen_libs $LIBS" { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether a program can dlopen itself" >&5 $as_echo_n "checking whether a program can dlopen itself... " >&6; } if ${lt_cv_dlopen_self+:} false; then : $as_echo_n "(cached) " >&6 else if test yes = "$cross_compiling"; then : lt_cv_dlopen_self=cross else lt_dlunknown=0; lt_dlno_uscore=1; lt_dlneed_uscore=2 lt_status=$lt_dlunknown cat > conftest.$ac_ext <<_LT_EOF #line $LINENO "configure" #include "confdefs.h" #if HAVE_DLFCN_H #include #endif #include #ifdef RTLD_GLOBAL # define LT_DLGLOBAL RTLD_GLOBAL #else # ifdef DL_GLOBAL # define LT_DLGLOBAL DL_GLOBAL # else # define LT_DLGLOBAL 0 # endif #endif /* We may have to define LT_DLLAZY_OR_NOW in the command line if we find out it does not work in some platform. */ #ifndef LT_DLLAZY_OR_NOW # ifdef RTLD_LAZY # define LT_DLLAZY_OR_NOW RTLD_LAZY # else # ifdef DL_LAZY # define LT_DLLAZY_OR_NOW DL_LAZY # else # ifdef RTLD_NOW # define LT_DLLAZY_OR_NOW RTLD_NOW # else # ifdef DL_NOW # define LT_DLLAZY_OR_NOW DL_NOW # else # define LT_DLLAZY_OR_NOW 0 # endif # endif # endif # endif #endif /* When -fvisibility=hidden is used, assume the code has been annotated correspondingly for the symbols needed. */ #if defined __GNUC__ && (((__GNUC__ == 3) && (__GNUC_MINOR__ >= 3)) || (__GNUC__ > 3)) int fnord () __attribute__((visibility("default"))); #endif int fnord () { return 42; } int main () { void *self = dlopen (0, LT_DLGLOBAL|LT_DLLAZY_OR_NOW); int status = $lt_dlunknown; if (self) { if (dlsym (self,"fnord")) status = $lt_dlno_uscore; else { if (dlsym( self,"_fnord")) status = $lt_dlneed_uscore; else puts (dlerror ()); } /* dlclose (self); */ } else puts (dlerror ()); return status; } _LT_EOF if { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$ac_link\""; } >&5 (eval $ac_link) 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; } && test -s "conftest$ac_exeext" 2>/dev/null; then (./conftest; exit; ) >&5 2>/dev/null lt_status=$? case x$lt_status in x$lt_dlno_uscore) lt_cv_dlopen_self=yes ;; x$lt_dlneed_uscore) lt_cv_dlopen_self=yes ;; x$lt_dlunknown|x*) lt_cv_dlopen_self=no ;; esac else : # compilation failed lt_cv_dlopen_self=no fi fi rm -fr conftest* fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_dlopen_self" >&5 $as_echo "$lt_cv_dlopen_self" >&6; } if test yes = "$lt_cv_dlopen_self"; then wl=$lt_prog_compiler_wl eval LDFLAGS=\"\$LDFLAGS $lt_prog_compiler_static\" { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether a statically linked program can dlopen itself" >&5 $as_echo_n "checking whether a statically linked program can dlopen itself... " >&6; } if ${lt_cv_dlopen_self_static+:} false; then : $as_echo_n "(cached) " >&6 else if test yes = "$cross_compiling"; then : lt_cv_dlopen_self_static=cross else lt_dlunknown=0; lt_dlno_uscore=1; lt_dlneed_uscore=2 lt_status=$lt_dlunknown cat > conftest.$ac_ext <<_LT_EOF #line $LINENO "configure" #include "confdefs.h" #if HAVE_DLFCN_H #include #endif #include #ifdef RTLD_GLOBAL # define LT_DLGLOBAL RTLD_GLOBAL #else # ifdef DL_GLOBAL # define LT_DLGLOBAL DL_GLOBAL # else # define LT_DLGLOBAL 0 # endif #endif /* We may have to define LT_DLLAZY_OR_NOW in the command line if we find out it does not work in some platform. */ #ifndef LT_DLLAZY_OR_NOW # ifdef RTLD_LAZY # define LT_DLLAZY_OR_NOW RTLD_LAZY # else # ifdef DL_LAZY # define LT_DLLAZY_OR_NOW DL_LAZY # else # ifdef RTLD_NOW # define LT_DLLAZY_OR_NOW RTLD_NOW # else # ifdef DL_NOW # define LT_DLLAZY_OR_NOW DL_NOW # else # define LT_DLLAZY_OR_NOW 0 # endif # endif # endif # endif #endif /* When -fvisibility=hidden is used, assume the code has been annotated correspondingly for the symbols needed. */ #if defined __GNUC__ && (((__GNUC__ == 3) && (__GNUC_MINOR__ >= 3)) || (__GNUC__ > 3)) int fnord () __attribute__((visibility("default"))); #endif int fnord () { return 42; } int main () { void *self = dlopen (0, LT_DLGLOBAL|LT_DLLAZY_OR_NOW); int status = $lt_dlunknown; if (self) { if (dlsym (self,"fnord")) status = $lt_dlno_uscore; else { if (dlsym( self,"_fnord")) status = $lt_dlneed_uscore; else puts (dlerror ()); } /* dlclose (self); */ } else puts (dlerror ()); return status; } _LT_EOF if { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$ac_link\""; } >&5 (eval $ac_link) 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; } && test -s "conftest$ac_exeext" 2>/dev/null; then (./conftest; exit; ) >&5 2>/dev/null lt_status=$? case x$lt_status in x$lt_dlno_uscore) lt_cv_dlopen_self_static=yes ;; x$lt_dlneed_uscore) lt_cv_dlopen_self_static=yes ;; x$lt_dlunknown|x*) lt_cv_dlopen_self_static=no ;; esac else : # compilation failed lt_cv_dlopen_self_static=no fi fi rm -fr conftest* fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_dlopen_self_static" >&5 $as_echo "$lt_cv_dlopen_self_static" >&6; } fi CPPFLAGS=$save_CPPFLAGS LDFLAGS=$save_LDFLAGS LIBS=$save_LIBS ;; esac case $lt_cv_dlopen_self in yes|no) enable_dlopen_self=$lt_cv_dlopen_self ;; *) enable_dlopen_self=unknown ;; esac case $lt_cv_dlopen_self_static in yes|no) enable_dlopen_self_static=$lt_cv_dlopen_self_static ;; *) enable_dlopen_self_static=unknown ;; esac fi striplib= old_striplib= { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether stripping libraries is possible" >&5 $as_echo_n "checking whether stripping libraries is possible... " >&6; } if test -n "$STRIP" && $STRIP -V 2>&1 | $GREP "GNU strip" >/dev/null; then test -z "$old_striplib" && old_striplib="$STRIP --strip-debug" test -z "$striplib" && striplib="$STRIP --strip-unneeded" { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5 $as_echo "yes" >&6; } else # FIXME - insert some real tests, host_os isn't really good enough case $host_os in darwin*) if test -n "$STRIP"; then striplib="$STRIP -x" old_striplib="$STRIP -S" { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5 $as_echo "yes" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi ;; *) { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } ;; esac fi # Report what library types will actually be built { $as_echo "$as_me:${as_lineno-$LINENO}: checking if libtool supports shared libraries" >&5 $as_echo_n "checking if libtool supports shared libraries... " >&6; } { $as_echo "$as_me:${as_lineno-$LINENO}: result: $can_build_shared" >&5 $as_echo "$can_build_shared" >&6; } { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether to build shared libraries" >&5 $as_echo_n "checking whether to build shared libraries... " >&6; } test no = "$can_build_shared" && enable_shared=no # On AIX, shared libraries and static libraries use the same namespace, and # are all built from PIC. case $host_os in aix3*) test yes = "$enable_shared" && enable_static=no if test -n "$RANLIB"; then archive_cmds="$archive_cmds~\$RANLIB \$lib" postinstall_cmds='$RANLIB $lib' fi ;; aix[4-9]*) if test ia64 != "$host_cpu"; then case $enable_shared,$with_aix_soname,$aix_use_runtimelinking in yes,aix,yes) ;; # shared object as lib.so file only yes,svr4,*) ;; # shared object as lib.so archive member only yes,*) enable_static=no ;; # shared object in lib.a archive as well esac fi ;; esac { $as_echo "$as_me:${as_lineno-$LINENO}: result: $enable_shared" >&5 $as_echo "$enable_shared" >&6; } { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether to build static libraries" >&5 $as_echo_n "checking whether to build static libraries... " >&6; } # Make sure either enable_shared or enable_static is yes. test yes = "$enable_shared" || enable_static=yes { $as_echo "$as_me:${as_lineno-$LINENO}: result: $enable_static" >&5 $as_echo "$enable_static" >&6; } fi ac_ext=c ac_cpp='$CPP $CPPFLAGS' ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' ac_compiler_gnu=$ac_cv_c_compiler_gnu CC=$lt_save_CC ac_config_commands="$ac_config_commands libtool" # Only expand once: { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether small structs are returned in registers" >&5 $as_echo_n "checking whether small structs are returned in registers... " >&6; } if ${ffcall_cv_c_struct_return_small+:} false; then : $as_echo_n "(cached) " >&6 else if test "$cross_compiling" = yes; then : case "$HOST_CPU_C_ABI" in alpha) ffcall_cv_c_struct_return_small="guessing no" ;; arm | armhf | arm64) ffcall_cv_c_struct_return_small="guessing yes" ;; hppa | hppa64) ffcall_cv_c_struct_return_small="guessing yes" ;; i386) case "$host_os" in cygwin* | darwin* | mingw*) ffcall_cv_c_struct_return_small="guessing yes" ;; linux* | solaris*) ffcall_cv_c_struct_return_small="guessing no" ;; *) ffcall_cv_c_struct_return_small="guessing no" ;; esac ;; ia64) ffcall_cv_c_struct_return_small="guessing yes" ;; mips | mipsn32) ffcall_cv_c_struct_return_small="guessing no" ;; mips64) ffcall_cv_c_struct_return_small="guessing yes" ;; powerpc | powerpc64) ffcall_cv_c_struct_return_small="guessing no" ;; powerpc64-elfv2) ffcall_cv_c_struct_return_small="guessing yes" ;; s390 | s390x) ffcall_cv_c_struct_return_small="guessing no" ;; sparc) ffcall_cv_c_struct_return_small="guessing no" ;; sparc64) ffcall_cv_c_struct_return_small="guessing yes" ;; x86_64) ffcall_cv_c_struct_return_small="guessing yes" ;; *) ffcall_cv_c_struct_return_small="guessing no" ;; esac else cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include #if defined __MACH__ && defined __APPLE__ /* Avoid a crash on Mac OS X. */ #include #include #include #include #include #include /* The exception port on which our thread listens. */ static mach_port_t our_exception_port; /* The main function of the thread listening for exceptions of type EXC_BAD_ACCESS. */ static void * mach_exception_thread (void *arg) { /* Buffer for a message to be received. */ struct { mach_msg_header_t head; mach_msg_body_t msgh_body; char data[1024]; } msg; mach_msg_return_t retval; /* Wait for a message on the exception port. */ retval = mach_msg (&msg.head, MACH_RCV_MSG | MACH_RCV_LARGE, 0, sizeof (msg), our_exception_port, MACH_MSG_TIMEOUT_NONE, MACH_PORT_NULL); if (retval != MACH_MSG_SUCCESS) abort (); exit (1); } static void nocrash_init (void) { mach_port_t self = mach_task_self (); /* Allocate a port on which the thread shall listen for exceptions. */ if (mach_port_allocate (self, MACH_PORT_RIGHT_RECEIVE, &our_exception_port) == KERN_SUCCESS) { /* See http://web.mit.edu/darwin/src/modules/xnu/osfmk/man/mach_port_insert_right.html. */ if (mach_port_insert_right (self, our_exception_port, our_exception_port, MACH_MSG_TYPE_MAKE_SEND) == KERN_SUCCESS) { /* The exceptions we want to catch. Only EXC_BAD_ACCESS is interesting for us. */ exception_mask_t mask = EXC_MASK_BAD_ACCESS; /* Create the thread listening on the exception port. */ pthread_attr_t attr; pthread_t thread; if (pthread_attr_init (&attr) == 0 && pthread_attr_setdetachstate (&attr, PTHREAD_CREATE_DETACHED) == 0 && pthread_create (&thread, &attr, mach_exception_thread, NULL) == 0) { pthread_attr_destroy (&attr); /* Replace the exception port info for these exceptions with our own. Note that we replace the exception port for the entire task, not only for a particular thread. This has the effect that when our exception port gets the message, the thread specific exception port has already been asked, and we don't need to bother about it. See http://web.mit.edu/darwin/src/modules/xnu/osfmk/man/task_set_exception_ports.html. */ task_set_exception_ports (self, mask, our_exception_port, EXCEPTION_DEFAULT, MACHINE_THREAD_STATE); } } } } #elif defined _WIN32 && ! defined __CYGWIN__ /* Avoid a crash on native Windows. */ #define WIN32_LEAN_AND_MEAN #include #include static LONG WINAPI exception_filter (EXCEPTION_POINTERS *ExceptionInfo) { switch (ExceptionInfo->ExceptionRecord->ExceptionCode) { case EXCEPTION_ACCESS_VIOLATION: case EXCEPTION_IN_PAGE_ERROR: case EXCEPTION_STACK_OVERFLOW: case EXCEPTION_GUARD_PAGE: case EXCEPTION_PRIV_INSTRUCTION: case EXCEPTION_ILLEGAL_INSTRUCTION: case EXCEPTION_DATATYPE_MISALIGNMENT: case EXCEPTION_ARRAY_BOUNDS_EXCEEDED: case EXCEPTION_NONCONTINUABLE_EXCEPTION: exit (1); } return EXCEPTION_CONTINUE_SEARCH; } static void nocrash_init (void) { SetUnhandledExceptionFilter ((LPTOP_LEVEL_EXCEPTION_FILTER) exception_filter); } #else /* Avoid a crash on POSIX systems. */ #include #include /* A POSIX signal handler. */ static void exception_handler (int sig) { _exit (1); } static void nocrash_init (void) { #ifdef SIGSEGV signal (SIGSEGV, exception_handler); #endif #ifdef SIGBUS signal (SIGBUS, exception_handler); #endif } #endif typedef struct { long x; } foo; long y; foo foofun () { foo f; f.x = y; return f; } long (*fun) () = (long (*) ()) foofun; int main() { nocrash_init(); y = 37; if ((*fun)() != 37) return 1; y = 55; if ((*fun)() != 55) return 1; return 0; } _ACEOF if ac_fn_c_try_run "$LINENO"; then : ffcall_cv_c_struct_return_small=yes else ffcall_cv_c_struct_return_small=no fi rm -f core *.core core.conftest.* gmon.out bb.out conftest$ac_exeext \ conftest.$ac_objext conftest.beam conftest.$ac_ext fi fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ffcall_cv_c_struct_return_small" >&5 $as_echo "$ffcall_cv_c_struct_return_small" >&6; } case "$ffcall_cv_c_struct_return_small" in *yes) $as_echo "#define __SMALL_STRUCT_RETURN__ /**/" >>confdefs.h ;; *no) ;; esac { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether floats are returned in integer registers" >&5 $as_echo_n "checking whether floats are returned in integer registers... " >&6; } if ${ffcall_cv_c_float_return_ireg+:} false; then : $as_echo_n "(cached) " >&6 else if test "$cross_compiling" = yes; then : ffcall_cv_c_float_return_ireg="guessing no" else cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include #if defined __MACH__ && defined __APPLE__ /* Avoid a crash on Mac OS X. */ #include #include #include #include #include #include /* The exception port on which our thread listens. */ static mach_port_t our_exception_port; /* The main function of the thread listening for exceptions of type EXC_BAD_ACCESS. */ static void * mach_exception_thread (void *arg) { /* Buffer for a message to be received. */ struct { mach_msg_header_t head; mach_msg_body_t msgh_body; char data[1024]; } msg; mach_msg_return_t retval; /* Wait for a message on the exception port. */ retval = mach_msg (&msg.head, MACH_RCV_MSG | MACH_RCV_LARGE, 0, sizeof (msg), our_exception_port, MACH_MSG_TIMEOUT_NONE, MACH_PORT_NULL); if (retval != MACH_MSG_SUCCESS) abort (); exit (1); } static void nocrash_init (void) { mach_port_t self = mach_task_self (); /* Allocate a port on which the thread shall listen for exceptions. */ if (mach_port_allocate (self, MACH_PORT_RIGHT_RECEIVE, &our_exception_port) == KERN_SUCCESS) { /* See http://web.mit.edu/darwin/src/modules/xnu/osfmk/man/mach_port_insert_right.html. */ if (mach_port_insert_right (self, our_exception_port, our_exception_port, MACH_MSG_TYPE_MAKE_SEND) == KERN_SUCCESS) { /* The exceptions we want to catch. Only EXC_BAD_ACCESS is interesting for us. */ exception_mask_t mask = EXC_MASK_BAD_ACCESS; /* Create the thread listening on the exception port. */ pthread_attr_t attr; pthread_t thread; if (pthread_attr_init (&attr) == 0 && pthread_attr_setdetachstate (&attr, PTHREAD_CREATE_DETACHED) == 0 && pthread_create (&thread, &attr, mach_exception_thread, NULL) == 0) { pthread_attr_destroy (&attr); /* Replace the exception port info for these exceptions with our own. Note that we replace the exception port for the entire task, not only for a particular thread. This has the effect that when our exception port gets the message, the thread specific exception port has already been asked, and we don't need to bother about it. See http://web.mit.edu/darwin/src/modules/xnu/osfmk/man/task_set_exception_ports.html. */ task_set_exception_ports (self, mask, our_exception_port, EXCEPTION_DEFAULT, MACHINE_THREAD_STATE); } } } } #elif defined _WIN32 && ! defined __CYGWIN__ /* Avoid a crash on native Windows. */ #define WIN32_LEAN_AND_MEAN #include #include static LONG WINAPI exception_filter (EXCEPTION_POINTERS *ExceptionInfo) { switch (ExceptionInfo->ExceptionRecord->ExceptionCode) { case EXCEPTION_ACCESS_VIOLATION: case EXCEPTION_IN_PAGE_ERROR: case EXCEPTION_STACK_OVERFLOW: case EXCEPTION_GUARD_PAGE: case EXCEPTION_PRIV_INSTRUCTION: case EXCEPTION_ILLEGAL_INSTRUCTION: case EXCEPTION_DATATYPE_MISALIGNMENT: case EXCEPTION_ARRAY_BOUNDS_EXCEEDED: case EXCEPTION_NONCONTINUABLE_EXCEPTION: exit (1); } return EXCEPTION_CONTINUE_SEARCH; } static void nocrash_init (void) { SetUnhandledExceptionFilter ((LPTOP_LEVEL_EXCEPTION_FILTER) exception_filter); } #else /* Avoid a crash on POSIX systems. */ #include #include /* A POSIX signal handler. */ static void exception_handler (int sig) { _exit (1); } static void nocrash_init (void) { #ifdef SIGSEGV signal (SIGSEGV, exception_handler); #endif #ifdef SIGBUS signal (SIGBUS, exception_handler); #endif } #endif float x = (float)1.2; float y = (float)1.3; float fun () { return x*y; } int main() { nocrash_init(); {int val = (* (int (*) ()) fun) (); return !(val == 0x3FC7AE15 || val == 0x15AEC73F); }} _ACEOF if ac_fn_c_try_run "$LINENO"; then : ffcall_cv_c_float_return_ireg=yes else ffcall_cv_c_float_return_ireg=no fi rm -f core *.core core.conftest.* gmon.out bb.out conftest$ac_exeext \ conftest.$ac_objext conftest.beam conftest.$ac_ext fi fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ffcall_cv_c_float_return_ireg" >&5 $as_echo "$ffcall_cv_c_float_return_ireg" >&6; } case "$ffcall_cv_c_float_return_ireg" in *yes) $as_echo "#define __IREG_FLOAT_RETURN__ /**/" >>confdefs.h ;; *no) ;; esac for ac_header in unistd_h do : ac_fn_c_check_header_mongrel "$LINENO" "unistd_h" "ac_cv_header_unistd_h" "$ac_includes_default" if test "x$ac_cv_header_unistd_h" = xyes; then : cat >>confdefs.h <<_ACEOF #define HAVE_UNISTD_H 1 _ACEOF fi done { $as_echo "$as_me:${as_lineno-$LINENO}: checking for ANSI C header files" >&5 $as_echo_n "checking for ANSI C header files... " >&6; } if ${ac_cv_header_stdc+:} false; then : $as_echo_n "(cached) " >&6 else cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include #include #include #include int main () { ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO"; then : ac_cv_header_stdc=yes else ac_cv_header_stdc=no fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext if test $ac_cv_header_stdc = yes; then # SunOS 4.x string.h does not declare mem*, contrary to ANSI. cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include _ACEOF if (eval "$ac_cpp conftest.$ac_ext") 2>&5 | $EGREP "memchr" >/dev/null 2>&1; then : else ac_cv_header_stdc=no fi rm -f conftest* fi if test $ac_cv_header_stdc = yes; then # ISC 2.0.2 stdlib.h does not declare free, contrary to ANSI. cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include _ACEOF if (eval "$ac_cpp conftest.$ac_ext") 2>&5 | $EGREP "free" >/dev/null 2>&1; then : else ac_cv_header_stdc=no fi rm -f conftest* fi if test $ac_cv_header_stdc = yes; then # /bin/cc in Irix-4.0.5 gets non-ANSI ctype macros unless using -ansi. if test "$cross_compiling" = yes; then : : else cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include #include #if ((' ' & 0x0FF) == 0x020) # define ISLOWER(c) ('a' <= (c) && (c) <= 'z') # define TOUPPER(c) (ISLOWER(c) ? 'A' + ((c) - 'a') : (c)) #else # define ISLOWER(c) \ (('a' <= (c) && (c) <= 'i') \ || ('j' <= (c) && (c) <= 'r') \ || ('s' <= (c) && (c) <= 'z')) # define TOUPPER(c) (ISLOWER(c) ? ((c) | 0x40) : (c)) #endif #define XOR(e, f) (((e) && !(f)) || (!(e) && (f))) int main () { int i; for (i = 0; i < 256; i++) if (XOR (islower (i), ISLOWER (i)) || toupper (i) != TOUPPER (i)) return 2; return 0; } _ACEOF if ac_fn_c_try_run "$LINENO"; then : else ac_cv_header_stdc=no fi rm -f core *.core core.conftest.* gmon.out bb.out conftest$ac_exeext \ conftest.$ac_objext conftest.beam conftest.$ac_ext fi fi fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_header_stdc" >&5 $as_echo "$ac_cv_header_stdc" >&6; } if test $ac_cv_header_stdc = yes; then $as_echo "#define STDC_HEADERS 1" >>confdefs.h fi { $as_echo "$as_me:${as_lineno-$LINENO}: checking for getpagesize" >&5 $as_echo_n "checking for getpagesize... " >&6; } if ${cl_cv_func_getpagesize+:} false; then : $as_echo_n "(cached) " >&6 else cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #ifdef HAVE_UNISTD_H #include #include #endif int main () { getpagesize(); ; return 0; } _ACEOF if ac_fn_c_try_link "$LINENO"; then : cl_cv_func_getpagesize=yes else cl_cv_func_getpagesize=no fi rm -f core conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $cl_cv_func_getpagesize" >&5 $as_echo "$cl_cv_func_getpagesize" >&6; } if test $cl_cv_func_getpagesize = yes; then : $as_echo "#define HAVE_GETPAGESIZE /**/" >>confdefs.h have_getpagesize=1 fi if test -n "$have_getpagesize"; then { $as_echo "$as_me:${as_lineno-$LINENO}: checking for getpagesize declaration" >&5 $as_echo_n "checking for getpagesize declaration... " >&6; } if ${cl_cv_proto_getpagesize+:} false; then : $as_echo_n "(cached) " >&6 else cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include #ifdef HAVE_UNISTD_H #include #endif extern #ifdef __cplusplus "C" #endif int getpagesize(); int main () { ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO"; then : cl_cv_proto_getpagesize_ret="int" else cl_cv_proto_getpagesize_ret="size_t" fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext cl_cv_proto_getpagesize="extern $cl_cv_proto_getpagesize_ret getpagesize (void);" fi cl_cv_proto_getpagesize=`echo "$cl_cv_proto_getpagesize" | tr -s ' ' | sed -e 's/( /(/'` { $as_echo "$as_me:${as_lineno-$LINENO}: result: ${ac_t:- }$cl_cv_proto_getpagesize" >&5 $as_echo "${ac_t:- }$cl_cv_proto_getpagesize" >&6; } cat >>confdefs.h <<_ACEOF #define RETGETPAGESIZETYPE $cl_cv_proto_getpagesize_ret _ACEOF else for ac_header in sys/param.h do : ac_fn_c_check_header_mongrel "$LINENO" "sys/param.h" "ac_cv_header_sys_param_h" "$ac_includes_default" if test "x$ac_cv_header_sys_param_h" = xyes; then : cat >>confdefs.h <<_ACEOF #define HAVE_SYS_PARAM_H 1 _ACEOF fi done fi { $as_echo "$as_me:${as_lineno-$LINENO}: checking for vm_allocate" >&5 $as_echo_n "checking for vm_allocate... " >&6; } if ${cl_cv_func_vm+:} false; then : $as_echo_n "(cached) " >&6 else cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ int main () { vm_allocate(); task_self(); ; return 0; } _ACEOF if ac_fn_c_try_link "$LINENO"; then : cl_cv_func_vm=yes else cl_cv_func_vm=no fi rm -f core conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $cl_cv_func_vm" >&5 $as_echo "$cl_cv_func_vm" >&6; } if test $cl_cv_func_vm = yes; then : $as_echo "#define HAVE_MACH_VM /**/" >>confdefs.h fi ac_fn_c_check_header_mongrel "$LINENO" "sys/mman.h" "ac_cv_header_sys_mman_h" "$ac_includes_default" if test "x$ac_cv_header_sys_mman_h" = xyes; then : else no_mmap=1 fi if test -z "$no_mmap"; then ac_fn_c_check_func "$LINENO" "mmap" "ac_cv_func_mmap" if test "x$ac_cv_func_mmap" = xyes; then : else no_mmap=1 fi if test -z "$no_mmap"; then $as_echo "#define HAVE_MMAP /**/" >>confdefs.h { $as_echo "$as_me:${as_lineno-$LINENO}: checking for working mmap" >&5 $as_echo_n "checking for working mmap... " >&6; } if ${ffcall_cv_func_mmap_works+:} false; then : $as_echo_n "(cached) " >&6 else if test $cross_compiling = no; then mmap_prog_1=' #include #ifdef HAVE_UNISTD_H #include #endif #include #include #include int main () { ' mmap_prog_2=' if (mmap(NULL,0x100000,PROT_READ|PROT_WRITE,flags,fd,0) == (void*)-1) exit(1); exit(0); } ' if test "$cross_compiling" = yes; then : : else cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include #if defined __MACH__ && defined __APPLE__ /* Avoid a crash on Mac OS X. */ #include #include #include #include #include #include /* The exception port on which our thread listens. */ static mach_port_t our_exception_port; /* The main function of the thread listening for exceptions of type EXC_BAD_ACCESS. */ static void * mach_exception_thread (void *arg) { /* Buffer for a message to be received. */ struct { mach_msg_header_t head; mach_msg_body_t msgh_body; char data[1024]; } msg; mach_msg_return_t retval; /* Wait for a message on the exception port. */ retval = mach_msg (&msg.head, MACH_RCV_MSG | MACH_RCV_LARGE, 0, sizeof (msg), our_exception_port, MACH_MSG_TIMEOUT_NONE, MACH_PORT_NULL); if (retval != MACH_MSG_SUCCESS) abort (); exit (1); } static void nocrash_init (void) { mach_port_t self = mach_task_self (); /* Allocate a port on which the thread shall listen for exceptions. */ if (mach_port_allocate (self, MACH_PORT_RIGHT_RECEIVE, &our_exception_port) == KERN_SUCCESS) { /* See http://web.mit.edu/darwin/src/modules/xnu/osfmk/man/mach_port_insert_right.html. */ if (mach_port_insert_right (self, our_exception_port, our_exception_port, MACH_MSG_TYPE_MAKE_SEND) == KERN_SUCCESS) { /* The exceptions we want to catch. Only EXC_BAD_ACCESS is interesting for us. */ exception_mask_t mask = EXC_MASK_BAD_ACCESS; /* Create the thread listening on the exception port. */ pthread_attr_t attr; pthread_t thread; if (pthread_attr_init (&attr) == 0 && pthread_attr_setdetachstate (&attr, PTHREAD_CREATE_DETACHED) == 0 && pthread_create (&thread, &attr, mach_exception_thread, NULL) == 0) { pthread_attr_destroy (&attr); /* Replace the exception port info for these exceptions with our own. Note that we replace the exception port for the entire task, not only for a particular thread. This has the effect that when our exception port gets the message, the thread specific exception port has already been asked, and we don't need to bother about it. See http://web.mit.edu/darwin/src/modules/xnu/osfmk/man/task_set_exception_ports.html. */ task_set_exception_ports (self, mask, our_exception_port, EXCEPTION_DEFAULT, MACHINE_THREAD_STATE); } } } } #elif defined _WIN32 && ! defined __CYGWIN__ /* Avoid a crash on native Windows. */ #define WIN32_LEAN_AND_MEAN #include #include static LONG WINAPI exception_filter (EXCEPTION_POINTERS *ExceptionInfo) { switch (ExceptionInfo->ExceptionRecord->ExceptionCode) { case EXCEPTION_ACCESS_VIOLATION: case EXCEPTION_IN_PAGE_ERROR: case EXCEPTION_STACK_OVERFLOW: case EXCEPTION_GUARD_PAGE: case EXCEPTION_PRIV_INSTRUCTION: case EXCEPTION_ILLEGAL_INSTRUCTION: case EXCEPTION_DATATYPE_MISALIGNMENT: case EXCEPTION_ARRAY_BOUNDS_EXCEEDED: case EXCEPTION_NONCONTINUABLE_EXCEPTION: exit (1); } return EXCEPTION_CONTINUE_SEARCH; } static void nocrash_init (void) { SetUnhandledExceptionFilter ((LPTOP_LEVEL_EXCEPTION_FILTER) exception_filter); } #else /* Avoid a crash on POSIX systems. */ #include #include /* A POSIX signal handler. */ static void exception_handler (int sig) { _exit (1); } static void nocrash_init (void) { #ifdef SIGSEGV signal (SIGSEGV, exception_handler); #endif #ifdef SIGBUS signal (SIGBUS, exception_handler); #endif } #endif $mmap_prog_1 int flags = MAP_ANON | MAP_PRIVATE; int fd = -1; nocrash_init(); $mmap_prog_2 _ACEOF if ac_fn_c_try_run "$LINENO"; then : have_mmap_anon=1 ffcall_cv_func_mmap_anon=yes fi rm -f core *.core core.conftest.* gmon.out bb.out conftest$ac_exeext \ conftest.$ac_objext conftest.beam conftest.$ac_ext fi if test "$cross_compiling" = yes; then : : else cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include #if defined __MACH__ && defined __APPLE__ /* Avoid a crash on Mac OS X. */ #include #include #include #include #include #include /* The exception port on which our thread listens. */ static mach_port_t our_exception_port; /* The main function of the thread listening for exceptions of type EXC_BAD_ACCESS. */ static void * mach_exception_thread (void *arg) { /* Buffer for a message to be received. */ struct { mach_msg_header_t head; mach_msg_body_t msgh_body; char data[1024]; } msg; mach_msg_return_t retval; /* Wait for a message on the exception port. */ retval = mach_msg (&msg.head, MACH_RCV_MSG | MACH_RCV_LARGE, 0, sizeof (msg), our_exception_port, MACH_MSG_TIMEOUT_NONE, MACH_PORT_NULL); if (retval != MACH_MSG_SUCCESS) abort (); exit (1); } static void nocrash_init (void) { mach_port_t self = mach_task_self (); /* Allocate a port on which the thread shall listen for exceptions. */ if (mach_port_allocate (self, MACH_PORT_RIGHT_RECEIVE, &our_exception_port) == KERN_SUCCESS) { /* See http://web.mit.edu/darwin/src/modules/xnu/osfmk/man/mach_port_insert_right.html. */ if (mach_port_insert_right (self, our_exception_port, our_exception_port, MACH_MSG_TYPE_MAKE_SEND) == KERN_SUCCESS) { /* The exceptions we want to catch. Only EXC_BAD_ACCESS is interesting for us. */ exception_mask_t mask = EXC_MASK_BAD_ACCESS; /* Create the thread listening on the exception port. */ pthread_attr_t attr; pthread_t thread; if (pthread_attr_init (&attr) == 0 && pthread_attr_setdetachstate (&attr, PTHREAD_CREATE_DETACHED) == 0 && pthread_create (&thread, &attr, mach_exception_thread, NULL) == 0) { pthread_attr_destroy (&attr); /* Replace the exception port info for these exceptions with our own. Note that we replace the exception port for the entire task, not only for a particular thread. This has the effect that when our exception port gets the message, the thread specific exception port has already been asked, and we don't need to bother about it. See http://web.mit.edu/darwin/src/modules/xnu/osfmk/man/task_set_exception_ports.html. */ task_set_exception_ports (self, mask, our_exception_port, EXCEPTION_DEFAULT, MACHINE_THREAD_STATE); } } } } #elif defined _WIN32 && ! defined __CYGWIN__ /* Avoid a crash on native Windows. */ #define WIN32_LEAN_AND_MEAN #include #include static LONG WINAPI exception_filter (EXCEPTION_POINTERS *ExceptionInfo) { switch (ExceptionInfo->ExceptionRecord->ExceptionCode) { case EXCEPTION_ACCESS_VIOLATION: case EXCEPTION_IN_PAGE_ERROR: case EXCEPTION_STACK_OVERFLOW: case EXCEPTION_GUARD_PAGE: case EXCEPTION_PRIV_INSTRUCTION: case EXCEPTION_ILLEGAL_INSTRUCTION: case EXCEPTION_DATATYPE_MISALIGNMENT: case EXCEPTION_ARRAY_BOUNDS_EXCEEDED: case EXCEPTION_NONCONTINUABLE_EXCEPTION: exit (1); } return EXCEPTION_CONTINUE_SEARCH; } static void nocrash_init (void) { SetUnhandledExceptionFilter ((LPTOP_LEVEL_EXCEPTION_FILTER) exception_filter); } #else /* Avoid a crash on POSIX systems. */ #include #include /* A POSIX signal handler. */ static void exception_handler (int sig) { _exit (1); } static void nocrash_init (void) { #ifdef SIGSEGV signal (SIGSEGV, exception_handler); #endif #ifdef SIGBUS signal (SIGBUS, exception_handler); #endif } #endif $mmap_prog_1 int flags = MAP_ANONYMOUS | MAP_PRIVATE; int fd = -1; nocrash_init(); $mmap_prog_2 _ACEOF if ac_fn_c_try_run "$LINENO"; then : have_mmap_anon=1 ffcall_cv_func_mmap_anonymous=yes fi rm -f core *.core core.conftest.* gmon.out bb.out conftest$ac_exeext \ conftest.$ac_objext conftest.beam conftest.$ac_ext fi if test "$cross_compiling" = yes; then : : else cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include #if defined __MACH__ && defined __APPLE__ /* Avoid a crash on Mac OS X. */ #include #include #include #include #include #include /* The exception port on which our thread listens. */ static mach_port_t our_exception_port; /* The main function of the thread listening for exceptions of type EXC_BAD_ACCESS. */ static void * mach_exception_thread (void *arg) { /* Buffer for a message to be received. */ struct { mach_msg_header_t head; mach_msg_body_t msgh_body; char data[1024]; } msg; mach_msg_return_t retval; /* Wait for a message on the exception port. */ retval = mach_msg (&msg.head, MACH_RCV_MSG | MACH_RCV_LARGE, 0, sizeof (msg), our_exception_port, MACH_MSG_TIMEOUT_NONE, MACH_PORT_NULL); if (retval != MACH_MSG_SUCCESS) abort (); exit (1); } static void nocrash_init (void) { mach_port_t self = mach_task_self (); /* Allocate a port on which the thread shall listen for exceptions. */ if (mach_port_allocate (self, MACH_PORT_RIGHT_RECEIVE, &our_exception_port) == KERN_SUCCESS) { /* See http://web.mit.edu/darwin/src/modules/xnu/osfmk/man/mach_port_insert_right.html. */ if (mach_port_insert_right (self, our_exception_port, our_exception_port, MACH_MSG_TYPE_MAKE_SEND) == KERN_SUCCESS) { /* The exceptions we want to catch. Only EXC_BAD_ACCESS is interesting for us. */ exception_mask_t mask = EXC_MASK_BAD_ACCESS; /* Create the thread listening on the exception port. */ pthread_attr_t attr; pthread_t thread; if (pthread_attr_init (&attr) == 0 && pthread_attr_setdetachstate (&attr, PTHREAD_CREATE_DETACHED) == 0 && pthread_create (&thread, &attr, mach_exception_thread, NULL) == 0) { pthread_attr_destroy (&attr); /* Replace the exception port info for these exceptions with our own. Note that we replace the exception port for the entire task, not only for a particular thread. This has the effect that when our exception port gets the message, the thread specific exception port has already been asked, and we don't need to bother about it. See http://web.mit.edu/darwin/src/modules/xnu/osfmk/man/task_set_exception_ports.html. */ task_set_exception_ports (self, mask, our_exception_port, EXCEPTION_DEFAULT, MACHINE_THREAD_STATE); } } } } #elif defined _WIN32 && ! defined __CYGWIN__ /* Avoid a crash on native Windows. */ #define WIN32_LEAN_AND_MEAN #include #include static LONG WINAPI exception_filter (EXCEPTION_POINTERS *ExceptionInfo) { switch (ExceptionInfo->ExceptionRecord->ExceptionCode) { case EXCEPTION_ACCESS_VIOLATION: case EXCEPTION_IN_PAGE_ERROR: case EXCEPTION_STACK_OVERFLOW: case EXCEPTION_GUARD_PAGE: case EXCEPTION_PRIV_INSTRUCTION: case EXCEPTION_ILLEGAL_INSTRUCTION: case EXCEPTION_DATATYPE_MISALIGNMENT: case EXCEPTION_ARRAY_BOUNDS_EXCEEDED: case EXCEPTION_NONCONTINUABLE_EXCEPTION: exit (1); } return EXCEPTION_CONTINUE_SEARCH; } static void nocrash_init (void) { SetUnhandledExceptionFilter ((LPTOP_LEVEL_EXCEPTION_FILTER) exception_filter); } #else /* Avoid a crash on POSIX systems. */ #include #include /* A POSIX signal handler. */ static void exception_handler (int sig) { _exit (1); } static void nocrash_init (void) { #ifdef SIGSEGV signal (SIGSEGV, exception_handler); #endif #ifdef SIGBUS signal (SIGBUS, exception_handler); #endif } #endif $mmap_prog_1 #ifndef MAP_FILE #define MAP_FILE 0 #endif int flags = MAP_FILE | MAP_PRIVATE; int fd = open("/dev/zero",O_RDONLY,0666); if (fd<0) exit(1); nocrash_init(); $mmap_prog_2 _ACEOF if ac_fn_c_try_run "$LINENO"; then : have_mmap_devzero=1 ffcall_cv_func_mmap_devzero=yes fi rm -f core *.core core.conftest.* gmon.out bb.out conftest$ac_exeext \ conftest.$ac_objext conftest.beam conftest.$ac_ext fi if test -n "$have_mmap_anon" -o -n "$have_mmap_devzero"; then ffcall_cv_func_mmap_works=yes else ffcall_cv_func_mmap_works=no fi else case "$host_os" in aix* | cygwin* | darwin* | hpux* | irix* | linux* | solaris*) ffcall_cv_func_mmap_works="guessing yes" ;; *) ffcall_cv_func_mmap_works="guessing no" ;; esac case "$host_os" in aix* | cygwin* | darwin* | linux* | solaris*) ffcall_cv_func_mmap_anon="guessing yes" ;; *) ffcall_cv_func_mmap_anon="guessing no" ;; esac case "$host_os" in aix* | cygwin* | hpux* | linux* | solaris*) ffcall_cv_func_mmap_anonymous="guessing yes" ;; *) ffcall_cv_func_mmap_anonymous="guessing no" ;; esac case "$host_os" in aix* | cygwin* | hpux* | irix* | linux* | solaris*) ffcall_cv_func_mmap_devzero="guessing yes" ;; *) ffcall_cv_func_mmap_devzero="guessing no" ;; esac fi fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ffcall_cv_func_mmap_works" >&5 $as_echo "$ffcall_cv_func_mmap_works" >&6; } case "$ffcall_cv_func_mmap_anon" in *yes) $as_echo "#define HAVE_MMAP_ANON /**/" >>confdefs.h ;; esac case "$ffcall_cv_func_mmap_anonymous" in *yes) $as_echo "#define HAVE_MMAP_ANONYMOUS /**/" >>confdefs.h ;; esac case "$ffcall_cv_func_mmap_devzero" in *yes) $as_echo "#define HAVE_MMAP_DEVZERO /**/" >>confdefs.h ;; esac fi fi for ac_func in mprotect do : ac_fn_c_check_func "$LINENO" "mprotect" "ac_cv_func_mprotect" if test "x$ac_cv_func_mprotect" = xyes; then : cat >>confdefs.h <<_ACEOF #define HAVE_MPROTECT 1 _ACEOF fi done if test $ac_cv_func_mprotect = yes; then { $as_echo "$as_me:${as_lineno-$LINENO}: checking for working mprotect" >&5 $as_echo_n "checking for working mprotect... " >&6; } if ${cl_cv_func_mprotect_works+:} false; then : $as_echo_n "(cached) " >&6 else if test $cross_compiling = no; then mprotect_prog=' #include /* declare malloc() */ #include #ifdef HAVE_UNISTD_H #include #endif /* declare getpagesize() and mprotect() */ #include #ifndef HAVE_GETPAGESIZE #include #define getpagesize() PAGESIZE #else extern #ifdef __cplusplus "C" #endif RETGETPAGESIZETYPE getpagesize (void); #endif char foo; int main () { unsigned long pagesize = getpagesize(); #define page_align(address) (char*)((unsigned long)(address) & -pagesize) ' if test "$cross_compiling" = yes; then : no_mprotect=1 else cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ $mprotect_prog if ((pagesize-1) & pagesize) exit(1); exit(0); } _ACEOF if ac_fn_c_try_run "$LINENO"; then : else no_mprotect=1 fi rm -f core *.core core.conftest.* gmon.out bb.out conftest$ac_exeext \ conftest.$ac_objext conftest.beam conftest.$ac_ext fi mprotect_prog="$mprotect_prog"' char* area = (char*) malloc(6*pagesize); char* fault_address = area + pagesize*7/2; ' if test -z "$no_mprotect"; then if test "$cross_compiling" = yes; then : : else cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include #if defined __MACH__ && defined __APPLE__ /* Avoid a crash on Mac OS X. */ #include #include #include #include #include #include /* The exception port on which our thread listens. */ static mach_port_t our_exception_port; /* The main function of the thread listening for exceptions of type EXC_BAD_ACCESS. */ static void * mach_exception_thread (void *arg) { /* Buffer for a message to be received. */ struct { mach_msg_header_t head; mach_msg_body_t msgh_body; char data[1024]; } msg; mach_msg_return_t retval; /* Wait for a message on the exception port. */ retval = mach_msg (&msg.head, MACH_RCV_MSG | MACH_RCV_LARGE, 0, sizeof (msg), our_exception_port, MACH_MSG_TIMEOUT_NONE, MACH_PORT_NULL); if (retval != MACH_MSG_SUCCESS) abort (); exit (1); } static void nocrash_init (void) { mach_port_t self = mach_task_self (); /* Allocate a port on which the thread shall listen for exceptions. */ if (mach_port_allocate (self, MACH_PORT_RIGHT_RECEIVE, &our_exception_port) == KERN_SUCCESS) { /* See http://web.mit.edu/darwin/src/modules/xnu/osfmk/man/mach_port_insert_right.html. */ if (mach_port_insert_right (self, our_exception_port, our_exception_port, MACH_MSG_TYPE_MAKE_SEND) == KERN_SUCCESS) { /* The exceptions we want to catch. Only EXC_BAD_ACCESS is interesting for us. */ exception_mask_t mask = EXC_MASK_BAD_ACCESS; /* Create the thread listening on the exception port. */ pthread_attr_t attr; pthread_t thread; if (pthread_attr_init (&attr) == 0 && pthread_attr_setdetachstate (&attr, PTHREAD_CREATE_DETACHED) == 0 && pthread_create (&thread, &attr, mach_exception_thread, NULL) == 0) { pthread_attr_destroy (&attr); /* Replace the exception port info for these exceptions with our own. Note that we replace the exception port for the entire task, not only for a particular thread. This has the effect that when our exception port gets the message, the thread specific exception port has already been asked, and we don't need to bother about it. See http://web.mit.edu/darwin/src/modules/xnu/osfmk/man/task_set_exception_ports.html. */ task_set_exception_ports (self, mask, our_exception_port, EXCEPTION_DEFAULT, MACHINE_THREAD_STATE); } } } } #elif defined _WIN32 && ! defined __CYGWIN__ /* Avoid a crash on native Windows. */ #define WIN32_LEAN_AND_MEAN #include #include static LONG WINAPI exception_filter (EXCEPTION_POINTERS *ExceptionInfo) { switch (ExceptionInfo->ExceptionRecord->ExceptionCode) { case EXCEPTION_ACCESS_VIOLATION: case EXCEPTION_IN_PAGE_ERROR: case EXCEPTION_STACK_OVERFLOW: case EXCEPTION_GUARD_PAGE: case EXCEPTION_PRIV_INSTRUCTION: case EXCEPTION_ILLEGAL_INSTRUCTION: case EXCEPTION_DATATYPE_MISALIGNMENT: case EXCEPTION_ARRAY_BOUNDS_EXCEEDED: case EXCEPTION_NONCONTINUABLE_EXCEPTION: exit (1); } return EXCEPTION_CONTINUE_SEARCH; } static void nocrash_init (void) { SetUnhandledExceptionFilter ((LPTOP_LEVEL_EXCEPTION_FILTER) exception_filter); } #else /* Avoid a crash on POSIX systems. */ #include #include /* A POSIX signal handler. */ static void exception_handler (int sig) { _exit (1); } static void nocrash_init (void) { #ifdef SIGSEGV signal (SIGSEGV, exception_handler); #endif #ifdef SIGBUS signal (SIGBUS, exception_handler); #endif } #endif $mprotect_prog nocrash_init(); if (mprotect(page_align(fault_address),pagesize,PROT_NONE) < 0) exit(0); foo = *fault_address; /* this should cause an exception or signal */ exit(0); } _ACEOF if ac_fn_c_try_run "$LINENO"; then : no_mprotect=1 fi rm -f core *.core core.conftest.* gmon.out bb.out conftest$ac_exeext \ conftest.$ac_objext conftest.beam conftest.$ac_ext fi fi if test -z "$no_mprotect"; then if test "$cross_compiling" = yes; then : : else cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include #if defined __MACH__ && defined __APPLE__ /* Avoid a crash on Mac OS X. */ #include #include #include #include #include #include /* The exception port on which our thread listens. */ static mach_port_t our_exception_port; /* The main function of the thread listening for exceptions of type EXC_BAD_ACCESS. */ static void * mach_exception_thread (void *arg) { /* Buffer for a message to be received. */ struct { mach_msg_header_t head; mach_msg_body_t msgh_body; char data[1024]; } msg; mach_msg_return_t retval; /* Wait for a message on the exception port. */ retval = mach_msg (&msg.head, MACH_RCV_MSG | MACH_RCV_LARGE, 0, sizeof (msg), our_exception_port, MACH_MSG_TIMEOUT_NONE, MACH_PORT_NULL); if (retval != MACH_MSG_SUCCESS) abort (); exit (1); } static void nocrash_init (void) { mach_port_t self = mach_task_self (); /* Allocate a port on which the thread shall listen for exceptions. */ if (mach_port_allocate (self, MACH_PORT_RIGHT_RECEIVE, &our_exception_port) == KERN_SUCCESS) { /* See http://web.mit.edu/darwin/src/modules/xnu/osfmk/man/mach_port_insert_right.html. */ if (mach_port_insert_right (self, our_exception_port, our_exception_port, MACH_MSG_TYPE_MAKE_SEND) == KERN_SUCCESS) { /* The exceptions we want to catch. Only EXC_BAD_ACCESS is interesting for us. */ exception_mask_t mask = EXC_MASK_BAD_ACCESS; /* Create the thread listening on the exception port. */ pthread_attr_t attr; pthread_t thread; if (pthread_attr_init (&attr) == 0 && pthread_attr_setdetachstate (&attr, PTHREAD_CREATE_DETACHED) == 0 && pthread_create (&thread, &attr, mach_exception_thread, NULL) == 0) { pthread_attr_destroy (&attr); /* Replace the exception port info for these exceptions with our own. Note that we replace the exception port for the entire task, not only for a particular thread. This has the effect that when our exception port gets the message, the thread specific exception port has already been asked, and we don't need to bother about it. See http://web.mit.edu/darwin/src/modules/xnu/osfmk/man/task_set_exception_ports.html. */ task_set_exception_ports (self, mask, our_exception_port, EXCEPTION_DEFAULT, MACHINE_THREAD_STATE); } } } } #elif defined _WIN32 && ! defined __CYGWIN__ /* Avoid a crash on native Windows. */ #define WIN32_LEAN_AND_MEAN #include #include static LONG WINAPI exception_filter (EXCEPTION_POINTERS *ExceptionInfo) { switch (ExceptionInfo->ExceptionRecord->ExceptionCode) { case EXCEPTION_ACCESS_VIOLATION: case EXCEPTION_IN_PAGE_ERROR: case EXCEPTION_STACK_OVERFLOW: case EXCEPTION_GUARD_PAGE: case EXCEPTION_PRIV_INSTRUCTION: case EXCEPTION_ILLEGAL_INSTRUCTION: case EXCEPTION_DATATYPE_MISALIGNMENT: case EXCEPTION_ARRAY_BOUNDS_EXCEEDED: case EXCEPTION_NONCONTINUABLE_EXCEPTION: exit (1); } return EXCEPTION_CONTINUE_SEARCH; } static void nocrash_init (void) { SetUnhandledExceptionFilter ((LPTOP_LEVEL_EXCEPTION_FILTER) exception_filter); } #else /* Avoid a crash on POSIX systems. */ #include #include /* A POSIX signal handler. */ static void exception_handler (int sig) { _exit (1); } static void nocrash_init (void) { #ifdef SIGSEGV signal (SIGSEGV, exception_handler); #endif #ifdef SIGBUS signal (SIGBUS, exception_handler); #endif } #endif $mprotect_prog nocrash_init(); if (mprotect(page_align(fault_address),pagesize,PROT_NONE) < 0) exit(0); *fault_address = 'z'; /* this should cause an exception or signal */ exit(0); } _ACEOF if ac_fn_c_try_run "$LINENO"; then : no_mprotect=1 fi rm -f core *.core core.conftest.* gmon.out bb.out conftest$ac_exeext \ conftest.$ac_objext conftest.beam conftest.$ac_ext fi fi if test -z "$no_mprotect"; then if test "$cross_compiling" = yes; then : : else cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include #if defined __MACH__ && defined __APPLE__ /* Avoid a crash on Mac OS X. */ #include #include #include #include #include #include /* The exception port on which our thread listens. */ static mach_port_t our_exception_port; /* The main function of the thread listening for exceptions of type EXC_BAD_ACCESS. */ static void * mach_exception_thread (void *arg) { /* Buffer for a message to be received. */ struct { mach_msg_header_t head; mach_msg_body_t msgh_body; char data[1024]; } msg; mach_msg_return_t retval; /* Wait for a message on the exception port. */ retval = mach_msg (&msg.head, MACH_RCV_MSG | MACH_RCV_LARGE, 0, sizeof (msg), our_exception_port, MACH_MSG_TIMEOUT_NONE, MACH_PORT_NULL); if (retval != MACH_MSG_SUCCESS) abort (); exit (1); } static void nocrash_init (void) { mach_port_t self = mach_task_self (); /* Allocate a port on which the thread shall listen for exceptions. */ if (mach_port_allocate (self, MACH_PORT_RIGHT_RECEIVE, &our_exception_port) == KERN_SUCCESS) { /* See http://web.mit.edu/darwin/src/modules/xnu/osfmk/man/mach_port_insert_right.html. */ if (mach_port_insert_right (self, our_exception_port, our_exception_port, MACH_MSG_TYPE_MAKE_SEND) == KERN_SUCCESS) { /* The exceptions we want to catch. Only EXC_BAD_ACCESS is interesting for us. */ exception_mask_t mask = EXC_MASK_BAD_ACCESS; /* Create the thread listening on the exception port. */ pthread_attr_t attr; pthread_t thread; if (pthread_attr_init (&attr) == 0 && pthread_attr_setdetachstate (&attr, PTHREAD_CREATE_DETACHED) == 0 && pthread_create (&thread, &attr, mach_exception_thread, NULL) == 0) { pthread_attr_destroy (&attr); /* Replace the exception port info for these exceptions with our own. Note that we replace the exception port for the entire task, not only for a particular thread. This has the effect that when our exception port gets the message, the thread specific exception port has already been asked, and we don't need to bother about it. See http://web.mit.edu/darwin/src/modules/xnu/osfmk/man/task_set_exception_ports.html. */ task_set_exception_ports (self, mask, our_exception_port, EXCEPTION_DEFAULT, MACHINE_THREAD_STATE); } } } } #elif defined _WIN32 && ! defined __CYGWIN__ /* Avoid a crash on native Windows. */ #define WIN32_LEAN_AND_MEAN #include #include static LONG WINAPI exception_filter (EXCEPTION_POINTERS *ExceptionInfo) { switch (ExceptionInfo->ExceptionRecord->ExceptionCode) { case EXCEPTION_ACCESS_VIOLATION: case EXCEPTION_IN_PAGE_ERROR: case EXCEPTION_STACK_OVERFLOW: case EXCEPTION_GUARD_PAGE: case EXCEPTION_PRIV_INSTRUCTION: case EXCEPTION_ILLEGAL_INSTRUCTION: case EXCEPTION_DATATYPE_MISALIGNMENT: case EXCEPTION_ARRAY_BOUNDS_EXCEEDED: case EXCEPTION_NONCONTINUABLE_EXCEPTION: exit (1); } return EXCEPTION_CONTINUE_SEARCH; } static void nocrash_init (void) { SetUnhandledExceptionFilter ((LPTOP_LEVEL_EXCEPTION_FILTER) exception_filter); } #else /* Avoid a crash on POSIX systems. */ #include #include /* A POSIX signal handler. */ static void exception_handler (int sig) { _exit (1); } static void nocrash_init (void) { #ifdef SIGSEGV signal (SIGSEGV, exception_handler); #endif #ifdef SIGBUS signal (SIGBUS, exception_handler); #endif } #endif $mprotect_prog nocrash_init(); if (mprotect(page_align(fault_address),pagesize,PROT_READ) < 0) exit(0); *fault_address = 'z'; /* this should cause an exception or signal */ exit(0); } _ACEOF if ac_fn_c_try_run "$LINENO"; then : no_mprotect=1 fi rm -f core *.core core.conftest.* gmon.out bb.out conftest$ac_exeext \ conftest.$ac_objext conftest.beam conftest.$ac_ext fi fi if test -z "$no_mprotect"; then if test "$cross_compiling" = yes; then : : else cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include #if defined __MACH__ && defined __APPLE__ /* Avoid a crash on Mac OS X. */ #include #include #include #include #include #include /* The exception port on which our thread listens. */ static mach_port_t our_exception_port; /* The main function of the thread listening for exceptions of type EXC_BAD_ACCESS. */ static void * mach_exception_thread (void *arg) { /* Buffer for a message to be received. */ struct { mach_msg_header_t head; mach_msg_body_t msgh_body; char data[1024]; } msg; mach_msg_return_t retval; /* Wait for a message on the exception port. */ retval = mach_msg (&msg.head, MACH_RCV_MSG | MACH_RCV_LARGE, 0, sizeof (msg), our_exception_port, MACH_MSG_TIMEOUT_NONE, MACH_PORT_NULL); if (retval != MACH_MSG_SUCCESS) abort (); exit (1); } static void nocrash_init (void) { mach_port_t self = mach_task_self (); /* Allocate a port on which the thread shall listen for exceptions. */ if (mach_port_allocate (self, MACH_PORT_RIGHT_RECEIVE, &our_exception_port) == KERN_SUCCESS) { /* See http://web.mit.edu/darwin/src/modules/xnu/osfmk/man/mach_port_insert_right.html. */ if (mach_port_insert_right (self, our_exception_port, our_exception_port, MACH_MSG_TYPE_MAKE_SEND) == KERN_SUCCESS) { /* The exceptions we want to catch. Only EXC_BAD_ACCESS is interesting for us. */ exception_mask_t mask = EXC_MASK_BAD_ACCESS; /* Create the thread listening on the exception port. */ pthread_attr_t attr; pthread_t thread; if (pthread_attr_init (&attr) == 0 && pthread_attr_setdetachstate (&attr, PTHREAD_CREATE_DETACHED) == 0 && pthread_create (&thread, &attr, mach_exception_thread, NULL) == 0) { pthread_attr_destroy (&attr); /* Replace the exception port info for these exceptions with our own. Note that we replace the exception port for the entire task, not only for a particular thread. This has the effect that when our exception port gets the message, the thread specific exception port has already been asked, and we don't need to bother about it. See http://web.mit.edu/darwin/src/modules/xnu/osfmk/man/task_set_exception_ports.html. */ task_set_exception_ports (self, mask, our_exception_port, EXCEPTION_DEFAULT, MACHINE_THREAD_STATE); } } } } #elif defined _WIN32 && ! defined __CYGWIN__ /* Avoid a crash on native Windows. */ #define WIN32_LEAN_AND_MEAN #include #include static LONG WINAPI exception_filter (EXCEPTION_POINTERS *ExceptionInfo) { switch (ExceptionInfo->ExceptionRecord->ExceptionCode) { case EXCEPTION_ACCESS_VIOLATION: case EXCEPTION_IN_PAGE_ERROR: case EXCEPTION_STACK_OVERFLOW: case EXCEPTION_GUARD_PAGE: case EXCEPTION_PRIV_INSTRUCTION: case EXCEPTION_ILLEGAL_INSTRUCTION: case EXCEPTION_DATATYPE_MISALIGNMENT: case EXCEPTION_ARRAY_BOUNDS_EXCEEDED: case EXCEPTION_NONCONTINUABLE_EXCEPTION: exit (1); } return EXCEPTION_CONTINUE_SEARCH; } static void nocrash_init (void) { SetUnhandledExceptionFilter ((LPTOP_LEVEL_EXCEPTION_FILTER) exception_filter); } #else /* Avoid a crash on POSIX systems. */ #include #include /* A POSIX signal handler. */ static void exception_handler (int sig) { _exit (1); } static void nocrash_init (void) { #ifdef SIGSEGV signal (SIGSEGV, exception_handler); #endif #ifdef SIGBUS signal (SIGBUS, exception_handler); #endif } #endif $mprotect_prog nocrash_init(); if (mprotect(page_align(fault_address),pagesize,PROT_READ) < 0) exit(1); if (mprotect(page_align(fault_address),pagesize,PROT_READ|PROT_WRITE) < 0) exit(1); *fault_address = 'z'; /* this should not cause an exception or signal */ exit(0); } _ACEOF if ac_fn_c_try_run "$LINENO"; then : else no_mprotect=1 fi rm -f core *.core core.conftest.* gmon.out bb.out conftest$ac_exeext \ conftest.$ac_objext conftest.beam conftest.$ac_ext fi fi if test -z "$no_mprotect"; then cl_cv_func_mprotect_works=yes else cl_cv_func_mprotect_works=no fi else case "$host_os" in aix* | cygwin* | darwin* | hpux* | irix* | linux* | solaris*) cl_cv_func_mprotect_works="guessing yes" ;; mingw*) cl_cv_func_mprotect_works="guessing no" ;; *) cl_cv_func_mprotect_works="guessing no" ;; esac fi fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $cl_cv_func_mprotect_works" >&5 $as_echo "$cl_cv_func_mprotect_works" >&6; } case "$cl_cv_func_mprotect_works" in *yes) $as_echo "#define HAVE_WORKING_MPROTECT /**/" >>confdefs.h ;; esac fi for ac_header in sys/shm.h do : ac_fn_c_check_header_mongrel "$LINENO" "sys/shm.h" "ac_cv_header_sys_shm_h" "$ac_includes_default" if test "x$ac_cv_header_sys_shm_h" = xyes; then : cat >>confdefs.h <<_ACEOF #define HAVE_SYS_SHM_H 1 _ACEOF fi done if test $ac_cv_header_sys_shm_h = yes; then for ac_header in sys/ipc.h do : ac_fn_c_check_header_mongrel "$LINENO" "sys/ipc.h" "ac_cv_header_sys_ipc_h" "$ac_includes_default" if test "x$ac_cv_header_sys_ipc_h" = xyes; then : cat >>confdefs.h <<_ACEOF #define HAVE_SYS_IPC_H 1 _ACEOF fi done fi if test $ac_cv_header_sys_shm_h = yes -a "$ac_cv_header_sys_ipc_h" = yes; then # This test is from Marcus Daniels { $as_echo "$as_me:${as_lineno-$LINENO}: checking for working shared memory" >&5 $as_echo_n "checking for working shared memory... " >&6; } if ${cl_cv_sys_shm_works+:} false; then : $as_echo_n "(cached) " >&6 else if test "$cross_compiling" = yes; then : case "$host" in mips*-*-linux*) cl_cv_sys_shm_works="guessing no" ;; *-*-linux*) cl_cv_sys_shm_works="guessing yes" ;; *-*-solaris*) cl_cv_sys_shm_works="guessing yes" ;; *-*-irix*) cl_cv_sys_shm_works="guessing yes" ;; *) cl_cv_sys_shm_works="guessing no" ;; esac else cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include #include #include #include /* try attaching a single segment to multiple addresses */ #define segsize 0x10000 #define attaches 128 #define base_addr 0x01000000 int main () { int shmid; int i; char* addr; char* result; if ((shmid = shmget(IPC_PRIVATE,segsize,0400)) < 0) exit(1); for (i=0, addr = (char*)0x01000000; i&5 $as_echo "$cl_cv_sys_shm_works" >&6; } fi case "$cl_cv_sys_shm_works" in *yes) have_shm=1 $as_echo "#define HAVE_SHM /**/" >>confdefs.h for ac_header in sys/sysmacros.h do : ac_fn_c_check_header_mongrel "$LINENO" "sys/sysmacros.h" "ac_cv_header_sys_sysmacros_h" "$ac_includes_default" if test "x$ac_cv_header_sys_sysmacros_h" = xyes; then : cat >>confdefs.h <<_ACEOF #define HAVE_SYS_SYSMACROS_H 1 _ACEOF fi done ;; *) ;; esac { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether code in malloc()ed memory is executable" >&5 $as_echo_n "checking whether code in malloc()ed memory is executable... " >&6; } if ${ffcall_cv_codeexec+:} false; then : $as_echo_n "(cached) " >&6 else case "$HOST_CPU_C_ABI--$host_os" in hppa--* | hppa64--* | powerpc--aix* | powerpc64--* | ia64--*) ffcall_cv_codeexec="irrelevant" ;; arm64--freebsd*) ffcall_cv_codeexec=no ;; *) if test "$cross_compiling" = yes; then : case "$host_os" in cygwin*) case "$HOST_CPU_C_ABI" in i386) ffcall_cv_codeexec="guessing yes" ;; x86_64) ffcall_cv_codeexec="guessing no" ;; *) ffcall_cv_codeexec="guessing no" ;; esac ;; darwin*) case "$HOST_CPU_C_ABI" in i386 | powerpc) ffcall_cv_codeexec="guessing yes" ;; x86_64) ffcall_cv_codeexec="guessing no" ;; *) ffcall_cv_codeexec="guessing no" ;; esac ;; irix*) ffcall_cv_codeexec="guessing no" ;; linux*) case "$HOST_CPU_C_ABI" in alpha | ia64) ffcall_cv_codeexec="guessing yes" ;; arm | armhf | arm64 | i386 | mips* | s390 | s390x | sparc | sparc64 | x86_64*) ffcall_cv_codeexec="guessing no" ;; *) ffcall_cv_codeexec="guessing no" ;; esac ;; solaris*) case "$HOST_CPU_C_ABI" in i386 | sparc | sparc64) ffcall_cv_codeexec="guessing yes" ;; x86_64) ffcall_cv_codeexec="guessing no" ;; *) ffcall_cv_codeexec="guessing no" ;; esac ;; *) ffcall_cv_codeexec="guessing no" ;; esac else cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include #if defined __MACH__ && defined __APPLE__ /* Avoid a crash on Mac OS X. */ #include #include #include #include #include #include /* The exception port on which our thread listens. */ static mach_port_t our_exception_port; /* The main function of the thread listening for exceptions of type EXC_BAD_ACCESS. */ static void * mach_exception_thread (void *arg) { /* Buffer for a message to be received. */ struct { mach_msg_header_t head; mach_msg_body_t msgh_body; char data[1024]; } msg; mach_msg_return_t retval; /* Wait for a message on the exception port. */ retval = mach_msg (&msg.head, MACH_RCV_MSG | MACH_RCV_LARGE, 0, sizeof (msg), our_exception_port, MACH_MSG_TIMEOUT_NONE, MACH_PORT_NULL); if (retval != MACH_MSG_SUCCESS) abort (); exit (1); } static void nocrash_init (void) { mach_port_t self = mach_task_self (); /* Allocate a port on which the thread shall listen for exceptions. */ if (mach_port_allocate (self, MACH_PORT_RIGHT_RECEIVE, &our_exception_port) == KERN_SUCCESS) { /* See http://web.mit.edu/darwin/src/modules/xnu/osfmk/man/mach_port_insert_right.html. */ if (mach_port_insert_right (self, our_exception_port, our_exception_port, MACH_MSG_TYPE_MAKE_SEND) == KERN_SUCCESS) { /* The exceptions we want to catch. Only EXC_BAD_ACCESS is interesting for us. */ exception_mask_t mask = EXC_MASK_BAD_ACCESS; /* Create the thread listening on the exception port. */ pthread_attr_t attr; pthread_t thread; if (pthread_attr_init (&attr) == 0 && pthread_attr_setdetachstate (&attr, PTHREAD_CREATE_DETACHED) == 0 && pthread_create (&thread, &attr, mach_exception_thread, NULL) == 0) { pthread_attr_destroy (&attr); /* Replace the exception port info for these exceptions with our own. Note that we replace the exception port for the entire task, not only for a particular thread. This has the effect that when our exception port gets the message, the thread specific exception port has already been asked, and we don't need to bother about it. See http://web.mit.edu/darwin/src/modules/xnu/osfmk/man/task_set_exception_ports.html. */ task_set_exception_ports (self, mask, our_exception_port, EXCEPTION_DEFAULT, MACHINE_THREAD_STATE); } } } } #elif defined _WIN32 && ! defined __CYGWIN__ /* Avoid a crash on native Windows. */ #define WIN32_LEAN_AND_MEAN #include #include static LONG WINAPI exception_filter (EXCEPTION_POINTERS *ExceptionInfo) { switch (ExceptionInfo->ExceptionRecord->ExceptionCode) { case EXCEPTION_ACCESS_VIOLATION: case EXCEPTION_IN_PAGE_ERROR: case EXCEPTION_STACK_OVERFLOW: case EXCEPTION_GUARD_PAGE: case EXCEPTION_PRIV_INSTRUCTION: case EXCEPTION_ILLEGAL_INSTRUCTION: case EXCEPTION_DATATYPE_MISALIGNMENT: case EXCEPTION_ARRAY_BOUNDS_EXCEEDED: case EXCEPTION_NONCONTINUABLE_EXCEPTION: exit (1); } return EXCEPTION_CONTINUE_SEARCH; } static void nocrash_init (void) { SetUnhandledExceptionFilter ((LPTOP_LEVEL_EXCEPTION_FILTER) exception_filter); } #else /* Avoid a crash on POSIX systems. */ #include #include /* A POSIX signal handler. */ static void exception_handler (int sig) { _exit (1); } static void nocrash_init (void) { #ifdef SIGSEGV signal (SIGSEGV, exception_handler); #endif #ifdef SIGBUS signal (SIGBUS, exception_handler); #endif } #endif #include /* declare malloc() */ #include int fun () { return 31415926; } int main () { nocrash_init(); {long size = (char*)&main - (char*)&fun; char* funcopy = (char*) malloc(size); int i; for (i = 0; i < size; i++) { funcopy[i] = ((char*)&fun)[i]; } return !((*(int(*)())funcopy)() == 31415926); }} _ACEOF if ac_fn_c_try_run "$LINENO"; then : ffcall_cv_codeexec=yes else ffcall_cv_codeexec=no fi rm -f core *.core core.conftest.* gmon.out bb.out conftest$ac_exeext \ conftest.$ac_objext conftest.beam conftest.$ac_ext fi ;; esac fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ffcall_cv_codeexec" >&5 $as_echo "$ffcall_cv_codeexec" >&6; } case "$ffcall_cv_codeexec" in *yes | irrelevant) $as_echo "#define CODE_EXECUTABLE /**/" >>confdefs.h ;; *no) ;; esac case "$ffcall_cv_codeexec" in *yes | irrelevant) ;; *) case "$ac_cv_func_mprotect--$cl_cv_func_mprotect_works" in yes--*yes) { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether mprotect can make malloc()ed memory executable" >&5 $as_echo_n "checking whether mprotect can make malloc()ed memory executable... " >&6; } if ${ffcall_cv_malloc_mprotect_can_exec+:} false; then : $as_echo_n "(cached) " >&6 else if test "$cross_compiling" != yes -a -d /etc/selinux; then ffcall_cv_malloc_mprotect_can_exec='determined by SELinux at runtime' else if test "$cross_compiling" = yes; then : { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 $as_echo "$as_me: error: in \`$ac_pwd':" >&2;} as_fn_error $? "cannot run test program while cross compiling See \`config.log' for more details" "$LINENO" 5; } else cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include #include #ifdef HAVE_UNISTD_H #include #endif #include /* declare getpagesize() and mprotect() */ #include #ifndef HAVE_GETPAGESIZE #include #define getpagesize() PAGESIZE #else extern #ifdef __cplusplus "C" #endif RETGETPAGESIZETYPE getpagesize (void); #endif int main () { unsigned int pagesize = getpagesize (); char *p = (char *) malloc (50); int ret; if (p == (char*) -1) /* malloc is not working as expected. */ return 1; p[5] = 0x77; ret = mprotect (p - ((unsigned int) p & (pagesize - 1)), pagesize, PROT_READ | PROT_WRITE | PROT_EXEC); if (ret < 0 && (errno == EACCES || errno == ENOMEM #ifdef ENOTSUP || errno == ENOTSUP #endif ) ) /* mprotect is forbidden to make malloc()ed pages executable that were writable earlier. */ return 2; return 0; } _ACEOF if ac_fn_c_try_run "$LINENO"; then : ffcall_cv_malloc_mprotect_can_exec=yes else case "$host_os" in linux*) ffcall_cv_malloc_mprotect_can_exec='determined by SELinux at runtime' ;; aix* | cygwin* | darwin* | irix* | solaris*) ffcall_cv_malloc_mprotect_can_exec="guessing yes" ;; *) ffcall_cv_malloc_mprotect_can_exec="guessing no" ;; esac fi rm -f core *.core core.conftest.* gmon.out bb.out conftest$ac_exeext \ conftest.$ac_objext conftest.beam conftest.$ac_ext fi fi fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ffcall_cv_malloc_mprotect_can_exec" >&5 $as_echo "$ffcall_cv_malloc_mprotect_can_exec" >&6; } case "$ffcall_cv_malloc_mprotect_can_exec" in *yes) MPROTECT_AFTER_MALLOC_CAN_EXEC=1 ;; *no) MPROTECT_AFTER_MALLOC_CAN_EXEC=0 ;; *runtime*) MPROTECT_AFTER_MALLOC_CAN_EXEC='-1' ;; esac cat >>confdefs.h <<_ACEOF #define HAVE_MPROTECT_AFTER_MALLOC_CAN_EXEC $MPROTECT_AFTER_MALLOC_CAN_EXEC _ACEOF case "$ffcall_cv_malloc_mprotect_can_exec" in *yes) ;; *) { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether mprotect can make mmap()ed memory executable" >&5 $as_echo_n "checking whether mprotect can make mmap()ed memory executable... " >&6; } if ${ffcall_cv_mmap_mprotect_can_exec+:} false; then : $as_echo_n "(cached) " >&6 else if test "$cross_compiling" != yes -a -d /etc/selinux; then ffcall_cv_mmap_mprotect_can_exec='determined by SELinux at runtime' else if test "$cross_compiling" = yes; then : { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 $as_echo "$as_me: error: in \`$ac_pwd':" >&2;} as_fn_error $? "cannot run test program while cross compiling See \`config.log' for more details" "$LINENO" 5; } else cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include #include #ifdef HAVE_UNISTD_H #include #endif #include /* declare getpagesize() and mprotect() */ #include #ifndef HAVE_GETPAGESIZE #include #define getpagesize() PAGESIZE #else extern #ifdef __cplusplus "C" #endif RETGETPAGESIZETYPE getpagesize (void); #endif #ifndef MAP_FILE #define MAP_FILE 0 #endif #ifndef MAP_VARIABLE #define MAP_VARIABLE 0 #endif int main () { unsigned int pagesize = getpagesize (); char *p; int ret; #if defined HAVE_MMAP_ANON p = (char *) mmap (NULL, pagesize, PROT_READ | PROT_WRITE, MAP_PRIVATE | MAP_ANON | MAP_VARIABLE, -1, 0); #elif defined HAVE_MMAP_ANONYMOUS p = (char *) mmap (NULL, pagesize, PROT_READ | PROT_WRITE, MAP_PRIVATE | MAP_ANONYMOUS | MAP_VARIABLE, -1, 0); #elif defined HAVE_MMAP_DEVZERO int zero_fd = open("/dev/zero", O_RDONLY, 0666); if (zero_fd < 0) return 1; p = (char *) mmap (NULL, pagesize, PROT_READ | PROT_WRITE, MAP_PRIVATE | MAP_FILE | MAP_VARIABLE, zero_fd, 0); #else ?? #endif if (p == (char*) -1) /* mmap is not working as expected. */ return 1; p[5] = 0x77; ret = mprotect (p, pagesize, PROT_READ | PROT_WRITE | PROT_EXEC); if (ret < 0 && (errno == EACCES || errno == ENOMEM #ifdef ENOTSUP || errno == ENOTSUP #endif ) ) /* mprotect is forbidden to make mmap()ed pages executable that were writable earlier. */ return 2; return 0; } _ACEOF if ac_fn_c_try_run "$LINENO"; then : ffcall_cv_mmap_mprotect_can_exec=yes else case "$host_os" in linux*) ffcall_cv_mmap_mprotect_can_exec='determined by SELinux at runtime' ;; *) ffcall_cv_mmap_mprotect_can_exec="guessing no" ;; esac fi rm -f core *.core core.conftest.* gmon.out bb.out conftest$ac_exeext \ conftest.$ac_objext conftest.beam conftest.$ac_ext fi fi fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ffcall_cv_mmap_mprotect_can_exec" >&5 $as_echo "$ffcall_cv_mmap_mprotect_can_exec" >&6; } case "$ffcall_cv_mmap_mprotect_can_exec" in *yes) MPROTECT_AFTER_MMAP_CAN_EXEC=1 ;; *no) MPROTECT_AFTER_MMAP_CAN_EXEC=0 ;; *runtime*) MPROTECT_AFTER_MMAP_CAN_EXEC='-1' ;; esac cat >>confdefs.h <<_ACEOF #define HAVE_MPROTECT_AFTER_MMAP_CAN_EXEC $MPROTECT_AFTER_MMAP_CAN_EXEC _ACEOF case "$ffcall_cv_mmap_mprotect_can_exec" in *yes) ;; *) { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether a shared mmap can make memory pages executable" >&5 $as_echo_n "checking whether a shared mmap can make memory pages executable... " >&6; } if ${ffcall_cv_mmap_shared_can_exec+:} false; then : $as_echo_n "(cached) " >&6 else filename="/tmp/trampdata$$.data" if test "$cross_compiling" = yes; then : { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 $as_echo "$as_me: error: in \`$ac_pwd':" >&2;} as_fn_error $? "cannot run test program while cross compiling See \`config.log' for more details" "$LINENO" 5; } else cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include #include #ifdef HAVE_UNISTD_H #include #endif /* declare getpagesize() and mmap() */ #include #ifndef HAVE_GETPAGESIZE #include #define getpagesize() PAGESIZE #else extern #ifdef __cplusplus "C" #endif RETGETPAGESIZETYPE getpagesize (void); #endif #ifndef MAP_FILE #define MAP_FILE 0 #endif #ifndef MAP_VARIABLE #define MAP_VARIABLE 0 #endif int main () { unsigned int pagesize = getpagesize (); int fd; char *pw; char *px; fd = open ("$filename", O_CREAT | O_RDWR | O_TRUNC, 0700); if (fd < 0) return 1; if (ftruncate (fd, pagesize) < 0) return 2; pw = (char *) mmap (NULL, pagesize, PROT_READ | PROT_WRITE, MAP_SHARED | MAP_FILE | MAP_VARIABLE, fd, 0); if (pw == (char*) -1) return 3; pw[5] = 0xc3; px = (char *) mmap (NULL, pagesize, PROT_READ | PROT_EXEC, MAP_SHARED | MAP_FILE | MAP_VARIABLE, fd, 0); if (px == (char*) -1) return 4; if ((char)px[5] != (char)0xc3) return 5; /* On i386 and x86_64 this is a 'ret' instruction that we can invoke. */ #if (defined __i386 || defined __i386__ || defined _I386 || defined _M_IX86 || defined _X86_) || (defined __x86_64__ || defined __amd64__) ((void (*) (void)) (px + 5)) (); #endif return 0; } _ACEOF if ac_fn_c_try_run "$LINENO"; then : ffcall_cv_mmap_shared_can_exec=yes else ffcall_cv_mmap_shared_can_exec="guessing yes" fi rm -f core *.core core.conftest.* gmon.out bb.out conftest$ac_exeext \ conftest.$ac_objext conftest.beam conftest.$ac_ext fi rm -f "$filename" fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ffcall_cv_mmap_shared_can_exec" >&5 $as_echo "$ffcall_cv_mmap_shared_can_exec" >&6; } case "$ffcall_cv_mmap_shared_can_exec" in *yes) $as_echo "#define HAVE_MMAP_SHARED_CAN_EXEC /**/" >>confdefs.h ;; esac ;; esac ;; esac ;; esac ;; esac CPU_OBJECTS='' if test ${HOST_CPU_C_ABI} = hppa -o ${HOST_CPU_C_ABI} = hppa64 -o ${HOST_CPU_C_ABI} = powerpc64 -o ${HOST_CPU_C_ABI} = ia64; then CPU_OBJECTS="$CPU_OBJECTS "'tramp-$(CPU).lo' fi if test ${HOST_CPU_C_ABI} = powerpc; then case "${host_os}" in aix*) CPU_OBJECTS="$CPU_OBJECTS "'tramp-$(CPU).lo' ;; *) ;; esac fi if test ${HOST_CPU_C_ABI} = sparc -o ${HOST_CPU_C_ABI} = sparc64 -o ${HOST_CPU_C_ABI} = alpha -o ${HOST_CPU_C_ABI} = hppa -o ${HOST_CPU_C_ABI} = hppa64 -o ${HOST_CPU_C_ABI} = powerpc64-elfv2; then CPU_OBJECTS="$CPU_OBJECTS "'cache-$(CPU).lo' fi if test ${HOST_CPU_C_ABI} = powerpc; then case "${host_os}" in aix*) ;; *) CPU_OBJECTS="$CPU_OBJECTS "'cache-$(CPU).lo' ;; esac fi case "${HOST_CPU_C_ABI}" in mips* | riscv*) for ac_header in sys/cachectl.h do : ac_fn_c_check_header_mongrel "$LINENO" "sys/cachectl.h" "ac_cv_header_sys_cachectl_h" "$ac_includes_default" if test "x$ac_cv_header_sys_cachectl_h" = xyes; then : cat >>confdefs.h <<_ACEOF #define HAVE_SYS_CACHECTL_H 1 _ACEOF fi done ;; esac WORKAROUND_BUG_81653='' if test ${HOST_CPU_C_ABI} = sparc && test -n "$GCC"; then gcc_version=`LC_ALL=C ${CC} -v 2>&1 | grep version | sed -n -e '$p' | sed -e 's/.*version //g' -e 's/gcc //'` case "$gcc_version" in 2.* | 3.0-3*) ;; *) WORKAROUND_BUG_81653='-fno-pie' ;; esac fi if test -n "$GCC"; then DISABLE_TYPE_BASED_ALIASING='-fno-strict-aliasing' else case "$host_os" in aix*) DISABLE_TYPE_BASED_ALIASING='-qalias=noansi' ;; *) cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #ifdef __SUNPRO_C yes #endif _ACEOF if (eval "$ac_cpp conftest.$ac_ext") 2>&5 | $EGREP "yes" >/dev/null 2>&1; then : DISABLE_TYPE_BASED_ALIASING='-xalias_level=weak' else DISABLE_TYPE_BASED_ALIASING='' fi rm -f conftest* ;; esac fi LIBC_FATAL_STDERR_=1 export LIBC_FATAL_STDERR_ if test "$CXX_CHOICE" = no; then CXX=no fi if test -z "$CXX"; then if test -n "$CCC"; then CXX="$CCC" else if test -n "$ac_tool_prefix"; then for ac_prog in g++ c++ gpp aCC CC cxx cc++ cl FCC KCC RCC xlC_r xlC do # Extract the first word of "$ac_tool_prefix$ac_prog", so it can be a program name with args. set dummy $ac_tool_prefix$ac_prog; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_CXX+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$CXX"; then ac_cv_prog_CXX="$CXX" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_CXX="$ac_tool_prefix$ac_prog" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi CXX=$ac_cv_prog_CXX if test -n "$CXX"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $CXX" >&5 $as_echo "$CXX" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi test -n "$CXX" && break done fi if test -z "$CXX"; then ac_ct_CXX=$CXX for ac_prog in g++ c++ gpp aCC CC cxx cc++ cl FCC KCC RCC xlC_r xlC do # Extract the first word of "$ac_prog", so it can be a program name with args. set dummy $ac_prog; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_ac_ct_CXX+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$ac_ct_CXX"; then ac_cv_prog_ac_ct_CXX="$ac_ct_CXX" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_ac_ct_CXX="$ac_prog" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi ac_ct_CXX=$ac_cv_prog_ac_ct_CXX if test -n "$ac_ct_CXX"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_CXX" >&5 $as_echo "$ac_ct_CXX" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi test -n "$ac_ct_CXX" && break done if test "x$ac_ct_CXX" = x; then CXX=":" else case $cross_compiling:$ac_tool_warned in yes:) { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5 $as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;} ac_tool_warned=yes ;; esac CXX=$ac_ct_CXX fi fi fi fi if test "$CXX" != no; then { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether the C++ compiler ($CXX $CXXFLAGS $LDFLAGS) works" >&5 $as_echo_n "checking whether the C++ compiler ($CXX $CXXFLAGS $LDFLAGS) works... " >&6; } ac_ext=cpp ac_cpp='$CXXCPP $CPPFLAGS' ac_compile='$CXX -c $CXXFLAGS $CPPFLAGS conftest.$ac_ext >&5' ac_link='$CXX -o conftest$ac_exeext $CXXFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' ac_compiler_gnu=$ac_cv_cxx_compiler_gnu echo 'int main () { return 0; }' > conftest.$ac_ext if { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$ac_link\""; } >&5 (eval $ac_link) 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; } && test -s conftest$ac_exeext; then gl_cv_prog_ansicxx_works=yes if (./conftest; exit) 2>/dev/null; then gl_cv_prog_ansicxx_cross=no else gl_cv_prog_ansicxx_cross=yes fi else gl_cv_prog_ansicxx_works=no fi rm -fr conftest* ac_ext=c ac_cpp='$CPP $CPPFLAGS' ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' ac_compiler_gnu=$ac_cv_c_compiler_gnu { $as_echo "$as_me:${as_lineno-$LINENO}: result: $gl_cv_prog_ansicxx_works" >&5 $as_echo "$gl_cv_prog_ansicxx_works" >&6; } if test $gl_cv_prog_ansicxx_works = no; then CXX=no else { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether the C++ compiler supports namespaces" >&5 $as_echo_n "checking whether the C++ compiler supports namespaces... " >&6; } ac_ext=cpp ac_cpp='$CXXCPP $CPPFLAGS' ac_compile='$CXX -c $CXXFLAGS $CPPFLAGS conftest.$ac_ext >&5' ac_link='$CXX -o conftest$ac_exeext $CXXFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' ac_compiler_gnu=$ac_cv_cxx_compiler_gnu cat < conftest.$ac_ext #include namespace test { using namespace std; } std::ostream* ptr; int main () { return 0; } EOF if { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$ac_link\""; } >&5 (eval $ac_link) 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; } && test -s conftest$ac_exeext; then gl_cv_prog_ansicxx_namespaces=yes else gl_cv_prog_ansicxx_namespaces=no fi rm -fr conftest* ac_ext=c ac_cpp='$CPP $CPPFLAGS' ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' ac_compiler_gnu=$ac_cv_c_compiler_gnu { $as_echo "$as_me:${as_lineno-$LINENO}: result: $gl_cv_prog_ansicxx_namespaces" >&5 $as_echo "$gl_cv_prog_ansicxx_namespaces" >&6; } if test $gl_cv_prog_ansicxx_namespaces = no; then CXX=no fi fi fi if test "$CXX" != no; then ANSICXX_TRUE= ANSICXX_FALSE='#' else ANSICXX_TRUE='#' ANSICXX_FALSE= fi if test "$CXX" != no; then depcc="$CXX" am_compiler_list= { $as_echo "$as_me:${as_lineno-$LINENO}: checking dependency style of $depcc" >&5 $as_echo_n "checking dependency style of $depcc... " >&6; } if ${am_cv_CXX_dependencies_compiler_type+:} false; then : $as_echo_n "(cached) " >&6 else if test -z "$AMDEP_TRUE" && test -f "$am_depcomp"; then # We make a subdir and do the tests there. Otherwise we can end up # making bogus files that we don't know about and never remove. For # instance it was reported that on HP-UX the gcc test will end up # making a dummy file named 'D' -- because '-MD' means "put the output # in D". rm -rf conftest.dir mkdir conftest.dir # Copy depcomp to subdir because otherwise we won't find it if we're # using a relative directory. cp "$am_depcomp" conftest.dir cd conftest.dir # We will build objects and dependencies in a subdirectory because # it helps to detect inapplicable dependency modes. For instance # both Tru64's cc and ICC support -MD to output dependencies as a # side effect of compilation, but ICC will put the dependencies in # the current directory while Tru64 will put them in the object # directory. mkdir sub am_cv_CXX_dependencies_compiler_type=none if test "$am_compiler_list" = ""; then am_compiler_list=`sed -n 's/^#*\([a-zA-Z0-9]*\))$/\1/p' < ./depcomp` fi am__universal=false case " $depcc " in #( *\ -arch\ *\ -arch\ *) am__universal=true ;; esac for depmode in $am_compiler_list; do # Setup a source with many dependencies, because some compilers # like to wrap large dependency lists on column 80 (with \), and # we should not choose a depcomp mode which is confused by this. # # We need to recreate these files for each test, as the compiler may # overwrite some of them when testing with obscure command lines. # This happens at least with the AIX C compiler. : > sub/conftest.c for i in 1 2 3 4 5 6; do echo '#include "conftst'$i'.h"' >> sub/conftest.c # Using ": > sub/conftst$i.h" creates only sub/conftst1.h with # Solaris 10 /bin/sh. echo '/* dummy */' > sub/conftst$i.h done echo "${am__include} ${am__quote}sub/conftest.Po${am__quote}" > confmf # We check with '-c' and '-o' for the sake of the "dashmstdout" # mode. It turns out that the SunPro C++ compiler does not properly # handle '-M -o', and we need to detect this. Also, some Intel # versions had trouble with output in subdirs. am__obj=sub/conftest.${OBJEXT-o} am__minus_obj="-o $am__obj" case $depmode in gcc) # This depmode causes a compiler race in universal mode. test "$am__universal" = false || continue ;; nosideeffect) # After this tag, mechanisms are not by side-effect, so they'll # only be used when explicitly requested. if test "x$enable_dependency_tracking" = xyes; then continue else break fi ;; msvc7 | msvc7msys | msvisualcpp | msvcmsys) # This compiler won't grok '-c -o', but also, the minuso test has # not run yet. These depmodes are late enough in the game, and # so weak that their functioning should not be impacted. am__obj=conftest.${OBJEXT-o} am__minus_obj= ;; none) break ;; esac if depmode=$depmode \ source=sub/conftest.c object=$am__obj \ depfile=sub/conftest.Po tmpdepfile=sub/conftest.TPo \ $SHELL ./depcomp $depcc -c $am__minus_obj sub/conftest.c \ >/dev/null 2>conftest.err && grep sub/conftst1.h sub/conftest.Po > /dev/null 2>&1 && grep sub/conftst6.h sub/conftest.Po > /dev/null 2>&1 && grep $am__obj sub/conftest.Po > /dev/null 2>&1 && ${MAKE-make} -s -f confmf > /dev/null 2>&1; then # icc doesn't choke on unknown options, it will just issue warnings # or remarks (even with -Werror). So we grep stderr for any message # that says an option was ignored or not supported. # When given -MP, icc 7.0 and 7.1 complain thusly: # icc: Command line warning: ignoring option '-M'; no argument required # The diagnosis changed in icc 8.0: # icc: Command line remark: option '-MP' not supported if (grep 'ignoring option' conftest.err || grep 'not supported' conftest.err) >/dev/null 2>&1; then :; else am_cv_CXX_dependencies_compiler_type=$depmode break fi fi done cd .. rm -rf conftest.dir else am_cv_CXX_dependencies_compiler_type=none fi fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $am_cv_CXX_dependencies_compiler_type" >&5 $as_echo "$am_cv_CXX_dependencies_compiler_type" >&6; } CXXDEPMODE=depmode=$am_cv_CXX_dependencies_compiler_type if test "x$enable_dependency_tracking" != xno \ && test "$am_cv_CXX_dependencies_compiler_type" = gcc3; then am__fastdepCXX_TRUE= am__fastdepCXX_FALSE='#' else am__fastdepCXX_TRUE='#' am__fastdepCXX_FALSE= fi else if false; then am__fastdepCXX_TRUE= am__fastdepCXX_FALSE='#' else am__fastdepCXX_TRUE='#' am__fastdepCXX_FALSE= fi fi { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether the preprocessor supports include_next" >&5 $as_echo_n "checking whether the preprocessor supports include_next... " >&6; } if ${gl_cv_have_include_next+:} false; then : $as_echo_n "(cached) " >&6 else rm -rf conftestd1a conftestd1b conftestd2 mkdir conftestd1a conftestd1b conftestd2 cat < conftestd1a/conftest.h #define DEFINED_IN_CONFTESTD1 #include_next #ifdef DEFINED_IN_CONFTESTD2 int foo; #else #error "include_next doesn't work" #endif EOF cat < conftestd1b/conftest.h #define DEFINED_IN_CONFTESTD1 #include #include_next #ifdef DEFINED_IN_CONFTESTD2 int foo; #else #error "include_next doesn't work" #endif EOF cat < conftestd2/conftest.h #ifndef DEFINED_IN_CONFTESTD1 #error "include_next test doesn't work" #endif #define DEFINED_IN_CONFTESTD2 EOF gl_save_CPPFLAGS="$CPPFLAGS" CPPFLAGS="$gl_save_CPPFLAGS -Iconftestd1b -Iconftestd2" cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include _ACEOF if ac_fn_c_try_compile "$LINENO"; then : gl_cv_have_include_next=yes else CPPFLAGS="$gl_save_CPPFLAGS -Iconftestd1a -Iconftestd2" cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include _ACEOF if ac_fn_c_try_compile "$LINENO"; then : gl_cv_have_include_next=buggy else gl_cv_have_include_next=no fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext CPPFLAGS="$gl_save_CPPFLAGS" rm -rf conftestd1a conftestd1b conftestd2 fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $gl_cv_have_include_next" >&5 $as_echo "$gl_cv_have_include_next" >&6; } PRAGMA_SYSTEM_HEADER= if test $gl_cv_have_include_next = yes; then INCLUDE_NEXT=include_next INCLUDE_NEXT_AS_FIRST_DIRECTIVE=include_next if test -n "$GCC"; then PRAGMA_SYSTEM_HEADER='#pragma GCC system_header' fi else if test $gl_cv_have_include_next = buggy; then INCLUDE_NEXT=include INCLUDE_NEXT_AS_FIRST_DIRECTIVE=include_next else INCLUDE_NEXT=include INCLUDE_NEXT_AS_FIRST_DIRECTIVE=include fi fi { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether system header files limit the line length" >&5 $as_echo_n "checking whether system header files limit the line length... " >&6; } if ${gl_cv_pragma_columns+:} false; then : $as_echo_n "(cached) " >&6 else cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #ifdef __TANDEM choke me #endif _ACEOF if (eval "$ac_cpp conftest.$ac_ext") 2>&5 | $EGREP "choke me" >/dev/null 2>&1; then : gl_cv_pragma_columns=yes else gl_cv_pragma_columns=no fi rm -f conftest* fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $gl_cv_pragma_columns" >&5 $as_echo "$gl_cv_pragma_columns" >&6; } if test $gl_cv_pragma_columns = yes; then PRAGMA_COLUMNS="#pragma COLUMNS 10000" else PRAGMA_COLUMNS= fi for ac_header in $gl_header_list do : as_ac_Header=`$as_echo "ac_cv_header_$ac_header" | $as_tr_sh` ac_fn_c_check_header_mongrel "$LINENO" "$ac_header" "$as_ac_Header" "$ac_includes_default" if eval test \"x\$"$as_ac_Header"\" = x"yes"; then : cat >>confdefs.h <<_ACEOF #define `$as_echo "HAVE_$ac_header" | $as_tr_cpp` 1 _ACEOF fi done : if test $gl_cv_have_include_next = yes; then gl_cv_next_limits_h='<'limits.h'>' else { $as_echo "$as_me:${as_lineno-$LINENO}: checking absolute name of " >&5 $as_echo_n "checking absolute name of ... " >&6; } if ${gl_cv_next_limits_h+:} false; then : $as_echo_n "(cached) " >&6 else if test $ac_cv_header_limits_h = yes; then cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include _ACEOF case "$host_os" in aix*) gl_absname_cpp="$ac_cpp -C" ;; *) gl_absname_cpp="$ac_cpp" ;; esac case "$host_os" in mingw*) gl_dirsep_regex='[/\\]' ;; *) gl_dirsep_regex='\/' ;; esac gl_make_literal_regex_sed='s,[]$^\\.*/[],\\&,g' gl_header_literal_regex=`echo 'limits.h' \ | sed -e "$gl_make_literal_regex_sed"` gl_absolute_header_sed="/${gl_dirsep_regex}${gl_header_literal_regex}/"'{ s/.*"\(.*'"${gl_dirsep_regex}${gl_header_literal_regex}"'\)".*/\1/ s|^/[^/]|//&| p q }' gl_cv_absolute_limits_h=`(eval "$gl_absname_cpp conftest.$ac_ext") 2>&5 | sed -n "$gl_absolute_header_sed"` gl_header=$gl_cv_absolute_limits_h gl_cv_next_limits_h='"'$gl_header'"' else gl_cv_next_limits_h='<'limits.h'>' fi fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $gl_cv_next_limits_h" >&5 $as_echo "$gl_cv_next_limits_h" >&6; } fi NEXT_LIMITS_H=$gl_cv_next_limits_h if test $gl_cv_have_include_next = yes || test $gl_cv_have_include_next = buggy; then # INCLUDE_NEXT_AS_FIRST_DIRECTIVE='include_next' gl_next_as_first_directive='<'limits.h'>' else # INCLUDE_NEXT_AS_FIRST_DIRECTIVE='include' gl_next_as_first_directive=$gl_cv_next_limits_h fi NEXT_AS_FIRST_DIRECTIVE_LIMITS_H=$gl_next_as_first_directive { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether limits.h has LLONG_MAX, WORD_BIT, ULLONG_WIDTH etc." >&5 $as_echo_n "checking whether limits.h has LLONG_MAX, WORD_BIT, ULLONG_WIDTH etc.... " >&6; } if ${gl_cv_header_limits_width+:} false; then : $as_echo_n "(cached) " >&6 else cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #ifndef __STDC_WANT_IEC_60559_BFP_EXT__ #define __STDC_WANT_IEC_60559_BFP_EXT__ 1 #endif #include long long llm = LLONG_MAX; int wb = WORD_BIT; int ullw = ULLONG_WIDTH; int main () { ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO"; then : gl_cv_header_limits_width=yes else gl_cv_header_limits_width=no fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $gl_cv_header_limits_width" >&5 $as_echo "$gl_cv_header_limits_width" >&6; } if test "$gl_cv_header_limits_width" = yes; then LIMITS_H= else LIMITS_H=limits.h fi if test -n "$LIMITS_H"; then GL_GENERATE_LIMITS_H_TRUE= GL_GENERATE_LIMITS_H_FALSE='#' else GL_GENERATE_LIMITS_H_TRUE='#' GL_GENERATE_LIMITS_H_FALSE= fi gl_threads_api=none LIBTHREAD= LTLIBTHREAD= LIBMULTITHREAD= LTLIBMULTITHREAD= if test "$gl_use_threads" != no; then { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether imported symbols can be declared weak" >&5 $as_echo_n "checking whether imported symbols can be declared weak... " >&6; } if ${gl_cv_have_weak+:} false; then : $as_echo_n "(cached) " >&6 else gl_cv_have_weak=no cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ extern void xyzzy (); #pragma weak xyzzy int main () { xyzzy(); ; return 0; } _ACEOF if ac_fn_c_try_link "$LINENO"; then : gl_cv_have_weak=maybe fi rm -f core conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext if test $gl_cv_have_weak = maybe; then if test "$cross_compiling" = yes; then : cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #ifdef __ELF__ Extensible Linking Format #endif _ACEOF if (eval "$ac_cpp conftest.$ac_ext") 2>&5 | $EGREP "Extensible Linking Format" >/dev/null 2>&1; then : gl_cv_have_weak="guessing yes" else gl_cv_have_weak="guessing no" fi rm -f conftest* else cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include #pragma weak fputs int main () { return (fputs == NULL); } _ACEOF if ac_fn_c_try_run "$LINENO"; then : gl_cv_have_weak=yes else gl_cv_have_weak=no fi rm -f core *.core core.conftest.* gmon.out bb.out conftest$ac_exeext \ conftest.$ac_objext conftest.beam conftest.$ac_ext fi fi case " $LDFLAGS " in *" -static "*) gl_cv_have_weak=no ;; esac fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $gl_cv_have_weak" >&5 $as_echo "$gl_cv_have_weak" >&6; } if case "$gl_cv_have_weak" in *yes) true;; *) false;; esac; then : : fi if test "$gl_use_threads" = yes || test "$gl_use_threads" = posix; then # On OSF/1, the compiler needs the flag -pthread or -D_REENTRANT so that # it groks . It's added above, in gl_THREADLIB_EARLY_BODY. ac_fn_c_check_header_mongrel "$LINENO" "pthread.h" "ac_cv_header_pthread_h" "$ac_includes_default" if test "x$ac_cv_header_pthread_h" = xyes; then : gl_have_pthread_h=yes else gl_have_pthread_h=no fi if test "$gl_have_pthread_h" = yes; then # Other possible tests: # -lpthreads (FSU threads, PCthreads) # -lgthreads gl_have_pthread= # Test whether both pthread_mutex_lock and pthread_mutexattr_init exist # in libc. IRIX 6.5 has the first one in both libc and libpthread, but # the second one only in libpthread, and lock.c needs it. # # If -pthread works, prefer it to -lpthread, since Ubuntu 14.04 # needs -pthread for some reason. See: # https://lists.gnu.org/r/bug-gnulib/2014-09/msg00023.html save_LIBS=$LIBS for gl_pthread in '' '-pthread'; do LIBS="$LIBS $gl_pthread" cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include pthread_mutex_t m; pthread_mutexattr_t ma; int main () { pthread_mutex_lock (&m); pthread_mutexattr_init (&ma); ; return 0; } _ACEOF if ac_fn_c_try_link "$LINENO"; then : gl_have_pthread=yes LIBTHREAD=$gl_pthread LTLIBTHREAD=$gl_pthread LIBMULTITHREAD=$gl_pthread LTLIBMULTITHREAD=$gl_pthread fi rm -f core conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext LIBS=$save_LIBS test -n "$gl_have_pthread" && break done # Test for libpthread by looking for pthread_kill. (Not pthread_self, # since it is defined as a macro on OSF/1.) if test -n "$gl_have_pthread" && test -z "$LIBTHREAD"; then # The program links fine without libpthread. But it may actually # need to link with libpthread in order to create multiple threads. { $as_echo "$as_me:${as_lineno-$LINENO}: checking for pthread_kill in -lpthread" >&5 $as_echo_n "checking for pthread_kill in -lpthread... " >&6; } if ${ac_cv_lib_pthread_pthread_kill+:} false; then : $as_echo_n "(cached) " >&6 else ac_check_lib_save_LIBS=$LIBS LIBS="-lpthread $LIBS" cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ /* Override any GCC internal prototype to avoid an error. Use char because int might match the return type of a GCC builtin and then its argument prototype would still apply. */ #ifdef __cplusplus extern "C" #endif char pthread_kill (); int main () { return pthread_kill (); ; return 0; } _ACEOF if ac_fn_c_try_link "$LINENO"; then : ac_cv_lib_pthread_pthread_kill=yes else ac_cv_lib_pthread_pthread_kill=no fi rm -f core conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext LIBS=$ac_check_lib_save_LIBS fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_pthread_pthread_kill" >&5 $as_echo "$ac_cv_lib_pthread_pthread_kill" >&6; } if test "x$ac_cv_lib_pthread_pthread_kill" = xyes; then : LIBMULTITHREAD=-lpthread LTLIBMULTITHREAD=-lpthread # On Solaris and HP-UX, most pthread functions exist also in libc. # Therefore pthread_in_use() needs to actually try to create a # thread: pthread_create from libc will fail, whereas # pthread_create will actually create a thread. # On Solaris 10 or newer, this test is no longer needed, because # libc contains the fully functional pthread functions. case "$host_os" in solaris | solaris2.1-9 | solaris2.1-9.* | hpux*) $as_echo "#define PTHREAD_IN_USE_DETECTION_HARD 1" >>confdefs.h esac fi elif test -z "$gl_have_pthread"; then # Some library is needed. Try libpthread and libc_r. { $as_echo "$as_me:${as_lineno-$LINENO}: checking for pthread_kill in -lpthread" >&5 $as_echo_n "checking for pthread_kill in -lpthread... " >&6; } if ${ac_cv_lib_pthread_pthread_kill+:} false; then : $as_echo_n "(cached) " >&6 else ac_check_lib_save_LIBS=$LIBS LIBS="-lpthread $LIBS" cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ /* Override any GCC internal prototype to avoid an error. Use char because int might match the return type of a GCC builtin and then its argument prototype would still apply. */ #ifdef __cplusplus extern "C" #endif char pthread_kill (); int main () { return pthread_kill (); ; return 0; } _ACEOF if ac_fn_c_try_link "$LINENO"; then : ac_cv_lib_pthread_pthread_kill=yes else ac_cv_lib_pthread_pthread_kill=no fi rm -f core conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext LIBS=$ac_check_lib_save_LIBS fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_pthread_pthread_kill" >&5 $as_echo "$ac_cv_lib_pthread_pthread_kill" >&6; } if test "x$ac_cv_lib_pthread_pthread_kill" = xyes; then : gl_have_pthread=yes LIBTHREAD=-lpthread LTLIBTHREAD=-lpthread LIBMULTITHREAD=-lpthread LTLIBMULTITHREAD=-lpthread fi if test -z "$gl_have_pthread"; then # For FreeBSD 4. { $as_echo "$as_me:${as_lineno-$LINENO}: checking for pthread_kill in -lc_r" >&5 $as_echo_n "checking for pthread_kill in -lc_r... " >&6; } if ${ac_cv_lib_c_r_pthread_kill+:} false; then : $as_echo_n "(cached) " >&6 else ac_check_lib_save_LIBS=$LIBS LIBS="-lc_r $LIBS" cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ /* Override any GCC internal prototype to avoid an error. Use char because int might match the return type of a GCC builtin and then its argument prototype would still apply. */ #ifdef __cplusplus extern "C" #endif char pthread_kill (); int main () { return pthread_kill (); ; return 0; } _ACEOF if ac_fn_c_try_link "$LINENO"; then : ac_cv_lib_c_r_pthread_kill=yes else ac_cv_lib_c_r_pthread_kill=no fi rm -f core conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext LIBS=$ac_check_lib_save_LIBS fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_c_r_pthread_kill" >&5 $as_echo "$ac_cv_lib_c_r_pthread_kill" >&6; } if test "x$ac_cv_lib_c_r_pthread_kill" = xyes; then : gl_have_pthread=yes LIBTHREAD=-lc_r LTLIBTHREAD=-lc_r LIBMULTITHREAD=-lc_r LTLIBMULTITHREAD=-lc_r fi fi fi if test -n "$gl_have_pthread"; then gl_threads_api=posix $as_echo "#define USE_POSIX_THREADS 1" >>confdefs.h if test -n "$LIBMULTITHREAD" || test -n "$LTLIBMULTITHREAD"; then if case "$gl_cv_have_weak" in *yes) true;; *) false;; esac; then $as_echo "#define USE_POSIX_THREADS_WEAK 1" >>confdefs.h LIBTHREAD= LTLIBTHREAD= fi fi fi fi fi if test -z "$gl_have_pthread"; then case "$gl_use_threads" in yes | windows | win32) # The 'win32' is for backward compatibility. if { case "$host_os" in mingw*) true;; *) false;; esac }; then gl_threads_api=windows $as_echo "#define USE_WINDOWS_THREADS 1" >>confdefs.h fi ;; esac fi fi { $as_echo "$as_me:${as_lineno-$LINENO}: checking for multithread API to use" >&5 $as_echo_n "checking for multithread API to use... " >&6; } { $as_echo "$as_me:${as_lineno-$LINENO}: result: $gl_threads_api" >&5 $as_echo "$gl_threads_api" >&6; } { $as_echo "$as_me:${as_lineno-$LINENO}: checking for unsigned long long int" >&5 $as_echo_n "checking for unsigned long long int... " >&6; } if ${ac_cv_type_unsigned_long_long_int+:} false; then : $as_echo_n "(cached) " >&6 else ac_cv_type_unsigned_long_long_int=yes if test "x${ac_cv_prog_cc_c99-no}" = xno; then cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ /* For now, do not test the preprocessor; as of 2007 there are too many implementations with broken preprocessors. Perhaps this can be revisited in 2012. In the meantime, code should not expect #if to work with literals wider than 32 bits. */ /* Test literals. */ long long int ll = 9223372036854775807ll; long long int nll = -9223372036854775807LL; unsigned long long int ull = 18446744073709551615ULL; /* Test constant expressions. */ typedef int a[((-9223372036854775807LL < 0 && 0 < 9223372036854775807ll) ? 1 : -1)]; typedef int b[(18446744073709551615ULL <= (unsigned long long int) -1 ? 1 : -1)]; int i = 63; int main () { /* Test availability of runtime routines for shift and division. */ long long int llmax = 9223372036854775807ll; unsigned long long int ullmax = 18446744073709551615ull; return ((ll << 63) | (ll >> 63) | (ll < i) | (ll > i) | (llmax / ll) | (llmax % ll) | (ull << 63) | (ull >> 63) | (ull << i) | (ull >> i) | (ullmax / ull) | (ullmax % ull)); ; return 0; } _ACEOF if ac_fn_c_try_link "$LINENO"; then : else ac_cv_type_unsigned_long_long_int=no fi rm -f core conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext fi fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_type_unsigned_long_long_int" >&5 $as_echo "$ac_cv_type_unsigned_long_long_int" >&6; } if test $ac_cv_type_unsigned_long_long_int = yes; then $as_echo "#define HAVE_UNSIGNED_LONG_LONG_INT 1" >>confdefs.h fi { $as_echo "$as_me:${as_lineno-$LINENO}: checking for long long int" >&5 $as_echo_n "checking for long long int... " >&6; } if ${ac_cv_type_long_long_int+:} false; then : $as_echo_n "(cached) " >&6 else ac_cv_type_long_long_int=yes if test "x${ac_cv_prog_cc_c99-no}" = xno; then ac_cv_type_long_long_int=$ac_cv_type_unsigned_long_long_int if test $ac_cv_type_long_long_int = yes; then if test "$cross_compiling" = yes; then : : else cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include #ifndef LLONG_MAX # define HALF \ (1LL << (sizeof (long long int) * CHAR_BIT - 2)) # define LLONG_MAX (HALF - 1 + HALF) #endif int main () { long long int n = 1; int i; for (i = 0; ; i++) { long long int m = n << i; if (m >> i != n) return 1; if (LLONG_MAX / 2 < m) break; } return 0; ; return 0; } _ACEOF if ac_fn_c_try_run "$LINENO"; then : else ac_cv_type_long_long_int=no fi rm -f core *.core core.conftest.* gmon.out bb.out conftest$ac_exeext \ conftest.$ac_objext conftest.beam conftest.$ac_ext fi fi fi fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_type_long_long_int" >&5 $as_echo "$ac_cv_type_long_long_int" >&6; } if test $ac_cv_type_long_long_int = yes; then $as_echo "#define HAVE_LONG_LONG_INT 1" >>confdefs.h fi gl_cv_c_multiarch=no cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #ifndef __APPLE_CC__ not a universal capable compiler #endif typedef int dummy; _ACEOF if ac_fn_c_try_compile "$LINENO"; then : arch= prev= for word in ${CC} ${CFLAGS} ${CPPFLAGS} ${LDFLAGS}; do if test -n "$prev"; then case $word in i?86 | x86_64 | ppc | ppc64) if test -z "$arch" || test "$arch" = "$word"; then arch="$word" else gl_cv_c_multiarch=yes fi ;; esac prev= else if test "x$word" = "x-arch"; then prev=arch fi fi done fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext if test $gl_cv_c_multiarch = yes; then APPLE_UNIVERSAL_BUILD=1 else APPLE_UNIVERSAL_BUILD=0 fi { $as_echo "$as_me:${as_lineno-$LINENO}: checking for wint_t" >&5 $as_echo_n "checking for wint_t... " >&6; } if ${gt_cv_c_wint_t+:} false; then : $as_echo_n "(cached) " >&6 else cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ /* Tru64 with Desktop Toolkit C has a bug: must be included before . BSD/OS 4.0.1 has a bug: , and must be included before . */ #include #include #include #include wint_t foo = (wchar_t)'\0'; int main () { ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO"; then : gt_cv_c_wint_t=yes else gt_cv_c_wint_t=no fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $gt_cv_c_wint_t" >&5 $as_echo "$gt_cv_c_wint_t" >&6; } if test $gt_cv_c_wint_t = yes; then $as_echo "#define HAVE_WINT_T 1" >>confdefs.h { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether wint_t is too small" >&5 $as_echo_n "checking whether wint_t is too small... " >&6; } if ${gl_cv_type_wint_t_too_small+:} false; then : $as_echo_n "(cached) " >&6 else cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ /* Tru64 with Desktop Toolkit C has a bug: must be included before . BSD/OS 4.0.1 has a bug: , and must be included before . */ #if !(defined __GLIBC__ && !defined __UCLIBC__) # include # include # include #endif #include int verify[sizeof (wint_t) < sizeof (int) ? -1 : 1]; int main () { ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO"; then : gl_cv_type_wint_t_too_small=no else gl_cv_type_wint_t_too_small=yes fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $gl_cv_type_wint_t_too_small" >&5 $as_echo "$gl_cv_type_wint_t_too_small" >&6; } if test $gl_cv_type_wint_t_too_small = yes; then GNULIB_OVERRIDES_WINT_T=1 else GNULIB_OVERRIDES_WINT_T=0 fi else GNULIB_OVERRIDES_WINT_T=0 fi if test $ac_cv_type_long_long_int = yes; then HAVE_LONG_LONG_INT=1 else HAVE_LONG_LONG_INT=0 fi if test $ac_cv_type_unsigned_long_long_int = yes; then HAVE_UNSIGNED_LONG_LONG_INT=1 else HAVE_UNSIGNED_LONG_LONG_INT=0 fi : if test $ac_cv_header_wchar_h = yes; then HAVE_WCHAR_H=1 else HAVE_WCHAR_H=0 fi if test $ac_cv_header_inttypes_h = yes; then HAVE_INTTYPES_H=1 else HAVE_INTTYPES_H=0 fi if test $ac_cv_header_sys_types_h = yes; then HAVE_SYS_TYPES_H=1 else HAVE_SYS_TYPES_H=0 fi : if test $gl_cv_have_include_next = yes; then gl_cv_next_stdint_h='<'stdint.h'>' else { $as_echo "$as_me:${as_lineno-$LINENO}: checking absolute name of " >&5 $as_echo_n "checking absolute name of ... " >&6; } if ${gl_cv_next_stdint_h+:} false; then : $as_echo_n "(cached) " >&6 else if test $ac_cv_header_stdint_h = yes; then cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include _ACEOF case "$host_os" in aix*) gl_absname_cpp="$ac_cpp -C" ;; *) gl_absname_cpp="$ac_cpp" ;; esac case "$host_os" in mingw*) gl_dirsep_regex='[/\\]' ;; *) gl_dirsep_regex='\/' ;; esac gl_make_literal_regex_sed='s,[]$^\\.*/[],\\&,g' gl_header_literal_regex=`echo 'stdint.h' \ | sed -e "$gl_make_literal_regex_sed"` gl_absolute_header_sed="/${gl_dirsep_regex}${gl_header_literal_regex}/"'{ s/.*"\(.*'"${gl_dirsep_regex}${gl_header_literal_regex}"'\)".*/\1/ s|^/[^/]|//&| p q }' gl_cv_absolute_stdint_h=`(eval "$gl_absname_cpp conftest.$ac_ext") 2>&5 | sed -n "$gl_absolute_header_sed"` gl_header=$gl_cv_absolute_stdint_h gl_cv_next_stdint_h='"'$gl_header'"' else gl_cv_next_stdint_h='<'stdint.h'>' fi fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $gl_cv_next_stdint_h" >&5 $as_echo "$gl_cv_next_stdint_h" >&6; } fi NEXT_STDINT_H=$gl_cv_next_stdint_h if test $gl_cv_have_include_next = yes || test $gl_cv_have_include_next = buggy; then # INCLUDE_NEXT_AS_FIRST_DIRECTIVE='include_next' gl_next_as_first_directive='<'stdint.h'>' else # INCLUDE_NEXT_AS_FIRST_DIRECTIVE='include' gl_next_as_first_directive=$gl_cv_next_stdint_h fi NEXT_AS_FIRST_DIRECTIVE_STDINT_H=$gl_next_as_first_directive if test $ac_cv_header_stdint_h = yes; then HAVE_STDINT_H=1 else HAVE_STDINT_H=0 fi if test $ac_cv_header_stdint_h = yes; then { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether stdint.h conforms to C99" >&5 $as_echo_n "checking whether stdint.h conforms to C99... " >&6; } if ${gl_cv_header_working_stdint_h+:} false; then : $as_echo_n "(cached) " >&6 else gl_cv_header_working_stdint_h=no cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #define _GL_JUST_INCLUDE_SYSTEM_STDINT_H 1 /* work if build isn't clean */ #define __STDC_CONSTANT_MACROS 1 #define __STDC_LIMIT_MACROS 1 #include /* Dragonfly defines WCHAR_MIN, WCHAR_MAX only in . */ #if !(defined WCHAR_MIN && defined WCHAR_MAX) #error "WCHAR_MIN, WCHAR_MAX not defined in " #endif /* BSD/OS 4.0.1 has a bug: , and must be included before . */ #include #include #if HAVE_WCHAR_H # include # include # include #endif #ifdef INT8_MAX int8_t a1 = INT8_MAX; int8_t a1min = INT8_MIN; #endif #ifdef INT16_MAX int16_t a2 = INT16_MAX; int16_t a2min = INT16_MIN; #endif #ifdef INT32_MAX int32_t a3 = INT32_MAX; int32_t a3min = INT32_MIN; #endif #ifdef INT64_MAX int64_t a4 = INT64_MAX; int64_t a4min = INT64_MIN; #endif #ifdef UINT8_MAX uint8_t b1 = UINT8_MAX; #else typedef int b1[(unsigned char) -1 != 255 ? 1 : -1]; #endif #ifdef UINT16_MAX uint16_t b2 = UINT16_MAX; #endif #ifdef UINT32_MAX uint32_t b3 = UINT32_MAX; #endif #ifdef UINT64_MAX uint64_t b4 = UINT64_MAX; #endif int_least8_t c1 = INT8_C (0x7f); int_least8_t c1max = INT_LEAST8_MAX; int_least8_t c1min = INT_LEAST8_MIN; int_least16_t c2 = INT16_C (0x7fff); int_least16_t c2max = INT_LEAST16_MAX; int_least16_t c2min = INT_LEAST16_MIN; int_least32_t c3 = INT32_C (0x7fffffff); int_least32_t c3max = INT_LEAST32_MAX; int_least32_t c3min = INT_LEAST32_MIN; int_least64_t c4 = INT64_C (0x7fffffffffffffff); int_least64_t c4max = INT_LEAST64_MAX; int_least64_t c4min = INT_LEAST64_MIN; uint_least8_t d1 = UINT8_C (0xff); uint_least8_t d1max = UINT_LEAST8_MAX; uint_least16_t d2 = UINT16_C (0xffff); uint_least16_t d2max = UINT_LEAST16_MAX; uint_least32_t d3 = UINT32_C (0xffffffff); uint_least32_t d3max = UINT_LEAST32_MAX; uint_least64_t d4 = UINT64_C (0xffffffffffffffff); uint_least64_t d4max = UINT_LEAST64_MAX; int_fast8_t e1 = INT_FAST8_MAX; int_fast8_t e1min = INT_FAST8_MIN; int_fast16_t e2 = INT_FAST16_MAX; int_fast16_t e2min = INT_FAST16_MIN; int_fast32_t e3 = INT_FAST32_MAX; int_fast32_t e3min = INT_FAST32_MIN; int_fast64_t e4 = INT_FAST64_MAX; int_fast64_t e4min = INT_FAST64_MIN; uint_fast8_t f1 = UINT_FAST8_MAX; uint_fast16_t f2 = UINT_FAST16_MAX; uint_fast32_t f3 = UINT_FAST32_MAX; uint_fast64_t f4 = UINT_FAST64_MAX; #ifdef INTPTR_MAX intptr_t g = INTPTR_MAX; intptr_t gmin = INTPTR_MIN; #endif #ifdef UINTPTR_MAX uintptr_t h = UINTPTR_MAX; #endif intmax_t i = INTMAX_MAX; uintmax_t j = UINTMAX_MAX; /* Check that SIZE_MAX has the correct type, if possible. */ #if 201112 <= __STDC_VERSION__ int k = _Generic (SIZE_MAX, size_t: 0); #elif (2 <= __GNUC__ || defined __IBM__TYPEOF__ \ || (0x5110 <= __SUNPRO_C && !__STDC__)) extern size_t k; extern __typeof__ (SIZE_MAX) k; #endif #include /* for CHAR_BIT */ #define TYPE_MINIMUM(t) \ ((t) ((t) 0 < (t) -1 ? (t) 0 : ~ TYPE_MAXIMUM (t))) #define TYPE_MAXIMUM(t) \ ((t) ((t) 0 < (t) -1 \ ? (t) -1 \ : ((((t) 1 << (sizeof (t) * CHAR_BIT - 2)) - 1) * 2 + 1))) struct s { int check_PTRDIFF: PTRDIFF_MIN == TYPE_MINIMUM (ptrdiff_t) && PTRDIFF_MAX == TYPE_MAXIMUM (ptrdiff_t) ? 1 : -1; /* Detect bug in FreeBSD 6.0 / ia64. */ int check_SIG_ATOMIC: SIG_ATOMIC_MIN == TYPE_MINIMUM (sig_atomic_t) && SIG_ATOMIC_MAX == TYPE_MAXIMUM (sig_atomic_t) ? 1 : -1; int check_SIZE: SIZE_MAX == TYPE_MAXIMUM (size_t) ? 1 : -1; int check_WCHAR: WCHAR_MIN == TYPE_MINIMUM (wchar_t) && WCHAR_MAX == TYPE_MAXIMUM (wchar_t) ? 1 : -1; /* Detect bug in mingw. */ int check_WINT: WINT_MIN == TYPE_MINIMUM (wint_t) && WINT_MAX == TYPE_MAXIMUM (wint_t) ? 1 : -1; /* Detect bugs in glibc 2.4 and Solaris 10 stdint.h, among others. */ int check_UINT8_C: (-1 < UINT8_C (0)) == (-1 < (uint_least8_t) 0) ? 1 : -1; int check_UINT16_C: (-1 < UINT16_C (0)) == (-1 < (uint_least16_t) 0) ? 1 : -1; /* Detect bugs in OpenBSD 3.9 stdint.h. */ #ifdef UINT8_MAX int check_uint8: (uint8_t) -1 == UINT8_MAX ? 1 : -1; #endif #ifdef UINT16_MAX int check_uint16: (uint16_t) -1 == UINT16_MAX ? 1 : -1; #endif #ifdef UINT32_MAX int check_uint32: (uint32_t) -1 == UINT32_MAX ? 1 : -1; #endif #ifdef UINT64_MAX int check_uint64: (uint64_t) -1 == UINT64_MAX ? 1 : -1; #endif int check_uint_least8: (uint_least8_t) -1 == UINT_LEAST8_MAX ? 1 : -1; int check_uint_least16: (uint_least16_t) -1 == UINT_LEAST16_MAX ? 1 : -1; int check_uint_least32: (uint_least32_t) -1 == UINT_LEAST32_MAX ? 1 : -1; int check_uint_least64: (uint_least64_t) -1 == UINT_LEAST64_MAX ? 1 : -1; int check_uint_fast8: (uint_fast8_t) -1 == UINT_FAST8_MAX ? 1 : -1; int check_uint_fast16: (uint_fast16_t) -1 == UINT_FAST16_MAX ? 1 : -1; int check_uint_fast32: (uint_fast32_t) -1 == UINT_FAST32_MAX ? 1 : -1; int check_uint_fast64: (uint_fast64_t) -1 == UINT_FAST64_MAX ? 1 : -1; int check_uintptr: (uintptr_t) -1 == UINTPTR_MAX ? 1 : -1; int check_uintmax: (uintmax_t) -1 == UINTMAX_MAX ? 1 : -1; int check_size: (size_t) -1 == SIZE_MAX ? 1 : -1; }; int main () { ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO"; then : if test "$cross_compiling" = yes; then : case "$host_os" in # Guess yes on native Windows. mingw*) gl_cv_header_working_stdint_h="guessing yes" ;; # In general, assume it works. *) gl_cv_header_working_stdint_h="guessing yes" ;; esac else cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #define _GL_JUST_INCLUDE_SYSTEM_STDINT_H 1 /* work if build isn't clean */ #define __STDC_CONSTANT_MACROS 1 #define __STDC_LIMIT_MACROS 1 #include /* BSD/OS 4.0.1 has a bug: , and must be included before . */ #include #include #if HAVE_WCHAR_H # include # include # include #endif #include #include #define MVAL(macro) MVAL1(macro) #define MVAL1(expression) #expression static const char *macro_values[] = { #ifdef INT8_MAX MVAL (INT8_MAX), #endif #ifdef INT16_MAX MVAL (INT16_MAX), #endif #ifdef INT32_MAX MVAL (INT32_MAX), #endif #ifdef INT64_MAX MVAL (INT64_MAX), #endif #ifdef UINT8_MAX MVAL (UINT8_MAX), #endif #ifdef UINT16_MAX MVAL (UINT16_MAX), #endif #ifdef UINT32_MAX MVAL (UINT32_MAX), #endif #ifdef UINT64_MAX MVAL (UINT64_MAX), #endif NULL }; int main () { const char **mv; for (mv = macro_values; *mv != NULL; mv++) { const char *value = *mv; /* Test whether it looks like a cast expression. */ if (strncmp (value, "((unsigned int)"/*)*/, 15) == 0 || strncmp (value, "((unsigned short)"/*)*/, 17) == 0 || strncmp (value, "((unsigned char)"/*)*/, 16) == 0 || strncmp (value, "((int)"/*)*/, 6) == 0 || strncmp (value, "((signed short)"/*)*/, 15) == 0 || strncmp (value, "((signed char)"/*)*/, 14) == 0) return mv - macro_values + 1; } return 0; ; return 0; } _ACEOF if ac_fn_c_try_run "$LINENO"; then : gl_cv_header_working_stdint_h=yes fi rm -f core *.core core.conftest.* gmon.out bb.out conftest$ac_exeext \ conftest.$ac_objext conftest.beam conftest.$ac_ext fi fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $gl_cv_header_working_stdint_h" >&5 $as_echo "$gl_cv_header_working_stdint_h" >&6; } fi HAVE_C99_STDINT_H=0 HAVE_SYS_BITYPES_H=0 HAVE_SYS_INTTYPES_H=0 STDINT_H=stdint.h case "$gl_cv_header_working_stdint_h" in *yes) HAVE_C99_STDINT_H=1 { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether stdint.h predates C++11" >&5 $as_echo_n "checking whether stdint.h predates C++11... " >&6; } if ${gl_cv_header_stdint_predates_cxx11_h+:} false; then : $as_echo_n "(cached) " >&6 else gl_cv_header_stdint_predates_cxx11_h=yes cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #define _GL_JUST_INCLUDE_SYSTEM_STDINT_H 1 /* work if build isn't clean */ #include /* BSD/OS 4.0.1 has a bug: , and must be included before . */ #include #include #if HAVE_WCHAR_H # include # include # include #endif intmax_t im = INTMAX_MAX; int32_t i32 = INT32_C (0x7fffffff); int main () { ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO"; then : gl_cv_header_stdint_predates_cxx11_h=no fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $gl_cv_header_stdint_predates_cxx11_h" >&5 $as_echo "$gl_cv_header_stdint_predates_cxx11_h" >&6; } if test "$gl_cv_header_stdint_predates_cxx11_h" = yes; then $as_echo "#define __STDC_CONSTANT_MACROS 1" >>confdefs.h $as_echo "#define __STDC_LIMIT_MACROS 1" >>confdefs.h fi { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether stdint.h has UINTMAX_WIDTH etc." >&5 $as_echo_n "checking whether stdint.h has UINTMAX_WIDTH etc.... " >&6; } if ${gl_cv_header_stdint_width+:} false; then : $as_echo_n "(cached) " >&6 else gl_cv_header_stdint_width=no cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ /* Work if build is not clean. */ #define _GL_JUST_INCLUDE_SYSTEM_STDINT_H 1 #ifndef __STDC_WANT_IEC_60559_BFP_EXT__ #define __STDC_WANT_IEC_60559_BFP_EXT__ 1 #endif #include /* BSD/OS 4.0.1 has a bug: , and must be included before . */ #include #include #if HAVE_WCHAR_H # include # include # include #endif int iw = UINTMAX_WIDTH; int main () { ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO"; then : gl_cv_header_stdint_width=yes fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $gl_cv_header_stdint_width" >&5 $as_echo "$gl_cv_header_stdint_width" >&6; } if test "$gl_cv_header_stdint_width" = yes; then STDINT_H= fi ;; *) for ac_header in sys/inttypes.h sys/bitypes.h do : as_ac_Header=`$as_echo "ac_cv_header_$ac_header" | $as_tr_sh` ac_fn_c_check_header_mongrel "$LINENO" "$ac_header" "$as_ac_Header" "$ac_includes_default" if eval test \"x\$"$as_ac_Header"\" = x"yes"; then : cat >>confdefs.h <<_ACEOF #define `$as_echo "HAVE_$ac_header" | $as_tr_cpp` 1 _ACEOF fi done if test $ac_cv_header_sys_inttypes_h = yes; then HAVE_SYS_INTTYPES_H=1 fi if test $ac_cv_header_sys_bitypes_h = yes; then HAVE_SYS_BITYPES_H=1 fi if test $APPLE_UNIVERSAL_BUILD = 0; then for gltype in ptrdiff_t size_t ; do { $as_echo "$as_me:${as_lineno-$LINENO}: checking for bit size of $gltype" >&5 $as_echo_n "checking for bit size of $gltype... " >&6; } if eval \${gl_cv_bitsizeof_${gltype}+:} false; then : $as_echo_n "(cached) " >&6 else if ac_fn_c_compute_int "$LINENO" "sizeof ($gltype) * CHAR_BIT" "result" " /* BSD/OS 4.0.1 has a bug: , and must be included before . */ #include #include #if HAVE_WCHAR_H # include # include # include #endif #include "; then : else result=unknown fi eval gl_cv_bitsizeof_${gltype}=\$result fi eval ac_res=\$gl_cv_bitsizeof_${gltype} { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_res" >&5 $as_echo "$ac_res" >&6; } eval result=\$gl_cv_bitsizeof_${gltype} if test $result = unknown; then result=0 fi GLTYPE=`echo "$gltype" | tr 'abcdefghijklmnopqrstuvwxyz ' 'ABCDEFGHIJKLMNOPQRSTUVWXYZ_'` cat >>confdefs.h <<_ACEOF #define BITSIZEOF_${GLTYPE} $result _ACEOF eval BITSIZEOF_${GLTYPE}=\$result done fi for gltype in sig_atomic_t wchar_t wint_t ; do { $as_echo "$as_me:${as_lineno-$LINENO}: checking for bit size of $gltype" >&5 $as_echo_n "checking for bit size of $gltype... " >&6; } if eval \${gl_cv_bitsizeof_${gltype}+:} false; then : $as_echo_n "(cached) " >&6 else if ac_fn_c_compute_int "$LINENO" "sizeof ($gltype) * CHAR_BIT" "result" " /* BSD/OS 4.0.1 has a bug: , and must be included before . */ #include #include #if HAVE_WCHAR_H # include # include # include #endif #include "; then : else result=unknown fi eval gl_cv_bitsizeof_${gltype}=\$result fi eval ac_res=\$gl_cv_bitsizeof_${gltype} { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_res" >&5 $as_echo "$ac_res" >&6; } eval result=\$gl_cv_bitsizeof_${gltype} if test $result = unknown; then result=0 fi GLTYPE=`echo "$gltype" | tr 'abcdefghijklmnopqrstuvwxyz ' 'ABCDEFGHIJKLMNOPQRSTUVWXYZ_'` cat >>confdefs.h <<_ACEOF #define BITSIZEOF_${GLTYPE} $result _ACEOF eval BITSIZEOF_${GLTYPE}=\$result done for gltype in sig_atomic_t wchar_t wint_t ; do { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether $gltype is signed" >&5 $as_echo_n "checking whether $gltype is signed... " >&6; } if eval \${gl_cv_type_${gltype}_signed+:} false; then : $as_echo_n "(cached) " >&6 else cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ /* BSD/OS 4.0.1 has a bug: , and must be included before . */ #include #include #if HAVE_WCHAR_H # include # include # include #endif int verify[2 * (($gltype) -1 < ($gltype) 0) - 1]; int main () { ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO"; then : result=yes else result=no fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext eval gl_cv_type_${gltype}_signed=\$result fi eval ac_res=\$gl_cv_type_${gltype}_signed { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_res" >&5 $as_echo "$ac_res" >&6; } eval result=\$gl_cv_type_${gltype}_signed GLTYPE=`echo $gltype | tr 'abcdefghijklmnopqrstuvwxyz ' 'ABCDEFGHIJKLMNOPQRSTUVWXYZ_'` if test "$result" = yes; then cat >>confdefs.h <<_ACEOF #define HAVE_SIGNED_${GLTYPE} 1 _ACEOF eval HAVE_SIGNED_${GLTYPE}=1 else eval HAVE_SIGNED_${GLTYPE}=0 fi done gl_cv_type_ptrdiff_t_signed=yes gl_cv_type_size_t_signed=no if test $APPLE_UNIVERSAL_BUILD = 0; then for gltype in ptrdiff_t size_t ; do { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $gltype integer literal suffix" >&5 $as_echo_n "checking for $gltype integer literal suffix... " >&6; } if eval \${gl_cv_type_${gltype}_suffix+:} false; then : $as_echo_n "(cached) " >&6 else eval gl_cv_type_${gltype}_suffix=no eval result=\$gl_cv_type_${gltype}_signed if test "$result" = yes; then glsufu= else glsufu=u fi for glsuf in "$glsufu" ${glsufu}l ${glsufu}ll ${glsufu}i64; do case $glsuf in '') gltype1='int';; l) gltype1='long int';; ll) gltype1='long long int';; i64) gltype1='__int64';; u) gltype1='unsigned int';; ul) gltype1='unsigned long int';; ull) gltype1='unsigned long long int';; ui64)gltype1='unsigned __int64';; esac cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ /* BSD/OS 4.0.1 has a bug: , and must be included before . */ #include #include #if HAVE_WCHAR_H # include # include # include #endif extern $gltype foo; extern $gltype1 foo; int main () { ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO"; then : eval gl_cv_type_${gltype}_suffix=\$glsuf fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext eval result=\$gl_cv_type_${gltype}_suffix test "$result" != no && break done fi eval ac_res=\$gl_cv_type_${gltype}_suffix { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_res" >&5 $as_echo "$ac_res" >&6; } GLTYPE=`echo $gltype | tr 'abcdefghijklmnopqrstuvwxyz ' 'ABCDEFGHIJKLMNOPQRSTUVWXYZ_'` eval result=\$gl_cv_type_${gltype}_suffix test "$result" = no && result= eval ${GLTYPE}_SUFFIX=\$result cat >>confdefs.h <<_ACEOF #define ${GLTYPE}_SUFFIX $result _ACEOF done fi for gltype in sig_atomic_t wchar_t wint_t ; do { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $gltype integer literal suffix" >&5 $as_echo_n "checking for $gltype integer literal suffix... " >&6; } if eval \${gl_cv_type_${gltype}_suffix+:} false; then : $as_echo_n "(cached) " >&6 else eval gl_cv_type_${gltype}_suffix=no eval result=\$gl_cv_type_${gltype}_signed if test "$result" = yes; then glsufu= else glsufu=u fi for glsuf in "$glsufu" ${glsufu}l ${glsufu}ll ${glsufu}i64; do case $glsuf in '') gltype1='int';; l) gltype1='long int';; ll) gltype1='long long int';; i64) gltype1='__int64';; u) gltype1='unsigned int';; ul) gltype1='unsigned long int';; ull) gltype1='unsigned long long int';; ui64)gltype1='unsigned __int64';; esac cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ /* BSD/OS 4.0.1 has a bug: , and must be included before . */ #include #include #if HAVE_WCHAR_H # include # include # include #endif extern $gltype foo; extern $gltype1 foo; int main () { ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO"; then : eval gl_cv_type_${gltype}_suffix=\$glsuf fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext eval result=\$gl_cv_type_${gltype}_suffix test "$result" != no && break done fi eval ac_res=\$gl_cv_type_${gltype}_suffix { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_res" >&5 $as_echo "$ac_res" >&6; } GLTYPE=`echo $gltype | tr 'abcdefghijklmnopqrstuvwxyz ' 'ABCDEFGHIJKLMNOPQRSTUVWXYZ_'` eval result=\$gl_cv_type_${gltype}_suffix test "$result" = no && result= eval ${GLTYPE}_SUFFIX=\$result cat >>confdefs.h <<_ACEOF #define ${GLTYPE}_SUFFIX $result _ACEOF done if test $GNULIB_OVERRIDES_WINT_T = 1; then BITSIZEOF_WINT_T=32 fi ;; esac LIMITS_H='limits.h' if test -n "$LIMITS_H"; then GL_GENERATE_LIMITS_H_TRUE= GL_GENERATE_LIMITS_H_FALSE='#' else GL_GENERATE_LIMITS_H_TRUE='#' GL_GENERATE_LIMITS_H_FALSE= fi if test -n "$STDINT_H"; then GL_GENERATE_STDINT_H_TRUE= GL_GENERATE_STDINT_H_FALSE='#' else GL_GENERATE_STDINT_H_TRUE='#' GL_GENERATE_STDINT_H_FALSE= fi ac_fn_c_check_type "$LINENO" "pid_t" "ac_cv_type_pid_t" "$ac_includes_default" if test "x$ac_cv_type_pid_t" = xyes; then : else cat >>confdefs.h <<_ACEOF #define pid_t int _ACEOF fi ac_fn_c_check_type "$LINENO" "mode_t" "ac_cv_type_mode_t" "$ac_includes_default" if test "x$ac_cv_type_mode_t" = xyes; then : else cat >>confdefs.h <<_ACEOF #define mode_t int _ACEOF fi WINDOWS_64_BIT_OFF_T=0 $as_echo "#define _USE_STD_STAT 1" >>confdefs.h if test $gl_cv_have_include_next = yes; then gl_cv_next_sys_types_h='<'sys/types.h'>' else { $as_echo "$as_me:${as_lineno-$LINENO}: checking absolute name of " >&5 $as_echo_n "checking absolute name of ... " >&6; } if ${gl_cv_next_sys_types_h+:} false; then : $as_echo_n "(cached) " >&6 else cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include _ACEOF case "$host_os" in aix*) gl_absname_cpp="$ac_cpp -C" ;; *) gl_absname_cpp="$ac_cpp" ;; esac case "$host_os" in mingw*) gl_dirsep_regex='[/\\]' ;; *) gl_dirsep_regex='\/' ;; esac gl_make_literal_regex_sed='s,[]$^\\.*/[],\\&,g' gl_header_literal_regex=`echo 'sys/types.h' \ | sed -e "$gl_make_literal_regex_sed"` gl_absolute_header_sed="/${gl_dirsep_regex}${gl_header_literal_regex}/"'{ s/.*"\(.*'"${gl_dirsep_regex}${gl_header_literal_regex}"'\)".*/\1/ s|^/[^/]|//&| p q }' gl_cv_absolute_sys_types_h=`(eval "$gl_absname_cpp conftest.$ac_ext") 2>&5 | sed -n "$gl_absolute_header_sed"` gl_header=$gl_cv_absolute_sys_types_h gl_cv_next_sys_types_h='"'$gl_header'"' fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $gl_cv_next_sys_types_h" >&5 $as_echo "$gl_cv_next_sys_types_h" >&6; } fi NEXT_SYS_TYPES_H=$gl_cv_next_sys_types_h if test $gl_cv_have_include_next = yes || test $gl_cv_have_include_next = buggy; then # INCLUDE_NEXT_AS_FIRST_DIRECTIVE='include_next' gl_next_as_first_directive='<'sys/types.h'>' else # INCLUDE_NEXT_AS_FIRST_DIRECTIVE='include' gl_next_as_first_directive=$gl_cv_next_sys_types_h fi NEXT_AS_FIRST_DIRECTIVE_SYS_TYPES_H=$gl_next_as_first_directive WINDOWS_STAT_INODES=0 if true; then GL_COND_LIBTOOL_TRUE= GL_COND_LIBTOOL_FALSE='#' else GL_COND_LIBTOOL_TRUE='#' GL_COND_LIBTOOL_FALSE= fi gl_cond_libtool=true gl_m4_base='gnulib-m4' gl_source_base='gnulib-lib' if test "$gl_threads_api" = posix; then # OSF/1 4.0 and Mac OS X 10.1 lack the pthread_rwlock_t type and the # pthread_rwlock_* functions. has_rwlock=false ac_fn_c_check_type "$LINENO" "pthread_rwlock_t" "ac_cv_type_pthread_rwlock_t" "#include " if test "x$ac_cv_type_pthread_rwlock_t" = xyes; then : has_rwlock=true $as_echo "#define HAVE_PTHREAD_RWLOCK 1" >>confdefs.h fi if $has_rwlock; then { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether pthread_rwlock_rdlock prefers a writer to a reader" >&5 $as_echo_n "checking whether pthread_rwlock_rdlock prefers a writer to a reader... " >&6; } if ${gl_cv_pthread_rwlock_rdlock_prefer_writer+:} false; then : $as_echo_n "(cached) " >&6 else save_LIBS="$LIBS" LIBS="$LIBS $LIBMULTITHREAD" if test "$cross_compiling" = yes; then : gl_cv_pthread_rwlock_rdlock_prefer_writer="guessing yes" else cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include #include #include #include #define SUCCEED() exit (0) #define FAILURE() exit (1) #define UNEXPECTED(n) (exit (10 + (n))) /* The main thread creates the waiting writer and the requesting reader threads in the default way; this guarantees that they have the same priority. We can reuse the main thread as first reader thread. */ static pthread_rwlock_t lock; static pthread_t reader1; static pthread_t writer; static pthread_t reader2; static pthread_t timer; /* Used to pass control from writer to reader2 and from reader2 to timer, as in a relay race. Passing control from one running thread to another running thread is most likely faster than to create the second thread. */ static pthread_mutex_t baton; static void * timer_func (void *ignored) { /* Step 13 (can be before or after step 12): The timer thread takes the baton, then waits a moment to make sure it can tell whether the second reader thread is blocked at step 12. */ if (pthread_mutex_lock (&baton)) UNEXPECTED (13); usleep (100000); /* By the time we get here, it's clear that the second reader thread is blocked at step 12. This is the desired behaviour. */ SUCCEED (); } static void * reader2_func (void *ignored) { int err; /* Step 8 (can be before or after step 7): The second reader thread takes the baton, then waits a moment to make sure the writer thread has reached step 7. */ if (pthread_mutex_lock (&baton)) UNEXPECTED (8); usleep (100000); /* Step 9: The second reader thread requests the lock. */ err = pthread_rwlock_tryrdlock (&lock); if (err == 0) FAILURE (); else if (err != EBUSY) UNEXPECTED (9); /* Step 10: Launch a timer, to test whether the next call blocks. */ if (pthread_create (&timer, NULL, timer_func, NULL)) UNEXPECTED (10); /* Step 11: Release the baton. */ if (pthread_mutex_unlock (&baton)) UNEXPECTED (11); /* Step 12: The second reader thread requests the lock. */ err = pthread_rwlock_rdlock (&lock); if (err == 0) FAILURE (); else UNEXPECTED (12); } static void * writer_func (void *ignored) { /* Step 4: Take the baton, so that the second reader thread does not go ahead too early. */ if (pthread_mutex_lock (&baton)) UNEXPECTED (4); /* Step 5: Create the second reader thread. */ if (pthread_create (&reader2, NULL, reader2_func, NULL)) UNEXPECTED (5); /* Step 6: Release the baton. */ if (pthread_mutex_unlock (&baton)) UNEXPECTED (6); /* Step 7: The writer thread requests the lock. */ if (pthread_rwlock_wrlock (&lock)) UNEXPECTED (7); return NULL; } int main () { reader1 = pthread_self (); /* Step 1: The main thread initializes the lock and the baton. */ if (pthread_rwlock_init (&lock, NULL)) UNEXPECTED (1); if (pthread_mutex_init (&baton, NULL)) UNEXPECTED (1); /* Step 2: The main thread acquires the lock as a reader. */ if (pthread_rwlock_rdlock (&lock)) UNEXPECTED (2); /* Step 3: Create the writer thread. */ if (pthread_create (&writer, NULL, writer_func, NULL)) UNEXPECTED (3); /* Job done. Go to sleep. */ for (;;) { sleep (1); } } _ACEOF if ac_fn_c_try_run "$LINENO"; then : gl_cv_pthread_rwlock_rdlock_prefer_writer=yes else gl_cv_pthread_rwlock_rdlock_prefer_writer=no fi rm -f core *.core core.conftest.* gmon.out bb.out conftest$ac_exeext \ conftest.$ac_objext conftest.beam conftest.$ac_ext fi LIBS="$save_LIBS" fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $gl_cv_pthread_rwlock_rdlock_prefer_writer" >&5 $as_echo "$gl_cv_pthread_rwlock_rdlock_prefer_writer" >&6; } case "$gl_cv_pthread_rwlock_rdlock_prefer_writer" in *yes) $as_echo "#define HAVE_PTHREAD_RWLOCK_RDLOCK_PREFER_WRITER 1" >>confdefs.h ;; esac fi # glibc defines PTHREAD_MUTEX_RECURSIVE as enum, not as a macro. cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include int main () { #if __FreeBSD__ == 4 error "No, in FreeBSD 4.0 recursive mutexes actually don't work." #elif (defined __ENVIRONMENT_MAC_OS_X_VERSION_MIN_REQUIRED__ \ && __ENVIRONMENT_MAC_OS_X_VERSION_MIN_REQUIRED__ < 1070) error "No, in Mac OS X < 10.7 recursive mutexes actually don't work." #else int x = (int)PTHREAD_MUTEX_RECURSIVE; return !x; #endif ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO"; then : $as_echo "#define HAVE_PTHREAD_MUTEX_RECURSIVE 1" >>confdefs.h fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext fi : cat >>confdefs.h <<_ACEOF #define GNULIB_LOCK 1 _ACEOF { $as_echo "$as_me:${as_lineno-$LINENO}: checking for ssize_t" >&5 $as_echo_n "checking for ssize_t... " >&6; } if ${gt_cv_ssize_t+:} false; then : $as_echo_n "(cached) " >&6 else cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include int main () { int x = sizeof (ssize_t *) + sizeof (ssize_t); return !x; ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO"; then : gt_cv_ssize_t=yes else gt_cv_ssize_t=no fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $gt_cv_ssize_t" >&5 $as_echo "$gt_cv_ssize_t" >&6; } if test $gt_cv_ssize_t = no; then $as_echo "#define ssize_t int" >>confdefs.h fi case "$host_os" in cygwin*) STDNORETURN_H='stdnoreturn.h' ;; *) { $as_echo "$as_me:${as_lineno-$LINENO}: checking for working stdnoreturn.h" >&5 $as_echo_n "checking for working stdnoreturn.h... " >&6; } if ${gl_cv_header_working_stdnoreturn_h+:} false; then : $as_echo_n "(cached) " >&6 else cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include #include /* Do not check for 'noreturn' after the return type. C11 allows it, but it's rarely done that way and circa-2012 bleeding-edge GCC rejects it when given -Werror=old-style-declaration. */ noreturn void foo1 (void) { exit (0); } _Noreturn void foo2 (void) { exit (0); } int testit (int argc, char **argv) { if (argc & 1) return 0; (argv[0][0] ? foo1 : foo2) (); } int main () { ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO"; then : gl_cv_header_working_stdnoreturn_h=yes else gl_cv_header_working_stdnoreturn_h=no fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $gl_cv_header_working_stdnoreturn_h" >&5 $as_echo "$gl_cv_header_working_stdnoreturn_h" >&6; } if test $gl_cv_header_working_stdnoreturn_h = yes; then STDNORETURN_H='' else STDNORETURN_H='stdnoreturn.h' fi ;; esac if test -n "$STDNORETURN_H"; then GL_GENERATE_STDNORETURN_H_TRUE= GL_GENERATE_STDNORETURN_H_FALSE='#' else GL_GENERATE_STDNORETURN_H_TRUE='#' GL_GENERATE_STDNORETURN_H_FALSE= fi case "$host_os" in mingw*) gl_LIBOBJS="$gl_LIBOBJS windows-mutex.$ac_objext" ;; esac case "$host_os" in mingw*) gl_LIBOBJS="$gl_LIBOBJS windows-once.$ac_objext" ;; esac case "$host_os" in mingw*) gl_LIBOBJS="$gl_LIBOBJS windows-recmutex.$ac_objext" ;; esac case "$host_os" in mingw*) gl_LIBOBJS="$gl_LIBOBJS windows-rwlock.$ac_objext" ;; esac # End of code from modules gltests_libdeps= gltests_ltlibdeps= gl_source_base='tests' gltests_WITNESS=IN_`echo "${PACKAGE-$PACKAGE_TARNAME}" | LC_ALL=C tr abcdefghijklmnopqrstuvwxyz ABCDEFGHIJKLMNOPQRSTUVWXYZ | LC_ALL=C sed -e 's/[^A-Z0-9_]/_/g'`_GNULIB_TESTS gl_module_indicator_condition=$gltests_WITNESS extrasub="$extrasub"' /@subdir@/{ h g s/@subdir@/gnulib-lib/g p g s/@subdir@/avcall/g p g s/@subdir@/vacall/g p g s/@subdir@/trampoline/g p g s/@subdir@/callback/g p d } ' extrasub="$extrasub"' /@callback_subdir@/{ h g s/@callback_subdir@/vacall_r/g p g s/@callback_subdir@/trampoline_r/g p d } ' cat >confcache <<\_ACEOF # This file is a shell script that caches the results of configure # tests run on this system so they can be shared between configure # scripts and configure runs, see configure's option --config-cache. # It is not useful on other systems. If it contains results you don't # want to keep, you may remove or edit it. # # config.status only pays attention to the cache file if you give it # the --recheck option to rerun configure. # # `ac_cv_env_foo' variables (set or unset) will be overridden when # loading this file, other *unset* `ac_cv_foo' will be assigned the # following values. _ACEOF # The following way of writing the cache mishandles newlines in values, # but we know of no workaround that is simple, portable, and efficient. # So, we kill variables containing newlines. # Ultrix sh set writes to stderr and can't be redirected directly, # and sets the high bit in the cache file unless we assign to the vars. ( for ac_var in `(set) 2>&1 | sed -n 's/^\([a-zA-Z_][a-zA-Z0-9_]*\)=.*/\1/p'`; do eval ac_val=\$$ac_var case $ac_val in #( *${as_nl}*) case $ac_var in #( *_cv_*) { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: cache variable $ac_var contains a newline" >&5 $as_echo "$as_me: WARNING: cache variable $ac_var contains a newline" >&2;} ;; esac case $ac_var in #( _ | IFS | as_nl) ;; #( BASH_ARGV | BASH_SOURCE) eval $ac_var= ;; #( *) { eval $ac_var=; unset $ac_var;} ;; esac ;; esac done (set) 2>&1 | case $as_nl`(ac_space=' '; set) 2>&1` in #( *${as_nl}ac_space=\ *) # `set' does not quote correctly, so add quotes: double-quote # substitution turns \\\\ into \\, and sed turns \\ into \. sed -n \ "s/'/'\\\\''/g; s/^\\([_$as_cr_alnum]*_cv_[_$as_cr_alnum]*\\)=\\(.*\\)/\\1='\\2'/p" ;; #( *) # `set' quotes correctly as required by POSIX, so do not add quotes. sed -n "/^[_$as_cr_alnum]*_cv_[_$as_cr_alnum]*=/p" ;; esac | sort ) | sed ' /^ac_cv_env_/b end t clear :clear s/^\([^=]*\)=\(.*[{}].*\)$/test "${\1+set}" = set || &/ t end s/^\([^=]*\)=\(.*\)$/\1=${\1=\2}/ :end' >>confcache if diff "$cache_file" confcache >/dev/null 2>&1; then :; else if test -w "$cache_file"; then if test "x$cache_file" != "x/dev/null"; then { $as_echo "$as_me:${as_lineno-$LINENO}: updating cache $cache_file" >&5 $as_echo "$as_me: updating cache $cache_file" >&6;} if test ! -f "$cache_file" || test -h "$cache_file"; then cat confcache >"$cache_file" else case $cache_file in #( */* | ?:*) mv -f confcache "$cache_file"$$ && mv -f "$cache_file"$$ "$cache_file" ;; #( *) mv -f confcache "$cache_file" ;; esac fi fi else { $as_echo "$as_me:${as_lineno-$LINENO}: not updating unwritable cache $cache_file" >&5 $as_echo "$as_me: not updating unwritable cache $cache_file" >&6;} fi fi rm -f confcache test "x$prefix" = xNONE && prefix=$ac_default_prefix # Let make expand exec_prefix. test "x$exec_prefix" = xNONE && exec_prefix='${prefix}' DEFS=-DHAVE_CONFIG_H ac_libobjs= ac_ltlibobjs= U= for ac_i in : $LIBOBJS; do test "x$ac_i" = x: && continue # 1. Remove the extension, and $U if already installed. ac_script='s/\$U\././;s/\.o$//;s/\.obj$//' ac_i=`$as_echo "$ac_i" | sed "$ac_script"` # 2. Prepend LIBOBJDIR. When used with automake>=1.10 LIBOBJDIR # will be set to the directory where LIBOBJS objects are built. as_fn_append ac_libobjs " \${LIBOBJDIR}$ac_i\$U.$ac_objext" as_fn_append ac_ltlibobjs " \${LIBOBJDIR}$ac_i"'$U.lo' done LIBOBJS=$ac_libobjs LTLIBOBJS=$ac_ltlibobjs { $as_echo "$as_me:${as_lineno-$LINENO}: checking that generated files are newer than configure" >&5 $as_echo_n "checking that generated files are newer than configure... " >&6; } if test -n "$am_sleep_pid"; then # Hide warnings about reused PIDs. wait $am_sleep_pid 2>/dev/null fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: done" >&5 $as_echo "done" >&6; } if test -n "$EXEEXT"; then am__EXEEXT_TRUE= am__EXEEXT_FALSE='#' else am__EXEEXT_TRUE='#' am__EXEEXT_FALSE= fi if test -z "${AMDEP_TRUE}" && test -z "${AMDEP_FALSE}"; then as_fn_error $? "conditional \"AMDEP\" was never defined. Usually this means the macro was only invoked conditionally." "$LINENO" 5 fi if test -z "${am__fastdepCC_TRUE}" && test -z "${am__fastdepCC_FALSE}"; then as_fn_error $? "conditional \"am__fastdepCC\" was never defined. Usually this means the macro was only invoked conditionally." "$LINENO" 5 fi if test -z "${ANSICXX_TRUE}" && test -z "${ANSICXX_FALSE}"; then as_fn_error $? "conditional \"ANSICXX\" was never defined. Usually this means the macro was only invoked conditionally." "$LINENO" 5 fi if test -z "${am__fastdepCXX_TRUE}" && test -z "${am__fastdepCXX_FALSE}"; then as_fn_error $? "conditional \"am__fastdepCXX\" was never defined. Usually this means the macro was only invoked conditionally." "$LINENO" 5 fi if test -z "${am__fastdepCXX_TRUE}" && test -z "${am__fastdepCXX_FALSE}"; then as_fn_error $? "conditional \"am__fastdepCXX\" was never defined. Usually this means the macro was only invoked conditionally." "$LINENO" 5 fi if test -z "${GL_COND_LIBTOOL_TRUE}" && test -z "${GL_COND_LIBTOOL_FALSE}"; then as_fn_error $? "conditional \"GL_COND_LIBTOOL\" was never defined. Usually this means the macro was only invoked conditionally." "$LINENO" 5 fi if test -z "${ANSICXX_TRUE}" && test -z "${ANSICXX_FALSE}"; then as_fn_error $? "conditional \"ANSICXX\" was never defined. Usually this means the macro was only invoked conditionally." "$LINENO" 5 fi if test -z "${am__fastdepCXX_TRUE}" && test -z "${am__fastdepCXX_FALSE}"; then as_fn_error $? "conditional \"am__fastdepCXX\" was never defined. Usually this means the macro was only invoked conditionally." "$LINENO" 5 fi if test -z "${am__fastdepCXX_TRUE}" && test -z "${am__fastdepCXX_FALSE}"; then as_fn_error $? "conditional \"am__fastdepCXX\" was never defined. Usually this means the macro was only invoked conditionally." "$LINENO" 5 fi if test -z "${GL_GENERATE_LIMITS_H_TRUE}" && test -z "${GL_GENERATE_LIMITS_H_FALSE}"; then as_fn_error $? "conditional \"GL_GENERATE_LIMITS_H\" was never defined. Usually this means the macro was only invoked conditionally." "$LINENO" 5 fi if test -z "${GL_GENERATE_LIMITS_H_TRUE}" && test -z "${GL_GENERATE_LIMITS_H_FALSE}"; then as_fn_error $? "conditional \"GL_GENERATE_LIMITS_H\" was never defined. Usually this means the macro was only invoked conditionally." "$LINENO" 5 fi if test -z "${GL_GENERATE_STDINT_H_TRUE}" && test -z "${GL_GENERATE_STDINT_H_FALSE}"; then as_fn_error $? "conditional \"GL_GENERATE_STDINT_H\" was never defined. Usually this means the macro was only invoked conditionally." "$LINENO" 5 fi if test -z "${GL_GENERATE_STDNORETURN_H_TRUE}" && test -z "${GL_GENERATE_STDNORETURN_H_FALSE}"; then as_fn_error $? "conditional \"GL_GENERATE_STDNORETURN_H\" was never defined. Usually this means the macro was only invoked conditionally." "$LINENO" 5 fi gl_libobjs= gl_ltlibobjs= if test -n "$gl_LIBOBJS"; then # Remove the extension. sed_drop_objext='s/\.o$//;s/\.obj$//' for i in `for i in $gl_LIBOBJS; do echo "$i"; done | sed -e "$sed_drop_objext" | sort | uniq`; do gl_libobjs="$gl_libobjs $i.$ac_objext" gl_ltlibobjs="$gl_ltlibobjs $i.lo" done fi gl_LIBOBJS=$gl_libobjs gl_LTLIBOBJS=$gl_ltlibobjs gltests_libobjs= gltests_ltlibobjs= if test -n "$gltests_LIBOBJS"; then # Remove the extension. sed_drop_objext='s/\.o$//;s/\.obj$//' for i in `for i in $gltests_LIBOBJS; do echo "$i"; done | sed -e "$sed_drop_objext" | sort | uniq`; do gltests_libobjs="$gltests_libobjs $i.$ac_objext" gltests_ltlibobjs="$gltests_ltlibobjs $i.lo" done fi gltests_LIBOBJS=$gltests_libobjs gltests_LTLIBOBJS=$gltests_ltlibobjs : "${CONFIG_STATUS=./config.status}" ac_write_fail=0 ac_clean_files_save=$ac_clean_files ac_clean_files="$ac_clean_files $CONFIG_STATUS" { $as_echo "$as_me:${as_lineno-$LINENO}: creating $CONFIG_STATUS" >&5 $as_echo "$as_me: creating $CONFIG_STATUS" >&6;} as_write_fail=0 cat >$CONFIG_STATUS <<_ASEOF || as_write_fail=1 #! $SHELL # Generated by $as_me. # Run this file to recreate the current configuration. # Compiler output produced by configure, useful for debugging # configure, is in config.log if it exists. debug=false ac_cs_recheck=false ac_cs_silent=false SHELL=\${CONFIG_SHELL-$SHELL} export SHELL _ASEOF cat >>$CONFIG_STATUS <<\_ASEOF || as_write_fail=1 ## -------------------- ## ## M4sh Initialization. ## ## -------------------- ## # Be more Bourne compatible DUALCASE=1; export DUALCASE # for MKS sh if test -n "${ZSH_VERSION+set}" && (emulate sh) >/dev/null 2>&1; then : emulate sh NULLCMD=: # Pre-4.2 versions of Zsh do word splitting on ${1+"$@"}, which # is contrary to our usage. Disable this feature. alias -g '${1+"$@"}'='"$@"' setopt NO_GLOB_SUBST else case `(set -o) 2>/dev/null` in #( *posix*) : set -o posix ;; #( *) : ;; esac fi as_nl=' ' export as_nl # Printing a long string crashes Solaris 7 /usr/bin/printf. as_echo='\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\' as_echo=$as_echo$as_echo$as_echo$as_echo$as_echo as_echo=$as_echo$as_echo$as_echo$as_echo$as_echo$as_echo # Prefer a ksh shell builtin over an external printf program on Solaris, # but without wasting forks for bash or zsh. if test -z "$BASH_VERSION$ZSH_VERSION" \ && (test "X`print -r -- $as_echo`" = "X$as_echo") 2>/dev/null; then as_echo='print -r --' as_echo_n='print -rn --' elif (test "X`printf %s $as_echo`" = "X$as_echo") 2>/dev/null; then as_echo='printf %s\n' as_echo_n='printf %s' else if test "X`(/usr/ucb/echo -n -n $as_echo) 2>/dev/null`" = "X-n $as_echo"; then as_echo_body='eval /usr/ucb/echo -n "$1$as_nl"' as_echo_n='/usr/ucb/echo -n' else as_echo_body='eval expr "X$1" : "X\\(.*\\)"' as_echo_n_body='eval arg=$1; case $arg in #( *"$as_nl"*) expr "X$arg" : "X\\(.*\\)$as_nl"; arg=`expr "X$arg" : ".*$as_nl\\(.*\\)"`;; esac; expr "X$arg" : "X\\(.*\\)" | tr -d "$as_nl" ' export as_echo_n_body as_echo_n='sh -c $as_echo_n_body as_echo' fi export as_echo_body as_echo='sh -c $as_echo_body as_echo' fi # The user is always right. if test "${PATH_SEPARATOR+set}" != set; then PATH_SEPARATOR=: (PATH='/bin;/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 && { (PATH='/bin:/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 || PATH_SEPARATOR=';' } fi # IFS # We need space, tab and new line, in precisely that order. Quoting is # there to prevent editors from complaining about space-tab. # (If _AS_PATH_WALK were called with IFS unset, it would disable word # splitting by setting IFS to empty value.) IFS=" "" $as_nl" # Find who we are. Look in the path if we contain no directory separator. as_myself= case $0 in #(( *[\\/]* ) as_myself=$0 ;; *) as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. test -r "$as_dir/$0" && as_myself=$as_dir/$0 && break done IFS=$as_save_IFS ;; esac # We did not find ourselves, most probably we were run as `sh COMMAND' # in which case we are not to be found in the path. if test "x$as_myself" = x; then as_myself=$0 fi if test ! -f "$as_myself"; then $as_echo "$as_myself: error: cannot find myself; rerun with an absolute file name" >&2 exit 1 fi # Unset variables that we do not need and which cause bugs (e.g. in # pre-3.0 UWIN ksh). But do not cause bugs in bash 2.01; the "|| exit 1" # suppresses any "Segmentation fault" message there. '((' could # trigger a bug in pdksh 5.2.14. for as_var in BASH_ENV ENV MAIL MAILPATH do eval test x\${$as_var+set} = xset \ && ( (unset $as_var) || exit 1) >/dev/null 2>&1 && unset $as_var || : done PS1='$ ' PS2='> ' PS4='+ ' # NLS nuisances. LC_ALL=C export LC_ALL LANGUAGE=C export LANGUAGE # CDPATH. (unset CDPATH) >/dev/null 2>&1 && unset CDPATH # as_fn_error STATUS ERROR [LINENO LOG_FD] # ---------------------------------------- # Output "`basename $0`: error: ERROR" to stderr. If LINENO and LOG_FD are # provided, also output the error to LOG_FD, referencing LINENO. Then exit the # script with STATUS, using 1 if that was 0. as_fn_error () { as_status=$1; test $as_status -eq 0 && as_status=1 if test "$4"; then as_lineno=${as_lineno-"$3"} as_lineno_stack=as_lineno_stack=$as_lineno_stack $as_echo "$as_me:${as_lineno-$LINENO}: error: $2" >&$4 fi $as_echo "$as_me: error: $2" >&2 as_fn_exit $as_status } # as_fn_error # as_fn_set_status STATUS # ----------------------- # Set $? to STATUS, without forking. as_fn_set_status () { return $1 } # as_fn_set_status # as_fn_exit STATUS # ----------------- # Exit the shell with STATUS, even in a "trap 0" or "set -e" context. as_fn_exit () { set +e as_fn_set_status $1 exit $1 } # as_fn_exit # as_fn_unset VAR # --------------- # Portably unset VAR. as_fn_unset () { { eval $1=; unset $1;} } as_unset=as_fn_unset # as_fn_append VAR VALUE # ---------------------- # Append the text in VALUE to the end of the definition contained in VAR. Take # advantage of any shell optimizations that allow amortized linear growth over # repeated appends, instead of the typical quadratic growth present in naive # implementations. if (eval "as_var=1; as_var+=2; test x\$as_var = x12") 2>/dev/null; then : eval 'as_fn_append () { eval $1+=\$2 }' else as_fn_append () { eval $1=\$$1\$2 } fi # as_fn_append # as_fn_arith ARG... # ------------------ # Perform arithmetic evaluation on the ARGs, and store the result in the # global $as_val. Take advantage of shells that can avoid forks. The arguments # must be portable across $(()) and expr. if (eval "test \$(( 1 + 1 )) = 2") 2>/dev/null; then : eval 'as_fn_arith () { as_val=$(( $* )) }' else as_fn_arith () { as_val=`expr "$@" || test $? -eq 1` } fi # as_fn_arith if expr a : '\(a\)' >/dev/null 2>&1 && test "X`expr 00001 : '.*\(...\)'`" = X001; then as_expr=expr else as_expr=false fi if (basename -- /) >/dev/null 2>&1 && test "X`basename -- / 2>&1`" = "X/"; then as_basename=basename else as_basename=false fi if (as_dir=`dirname -- /` && test "X$as_dir" = X/) >/dev/null 2>&1; then as_dirname=dirname else as_dirname=false fi as_me=`$as_basename -- "$0" || $as_expr X/"$0" : '.*/\([^/][^/]*\)/*$' \| \ X"$0" : 'X\(//\)$' \| \ X"$0" : 'X\(/\)' \| . 2>/dev/null || $as_echo X/"$0" | sed '/^.*\/\([^/][^/]*\)\/*$/{ s//\1/ q } /^X\/\(\/\/\)$/{ s//\1/ q } /^X\/\(\/\).*/{ s//\1/ q } s/.*/./; q'` # Avoid depending upon Character Ranges. as_cr_letters='abcdefghijklmnopqrstuvwxyz' as_cr_LETTERS='ABCDEFGHIJKLMNOPQRSTUVWXYZ' as_cr_Letters=$as_cr_letters$as_cr_LETTERS as_cr_digits='0123456789' as_cr_alnum=$as_cr_Letters$as_cr_digits ECHO_C= ECHO_N= ECHO_T= case `echo -n x` in #((((( -n*) case `echo 'xy\c'` in *c*) ECHO_T=' ';; # ECHO_T is single tab character. xy) ECHO_C='\c';; *) echo `echo ksh88 bug on AIX 6.1` > /dev/null ECHO_T=' ';; esac;; *) ECHO_N='-n';; esac rm -f conf$$ conf$$.exe conf$$.file if test -d conf$$.dir; then rm -f conf$$.dir/conf$$.file else rm -f conf$$.dir mkdir conf$$.dir 2>/dev/null fi if (echo >conf$$.file) 2>/dev/null; then if ln -s conf$$.file conf$$ 2>/dev/null; then as_ln_s='ln -s' # ... but there are two gotchas: # 1) On MSYS, both `ln -s file dir' and `ln file dir' fail. # 2) DJGPP < 2.04 has no symlinks; `ln -s' creates a wrapper executable. # In both cases, we have to default to `cp -pR'. ln -s conf$$.file conf$$.dir 2>/dev/null && test ! -f conf$$.exe || as_ln_s='cp -pR' elif ln conf$$.file conf$$ 2>/dev/null; then as_ln_s=ln else as_ln_s='cp -pR' fi else as_ln_s='cp -pR' fi rm -f conf$$ conf$$.exe conf$$.dir/conf$$.file conf$$.file rmdir conf$$.dir 2>/dev/null # as_fn_mkdir_p # ------------- # Create "$as_dir" as a directory, including parents if necessary. as_fn_mkdir_p () { case $as_dir in #( -*) as_dir=./$as_dir;; esac test -d "$as_dir" || eval $as_mkdir_p || { as_dirs= while :; do case $as_dir in #( *\'*) as_qdir=`$as_echo "$as_dir" | sed "s/'/'\\\\\\\\''/g"`;; #'( *) as_qdir=$as_dir;; esac as_dirs="'$as_qdir' $as_dirs" as_dir=`$as_dirname -- "$as_dir" || $as_expr X"$as_dir" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ X"$as_dir" : 'X\(//\)[^/]' \| \ X"$as_dir" : 'X\(//\)$' \| \ X"$as_dir" : 'X\(/\)' \| . 2>/dev/null || $as_echo X"$as_dir" | sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ s//\1/ q } /^X\(\/\/\)[^/].*/{ s//\1/ q } /^X\(\/\/\)$/{ s//\1/ q } /^X\(\/\).*/{ s//\1/ q } s/.*/./; q'` test -d "$as_dir" && break done test -z "$as_dirs" || eval "mkdir $as_dirs" } || test -d "$as_dir" || as_fn_error $? "cannot create directory $as_dir" } # as_fn_mkdir_p if mkdir -p . 2>/dev/null; then as_mkdir_p='mkdir -p "$as_dir"' else test -d ./-p && rmdir ./-p as_mkdir_p=false fi # as_fn_executable_p FILE # ----------------------- # Test if FILE is an executable regular file. as_fn_executable_p () { test -f "$1" && test -x "$1" } # as_fn_executable_p as_test_x='test -x' as_executable_p=as_fn_executable_p # Sed expression to map a string onto a valid CPP name. as_tr_cpp="eval sed 'y%*$as_cr_letters%P$as_cr_LETTERS%;s%[^_$as_cr_alnum]%_%g'" # Sed expression to map a string onto a valid variable name. as_tr_sh="eval sed 'y%*+%pp%;s%[^_$as_cr_alnum]%_%g'" exec 6>&1 ## ----------------------------------- ## ## Main body of $CONFIG_STATUS script. ## ## ----------------------------------- ## _ASEOF test $as_write_fail = 0 && chmod +x $CONFIG_STATUS || ac_write_fail=1 cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1 # Save the log message, to keep $0 and so on meaningful, and to # report actual input values of CONFIG_FILES etc. instead of their # values after options handling. ac_log=" This file was extended by GNU libffcall $as_me 2.2, which was generated by GNU Autoconf 2.69. Invocation command line was CONFIG_FILES = $CONFIG_FILES CONFIG_HEADERS = $CONFIG_HEADERS CONFIG_LINKS = $CONFIG_LINKS CONFIG_COMMANDS = $CONFIG_COMMANDS $ $0 $@ on `(hostname || uname -n) 2>/dev/null | sed 1q` " _ACEOF case $ac_config_files in *" "*) set x $ac_config_files; shift; ac_config_files=$*;; esac case $ac_config_headers in *" "*) set x $ac_config_headers; shift; ac_config_headers=$*;; esac cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1 # Files that config.status was made for. config_files="$ac_config_files" config_headers="$ac_config_headers" config_commands="$ac_config_commands" _ACEOF cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1 ac_cs_usage="\ \`$as_me' instantiates files and other configuration actions from templates according to the current configuration. Unless the files and actions are specified as TAGs, all are instantiated by default. Usage: $0 [OPTION]... [TAG]... -h, --help print this help, then exit -V, --version print version number and configuration settings, then exit --config print configuration, then exit -q, --quiet, --silent do not print progress messages -d, --debug don't remove temporary files --recheck update $as_me by reconfiguring in the same conditions --file=FILE[:TEMPLATE] instantiate the configuration file FILE --header=FILE[:TEMPLATE] instantiate the configuration header FILE Configuration files: $config_files Configuration headers: $config_headers Configuration commands: $config_commands Report bugs to . GNU libffcall home page: . General help using GNU software: ." _ACEOF cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1 ac_cs_config="`$as_echo "$ac_configure_args" | sed 's/^ //; s/[\\""\`\$]/\\\\&/g'`" ac_cs_version="\\ GNU libffcall config.status 2.2 configured by $0, generated by GNU Autoconf 2.69, with options \\"\$ac_cs_config\\" Copyright (C) 2012 Free Software Foundation, Inc. This config.status script is free software; the Free Software Foundation gives unlimited permission to copy, distribute and modify it." ac_pwd='$ac_pwd' srcdir='$srcdir' INSTALL='$INSTALL' MKDIR_P='$MKDIR_P' AWK='$AWK' test -n "\$AWK" || AWK=awk _ACEOF cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1 # The default lists apply if the user does not specify any file. ac_need_defaults=: while test $# != 0 do case $1 in --*=?*) ac_option=`expr "X$1" : 'X\([^=]*\)='` ac_optarg=`expr "X$1" : 'X[^=]*=\(.*\)'` ac_shift=: ;; --*=) ac_option=`expr "X$1" : 'X\([^=]*\)='` ac_optarg= ac_shift=: ;; *) ac_option=$1 ac_optarg=$2 ac_shift=shift ;; esac case $ac_option in # Handling of the options. -recheck | --recheck | --rechec | --reche | --rech | --rec | --re | --r) ac_cs_recheck=: ;; --version | --versio | --versi | --vers | --ver | --ve | --v | -V ) $as_echo "$ac_cs_version"; exit ;; --config | --confi | --conf | --con | --co | --c ) $as_echo "$ac_cs_config"; exit ;; --debug | --debu | --deb | --de | --d | -d ) debug=: ;; --file | --fil | --fi | --f ) $ac_shift case $ac_optarg in *\'*) ac_optarg=`$as_echo "$ac_optarg" | sed "s/'/'\\\\\\\\''/g"` ;; '') as_fn_error $? "missing file argument" ;; esac as_fn_append CONFIG_FILES " '$ac_optarg'" ac_need_defaults=false;; --header | --heade | --head | --hea ) $ac_shift case $ac_optarg in *\'*) ac_optarg=`$as_echo "$ac_optarg" | sed "s/'/'\\\\\\\\''/g"` ;; esac as_fn_append CONFIG_HEADERS " '$ac_optarg'" ac_need_defaults=false;; --he | --h) # Conflict between --help and --header as_fn_error $? "ambiguous option: \`$1' Try \`$0 --help' for more information.";; --help | --hel | -h ) $as_echo "$ac_cs_usage"; exit ;; -q | -quiet | --quiet | --quie | --qui | --qu | --q \ | -silent | --silent | --silen | --sile | --sil | --si | --s) ac_cs_silent=: ;; # This is an error. -*) as_fn_error $? "unrecognized option: \`$1' Try \`$0 --help' for more information." ;; *) as_fn_append ac_config_targets " $1" ac_need_defaults=false ;; esac shift done ac_configure_extra_args= if $ac_cs_silent; then exec 6>/dev/null ac_configure_extra_args="$ac_configure_extra_args --silent" fi _ACEOF cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1 if \$ac_cs_recheck; then set X $SHELL '$0' $ac_configure_args \$ac_configure_extra_args --no-create --no-recursion shift \$as_echo "running CONFIG_SHELL=$SHELL \$*" >&6 CONFIG_SHELL='$SHELL' export CONFIG_SHELL exec "\$@" fi _ACEOF cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1 exec 5>>config.log { echo sed 'h;s/./-/g;s/^.../## /;s/...$/ ##/;p;x;p;x' <<_ASBOX ## Running $as_me. ## _ASBOX $as_echo "$ac_log" } >&5 _ACEOF cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1 # # INIT-COMMANDS # AMDEP_TRUE="$AMDEP_TRUE" ac_aux_dir="$ac_aux_dir" # The HP-UX ksh and POSIX shell print the target directory to stdout # if CDPATH is set. (unset CDPATH) >/dev/null 2>&1 && unset CDPATH sed_quote_subst='$sed_quote_subst' double_quote_subst='$double_quote_subst' delay_variable_subst='$delay_variable_subst' macro_version='`$ECHO "$macro_version" | $SED "$delay_single_quote_subst"`' macro_revision='`$ECHO "$macro_revision" | $SED "$delay_single_quote_subst"`' AS='`$ECHO "$AS" | $SED "$delay_single_quote_subst"`' DLLTOOL='`$ECHO "$DLLTOOL" | $SED "$delay_single_quote_subst"`' OBJDUMP='`$ECHO "$OBJDUMP" | $SED "$delay_single_quote_subst"`' enable_shared='`$ECHO "$enable_shared" | $SED "$delay_single_quote_subst"`' enable_static='`$ECHO "$enable_static" | $SED "$delay_single_quote_subst"`' pic_mode='`$ECHO "$pic_mode" | $SED "$delay_single_quote_subst"`' enable_fast_install='`$ECHO "$enable_fast_install" | $SED "$delay_single_quote_subst"`' shared_archive_member_spec='`$ECHO "$shared_archive_member_spec" | $SED "$delay_single_quote_subst"`' SHELL='`$ECHO "$SHELL" | $SED "$delay_single_quote_subst"`' ECHO='`$ECHO "$ECHO" | $SED "$delay_single_quote_subst"`' PATH_SEPARATOR='`$ECHO "$PATH_SEPARATOR" | $SED "$delay_single_quote_subst"`' host_alias='`$ECHO "$host_alias" | $SED "$delay_single_quote_subst"`' host='`$ECHO "$host" | $SED "$delay_single_quote_subst"`' host_os='`$ECHO "$host_os" | $SED "$delay_single_quote_subst"`' build_alias='`$ECHO "$build_alias" | $SED "$delay_single_quote_subst"`' build='`$ECHO "$build" | $SED "$delay_single_quote_subst"`' build_os='`$ECHO "$build_os" | $SED "$delay_single_quote_subst"`' SED='`$ECHO "$SED" | $SED "$delay_single_quote_subst"`' Xsed='`$ECHO "$Xsed" | $SED "$delay_single_quote_subst"`' GREP='`$ECHO "$GREP" | $SED "$delay_single_quote_subst"`' EGREP='`$ECHO "$EGREP" | $SED "$delay_single_quote_subst"`' FGREP='`$ECHO "$FGREP" | $SED "$delay_single_quote_subst"`' LD='`$ECHO "$LD" | $SED "$delay_single_quote_subst"`' NM='`$ECHO "$NM" | $SED "$delay_single_quote_subst"`' LN_S='`$ECHO "$LN_S" | $SED "$delay_single_quote_subst"`' max_cmd_len='`$ECHO "$max_cmd_len" | $SED "$delay_single_quote_subst"`' ac_objext='`$ECHO "$ac_objext" | $SED "$delay_single_quote_subst"`' exeext='`$ECHO "$exeext" | $SED "$delay_single_quote_subst"`' lt_unset='`$ECHO "$lt_unset" | $SED "$delay_single_quote_subst"`' lt_SP2NL='`$ECHO "$lt_SP2NL" | $SED "$delay_single_quote_subst"`' lt_NL2SP='`$ECHO "$lt_NL2SP" | $SED "$delay_single_quote_subst"`' lt_cv_to_host_file_cmd='`$ECHO "$lt_cv_to_host_file_cmd" | $SED "$delay_single_quote_subst"`' lt_cv_to_tool_file_cmd='`$ECHO "$lt_cv_to_tool_file_cmd" | $SED "$delay_single_quote_subst"`' reload_flag='`$ECHO "$reload_flag" | $SED "$delay_single_quote_subst"`' reload_cmds='`$ECHO "$reload_cmds" | $SED "$delay_single_quote_subst"`' deplibs_check_method='`$ECHO "$deplibs_check_method" | $SED "$delay_single_quote_subst"`' file_magic_cmd='`$ECHO "$file_magic_cmd" | $SED "$delay_single_quote_subst"`' file_magic_glob='`$ECHO "$file_magic_glob" | $SED "$delay_single_quote_subst"`' want_nocaseglob='`$ECHO "$want_nocaseglob" | $SED "$delay_single_quote_subst"`' sharedlib_from_linklib_cmd='`$ECHO "$sharedlib_from_linklib_cmd" | $SED "$delay_single_quote_subst"`' AR='`$ECHO "$AR" | $SED "$delay_single_quote_subst"`' AR_FLAGS='`$ECHO "$AR_FLAGS" | $SED "$delay_single_quote_subst"`' archiver_list_spec='`$ECHO "$archiver_list_spec" | $SED "$delay_single_quote_subst"`' STRIP='`$ECHO "$STRIP" | $SED "$delay_single_quote_subst"`' RANLIB='`$ECHO "$RANLIB" | $SED "$delay_single_quote_subst"`' old_postinstall_cmds='`$ECHO "$old_postinstall_cmds" | $SED "$delay_single_quote_subst"`' old_postuninstall_cmds='`$ECHO "$old_postuninstall_cmds" | $SED "$delay_single_quote_subst"`' old_archive_cmds='`$ECHO "$old_archive_cmds" | $SED "$delay_single_quote_subst"`' lock_old_archive_extraction='`$ECHO "$lock_old_archive_extraction" | $SED "$delay_single_quote_subst"`' CC='`$ECHO "$CC" | $SED "$delay_single_quote_subst"`' CFLAGS='`$ECHO "$CFLAGS" | $SED "$delay_single_quote_subst"`' compiler='`$ECHO "$compiler" | $SED "$delay_single_quote_subst"`' GCC='`$ECHO "$GCC" | $SED "$delay_single_quote_subst"`' lt_cv_sys_global_symbol_pipe='`$ECHO "$lt_cv_sys_global_symbol_pipe" | $SED "$delay_single_quote_subst"`' lt_cv_sys_global_symbol_to_cdecl='`$ECHO "$lt_cv_sys_global_symbol_to_cdecl" | $SED "$delay_single_quote_subst"`' lt_cv_sys_global_symbol_to_import='`$ECHO "$lt_cv_sys_global_symbol_to_import" | $SED "$delay_single_quote_subst"`' lt_cv_sys_global_symbol_to_c_name_address='`$ECHO "$lt_cv_sys_global_symbol_to_c_name_address" | $SED "$delay_single_quote_subst"`' lt_cv_sys_global_symbol_to_c_name_address_lib_prefix='`$ECHO "$lt_cv_sys_global_symbol_to_c_name_address_lib_prefix" | $SED "$delay_single_quote_subst"`' lt_cv_nm_interface='`$ECHO "$lt_cv_nm_interface" | $SED "$delay_single_quote_subst"`' nm_file_list_spec='`$ECHO "$nm_file_list_spec" | $SED "$delay_single_quote_subst"`' lt_sysroot='`$ECHO "$lt_sysroot" | $SED "$delay_single_quote_subst"`' lt_cv_truncate_bin='`$ECHO "$lt_cv_truncate_bin" | $SED "$delay_single_quote_subst"`' objdir='`$ECHO "$objdir" | $SED "$delay_single_quote_subst"`' MAGIC_CMD='`$ECHO "$MAGIC_CMD" | $SED "$delay_single_quote_subst"`' lt_prog_compiler_no_builtin_flag='`$ECHO "$lt_prog_compiler_no_builtin_flag" | $SED "$delay_single_quote_subst"`' lt_prog_compiler_pic='`$ECHO "$lt_prog_compiler_pic" | $SED "$delay_single_quote_subst"`' lt_prog_compiler_wl='`$ECHO "$lt_prog_compiler_wl" | $SED "$delay_single_quote_subst"`' lt_prog_compiler_static='`$ECHO "$lt_prog_compiler_static" | $SED "$delay_single_quote_subst"`' lt_cv_prog_compiler_c_o='`$ECHO "$lt_cv_prog_compiler_c_o" | $SED "$delay_single_quote_subst"`' need_locks='`$ECHO "$need_locks" | $SED "$delay_single_quote_subst"`' MANIFEST_TOOL='`$ECHO "$MANIFEST_TOOL" | $SED "$delay_single_quote_subst"`' DSYMUTIL='`$ECHO "$DSYMUTIL" | $SED "$delay_single_quote_subst"`' NMEDIT='`$ECHO "$NMEDIT" | $SED "$delay_single_quote_subst"`' LIPO='`$ECHO "$LIPO" | $SED "$delay_single_quote_subst"`' OTOOL='`$ECHO "$OTOOL" | $SED "$delay_single_quote_subst"`' OTOOL64='`$ECHO "$OTOOL64" | $SED "$delay_single_quote_subst"`' libext='`$ECHO "$libext" | $SED "$delay_single_quote_subst"`' shrext_cmds='`$ECHO "$shrext_cmds" | $SED "$delay_single_quote_subst"`' extract_expsyms_cmds='`$ECHO "$extract_expsyms_cmds" | $SED "$delay_single_quote_subst"`' archive_cmds_need_lc='`$ECHO "$archive_cmds_need_lc" | $SED "$delay_single_quote_subst"`' enable_shared_with_static_runtimes='`$ECHO "$enable_shared_with_static_runtimes" | $SED "$delay_single_quote_subst"`' export_dynamic_flag_spec='`$ECHO "$export_dynamic_flag_spec" | $SED "$delay_single_quote_subst"`' whole_archive_flag_spec='`$ECHO "$whole_archive_flag_spec" | $SED "$delay_single_quote_subst"`' compiler_needs_object='`$ECHO "$compiler_needs_object" | $SED "$delay_single_quote_subst"`' old_archive_from_new_cmds='`$ECHO "$old_archive_from_new_cmds" | $SED "$delay_single_quote_subst"`' old_archive_from_expsyms_cmds='`$ECHO "$old_archive_from_expsyms_cmds" | $SED "$delay_single_quote_subst"`' archive_cmds='`$ECHO "$archive_cmds" | $SED "$delay_single_quote_subst"`' archive_expsym_cmds='`$ECHO "$archive_expsym_cmds" | $SED "$delay_single_quote_subst"`' module_cmds='`$ECHO "$module_cmds" | $SED "$delay_single_quote_subst"`' module_expsym_cmds='`$ECHO "$module_expsym_cmds" | $SED "$delay_single_quote_subst"`' with_gnu_ld='`$ECHO "$with_gnu_ld" | $SED "$delay_single_quote_subst"`' allow_undefined_flag='`$ECHO "$allow_undefined_flag" | $SED "$delay_single_quote_subst"`' no_undefined_flag='`$ECHO "$no_undefined_flag" | $SED "$delay_single_quote_subst"`' hardcode_libdir_flag_spec='`$ECHO "$hardcode_libdir_flag_spec" | $SED "$delay_single_quote_subst"`' hardcode_libdir_separator='`$ECHO "$hardcode_libdir_separator" | $SED "$delay_single_quote_subst"`' hardcode_direct='`$ECHO "$hardcode_direct" | $SED "$delay_single_quote_subst"`' hardcode_direct_absolute='`$ECHO "$hardcode_direct_absolute" | $SED "$delay_single_quote_subst"`' hardcode_minus_L='`$ECHO "$hardcode_minus_L" | $SED "$delay_single_quote_subst"`' hardcode_shlibpath_var='`$ECHO "$hardcode_shlibpath_var" | $SED "$delay_single_quote_subst"`' hardcode_automatic='`$ECHO "$hardcode_automatic" | $SED "$delay_single_quote_subst"`' inherit_rpath='`$ECHO "$inherit_rpath" | $SED "$delay_single_quote_subst"`' link_all_deplibs='`$ECHO "$link_all_deplibs" | $SED "$delay_single_quote_subst"`' always_export_symbols='`$ECHO "$always_export_symbols" | $SED "$delay_single_quote_subst"`' export_symbols_cmds='`$ECHO "$export_symbols_cmds" | $SED "$delay_single_quote_subst"`' exclude_expsyms='`$ECHO "$exclude_expsyms" | $SED "$delay_single_quote_subst"`' include_expsyms='`$ECHO "$include_expsyms" | $SED "$delay_single_quote_subst"`' prelink_cmds='`$ECHO "$prelink_cmds" | $SED "$delay_single_quote_subst"`' postlink_cmds='`$ECHO "$postlink_cmds" | $SED "$delay_single_quote_subst"`' file_list_spec='`$ECHO "$file_list_spec" | $SED "$delay_single_quote_subst"`' variables_saved_for_relink='`$ECHO "$variables_saved_for_relink" | $SED "$delay_single_quote_subst"`' need_lib_prefix='`$ECHO "$need_lib_prefix" | $SED "$delay_single_quote_subst"`' need_version='`$ECHO "$need_version" | $SED "$delay_single_quote_subst"`' version_type='`$ECHO "$version_type" | $SED "$delay_single_quote_subst"`' runpath_var='`$ECHO "$runpath_var" | $SED "$delay_single_quote_subst"`' shlibpath_var='`$ECHO "$shlibpath_var" | $SED "$delay_single_quote_subst"`' shlibpath_overrides_runpath='`$ECHO "$shlibpath_overrides_runpath" | $SED "$delay_single_quote_subst"`' libname_spec='`$ECHO "$libname_spec" | $SED "$delay_single_quote_subst"`' library_names_spec='`$ECHO "$library_names_spec" | $SED "$delay_single_quote_subst"`' soname_spec='`$ECHO "$soname_spec" | $SED "$delay_single_quote_subst"`' install_override_mode='`$ECHO "$install_override_mode" | $SED "$delay_single_quote_subst"`' postinstall_cmds='`$ECHO "$postinstall_cmds" | $SED "$delay_single_quote_subst"`' postuninstall_cmds='`$ECHO "$postuninstall_cmds" | $SED "$delay_single_quote_subst"`' finish_cmds='`$ECHO "$finish_cmds" | $SED "$delay_single_quote_subst"`' finish_eval='`$ECHO "$finish_eval" | $SED "$delay_single_quote_subst"`' hardcode_into_libs='`$ECHO "$hardcode_into_libs" | $SED "$delay_single_quote_subst"`' sys_lib_search_path_spec='`$ECHO "$sys_lib_search_path_spec" | $SED "$delay_single_quote_subst"`' configure_time_dlsearch_path='`$ECHO "$configure_time_dlsearch_path" | $SED "$delay_single_quote_subst"`' configure_time_lt_sys_library_path='`$ECHO "$configure_time_lt_sys_library_path" | $SED "$delay_single_quote_subst"`' hardcode_action='`$ECHO "$hardcode_action" | $SED "$delay_single_quote_subst"`' enable_dlopen='`$ECHO "$enable_dlopen" | $SED "$delay_single_quote_subst"`' enable_dlopen_self='`$ECHO "$enable_dlopen_self" | $SED "$delay_single_quote_subst"`' enable_dlopen_self_static='`$ECHO "$enable_dlopen_self_static" | $SED "$delay_single_quote_subst"`' old_striplib='`$ECHO "$old_striplib" | $SED "$delay_single_quote_subst"`' striplib='`$ECHO "$striplib" | $SED "$delay_single_quote_subst"`' LTCC='$LTCC' LTCFLAGS='$LTCFLAGS' compiler='$compiler_DEFAULT' # A function that is used when there is no print builtin or printf. func_fallback_echo () { eval 'cat <<_LTECHO_EOF \$1 _LTECHO_EOF' } # Quote evaled strings. for var in AS \ DLLTOOL \ OBJDUMP \ SHELL \ ECHO \ PATH_SEPARATOR \ SED \ GREP \ EGREP \ FGREP \ LD \ NM \ LN_S \ lt_SP2NL \ lt_NL2SP \ reload_flag \ deplibs_check_method \ file_magic_cmd \ file_magic_glob \ want_nocaseglob \ sharedlib_from_linklib_cmd \ AR \ AR_FLAGS \ archiver_list_spec \ STRIP \ RANLIB \ CC \ CFLAGS \ compiler \ lt_cv_sys_global_symbol_pipe \ lt_cv_sys_global_symbol_to_cdecl \ lt_cv_sys_global_symbol_to_import \ lt_cv_sys_global_symbol_to_c_name_address \ lt_cv_sys_global_symbol_to_c_name_address_lib_prefix \ lt_cv_nm_interface \ nm_file_list_spec \ lt_cv_truncate_bin \ lt_prog_compiler_no_builtin_flag \ lt_prog_compiler_pic \ lt_prog_compiler_wl \ lt_prog_compiler_static \ lt_cv_prog_compiler_c_o \ need_locks \ MANIFEST_TOOL \ DSYMUTIL \ NMEDIT \ LIPO \ OTOOL \ OTOOL64 \ shrext_cmds \ export_dynamic_flag_spec \ whole_archive_flag_spec \ compiler_needs_object \ with_gnu_ld \ allow_undefined_flag \ no_undefined_flag \ hardcode_libdir_flag_spec \ hardcode_libdir_separator \ exclude_expsyms \ include_expsyms \ file_list_spec \ variables_saved_for_relink \ libname_spec \ library_names_spec \ soname_spec \ install_override_mode \ finish_eval \ old_striplib \ striplib; do case \`eval \\\\\$ECHO \\\\""\\\\\$\$var"\\\\"\` in *[\\\\\\\`\\"\\\$]*) eval "lt_\$var=\\\\\\"\\\`\\\$ECHO \\"\\\$\$var\\" | \\\$SED \\"\\\$sed_quote_subst\\"\\\`\\\\\\"" ## exclude from sc_prohibit_nested_quotes ;; *) eval "lt_\$var=\\\\\\"\\\$\$var\\\\\\"" ;; esac done # Double-quote double-evaled strings. for var in reload_cmds \ old_postinstall_cmds \ old_postuninstall_cmds \ old_archive_cmds \ extract_expsyms_cmds \ old_archive_from_new_cmds \ old_archive_from_expsyms_cmds \ archive_cmds \ archive_expsym_cmds \ module_cmds \ module_expsym_cmds \ export_symbols_cmds \ prelink_cmds \ postlink_cmds \ postinstall_cmds \ postuninstall_cmds \ finish_cmds \ sys_lib_search_path_spec \ configure_time_dlsearch_path \ configure_time_lt_sys_library_path; do case \`eval \\\\\$ECHO \\\\""\\\\\$\$var"\\\\"\` in *[\\\\\\\`\\"\\\$]*) eval "lt_\$var=\\\\\\"\\\`\\\$ECHO \\"\\\$\$var\\" | \\\$SED -e \\"\\\$double_quote_subst\\" -e \\"\\\$sed_quote_subst\\" -e \\"\\\$delay_variable_subst\\"\\\`\\\\\\"" ## exclude from sc_prohibit_nested_quotes ;; *) eval "lt_\$var=\\\\\\"\\\$\$var\\\\\\"" ;; esac done ac_aux_dir='$ac_aux_dir' # See if we are running on zsh, and set the options that allow our # commands through without removal of \ escapes INIT. if test -n "\${ZSH_VERSION+set}"; then setopt NO_GLOB_SUBST fi PACKAGE='$PACKAGE' VERSION='$VERSION' RM='$RM' ofile='$ofile' _ACEOF cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1 # Handling of arguments. for ac_config_target in $ac_config_targets do case $ac_config_target in "config.h") CONFIG_HEADERS="$CONFIG_HEADERS config.h" ;; "ffcall-version.h") CONFIG_HEADERS="$CONFIG_HEADERS ffcall-version.h:ffcall-version.in.h" ;; "Makefile") CONFIG_FILES="$CONFIG_FILES Makefile" ;; "gnulib-lib/Makefile") CONFIG_FILES="$CONFIG_FILES gnulib-lib/Makefile" ;; "avcall/Makefile") CONFIG_FILES="$CONFIG_FILES avcall/Makefile" ;; "vacall/Makefile") CONFIG_FILES="$CONFIG_FILES vacall/Makefile" ;; "trampoline/Makefile") CONFIG_FILES="$CONFIG_FILES trampoline/Makefile" ;; "callback/Makefile") CONFIG_FILES="$CONFIG_FILES callback/Makefile" ;; "callback/vacall_r/Makefile") CONFIG_FILES="$CONFIG_FILES callback/vacall_r/Makefile" ;; "callback/trampoline_r/Makefile") CONFIG_FILES="$CONFIG_FILES callback/trampoline_r/Makefile" ;; "depfiles") CONFIG_COMMANDS="$CONFIG_COMMANDS depfiles" ;; "libtool") CONFIG_COMMANDS="$CONFIG_COMMANDS libtool" ;; *) as_fn_error $? "invalid argument: \`$ac_config_target'" "$LINENO" 5;; esac done # If the user did not use the arguments to specify the items to instantiate, # then the envvar interface is used. Set only those that are not. # We use the long form for the default assignment because of an extremely # bizarre bug on SunOS 4.1.3. if $ac_need_defaults; then test "${CONFIG_FILES+set}" = set || CONFIG_FILES=$config_files test "${CONFIG_HEADERS+set}" = set || CONFIG_HEADERS=$config_headers test "${CONFIG_COMMANDS+set}" = set || CONFIG_COMMANDS=$config_commands fi # Have a temporary directory for convenience. Make it in the build tree # simply because there is no reason against having it here, and in addition, # creating and moving files from /tmp can sometimes cause problems. # Hook for its removal unless debugging. # Note that there is a small window in which the directory will not be cleaned: # after its creation but before its name has been assigned to `$tmp'. $debug || { tmp= ac_tmp= trap 'exit_status=$? : "${ac_tmp:=$tmp}" { test ! -d "$ac_tmp" || rm -fr "$ac_tmp"; } && exit $exit_status ' 0 trap 'as_fn_exit 1' 1 2 13 15 } # Create a (secure) tmp directory for tmp files. { tmp=`(umask 077 && mktemp -d "./confXXXXXX") 2>/dev/null` && test -d "$tmp" } || { tmp=./conf$$-$RANDOM (umask 077 && mkdir "$tmp") } || as_fn_error $? "cannot create a temporary directory in ." "$LINENO" 5 ac_tmp=$tmp # Set up the scripts for CONFIG_FILES section. # No need to generate them if there are no CONFIG_FILES. # This happens for instance with `./config.status config.h'. if test -n "$CONFIG_FILES"; then ac_cr=`echo X | tr X '\015'` # On cygwin, bash can eat \r inside `` if the user requested igncr. # But we know of no other shell where ac_cr would be empty at this # point, so we can use a bashism as a fallback. if test "x$ac_cr" = x; then eval ac_cr=\$\'\\r\' fi ac_cs_awk_cr=`$AWK 'BEGIN { print "a\rb" }' /dev/null` if test "$ac_cs_awk_cr" = "a${ac_cr}b"; then ac_cs_awk_cr='\\r' else ac_cs_awk_cr=$ac_cr fi echo 'BEGIN {' >"$ac_tmp/subs1.awk" && _ACEOF { echo "cat >conf$$subs.awk <<_ACEOF" && echo "$ac_subst_vars" | sed 's/.*/&!$&$ac_delim/' && echo "_ACEOF" } >conf$$subs.sh || as_fn_error $? "could not make $CONFIG_STATUS" "$LINENO" 5 ac_delim_num=`echo "$ac_subst_vars" | grep -c '^'` ac_delim='%!_!# ' for ac_last_try in false false false false false :; do . ./conf$$subs.sh || as_fn_error $? "could not make $CONFIG_STATUS" "$LINENO" 5 ac_delim_n=`sed -n "s/.*$ac_delim\$/X/p" conf$$subs.awk | grep -c X` if test $ac_delim_n = $ac_delim_num; then break elif $ac_last_try; then as_fn_error $? "could not make $CONFIG_STATUS" "$LINENO" 5 else ac_delim="$ac_delim!$ac_delim _$ac_delim!! " fi done rm -f conf$$subs.sh cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1 cat >>"\$ac_tmp/subs1.awk" <<\\_ACAWK && _ACEOF sed -n ' h s/^/S["/; s/!.*/"]=/ p g s/^[^!]*!// :repl t repl s/'"$ac_delim"'$// t delim :nl h s/\(.\{148\}\)..*/\1/ t more1 s/["\\]/\\&/g; s/^/"/; s/$/\\n"\\/ p n b repl :more1 s/["\\]/\\&/g; s/^/"/; s/$/"\\/ p g s/.\{148\}// t nl :delim h s/\(.\{148\}\)..*/\1/ t more2 s/["\\]/\\&/g; s/^/"/; s/$/"/ p b :more2 s/["\\]/\\&/g; s/^/"/; s/$/"\\/ p g s/.\{148\}// t delim ' >$CONFIG_STATUS || ac_write_fail=1 rm -f conf$$subs.awk cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1 _ACAWK cat >>"\$ac_tmp/subs1.awk" <<_ACAWK && for (key in S) S_is_set[key] = 1 FS = "" } { line = $ 0 nfields = split(line, field, "@") substed = 0 len = length(field[1]) for (i = 2; i < nfields; i++) { key = field[i] keylen = length(key) if (S_is_set[key]) { value = S[key] line = substr(line, 1, len) "" value "" substr(line, len + keylen + 3) len += length(value) + length(field[++i]) substed = 1 } else len += 1 + keylen } print line } _ACAWK _ACEOF cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1 if sed "s/$ac_cr//" < /dev/null > /dev/null 2>&1; then sed "s/$ac_cr\$//; s/$ac_cr/$ac_cs_awk_cr/g" else cat fi < "$ac_tmp/subs1.awk" > "$ac_tmp/subs.awk" \ || as_fn_error $? "could not setup config files machinery" "$LINENO" 5 _ACEOF # VPATH may cause trouble with some makes, so we remove sole $(srcdir), # ${srcdir} and @srcdir@ entries from VPATH if srcdir is ".", strip leading and # trailing colons and then remove the whole line if VPATH becomes empty # (actually we leave an empty line to preserve line numbers). if test "x$srcdir" = x.; then ac_vpsub='/^[ ]*VPATH[ ]*=[ ]*/{ h s/// s/^/:/ s/[ ]*$/:/ s/:\$(srcdir):/:/g s/:\${srcdir}:/:/g s/:@srcdir@:/:/g s/^:*// s/:*$// x s/\(=[ ]*\).*/\1/ G s/\n// s/^[^=]*=[ ]*$// }' fi cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1 fi # test -n "$CONFIG_FILES" # Set up the scripts for CONFIG_HEADERS section. # No need to generate them if there are no CONFIG_HEADERS. # This happens for instance with `./config.status Makefile'. if test -n "$CONFIG_HEADERS"; then cat >"$ac_tmp/defines.awk" <<\_ACAWK || BEGIN { _ACEOF # Transform confdefs.h into an awk script `defines.awk', embedded as # here-document in config.status, that substitutes the proper values into # config.h.in to produce config.h. # Create a delimiter string that does not exist in confdefs.h, to ease # handling of long lines. ac_delim='%!_!# ' for ac_last_try in false false :; do ac_tt=`sed -n "/$ac_delim/p" confdefs.h` if test -z "$ac_tt"; then break elif $ac_last_try; then as_fn_error $? "could not make $CONFIG_HEADERS" "$LINENO" 5 else ac_delim="$ac_delim!$ac_delim _$ac_delim!! " fi done # For the awk script, D is an array of macro values keyed by name, # likewise P contains macro parameters if any. Preserve backslash # newline sequences. ac_word_re=[_$as_cr_Letters][_$as_cr_alnum]* sed -n ' s/.\{148\}/&'"$ac_delim"'/g t rset :rset s/^[ ]*#[ ]*define[ ][ ]*/ / t def d :def s/\\$// t bsnl s/["\\]/\\&/g s/^ \('"$ac_word_re"'\)\(([^()]*)\)[ ]*\(.*\)/P["\1"]="\2"\ D["\1"]=" \3"/p s/^ \('"$ac_word_re"'\)[ ]*\(.*\)/D["\1"]=" \2"/p d :bsnl s/["\\]/\\&/g s/^ \('"$ac_word_re"'\)\(([^()]*)\)[ ]*\(.*\)/P["\1"]="\2"\ D["\1"]=" \3\\\\\\n"\\/p t cont s/^ \('"$ac_word_re"'\)[ ]*\(.*\)/D["\1"]=" \2\\\\\\n"\\/p t cont d :cont n s/.\{148\}/&'"$ac_delim"'/g t clear :clear s/\\$// t bsnlc s/["\\]/\\&/g; s/^/"/; s/$/"/p d :bsnlc s/["\\]/\\&/g; s/^/"/; s/$/\\\\\\n"\\/p b cont ' >$CONFIG_STATUS || ac_write_fail=1 cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1 for (key in D) D_is_set[key] = 1 FS = "" } /^[\t ]*#[\t ]*(define|undef)[\t ]+$ac_word_re([\t (]|\$)/ { line = \$ 0 split(line, arg, " ") if (arg[1] == "#") { defundef = arg[2] mac1 = arg[3] } else { defundef = substr(arg[1], 2) mac1 = arg[2] } split(mac1, mac2, "(") #) macro = mac2[1] prefix = substr(line, 1, index(line, defundef) - 1) if (D_is_set[macro]) { # Preserve the white space surrounding the "#". print prefix "define", macro P[macro] D[macro] next } else { # Replace #undef with comments. This is necessary, for example, # in the case of _POSIX_SOURCE, which is predefined and required # on some systems where configure will not decide to define it. if (defundef == "undef") { print "/*", prefix defundef, macro, "*/" next } } } { print } _ACAWK _ACEOF cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1 as_fn_error $? "could not setup config headers machinery" "$LINENO" 5 fi # test -n "$CONFIG_HEADERS" eval set X " :F $CONFIG_FILES :H $CONFIG_HEADERS :C $CONFIG_COMMANDS" shift for ac_tag do case $ac_tag in :[FHLC]) ac_mode=$ac_tag; continue;; esac case $ac_mode$ac_tag in :[FHL]*:*);; :L* | :C*:*) as_fn_error $? "invalid tag \`$ac_tag'" "$LINENO" 5;; :[FH]-) ac_tag=-:-;; :[FH]*) ac_tag=$ac_tag:$ac_tag.in;; esac ac_save_IFS=$IFS IFS=: set x $ac_tag IFS=$ac_save_IFS shift ac_file=$1 shift case $ac_mode in :L) ac_source=$1;; :[FH]) ac_file_inputs= for ac_f do case $ac_f in -) ac_f="$ac_tmp/stdin";; *) # Look for the file first in the build tree, then in the source tree # (if the path is not absolute). The absolute path cannot be DOS-style, # because $ac_f cannot contain `:'. test -f "$ac_f" || case $ac_f in [\\/$]*) false;; *) test -f "$srcdir/$ac_f" && ac_f="$srcdir/$ac_f";; esac || as_fn_error 1 "cannot find input file: \`$ac_f'" "$LINENO" 5;; esac case $ac_f in *\'*) ac_f=`$as_echo "$ac_f" | sed "s/'/'\\\\\\\\''/g"`;; esac as_fn_append ac_file_inputs " '$ac_f'" done # Let's still pretend it is `configure' which instantiates (i.e., don't # use $as_me), people would be surprised to read: # /* config.h. Generated by config.status. */ configure_input='Generated from '` $as_echo "$*" | sed 's|^[^:]*/||;s|:[^:]*/|, |g' `' by configure.' if test x"$ac_file" != x-; then configure_input="$ac_file. $configure_input" { $as_echo "$as_me:${as_lineno-$LINENO}: creating $ac_file" >&5 $as_echo "$as_me: creating $ac_file" >&6;} fi # Neutralize special characters interpreted by sed in replacement strings. case $configure_input in #( *\&* | *\|* | *\\* ) ac_sed_conf_input=`$as_echo "$configure_input" | sed 's/[\\\\&|]/\\\\&/g'`;; #( *) ac_sed_conf_input=$configure_input;; esac case $ac_tag in *:-:* | *:-) cat >"$ac_tmp/stdin" \ || as_fn_error $? "could not create $ac_file" "$LINENO" 5 ;; esac ;; esac ac_dir=`$as_dirname -- "$ac_file" || $as_expr X"$ac_file" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ X"$ac_file" : 'X\(//\)[^/]' \| \ X"$ac_file" : 'X\(//\)$' \| \ X"$ac_file" : 'X\(/\)' \| . 2>/dev/null || $as_echo X"$ac_file" | sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ s//\1/ q } /^X\(\/\/\)[^/].*/{ s//\1/ q } /^X\(\/\/\)$/{ s//\1/ q } /^X\(\/\).*/{ s//\1/ q } s/.*/./; q'` as_dir="$ac_dir"; as_fn_mkdir_p ac_builddir=. case "$ac_dir" in .) ac_dir_suffix= ac_top_builddir_sub=. ac_top_build_prefix= ;; *) ac_dir_suffix=/`$as_echo "$ac_dir" | sed 's|^\.[\\/]||'` # A ".." for each directory in $ac_dir_suffix. ac_top_builddir_sub=`$as_echo "$ac_dir_suffix" | sed 's|/[^\\/]*|/..|g;s|/||'` case $ac_top_builddir_sub in "") ac_top_builddir_sub=. ac_top_build_prefix= ;; *) ac_top_build_prefix=$ac_top_builddir_sub/ ;; esac ;; esac ac_abs_top_builddir=$ac_pwd ac_abs_builddir=$ac_pwd$ac_dir_suffix # for backward compatibility: ac_top_builddir=$ac_top_build_prefix case $srcdir in .) # We are building in place. ac_srcdir=. ac_top_srcdir=$ac_top_builddir_sub ac_abs_top_srcdir=$ac_pwd ;; [\\/]* | ?:[\\/]* ) # Absolute name. ac_srcdir=$srcdir$ac_dir_suffix; ac_top_srcdir=$srcdir ac_abs_top_srcdir=$srcdir ;; *) # Relative name. ac_srcdir=$ac_top_build_prefix$srcdir$ac_dir_suffix ac_top_srcdir=$ac_top_build_prefix$srcdir ac_abs_top_srcdir=$ac_pwd/$srcdir ;; esac ac_abs_srcdir=$ac_abs_top_srcdir$ac_dir_suffix case $ac_mode in :F) # # CONFIG_FILE # case $INSTALL in [\\/$]* | ?:[\\/]* ) ac_INSTALL=$INSTALL ;; *) ac_INSTALL=$ac_top_build_prefix$INSTALL ;; esac ac_MKDIR_P=$MKDIR_P case $MKDIR_P in [\\/$]* | ?:[\\/]* ) ;; */*) ac_MKDIR_P=$ac_top_build_prefix$MKDIR_P ;; esac _ACEOF cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1 # If the template does not know about datarootdir, expand it. # FIXME: This hack should be removed a few years after 2.60. ac_datarootdir_hack=; ac_datarootdir_seen= ac_sed_dataroot=' /datarootdir/ { p q } /@datadir@/p /@docdir@/p /@infodir@/p /@localedir@/p /@mandir@/p' case `eval "sed -n \"\$ac_sed_dataroot\" $ac_file_inputs"` in *datarootdir*) ac_datarootdir_seen=yes;; *@datadir@*|*@docdir@*|*@infodir@*|*@localedir@*|*@mandir@*) { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $ac_file_inputs seems to ignore the --datarootdir setting" >&5 $as_echo "$as_me: WARNING: $ac_file_inputs seems to ignore the --datarootdir setting" >&2;} _ACEOF cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1 ac_datarootdir_hack=' s&@datadir@&$datadir&g s&@docdir@&$docdir&g s&@infodir@&$infodir&g s&@localedir@&$localedir&g s&@mandir@&$mandir&g s&\\\${datarootdir}&$datarootdir&g' ;; esac _ACEOF # Neutralize VPATH when `$srcdir' = `.'. # Shell code in configure.ac might set extrasub. # FIXME: do we really want to maintain this feature? cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1 ac_sed_extra="$ac_vpsub $extrasub _ACEOF cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1 :t /@[a-zA-Z_][a-zA-Z_0-9]*@/!b s|@configure_input@|$ac_sed_conf_input|;t t s&@top_builddir@&$ac_top_builddir_sub&;t t s&@top_build_prefix@&$ac_top_build_prefix&;t t s&@srcdir@&$ac_srcdir&;t t s&@abs_srcdir@&$ac_abs_srcdir&;t t s&@top_srcdir@&$ac_top_srcdir&;t t s&@abs_top_srcdir@&$ac_abs_top_srcdir&;t t s&@builddir@&$ac_builddir&;t t s&@abs_builddir@&$ac_abs_builddir&;t t s&@abs_top_builddir@&$ac_abs_top_builddir&;t t s&@INSTALL@&$ac_INSTALL&;t t s&@MKDIR_P@&$ac_MKDIR_P&;t t $ac_datarootdir_hack " eval sed \"\$ac_sed_extra\" "$ac_file_inputs" | $AWK -f "$ac_tmp/subs.awk" \ >$ac_tmp/out || as_fn_error $? "could not create $ac_file" "$LINENO" 5 test -z "$ac_datarootdir_hack$ac_datarootdir_seen" && { ac_out=`sed -n '/\${datarootdir}/p' "$ac_tmp/out"`; test -n "$ac_out"; } && { ac_out=`sed -n '/^[ ]*datarootdir[ ]*:*=/p' \ "$ac_tmp/out"`; test -z "$ac_out"; } && { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $ac_file contains a reference to the variable \`datarootdir' which seems to be undefined. Please make sure it is defined" >&5 $as_echo "$as_me: WARNING: $ac_file contains a reference to the variable \`datarootdir' which seems to be undefined. Please make sure it is defined" >&2;} rm -f "$ac_tmp/stdin" case $ac_file in -) cat "$ac_tmp/out" && rm -f "$ac_tmp/out";; *) rm -f "$ac_file" && mv "$ac_tmp/out" "$ac_file";; esac \ || as_fn_error $? "could not create $ac_file" "$LINENO" 5 ;; :H) # # CONFIG_HEADER # if test x"$ac_file" != x-; then { $as_echo "/* $configure_input */" \ && eval '$AWK -f "$ac_tmp/defines.awk"' "$ac_file_inputs" } >"$ac_tmp/config.h" \ || as_fn_error $? "could not create $ac_file" "$LINENO" 5 if diff "$ac_file" "$ac_tmp/config.h" >/dev/null 2>&1; then { $as_echo "$as_me:${as_lineno-$LINENO}: $ac_file is unchanged" >&5 $as_echo "$as_me: $ac_file is unchanged" >&6;} else rm -f "$ac_file" mv "$ac_tmp/config.h" "$ac_file" \ || as_fn_error $? "could not create $ac_file" "$LINENO" 5 fi else $as_echo "/* $configure_input */" \ && eval '$AWK -f "$ac_tmp/defines.awk"' "$ac_file_inputs" \ || as_fn_error $? "could not create -" "$LINENO" 5 fi # Compute "$ac_file"'s index in $config_headers. _am_arg="$ac_file" _am_stamp_count=1 for _am_header in $config_headers :; do case $_am_header in $_am_arg | $_am_arg:* ) break ;; * ) _am_stamp_count=`expr $_am_stamp_count + 1` ;; esac done echo "timestamp for $_am_arg" >`$as_dirname -- "$_am_arg" || $as_expr X"$_am_arg" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ X"$_am_arg" : 'X\(//\)[^/]' \| \ X"$_am_arg" : 'X\(//\)$' \| \ X"$_am_arg" : 'X\(/\)' \| . 2>/dev/null || $as_echo X"$_am_arg" | sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ s//\1/ q } /^X\(\/\/\)[^/].*/{ s//\1/ q } /^X\(\/\/\)$/{ s//\1/ q } /^X\(\/\).*/{ s//\1/ q } s/.*/./; q'`/stamp-h$_am_stamp_count ;; :C) { $as_echo "$as_me:${as_lineno-$LINENO}: executing $ac_file commands" >&5 $as_echo "$as_me: executing $ac_file commands" >&6;} ;; esac case $ac_file$ac_mode in "depfiles":C) test x"$AMDEP_TRUE" != x"" || { # Older Autoconf quotes --file arguments for eval, but not when files # are listed without --file. Let's play safe and only enable the eval # if we detect the quoting. case $CONFIG_FILES in *\'*) eval set x "$CONFIG_FILES" ;; *) set x $CONFIG_FILES ;; esac shift for mf do # Strip MF so we end up with the name of the file. mf=`echo "$mf" | sed -e 's/:.*$//'` # Check whether this is an Automake generated Makefile or not. # We used to match only the files named 'Makefile.in', but # some people rename them; so instead we look at the file content. # Grep'ing the first line is not enough: some people post-process # each Makefile.in and add a new line on top of each file to say so. # Grep'ing the whole file is not good either: AIX grep has a line # limit of 2048, but all sed's we know have understand at least 4000. if sed -n 's,^#.*generated by automake.*,X,p' "$mf" | grep X >/dev/null 2>&1; then dirpart=`$as_dirname -- "$mf" || $as_expr X"$mf" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ X"$mf" : 'X\(//\)[^/]' \| \ X"$mf" : 'X\(//\)$' \| \ X"$mf" : 'X\(/\)' \| . 2>/dev/null || $as_echo X"$mf" | sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ s//\1/ q } /^X\(\/\/\)[^/].*/{ s//\1/ q } /^X\(\/\/\)$/{ s//\1/ q } /^X\(\/\).*/{ s//\1/ q } s/.*/./; q'` else continue fi # Extract the definition of DEPDIR, am__include, and am__quote # from the Makefile without running 'make'. DEPDIR=`sed -n 's/^DEPDIR = //p' < "$mf"` test -z "$DEPDIR" && continue am__include=`sed -n 's/^am__include = //p' < "$mf"` test -z "$am__include" && continue am__quote=`sed -n 's/^am__quote = //p' < "$mf"` # Find all dependency output files, they are included files with # $(DEPDIR) in their names. We invoke sed twice because it is the # simplest approach to changing $(DEPDIR) to its actual value in the # expansion. for file in `sed -n " s/^$am__include $am__quote\(.*(DEPDIR).*\)$am__quote"'$/\1/p' <"$mf" | \ sed -e 's/\$(DEPDIR)/'"$DEPDIR"'/g'`; do # Make sure the directory exists. test -f "$dirpart/$file" && continue fdir=`$as_dirname -- "$file" || $as_expr X"$file" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ X"$file" : 'X\(//\)[^/]' \| \ X"$file" : 'X\(//\)$' \| \ X"$file" : 'X\(/\)' \| . 2>/dev/null || $as_echo X"$file" | sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ s//\1/ q } /^X\(\/\/\)[^/].*/{ s//\1/ q } /^X\(\/\/\)$/{ s//\1/ q } /^X\(\/\).*/{ s//\1/ q } s/.*/./; q'` as_dir=$dirpart/$fdir; as_fn_mkdir_p # echo "creating $dirpart/$file" echo '# dummy' > "$dirpart/$file" done done } ;; "libtool":C) # See if we are running on zsh, and set the options that allow our # commands through without removal of \ escapes. if test -n "${ZSH_VERSION+set}"; then setopt NO_GLOB_SUBST fi cfgfile=${ofile}T trap "$RM \"$cfgfile\"; exit 1" 1 2 15 $RM "$cfgfile" cat <<_LT_EOF >> "$cfgfile" #! $SHELL # Generated automatically by $as_me ($PACKAGE) $VERSION # Libtool was configured on host `(hostname || uname -n) 2>/dev/null | sed 1q`: # NOTE: Changes made to this file will be lost: look at ltmain.sh. # Provide generalized library-building support services. # Written by Gordon Matzigkeit, 1996 # Copyright (C) 2014 Free Software Foundation, Inc. # This is free software; see the source for copying conditions. There is NO # warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. # GNU Libtool is free software; you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by # the Free Software Foundation; either version 2 of of the License, or # (at your option) any later version. # # As a special exception to the GNU General Public License, if you # distribute this file as part of a program or library that is built # using GNU Libtool, you may include this file under the same # distribution terms that you use for the rest of that program. # # GNU Libtool is distributed in the hope that it will be useful, but # WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # # You should have received a copy of the GNU General Public License # along with this program. If not, see . # The names of the tagged configurations supported by this script. available_tags='' # Configured defaults for sys_lib_dlsearch_path munging. : \${LT_SYS_LIBRARY_PATH="$configure_time_lt_sys_library_path"} # ### BEGIN LIBTOOL CONFIG # Which release of libtool.m4 was used? macro_version=$macro_version macro_revision=$macro_revision # Assembler program. AS=$lt_AS # DLL creation program. DLLTOOL=$lt_DLLTOOL # Object dumper program. OBJDUMP=$lt_OBJDUMP # Whether or not to build shared libraries. build_libtool_libs=$enable_shared # Whether or not to build static libraries. build_old_libs=$enable_static # What type of objects to build. pic_mode=$pic_mode # Whether or not to optimize for fast installation. fast_install=$enable_fast_install # Shared archive member basename,for filename based shared library versioning on AIX. shared_archive_member_spec=$shared_archive_member_spec # Shell to use when invoking shell scripts. SHELL=$lt_SHELL # An echo program that protects backslashes. ECHO=$lt_ECHO # The PATH separator for the build system. PATH_SEPARATOR=$lt_PATH_SEPARATOR # The host system. host_alias=$host_alias host=$host host_os=$host_os # The build system. build_alias=$build_alias build=$build build_os=$build_os # A sed program that does not truncate output. SED=$lt_SED # Sed that helps us avoid accidentally triggering echo(1) options like -n. Xsed="\$SED -e 1s/^X//" # A grep program that handles long lines. GREP=$lt_GREP # An ERE matcher. EGREP=$lt_EGREP # A literal string matcher. FGREP=$lt_FGREP # A BSD- or MS-compatible name lister. NM=$lt_NM # Whether we need soft or hard links. LN_S=$lt_LN_S # What is the maximum length of a command? max_cmd_len=$max_cmd_len # Object file suffix (normally "o"). objext=$ac_objext # Executable file suffix (normally ""). exeext=$exeext # whether the shell understands "unset". lt_unset=$lt_unset # turn spaces into newlines. SP2NL=$lt_lt_SP2NL # turn newlines into spaces. NL2SP=$lt_lt_NL2SP # convert \$build file names to \$host format. to_host_file_cmd=$lt_cv_to_host_file_cmd # convert \$build files to toolchain format. to_tool_file_cmd=$lt_cv_to_tool_file_cmd # Method to check whether dependent libraries are shared objects. deplibs_check_method=$lt_deplibs_check_method # Command to use when deplibs_check_method = "file_magic". file_magic_cmd=$lt_file_magic_cmd # How to find potential files when deplibs_check_method = "file_magic". file_magic_glob=$lt_file_magic_glob # Find potential files using nocaseglob when deplibs_check_method = "file_magic". want_nocaseglob=$lt_want_nocaseglob # Command to associate shared and link libraries. sharedlib_from_linklib_cmd=$lt_sharedlib_from_linklib_cmd # The archiver. AR=$lt_AR # Flags to create an archive. AR_FLAGS=$lt_AR_FLAGS # How to feed a file listing to the archiver. archiver_list_spec=$lt_archiver_list_spec # A symbol stripping program. STRIP=$lt_STRIP # Commands used to install an old-style archive. RANLIB=$lt_RANLIB old_postinstall_cmds=$lt_old_postinstall_cmds old_postuninstall_cmds=$lt_old_postuninstall_cmds # Whether to use a lock for old archive extraction. lock_old_archive_extraction=$lock_old_archive_extraction # A C compiler. LTCC=$lt_CC # LTCC compiler flags. LTCFLAGS=$lt_CFLAGS # Take the output of nm and produce a listing of raw symbols and C names. global_symbol_pipe=$lt_lt_cv_sys_global_symbol_pipe # Transform the output of nm in a proper C declaration. global_symbol_to_cdecl=$lt_lt_cv_sys_global_symbol_to_cdecl # Transform the output of nm into a list of symbols to manually relocate. global_symbol_to_import=$lt_lt_cv_sys_global_symbol_to_import # Transform the output of nm in a C name address pair. global_symbol_to_c_name_address=$lt_lt_cv_sys_global_symbol_to_c_name_address # Transform the output of nm in a C name address pair when lib prefix is needed. global_symbol_to_c_name_address_lib_prefix=$lt_lt_cv_sys_global_symbol_to_c_name_address_lib_prefix # The name lister interface. nm_interface=$lt_lt_cv_nm_interface # Specify filename containing input files for \$NM. nm_file_list_spec=$lt_nm_file_list_spec # The root where to search for dependent libraries,and where our libraries should be installed. lt_sysroot=$lt_sysroot # Command to truncate a binary pipe. lt_truncate_bin=$lt_lt_cv_truncate_bin # The name of the directory that contains temporary libtool files. objdir=$objdir # Used to examine libraries when file_magic_cmd begins with "file". MAGIC_CMD=$MAGIC_CMD # Must we lock files when doing compilation? need_locks=$lt_need_locks # Manifest tool. MANIFEST_TOOL=$lt_MANIFEST_TOOL # Tool to manipulate archived DWARF debug symbol files on Mac OS X. DSYMUTIL=$lt_DSYMUTIL # Tool to change global to local symbols on Mac OS X. NMEDIT=$lt_NMEDIT # Tool to manipulate fat objects and archives on Mac OS X. LIPO=$lt_LIPO # ldd/readelf like tool for Mach-O binaries on Mac OS X. OTOOL=$lt_OTOOL # ldd/readelf like tool for 64 bit Mach-O binaries on Mac OS X 10.4. OTOOL64=$lt_OTOOL64 # Old archive suffix (normally "a"). libext=$libext # Shared library suffix (normally ".so"). shrext_cmds=$lt_shrext_cmds # The commands to extract the exported symbol list from a shared archive. extract_expsyms_cmds=$lt_extract_expsyms_cmds # Variables whose values should be saved in libtool wrapper scripts and # restored at link time. variables_saved_for_relink=$lt_variables_saved_for_relink # Do we need the "lib" prefix for modules? need_lib_prefix=$need_lib_prefix # Do we need a version for libraries? need_version=$need_version # Library versioning type. version_type=$version_type # Shared library runtime path variable. runpath_var=$runpath_var # Shared library path variable. shlibpath_var=$shlibpath_var # Is shlibpath searched before the hard-coded library search path? shlibpath_overrides_runpath=$shlibpath_overrides_runpath # Format of library name prefix. libname_spec=$lt_libname_spec # List of archive names. First name is the real one, the rest are links. # The last name is the one that the linker finds with -lNAME library_names_spec=$lt_library_names_spec # The coded name of the library, if different from the real name. soname_spec=$lt_soname_spec # Permission mode override for installation of shared libraries. install_override_mode=$lt_install_override_mode # Command to use after installation of a shared archive. postinstall_cmds=$lt_postinstall_cmds # Command to use after uninstallation of a shared archive. postuninstall_cmds=$lt_postuninstall_cmds # Commands used to finish a libtool library installation in a directory. finish_cmds=$lt_finish_cmds # As "finish_cmds", except a single script fragment to be evaled but # not shown. finish_eval=$lt_finish_eval # Whether we should hardcode library paths into libraries. hardcode_into_libs=$hardcode_into_libs # Compile-time system search path for libraries. sys_lib_search_path_spec=$lt_sys_lib_search_path_spec # Detected run-time system search path for libraries. sys_lib_dlsearch_path_spec=$lt_configure_time_dlsearch_path # Explicit LT_SYS_LIBRARY_PATH set during ./configure time. configure_time_lt_sys_library_path=$lt_configure_time_lt_sys_library_path # Whether dlopen is supported. dlopen_support=$enable_dlopen # Whether dlopen of programs is supported. dlopen_self=$enable_dlopen_self # Whether dlopen of statically linked programs is supported. dlopen_self_static=$enable_dlopen_self_static # Commands to strip libraries. old_striplib=$lt_old_striplib striplib=$lt_striplib # The linker used to build libraries. LD=$lt_LD # How to create reloadable object files. reload_flag=$lt_reload_flag reload_cmds=$lt_reload_cmds # Commands used to build an old-style archive. old_archive_cmds=$lt_old_archive_cmds # A language specific compiler. CC=$lt_compiler # Is the compiler the GNU compiler? with_gcc=$GCC # Compiler flag to turn off builtin functions. no_builtin_flag=$lt_lt_prog_compiler_no_builtin_flag # Additional compiler flags for building library objects. pic_flag=$lt_lt_prog_compiler_pic # How to pass a linker flag through the compiler. wl=$lt_lt_prog_compiler_wl # Compiler flag to prevent dynamic linking. link_static_flag=$lt_lt_prog_compiler_static # Does compiler simultaneously support -c and -o options? compiler_c_o=$lt_lt_cv_prog_compiler_c_o # Whether or not to add -lc for building shared libraries. build_libtool_need_lc=$archive_cmds_need_lc # Whether or not to disallow shared libs when runtime libs are static. allow_libtool_libs_with_static_runtimes=$enable_shared_with_static_runtimes # Compiler flag to allow reflexive dlopens. export_dynamic_flag_spec=$lt_export_dynamic_flag_spec # Compiler flag to generate shared objects directly from archives. whole_archive_flag_spec=$lt_whole_archive_flag_spec # Whether the compiler copes with passing no objects directly. compiler_needs_object=$lt_compiler_needs_object # Create an old-style archive from a shared archive. old_archive_from_new_cmds=$lt_old_archive_from_new_cmds # Create a temporary old-style archive to link instead of a shared archive. old_archive_from_expsyms_cmds=$lt_old_archive_from_expsyms_cmds # Commands used to build a shared archive. archive_cmds=$lt_archive_cmds archive_expsym_cmds=$lt_archive_expsym_cmds # Commands used to build a loadable module if different from building # a shared archive. module_cmds=$lt_module_cmds module_expsym_cmds=$lt_module_expsym_cmds # Whether we are building with GNU ld or not. with_gnu_ld=$lt_with_gnu_ld # Flag that allows shared libraries with undefined symbols to be built. allow_undefined_flag=$lt_allow_undefined_flag # Flag that enforces no undefined symbols. no_undefined_flag=$lt_no_undefined_flag # Flag to hardcode \$libdir into a binary during linking. # This must work even if \$libdir does not exist hardcode_libdir_flag_spec=$lt_hardcode_libdir_flag_spec # Whether we need a single "-rpath" flag with a separated argument. hardcode_libdir_separator=$lt_hardcode_libdir_separator # Set to "yes" if using DIR/libNAME\$shared_ext during linking hardcodes # DIR into the resulting binary. hardcode_direct=$hardcode_direct # Set to "yes" if using DIR/libNAME\$shared_ext during linking hardcodes # DIR into the resulting binary and the resulting library dependency is # "absolute",i.e impossible to change by setting \$shlibpath_var if the # library is relocated. hardcode_direct_absolute=$hardcode_direct_absolute # Set to "yes" if using the -LDIR flag during linking hardcodes DIR # into the resulting binary. hardcode_minus_L=$hardcode_minus_L # Set to "yes" if using SHLIBPATH_VAR=DIR during linking hardcodes DIR # into the resulting binary. hardcode_shlibpath_var=$hardcode_shlibpath_var # Set to "yes" if building a shared library automatically hardcodes DIR # into the library and all subsequent libraries and executables linked # against it. hardcode_automatic=$hardcode_automatic # Set to yes if linker adds runtime paths of dependent libraries # to runtime path list. inherit_rpath=$inherit_rpath # Whether libtool must link a program against all its dependency libraries. link_all_deplibs=$link_all_deplibs # Set to "yes" if exported symbols are required. always_export_symbols=$always_export_symbols # The commands to list exported symbols. export_symbols_cmds=$lt_export_symbols_cmds # Symbols that should not be listed in the preloaded symbols. exclude_expsyms=$lt_exclude_expsyms # Symbols that must always be exported. include_expsyms=$lt_include_expsyms # Commands necessary for linking programs (against libraries) with templates. prelink_cmds=$lt_prelink_cmds # Commands necessary for finishing linking programs. postlink_cmds=$lt_postlink_cmds # Specify filename containing input files. file_list_spec=$lt_file_list_spec # How to hardcode a shared library path into an executable. hardcode_action=$hardcode_action # ### END LIBTOOL CONFIG _LT_EOF cat <<'_LT_EOF' >> "$cfgfile" # ### BEGIN FUNCTIONS SHARED WITH CONFIGURE # func_munge_path_list VARIABLE PATH # ----------------------------------- # VARIABLE is name of variable containing _space_ separated list of # directories to be munged by the contents of PATH, which is string # having a format: # "DIR[:DIR]:" # string "DIR[ DIR]" will be prepended to VARIABLE # ":DIR[:DIR]" # string "DIR[ DIR]" will be appended to VARIABLE # "DIRP[:DIRP]::[DIRA:]DIRA" # string "DIRP[ DIRP]" will be prepended to VARIABLE and string # "DIRA[ DIRA]" will be appended to VARIABLE # "DIR[:DIR]" # VARIABLE will be replaced by "DIR[ DIR]" func_munge_path_list () { case x$2 in x) ;; *:) eval $1=\"`$ECHO $2 | $SED 's/:/ /g'` \$$1\" ;; x:*) eval $1=\"\$$1 `$ECHO $2 | $SED 's/:/ /g'`\" ;; *::*) eval $1=\"\$$1\ `$ECHO $2 | $SED -e 's/.*:://' -e 's/:/ /g'`\" eval $1=\"`$ECHO $2 | $SED -e 's/::.*//' -e 's/:/ /g'`\ \$$1\" ;; *) eval $1=\"`$ECHO $2 | $SED 's/:/ /g'`\" ;; esac } # Calculate cc_basename. Skip known compiler wrappers and cross-prefix. func_cc_basename () { for cc_temp in $*""; do case $cc_temp in compile | *[\\/]compile | ccache | *[\\/]ccache ) ;; distcc | *[\\/]distcc | purify | *[\\/]purify ) ;; \-*) ;; *) break;; esac done func_cc_basename_result=`$ECHO "$cc_temp" | $SED "s%.*/%%; s%^$host_alias-%%"` } # ### END FUNCTIONS SHARED WITH CONFIGURE _LT_EOF case $host_os in aix3*) cat <<\_LT_EOF >> "$cfgfile" # AIX sometimes has problems with the GCC collect2 program. For some # reason, if we set the COLLECT_NAMES environment variable, the problems # vanish in a puff of smoke. if test set != "${COLLECT_NAMES+set}"; then COLLECT_NAMES= export COLLECT_NAMES fi _LT_EOF ;; esac ltmain=$ac_aux_dir/ltmain.sh # We use sed instead of cat because bash on DJGPP gets confused if # if finds mixed CR/LF and LF-only lines. Since sed operates in # text mode, it properly converts lines to CR/LF. This bash problem # is reportedly fixed, but why not run on old versions too? sed '$q' "$ltmain" >> "$cfgfile" \ || (rm -f "$cfgfile"; exit 1) mv -f "$cfgfile" "$ofile" || (rm -f "$ofile" && cp "$cfgfile" "$ofile" && rm -f "$cfgfile") chmod +x "$ofile" ;; esac done # for ac_tag as_fn_exit 0 _ACEOF ac_clean_files=$ac_clean_files_save test $ac_write_fail = 0 || as_fn_error $? "write failure creating $CONFIG_STATUS" "$LINENO" 5 # configure is writing to config.log, and then calls config.status. # config.status does its own redirection, appending to config.log. # Unfortunately, on DOS this fails, as config.log is still kept open # by configure, so config.status won't be able to write to it; its # output is simply discarded. So we exec the FD to /dev/null, # effectively closing config.log, so it can be properly (re)opened and # appended to by config.status. When coming back to configure, we # need to make the FD available again. if test "$no_create" != yes; then ac_cs_success=: ac_config_status_args= test "$silent" = yes && ac_config_status_args="$ac_config_status_args --quiet" exec 5>/dev/null $SHELL $CONFIG_STATUS $ac_config_status_args || ac_cs_success=false exec 5>>config.log # Use ||, not &&, to avoid exiting from the if with $? = 1, which # would make configure fail if this is the last instruction. $ac_cs_success || as_fn_exit 1 fi if test -n "$ac_unrecognized_opts" && test "$enable_option_checking" != no; then { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: unrecognized options: $ac_unrecognized_opts" >&5 $as_echo "$as_me: WARNING: unrecognized options: $ac_unrecognized_opts" >&2;} fi libffcall-2.2/Makefile.in0000664000000000000000000001606013530356542012242 00000000000000# Makefile for libffcall #### Start of system configuration section. #### # Directories used by "make": srcdir = @srcdir@ # Directories used by "make install": prefix = @prefix@ local_prefix = /usr/local exec_prefix = @exec_prefix@ libdir = @libdir@ includedir = @includedir@ mandir = @mandir@ datadir = @datadir@ datarootdir = @datarootdir@ # Programs used by "make": # C compiler CC = @CC@ CFLAGS = @CFLAGS@ CPP = @CPP@ # Both C and C++ compiler CPPFLAGS = @CPPFLAGS@ INCLUDES = -I. -I$(srcdir) -I.. -I$(srcdir)/.. -I$(srcdir)/vacall_r LDFLAGS = @LDFLAGS@ LIBTOOL = @LIBTOOL@ LIBTOOL_COMPILE = $(LIBTOOL) --mode=compile LIBTOOL_LINK = $(LIBTOOL) --mode=link LIBTOOL_INSTALL = $(LIBTOOL) --mode=install LIBTOOL_UNINSTALL = $(LIBTOOL) --mode=uninstall AR = @AR@ AR_FLAGS = rc RANLIB = @RANLIB@ RM = rm -f @SET_MAKE@ # Programs used by "make install": INSTALL = @INSTALL@ INSTALL_DATA = @INSTALL_DATA@ #### End of system configuration section. #### SHELL = /bin/sh # This package does not support parallel make. # So, turn off parallel execution (at least in GNU make >= 4.0). GNUMAKEFLAGS = -j1 # Needed by $(LIBTOOL). top_builddir = . # Limit the set of exported symbols, on those platforms where libtool supports it. # Currently this excludes the symbols from gnulib modules. LIBFFCALL_EXPORTED_SYMBOLS_REGEX = '^ffcall_|^avcall_|^callback_|_callback$$' # Before making a release, change this according to the libtool documentation, # section "Library interface versions". LIBFFCALL_VERSION_INFO = 0:2:0 all : all-subdirs libffcall.la all-subdirs : ffcall-version.h force cd @subdir@ && $(MAKE) all ffcall-version.h : $(srcdir)/ffcall-version.in.h cd .. && ./config.status --header=ffcall-version.h:ffcall-version.in.h ffcall-version.lo : $(srcdir)/ffcall-version.c ffcall-version.h config.h $(LIBTOOL_COMPILE) $(CC) $(INCLUDES) $(CPPFLAGS) $(CFLAGS) -c $(srcdir)/ffcall-version.c libffcall.la : ffcall-version.lo avcall/avcall.lo avcall/avcall-libapi.lo avcall/avcall-structcpy.lo callback/vacall_r/libvacall.la callback/trampoline_r/libtrampoline.la callback/callback-libapi.lo $(LIBTOOL_LINK) $(CC) -o libffcall.la -rpath $(libdir) -no-undefined -export-symbols-regex $(LIBFFCALL_EXPORTED_SYMBOLS_REGEX) -version-info $(LIBFFCALL_VERSION_INFO) ffcall-version.lo avcall/avcall.lo avcall/avcall-libapi.lo avcall/avcall-structcpy.lo callback/vacall_r/vacall.lo callback/vacall_r/vacall-libapi.lo callback/vacall_r/vacall-structcpy.lo callback/trampoline_r/*.lo callback/callback-libapi.lo gnulib-lib/libgnu.la $(LDFLAGS) $(LTLIBTHREAD) install : force mkdir -p $(DESTDIR)$(prefix) mkdir -p $(DESTDIR)$(libdir) $(LIBTOOL_INSTALL) $(INSTALL_DATA) libffcall.la $(DESTDIR)$(libdir)/libffcall.la mkdir -p $(DESTDIR)$(includedir) $(INSTALL_DATA) ffcall-version.h $(DESTDIR)$(includedir)/ffcall-version.h $(INSTALL_DATA) $(srcdir)/ffcall-abi.h $(DESTDIR)$(includedir)/ffcall-abi.h cd @subdir@ && $(MAKE) install installdirs : force mkdir -p $(DESTDIR)$(prefix) mkdir -p $(DESTDIR)$(libdir) mkdir -p $(DESTDIR)$(includedir) cd @subdir@ && $(MAKE) installdirs uninstall : force cd @subdir@ && $(MAKE) uninstall $(LIBTOOL_UNINSTALL) $(RM) $(DESTDIR)$(libdir)/libffcall.la $(RM) $(DESTDIR)$(includedir)/ffcall-abi.h $(RM) $(DESTDIR)$(includedir)/ffcall-version.h check : force cd @subdir@ && $(MAKE) check extracheck : force cd @subdir@ && $(MAKE) extracheck MOSTLYCLEANDIRS = .libs _libs MOSTLYCLEANFILES = \ *.@OBJEXT@ *.lo core \ libffcall.* mostlyclean : force cd @subdir@ && $(MAKE) mostlyclean $(RM) -r $(MOSTLYCLEANDIRS) $(RM) $(MOSTLYCLEANFILES) clean : force cd @subdir@ && $(MAKE) clean $(RM) -r $(MOSTLYCLEANDIRS) $(RM) $(MOSTLYCLEANFILES) DISTCLEANFILES = \ config.status config.log config.cache Makefile config.h ffcall-version.h libtool \ stamp-h1 stamp-h2 distclean : force cd @subdir@; if test -f Makefile; then $(MAKE) distclean; fi $(RM) -r $(MOSTLYCLEANDIRS) $(RM) $(MOSTLYCLEANFILES) $(RM) $(DISTCLEANFILES) maintainer-clean : force cd @subdir@; if test -f Makefile; then $(MAKE) maintainer-clean; fi $(RM) -r $(MOSTLYCLEANDIRS) $(RM) $(MOSTLYCLEANFILES) $(RM) $(DISTCLEANFILES) # List of source files (committed in version control). SOURCE_FILES = \ COPYING DEPENDENCIES INSTALL.os2 INSTALL.windows NEWS PLATFORMS README \ ChangeLog \ VERSION \ Makefile.devel \ Makefile.maint \ Makefile.in \ configure.ac \ m4/as-underscore.m4 \ m4/cc-gcc.m4 \ m4/codeexec.m4 \ m4/endianness.m4 \ m4/general.m4 \ m4/getpagesize.m4 \ m4/ireg.m4 \ m4/ln.m4 \ m4/mach-vm.m4 \ m4/mmap.m4 \ m4/mprotect.m4 \ m4/proto.m4 \ m4/shm.m4 \ m4/smallstruct.m4 \ common/asm-alpha.sh \ common/asm-arm.sh common/asm-arm.h \ common/asm-hppa.sh common/asm-hppa.h \ common/asm-hppa64.sh common/asm-hppa64.h \ common/asm-i386.sh common/asm-i386.h \ common/asm-m68k.sh common/asm-m68k.h \ common/asm-mips.sh common/asm-mips.h \ common/asm-powerpc.sh \ common/asm-riscv.sh \ common/asm-s390.sh \ common/asm-sparc.sh common/asm-sparc.h \ common/asm-x86_64.sh common/asm-x86_64.h \ common/noexecstack.h common/noexecstack-arm.h \ common/structcpy.c \ common/uniq-u.c \ ffcall-version.in.h dummy/ffcall-version.h \ ffcall-abi.h \ ffcall-stdint.h \ ffcall-version.c \ testcases.c # List of distributed files imported from other packages or directories. LIBTOOL_IMPORTED_FILES = \ build-aux/ltmain.sh \ m4/libtool.m4 \ m4/lt~obsolete.m4 \ m4/ltoptions.m4 \ m4/ltsugar.m4 \ m4/ltversion.m4 GNULIB_IMPORTED_FILES = \ build-aux/ar-lib \ build-aux/compile \ build-aux/config.guess \ build-aux/config.sub \ build-aux/install-sh \ gnulib-m4/*.m4 AUTOMAKE_IMPORTED_FILES = \ build-aux/missing IMPORTED_FILES = \ $(LIBTOOL_IMPORTED_FILES) $(GNULIB_IMPORTED_FILES) $(AUTOMAKE_IMPORTED_FILES) # List of files copied by autogen.sh. COPIED_FILES = \ callback/trampoline_r/PORTING \ callback/trampoline_r/cache.c \ callback/trampoline_r/cache-alpha.c \ callback/trampoline_r/cache-hppa.c # List of distributed files generated by Makefile.maint. GENERATED_FILES = \ aclocal.m4 \ configure \ config.h.in # List of distributed files. DISTFILES = $(SOURCE_FILES) $(IMPORTED_FILES) $(COPIED_FILES) $(GENERATED_FILES) distdir : $(DISTFILES) for file in $(DISTFILES); do \ if test -f $$file; then dir='.'; else dir='$(srcdir)'; fi; \ destdir=`echo '$(distdir)'/$$file | sed -e 's|//*[^/]*$$||'`; \ test -d "$$destdir" || mkdir -p "$$destdir"; \ cp -p "$$dir/$$file" '$(distdir)'/$$file || exit 1; \ done test -d '$(distdir)'/@subdir@ || mkdir '$(distdir)'/@subdir@; cd @subdir@ && $(MAKE) distdir distdir='$(distdir)'/@subdir@ # Creating a distribution tarball. # Example: make dist VERSION=1.13-pre-20161227 PACKAGE = @PACKAGE_TARNAME@ VERSION = @VERSION@ TAR = tar GZIP = gzip dist : force tmpdistdir=$(PACKAGE)-$(VERSION); \ abstmpdistdir=`pwd`/$$tmpdistdir; \ rm -rf $$tmpdistdir $$tmpdistdir.tar $$tmpdistdir.tar.gz \ && mkdir $$tmpdistdir \ && $(MAKE) distdir distdir="$$abstmpdistdir" \ && $(TAR) chof $$tmpdistdir.tar --owner=root --group=root $$tmpdistdir \ && $(GZIP) -9 $$tmpdistdir.tar \ && rm -rf $$tmpdistdir force : libffcall-2.2/gnulib-lib/0000775000000000000000000000000013530357260012274 500000000000000libffcall-2.2/gnulib-lib/windows-recmutex.h0000664000000000000000000000363413526533140015715 00000000000000/* Plain recursive mutexes (native Windows implementation). Copyright (C) 2005-2019 Free Software Foundation, Inc. This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 3, or (at your option) any later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program; if not, see . */ /* Written by Bruno Haible , 2005. Based on GCC's gthr-win32.h. */ #ifndef _WINDOWS_RECMUTEX_H #define _WINDOWS_RECMUTEX_H #define WIN32_LEAN_AND_MEAN /* avoid including junk */ #include #include "windows-initguard.h" /* The native Windows documentation says that CRITICAL_SECTION already implements a recursive lock. But we need not rely on it: It's easy to implement a recursive lock without this assumption. */ typedef struct { glwthread_initguard_t guard; /* protects the initialization */ DWORD owner; unsigned long depth; CRITICAL_SECTION lock; } glwthread_recmutex_t; #define GLWTHREAD_RECMUTEX_INIT { GLWTHREAD_INITGUARD_INIT, 0, 0 } #ifdef __cplusplus extern "C" { #endif extern void glwthread_recmutex_init (glwthread_recmutex_t *mutex); extern int glwthread_recmutex_lock (glwthread_recmutex_t *mutex); extern int glwthread_recmutex_trylock (glwthread_recmutex_t *mutex); extern int glwthread_recmutex_unlock (glwthread_recmutex_t *mutex); extern int glwthread_recmutex_destroy (glwthread_recmutex_t *mutex); #ifdef __cplusplus } #endif #endif /* _WINDOWS_RECMUTEX_H */ libffcall-2.2/gnulib-lib/stdnoreturn.in.h0000664000000000000000000000414113416710527015363 00000000000000/* A substitute for ISO C11 . Copyright 2012-2019 Free Software Foundation, Inc. This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 3, or (at your option) any later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program; if not, see . */ /* Written by Paul Eggert. */ #ifndef noreturn /* ISO C11 for platforms that lack it. References: ISO C11 (latest free draft ) section 7.23 */ /* The definition of _Noreturn is copied here. */ #if 1200 <= _MSC_VER || defined __CYGWIN__ /* On MSVC, standard include files contain declarations like __declspec (noreturn) void abort (void); "#define noreturn _Noreturn" would cause this declaration to be rewritten to the invalid __declspec (__declspec (noreturn)) void abort (void); Similarly, on Cygwin, standard include files contain declarations like void __cdecl abort (void) __attribute__ ((noreturn)); "#define noreturn _Noreturn" would cause this declaration to be rewritten to the invalid void __cdecl abort (void) __attribute__ ((__attribute__ ((__noreturn__)))); Instead, define noreturn to empty, so that such declarations are rewritten to __declspec () void abort (void); or void __cdecl abort (void) __attribute__ (()); respectively. This gives up on noreturn's advice to the compiler but at least it is valid code. */ # define noreturn /*empty*/ #else # define noreturn _Noreturn #endif /* Did he ever return? No he never returned And his fate is still unlearn'd ... -- Steiner J, Hawes BL. M.T.A. (1949) */ #endif /* noreturn */ libffcall-2.2/gnulib-lib/windows-once.c0000664000000000000000000000435513526533140015001 00000000000000/* Once-only control (native Windows implementation). Copyright (C) 2005-2019 Free Software Foundation, Inc. This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 3, or (at your option) any later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program; if not, see . */ /* Written by Bruno Haible , 2005. Based on GCC's gthr-win32.h. */ #include /* Specification. */ #include "windows-once.h" #include void glwthread_once (glwthread_once_t *once_control, void (*initfunction) (void)) { if (once_control->inited <= 0) { if (InterlockedIncrement (&once_control->started) == 0) { /* This thread is the first one to come to this once_control. */ InitializeCriticalSection (&once_control->lock); EnterCriticalSection (&once_control->lock); once_control->inited = 0; initfunction (); once_control->inited = 1; LeaveCriticalSection (&once_control->lock); } else { /* Don't let once_control->started grow and wrap around. */ InterlockedDecrement (&once_control->started); /* Some other thread has already started the initialization. Yield the CPU while waiting for the other thread to finish initializing and taking the lock. */ while (once_control->inited < 0) Sleep (0); if (once_control->inited <= 0) { /* Take the lock. This blocks until the other thread has finished calling the initfunction. */ EnterCriticalSection (&once_control->lock); LeaveCriticalSection (&once_control->lock); if (!(once_control->inited > 0)) abort (); } } } } libffcall-2.2/gnulib-lib/Makefile.am0000664000000000000000000002130013526533141014243 00000000000000## DO NOT EDIT! GENERATED AUTOMATICALLY! ## Process this file with automake to produce Makefile.in. # Copyright (C) 2002-2019 Free Software Foundation, Inc. # # This file is free software; you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by # the Free Software Foundation; either version 3 of the License, or # (at your option) any later version. # # This file is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # # You should have received a copy of the GNU General Public License # along with this file. If not, see . # # As a special exception to the GNU General Public License, # this file may be distributed as part of a program that # contains a configuration script generated by Autoconf, under # the same distribution terms as the rest of that program. # # Generated by gnulib-tool. # Reproduce by: # gnulib-tool --import \ # --lib=libgnu \ # --source-base=gnulib-lib \ # --m4-base=gnulib-m4 \ # --doc-base=doc \ # --tests-base=tests \ # --aux-dir=build-aux \ # --no-conditional-dependencies \ # --libtool \ # --macro-prefix=gl \ # ansi-c++-opt \ # host-cpu-c-abi \ # lock \ # longlong \ # nocrash \ # stdint \ # stdnoreturn AUTOMAKE_OPTIONS = 1.11 gnits subdir-objects SUBDIRS = noinst_HEADERS = noinst_LIBRARIES = noinst_LTLIBRARIES = EXTRA_DIST = BUILT_SOURCES = SUFFIXES = MOSTLYCLEANFILES = core *.stackdump MOSTLYCLEANDIRS = CLEANFILES = DISTCLEANFILES = MAINTAINERCLEANFILES = # No GNU Make output. AM_CPPFLAGS = AM_CFLAGS = noinst_LTLIBRARIES += libgnu.la libgnu_la_SOURCES = libgnu_la_LIBADD = $(gl_LTLIBOBJS) libgnu_la_DEPENDENCIES = $(gl_LTLIBOBJS) EXTRA_libgnu_la_SOURCES = libgnu_la_LDFLAGS = $(AM_LDFLAGS) libgnu_la_LDFLAGS += -no-undefined libgnu_la_LDFLAGS += $(LTLIBTHREAD) ## begin gnulib module absolute-header # Use this preprocessor expression to decide whether #include_next works. # Do not rely on a 'configure'-time test for this, since the expression # might appear in an installed header, which is used by some other compiler. HAVE_INCLUDE_NEXT = (__GNUC__ || 60000000 <= __DECC_VER) ## end gnulib module absolute-header ## begin gnulib module havelib EXTRA_DIST += $(top_srcdir)/build-aux/config.rpath ## end gnulib module havelib ## begin gnulib module limits-h BUILT_SOURCES += $(LIMITS_H) # We need the following in order to create when the system # doesn't have one that is compatible with GNU. if GL_GENERATE_LIMITS_H limits.h: limits.in.h $(top_builddir)/config.status $(AM_V_GEN)rm -f $@-t $@ && \ { echo '/* DO NOT EDIT! GENERATED AUTOMATICALLY! */' && \ sed -e 's|@''GUARD_PREFIX''@|GL|g' \ -e 's|@''INCLUDE_NEXT''@|$(INCLUDE_NEXT)|g' \ -e 's|@''PRAGMA_SYSTEM_HEADER''@|@PRAGMA_SYSTEM_HEADER@|g' \ -e 's|@''PRAGMA_COLUMNS''@|@PRAGMA_COLUMNS@|g' \ -e 's|@''NEXT_LIMITS_H''@|$(NEXT_LIMITS_H)|g' \ < $(srcdir)/limits.in.h; \ } > $@-t && \ mv $@-t $@ else limits.h: $(top_builddir)/config.status rm -f $@ endif MOSTLYCLEANFILES += limits.h limits.h-t EXTRA_DIST += limits.in.h ## end gnulib module limits-h ## begin gnulib module lock libgnu_la_SOURCES += glthread/lock.h glthread/lock.c ## end gnulib module lock ## begin gnulib module snippet/_Noreturn # Because this Makefile snippet defines a variable used by other # gnulib Makefile snippets, it must be present in all makefiles that # need it. This is ensured by the applicability 'all' defined above. _NORETURN_H=$(srcdir)/_Noreturn.h EXTRA_DIST += _Noreturn.h ## end gnulib module snippet/_Noreturn ## begin gnulib module stdint BUILT_SOURCES += $(STDINT_H) # We need the following in order to create when the system # doesn't have one that works with the given compiler. if GL_GENERATE_STDINT_H stdint.h: stdint.in.h $(top_builddir)/config.status $(AM_V_GEN)rm -f $@-t $@ && \ { echo '/* DO NOT EDIT! GENERATED AUTOMATICALLY! */'; \ sed -e 's|@''GUARD_PREFIX''@|GL|g' \ -e 's/@''HAVE_STDINT_H''@/$(HAVE_STDINT_H)/g' \ -e 's|@''INCLUDE_NEXT''@|$(INCLUDE_NEXT)|g' \ -e 's|@''PRAGMA_SYSTEM_HEADER''@|@PRAGMA_SYSTEM_HEADER@|g' \ -e 's|@''PRAGMA_COLUMNS''@|@PRAGMA_COLUMNS@|g' \ -e 's|@''NEXT_STDINT_H''@|$(NEXT_STDINT_H)|g' \ -e 's/@''HAVE_C99_STDINT_H''@/$(HAVE_C99_STDINT_H)/g' \ -e 's/@''HAVE_SYS_TYPES_H''@/$(HAVE_SYS_TYPES_H)/g' \ -e 's/@''HAVE_INTTYPES_H''@/$(HAVE_INTTYPES_H)/g' \ -e 's/@''HAVE_SYS_INTTYPES_H''@/$(HAVE_SYS_INTTYPES_H)/g' \ -e 's/@''HAVE_SYS_BITYPES_H''@/$(HAVE_SYS_BITYPES_H)/g' \ -e 's/@''HAVE_WCHAR_H''@/$(HAVE_WCHAR_H)/g' \ -e 's/@''HAVE_LONG_LONG_INT''@/$(HAVE_LONG_LONG_INT)/g' \ -e 's/@''HAVE_UNSIGNED_LONG_LONG_INT''@/$(HAVE_UNSIGNED_LONG_LONG_INT)/g' \ -e 's/@''APPLE_UNIVERSAL_BUILD''@/$(APPLE_UNIVERSAL_BUILD)/g' \ -e 's/@''BITSIZEOF_PTRDIFF_T''@/$(BITSIZEOF_PTRDIFF_T)/g' \ -e 's/@''PTRDIFF_T_SUFFIX''@/$(PTRDIFF_T_SUFFIX)/g' \ -e 's/@''BITSIZEOF_SIG_ATOMIC_T''@/$(BITSIZEOF_SIG_ATOMIC_T)/g' \ -e 's/@''HAVE_SIGNED_SIG_ATOMIC_T''@/$(HAVE_SIGNED_SIG_ATOMIC_T)/g' \ -e 's/@''SIG_ATOMIC_T_SUFFIX''@/$(SIG_ATOMIC_T_SUFFIX)/g' \ -e 's/@''BITSIZEOF_SIZE_T''@/$(BITSIZEOF_SIZE_T)/g' \ -e 's/@''SIZE_T_SUFFIX''@/$(SIZE_T_SUFFIX)/g' \ -e 's/@''BITSIZEOF_WCHAR_T''@/$(BITSIZEOF_WCHAR_T)/g' \ -e 's/@''HAVE_SIGNED_WCHAR_T''@/$(HAVE_SIGNED_WCHAR_T)/g' \ -e 's/@''WCHAR_T_SUFFIX''@/$(WCHAR_T_SUFFIX)/g' \ -e 's/@''BITSIZEOF_WINT_T''@/$(BITSIZEOF_WINT_T)/g' \ -e 's/@''HAVE_SIGNED_WINT_T''@/$(HAVE_SIGNED_WINT_T)/g' \ -e 's/@''WINT_T_SUFFIX''@/$(WINT_T_SUFFIX)/g' \ -e 's/@''GNULIB_OVERRIDES_WINT_T''@/$(GNULIB_OVERRIDES_WINT_T)/g' \ < $(srcdir)/stdint.in.h; \ } > $@-t && \ mv $@-t $@ else stdint.h: $(top_builddir)/config.status rm -f $@ endif MOSTLYCLEANFILES += stdint.h stdint.h-t EXTRA_DIST += stdint.in.h ## end gnulib module stdint ## begin gnulib module stdnoreturn BUILT_SOURCES += $(STDNORETURN_H) # We need the following in order to create when the system # doesn't have one that works. if GL_GENERATE_STDNORETURN_H stdnoreturn.h: stdnoreturn.in.h $(top_builddir)/config.status $(_NORETURN_H) $(AM_V_GEN)rm -f $@-t $@ && \ { echo '/* DO NOT EDIT! GENERATED AUTOMATICALLY! */' && \ sed -e '/definition of _Noreturn/r $(_NORETURN_H)' \ < $(srcdir)/stdnoreturn.in.h; \ } > $@-t && \ mv $@-t $@ else stdnoreturn.h: $(top_builddir)/config.status rm -f $@ endif MOSTLYCLEANFILES += stdnoreturn.h stdnoreturn.h-t EXTRA_DIST += stdnoreturn.in.h ## end gnulib module stdnoreturn ## begin gnulib module sys_types BUILT_SOURCES += sys/types.h # We need the following in order to create when the system # doesn't have one that works with the given compiler. sys/types.h: sys_types.in.h $(top_builddir)/config.status $(AM_V_at)$(MKDIR_P) sys $(AM_V_GEN)rm -f $@-t $@ && \ { echo '/* DO NOT EDIT! GENERATED AUTOMATICALLY! */'; \ sed -e 's|@''GUARD_PREFIX''@|GL|g' \ -e 's|@''INCLUDE_NEXT''@|$(INCLUDE_NEXT)|g' \ -e 's|@''PRAGMA_SYSTEM_HEADER''@|@PRAGMA_SYSTEM_HEADER@|g' \ -e 's|@''PRAGMA_COLUMNS''@|@PRAGMA_COLUMNS@|g' \ -e 's|@''NEXT_SYS_TYPES_H''@|$(NEXT_SYS_TYPES_H)|g' \ -e 's|@''WINDOWS_64_BIT_OFF_T''@|$(WINDOWS_64_BIT_OFF_T)|g' \ -e 's|@''WINDOWS_STAT_INODES''@|$(WINDOWS_STAT_INODES)|g' \ < $(srcdir)/sys_types.in.h; \ } > $@-t && \ mv $@-t $@ MOSTLYCLEANFILES += sys/types.h sys/types.h-t EXTRA_DIST += sys_types.in.h ## end gnulib module sys_types ## begin gnulib module threadlib libgnu_la_SOURCES += glthread/threadlib.c EXTRA_DIST += $(top_srcdir)/build-aux/config.rpath ## end gnulib module threadlib ## begin gnulib module windows-mutex EXTRA_DIST += windows-initguard.h windows-mutex.c windows-mutex.h EXTRA_libgnu_la_SOURCES += windows-mutex.c ## end gnulib module windows-mutex ## begin gnulib module windows-once EXTRA_DIST += windows-once.c windows-once.h EXTRA_libgnu_la_SOURCES += windows-once.c ## end gnulib module windows-once ## begin gnulib module windows-recmutex EXTRA_DIST += windows-initguard.h windows-recmutex.c windows-recmutex.h EXTRA_libgnu_la_SOURCES += windows-recmutex.c ## end gnulib module windows-recmutex ## begin gnulib module windows-rwlock EXTRA_DIST += windows-initguard.h windows-rwlock.c windows-rwlock.h EXTRA_libgnu_la_SOURCES += windows-rwlock.c ## end gnulib module windows-rwlock mostlyclean-local: mostlyclean-generic @for dir in '' $(MOSTLYCLEANDIRS); do \ if test -n "$$dir" && test -d $$dir; then \ echo "rmdir $$dir"; rmdir $$dir; \ fi; \ done; \ : libffcall-2.2/gnulib-lib/Makefile.in0000664000000000000000000010736513530357246014301 00000000000000# Makefile.in generated by automake 1.15.1 from Makefile.am. # @configure_input@ # Copyright (C) 1994-2017 Free Software Foundation, Inc. # This Makefile.in is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY, to the extent permitted by law; without # even the implied warranty of MERCHANTABILITY or FITNESS FOR A # PARTICULAR PURPOSE. @SET_MAKE@ # Copyright (C) 2002-2019 Free Software Foundation, Inc. # # This file is free software; you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by # the Free Software Foundation; either version 3 of the License, or # (at your option) any later version. # # This file is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # # You should have received a copy of the GNU General Public License # along with this file. If not, see . # # As a special exception to the GNU General Public License, # this file may be distributed as part of a program that # contains a configuration script generated by Autoconf, under # the same distribution terms as the rest of that program. # # Generated by gnulib-tool. # Reproduce by: # gnulib-tool --import \ # --lib=libgnu \ # --source-base=gnulib-lib \ # --m4-base=gnulib-m4 \ # --doc-base=doc \ # --tests-base=tests \ # --aux-dir=build-aux \ # --no-conditional-dependencies \ # --libtool \ # --macro-prefix=gl \ # ansi-c++-opt \ # host-cpu-c-abi \ # lock \ # longlong \ # nocrash \ # stdint \ # stdnoreturn VPATH = @srcdir@ am__is_gnu_make = { \ if test -z '$(MAKELEVEL)'; then \ false; \ elif test -n '$(MAKE_HOST)'; then \ true; \ elif test -n '$(MAKE_VERSION)' && test -n '$(CURDIR)'; then \ true; \ else \ false; \ fi; \ } am__make_running_with_option = \ case $${target_option-} in \ ?) ;; \ *) echo "am__make_running_with_option: internal error: invalid" \ "target option '$${target_option-}' specified" >&2; \ exit 1;; \ esac; \ has_opt=no; \ sane_makeflags=$$MAKEFLAGS; \ if $(am__is_gnu_make); then \ sane_makeflags=$$MFLAGS; \ else \ case $$MAKEFLAGS in \ *\\[\ \ ]*) \ bs=\\; \ sane_makeflags=`printf '%s\n' "$$MAKEFLAGS" \ | sed "s/$$bs$$bs[$$bs $$bs ]*//g"`;; \ esac; \ fi; \ skip_next=no; \ strip_trailopt () \ { \ flg=`printf '%s\n' "$$flg" | sed "s/$$1.*$$//"`; \ }; \ for flg in $$sane_makeflags; do \ test $$skip_next = yes && { skip_next=no; continue; }; \ case $$flg in \ *=*|--*) continue;; \ -*I) strip_trailopt 'I'; skip_next=yes;; \ -*I?*) strip_trailopt 'I';; \ -*O) strip_trailopt 'O'; skip_next=yes;; \ -*O?*) strip_trailopt 'O';; \ -*l) strip_trailopt 'l'; skip_next=yes;; \ -*l?*) strip_trailopt 'l';; \ -[dEDm]) skip_next=yes;; \ -[JT]) skip_next=yes;; \ esac; \ case $$flg in \ *$$target_option*) has_opt=yes; break;; \ esac; \ done; \ test $$has_opt = yes am__make_dryrun = (target_option=n; $(am__make_running_with_option)) am__make_keepgoing = (target_option=k; $(am__make_running_with_option)) pkgdatadir = $(datadir)/@PACKAGE@ pkgincludedir = $(includedir)/@PACKAGE@ pkglibdir = $(libdir)/@PACKAGE@ pkglibexecdir = $(libexecdir)/@PACKAGE@ am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd install_sh_DATA = $(install_sh) -c -m 644 install_sh_PROGRAM = $(install_sh) -c install_sh_SCRIPT = $(install_sh) -c INSTALL_HEADER = $(INSTALL_DATA) transform = $(program_transform_name) NORMAL_INSTALL = : PRE_INSTALL = : POST_INSTALL = : NORMAL_UNINSTALL = : PRE_UNINSTALL = : POST_UNINSTALL = : build_triplet = @build@ host_triplet = @host@ subdir = gnulib-lib ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 am__aclocal_m4_deps = $(top_srcdir)/gnulib-m4/00gnulib.m4 \ $(top_srcdir)/gnulib-m4/absolute-header.m4 \ $(top_srcdir)/gnulib-m4/ansi-c++.m4 \ $(top_srcdir)/gnulib-m4/asm-underscore.m4 \ $(top_srcdir)/gnulib-m4/extensions.m4 \ $(top_srcdir)/gnulib-m4/gnulib-common.m4 \ $(top_srcdir)/gnulib-m4/gnulib-comp.m4 \ $(top_srcdir)/gnulib-m4/host-cpu-c-abi.m4 \ $(top_srcdir)/gnulib-m4/include_next.m4 \ $(top_srcdir)/gnulib-m4/limits-h.m4 \ $(top_srcdir)/gnulib-m4/lock.m4 \ $(top_srcdir)/gnulib-m4/longlong.m4 \ $(top_srcdir)/gnulib-m4/multiarch.m4 \ $(top_srcdir)/gnulib-m4/nocrash.m4 \ $(top_srcdir)/gnulib-m4/off_t.m4 \ $(top_srcdir)/gnulib-m4/onceonly.m4 \ $(top_srcdir)/gnulib-m4/pthread_rwlock_rdlock.m4 \ $(top_srcdir)/gnulib-m4/ssize_t.m4 \ $(top_srcdir)/gnulib-m4/stdint.m4 \ $(top_srcdir)/gnulib-m4/stdnoreturn.m4 \ $(top_srcdir)/gnulib-m4/sys_types_h.m4 \ $(top_srcdir)/gnulib-m4/threadlib.m4 \ $(top_srcdir)/gnulib-m4/wint_t.m4 \ $(top_srcdir)/m4/as-underscore.m4 $(top_srcdir)/m4/cc-gcc.m4 \ $(top_srcdir)/m4/codeexec.m4 $(top_srcdir)/m4/endianness.m4 \ $(top_srcdir)/m4/general.m4 $(top_srcdir)/m4/getpagesize.m4 \ $(top_srcdir)/m4/ireg.m4 $(top_srcdir)/m4/libtool.m4 \ $(top_srcdir)/m4/ln.m4 $(top_srcdir)/m4/ltoptions.m4 \ $(top_srcdir)/m4/ltsugar.m4 $(top_srcdir)/m4/ltversion.m4 \ $(top_srcdir)/m4/lt~obsolete.m4 $(top_srcdir)/m4/mach-vm.m4 \ $(top_srcdir)/m4/mmap.m4 $(top_srcdir)/m4/mprotect.m4 \ $(top_srcdir)/m4/proto.m4 $(top_srcdir)/m4/shm.m4 \ $(top_srcdir)/m4/smallstruct.m4 $(top_srcdir)/configure.ac am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \ $(ACLOCAL_M4) DIST_COMMON = $(srcdir)/Makefile.am $(noinst_HEADERS) \ $(am__DIST_COMMON) mkinstalldirs = $(install_sh) -d CONFIG_HEADER = $(top_builddir)/config.h \ $(top_builddir)/ffcall-version.h CONFIG_CLEAN_FILES = CONFIG_CLEAN_VPATH_FILES = LIBRARIES = $(noinst_LIBRARIES) LTLIBRARIES = $(noinst_LTLIBRARIES) am__DEPENDENCIES_1 = am__dirstamp = $(am__leading_dot)dirstamp am_libgnu_la_OBJECTS = glthread/lock.lo glthread/threadlib.lo libgnu_la_OBJECTS = $(am_libgnu_la_OBJECTS) AM_V_lt = $(am__v_lt_@AM_V@) am__v_lt_ = $(am__v_lt_@AM_DEFAULT_V@) am__v_lt_0 = --silent am__v_lt_1 = libgnu_la_LINK = $(LIBTOOL) $(AM_V_lt) --tag=CC $(AM_LIBTOOLFLAGS) \ $(LIBTOOLFLAGS) --mode=link $(CCLD) $(AM_CFLAGS) $(CFLAGS) \ $(libgnu_la_LDFLAGS) $(LDFLAGS) -o $@ AM_V_P = $(am__v_P_@AM_V@) am__v_P_ = $(am__v_P_@AM_DEFAULT_V@) am__v_P_0 = false am__v_P_1 = : AM_V_GEN = $(am__v_GEN_@AM_V@) am__v_GEN_ = $(am__v_GEN_@AM_DEFAULT_V@) am__v_GEN_0 = @echo " GEN " $@; am__v_GEN_1 = AM_V_at = $(am__v_at_@AM_V@) am__v_at_ = $(am__v_at_@AM_DEFAULT_V@) am__v_at_0 = @ am__v_at_1 = DEFAULT_INCLUDES = -I.@am__isrc@ -I$(top_builddir) depcomp = $(SHELL) $(top_srcdir)/build-aux/depcomp am__depfiles_maybe = depfiles am__mv = mv -f COMPILE = $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) \ $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) LTCOMPILE = $(LIBTOOL) $(AM_V_lt) --tag=CC $(AM_LIBTOOLFLAGS) \ $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) \ $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) \ $(AM_CFLAGS) $(CFLAGS) AM_V_CC = $(am__v_CC_@AM_V@) am__v_CC_ = $(am__v_CC_@AM_DEFAULT_V@) am__v_CC_0 = @echo " CC " $@; am__v_CC_1 = CCLD = $(CC) LINK = $(LIBTOOL) $(AM_V_lt) --tag=CC $(AM_LIBTOOLFLAGS) \ $(LIBTOOLFLAGS) --mode=link $(CCLD) $(AM_CFLAGS) $(CFLAGS) \ $(AM_LDFLAGS) $(LDFLAGS) -o $@ AM_V_CCLD = $(am__v_CCLD_@AM_V@) am__v_CCLD_ = $(am__v_CCLD_@AM_DEFAULT_V@) am__v_CCLD_0 = @echo " CCLD " $@; am__v_CCLD_1 = SOURCES = $(libgnu_la_SOURCES) $(EXTRA_libgnu_la_SOURCES) DIST_SOURCES = $(libgnu_la_SOURCES) $(EXTRA_libgnu_la_SOURCES) RECURSIVE_TARGETS = all-recursive check-recursive cscopelist-recursive \ ctags-recursive dvi-recursive html-recursive info-recursive \ install-data-recursive install-dvi-recursive \ install-exec-recursive install-html-recursive \ install-info-recursive install-pdf-recursive \ install-ps-recursive install-recursive installcheck-recursive \ installdirs-recursive pdf-recursive ps-recursive \ tags-recursive uninstall-recursive am__can_run_installinfo = \ case $$AM_UPDATE_INFO_DIR in \ n|no|NO) false;; \ *) (install-info --version) >/dev/null 2>&1;; \ esac HEADERS = $(noinst_HEADERS) RECURSIVE_CLEAN_TARGETS = mostlyclean-recursive clean-recursive \ distclean-recursive maintainer-clean-recursive am__recursive_targets = \ $(RECURSIVE_TARGETS) \ $(RECURSIVE_CLEAN_TARGETS) \ $(am__extra_recursive_targets) AM_RECURSIVE_TARGETS = $(am__recursive_targets:-recursive=) TAGS CTAGS \ distdir am__tagged_files = $(HEADERS) $(SOURCES) $(TAGS_FILES) $(LISP) # Read a list of newline-separated strings from the standard input, # and print each of them once, without duplicates. Input order is # *not* preserved. am__uniquify_input = $(AWK) '\ BEGIN { nonempty = 0; } \ { items[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in items) print i; }; } \ ' # Make sure the list of sources is unique. This is necessary because, # e.g., the same source file might be shared among _SOURCES variables # for different programs/libraries. am__define_uniq_tagged_files = \ list='$(am__tagged_files)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | $(am__uniquify_input)` ETAGS = etags CTAGS = ctags DIST_SUBDIRS = $(SUBDIRS) am__DIST_COMMON = $(srcdir)/Makefile.in \ $(top_srcdir)/build-aux/depcomp DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST) am__relativize = \ dir0=`pwd`; \ sed_first='s,^\([^/]*\)/.*$$,\1,'; \ sed_rest='s,^[^/]*/*,,'; \ sed_last='s,^.*/\([^/]*\)$$,\1,'; \ sed_butlast='s,/*[^/]*$$,,'; \ while test -n "$$dir1"; do \ first=`echo "$$dir1" | sed -e "$$sed_first"`; \ if test "$$first" != "."; then \ if test "$$first" = ".."; then \ dir2=`echo "$$dir0" | sed -e "$$sed_last"`/"$$dir2"; \ dir0=`echo "$$dir0" | sed -e "$$sed_butlast"`; \ else \ first2=`echo "$$dir2" | sed -e "$$sed_first"`; \ if test "$$first2" = "$$first"; then \ dir2=`echo "$$dir2" | sed -e "$$sed_rest"`; \ else \ dir2="../$$dir2"; \ fi; \ dir0="$$dir0"/"$$first"; \ fi; \ fi; \ dir1=`echo "$$dir1" | sed -e "$$sed_rest"`; \ done; \ reldir="$$dir2" ACLOCAL = @ACLOCAL@ AMTAR = @AMTAR@ AM_DEFAULT_VERBOSITY = @AM_DEFAULT_VERBOSITY@ APPLE_UNIVERSAL_BUILD = @APPLE_UNIVERSAL_BUILD@ AR = @AR@ ARFLAGS = @ARFLAGS@ AS = @AS@ ASM_SYMBOL_PREFIX = @ASM_SYMBOL_PREFIX@ AS_UNDERSCORE = @AS_UNDERSCORE@ AUTOCONF = @AUTOCONF@ AUTOHEADER = @AUTOHEADER@ AUTOMAKE = @AUTOMAKE@ AWK = @AWK@ BITSIZEOF_PTRDIFF_T = @BITSIZEOF_PTRDIFF_T@ BITSIZEOF_SIG_ATOMIC_T = @BITSIZEOF_SIG_ATOMIC_T@ BITSIZEOF_SIZE_T = @BITSIZEOF_SIZE_T@ BITSIZEOF_WCHAR_T = @BITSIZEOF_WCHAR_T@ BITSIZEOF_WINT_T = @BITSIZEOF_WINT_T@ CC = @CC@ CCDEPMODE = @CCDEPMODE@ CC_GCC = @CC_GCC@ CFLAGS = @CFLAGS@ CPP = @CPP@ CPPFLAGS = @CPPFLAGS@ CPU_OBJECTS = @CPU_OBJECTS@ CXX = @CXX@ CXXDEPMODE = @CXXDEPMODE@ CXXFLAGS = @CXXFLAGS@ CXX_CHOICE = @CXX_CHOICE@ CYGPATH_W = @CYGPATH_W@ DEFS = @DEFS@ DEPDIR = @DEPDIR@ DISABLE_TYPE_BASED_ALIASING = @DISABLE_TYPE_BASED_ALIASING@ DLLTOOL = @DLLTOOL@ DSYMUTIL = @DSYMUTIL@ DUMPBIN = @DUMPBIN@ ECHO_C = @ECHO_C@ ECHO_N = @ECHO_N@ ECHO_T = @ECHO_T@ EGREP = @EGREP@ ENDIANNESS = @ENDIANNESS@ EXEEXT = @EXEEXT@ FGREP = @FGREP@ GCC_X_NONE = @GCC_X_NONE@ GNULIB_OVERRIDES_WINT_T = @GNULIB_OVERRIDES_WINT_T@ GREP = @GREP@ HAVE_C99_STDINT_H = @HAVE_C99_STDINT_H@ HAVE_INTTYPES_H = @HAVE_INTTYPES_H@ HAVE_LONG_LONG_INT = @HAVE_LONG_LONG_INT@ HAVE_SIGNED_SIG_ATOMIC_T = @HAVE_SIGNED_SIG_ATOMIC_T@ HAVE_SIGNED_WCHAR_T = @HAVE_SIGNED_WCHAR_T@ HAVE_SIGNED_WINT_T = @HAVE_SIGNED_WINT_T@ HAVE_STDINT_H = @HAVE_STDINT_H@ HAVE_SYS_BITYPES_H = @HAVE_SYS_BITYPES_H@ HAVE_SYS_INTTYPES_H = @HAVE_SYS_INTTYPES_H@ HAVE_SYS_TYPES_H = @HAVE_SYS_TYPES_H@ HAVE_UNSIGNED_LONG_LONG_INT = @HAVE_UNSIGNED_LONG_LONG_INT@ HAVE_WCHAR_H = @HAVE_WCHAR_H@ HOST_CPU = @HOST_CPU@ HOST_CPU_C_ABI = @HOST_CPU_C_ABI@ IFNOT_MSVC = @IFNOT_MSVC@ IF_CXX = @IF_CXX@ IF_MSVC = @IF_MSVC@ INCLUDE_NEXT = @INCLUDE_NEXT@ INCLUDE_NEXT_AS_FIRST_DIRECTIVE = @INCLUDE_NEXT_AS_FIRST_DIRECTIVE@ INSTALL = @INSTALL@ INSTALL_DATA = @INSTALL_DATA@ INSTALL_PROGRAM = @INSTALL_PROGRAM@ INSTALL_SCRIPT = @INSTALL_SCRIPT@ INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@ LD = @LD@ LDFLAGS = @LDFLAGS@ LIBMULTITHREAD = @LIBMULTITHREAD@ LIBOBJS = @LIBOBJS@ LIBS = @LIBS@ LIBTHREAD = @LIBTHREAD@ LIBTOOL = @LIBTOOL@ LIMITS_H = @LIMITS_H@ LIPO = @LIPO@ LN = @LN@ LN_S = @LN_S@ LTLIBMULTITHREAD = @LTLIBMULTITHREAD@ LTLIBOBJS = @LTLIBOBJS@ LTLIBTHREAD = @LTLIBTHREAD@ LT_SYS_LIBRARY_PATH = @LT_SYS_LIBRARY_PATH@ MAKEINFO = @MAKEINFO@ MANIFEST_TOOL = @MANIFEST_TOOL@ MKDIR_P = @MKDIR_P@ NEXT_AS_FIRST_DIRECTIVE_LIMITS_H = @NEXT_AS_FIRST_DIRECTIVE_LIMITS_H@ NEXT_AS_FIRST_DIRECTIVE_STDINT_H = @NEXT_AS_FIRST_DIRECTIVE_STDINT_H@ NEXT_AS_FIRST_DIRECTIVE_SYS_TYPES_H = @NEXT_AS_FIRST_DIRECTIVE_SYS_TYPES_H@ NEXT_LIMITS_H = @NEXT_LIMITS_H@ NEXT_STDINT_H = @NEXT_STDINT_H@ NEXT_SYS_TYPES_H = @NEXT_SYS_TYPES_H@ NM = @NM@ NMEDIT = @NMEDIT@ OBJDUMP = @OBJDUMP@ OBJEXT = @OBJEXT@ OTOOL = @OTOOL@ OTOOL64 = @OTOOL64@ PACKAGE = @PACKAGE@ PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@ PACKAGE_NAME = @PACKAGE_NAME@ PACKAGE_STRING = @PACKAGE_STRING@ PACKAGE_TARNAME = @PACKAGE_TARNAME@ PACKAGE_URL = @PACKAGE_URL@ PACKAGE_VERSION = @PACKAGE_VERSION@ PATH_SEPARATOR = @PATH_SEPARATOR@ PRAGMA_COLUMNS = @PRAGMA_COLUMNS@ PRAGMA_SYSTEM_HEADER = @PRAGMA_SYSTEM_HEADER@ PTRDIFF_T_SUFFIX = @PTRDIFF_T_SUFFIX@ RANLIB = @RANLIB@ SED = @SED@ SET_MAKE = @SET_MAKE@ SHELL = @SHELL@ SIG_ATOMIC_T_SUFFIX = @SIG_ATOMIC_T_SUFFIX@ SIZE_T_SUFFIX = @SIZE_T_SUFFIX@ STDINT_H = @STDINT_H@ STDNORETURN_H = @STDNORETURN_H@ STRIP = @STRIP@ VERSION = @VERSION@ WCHAR_T_SUFFIX = @WCHAR_T_SUFFIX@ WINDOWS_64_BIT_OFF_T = @WINDOWS_64_BIT_OFF_T@ WINDOWS_STAT_INODES = @WINDOWS_STAT_INODES@ WINT_T_SUFFIX = @WINT_T_SUFFIX@ WORKAROUND_BUG_81653 = @WORKAROUND_BUG_81653@ abs_builddir = @abs_builddir@ abs_srcdir = @abs_srcdir@ abs_top_builddir = @abs_top_builddir@ abs_top_srcdir = @abs_top_srcdir@ ac_ct_AR = @ac_ct_AR@ ac_ct_CC = @ac_ct_CC@ ac_ct_CXX = @ac_ct_CXX@ ac_ct_DUMPBIN = @ac_ct_DUMPBIN@ am__include = @am__include@ am__leading_dot = @am__leading_dot@ am__quote = @am__quote@ am__tar = @am__tar@ am__untar = @am__untar@ bindir = @bindir@ build = @build@ build_alias = @build_alias@ build_cpu = @build_cpu@ build_os = @build_os@ build_vendor = @build_vendor@ builddir = @builddir@ datadir = @datadir@ datarootdir = @datarootdir@ docdir = @docdir@ dvidir = @dvidir@ exec_prefix = @exec_prefix@ gl_LIBOBJS = @gl_LIBOBJS@ gl_LTLIBOBJS = @gl_LTLIBOBJS@ gltests_LIBOBJS = @gltests_LIBOBJS@ gltests_LTLIBOBJS = @gltests_LTLIBOBJS@ gltests_WITNESS = @gltests_WITNESS@ host = @host@ host_alias = @host_alias@ host_cpu = @host_cpu@ host_os = @host_os@ host_vendor = @host_vendor@ htmldir = @htmldir@ includedir = @includedir@ infodir = @infodir@ install_sh = @install_sh@ libdir = @libdir@ libexecdir = @libexecdir@ localedir = @localedir@ localstatedir = @localstatedir@ mandir = @mandir@ mkdir_p = @mkdir_p@ oldincludedir = @oldincludedir@ pdfdir = @pdfdir@ prefix = @prefix@ program_transform_name = @program_transform_name@ psdir = @psdir@ sbindir = @sbindir@ sharedstatedir = @sharedstatedir@ srcdir = @srcdir@ sysconfdir = @sysconfdir@ target_alias = @target_alias@ top_build_prefix = @top_build_prefix@ top_builddir = @top_builddir@ top_srcdir = @top_srcdir@ AUTOMAKE_OPTIONS = 1.11 gnits subdir-objects SUBDIRS = noinst_HEADERS = noinst_LIBRARIES = noinst_LTLIBRARIES = libgnu.la EXTRA_DIST = $(top_srcdir)/build-aux/config.rpath limits.in.h \ _Noreturn.h stdint.in.h stdnoreturn.in.h sys_types.in.h \ $(top_srcdir)/build-aux/config.rpath windows-initguard.h \ windows-mutex.c windows-mutex.h windows-once.c windows-once.h \ windows-initguard.h windows-recmutex.c windows-recmutex.h \ windows-initguard.h windows-rwlock.c windows-rwlock.h BUILT_SOURCES = $(LIMITS_H) $(STDINT_H) $(STDNORETURN_H) sys/types.h SUFFIXES = MOSTLYCLEANFILES = core *.stackdump limits.h limits.h-t stdint.h \ stdint.h-t stdnoreturn.h stdnoreturn.h-t sys/types.h \ sys/types.h-t MOSTLYCLEANDIRS = CLEANFILES = DISTCLEANFILES = MAINTAINERCLEANFILES = # No GNU Make output. AM_CPPFLAGS = AM_CFLAGS = libgnu_la_SOURCES = glthread/lock.h glthread/lock.c \ glthread/threadlib.c libgnu_la_LIBADD = $(gl_LTLIBOBJS) libgnu_la_DEPENDENCIES = $(gl_LTLIBOBJS) EXTRA_libgnu_la_SOURCES = windows-mutex.c windows-once.c \ windows-recmutex.c windows-rwlock.c libgnu_la_LDFLAGS = $(AM_LDFLAGS) -no-undefined $(LTLIBTHREAD) # Use this preprocessor expression to decide whether #include_next works. # Do not rely on a 'configure'-time test for this, since the expression # might appear in an installed header, which is used by some other compiler. HAVE_INCLUDE_NEXT = (__GNUC__ || 60000000 <= __DECC_VER) # Because this Makefile snippet defines a variable used by other # gnulib Makefile snippets, it must be present in all makefiles that # need it. This is ensured by the applicability 'all' defined above. _NORETURN_H = $(srcdir)/_Noreturn.h all: $(BUILT_SOURCES) $(MAKE) $(AM_MAKEFLAGS) all-recursive .SUFFIXES: .SUFFIXES: .c .lo .o .obj $(srcdir)/Makefile.in: $(srcdir)/Makefile.am $(am__configure_deps) @for dep in $?; do \ case '$(am__configure_deps)' in \ *$$dep*) \ ( cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh ) \ && { if test -f $@; then exit 0; else break; fi; }; \ exit 1;; \ esac; \ done; \ echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnits gnulib-lib/Makefile'; \ $(am__cd) $(top_srcdir) && \ $(AUTOMAKE) --gnits gnulib-lib/Makefile Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status @case '$?' in \ *config.status*) \ cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \ *) \ echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \ esac; $(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(top_srcdir)/configure: $(am__configure_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(ACLOCAL_M4): $(am__aclocal_m4_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(am__aclocal_m4_deps): clean-noinstLIBRARIES: -test -z "$(noinst_LIBRARIES)" || rm -f $(noinst_LIBRARIES) clean-noinstLTLIBRARIES: -test -z "$(noinst_LTLIBRARIES)" || rm -f $(noinst_LTLIBRARIES) @list='$(noinst_LTLIBRARIES)'; \ locs=`for p in $$list; do echo $$p; done | \ sed 's|^[^/]*$$|.|; s|/[^/]*$$||; s|$$|/so_locations|' | \ sort -u`; \ test -z "$$locs" || { \ echo rm -f $${locs}; \ rm -f $${locs}; \ } glthread/$(am__dirstamp): @$(MKDIR_P) glthread @: > glthread/$(am__dirstamp) glthread/$(DEPDIR)/$(am__dirstamp): @$(MKDIR_P) glthread/$(DEPDIR) @: > glthread/$(DEPDIR)/$(am__dirstamp) glthread/lock.lo: glthread/$(am__dirstamp) \ glthread/$(DEPDIR)/$(am__dirstamp) glthread/threadlib.lo: glthread/$(am__dirstamp) \ glthread/$(DEPDIR)/$(am__dirstamp) libgnu.la: $(libgnu_la_OBJECTS) $(libgnu_la_DEPENDENCIES) $(EXTRA_libgnu_la_DEPENDENCIES) $(AM_V_CCLD)$(libgnu_la_LINK) $(libgnu_la_OBJECTS) $(libgnu_la_LIBADD) $(LIBS) mostlyclean-compile: -rm -f *.$(OBJEXT) -rm -f glthread/*.$(OBJEXT) -rm -f glthread/*.lo distclean-compile: -rm -f *.tab.c @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/windows-mutex.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/windows-once.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/windows-recmutex.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/windows-rwlock.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@glthread/$(DEPDIR)/lock.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@glthread/$(DEPDIR)/threadlib.Plo@am__quote@ .c.o: @am__fastdepCC_TRUE@ $(AM_V_CC)depbase=`echo $@ | sed 's|[^/]*$$|$(DEPDIR)/&|;s|\.o$$||'`;\ @am__fastdepCC_TRUE@ $(COMPILE) -MT $@ -MD -MP -MF $$depbase.Tpo -c -o $@ $< &&\ @am__fastdepCC_TRUE@ $(am__mv) $$depbase.Tpo $$depbase.Po @AMDEP_TRUE@@am__fastdepCC_FALSE@ $(AM_V_CC)source='$<' object='$@' libtool=no @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(AM_V_CC@am__nodep@)$(COMPILE) -c -o $@ $< .c.obj: @am__fastdepCC_TRUE@ $(AM_V_CC)depbase=`echo $@ | sed 's|[^/]*$$|$(DEPDIR)/&|;s|\.obj$$||'`;\ @am__fastdepCC_TRUE@ $(COMPILE) -MT $@ -MD -MP -MF $$depbase.Tpo -c -o $@ `$(CYGPATH_W) '$<'` &&\ @am__fastdepCC_TRUE@ $(am__mv) $$depbase.Tpo $$depbase.Po @AMDEP_TRUE@@am__fastdepCC_FALSE@ $(AM_V_CC)source='$<' object='$@' libtool=no @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(AM_V_CC@am__nodep@)$(COMPILE) -c -o $@ `$(CYGPATH_W) '$<'` .c.lo: @am__fastdepCC_TRUE@ $(AM_V_CC)depbase=`echo $@ | sed 's|[^/]*$$|$(DEPDIR)/&|;s|\.lo$$||'`;\ @am__fastdepCC_TRUE@ $(LTCOMPILE) -MT $@ -MD -MP -MF $$depbase.Tpo -c -o $@ $< &&\ @am__fastdepCC_TRUE@ $(am__mv) $$depbase.Tpo $$depbase.Plo @AMDEP_TRUE@@am__fastdepCC_FALSE@ $(AM_V_CC)source='$<' object='$@' libtool=yes @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(AM_V_CC@am__nodep@)$(LTCOMPILE) -c -o $@ $< mostlyclean-libtool: -rm -f *.lo clean-libtool: -rm -rf .libs _libs -rm -rf glthread/.libs glthread/_libs # This directory's subdirectories are mostly independent; you can cd # into them and run 'make' without going through this Makefile. # To change the values of 'make' variables: instead of editing Makefiles, # (1) if the variable is set in 'config.status', edit 'config.status' # (which will cause the Makefiles to be regenerated when you run 'make'); # (2) otherwise, pass the desired values on the 'make' command line. $(am__recursive_targets): @fail=; \ if $(am__make_keepgoing); then \ failcom='fail=yes'; \ else \ failcom='exit 1'; \ fi; \ dot_seen=no; \ target=`echo $@ | sed s/-recursive//`; \ case "$@" in \ distclean-* | maintainer-clean-*) list='$(DIST_SUBDIRS)' ;; \ *) list='$(SUBDIRS)' ;; \ esac; \ for subdir in $$list; do \ echo "Making $$target in $$subdir"; \ if test "$$subdir" = "."; then \ dot_seen=yes; \ local_target="$$target-am"; \ else \ local_target="$$target"; \ fi; \ ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) $$local_target) \ || eval $$failcom; \ done; \ if test "$$dot_seen" = "no"; then \ $(MAKE) $(AM_MAKEFLAGS) "$$target-am" || exit 1; \ fi; test -z "$$fail" ID: $(am__tagged_files) $(am__define_uniq_tagged_files); mkid -fID $$unique tags: tags-recursive TAGS: tags tags-am: $(TAGS_DEPENDENCIES) $(am__tagged_files) set x; \ here=`pwd`; \ if ($(ETAGS) --etags-include --version) >/dev/null 2>&1; then \ include_option=--etags-include; \ empty_fix=.; \ else \ include_option=--include; \ empty_fix=; \ fi; \ list='$(SUBDIRS)'; for subdir in $$list; do \ if test "$$subdir" = .; then :; else \ test ! -f $$subdir/TAGS || \ set "$$@" "$$include_option=$$here/$$subdir/TAGS"; \ fi; \ done; \ $(am__define_uniq_tagged_files); \ shift; \ if test -z "$(ETAGS_ARGS)$$*$$unique"; then :; else \ test -n "$$unique" || unique=$$empty_fix; \ if test $$# -gt 0; then \ $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \ "$$@" $$unique; \ else \ $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \ $$unique; \ fi; \ fi ctags: ctags-recursive CTAGS: ctags ctags-am: $(TAGS_DEPENDENCIES) $(am__tagged_files) $(am__define_uniq_tagged_files); \ test -z "$(CTAGS_ARGS)$$unique" \ || $(CTAGS) $(CTAGSFLAGS) $(AM_CTAGSFLAGS) $(CTAGS_ARGS) \ $$unique GTAGS: here=`$(am__cd) $(top_builddir) && pwd` \ && $(am__cd) $(top_srcdir) \ && gtags -i $(GTAGS_ARGS) "$$here" cscopelist: cscopelist-recursive cscopelist-am: $(am__tagged_files) list='$(am__tagged_files)'; \ case "$(srcdir)" in \ [\\/]* | ?:[\\/]*) sdir="$(srcdir)" ;; \ *) sdir=$(subdir)/$(srcdir) ;; \ esac; \ for i in $$list; do \ if test -f "$$i"; then \ echo "$(subdir)/$$i"; \ else \ echo "$$sdir/$$i"; \ fi; \ done >> $(top_builddir)/cscope.files distclean-tags: -rm -f TAGS ID GTAGS GRTAGS GSYMS GPATH tags distdir: $(DISTFILES) @srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ list='$(DISTFILES)'; \ dist_files=`for file in $$list; do echo $$file; done | \ sed -e "s|^$$srcdirstrip/||;t" \ -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \ case $$dist_files in \ */*) $(MKDIR_P) `echo "$$dist_files" | \ sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \ sort -u` ;; \ esac; \ for file in $$dist_files; do \ if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \ if test -d $$d/$$file; then \ dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \ if test -d "$(distdir)/$$file"; then \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \ cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \ else \ test -f "$(distdir)/$$file" \ || cp -p $$d/$$file "$(distdir)/$$file" \ || exit 1; \ fi; \ done @list='$(DIST_SUBDIRS)'; for subdir in $$list; do \ if test "$$subdir" = .; then :; else \ $(am__make_dryrun) \ || test -d "$(distdir)/$$subdir" \ || $(MKDIR_P) "$(distdir)/$$subdir" \ || exit 1; \ dir1=$$subdir; dir2="$(distdir)/$$subdir"; \ $(am__relativize); \ new_distdir=$$reldir; \ dir1=$$subdir; dir2="$(top_distdir)"; \ $(am__relativize); \ new_top_distdir=$$reldir; \ echo " (cd $$subdir && $(MAKE) $(AM_MAKEFLAGS) top_distdir="$$new_top_distdir" distdir="$$new_distdir" \\"; \ echo " am__remove_distdir=: am__skip_length_check=: am__skip_mode_fix=: distdir)"; \ ($(am__cd) $$subdir && \ $(MAKE) $(AM_MAKEFLAGS) \ top_distdir="$$new_top_distdir" \ distdir="$$new_distdir" \ am__remove_distdir=: \ am__skip_length_check=: \ am__skip_mode_fix=: \ distdir) \ || exit 1; \ fi; \ done check-am: all-am check: $(BUILT_SOURCES) $(MAKE) $(AM_MAKEFLAGS) check-recursive all-am: Makefile $(LIBRARIES) $(LTLIBRARIES) $(HEADERS) installdirs: installdirs-recursive installdirs-am: install: $(BUILT_SOURCES) $(MAKE) $(AM_MAKEFLAGS) install-recursive install-exec: install-exec-recursive install-data: install-data-recursive uninstall: uninstall-recursive install-am: all-am @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am installcheck: installcheck-recursive install-strip: if test -z '$(STRIP)'; then \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ install; \ else \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'" install; \ fi mostlyclean-generic: -test -z "$(MOSTLYCLEANFILES)" || rm -f $(MOSTLYCLEANFILES) clean-generic: -test -z "$(CLEANFILES)" || rm -f $(CLEANFILES) distclean-generic: -test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES) -test . = "$(srcdir)" || test -z "$(CONFIG_CLEAN_VPATH_FILES)" || rm -f $(CONFIG_CLEAN_VPATH_FILES) -rm -f glthread/$(DEPDIR)/$(am__dirstamp) -rm -f glthread/$(am__dirstamp) -test -z "$(DISTCLEANFILES)" || rm -f $(DISTCLEANFILES) maintainer-clean-generic: @echo "This command is intended for maintainers to use" @echo "it deletes files that may require special tools to rebuild." -test -z "$(BUILT_SOURCES)" || rm -f $(BUILT_SOURCES) -test -z "$(MAINTAINERCLEANFILES)" || rm -f $(MAINTAINERCLEANFILES) clean: clean-recursive clean-am: clean-generic clean-libtool clean-noinstLIBRARIES \ clean-noinstLTLIBRARIES mostlyclean-am distclean: distclean-recursive -rm -rf ./$(DEPDIR) glthread/$(DEPDIR) -rm -f Makefile distclean-am: clean-am distclean-compile distclean-generic \ distclean-tags dvi: dvi-recursive dvi-am: html: html-recursive html-am: info: info-recursive info-am: install-data-am: install-dvi: install-dvi-recursive install-dvi-am: install-exec-am: install-html: install-html-recursive install-html-am: install-info: install-info-recursive install-info-am: install-man: install-pdf: install-pdf-recursive install-pdf-am: install-ps: install-ps-recursive install-ps-am: installcheck-am: maintainer-clean: maintainer-clean-recursive -rm -rf ./$(DEPDIR) glthread/$(DEPDIR) -rm -f Makefile maintainer-clean-am: distclean-am maintainer-clean-generic mostlyclean: mostlyclean-recursive mostlyclean-am: mostlyclean-compile mostlyclean-generic \ mostlyclean-libtool mostlyclean-local pdf: pdf-recursive pdf-am: ps: ps-recursive ps-am: uninstall-am: .MAKE: $(am__recursive_targets) all check install install-am \ install-strip .PHONY: $(am__recursive_targets) CTAGS GTAGS TAGS all all-am check \ check-am clean clean-generic clean-libtool \ clean-noinstLIBRARIES clean-noinstLTLIBRARIES cscopelist-am \ ctags ctags-am distclean distclean-compile distclean-generic \ distclean-libtool distclean-tags distdir dvi dvi-am html \ html-am info info-am install install-am install-data \ install-data-am install-dvi install-dvi-am install-exec \ install-exec-am install-html install-html-am install-info \ install-info-am install-man install-pdf install-pdf-am \ install-ps install-ps-am install-strip installcheck \ installcheck-am installdirs installdirs-am maintainer-clean \ maintainer-clean-generic mostlyclean mostlyclean-compile \ mostlyclean-generic mostlyclean-libtool mostlyclean-local pdf \ pdf-am ps ps-am tags tags-am uninstall uninstall-am .PRECIOUS: Makefile # We need the following in order to create when the system # doesn't have one that is compatible with GNU. @GL_GENERATE_LIMITS_H_TRUE@limits.h: limits.in.h $(top_builddir)/config.status @GL_GENERATE_LIMITS_H_TRUE@ $(AM_V_GEN)rm -f $@-t $@ && \ @GL_GENERATE_LIMITS_H_TRUE@ { echo '/* DO NOT EDIT! GENERATED AUTOMATICALLY! */' && \ @GL_GENERATE_LIMITS_H_TRUE@ sed -e 's|@''GUARD_PREFIX''@|GL|g' \ @GL_GENERATE_LIMITS_H_TRUE@ -e 's|@''INCLUDE_NEXT''@|$(INCLUDE_NEXT)|g' \ @GL_GENERATE_LIMITS_H_TRUE@ -e 's|@''PRAGMA_SYSTEM_HEADER''@|@PRAGMA_SYSTEM_HEADER@|g' \ @GL_GENERATE_LIMITS_H_TRUE@ -e 's|@''PRAGMA_COLUMNS''@|@PRAGMA_COLUMNS@|g' \ @GL_GENERATE_LIMITS_H_TRUE@ -e 's|@''NEXT_LIMITS_H''@|$(NEXT_LIMITS_H)|g' \ @GL_GENERATE_LIMITS_H_TRUE@ < $(srcdir)/limits.in.h; \ @GL_GENERATE_LIMITS_H_TRUE@ } > $@-t && \ @GL_GENERATE_LIMITS_H_TRUE@ mv $@-t $@ @GL_GENERATE_LIMITS_H_FALSE@limits.h: $(top_builddir)/config.status @GL_GENERATE_LIMITS_H_FALSE@ rm -f $@ # We need the following in order to create when the system # doesn't have one that works with the given compiler. @GL_GENERATE_STDINT_H_TRUE@stdint.h: stdint.in.h $(top_builddir)/config.status @GL_GENERATE_STDINT_H_TRUE@ $(AM_V_GEN)rm -f $@-t $@ && \ @GL_GENERATE_STDINT_H_TRUE@ { echo '/* DO NOT EDIT! GENERATED AUTOMATICALLY! */'; \ @GL_GENERATE_STDINT_H_TRUE@ sed -e 's|@''GUARD_PREFIX''@|GL|g' \ @GL_GENERATE_STDINT_H_TRUE@ -e 's/@''HAVE_STDINT_H''@/$(HAVE_STDINT_H)/g' \ @GL_GENERATE_STDINT_H_TRUE@ -e 's|@''INCLUDE_NEXT''@|$(INCLUDE_NEXT)|g' \ @GL_GENERATE_STDINT_H_TRUE@ -e 's|@''PRAGMA_SYSTEM_HEADER''@|@PRAGMA_SYSTEM_HEADER@|g' \ @GL_GENERATE_STDINT_H_TRUE@ -e 's|@''PRAGMA_COLUMNS''@|@PRAGMA_COLUMNS@|g' \ @GL_GENERATE_STDINT_H_TRUE@ -e 's|@''NEXT_STDINT_H''@|$(NEXT_STDINT_H)|g' \ @GL_GENERATE_STDINT_H_TRUE@ -e 's/@''HAVE_C99_STDINT_H''@/$(HAVE_C99_STDINT_H)/g' \ @GL_GENERATE_STDINT_H_TRUE@ -e 's/@''HAVE_SYS_TYPES_H''@/$(HAVE_SYS_TYPES_H)/g' \ @GL_GENERATE_STDINT_H_TRUE@ -e 's/@''HAVE_INTTYPES_H''@/$(HAVE_INTTYPES_H)/g' \ @GL_GENERATE_STDINT_H_TRUE@ -e 's/@''HAVE_SYS_INTTYPES_H''@/$(HAVE_SYS_INTTYPES_H)/g' \ @GL_GENERATE_STDINT_H_TRUE@ -e 's/@''HAVE_SYS_BITYPES_H''@/$(HAVE_SYS_BITYPES_H)/g' \ @GL_GENERATE_STDINT_H_TRUE@ -e 's/@''HAVE_WCHAR_H''@/$(HAVE_WCHAR_H)/g' \ @GL_GENERATE_STDINT_H_TRUE@ -e 's/@''HAVE_LONG_LONG_INT''@/$(HAVE_LONG_LONG_INT)/g' \ @GL_GENERATE_STDINT_H_TRUE@ -e 's/@''HAVE_UNSIGNED_LONG_LONG_INT''@/$(HAVE_UNSIGNED_LONG_LONG_INT)/g' \ @GL_GENERATE_STDINT_H_TRUE@ -e 's/@''APPLE_UNIVERSAL_BUILD''@/$(APPLE_UNIVERSAL_BUILD)/g' \ @GL_GENERATE_STDINT_H_TRUE@ -e 's/@''BITSIZEOF_PTRDIFF_T''@/$(BITSIZEOF_PTRDIFF_T)/g' \ @GL_GENERATE_STDINT_H_TRUE@ -e 's/@''PTRDIFF_T_SUFFIX''@/$(PTRDIFF_T_SUFFIX)/g' \ @GL_GENERATE_STDINT_H_TRUE@ -e 's/@''BITSIZEOF_SIG_ATOMIC_T''@/$(BITSIZEOF_SIG_ATOMIC_T)/g' \ @GL_GENERATE_STDINT_H_TRUE@ -e 's/@''HAVE_SIGNED_SIG_ATOMIC_T''@/$(HAVE_SIGNED_SIG_ATOMIC_T)/g' \ @GL_GENERATE_STDINT_H_TRUE@ -e 's/@''SIG_ATOMIC_T_SUFFIX''@/$(SIG_ATOMIC_T_SUFFIX)/g' \ @GL_GENERATE_STDINT_H_TRUE@ -e 's/@''BITSIZEOF_SIZE_T''@/$(BITSIZEOF_SIZE_T)/g' \ @GL_GENERATE_STDINT_H_TRUE@ -e 's/@''SIZE_T_SUFFIX''@/$(SIZE_T_SUFFIX)/g' \ @GL_GENERATE_STDINT_H_TRUE@ -e 's/@''BITSIZEOF_WCHAR_T''@/$(BITSIZEOF_WCHAR_T)/g' \ @GL_GENERATE_STDINT_H_TRUE@ -e 's/@''HAVE_SIGNED_WCHAR_T''@/$(HAVE_SIGNED_WCHAR_T)/g' \ @GL_GENERATE_STDINT_H_TRUE@ -e 's/@''WCHAR_T_SUFFIX''@/$(WCHAR_T_SUFFIX)/g' \ @GL_GENERATE_STDINT_H_TRUE@ -e 's/@''BITSIZEOF_WINT_T''@/$(BITSIZEOF_WINT_T)/g' \ @GL_GENERATE_STDINT_H_TRUE@ -e 's/@''HAVE_SIGNED_WINT_T''@/$(HAVE_SIGNED_WINT_T)/g' \ @GL_GENERATE_STDINT_H_TRUE@ -e 's/@''WINT_T_SUFFIX''@/$(WINT_T_SUFFIX)/g' \ @GL_GENERATE_STDINT_H_TRUE@ -e 's/@''GNULIB_OVERRIDES_WINT_T''@/$(GNULIB_OVERRIDES_WINT_T)/g' \ @GL_GENERATE_STDINT_H_TRUE@ < $(srcdir)/stdint.in.h; \ @GL_GENERATE_STDINT_H_TRUE@ } > $@-t && \ @GL_GENERATE_STDINT_H_TRUE@ mv $@-t $@ @GL_GENERATE_STDINT_H_FALSE@stdint.h: $(top_builddir)/config.status @GL_GENERATE_STDINT_H_FALSE@ rm -f $@ # We need the following in order to create when the system # doesn't have one that works. @GL_GENERATE_STDNORETURN_H_TRUE@stdnoreturn.h: stdnoreturn.in.h $(top_builddir)/config.status $(_NORETURN_H) @GL_GENERATE_STDNORETURN_H_TRUE@ $(AM_V_GEN)rm -f $@-t $@ && \ @GL_GENERATE_STDNORETURN_H_TRUE@ { echo '/* DO NOT EDIT! GENERATED AUTOMATICALLY! */' && \ @GL_GENERATE_STDNORETURN_H_TRUE@ sed -e '/definition of _Noreturn/r $(_NORETURN_H)' \ @GL_GENERATE_STDNORETURN_H_TRUE@ < $(srcdir)/stdnoreturn.in.h; \ @GL_GENERATE_STDNORETURN_H_TRUE@ } > $@-t && \ @GL_GENERATE_STDNORETURN_H_TRUE@ mv $@-t $@ @GL_GENERATE_STDNORETURN_H_FALSE@stdnoreturn.h: $(top_builddir)/config.status @GL_GENERATE_STDNORETURN_H_FALSE@ rm -f $@ # We need the following in order to create when the system # doesn't have one that works with the given compiler. sys/types.h: sys_types.in.h $(top_builddir)/config.status $(AM_V_at)$(MKDIR_P) sys $(AM_V_GEN)rm -f $@-t $@ && \ { echo '/* DO NOT EDIT! GENERATED AUTOMATICALLY! */'; \ sed -e 's|@''GUARD_PREFIX''@|GL|g' \ -e 's|@''INCLUDE_NEXT''@|$(INCLUDE_NEXT)|g' \ -e 's|@''PRAGMA_SYSTEM_HEADER''@|@PRAGMA_SYSTEM_HEADER@|g' \ -e 's|@''PRAGMA_COLUMNS''@|@PRAGMA_COLUMNS@|g' \ -e 's|@''NEXT_SYS_TYPES_H''@|$(NEXT_SYS_TYPES_H)|g' \ -e 's|@''WINDOWS_64_BIT_OFF_T''@|$(WINDOWS_64_BIT_OFF_T)|g' \ -e 's|@''WINDOWS_STAT_INODES''@|$(WINDOWS_STAT_INODES)|g' \ < $(srcdir)/sys_types.in.h; \ } > $@-t && \ mv $@-t $@ mostlyclean-local: mostlyclean-generic @for dir in '' $(MOSTLYCLEANDIRS); do \ if test -n "$$dir" && test -d $$dir; then \ echo "rmdir $$dir"; rmdir $$dir; \ fi; \ done; \ : # Tell versions [3.59,3.63) of GNU make to not export all variables. # Otherwise a system limit (for SysV at least) may be exceeded. .NOEXPORT: libffcall-2.2/gnulib-lib/windows-recmutex.c0000664000000000000000000000650113526533140015704 00000000000000/* Plain recursive mutexes (native Windows implementation). Copyright (C) 2005-2019 Free Software Foundation, Inc. This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 3, or (at your option) any later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program; if not, see . */ /* Written by Bruno Haible , 2005. Based on GCC's gthr-win32.h. */ #include /* Specification. */ #include "windows-recmutex.h" #include void glwthread_recmutex_init (glwthread_recmutex_t *mutex) { mutex->owner = 0; mutex->depth = 0; InitializeCriticalSection (&mutex->lock); mutex->guard.done = 1; } int glwthread_recmutex_lock (glwthread_recmutex_t *mutex) { if (!mutex->guard.done) { if (InterlockedIncrement (&mutex->guard.started) == 0) /* This thread is the first one to need this mutex. Initialize it. */ glwthread_recmutex_init (mutex); else { /* Don't let mutex->guard.started grow and wrap around. */ InterlockedDecrement (&mutex->guard.started); /* Yield the CPU while waiting for another thread to finish initializing this mutex. */ while (!mutex->guard.done) Sleep (0); } } { DWORD self = GetCurrentThreadId (); if (mutex->owner != self) { EnterCriticalSection (&mutex->lock); mutex->owner = self; } if (++(mutex->depth) == 0) /* wraparound? */ { mutex->depth--; return EAGAIN; } } return 0; } int glwthread_recmutex_trylock (glwthread_recmutex_t *mutex) { if (!mutex->guard.done) { if (InterlockedIncrement (&mutex->guard.started) == 0) /* This thread is the first one to need this mutex. Initialize it. */ glwthread_recmutex_init (mutex); else { /* Don't let mutex->guard.started grow and wrap around. */ InterlockedDecrement (&mutex->guard.started); /* Let another thread finish initializing this mutex, and let it also lock this mutex. */ return EBUSY; } } { DWORD self = GetCurrentThreadId (); if (mutex->owner != self) { if (!TryEnterCriticalSection (&mutex->lock)) return EBUSY; mutex->owner = self; } if (++(mutex->depth) == 0) /* wraparound? */ { mutex->depth--; return EAGAIN; } } return 0; } int glwthread_recmutex_unlock (glwthread_recmutex_t *mutex) { if (mutex->owner != GetCurrentThreadId ()) return EPERM; if (mutex->depth == 0) return EINVAL; if (--(mutex->depth) == 0) { mutex->owner = 0; LeaveCriticalSection (&mutex->lock); } return 0; } int glwthread_recmutex_destroy (glwthread_recmutex_t *mutex) { if (mutex->owner != 0) return EBUSY; DeleteCriticalSection (&mutex->lock); mutex->guard.done = 0; return 0; } libffcall-2.2/gnulib-lib/stdint.in.h0000664000000000000000000005421713416710527014312 00000000000000/* Copyright (C) 2001-2002, 2004-2019 Free Software Foundation, Inc. Written by Paul Eggert, Bruno Haible, Sam Steingold, Peter Burwood. This file is part of gnulib. This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 3, or (at your option) any later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program; if not, see . */ /* * ISO C 99 for platforms that lack it. * */ #ifndef _@GUARD_PREFIX@_STDINT_H #if __GNUC__ >= 3 @PRAGMA_SYSTEM_HEADER@ #endif @PRAGMA_COLUMNS@ /* When including a system file that in turn includes , use the system , not our substitute. This avoids problems with (for example) VMS, whose includes . */ #define _GL_JUST_INCLUDE_SYSTEM_INTTYPES_H /* On Android (Bionic libc), includes this file before having defined 'time_t'. Therefore in this case avoid including other system header files; just include the system's . Ideally we should test __BIONIC__ here, but it is only defined after has been included; hence test __ANDROID__ instead. */ #if defined __ANDROID__ && defined _GL_INCLUDING_SYS_TYPES_H # @INCLUDE_NEXT@ @NEXT_STDINT_H@ #else /* Get those types that are already defined in other system include files, so that we can "#define int8_t signed char" below without worrying about a later system include file containing a "typedef signed char int8_t;" that will get messed up by our macro. Our macros should all be consistent with the system versions, except for the "fast" types and macros, which we recommend against using in public interfaces due to compiler differences. */ #if @HAVE_STDINT_H@ # if defined __sgi && ! defined __c99 /* Bypass IRIX's if in C89 mode, since it merely annoys users with "This header file is to be used only for c99 mode compilations" diagnostics. */ # define __STDINT_H__ # endif /* Some pre-C++11 implementations need this. */ # ifdef __cplusplus # ifndef __STDC_CONSTANT_MACROS # define __STDC_CONSTANT_MACROS 1 # endif # ifndef __STDC_LIMIT_MACROS # define __STDC_LIMIT_MACROS 1 # endif # endif /* Other systems may have an incomplete or buggy . Include it before , since any "#include " in would reinclude us, skipping our contents because _@GUARD_PREFIX@_STDINT_H is defined. The include_next requires a split double-inclusion guard. */ # @INCLUDE_NEXT@ @NEXT_STDINT_H@ #endif #if ! defined _@GUARD_PREFIX@_STDINT_H && ! defined _GL_JUST_INCLUDE_SYSTEM_STDINT_H #define _@GUARD_PREFIX@_STDINT_H /* Get SCHAR_MIN, SCHAR_MAX, UCHAR_MAX, INT_MIN, INT_MAX, LONG_MIN, LONG_MAX, ULONG_MAX, _GL_INTEGER_WIDTH. */ #include /* Override WINT_MIN and WINT_MAX if gnulib's or overrides wint_t. */ #if @GNULIB_OVERRIDES_WINT_T@ # undef WINT_MIN # undef WINT_MAX # define WINT_MIN 0x0U # define WINT_MAX 0xffffffffU #endif #if ! @HAVE_C99_STDINT_H@ /* defines some of the stdint.h types as well, on glibc, IRIX 6.5, and OpenBSD 3.8 (via ). AIX 5.2 isn't needed and causes troubles. Mac OS X 10.4.6 includes (which is us), but relies on the system definitions, so include after @NEXT_STDINT_H@. */ # if @HAVE_SYS_TYPES_H@ && ! defined _AIX # include # endif # if @HAVE_INTTYPES_H@ /* In OpenBSD 3.8, includes , which defines int{8,16,32,64}_t, uint{8,16,32,64}_t and __BIT_TYPES_DEFINED__. also defines intptr_t and uintptr_t. */ # include # elif @HAVE_SYS_INTTYPES_H@ /* Solaris 7 has the types except the *_fast*_t types, and the macros except for *_FAST*_*, INTPTR_MIN, PTRDIFF_MIN, PTRDIFF_MAX. */ # include # endif # if @HAVE_SYS_BITYPES_H@ && ! defined __BIT_TYPES_DEFINED__ /* Linux libc4 >= 4.6.7 and libc5 have a that defines int{8,16,32,64}_t and __BIT_TYPES_DEFINED__. In libc5 >= 5.2.2 it is included by . */ # include # endif # undef _GL_JUST_INCLUDE_SYSTEM_INTTYPES_H /* Minimum and maximum values for an integer type under the usual assumption. Return an unspecified value if BITS == 0, adding a check to pacify picky compilers. */ /* These are separate macros, because if you try to merge these macros into a single one, HP-UX cc rejects the resulting expression in constant expressions. */ # define _STDINT_UNSIGNED_MIN(bits, zero) \ (zero) # define _STDINT_SIGNED_MIN(bits, zero) \ (~ _STDINT_MAX (1, bits, zero)) # define _STDINT_MAX(signed, bits, zero) \ (((((zero) + 1) << ((bits) ? (bits) - 1 - (signed) : 0)) - 1) * 2 + 1) #if !GNULIB_defined_stdint_types /* 7.18.1.1. Exact-width integer types */ /* Here we assume a standard architecture where the hardware integer types have 8, 16, 32, optionally 64 bits. */ # undef int8_t # undef uint8_t typedef signed char gl_int8_t; typedef unsigned char gl_uint8_t; # define int8_t gl_int8_t # define uint8_t gl_uint8_t # undef int16_t # undef uint16_t typedef short int gl_int16_t; typedef unsigned short int gl_uint16_t; # define int16_t gl_int16_t # define uint16_t gl_uint16_t # undef int32_t # undef uint32_t typedef int gl_int32_t; typedef unsigned int gl_uint32_t; # define int32_t gl_int32_t # define uint32_t gl_uint32_t /* If the system defines INT64_MAX, assume int64_t works. That way, if the underlying platform defines int64_t to be a 64-bit long long int, the code below won't mistakenly define it to be a 64-bit long int, which would mess up C++ name mangling. We must use #ifdef rather than #if, to avoid an error with HP-UX 10.20 cc. */ # ifdef INT64_MAX # define GL_INT64_T # else /* Do not undefine int64_t if gnulib is not being used with 64-bit types, since otherwise it breaks platforms like Tandem/NSK. */ # if LONG_MAX >> 31 >> 31 == 1 # undef int64_t typedef long int gl_int64_t; # define int64_t gl_int64_t # define GL_INT64_T # elif defined _MSC_VER # undef int64_t typedef __int64 gl_int64_t; # define int64_t gl_int64_t # define GL_INT64_T # elif @HAVE_LONG_LONG_INT@ # undef int64_t typedef long long int gl_int64_t; # define int64_t gl_int64_t # define GL_INT64_T # endif # endif # ifdef UINT64_MAX # define GL_UINT64_T # else # if ULONG_MAX >> 31 >> 31 >> 1 == 1 # undef uint64_t typedef unsigned long int gl_uint64_t; # define uint64_t gl_uint64_t # define GL_UINT64_T # elif defined _MSC_VER # undef uint64_t typedef unsigned __int64 gl_uint64_t; # define uint64_t gl_uint64_t # define GL_UINT64_T # elif @HAVE_UNSIGNED_LONG_LONG_INT@ # undef uint64_t typedef unsigned long long int gl_uint64_t; # define uint64_t gl_uint64_t # define GL_UINT64_T # endif # endif /* Avoid collision with Solaris 2.5.1 etc. */ # define _UINT8_T # define _UINT32_T # define _UINT64_T /* 7.18.1.2. Minimum-width integer types */ /* Here we assume a standard architecture where the hardware integer types have 8, 16, 32, optionally 64 bits. Therefore the leastN_t types are the same as the corresponding N_t types. */ # undef int_least8_t # undef uint_least8_t # undef int_least16_t # undef uint_least16_t # undef int_least32_t # undef uint_least32_t # undef int_least64_t # undef uint_least64_t # define int_least8_t int8_t # define uint_least8_t uint8_t # define int_least16_t int16_t # define uint_least16_t uint16_t # define int_least32_t int32_t # define uint_least32_t uint32_t # ifdef GL_INT64_T # define int_least64_t int64_t # endif # ifdef GL_UINT64_T # define uint_least64_t uint64_t # endif /* 7.18.1.3. Fastest minimum-width integer types */ /* Note: Other substitutes may define these types differently. It is not recommended to use these types in public header files. */ /* Here we assume a standard architecture where the hardware integer types have 8, 16, 32, optionally 64 bits. Therefore the fastN_t types are taken from the same list of types. The following code normally uses types consistent with glibc, as that lessens the chance of incompatibility with older GNU hosts. */ # undef int_fast8_t # undef uint_fast8_t # undef int_fast16_t # undef uint_fast16_t # undef int_fast32_t # undef uint_fast32_t # undef int_fast64_t # undef uint_fast64_t typedef signed char gl_int_fast8_t; typedef unsigned char gl_uint_fast8_t; # ifdef __sun /* Define types compatible with SunOS 5.10, so that code compiled under earlier SunOS versions works with code compiled under SunOS 5.10. */ typedef int gl_int_fast32_t; typedef unsigned int gl_uint_fast32_t; # else typedef long int gl_int_fast32_t; typedef unsigned long int gl_uint_fast32_t; # endif typedef gl_int_fast32_t gl_int_fast16_t; typedef gl_uint_fast32_t gl_uint_fast16_t; # define int_fast8_t gl_int_fast8_t # define uint_fast8_t gl_uint_fast8_t # define int_fast16_t gl_int_fast16_t # define uint_fast16_t gl_uint_fast16_t # define int_fast32_t gl_int_fast32_t # define uint_fast32_t gl_uint_fast32_t # ifdef GL_INT64_T # define int_fast64_t int64_t # endif # ifdef GL_UINT64_T # define uint_fast64_t uint64_t # endif /* 7.18.1.4. Integer types capable of holding object pointers */ /* kLIBC's stdint.h defines _INTPTR_T_DECLARED and needs its own definitions of intptr_t and uintptr_t (which use int and unsigned) to avoid clashes with declarations of system functions like sbrk. */ # ifndef _INTPTR_T_DECLARED # undef intptr_t # undef uintptr_t typedef long int gl_intptr_t; typedef unsigned long int gl_uintptr_t; # define intptr_t gl_intptr_t # define uintptr_t gl_uintptr_t # endif /* 7.18.1.5. Greatest-width integer types */ /* Note: These types are compiler dependent. It may be unwise to use them in public header files. */ /* If the system defines INTMAX_MAX, assume that intmax_t works, and similarly for UINTMAX_MAX and uintmax_t. This avoids problems with assuming one type where another is used by the system. */ # ifndef INTMAX_MAX # undef INTMAX_C # undef intmax_t # if @HAVE_LONG_LONG_INT@ && LONG_MAX >> 30 == 1 typedef long long int gl_intmax_t; # define intmax_t gl_intmax_t # elif defined GL_INT64_T # define intmax_t int64_t # else typedef long int gl_intmax_t; # define intmax_t gl_intmax_t # endif # endif # ifndef UINTMAX_MAX # undef UINTMAX_C # undef uintmax_t # if @HAVE_UNSIGNED_LONG_LONG_INT@ && ULONG_MAX >> 31 == 1 typedef unsigned long long int gl_uintmax_t; # define uintmax_t gl_uintmax_t # elif defined GL_UINT64_T # define uintmax_t uint64_t # else typedef unsigned long int gl_uintmax_t; # define uintmax_t gl_uintmax_t # endif # endif /* Verify that intmax_t and uintmax_t have the same size. Too much code breaks if this is not the case. If this check fails, the reason is likely to be found in the autoconf macros. */ typedef int _verify_intmax_size[sizeof (intmax_t) == sizeof (uintmax_t) ? 1 : -1]; # define GNULIB_defined_stdint_types 1 # endif /* !GNULIB_defined_stdint_types */ /* 7.18.2. Limits of specified-width integer types */ /* 7.18.2.1. Limits of exact-width integer types */ /* Here we assume a standard architecture where the hardware integer types have 8, 16, 32, optionally 64 bits. */ # undef INT8_MIN # undef INT8_MAX # undef UINT8_MAX # define INT8_MIN (~ INT8_MAX) # define INT8_MAX 127 # define UINT8_MAX 255 # undef INT16_MIN # undef INT16_MAX # undef UINT16_MAX # define INT16_MIN (~ INT16_MAX) # define INT16_MAX 32767 # define UINT16_MAX 65535 # undef INT32_MIN # undef INT32_MAX # undef UINT32_MAX # define INT32_MIN (~ INT32_MAX) # define INT32_MAX 2147483647 # define UINT32_MAX 4294967295U # if defined GL_INT64_T && ! defined INT64_MAX /* Prefer (- INTMAX_C (1) << 63) over (~ INT64_MAX) because SunPRO C 5.0 evaluates the latter incorrectly in preprocessor expressions. */ # define INT64_MIN (- INTMAX_C (1) << 63) # define INT64_MAX INTMAX_C (9223372036854775807) # endif # if defined GL_UINT64_T && ! defined UINT64_MAX # define UINT64_MAX UINTMAX_C (18446744073709551615) # endif /* 7.18.2.2. Limits of minimum-width integer types */ /* Here we assume a standard architecture where the hardware integer types have 8, 16, 32, optionally 64 bits. Therefore the leastN_t types are the same as the corresponding N_t types. */ # undef INT_LEAST8_MIN # undef INT_LEAST8_MAX # undef UINT_LEAST8_MAX # define INT_LEAST8_MIN INT8_MIN # define INT_LEAST8_MAX INT8_MAX # define UINT_LEAST8_MAX UINT8_MAX # undef INT_LEAST16_MIN # undef INT_LEAST16_MAX # undef UINT_LEAST16_MAX # define INT_LEAST16_MIN INT16_MIN # define INT_LEAST16_MAX INT16_MAX # define UINT_LEAST16_MAX UINT16_MAX # undef INT_LEAST32_MIN # undef INT_LEAST32_MAX # undef UINT_LEAST32_MAX # define INT_LEAST32_MIN INT32_MIN # define INT_LEAST32_MAX INT32_MAX # define UINT_LEAST32_MAX UINT32_MAX # undef INT_LEAST64_MIN # undef INT_LEAST64_MAX # ifdef GL_INT64_T # define INT_LEAST64_MIN INT64_MIN # define INT_LEAST64_MAX INT64_MAX # endif # undef UINT_LEAST64_MAX # ifdef GL_UINT64_T # define UINT_LEAST64_MAX UINT64_MAX # endif /* 7.18.2.3. Limits of fastest minimum-width integer types */ /* Here we assume a standard architecture where the hardware integer types have 8, 16, 32, optionally 64 bits. Therefore the fastN_t types are taken from the same list of types. */ # undef INT_FAST8_MIN # undef INT_FAST8_MAX # undef UINT_FAST8_MAX # define INT_FAST8_MIN SCHAR_MIN # define INT_FAST8_MAX SCHAR_MAX # define UINT_FAST8_MAX UCHAR_MAX # undef INT_FAST16_MIN # undef INT_FAST16_MAX # undef UINT_FAST16_MAX # define INT_FAST16_MIN INT_FAST32_MIN # define INT_FAST16_MAX INT_FAST32_MAX # define UINT_FAST16_MAX UINT_FAST32_MAX # undef INT_FAST32_MIN # undef INT_FAST32_MAX # undef UINT_FAST32_MAX # ifdef __sun # define INT_FAST32_MIN INT_MIN # define INT_FAST32_MAX INT_MAX # define UINT_FAST32_MAX UINT_MAX # else # define INT_FAST32_MIN LONG_MIN # define INT_FAST32_MAX LONG_MAX # define UINT_FAST32_MAX ULONG_MAX # endif # undef INT_FAST64_MIN # undef INT_FAST64_MAX # ifdef GL_INT64_T # define INT_FAST64_MIN INT64_MIN # define INT_FAST64_MAX INT64_MAX # endif # undef UINT_FAST64_MAX # ifdef GL_UINT64_T # define UINT_FAST64_MAX UINT64_MAX # endif /* 7.18.2.4. Limits of integer types capable of holding object pointers */ # undef INTPTR_MIN # undef INTPTR_MAX # undef UINTPTR_MAX # define INTPTR_MIN LONG_MIN # define INTPTR_MAX LONG_MAX # define UINTPTR_MAX ULONG_MAX /* 7.18.2.5. Limits of greatest-width integer types */ # ifndef INTMAX_MAX # undef INTMAX_MIN # ifdef INT64_MAX # define INTMAX_MIN INT64_MIN # define INTMAX_MAX INT64_MAX # else # define INTMAX_MIN INT32_MIN # define INTMAX_MAX INT32_MAX # endif # endif # ifndef UINTMAX_MAX # ifdef UINT64_MAX # define UINTMAX_MAX UINT64_MAX # else # define UINTMAX_MAX UINT32_MAX # endif # endif /* 7.18.3. Limits of other integer types */ /* ptrdiff_t limits */ # undef PTRDIFF_MIN # undef PTRDIFF_MAX # if @APPLE_UNIVERSAL_BUILD@ # ifdef _LP64 # define PTRDIFF_MIN _STDINT_SIGNED_MIN (64, 0l) # define PTRDIFF_MAX _STDINT_MAX (1, 64, 0l) # else # define PTRDIFF_MIN _STDINT_SIGNED_MIN (32, 0) # define PTRDIFF_MAX _STDINT_MAX (1, 32, 0) # endif # else # define PTRDIFF_MIN \ _STDINT_SIGNED_MIN (@BITSIZEOF_PTRDIFF_T@, 0@PTRDIFF_T_SUFFIX@) # define PTRDIFF_MAX \ _STDINT_MAX (1, @BITSIZEOF_PTRDIFF_T@, 0@PTRDIFF_T_SUFFIX@) # endif /* sig_atomic_t limits */ # undef SIG_ATOMIC_MIN # undef SIG_ATOMIC_MAX # if @HAVE_SIGNED_SIG_ATOMIC_T@ # define SIG_ATOMIC_MIN \ _STDINT_SIGNED_MIN (@BITSIZEOF_SIG_ATOMIC_T@, 0@SIG_ATOMIC_T_SUFFIX@) # else # define SIG_ATOMIC_MIN \ _STDINT_UNSIGNED_MIN (@BITSIZEOF_SIG_ATOMIC_T@, 0@SIG_ATOMIC_T_SUFFIX@) # endif # define SIG_ATOMIC_MAX \ _STDINT_MAX (@HAVE_SIGNED_SIG_ATOMIC_T@, @BITSIZEOF_SIG_ATOMIC_T@, \ 0@SIG_ATOMIC_T_SUFFIX@) /* size_t limit */ # undef SIZE_MAX # if @APPLE_UNIVERSAL_BUILD@ # ifdef _LP64 # define SIZE_MAX _STDINT_MAX (0, 64, 0ul) # else # define SIZE_MAX _STDINT_MAX (0, 32, 0ul) # endif # else # define SIZE_MAX _STDINT_MAX (0, @BITSIZEOF_SIZE_T@, 0@SIZE_T_SUFFIX@) # endif /* wchar_t limits */ /* Get WCHAR_MIN, WCHAR_MAX. This include is not on the top, above, because on OSF/1 4.0 we have a sequence of nested includes -> -> -> , and the latter includes and assumes its types are already defined. */ # if @HAVE_WCHAR_H@ && ! (defined WCHAR_MIN && defined WCHAR_MAX) /* BSD/OS 4.0.1 has a bug: , and must be included before . */ # include # include # include # define _GL_JUST_INCLUDE_SYSTEM_WCHAR_H # include # undef _GL_JUST_INCLUDE_SYSTEM_WCHAR_H # endif # undef WCHAR_MIN # undef WCHAR_MAX # if @HAVE_SIGNED_WCHAR_T@ # define WCHAR_MIN \ _STDINT_SIGNED_MIN (@BITSIZEOF_WCHAR_T@, 0@WCHAR_T_SUFFIX@) # else # define WCHAR_MIN \ _STDINT_UNSIGNED_MIN (@BITSIZEOF_WCHAR_T@, 0@WCHAR_T_SUFFIX@) # endif # define WCHAR_MAX \ _STDINT_MAX (@HAVE_SIGNED_WCHAR_T@, @BITSIZEOF_WCHAR_T@, 0@WCHAR_T_SUFFIX@) /* wint_t limits */ # undef WINT_MIN # undef WINT_MAX # if @HAVE_SIGNED_WINT_T@ # define WINT_MIN \ _STDINT_SIGNED_MIN (@BITSIZEOF_WINT_T@, 0@WINT_T_SUFFIX@) # else # define WINT_MIN \ _STDINT_UNSIGNED_MIN (@BITSIZEOF_WINT_T@, 0@WINT_T_SUFFIX@) # endif # define WINT_MAX \ _STDINT_MAX (@HAVE_SIGNED_WINT_T@, @BITSIZEOF_WINT_T@, 0@WINT_T_SUFFIX@) /* 7.18.4. Macros for integer constants */ /* 7.18.4.1. Macros for minimum-width integer constants */ /* According to ISO C 99 Technical Corrigendum 1 */ /* Here we assume a standard architecture where the hardware integer types have 8, 16, 32, optionally 64 bits, and int is 32 bits. */ # undef INT8_C # undef UINT8_C # define INT8_C(x) x # define UINT8_C(x) x # undef INT16_C # undef UINT16_C # define INT16_C(x) x # define UINT16_C(x) x # undef INT32_C # undef UINT32_C # define INT32_C(x) x # define UINT32_C(x) x ## U # undef INT64_C # undef UINT64_C # if LONG_MAX >> 31 >> 31 == 1 # define INT64_C(x) x##L # elif defined _MSC_VER # define INT64_C(x) x##i64 # elif @HAVE_LONG_LONG_INT@ # define INT64_C(x) x##LL # endif # if ULONG_MAX >> 31 >> 31 >> 1 == 1 # define UINT64_C(x) x##UL # elif defined _MSC_VER # define UINT64_C(x) x##ui64 # elif @HAVE_UNSIGNED_LONG_LONG_INT@ # define UINT64_C(x) x##ULL # endif /* 7.18.4.2. Macros for greatest-width integer constants */ # ifndef INTMAX_C # if @HAVE_LONG_LONG_INT@ && LONG_MAX >> 30 == 1 # define INTMAX_C(x) x##LL # elif defined GL_INT64_T # define INTMAX_C(x) INT64_C(x) # else # define INTMAX_C(x) x##L # endif # endif # ifndef UINTMAX_C # if @HAVE_UNSIGNED_LONG_LONG_INT@ && ULONG_MAX >> 31 == 1 # define UINTMAX_C(x) x##ULL # elif defined GL_UINT64_T # define UINTMAX_C(x) UINT64_C(x) # else # define UINTMAX_C(x) x##UL # endif # endif #endif /* !@HAVE_C99_STDINT_H@ */ /* Macros specified by ISO/IEC TS 18661-1:2014. */ #if (!defined UINTMAX_WIDTH \ && (defined _GNU_SOURCE || defined __STDC_WANT_IEC_60559_BFP_EXT__)) # ifdef INT8_MAX # define INT8_WIDTH _GL_INTEGER_WIDTH (INT8_MIN, INT8_MAX) # endif # ifdef UINT8_MAX # define UINT8_WIDTH _GL_INTEGER_WIDTH (0, UINT8_MAX) # endif # ifdef INT16_MAX # define INT16_WIDTH _GL_INTEGER_WIDTH (INT16_MIN, INT16_MAX) # endif # ifdef UINT16_MAX # define UINT16_WIDTH _GL_INTEGER_WIDTH (0, UINT16_MAX) # endif # ifdef INT32_MAX # define INT32_WIDTH _GL_INTEGER_WIDTH (INT32_MIN, INT32_MAX) # endif # ifdef UINT32_MAX # define UINT32_WIDTH _GL_INTEGER_WIDTH (0, UINT32_MAX) # endif # ifdef INT64_MAX # define INT64_WIDTH _GL_INTEGER_WIDTH (INT64_MIN, INT64_MAX) # endif # ifdef UINT64_MAX # define UINT64_WIDTH _GL_INTEGER_WIDTH (0, UINT64_MAX) # endif # define INT_LEAST8_WIDTH _GL_INTEGER_WIDTH (INT_LEAST8_MIN, INT_LEAST8_MAX) # define UINT_LEAST8_WIDTH _GL_INTEGER_WIDTH (0, UINT_LEAST8_MAX) # define INT_LEAST16_WIDTH _GL_INTEGER_WIDTH (INT_LEAST16_MIN, INT_LEAST16_MAX) # define UINT_LEAST16_WIDTH _GL_INTEGER_WIDTH (0, UINT_LEAST16_MAX) # define INT_LEAST32_WIDTH _GL_INTEGER_WIDTH (INT_LEAST32_MIN, INT_LEAST32_MAX) # define UINT_LEAST32_WIDTH _GL_INTEGER_WIDTH (0, UINT_LEAST32_MAX) # define INT_LEAST64_WIDTH _GL_INTEGER_WIDTH (INT_LEAST64_MIN, INT_LEAST64_MAX) # define UINT_LEAST64_WIDTH _GL_INTEGER_WIDTH (0, UINT_LEAST64_MAX) # define INT_FAST8_WIDTH _GL_INTEGER_WIDTH (INT_FAST8_MIN, INT_FAST8_MAX) # define UINT_FAST8_WIDTH _GL_INTEGER_WIDTH (0, UINT_FAST8_MAX) # define INT_FAST16_WIDTH _GL_INTEGER_WIDTH (INT_FAST16_MIN, INT_FAST16_MAX) # define UINT_FAST16_WIDTH _GL_INTEGER_WIDTH (0, UINT_FAST16_MAX) # define INT_FAST32_WIDTH _GL_INTEGER_WIDTH (INT_FAST32_MIN, INT_FAST32_MAX) # define UINT_FAST32_WIDTH _GL_INTEGER_WIDTH (0, UINT_FAST32_MAX) # define INT_FAST64_WIDTH _GL_INTEGER_WIDTH (INT_FAST64_MIN, INT_FAST64_MAX) # define UINT_FAST64_WIDTH _GL_INTEGER_WIDTH (0, UINT_FAST64_MAX) # define INTPTR_WIDTH _GL_INTEGER_WIDTH (INTPTR_MIN, INTPTR_MAX) # define UINTPTR_WIDTH _GL_INTEGER_WIDTH (0, UINTPTR_MAX) # define INTMAX_WIDTH _GL_INTEGER_WIDTH (INTMAX_MIN, INTMAX_MAX) # define UINTMAX_WIDTH _GL_INTEGER_WIDTH (0, UINTMAX_MAX) # define PTRDIFF_WIDTH _GL_INTEGER_WIDTH (PTRDIFF_MIN, PTRDIFF_MAX) # define SIZE_WIDTH _GL_INTEGER_WIDTH (0, SIZE_MAX) # define WCHAR_WIDTH _GL_INTEGER_WIDTH (WCHAR_MIN, WCHAR_MAX) # ifdef WINT_MAX # define WINT_WIDTH _GL_INTEGER_WIDTH (WINT_MIN, WINT_MAX) # endif # ifdef SIG_ATOMIC_MAX # define SIG_ATOMIC_WIDTH _GL_INTEGER_WIDTH (SIG_ATOMIC_MIN, SIG_ATOMIC_MAX) # endif #endif /* !WINT_WIDTH && (_GNU_SOURCE || __STDC_WANT_IEC_60559_BFP_EXT__) */ #endif /* _@GUARD_PREFIX@_STDINT_H */ #endif /* !(defined __ANDROID__ && ...) */ #endif /* !defined _@GUARD_PREFIX@_STDINT_H && !defined _GL_JUST_INCLUDE_SYSTEM_STDINT_H */ libffcall-2.2/gnulib-lib/sys_types.in.h0000664000000000000000000000613013416710527015036 00000000000000/* Provide a more complete sys/types.h. Copyright (C) 2011-2019 Free Software Foundation, Inc. This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 3, or (at your option) any later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program; if not, see . */ #if __GNUC__ >= 3 @PRAGMA_SYSTEM_HEADER@ #endif @PRAGMA_COLUMNS@ #if defined _WIN32 && !defined __CYGWIN__ \ && (defined __need_off_t || defined __need___off64_t \ || defined __need_ssize_t || defined __need_time_t) /* Special invocation convention inside mingw header files. */ #@INCLUDE_NEXT@ @NEXT_SYS_TYPES_H@ #else /* Normal invocation convention. */ #ifndef _@GUARD_PREFIX@_SYS_TYPES_H /* The include_next requires a split double-inclusion guard. */ # define _GL_INCLUDING_SYS_TYPES_H #@INCLUDE_NEXT@ @NEXT_SYS_TYPES_H@ # undef _GL_INCLUDING_SYS_TYPES_H #ifndef _@GUARD_PREFIX@_SYS_TYPES_H #define _@GUARD_PREFIX@_SYS_TYPES_H /* Override off_t if Large File Support is requested on native Windows. */ #if @WINDOWS_64_BIT_OFF_T@ /* Same as int64_t in . */ # if defined _MSC_VER # define off_t __int64 # else # define off_t long long int # endif /* Indicator, for gnulib internal purposes. */ # define _GL_WINDOWS_64_BIT_OFF_T 1 #endif /* Override dev_t and ino_t if distinguishable inodes support is requested on native Windows. */ #if @WINDOWS_STAT_INODES@ # if @WINDOWS_STAT_INODES@ == 2 /* Experimental, not useful in Windows 10. */ /* Define dev_t to a 64-bit type. */ # if !defined GNULIB_defined_dev_t typedef unsigned long long int rpl_dev_t; # undef dev_t # define dev_t rpl_dev_t # define GNULIB_defined_dev_t 1 # endif /* Define ino_t to a 128-bit type. */ # if !defined GNULIB_defined_ino_t /* MSVC does not have a 128-bit integer type. GCC has a 128-bit integer type __int128, but only on 64-bit targets. */ typedef struct { unsigned long long int _gl_ino[2]; } rpl_ino_t; # undef ino_t # define ino_t rpl_ino_t # define GNULIB_defined_ino_t 1 # endif # else /* @WINDOWS_STAT_INODES@ == 1 */ /* Define ino_t to a 64-bit type. */ # if !defined GNULIB_defined_ino_t typedef unsigned long long int rpl_ino_t; # undef ino_t # define ino_t rpl_ino_t # define GNULIB_defined_ino_t 1 # endif # endif /* Indicator, for gnulib internal purposes. */ # define _GL_WINDOWS_STAT_INODES @WINDOWS_STAT_INODES@ #endif /* MSVC 9 defines size_t in , not in . */ /* But avoid namespace pollution on glibc systems. */ #if (defined _WIN32 && ! defined __CYGWIN__) && ! defined __GLIBC__ # include #endif #endif /* _@GUARD_PREFIX@_SYS_TYPES_H */ #endif /* _@GUARD_PREFIX@_SYS_TYPES_H */ #endif /* __need_XXX */ libffcall-2.2/gnulib-lib/windows-mutex.h0000664000000000000000000000313413526533140015216 00000000000000/* Plain mutexes (native Windows implementation). Copyright (C) 2005-2019 Free Software Foundation, Inc. This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 3, or (at your option) any later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program; if not, see . */ /* Written by Bruno Haible , 2005. Based on GCC's gthr-win32.h. */ #ifndef _WINDOWS_MUTEX_H #define _WINDOWS_MUTEX_H #define WIN32_LEAN_AND_MEAN /* avoid including junk */ #include #include "windows-initguard.h" typedef struct { glwthread_initguard_t guard; /* protects the initialization */ CRITICAL_SECTION lock; } glwthread_mutex_t; #define GLWTHREAD_MUTEX_INIT { GLWTHREAD_INITGUARD_INIT } #ifdef __cplusplus extern "C" { #endif extern void glwthread_mutex_init (glwthread_mutex_t *mutex); extern int glwthread_mutex_lock (glwthread_mutex_t *mutex); extern int glwthread_mutex_trylock (glwthread_mutex_t *mutex); extern int glwthread_mutex_unlock (glwthread_mutex_t *mutex); extern int glwthread_mutex_destroy (glwthread_mutex_t *mutex); #ifdef __cplusplus } #endif #endif /* _WINDOWS_MUTEX_H */ libffcall-2.2/gnulib-lib/windows-mutex.c0000664000000000000000000000517713526533140015222 00000000000000/* Plain mutexes (native Windows implementation). Copyright (C) 2005-2019 Free Software Foundation, Inc. This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 3, or (at your option) any later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program; if not, see . */ /* Written by Bruno Haible , 2005. Based on GCC's gthr-win32.h. */ #include /* Specification. */ #include "windows-mutex.h" #include void glwthread_mutex_init (glwthread_mutex_t *mutex) { InitializeCriticalSection (&mutex->lock); mutex->guard.done = 1; } int glwthread_mutex_lock (glwthread_mutex_t *mutex) { if (!mutex->guard.done) { if (InterlockedIncrement (&mutex->guard.started) == 0) /* This thread is the first one to need this mutex. Initialize it. */ glwthread_mutex_init (mutex); else { /* Don't let mutex->guard.started grow and wrap around. */ InterlockedDecrement (&mutex->guard.started); /* Yield the CPU while waiting for another thread to finish initializing this mutex. */ while (!mutex->guard.done) Sleep (0); } } EnterCriticalSection (&mutex->lock); return 0; } int glwthread_mutex_trylock (glwthread_mutex_t *mutex) { if (!mutex->guard.done) { if (InterlockedIncrement (&mutex->guard.started) == 0) /* This thread is the first one to need this mutex. Initialize it. */ glwthread_mutex_init (mutex); else { /* Don't let mutex->guard.started grow and wrap around. */ InterlockedDecrement (&mutex->guard.started); /* Let another thread finish initializing this mutex, and let it also lock this mutex. */ return EBUSY; } } if (!TryEnterCriticalSection (&mutex->lock)) return EBUSY; return 0; } int glwthread_mutex_unlock (glwthread_mutex_t *mutex) { if (!mutex->guard.done) return EINVAL; LeaveCriticalSection (&mutex->lock); return 0; } int glwthread_mutex_destroy (glwthread_mutex_t *mutex) { if (!mutex->guard.done) return EINVAL; DeleteCriticalSection (&mutex->lock); mutex->guard.done = 0; return 0; } libffcall-2.2/gnulib-lib/limits.in.h0000664000000000000000000000740013416710527014276 00000000000000/* A GNU-like . Copyright 2016-2019 Free Software Foundation, Inc. This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 3, or (at your option) any later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program; if not, see . */ #ifndef _@GUARD_PREFIX@_LIMITS_H #if __GNUC__ >= 3 @PRAGMA_SYSTEM_HEADER@ #endif @PRAGMA_COLUMNS@ /* The include_next requires a split double-inclusion guard. */ #@INCLUDE_NEXT@ @NEXT_LIMITS_H@ #ifndef _@GUARD_PREFIX@_LIMITS_H #define _@GUARD_PREFIX@_LIMITS_H #ifndef LLONG_MIN # if defined LONG_LONG_MIN /* HP-UX 11.31 */ # define LLONG_MIN LONG_LONG_MIN # elif defined LONGLONG_MIN /* IRIX 6.5 */ # define LLONG_MIN LONGLONG_MIN # elif defined __GNUC__ # define LLONG_MIN (- __LONG_LONG_MAX__ - 1LL) # endif #endif #ifndef LLONG_MAX # if defined LONG_LONG_MAX /* HP-UX 11.31 */ # define LLONG_MAX LONG_LONG_MAX # elif defined LONGLONG_MAX /* IRIX 6.5 */ # define LLONG_MAX LONGLONG_MAX # elif defined __GNUC__ # define LLONG_MAX __LONG_LONG_MAX__ # endif #endif #ifndef ULLONG_MAX # if defined ULONG_LONG_MAX /* HP-UX 11.31 */ # define ULLONG_MAX ULONG_LONG_MAX # elif defined ULONGLONG_MAX /* IRIX 6.5 */ # define ULLONG_MAX ULONGLONG_MAX # elif defined __GNUC__ # define ULLONG_MAX (__LONG_LONG_MAX__ * 2ULL + 1ULL) # endif #endif /* The number of usable bits in an unsigned or signed integer type with minimum value MIN and maximum value MAX, as an int expression suitable in #if. Cover all known practical hosts. This implementation exploits the fact that MAX is 1 less than a power of 2, and merely counts the number of 1 bits in MAX; "COBn" means "count the number of 1 bits in the low-order n bits"). */ #define _GL_INTEGER_WIDTH(min, max) (((min) < 0) + _GL_COB128 (max)) #define _GL_COB128(n) (_GL_COB64 ((n) >> 31 >> 31 >> 2) + _GL_COB64 (n)) #define _GL_COB64(n) (_GL_COB32 ((n) >> 31 >> 1) + _GL_COB32 (n)) #define _GL_COB32(n) (_GL_COB16 ((n) >> 16) + _GL_COB16 (n)) #define _GL_COB16(n) (_GL_COB8 ((n) >> 8) + _GL_COB8 (n)) #define _GL_COB8(n) (_GL_COB4 ((n) >> 4) + _GL_COB4 (n)) #define _GL_COB4(n) (!!((n) & 8) + !!((n) & 4) + !!((n) & 2) + !!((n) & 1)) #ifndef WORD_BIT /* Assume 'int' is 32 bits wide. */ # define WORD_BIT 32 #endif #ifndef LONG_BIT /* Assume 'long' is 32 or 64 bits wide. */ # if LONG_MAX == INT_MAX # define LONG_BIT 32 # else # define LONG_BIT 64 # endif #endif /* Macros specified by ISO/IEC TS 18661-1:2014. */ #if (! defined ULLONG_WIDTH \ && (defined _GNU_SOURCE || defined __STDC_WANT_IEC_60559_BFP_EXT__)) # define CHAR_WIDTH _GL_INTEGER_WIDTH (CHAR_MIN, CHAR_MAX) # define SCHAR_WIDTH _GL_INTEGER_WIDTH (SCHAR_MIN, SCHAR_MAX) # define UCHAR_WIDTH _GL_INTEGER_WIDTH (0, UCHAR_MAX) # define SHRT_WIDTH _GL_INTEGER_WIDTH (SHRT_MIN, SHRT_MAX) # define USHRT_WIDTH _GL_INTEGER_WIDTH (0, USHRT_MAX) # define INT_WIDTH _GL_INTEGER_WIDTH (INT_MIN, INT_MAX) # define UINT_WIDTH _GL_INTEGER_WIDTH (0, UINT_MAX) # define LONG_WIDTH _GL_INTEGER_WIDTH (LONG_MIN, LONG_MAX) # define ULONG_WIDTH _GL_INTEGER_WIDTH (0, ULONG_MAX) # define LLONG_WIDTH _GL_INTEGER_WIDTH (LLONG_MIN, LLONG_MAX) # define ULLONG_WIDTH _GL_INTEGER_WIDTH (0, ULLONG_MAX) #endif /* !ULLONG_WIDTH && (_GNU_SOURCE || __STDC_WANT_IEC_60559_BFP_EXT__) */ #endif /* _@GUARD_PREFIX@_LIMITS_H */ #endif /* _@GUARD_PREFIX@_LIMITS_H */ libffcall-2.2/gnulib-lib/glthread/0000775000000000000000000000000013530357260014066 500000000000000libffcall-2.2/gnulib-lib/glthread/threadlib.c0000664000000000000000000000353713416710527016122 00000000000000/* Multithreading primitives. Copyright (C) 2005-2019 Free Software Foundation, Inc. This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 3, or (at your option) any later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program; if not, see . */ /* Written by Bruno Haible , 2005. */ #include /* ========================================================================= */ #if USE_POSIX_THREADS /* Use the POSIX threads library. */ # include # include # if PTHREAD_IN_USE_DETECTION_HARD /* The function to be executed by a dummy thread. */ static void * dummy_thread_func (void *arg) { return arg; } int glthread_in_use (void) { static int tested; static int result; /* 1: linked with -lpthread, 0: only with libc */ if (!tested) { pthread_t thread; if (pthread_create (&thread, NULL, dummy_thread_func, NULL) != 0) /* Thread creation failed. */ result = 0; else { /* Thread creation works. */ void *retval; if (pthread_join (thread, &retval) != 0) abort (); result = 1; } tested = 1; } return result; } # endif #endif /* ========================================================================= */ /* This declaration is solely to ensure that after preprocessing this file is never empty. */ typedef int dummy; libffcall-2.2/gnulib-lib/glthread/lock.c0000664000000000000000000003000713526533137015106 00000000000000/* Locking in multithreaded situations. Copyright (C) 2005-2019 Free Software Foundation, Inc. This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 3, or (at your option) any later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program; if not, see . */ /* Written by Bruno Haible , 2005. Based on GCC's gthr-posix.h, gthr-posix95.h. */ #include #include "glthread/lock.h" /* ========================================================================= */ #if USE_POSIX_THREADS /* -------------------------- gl_lock_t datatype -------------------------- */ /* ------------------------- gl_rwlock_t datatype ------------------------- */ # if HAVE_PTHREAD_RWLOCK && (HAVE_PTHREAD_RWLOCK_RDLOCK_PREFER_WRITER || (defined PTHREAD_RWLOCK_WRITER_NONRECURSIVE_INITIALIZER_NP && (__GNU_LIBRARY__ > 1))) # ifdef PTHREAD_RWLOCK_INITIALIZER # if !HAVE_PTHREAD_RWLOCK_RDLOCK_PREFER_WRITER /* glibc with bug https://sourceware.org/bugzilla/show_bug.cgi?id=13701 */ int glthread_rwlock_init_for_glibc (pthread_rwlock_t *lock) { pthread_rwlockattr_t attributes; int err; err = pthread_rwlockattr_init (&attributes); if (err != 0) return err; /* Note: PTHREAD_RWLOCK_PREFER_WRITER_NONRECURSIVE_NP is the only value that causes the writer to be preferred. PTHREAD_RWLOCK_PREFER_WRITER_NP does not do this; see http://man7.org/linux/man-pages/man3/pthread_rwlockattr_setkind_np.3.html */ err = pthread_rwlockattr_setkind_np (&attributes, PTHREAD_RWLOCK_PREFER_WRITER_NONRECURSIVE_NP); if (err == 0) err = pthread_rwlock_init(lock, &attributes); /* pthread_rwlockattr_destroy always returns 0. It cannot influence the return value. */ pthread_rwlockattr_destroy (&attributes); return err; } # endif # else int glthread_rwlock_init_multithreaded (gl_rwlock_t *lock) { int err; err = pthread_rwlock_init (&lock->rwlock, NULL); if (err != 0) return err; lock->initialized = 1; return 0; } int glthread_rwlock_rdlock_multithreaded (gl_rwlock_t *lock) { if (!lock->initialized) { int err; err = pthread_mutex_lock (&lock->guard); if (err != 0) return err; if (!lock->initialized) { err = glthread_rwlock_init_multithreaded (lock); if (err != 0) { pthread_mutex_unlock (&lock->guard); return err; } } err = pthread_mutex_unlock (&lock->guard); if (err != 0) return err; } return pthread_rwlock_rdlock (&lock->rwlock); } int glthread_rwlock_wrlock_multithreaded (gl_rwlock_t *lock) { if (!lock->initialized) { int err; err = pthread_mutex_lock (&lock->guard); if (err != 0) return err; if (!lock->initialized) { err = glthread_rwlock_init_multithreaded (lock); if (err != 0) { pthread_mutex_unlock (&lock->guard); return err; } } err = pthread_mutex_unlock (&lock->guard); if (err != 0) return err; } return pthread_rwlock_wrlock (&lock->rwlock); } int glthread_rwlock_unlock_multithreaded (gl_rwlock_t *lock) { if (!lock->initialized) return EINVAL; return pthread_rwlock_unlock (&lock->rwlock); } int glthread_rwlock_destroy_multithreaded (gl_rwlock_t *lock) { int err; if (!lock->initialized) return EINVAL; err = pthread_rwlock_destroy (&lock->rwlock); if (err != 0) return err; lock->initialized = 0; return 0; } # endif # else int glthread_rwlock_init_multithreaded (gl_rwlock_t *lock) { int err; err = pthread_mutex_init (&lock->lock, NULL); if (err != 0) return err; err = pthread_cond_init (&lock->waiting_readers, NULL); if (err != 0) return err; err = pthread_cond_init (&lock->waiting_writers, NULL); if (err != 0) return err; lock->waiting_writers_count = 0; lock->runcount = 0; return 0; } int glthread_rwlock_rdlock_multithreaded (gl_rwlock_t *lock) { int err; err = pthread_mutex_lock (&lock->lock); if (err != 0) return err; /* Test whether only readers are currently running, and whether the runcount field will not overflow, and whether no writer is waiting. The latter condition is because POSIX recommends that "write locks shall take precedence over read locks", to avoid "writer starvation". */ while (!(lock->runcount + 1 > 0 && lock->waiting_writers_count == 0)) { /* This thread has to wait for a while. Enqueue it among the waiting_readers. */ err = pthread_cond_wait (&lock->waiting_readers, &lock->lock); if (err != 0) { pthread_mutex_unlock (&lock->lock); return err; } } lock->runcount++; return pthread_mutex_unlock (&lock->lock); } int glthread_rwlock_wrlock_multithreaded (gl_rwlock_t *lock) { int err; err = pthread_mutex_lock (&lock->lock); if (err != 0) return err; /* Test whether no readers or writers are currently running. */ while (!(lock->runcount == 0)) { /* This thread has to wait for a while. Enqueue it among the waiting_writers. */ lock->waiting_writers_count++; err = pthread_cond_wait (&lock->waiting_writers, &lock->lock); if (err != 0) { lock->waiting_writers_count--; pthread_mutex_unlock (&lock->lock); return err; } lock->waiting_writers_count--; } lock->runcount--; /* runcount becomes -1 */ return pthread_mutex_unlock (&lock->lock); } int glthread_rwlock_unlock_multithreaded (gl_rwlock_t *lock) { int err; err = pthread_mutex_lock (&lock->lock); if (err != 0) return err; if (lock->runcount < 0) { /* Drop a writer lock. */ if (!(lock->runcount == -1)) { pthread_mutex_unlock (&lock->lock); return EINVAL; } lock->runcount = 0; } else { /* Drop a reader lock. */ if (!(lock->runcount > 0)) { pthread_mutex_unlock (&lock->lock); return EINVAL; } lock->runcount--; } if (lock->runcount == 0) { /* POSIX recommends that "write locks shall take precedence over read locks", to avoid "writer starvation". */ if (lock->waiting_writers_count > 0) { /* Wake up one of the waiting writers. */ err = pthread_cond_signal (&lock->waiting_writers); if (err != 0) { pthread_mutex_unlock (&lock->lock); return err; } } else { /* Wake up all waiting readers. */ err = pthread_cond_broadcast (&lock->waiting_readers); if (err != 0) { pthread_mutex_unlock (&lock->lock); return err; } } } return pthread_mutex_unlock (&lock->lock); } int glthread_rwlock_destroy_multithreaded (gl_rwlock_t *lock) { int err; err = pthread_mutex_destroy (&lock->lock); if (err != 0) return err; err = pthread_cond_destroy (&lock->waiting_readers); if (err != 0) return err; err = pthread_cond_destroy (&lock->waiting_writers); if (err != 0) return err; return 0; } # endif /* --------------------- gl_recursive_lock_t datatype --------------------- */ # if HAVE_PTHREAD_MUTEX_RECURSIVE # if defined PTHREAD_RECURSIVE_MUTEX_INITIALIZER || defined PTHREAD_RECURSIVE_MUTEX_INITIALIZER_NP int glthread_recursive_lock_init_multithreaded (gl_recursive_lock_t *lock) { pthread_mutexattr_t attributes; int err; err = pthread_mutexattr_init (&attributes); if (err != 0) return err; err = pthread_mutexattr_settype (&attributes, PTHREAD_MUTEX_RECURSIVE); if (err != 0) { pthread_mutexattr_destroy (&attributes); return err; } err = pthread_mutex_init (lock, &attributes); if (err != 0) { pthread_mutexattr_destroy (&attributes); return err; } err = pthread_mutexattr_destroy (&attributes); if (err != 0) return err; return 0; } # else int glthread_recursive_lock_init_multithreaded (gl_recursive_lock_t *lock) { pthread_mutexattr_t attributes; int err; err = pthread_mutexattr_init (&attributes); if (err != 0) return err; err = pthread_mutexattr_settype (&attributes, PTHREAD_MUTEX_RECURSIVE); if (err != 0) { pthread_mutexattr_destroy (&attributes); return err; } err = pthread_mutex_init (&lock->recmutex, &attributes); if (err != 0) { pthread_mutexattr_destroy (&attributes); return err; } err = pthread_mutexattr_destroy (&attributes); if (err != 0) return err; lock->initialized = 1; return 0; } int glthread_recursive_lock_lock_multithreaded (gl_recursive_lock_t *lock) { if (!lock->initialized) { int err; err = pthread_mutex_lock (&lock->guard); if (err != 0) return err; if (!lock->initialized) { err = glthread_recursive_lock_init_multithreaded (lock); if (err != 0) { pthread_mutex_unlock (&lock->guard); return err; } } err = pthread_mutex_unlock (&lock->guard); if (err != 0) return err; } return pthread_mutex_lock (&lock->recmutex); } int glthread_recursive_lock_unlock_multithreaded (gl_recursive_lock_t *lock) { if (!lock->initialized) return EINVAL; return pthread_mutex_unlock (&lock->recmutex); } int glthread_recursive_lock_destroy_multithreaded (gl_recursive_lock_t *lock) { int err; if (!lock->initialized) return EINVAL; err = pthread_mutex_destroy (&lock->recmutex); if (err != 0) return err; lock->initialized = 0; return 0; } # endif # else int glthread_recursive_lock_init_multithreaded (gl_recursive_lock_t *lock) { int err; err = pthread_mutex_init (&lock->mutex, NULL); if (err != 0) return err; lock->owner = (pthread_t) 0; lock->depth = 0; return 0; } int glthread_recursive_lock_lock_multithreaded (gl_recursive_lock_t *lock) { pthread_t self = pthread_self (); if (lock->owner != self) { int err; err = pthread_mutex_lock (&lock->mutex); if (err != 0) return err; lock->owner = self; } if (++(lock->depth) == 0) /* wraparound? */ { lock->depth--; return EAGAIN; } return 0; } int glthread_recursive_lock_unlock_multithreaded (gl_recursive_lock_t *lock) { if (lock->owner != pthread_self ()) return EPERM; if (lock->depth == 0) return EINVAL; if (--(lock->depth) == 0) { lock->owner = (pthread_t) 0; return pthread_mutex_unlock (&lock->mutex); } else return 0; } int glthread_recursive_lock_destroy_multithreaded (gl_recursive_lock_t *lock) { if (lock->owner != (pthread_t) 0) return EBUSY; return pthread_mutex_destroy (&lock->mutex); } # endif /* -------------------------- gl_once_t datatype -------------------------- */ static const pthread_once_t fresh_once = PTHREAD_ONCE_INIT; int glthread_once_singlethreaded (pthread_once_t *once_control) { /* We don't know whether pthread_once_t is an integer type, a floating-point type, a pointer type, or a structure type. */ char *firstbyte = (char *)once_control; if (*firstbyte == *(const char *)&fresh_once) { /* First time use of once_control. Invert the first byte. */ *firstbyte = ~ *(const char *)&fresh_once; return 1; } else return 0; } #endif /* ========================================================================= */ #if USE_WINDOWS_THREADS #endif /* ========================================================================= */ libffcall-2.2/gnulib-lib/glthread/lock.h0000664000000000000000000006406113526533137015122 00000000000000/* Locking in multithreaded situations. Copyright (C) 2005-2019 Free Software Foundation, Inc. This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 3, or (at your option) any later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program; if not, see . */ /* Written by Bruno Haible , 2005. Based on GCC's gthr-posix.h, gthr-posix95.h, gthr-win32.h. */ /* This file contains locking primitives for use with a given thread library. It does not contain primitives for creating threads or for other synchronization primitives. Normal (non-recursive) locks: Type: gl_lock_t Declaration: gl_lock_define(extern, name) Initializer: gl_lock_define_initialized(, name) Initialization: gl_lock_init (name); Taking the lock: gl_lock_lock (name); Releasing the lock: gl_lock_unlock (name); De-initialization: gl_lock_destroy (name); Equivalent functions with control of error handling: Initialization: err = glthread_lock_init (&name); Taking the lock: err = glthread_lock_lock (&name); Releasing the lock: err = glthread_lock_unlock (&name); De-initialization: err = glthread_lock_destroy (&name); Read-Write (non-recursive) locks: Type: gl_rwlock_t Declaration: gl_rwlock_define(extern, name) Initializer: gl_rwlock_define_initialized(, name) Initialization: gl_rwlock_init (name); Taking the lock: gl_rwlock_rdlock (name); gl_rwlock_wrlock (name); Releasing the lock: gl_rwlock_unlock (name); De-initialization: gl_rwlock_destroy (name); Equivalent functions with control of error handling: Initialization: err = glthread_rwlock_init (&name); Taking the lock: err = glthread_rwlock_rdlock (&name); err = glthread_rwlock_wrlock (&name); Releasing the lock: err = glthread_rwlock_unlock (&name); De-initialization: err = glthread_rwlock_destroy (&name); Recursive locks: Type: gl_recursive_lock_t Declaration: gl_recursive_lock_define(extern, name) Initializer: gl_recursive_lock_define_initialized(, name) Initialization: gl_recursive_lock_init (name); Taking the lock: gl_recursive_lock_lock (name); Releasing the lock: gl_recursive_lock_unlock (name); De-initialization: gl_recursive_lock_destroy (name); Equivalent functions with control of error handling: Initialization: err = glthread_recursive_lock_init (&name); Taking the lock: err = glthread_recursive_lock_lock (&name); Releasing the lock: err = glthread_recursive_lock_unlock (&name); De-initialization: err = glthread_recursive_lock_destroy (&name); Once-only execution: Type: gl_once_t Initializer: gl_once_define(extern, name) Execution: gl_once (name, initfunction); Equivalent functions with control of error handling: Execution: err = glthread_once (&name, initfunction); */ #ifndef _LOCK_H #define _LOCK_H #include #include #if !defined c11_threads_in_use # if HAVE_THREADS_H && USE_POSIX_THREADS_WEAK # include # pragma weak thrd_exit # define c11_threads_in_use() (thrd_exit != NULL) # else # define c11_threads_in_use() 0 # endif #endif /* ========================================================================= */ #if USE_POSIX_THREADS /* Use the POSIX threads library. */ # include # ifdef __cplusplus extern "C" { # endif # if PTHREAD_IN_USE_DETECTION_HARD /* The pthread_in_use() detection needs to be done at runtime. */ # define pthread_in_use() \ glthread_in_use () extern int glthread_in_use (void); # endif # if USE_POSIX_THREADS_WEAK /* Use weak references to the POSIX threads library. */ /* Weak references avoid dragging in external libraries if the other parts of the program don't use them. Here we use them, because we don't want every program that uses libintl to depend on libpthread. This assumes that libpthread would not be loaded after libintl; i.e. if libintl is loaded first, by an executable that does not depend on libpthread, and then a module is dynamically loaded that depends on libpthread, libintl will not be multithread-safe. */ /* The way to test at runtime whether libpthread is present is to test whether a function pointer's value, such as &pthread_mutex_init, is non-NULL. However, some versions of GCC have a bug through which, in PIC mode, &foo != NULL always evaluates to true if there is a direct call to foo(...) in the same function. To avoid this, we test the address of a function in libpthread that we don't use. */ # pragma weak pthread_mutex_init # pragma weak pthread_mutex_lock # pragma weak pthread_mutex_unlock # pragma weak pthread_mutex_destroy # pragma weak pthread_rwlock_init # pragma weak pthread_rwlock_rdlock # pragma weak pthread_rwlock_wrlock # pragma weak pthread_rwlock_unlock # pragma weak pthread_rwlock_destroy # pragma weak pthread_once # pragma weak pthread_cond_init # pragma weak pthread_cond_wait # pragma weak pthread_cond_signal # pragma weak pthread_cond_broadcast # pragma weak pthread_cond_destroy # pragma weak pthread_mutexattr_init # pragma weak pthread_mutexattr_settype # pragma weak pthread_mutexattr_destroy # pragma weak pthread_rwlockattr_init # if __GNU_LIBRARY__ > 1 # pragma weak pthread_rwlockattr_setkind_np # endif # pragma weak pthread_rwlockattr_destroy # ifndef pthread_self # pragma weak pthread_self # endif # if !PTHREAD_IN_USE_DETECTION_HARD /* Considering all platforms with USE_POSIX_THREADS_WEAK, only few symbols can be used to determine whether libpthread is in use. These are: pthread_mutexattr_gettype pthread_rwlockattr_destroy pthread_rwlockattr_init */ # pragma weak pthread_mutexattr_gettype # define pthread_in_use() \ (pthread_mutexattr_gettype != NULL || c11_threads_in_use ()) # endif # else # if !PTHREAD_IN_USE_DETECTION_HARD # define pthread_in_use() 1 # endif # endif /* -------------------------- gl_lock_t datatype -------------------------- */ typedef pthread_mutex_t gl_lock_t; # define gl_lock_define(STORAGECLASS, NAME) \ STORAGECLASS pthread_mutex_t NAME; # define gl_lock_define_initialized(STORAGECLASS, NAME) \ STORAGECLASS pthread_mutex_t NAME = gl_lock_initializer; # define gl_lock_initializer \ PTHREAD_MUTEX_INITIALIZER # define glthread_lock_init(LOCK) \ (pthread_in_use () ? pthread_mutex_init (LOCK, NULL) : 0) # define glthread_lock_lock(LOCK) \ (pthread_in_use () ? pthread_mutex_lock (LOCK) : 0) # define glthread_lock_unlock(LOCK) \ (pthread_in_use () ? pthread_mutex_unlock (LOCK) : 0) # define glthread_lock_destroy(LOCK) \ (pthread_in_use () ? pthread_mutex_destroy (LOCK) : 0) /* ------------------------- gl_rwlock_t datatype ------------------------- */ # if HAVE_PTHREAD_RWLOCK && (HAVE_PTHREAD_RWLOCK_RDLOCK_PREFER_WRITER || (defined PTHREAD_RWLOCK_WRITER_NONRECURSIVE_INITIALIZER_NP && (__GNU_LIBRARY__ > 1))) # ifdef PTHREAD_RWLOCK_INITIALIZER typedef pthread_rwlock_t gl_rwlock_t; # define gl_rwlock_define(STORAGECLASS, NAME) \ STORAGECLASS pthread_rwlock_t NAME; # define gl_rwlock_define_initialized(STORAGECLASS, NAME) \ STORAGECLASS pthread_rwlock_t NAME = gl_rwlock_initializer; # if HAVE_PTHREAD_RWLOCK_RDLOCK_PREFER_WRITER # define gl_rwlock_initializer \ PTHREAD_RWLOCK_INITIALIZER # define glthread_rwlock_init(LOCK) \ (pthread_in_use () ? pthread_rwlock_init (LOCK, NULL) : 0) # else /* glibc with bug https://sourceware.org/bugzilla/show_bug.cgi?id=13701 */ # define gl_rwlock_initializer \ PTHREAD_RWLOCK_WRITER_NONRECURSIVE_INITIALIZER_NP # define glthread_rwlock_init(LOCK) \ (pthread_in_use () ? glthread_rwlock_init_for_glibc (LOCK) : 0) extern int glthread_rwlock_init_for_glibc (pthread_rwlock_t *lock); # endif # define glthread_rwlock_rdlock(LOCK) \ (pthread_in_use () ? pthread_rwlock_rdlock (LOCK) : 0) # define glthread_rwlock_wrlock(LOCK) \ (pthread_in_use () ? pthread_rwlock_wrlock (LOCK) : 0) # define glthread_rwlock_unlock(LOCK) \ (pthread_in_use () ? pthread_rwlock_unlock (LOCK) : 0) # define glthread_rwlock_destroy(LOCK) \ (pthread_in_use () ? pthread_rwlock_destroy (LOCK) : 0) # else typedef struct { int initialized; pthread_mutex_t guard; /* protects the initialization */ pthread_rwlock_t rwlock; /* read-write lock */ } gl_rwlock_t; # define gl_rwlock_define(STORAGECLASS, NAME) \ STORAGECLASS gl_rwlock_t NAME; # define gl_rwlock_define_initialized(STORAGECLASS, NAME) \ STORAGECLASS gl_rwlock_t NAME = gl_rwlock_initializer; # define gl_rwlock_initializer \ { 0, PTHREAD_MUTEX_INITIALIZER } # define glthread_rwlock_init(LOCK) \ (pthread_in_use () ? glthread_rwlock_init_multithreaded (LOCK) : 0) # define glthread_rwlock_rdlock(LOCK) \ (pthread_in_use () ? glthread_rwlock_rdlock_multithreaded (LOCK) : 0) # define glthread_rwlock_wrlock(LOCK) \ (pthread_in_use () ? glthread_rwlock_wrlock_multithreaded (LOCK) : 0) # define glthread_rwlock_unlock(LOCK) \ (pthread_in_use () ? glthread_rwlock_unlock_multithreaded (LOCK) : 0) # define glthread_rwlock_destroy(LOCK) \ (pthread_in_use () ? glthread_rwlock_destroy_multithreaded (LOCK) : 0) extern int glthread_rwlock_init_multithreaded (gl_rwlock_t *lock); extern int glthread_rwlock_rdlock_multithreaded (gl_rwlock_t *lock); extern int glthread_rwlock_wrlock_multithreaded (gl_rwlock_t *lock); extern int glthread_rwlock_unlock_multithreaded (gl_rwlock_t *lock); extern int glthread_rwlock_destroy_multithreaded (gl_rwlock_t *lock); # endif # else typedef struct { pthread_mutex_t lock; /* protects the remaining fields */ pthread_cond_t waiting_readers; /* waiting readers */ pthread_cond_t waiting_writers; /* waiting writers */ unsigned int waiting_writers_count; /* number of waiting writers */ int runcount; /* number of readers running, or -1 when a writer runs */ } gl_rwlock_t; # define gl_rwlock_define(STORAGECLASS, NAME) \ STORAGECLASS gl_rwlock_t NAME; # define gl_rwlock_define_initialized(STORAGECLASS, NAME) \ STORAGECLASS gl_rwlock_t NAME = gl_rwlock_initializer; # define gl_rwlock_initializer \ { PTHREAD_MUTEX_INITIALIZER, PTHREAD_COND_INITIALIZER, PTHREAD_COND_INITIALIZER, 0, 0 } # define glthread_rwlock_init(LOCK) \ (pthread_in_use () ? glthread_rwlock_init_multithreaded (LOCK) : 0) # define glthread_rwlock_rdlock(LOCK) \ (pthread_in_use () ? glthread_rwlock_rdlock_multithreaded (LOCK) : 0) # define glthread_rwlock_wrlock(LOCK) \ (pthread_in_use () ? glthread_rwlock_wrlock_multithreaded (LOCK) : 0) # define glthread_rwlock_unlock(LOCK) \ (pthread_in_use () ? glthread_rwlock_unlock_multithreaded (LOCK) : 0) # define glthread_rwlock_destroy(LOCK) \ (pthread_in_use () ? glthread_rwlock_destroy_multithreaded (LOCK) : 0) extern int glthread_rwlock_init_multithreaded (gl_rwlock_t *lock); extern int glthread_rwlock_rdlock_multithreaded (gl_rwlock_t *lock); extern int glthread_rwlock_wrlock_multithreaded (gl_rwlock_t *lock); extern int glthread_rwlock_unlock_multithreaded (gl_rwlock_t *lock); extern int glthread_rwlock_destroy_multithreaded (gl_rwlock_t *lock); # endif /* --------------------- gl_recursive_lock_t datatype --------------------- */ # if HAVE_PTHREAD_MUTEX_RECURSIVE # if defined PTHREAD_RECURSIVE_MUTEX_INITIALIZER || defined PTHREAD_RECURSIVE_MUTEX_INITIALIZER_NP typedef pthread_mutex_t gl_recursive_lock_t; # define gl_recursive_lock_define(STORAGECLASS, NAME) \ STORAGECLASS pthread_mutex_t NAME; # define gl_recursive_lock_define_initialized(STORAGECLASS, NAME) \ STORAGECLASS pthread_mutex_t NAME = gl_recursive_lock_initializer; # ifdef PTHREAD_RECURSIVE_MUTEX_INITIALIZER # define gl_recursive_lock_initializer \ PTHREAD_RECURSIVE_MUTEX_INITIALIZER # else # define gl_recursive_lock_initializer \ PTHREAD_RECURSIVE_MUTEX_INITIALIZER_NP # endif # define glthread_recursive_lock_init(LOCK) \ (pthread_in_use () ? glthread_recursive_lock_init_multithreaded (LOCK) : 0) # define glthread_recursive_lock_lock(LOCK) \ (pthread_in_use () ? pthread_mutex_lock (LOCK) : 0) # define glthread_recursive_lock_unlock(LOCK) \ (pthread_in_use () ? pthread_mutex_unlock (LOCK) : 0) # define glthread_recursive_lock_destroy(LOCK) \ (pthread_in_use () ? pthread_mutex_destroy (LOCK) : 0) extern int glthread_recursive_lock_init_multithreaded (gl_recursive_lock_t *lock); # else typedef struct { pthread_mutex_t recmutex; /* recursive mutex */ pthread_mutex_t guard; /* protects the initialization */ int initialized; } gl_recursive_lock_t; # define gl_recursive_lock_define(STORAGECLASS, NAME) \ STORAGECLASS gl_recursive_lock_t NAME; # define gl_recursive_lock_define_initialized(STORAGECLASS, NAME) \ STORAGECLASS gl_recursive_lock_t NAME = gl_recursive_lock_initializer; # define gl_recursive_lock_initializer \ { PTHREAD_MUTEX_INITIALIZER, PTHREAD_MUTEX_INITIALIZER, 0 } # define glthread_recursive_lock_init(LOCK) \ (pthread_in_use () ? glthread_recursive_lock_init_multithreaded (LOCK) : 0) # define glthread_recursive_lock_lock(LOCK) \ (pthread_in_use () ? glthread_recursive_lock_lock_multithreaded (LOCK) : 0) # define glthread_recursive_lock_unlock(LOCK) \ (pthread_in_use () ? glthread_recursive_lock_unlock_multithreaded (LOCK) : 0) # define glthread_recursive_lock_destroy(LOCK) \ (pthread_in_use () ? glthread_recursive_lock_destroy_multithreaded (LOCK) : 0) extern int glthread_recursive_lock_init_multithreaded (gl_recursive_lock_t *lock); extern int glthread_recursive_lock_lock_multithreaded (gl_recursive_lock_t *lock); extern int glthread_recursive_lock_unlock_multithreaded (gl_recursive_lock_t *lock); extern int glthread_recursive_lock_destroy_multithreaded (gl_recursive_lock_t *lock); # endif # else /* Old versions of POSIX threads on Solaris did not have recursive locks. We have to implement them ourselves. */ typedef struct { pthread_mutex_t mutex; pthread_t owner; unsigned long depth; } gl_recursive_lock_t; # define gl_recursive_lock_define(STORAGECLASS, NAME) \ STORAGECLASS gl_recursive_lock_t NAME; # define gl_recursive_lock_define_initialized(STORAGECLASS, NAME) \ STORAGECLASS gl_recursive_lock_t NAME = gl_recursive_lock_initializer; # define gl_recursive_lock_initializer \ { PTHREAD_MUTEX_INITIALIZER, (pthread_t) 0, 0 } # define glthread_recursive_lock_init(LOCK) \ (pthread_in_use () ? glthread_recursive_lock_init_multithreaded (LOCK) : 0) # define glthread_recursive_lock_lock(LOCK) \ (pthread_in_use () ? glthread_recursive_lock_lock_multithreaded (LOCK) : 0) # define glthread_recursive_lock_unlock(LOCK) \ (pthread_in_use () ? glthread_recursive_lock_unlock_multithreaded (LOCK) : 0) # define glthread_recursive_lock_destroy(LOCK) \ (pthread_in_use () ? glthread_recursive_lock_destroy_multithreaded (LOCK) : 0) extern int glthread_recursive_lock_init_multithreaded (gl_recursive_lock_t *lock); extern int glthread_recursive_lock_lock_multithreaded (gl_recursive_lock_t *lock); extern int glthread_recursive_lock_unlock_multithreaded (gl_recursive_lock_t *lock); extern int glthread_recursive_lock_destroy_multithreaded (gl_recursive_lock_t *lock); # endif /* -------------------------- gl_once_t datatype -------------------------- */ typedef pthread_once_t gl_once_t; # define gl_once_define(STORAGECLASS, NAME) \ STORAGECLASS pthread_once_t NAME = PTHREAD_ONCE_INIT; # define glthread_once(ONCE_CONTROL, INITFUNCTION) \ (pthread_in_use () \ ? pthread_once (ONCE_CONTROL, INITFUNCTION) \ : (glthread_once_singlethreaded (ONCE_CONTROL) ? (INITFUNCTION (), 0) : 0)) extern int glthread_once_singlethreaded (pthread_once_t *once_control); # ifdef __cplusplus } # endif #endif /* ========================================================================= */ #if USE_WINDOWS_THREADS # define WIN32_LEAN_AND_MEAN /* avoid including junk */ # include # include "windows-mutex.h" # include "windows-rwlock.h" # include "windows-recmutex.h" # include "windows-once.h" # ifdef __cplusplus extern "C" { # endif /* We can use CRITICAL_SECTION directly, rather than the native Windows Event, Mutex, Semaphore types, because - we need only to synchronize inside a single process (address space), not inter-process locking, - we don't need to support trylock operations. (TryEnterCriticalSection does not work on Windows 95/98/ME. Packages that need trylock usually define their own mutex type.) */ /* There is no way to statically initialize a CRITICAL_SECTION. It needs to be done lazily, once only. For this we need spinlocks. */ /* -------------------------- gl_lock_t datatype -------------------------- */ typedef glwthread_mutex_t gl_lock_t; # define gl_lock_define(STORAGECLASS, NAME) \ STORAGECLASS gl_lock_t NAME; # define gl_lock_define_initialized(STORAGECLASS, NAME) \ STORAGECLASS gl_lock_t NAME = gl_lock_initializer; # define gl_lock_initializer \ GLWTHREAD_MUTEX_INIT # define glthread_lock_init(LOCK) \ (glwthread_mutex_init (LOCK), 0) # define glthread_lock_lock(LOCK) \ glwthread_mutex_lock (LOCK) # define glthread_lock_unlock(LOCK) \ glwthread_mutex_unlock (LOCK) # define glthread_lock_destroy(LOCK) \ glwthread_mutex_destroy (LOCK) /* ------------------------- gl_rwlock_t datatype ------------------------- */ typedef glwthread_rwlock_t gl_rwlock_t; # define gl_rwlock_define(STORAGECLASS, NAME) \ STORAGECLASS gl_rwlock_t NAME; # define gl_rwlock_define_initialized(STORAGECLASS, NAME) \ STORAGECLASS gl_rwlock_t NAME = gl_rwlock_initializer; # define gl_rwlock_initializer \ GLWTHREAD_RWLOCK_INIT # define glthread_rwlock_init(LOCK) \ (glwthread_rwlock_init (LOCK), 0) # define glthread_rwlock_rdlock(LOCK) \ glwthread_rwlock_rdlock (LOCK) # define glthread_rwlock_wrlock(LOCK) \ glwthread_rwlock_wrlock (LOCK) # define glthread_rwlock_unlock(LOCK) \ glwthread_rwlock_unlock (LOCK) # define glthread_rwlock_destroy(LOCK) \ glwthread_rwlock_destroy (LOCK) /* --------------------- gl_recursive_lock_t datatype --------------------- */ typedef glwthread_recmutex_t gl_recursive_lock_t; # define gl_recursive_lock_define(STORAGECLASS, NAME) \ STORAGECLASS gl_recursive_lock_t NAME; # define gl_recursive_lock_define_initialized(STORAGECLASS, NAME) \ STORAGECLASS gl_recursive_lock_t NAME = gl_recursive_lock_initializer; # define gl_recursive_lock_initializer \ GLWTHREAD_RECMUTEX_INIT # define glthread_recursive_lock_init(LOCK) \ (glwthread_recmutex_init (LOCK), 0) # define glthread_recursive_lock_lock(LOCK) \ glwthread_recmutex_lock (LOCK) # define glthread_recursive_lock_unlock(LOCK) \ glwthread_recmutex_unlock (LOCK) # define glthread_recursive_lock_destroy(LOCK) \ glwthread_recmutex_destroy (LOCK) /* -------------------------- gl_once_t datatype -------------------------- */ typedef glwthread_once_t gl_once_t; # define gl_once_define(STORAGECLASS, NAME) \ STORAGECLASS gl_once_t NAME = GLWTHREAD_ONCE_INIT; # define glthread_once(ONCE_CONTROL, INITFUNCTION) \ (glwthread_once (ONCE_CONTROL, INITFUNCTION), 0) # ifdef __cplusplus } # endif #endif /* ========================================================================= */ #if !(USE_POSIX_THREADS || USE_WINDOWS_THREADS) /* Provide dummy implementation if threads are not supported. */ /* -------------------------- gl_lock_t datatype -------------------------- */ typedef int gl_lock_t; # define gl_lock_define(STORAGECLASS, NAME) # define gl_lock_define_initialized(STORAGECLASS, NAME) # define glthread_lock_init(NAME) 0 # define glthread_lock_lock(NAME) 0 # define glthread_lock_unlock(NAME) 0 # define glthread_lock_destroy(NAME) 0 /* ------------------------- gl_rwlock_t datatype ------------------------- */ typedef int gl_rwlock_t; # define gl_rwlock_define(STORAGECLASS, NAME) # define gl_rwlock_define_initialized(STORAGECLASS, NAME) # define glthread_rwlock_init(NAME) 0 # define glthread_rwlock_rdlock(NAME) 0 # define glthread_rwlock_wrlock(NAME) 0 # define glthread_rwlock_unlock(NAME) 0 # define glthread_rwlock_destroy(NAME) 0 /* --------------------- gl_recursive_lock_t datatype --------------------- */ typedef int gl_recursive_lock_t; # define gl_recursive_lock_define(STORAGECLASS, NAME) # define gl_recursive_lock_define_initialized(STORAGECLASS, NAME) # define glthread_recursive_lock_init(NAME) 0 # define glthread_recursive_lock_lock(NAME) 0 # define glthread_recursive_lock_unlock(NAME) 0 # define glthread_recursive_lock_destroy(NAME) 0 /* -------------------------- gl_once_t datatype -------------------------- */ typedef int gl_once_t; # define gl_once_define(STORAGECLASS, NAME) \ STORAGECLASS gl_once_t NAME = 0; # define glthread_once(ONCE_CONTROL, INITFUNCTION) \ (*(ONCE_CONTROL) == 0 ? (*(ONCE_CONTROL) = ~ 0, INITFUNCTION (), 0) : 0) #endif /* ========================================================================= */ /* Macros with built-in error handling. */ /* -------------------------- gl_lock_t datatype -------------------------- */ #define gl_lock_init(NAME) \ do \ { \ if (glthread_lock_init (&NAME)) \ abort (); \ } \ while (0) #define gl_lock_lock(NAME) \ do \ { \ if (glthread_lock_lock (&NAME)) \ abort (); \ } \ while (0) #define gl_lock_unlock(NAME) \ do \ { \ if (glthread_lock_unlock (&NAME)) \ abort (); \ } \ while (0) #define gl_lock_destroy(NAME) \ do \ { \ if (glthread_lock_destroy (&NAME)) \ abort (); \ } \ while (0) /* ------------------------- gl_rwlock_t datatype ------------------------- */ #define gl_rwlock_init(NAME) \ do \ { \ if (glthread_rwlock_init (&NAME)) \ abort (); \ } \ while (0) #define gl_rwlock_rdlock(NAME) \ do \ { \ if (glthread_rwlock_rdlock (&NAME)) \ abort (); \ } \ while (0) #define gl_rwlock_wrlock(NAME) \ do \ { \ if (glthread_rwlock_wrlock (&NAME)) \ abort (); \ } \ while (0) #define gl_rwlock_unlock(NAME) \ do \ { \ if (glthread_rwlock_unlock (&NAME)) \ abort (); \ } \ while (0) #define gl_rwlock_destroy(NAME) \ do \ { \ if (glthread_rwlock_destroy (&NAME)) \ abort (); \ } \ while (0) /* --------------------- gl_recursive_lock_t datatype --------------------- */ #define gl_recursive_lock_init(NAME) \ do \ { \ if (glthread_recursive_lock_init (&NAME)) \ abort (); \ } \ while (0) #define gl_recursive_lock_lock(NAME) \ do \ { \ if (glthread_recursive_lock_lock (&NAME)) \ abort (); \ } \ while (0) #define gl_recursive_lock_unlock(NAME) \ do \ { \ if (glthread_recursive_lock_unlock (&NAME)) \ abort (); \ } \ while (0) #define gl_recursive_lock_destroy(NAME) \ do \ { \ if (glthread_recursive_lock_destroy (&NAME)) \ abort (); \ } \ while (0) /* -------------------------- gl_once_t datatype -------------------------- */ #define gl_once(NAME, INITFUNCTION) \ do \ { \ if (glthread_once (&NAME, INITFUNCTION)) \ abort (); \ } \ while (0) /* ========================================================================= */ #endif /* _LOCK_H */ libffcall-2.2/gnulib-lib/_Noreturn.h0000664000000000000000000000267313526533137014354 00000000000000/* A C macro for declaring that a function does not return. Copyright (C) 2011-2019 Free Software Foundation, Inc. This program is free software: you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 3 of the License, or (at your option) any later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program. If not, see . */ #ifndef _Noreturn # if (defined __cplusplus \ && ((201103 <= __cplusplus && !(__GNUC__ == 4 && __GNUC_MINOR__ == 7)) \ || (defined _MSC_VER && 1900 <= _MSC_VER))) # define _Noreturn [[noreturn]] # elif ((!defined __cplusplus || defined __clang__) \ && (201112 <= (defined __STDC_VERSION__ ? __STDC_VERSION__ : 0) \ || 4 < __GNUC__ + (7 <= __GNUC_MINOR__))) /* _Noreturn works as-is. */ # elif 2 < __GNUC__ + (8 <= __GNUC_MINOR__) || 0x5110 <= __SUNPRO_C # define _Noreturn __attribute__ ((__noreturn__)) # elif 1200 <= (defined _MSC_VER ? _MSC_VER : 0) # define _Noreturn __declspec (noreturn) # else # define _Noreturn # endif #endif libffcall-2.2/gnulib-lib/windows-rwlock.h0000664000000000000000000000507313526533140015361 00000000000000/* Read-write locks (native Windows implementation). Copyright (C) 2005-2019 Free Software Foundation, Inc. This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 3, or (at your option) any later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program; if not, see . */ /* Written by Bruno Haible , 2005. Based on GCC's gthr-win32.h. */ #ifndef _WINDOWS_RWLOCK_H #define _WINDOWS_RWLOCK_H #define WIN32_LEAN_AND_MEAN /* avoid including junk */ #include #include "windows-initguard.h" /* It is impossible to implement read-write locks using plain locks, without introducing an extra thread dedicated to managing read-write locks. Therefore here we need to use the low-level Event type. */ typedef struct { HANDLE *array; /* array of waiting threads, each represented by an event */ unsigned int count; /* number of waiting threads */ unsigned int alloc; /* length of allocated array */ unsigned int offset; /* index of first waiting thread in array */ } glwthread_carray_waitqueue_t; typedef struct { glwthread_initguard_t guard; /* protects the initialization */ CRITICAL_SECTION lock; /* protects the remaining fields */ glwthread_carray_waitqueue_t waiting_readers; /* waiting readers */ glwthread_carray_waitqueue_t waiting_writers; /* waiting writers */ int runcount; /* number of readers running, or -1 when a writer runs */ } glwthread_rwlock_t; #define GLWTHREAD_RWLOCK_INIT { GLWTHREAD_INITGUARD_INIT } #ifdef __cplusplus extern "C" { #endif extern void glwthread_rwlock_init (glwthread_rwlock_t *lock); extern int glwthread_rwlock_rdlock (glwthread_rwlock_t *lock); extern int glwthread_rwlock_wrlock (glwthread_rwlock_t *lock); extern int glwthread_rwlock_tryrdlock (glwthread_rwlock_t *lock); extern int glwthread_rwlock_trywrlock (glwthread_rwlock_t *lock); extern int glwthread_rwlock_unlock (glwthread_rwlock_t *lock); extern int glwthread_rwlock_destroy (glwthread_rwlock_t *lock); #ifdef __cplusplus } #endif #endif /* _WINDOWS_RWLOCK_H */ libffcall-2.2/gnulib-lib/windows-rwlock.c0000664000000000000000000002706413526533140015360 00000000000000/* Read-write locks (native Windows implementation). Copyright (C) 2005-2019 Free Software Foundation, Inc. This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 3, or (at your option) any later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program; if not, see . */ /* Written by Bruno Haible , 2005. Based on GCC's gthr-win32.h. */ #include /* Specification. */ #include "windows-rwlock.h" #include #include /* In this file, the waitqueues are implemented as circular arrays. */ #define glwthread_waitqueue_t glwthread_carray_waitqueue_t static void glwthread_waitqueue_init (glwthread_waitqueue_t *wq) { wq->array = NULL; wq->count = 0; wq->alloc = 0; wq->offset = 0; } /* Enqueues the current thread, represented by an event, in a wait queue. Returns INVALID_HANDLE_VALUE if an allocation failure occurs. */ static HANDLE glwthread_waitqueue_add (glwthread_waitqueue_t *wq) { HANDLE event; unsigned int index; if (wq->count == wq->alloc) { unsigned int new_alloc = 2 * wq->alloc + 1; HANDLE *new_array = (HANDLE *) realloc (wq->array, new_alloc * sizeof (HANDLE)); if (new_array == NULL) /* No more memory. */ return INVALID_HANDLE_VALUE; /* Now is a good opportunity to rotate the array so that its contents starts at offset 0. */ if (wq->offset > 0) { unsigned int old_count = wq->count; unsigned int old_alloc = wq->alloc; unsigned int old_offset = wq->offset; unsigned int i; if (old_offset + old_count > old_alloc) { unsigned int limit = old_offset + old_count - old_alloc; for (i = 0; i < limit; i++) new_array[old_alloc + i] = new_array[i]; } for (i = 0; i < old_count; i++) new_array[i] = new_array[old_offset + i]; wq->offset = 0; } wq->array = new_array; wq->alloc = new_alloc; } /* Whether the created event is a manual-reset one or an auto-reset one, does not matter, since we will wait on it only once. */ event = CreateEvent (NULL, TRUE, FALSE, NULL); if (event == INVALID_HANDLE_VALUE) /* No way to allocate an event. */ return INVALID_HANDLE_VALUE; index = wq->offset + wq->count; if (index >= wq->alloc) index -= wq->alloc; wq->array[index] = event; wq->count++; return event; } /* Notifies the first thread from a wait queue and dequeues it. */ static void glwthread_waitqueue_notify_first (glwthread_waitqueue_t *wq) { SetEvent (wq->array[wq->offset + 0]); wq->offset++; wq->count--; if (wq->count == 0 || wq->offset == wq->alloc) wq->offset = 0; } /* Notifies all threads from a wait queue and dequeues them all. */ static void glwthread_waitqueue_notify_all (glwthread_waitqueue_t *wq) { unsigned int i; for (i = 0; i < wq->count; i++) { unsigned int index = wq->offset + i; if (index >= wq->alloc) index -= wq->alloc; SetEvent (wq->array[index]); } wq->count = 0; wq->offset = 0; } void glwthread_rwlock_init (glwthread_rwlock_t *lock) { InitializeCriticalSection (&lock->lock); glwthread_waitqueue_init (&lock->waiting_readers); glwthread_waitqueue_init (&lock->waiting_writers); lock->runcount = 0; lock->guard.done = 1; } int glwthread_rwlock_rdlock (glwthread_rwlock_t *lock) { if (!lock->guard.done) { if (InterlockedIncrement (&lock->guard.started) == 0) /* This thread is the first one to need this lock. Initialize it. */ glwthread_rwlock_init (lock); else { /* Don't let lock->guard.started grow and wrap around. */ InterlockedDecrement (&lock->guard.started); /* Yield the CPU while waiting for another thread to finish initializing this lock. */ while (!lock->guard.done) Sleep (0); } } EnterCriticalSection (&lock->lock); /* Test whether only readers are currently running, and whether the runcount field will not overflow, and whether no writer is waiting. The latter condition is because POSIX recommends that "write locks shall take precedence over read locks", to avoid "writer starvation". */ if (!(lock->runcount + 1 > 0 && lock->waiting_writers.count == 0)) { /* This thread has to wait for a while. Enqueue it among the waiting_readers. */ HANDLE event = glwthread_waitqueue_add (&lock->waiting_readers); if (event != INVALID_HANDLE_VALUE) { DWORD result; LeaveCriticalSection (&lock->lock); /* Wait until another thread signals this event. */ result = WaitForSingleObject (event, INFINITE); if (result == WAIT_FAILED || result == WAIT_TIMEOUT) abort (); CloseHandle (event); /* The thread which signalled the event already did the bookkeeping: removed us from the waiting_readers, incremented lock->runcount. */ if (!(lock->runcount > 0)) abort (); return 0; } else { /* Allocation failure. Weird. */ do { LeaveCriticalSection (&lock->lock); Sleep (1); EnterCriticalSection (&lock->lock); } while (!(lock->runcount + 1 > 0)); } } lock->runcount++; LeaveCriticalSection (&lock->lock); return 0; } int glwthread_rwlock_wrlock (glwthread_rwlock_t *lock) { if (!lock->guard.done) { if (InterlockedIncrement (&lock->guard.started) == 0) /* This thread is the first one to need this lock. Initialize it. */ glwthread_rwlock_init (lock); else { /* Don't let lock->guard.started grow and wrap around. */ InterlockedDecrement (&lock->guard.started); /* Yield the CPU while waiting for another thread to finish initializing this lock. */ while (!lock->guard.done) Sleep (0); } } EnterCriticalSection (&lock->lock); /* Test whether no readers or writers are currently running. */ if (!(lock->runcount == 0)) { /* This thread has to wait for a while. Enqueue it among the waiting_writers. */ HANDLE event = glwthread_waitqueue_add (&lock->waiting_writers); if (event != INVALID_HANDLE_VALUE) { DWORD result; LeaveCriticalSection (&lock->lock); /* Wait until another thread signals this event. */ result = WaitForSingleObject (event, INFINITE); if (result == WAIT_FAILED || result == WAIT_TIMEOUT) abort (); CloseHandle (event); /* The thread which signalled the event already did the bookkeeping: removed us from the waiting_writers, set lock->runcount = -1. */ if (!(lock->runcount == -1)) abort (); return 0; } else { /* Allocation failure. Weird. */ do { LeaveCriticalSection (&lock->lock); Sleep (1); EnterCriticalSection (&lock->lock); } while (!(lock->runcount == 0)); } } lock->runcount--; /* runcount becomes -1 */ LeaveCriticalSection (&lock->lock); return 0; } int glwthread_rwlock_tryrdlock (glwthread_rwlock_t *lock) { if (!lock->guard.done) { if (InterlockedIncrement (&lock->guard.started) == 0) /* This thread is the first one to need this lock. Initialize it. */ glwthread_rwlock_init (lock); else { /* Don't let lock->guard.started grow and wrap around. */ InterlockedDecrement (&lock->guard.started); /* Yield the CPU while waiting for another thread to finish initializing this lock. */ while (!lock->guard.done) Sleep (0); } } /* It's OK to wait for this critical section, because it is never taken for a long time. */ EnterCriticalSection (&lock->lock); /* Test whether only readers are currently running, and whether the runcount field will not overflow, and whether no writer is waiting. The latter condition is because POSIX recommends that "write locks shall take precedence over read locks", to avoid "writer starvation". */ if (!(lock->runcount + 1 > 0 && lock->waiting_writers.count == 0)) { /* This thread would have to wait for a while. Return instead. */ LeaveCriticalSection (&lock->lock); return EBUSY; } lock->runcount++; LeaveCriticalSection (&lock->lock); return 0; } int glwthread_rwlock_trywrlock (glwthread_rwlock_t *lock) { if (!lock->guard.done) { if (InterlockedIncrement (&lock->guard.started) == 0) /* This thread is the first one to need this lock. Initialize it. */ glwthread_rwlock_init (lock); else { /* Don't let lock->guard.started grow and wrap around. */ InterlockedDecrement (&lock->guard.started); /* Yield the CPU while waiting for another thread to finish initializing this lock. */ while (!lock->guard.done) Sleep (0); } } /* It's OK to wait for this critical section, because it is never taken for a long time. */ EnterCriticalSection (&lock->lock); /* Test whether no readers or writers are currently running. */ if (!(lock->runcount == 0)) { /* This thread would have to wait for a while. Return instead. */ LeaveCriticalSection (&lock->lock); return EBUSY; } lock->runcount--; /* runcount becomes -1 */ LeaveCriticalSection (&lock->lock); return 0; } int glwthread_rwlock_unlock (glwthread_rwlock_t *lock) { if (!lock->guard.done) return EINVAL; EnterCriticalSection (&lock->lock); if (lock->runcount < 0) { /* Drop a writer lock. */ if (!(lock->runcount == -1)) abort (); lock->runcount = 0; } else { /* Drop a reader lock. */ if (!(lock->runcount > 0)) { LeaveCriticalSection (&lock->lock); return EPERM; } lock->runcount--; } if (lock->runcount == 0) { /* POSIX recommends that "write locks shall take precedence over read locks", to avoid "writer starvation". */ if (lock->waiting_writers.count > 0) { /* Wake up one of the waiting writers. */ lock->runcount--; glwthread_waitqueue_notify_first (&lock->waiting_writers); } else { /* Wake up all waiting readers. */ lock->runcount += lock->waiting_readers.count; glwthread_waitqueue_notify_all (&lock->waiting_readers); } } LeaveCriticalSection (&lock->lock); return 0; } int glwthread_rwlock_destroy (glwthread_rwlock_t *lock) { if (!lock->guard.done) return EINVAL; if (lock->runcount != 0) return EBUSY; DeleteCriticalSection (&lock->lock); if (lock->waiting_readers.array != NULL) free (lock->waiting_readers.array); if (lock->waiting_writers.array != NULL) free (lock->waiting_writers.array); lock->guard.done = 0; return 0; } libffcall-2.2/gnulib-lib/windows-initguard.h0000664000000000000000000000225513526533137016053 00000000000000/* Init guards, somewhat like spinlocks (native Windows implementation). Copyright (C) 2005-2019 Free Software Foundation, Inc. This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 3, or (at your option) any later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program; if not, see . */ /* Written by Bruno Haible , 2005. Based on GCC's gthr-win32.h. */ #ifndef _WINDOWS_INITGUARD_H #define _WINDOWS_INITGUARD_H #define WIN32_LEAN_AND_MEAN /* avoid including junk */ #include typedef struct { volatile int done; volatile LONG started; } glwthread_initguard_t; #define GLWTHREAD_INITGUARD_INIT { 0, -1 } #endif /* _WINDOWS_INITGUARD_H */ libffcall-2.2/gnulib-lib/windows-once.h0000664000000000000000000000254113526533140015001 00000000000000/* Once-only control (native Windows implementation). Copyright (C) 2005-2019 Free Software Foundation, Inc. This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 3, or (at your option) any later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program; if not, see . */ /* Written by Bruno Haible , 2005. Based on GCC's gthr-win32.h. */ #ifndef _WINDOWS_ONCE_H #define _WINDOWS_ONCE_H #define WIN32_LEAN_AND_MEAN /* avoid including junk */ #include typedef struct { volatile int inited; volatile LONG started; CRITICAL_SECTION lock; } glwthread_once_t; #define GLWTHREAD_ONCE_INIT { -1, -1 } #ifdef __cplusplus extern "C" { #endif extern void glwthread_once (glwthread_once_t *once_control, void (*initfunction) (void)); #ifdef __cplusplus } #endif #endif /* _WINDOWS_ONCE_H */ libffcall-2.2/ffcall-abi.h0000664000000000000000000002113213527104765012326 00000000000000/* * Copyright 2017-2019 Bruno Haible * * This program is free software: you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by * the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program. If not, see . */ /* Define some canonical CPU and ABI indicators. References: - host-cpu-c-abi.m4 from gnulib - https://sourceforge.net/p/predef/wiki/Architectures/ - GCC source code: definitions of macro TARGET_CPU_CPP_BUILTINS - clang source code: defineMacro invocations in Basic/Targets.cpp, especially in getTargetDefines methods. Limitation: Unlike host-cpu-c-abi.m4, this preprocessor-based approach can not reliably distinguish __arm__ and __armhf__. */ #ifndef __i386__ #if defined(__i386__) /* GCC, clang */ || defined(__i386) /* Sun C */ || defined(_M_IX86) /* MSVC */ #define __i386__ 1 #endif #endif #ifndef __m68k__ #if defined(__m68k__) /* GCC */ #define __m68k__ 1 #endif #endif /* On mips, there are three ABIs: - 32 or o32: It defines _MIPS_SIM == _ABIO32 and _MIPS_SZLONG == 32. - n32: It defines _MIPS_SIM == _ABIN32 and _MIPS_SZLONG == 32. - 64: It defines _MIPS_SZLONG == 64. */ /* Note: When __mipsn32__ or __mips64__ is defined, __mips__ may or may not be defined as well. To test for the MIPS o32 ABI, use #if defined(__mips__) && !defined(__mipsn32__) && !defined(__mips64__) */ /* To distinguish little-endian and big-endian arm, use the preprocessor defines _MIPSEB vs. _MIPSEL. */ #ifndef __mips__ #if defined(__mips) /* GCC, clang, IRIX cc */ /* Note: GCC, clang also define __mips__. */ #define __mips__ 1 #endif #endif #ifndef __mipsn32__ #if defined(__mips__) && (_MIPS_SIM == _ABIN32) #define __mipsn32__ 1 #endif #endif #ifndef __mips64__ #if defined(__mips__) && defined(_MIPS_SZLONG) && (_MIPS_SZLONG == 64) #define __mips64__ 1 #endif #endif /* Note: When __sparc64__ is defined, __sparc__ may or may not be defined as well. To test for the SPARC 32-bit ABI, use #if defined(__sparc__) && !defined(__sparc64__) */ #ifndef __sparc__ #if defined(__sparc) /* GCC, clang, Sun C */ /* Note: GCC, clang also define __sparc__. */ #define __sparc__ 1 #endif #endif #ifndef __sparc64__ #if defined(__sparcv9) /* GCC/Solaris, Sun C */ || defined(__arch64__) /* GCC/Linux */ #define __sparc64__ 1 #endif #endif #ifndef __alpha__ #if defined(__alpha) /* GCC, DEC C */ /* Note: GCC also defines __alpha__. */ #define __alpha__ 1 #endif #endif /* On hppa, the C compiler may be generating 32-bit code or 64-bit code. In the latter case, it defines _LP64 and __LP64__. */ /* Note: When __hppa64__ is defined, __hppa__ may or may not be defined as well. To test for the HP-PA 32-bit ABI, use #if defined(__hppa__) && !defined(__hppa64__) */ #ifndef __hppa__ #if defined(__hppa) /* GCC, HP C */ /* Note: GCC also defines __hppa__. */ #define __hppa__ 1 #endif #endif #ifndef __hppa64__ #if defined(__hppa__) && defined(__LP64__) #define __hppa64__ 1 #endif #endif /* Distinguish arm which passes floating-point arguments and return values in integer registers (r0, r1, ...) - this is gcc -mfloat-abi=soft or gcc -mfloat-abi=softfp - from arm which passes them in float registers (s0, s1, ...) and double registers (d0, d1, ...) - this is gcc -mfloat-abi=hard. GCC 4.6 or newer sets the preprocessor defines __ARM_PCS (for the first case) and __ARM_PCS_VFP (for the second case), but older GCC does not. */ /* Note: When __armhf__ is defined, __arm__ may or may not be defined as well. To test for the ARM ABI that does not use floating-point registers for parameter passing, use #if defined(__arm__) && !defined(__armhf__) */ /* To distinguish little-endian and big-endian arm, use the preprocessor defines __ARMEL__ vs. __ARMEB__. */ #ifndef __arm__ #if defined(__arm__) /* GCC, clang */ || defined(_M_ARM) /* MSVC */ #define __arm__ 1 #endif #endif #ifndef __armhf__ #if defined(__arm__) && defined(__ARM_PCS_VFP) /* GCC */ #define __armhf__ 1 #endif #endif /* On arm64 systems, the C compiler may be generating code in one of these ABIs: - aarch64 instruction set, 64-bit pointers, 64-bit 'long': arm64. - aarch64 instruction set, 32-bit pointers, 32-bit 'long': arm64-ilp32. - 32-bit instruction set, 32-bit pointers, 32-bit 'long': arm or armhf (see above). */ /* Note: When __arm64_ilp32__ is defined, __arm64__ may or may not be defined as well. To test for the arm64 64-bit ABI, use #if defined(__arm64__) && !defined(__arm64_ilp32__) */ /* To distinguish little-endian and big-endian arm64, use the preprocessor defines __AARCH64EL__ vs. __AARCH64EB__. */ #ifndef __arm64__ #if defined(__aarch64__) /* GCC, clang */ || defined(_M_ARM64) /* MSVC */ #define __arm64__ 1 #endif #endif #ifndef __arm64_ilp32__ #if defined(__arm64__) && (defined(__ILP32__) || defined (_ILP32)) #define __arm64_ilp32__ 1 #endif #endif /* On powerpc and powerpc64, different ABIs are in use on AIX vs. Mac OS X vs. Linux,*BSD. To distinguish them, use the OS dependent defines #if defined(_AIX) #if (defined(__MACH__) && defined(__APPLE__)) #if !(defined(_AIX) || (defined(__MACH__) && defined(__APPLE__))) */ /* On powerpc64, there are two ABIs on Linux: The AIX compatible one and the ELFv2 one. The latter defines _CALL_ELF=2. */ /* Note: When __powerpc64__ is defined, __powerpc__ may or may not be defined as well. To test for the SPARC 32-bit ABI, use #if defined(__powerpc__) && !defined(__powerpc64__) Note: When __powerpc64_elfv2__ is defined, __powerpc64__ may or may not be defined as well. To test for the SPARC 32-bit ABI, use #if defined(__powerpc64__) && !defined(__powerpc64_elfv2__) */ #ifndef __powerpc__ #if defined(_ARCH_PPC) /* GCC, XLC */ /* Note: On AIX, Linux also __powerpc__ is defined; whereas on Mac OS X also __ppc__ is defined. On AIX also _IBMR2 is defined. */ #define __powerpc__ 1 #endif #endif #ifndef __powerpc64__ #if defined(_ARCH_PPC64) /* GCC, XLC */ /* Note: On Linux, also __powerpc64__ is defined. */ #define __powerpc64__ 1 #endif #endif #ifndef __powerpc64_elfv2__ #if defined(__powerpc64__) && defined(_CALL_ELF) && _CALL_ELF == 2 #define __powerpc64_elfv2__ 1 #endif #endif /* On ia64 on HP-UX, the C compiler may be generating 64-bit code or 32-bit code. In the latter case, it defines _ILP32. */ /* Note: When __ia64_ilp32__ is defined, __ia64__ may or may not be defined as well. To test for the ia64 64-bit ABI, use #if defined(__ia64__) && !defined(__ia64_ilp32__) */ #ifndef __ia64__ #if defined(__ia64__) /* GCC, HP C */ /* Note: GCC, HP C also define __ia64. */ #define __ia64__ 1 #endif #endif #ifndef __ia64_ilp32__ #if defined(__ia64__) && defined(_ILP32) #define __ia64_ilp32__ 1 #endif #endif /* On x86_64 systems, the C compiler may be generating code in one of these ABIs: - 64-bit instruction set, 64-bit pointers, 64-bit 'long': x86_64. - 64-bit instruction set, 64-bit pointers, 32-bit 'long': x86_64 with native Windows (mingw, MSVC). - 64-bit instruction set, 32-bit pointers, 32-bit 'long': x86_64-x32. - 32-bit instruction set, 32-bit pointers, 32-bit 'long': i386 (see above). */ /* Note: When __x86_64_x32__ is defined, __x86_64__ may or may not be defined as well. To test for the x86_64 64-bit ABI, use #if defined(__x86_64__) && !defined(__x86_64_x32__) */ #ifndef __x86_64__ #if (defined(__x86_64__) || defined(__amd64__)) /* GCC, clang, Sun C */ || (defined(_M_X64) || defined(_M_AMD64)) /* MSVC */ #define __x86_64__ 1 #endif #endif #ifndef __x86_64_x32__ #if defined(__x86_64__) && (defined(__ILP32__) || defined(_ILP32)) #define __x86_64_x32__ 1 #endif #endif /* Note: When __s390x__ is defined, __s390__ may or may not be defined as well. To test for the S/390 31-bit ABI, use #if defined(__s390__) && !defined(__s390x__) */ #ifndef __s390__ #if defined(__s390__) /* GCC, clang */ #define __s390__ 1 #endif #endif #ifndef __s390x__ #if defined(__s390x__) /* GCC, clang */ #define __s390x__ 1 #endif #endif #ifndef __riscv32__ #if defined(__riscv) && __riscv_xlen == 32 && !defined(__LP64__) /* GCC */ #define __riscv32__ 1 #endif #endif #ifndef __riscv64__ #if defined(__riscv) && __riscv_xlen == 64 && defined(__LP64__) /* GCC */ #define __riscv64__ 1 #endif #endif libffcall-2.2/vacall/0000775000000000000000000000000013530357260011512 500000000000000libffcall-2.2/vacall/vacall-s390-linux.s0000664000000000000000000000364113530357113014712 00000000000000 .file "vacall-s390.c" .text .align 4 .globl vacall_receiver .type vacall_receiver,@function vacall_receiver: stm %r6,%r15,24(%r15) bras %r13,.LTN0_0 .LT0_0: .LC0: .long vacall_function .LC1: .long 0 .LC2: .long 255 .LC3: .long 65535 .LC4: .long 1 .LTN0_0: l %r1,.LC0-.LT0_0(%r13) lr %r14,%r15 ahi %r15,-184 lr %r11,%r15 l %r12,0(%r1) st %r14,0(%r15) la %r1,280(%r11) st %r2,132(%r11) la %r2,96(%r11) st %r4,140(%r11) st %r5,144(%r11) st %r6,148(%r11) st %r3,136(%r11) std %f2,176(%r11) std %f0,168(%r11) ste %f2,160(%r11) ste %f0,156(%r11) mvc 96(4,%r11),.LC1-.LT0_0(%r13) st %r1,112(%r11) mvc 116(4,%r11),.LC1-.LT0_0(%r13) mvc 120(4,%r11),.LC1-.LT0_0(%r13) mvc 128(4,%r11),.LC1-.LT0_0(%r13) mvc 152(4,%r11),.LC1-.LT0_0(%r13) basr %r14,%r12 icm %r4,15,120(%r11) je .L1 chi %r4,1 je .L43 chi %r4,2 je .L44 chi %r4,3 je .L43 chi %r4,4 je .L45 chi %r4,5 je .L46 chi %r4,6 je .L40 chi %r4,7 je .L40 chi %r4,8 je .L40 chi %r4,9 je .L40 lr %r1,%r4 ahi %r1,-10 cl %r1,.LC4-.LT0_0(%r13) jh .L22 l %r2,104(%r11) l %r3,108(%r11) .L1: l %r4,240(%r11) lm %r6,%r15,208(%r11) br %r4 .L22: chi %r4,12 je .L47 chi %r4,13 je .L48 chi %r4,14 je .L40 chi %r4,15 jne .L1 tm 98(%r11),4 je .L1 l %r1,124(%r11) chi %r1,1 je .L49 chi %r1,2 je .L50 chi %r1,4 je .L51 chi %r1,8 jne .L1 l %r1,116(%r11) l %r3,4(%r1) .L39: l %r2,0(%r1) j .L1 .L51: l %r1,116(%r11) j .L39 .L50: l %r1,116(%r11) lh %r4,0(%r1) lr %r2,%r4 .L41: n %r2,.LC3-.LT0_0(%r13) j .L1 .L49: l %r1,116(%r11) ic %r4,0(%r1) lr %r2,%r4 .L42: n %r2,.LC2-.LT0_0(%r13) j .L1 .L40: l %r2,104(%r11) j .L1 .L48: ld %f0,104(%r11) j .L1 .L47: le %f0,104(%r11) j .L1 .L46: lh %r1,104(%r11) lr %r2,%r1 j .L41 .L45: lh %r2,104(%r11) j .L1 .L43: ic %r1,104(%r11) lr %r2,%r1 j .L42 .L44: icm %r1,8,104(%r11) lr %r2,%r1 sra %r2,24 j .L1 .Lfe1: .size vacall_receiver,.Lfe1-vacall_receiver .ident "GCC: (GNU) 3.1" libffcall-2.2/vacall/vacall-m68k.motorola.S0000664000000000000000000000504213530357111015432 00000000000000#include "asm-m68k.h" .text .align 2 .globl C(vacall_receiver) DECLARE_FUNCTION(vacall_receiver) FUNBEGIN(vacall_receiver) link.w %a6,#-32 movm.l #0x3030,-(%sp) clr.l -32(%a6) lea (8,%a6),%a2 move.l %a2,-20(%a6) clr.l -16(%a6) clr.l -12(%a6) move.l %a1,-4(%a6) pea -32(%a6) move.l C(vacall_function),%a2 jbsr (%a2) addq.l #4,%sp move.l -12(%a6),%a3 tst.l %a3 jbeq L(1) moveq.l #1,%d2 cmp.l %a3,%d2 jbeq L(46) moveq.l #2,%d3 cmp.l %a3,%d3 jbeq L(46) moveq.l #3,%d2 cmp.l %a3,%d2 jbeq L(47) moveq.l #4,%d3 cmp.l %a3,%d3 jbeq L(48) moveq.l #5,%d2 cmp.l %a3,%d2 jbeq L(49) moveq.l #6,%d3 cmp.l %a3,%d3 jbeq L(45) moveq.l #7,%d2 cmp.l %a3,%d2 jbeq L(45) moveq.l #8,%d3 cmp.l %a3,%d3 jbeq L(45) moveq.l #9,%d2 cmp.l %a3,%d2 jbeq L(45) lea (-10,%a3),%a2 moveq.l #1,%d3 cmp.l %a2,%d3 jbcs L(22) move.l -28(%a6),%d0 move.l -24(%a6),%d1 jbra L(1) .align 2 L(22): moveq.l #12,%d2 cmp.l %a3,%d2 jbeq L(50) moveq.l #13,%d2 cmp.l %a3,%d2 jbeq L(51) moveq.l #14,%d3 cmp.l %a3,%d3 jbeq L(52) moveq.l #15,%d2 cmp.l %a3,%d2 jbne L(1) btst #2,-30(%a6) jbeq L(1) move.l -8(%a6),%d2 moveq.l #1,%d3 cmp.l %d2,%d3 jbeq L(53) moveq.l #2,%d3 cmp.l %d2,%d3 jbeq L(54) moveq.l #4,%d3 cmp.l %d2,%d3 jbeq L(55) moveq.l #8,%d3 cmp.l %d2,%d3 jbne L(1) move.l -16(%a6),%a2 move.l (%a2),%d0 move.l 4(%a2),%d1 jbra L(1) .align 2 L(55): move.l -16(%a6),%a2 move.l (%a2),%d0 jbra L(1) .align 2 L(54): move.l -16(%a6),%a2 clr.l %d0 move.w (%a2),%d0 jbra L(1) .align 2 L(53): move.l -16(%a6),%a2 clr.l %d0 move.b (%a2),%d0 jbra L(1) .align 2 L(52): move.l -28(%a6),%d0 move.l %d0,%a0 jbra L(1) .align 2 L(51): btst #6,-29(%a6) jbeq L(31) fmove.d -28(%a6),%fp0 jbra L(1) .align 2 L(31): move.l -28(%a6),%d0 move.l -24(%a6),%d1 jbra L(1) .align 2 L(50): move.l -32(%a6),%d2 btst #6,%d2 jbeq L(25) fmove.s -28(%a6),%fp0 jbra L(1) .align 2 L(25): btst #5,%d2 jbeq L(27) fmove.s -28(%a6),%fp1 fmove.d %fp1,-(%sp) move.l (%sp)+,%d0 move.l (%sp)+,%d1 jbra L(1) .align 2 L(27): move.l -28(%a6),%d0 jbra L(1) .align 2 L(45): move.l -28(%a6),%d0 jbra L(1) .align 2 L(49): clr.l %d0 move.w -28(%a6),%d0 jbra L(1) .align 2 L(48): move.w -28(%a6),%d0 ext.l %d0 jbra L(1) .align 2 L(47): clr.l %d0 move.b -28(%a6),%d0 jbra L(1) .align 2 L(46): move.b -28(%a6),%d0 extb.l %d0 L(1): movm.l -48(%a6),#0xc0c unlk %a6 rts L(fe1): FUNEND(vacall_receiver) #if defined __linux__ || defined __FreeBSD__ || defined __FreeBSD_kernel__ || defined __DragonFly__ .section .note.GNU-stack,"",@progbits #endif libffcall-2.2/vacall/vacall-mips64eb-linux.s0000664000000000000000000001163613530357111015646 00000000000000 .file 1 "vacall-mips64.c" .section .mdebug.abi64 .previous .nan legacy .module fp=64 .module oddspreg .abicalls .text .align 2 .align 3 .globl vacall_receiver .set nomips16 .set nomicromips .ent vacall_receiver .type vacall_receiver, @function vacall_receiver: .frame $fp,272,$31 # vars= 160, regs= 6/0, args= 0, gp= 0 .mask 0xd0070000,-72 .fmask 0x00000000,0 .set noreorder .set nomacro daddiu $sp,$sp,-272 sd $28,184($sp) lui $28,%hi(%neg(%gp_rel(vacall_receiver))) daddu $28,$28,$25 daddiu $28,$28,%lo(%neg(%gp_rel(vacall_receiver))) ld $12,%got_disp(vacall_function)($28) sd $fp,192($sp) move $fp,$sp ld $25,0($12) daddiu $12,$fp,208 sd $31,200($sp) sd $18,176($sp) sd $17,168($sp) sd $16,160($sp) sd $4,208($fp) sd $5,216($fp) sd $6,224($fp) sd $7,232($fp) sd $8,240($fp) sd $9,248($fp) sd $10,256($fp) sd $11,264($fp) sdc1 $f12,96($fp) sdc1 $f13,104($fp) sdc1 $f14,112($fp) sdc1 $f15,120($fp) sdc1 $f16,128($fp) sdc1 $f17,136($fp) sdc1 $f18,144($fp) sdc1 $f19,152($fp) swc1 $f12,60($fp) swc1 $f13,64($fp) swc1 $f14,68($fp) swc1 $f15,72($fp) swc1 $f16,76($fp) swc1 $f17,80($fp) swc1 $f18,84($fp) swc1 $f19,88($fp) move $4,$fp sw $0,0($fp) sd $12,24($fp) sd $0,32($fp) sw $0,40($fp) jalr $25 sw $0,56($fp) lw $12,40($fp) beq $12,$0,.L1 li $13,1 # 0x1 beq $12,$13,.L43 li $13,2 # 0x2 beq $12,$13,.L43 li $13,3 # 0x3 beq $12,$13,.L46 li $13,4 # 0x4 beq $12,$13,.L47 li $13,5 # 0x5 beq $12,$13,.L48 li $13,6 # 0x6 beq $12,$13,.L49 li $13,7 # 0x7 beq $12,$13,.L50 li $13,8 # 0x8 beq $12,$13,.L44 li $13,9 # 0x9 beq $12,$13,.L44 li $13,10 # 0xa beq $12,$13,.L44 li $13,11 # 0xb beq $12,$13,.L44 li $13,12 # 0xc beq $12,$13,.L51 li $13,13 # 0xd beq $12,$13,.L52 li $13,14 # 0xe beq $12,$13,.L44 li $13,15 # 0xf bnel $12,$13,.L58 move $sp,$fp lw $12,0($fp) andi $13,$12,0x400 beq $13,$0,.L1 andi $13,$12,0x4 beq $13,$0,.L19 ld $14,48($fp) ld $12,48($fp) li $13,1 # 0x1 beq $12,$13,.L53 li $13,2 # 0x2 beq $12,$13,.L54 li $13,4 # 0x4 beq $12,$13,.L55 li $13,8 # 0x8 bnel $12,$13,.L58 move $sp,$fp ld $12,32($fp) ld $2,0($12) .L1: move $sp,$fp .L58: ld $31,200($sp) ld $fp,192($sp) ld $28,184($sp) ld $18,176($sp) ld $17,168($sp) ld $16,160($sp) j $31 daddiu $sp,$sp,272 .align 3 .L43: move $sp,$fp ld $31,200($sp) ld $28,184($sp) ld $18,176($sp) ld $17,168($sp) ld $16,160($sp) lb $2,8($fp) ld $fp,192($sp) j $31 daddiu $sp,$sp,272 .align 3 .L44: b .L1 ld $2,8($fp) .align 3 .L46: b .L1 lbu $2,8($fp) .align 3 .L47: b .L1 lh $2,8($fp) .align 3 .L48: b .L1 lhu $2,8($fp) .align 3 .L49: b .L1 lw $2,8($fp) .align 3 .L51: b .L1 lwc1 $f0,8($fp) .align 3 .L50: b .L1 lwu $2,8($fp) .L52: b .L1 ldc1 $f0,8($fp) .L19: daddiu $13,$14,-1 sltu $13,$13,16 beql $13,$0,.L59 andi $13,$12,0x800 ld $13,32($fp) li $24,-8 # 0xfffffffffffffff8 sltu $25,$14,9 andi $15,$13,0x7 and $24,$13,$24 beq $25,$0,.L24 daddu $13,$14,$15 sltu $25,$13,9 sll $13,$13,0 beq $25,$0,.L25 subu $13,$0,$13 ld $25,0($24) sll $13,$13,3 li $24,-1 # 0xffffffffffffffff dsll $13,$24,$13 and $13,$13,$25 sll $15,$15,3 dsll $2,$13,$15 .L23: andi $13,$12,0x800 .L59: beql $13,$0,.L27 andi $12,$12,0x1000 li $13,4 # 0x4 beq $14,$13,.L56 li $13,8 # 0x8 beql $14,$13,.L57 ld $13,32($fp) andi $12,$12,0x1000 beql $12,$0,.L58 move $sp,$fp li $12,16 # 0x10 .L60: bnel $14,$12,.L58 move $sp,$fp ld $12,32($fp) ldc1 $f0,0($12) b .L1 ldc1 $f2,8($12) .L27: beq $12,$0,.L1 li $12,8 # 0x8 bne $14,$12,.L60 li $12,16 # 0x10 ld $13,32($fp) b .L1 ldc1 $f0,0($13) .L24: sltu $25,$13,17 beq $25,$0,.L26 sll $13,$13,0 ld $18,8($24) subu $13,$0,$13 move $16,$15 li $25,-1 # 0xffffffffffffffff subu $15,$0,$15 sll $13,$13,3 dsll $13,$25,$13 ld $17,0($24) sll $25,$15,2 addiu $24,$25,32 and $13,$13,$18 sll $15,$16,3 dsra $25,$13,$24 dsll $16,$17,$15 dsra $24,$25,$24 or $2,$16,$24 b .L23 dsll $3,$13,$15 .L53: ld $12,32($fp) b .L1 lbu $2,0($12) .L54: ld $12,32($fp) b .L1 lhu $2,0($12) .L26: ld $18,16($24) subu $13,$0,$13 ld $16,8($24) ld $17,0($24) subu $25,$0,$15 sll $13,$13,3 li $24,-1 # 0xffffffffffffffff dsll $24,$24,$13 sll $25,$25,3 sll $15,$15,3 addiu $25,$25,64 and $13,$24,$18 dsra $13,$13,$25 dsll $24,$17,$15 dsra $17,$16,$25 dsll $15,$16,$15 or $2,$24,$17 b .L23 or $3,$13,$15 .L56: ld $12,32($fp) b .L1 lwc1 $f0,0($12) .L55: ld $12,32($fp) b .L1 lwu $2,0($12) .L25: ld $16,8($24) ld $25,0($24) sll $13,$13,3 li $24,-1 # 0xffffffffffffffff dsll $13,$24,$13 subu $24,$0,$15 and $13,$13,$16 sll $24,$24,3 sll $15,$15,3 dsra $13,$13,$24 dsll $15,$25,$15 b .L23 or $2,$13,$15 .L57: andi $12,$12,0x1000 lwc1 $f0,0($13) beq $12,$0,.L1 lwc1 $f2,4($13) b .L1 ldc1 $f0,0($13) .set macro .set reorder .end vacall_receiver .size vacall_receiver, .-vacall_receiver .ident "GCC: (GNU) 5.4.0" libffcall-2.2/vacall/vacall-mipsel-macro.S0000664000000000000000000000721113530357111015402 00000000000000#include "asm-mips.h" .file 1 "vacall-mips.c" .text .align 2 .globl vacall_receiver .set nomips16 .set nomicromips .ent vacall_receiver DECLARE_FUNCTION(vacall_receiver) vacall_receiver: .frame $fp,104,$31 .mask 0xc0000000,-4 .fmask 0x00000000,0 .set noreorder .cpload $25 .set reorder addiu $sp,$sp,-104 sw $fp,96($sp) move $fp,$sp sw $31,100($sp) la $8,vacall_function sw $4,104($fp) lw $25,0($8) addiu $4,$fp,104 sw $4,40($fp) addiu $4,$fp,120 sw $4,56($fp) .cprestore 16 addiu $4,$fp,24 sw $5,108($fp) sw $6,112($fp) sw $7,116($fp) sdc1 $f12,80($fp) sdc1 $f14,88($fp) swc1 $f12,68($fp) swc1 $f14,72($fp) sw $0,24($fp) sw $0,44($fp) sw $0,48($fp) sw $0,60($fp) sw $0,64($fp) jal $25 lw $4,48($fp) .set noreorder .set nomacro beq $4,$0,$L1 li $5,1 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,$L23 li $5,2 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,$L23 li $5,3 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,$L29 li $5,4 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,$L30 li $5,5 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,$L31 li $5,6 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,$L27 li $5,7 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,$L27 li $5,8 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,$L27 li $5,9 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,$L27 addiu $5,$4,-10 .set macro .set reorder sltu $5,$5,2 .set noreorder .set nomacro bne $5,$0,$L32 li $5,12 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,$L33 li $5,13 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,$L34 li $5,14 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,$L27 li $5,15 .set macro .set reorder .set noreorder .set nomacro bnel $4,$5,$L37 move $sp,$fp .set macro .set reorder lw $4,24($fp) andi $4,$4,0x2 .set noreorder .set nomacro beql $4,$0,$L38 lw $2,44($fp) .set macro .set reorder lw $4,52($fp) li $5,1 .set noreorder .set nomacro beql $4,$5,$L35 lw $4,44($fp) .set macro .set reorder li $5,2 .set noreorder .set nomacro beq $4,$5,$L36 li $5,4 .set macro .set reorder .set noreorder .set nomacro bnel $4,$5,$L37 move $sp,$fp .set macro .set reorder lw $4,44($fp) lw $2,0($4) $L1: $L38: move $sp,$fp $L37: lw $31,100($sp) lw $fp,96($sp) .set noreorder .set nomacro j $31 addiu $sp,$sp,104 .set macro .set reorder $L23: move $sp,$fp lw $31,100($sp) lb $2,32($fp) lw $fp,96($sp) .set noreorder .set nomacro j $31 addiu $sp,$sp,104 .set macro .set reorder $L27: move $sp,$fp lw $31,100($sp) lw $2,32($fp) lw $fp,96($sp) .set noreorder .set nomacro j $31 addiu $sp,$sp,104 .set macro .set reorder $L29: .set noreorder .set nomacro b $L1 lbu $2,32($fp) .set macro .set reorder $L30: .set noreorder .set nomacro b $L1 lh $2,32($fp) .set macro .set reorder $L31: .set noreorder .set nomacro b $L1 lhu $2,32($fp) .set macro .set reorder $L34: .set noreorder .set nomacro b $L1 ldc1 $f0,32($fp) .set macro .set reorder $L32: lw $2,32($fp) .set noreorder .set nomacro b $L1 lw $3,36($fp) .set macro .set reorder $L33: .set noreorder .set nomacro b $L1 lwc1 $f0,32($fp) .set macro .set reorder $L35: .set noreorder .set nomacro b $L1 lbu $2,0($4) .set macro .set reorder $L36: lw $4,44($fp) .set noreorder .set nomacro b $L1 lhu $2,0($4) .set macro .set reorder .end vacall_receiver .size vacall_receiver, .-vacall_receiver libffcall-2.2/vacall/vacall-armhf-linux.s0000664000000000000000000000520013530357112015301 00000000000000 .arch armv6 .eabi_attribute 28, 1 .eabi_attribute 20, 1 .eabi_attribute 21, 1 .eabi_attribute 23, 3 .eabi_attribute 24, 1 .eabi_attribute 25, 1 .eabi_attribute 26, 1 .eabi_attribute 30, 2 .eabi_attribute 34, 1 .eabi_attribute 18, 4 .file "vacall-armhf.c" .text .align 2 .global vacall_receiver .syntax unified .arm .fpu vfpv3-d16 .type vacall_receiver, %function vacall_receiver: @ args = 20, pretend = 16, frame = 176 @ frame_needed = 1, uses_anonymous_args = 0 sub sp, sp, #16 mov ip, #0 push {r4, r5, fp, lr} add fp, sp, #12 ldr r4, .L32 add lr, fp, #4 add r5, fp, #20 sub sp, sp, #176 stm lr, {r0, r1, r2, r3} vstr.32 s0, [fp, #-144] vstr.32 s1, [fp, #-140] vstr.32 s2, [fp, #-136] vstr.32 s3, [fp, #-132] vstr.32 s4, [fp, #-128] vstr.32 s5, [fp, #-124] vstr.32 s6, [fp, #-120] vstr.32 s7, [fp, #-116] vstr.32 s8, [fp, #-112] vstr.32 s9, [fp, #-108] vstr.32 s10, [fp, #-104] vstr.32 s11, [fp, #-100] vstr.32 s12, [fp, #-96] vstr.32 s13, [fp, #-92] vstr.32 s14, [fp, #-88] vstr.32 s15, [fp, #-84] vstr.64 d0, [fp, #-76] vstr.64 d1, [fp, #-68] vstr.64 d2, [fp, #-60] vstr.64 d3, [fp, #-52] vstr.64 d4, [fp, #-44] vstr.64 d5, [fp, #-36] vstr.64 d6, [fp, #-28] vstr.64 d7, [fp, #-20] str lr, [fp, #-156] str ip, [fp, #-188] sub r0, fp, #188 str ip, [fp, #-152] ldr r3, [r4] str r5, [fp, #-172] str ip, [fp, #-148] str ip, [fp, #-168] strb ip, [fp, #-164] blx r3 ldrb r3, [fp, #-164] @ zero_extendqisi2 cmp r3, #0 beq .L1 cmp r3, #1 beq .L25 cmp r3, #2 ldrsbeq r0, [fp, #-180] beq .L1 cmp r3, #3 beq .L25 cmp r3, #4 ldrsheq r0, [fp, #-180] beq .L1 cmp r3, #5 ldrheq r0, [fp, #-180] beq .L1 cmp r3, #6 beq .L27 cmp r3, #7 beq .L27 cmp r3, #8 beq .L27 cmp r3, #9 beq .L27 sub r2, r3, #10 cmp r2, #1 bls .L29 cmp r3, #12 vldreq.32 s0, [fp, #-180] beq .L1 cmp r3, #13 beq .L30 cmp r3, #14 beq .L27 cmp r3, #15 bne .L1 ldr r3, [fp, #-188] tst r3, #1024 beq .L1 ldr r3, [fp, #-160] cmp r3, #1 beq .L31 cmp r3, #2 ldr r3, [fp, #-168] ldrheq r0, [r3] ldrne r0, [r3] .L1: sub sp, fp, #12 @ sp needed pop {r4, r5, fp, lr} add sp, sp, #16 bx lr .L25: ldrb r0, [fp, #-180] @ zero_extendqisi2 sub sp, fp, #12 @ sp needed pop {r4, r5, fp, lr} add sp, sp, #16 bx lr .L27: ldr r0, [fp, #-180] sub sp, fp, #12 @ sp needed pop {r4, r5, fp, lr} add sp, sp, #16 bx lr .L30: vldr.64 d0, [fp, #-180] b .L1 .L29: ldr r0, [fp, #-180] ldr r1, [fp, #-176] b .L1 .L31: ldr r3, [fp, #-168] ldrb r0, [r3] @ zero_extendqisi2 b .L1 .L33: .align 2 .L32: .word vacall_function .size vacall_receiver, .-vacall_receiver .ident "GCC: (GNU) 6.3.0" .section .note.GNU-stack,"",%progbits libffcall-2.2/vacall/vacall-armhf.c0000664000000000000000000001441213347755334014147 00000000000000/* vacall function for arm CPU with -mfloat-abi=hard */ /* * Copyright 1995-2017 Bruno Haible * * This program is free software: you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by * the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program. If not, see . */ #include "vacall-internal.h" #ifdef REENTRANT #define vacall_receiver callback_receiver typedef struct { void (*vacall_function) (void*,va_alist); void* arg; } env_t; #endif /* armhf passes up to 16 float arguments and up to 8 double arguments in floating-point registers. */ register float farg0 __asm__("s0"); register float farg1 __asm__("s1"); register float farg2 __asm__("s2"); register float farg3 __asm__("s3"); register float farg4 __asm__("s4"); register float farg5 __asm__("s5"); register float farg6 __asm__("s6"); register float farg7 __asm__("s7"); register float farg8 __asm__("s8"); register float farg9 __asm__("s9"); register float farg10 __asm__("s10"); register float farg11 __asm__("s11"); register float farg12 __asm__("s12"); register float farg13 __asm__("s13"); register float farg14 __asm__("s14"); register float farg15 __asm__("s15"); register double darg0 __asm__("d0"); /* overlaps s0,s1 */ register double darg1 __asm__("d1"); /* overlaps s2,s3 */ register double darg2 __asm__("d2"); /* overlaps s4,s5 */ register double darg3 __asm__("d3"); /* overlaps s6,s7 */ register double darg4 __asm__("d4"); /* overlaps s8,s9 */ register double darg5 __asm__("d5"); /* overlaps s10,s11 */ register double darg6 __asm__("d6"); /* overlaps s12,s13 */ register double darg7 __asm__("d7"); /* overlaps s14,s15 */ register __vaword iret __asm__("r0"); register __vaword iret2 __asm__("r1"); register float fret __asm__("s0"); register double dret __asm__("d0"); #ifndef REENTRANT /* The ARM ABI requires that the first 4 general-purpose argument words are being passed in registers, even if these words belong to a struct. No room is allocated for these register words on the stack by the caller, but the callee allocates room for them - at the right place in the stack frame, that is, above the usual {fp, sp, retaddr, pc} combo - if and only if they are part of a larger struct that extends to the stack and the address of this struct is taken. */ struct gpargsequence { __vaword word1; /* r0 */ __vaword word2; /* r1 */ __vaword word3; /* r2 */ __vaword word4; /* r3 */ __vaword firststackword; }; #ifdef REENTRANT static #endif void /* the return type is variable, not void! */ vacall_receiver (struct gpargsequence gpargs) #else /* REENTRANT */ /* The first 4 general-purpose argument words have already been pushed to the stack by the trampoline. We can ignore them here. */ void /* the return type is variable, not void! */ vacall_receiver (__vaword ignored1, __vaword ignored2, __vaword ignored3, __vaword ignored4, env_t* env, __vaword filler, __vaword saved_fp, __vaword saved_sp, __vaword saved_lr, __vaword saved_pc, __vaword firstword) #endif { __va_alist list; /* Save the floating point argument registers. */ list.farg[0] = farg0; list.farg[1] = farg1; list.farg[2] = farg2; list.farg[3] = farg3; list.farg[4] = farg4; list.farg[5] = farg5; list.farg[6] = farg6; list.farg[7] = farg7; list.farg[8] = farg8; list.farg[9] = farg9; list.farg[10] = farg10; list.farg[11] = farg11; list.farg[12] = farg12; list.farg[13] = farg13; list.farg[14] = farg14; list.farg[15] = farg15; list.darg[0] = darg0; list.darg[1] = darg1; list.darg[2] = darg2; list.darg[3] = darg3; list.darg[4] = darg4; list.darg[5] = darg5; list.darg[6] = darg6; list.darg[7] = darg7; /* Prepare the va_alist. */ list.flags = 0; #ifndef REENTRANT list.iarg = (__vaword*)&gpargs; #else /* REENTRANT */ list.iarg = (__vaword*)&firstword; #endif list.aptr = (long)(list.iarg + __VA_IARG_NUM); list.ianum = 0; list.fanum = 0; list.raddr = (void*)0; list.rtype = __VAvoid; /* Call vacall_function. The macros do all the rest. */ #ifndef REENTRANT (*vacall_function) (&list); #else /* REENTRANT */ (*env->vacall_function) (env->arg,&list); #endif /* Put return value into proper register. */ if (list.rtype == __VAvoid) { } else if (list.rtype == __VAchar) { iret = list.tmp._char; } else if (list.rtype == __VAschar) { iret = list.tmp._schar; } else if (list.rtype == __VAuchar) { iret = list.tmp._uchar; } else if (list.rtype == __VAshort) { iret = list.tmp._short; } else if (list.rtype == __VAushort) { iret = list.tmp._ushort; } else if (list.rtype == __VAint) { iret = list.tmp._int; } else if (list.rtype == __VAuint) { iret = list.tmp._uint; } else if (list.rtype == __VAlong) { iret = list.tmp._long; } else if (list.rtype == __VAulong) { iret = list.tmp._ulong; } else if (list.rtype == __VAlonglong || list.rtype == __VAulonglong) { iret = ((__vaword *) &list.tmp._longlong)[0]; iret2 = ((__vaword *) &list.tmp._longlong)[1]; } else if (list.rtype == __VAfloat) { fret = list.tmp._float; } else if (list.rtype == __VAdouble) { dret = list.tmp._double; } else if (list.rtype == __VAvoidp) { iret = (long)list.tmp._ptr; } else if (list.rtype == __VAstruct) { /* NB: On arm, all structure sizes are divisible by 4. */ if (list.flags & __VA_REGISTER_STRUCT_RETURN) { if (list.rsize == sizeof(char)) { /* can't occur */ iret = *(unsigned char *) list.raddr; } else if (list.rsize == sizeof(short)) { /* can't occur */ iret = *(unsigned short *) list.raddr; } else iret = *(unsigned int *) list.raddr; /* struct of size 3 :) */ } } } #ifdef REENTRANT __vacall_r_t callback_get_receiver (void) { return (__vacall_r_t)(void*)&callback_receiver; } #endif libffcall-2.2/vacall/vacall-powerpc-macos.s0000664000000000000000000000400713530357112015632 00000000000000.text .align 2 .globl _vacall_receiver _vacall_receiver: mflr r0 stmw r29,-12(r1) bcl 20,31,L1$pb L1$pb: stw r0,8(r1) mflr r31 stwu r1,-224(r1) addis r29,r31,ha16(L_vacall_function$non_lazy_ptr-L1$pb) li r11,0 lwz r29,lo16(L_vacall_function$non_lazy_ptr-L1$pb)(r29) mr r30,r1 addi r0,r30,248 stw r3,248(r30) lwz r29,0(r29) addi r3,r30,64 stw r9,272(r30) stw r5,256(r30) mtctr r29 stw r6,260(r30) stw r7,264(r30) stw r8,268(r30) stw r10,276(r30) stw r0,80(r30) stw r11,96(r30) stw r4,252(r30) stfd f1,100(r30) stfd f2,108(r30) stfd f3,116(r30) stfd f4,124(r30) stfd f5,132(r30) stfd f6,140(r30) stfd f7,148(r30) stfd f8,156(r30) stfd f9,164(r30) stfd f10,172(r30) stfd f11,180(r30) stfd f12,188(r30) stfd f13,196(r30) stw r11,64(r30) stw r11,84(r30) stw r11,88(r30) bctrl lwz r9,88(r30) cmpwi cr0,r9,0 beq- cr0,L1 cmpwi cr0,r9,1 beq- cr0,L41 cmpwi cr0,r9,2 beq- cr0,L41 cmpwi cr0,r9,3 beq- cr0,L42 cmpwi cr0,r9,4 beq- cr0,L43 cmpwi cr0,r9,5 beq- cr0,L44 cmpwi cr0,r9,6 beq- cr0,L40 cmpwi cr0,r9,7 beq- cr0,L40 cmpwi cr0,r9,8 beq- cr0,L40 cmpwi cr0,r9,9 beq- cr0,L40 addi r0,r9,-10 cmplwi cr0,r0,1 bgt- cr0,L22 lwz r3,72(r30) lwz r4,76(r30) L1: lwz r1,0(r1) lwz r0,8(r1) lmw r29,-12(r1) mtlr r0 blr L22: cmpwi cr0,r9,12 beq- cr0,L45 cmpwi cr0,r9,13 beq- cr0,L46 cmpwi cr0,r9,14 beq- cr0,L40 cmpwi cr0,r9,15 bne+ cr0,L1 lwz r0,64(r30) andi. r9,r0,1024 beq- cr0,L1 lwz r0,92(r30) cmpwi cr0,r0,1 beq- cr0,L47 cmpwi cr0,r0,2 beq- cr0,L48 cmpwi cr0,r0,4 beq- cr0,L49 cmpwi cr0,r0,8 bne+ cr0,L1 lwz r9,84(r30) lwz r4,4(r9) L39: lwz r3,0(r9) b L1 L49: lwz r9,84(r30) b L39 L48: lwz r9,84(r30) lhz r3,0(r9) b L1 L47: lwz r9,84(r30) lbz r3,0(r9) b L1 L40: lwz r3,72(r30) b L1 L46: lfd f1,72(r30) b L1 L45: lfs f1,72(r30) b L1 L44: lhz r3,72(r30) b L1 L43: lha r3,72(r30) b L1 L42: lbz r3,72(r30) b L1 L41: lbz r0,72(r30) extsb r3,r0 b L1 .data .non_lazy_symbol_pointer L_vacall_function$non_lazy_ptr: .indirect_symbol _vacall_function .long 0 libffcall-2.2/vacall/vacall-i386.c0000664000000000000000000001245413347755335013550 00000000000000/* vacall function for i386 CPU */ /* * Copyright 1995-2017 Bruno Haible * * This program is free software: you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by * the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program. If not, see . */ #include "vacall-internal.h" #ifdef REENTRANT #define vacall_receiver callback_receiver typedef struct { void (*vacall_function) (void*,va_alist); void* arg; } env_t; register env_t* env __asm__("%ecx"); #endif register void* sp __asm__("%esp"); register void* sret __asm__("%ebx"); register int iret __asm__("%eax"); #ifdef REENTRANT static #endif void /* the return type is variable, not void! */ vacall_receiver (__vaword firstword) { __va_alist list; /* Prepare the va_alist. */ list.flags = 0; list.aptr = (long)&firstword; list.raddr = (void*)0; list.rtype = __VAvoid; list.structraddr = sret; /* Call vacall_function. The macros do all the rest. */ #ifndef REENTRANT (*vacall_function) (&list); #else /* REENTRANT */ (*env->vacall_function) (env->arg,&list); #endif /* Put return value into proper register. */ if (list.rtype == __VAvoid) { } else if (list.rtype == __VAchar) { iret = list.tmp._char; } else if (list.rtype == __VAschar) { iret = list.tmp._schar; } else if (list.rtype == __VAuchar) { iret = list.tmp._uchar; } else if (list.rtype == __VAshort) { iret = list.tmp._short; } else if (list.rtype == __VAushort) { iret = list.tmp._ushort; } else if (list.rtype == __VAint) { iret = list.tmp._int; } else if (list.rtype == __VAuint) { iret = list.tmp._uint; } else if (list.rtype == __VAlong) { iret = list.tmp._long; } else if (list.rtype == __VAulong) { iret = list.tmp._ulong; } else if (list.rtype == __VAlonglong || list.rtype == __VAulonglong) { /* This code is EXTREMELY fragile!! */ /* It depends on the register allocation chosen by gcc. */ iret = ((__vaword *) &list.tmp._longlong)[0]; asm volatile ("movl %0,%%edx" : : "g"(((__vaword *) &list.tmp._longlong)[1])); } else if (list.rtype == __VAfloat) { asm volatile ("flds %0": : "m"(list.tmp._float)); } else if (list.rtype == __VAdouble) { asm volatile ("fldl %0": : "m"(list.tmp._double)); } else if (list.rtype == __VAvoidp) { iret = (long)list.tmp._ptr; } else if (list.rtype == __VAstruct) { if (list.flags & __VA_REGISTER_STRUCT_RETURN) { if (list.rsize == sizeof(char)) { iret = *(unsigned char *) list.raddr; goto done; } else if (list.rsize == sizeof(short)) { iret = *(unsigned short *) list.raddr; goto done; } else if (list.rsize == sizeof(int)) { iret = *(unsigned int *) list.raddr; goto done; } else if (list.rsize == 2*sizeof(__vaword)) { /* This code is EXTREMELY fragile!! */ /* It depends on the register allocation chosen by gcc. */ iret = ((__vaword *) list.raddr)[0]; asm volatile ("movl %0,%%edx" : : "g"(((__vaword *) list.raddr)[1])); goto done; } } /* On MSVC and on FreeBSD, must put the structure address into %eax. For the other platforms, it does not matter, but doesn't hurt either. */ iret = (long) list.raddr; if (!(list.flags & __VA_MSVC_STRUCT_RETURN)) { /* We have to pop the struct return address off the stack. */ /* Callers compiled with -fomit-frame-pointer expect this. */ /* Return via a "ret $4" instruction. */ /* NOTE: This is EXTREMELY fragile. We must use the same return sequence * as the one generated by GCC, except that we use a "ret $4" instruction * in place of the "ret" instruction. Look at the 'pushl' instructions * at the beginning of the generated code and at the sequence of * instructions right before the generated "ret" instruction. */ #ifdef REENTRANT asm volatile ("leal -8(%ebp), %esp"); asm volatile ("popl %esi"); asm volatile ("popl %edi"); asm volatile ("leave"); #else asm volatile ("leal -4(%ebp), %esp"); asm volatile ("popl %esi"); asm volatile ("leave"); #endif asm volatile ("ret $4"); /*NOTREACHED*/ } done: ; } if (list.flags & __VA_STDCALL_CLEANUP) { /* Return, and at the same time pop the arguments off the stack. */ /* Normally done through a "ret $n" instruction. */ /* Be careful not to clobber %eax and %edx. Only %ecx can be used. */ /* Use *__builtin_frame_address(0), since __builtin_return_address(0) * is buggy in gcc-2.7.2. */ asm volatile ("movl %0,%%ecx" : : "g" (*(void**)__builtin_frame_address(0))); sp = (void*)list.aptr; asm volatile ("jmp *%ecx"); /*NOTREACHED*/ } } #ifdef REENTRANT __vacall_r_t callback_get_receiver (void) { return (__vacall_r_t)(void*)&callback_receiver; } #endif libffcall-2.2/vacall/vacall-internal.h0000664000000000000000000014142713530354702014666 00000000000000/* * Copyright 1995-2019 Bruno Haible * * This program is free software: you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by * the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program. If not, see . */ #ifndef _VACALL_INTERNAL_H #define _VACALL_INTERNAL_H /* Get intptr_t, uintptr_t. */ #include "ffcall-stdint.h" /* Include the public definitions, */ #ifndef REENTRANT #include "vacall.h" #else #include "vacall_r.h" #endif /* The platform indicator symbols (__i386__, etc.) come from - "config.h" when compiling vacall-libapi.c, - the GCC command line options when compiling vacall-$(CPU).c. */ /* These two variants of powerpc ABIs are quite different. */ #if defined(__powerpc__) && !defined(__powerpc64__) #if defined(_AIX) || (defined(__MACH__) && defined(__APPLE__)) #define __powerpc_aix__ 1 #else #define __powerpc_sysv4__ 1 #endif #endif /* The Unix and Windows variants of x86_64 ABIs are quite different. */ #if defined(__x86_64__) #if defined(_WIN32) || defined(__CYGWIN__) #define __x86_64_ms__ 1 #else #define __x86_64_sysv__ 1 #endif #endif /* Max # words in temporary structure storage. */ #ifndef __VA_ALIST_WORDS #define __VA_ALIST_WORDS 256 #endif /* * Definition of the ‘__va_alist’ type. */ /* Note: This struct must not contain members of type 'long' or 'unsigned long', because in the mingw port we use precompiled code that assumes 'long' is 64-bit whereas avcall-libapi.c is then compiled by a compiler that has a 32-bit 'long' type. */ typedef struct vacall_alist { /* some va_... macros need these flags */ int flags; /* temporary storage for return value */ #if defined(__i386__) || defined(__arm__) || defined(__armhf__) || (defined(__powerpc__) && !defined(__powerpc64__) && defined(__MACH__) && defined(__APPLE__)) /* Filler word, needed if the numbers of words up to now in this structure */ /* is odd. */ /* - On MSVC, alignof(double) = 8, but normally on i386 it is = 4. */ /* - On ARM, GCC 3.1 produces code for an ABI where alignof(double) = 4 */ /* and alignof(long long) = 4. But in the newer AAPCS ABI, these */ /* alignments are 8. */ /* - On Mac OS X, the Apple compiler has alignof(double) = 8 whereas the */ /* standard GCC has alignof(double) = 4. */ __vaword filler1; #endif union { char _char; signed char _schar; unsigned char _uchar; short _short; unsigned short _ushort; int _int; unsigned int _uint; long _long; unsigned long _ulong; #if !(defined(__mips64__) || defined(__sparc64__) || defined(__alpha__) || defined(__hppa64__) || defined(__arm64__) || defined(__powerpc64__) || defined(__ia64__) || defined(__riscv64__)) long long _longlong; unsigned long long _ulonglong; #endif float _float; double _double; void* _ptr; __vaword _words[2]; } tmp; /* current pointer into the argument array */ uintptr_t aptr; /* structure return pointer, return type, return type size */ void* raddr; enum __VAtype rtype; uintptr_t rsize; #if defined(__i386__) || defined(__m68k__) || (defined(__sparc__) && !defined(__sparc64__)) || defined(__hppa__) || defined(__hppa64__) || defined(__arm64__) || defined(__ia64__) void* structraddr; #endif #if (defined(__mips__) && !defined(__mipsn32__) && !defined(__mips64__)) || defined(__alpha__) || defined(__hppa__) || defined(__hppa64__) uintptr_t memargptr; #endif #if defined(__alpha__) long farg_offset; double farg[6]; #endif #if defined(__hppa__) && !defined(__hppa64__) long farg_offset; long darg_offset; float farg[4]; double darg[2]; #endif #if defined(__mips__) && !defined(__mipsn32__) && !defined(__mips64__) unsigned int anum; #define __VA_FARG_NUM 2 unsigned int fanum; float farg[__VA_FARG_NUM]; double darg[__VA_FARG_NUM]; #endif #if defined(__mipsn32__) || defined(__mips64__) int anum; #define __VA_FARG_NUM 8 float farg[__VA_FARG_NUM]; double darg[__VA_FARG_NUM]; #endif #if defined(__sparc64__) int anum; float farg[16]; double darg[16]; #endif #if defined(__hppa64__) #define __VA_FARG_NUM 8 float farg[__VA_FARG_NUM]; double darg[__VA_FARG_NUM]; #endif #if defined(__armhf__) #define __VA_IARG_NUM 4 /* The first __AV_IARG_NUM integer arguments are passed in registers, even if some floating-point arguments have already been allocated on the stack. */ __vaword* iarg; unsigned int ianum; unsigned int fanum; float farg[16]; double darg[8]; #endif #if defined(__arm64__) #define __VA_IARG_NUM 8 unsigned int ianum; __vaword iarg[__VA_IARG_NUM]; #define __VA_FARG_NUM 8 unsigned int fanum; float farg[__VA_FARG_NUM]; double darg[__VA_FARG_NUM]; #endif #if defined(__powerpc__) || defined(__powerpc64__) #if defined(__powerpc_sysv4__) #define __VA_IARG_NUM 8 unsigned int ianum; __vaword iarg[__VA_IARG_NUM]; #define __VA_FARG_NUM 8 #else #define __VA_FARG_NUM 13 #endif unsigned int fanum; double farg[__VA_FARG_NUM]; #endif #if defined(__ia64__) __vaword* saptr; #define __VA_FARG_NUM 8 unsigned int fanum; double farg[__VA_FARG_NUM]; #endif #if defined(__x86_64_sysv__) #define __VA_FARG_NUM 8 unsigned int fanum; double farg[__VA_FARG_NUM]; #define __VA_IARG_NUM 6 unsigned int ianum; __vaword iarg[__VA_IARG_NUM]; #endif #if defined(__x86_64_ms__) int anum; #define __VA_FARG_NUM 4 float farg[__VA_FARG_NUM]; double darg[__VA_FARG_NUM]; #endif #if defined(__s390__) && !defined(__s390x__) #define __VA_IARG_NUM 5 unsigned int ianum; __vaword iarg[5]; #define __VA_FARG_NUM 2 unsigned int fanum; float farg[__VA_FARG_NUM]; double darg[__VA_FARG_NUM]; #endif #if defined(__s390x__) #define __VA_IARG_NUM 5 unsigned int ianum; __vaword iarg[__VA_IARG_NUM]; #define __VA_FARG_NUM 4 unsigned int fanum; float farg[__VA_FARG_NUM]; double darg[__VA_FARG_NUM]; #endif #if defined(__riscv32__) || defined(__riscv64__) #define __VA_IARG_NUM 8 unsigned int ianum; __vaword iarg[__VA_IARG_NUM]; /* Note: iarg[7] == ((__vaword *) (initial aptr))[-1]. */ #define __VA_FARG_NUM 8 unsigned int fanum; float farg[__VA_FARG_NUM]; double darg[__VA_FARG_NUM]; #endif } __va_alist; /* Avoid macro redefinition warnings on DragonFly BSD. */ #undef __va_start #undef __va_arg /* * Definition of the va_start_xxx macros. */ #define __va_start(LIST,RETTYPE,FLAGS) \ ((LIST)->flags = (FLAGS), \ (LIST)->rtype = (RETTYPE) \ ) /* * va_start_struct: Preparing structure return. */ #define __va_start_struct(LIST,TYPE_SIZE,TYPE_ALIGN,TYPE_SPLITTABLE,FLAGS) \ (__va_start(LIST,__VAstruct,FLAGS), \ (LIST)->rsize = (TYPE_SIZE), \ ((LIST)->flags & __VA_SUNPROCC_STRUCT_RETURN \ ? __va_start_struct2(LIST) \ : ((LIST)->flags & __VA_SUNCC_STRUCT_RETURN \ ? ((TYPE_SIZE) <= sizeof(vacall_struct_buffer) || (vacall_error_struct_too_large(TYPE_SIZE), 0), \ (LIST)->raddr = &vacall_struct_buffer, \ 0 \ ) \ : (((LIST)->flags & __VA_SMALL_STRUCT_RETURN) \ && __va_reg_struct_return(LIST,TYPE_SIZE,TYPE_SPLITTABLE) \ ? ((LIST)->raddr = &(LIST)->tmp, \ __va_start_struct1(LIST,TYPE_SIZE,TYPE_ALIGN,TYPE_SPLITTABLE) \ ) \ : __va_start_struct2(LIST) \ )) ) ) /* Determines whether a structure is returned in registers, * depending on its size and its word-splittable flag. */ #if (defined(__i386__) && defined(_WIN32)) #define __va_reg_struct_return(LIST,TYPE_SIZE,TYPE_SPLITTABLE) \ ((TYPE_SIZE) == 1 || (TYPE_SIZE) == 2 || (TYPE_SIZE) == 4 \ || ((TYPE_SIZE) == 8 \ && (((LIST)->flags & __VA_MSVC_STRUCT_RETURN) \ || ((TYPE_SPLITTABLE) \ && ((LIST)->flags & __VA_GCC_STRUCT_RETURN) \ ) ) ) ) /* Turn on __VA_REGISTER_STRUCT_RETURN if __VA_SMALL_STRUCT_RETURN was set * and the struct will actually be returned in registers. */ #define __va_start_struct1(LIST,TYPE_SIZE,TYPE_ALIGN,TYPE_SPLITTABLE) \ ((LIST)->flags |= __VA_REGISTER_STRUCT_RETURN, 0) #endif #if (defined(__i386__) && !defined(_WIN32)) || defined(__m68k__) || (defined(__powerpc__) && !defined(__powerpc64__)) || (defined(__s390__) && !defined(__s390x__)) #define __va_reg_struct_return(LIST,TYPE_SIZE,TYPE_SPLITTABLE) \ ((TYPE_SIZE) == 1 || (TYPE_SIZE) == 2 || (TYPE_SIZE) == 4 \ || ((TYPE_SIZE) == 8 && (TYPE_SPLITTABLE) \ && ((LIST)->flags & __VA_GCC_STRUCT_RETURN) \ ) ) /* Turn on __VA_REGISTER_STRUCT_RETURN if __VA_SMALL_STRUCT_RETURN was set * and the struct will actually be returned in registers. */ #define __va_start_struct1(LIST,TYPE_SIZE,TYPE_ALIGN,TYPE_SPLITTABLE) \ ((LIST)->flags |= __VA_REGISTER_STRUCT_RETURN, 0) #endif #if defined(__arm__) || defined(__armhf__) /* structs of size 3 also will be returned in register */ #define __va_reg_struct_return(LIST,TYPE_SIZE,TYPE_SPLITTABLE) \ ((TYPE_SIZE) <= 4) /* Turn on __VA_REGISTER_STRUCT_RETURN if __VA_SMALL_STRUCT_RETURN was set * and the struct will actually be returned in registers. */ #define __va_start_struct1(LIST,TYPE_SIZE,TYPE_ALIGN,TYPE_SPLITTABLE) \ ((LIST)->flags |= __VA_REGISTER_STRUCT_RETURN, 0) #endif #if defined(__alpha__) #define __va_reg_struct_return(LIST,TYPE_SIZE,TYPE_SPLITTABLE) \ ((TYPE_SIZE) == 1 || (TYPE_SIZE) == 2 || (TYPE_SIZE) == 4 || (TYPE_SIZE) == 8 \ || ((TYPE_SIZE) == 16 && (TYPE_SPLITTABLE) \ && ((LIST)->flags & __VA_GCC_STRUCT_RETURN) \ ) ) /* Turn on __VA_REGISTER_STRUCT_RETURN if __VA_SMALL_STRUCT_RETURN was set * and the struct will actually be returned in registers. */ #define __va_start_struct1(LIST,TYPE_SIZE,TYPE_ALIGN,TYPE_SPLITTABLE) \ ((LIST)->flags |= __VA_REGISTER_STRUCT_RETURN, 0) #endif #if (defined(__hppa__) && !defined(__hppa64__)) || defined(__riscv32__) #define __va_reg_struct_return(LIST,TYPE_SIZE,TYPE_SPLITTABLE) \ ((TYPE_SIZE) <= 8) /* Test __VA_SMALL_STRUCT_RETURN at run time. */ #define __va_start_struct1(LIST,TYPE_SIZE,TYPE_ALIGN,TYPE_SPLITTABLE) \ 0 #endif #if defined(__mips__) && !defined(__mipsn32__) && !defined(__mips64__) || (defined(__sparc__) && !defined(__sparc64__)) #define __va_reg_struct_return(LIST,TYPE_SIZE,TYPE_SPLITTABLE) \ ((TYPE_SIZE) == 1 || (TYPE_SIZE) == 2 || (TYPE_SIZE) == 4) /* Test __VA_SMALL_STRUCT_RETURN instead of __VA_REGISTER_STRUCT_RETURN. */ #if defined(__mips__) && !defined(__mipsn32__) && !defined(__mips64__) #define __va_start_struct1(LIST,TYPE_SIZE,TYPE_ALIGN,TYPE_SPLITTABLE) \ ((LIST)->anum++, \ 0 \ ) #else #define __va_start_struct1(LIST,TYPE_SIZE,TYPE_ALIGN,TYPE_SPLITTABLE) \ 0 #endif #endif #if defined(__mipsn32__) || defined(__mips64__) #define __va_reg_struct_return(LIST,TYPE_SIZE,TYPE_SPLITTABLE) \ ((LIST)->flags & __VA_GCC_STRUCT_RETURN \ ? ((TYPE_SIZE) == 1 || (TYPE_SIZE) == 2 || (TYPE_SIZE) == 4 || (TYPE_SIZE) == 8) \ : ((TYPE_SIZE) <= 16) \ ) /* Turn on __VA_REGISTER_STRUCT_RETURN if __VA_SMALL_STRUCT_RETURN was set * and the struct will actually be returned in registers. Also turn on * __VA_REGISTER_FLOATSTRUCT_RETURN or __VA_REGISTER_DOUBLESTRUCT_RETURN if * the struct will be returned in floating-point registers. */ #define __va_start_struct1(LIST,TYPE_SIZE,TYPE_ALIGN,TYPE_SPLITTABLE) \ ((LIST)->flags |= __VA_REGISTER_STRUCT_RETURN, \ (TYPE_ALIGN) == sizeof(float) && (TYPE_SPLITTABLE) \ && ((TYPE_SIZE) == sizeof(float) || (TYPE_SIZE) == 2*sizeof(float)) \ && ((LIST)->flags |= __VA_REGISTER_FLOATSTRUCT_RETURN), \ (TYPE_ALIGN) == sizeof(double) && (TYPE_SPLITTABLE) \ && ((TYPE_SIZE) == sizeof(double) || (TYPE_SIZE) == 2*sizeof(double)) \ && ((LIST)->flags |= __VA_REGISTER_DOUBLESTRUCT_RETURN), \ 0) #endif #if (defined(__powerpc64__) && !defined(__powerpc64_elfv2__)) || defined(__s390x__) #define __va_reg_struct_return(LIST,TYPE_SIZE,TYPE_SPLITTABLE) \ 0 #define __va_start_struct1(LIST,TYPE_SIZE,TYPE_ALIGN,TYPE_SPLITTABLE) \ 0 #endif #if defined(__sparc64__) || defined(__ia64__) #define __va_reg_struct_return(LIST,TYPE_SIZE,TYPE_SPLITTABLE) \ ((TYPE_SIZE) <= 32) /* Turn on __VA_REGISTER_STRUCT_RETURN if __VA_SMALL_STRUCT_RETURN was set * and the struct will actually be returned in registers. */ #define __va_start_struct1(LIST,TYPE_SIZE,TYPE_ALIGN,TYPE_SPLITTABLE) \ ((LIST)->flags |= __VA_REGISTER_STRUCT_RETURN, \ 0) #endif #if defined(__hppa64__) || defined(__arm64__) || (defined(__powerpc64__) && defined(__powerpc64_elfv2__)) || defined(__x86_64_sysv__) || defined(__riscv64__) #define __va_reg_struct_return(LIST,TYPE_SIZE,TYPE_SPLITTABLE) \ ((TYPE_SIZE) <= 16) /* Turn on __VA_REGISTER_STRUCT_RETURN if __VA_SMALL_STRUCT_RETURN was set * and the struct will actually be returned in registers. */ #define __va_start_struct1(LIST,TYPE_SIZE,TYPE_ALIGN,TYPE_SPLITTABLE) \ ((LIST)->flags |= __VA_REGISTER_STRUCT_RETURN, \ 0) #endif #if defined(__x86_64_ms__) #define __va_reg_struct_return(LIST,TYPE_SIZE,TYPE_SPLITTABLE) \ ((TYPE_SIZE) == 1 || (TYPE_SIZE) == 2 || (TYPE_SIZE) == 4 || (TYPE_SIZE) == 8) /* Turn on __VA_REGISTER_STRUCT_RETURN if __VA_SMALL_STRUCT_RETURN was set * and the struct will actually be returned in registers. */ #define __va_start_struct1(LIST,TYPE_SIZE,TYPE_ALIGN,TYPE_SPLITTABLE) \ ((LIST)->flags |= __VA_REGISTER_STRUCT_RETURN, \ 0) #endif /* * Preparing structure return in memory. */ #if defined(__i386__) || defined(__alpha__) || (defined(__arm__) && !defined(__armhf__)) || defined(__powerpc_aix__) || defined(__powerpc64__) /* Return structure pointer is passed as first arg. */ #define __va_start_struct2(LIST) \ ((LIST)->raddr = *(void* *)((LIST)->aptr), \ (LIST)->aptr += sizeof(void*), \ 0 \ ) #endif #if defined(__mips__) || defined(__mipsn32__) || defined(__mips64__) || defined(__sparc64__) || defined(__x86_64_ms__) /* Return structure pointer is passed as first arg. */ #define __va_start_struct2(LIST) \ ((LIST)->raddr = *(void* *)((LIST)->aptr), \ (LIST)->aptr += sizeof(void*), \ (LIST)->anum++, \ 0 \ ) #endif #if defined(__armhf__) /* Return structure pointer is passed as first arg. */ #define __va_start_struct2(LIST) \ ((LIST)->raddr = (void*)(LIST)->iarg[(LIST)->ianum], \ (LIST)->ianum++, \ 0 \ ) #endif #if defined(__powerpc_sysv4__) || defined(__x86_64_sysv__) || defined(__s390__) || defined(__s390x__) || defined(__riscv32__) || defined(__riscv64__) /* Return structure pointer is passed as first arg. */ #define __va_start_struct2(LIST) \ ((LIST)->raddr = (void*)((LIST)->iarg[(LIST)->ianum++]), \ 0 \ ) #endif #if defined(__m68k__) || (defined(__sparc__) && !defined(__sparc64__)) || defined(__hppa__) || defined(__hppa64__) || defined(__arm64__) || defined(__ia64__) /* Return structure pointer is passed in a special register. */ #define __va_start_struct2(LIST) \ ((LIST)->raddr = (LIST)->structraddr, 0) #endif /* * Definition of the va_arg_xxx macros. */ /* Padding of non-struct arguments. */ #define __va_argsize(TYPE_SIZE) \ (((TYPE_SIZE) + sizeof(__vaword)-1) & -(intptr_t)sizeof(__vaword)) #if defined(__i386__) || defined(__m68k__) || (defined(__mips__) && !defined(__mipsn32__) && !defined(__mips64__)) || (defined(__sparc__) && !defined(__sparc64__)) || defined(__alpha__) || (defined(__arm__) && !defined(__armhf__)) || defined(__arm64__) || defined(__powerpc_aix__) || defined(__powerpc64__) || defined(__ia64__) || defined(__x86_64_sysv__) || defined(__s390__) || defined(__s390x__) || defined(__riscv32__) || defined(__riscv64__) /* args grow up */ /* small structures < 1 word are adjusted depending on compiler */ #define __va_arg_leftadjusted(LIST,TYPE_SIZE,TYPE_ALIGN) \ ((LIST)->aptr += __va_argsize(TYPE_SIZE), \ (LIST)->aptr - __va_argsize(TYPE_SIZE) \ ) #define __va_arg_rightadjusted(LIST,TYPE_SIZE,TYPE_ALIGN) \ ((LIST)->aptr += __va_argsize(TYPE_SIZE), \ (LIST)->aptr - ((TYPE_SIZE) < sizeof(__vaword) \ ? (TYPE_SIZE) \ : __va_argsize(TYPE_SIZE) \ ) \ ) #endif #if defined(__armhf__) /* args grow up */ /* small structures < 1 word are adjusted depending on compiler */ /* the first __VA_IARG_NUM argument words are passed in registers */ #define __va_arg_leftadjusted(LIST,TYPE_SIZE,TYPE_ALIGN) \ (((LIST)->ianum + ((TYPE_SIZE) + sizeof(__vaword)-1) / sizeof(__vaword) <= __VA_IARG_NUM \ ? ((LIST)->ianum += __va_argsize(TYPE_SIZE) / sizeof(__vaword), \ (char*)&(LIST)->iarg[(LIST)->ianum] \ ) \ : (((LIST)->aptr == (uintptr_t)&(LIST)->iarg[__VA_IARG_NUM] \ ? /* split case */ \ ((LIST)->aptr = (uintptr_t)&(LIST)->iarg[(LIST)->ianum] + __va_argsize(TYPE_SIZE), \ 0) \ : ((LIST)->aptr += __va_argsize(TYPE_SIZE), \ 0)), \ (LIST)->ianum = __VA_IARG_NUM, \ (char*)(LIST)->aptr \ ) ) \ - __va_argsize(TYPE_SIZE) \ ) #define __va_arg_rightadjusted(LIST,TYPE_SIZE,TYPE_ALIGN) \ (((LIST)->ianum + ((TYPE_SIZE) + sizeof(__vaword)-1) / sizeof(__vaword) <= __VA_IARG_NUM \ ? ((LIST)->ianum += __va_argsize(TYPE_SIZE) / sizeof(__vaword), \ (char*)&(LIST)->iarg[(LIST)->ianum] \ ) \ : (((LIST)->aptr == (uintptr_t)&(LIST)->iarg[__VA_IARG_NUM] \ ? /* split case */ \ ((LIST)->aptr = (uintptr_t)&(LIST)->iarg[(LIST)->ianum] + __va_argsize(TYPE_SIZE), \ 0) \ : ((LIST)->aptr += __va_argsize(TYPE_SIZE), \ 0)), \ (LIST)->ianum = __VA_IARG_NUM, \ (char*)(LIST)->aptr \ ) ) \ - ((TYPE_SIZE) < sizeof(__vaword) \ ? (TYPE_SIZE) \ : __va_argsize(TYPE_SIZE) \ ) \ ) #endif #if defined(__powerpc_sysv4__) /* args grow up */ /* small structures < 1 word are adjusted depending on compiler */ /* the first __VA_IARG_NUM argument words are passed in registers */ #define __va_arg_leftadjusted(LIST,TYPE_SIZE,TYPE_ALIGN) \ (((LIST)->ianum + ((TYPE_SIZE) + sizeof(__vaword)-1) / sizeof(__vaword) <= __VA_IARG_NUM \ ? ((LIST)->ianum += __va_argsize(TYPE_SIZE) / sizeof(__vaword), \ (char*)&(LIST)->iarg[(LIST)->ianum] \ ) \ : ((LIST)->aptr += __va_argsize(TYPE_SIZE), \ (char*)(LIST)->aptr \ ) ) \ - __va_argsize(TYPE_SIZE) \ ) #define __va_arg_rightadjusted(LIST,TYPE_SIZE,TYPE_ALIGN) \ (((LIST)->ianum + ((TYPE_SIZE) + sizeof(__vaword)-1) / sizeof(__vaword) <= __VA_IARG_NUM \ ? ((LIST)->ianum += __va_argsize(TYPE_SIZE) / sizeof(__vaword), \ (char*)&(LIST)->iarg[(LIST)->ianum] \ ) \ : ((LIST)->aptr += __va_argsize(TYPE_SIZE), \ (char*)(LIST)->aptr \ ) ) \ - ((TYPE_SIZE) < sizeof(__vaword) \ ? (TYPE_SIZE) \ : __va_argsize(TYPE_SIZE) \ ) \ ) #endif #if defined(__mipsn32__) || defined(__mips64__) || defined(__sparc64__) || defined(__x86_64_ms__) /* args grow up */ /* small structures < 1 word are adjusted depending on compiler */ #define __va_arg_leftadjusted(LIST,TYPE_SIZE,TYPE_ALIGN) \ ((LIST)->anum += __va_argsize(TYPE_SIZE)/sizeof(__vaword), \ (LIST)->aptr += __va_argsize(TYPE_SIZE), \ (LIST)->aptr - __va_argsize(TYPE_SIZE) \ ) #define __va_arg_rightadjusted(LIST,TYPE_SIZE,TYPE_ALIGN) \ ((LIST)->anum += __va_argsize(TYPE_SIZE)/sizeof(__vaword), \ (LIST)->aptr += __va_argsize(TYPE_SIZE), \ (LIST)->aptr - ((TYPE_SIZE) < sizeof(__vaword) \ ? (TYPE_SIZE) \ : __va_argsize(TYPE_SIZE) \ ) \ ) #endif #if defined(__hppa__) && !defined(__hppa64__) /* args grow down */ #define __va_arg_leftadjusted(LIST,TYPE_SIZE,TYPE_ALIGN) \ ((LIST)->aptr = (LIST)->aptr - __va_argsize(TYPE_SIZE), \ ((TYPE_SIZE) > 4 && ((LIST)->aptr &= -8)), \ (LIST)->aptr \ ) #define __va_arg_rightadjusted(LIST,TYPE_SIZE,TYPE_ALIGN) \ ((LIST)->aptr = (LIST)->aptr - __va_argsize(TYPE_SIZE), \ ((TYPE_SIZE) > 4 && ((LIST)->aptr &= -8)), \ (LIST)->aptr + ((-(TYPE_SIZE)) & 3) \ ) #endif #if defined(__hppa64__) /* args grow up */ #define __va_arg_leftadjusted(LIST,TYPE_SIZE,TYPE_ALIGN) \ (((TYPE_SIZE) > 8 && ((LIST)->aptr = (((LIST)->aptr +15) & -16))), \ (LIST)->aptr += __va_argsize(TYPE_SIZE), \ (LIST)->aptr - __va_argsize(TYPE_SIZE) \ ) #define __va_arg_rightadjusted(LIST,TYPE_SIZE,TYPE_ALIGN) \ (((TYPE_SIZE) > 8 && ((LIST)->aptr = (((LIST)->aptr +15) & -16))), \ (LIST)->aptr += __va_argsize(TYPE_SIZE), \ (LIST)->aptr - ((TYPE_SIZE) < sizeof(__vaword) \ ? (TYPE_SIZE) \ : __va_argsize(TYPE_SIZE) \ ) \ ) #endif #if defined(__i386__) || ((defined(__mipsn32__) || defined(__mips64__)) && defined(_MIPSEL)) || defined(__alpha__) || ((defined(__arm__) || defined(__armhf__)) && defined(__ARMEL__)) || defined(__ia64__) || (defined(__powerpc64__) && defined(_LITTLE_ENDIAN)) || defined(__x86_64_ms__) /* little endian -> small args < 1 word are adjusted to the left */ #define __va_arg_adjusted(LIST,TYPE_SIZE,TYPE_ALIGN) \ (void*)__va_arg_leftadjusted(LIST,TYPE_SIZE,TYPE_ALIGN) #endif #if defined(__m68k__) || ((defined(__mipsn32__) || defined(__mips64__)) && defined(_MIPSEB)) || defined(__sparc__) || defined(__sparc64__) || defined(__hppa__) || defined(__hppa64__) || ((defined(__arm__) || defined(__armhf__)) && !defined(__ARMEL__)) || (defined(__powerpc__) && !defined(__powerpc64__)) || (defined(__powerpc64__) && defined(_BIG_ENDIAN)) /* big endian -> small args < 1 word are adjusted to the right */ #define __va_arg_adjusted(LIST,TYPE_SIZE,TYPE_ALIGN) \ (void*)__va_arg_rightadjusted(LIST,TYPE_SIZE,TYPE_ALIGN) #endif #if defined(__mips__) && !defined(__mipsn32__) && !defined(__mips64__) #ifdef _MIPSEB /* big endian -> small args < 1 word are adjusted to the right */ #define __va_arg_adjusted(LIST,TYPE_SIZE,TYPE_ALIGN) \ ((LIST)->anum++, \ (void*)__va_arg_rightadjusted(LIST,TYPE_SIZE,TYPE_ALIGN)) #else /* _MIPSEL */ /* little endian -> small args < 1 word are adjusted to the left */ #define __va_arg_adjusted(LIST,TYPE_SIZE,TYPE_ALIGN) \ ((LIST)->anum++, \ (void*)__va_arg_leftadjusted(LIST,TYPE_SIZE,TYPE_ALIGN)) #endif #endif #if defined(__arm64__) /* the first __VA_IARG_NUM argument words are passed in registers */ #define __va_arg_adjusted(LIST,TYPE_SIZE,TYPE_ALIGN) \ ((LIST)->ianum + ((TYPE_SIZE) + sizeof(__vaword)-1) / sizeof(__vaword) <= __VA_IARG_NUM \ ? ((LIST)->ianum += ((TYPE_SIZE) + sizeof(__vaword)-1) / sizeof(__vaword), \ &(LIST)->iarg[(LIST)->ianum - ((TYPE_SIZE) + sizeof(__vaword)-1) / sizeof(__vaword)] \ ) \ : ((LIST)->ianum = __VA_IARG_NUM, \ (void*)__va_arg_leftadjusted(LIST,TYPE_SIZE,TYPE_ALIGN) \ ) ) #endif #if defined(__x86_64_sysv__) /* the first __VA_IARG_NUM argument words are passed in registers */ #define __va_arg_adjusted(LIST,TYPE_SIZE,TYPE_ALIGN) \ (((TYPE_SIZE) <= 2*sizeof(__vaword) \ && (LIST)->ianum + ((TYPE_SIZE) + sizeof(__vaword)-1) / sizeof(__vaword) <= __VA_IARG_NUM) \ ? ((LIST)->ianum += ((TYPE_SIZE) + sizeof(__vaword)-1) / sizeof(__vaword), \ &(LIST)->iarg[(LIST)->ianum - ((TYPE_SIZE) + sizeof(__vaword)-1) / sizeof(__vaword)] \ ) \ : (void*)__va_arg_leftadjusted(LIST,TYPE_SIZE,TYPE_ALIGN) \ ) #endif #if defined(__s390__) || defined(__s390x__) /* the first __VA_IARG_NUM argument words are passed in registers */ #define __va_arg_adjusted(LIST,TYPE_SIZE,TYPE_ALIGN) \ ((LIST)->ianum + ((TYPE_SIZE) + sizeof(__vaword)-1) / sizeof(__vaword) <= __VA_IARG_NUM \ ? ((LIST)->ianum += ((TYPE_SIZE) + sizeof(__vaword)-1) / sizeof(__vaword), \ (void*)((uintptr_t)&(LIST)->iarg[(LIST)->ianum] - (TYPE_SIZE)) \ ) \ : ((LIST)->ianum = __VA_IARG_NUM, \ (void*)__va_arg_rightadjusted(LIST,TYPE_SIZE,TYPE_ALIGN) \ ) ) #endif #if defined(__riscv32__) || defined(__riscv64__) /* the first __VA_IARG_NUM argument words are passed in registers */ #define __va_arg_adjusted(LIST,TYPE_SIZE,TYPE_ALIGN) \ ((LIST)->ianum + ((TYPE_SIZE) + sizeof(__vaword)-1) / sizeof(__vaword) <= __VA_IARG_NUM \ ? ((LIST)->ianum += ((TYPE_SIZE) + sizeof(__vaword)-1) / sizeof(__vaword), \ &(LIST)->iarg[(LIST)->ianum - ((TYPE_SIZE) + sizeof(__vaword)-1) / sizeof(__vaword)] \ ) \ : (((LIST)->ianum < __VA_IARG_NUM \ ? ((LIST)->aptr -= (__VA_IARG_NUM - (LIST)->ianum) * sizeof(__vaword), \ (LIST)->ianum = __VA_IARG_NUM, \ 0) \ : 0), \ (void*)__va_arg_leftadjusted(LIST,TYPE_SIZE,TYPE_ALIGN) \ ) ) #endif #define __va_arg(LIST,TYPE) \ *(TYPE*)__va_arg_adjusted(LIST,sizeof(TYPE),__VA_alignof(TYPE)) /* Integer arguments. */ #define _va_arg_char(LIST) __va_arg(LIST,char) #define _va_arg_schar(LIST) __va_arg(LIST,signed char) #define _va_arg_uchar(LIST) __va_arg(LIST,unsigned char) #define _va_arg_short(LIST) __va_arg(LIST,short) #define _va_arg_ushort(LIST) __va_arg(LIST,unsigned short) #define _va_arg_int(LIST) __va_arg(LIST,int) #define _va_arg_uint(LIST) __va_arg(LIST,unsigned int) #define _va_arg_long(LIST) __va_arg(LIST,long) #define _va_arg_ulong(LIST) __va_arg(LIST,unsigned long) #if defined(__mips64__) || defined(__sparc64__) || defined(__alpha__) || defined(__hppa64__) || defined(__arm64__) || defined(__powerpc64__) || defined(__ia64__) || (defined(__x86_64__) && !defined(__x86_64_x32__) && !defined(__VA_LLP64)) || defined(__s390x__) || defined(__riscv64__) /* ‘long long’ and ‘long’ are identical. */ #define _va_arg_longlong _va_arg_long #define _va_arg_ulonglong _va_arg_ulong #elif defined(__mipsn32__) || defined(__x86_64_x32__) || (defined(__x86_64__) && defined(__VA_LLP64)) /* ‘long long’ fits in __vaword. */ #define _va_arg_longlong(LIST) __va_arg(LIST,long long) #define _va_arg_ulonglong(LIST) __va_arg(LIST,unsigned long long) #elif defined(__i386__) || defined(__m68k__) || defined(__mips__) || (defined(__sparc__) && !defined(__sparc64__)) || (defined(__hppa__) && !defined(__hppa64__)) || defined(__arm__) || defined(__armhf__) || defined(__powerpc__) || (defined(__s390__) && !defined(__s390x__)) || defined(__riscv32__) /* ‘long long’s are passed embedded on the arg stack. */ #define _va_arg_longlong(LIST) __va_arg_longlong(LIST,long long) #define _va_arg_ulonglong(LIST) __va_arg_longlong(LIST,unsigned long long) #if defined(__i386__) || defined(__m68k__) || defined(__powerpc_aix__) /* ‘long long’s are (at most) word-aligned. */ #define __va_arg_longlong(LIST,TYPE) __va_arg(LIST,TYPE) #endif #if defined(__mips__) || defined(__arm__) /* ‘long long’s have alignment 8. */ #define __va_arg_longlong(LIST,TYPE) \ ((LIST)->aptr = (((LIST)->aptr+__VA_alignof(TYPE)-1) & -(intptr_t)__VA_alignof(TYPE)), \ __va_arg(LIST,TYPE)) #endif #if defined(__armhf__) || defined(__powerpc_sysv4__) /* ‘long long’s have alignment 8. */ #define __va_arg_longlong(LIST,TYPE) \ (((LIST)->ianum < __VA_IARG_NUM \ ? ((LIST)->ianum = (((LIST)->ianum+__VA_alignof(TYPE)/sizeof(__vaword)-1) & -(intptr_t)(__VA_alignof(TYPE)/sizeof(__vaword))), 0) \ : ((LIST)->aptr = (((LIST)->aptr+__VA_alignof(TYPE)-1) & -(intptr_t)__VA_alignof(TYPE)), 0) \ ), \ __va_arg(LIST,TYPE)) #endif #if (defined(__s390__) && !defined(__s390x__)) || defined(__riscv32__) /* Within the arg stack, the alignment is only 4, not 8. */ #define __va_arg_longlong(LIST,TYPE) __va_arg(LIST,TYPE) #endif #if (defined(__sparc__) && !defined(__sparc64__)) /* Within the arg stack, the alignment is only 4, not 8. */ /* Beware against unaligned accesses! */ #define __va_arg_longlong(LIST,TYPE) \ ((LIST)->tmp._words[0] = ((__vaword*)((LIST)->aptr))[0], \ (LIST)->tmp._words[1] = ((__vaword*)((LIST)->aptr))[1], \ (LIST)->aptr += sizeof(TYPE), \ (TYPE)((LIST)->tmp._longlong) \ ) #endif #if defined(__hppa__) && !defined(__hppa64__) /* ‘long long’s have alignment 8. */ #define __va_arg_longlong(LIST,TYPE) \ ((LIST)->aptr = ((LIST)->aptr & -(intptr_t)__VA_alignof(TYPE)), \ __va_arg(LIST,TYPE)) #endif #endif /* Floating point arguments. */ #if defined(__i386__) || defined(__m68k__) || defined(__mipsn32__) || defined(__mips64__) || defined(__sparc__) || defined(__sparc64__) || defined(__alpha__) || defined(__hppa64__) || defined(__arm64__) || defined(__powerpc__) || defined(__powerpc64__) || defined(__ia64__) || defined(__x86_64__) || defined(__s390__) || defined(__s390x__) || defined(__riscv32__) || defined(__riscv64__) #define __va_align_double(LIST) #endif #if defined(__mips__) && !defined(__mipsn32__) && !defined(__mips64__) || defined(__arm__) || defined(__armhf__) /* __VA_alignof(double) > sizeof(__vaword) */ #define __va_align_double(LIST) \ (LIST)->aptr = ((LIST)->aptr + sizeof(double)-1) & -(intptr_t)sizeof(double), #endif #if defined(__hppa__) && !defined(__hppa64__) #define __va_align_double(LIST) \ (LIST)->aptr = (LIST)->aptr & -(intptr_t)sizeof(double), #endif #if defined(__sparc__) && !defined(__sparc64__) /* Beware against unaligned ‘double’ accesses! */ #define _va_arg_double(LIST) \ (__va_align_double(LIST) \ (LIST)->tmp._words[0] = ((__vaword*)((LIST)->aptr))[0], \ (LIST)->tmp._words[1] = ((__vaword*)((LIST)->aptr))[1], \ (LIST)->aptr += sizeof(double), \ (LIST)->tmp._double \ ) #endif #if defined(__alpha__) /* The first 6 floating point registers have been stored in another place. */ #define _va_arg_double(LIST) \ (((LIST)->aptr += sizeof(double)) <= (LIST)->memargptr \ ? *(double*)((LIST)->aptr - sizeof(double) + (LIST)->farg_offset) \ : *(double*)((LIST)->aptr - sizeof(double)) \ ) #define _va_arg_float(LIST) \ (((LIST)->aptr += sizeof(double)) <= (LIST)->memargptr \ ? /* The first 6 args have been put into memory by "stt" instructions */\ /* (see vacall-alpha.s!). Therefore load them as doubles. */ \ /* When viewed as floats, the value will be the correct one. */ \ (float)*(double*)((LIST)->aptr - sizeof(double) + (LIST)->farg_offset) \ : /* These args have been put into memory by "sts" instructions, */ \ /* therefore load them as floats. */ \ *(float*)((LIST)->aptr - sizeof(double)) \ ) #endif #if defined(__hppa__) && !defined(__hppa64__) /* The floats and doubles among the first 4 argument words are passed * - in both general registers and floating-point registers when the * function call is a variadic one, which means: * - for HP cc: the call is done through a function pointer or * directly to a function declared with a varargs prototype, * - for GCC: the function's type is a varargs function. * - in floating-point registers otherwise. * Since the code in tests.c uses a function pointer, casted to a non-varargs * function type, we are in the first case for HP cc, but in the second case * for GCC. * Therefore we need to take the values from the floating-point registers. */ #define _va_arg_float(LIST) \ (((LIST)->aptr -= sizeof(float)) >= (LIST)->memargptr \ ? /* The first 4 float args are stored separately. */ \ *(float*)((LIST)->aptr + (LIST)->farg_offset) \ : *(float*)((LIST)->aptr) \ ) #define _va_arg_double(LIST) \ (__va_align_double(LIST) \ (((LIST)->aptr -= sizeof(double)) >= (LIST)->memargptr \ ? /* The first 2 double args are stored separately. */ \ *(double*)((LIST)->aptr + (LIST)->darg_offset) \ : *(double*)((LIST)->aptr) \ )) #endif #if defined(__mips__) && !defined(__mipsn32__) && !defined(__mips64__) /* The first 0,1,2 registers are stored elsewhere if they are floating-point * parameters. */ #define _va_arg_float(LIST) \ ((LIST)->aptr += sizeof(float), \ (LIST)->anum++, \ (LIST)->fanum++, \ ((LIST)->anum == (LIST)->fanum && (LIST)->fanum <= __VA_FARG_NUM \ ? /* only floating-point arguments so far */ \ (LIST)->farg[(LIST)->fanum - 1] \ : *(float*)((LIST)->aptr - sizeof(float)) \ )) #define _va_arg_double(LIST) \ (__va_align_double(LIST) \ (LIST)->aptr += sizeof(double), \ (LIST)->anum++, \ (LIST)->fanum++, \ ((LIST)->anum == (LIST)->fanum && (LIST)->fanum <= __VA_FARG_NUM \ ? /* only floating-point arguments so far */ \ (LIST)->darg[(LIST)->fanum - 1] \ : *(double*)((LIST)->aptr - sizeof(double)) \ )) #endif #if defined(__mipsn32__) || defined(__mips64__) || defined(__x86_64_ms__) /* The first 0,..,8 registers are stored elsewhere if they are floating-point * parameters. */ #define _va_arg_float(LIST) \ (__va_align_double(LIST) \ (LIST)->aptr += sizeof(double), \ (++(LIST)->anum <= __VA_FARG_NUM \ ? (LIST)->farg[(LIST)->anum - 1] \ : *(float*)((LIST)->aptr - sizeof(double)) \ )) #define _va_arg_double(LIST) \ (__va_align_double(LIST) \ (LIST)->aptr += sizeof(double), \ (++(LIST)->anum <= __VA_FARG_NUM \ ? (LIST)->darg[(LIST)->anum - 1] \ : *(double*)((LIST)->aptr - sizeof(double)) \ )) #endif #if defined(__sparc64__) /* The first 0,..,16 registers are stored elsewhere if they are floating-point * parameters. */ #define _va_arg_float(LIST) \ (__va_align_double(LIST) \ (LIST)->aptr += sizeof(double), \ (++(LIST)->anum <= 16 \ ? (LIST)->farg[(LIST)->anum - 1] \ : *(float*)((LIST)->aptr - sizeof(float)) \ )) #define _va_arg_double(LIST) \ (__va_align_double(LIST) \ (LIST)->aptr += sizeof(double), \ (++(LIST)->anum <= 16 \ ? (LIST)->darg[(LIST)->anum - 1] \ : *(double*)((LIST)->aptr - sizeof(double)) \ )) #endif #if defined(__hppa64__) /* The floating-point arguments among the first 8 argument words have been stored elsewhere. */ #define _va_arg_float(LIST) \ ((LIST)->aptr += sizeof(double), \ ((LIST)->aptr <= (LIST)->memargptr \ ? (LIST)->farg[__VA_FARG_NUM-1-((LIST)->memargptr - (LIST)->aptr)/sizeof(__vaword)] \ : ((float*)(LIST)->aptr)[-1] \ )) #define _va_arg_double(LIST) \ ((LIST)->aptr += sizeof(double), \ ((LIST)->aptr <= (LIST)->memargptr \ ? (LIST)->darg[__VA_FARG_NUM-1-((LIST)->memargptr - (LIST)->aptr)/sizeof(__vaword)] \ : ((double*)(LIST)->aptr)[-1] \ )) #endif #if defined(__armhf__) #define _va_arg_float(LIST) \ ((LIST)->fanum <= 15 \ ? (LIST)->farg[(LIST)->fanum++] \ : ((LIST)->aptr += sizeof(float), \ *(float*)((LIST)->aptr - sizeof(float)) \ ) ) #define _va_arg_double(LIST) \ (((LIST)->fanum % 2 ? (LIST)->fanum++ : 0), \ ((LIST)->fanum <= 14 \ ? ((LIST)->fanum += 2, (LIST)->darg[(LIST)->fanum / 2 - 1]) \ : ((LIST)->aptr += sizeof(double), \ *(double*)((LIST)->aptr - sizeof(double)) \ )) ) #endif #if defined(__arm64__) /* The first __VA_FARG_NUM floating-point args have been stored elsewhere. */ #define _va_arg_float(LIST) \ ((LIST)->fanum < __VA_FARG_NUM \ ? (LIST)->farg[(LIST)->fanum++] \ : ((LIST)->aptr += sizeof(__vaword), \ *(float*)((LIST)->aptr - sizeof(__vaword)) \ ) ) #define _va_arg_double(LIST) \ ((LIST)->fanum < __VA_FARG_NUM \ ? (LIST)->darg[(LIST)->fanum++] \ : ((LIST)->aptr += sizeof(__vaword), \ *(double*)((LIST)->aptr - sizeof(__vaword)) \ ) ) #endif #if defined(__powerpc_aix__) /* The first __VA_FARG_NUM floating-point args have been stored elsewhere. */ #define _va_arg_float(LIST) \ ((LIST)->aptr += sizeof(float), \ ((LIST)->fanum < __VA_FARG_NUM \ ? (float) (LIST)->farg[(LIST)->fanum++] \ : *(float*)((LIST)->aptr - sizeof(float)) \ )) #define _va_arg_double(LIST) \ (__va_align_double(LIST) \ (LIST)->aptr += sizeof(double), \ ((LIST)->fanum < __VA_FARG_NUM \ ? (LIST)->farg[(LIST)->fanum++] \ : *(double*)((LIST)->aptr - sizeof(double)) \ )) #endif #if defined(__powerpc_sysv4__) /* The first __VA_FARG_NUM floating-point args have been stored elsewhere. */ #define _va_arg_float(LIST) \ ((LIST)->fanum < __VA_FARG_NUM \ ? (float) (LIST)->farg[(LIST)->fanum++] \ : ((LIST)->aptr += sizeof(float), \ *(float*)((LIST)->aptr - sizeof(float)) \ ) ) #define _va_arg_double(LIST) \ ((LIST)->fanum < __VA_FARG_NUM \ ? (LIST)->farg[(LIST)->fanum++] \ : (__va_align_double(LIST) \ (LIST)->aptr += sizeof(double), \ *(double*)((LIST)->aptr - sizeof(double)) \ ) ) #endif #if defined(__powerpc64__) /* The first __VA_FARG_NUM floating-point args have been stored elsewhere. */ #if defined(_AIX) #define _va_arg_float(LIST) \ ((LIST)->aptr += sizeof(__vaword), \ ((LIST)->fanum < __VA_FARG_NUM \ ? (float) (LIST)->farg[(LIST)->fanum++] \ : ((float*)(LIST)->aptr)[(LIST)->flags & __VA_AIXCC_FLOAT_ARGS ? -2 : -1] \ )) #elif defined(_LITTLE_ENDIAN) #define _va_arg_float(LIST) \ ((LIST)->aptr += sizeof(__vaword), \ ((LIST)->fanum < __VA_FARG_NUM \ ? (float) (LIST)->farg[(LIST)->fanum++] \ : ((float*)(LIST)->aptr)[-2] \ )) #else /* _BIG_ENDIAN */ #define _va_arg_float(LIST) \ ((LIST)->aptr += sizeof(__vaword), \ ((LIST)->fanum < __VA_FARG_NUM \ ? (float) (LIST)->farg[(LIST)->fanum++] \ : ((float*)(LIST)->aptr)[-1] \ )) #endif #define _va_arg_double(LIST) \ (__va_align_double(LIST) \ (LIST)->aptr += sizeof(double), \ ((LIST)->fanum < __VA_FARG_NUM \ ? (LIST)->farg[(LIST)->fanum++] \ : *(double*)((LIST)->aptr - sizeof(double)) \ )) #endif #if defined(__ia64__) /* The first 8 floating-point args have been stored elsewhere. */ #define _va_arg_float(LIST) \ ((LIST)->aptr += sizeof(__vaword), \ ((LIST)->fanum < __VA_FARG_NUM \ ? (float) (LIST)->farg[(LIST)->fanum++] \ : *(float*)((LIST)->aptr - sizeof(__vaword)) \ )) #define _va_arg_double(LIST) \ (__va_align_double(LIST) \ (LIST)->aptr += sizeof(double), \ ((LIST)->fanum < __VA_FARG_NUM \ ? (LIST)->farg[(LIST)->fanum++] \ : *(double*)((LIST)->aptr - sizeof(double)) \ )) #endif #if defined(__x86_64_sysv__) /* The first 8 floating-point args have been stored elsewhere. */ #define _va_arg_float(LIST) \ ((LIST)->fanum < __VA_FARG_NUM \ ? *(float*)&(LIST)->farg[(LIST)->fanum++] \ : ((LIST)->aptr += sizeof(__vaword), \ *(float*)((LIST)->aptr - sizeof(__vaword)) \ ) ) #define _va_arg_double(LIST) \ ((LIST)->fanum < __VA_FARG_NUM \ ? (LIST)->farg[(LIST)->fanum++] \ : ((LIST)->aptr += sizeof(__vaword), \ *(double*)((LIST)->aptr - sizeof(__vaword)) \ ) ) #endif #if defined(__s390__) || defined(__s390x__) /* The first __VA_FARG_NUM floating-point args have been stored elsewhere. */ #define _va_arg_float(LIST) \ ((LIST)->fanum < __VA_FARG_NUM \ ? (LIST)->farg[(LIST)->fanum++] \ : ((LIST)->aptr += sizeof(__vaword), \ ((float*)(LIST)->aptr)[-1] \ ) ) #define _va_arg_double(LIST) \ ((LIST)->fanum < __VA_FARG_NUM \ ? (LIST)->darg[(LIST)->fanum++] \ : ((LIST)->aptr += sizeof(double), \ *(double*)((LIST)->aptr - sizeof(double)) \ ) ) #endif #if defined(__riscv32__) || defined(__riscv64__) /* The first __VA_FARG_NUM floating-point args have been stored elsewhere. */ #define _va_arg_float(LIST) \ ((LIST)->fanum < __VA_FARG_NUM \ ? (LIST)->farg[(LIST)->fanum++] \ : __va_arg((LIST),float) \ ) #define _va_arg_double(LIST) \ ((LIST)->fanum < __VA_FARG_NUM \ ? (LIST)->darg[(LIST)->fanum++] \ : __va_arg((LIST),double) \ ) #endif #ifndef _va_arg_float #define _va_arg_float(LIST) __va_arg(LIST,float) #endif #ifndef _va_arg_double #define _va_arg_double(LIST) \ (__va_align_double(LIST) __va_arg(LIST,double)) #endif /* Pointer arguments. */ #define _va_arg_ptr(LIST) __va_arg(LIST,void*) /* Structure arguments. */ /* Structure argument alignment. */ #if defined(__i386__) && defined(_MSC_VER) /* In MSVC, doubles inside structures have alignment 8, i.e. * __VA_alignof(double) = 8, but doubles (and also structures containing * doubles) are passed on the stack with alignment 4. Looks really weird. */ #define __va_struct_alignment(TYPE_ALIGN) \ ((TYPE_ALIGN) <= 4 ? (TYPE_ALIGN) : 4) #else #define __va_struct_alignment(TYPE_ALIGN) \ (TYPE_ALIGN) #endif #define __va_align_struct(LIST,TYPE_SIZE,TYPE_ALIGN) \ (LIST)->aptr = ((LIST)->aptr + __va_struct_alignment(TYPE_ALIGN)-1) & -(intptr_t)__va_struct_alignment(TYPE_ALIGN), #if defined(__i386__) || defined(__m68k__) || defined(__alpha__) || defined(__arm__) || defined(__armhf__) || (defined(__powerpc64__) && !defined(_AIX)) || defined(__x86_64_sysv__) #define __va_arg_struct(LIST,TYPE_SIZE,TYPE_ALIGN) \ (__va_align_struct(LIST,TYPE_SIZE,TYPE_ALIGN) \ __va_arg_adjusted(LIST,TYPE_SIZE,TYPE_ALIGN) \ ) #endif #if defined(__mips__) && !defined(__mipsn32__) && !defined(__mips64__) /* small structures < 1 word are adjusted depending on compiler */ #define __va_arg_struct(LIST,TYPE_SIZE,TYPE_ALIGN) \ (__va_align_struct(LIST,TYPE_SIZE,TYPE_ALIGN) \ ((LIST)->flags & __VA_SGICC_STRUCT_ARGS \ ? /* SGI MIPS cc passes small structures left-adjusted, although big-endian! */\ (void*)__va_arg_leftadjusted(LIST,TYPE_SIZE,TYPE_ALIGN) \ : /* SGI MIPS gcc passes small structures within the first four words left- \ * adjusted, for compatibility with cc. But structures in memory are passed \ * right-adjusted!! See gcc-2.6.3/config/mips/mips.c:function_arg(). \ */ \ ((LIST)->aptr < (LIST)->memargptr \ ? (void*)__va_arg_leftadjusted(LIST,TYPE_SIZE,TYPE_ALIGN) \ : (void*)__va_arg_rightadjusted(LIST,TYPE_SIZE,TYPE_ALIGN) \ )) ) #endif #if defined(__mipsn32__) || defined(__mips64__) /* small structures < 1 word are adjusted depending on compiler */ #define __va_arg_struct(LIST,TYPE_SIZE,TYPE_ALIGN) \ (__va_align_struct(LIST,TYPE_SIZE,TYPE_ALIGN) \ ((LIST)->flags & __VA_SGICC_STRUCT_ARGS \ ? /* SGI MIPS cc and gcc >= 3.4 passes small structures left-adjusted, although big-endian! */\ (void*)__va_arg_leftadjusted(LIST,TYPE_SIZE,TYPE_ALIGN) \ : /* SGI MIPS gcc < 3.4 passes small structures right-adjusted. */ \ (void*)__va_arg_rightadjusted(LIST,TYPE_SIZE,TYPE_ALIGN) \ )) #endif #if defined(__powerpc_aix__) || (defined(__powerpc64__) && defined(_AIX)) /* small structures < 1 word are adjusted depending on compiler */ #define __va_arg_struct(LIST,TYPE_SIZE,TYPE_ALIGN) \ (__va_align_struct(LIST,TYPE_SIZE,TYPE_ALIGN) \ ((LIST)->flags & __VA_AIXCC_STRUCT_ARGS \ ? /* AIX cc and xlc pass small structures left-adjusted, although big-endian! */\ (void*)__va_arg_leftadjusted(LIST,TYPE_SIZE,TYPE_ALIGN) \ : /* gcc passes small structures right-adjusted. */ \ (void*)__va_arg_rightadjusted(LIST,TYPE_SIZE,TYPE_ALIGN) \ )) #endif #if defined(__powerpc_sysv4__) /* Structures are passed as pointers to caller-made local copies. */ #define __va_arg_struct(LIST,TYPE_SIZE,TYPE_ALIGN) \ va_arg_ptr(LIST,void*) #endif #if defined(__sparc__) && !defined(__sparc64__) /* Structures are passed as pointers to caller-made local copies. */ #define __va_arg_struct(LIST,TYPE_SIZE,TYPE_ALIGN) \ va_arg_ptr(LIST,void*) #endif #if defined(__sparc64__) /* Small structures are passed left-adjusted, although big-endian! */ /* Big structures are passed as pointers to caller-made local copies. */ #define __va_arg_struct(LIST,TYPE_SIZE,TYPE_ALIGN) \ ((TYPE_SIZE) <= 16 \ ? (__va_align_struct(LIST,TYPE_SIZE,TYPE_ALIGN) \ (void*)__va_arg_leftadjusted(LIST,TYPE_SIZE,TYPE_ALIGN)) \ : va_arg_ptr(LIST,void*) \ ) #endif #if defined(__hppa64__) /* Structures are passed left-adjusted (although big-endian!). */ #define __va_arg_struct(LIST,TYPE_SIZE,TYPE_ALIGN) \ (__va_align_struct(LIST,TYPE_SIZE,TYPE_ALIGN) \ (void*)__va_arg_leftadjusted(LIST,TYPE_SIZE,TYPE_ALIGN) \ ) #endif #if defined(__arm64__) || defined(__riscv32__) || defined(__riscv64__) /* Small structures are passed in registers or on the stack. */ /* Big structures are passed as pointers to caller-made local copies. */ #define __va_arg_struct(LIST,TYPE_SIZE,TYPE_ALIGN) \ ((TYPE_SIZE) <= 2*sizeof(__vaword) \ ? (void*)__va_arg_adjusted(LIST,TYPE_SIZE,TYPE_ALIGN) \ : va_arg_ptr(LIST,void*) \ ) #endif #if defined(__x86_64_ms__) || defined(__s390__) || defined(__s390x__) /* Structures of 1, 2, 4, 8 bytes are passed as embedded copies on the arg stack. * Big structures are passed as pointers to caller-made local copies. */ #define __va_arg_struct(LIST,TYPE_SIZE,TYPE_ALIGN) \ ((TYPE_SIZE) == 1 || (TYPE_SIZE) == 2 || (TYPE_SIZE) == 4 || (TYPE_SIZE) == 8 \ ? (void*)__va_arg_adjusted(LIST,TYPE_SIZE,TYPE_ALIGN) \ : va_arg_ptr(LIST,void*) \ ) #endif #if defined(__hppa__) && !defined(__hppa64__) /* Structures <= 8 bytes are passed as embedded copies on the arg stack. * Big structures are passed as pointers (to caller-made local copies * with GCC >= 8, without copy otherwise). */ #define __va_arg_struct(LIST,TYPE_SIZE,TYPE_ALIGN) \ ((TYPE_SIZE) > 8 \ ? va_arg_ptr(LIST,void*) \ : /* FIXME: gcc-2.6.3 passes structures <= 4 bytes in memory left-adjusted! ?? */\ (void*)__va_arg_rightadjusted(LIST,TYPE_SIZE,TYPE_ALIGN) \ ) #endif #if defined(__ia64__) /* With GCC < 3, types larger than a word have 2-word alignment. */ #define __va_arg_struct(LIST,TYPE_SIZE,TYPE_ALIGN) \ (__va_align_struct(LIST,TYPE_SIZE,TYPE_ALIGN) \ (((LIST)->flags & __VA_OLDGCC_STRUCT_ARGS) && (TYPE_SIZE) > sizeof(__vaword) && (((__vaword*)(LIST)->aptr - (LIST)->saptr) & 1) ? (LIST)->aptr += sizeof(__vaword) : 0), \ __va_arg_adjusted(LIST,TYPE_SIZE,TYPE_ALIGN) \ ) #endif /* * Definition of the va_return_xxx macros. */ #define __va_return(LIST,RETTYPE) \ (((LIST)->rtype == (RETTYPE)) || (vacall_error_type_mismatch((LIST)->rtype,RETTYPE), 0)) #define _va_return_void(LIST) \ __va_return(LIST,__VAvoid) #define _va_return_char(LIST,VAL) \ (__va_return(LIST,__VAchar), (LIST)->tmp._char = (VAL)) #define _va_return_schar(LIST,VAL) \ (__va_return(LIST,__VAschar), (LIST)->tmp._schar = (VAL)) #define _va_return_uchar(LIST,VAL) \ (__va_return(LIST,__VAuchar), (LIST)->tmp._uchar = (VAL)) #define _va_return_short(LIST,VAL) \ (__va_return(LIST,__VAshort), (LIST)->tmp._short = (VAL)) #define _va_return_ushort(LIST,VAL) \ (__va_return(LIST,__VAushort), (LIST)->tmp._ushort = (VAL)) #define _va_return_int(LIST,VAL) \ (__va_return(LIST,__VAint), (LIST)->tmp._int = (VAL)) #define _va_return_uint(LIST,VAL) \ (__va_return(LIST,__VAuint), (LIST)->tmp._uint = (VAL)) #define _va_return_long(LIST,VAL) \ (__va_return(LIST,__VAlong), (LIST)->tmp._long = (VAL)) #define _va_return_ulong(LIST,VAL) \ (__va_return(LIST,__VAulong), (LIST)->tmp._ulong = (VAL)) #if defined(__mips64__) || defined(__sparc64__) || defined(__alpha__) || defined(__hppa64__) || defined(__arm64__) || defined(__powerpc64__) || defined(__ia64__) || (defined(__x86_64__) && !defined(__x86_64_x32__) && !defined(__VA_LLP64)) || defined(__riscv64__) #define _va_return_longlong(LIST,VAL) \ (__va_return(LIST,__VAlonglong), (LIST)->tmp._long = (VAL)) #define _va_return_ulonglong(LIST,VAL) \ (__va_return(LIST,__VAulonglong), (LIST)->tmp._ulong = (VAL)) #else #define _va_return_longlong(LIST,VAL) \ (__va_return(LIST,__VAlonglong), (LIST)->tmp._longlong = (VAL)) #define _va_return_ulonglong(LIST,VAL) \ (__va_return(LIST,__VAulonglong), (LIST)->tmp._ulonglong = (VAL)) #endif #define _va_return_float(LIST,VAL) \ (__va_return(LIST,__VAfloat), (LIST)->tmp._float = (VAL)) #define _va_return_double(LIST,VAL) \ (__va_return(LIST,__VAdouble), (LIST)->tmp._double = (VAL)) #define _va_return_ptr(LIST,VAL) \ (__va_return(LIST,__VAvoidp), (LIST)->tmp._ptr = (VAL)) #define __va_return_struct(LIST,TYPE_SIZE,TYPE_ALIGN,VAL_ADDR) \ (__va_return(LIST,__VAstruct), \ vacall_structcpy((void*)((LIST)->raddr),VAL_ADDR,TYPE_SIZE,TYPE_ALIGN) \ ) /* * Miscellaneous declarations. */ extern void vacall_structcpy (void* dest, const void* src, unsigned long size, unsigned long alignment); #endif /* _VACALL_INTERNAL_H */ libffcall-2.2/vacall/vacall-hppa.c0000664000000000000000000002424313347755335014006 00000000000000/* vacall function for hppa CPU */ /* * Copyright 1995-2017 Bruno Haible * * This program is free software: you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by * the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program. If not, see . */ /*--------------------------------------------------------------------------- HPPA Argument Passing Conventions: The calling conventions for anonymous functions and for explicitly named functions are different. Only the convention for explicitly named functions matters here. All arguments, except the first 4 words, are passed on the stack - growing down! - with word alignment. Doubles take two words and force double alignment. Structures args are passed as true structures embedded in the argument stack. They force double alignment and - if they don't fit entirely in the 4 register words - are passed in memory. The first 2 words are passed like this: %r26 = first integer arg, %r25 = second integer arg, or %fr4L = first float arg, %fr5L = second float arg, or %fr5 = double arg. Similarly for the next 2 words, passed in %r24 and %r23, or %fr6L and %fr7L, or %fr7. To return a structure, the called function copies the return value to the address supplied in register "%r28". ---------------------------------------------------------------------------*/ #include "vacall-internal.h" #ifdef REENTRANT #define vacall_receiver callback_receiver register struct { void (*vacall_function) (void*,va_alist); void* arg; } * env __asm__("%r29"); #endif register void* sret __asm__("%r28"); register long arg1 __asm__("%r26"); register long arg2 __asm__("%r25"); register long arg3 __asm__("%r24"); register long arg4 __asm__("%r23"); register float farg1 __asm__("%fr4"); /* fr4L */ register float farg2 __asm__("%fr5"); /* fr5L */ register float farg3 __asm__("%fr6"); /* fr6L */ register float farg4 __asm__("%fr7"); /* fr7L */ register double darg1 __asm__("%fr5"); register double darg2 __asm__("%fr7"); register int iret __asm__("%r28"); register float fret __asm__("%fr4"); /* fr4L */ register double dret __asm__("%fr4"); register __vaword iret1 __asm__("%r28"); register __vaword iret2 __asm__("%r29"); #ifdef REENTRANT static #endif void /* the return type is variable, not void! */ vacall_receiver (__vaword word1, __vaword word2, __vaword word3, __vaword word4, __vaword firstword) { /* gcc-2.6.3 source says: When a parameter is passed in a register, * stack space is still allocated for it. */ /* Note about stack offsets (see vacall-hppa.s): * &firstword = %r30 - 244, &word4 = %r30 - 240, ..., &word1 = %r30 - 228, */ __va_alist list; /* Move the arguments passed in registers to their stack locations. */ (&firstword)[4] = word1; (&firstword)[3] = word2; (&firstword)[2] = word3; (&firstword)[1] = word4; list.darg[1] = darg1; list.darg[0] = darg2; list.farg[3] = farg1; list.farg[2] = farg2; list.farg[1] = farg3; list.farg[0] = farg4; /* Prepare the va_alist. */ list.flags = 0; list.aptr = (long)(&firstword + 5); list.raddr = (void*)0; list.rtype = __VAvoid; list.structraddr = sret; list.memargptr = (long)(&firstword + 1); list.farg_offset = (long)&list.farg[4] - list.aptr; list.darg_offset = (long)&list.darg[2] - list.aptr; /* Call vacall_function. The macros do all the rest. */ #ifndef REENTRANT (*vacall_function) (&list); #else /* REENTRANT */ (*env->vacall_function) (env->arg,&list); #endif /* Put return value into proper register. */ if (list.rtype == __VAvoid) { } else if (list.rtype == __VAchar) { iret = list.tmp._char; } else if (list.rtype == __VAschar) { iret = list.tmp._schar; } else if (list.rtype == __VAuchar) { iret = list.tmp._uchar; } else if (list.rtype == __VAshort) { iret = list.tmp._short; } else if (list.rtype == __VAushort) { iret = list.tmp._ushort; } else if (list.rtype == __VAint) { iret = list.tmp._int; } else if (list.rtype == __VAuint) { iret = list.tmp._uint; } else if (list.rtype == __VAlong) { iret = list.tmp._long; } else if (list.rtype == __VAulong) { iret = list.tmp._ulong; } else if (list.rtype == __VAlonglong || list.rtype == __VAulonglong) { iret1 = ((__vaword *) &list.tmp._longlong)[0]; iret2 = ((__vaword *) &list.tmp._longlong)[1]; } else if (list.rtype == __VAfloat) { fret = list.tmp._float; iret1 = list.tmp._words[0]; /* HP cc generates a RTNVAL=GR call */ } else if (list.rtype == __VAdouble) { dret = list.tmp._double; iret1 = list.tmp._words[0]; /* HP cc generates a RTNVAL=GR call */ iret2 = list.tmp._words[1]; /* i.e. result is expected in r28,r29 */ } else if (list.rtype == __VAvoidp) { iret = (long)list.tmp._ptr; } else if (list.rtype == __VAstruct) { if (list.flags & __VA_SMALL_STRUCT_RETURN) { /* cc, c89 and gcc >= 2.7 return structs of size <= 8 in registers. */ /* This is really weird code, unlike all other big-endian platforms. */ if (list.rsize > 0 && list.rsize <= 8) { #if 0 /* Unoptimized */ if (list.rsize == 1) { iret = ((unsigned char *) list.raddr)[0]; } else if (list.rsize == 2) { iret = (((unsigned char *) list.raddr)[0] << 8) | ((unsigned char *) list.raddr)[1]; } else if (list.rsize == 3) { iret = (((unsigned char *) list.raddr)[0] << 16) | (((unsigned char *) list.raddr)[1] << 8) | ((unsigned char *) list.raddr)[2]; } else if (list.rsize == 4) { iret = (((unsigned char *) list.raddr)[0] << 24) | (((unsigned char *) list.raddr)[1] << 16) | (((unsigned char *) list.raddr)[2] << 8) | ((unsigned char *) list.raddr)[3]; } else if (list.rsize == 5) { iret1 = ((unsigned char *) list.raddr)[0]; iret2 = (((unsigned char *) list.raddr)[1] << 24) | (((unsigned char *) list.raddr)[2] << 16) | (((unsigned char *) list.raddr)[3] << 8) | ((unsigned char *) list.raddr)[4]; } else if (list.rsize == 6) { iret1 = (((unsigned char *) list.raddr)[0] << 8) | ((unsigned char *) list.raddr)[1]; iret2 = (((unsigned char *) list.raddr)[2] << 24) | (((unsigned char *) list.raddr)[3] << 16) | (((unsigned char *) list.raddr)[4] << 8) | ((unsigned char *) list.raddr)[5]; } else if (list.rsize == 7) { iret1 = (((unsigned char *) list.raddr)[0] << 16) | (((unsigned char *) list.raddr)[1] << 8) | ((unsigned char *) list.raddr)[2]; iret2 = (((unsigned char *) list.raddr)[3] << 24) | (((unsigned char *) list.raddr)[4] << 16) | (((unsigned char *) list.raddr)[5] << 8) | ((unsigned char *) list.raddr)[6]; } else if (list.rsize == 8) { iret1 = (((unsigned char *) list.raddr)[0] << 24) | (((unsigned char *) list.raddr)[1] << 16) | (((unsigned char *) list.raddr)[2] << 8) | ((unsigned char *) list.raddr)[3]; iret2 = (((unsigned char *) list.raddr)[4] << 24) | (((unsigned char *) list.raddr)[5] << 16) | (((unsigned char *) list.raddr)[6] << 8) | ((unsigned char *) list.raddr)[7]; } #else /* Optimized: fewer conditional jumps, fewer memory accesses */ uintptr_t count = list.rsize; /* > 0, ≤ 2*sizeof(__vaword) */ __vaword* wordaddr = (__vaword*)((uintptr_t)list.raddr & ~(uintptr_t)(sizeof(__vaword)-1)); uintptr_t start_offset = (uintptr_t)list.raddr & (uintptr_t)(sizeof(__vaword)-1); /* ≥ 0, < sizeof(__vaword) */ uintptr_t end_offset = start_offset + count; /* > 0, < 3*sizeof(__vaword) */ if (count <= sizeof(__vaword)) { /* Assign iret. */ __vaword mask0 = ((__vaword)2 << (sizeof(__vaword)*8-start_offset*8-1)) - 1; if (end_offset <= sizeof(__vaword)) { /* 0 < end_offset ≤ sizeof(__vaword) */ iret = (wordaddr[0] & mask0) >> (sizeof(__vaword)*8-end_offset*8); } else { /* sizeof(__vaword) < end_offset < 2*sizeof(__vaword), start_offset > 0 */ iret = ((wordaddr[0] & mask0) << (end_offset*8-sizeof(__vaword)*8)) | (wordaddr[1] >> (2*sizeof(__vaword)*8-end_offset*8)); } } else { /* Assign iret, iret2. */ __vaword mask0 = ((__vaword)2 << (sizeof(__vaword)*8-start_offset*8-1)) - 1; if (end_offset <= 2*sizeof(__vaword)) { /* sizeof(__vaword) < end_offset ≤ 2*sizeof(__vaword) */ iret = (wordaddr[0] & mask0) >> (2*sizeof(__vaword)*8-end_offset*8); iret2 = ((wordaddr[0] & mask0) << (end_offset*4-sizeof(__vaword)*4) << (end_offset*4-sizeof(__vaword)*4)) | (wordaddr[1] >> (2*sizeof(__vaword)*8-end_offset*8)); } else { /* 2*sizeof(__vaword) < end_offset < 3*sizeof(__vaword), start_offset > 0 */ iret = ((wordaddr[0] & mask0) << (end_offset*8-2*sizeof(__vaword)*8)) | (wordaddr[1] >> (3*sizeof(__vaword)*8-end_offset*8)); iret2 = (wordaddr[1] << (end_offset*8-2*sizeof(__vaword)*8)) | (wordaddr[2] >> (3*sizeof(__vaword)*8-end_offset*8)); } } #endif } } } } #ifdef REENTRANT __vacall_r_t callback_get_receiver (void) { return (__vacall_r_t)(void*)&callback_receiver; } #endif libffcall-2.2/vacall/minitests-c++.cc0000664000000000000000000000133213347755333014336 00000000000000/* * Copyright 2017 Bruno Haible * * This program is free software: you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by * the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program. If not, see . */ #include "minitests.c" libffcall-2.2/vacall/vacall-alpha-macro.S0000664000000000000000000000525313530357111015202 00000000000000 .set noreorder .set volatile .set noat .set nomacro .text .align 2 .align 4 .globl vacall_receiver .ent vacall_receiver vacall_receiver: .frame $15,192,$26,48 .mask 0x4008000,-192 ldah $29,0($27) !gpdisp!1 lda $29,0($29) !gpdisp!1 $vacall_receiver..ng: lda $30,-192($30) stq $15,8($30) mov $30,$15 lda $3,144($15) stq $26,0($30) .prologue 1 lda $2,88($15) stq $16,144($15) subq $2,$3,$2 ldq $3,vacall_function($29) !literal stq $2,80($15) lda $2,192($15) lda $16,16($15) stq $2,72($15) ldq $27,0($3) lda $2,144($15) stq $17,152($15) stq $18,160($15) stq $19,168($15) stq $20,176($15) stq $21,184($15) stt $f16,88($15) stt $f17,96($15) stt $f18,104($15) stt $f19,112($15) stt $f20,120($15) stt $f21,128($15) stl $31,16($15) stq $2,40($15) stq $31,48($15) stl $31,56($15) jsr $26,($27),0 ldah $29,0($26) !gpdisp!2 lda $29,0($29) !gpdisp!2 ldl $2,56($15) beq $2,$L43 zapnot $2,15,$3 cmpeq $3,1,$2 bne $2,$L44 cmpeq $3,2,$2 bne $2,$L44 cmpeq $3,3,$2 bne $2,$L50 cmpeq $3,4,$2 bne $2,$L51 cmpeq $3,5,$2 bne $2,$L52 cmpeq $3,6,$2 bne $2,$L53 cmpeq $3,7,$2 bne $2,$L54 cmpeq $3,8,$2 bne $2,$L48 cmpeq $3,9,$2 bne $2,$L48 cmpeq $3,10,$2 bne $2,$L48 cmpeq $3,11,$2 bne $2,$L48 cmpeq $3,12,$2 bne $2,$L55 cmpeq $3,13,$2 bne $2,$L56 cmpeq $3,14,$2 bne $2,$L48 cmpeq $3,15,$2 beq $2,$L43 lda $2,1024($31) ldl $3,16($15) and $2,$3,$2 beq $2,$L43 ldq $3,64($15) cmpeq $3,1,$2 bne $2,$L57 cmpeq $3,2,$2 bne $2,$L58 cmpeq $3,4,$2 bne $2,$L59 cmpeq $3,8,$2 bne $2,$L60 cmpeq $3,16,$2 beq $2,$L43 ldq $2,48($15) ldq $1,8($2) ldq $0,0($2) .align 4 $L43: mov $15,$30 ldq $26,0($30) ldq $15,8($30) lda $30,192($30) ret $31,($26),1 .align 4 $L44: mov $15,$30 ldl $2,24($15) ldq $26,0($30) sll $2,56,$2 sra $2,56,$0 ldq $15,8($30) lda $30,192($30) ret $31,($26),1 $L51: ldl $2,24($15) sll $2,48,$2 sra $2,48,$0 br $31,$L43 $L50: ldl $2,24($15) bis $31,$31,$31 and $2,0xff,$0 br $31,$L43 $L48: ldq $0,24($15) br $31,$L43 $L52: ldl $2,24($15) bis $31,$31,$31 zapnot $2,3,$0 br $31,$L43 $L53: ldl $3,24($15) bis $31,$31,$31 mov $3,$0 br $31,$L43 $L54: ldl $2,24($15) bis $31,$31,$31 zapnot $2,15,$0 br $31,$L43 $L55: lds $f0,24($15) br $31,$L43 $L56: ldt $f0,24($15) br $31,$L43 $L57: ldq $3,48($15) ldq_u $2,0($3) extbl $2,$3,$0 br $31,$L43 $L58: ldq $3,48($15) ldq_u $2,0($3) extwl $2,$3,$0 br $31,$L43 $L60: ldq $2,48($15) bis $31,$31,$31 ldq $0,0($2) br $31,$L43 $L59: ldq $2,48($15) ldl $3,0($2) zapnot $3,15,$0 br $31,$L43 .end vacall_receiver #if defined __linux__ || defined __FreeBSD__ || defined __FreeBSD_kernel__ || defined __DragonFly__ .section .note.GNU-stack,"",@progbits #endif libffcall-2.2/vacall/vacall-x86_64.c0000664000000000000000000002035513347755341014011 00000000000000/* vacall function for x86_64 CPU with the Unix ABI ('gcc -mabi=sysv') */ /* * Copyright 1995-2017 Bruno Haible * * This program is free software: you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by * the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program. If not, see . */ #include "vacall-internal.h" #ifdef REENTRANT #define vacall_receiver callback_receiver register struct { void (*vacall_function) (void*,va_alist); void* arg; } * env __asm__("r10"); #endif /*register __vaword iarg1 __asm__("rdi");*/ /*register __vaword iarg2 __asm__("rsi");*/ /*register __vaword iarg3 __asm__("rdx");*/ /*register __vaword iarg4 __asm__("rcx");*/ /*register __vaword iarg5 __asm__("r8");*/ /*register __vaword iarg6 __asm__("r9");*/ register double farg1 __asm__("xmm0"); register double farg2 __asm__("xmm1"); register double farg3 __asm__("xmm2"); register double farg4 __asm__("xmm3"); register double farg5 __asm__("xmm4"); register double farg6 __asm__("xmm5"); register double farg7 __asm__("xmm6"); register double farg8 __asm__("xmm7"); register __vaword iret __asm__("rax"); register __vaword iret2 __asm__("rdx"); register float fret __asm__("xmm0"); register double dret __asm__("xmm0"); /* * Tell gcc to not use the call-saved registers %rbx, %rbp. * This ensures that the return sequence does not need to restore registers * from the stack. */ register void* dummy1 __asm__("%rbx"); #if __GNUC__ < 4 || (__GNUC__ == 4 && __GNUC_MINOR__ < 9) register void* dummy2 __asm__("%rbp"); #endif #ifdef REENTRANT static #endif void /* the return type is variable, not void! */ vacall_receiver (__vaword word1, __vaword word2, __vaword word3, __vaword word4, __vaword word5, __vaword word6, __vaword firstword) { __va_alist list; /* Move the arguments passed in registers to temp storage. */ list.iarg[0] = word1; list.iarg[1] = word2; list.iarg[2] = word3; list.iarg[3] = word4; list.iarg[4] = word5; list.iarg[5] = word6; list.farg[0] = farg1; list.farg[1] = farg2; list.farg[2] = farg3; list.farg[3] = farg4; list.farg[4] = farg5; list.farg[5] = farg6; list.farg[6] = farg7; list.farg[7] = farg8; /* Prepare the va_alist. */ list.flags = 0; list.aptr = (long)&firstword; list.raddr = (void*)0; list.rtype = __VAvoid; list.ianum = 0; list.fanum = 0; /* Call vacall_function. The macros do all the rest. */ #ifndef REENTRANT (*vacall_function) (&list); #else /* REENTRANT */ (*env->vacall_function) (env->arg,&list); #endif /* Put return value into proper register. */ if (list.rtype == __VAvoid) { } else if (list.rtype == __VAchar) { iret = list.tmp._char; } else if (list.rtype == __VAschar) { iret = list.tmp._schar; } else if (list.rtype == __VAuchar) { iret = list.tmp._uchar; } else if (list.rtype == __VAshort) { iret = list.tmp._short; } else if (list.rtype == __VAushort) { iret = list.tmp._ushort; } else if (list.rtype == __VAint) { iret = list.tmp._int; } else if (list.rtype == __VAuint) { iret = list.tmp._uint; } else if (list.rtype == __VAlong) { iret = list.tmp._long; } else if (list.rtype == __VAulong) { iret = list.tmp._ulong; } else if (list.rtype == __VAlonglong) { #ifdef __x86_64_x32__ iret = list.tmp._longlong; #else iret = list.tmp._long; #endif } else if (list.rtype == __VAulonglong) { #ifdef __x86_64_x32__ iret = list.tmp._ulonglong; #else iret = list.tmp._ulong; #endif } else if (list.rtype == __VAfloat) { fret = list.tmp._float; } else if (list.rtype == __VAdouble) { dret = list.tmp._double; } else if (list.rtype == __VAvoidp) { #ifdef __x86_64_x32__ /* The x86_64 ABI, section 10.1, specifies that pointers are zero-extended from 32 bits to 64 bits. */ iret = (unsigned long long)(unsigned long)list.tmp._ptr; #else iret = (long)list.tmp._ptr; #endif } else if (list.rtype == __VAstruct) { if (list.flags & __VA_REGISTER_STRUCT_RETURN) { /* Return structs of size <= 16 in registers. */ if (list.rsize > 0 && list.rsize <= 16) { #if 0 /* Unoptimized */ iret = (__vaword)((unsigned char *) list.raddr)[0]; if (list.rsize >= 2) iret |= (__vaword)((unsigned char *) list.raddr)[1] << 8; if (list.rsize >= 3) iret |= (__vaword)((unsigned char *) list.raddr)[2] << 16; if (list.rsize >= 4) iret |= (__vaword)((unsigned char *) list.raddr)[3] << 24; if (list.rsize >= 5) iret |= (__vaword)((unsigned char *) list.raddr)[4] << 32; if (list.rsize >= 6) iret |= (__vaword)((unsigned char *) list.raddr)[5] << 40; if (list.rsize >= 7) iret |= (__vaword)((unsigned char *) list.raddr)[6] << 48; if (list.rsize >= 8) iret |= (__vaword)((unsigned char *) list.raddr)[7] << 56; if (list.rsize >= 9) { iret2 = (__vaword)((unsigned char *) list.raddr)[8]; if (list.rsize >= 10) iret2 |= (__vaword)((unsigned char *) list.raddr)[9] << 8; if (list.rsize >= 11) iret2 |= (__vaword)((unsigned char *) list.raddr)[10] << 16; if (list.rsize >= 12) iret2 |= (__vaword)((unsigned char *) list.raddr)[11] << 24; if (list.rsize >= 13) iret2 |= (__vaword)((unsigned char *) list.raddr)[12] << 32; if (list.rsize >= 14) iret2 |= (__vaword)((unsigned char *) list.raddr)[13] << 40; if (list.rsize >= 15) iret2 |= (__vaword)((unsigned char *) list.raddr)[14] << 48; if (list.rsize >= 16) iret2 |= (__vaword)((unsigned char *) list.raddr)[15] << 56; } #else /* Optimized: fewer conditional jumps, fewer memory accesses */ uintptr_t count = list.rsize; /* > 0, ≤ 2*sizeof(__vaword) */ __vaword* wordaddr = (__vaword*)((uintptr_t)list.raddr & ~(uintptr_t)(sizeof(__vaword)-1)); uintptr_t start_offset = (uintptr_t)list.raddr & (uintptr_t)(sizeof(__vaword)-1); /* ≥ 0, < sizeof(__vaword) */ uintptr_t end_offset = start_offset + count; /* > 0, < 3*sizeof(__vaword) */ if (count <= sizeof(__vaword)) { /* Assign iret. */ if (end_offset <= sizeof(__vaword)) { /* 0 < end_offset ≤ sizeof(__vaword) */ __vaword mask0 = ((__vaword)2 << (end_offset*8-1)) - 1; iret = (wordaddr[0] & mask0) >> (start_offset*8); } else { /* sizeof(__vaword) < end_offset < 2*sizeof(__vaword), start_offset > 0 */ __vaword mask1 = ((__vaword)2 << (end_offset*8-sizeof(__vaword)*8-1)) - 1; iret = (wordaddr[0] >> (start_offset*8)) | ((wordaddr[1] & mask1) << (sizeof(__vaword)*8-start_offset*8)); } } else { /* Assign iret, iret2. */ if (end_offset <= 2*sizeof(__vaword)) { /* sizeof(__vaword) < end_offset ≤ 2*sizeof(__vaword) */ __vaword mask1 = ((__vaword)2 << (end_offset*8-sizeof(__vaword)*8-1)) - 1; iret = (wordaddr[0] >> (start_offset*8)) | ((wordaddr[1] & mask1) << (sizeof(__vaword)*4-start_offset*4) << (sizeof(__vaword)*4-start_offset*4)); iret2 = (wordaddr[1] & mask1) >> (start_offset*8); } else { /* 2*sizeof(__vaword) < end_offset < 3*sizeof(__vaword), start_offset > 0 */ __vaword mask2 = ((__vaword)2 << (end_offset*8-2*sizeof(__vaword)*8-1)) - 1; iret = (wordaddr[0] >> (start_offset*8)) | (wordaddr[1] << (sizeof(__vaword)*8-start_offset*8)); iret2 = (wordaddr[1] >> (start_offset*8)) | ((wordaddr[2] & mask2) << (sizeof(__vaword)*8-start_offset*8)); } } #endif } } } } #ifdef REENTRANT __vacall_r_t callback_get_receiver (void) { return (__vacall_r_t)(void*)&callback_receiver; } #endif libffcall-2.2/vacall/vacall-arm64.c0000664000000000000000000002032413347755334014002 00000000000000/* vacall function for arm64 (a.k.a. aarch64) CPU */ /* * Copyright 1995-2017 Bruno Haible * * This program is free software: you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by * the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program. If not, see . */ #include "vacall-internal.h" #ifdef REENTRANT #define vacall_receiver callback_receiver register struct { void (*vacall_function) (void*,va_alist); void* arg; } * env __asm__("x18"); #endif register __vaword* sret __asm__("x8"); /* structure return pointer */ register __vaword iarg1 __asm__("x0"); register __vaword iarg2 __asm__("x1"); register __vaword iarg3 __asm__("x2"); register __vaword iarg4 __asm__("x3"); register __vaword iarg5 __asm__("x4"); register __vaword iarg6 __asm__("x5"); register __vaword iarg7 __asm__("x6"); register __vaword iarg8 __asm__("x7"); register float farg1 __asm__("s0"); register float farg2 __asm__("s1"); register float farg3 __asm__("s2"); register float farg4 __asm__("s3"); register float farg5 __asm__("s4"); register float farg6 __asm__("s5"); register float farg7 __asm__("s6"); register float farg8 __asm__("s7"); register double darg1 __asm__("d0"); register double darg2 __asm__("d1"); register double darg3 __asm__("d2"); register double darg4 __asm__("d3"); register double darg5 __asm__("d4"); register double darg6 __asm__("d5"); register double darg7 __asm__("d6"); register double darg8 __asm__("d7"); register __vaword iret __asm__("x0"); register __vaword iret2 __asm__("x1"); register float fret __asm__("s0"); register double dret __asm__("d0"); #ifdef REENTRANT static #endif void /* the return type is variable, not void! */ vacall_receiver (__vaword word1, __vaword word2, __vaword word3, __vaword word4, __vaword word5, __vaword word6, __vaword word7, __vaword word8, __vaword firstword) { __va_alist list; /* Move the arguments passed in registers to temp storage. */ list.iarg[0] = iarg1; list.iarg[1] = iarg2; list.iarg[2] = iarg3; list.iarg[3] = iarg4; list.iarg[4] = iarg5; list.iarg[5] = iarg6; list.iarg[6] = iarg7; list.iarg[7] = iarg8; list.farg[0] = farg1; list.farg[1] = farg2; list.farg[2] = farg3; list.farg[3] = farg4; list.farg[4] = farg5; list.farg[5] = farg6; list.farg[6] = farg7; list.farg[7] = farg8; list.darg[0] = darg1; list.darg[1] = darg2; list.darg[2] = darg3; list.darg[3] = darg4; list.darg[4] = darg5; list.darg[5] = darg6; list.darg[6] = darg7; list.darg[7] = darg8; /* Prepare the va_alist. */ list.flags = 0; list.aptr = (long)&firstword; list.raddr = (void*)0; list.rtype = __VAvoid; list.structraddr = sret; list.ianum = 0; list.fanum = 0; /* Call vacall_function. The macros do all the rest. */ #ifndef REENTRANT (*vacall_function) (&list); #else /* REENTRANT */ (*env->vacall_function) (env->arg,&list); #endif /* Put return value into proper register. */ if (list.rtype == __VAvoid) { } else if (list.rtype == __VAchar) { iret = list.tmp._char; } else if (list.rtype == __VAschar) { iret = list.tmp._schar; } else if (list.rtype == __VAuchar) { iret = list.tmp._uchar; } else if (list.rtype == __VAshort) { iret = list.tmp._short; } else if (list.rtype == __VAushort) { iret = list.tmp._ushort; } else if (list.rtype == __VAint) { iret = list.tmp._int; } else if (list.rtype == __VAuint) { iret = list.tmp._uint; } else if (list.rtype == __VAlong || list.rtype == __VAlonglong) { iret = list.tmp._long; } else if (list.rtype == __VAulong || list.rtype == __VAulonglong) { iret = list.tmp._ulong; } else if (list.rtype == __VAfloat) { fret = list.tmp._float; } else if (list.rtype == __VAdouble) { dret = list.tmp._double; } else if (list.rtype == __VAvoidp) { iret = (long)list.tmp._ptr; } else if (list.rtype == __VAstruct) { /* normal struct return convention */ if (list.flags & __VA_REGISTER_STRUCT_RETURN) { /* Return structs of size <= 16 in registers. */ if (list.rsize > 0 && list.rsize <= 16) { #if 0 /* Unoptimized */ iret = (__vaword)((unsigned char *) list.raddr)[0]; if (list.rsize >= 2) iret |= (__vaword)((unsigned char *) list.raddr)[1] << 8; if (list.rsize >= 3) iret |= (__vaword)((unsigned char *) list.raddr)[2] << 16; if (list.rsize >= 4) iret |= (__vaword)((unsigned char *) list.raddr)[3] << 24; if (list.rsize >= 5) iret |= (__vaword)((unsigned char *) list.raddr)[4] << 32; if (list.rsize >= 6) iret |= (__vaword)((unsigned char *) list.raddr)[5] << 40; if (list.rsize >= 7) iret |= (__vaword)((unsigned char *) list.raddr)[6] << 48; if (list.rsize >= 8) iret |= (__vaword)((unsigned char *) list.raddr)[7] << 56; if (list.rsize >= 9) { iret2 = (__vaword)((unsigned char *) list.raddr)[8]; if (list.rsize >= 10) iret2 |= (__vaword)((unsigned char *) list.raddr)[9] << 8; if (list.rsize >= 11) iret2 |= (__vaword)((unsigned char *) list.raddr)[10] << 16; if (list.rsize >= 12) iret2 |= (__vaword)((unsigned char *) list.raddr)[11] << 24; if (list.rsize >= 13) iret2 |= (__vaword)((unsigned char *) list.raddr)[12] << 32; if (list.rsize >= 14) iret2 |= (__vaword)((unsigned char *) list.raddr)[13] << 40; if (list.rsize >= 15) iret2 |= (__vaword)((unsigned char *) list.raddr)[14] << 48; if (list.rsize >= 16) iret2 |= (__vaword)((unsigned char *) list.raddr)[15] << 56; } #else /* Optimized: fewer conditional jumps, fewer memory accesses */ uintptr_t count = list.rsize; /* > 0, ≤ 2*sizeof(__vaword) */ __vaword* wordaddr = (__vaword*)((uintptr_t)list.raddr & ~(uintptr_t)(sizeof(__vaword)-1)); uintptr_t start_offset = (uintptr_t)list.raddr & (uintptr_t)(sizeof(__vaword)-1); /* ≥ 0, < sizeof(__vaword) */ uintptr_t end_offset = start_offset + count; /* > 0, < 3*sizeof(__vaword) */ if (count <= sizeof(__vaword)) { /* Assign iret. */ if (end_offset <= sizeof(__vaword)) { /* 0 < end_offset ≤ sizeof(__vaword) */ __vaword mask0 = ((__vaword)2 << (end_offset*8-1)) - 1; iret = (wordaddr[0] & mask0) >> (start_offset*8); } else { /* sizeof(__vaword) < end_offset < 2*sizeof(__vaword), start_offset > 0 */ __vaword mask1 = ((__vaword)2 << (end_offset*8-sizeof(__vaword)*8-1)) - 1; iret = (wordaddr[0] >> (start_offset*8)) | ((wordaddr[1] & mask1) << (sizeof(__vaword)*8-start_offset*8)); } } else { /* Assign iret, iret2. */ if (end_offset <= 2*sizeof(__vaword)) { /* sizeof(__vaword) < end_offset ≤ 2*sizeof(__vaword) */ __vaword mask1 = ((__vaword)2 << (end_offset*8-sizeof(__vaword)*8-1)) - 1; iret = (wordaddr[0] >> (start_offset*8)) | ((wordaddr[1] & mask1) << (sizeof(__vaword)*4-start_offset*4) << (sizeof(__vaword)*4-start_offset*4)); iret2 = (wordaddr[1] & mask1) >> (start_offset*8); } else { /* 2*sizeof(__vaword) < end_offset < 3*sizeof(__vaword), start_offset > 0 */ __vaword mask2 = ((__vaword)2 << (end_offset*8-2*sizeof(__vaword)*8-1)) - 1; iret = (wordaddr[0] >> (start_offset*8)) | (wordaddr[1] << (sizeof(__vaword)*8-start_offset*8)); iret2 = (wordaddr[1] >> (start_offset*8)) | ((wordaddr[2] & mask2) << (sizeof(__vaword)*8-start_offset*8)); } } #endif } } } } #ifdef REENTRANT __vacall_r_t callback_get_receiver (void) { return (__vacall_r_t)(void*)&callback_receiver; } #endif libffcall-2.2/vacall/vacall-powerpc64-aix.s0000664000000000000000000000406313530357112015465 00000000000000 .file "vacall-powerpc64.c" .csect .text[PR] .toc .csect .text[PR] .toc LC..0: .tc vacall_function[TC],vacall_function[UA] .csect .text[PR] .align 2 .align 4 .globl vacall_receiver .globl .vacall_receiver .csect vacall_receiver[DS],3 vacall_receiver: .llong .vacall_receiver, TOC[tc0], 0 .csect .text[PR] .vacall_receiver: mflr 0 std 31,-8(1) li 11,0 std 0,16(1) li 0,0 stdu 1,-304(1) mr 31,1 std 2,40(1) stw 0,112(31) stw 11,152(31) stw 11,168(31) std 9,400(31) addi 9,31,352 std 3,352(31) stfd 1,172(31) std 4,360(31) std 5,368(31) std 6,376(31) std 7,384(31) std 8,392(31) stfd 2,180(31) addi 3,31,112 stfd 3,188(31) stfd 4,196(31) stfd 5,204(31) stfd 6,212(31) stfd 7,220(31) stfd 8,228(31) stfd 9,236(31) stfd 10,244(31) stfd 11,252(31) stfd 12,260(31) stfd 13,268(31) std 9,136(31) std 11,144(31) std 10,408(31) ld 9,LC..0(2) ld 9,0(9) ld 10,0(9) ld 11,16(9) mtctr 10 ld 2,8(9) bctrl ld 2,40(1) lwz 9,152(31) cmpdi 7,9,0 beq 7,L..1 cmplwi 7,9,1 beq 7,L..20 cmplwi 7,9,2 beq 7,L..23 cmplwi 7,9,3 beq 7,L..20 cmplwi 7,9,4 beq 7,L..24 cmplwi 7,9,5 beq 7,L..25 cmplwi 7,9,6 beq 7,L..26 cmplwi 7,9,7 beq 7,L..27 cmplwi 7,9,8 beq 7,L..21 cmplwi 7,9,9 beq 7,L..21 cmplwi 7,9,10 beq 7,L..21 cmplwi 7,9,11 beq 7,L..21 cmplwi 7,9,12 beq 7,L..28 cmplwi 7,9,13 beq 7,L..29 cmplwi 7,9,14 beq 7,L..21 L..1: addi 1,31,304 ld 0,16(1) ld 31,-8(1) mtlr 0 blr .align 4 L..20: lbz 3,120(31) addi 1,31,304 ld 0,16(1) ld 31,-8(1) mtlr 0 blr .align 4 L..23: lbz 9,120(31) extsb 3,9 b L..1 .align 4 L..21: ld 3,120(31) b L..1 .align 4 L..24: lha 3,120(31) b L..1 .align 4 L..25: lhz 3,120(31) b L..1 .align 4 L..26: lwa 3,120(31) b L..1 .align 4 L..28: lfs 1,120(31) b L..1 .align 4 L..27: lwz 3,120(31) b L..1 L..29: lfd 1,120(31) b L..1 LT..vacall_receiver: .long 0 .byte 0,0,32,97,128,1,8,0 .long 0 .long LT..vacall_receiver-.vacall_receiver .short 15 .byte "vacall_receiver" .byte 31 .align 2 _section_.text: .csect .data[RW],4 .llong _section_.text .extern vacall_function[UA] libffcall-2.2/vacall/vacall-powerpc-aix.s0000664000000000000000000000452513530357112015316 00000000000000 .file "vacall-powerpc.c" .toc .csect .text[PR] .toc LC..0: .tc vacall_function[TC],vacall_function[RW] .csect .text[PR] .align 2 .globl vacall_receiver .globl .vacall_receiver .csect vacall_receiver[DS] vacall_receiver: .long .vacall_receiver, TOC[tc0], 0 .csect .text[PR] .vacall_receiver: .extern __mulh .extern __mull .extern __divss .extern __divus .extern __quoss .extern __quous mflr 0 stw 0,8(1) stw 29,-12(1) stw 31,-4(1) lwz 11,LC..0(2) stwu 1,-216(1) mr 31,1 lwz 29,0(11) addi 0,31,240 li 11,0 stw 9,264(31) stw 3,240(31) stw 5,248(31) stw 6,252(31) stw 7,256(31) stw 8,260(31) stw 10,268(31) stw 11,88(31) stw 4,244(31) stfd 1,92(31) stfd 2,100(31) stfd 3,108(31) stfd 4,116(31) stfd 5,124(31) stfd 6,132(31) stfd 7,140(31) stfd 8,148(31) stfd 9,156(31) stfd 10,164(31) stfd 11,172(31) stfd 12,180(31) stfd 13,188(31) stw 11,56(31) stw 11,76(31) stw 11,80(31) stw 0,72(31) lwz 0,0(29) addi 3,31,56 stw 2,20(1) mtctr 0 lwz 11,8(29) lwz 2,4(29) bctrl lwz 2,20(1) lwz 9,80(31) cmpwi 0,9,0 beq- 0,L..1 cmpwi 0,9,1 beq- 0,L..41 cmpwi 0,9,2 beq- 0,L..42 cmpwi 0,9,3 beq- 0,L..41 cmpwi 0,9,4 beq- 0,L..43 cmpwi 0,9,5 beq- 0,L..44 cmpwi 0,9,6 beq- 0,L..40 cmpwi 0,9,7 beq- 0,L..40 cmpwi 0,9,8 beq- 0,L..40 cmpwi 0,9,9 beq- 0,L..40 addi 0,9,-10 cmplwi 0,0,1 bgt- 0,L..22 lwz 3,64(31) lwz 4,68(31) L..1: lwz 1,0(1) lwz 0,8(1) lwz 29,-12(1) mtlr 0 lwz 31,-4(1) blr L..22: cmpwi 0,9,12 beq- 0,L..45 cmpwi 0,9,13 beq- 0,L..46 cmpwi 0,9,14 beq- 0,L..40 cmpwi 0,9,15 bne+ 0,L..1 lwz 0,56(31) andi. 9,0,1024 beq- 0,L..1 lwz 0,84(31) cmpwi 0,0,1 beq- 0,L..47 cmpwi 0,0,2 beq- 0,L..48 cmpwi 0,0,4 beq- 0,L..49 cmpwi 0,0,8 bne+ 0,L..1 lwz 9,76(31) lwz 4,4(9) L..39: lwz 3,0(9) b L..1 L..49: lwz 9,76(31) b L..39 L..48: lwz 9,76(31) lhz 3,0(9) b L..1 L..47: lwz 9,76(31) lbz 3,0(9) b L..1 L..40: lwz 3,64(31) b L..1 L..46: lfd 1,64(31) b L..1 L..45: lfs 1,64(31) b L..1 L..44: lhz 3,64(31) b L..1 L..43: lha 3,64(31) b L..1 L..41: lbz 3,64(31) b L..1 L..42: lbz 0,64(31) slwi 0,0,24 srawi 3,0,24 b L..1 LT..vacall_receiver: .long 0 .byte 0,0,32,97,128,3,8,0 .long 0 .long LT..vacall_receiver-.vacall_receiver .short 15 .byte "vacall_receiver" .byte 31 .align 2 _section_.text: .csect .data[RW],3 .long _section_.text .extern vacall_function[RW] libffcall-2.2/vacall/vacall-riscv64.c0000664000000000000000000002131113526636613014343 00000000000000/* vacall function for RISC-V 64-bit CPU */ /* * Copyright 1995-2019 Bruno Haible * * This program is free software: you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by * the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program. If not, see . */ #include "vacall-internal.h" #ifdef REENTRANT #define vacall_receiver callback_receiver register struct { void (*vacall_function) (void*,va_alist); void* arg; } * env __asm__("t2"); #endif register __vaword iarg1 __asm__("a0"); register __vaword iarg2 __asm__("a1"); register __vaword iarg3 __asm__("a2"); register __vaword iarg4 __asm__("a3"); register __vaword iarg5 __asm__("a4"); register __vaword iarg6 __asm__("a5"); register __vaword iarg7 __asm__("a6"); register __vaword iarg8 __asm__("a7"); register float farg1 __asm__("fa0"); register float farg2 __asm__("fa1"); register float farg3 __asm__("fa2"); register float farg4 __asm__("fa3"); register float farg5 __asm__("fa4"); register float farg6 __asm__("fa5"); register float farg7 __asm__("fa6"); register float farg8 __asm__("fa7"); register double darg1 __asm__("fa0"); register double darg2 __asm__("fa1"); register double darg3 __asm__("fa2"); register double darg4 __asm__("fa3"); register double darg5 __asm__("fa4"); register double darg6 __asm__("fa5"); register double darg7 __asm__("fa6"); register double darg8 __asm__("fa7"); register __vaword iret __asm__("a0"); register __vaword iret2 __asm__("a1"); register float fret __asm__("fa0"); register double dret __asm__("fa0"); /* The ABI requires that the first 8 general-purpose argument words are being passed in registers, even if these words belong to structs that are at most 2 words large. No room is allocated for these register words on the stack by the caller, but the callee allocates room for them - at the right place in the stack frame, that is, above the retaddr - if and only if they are part of a struct that extends to the stack and the address of this struct is taken. */ struct gpargsequence { __vaword word8; /* a7 */ __vaword firststackword; }; #ifdef REENTRANT static #endif void /* the return type is variable, not void! */ vacall_receiver (__vaword word1, __vaword word2, __vaword word3, __vaword word4, __vaword word5, __vaword word6, __vaword word7, struct gpargsequence gpargs) { __va_alist list; /* Move the arguments passed in registers to temp storage. */ list.iarg[0] = iarg1; list.iarg[1] = iarg2; list.iarg[2] = iarg3; list.iarg[3] = iarg4; list.iarg[4] = iarg5; list.iarg[5] = iarg6; list.iarg[6] = iarg7; list.iarg[7] = iarg8; /* = gpargs.word8 */ list.farg[0] = farg1; list.farg[1] = farg2; list.farg[2] = farg3; list.farg[3] = farg4; list.farg[4] = farg5; list.farg[5] = farg6; list.farg[6] = farg7; list.farg[7] = farg8; list.darg[0] = darg1; list.darg[1] = darg2; list.darg[2] = darg3; list.darg[3] = darg4; list.darg[4] = darg5; list.darg[5] = darg6; list.darg[6] = darg7; list.darg[7] = darg8; /* Prepare the va_alist. */ list.flags = 0; list.aptr = (long)&gpargs + sizeof(__vaword); list.raddr = (void*)0; list.rtype = __VAvoid; list.ianum = 0; list.fanum = 0; /* Call vacall_function. The macros do all the rest. */ #ifndef REENTRANT (*vacall_function) (&list); #else /* REENTRANT */ (*env->vacall_function) (env->arg,&list); #endif /* Put return value into proper register. */ if (list.rtype == __VAvoid) { } else if (list.rtype == __VAchar) { iret = list.tmp._char; } else if (list.rtype == __VAschar) { iret = list.tmp._schar; } else if (list.rtype == __VAuchar) { iret = list.tmp._uchar; } else if (list.rtype == __VAshort) { iret = list.tmp._short; } else if (list.rtype == __VAushort) { iret = list.tmp._ushort; } else if (list.rtype == __VAint) { iret = list.tmp._int; } else if (list.rtype == __VAuint) { iret = list.tmp._uint; } else if (list.rtype == __VAlong || list.rtype == __VAlonglong) { iret = list.tmp._long; } else if (list.rtype == __VAulong || list.rtype == __VAulonglong) { iret = list.tmp._ulong; } else if (list.rtype == __VAfloat) { fret = list.tmp._float; } else if (list.rtype == __VAdouble) { dret = list.tmp._double; } else if (list.rtype == __VAvoidp) { iret = (long)list.tmp._ptr; } else if (list.rtype == __VAstruct) { /* normal struct return convention */ if (list.flags & __VA_REGISTER_STRUCT_RETURN) { /* Return structs of size <= 16 in registers. */ if (list.rsize > 0 && list.rsize <= 16) { #if 0 /* Unoptimized */ iret = (__vaword)((unsigned char *) list.raddr)[0]; if (list.rsize >= 2) iret |= (__vaword)((unsigned char *) list.raddr)[1] << 8; if (list.rsize >= 3) iret |= (__vaword)((unsigned char *) list.raddr)[2] << 16; if (list.rsize >= 4) iret |= (__vaword)((unsigned char *) list.raddr)[3] << 24; if (list.rsize >= 5) iret |= (__vaword)((unsigned char *) list.raddr)[4] << 32; if (list.rsize >= 6) iret |= (__vaword)((unsigned char *) list.raddr)[5] << 40; if (list.rsize >= 7) iret |= (__vaword)((unsigned char *) list.raddr)[6] << 48; if (list.rsize >= 8) iret |= (__vaword)((unsigned char *) list.raddr)[7] << 56; if (list.rsize >= 9) { iret2 = (__vaword)((unsigned char *) list.raddr)[8]; if (list.rsize >= 10) iret2 |= (__vaword)((unsigned char *) list.raddr)[9] << 8; if (list.rsize >= 11) iret2 |= (__vaword)((unsigned char *) list.raddr)[10] << 16; if (list.rsize >= 12) iret2 |= (__vaword)((unsigned char *) list.raddr)[11] << 24; if (list.rsize >= 13) iret2 |= (__vaword)((unsigned char *) list.raddr)[12] << 32; if (list.rsize >= 14) iret2 |= (__vaword)((unsigned char *) list.raddr)[13] << 40; if (list.rsize >= 15) iret2 |= (__vaword)((unsigned char *) list.raddr)[14] << 48; if (list.rsize >= 16) iret2 |= (__vaword)((unsigned char *) list.raddr)[15] << 56; } #else /* Optimized: fewer conditional jumps, fewer memory accesses */ uintptr_t count = list.rsize; /* > 0, ≤ 2*sizeof(__vaword) */ __vaword* wordaddr = (__vaword*)((uintptr_t)list.raddr & ~(uintptr_t)(sizeof(__vaword)-1)); uintptr_t start_offset = (uintptr_t)list.raddr & (uintptr_t)(sizeof(__vaword)-1); /* ≥ 0, < sizeof(__vaword) */ uintptr_t end_offset = start_offset + count; /* > 0, < 3*sizeof(__vaword) */ if (count <= sizeof(__vaword)) { /* Assign iret. */ if (end_offset <= sizeof(__vaword)) { /* 0 < end_offset ≤ sizeof(__vaword) */ __vaword mask0 = ((__vaword)2 << (end_offset*8-1)) - 1; iret = (wordaddr[0] & mask0) >> (start_offset*8); } else { /* sizeof(__vaword) < end_offset < 2*sizeof(__vaword), start_offset > 0 */ __vaword mask1 = ((__vaword)2 << (end_offset*8-sizeof(__vaword)*8-1)) - 1; iret = (wordaddr[0] >> (start_offset*8)) | ((wordaddr[1] & mask1) << (sizeof(__vaword)*8-start_offset*8)); } } else { /* Assign iret, iret2. */ if (end_offset <= 2*sizeof(__vaword)) { /* sizeof(__vaword) < end_offset ≤ 2*sizeof(__vaword) */ __vaword mask1 = ((__vaword)2 << (end_offset*8-sizeof(__vaword)*8-1)) - 1; iret = (wordaddr[0] >> (start_offset*8)) | ((wordaddr[1] & mask1) << (sizeof(__vaword)*4-start_offset*4) << (sizeof(__vaword)*4-start_offset*4)); iret2 = (wordaddr[1] & mask1) >> (start_offset*8); } else { /* 2*sizeof(__vaword) < end_offset < 3*sizeof(__vaword), start_offset > 0 */ __vaword mask2 = ((__vaword)2 << (end_offset*8-2*sizeof(__vaword)*8-1)) - 1; iret = (wordaddr[0] >> (start_offset*8)) | (wordaddr[1] << (sizeof(__vaword)*8-start_offset*8)); iret2 = (wordaddr[1] >> (start_offset*8)) | ((wordaddr[2] & mask2) << (sizeof(__vaword)*8-start_offset*8)); } } #endif } } } } #ifdef REENTRANT __vacall_r_t callback_get_receiver (void) { return (__vacall_r_t)(void*)&callback_receiver; } #endif libffcall-2.2/vacall/vacall-powerpc-sysv4-macro.S0000664000000000000000000000366213530357112016665 00000000000000 .file "vacall-powerpc.c" .section ".text" .align 2 .globl vacall_receiver .type vacall_receiver, @function vacall_receiver: .extern __mulh .extern __mull .extern __divss .extern __divus .extern __quoss .extern __quous stwu 1,-176(1) mflr 0 li 11,0 stw 0,180(1) stw 31,172(1) mr 31,1 stw 9,76(31) addi 0,31,184 lis 9,vacall_function@ha stw 3,52(31) lwz 9,vacall_function@l(9) addi 3,31,16 stw 5,60(31) mtctr 9 stw 6,64(31) stw 7,68(31) stw 8,72(31) stw 10,80(31) stw 0,32(31) stw 11,84(31) stw 4,56(31) stfd 1,88(31) stfd 2,96(31) stfd 3,104(31) stfd 4,112(31) stfd 5,120(31) stfd 6,128(31) stfd 7,136(31) stfd 8,144(31) stw 11,16(31) stw 11,48(31) stw 11,36(31) stw 11,40(31) bctrl lwz 9,40(31) cmpwi 0,9,0 beq- 0,.L1 cmpwi 0,9,1 beq- 0,.L41 cmpwi 0,9,2 beq- 0,.L42 cmpwi 0,9,3 beq- 0,.L41 cmpwi 0,9,4 beq- 0,.L43 cmpwi 0,9,5 beq- 0,.L44 cmpwi 0,9,6 beq- 0,.L40 cmpwi 0,9,7 beq- 0,.L40 cmpwi 0,9,8 beq- 0,.L40 cmpwi 0,9,9 beq- 0,.L40 addi 0,9,-10 cmplwi 0,0,1 bgt- 0,.L22 lwz 3,24(31) lwz 4,28(31) .L1: lwz 11,0(1) lwz 0,4(11) lwz 31,-4(11) mtlr 0 mr 1,11 blr .L22: cmpwi 0,9,12 beq- 0,.L45 cmpwi 0,9,13 beq- 0,.L46 cmpwi 0,9,14 beq- 0,.L40 cmpwi 0,9,15 bne+ 0,.L1 lwz 0,16(31) andi. 9,0,1024 beq- 0,.L1 lwz 0,44(31) cmpwi 0,0,1 beq- 0,.L47 cmpwi 0,0,2 beq- 0,.L48 cmpwi 0,0,4 beq- 0,.L49 cmpwi 0,0,8 bne+ 0,.L1 lwz 9,36(31) lwz 4,4(9) .L39: lwz 3,0(9) b .L1 .L49: lwz 9,36(31) b .L39 .L48: lwz 9,36(31) lhz 3,0(9) b .L1 .L47: lwz 9,36(31) lbz 3,0(9) b .L1 .L40: lwz 3,24(31) b .L1 .L46: lfd 1,24(31) b .L1 .L45: lfs 1,24(31) b .L1 .L44: lhz 3,24(31) b .L1 .L43: lha 3,24(31) b .L1 .L41: lbz 3,24(31) b .L1 .L42: lbz 0,24(31) slwi 0,0,24 srawi 3,0,24 b .L1 .size vacall_receiver, .-vacall_receiver #if defined __linux__ || defined __FreeBSD__ || defined __FreeBSD_kernel__ || defined __DragonFly__ .section .note.GNU-stack,"",@progbits #endif libffcall-2.2/vacall/vacall-i386-macro.S0000664000000000000000000001655013530357111014610 00000000000000#include "asm-i386.h" #ifdef __PIC__ TEXT() ALIGN(2) P2ALIGN(2,3) GLOBL(C(vacall_receiver)) DECLARE_FUNCTION(vacall_receiver) FUNBEGIN(vacall_receiver) INSN1(push,l ,R(ebp)) INSN2(mov,l ,R(esp), R(ebp)) INSN1(push,l ,R(esi)) INSN1(push,l ,R(ebx)) INSN2(sub,l ,NUM(48), R(esp)) INSN1(call,_ ,L(44)) L(44): INSN1(pop,l ,R(ebx)) #ifdef __ELF__ INSN2(add,l ,NUM()_GLOBAL_OFFSET_TABLE_+[.-L(44)],R(ebx)) #endif INSN2(lea,l ,X4 MEM_DISP(ebp,8), R(edx)) INSN2(mov,l ,R(edx),X4 MEM_DISP(ebp,-40)) INSN2(sub,l ,NUM(12), R(esp)) INSN2(lea,l ,X4 MEM_DISP(ebp,-56), R(edx)) INSN2(mov,l ,NUM(0),X4 MEM_DISP(ebp,-56)) INSN2(mov,l ,NUM(0),X4 MEM_DISP(ebp,-36)) INSN2(mov,l ,NUM(0),X4 MEM_DISP(ebp,-32)) INSN2(mov,l ,R(ebx),X4 MEM_DISP(ebp,-24)) INSN1(push,l ,R(edx)) INSN2(mov,l ,C(vacall_function)@MEM_DISP(ebx,GOT), R(edx)) INSN1(call,_ ,INDIR(X4 MEM(edx))) INSN2(mov,l ,X4 MEM_DISP(ebp,-32), R(ecx)) INSN2(add,l ,NUM(16), R(esp)) INSN2(test,l ,R(ecx), R(ecx)) INSN1(je,_ ,L(43)) INSN2(cmp,l ,NUM(1), R(ecx)) INSN1(je,_ ,L(45)) INSN2(cmp,l ,NUM(2), R(ecx)) INSN1(je,_ ,L(45)) INSN2(cmp,l ,NUM(3), R(ecx)) INSN1(je,_ ,L(50)) INSN2(cmp,l ,NUM(4), R(ecx)) INSN1(je,_ ,L(51)) INSN2(cmp,l ,NUM(5), R(ecx)) INSN1(je,_ ,L(52)) INSN2(cmp,l ,NUM(6), R(ecx)) INSN1(je,_ ,L(49)) INSN2(cmp,l ,NUM(7), R(ecx)) INSN1(je,_ ,L(49)) INSN2(cmp,l ,NUM(8), R(ecx)) INSN1(je,_ ,L(49)) INSN2(cmp,l ,NUM(9), R(ecx)) INSN1(je,_ ,L(49)) INSN2(lea,l ,X4 MEM_DISP(ecx,-10), R(edx)) INSN2(cmp,l ,NUM(1), R(edx)) INSN1(ja,_ ,L(22)) INSN2(mov,l ,X4 MEM_DISP(ebp,-48), R(eax)) INSN2(mov,l ,X4 MEM_DISP(ebp,-44),R(edx)) L(33): P2ALIGN(2,3) L(43): INSN2(mov,l ,X4 MEM_DISP(ebp,-56), R(ecx)) L(3): INSN2(and,l ,NUM(512), R(ecx)) INSN1(je,_ ,L(1)) INSN2(mov,l ,X4 MEM_DISP(ebp,0),R(ecx)) INSN2(mov,l ,X4 MEM_DISP(ebp,-40), R(esp)) INSN1(jmp,_ ,INDIR(R(ecx))) L(1): INSN2(lea,l ,X4 MEM_DISP(ebp,-8), R(esp)) INSN1(pop,l ,R(ebx)) INSN1(pop,l ,R(esi)) leave ret L(22): INSN2(cmp,l ,NUM(12), R(ecx)) INSN1(je,_ ,L(53)) INSN2(cmp,l ,NUM(13), R(ecx)) INSN1(je,_ ,L(54)) INSN2(cmp,l ,NUM(14), R(ecx)) INSN1(je,_ ,L(49)) INSN2(cmp,l ,NUM(15), R(ecx)) INSN1(jne,_ ,L(43)) INSN2(mov,l ,X4 MEM_DISP(ebp,-56), R(ecx)) INSN2(test,l ,NUM(1024), R(ecx)) INSN2(mov,l ,R(ecx), R(esi)) INSN1(je,_ ,L(31)) INSN2(mov,l ,X4 MEM_DISP(ebp,-28), R(edx)) INSN2(cmp,l ,NUM(1), R(edx)) INSN1(je,_ ,L(55)) INSN2(cmp,l ,NUM(2), R(edx)) INSN1(je,_ ,L(56)) INSN2(cmp,l ,NUM(4), R(edx)) INSN1(je,_ ,L(57)) INSN2(cmp,l ,NUM(8), R(edx)) INSN1(je,_ ,L(58)) L(31): INSN2(and,l ,NUM(16), R(esi)) INSN2(mov,l ,X4 MEM_DISP(ebp,-36), R(eax)) INSN1(jne,_ ,L(3)) INSN2(lea,l ,X4 MEM_DISP(ebp,-4), R(esp)) INSN1(pop,l ,R(esi)) leave ret NUM(4) INSN1(jmp,_ ,L(3)) L(58): INSN2(mov,l ,X4 MEM_DISP(ebp,-36), R(edx)) INSN2(mov,l ,X4 MEM(edx), R(eax)) INSN2(mov,l ,X4 MEM_DISP(edx,4),R(edx)) INSN1(jmp,_ ,L(3)) L(57): INSN2(mov,l ,X4 MEM_DISP(ebp,-36), R(edx)) INSN2(mov,l ,X4 MEM(edx), R(eax)) INSN1(jmp,_ ,L(3)) L(56): INSN2(mov,l ,X4 MEM_DISP(ebp,-36), R(edx)) INSN2MOVXL(movz,w,X2 MEM(edx), R(eax)) INSN1(jmp,_ ,L(3)) L(55): INSN2(mov,l ,X4 MEM_DISP(ebp,-36), R(edx)) INSN2MOVXL(movz,b,X1 MEM(edx), R(eax)) INSN1(jmp,_ ,L(3)) P2ALIGN(2,3) L(49): INSN2(mov,l ,X4 MEM_DISP(ebp,-48), R(eax)) INSN1(jmp,_ ,L(43)) L(54): INSN1(fld,l ,X8 MEM_DISP(ebp,-48)) INSN1(jmp,_ ,L(43)) L(53): INSN1(fld,s ,X4 MEM_DISP(ebp,-48)) INSN1(jmp,_ ,L(43)) P2ALIGN(2,3) L(52): INSN2MOVXL(movz,w,X2 MEM_DISP(ebp,-48), R(eax)) INSN1(jmp,_ ,L(43)) L(51): INSN2MOVXL(movs,w,X2 MEM_DISP(ebp,-48),R(eax)) INSN1(jmp,_ ,L(43)) L(50): INSN2MOVXL(movz,b,X1 MEM_DISP(ebp,-48), R(eax)) INSN1(jmp,_ ,L(43)) P2ALIGN(2,3) L(45): INSN2MOVXL(movs,b,X1 MEM_DISP(ebp,-48),R(eax)) INSN1(jmp,_ ,L(43)) L(fe1): FUNEND(vacall_receiver,L(fe1)-vacall_receiver) #else TEXT() ALIGN(2) P2ALIGN(2,3) GLOBL(C(vacall_receiver)) DECLARE_FUNCTION(vacall_receiver) FUNBEGIN(vacall_receiver) INSN1(push,l ,R(ebp)) INSN2(mov,l ,R(esp), R(ebp)) INSN2(lea,l ,X4 MEM_DISP(ebp,8), R(edx)) INSN1(push,l ,R(esi)) INSN2(sub,l ,NUM(64), R(esp)) INSN2(mov,l ,R(edx),X4 MEM_DISP(ebp,-40)) INSN2(lea,l ,X4 MEM_DISP(ebp,-56), R(edx)) INSN2(mov,l ,NUM(0),X4 MEM_DISP(ebp,-56)) INSN2(mov,l ,NUM(0),X4 MEM_DISP(ebp,-36)) INSN2(mov,l ,NUM(0),X4 MEM_DISP(ebp,-32)) INSN2(mov,l ,R(ebx),X4 MEM_DISP(ebp,-24)) INSN1(push,l ,R(edx)) INSN1(call,_ ,INDIR(X4 C(vacall_function))) INSN2(mov,l ,X4 MEM_DISP(ebp,-32), R(ecx)) INSN2(add,l ,NUM(16), R(esp)) INSN2(test,l ,R(ecx), R(ecx)) INSN1(je,_ ,L(43)) INSN2(cmp,l ,NUM(1), R(ecx)) INSN1(je,_ ,L(44)) INSN2(cmp,l ,NUM(2), R(ecx)) INSN1(je,_ ,L(44)) INSN2(cmp,l ,NUM(3), R(ecx)) INSN1(je,_ ,L(49)) INSN2(cmp,l ,NUM(4), R(ecx)) INSN1(je,_ ,L(50)) INSN2(cmp,l ,NUM(5), R(ecx)) INSN1(je,_ ,L(51)) INSN2(cmp,l ,NUM(6), R(ecx)) INSN1(je,_ ,L(48)) INSN2(cmp,l ,NUM(7), R(ecx)) INSN1(je,_ ,L(48)) INSN2(cmp,l ,NUM(8), R(ecx)) INSN1(je,_ ,L(48)) INSN2(cmp,l ,NUM(9), R(ecx)) INSN1(je,_ ,L(48)) INSN2(lea,l ,X4 MEM_DISP(ecx,-10), R(edx)) INSN2(cmp,l ,NUM(1), R(edx)) INSN1(ja,_ ,L(22)) INSN2(mov,l ,X4 MEM_DISP(ebp,-48), R(eax)) INSN2(mov,l ,X4 MEM_DISP(ebp,-44),R(edx)) L(33): P2ALIGN(2,3) L(43): INSN2(mov,l ,X4 MEM_DISP(ebp,-56), R(ecx)) L(3): INSN2(and,l ,NUM(512), R(ecx)) INSN1(je,_ ,L(1)) INSN2(mov,l ,X4 MEM_DISP(ebp,0),R(ecx)) INSN2(mov,l ,X4 MEM_DISP(ebp,-40), R(esp)) INSN1(jmp,_ ,INDIR(R(ecx))) L(1): INSN2(mov,l ,X4 MEM_DISP(ebp,-4), R(esi)) leave ret L(22): INSN2(cmp,l ,NUM(12), R(ecx)) INSN1(je,_ ,L(52)) INSN2(cmp,l ,NUM(13), R(ecx)) INSN1(je,_ ,L(53)) INSN2(cmp,l ,NUM(14), R(ecx)) INSN1(je,_ ,L(48)) INSN2(cmp,l ,NUM(15), R(ecx)) INSN1(jne,_ ,L(43)) INSN2(mov,l ,X4 MEM_DISP(ebp,-56), R(ecx)) INSN2(test,l ,NUM(1024), R(ecx)) INSN2(mov,l ,R(ecx), R(esi)) INSN1(je,_ ,L(31)) INSN2(mov,l ,X4 MEM_DISP(ebp,-28), R(edx)) INSN2(cmp,l ,NUM(1), R(edx)) INSN1(je,_ ,L(54)) INSN2(cmp,l ,NUM(2), R(edx)) INSN1(je,_ ,L(55)) INSN2(cmp,l ,NUM(4), R(edx)) INSN1(je,_ ,L(56)) INSN2(cmp,l ,NUM(8), R(edx)) INSN1(je,_ ,L(57)) L(31): INSN2(and,l ,NUM(16), R(esi)) INSN2(mov,l ,X4 MEM_DISP(ebp,-36), R(eax)) INSN1(jne,_ ,L(3)) INSN2(lea,l ,X4 MEM_DISP(ebp,-4), R(esp)) INSN1(pop,l ,R(esi)) leave ret NUM(4) INSN1(jmp,_ ,L(3)) L(57): INSN2(mov,l ,X4 MEM_DISP(ebp,-36), R(edx)) INSN2(mov,l ,X4 MEM(edx), R(eax)) INSN2(mov,l ,X4 MEM_DISP(edx,4),R(edx)) INSN1(jmp,_ ,L(3)) L(56): INSN2(mov,l ,X4 MEM_DISP(ebp,-36), R(edx)) INSN2(mov,l ,X4 MEM(edx), R(eax)) INSN1(jmp,_ ,L(3)) L(55): INSN2(mov,l ,X4 MEM_DISP(ebp,-36), R(edx)) INSN2MOVXL(movz,w,X2 MEM(edx), R(eax)) INSN1(jmp,_ ,L(3)) L(54): INSN2(mov,l ,X4 MEM_DISP(ebp,-36), R(edx)) INSN2MOVXL(movz,b,X1 MEM(edx), R(eax)) INSN1(jmp,_ ,L(3)) P2ALIGN(2,3) L(48): INSN2(mov,l ,X4 MEM_DISP(ebp,-48), R(eax)) INSN1(jmp,_ ,L(43)) L(53): INSN1(fld,l ,X8 MEM_DISP(ebp,-48)) INSN1(jmp,_ ,L(43)) L(52): INSN1(fld,s ,X4 MEM_DISP(ebp,-48)) INSN1(jmp,_ ,L(43)) P2ALIGN(2,3) L(51): INSN2MOVXL(movz,w,X2 MEM_DISP(ebp,-48), R(eax)) INSN1(jmp,_ ,L(43)) L(50): INSN2MOVXL(movs,w,X2 MEM_DISP(ebp,-48),R(eax)) INSN1(jmp,_ ,L(43)) L(49): INSN2MOVXL(movz,b,X1 MEM_DISP(ebp,-48), R(eax)) INSN1(jmp,_ ,L(43)) P2ALIGN(2,3) L(44): INSN2MOVXL(movs,b,X1 MEM_DISP(ebp,-48),R(eax)) INSN1(jmp,_ ,L(43)) L(fe1): FUNEND(vacall_receiver,L(fe1)-vacall_receiver) #endif #if defined __linux__ || defined __FreeBSD__ || defined __FreeBSD_kernel__ || defined __DragonFly__ .section .note.GNU-stack,"",@progbits #endif libffcall-2.2/vacall/vacall-libapi.c0000664000000000000000000001245613347756631014321 00000000000000/* * Copyright 1995-2018 Bruno Haible * * This program is free software: you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by * the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program. If not, see . */ #include "config.h" #include #include #include #include "vacall-internal.h" /* This is the implementation of the library API. The symbols that the linker sees are all prefixed with 'vacall', to avoid potential collisions with other libraries. */ #ifndef REENTRANT /* This is the function pointer vacall(). A function pointer indirection is needed because gcc-3.4 generates invalid code when the address of a symbol is casted to a function pointer with different return type. (https://gcc.gnu.org/ml/gcc-patches/2003-12/msg01767.html) */ #ifdef __cplusplus extern "C" void vacall_receiver (); /* the return type is variable, not void! */ #else extern void vacall_receiver (); /* the return type is variable, not void! */ #endif void (*vacall) () = vacall_receiver; /* This is the function called by vacall(). */ void (* vacall_function) (va_alist); #endif /* Room for returning structs according to the Sun C non-reentrant struct return convention. */ typedef union { __vaword room[__VA_ALIST_WORDS]; double align; } __va_struct_buffer_t; static __va_struct_buffer_t vacall_struct_buffer; static _Noreturn void vacall_error_type_mismatch (enum __VAtype start_type, enum __VAtype return_type) { /* If you see this, fix your code. */ fprintf (stderr, "vacall: va_start type %d and va_return type %d disagree.\n", (int)start_type, (int)return_type); abort(); } static _Noreturn void vacall_error_struct_too_large (unsigned int size) { /* If you see this, increase __VA_ALIST_WORDS: */ fprintf (stderr, "vacall: struct of size %u too large for Sun C struct return.\n", size); abort(); } void vacall_start (va_alist list, int rettype, int flags) { __va_start(list,rettype,flags); } void vacall_start_struct (va_alist list, size_t type_size, size_t type_align, int type_splittable, int flags) { __va_start_struct(list,type_size,type_align,type_splittable,flags); } char vacall_arg_char (va_alist list) { return _va_arg_char(list); } signed char vacall_arg_schar (va_alist list) { return _va_arg_schar(list); } unsigned char vacall_arg_uchar (va_alist list) { return _va_arg_uchar(list); } short vacall_arg_short (va_alist list) { return _va_arg_short(list); } unsigned short vacall_arg_ushort (va_alist list) { return _va_arg_ushort(list); } int vacall_arg_int (va_alist list) { return _va_arg_int(list); } unsigned int vacall_arg_uint (va_alist list) { return _va_arg_uint(list); } long vacall_arg_long (va_alist list) { return _va_arg_long(list); } unsigned long vacall_arg_ulong (va_alist list) { return _va_arg_ulong(list); } long long vacall_arg_longlong (va_alist list) { return _va_arg_longlong(list); } unsigned long long vacall_arg_ulonglong (va_alist list) { return _va_arg_ulonglong(list); } float vacall_arg_float (va_alist list) { return _va_arg_float(list); } double vacall_arg_double (va_alist list) { return _va_arg_double(list); } void* vacall_arg_ptr (va_alist list) { return _va_arg_ptr(list); } void* vacall_arg_struct (va_alist list, size_t type_size, size_t type_align) { return __va_arg_struct(list,type_size,type_align); } void vacall_return_void (va_alist list) { _va_return_void(list); } void vacall_return_char (va_alist list, char val) { _va_return_char(list,val); } void vacall_return_schar (va_alist list, signed char val) { _va_return_schar(list,val); } void vacall_return_uchar (va_alist list, unsigned char val) { _va_return_uchar(list,val); } void vacall_return_short (va_alist list, short val) { _va_return_short(list,val); } void vacall_return_ushort (va_alist list, unsigned short val) { _va_return_ushort(list,val); } void vacall_return_int (va_alist list, int val) { _va_return_int(list,val); } void vacall_return_uint (va_alist list, unsigned int val) { _va_return_uint(list,val); } void vacall_return_long (va_alist list, long val) { _va_return_long(list,val); } void vacall_return_ulong (va_alist list, unsigned long val) { _va_return_ulong(list,val); } void vacall_return_longlong (va_alist list, long long val) { _va_return_longlong(list,val); } void vacall_return_ulonglong (va_alist list, unsigned long long val) { _va_return_ulonglong(list,val); } void vacall_return_float (va_alist list, float val) { _va_return_float(list,val); } void vacall_return_double (va_alist list, double val) { _va_return_double(list,val); } void vacall_return_ptr (va_alist list, void* val) { _va_return_ptr(list,val); } void vacall_return_struct (va_alist list, size_t type_size, size_t type_align, const void* val_addr) { __va_return_struct(list,type_size,type_align,val_addr); } libffcall-2.2/vacall/vacall-arm-linux-pic.s0000664000000000000000000000314013530357112015535 00000000000000 .file "vacall-arm.c" .text .align 2 .global vacall_receiver .type vacall_receiver,function vacall_receiver: @ args = 20, pretend = 16, frame = 32 @ frame_needed = 1, uses_anonymous_args = 0 mov ip, sp sub sp, sp, #16 stmfd sp!, {sl, fp, ip, lr, pc} sub fp, ip, #20 add ip, fp, #4 ldr sl, .L41 sub sp, sp, #32 stmia ip, {r0, r1, r2, r3} ldr r3, .L41+4 mov lr, #0 .L36: add sl, pc, sl ldr r2, [sl, r3] str ip, [fp, #-32] str lr, [fp, #-24] str lr, [fp, #-48] str lr, [fp, #-28] bic sp, sp, #7 sub r0, fp, #48 mov lr, pc ldr pc, [r2, #0] ldr r2, [fp, #-24] cmp r2, #0 beq .L1 cmp r2, #1 beq .L39 cmp r2, #2 ldreqsb r0, [fp, #-40] beq .L1 cmp r2, #3 beq .L39 cmp r2, #4 ldreqsh r0, [fp, #-40] beq .L1 cmp r2, #5 ldreqh r0, [fp, #-40] beq .L1 cmp r2, #6 beq .L38 cmp r2, #7 beq .L38 cmp r2, #8 beq .L38 cmp r2, #9 beq .L38 sub r3, r2, #10 cmp r3, #1 bls .L37 cmp r2, #12 ldreq r0, [fp, #-40] @ float beq .L1 cmp r2, #13 beq .L37 cmp r2, #14 beq .L38 cmp r2, #15 beq .L40 .L1: ldmea fp, {sl, fp, sp, pc} .L40: ldr r3, [fp, #-48] tst r3, #1024 beq .L1 ldr r3, [fp, #-20] cmp r3, #1 ldreq r3, [fp, #-28] ldreqb r0, [r3, #0] @ zero_extendqisi2 beq .L1 cmp r3, #2 ldreq r3, [fp, #-28] ldrne r3, [fp, #-28] ldreqh r0, [r3, #0] ldrne r0, [r3, #0] b .L1 .L38: ldr r0, [fp, #-40] b .L1 .L37: sub r0, fp, #40 ldmia r0, {r0, r1} @ phole ldm b .L1 .L39: ldrb r0, [fp, #-40] @ zero_extendqisi2 b .L1 .L42: .align 2 .L41: .word _GLOBAL_OFFSET_TABLE_-(.L36+8) .word vacall_function(GOT) .Lfe1: .size vacall_receiver,.Lfe1-vacall_receiver .ident "GCC: (GNU) 3.1" libffcall-2.2/vacall/vacall-mipsn32eb-linux.s0000664000000000000000000001144713530357111016017 00000000000000 .file 1 "vacall-mipsn32.c" .section .mdebug.abiN32 .previous .nan legacy .module fp=64 .module oddspreg .abicalls .text .align 2 .align 3 .globl vacall_receiver .set nomips16 .set nomicromips .ent vacall_receiver .type vacall_receiver, @function vacall_receiver: .frame $fp,256,$31 # vars= 144, regs= 6/0, args= 0, gp= 0 .mask 0xd0070000,-72 .fmask 0x00000000,0 .set noreorder .set nomacro addiu $sp,$sp,-256 sd $28,168($sp) lui $28,%hi(__gnu_local_gp) addiu $28,$28,%lo(__gnu_local_gp) lw $12,%got_disp(vacall_function)($28) sd $fp,176($sp) move $fp,$sp lw $25,0($12) addiu $12,$fp,192 sd $31,184($sp) sd $18,160($sp) sd $17,152($sp) sd $16,144($sp) sd $4,192($fp) sd $5,200($fp) sd $6,208($fp) sd $7,216($fp) sd $8,224($fp) sd $9,232($fp) sd $10,240($fp) sd $11,248($fp) sdc1 $f12,80($fp) sdc1 $f13,88($fp) sdc1 $f14,96($fp) sdc1 $f15,104($fp) sdc1 $f16,112($fp) sdc1 $f17,120($fp) sdc1 $f18,128($fp) sdc1 $f19,136($fp) swc1 $f12,44($fp) swc1 $f13,48($fp) swc1 $f14,52($fp) swc1 $f15,56($fp) swc1 $f16,60($fp) swc1 $f17,64($fp) swc1 $f18,68($fp) swc1 $f19,72($fp) move $4,$fp sw $0,0($fp) sw $12,24($fp) sw $0,28($fp) sw $0,32($fp) jalr $25 sw $0,40($fp) lw $12,32($fp) beq $12,$0,.L1 li $13,1 # 0x1 beq $12,$13,.L43 li $13,2 # 0x2 beq $12,$13,.L43 li $13,3 # 0x3 beq $12,$13,.L49 li $13,4 # 0x4 beq $12,$13,.L50 li $13,5 # 0x5 beq $12,$13,.L51 li $13,6 # 0x6 beq $12,$13,.L46 li $13,7 # 0x7 beq $12,$13,.L45 li $13,8 # 0x8 beq $12,$13,.L46 li $13,9 # 0x9 beq $12,$13,.L45 li $13,10 # 0xa beq $12,$13,.L47 li $13,11 # 0xb beq $12,$13,.L47 li $13,12 # 0xc beq $12,$13,.L52 li $13,13 # 0xd beq $12,$13,.L53 li $13,14 # 0xe beq $12,$13,.L46 li $13,15 # 0xf bnel $12,$13,.L59 move $sp,$fp lw $12,0($fp) andi $13,$12,0x400 beq $13,$0,.L1 andi $13,$12,0x4 beq $13,$0,.L19 lw $24,36($fp) lw $12,36($fp) li $13,1 # 0x1 beq $12,$13,.L54 li $13,2 # 0x2 beq $12,$13,.L55 li $13,4 # 0x4 beq $12,$13,.L56 li $13,8 # 0x8 bnel $12,$13,.L59 move $sp,$fp lw $12,28($fp) ld $2,0($12) .L1: move $sp,$fp .L59: ld $31,184($sp) ld $fp,176($sp) ld $28,168($sp) ld $18,160($sp) ld $17,152($sp) ld $16,144($sp) j $31 addiu $sp,$sp,256 .align 3 .L43: move $sp,$fp ld $31,184($sp) ld $28,168($sp) ld $18,160($sp) ld $17,152($sp) ld $16,144($sp) lb $2,8($fp) ld $fp,176($sp) j $31 addiu $sp,$sp,256 .align 3 .L46: b .L1 lw $2,8($fp) .align 3 .L49: b .L1 lbu $2,8($fp) .align 3 .L50: b .L1 lh $2,8($fp) .align 3 .L45: b .L1 lwu $2,8($fp) .align 3 .L51: b .L1 lhu $2,8($fp) .align 3 .L52: b .L1 lwc1 $f0,8($fp) .align 3 .L47: b .L1 ld $2,8($fp) .L53: b .L1 ldc1 $f0,8($fp) .L19: addiu $13,$24,-1 sltu $13,$13,16 beql $13,$0,.L60 andi $13,$12,0x800 lw $13,28($fp) li $15,-8 # 0xfffffffffffffff8 sltu $25,$24,9 andi $14,$13,0x7 and $15,$13,$15 beq $25,$0,.L24 addu $13,$24,$14 sltu $25,$13,9 beq $25,$0,.L25 subu $13,$0,$13 ld $25,0($15) sll $13,$13,3 li $15,-1 # 0xffffffffffffffff dsll $13,$15,$13 and $13,$13,$25 sll $14,$14,3 dsll $2,$13,$14 .L23: andi $13,$12,0x800 .L60: beql $13,$0,.L27 andi $12,$12,0x1000 li $13,4 # 0x4 beq $24,$13,.L57 li $13,8 # 0x8 beql $24,$13,.L58 lw $13,28($fp) andi $12,$12,0x1000 beql $12,$0,.L59 move $sp,$fp li $12,16 # 0x10 .L61: bnel $24,$12,.L59 move $sp,$fp lw $12,28($fp) ldc1 $f0,0($12) b .L1 ldc1 $f2,8($12) .L27: beq $12,$0,.L1 li $12,8 # 0x8 bne $24,$12,.L61 li $12,16 # 0x10 lw $13,28($fp) b .L1 ldc1 $f0,0($13) .L24: sltu $25,$13,17 beq $25,$0,.L26 subu $13,$0,$13 ld $17,8($15) subu $16,$0,$14 li $25,-1 # 0xffffffffffffffff sll $13,$13,3 dsll $13,$25,$13 sll $25,$16,2 ld $16,0($15) and $13,$13,$17 addiu $15,$25,32 sll $14,$14,3 dsra $25,$13,$15 dsll $16,$16,$14 dsra $15,$25,$15 or $2,$16,$15 b .L23 dsll $3,$13,$14 .L54: lw $12,28($fp) b .L1 lbu $2,0($12) .L55: lw $12,28($fp) b .L1 lhu $2,0($12) .L26: ld $18,16($15) ld $16,8($15) ld $17,0($15) subu $25,$0,$14 li $15,-1 # 0xffffffffffffffff sll $13,$13,3 sll $25,$25,3 dsll $13,$15,$13 sll $14,$14,3 addiu $15,$25,64 and $13,$13,$18 dsll $25,$17,$14 dsra $13,$13,$15 dsra $17,$16,$15 dsll $14,$16,$14 or $2,$25,$17 b .L23 or $3,$13,$14 .L57: lw $12,28($fp) b .L1 lwc1 $f0,0($12) .L56: lw $12,28($fp) b .L1 lwu $2,0($12) .L25: ld $16,8($15) ld $25,0($15) sll $13,$13,3 li $15,-1 # 0xffffffffffffffff dsll $13,$15,$13 subu $15,$0,$14 and $13,$13,$16 sll $15,$15,3 sll $14,$14,3 dsra $13,$13,$15 dsll $14,$25,$14 b .L23 or $2,$13,$14 .L58: andi $12,$12,0x1000 lwc1 $f0,0($13) beq $12,$0,.L1 lwc1 $f2,4($13) b .L1 ldc1 $f0,0($13) .set macro .set reorder .end vacall_receiver .size vacall_receiver, .-vacall_receiver .ident "GCC: (GNU) 5.4.0" libffcall-2.2/vacall/vacall-powerpc-linux.s0000664000000000000000000000354213530357112015672 00000000000000 .file "vacall-powerpc.c" .section ".text" .align 2 .globl vacall_receiver .type vacall_receiver, @function vacall_receiver: .extern __mulh .extern __mull .extern __divss .extern __divus .extern __quoss .extern __quous stwu 1,-176(1) mflr 0 li 11,0 stw 0,180(1) stw 31,172(1) mr 31,1 stw 9,76(31) addi 0,31,184 lis 9,vacall_function@ha stw 3,52(31) lwz 9,vacall_function@l(9) addi 3,31,16 stw 5,60(31) mtctr 9 stw 6,64(31) stw 7,68(31) stw 8,72(31) stw 10,80(31) stw 0,32(31) stw 11,84(31) stw 4,56(31) stfd 1,88(31) stfd 2,96(31) stfd 3,104(31) stfd 4,112(31) stfd 5,120(31) stfd 6,128(31) stfd 7,136(31) stfd 8,144(31) stw 11,16(31) stw 11,48(31) stw 11,36(31) stw 11,40(31) bctrl lwz 9,40(31) cmpwi 0,9,0 beq- 0,.L1 cmpwi 0,9,1 beq- 0,.L41 cmpwi 0,9,2 beq- 0,.L42 cmpwi 0,9,3 beq- 0,.L41 cmpwi 0,9,4 beq- 0,.L43 cmpwi 0,9,5 beq- 0,.L44 cmpwi 0,9,6 beq- 0,.L40 cmpwi 0,9,7 beq- 0,.L40 cmpwi 0,9,8 beq- 0,.L40 cmpwi 0,9,9 beq- 0,.L40 addi 0,9,-10 cmplwi 0,0,1 bgt- 0,.L22 lwz 3,24(31) lwz 4,28(31) .L1: lwz 11,0(1) lwz 0,4(11) lwz 31,-4(11) mtlr 0 mr 1,11 blr .L22: cmpwi 0,9,12 beq- 0,.L45 cmpwi 0,9,13 beq- 0,.L46 cmpwi 0,9,14 beq- 0,.L40 cmpwi 0,9,15 bne+ 0,.L1 lwz 0,16(31) andi. 9,0,1024 beq- 0,.L1 lwz 0,44(31) cmpwi 0,0,1 beq- 0,.L47 cmpwi 0,0,2 beq- 0,.L48 cmpwi 0,0,4 beq- 0,.L49 cmpwi 0,0,8 bne+ 0,.L1 lwz 9,36(31) lwz 4,4(9) .L39: lwz 3,0(9) b .L1 .L49: lwz 9,36(31) b .L39 .L48: lwz 9,36(31) lhz 3,0(9) b .L1 .L47: lwz 9,36(31) lbz 3,0(9) b .L1 .L40: lwz 3,24(31) b .L1 .L46: lfd 1,24(31) b .L1 .L45: lfs 1,24(31) b .L1 .L44: lhz 3,24(31) b .L1 .L43: lha 3,24(31) b .L1 .L41: lbz 3,24(31) b .L1 .L42: lbz 0,24(31) slwi 0,0,24 srawi 3,0,24 b .L1 .size vacall_receiver, .-vacall_receiver .section .note.GNU-stack,"",@progbits .ident "GCC: (GNU) 3.3.6" libffcall-2.2/vacall/vacall-riscv32-ilp32d-macro.S0000664000000000000000000000455113530357113016505 00000000000000 .file "vacall-riscv32.c" .option nopic .text .align 1 .globl vacall_receiver .type vacall_receiver, @function vacall_receiver: add sp,sp,-208 sw ra,188(sp) sw s0,184(sp) add s0,sp,192 lui t1,%hi(vacall_function) lw t1,%lo(vacall_function)(t1) sw a0,-148(s0) add a0,s0,16 sw a7,12(s0) sw a1,-144(s0) sw a2,-140(s0) sw a3,-136(s0) sw a4,-132(s0) sw a5,-128(s0) sw a6,-124(s0) sw a7,-120(s0) fsw fa0,-112(s0) fsw fa1,-108(s0) fsw fa2,-104(s0) fsw fa3,-100(s0) fsw fa4,-96(s0) fsw fa5,-92(s0) fsw fa6,-88(s0) fsw fa7,-84(s0) fsd fa0,-80(s0) fsd fa1,-72(s0) fsd fa2,-64(s0) fsd fa3,-56(s0) fsd fa4,-48(s0) fsd fa5,-40(s0) fsd fa6,-32(s0) fsd fa7,-24(s0) sw a0,-168(s0) sw zero,-184(s0) sw zero,-164(s0) sw zero,-160(s0) add a0,s0,-184 sw zero,-152(s0) sw zero,-116(s0) jalr t1 lw t1,-160(s0) beqz t1,.L1 li t3,1 beq t1,t3,.L22 li t3,2 beq t1,t3,.L25 li t3,3 beq t1,t3,.L22 li t3,4 beq t1,t3,.L26 li t3,5 beq t1,t3,.L27 li t3,6 beq t1,t3,.L23 li t3,7 beq t1,t3,.L23 li t3,8 beq t1,t3,.L23 li t3,9 beq t1,t3,.L23 add t3,t1,-10 li t4,1 bleu t3,t4,.L28 li t3,12 beq t1,t3,.L29 li t3,13 beq t1,t3,.L30 li t3,14 beq t1,t3,.L23 li t3,15 bne t1,t3,.L1 lw t1,-184(s0) and t1,t1,2 beqz t1,.L1 lw t3,-156(s0) li t1,7 add t5,t3,-1 bgtu t5,t1,.L1 lw t1,-164(s0) lbu t5,0(t1) mv a0,t5 beq t3,t4,.L1 lbu t4,1(t1) li t6,2 sll t4,t4,8 or t5,t4,t5 mv a0,t5 beq t3,t6,.L1 lbu t4,2(t1) li t6,3 sll t4,t4,16 or t4,t4,t5 mv a0,t4 beq t3,t6,.L1 lbu a0,3(t1) li t5,4 sll a0,a0,24 or a0,a0,t4 beq t3,t5,.L1 lbu t5,4(t1) li t4,5 mv a1,t5 beq t3,t4,.L1 lbu t4,5(t1) li t6,6 sll t4,t4,8 or t5,t4,t5 mv a1,t5 beq t3,t6,.L1 lbu t4,6(t1) li t6,8 sll t4,t4,16 or t4,t4,t5 mv a1,t4 bne t3,t6,.L1 lbu a1,7(t1) sll a1,a1,24 or a1,a1,t4 .L1: lw ra,188(sp) lw s0,184(sp) add sp,sp,208 jr ra .L22: lbu a0,-176(s0) lw ra,188(sp) lw s0,184(sp) add sp,sp,208 jr ra .L23: lw a0,-176(s0) j .L1 .L25: lb a0,-176(s0) lw ra,188(sp) lw s0,184(sp) add sp,sp,208 jr ra .L26: lh a0,-176(s0) j .L1 .L27: lhu a0,-176(s0) j .L1 .L28: lw a0,-176(s0) lw a1,-172(s0) j .L1 .L29: flw fa0,-176(s0) j .L1 .L30: fld fa0,-176(s0) j .L1 .size vacall_receiver, .-vacall_receiver #if defined __linux__ || defined __FreeBSD__ || defined __FreeBSD_kernel__ || defined __DragonFly__ .section .note.GNU-stack,"",@progbits #endif libffcall-2.2/vacall/vacall-mips.c0000664000000000000000000000764313347755337014035 00000000000000/* vacall function for mips CPU */ /* * Copyright 1995-2017 Bruno Haible * * This program is free software: you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by * the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program. If not, see . */ #include "vacall-internal.h" #ifndef REENTRANT typedef void (*func_pointer)(va_alist); #else /* REENTRANT */ #define vacall_receiver callback_receiver typedef void (*func_pointer)(void*,va_alist); register struct { func_pointer vacall_function; void* arg; } * env __asm__("$2"); #endif register float farg1 __asm__("$f12"); register float farg2 __asm__("$f14"); register double darg1 __asm__("$f12"); register double darg2 __asm__("$f14"); register int iret __asm__("$2"); register int iret2 __asm__("$3"); register float fret __asm__("$f0"); register double dret __asm__("$f0"); #ifdef REENTRANT static #endif void /* the return type is variable, not void! */ vacall_receiver (__vaword word1, __vaword word2, __vaword word3, __vaword word4, __vaword firstword) { __va_alist list; /* gcc-2.6.3 source says: When a parameter is passed in a register, * stack space is still allocated for it. */ /* Move the arguments passed in registers to their stack locations. */ (&firstword)[-4] = word1; (&firstword)[-3] = word2; (&firstword)[-2] = word3; (&firstword)[-1] = word4; list.darg[0] = darg1; list.darg[1] = darg2; list.farg[0] = farg1; list.farg[1] = farg2; /* Prepare the va_alist. */ list.flags = 0; list.aptr = (long)(&firstword - 4); list.raddr = (void*)0; list.rtype = __VAvoid; list.memargptr = (long)&firstword; list.anum = 0; list.fanum = 0; /* Call vacall_function. The macros do all the rest. */ #ifndef REENTRANT (*vacall_function) (&list); #else /* REENTRANT */ (*env->vacall_function) (env->arg,&list); #endif /* Put return value into proper register. */ if (list.rtype == __VAvoid) { } else if (list.rtype == __VAchar) { iret = list.tmp._char; } else if (list.rtype == __VAschar) { iret = list.tmp._schar; } else if (list.rtype == __VAuchar) { iret = list.tmp._uchar; } else if (list.rtype == __VAshort) { iret = list.tmp._short; } else if (list.rtype == __VAushort) { iret = list.tmp._ushort; } else if (list.rtype == __VAint) { iret = list.tmp._int; } else if (list.rtype == __VAuint) { iret = list.tmp._uint; } else if (list.rtype == __VAlong) { iret = list.tmp._long; } else if (list.rtype == __VAulong) { iret = list.tmp._ulong; } else if (list.rtype == __VAlonglong || list.rtype == __VAulonglong) { iret = ((__vaword *) &list.tmp._longlong)[0]; iret2 = ((__vaword *) &list.tmp._longlong)[1]; } else if (list.rtype == __VAfloat) { fret = list.tmp._float; } else if (list.rtype == __VAdouble) { dret = list.tmp._double; } else if (list.rtype == __VAvoidp) { iret = (long)list.tmp._ptr; } else if (list.rtype == __VAstruct) { if (list.flags & __VA_SMALL_STRUCT_RETURN) { if (list.rsize == sizeof(char)) { iret = *(unsigned char *) list.raddr; } else if (list.rsize == sizeof(short)) { iret = *(unsigned short *) list.raddr; } else if (list.rsize == sizeof(int)) { iret = *(unsigned int *) list.raddr; } } else { iret = (long)list.raddr; } } } #ifdef REENTRANT __vacall_r_t callback_get_receiver (void) { return (__vacall_r_t)(void*)&callback_receiver; } #endif libffcall-2.2/vacall/vacall-hppa64-macro.S0000664000000000000000000001017413530357112015216 00000000000000#include "asm-hppa64.h" .LEVEL 2.0w TEXT1() TEXT2() .align 8 GLOBL(vacall_receiver) DECLARE_FUNCTION(vacall_receiver) DEF(vacall_receiver) .PROC .CALLINFO FRAME=384,CALLS,SAVE_RP,SAVE_SP,ENTRY_GR=8 .ENTRY copy %r3,%r1 std %r2,-16(%r30) copy %r30,%r3 std,ma %r1,384(%r30) std %r4,224(%r3) copy %r27,%r4 std %r8,192(%r3) std %r7,200(%r3) std %r6,208(%r3) std %r5,216(%r3) std %r26,-64(%r29) std %r19,-8(%r29) std %r25,-56(%r29) std %r24,-48(%r29) std %r23,-40(%r29) std %r22,-32(%r29) std %r21,-24(%r29) std %r20,-16(%r29) fstw %fr4R,88(%r3) fstw %fr5R,92(%r3) fstw %fr6R,96(%r3) fstw %fr7R,100(%r3) fstw %fr8R,104(%r3) fstw %fr9R,108(%r3) fstw %fr10R,112(%r3) fstw %fr11R,116(%r3) fstd %fr10,168(%r3) addil LT!vacall_function,%r27 ldo -64(%r29),%r31 ldd RT!vacall_function(%r1),%r1 ldo 16(%r3),%r26 std %r31,40(%r3) std %r29,80(%r3) ldo -16(%r30),%r29 ldd 0(%r1),%r31 fstd %fr11,176(%r3) fstd %fr4,120(%r3) fstd %fr5,128(%r3) fstd %fr6,136(%r3) fstd %fr7,144(%r3) fstd %fr8,152(%r3) fstd %fr9,160(%r3) stw %r0,16(%r3) std %r0,48(%r3) stw %r0,56(%r3) ldd 16(%r31),%r2 ldd 24(%r31),%r27 bve,l (%r2),%r2 nop ldw 56(%r3),%r31 cmpib,= 0,%r31,L(1) copy %r4,%r27 cmpib,=,n 1,%r31,L(43) cmpib,=,n 2,%r31,L(43) cmpib,=,n 3,%r31,L(44) cmpib,=,n 4,%r31,L(45) cmpib,=,n 5,%r31,L(46) cmpib,=,n 6,%r31,L(47) cmpib,=,n 7,%r31,L(41) cmpib,=,n 8,%r31,L(40) cmpib,=,n 10,%r31,L(40) cmpib,=,n 9,%r31,L(40) cmpib,=,n 11,%r31,L(40) cmpib,=,n 12,%r31,L(48) cmpib,=,n 13,%r31,L(49) cmpib,=,n 14,%r31,L(40) cmpib,= 15,%r31,L(50) ldw 16(%r3),%r31 DEF(L(1)) ldd -16(%r3),%r2 ldd 192(%r3),%r8 ldd 200(%r3),%r7 ldd 208(%r3),%r6 ldd 216(%r3),%r5 ldd 224(%r3),%r4 ldo 64(%r3),%r30 bve (%r2) ldd,mb -64(%r30),%r3 DEF(L(50)) extrd,u %r31,53+1-1,1,%r31 cmpib,= 0,%r31,L(1) ldd 48(%r3),%r28 ldd 48(%r3),%r31 ldd 64(%r3),%r2 extrd,u %r31,63,3,%r6 copy %r31,%r1 depdi 0,63,3,%r1 cmpib,*<< 8,%r2,L(32) add,l %r6,%r2,%r4 cmpib,*<< 8,%r4,L(33) depd,z %r4,60,61,%r31 subi 64,%r31,%r31 ldd 0(%r1),%r2 extrd,s %r31,63,32,%r31 mtsarcm %r31 depd,z %r6,60,61,%r4 depdi,z 1,%sar,64,%r31 mtsarcm %r4 sub %r0,%r31,%r31 and %r2,%r31,%r2 depd,z %r2,%sar,64,%r2 b L(1) copy %r2,%r28 DEF(L(33)) subi 128,%r31,%r31 depd,z %r6,60,61,%r2 extrd,s %r31,63,32,%r31 subi 64,%r2,%r5 mtsarcm %r31 subi 63,%r2,%r7 depdi,z 1,%sar,64,%r31 mtsar %r7 ldd 8(%r1),%r4 sub %r0,%r31,%r31 extrd,s %r5,63,32,%r5 ldd 0(%r1),%r2 subi 63,%r5,%r5 and %r4,%r31,%r4 depd,z %r2,%sar,64,%r2 mtsar %r5 extrd,s %r4,%sar,64,%r4 DEF(L(39)) b L(1) or %r4,%r2,%r28 DEF(L(32)) ldi 16,%r31 cmpb,*<< %r31,%r4,L(36) depd,z %r4,60,61,%r31 subi 128,%r31,%r31 depd,z %r6,61,62,%r2 extrd,s %r31,63,32,%r31 subi 32,%r2,%r2 mtsarcm %r31 extrd,s %r2,63,32,%r2 depdi,z 1,%sar,64,%r31 subi 63,%r2,%r7 ldd 8(%r1),%r4 sub %r0,%r31,%r31 mtsar %r7 ldd 0(%r1),%r5 and %r4,%r31,%r4 depd,z %r6,60,61,%r31 extrd,s %r4,%sar,64,%r2 subi 63,%r31,%r31 extrd,s %r2,%sar,64,%r2 mtsar %r31 depd,z %r4,%sar,64,%r4 depd,z %r5,%sar,64,%r5 copy %r4,%r29 b L(1) or %r5,%r2,%r28 DEF(L(36)) subi 192,%r31,%r31 depd,z %r6,60,61,%r2 extrd,s %r31,63,32,%r31 subi 64,%r2,%r6 mtsarcm %r31 subi 63,%r2,%r8 depdi,z 1,%sar,64,%r31 mtsar %r8 ldd 8(%r1),%r2 sub %r0,%r31,%r31 ldd 16(%r1),%r5 extrd,s %r6,63,32,%r6 subi 63,%r6,%r6 and %r5,%r31,%r5 ldd 0(%r1),%r4 depd,z %r2,%sar,64,%r31 mtsar %r6 extrd,s %r5,%sar,64,%r5 mtsar %r8 depd,z %r4,%sar,64,%r4 or %r31,%r5,%r29 mtsar %r6 b L(39) extrd,s %r2,%sar,64,%r2 DEF(L(40)) b L(1) ldd 24(%r3),%r28 DEF(L(49)) b L(40) fldd 24(%r3),%fr4 DEF(L(48)) fldw 24(%r3),%fr4R DEF(L(41)) ldw 24(%r3),%r31 DEF(L(42)) b L(1) copy %r31,%r28 DEF(L(47)) ldw 24(%r3),%r31 b L(1) extrd,s %r31,63,32,%r28 DEF(L(46)) b L(42) ldh 24(%r3),%r31 DEF(L(45)) ldh 24(%r3),%r31 b L(1) extrd,s %r31,63,16,%r28 DEF(L(44)) b L(42) ldb 24(%r3),%r31 DEF(L(43)) ldb 24(%r3),%r31 b L(1) extrd,s %r31,63,8,%r28 .EXIT .PROCEND DEF(L(fe1)) FUNEND(vacall_receiver) IMPORT_DATA(vacall_function) #if defined __linux__ || defined __FreeBSD__ || defined __FreeBSD_kernel__ || defined __DragonFly__ .section .note.GNU-stack,"",@progbits #endif libffcall-2.2/vacall/vacall-m68k-linux.s0000664000000000000000000000456613530357111015006 00000000000000 .file "vacall-m68k.c" .text .align 2 .globl vacall_receiver .type vacall_receiver,@function vacall_receiver: link.w %a6,#-32 movm.l #0x3030,-(%sp) clr.l -32(%a6) lea (8,%a6),%a2 move.l %a2,-20(%a6) clr.l -16(%a6) clr.l -12(%a6) move.l %a1,-4(%a6) pea -32(%a6) move.l vacall_function,%a2 jbsr (%a2) addq.l #4,%sp move.l -12(%a6),%a3 tst.l %a3 jbeq .L1 moveq.l #1,%d2 cmp.l %a3,%d2 jbeq .L46 moveq.l #2,%d3 cmp.l %a3,%d3 jbeq .L46 moveq.l #3,%d2 cmp.l %a3,%d2 jbeq .L47 moveq.l #4,%d3 cmp.l %a3,%d3 jbeq .L48 moveq.l #5,%d2 cmp.l %a3,%d2 jbeq .L49 moveq.l #6,%d3 cmp.l %a3,%d3 jbeq .L45 moveq.l #7,%d2 cmp.l %a3,%d2 jbeq .L45 moveq.l #8,%d3 cmp.l %a3,%d3 jbeq .L45 moveq.l #9,%d2 cmp.l %a3,%d2 jbeq .L45 lea (-10,%a3),%a2 moveq.l #1,%d3 cmp.l %a2,%d3 jbcs .L22 move.l -28(%a6),%d0 move.l -24(%a6),%d1 jbra .L1 .align 2 .L22: moveq.l #12,%d2 cmp.l %a3,%d2 jbeq .L50 moveq.l #13,%d2 cmp.l %a3,%d2 jbeq .L51 moveq.l #14,%d3 cmp.l %a3,%d3 jbeq .L52 moveq.l #15,%d2 cmp.l %a3,%d2 jbne .L1 btst #2,-30(%a6) jbeq .L1 move.l -8(%a6),%d2 moveq.l #1,%d3 cmp.l %d2,%d3 jbeq .L53 moveq.l #2,%d3 cmp.l %d2,%d3 jbeq .L54 moveq.l #4,%d3 cmp.l %d2,%d3 jbeq .L55 moveq.l #8,%d3 cmp.l %d2,%d3 jbne .L1 move.l -16(%a6),%a2 move.l (%a2),%d0 move.l 4(%a2),%d1 jbra .L1 .align 2 .L55: move.l -16(%a6),%a2 move.l (%a2),%d0 jbra .L1 .align 2 .L54: move.l -16(%a6),%a2 clr.l %d0 move.w (%a2),%d0 jbra .L1 .align 2 .L53: move.l -16(%a6),%a2 clr.l %d0 move.b (%a2),%d0 jbra .L1 .align 2 .L52: move.l -28(%a6),%d0 move.l %d0,%a0 jbra .L1 .align 2 .L51: btst #6,-29(%a6) jbeq .L31 fmove.d -28(%a6),%fp0 jbra .L1 .align 2 .L31: move.l -28(%a6),%d0 move.l -24(%a6),%d1 jbra .L1 .align 2 .L50: move.l -32(%a6),%d2 btst #6,%d2 jbeq .L25 fmove.s -28(%a6),%fp0 jbra .L1 .align 2 .L25: btst #5,%d2 jbeq .L27 fmove.s -28(%a6),%fp1 fmove.d %fp1,-(%sp) move.l (%sp)+,%d0 move.l (%sp)+,%d1 jbra .L1 .align 2 .L27: move.l -28(%a6),%d0 jbra .L1 .align 2 .L45: move.l -28(%a6),%d0 jbra .L1 .align 2 .L49: clr.l %d0 move.w -28(%a6),%d0 jbra .L1 .align 2 .L48: move.w -28(%a6),%d0 ext.l %d0 jbra .L1 .align 2 .L47: clr.l %d0 move.b -28(%a6),%d0 jbra .L1 .align 2 .L46: move.b -28(%a6),%d0 extb.l %d0 .L1: movm.l -48(%a6),#0xc0c unlk %a6 rts .Lfe1: .size vacall_receiver,.Lfe1-vacall_receiver .ident "GCC: (GNU) 3.1" libffcall-2.2/vacall/vacall-arm64-macro.S0000664000000000000000000000555113530357112015050 00000000000000#include "asm-arm.h" .cpu generic+fp+simd .text .align 2 .p2align 3,,7 .global C(vacall_receiver) .type vacall_receiver, %function FUNBEGIN(vacall_receiver) stp x29, x30, [sp, -256]! adrp x9, vacall_function add x29, sp, 0 add x10, x29, 256 stp s0, s1, [x29, 156] ldr x9, [x9, $:lo12:vacall_function] stp x0, x1, [x29, 88] stp s2, s3, [x29, 164] stp x10, xzr, [x29, 40] stp s4, s5, [x29, 172] str x8, [x29, 72] stp s6, s7, [x29, 180] stp x2, x3, [x29, 104] stp d0, d1, [x29, 192] stp x4, x5, [x29, 120] stp d2, d3, [x29, 208] stp x6, x7, [x29, 136] str wzr, [x29, 16] add x0, x29, 16 str wzr, [x29, 56] str wzr, [x29, 80] str wzr, [x29, 152] stp d4, d5, [x29, 224] stp d6, d7, [x29, 240] blr x9 ldr w9, [x29, 56] cbz w9, L(1) cmp w9, 1 beq L(25) cmp w9, 2 beq L(29) cmp w9, 3 beq L(25) cmp w9, 4 beq L(30) cmp w9, 5 beq L(31) cmp w9, 6 beq L(32) cmp w9, 7 beq L(33) and w10, w9, -3 cmp w10, 8 beq L(27) cmp w10, 9 beq L(27) cmp w9, 12 beq L(34) cmp w9, 13 beq L(35) cmp w9, 14 beq L(27) cmp w9, 15 bne L(1) ldr w9, [x29, 16] tbz x9, 10, L(1) ldr x9, [x29, 64] sub x10, x9, $1 cmp x10, 15 bhi L(1) ldr x11, [x29, 48] cmp x9, 8 and x10, x11, 7 and x11, x11, -8 add x9, x9, x10 bhi L(15) cmp x9, 8 lsl w9, w9, 3 bhi L(16) mov x12, 2 sub w9, w9, $1 lsl x9, x12, x9 ldr x11, [x11] sub x9, x9, $1 lsl w10, w10, 3 and x9, x9, x11 asr x0, x9, x10 L(1): ldp x29, x30, [sp], 256 ret .p2align 3 L(25): ldrb w0, [x29, 24] ldp x29, x30, [sp], 256 ret .p2align 3 L(27): ldr x0, [x29, 24] b L(1) .p2align 3 L(29): ldrsb x0, [x29, 24] b L(1) .p2align 3 L(30): ldrsh x0, [x29, 24] b L(1) .p2align 3 L(31): ldrh w0, [x29, 24] b L(1) .p2align 3 L(32): ldrsw x0, [x29, 24] b L(1) .p2align 3 L(33): ldr w0, [x29, 24] b L(1) L(34): ldr s0, [x29, 24] b L(1) L(35): ldr d0, [x29, 24] b L(1) L(15): cmp x9, 16 lsl w9, w9, 3 bls L(36) mov x13, 2 sub w9, w9, $129 ldp x14, x12, [x11, 8] lsl x9, x13, x9 lsl w15, w10, 3 sub x9, x9, $1 neg w10, w10, lsl 3 ldr x11, [x11] add w10, w10, 64 and x9, x9, x12 lsl x16, x14, x10 asr x11, x11, x15 asr x14, x14, x15 lsl x10, x9, x10 orr x0, x11, x16 orr x1, x10, x14 b L(1) L(16): mov w13, -8 mov x14, 2 sub w9, w9, $65 lsl w15, w10, 3 ldr x12, [x11, 8] lsl x9, x14, x9 mul w10, w13, w10 sub x9, x9, $1 ldr x11, [x11] add w10, w10, 64 and x9, x9, x12 asr x11, x11, x15 lsl x9, x9, x10 orr x0, x9, x11 b L(1) L(36): mov w13, -4 mov x14, 2 sub w9, w9, $65 lsl w15, w10, 3 ldr x12, [x11, 8] lsl x9, x14, x9 mul w10, w13, w10 sub x9, x9, $1 ldr x11, [x11] add w10, w10, 32 and x9, x9, x12 asr x1, x9, x15 lsl x9, x9, x10 asr x11, x11, x15 lsl x9, x9, x10 orr x0, x11, x9 b L(1) FUNEND(vacall_receiver) #if defined __linux__ || defined __FreeBSD__ || defined __FreeBSD_kernel__ || defined __DragonFly__ .section .note.GNU-stack,"",%progbits #endif libffcall-2.2/vacall/vacall-mipseb-linux.s0000664000000000000000000000754113530357111015474 00000000000000 .file 1 "vacall-mips.c" .section .mdebug.abi32 .previous .nan legacy .module fp=xx .module nooddspreg .abicalls .text .align 2 .globl vacall_receiver .set nomips16 .set nomicromips .ent vacall_receiver .type vacall_receiver, @function vacall_receiver: .frame $fp,104,$31 # vars= 72, regs= 2/0, args= 16, gp= 8 .mask 0xc0000000,-4 .fmask 0x00000000,0 .set noreorder .cpload $25 .set reorder addiu $sp,$sp,-104 sw $fp,96($sp) move $fp,$sp sw $31,100($sp) la $8,vacall_function sw $4,104($fp) lw $25,0($8) addiu $4,$fp,104 sw $4,40($fp) addiu $4,$fp,120 sw $4,56($fp) .cprestore 16 addiu $4,$fp,24 sw $5,108($fp) sw $6,112($fp) sw $7,116($fp) sdc1 $f12,80($fp) sdc1 $f14,88($fp) swc1 $f12,68($fp) swc1 $f14,72($fp) sw $0,24($fp) sw $0,44($fp) sw $0,48($fp) sw $0,60($fp) sw $0,64($fp) jal $25 lw $4,48($fp) .set noreorder .set nomacro beq $4,$0,$L1 li $5,1 # 0x1 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,$L23 li $5,2 # 0x2 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,$L23 li $5,3 # 0x3 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,$L29 li $5,4 # 0x4 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,$L30 li $5,5 # 0x5 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,$L31 li $5,6 # 0x6 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,$L27 li $5,7 # 0x7 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,$L27 li $5,8 # 0x8 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,$L27 li $5,9 # 0x9 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,$L27 addiu $5,$4,-10 .set macro .set reorder sltu $5,$5,2 .set noreorder .set nomacro bne $5,$0,$L32 li $5,12 # 0xc .set macro .set reorder .set noreorder .set nomacro beq $4,$5,$L33 li $5,13 # 0xd .set macro .set reorder .set noreorder .set nomacro beq $4,$5,$L34 li $5,14 # 0xe .set macro .set reorder .set noreorder .set nomacro beq $4,$5,$L27 li $5,15 # 0xf .set macro .set reorder .set noreorder .set nomacro bnel $4,$5,$L37 move $sp,$fp .set macro .set reorder lw $4,24($fp) andi $4,$4,0x2 .set noreorder .set nomacro beql $4,$0,$L38 lw $2,44($fp) .set macro .set reorder lw $4,52($fp) li $5,1 # 0x1 .set noreorder .set nomacro beql $4,$5,$L35 lw $4,44($fp) .set macro .set reorder li $5,2 # 0x2 .set noreorder .set nomacro beq $4,$5,$L36 li $5,4 # 0x4 .set macro .set reorder .set noreorder .set nomacro bnel $4,$5,$L37 move $sp,$fp .set macro .set reorder lw $4,44($fp) lw $2,0($4) $L1: $L38: move $sp,$fp $L37: lw $31,100($sp) lw $fp,96($sp) .set noreorder .set nomacro j $31 addiu $sp,$sp,104 .set macro .set reorder $L23: move $sp,$fp lw $31,100($sp) lb $2,32($fp) lw $fp,96($sp) .set noreorder .set nomacro j $31 addiu $sp,$sp,104 .set macro .set reorder $L27: move $sp,$fp lw $31,100($sp) lw $2,32($fp) lw $fp,96($sp) .set noreorder .set nomacro j $31 addiu $sp,$sp,104 .set macro .set reorder $L29: .set noreorder .set nomacro b $L1 lbu $2,32($fp) .set macro .set reorder $L30: .set noreorder .set nomacro b $L1 lh $2,32($fp) .set macro .set reorder $L31: .set noreorder .set nomacro b $L1 lhu $2,32($fp) .set macro .set reorder $L34: .set noreorder .set nomacro b $L1 ldc1 $f0,32($fp) .set macro .set reorder $L32: lw $2,32($fp) .set noreorder .set nomacro b $L1 lw $3,36($fp) .set macro .set reorder $L33: .set noreorder .set nomacro b $L1 lwc1 $f0,32($fp) .set macro .set reorder $L35: .set noreorder .set nomacro b $L1 lbu $2,0($4) .set macro .set reorder $L36: lw $4,44($fp) .set noreorder .set nomacro b $L1 lhu $2,0($4) .set macro .set reorder .end vacall_receiver .size vacall_receiver, .-vacall_receiver .ident "GCC: (GNU) 5.4.0" libffcall-2.2/vacall/vacall-armhf-linux-pic.s0000664000000000000000000000540513530357112016061 00000000000000 .arch armv6 .eabi_attribute 28, 1 .eabi_attribute 20, 1 .eabi_attribute 21, 1 .eabi_attribute 23, 3 .eabi_attribute 24, 1 .eabi_attribute 25, 1 .eabi_attribute 26, 1 .eabi_attribute 30, 2 .eabi_attribute 34, 1 .eabi_attribute 18, 4 .file "vacall-armhf.c" .text .align 2 .global vacall_receiver .syntax unified .arm .fpu vfpv3-d16 .type vacall_receiver, %function vacall_receiver: @ args = 20, pretend = 16, frame = 176 @ frame_needed = 1, uses_anonymous_args = 0 sub sp, sp, #16 mov ip, #0 push {r4, r5, r6, fp, lr} add fp, sp, #16 ldr r4, .L32 ldr r5, .L32+4 add lr, fp, #4 .LPIC0: add r4, pc, r4 add r6, fp, #20 sub sp, sp, #180 stm lr, {r0, r1, r2, r3} vstr.32 s0, [fp, #-152] vstr.32 s1, [fp, #-148] vstr.32 s2, [fp, #-144] vstr.32 s3, [fp, #-140] vstr.32 s4, [fp, #-136] vstr.32 s5, [fp, #-132] vstr.32 s6, [fp, #-128] vstr.32 s7, [fp, #-124] vstr.32 s8, [fp, #-120] vstr.32 s9, [fp, #-116] vstr.32 s10, [fp, #-112] vstr.32 s11, [fp, #-108] vstr.32 s12, [fp, #-104] vstr.32 s13, [fp, #-100] vstr.32 s14, [fp, #-96] vstr.32 s15, [fp, #-92] vstr.64 d0, [fp, #-84] vstr.64 d1, [fp, #-76] vstr.64 d2, [fp, #-68] vstr.64 d3, [fp, #-60] vstr.64 d4, [fp, #-52] vstr.64 d5, [fp, #-44] vstr.64 d6, [fp, #-36] vstr.64 d7, [fp, #-28] str lr, [fp, #-164] str ip, [fp, #-196] str ip, [fp, #-160] str r6, [fp, #-180] str ip, [fp, #-156] str ip, [fp, #-176] strb ip, [fp, #-172] ldr r2, [r4, r5] mov r3, r4 sub r0, fp, #196 ldr r3, [r2] blx r3 ldrb r3, [fp, #-172] @ zero_extendqisi2 cmp r3, #0 beq .L1 cmp r3, #1 beq .L25 cmp r3, #2 ldrsbeq r0, [fp, #-188] beq .L1 cmp r3, #3 beq .L25 cmp r3, #4 ldrsheq r0, [fp, #-188] beq .L1 cmp r3, #5 ldrheq r0, [fp, #-188] beq .L1 cmp r3, #6 beq .L27 cmp r3, #7 beq .L27 cmp r3, #8 beq .L27 cmp r3, #9 beq .L27 sub r2, r3, #10 cmp r2, #1 bls .L29 cmp r3, #12 vldreq.32 s0, [fp, #-188] beq .L1 cmp r3, #13 beq .L30 cmp r3, #14 beq .L27 cmp r3, #15 bne .L1 ldr r3, [fp, #-196] tst r3, #1024 beq .L1 ldr r3, [fp, #-168] cmp r3, #1 beq .L31 cmp r3, #2 ldr r3, [fp, #-176] ldrheq r0, [r3] ldrne r0, [r3] .L1: sub sp, fp, #16 @ sp needed pop {r4, r5, r6, fp, lr} add sp, sp, #16 bx lr .L25: ldrb r0, [fp, #-188] @ zero_extendqisi2 sub sp, fp, #16 @ sp needed pop {r4, r5, r6, fp, lr} add sp, sp, #16 bx lr .L27: ldr r0, [fp, #-188] sub sp, fp, #16 @ sp needed pop {r4, r5, r6, fp, lr} add sp, sp, #16 bx lr .L30: vldr.64 d0, [fp, #-188] b .L1 .L29: ldr r0, [fp, #-188] ldr r1, [fp, #-184] b .L1 .L31: ldr r3, [fp, #-176] ldrb r0, [r3] @ zero_extendqisi2 b .L1 .L33: .align 2 .L32: .word _GLOBAL_OFFSET_TABLE_-(.LPIC0+8) .word vacall_function(GOT) .size vacall_receiver, .-vacall_receiver .ident "GCC: (GNU) 6.3.0" .section .note.GNU-stack,"",%progbits libffcall-2.2/vacall/vacall.html0000664000000000000000000002527213136760230013567 00000000000000 VACALL manual page

VACALL manual page

Name

 vacall - C functions called with variable arguments

Synopsis

 
#include <vacall.h>


extern void* vacall_function;


void function (va_alist alist)
{
  va_start_type(alist[, return_type]);
  arg = va_arg_type(alist[, arg_type]);
  va_return_type(alist[[, return_type], return_value]);
}


vacall_function = &function;


val = ((return_type (*) ()) vacall) (arg1,arg2,...);

Description

 This set of macros permit a C function function to be called with variable arguments and to return variable return values. This is much like the stdarg(3) facility, but also allows the return value to be specified at run time.

Function calling conventions differ considerably on different machines, and vacall attempts to provide some degree of isolation from such architecture dependencies.

The function that can be called with any number and type of arguments and which will return any type of return value is vacall. It will do some magic and call the function stored in the variable vacall_function. If you want to make more than one use of vacall, use the trampoline(3) facility to store &function into vacall_function just before calling vacall.

Within function, the following macros can be used to walk through the argument list and specify a return value: 

va_start_type(alist[, return_type]);
starts the walk through the argument list and specifies the return type. 

arg = va_arg_type(alist[, arg_type]);
fetches the next argument from the argument list. 

va_return_type(alist[[, return_type], return_value]);
ends the walk through the argument list and specifies the return value.

The type in va_start_type and va_return_type shall be one of void, int, uint, long, ulong, longlong, ulonglong, double, struct, ptr or (for ANSI C calling conventions only) char, schar, uchar, short, ushort, float, depending on the class of return_type.

The type specifiers in va_start_type and va_return_type must be the same. The return_type specifiers passed to va_start_type and va_return_type must be the same.

The type in va_arg_type shall be one of int, uint, long, ulong, longlong, ulonglong, double, struct, ptr or (for ANSI C calling conventions only) char, schar, uchar, short, ushort, float, depending on the class of arg_type.

In va_start_struct(alist, return_type, splittable); the splittable flag specifies whether the struct return_type can be returned in registers such that every struct field fits entirely in a single register. This needs to be specified for structs of size 2*sizeof(long). For structs of size <= sizeof(long), splittable is ignored and assumed to be 1. For structs of size > 2*sizeof(long), splittable is ignored and assumed to be 0. There are some handy macros for this: 

va_word_splittable_1 (type1)
va_word_splittable_2 (type1, type2)
va_word_splittable_3 (type1, type2, type3)
va_word_splittable_4 (type1, type2, type3, type4)
For a struct with three slots 
struct { type1 id1; type2 id2; type3 id3; }
you can specify splittable as va_word_splittable_3 (type1, type2, type3).

Notes
  1. Functions which want to emulate Kernighan & Ritchie style functions (i.e., in ANSI C, functions without a typed argument list) cannot use the type values char, schar, uchar, short, ushort, float. As prescribed by the default K&R C expression promotions, they have to use int instead of char, schar, uchar, short, ushort and double instead of float.

  2. The macros va_start_longlong(), va_start_ulonglong(), va_return_longlong(), va_return_ulonglong(), va_arg_longlong() and va_arg_ulonglong() work only if the C compiler has a working long long 64-bit integer type.

  3. The struct types used in va_start_struct() and va_struct() must only contain (signed or unsigned) int, long, long long or pointer fields. Struct types containing (signed or unsigned) char, short, float, double or other structs are not supported.

Example

 This example, a possible implementation of execl(3) on top of execv(2) using stdarg(3), 
#include <stdarg.h>
#define MAXARGS 100
/* execl is called by execl(file, arg1, arg2, ..., (char *)0); */
int execl (...)
{
  va_list ap;
  char* file;
  char* args[MAXARGS];
  int argno = 0;
  va_start (ap);
  file = va_arg(ap, char*);
  while ((args[argno] = va_arg(ap, char*)) != (char *)0)
    argno++;
  va_end (ap);
  return execv(file, args);
}
looks like this using vacall(3): 
#include <vacall.h>
#define MAXARGS 100
/* execl is called by vacall(file, arg1, arg2, ..., (char *)0); */
void execl (va_alist ap)
{
  char* file;
  char* args[MAXARGS];
  int argno = 0;
  int retval;
  va_start_int (ap);
  file = va_arg_ptr(ap, char*);
  while ((args[argno] = va_arg_ptr(ap, char*)) != (char *)0)
    argno++;
  retval = execv(file, args);
  va_return_int (ap, retval);
}
vacall_function = &execl;

See also

stdarg(3), trampoline(3), callback(3).

Bugs

 The current implementations have been tested on a selection of common cases but there are probably still many bugs.

There are typically built-in limits on the size of the argument-list, which may also include the size of any structure arguments.

The decision whether a struct is to be returned in registers or in memory considers only the struct's size and alignment. This is inaccurate: for example, gcc on m68k-next returns struct { char a,b,c; } in registers and struct { char a[3]; } in memory, although both types have the same size and the same alignment.

The argument list can only be walked once.

The use of the global variable vacall_function is not reentrant. This is fixed in the callback(3) package.

Porting

Knowledge about argument passing conventions can be found in the gcc source, file gcc-2.6.3/config/cpu/cpu.h, section "Stack layout; function entry, exit and calling."

The implementation of varargs for gcc can be found in the gcc source, files gcc-2.6.3/ginclude/va*.h.

gcc's __builtin_saveregs() function is defined in the gcc source, file gcc-2.6.3/libgcc2.c.

Author

Bruno Haible <bruno@clisp.org>

Acknowledgements

 Many ideas and a lot of code were cribbed from the gcc source.

VACALL manual page
Bruno Haible <bruno@clisp.org>

Last modified: 1 January 2017. libffcall-2.2/vacall/vacall-sparc64-macro.S0000664000000000000000000002657313530357111015407 00000000000000#include "asm-sparc.h" #ifdef __PIC__ .section ".text" .align 4 L(LADDPC0): jmp %o7+8 add %o7, %l7, %l7 .align 4 .global C(vacall_receiver) DECLARE_FUNCTION(vacall_receiver) .proc 020 FUNBEGIN(vacall_receiver) .register %g2, $scratch .register %g3, $scratch save %sp, -448, %sp add %fp, 2175, %g1 stx %i0, [%fp+2175] stx %i1, [%fp+2183] stx %i2, [%fp+2191] stx %i3, [%fp+2199] stx %i4, [%fp+2207] stx %i5, [%fp+2215] std %f0, [%fp+1903] std %f2, [%fp+1911] std %f4, [%fp+1919] std %f6, [%fp+1927] std %f8, [%fp+1935] std %f10, [%fp+1943] std %f12, [%fp+1951] std %f14, [%fp+1959] std %f16, [%fp+1967] std %f18, [%fp+1975] std %f20, [%fp+1983] std %f22, [%fp+1991] std %f24, [%fp+1999] std %f26, [%fp+2007] std %f28, [%fp+2015] std %f30, [%fp+2023] st %f1, [%fp+1835] st %f3, [%fp+1839] st %f5, [%fp+1843] st %f7, [%fp+1847] st %f9, [%fp+1851] st %f11, [%fp+1855] st %f13, [%fp+1859] st %f15, [%fp+1863] st %f17, [%fp+1867] st %f19, [%fp+1871] st %f21, [%fp+1875] sethi %hi(_GLOBAL_OFFSET_TABLE_-4), %l7 call L(LADDPC0) add %l7, %lo(_GLOBAL_OFFSET_TABLE_+4), %l7 st %f23, [%fp+1879] stx %g1, [%fp+1799] sethi %hi(C(vacall_function)), %g1 or %g1, %lo(C(vacall_function)), %g1 st %f25, [%fp+1883] ldx [%l7+%g1], %g2 st %f27, [%fp+1887] st %f29, [%fp+1891] st %f31, [%fp+1895] st %g0, [%fp+1775] stx %g0, [%fp+1807] st %g0, [%fp+1815] st %g0, [%fp+1831] ldx [%g2], %g3 call %g3, 0 add %fp, 1775, %o0 lduw [%fp+1815], %g1 cmp %g1, 0 be,pn %icc, L(L61) cmp %g1, 1 be,pn %icc, L(L50) cmp %g1, 2 be,pn %icc, L(L50) cmp %g1, 3 be,pn %icc, L(L53) cmp %g1, 4 be,pn %icc, L(L54) cmp %g1, 5 be,pn %icc, L(L55) cmp %g1, 6 be,pn %icc, L(L56) cmp %g1, 7 be,pn %icc, L(L57) cmp %g1, 8 be,pn %icc, L(L51) cmp %g1, 9 be,pn %icc, L(L51) cmp %g1, 10 be,pn %icc, L(L51) cmp %g1, 11 be,pn %icc, L(L51) cmp %g1, 12 be,pn %icc, L(L58) cmp %g1, 13 be,pn %icc, L(L59) cmp %g1, 14 be,pn %icc, L(L51) cmp %g1, 15 bne,pt %icc, L(L61) lduw [%fp+1775], %g1 andcc %g1, 1024, %g0 be,pn %xcc, L(L61) ldx [%fp+1823], %g5 add %g5, -1, %g1 cmp %g1, 31 bgu,pn %xcc, L(L61) ldx [%fp+1807], %g1 cmp %g5, 8 and %g1, 7, %o2 and %g1, -8, %l0 bgu,pt %xcc, L(L35) add %g5, %o2, %g2 cmp %g2, 8 bgu,pt %xcc, L(L37) sllx %o2, 3, %g4 sllx %g2, 3, %g2 ldx [%l0], %g3 sub %g0, %g2, %g2 mov -1, %g1 sllx %g1, %g2, %g1 and %g1, %g3, %g1 return %i7+8 sllx %g1, %g4, %o0 L(L47): ldx [%l0], %g1 sllx %g1, %o4, %g1 ldx [%l0+8], %g4 ldx [%l0+16], %g5 sllx %g4, %o4, %o1 sllx %g5, %o4, %o0 ldx [%l0+24], %o5 sllx %g2, 3, %o3 sllx %o5, %o4, %o7 ldx [%l0+32], %o2 sub %g0, %o3, %o3 mov 64, %g3 sub %g3, %o4, %g3 srax %g4, %g3, %g4 srax %g5, %g3, %g5 or %g1, %g4, %i0 srax %o5, %g3, %o5 mov -1, %g1 or %o1, %g5, %i1 sllx %g1, %o3, %g1 or %o0, %o5, %i2 and %g1, %o2, %g1 srax %g1, %g3, %g1 or %o7, %g1, %i3 L(L61): return %i7+8 nop L(L50): ldsb [%fp+1783], %i0 return %i7+8 nop L(L54): ldsh [%fp+1783], %i0 return %i7+8 nop L(L53): ldub [%fp+1783], %i0 return %i7+8 nop L(L51): ldx [%fp+1783], %i0 return %i7+8 nop L(L55): lduh [%fp+1783], %i0 return %i7+8 nop L(L56): ldsw [%fp+1783], %i0 return %i7+8 nop L(L57): lduw [%fp+1783], %i0 return %i7+8 nop L(L58): ld [%fp+1783], %f0 return %i7+8 nop L(L59): ldd [%fp+1783], %f0 return %i7+8 nop L(L35): cmp %g5, 16 bgu,pt %xcc, L(L39) cmp %g5, 24 cmp %g2, 16 bgu,pt %xcc, L(L41) sllx %o2, 3, %o5 sllx %g2, 3, %g3 ldx [%l0+8], %g2 sll %o2, 3, %g5 sllx %o2, 2, %o5 sub %g0, %g3, %g3 ldx [%l0], %g4 mov -1, %g1 sllx %g4, %g5, %g4 sllx %g1, %g3, %g1 and %g1, %g2, %g1 mov 32, %g2 sllx %g1, %g5, %i1 sub %g2, %o5, %g2 srax %g1, %g2, %g1 srax %g1, %g2, %g1 return %i7+8 or %g4, %g1, %o0 L(L37): sllx %g2, 3, %g3 ldx [%l0+8], %g5 sub %g0, %g3, %g3 sub %g0, %g4, %o5 ldx [%l0], %g2 mov -1, %g1 sllx %g2, %g4, %g2 sllx %g1, %g3, %g1 and %g1, %g5, %g1 srax %g1, %o5, %g1 return %i7+8 or %g2, %g1, %o0 L(L39): bgu,pt %xcc, L(L43) cmp %g2, 32 cmp %g2, 24 bgu,pt %xcc, L(L45) sllx %o2, 3, %o4 sllx %o2, 2, %g1 sll %o2, 3, %g5 sllx %g2, 3, %o5 ldx [%l0+8], %g3 ldx [%l0+16], %o4 sllx %g3, %g5, %o3 sub %g0, %o5, %o5 mov 32, %g4 ldx [%l0], %g2 sub %g4, %g1, %g4 sllx %g2, %g5, %g2 srax %g3, %g4, %g3 mov -1, %g1 srax %g3, %g4, %g3 sllx %g1, %o5, %g1 and %g1, %o4, %g1 sllx %g1, %g5, %i2 srax %g1, %g4, %g1 srax %g1, %g4, %g1 or %o3, %g1, %i1 return %i7+8 or %g2, %g3, %o0 L(L41): sllx %g2, 3, %g5 ldx [%l0+8], %g3 ldx [%l0+16], %o4 sllx %g3, %o5, %o3 sub %g0, %g5, %g5 mov 64, %g4 ldx [%l0], %g2 sub %g4, %o5, %g4 sllx %g2, %o5, %g2 srax %g3, %g4, %g3 mov -1, %g1 sllx %g1, %g5, %g1 and %g1, %o4, %g1 srax %g1, %g4, %g1 or %o3, %g1, %i1 return %i7+8 or %g2, %g3, %o0 L(L45): ldx [%l0], %g1 sllx %g1, %o4, %g1 ldx [%l0+8], %g3 ldx [%l0+16], %g4 sllx %g3, %o4, %o3 sllx %g4, %o4, %o1 sllx %g2, 3, %o5 ldx [%l0+24], %o2 sub %g0, %o5, %o5 mov 64, %g5 sub %g5, %o4, %g5 srax %g3, %g5, %g3 srax %g4, %g5, %g4 or %g1, %g3, %i0 or %o3, %g4, %i1 mov -1, %g1 sllx %g1, %o5, %g1 and %g1, %o2, %g1 srax %g1, %g5, %g1 or %o1, %g1, %i2 return %i7+8 nop L(L43): bgu,pt %xcc, L(L47) sllx %o2, 3, %o4 sll %o2, 3, %o5 ldx [%l0], %g1 sllx %g1, %o5, %g1 sllx %o2, 2, %o4 sllx %g2, 3, %g5 ldx [%l0+8], %g3 ldx [%l0+16], %g4 sllx %g3, %o5, %o2 sllx %g4, %o5, %o1 ldx [%l0+24], %o3 sub %g0, %g5, %g5 mov 32, %g2 sub %g2, %o4, %g2 srax %g3, %g2, %g3 srax %g4, %g2, %g4 srax %g3, %g2, %g3 srax %g4, %g2, %g4 or %g1, %g3, %i0 or %o2, %g4, %i1 mov -1, %g1 sllx %g1, %g5, %g1 and %g1, %o3, %g1 sllx %g1, %o5, %i3 srax %g1, %g2, %g1 srax %g1, %g2, %g1 or %o1, %g1, %i2 return %i7+8 nop FUNEND(vacall_receiver) #else .section ".text" .align 4 .global C(vacall_receiver) DECLARE_FUNCTION(vacall_receiver) .proc 020 FUNBEGIN(vacall_receiver) .register %g2, $scratch .register %g3, $scratch save %sp, -448, %sp add %fp, 2175, %g1 stx %i0, [%fp+2175] stx %i1, [%fp+2183] stx %i2, [%fp+2191] stx %i3, [%fp+2199] stx %i4, [%fp+2207] stx %i5, [%fp+2215] std %f0, [%fp+1903] std %f2, [%fp+1911] std %f4, [%fp+1919] std %f6, [%fp+1927] std %f8, [%fp+1935] std %f10, [%fp+1943] std %f12, [%fp+1951] std %f14, [%fp+1959] std %f16, [%fp+1967] std %f18, [%fp+1975] std %f20, [%fp+1983] std %f22, [%fp+1991] std %f24, [%fp+1999] std %f26, [%fp+2007] std %f28, [%fp+2015] std %f30, [%fp+2023] st %f1, [%fp+1835] st %f3, [%fp+1839] st %f5, [%fp+1843] st %f7, [%fp+1847] st %f9, [%fp+1851] st %f11, [%fp+1855] st %f13, [%fp+1859] st %f15, [%fp+1863] st %f17, [%fp+1867] st %f19, [%fp+1871] st %f21, [%fp+1875] sethi %lm(C(vacall_function)), %g2 st %f23, [%fp+1879] stx %g1, [%fp+1799] st %f25, [%fp+1883] st %f27, [%fp+1887] st %f29, [%fp+1891] st %f31, [%fp+1895] st %g0, [%fp+1775] stx %g0, [%fp+1807] st %g0, [%fp+1815] st %g0, [%fp+1831] sethi %hh(C(vacall_function)), %g1 or %g1, %hm(C(vacall_function)), %g1 sllx %g1, 32, %g1 add %g1, %g2, %g1 ldx [%g1+%lo(C(vacall_function))], %g3 call %g3, 0 add %fp, 1775, %o0 lduw [%fp+1815], %g1 cmp %g1, 0 be,pn %icc, L(L61) cmp %g1, 1 be,pn %icc, L(L50) cmp %g1, 2 be,pn %icc, L(L50) cmp %g1, 3 be,pn %icc, L(L53) cmp %g1, 4 be,pn %icc, L(L54) cmp %g1, 5 be,pn %icc, L(L55) cmp %g1, 6 be,pn %icc, L(L56) cmp %g1, 7 be,pn %icc, L(L57) cmp %g1, 8 be,pn %icc, L(L51) cmp %g1, 9 be,pn %icc, L(L51) cmp %g1, 10 be,pn %icc, L(L51) cmp %g1, 11 be,pn %icc, L(L51) cmp %g1, 12 be,pn %icc, L(L58) cmp %g1, 13 be,pn %icc, L(L59) cmp %g1, 14 be,pn %icc, L(L51) cmp %g1, 15 bne,pt %icc, L(L61) lduw [%fp+1775], %g1 andcc %g1, 1024, %g0 be,pn %xcc, L(L61) ldx [%fp+1823], %g5 add %g5, -1, %g1 cmp %g1, 31 bgu,pn %xcc, L(L61) ldx [%fp+1807], %g1 cmp %g5, 8 and %g1, 7, %o2 and %g1, -8, %l0 bgu,pt %xcc, L(L35) add %g5, %o2, %g2 cmp %g2, 8 bgu,pt %xcc, L(L37) sllx %o2, 3, %g4 sllx %g2, 3, %g2 ldx [%l0], %g3 sub %g0, %g2, %g2 mov -1, %g1 sllx %g1, %g2, %g1 and %g1, %g3, %g1 return %i7+8 sllx %g1, %g4, %o0 L(L47): ldx [%l0], %g1 sllx %g1, %o4, %g1 ldx [%l0+8], %g4 ldx [%l0+16], %g5 sllx %g4, %o4, %o1 sllx %g5, %o4, %o0 ldx [%l0+24], %o5 sllx %g2, 3, %o3 sllx %o5, %o4, %o7 ldx [%l0+32], %o2 sub %g0, %o3, %o3 mov 64, %g3 sub %g3, %o4, %g3 srax %g4, %g3, %g4 srax %g5, %g3, %g5 or %g1, %g4, %i0 srax %o5, %g3, %o5 mov -1, %g1 or %o1, %g5, %i1 sllx %g1, %o3, %g1 or %o0, %o5, %i2 and %g1, %o2, %g1 srax %g1, %g3, %g1 or %o7, %g1, %i3 L(L61): return %i7+8 nop L(L50): ldsb [%fp+1783], %i0 return %i7+8 nop L(L54): ldsh [%fp+1783], %i0 return %i7+8 nop L(L53): ldub [%fp+1783], %i0 return %i7+8 nop L(L51): ldx [%fp+1783], %i0 return %i7+8 nop L(L55): lduh [%fp+1783], %i0 return %i7+8 nop L(L56): ldsw [%fp+1783], %i0 return %i7+8 nop L(L57): lduw [%fp+1783], %i0 return %i7+8 nop L(L58): ld [%fp+1783], %f0 return %i7+8 nop L(L59): ldd [%fp+1783], %f0 return %i7+8 nop L(L35): cmp %g5, 16 bgu,pt %xcc, L(L39) cmp %g5, 24 cmp %g2, 16 bgu,pt %xcc, L(L41) sllx %o2, 3, %o5 sllx %g2, 3, %g3 ldx [%l0+8], %g2 sll %o2, 3, %g5 sllx %o2, 2, %o5 sub %g0, %g3, %g3 ldx [%l0], %g4 mov -1, %g1 sllx %g4, %g5, %g4 sllx %g1, %g3, %g1 and %g1, %g2, %g1 mov 32, %g2 sllx %g1, %g5, %i1 sub %g2, %o5, %g2 srax %g1, %g2, %g1 srax %g1, %g2, %g1 return %i7+8 or %g4, %g1, %o0 L(L37): sllx %g2, 3, %g3 ldx [%l0+8], %g5 sub %g0, %g3, %g3 sub %g0, %g4, %o5 ldx [%l0], %g2 mov -1, %g1 sllx %g2, %g4, %g2 sllx %g1, %g3, %g1 and %g1, %g5, %g1 srax %g1, %o5, %g1 return %i7+8 or %g2, %g1, %o0 L(L39): bgu,pt %xcc, L(L43) cmp %g2, 32 cmp %g2, 24 bgu,pt %xcc, L(L45) sllx %o2, 3, %o4 sllx %o2, 2, %g1 sll %o2, 3, %g5 sllx %g2, 3, %o5 ldx [%l0+8], %g3 ldx [%l0+16], %o4 sllx %g3, %g5, %o3 sub %g0, %o5, %o5 mov 32, %g4 ldx [%l0], %g2 sub %g4, %g1, %g4 sllx %g2, %g5, %g2 srax %g3, %g4, %g3 mov -1, %g1 srax %g3, %g4, %g3 sllx %g1, %o5, %g1 and %g1, %o4, %g1 sllx %g1, %g5, %i2 srax %g1, %g4, %g1 srax %g1, %g4, %g1 or %o3, %g1, %i1 return %i7+8 or %g2, %g3, %o0 L(L41): sllx %g2, 3, %g5 ldx [%l0+8], %g3 ldx [%l0+16], %o4 sllx %g3, %o5, %o3 sub %g0, %g5, %g5 mov 64, %g4 ldx [%l0], %g2 sub %g4, %o5, %g4 sllx %g2, %o5, %g2 srax %g3, %g4, %g3 mov -1, %g1 sllx %g1, %g5, %g1 and %g1, %o4, %g1 srax %g1, %g4, %g1 or %o3, %g1, %i1 return %i7+8 or %g2, %g3, %o0 L(L45): ldx [%l0], %g1 sllx %g1, %o4, %g1 ldx [%l0+8], %g3 ldx [%l0+16], %g4 sllx %g3, %o4, %o3 sllx %g4, %o4, %o1 sllx %g2, 3, %o5 ldx [%l0+24], %o2 sub %g0, %o5, %o5 mov 64, %g5 sub %g5, %o4, %g5 srax %g3, %g5, %g3 srax %g4, %g5, %g4 or %g1, %g3, %i0 or %o3, %g4, %i1 mov -1, %g1 sllx %g1, %o5, %g1 and %g1, %o2, %g1 srax %g1, %g5, %g1 or %o1, %g1, %i2 return %i7+8 nop L(L43): bgu,pt %xcc, L(L47) sllx %o2, 3, %o4 sll %o2, 3, %o5 ldx [%l0], %g1 sllx %g1, %o5, %g1 sllx %o2, 2, %o4 sllx %g2, 3, %g5 ldx [%l0+8], %g3 ldx [%l0+16], %g4 sllx %g3, %o5, %o2 sllx %g4, %o5, %o1 ldx [%l0+24], %o3 sub %g0, %g5, %g5 mov 32, %g2 sub %g2, %o4, %g2 srax %g3, %g2, %g3 srax %g4, %g2, %g4 srax %g3, %g2, %g3 srax %g4, %g2, %g4 or %g1, %g3, %i0 or %o2, %g4, %i1 mov -1, %g1 sllx %g1, %g5, %g1 and %g1, %o3, %g1 sllx %g1, %o5, %i3 srax %g1, %g2, %g1 srax %g1, %g2, %g1 or %o1, %g1, %i2 return %i7+8 nop FUNEND(vacall_receiver) #endif #if defined __linux__ || defined __FreeBSD__ || defined __FreeBSD_kernel__ || defined __DragonFly__ .section .note.GNU-stack,"",@progbits #endif libffcall-2.2/vacall/vacall-mipsn32el-linux.s0000664000000000000000000001147713530357111016034 00000000000000 .file 1 "vacall-mipsn32.c" .section .mdebug.abiN32 .previous .nan legacy .module fp=64 .module oddspreg .abicalls .text .align 2 .align 3 .globl vacall_receiver .set nomips16 .set nomicromips .ent vacall_receiver .type vacall_receiver, @function vacall_receiver: .frame $fp,256,$31 # vars= 144, regs= 6/0, args= 0, gp= 0 .mask 0xd0070000,-72 .fmask 0x00000000,0 .set noreorder .set nomacro addiu $sp,$sp,-256 sd $28,168($sp) lui $28,%hi(__gnu_local_gp) addiu $28,$28,%lo(__gnu_local_gp) lw $12,%got_disp(vacall_function)($28) sd $fp,176($sp) move $fp,$sp lw $25,0($12) addiu $12,$fp,192 sd $31,184($sp) sd $18,160($sp) sd $17,152($sp) sd $16,144($sp) sd $4,192($fp) sd $5,200($fp) sd $6,208($fp) sd $7,216($fp) sd $8,224($fp) sd $9,232($fp) sd $10,240($fp) sd $11,248($fp) sdc1 $f12,80($fp) sdc1 $f13,88($fp) sdc1 $f14,96($fp) sdc1 $f15,104($fp) sdc1 $f16,112($fp) sdc1 $f17,120($fp) sdc1 $f18,128($fp) sdc1 $f19,136($fp) swc1 $f12,44($fp) swc1 $f13,48($fp) swc1 $f14,52($fp) swc1 $f15,56($fp) swc1 $f16,60($fp) swc1 $f17,64($fp) swc1 $f18,68($fp) swc1 $f19,72($fp) move $4,$fp sw $0,0($fp) sw $12,24($fp) sw $0,28($fp) sw $0,32($fp) jalr $25 sw $0,40($fp) lw $12,32($fp) beq $12,$0,.L1 li $13,1 # 0x1 beq $12,$13,.L43 li $13,2 # 0x2 beq $12,$13,.L43 li $13,3 # 0x3 beq $12,$13,.L49 li $13,4 # 0x4 beq $12,$13,.L50 li $13,5 # 0x5 beq $12,$13,.L51 li $13,6 # 0x6 beq $12,$13,.L46 li $13,7 # 0x7 beq $12,$13,.L45 li $13,8 # 0x8 beq $12,$13,.L46 li $13,9 # 0x9 beq $12,$13,.L45 li $13,10 # 0xa beq $12,$13,.L47 li $13,11 # 0xb beq $12,$13,.L47 li $13,12 # 0xc beq $12,$13,.L52 li $13,13 # 0xd beq $12,$13,.L53 li $13,14 # 0xe beq $12,$13,.L46 li $13,15 # 0xf bnel $12,$13,.L59 move $sp,$fp lw $12,0($fp) andi $13,$12,0x400 beq $13,$0,.L1 andi $13,$12,0x4 beq $13,$0,.L19 lw $24,36($fp) lw $12,36($fp) li $13,1 # 0x1 beq $12,$13,.L54 li $13,2 # 0x2 beq $12,$13,.L55 li $13,4 # 0x4 beq $12,$13,.L56 li $13,8 # 0x8 bnel $12,$13,.L59 move $sp,$fp lw $12,28($fp) ld $2,0($12) .L1: move $sp,$fp .L59: ld $31,184($sp) ld $fp,176($sp) ld $28,168($sp) ld $18,160($sp) ld $17,152($sp) ld $16,144($sp) j $31 addiu $sp,$sp,256 .align 3 .L43: move $sp,$fp ld $31,184($sp) ld $28,168($sp) ld $18,160($sp) ld $17,152($sp) ld $16,144($sp) lb $2,8($fp) ld $fp,176($sp) j $31 addiu $sp,$sp,256 .align 3 .L46: b .L1 lw $2,8($fp) .align 3 .L49: b .L1 lbu $2,8($fp) .align 3 .L50: b .L1 lh $2,8($fp) .align 3 .L45: b .L1 lwu $2,8($fp) .align 3 .L51: b .L1 lhu $2,8($fp) .align 3 .L52: b .L1 lwc1 $f0,8($fp) .align 3 .L47: b .L1 ld $2,8($fp) .L53: b .L1 ldc1 $f0,8($fp) .L19: addiu $13,$24,-1 sltu $13,$13,16 beql $13,$0,.L60 andi $13,$12,0x800 lw $13,28($fp) li $15,-8 # 0xfffffffffffffff8 sltu $25,$24,9 andi $14,$13,0x7 and $15,$13,$15 beq $25,$0,.L24 addu $13,$24,$14 sltu $25,$13,9 beq $25,$0,.L25 sll $13,$13,3 ld $25,0($15) addiu $13,$13,-1 li $15,2 # 0x2 dsll $13,$15,$13 daddiu $13,$13,-1 and $13,$13,$25 sll $14,$14,3 dsra $2,$13,$14 .L23: andi $13,$12,0x800 .L60: beql $13,$0,.L27 andi $12,$12,0x1000 li $13,4 # 0x4 beq $24,$13,.L57 li $13,8 # 0x8 beql $24,$13,.L58 lw $13,28($fp) andi $12,$12,0x1000 beql $12,$0,.L59 move $sp,$fp li $12,16 # 0x10 .L61: bnel $24,$12,.L59 move $sp,$fp lw $12,28($fp) ldc1 $f0,0($12) b .L1 ldc1 $f2,8($12) .L27: beq $12,$0,.L1 li $12,8 # 0x8 bne $24,$12,.L61 li $12,16 # 0x10 lw $13,28($fp) b .L1 ldc1 $f0,0($13) .L24: sltu $25,$13,17 beq $25,$0,.L26 sll $13,$13,3 ld $17,8($15) li $25,2 # 0x2 addiu $13,$13,-65 dsll $13,$25,$13 subu $25,$0,$14 sll $25,$25,2 ld $16,0($15) daddiu $13,$13,-1 addiu $15,$25,32 and $13,$13,$17 sll $14,$14,3 dsll $25,$13,$15 dsra $16,$16,$14 dsll $15,$25,$15 or $2,$16,$15 b .L23 dsra $3,$13,$14 .L54: lw $12,28($fp) b .L1 lbu $2,0($12) .L55: lw $12,28($fp) b .L1 lhu $2,0($12) .L26: ld $16,8($15) ld $17,0($15) addiu $13,$13,-129 ld $18,16($15) li $15,2 # 0x2 subu $25,$0,$14 dsll $15,$15,$13 daddiu $15,$15,-1 sll $25,$25,3 sll $14,$14,3 addiu $25,$25,64 and $13,$15,$18 dsll $13,$13,$25 dsra $15,$17,$14 dsll $17,$16,$25 dsra $14,$16,$14 or $2,$15,$17 b .L23 or $3,$13,$14 .L57: lw $12,28($fp) b .L1 lwc1 $f0,0($12) .L56: lw $12,28($fp) b .L1 lwu $2,0($12) .L25: li $25,2 # 0x2 addiu $13,$13,-65 ld $17,8($15) dsll $13,$25,$13 ld $25,0($15) daddiu $13,$13,-1 subu $16,$0,$14 and $15,$13,$17 sll $14,$14,3 sll $13,$16,3 dsll $13,$15,$13 dsra $14,$25,$14 b .L23 or $2,$13,$14 .L58: andi $12,$12,0x1000 lwc1 $f0,0($13) beq $12,$0,.L1 lwc1 $f2,4($13) b .L1 ldc1 $f0,0($13) .set macro .set reorder .end vacall_receiver .size vacall_receiver, .-vacall_receiver .ident "GCC: (GNU) 5.4.0" libffcall-2.2/vacall/Makefile.devel0000664000000000000000000005063313527356626014212 00000000000000# This is the developer's -*-Makefile-*-, not the user's makefile. # Do not use it unless you know exactly what you do! THISFILE = Makefile.devel LN = ln -s RM = rm -f # ============ Rules that require cross-compilation tools ============ GCC = gcc GCCFLAGS = -I.. -I../dummy -O2 -fno-omit-frame-pointer SED = sed CROSS_TOOL = cross precompiled : \ vacall-i386-macro.S \ vacall-m68k.mit.S vacall-m68k.motorola.S \ vacall-mipseb-macro.S vacall-mipsel-macro.S vacall-mipsn32eb-macro.S vacall-mipsn32el-macro.S vacall-mips64eb-macro.S vacall-mips64el-macro.S \ vacall-sparc-macro.S vacall-sparc64-macro.S \ vacall-alpha-macro.S \ vacall-hppa-macro.S vacall-hppa64-macro.S \ vacall-arm-macro.S vacall-armhf-macro.S \ vacall-arm64-macro.S \ vacall-powerpc-aix.s vacall-powerpc-linux-macro.S vacall-powerpc-sysv4-macro.S vacall-powerpc-macos.s vacall-powerpc64-aix.s vacall-powerpc64-linux.S vacall-powerpc64-elfv2-linux.S \ vacall-ia64-macro.S \ vacall-x86_64-macro.S vacall-x86_64-x32-linux.s vacall-x86_64-windows-macro.S \ vacall-s390-macro.S vacall-s390x-macro.S \ vacall-riscv32-ilp32d-macro.S vacall-riscv64-lp64d-macro.S vacall-i386-linux.s : vacall-i386.c vacall-internal.h vacall.h $(THISFILE) $(CROSS_TOOL) i386-linux gcc -V 3.1 $(GCCFLAGS) -D__i386__ -S vacall-i386.c -o vacall-i386-linux.s vacall-i386-linux-pic.s : vacall-i386.c vacall-internal.h vacall.h $(THISFILE) $(CROSS_TOOL) i386-linux gcc -V 3.1 $(GCCFLAGS) -fPIC -D__i386__ -S vacall-i386.c -o vacall-i386-linux-pic.s vacall-i386-macro.S : vacall-i386-linux.s vacall-i386-linux-pic.s ../common/asm-i386.sh ../common/noexecstack.h $(THISFILE) (echo '#include "asm-i386.h"' ; echo '#ifdef __PIC__' ; sed -e '/\.align.*,0x90$$/d' < vacall-i386-linux-pic.s | sed -e 's/vacall_function/C(vacall_function)/g' | ../common/asm-i386.sh ; echo '#else' ; sed -e '/\.align.*,0x90$$/d' < vacall-i386-linux.s | sed -e 's/vacall_function/C(vacall_function)/g' | ../common/asm-i386.sh ; echo '#endif' ; cat ../common/noexecstack.h) > vacall-i386-macro.S vacall-m68k-linux.s : vacall-m68k.c vacall-internal.h vacall.h $(THISFILE) $(CROSS_TOOL) m68k-linux gcc -V 3.1 $(GCCFLAGS) -D__m68k__ -S vacall-m68k.c -o vacall-m68k-linux.s vacall-m68k-sun.s : vacall-m68k.c vacall-internal.h vacall.h $(THISFILE) $(CROSS_TOOL) m68k-sun gcc -V 3.1 $(GCCFLAGS) -D__m68k__ -S vacall-m68k.c -o vacall-m68k-sun.s vacall-m68k.mit.S : vacall-m68k-sun.s ../common/asm-m68k.sh ../common/noexecstack.h $(THISFILE) (echo '#include "asm-m68k.h"' ; ../common/asm-m68k.sh mit < vacall-m68k-sun.s ; cat ../common/noexecstack.h) > vacall-m68k.mit.S vacall-m68k.motorola.S : vacall-m68k-linux.s ../common/asm-m68k.sh ../common/noexecstack.h $(THISFILE) (echo '#include "asm-m68k.h"' ; ../common/asm-m68k.sh motorola < vacall-m68k-linux.s | sed -e 's/vacall_function/C(vacall_function)/g' ; cat ../common/noexecstack.h) > vacall-m68k.motorola.S vacall-mipseb-linux.s : vacall-mips.c vacall-internal.h vacall.h $(THISFILE) # For references to global symbols: -mno-explicit-relocs ensures a syntax that the IRIX assembler understands. $(CROSS_TOOL) mips64-linux gcc-5.4.0 -mabi=32 -mfpxx -march=mips2 -meb -mno-explicit-relocs $(GCCFLAGS) -D__mips__ -S vacall-mips.c -o vacall-mipseb-linux.s vacall-mipseb-macro.S : vacall-mipseb-linux.s ../common/asm-mips.sh $(THISFILE) (echo '#include "asm-mips.h"' ; ../common/asm-mips.sh < vacall-mipseb-linux.s) > vacall-mipseb-macro.S vacall-mipsel-linux.s : vacall-mips.c vacall-internal.h vacall.h $(THISFILE) $(CROSS_TOOL) mips64-linux gcc-5.4.0 -mabi=32 -mfpxx -march=mips2 -mel -mno-explicit-relocs $(GCCFLAGS) -D__mips__ -S vacall-mips.c -o vacall-mipsel-linux.s vacall-mipsel-macro.S : vacall-mipsel-linux.s ../common/asm-mips.sh $(THISFILE) (echo '#include "asm-mips.h"' ; ../common/asm-mips.sh < vacall-mipsel-linux.s) > vacall-mipsel-macro.S vacall-mipsn32eb-linux.s : vacall-mipsn32.c vacall-internal.h vacall.h $(THISFILE) $(CROSS_TOOL) mips64-linux gcc-5.4.0 -mabi=n32 -meb $(GCCFLAGS) -D__mipsn32__ -S vacall-mipsn32.c -o vacall-mipsn32eb-linux.s vacall-mipsn32eb-macro.S : vacall-mipsn32eb-linux.s ../common/asm-mips.sh $(THISFILE) (echo '#include "asm-mips.h"' ; ../common/asm-mips.sh < vacall-mipsn32eb-linux.s) > vacall-mipsn32eb-macro.S vacall-mipsn32el-linux.s : vacall-mipsn32.c vacall-internal.h vacall.h $(THISFILE) $(CROSS_TOOL) mips64-linux gcc-5.4.0 -mabi=n32 -mel $(GCCFLAGS) -D__mipsn32__ -S vacall-mipsn32.c -o vacall-mipsn32el-linux.s vacall-mipsn32el-macro.S : vacall-mipsn32el-linux.s ../common/asm-mips.sh $(THISFILE) (echo '#include "asm-mips.h"' ; ../common/asm-mips.sh < vacall-mipsn32el-linux.s) > vacall-mipsn32el-macro.S vacall-mips64eb-linux.s : vacall-mips64.c vacall-internal.h vacall.h $(THISFILE) $(CROSS_TOOL) mips64-linux gcc-5.4.0 -mabi=64 -meb $(GCCFLAGS) -D__mips64__ -S vacall-mips64.c -o vacall-mips64eb-linux.s vacall-mips64eb-macro.S : vacall-mips64eb-linux.s ../common/asm-mips.sh $(THISFILE) (echo '#include "asm-mips.h"' ; ../common/asm-mips.sh < vacall-mips64eb-linux.s) > vacall-mips64eb-macro.S vacall-mips64el-linux.s : vacall-mips64.c vacall-internal.h vacall.h $(THISFILE) $(CROSS_TOOL) mips64-linux gcc-5.4.0 -mabi=64 -mel $(GCCFLAGS) -D__mips64__ -S vacall-mips64.c -o vacall-mips64el-linux.s vacall-mips64el-macro.S : vacall-mips64el-linux.s ../common/asm-mips.sh $(THISFILE) (echo '#include "asm-mips.h"' ; ../common/asm-mips.sh < vacall-mips64el-linux.s) > vacall-mips64el-macro.S vacall-sparc-linux.s : vacall-sparc.c vacall-internal.h vacall.h $(THISFILE) $(CROSS_TOOL) sparc-linux gcc -V 3.1 $(GCCFLAGS) -D__sparc__ -S vacall-sparc.c -o vacall-sparc-linux.s vacall-sparc-linux-pic.s : vacall-sparc.c vacall-internal.h vacall.h $(THISFILE) $(CROSS_TOOL) sparc-linux gcc -V 3.1 $(GCCFLAGS) -fPIC -D__sparc__ -S vacall-sparc.c -o vacall-sparc-linux-pic.s vacall-sparc-macro.S : vacall-sparc-linux.s vacall-sparc-linux-pic.s ../common/asm-sparc.sh ../common/noexecstack.h $(THISFILE) # For references to global symbols, we need to distinguish the PIC and non-PIC case. # See https://gcc.gnu.org/bugzilla/show_bug.cgi?id=81653 (echo '#include "asm-sparc.h"' ; echo '#ifdef __PIC__' ; ../common/asm-sparc.sh < vacall-sparc-linux-pic.s | sed -e 's/vacall_function/C(vacall_function)/g' ; echo '#else' ; ../common/asm-sparc.sh < vacall-sparc-linux.s | sed -e 's/vacall_function/C(vacall_function)/g' ; echo '#endif' ; cat ../common/noexecstack.h) > vacall-sparc-macro.S vacall-sparc64-linux.s : vacall-sparc64.c vacall-internal.h vacall.h $(THISFILE) # For references to global symbols in non-PIC mode: # - -mcmodel=medlow uses 2 instructions, but the code does not work on Solaris (error "ld: fatal: relocation error: R_SPARC_HI22"). # - -mcmodel=medmid uses 3 instructions, but the code still makes some assumptions about the address space. # - -mcmodel=medany uses 4 instructions. $(CROSS_TOOL) sparc64-linux gcc -V 4.0.2 -mcmodel=medany $(GCCFLAGS) -D__sparc64__ -S vacall-sparc64.c -o vacall-sparc64-linux.s vacall-sparc64-linux-pic.s : vacall-sparc64.c vacall-internal.h vacall.h $(THISFILE) $(CROSS_TOOL) sparc64-linux gcc -V 4.0.2 $(GCCFLAGS) -fPIC -D__sparc64__ -S vacall-sparc64.c -o vacall-sparc64-linux-pic.s vacall-sparc64-macro.S : vacall-sparc64-linux.s vacall-sparc64-linux-pic.s ../common/asm-sparc.sh ../common/noexecstack.h $(THISFILE) # For references to global symbols, we need to distinguish the PIC and non-PIC case. # See https://gcc.gnu.org/bugzilla/show_bug.cgi?id=81653 (echo '#include "asm-sparc.h"' ; echo '#ifdef __PIC__' ; ../common/asm-sparc.sh < vacall-sparc64-linux-pic.s | sed -e 's/vacall_function/C(vacall_function)/g' ; echo '#else' ; ../common/asm-sparc.sh < vacall-sparc64-linux.s | sed -e 's/vacall_function/C(vacall_function)/g' ; echo '#endif' ; cat ../common/noexecstack.h) > vacall-sparc64-macro.S vacall-alpha-linux.s : vacall-alpha.c vacall-internal.h vacall.h $(THISFILE) $(CROSS_TOOL) alpha-linux gcc -V 4.0.2 $(GCCFLAGS) -D__alpha__ -S vacall-alpha.c -o vacall-alpha-linux.s vacall-alpha-macro.S : vacall-alpha-linux.s ../common/asm-alpha.sh ../common/noexecstack.h $(THISFILE) (../common/asm-alpha.sh < vacall-alpha-linux.s ; cat ../common/noexecstack.h) > vacall-alpha-macro.S vacall-hppa-linux.s : vacall-hppa.c vacall-internal.h vacall.h $(THISFILE) $(CROSS_TOOL) hppa-linux gcc -V 3.1 $(GCCFLAGS) -D__hppa__ -S vacall-hppa.c -o vacall-hppa-linux.s vacall-hppa-macro.S : vacall-hppa-linux.s ../common/asm-hppa.sh ../common/noexecstack.h $(THISFILE) (echo '#include "asm-hppa.h"' ; ../common/asm-hppa.sh < vacall-hppa-linux.s ; echo 'IMPORT_DATA(vacall_function)' ; cat ../common/noexecstack.h) > vacall-hppa-macro.S vacall-hppa64-linux.s : vacall-hppa64.c vacall-internal.h vacall.h $(THISFILE) $(CROSS_TOOL) hppa64-linux gcc -V 3.1 $(GCCFLAGS) -D__hppa64__ -S vacall-hppa64.c -o vacall-hppa64-linux.s vacall-hppa64-macro.S : vacall-hppa64-linux.s ../common/asm-hppa64.sh ../common/noexecstack.h $(THISFILE) (echo '#include "asm-hppa64.h"' ; ../common/asm-hppa64.sh < vacall-hppa64-linux.s ; echo 'IMPORT_DATA(vacall_function)' ; cat ../common/noexecstack.h) > vacall-hppa64-macro.S vacall-arm-linux.s : vacall-arm.c vacall-internal.h vacall.h $(THISFILE) $(CROSS_TOOL) arm-linux gcc -V 3.1 -mlittle-endian $(GCCFLAGS) -D__arm__ -S vacall-arm.c -o vacall-armel.s $(CROSS_TOOL) arm-linux gcc -V 3.1 -mbig-endian $(GCCFLAGS) -D__arm__ -S vacall-arm.c -o vacall-armeb.s cmp vacall-armel.s vacall-armeb.s > /dev/null cp vacall-armel.s vacall-arm-linux.s $(RM) vacall-armel.s vacall-armeb.s vacall-arm-linux-pic.s : vacall-arm.c vacall-internal.h vacall.h $(THISFILE) $(CROSS_TOOL) arm-linux gcc -V 3.1 -mlittle-endian $(GCCFLAGS) -fPIC -D__arm__ -S vacall-arm.c -o vacall-armel-pic.s $(CROSS_TOOL) arm-linux gcc -V 3.1 -mbig-endian $(GCCFLAGS) -fPIC -D__arm__ -S vacall-arm.c -o vacall-armeb-pic.s cmp vacall-armel-pic.s vacall-armeb-pic.s > /dev/null cp vacall-armel-pic.s vacall-arm-linux-pic.s $(RM) vacall-armel-pic.s vacall-armeb-pic.s vacall-arm-macro.S : vacall-arm-linux.s vacall-arm-linux-pic.s ../common/asm-arm.sh ../common/noexecstack-arm.h $(THISFILE) (echo '#include "asm-arm.h"' ; echo '#ifdef __PIC__' ; ../common/asm-arm.sh < vacall-arm-linux-pic.s | sed -e 's/vacall_function/C(vacall_function)/g' ; echo '#else' ; ../common/asm-arm.sh < vacall-arm-linux.s | sed -e 's/vacall_function/C(vacall_function)/g' ; echo '#endif' ; cat ../common/noexecstack-arm.h) > vacall-arm-macro.S vacall-armhf-linux.s : vacall-armhf.c vacall-internal.h vacall.h $(THISFILE) # The option -mabi=aapcs ensures an 8-bytes-aligned stack pointer. $(CROSS_TOOL) armv7l-linux-gnueabihf gcc-6.3.0 -march=armv6 -mabi=aapcs -mfloat-abi=hard -mlittle-endian $(GCCFLAGS) -D__armhf__ -S vacall-armhf.c -o vacall-armhfel.s $(CROSS_TOOL) armv7l-linux-gnueabihf gcc-6.3.0 -march=armv6 -mabi=aapcs -mfloat-abi=hard -mbig-endian $(GCCFLAGS) -D__armhf__ -S vacall-armhf.c -o vacall-armhfeb.s cmp vacall-armhfel.s vacall-armhfeb.s > /dev/null cp vacall-armhfel.s vacall-armhf-linux.s $(RM) vacall-armhfel.s vacall-armhfeb.s vacall-armhf-linux-pic.s : vacall-armhf.c vacall-internal.h vacall.h $(THISFILE) # The option -mabi=aapcs ensures an 8-bytes-aligned stack pointer. $(CROSS_TOOL) armv7l-linux-gnueabihf gcc-6.3.0 -march=armv6 -mabi=aapcs -mfloat-abi=hard -mlittle-endian $(GCCFLAGS) -fPIC -D__armhf__ -S vacall-armhf.c -o vacall-armhfel-pic.s $(CROSS_TOOL) armv7l-linux-gnueabihf gcc-6.3.0 -march=armv6 -mabi=aapcs -mfloat-abi=hard -mbig-endian $(GCCFLAGS) -fPIC -D__armhf__ -S vacall-armhf.c -o vacall-armhfeb-pic.s cmp vacall-armhfel-pic.s vacall-armhfeb-pic.s > /dev/null cp vacall-armhfel-pic.s vacall-armhf-linux-pic.s $(RM) vacall-armhfel-pic.s vacall-armhfeb-pic.s vacall-armhf-macro.S : vacall-armhf-linux.s vacall-armhf-linux-pic.s ../common/asm-arm.sh ../common/noexecstack-arm.h $(THISFILE) (echo '#include "asm-arm.h"' ; echo '#ifdef __PIC__' ; ../common/asm-arm.sh < vacall-armhf-linux-pic.s | sed -e 's/vacall_function/C(vacall_function)/g' ; echo '#else' ; ../common/asm-arm.sh < vacall-armhf-linux.s | sed -e 's/vacall_function/C(vacall_function)/g' ; echo '#endif' ; cat ../common/noexecstack-arm.h) > vacall-armhf-macro.S vacall-arm64-macro.S : vacall-arm64.c vacall-internal.h vacall.h ../common/asm-arm.sh ../common/noexecstack-arm.h $(THISFILE) $(CROSS_TOOL) aarch64-linux gcc-5.4.0 -mlittle-endian $(GCCFLAGS) -D__arm64__ -S vacall-arm64.c -o vacall-arm64el.s $(CROSS_TOOL) aarch64-linux gcc-5.4.0 -mbig-endian $(GCCFLAGS) -D__arm64__ -S vacall-arm64.c -o vacall-arm64eb.s cmp vacall-arm64el.s vacall-arm64eb.s > /dev/null (echo '#include "asm-arm.h"' ; ../common/asm-arm.sh < vacall-arm64el.s ; cat ../common/noexecstack-arm.h) > vacall-arm64-macro.S $(RM) vacall-arm64el.s vacall-arm64eb.s vacall-powerpc-aix.s : vacall-powerpc.c vacall-internal.h vacall.h $(THISFILE) $(CROSS_TOOL) rs6000-aix gcc -V 3.3.6 -mno-power -mno-power2 -mno-powerpc -mnew-mnemonics $(GCCFLAGS) -D__powerpc__ -S vacall-powerpc.c -o vacall-powerpc-aix.s echo ' .extern vacall_function[RW]' >> vacall-powerpc-aix.s vacall-powerpc-linux.s : vacall-powerpc.c vacall-internal.h vacall.h $(THISFILE) $(CROSS_TOOL) powerpc-linux gcc -V 3.3.6 -mno-power -mno-power2 -mno-powerpc $(GCCFLAGS) -D__powerpc__ -S vacall-powerpc.c -o vacall-powerpc-linux.s vacall-powerpc-linux-macro.S : vacall-powerpc-linux.s ../common/asm-powerpc.sh ../common/noexecstack.h $(THISFILE) (../common/asm-powerpc.sh < vacall-powerpc-linux.s ; cat ../common/noexecstack.h) > vacall-powerpc-linux-macro.S vacall-powerpc-sysv4-macro.S : vacall-powerpc.c vacall-internal.h vacall.h ../common/asm-powerpc.sh ../common/noexecstack.h $(THISFILE) $(CROSS_TOOL) powerpc-linux gcc -V 3.3.6 -mno-power -mno-power2 -mno-powerpc $(GCCFLAGS) -D__powerpc__ -S vacall-powerpc.c -o vacall-powerpc-sysv4.s (../common/asm-powerpc.sh < vacall-powerpc-sysv4.s ; cat ../common/noexecstack.h) > vacall-powerpc-sysv4-macro.S $(RM) vacall-powerpc-sysv4.s vacall-powerpc-macos.s : vacall-powerpc.c vacall-internal.h vacall.h $(THISFILE) $(CROSS_TOOL) powerpc-darwin gcc -V 3.3.6 $(GCCFLAGS) -D__powerpc__ -S vacall-powerpc.c -o vacall-powerpc-macos.s vacall-powerpc64-aix.s : vacall-powerpc64.c vacall-internal.h vacall.h $(THISFILE) $(CROSS_TOOL) rs6000-aix6.1 gcc-5.4.0 -maix64 $(GCCFLAGS) -D__powerpc64__ -S vacall-powerpc64.c -o vacall-powerpc64-aix.s echo ' .extern vacall_function[UA]' >> vacall-powerpc64-aix.s vacall-powerpc64-linux.S : vacall-powerpc64.c vacall-internal.h vacall.h ../common/asm-powerpc.sh ../common/noexecstack.h $(THISFILE) $(CROSS_TOOL) powerpc64le-linux gcc-5.4.0 -mabi=elfv1 -mcpu=power4 -mlittle-endian $(GCCFLAGS) -D__powerpc64__ -S vacall-powerpc64.c -o vacall-powerpc64-linux-le.s $(CROSS_TOOL) powerpc64le-linux gcc-5.4.0 -mabi=elfv1 -mcpu=power4 -mbig-endian $(GCCFLAGS) -D__powerpc64__ -S vacall-powerpc64.c -o vacall-powerpc64-linux-be.s cmp vacall-powerpc64-linux-le.s vacall-powerpc64-linux-be.s > /dev/null (../common/asm-powerpc.sh < vacall-powerpc64-linux-be.s ; cat ../common/noexecstack.h) > vacall-powerpc64-linux.S $(RM) vacall-powerpc64-linux-le.s vacall-powerpc64-linux-be.s vacall-powerpc64-elfv2-linux.S : vacall-powerpc64.c vacall-internal.h vacall.h ../common/asm-powerpc.sh ../common/noexecstack.h $(THISFILE) $(CROSS_TOOL) powerpc64le-linux gcc-5.4.0 -mabi=elfv2 -mcpu=power4 -mlittle-endian $(GCCFLAGS) -D__powerpc64__ -D__powerpc64_elfv2__ -S vacall-powerpc64.c -o vacall-powerpc64-elfv2-linux-le.s $(CROSS_TOOL) powerpc64le-linux gcc-5.4.0 -mabi=elfv2 -mcpu=power4 -mbig-endian $(GCCFLAGS) -D__powerpc64__ -D__powerpc64_elfv2__ -S vacall-powerpc64.c -o vacall-powerpc64-elfv2-linux-be.s # vacall-powerpc64-elfv2-linux-be.s contains endianness specific optimizations. (../common/asm-powerpc.sh < vacall-powerpc64-elfv2-linux-le.s ; cat ../common/noexecstack.h) > vacall-powerpc64-elfv2-linux.S $(RM) vacall-powerpc64-elfv2-linux-le.s vacall-powerpc64-elfv2-linux-be.s vacall-ia64-linux.s : vacall-ia64.c vacall-internal.h vacall.h $(THISFILE) $(CROSS_TOOL) ia64-linux gcc -V 4.0.1 $(GCCFLAGS) -D__ia64__ -S vacall-ia64.c -o vacall-ia64-linux.s vacall-ia64-macro.S : vacall-ia64-linux.s ../common/noexecstack.h $(THISFILE) cat vacall-ia64-linux.s ../common/noexecstack.h > vacall-ia64-macro.S vacall-x86_64-linux.s : vacall-x86_64.c vacall-internal.h vacall.h $(THISFILE) $(CROSS_TOOL) x86_64-linux gcc-4.0.2 $(GCCFLAGS) -D__x86_64__ -S vacall-x86_64.c -o vacall-x86_64-linux.s vacall-x86_64-macro.S : vacall-x86_64-linux.s ../common/asm-x86_64.sh ../common/noexecstack.h $(THISFILE) (echo '#include "asm-x86_64.h"' ; ../common/asm-x86_64.sh < vacall-x86_64-linux.s ; cat ../common/noexecstack.h) > vacall-x86_64-macro.S vacall-x86_64-x32-linux.s : vacall-x86_64.c vacall-internal.h vacall.h $(THISFILE) $(CROSS_TOOL) x86_64-linux gcc-5.4.0 -mx32 $(GCCFLAGS) -D__x86_64__ -D__x86_64_x32__ -S vacall-x86_64.c -o vacall-x86_64-x32-linux.s vacall-x86_64-windows.s : vacall-x86_64-windows.c vacall-internal.h vacall.h $(THISFILE) $(CROSS_TOOL) x86_64-linux gcc-5.4.0 -mabi=ms $(GCCFLAGS) -fno-reorder-blocks-and-partition -D__x86_64__ -D_WIN32 -S vacall-x86_64-windows.c -o vacall-x86_64-windows.s vacall-x86_64-windows-macro.S : vacall-x86_64-windows.s ../common/asm-x86_64.sh ../common/noexecstack.h $(THISFILE) (echo '#include "asm-x86_64.h"' ; ../common/asm-x86_64.sh < vacall-x86_64-windows.s ; cat ../common/noexecstack.h) > vacall-x86_64-windows-macro.S vacall-s390-linux.s : vacall-s390.c vacall-internal.h vacall.h $(THISFILE) $(CROSS_TOOL) s390-linux gcc -V 3.1 $(GCCFLAGS) -D__s390__ -S vacall-s390.c -o vacall-s390-linux.s vacall-s390-macro.S : vacall-s390-linux.s ../common/asm-s390.sh ../common/noexecstack.h $(THISFILE) (../common/asm-s390.sh < vacall-s390-linux.s ; cat ../common/noexecstack.h) > vacall-s390-macro.S vacall-s390x-linux.s : vacall-s390x.c vacall-internal.h vacall.h $(THISFILE) $(CROSS_TOOL) s390x-linux gcc-5.4.0 $(GCCFLAGS) -D__s390x__ -S vacall-s390x.c -o vacall-s390x-linux.s vacall-s390x-macro.S : vacall-s390x-linux.s ../common/asm-s390.sh ../common/noexecstack.h $(THISFILE) (../common/asm-s390.sh < vacall-s390x-linux.s ; cat ../common/noexecstack.h) > vacall-s390x-macro.S vacall-riscv32-ilp32d-linux.s : vacall-riscv32.c vacall-internal.h vacall.h $(THISFILE) $(CROSS_TOOL) riscv32-linux gcc-7.3.0 $(GCCFLAGS) -D__riscv32__ -S vacall-riscv32.c -o vacall-riscv32-ilp32d-linux.s vacall-riscv32-ilp32d-macro.S : vacall-riscv32-ilp32d-linux.s ../common/asm-riscv.sh ../common/noexecstack.h $(THISFILE) (../common/asm-riscv.sh < vacall-riscv32-ilp32d-linux.s ; cat ../common/noexecstack.h) > vacall-riscv32-ilp32d-macro.S vacall-riscv64-lp64d-linux.s : vacall-riscv64.c vacall-internal.h vacall.h $(THISFILE) $(CROSS_TOOL) riscv64-linux gcc-7.3.0 $(GCCFLAGS) -D__riscv64__ -S vacall-riscv64.c -o vacall-riscv64-lp64d-linux.s vacall-riscv64-lp64d-macro.S : vacall-riscv64-lp64d-linux.s ../common/asm-riscv.sh ../common/noexecstack.h $(THISFILE) (../common/asm-riscv.sh < vacall-riscv64-lp64d-linux.s ; cat ../common/noexecstack.h) > vacall-riscv64-lp64d-macro.S # --------------- Rules for debugging test failures --------------- tests : tests-i386.s tests-m68k.s tests-mips.s tests-sparc.s tests-alpha.s tests-hppa.s tests-arm.s tests-powerpc.s tests-powerpc64.s tests-ia64.s tests-x86_64.s true tests-i386.s : tests.c vacall.h $(GCC) -V 2.7.2 -b i486-linuxaout $(GCCFLAGS) -I/usr/include -D__i386__ -S tests.c -o tests-i386.s tests-m68k.s : tests.c vacall.h $(GCC) -V 2.95.2 -b m68k-sun $(GCCFLAGS) -I/usr/include -D__m68k__ -S tests.c -o tests-m68k.s tests-mips.s : tests.c vacall.h $(GCC) -V 2.95.2 -b mips-sgi $(GCCFLAGS) -I/usr/include -D__mips__ -S tests.c -o tests-mips.s tests-sparc.s : tests.c vacall.h $(GCC) -V 2.95.2 -b sparc-sun $(GCCFLAGS) -I/usr/include -D__sparc__ -S tests.c -o tests-sparc.s tests-alpha.s : tests.c vacall.h $(GCC) -V 2.7.2 -b alpha-dec-osf $(GCCFLAGS) -I/usr/include -D__alpha__ -S tests.c -o tests-alpha.s tests-hppa.s : tests.c vacall.h $(GCC) -V 2.6.3 -b hppa1.0-hpux $(GCCFLAGS) -I/usr/include -D__hppa__ -S tests.c -o tests-hppa.s tests-arm.s : tests.c vacall.h $(GCC) -V 2.6.3 -b arm-acorn-riscix $(GCCFLAGS) -I/usr/include -D__arm__ -S tests.c -o tests-arm.s tests-powerpc.s : tests.c vacall.h $(GCC) -V 2.95.2 -b rs6000 $(GCCFLAGS) -I/usr/include -D__powerpc__ -S tests.c -o tests-powerpc.s tests-powerpc64.s : tests.c vacall.h /cross/powerpc64-linux-tools/bin/powerpc64-linux-gcc $(GCCFLAGS) -I/usr/include -D__powerpc64__ -S tests.c -o tests-powerpc64.s tests-ia64.s : tests.c vacall.h $(GCC) -V 2.9-ia64-000216 -b ia64-hp-linux $(GCCFLAGS) -I/usr/include -D__ia64__ -S tests.c -o tests-ia64.s tests-x86_64.s : tests.c vacall.h $(GCC) -V 3.2.2 -b x86_64-suse-linux $(GCCFLAGS) -I/usr/include -D__x86_64__ -S tests.c -o tests-x86_64.s libffcall-2.2/vacall/vacall-i386-msvc.c0000664000000000000000000001662313530357246014511 00000000000000#ifdef _MSC_VER #include "vacall.h" #endif #include "asm-i386.h" #ifdef __PIC__ TEXT() ALIGN(2) P2ALIGN(2,3) GLOBL(C(vacall_receiver)) DECLARE_FUNCTION(vacall_receiver) FUNBEGIN(vacall_receiver) INSN1(push,l ,R(ebp)) INSN2(mov,l ,R(esp), R(ebp)) INSN1(push,l ,R(esi)) INSN1(push,l ,R(ebx)) INSN2(sub,l ,NUM(48), R(esp)) INSN1(call,_ ,L(44)) L(44): INSN1(pop,l ,R(ebx)) #ifdef __ELF__ INSN2(add,l ,NUM()_GLOBAL_OFFSET_TABLE_+[.-L(44)],R(ebx)) #endif INSN2(lea,l ,X4 MEM_DISP(ebp,8), R(edx)) INSN2(mov,l ,R(edx),X4 MEM_DISP(ebp,-40)) INSN2(sub,l ,NUM(12), R(esp)) INSN2(lea,l ,X4 MEM_DISP(ebp,-56), R(edx)) INSN2(mov,l ,NUM(0),X4 MEM_DISP(ebp,-56)) INSN2(mov,l ,NUM(0),X4 MEM_DISP(ebp,-36)) INSN2(mov,l ,NUM(0),X4 MEM_DISP(ebp,-32)) INSN2(mov,l ,R(ebx),X4 MEM_DISP(ebp,-24)) INSN1(push,l ,R(edx)) INSN2(mov,l ,C(vacall_function)@MEM_DISP(ebx,GOT), R(edx)) INSN1(call,_ ,INDIR(X4 MEM(edx))) INSN2(mov,l ,X4 MEM_DISP(ebp,-32), R(ecx)) INSN2(add,l ,NUM(16), R(esp)) INSN2(test,l ,R(ecx), R(ecx)) INSN1(je,_ ,L(43)) INSN2(cmp,l ,NUM(1), R(ecx)) INSN1(je,_ ,L(45)) INSN2(cmp,l ,NUM(2), R(ecx)) INSN1(je,_ ,L(45)) INSN2(cmp,l ,NUM(3), R(ecx)) INSN1(je,_ ,L(50)) INSN2(cmp,l ,NUM(4), R(ecx)) INSN1(je,_ ,L(51)) INSN2(cmp,l ,NUM(5), R(ecx)) INSN1(je,_ ,L(52)) INSN2(cmp,l ,NUM(6), R(ecx)) INSN1(je,_ ,L(49)) INSN2(cmp,l ,NUM(7), R(ecx)) INSN1(je,_ ,L(49)) INSN2(cmp,l ,NUM(8), R(ecx)) INSN1(je,_ ,L(49)) INSN2(cmp,l ,NUM(9), R(ecx)) INSN1(je,_ ,L(49)) INSN2(lea,l ,X4 MEM_DISP(ecx,-10), R(edx)) INSN2(cmp,l ,NUM(1), R(edx)) INSN1(ja,_ ,L(22)) INSN2(mov,l ,X4 MEM_DISP(ebp,-48), R(eax)) INSN2(mov,l ,X4 MEM_DISP(ebp,-44),R(edx)) L(33): P2ALIGN(2,3) L(43): INSN2(mov,l ,X4 MEM_DISP(ebp,-56), R(ecx)) L(3): INSN2(and,l ,NUM(512), R(ecx)) INSN1(je,_ ,L(1)) INSN2(mov,l ,X4 MEM_DISP(ebp,0),R(ecx)) INSN2(mov,l ,X4 MEM_DISP(ebp,-40), R(esp)) INSN1(jmp,_ ,INDIR(R(ecx))) L(1): INSN2(lea,l ,X4 MEM_DISP(ebp,-8), R(esp)) INSN1(pop,l ,R(ebx)) INSN1(pop,l ,R(esi)) leave ret L(22): INSN2(cmp,l ,NUM(12), R(ecx)) INSN1(je,_ ,L(53)) INSN2(cmp,l ,NUM(13), R(ecx)) INSN1(je,_ ,L(54)) INSN2(cmp,l ,NUM(14), R(ecx)) INSN1(je,_ ,L(49)) INSN2(cmp,l ,NUM(15), R(ecx)) INSN1(jne,_ ,L(43)) INSN2(mov,l ,X4 MEM_DISP(ebp,-56), R(ecx)) INSN2(test,l ,NUM(1024), R(ecx)) INSN2(mov,l ,R(ecx), R(esi)) INSN1(je,_ ,L(31)) INSN2(mov,l ,X4 MEM_DISP(ebp,-28), R(edx)) INSN2(cmp,l ,NUM(1), R(edx)) INSN1(je,_ ,L(55)) INSN2(cmp,l ,NUM(2), R(edx)) INSN1(je,_ ,L(56)) INSN2(cmp,l ,NUM(4), R(edx)) INSN1(je,_ ,L(57)) INSN2(cmp,l ,NUM(8), R(edx)) INSN1(je,_ ,L(58)) L(31): INSN2(and,l ,NUM(16), R(esi)) INSN2(mov,l ,X4 MEM_DISP(ebp,-36), R(eax)) INSN1(jne,_ ,L(3)) INSN2(lea,l ,X4 MEM_DISP(ebp,-4), R(esp)) INSN1(pop,l ,R(esi)) leave ret NUM(4) INSN1(jmp,_ ,L(3)) L(58): INSN2(mov,l ,X4 MEM_DISP(ebp,-36), R(edx)) INSN2(mov,l ,X4 MEM(edx), R(eax)) INSN2(mov,l ,X4 MEM_DISP(edx,4),R(edx)) INSN1(jmp,_ ,L(3)) L(57): INSN2(mov,l ,X4 MEM_DISP(ebp,-36), R(edx)) INSN2(mov,l ,X4 MEM(edx), R(eax)) INSN1(jmp,_ ,L(3)) L(56): INSN2(mov,l ,X4 MEM_DISP(ebp,-36), R(edx)) INSN2MOVXL(movz,w,X2 MEM(edx), R(eax)) INSN1(jmp,_ ,L(3)) L(55): INSN2(mov,l ,X4 MEM_DISP(ebp,-36), R(edx)) INSN2MOVXL(movz,b,X1 MEM(edx), R(eax)) INSN1(jmp,_ ,L(3)) P2ALIGN(2,3) L(49): INSN2(mov,l ,X4 MEM_DISP(ebp,-48), R(eax)) INSN1(jmp,_ ,L(43)) L(54): INSN1(fld,l ,X8 MEM_DISP(ebp,-48)) INSN1(jmp,_ ,L(43)) L(53): INSN1(fld,s ,X4 MEM_DISP(ebp,-48)) INSN1(jmp,_ ,L(43)) P2ALIGN(2,3) L(52): INSN2MOVXL(movz,w,X2 MEM_DISP(ebp,-48), R(eax)) INSN1(jmp,_ ,L(43)) L(51): INSN2MOVXL(movs,w,X2 MEM_DISP(ebp,-48),R(eax)) INSN1(jmp,_ ,L(43)) L(50): INSN2MOVXL(movz,b,X1 MEM_DISP(ebp,-48), R(eax)) INSN1(jmp,_ ,L(43)) P2ALIGN(2,3) L(45): INSN2MOVXL(movs,b,X1 MEM_DISP(ebp,-48),R(eax)) INSN1(jmp,_ ,L(43)) L(fe1): FUNEND(vacall_receiver,L(fe1)-vacall_receiver) #else TEXT() ALIGN(2) P2ALIGN(2,3) GLOBL(C(vacall_receiver)) DECLARE_FUNCTION(vacall_receiver) FUNBEGIN(vacall_receiver) INSN1(push,l ,R(ebp)) INSN2(mov,l ,R(esp), R(ebp)) INSN2(lea,l ,X4 MEM_DISP(ebp,8), R(edx)) INSN1(push,l ,R(esi)) INSN2(sub,l ,NUM(64), R(esp)) INSN2(mov,l ,R(edx),X4 MEM_DISP(ebp,-40)) INSN2(lea,l ,X4 MEM_DISP(ebp,-56), R(edx)) INSN2(mov,l ,NUM(0),X4 MEM_DISP(ebp,-56)) INSN2(mov,l ,NUM(0),X4 MEM_DISP(ebp,-36)) INSN2(mov,l ,NUM(0),X4 MEM_DISP(ebp,-32)) INSN2(mov,l ,R(ebx),X4 MEM_DISP(ebp,-24)) INSN1(push,l ,R(edx)) INSN1(call,_ ,INDIR(X4 C(vacall_function))) INSN2(mov,l ,X4 MEM_DISP(ebp,-32), R(ecx)) INSN2(add,l ,NUM(16), R(esp)) INSN2(test,l ,R(ecx), R(ecx)) INSN1(je,_ ,L(43)) INSN2(cmp,l ,NUM(1), R(ecx)) INSN1(je,_ ,L(44)) INSN2(cmp,l ,NUM(2), R(ecx)) INSN1(je,_ ,L(44)) INSN2(cmp,l ,NUM(3), R(ecx)) INSN1(je,_ ,L(49)) INSN2(cmp,l ,NUM(4), R(ecx)) INSN1(je,_ ,L(50)) INSN2(cmp,l ,NUM(5), R(ecx)) INSN1(je,_ ,L(51)) INSN2(cmp,l ,NUM(6), R(ecx)) INSN1(je,_ ,L(48)) INSN2(cmp,l ,NUM(7), R(ecx)) INSN1(je,_ ,L(48)) INSN2(cmp,l ,NUM(8), R(ecx)) INSN1(je,_ ,L(48)) INSN2(cmp,l ,NUM(9), R(ecx)) INSN1(je,_ ,L(48)) INSN2(lea,l ,X4 MEM_DISP(ecx,-10), R(edx)) INSN2(cmp,l ,NUM(1), R(edx)) INSN1(ja,_ ,L(22)) INSN2(mov,l ,X4 MEM_DISP(ebp,-48), R(eax)) INSN2(mov,l ,X4 MEM_DISP(ebp,-44),R(edx)) L(33): P2ALIGN(2,3) L(43): INSN2(mov,l ,X4 MEM_DISP(ebp,-56), R(ecx)) L(3): INSN2(and,l ,NUM(512), R(ecx)) INSN1(je,_ ,L(1)) INSN2(mov,l ,X4 MEM_DISP(ebp,0),R(ecx)) INSN2(mov,l ,X4 MEM_DISP(ebp,-40), R(esp)) INSN1(jmp,_ ,INDIR(R(ecx))) L(1): INSN2(mov,l ,X4 MEM_DISP(ebp,-4), R(esi)) leave ret L(22): INSN2(cmp,l ,NUM(12), R(ecx)) INSN1(je,_ ,L(52)) INSN2(cmp,l ,NUM(13), R(ecx)) INSN1(je,_ ,L(53)) INSN2(cmp,l ,NUM(14), R(ecx)) INSN1(je,_ ,L(48)) INSN2(cmp,l ,NUM(15), R(ecx)) INSN1(jne,_ ,L(43)) INSN2(mov,l ,X4 MEM_DISP(ebp,-56), R(ecx)) INSN2(test,l ,NUM(1024), R(ecx)) INSN2(mov,l ,R(ecx), R(esi)) INSN1(je,_ ,L(31)) INSN2(mov,l ,X4 MEM_DISP(ebp,-28), R(edx)) INSN2(cmp,l ,NUM(1), R(edx)) INSN1(je,_ ,L(54)) INSN2(cmp,l ,NUM(2), R(edx)) INSN1(je,_ ,L(55)) INSN2(cmp,l ,NUM(4), R(edx)) INSN1(je,_ ,L(56)) INSN2(cmp,l ,NUM(8), R(edx)) INSN1(je,_ ,L(57)) L(31): INSN2(and,l ,NUM(16), R(esi)) INSN2(mov,l ,X4 MEM_DISP(ebp,-36), R(eax)) INSN1(jne,_ ,L(3)) INSN2(lea,l ,X4 MEM_DISP(ebp,-4), R(esp)) INSN1(pop,l ,R(esi)) leave ret NUM(4) INSN1(jmp,_ ,L(3)) L(57): INSN2(mov,l ,X4 MEM_DISP(ebp,-36), R(edx)) INSN2(mov,l ,X4 MEM(edx), R(eax)) INSN2(mov,l ,X4 MEM_DISP(edx,4),R(edx)) INSN1(jmp,_ ,L(3)) L(56): INSN2(mov,l ,X4 MEM_DISP(ebp,-36), R(edx)) INSN2(mov,l ,X4 MEM(edx), R(eax)) INSN1(jmp,_ ,L(3)) L(55): INSN2(mov,l ,X4 MEM_DISP(ebp,-36), R(edx)) INSN2MOVXL(movz,w,X2 MEM(edx), R(eax)) INSN1(jmp,_ ,L(3)) L(54): INSN2(mov,l ,X4 MEM_DISP(ebp,-36), R(edx)) INSN2MOVXL(movz,b,X1 MEM(edx), R(eax)) INSN1(jmp,_ ,L(3)) P2ALIGN(2,3) L(48): INSN2(mov,l ,X4 MEM_DISP(ebp,-48), R(eax)) INSN1(jmp,_ ,L(43)) L(53): INSN1(fld,l ,X8 MEM_DISP(ebp,-48)) INSN1(jmp,_ ,L(43)) L(52): INSN1(fld,s ,X4 MEM_DISP(ebp,-48)) INSN1(jmp,_ ,L(43)) P2ALIGN(2,3) L(51): INSN2MOVXL(movz,w,X2 MEM_DISP(ebp,-48), R(eax)) INSN1(jmp,_ ,L(43)) L(50): INSN2MOVXL(movs,w,X2 MEM_DISP(ebp,-48),R(eax)) INSN1(jmp,_ ,L(43)) L(49): INSN2MOVXL(movz,b,X1 MEM_DISP(ebp,-48), R(eax)) INSN1(jmp,_ ,L(43)) P2ALIGN(2,3) L(44): INSN2MOVXL(movs,b,X1 MEM_DISP(ebp,-48),R(eax)) INSN1(jmp,_ ,L(43)) L(fe1): FUNEND(vacall_receiver,L(fe1)-vacall_receiver) #endif #if defined __linux__ || defined __FreeBSD__ || defined __FreeBSD_kernel__ || defined __DragonFly__ .section .note.GNU-stack,"",@progbits #endif libffcall-2.2/vacall/vacall-s390x-macro.S0000664000000000000000000000376313530357113015011 00000000000000 .file "vacall-s390x.c" .text .align 8 .globl vacall_receiver .type vacall_receiver, @function vacall_receiver: .LFB0: .cfi_startproc stmg %r11,%r15,88(%r15) .cfi_offset 11, -72 .cfi_offset 12, -64 .cfi_offset 13, -56 .cfi_offset 14, -48 .cfi_offset 15, -40 aghi %r15,-320 .cfi_def_cfa_offset 480 lgr %r11,%r15 .cfi_def_cfa_register 11 larl %r1,vacall_function lhi %r0,0 lg %r1,0(%r1) st %r0,160(%r11) la %r0,480(%r11) stg %r0,184(%r11) lghi %r0,0 stg %r2,224(%r11) stg %r3,232(%r11) stg %r4,240(%r11) stg %r5,248(%r11) stg %r6,256(%r11) ste %f0,268(%r11) ste %f2,272(%r11) ste %f4,276(%r11) ste %f6,280(%r11) std %f0,288(%r11) std %f2,296(%r11) std %f4,304(%r11) std %f6,312(%r11) stg %r0,192(%r11) st %r0,200(%r11) st %r0,216(%r11) st %r0,264(%r11) la %r2,160(%r11) basr %r14,%r1 icm %r1,15,200(%r11) je .L1 chi %r1,1 je .L18 chi %r1,2 je .L21 chi %r1,3 je .L18 chi %r1,4 je .L22 chi %r1,5 je .L23 chi %r1,6 je .L24 chi %r1,7 je .L25 lr %r0,%r1 nill %r0,65533 chi %r0,8 je .L19 chi %r0,9 je .L19 chi %r1,12 je .L26 chi %r1,13 je .L27 chi %r1,14 je .L19 .L1: lg %r4,432(%r11) lmg %r11,%r15,408(%r11) .cfi_remember_state .cfi_restore 15 .cfi_restore 14 .cfi_restore 13 .cfi_restore 12 .cfi_restore 11 .cfi_def_cfa 15, 160 br %r4 .L18: .cfi_restore_state lg %r4,432(%r11) llgc %r2,168(%r11) lmg %r11,%r15,408(%r11) .cfi_remember_state .cfi_restore 11 .cfi_restore 12 .cfi_restore 13 .cfi_restore 14 .cfi_restore 15 .cfi_def_cfa 15, 160 br %r4 .L21: .cfi_restore_state icmh %r2,8,168(%r11) srag %r2,%r2,56 j .L1 .L19: lg %r2,168(%r11) j .L1 .L22: lgh %r2,168(%r11) j .L1 .L23: llgh %r2,168(%r11) j .L1 .L24: lgf %r2,168(%r11) j .L1 .L26: le %f0,168(%r11) j .L1 .L25: llgf %r2,168(%r11) j .L1 .L27: ld %f0,168(%r11) j .L1 .cfi_endproc .LFE0: .size vacall_receiver, .-vacall_receiver #if defined __linux__ || defined __FreeBSD__ || defined __FreeBSD_kernel__ || defined __DragonFly__ .section .note.GNU-stack,"",@progbits #endif libffcall-2.2/vacall/Makefile.in0000664000000000000000000004005013527104765013504 00000000000000# Makefile for vacall #### Start of system configuration section. #### HOST = @host@ CPU = @HOST_CPU_C_ABI@ OS = @host_os@ # Directories used by "make": srcdir = @srcdir@ # Directories used by "make install": prefix = @prefix@ local_prefix = /usr/local exec_prefix = @exec_prefix@ libdir = @libdir@ includedir = @includedir@ mandir = @mandir@ datadir = @datadir@ datarootdir = @datarootdir@ htmldir = $(datadir)/html # Programs used by "make": # C compiler CC = @CC@ CFLAGS = @CFLAGS@ CPP = @CPP@ # C++ compiler CXX = @CXX@ CXXFLAGS = @CXXFLAGS@ # Both C and C++ compiler CPPFLAGS = @CPPFLAGS@ INCLUDES = -I. -I$(srcdir) -I.. -I$(srcdir)/.. INCLUDES_WITH_GNULIB = $(INCLUDES) -I../gnulib-lib -I$(srcdir)/../gnulib-lib ASPFLAGS = `if test @AS_UNDERSCORE@ = true; then echo '-DASM_UNDERSCORE'; fi` LDFLAGS = @LDFLAGS@ AR = @AR@ AR_FLAGS = rc RANLIB = @RANLIB@ MV = mv LN = @LN@ RM = rm -f @SET_MAKE@ # Programs used by "make install": INSTALL = @INSTALL@ INSTALL_PROGRAM = @INSTALL_PROGRAM@ INSTALL_DATA = @INSTALL_DATA@ #### End of system configuration section. #### SHELL = /bin/sh OBJECTS = vacall.@OBJEXT@ vacall-libapi.@OBJEXT@ vacall-structcpy.@OBJEXT@ all : $(OBJECTS) libvacall.a $(srcdir)/vacall.3 $(srcdir)/vacall.html vacall.@OBJEXT@ : vacall-$(CPU).@OBJEXT@ $(RM) vacall.@OBJEXT@ $(LN) vacall-$(CPU).@OBJEXT@ vacall.@OBJEXT@ @IFNOT_MSVC@vacall-i386.@OBJEXT@ : vacall-i386.s @IFNOT_MSVC@ $(CC) @GCC_X_NONE@ -c vacall-i386.s @IFNOT_MSVC@vacall-i386.s : $(srcdir)/vacall-i386-macro.S @IFNOT_MSVC@ $(CPP) $(ASPFLAGS) -I$(srcdir)/../common - < $(srcdir)/vacall-i386-macro.S | grep -v '^ *#line' | grep -v '^#' | sed -e 's,% ,%,g' -e 's,\. ,.,g' -e 's,@ ,@,g' -e 's,//.*$$,,' -e 's/##//g' > vacall-i386.s @IF_MSVC@vacall-i386.@OBJEXT@ : $(srcdir)/vacall-i386-msvc.c @IF_MSVC@ $(CC) $(INCLUDES) -I$(srcdir)/../common $(CPPFLAGS) $(CFLAGS) -c $(srcdir)/vacall-i386-msvc.c -o vacall-i386.@OBJEXT@ vacall-sparc.@OBJEXT@ : vacall-sparc.s $(CC) @WORKAROUND_BUG_81653@ @GCC_X_NONE@ -c vacall-sparc.s vacall-sparc.s : $(srcdir)/vacall-sparc-macro.S $(CPP) @WORKAROUND_BUG_81653@ $(ASPFLAGS) -I$(srcdir)/../common - < $(srcdir)/vacall-sparc-macro.S | grep -v '^ *#line' | grep -v '^#' | sed -e 's,% ,%,g' -e 's,\. ,.,g' -e 's,//.*$$,,' -e 's,\$$,#,g' -e 's,# ,#,g' > vacall-sparc.s vacall-sparc64.@OBJEXT@ : vacall-sparc64.s $(CC) @GCC_X_NONE@ -c vacall-sparc64.s vacall-sparc64.s : $(srcdir)/vacall-sparc64-macro.S $(CPP) $(ASPFLAGS) -I$(srcdir)/../common - < $(srcdir)/vacall-sparc64-macro.S | grep -v '^ *#line' | grep -v '^#' | sed -e 's,% ,%,g' -e 's,\. ,.,g' -e 's,//.*$$,,' -e 's,\$$,#,g' -e 's,# ,#,g' > vacall-sparc64.s vacall-m68k.@OBJEXT@ : vacall-m68k.s $(CC) @GCC_X_NONE@ -c vacall-m68k.s vacall-m68k.s : $(srcdir)/vacall-m68k.mit.S $(srcdir)/vacall-m68k.motorola.S $(CPP) $(ASPFLAGS) -I$(srcdir)/../common $(srcdir)/vacall-m68k.motorola.S | grep -v '^ *#line' | grep -v '^#' | sed -e 's,% ,%,g' -e 's,//.*$$,,' | if test @AS_UNDERSCORE@ = true; then sed -e 's/\$$//g'; else sed -e 's/\$$/%/g'; fi > vacall-m68k.s vacall-mips.@OBJEXT@ : vacall-mips.s $(CC) @GCC_X_NONE@ -c vacall-mips.s vacall-mips.s : $(srcdir)/vacall-mips@ENDIANNESS@-macro.S $(CPP) $(ASPFLAGS) -I$(srcdir)/../common $(srcdir)/vacall-mips@ENDIANNESS@-macro.S | grep -v '^ *#line' | grep -v '^#' | sed -e 's,% ,%,g' -e 's,//.*$$,,' > vacall-mips.s vacall-mipsn32.@OBJEXT@ : vacall-mipsn32.s $(CC) @GCC_X_NONE@ -c vacall-mipsn32.s vacall-mipsn32.s : $(srcdir)/vacall-mipsn32@ENDIANNESS@-macro.S $(CPP) $(ASPFLAGS) -I$(srcdir)/../common $(srcdir)/vacall-mipsn32@ENDIANNESS@-macro.S | grep -v '^ *#line' | grep -v '^#' | sed -e 's,% ,%,g' -e 's,//.*$$,,' > vacall-mipsn32.s vacall-mips64.@OBJEXT@ : vacall-mips64.s $(CC) @GCC_X_NONE@ -c vacall-mips64.s vacall-mips64.s : $(srcdir)/vacall-mips64@ENDIANNESS@-macro.S $(CPP) $(ASPFLAGS) -I$(srcdir)/../common $(srcdir)/vacall-mips64@ENDIANNESS@-macro.S | grep -v '^ *#line' | grep -v '^#' | sed -e 's,% ,%,g' -e 's,//.*$$,,' > vacall-mips64.s vacall-alpha.@OBJEXT@ : vacall-alpha.s $(CC) @GCC_X_NONE@ -c vacall-alpha.s vacall-alpha.s : $(srcdir)/vacall-alpha-macro.S $(CPP) $(ASPFLAGS) $(srcdir)/vacall-alpha-macro.S | grep -v '^ *#line' | grep -v '^#' | sed -e 's,% ,%,g' -e 's,//.*$$,,' > vacall-alpha.s vacall-hppa.@OBJEXT@ : vacall-hppa.s $(CC) @GCC_X_NONE@ -c vacall-hppa.s vacall-hppa.s : $(srcdir)/vacall-hppa-macro.S $(CPP) $(ASPFLAGS) -I$(srcdir)/../common $(srcdir)/vacall-hppa-macro.S | grep -v '^ *#line' | grep -v '^#' | sed -e "s,!,',g" > vacall-hppa.s vacall-hppa64.@OBJEXT@ : vacall-hppa64.s $(CC) @GCC_X_NONE@ -c vacall-hppa64.s vacall-hppa64.s : $(srcdir)/vacall-hppa64-macro.S $(CPP) $(ASPFLAGS) -I$(srcdir)/../common $(srcdir)/vacall-hppa64-macro.S | grep -v '^ *#line' | grep -v '^#' | sed -e "s,!,',g" > vacall-hppa64.s vacall-arm.@OBJEXT@ : vacall-arm.s $(CC) @GCC_X_NONE@ -c vacall-arm.s vacall-arm.s : $(srcdir)/vacall-arm-macro.S $(CPP) $(ASPFLAGS) -I$(srcdir)/../common $(srcdir)/vacall-arm-macro.S | grep -v '^ *#line' | grep -v '^#' | sed -e 's,% ,%,g' -e 's,//,@,g' -e 's,\$$,#,g' > vacall-arm.s vacall-armhf.@OBJEXT@ : vacall-armhf.s $(CC) @GCC_X_NONE@ -c vacall-armhf.s vacall-armhf.s : $(srcdir)/vacall-armhf-macro.S $(CPP) $(ASPFLAGS) -I$(srcdir)/../common $(srcdir)/vacall-armhf-macro.S | grep -v '^ *#line' | grep -v '^#' | sed -e 's,% ,%,g' -e 's,//,@,g' -e 's,\$$,#,g' > vacall-armhf.s vacall-arm64.@OBJEXT@ : vacall-arm64.s $(CC) @GCC_X_NONE@ -c vacall-arm64.s vacall-arm64.s : $(srcdir)/vacall-arm64-macro.S $(CPP) $(ASPFLAGS) -I$(srcdir)/../common $(srcdir)/vacall-arm64-macro.S | grep -v '^ *#line' | grep -v '^#' | sed -e 's,% ,%,g' -e 's,//,@,g' -e 's,\$$,#,g' > vacall-arm64.s vacall-powerpc.@OBJEXT@ : vacall-powerpc.s $(CC) @GCC_X_NONE@ -c vacall-powerpc.s vacall-powerpc.s : $(srcdir)/vacall-powerpc-aix.s $(srcdir)/vacall-powerpc-linux-macro.S $(srcdir)/vacall-powerpc-macos.s $(srcdir)/vacall-powerpc-sysv4-macro.S case "$(OS)" in \ aix*) syntax=aix;; \ linux* | netbsd* | openbsd*) syntax=linux;; \ macos* | darwin*) syntax=macos;; \ *) syntax=sysv4;; \ esac; \ case $${syntax} in \ macos) \ grep -v '\.machine' $(srcdir)/vacall-powerpc-$${syntax}.s > vacall-powerpc.s || exit 1 ;; \ linux | sysv4) \ $(CPP) $(ASPFLAGS) $(srcdir)/vacall-powerpc-$${syntax}-macro.S | grep -v '^ *#line' | grep -v '^#' | sed -e 's,% ,%,g' -e 's,//.*$$,,' > vacall-powerpc.s || exit 1 ;; \ *) \ cp $(srcdir)/vacall-powerpc-$${syntax}.s vacall-powerpc.s || exit 1 ;; \ esac vacall-powerpc64.@OBJEXT@ : vacall-powerpc64.s $(CC) @GCC_X_NONE@ -c vacall-powerpc64.s vacall-powerpc64.s : $(srcdir)/vacall-powerpc64-aix.s $(srcdir)/vacall-powerpc64-linux.S case "$(OS)" in \ aix*) syntax=aix;; \ *) syntax=linux;; \ esac; \ case $${syntax} in \ linux) \ $(CPP) $(ASPFLAGS) $(srcdir)/vacall-powerpc64-$${syntax}.S | grep -v '^ *#line' | grep -v '^#' | sed -e 's,% ,%,g' -e 's,//.*$$,,' > vacall-powerpc64.s || exit 1 ;; \ *) \ cp $(srcdir)/vacall-powerpc64-$${syntax}.s vacall-powerpc64.s || exit 1 ;; \ esac vacall-powerpc64-elfv2.@OBJEXT@ : vacall-powerpc64-elfv2.s $(CC) @GCC_X_NONE@ -c vacall-powerpc64-elfv2.s vacall-powerpc64-elfv2.s : $(srcdir)/vacall-powerpc64-elfv2-linux.S $(CPP) $(ASPFLAGS) $(srcdir)/vacall-powerpc64-elfv2-linux.S | grep -v '^ *#line' | grep -v '^#' | sed -e 's,% ,%,g' -e 's,//.*$$,,' > vacall-powerpc64-elfv2.s vacall-ia64.@OBJEXT@ : vacall-ia64.s $(CC) @GCC_X_NONE@ -c vacall-ia64.s vacall-ia64.s : $(srcdir)/vacall-ia64-macro.S $(CPP) $(ASPFLAGS) $(srcdir)/vacall-ia64-macro.S | grep -v '^ *#line' | grep -v '^#' | sed -e 's,% ,%,g' -e 's,//.*$$,,' > vacall-ia64.s @IFNOT_MSVC@vacall-x86_64.@OBJEXT@ : vacall-x86_64.s @IFNOT_MSVC@ $(CC) @GCC_X_NONE@ -c vacall-x86_64.s @IFNOT_MSVC@vacall-x86_64.s : $(srcdir)/vacall-x86_64-macro.S $(srcdir)/vacall-x86_64-windows-macro.S @IFNOT_MSVC@ case "$(OS)" in \ @IFNOT_MSVC@ cygwin* | mingw*) variant='-windows';; \ @IFNOT_MSVC@ *) variant='';; \ @IFNOT_MSVC@ esac; \ @IFNOT_MSVC@ $(CPP) $(ASPFLAGS) -I$(srcdir)/../common - < $(srcdir)/vacall-x86_64$${variant}-macro.S | grep -v '^ *#line' | grep -v '^#' | sed -e 's,% ,%,g' -e 's,\. ,.,g' -e 's,@ ,@,g' -e 's,//.*$$,,' -e 's/##//g' > vacall-x86_64.s @IF_MSVC@vacall-x86_64.@OBJEXT@ : vacall-x86_64.asm @IF_MSVC@ ml64 -c -nologo vacall-x86_64.asm @IF_MSVC@vacall-x86_64.asm : $(srcdir)/vacall-x86_64-windows-macro.S @IF_MSVC@ { echo 'EXTERNDEF vacall_function:QWORD'; $(CPP) $(ASPFLAGS) -I$(srcdir)/../common $(srcdir)/vacall-x86_64-windows-macro.S | grep -v '^#'; echo 'END'; } > vacall-x86_64.asm vacall-x86_64-x32.@OBJEXT@ : vacall-x86_64-x32.s $(CC) @GCC_X_NONE@ -c vacall-x86_64-x32.s vacall-x86_64-x32.s : $(srcdir)/vacall-x86_64-x32-linux.s cp $(srcdir)/vacall-x86_64-x32-linux.s vacall-x86_64-x32.s vacall-s390.@OBJEXT@ : vacall-s390.s $(CC) @GCC_X_NONE@ -c vacall-s390.s vacall-s390.s : $(srcdir)/vacall-s390-macro.S $(CPP) $(ASPFLAGS) $(srcdir)/vacall-s390-macro.S | grep -v '^ *#line' | grep -v '^#' | sed -e 's,% ,%,g' -e 's,//.*$$,,' > vacall-s390.s vacall-s390x.@OBJEXT@ : vacall-s390x.s $(CC) @GCC_X_NONE@ -c vacall-s390x.s vacall-s390x.s : $(srcdir)/vacall-s390x-macro.S $(CPP) $(ASPFLAGS) $(srcdir)/vacall-s390x-macro.S | grep -v '^ *#line' | grep -v '^#' | sed -e 's,% ,%,g' -e 's,//.*$$,,' > vacall-s390x.s vacall-riscv32-ilp32d.@OBJEXT@ : vacall-riscv32-ilp32d.s $(CC) @GCC_X_NONE@ -c vacall-riscv32-ilp32d.s vacall-riscv32-ilp32d.s : $(srcdir)/vacall-riscv32-ilp32d-macro.S $(CPP) $(ASPFLAGS) $(srcdir)/vacall-riscv32-ilp32d-macro.S | grep -v '^ *#line' | grep -v '^#' | sed -e 's,% ,%,g' -e 's,//.*$$,,' > vacall-riscv32-ilp32d.s vacall-riscv64-lp64d.@OBJEXT@ : vacall-riscv64-lp64d.s $(CC) @GCC_X_NONE@ -c vacall-riscv64-lp64d.s vacall-riscv64-lp64d.s : $(srcdir)/vacall-riscv64-lp64d-macro.S $(CPP) $(ASPFLAGS) $(srcdir)/vacall-riscv64-lp64d-macro.S | grep -v '^ *#line' | grep -v '^#' | sed -e 's,% ,%,g' -e 's,//.*$$,,' > vacall-riscv64-lp64d.s vacall-libapi.@OBJEXT@ : $(srcdir)/vacall-libapi.c $(srcdir)/vacall-internal.h $(srcdir)/vacall.h ../config.h $(CC) $(INCLUDES_WITH_GNULIB) $(CPPFLAGS) $(CFLAGS) @DISABLE_TYPE_BASED_ALIASING@ -c $(srcdir)/vacall-libapi.c vacall-structcpy.@OBJEXT@ : $(srcdir)/vacall-structcpy.c $(srcdir)/../common/structcpy.c $(CC) -I$(srcdir)/../common $(CPPFLAGS) $(CFLAGS) -c $(srcdir)/vacall-structcpy.c libvacall.a : $(OBJECTS) $(RM) libvacall.a $(AR) $(AR_FLAGS) libvacall.a $(OBJECTS) $(RANLIB) libvacall.a install : all force mkdir -p $(DESTDIR)$(prefix) mkdir -p $(DESTDIR)$(exec_prefix) mkdir -p $(DESTDIR)$(libdir) $(INSTALL_DATA) libvacall.a $(DESTDIR)$(libdir)/libvacall.a mkdir -p $(DESTDIR)$(includedir) $(INSTALL_DATA) $(srcdir)/vacall.h $(DESTDIR)$(includedir)/vacall.h mkdir -p $(DESTDIR)$(mandir) mkdir -p $(DESTDIR)$(mandir)/man3 $(INSTALL_DATA) $(srcdir)/vacall.3 $(DESTDIR)$(mandir)/man3/vacall.3 mkdir -p $(DESTDIR)$(datadir) mkdir -p $(DESTDIR)$(htmldir) $(INSTALL_DATA) $(srcdir)/vacall.html $(DESTDIR)$(htmldir)/vacall.html installdirs : force mkdir -p $(DESTDIR)$(prefix) mkdir -p $(DESTDIR)$(exec_prefix) mkdir -p $(DESTDIR)$(libdir) mkdir -p $(DESTDIR)$(includedir) mkdir -p $(DESTDIR)$(mandir) mkdir -p $(DESTDIR)$(mandir)/man3 mkdir -p $(DESTDIR)$(datadir) mkdir -p $(DESTDIR)$(htmldir) uninstall : force $(RM) $(DESTDIR)$(libdir)/libvacall.a $(RM) $(DESTDIR)$(includedir)/vacall.h $(RM) $(DESTDIR)$(mandir)/man3/vacall.3 $(RM) $(DESTDIR)$(htmldir)/vacall.html minitests.@OBJEXT@ : $(srcdir)/minitests.c $(srcdir)/tests.c $(srcdir)/vacall.h $(CC) $(INCLUDES) $(CPPFLAGS) $(CFLAGS) -c $(srcdir)/minitests.c minitests.s : $(srcdir)/minitests.c $(srcdir)/tests.c $(srcdir)/vacall.h $(CC) $(INCLUDES) $(CPPFLAGS) $(CFLAGS) -S $(srcdir)/minitests.c minitests : minitests.@OBJEXT@ libvacall.a $(CC) $(CFLAGS) @GCC_X_NONE@ minitests.@OBJEXT@ libvacall.a $(LDFLAGS) -o minitests minitests-c++.@OBJEXT@ : $(srcdir)/minitests-c++.cc $(srcdir)/minitests.c $(srcdir)/tests.c $(srcdir)/vacall.h $(CXX) $(INCLUDES) $(CPPFLAGS) $(CXXFLAGS) -c $(srcdir)/minitests-c++.cc minitests-c++ : minitests-c++.@OBJEXT@ libvacall.a $(CXX) $(CXXFLAGS) @GCC_X_NONE@ minitests-c++.@OBJEXT@ libvacall.a $(LDFLAGS) -o minitests-c++ check : all minitests ./minitests > minitests.out LC_ALL=C uniq -u < minitests.out > minitests.output.$(HOST) test '!' -s minitests.output.$(HOST) @IF_CXX@ ./minitests-c++ > minitests-c++.out @IF_CXX@ LC_ALL=C uniq -u < minitests-c++.out > minitests-c++.output.$(HOST) @IF_CXX@ test '!' -s minitests-c++.output.$(HOST) @IF_CXX@check : minitests-c++ tests.@OBJEXT@ : $(srcdir)/tests.c $(srcdir)/vacall.h $(CC) $(INCLUDES) $(CPPFLAGS) $(CFLAGS) -c $(srcdir)/tests.c tests.s : $(srcdir)/tests.c $(srcdir)/vacall.h $(CC) $(INCLUDES) $(CPPFLAGS) $(CFLAGS) -S $(srcdir)/tests.c tests : tests.@OBJEXT@ libvacall.a $(CC) $(CFLAGS) @GCC_X_NONE@ tests.@OBJEXT@ libvacall.a $(LDFLAGS) -o tests extracheck : all tests ./tests > tests.out LC_ALL=C uniq -u < tests.out > tests.output.$(HOST) test '!' -s tests.output.$(HOST) mostlyclean : clean clean : force $(RM) *.@OBJEXT@ *.a core $(RM) vacall-i386.s vacall-sparc.s vacall-sparc64.s vacall-m68k.s vacall-mips.s vacall-mipsn32.s vacall-mips64.s vacall-alpha.s vacall-hppa.s vacall-hppa64.s vacall-arm.s vacall-armhf.s vacall-arm64.s vacall-powerpc.s vacall-powerpc64.s vacall-powerpc64-elfv2.s vacall-ia64.s vacall-x86_64.s vacall-x86_64.asm vacall-x86_64-x32.s vacall-s390.s vacall-s390x.s vacall-riscv32-ilp32d.s vacall-riscv64-lp64d.s $(RM) minitests.@OBJEXT@ minitests.s minitests minitests.out $(RM) minitests-c++.@OBJEXT@ minitests-c++ minitests-c++.out $(RM) tests.@OBJEXT@ tests.s tests tests.out distclean : clean $(RM) Makefile minitests.output.* minitests-c++.output.* tests.output.* maintainer-clean : distclean # List of source files (committed in version control or generated by Makefile.devel). SOURCE_FILES = \ COPYING \ PLATFORMS README vacall.3 vacall.html \ Makefile.devel \ Makefile.maint \ Makefile.in \ vacall.h vacall-internal.h \ vacall-alpha.c vacall-alpha-linux.s vacall-alpha-macro.S \ vacall-arm.c vacall-arm-linux.s vacall-arm-linux-pic.s vacall-arm-macro.S \ vacall-armhf.c vacall-armhf-linux.s vacall-armhf-linux-pic.s vacall-armhf-macro.S \ vacall-arm64.c vacall-arm64-macro.S \ vacall-hppa.c vacall-hppa-linux.s vacall-hppa-macro.S \ vacall-hppa64.c vacall-hppa64-linux.s vacall-hppa64-macro.S \ vacall-i386.c vacall-i386-linux.s vacall-i386-linux-pic.s vacall-i386-macro.S \ vacall-ia64.c vacall-ia64-linux.s vacall-ia64-macro.S \ vacall-m68k.c vacall-m68k-linux.s vacall-m68k-sun.s vacall-m68k.mit.S vacall-m68k.motorola.S \ vacall-mips.c vacall-mipseb-linux.s vacall-mipsel-linux.s vacall-mipseb-macro.S vacall-mipsel-macro.S \ vacall-mipsn32.c vacall-mipsn32eb-linux.s vacall-mipsn32el-linux.s vacall-mipsn32eb-macro.S vacall-mipsn32el-macro.S \ vacall-mips64.c vacall-mips64eb-linux.s vacall-mips64el-linux.s vacall-mips64eb-macro.S vacall-mips64el-macro.S \ vacall-powerpc.c \ vacall-powerpc-aix.s \ vacall-powerpc-linux.s vacall-powerpc-linux-macro.S vacall-powerpc-macos.s vacall-powerpc-sysv4-macro.S \ vacall-powerpc64.c vacall-powerpc64-aix.s vacall-powerpc64-linux.S vacall-powerpc64-elfv2-linux.S \ vacall-riscv32.c vacall-riscv32-ilp32d-linux.s vacall-riscv32-ilp32d-macro.S \ vacall-riscv64.c vacall-riscv64-lp64d-linux.s vacall-riscv64-lp64d-macro.S \ vacall-s390.c vacall-s390-linux.s vacall-s390-macro.S \ vacall-s390x.c vacall-s390x-linux.s vacall-s390x-macro.S \ vacall-sparc.c vacall-sparc-linux.s vacall-sparc-linux-pic.s vacall-sparc-macro.S \ vacall-sparc64.c vacall-sparc64-linux.s vacall-sparc64-linux-pic.s vacall-sparc64-macro.S \ vacall-x86_64.c vacall-x86_64-linux.s vacall-x86_64-macro.S vacall-x86_64-x32-linux.s \ vacall-x86_64-windows.c vacall-x86_64-windows.s vacall-x86_64-windows-macro.S \ vacall-libapi.c \ vacall-structcpy.c \ minitests.c minitests-c++.cc \ tests.c # List of distributed files generated by Makefile.maint. GENERATED_FILES = \ vacall.man \ vacall-i386-msvc.c # List of distributed files. DISTFILES = $(SOURCE_FILES) $(GENERATED_FILES) distdir : $(DISTFILES) for file in $(DISTFILES); do \ if test -f $$file; then dir='.'; else dir='$(srcdir)'; fi; \ cp -p "$$dir/$$file" '$(distdir)'/$$file || exit 1; \ done force : libffcall-2.2/vacall/vacall-s390-macro.S0000664000000000000000000000403213530357113014607 00000000000000 .file "vacall-s390.c" .text .align 4 .globl vacall_receiver .type vacall_receiver,@function vacall_receiver: stm %r6,%r15,24(%r15) bras %r13,.LTN0_0 .LT0_0: .LC0: .long vacall_function .LC1: .long 0 .LC2: .long 255 .LC3: .long 65535 .LC4: .long 1 .LTN0_0: l %r1,.LC0-.LT0_0(%r13) lr %r14,%r15 ahi %r15,-184 lr %r11,%r15 l %r12,0(%r1) st %r14,0(%r15) la %r1,280(%r11) st %r2,132(%r11) la %r2,96(%r11) st %r4,140(%r11) st %r5,144(%r11) st %r6,148(%r11) st %r3,136(%r11) std %f2,176(%r11) std %f0,168(%r11) ste %f2,160(%r11) ste %f0,156(%r11) mvc 96(4,%r11),.LC1-.LT0_0(%r13) st %r1,112(%r11) mvc 116(4,%r11),.LC1-.LT0_0(%r13) mvc 120(4,%r11),.LC1-.LT0_0(%r13) mvc 128(4,%r11),.LC1-.LT0_0(%r13) mvc 152(4,%r11),.LC1-.LT0_0(%r13) basr %r14,%r12 icm %r4,15,120(%r11) je .L1 chi %r4,1 je .L43 chi %r4,2 je .L44 chi %r4,3 je .L43 chi %r4,4 je .L45 chi %r4,5 je .L46 chi %r4,6 je .L40 chi %r4,7 je .L40 chi %r4,8 je .L40 chi %r4,9 je .L40 lr %r1,%r4 ahi %r1,-10 cl %r1,.LC4-.LT0_0(%r13) jh .L22 l %r2,104(%r11) l %r3,108(%r11) .L1: l %r4,240(%r11) lm %r6,%r15,208(%r11) br %r4 .L22: chi %r4,12 je .L47 chi %r4,13 je .L48 chi %r4,14 je .L40 chi %r4,15 jne .L1 tm 98(%r11),4 je .L1 l %r1,124(%r11) chi %r1,1 je .L49 chi %r1,2 je .L50 chi %r1,4 je .L51 chi %r1,8 jne .L1 l %r1,116(%r11) l %r3,4(%r1) .L39: l %r2,0(%r1) j .L1 .L51: l %r1,116(%r11) j .L39 .L50: l %r1,116(%r11) lh %r4,0(%r1) lr %r2,%r4 .L41: n %r2,.LC3-.LT0_0(%r13) j .L1 .L49: l %r1,116(%r11) ic %r4,0(%r1) lr %r2,%r4 .L42: n %r2,.LC2-.LT0_0(%r13) j .L1 .L40: l %r2,104(%r11) j .L1 .L48: ld %f0,104(%r11) j .L1 .L47: le %f0,104(%r11) j .L1 .L46: lh %r1,104(%r11) lr %r2,%r1 j .L41 .L45: lh %r2,104(%r11) j .L1 .L43: ic %r1,104(%r11) lr %r2,%r1 j .L42 .L44: icm %r1,8,104(%r11) lr %r2,%r1 sra %r2,24 j .L1 .Lfe1: .size vacall_receiver,.Lfe1-vacall_receiver #if defined __linux__ || defined __FreeBSD__ || defined __FreeBSD_kernel__ || defined __DragonFly__ .section .note.GNU-stack,"",@progbits #endif libffcall-2.2/vacall/vacall-ia64-macro.S0000664000000000000000000002455513530357112014667 00000000000000 .file "vacall-ia64.c" .pred.safe_across_calls p1-p5,p16-p63 .text .align 16 .global vacall_receiver# .proc vacall_receiver# vacall_receiver: .prologue 14, 41 .spill 48 .mmb .save ar.pfs, r42 alloc r42 = ar.pfs, 8, 5, 1, 0 .vframe r43 mov r43 = r12 nop 0 .mmi adds r12 = -208, r12 mov r44 = r1 .save rp, r41 mov r41 = b0 .body ;; .mmi adds r14 = -48, r43 adds r16 = -48, r43 adds r40 = -152, r43 .mmb adds r45 = -192, r43 st8 [r43] = r38 nop 0 ;; .mmi nop 0 st8 [r14] = r32, 8 adds r32 = -160, r43 .mmi st4 [r40] = r0 ;; st8 [r14] = r33 adds r14 = -32, r43 .mmi st4 [r45] = r0 ;; st8 [r14] = r34 addl r14 = @ltoffx(vacall_function#), r1 .mmb nop 0 st8 [r32] = r0 nop 0 ;; .mmi ld8.mov r14 = [r14], vacall_function# ;; ld8 r15 = [r14] nop 0 .mmi adds r14 = -24, r43 ;; st8 [r14] = r35 adds r14 = -16, r43 ;; .mfi st8 [r14] = r36 nop 0 adds r14 = -8, r43 .mmi nop 0 ;; st8 [r14] = r37 nop 0 .mmi adds r14 = 8, r43 ;; st8 [r14] = r39 adds r14 = -112, r43 ;; .mfi stfd [r14] = f8 nop 0 adds r14 = -104, r43 .mmi nop 0 ;; stfd [r14] = f9 nop 0 .mmi adds r14 = -96, r43 ;; stfd [r14] = f10 adds r14 = -88, r43 ;; .mfi stfd [r14] = f11 nop 0 adds r14 = -80, r43 .mmi nop 0 ;; stfd [r14] = f12 nop 0 .mmi adds r14 = -72, r43 ;; stfd [r14] = f13 adds r14 = -64, r43 ;; .mfi stfd [r14] = f14 nop 0 adds r14 = -56, r43 .mmi nop 0 ;; stfd [r14] = f15 nop 0 .mmi adds r14 = -168, r43 ;; st8 [r14] = r16 adds r14 = -128, r43 ;; .mii st8 [r14] = r16 adds r14 = -120, r43 ;; nop 0 .mii st4 [r14] = r0 adds r14 = -136, r43 ;; nop 0 .mmb st8 [r14] = r8 ld8 r14 = [r15], 8 nop 0 ;; .mib nop 0 mov b6 = r14 nop 0 .mbb ld8 r1 = [r15] nop 0 br.call.sptk.many b0 = b6 ;; .mmb mov r1 = r44 ld4 r40 = [r40] nop 0 ;; .mfb cmp4.eq p6, p7 = 0, r40 nop 0 (p6) br.cond.dpnt .L49 ;; .mfb cmp4.ne p6, p7 = 1, r40 nop 0 (p7) br.cond.dpnt .L50 ;; .mfb cmp4.ne p6, p7 = 2, r40 nop 0 (p7) br.cond.dpnt .L50 ;; .mii nop 0 cmp4.ne p6, p7 = 3, r40 ;; (p7) adds r14 = -184, r43 ;; .mfb (p7) ld1 r8 = [r14] nop 0 (p7) br.cond.dpnt .L49 .mii nop 0 cmp4.ne p6, p7 = 4, r40 ;; nop 0 .mmi (p7) adds r14 = -184, r43 ;; (p7) ld2 r14 = [r14] nop 0 ;; .mib nop 0 (p7) sxt2 r8 = r14 (p7) br.cond.dpnt .L49 .mii nop 0 cmp4.ne p6, p7 = 5, r40 ;; (p7) adds r14 = -184, r43 ;; .mfb (p7) ld2 r8 = [r14] nop 0 (p7) br.cond.dpnt .L49 .mii nop 0 cmp4.ne p6, p7 = 6, r40 ;; nop 0 .mmi (p7) adds r14 = -184, r43 ;; (p7) ld4 r14 = [r14] nop 0 ;; .mib nop 0 (p7) sxt4 r8 = r14 (p7) br.cond.dpnt .L49 .mii nop 0 cmp4.ne p6, p7 = 7, r40 ;; (p7) adds r14 = -184, r43 ;; .mfb (p7) ld4 r8 = [r14] nop 0 (p7) br.cond.dpnt .L49 .mfb cmp4.ne p6, p7 = 8, r40 nop 0 (p7) br.cond.dpnt .L54 ;; .mfb cmp4.ne p6, p7 = 9, r40 nop 0 (p7) br.cond.dpnt .L54 ;; .mfb cmp4.ne p6, p7 = 10, r40 nop 0 (p7) br.cond.dpnt .L54 ;; .mfb cmp4.ne p6, p7 = 11, r40 nop 0 (p7) br.cond.dpnt .L54 ;; .mii nop 0 cmp4.ne p6, p7 = 12, r40 ;; (p7) adds r14 = -184, r43 ;; .mfb (p7) ldfs f8 = [r14] nop 0 (p7) br.cond.dpnt .L49 .mii nop 0 cmp4.ne p6, p7 = 13, r40 ;; (p7) adds r14 = -184, r43 ;; .mfb (p7) ldfd f8 = [r14] nop 0 (p7) br.cond.dpnt .L49 .mfb cmp4.ne p6, p7 = 14, r40 nop 0 (p7) br.cond.dpnt .L54 ;; .mib nop 0 cmp4.ne p6, p7 = 15, r40 (p6) br.cond.dptk .L49 .mii nop 0 adds r15 = -192, r43 ;; nop 0 .mmi ld4 r14 = [r15] ;; nop 0 tbit.z p6, p7 = r14, 10 .mfb adds r14 = -144, r43 nop 0 (p6) br.cond.dpnt .L49 ;; .mmi ld8 r21 = [r14] ;; adds r14 = -1, r21 nop 0 ;; .mib nop 0 cmp.ltu p6, p7 = 31, r14 (p6) br.cond.dpnt .L49 .mmi ld8 r14 = [r32] ;; and r20 = 7, r14 and r23 = -8, r14 .mii nop 0 cmp.ltu p6, p7 = 8, r21 ;; nop 0 .mfb add r14 = r21, r20 nop 0 (p6) br.cond.dptk .L35 ;; .mib nop 0 cmp.ltu p6, p7 = 8, r14 (p6) br.cond.dptk .L37 .mfi shladd r15 = r14, 3, r0 nop 0 addl r14 = 2, r0 .mii ld8 r16 = [r23] shladd r17 = r20, 3, r0 ;; adds r15 = -1, r15 ;; .mii nop 0 sxt4 r15 = r15 ;; shl r14 = r14, r15 ;; .mmi adds r14 = -1, r14 ;; and r14 = r16, r14 nop 0 .mmi nop 0 ;; nop 0 shr r8 = r14, r17 .L49: .mii nop 0 mov ar.pfs = r42 mov b0 = r41 .mib nop 0 .label_state 1 .restore sp mov r12 = r43 br.ret.sptk.many b0 .L50: .body .copy_state 1 .mii nop 0 adds r14 = -184, r43 ;; nop 0 .mii ld1 r14 = [r14] nop 0 ;; sxt1 r8 = r14 .mii nop 0 mov ar.pfs = r42 mov b0 = r41 .mib nop 0 .label_state 2 .restore sp mov r12 = r43 br.ret.sptk.many b0 .L54: .body .copy_state 2 .mmb nop 0 adds r14 = -184, r43 nop 0 ;; .mii ld8 r8 = [r14] mov ar.pfs = r42 mov b0 = r41 .mib nop 0 .label_state 3 .restore sp mov r12 = r43 br.ret.sptk.many b0 .L35: .body .copy_state 3 .mib nop 0 cmp.ltu p6, p7 = 16, r21 (p6) br.cond.dptk .L39 ;; .mib nop 0 cmp.ltu p6, p7 = 16, r14 (p6) br.cond.dptk .L41 .mmi shladd r15 = r14, 3, r0 adds r14 = 8, r23 shladd r16 = r20, 2, r0 .mmb shladd r18 = r20, 3, r0 ld8 r17 = [r23] nop 0 ;; .mfi ld8 r19 = [r14] nop 0 addl r14 = 2, r0 .mii adds r15 = -65, r15 sub r16 = 32, r16 ;; sxt4 r15 = r15 .mii nop 0 sxt4 r16 = r16 shr r17 = r17, r18 ;; .mii nop 0 shl r14 = r14, r15 ;; adds r14 = -1, r14 ;; .mii nop 0 and r14 = r19, r14 ;; shl r15 = r14, r16 .mii nop 0 shr r9 = r14, r18 ;; shl r15 = r15, r16 ;; .mii or r8 = r15, r17 mov ar.pfs = r42 mov b0 = r41 .mib nop 0 .label_state 4 .restore sp mov r12 = r43 br.ret.sptk.many b0 .L37: .body .copy_state 4 .mfi shladd r15 = r14, 3, r0 nop 0 addl r14 = 2, r0 .mii ld8 r17 = [r23], 8 shladd r18 = r20, 3, r0 ;; adds r15 = -65, r15 .mii ld8 r19 = [r23] sub r16 = 64, r18 ;; sxt4 r15 = r15 .mii nop 0 sxt4 r16 = r16 ;; shl r14 = r14, r15 .mii nop 0 shr r17 = r17, r18 ;; adds r14 = -1, r14 ;; .mii nop 0 and r14 = r19, r14 ;; shl r14 = r14, r16 ;; .mii or r8 = r14, r17 mov ar.pfs = r42 mov b0 = r41 .mib nop 0 .label_state 5 .restore sp mov r12 = r43 br.ret.sptk.many b0 .L39: .body .copy_state 5 .mib nop 0 cmp.ltu p6, p7 = 24, r21 (p6) br.cond.dptk .L43 ;; .mib nop 0 cmp.ltu p6, p7 = 24, r14 (p6) br.cond.dptk .L45 .mmi shladd r15 = r14, 3, r0 adds r14 = 8, r23 shladd r16 = r20, 2, r0 .mmb shladd r19 = r20, 3, r0 ld8 r18 = [r23], 16 nop 0 ;; .mmi ld8 r17 = [r14] addl r14 = 2, r0 adds r15 = -65, r15 .mmb sub r16 = 32, r16 ld8 r20 = [r23] nop 0 ;; .mii nop 0 sxt4 r15 = r15 sxt4 r16 = r16 .mii nop 0 shr r18 = r18, r19 ;; shl r14 = r14, r15 .mii nop 0 shl r15 = r17, r16 shr r17 = r17, r19 ;; .mii nop 0 shl r15 = r15, r16 adds r14 = -1, r14 ;; .mii and r14 = r20, r14 or r8 = r15, r18 ;; shl r15 = r14, r16 .mii nop 0 shr r10 = r14, r19 ;; shl r15 = r15, r16 ;; .mii or r9 = r15, r17 mov ar.pfs = r42 mov b0 = r41 .mib nop 0 .label_state 6 .restore sp mov r12 = r43 br.ret.sptk.many b0 .L41: .body .copy_state 6 .mfi shladd r16 = r14, 3, r0 nop 0 adds r14 = 8, r23 .mfi ld8 r18 = [r23], 16 nop 0 shladd r15 = r20, 3, r0 ;; .mmi ld8 r17 = [r14] addl r14 = 2, r0 adds r16 = -129, r16 .mmi ld8 r20 = [r23] mov r19 = r15 sub r15 = 64, r15 ;; .mii nop 0 sxt4 r16 = r16 sxt4 r15 = r15 ;; .mii nop 0 shl r14 = r14, r16 shr r18 = r18, r19 .mii nop 0 shl r16 = r17, r15 shr r17 = r17, r19 ;; .mmi adds r14 = -1, r14 ;; and r14 = r20, r14 or r8 = r16, r18 ;; .mib nop 0 shl r14 = r14, r15 nop 0 ;; .mii or r9 = r14, r17 mov ar.pfs = r42 mov b0 = r41 .mib nop 0 .label_state 7 .restore sp mov r12 = r43 br.ret.sptk.many b0 .L45: .body .copy_state 7 .mmi shladd r16 = r14, 3, r0 adds r14 = 24, r23 shladd r15 = r20, 3, r0 .mmi adds r18 = 8, r23 ld8 r20 = [r23] adds r19 = 16, r23 ;; .mmi ld8 r22 = [r14] addl r14 = 2, r0 adds r16 = -129, r16 .mmi mov r17 = r15 ld8 r18 = [r18] sub r15 = 64, r15 ;; .mib nop 0 sxt4 r16 = r16 nop 0 .mii ld8 r19 = [r19] sxt4 r15 = r15 ;; shl r14 = r14, r16 .mii nop 0 shr r21 = r19, r17 shl r16 = r18, r15 .mii nop 0 shr r20 = r20, r17 shr r18 = r18, r17 .mii nop 0 shl r19 = r19, r15 ;; nop 0 .mmi adds r14 = -1, r14 ;; and r14 = r22, r14 or r8 = r16, r20 .mii nop 0 or r9 = r19, r18 ;; shl r14 = r14, r15 ;; .mii or r10 = r14, r21 mov ar.pfs = r42 mov b0 = r41 .mib nop 0 .label_state 8 .restore sp mov r12 = r43 br.ret.sptk.many b0 .L43: .body .copy_state 8 .mib nop 0 cmp.ltu p6, p7 = 32, r14 (p6) br.cond.dptk .L47 .mmi adds r15 = 24, r23 shladd r14 = r14, 3, r0 adds r17 = 8, r23 .mmi shladd r16 = r20, 2, r0 adds r18 = 16, r23 shladd r20 = r20, 3, r0 ;; .mmi nop 0 ld8 r22 = [r15] addl r15 = 2, r0 .mmi adds r14 = -65, r14 ld8 r19 = [r17] sub r16 = 32, r16 ;; .mii nop 0 sxt4 r14 = r14 sxt4 r16 = r16 .mmb ld8 r21 = [r18] ld8 r18 = [r23] nop 0 ;; .mii nop 0 shl r15 = r15, r14 shl r14 = r19, r16 .mii nop 0 shr r18 = r18, r20 shl r17 = r21, r16 ;; .mii nop 0 shl r14 = r14, r16 shr r19 = r19, r20 .mii adds r15 = -1, r15 shl r17 = r17, r16 shr r21 = r21, r20 ;; .mmi nop 0 and r15 = r22, r15 or r8 = r14, r18 .mmi or r9 = r17, r19 ;; nop 0 shl r14 = r15, r16 .mii nop 0 shr r11 = r15, r20 ;; shl r14 = r14, r16 ;; .mii or r10 = r14, r21 mov ar.pfs = r42 mov b0 = r41 .mib nop 0 .label_state 9 .restore sp mov r12 = r43 br.ret.sptk.many b0 .L47: .body .copy_state 9 .mmb shladd r16 = r14, 3, r0 adds r14 = 32, r23 nop 0 .mmi adds r18 = 8, r23 adds r19 = 16, r23 shladd r15 = r20, 3, r0 ;; .mfi ld8 r22 = [r14] nop 0 adds r14 = 24, r23 .mmi ld8 r20 = [r18] adds r16 = -129, r16 mov r17 = r15 .mfi ld8 r18 = [r19] nop 0 sub r15 = 64, r15 ;; .mmi ld8 r19 = [r14] addl r14 = 2, r0 sxt4 r16 = r16 .mii nop 0 sxt4 r15 = r15 ;; shl r21 = r20, r15 .mii nop 0 shr r20 = r20, r17 shl r14 = r14, r16 .mii ld8 r16 = [r23] shr r23 = r19, r17 shl r19 = r19, r15 ;; .mii nop 0 shr r16 = r16, r17 shr r17 = r18, r17 .mii adds r14 = -1, r14 shl r18 = r18, r15 ;; and r14 = r22, r14 .mmi nop 0 or r8 = r21, r16 or r10 = r19, r17 .mii nop 0 or r9 = r18, r20 ;; shl r14 = r14, r15 ;; .mii or r11 = r14, r23 mov ar.pfs = r42 mov b0 = r41 .mib nop 0 .restore sp mov r12 = r43 br.ret.sptk.many b0 .endp vacall_receiver# .ident "GCC: (GNU) 4.0.1" #if defined __linux__ || defined __FreeBSD__ || defined __FreeBSD_kernel__ || defined __DragonFly__ .section .note.GNU-stack,"",@progbits #endif libffcall-2.2/vacall/vacall-hppa64.c0000664000000000000000000003141113347755335014153 00000000000000/* vacall function for hppa64 CPU */ /* * Copyright 1995-2017 Bruno Haible * * This program is free software: you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by * the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program. If not, see . */ #include "vacall-internal.h" #ifdef REENTRANT #define vacall_receiver callback_receiver register struct { void (*vacall_function) (void*,va_alist); void* arg; } * env __asm__("%r31"); #endif register __vaword arg1 __asm__("r26"); register __vaword arg2 __asm__("r25"); register __vaword arg3 __asm__("r24"); register __vaword arg4 __asm__("r23"); register __vaword arg5 __asm__("r22"); register __vaword arg6 __asm__("r21"); register __vaword arg7 __asm__("r20"); register __vaword arg8 __asm__("r19"); /*register float farg1 __asm__("fr4R");*/ /*register float farg2 __asm__("fr5R");*/ /*register float farg3 __asm__("fr6R");*/ /*register float farg4 __asm__("fr7R");*/ /*register float farg5 __asm__("fr8R");*/ /*register float farg6 __asm__("fr9R");*/ /*register float farg7 __asm__("fr10R");*/ /*register float farg8 __asm__("fr11R");*/ register double darg1 __asm__("fr4"); register double darg2 __asm__("fr5"); register double darg3 __asm__("fr6"); register double darg4 __asm__("fr7"); register double darg5 __asm__("fr8"); register double darg6 __asm__("fr9"); register double darg7 __asm__("fr10"); register double darg8 __asm__("fr11"); register __vaword iret __asm__("r28"); register __vaword iret2 __asm__("r29"); void /* the return type is variable, not void! */ vacall_receiver (__vaword word1, __vaword word2, __vaword word3, __vaword word4, __vaword word5, __vaword word6, __vaword word7, __vaword word8, __vaword firstword) { __va_alist list; /* Move the arguments passed in registers to their stack locations. */ (&firstword)[-8] = word1; (&firstword)[-7] = word2; (&firstword)[-6] = word3; (&firstword)[-5] = word4; (&firstword)[-4] = word5; (&firstword)[-3] = word6; (&firstword)[-2] = word7; (&firstword)[-1] = word8; __asm__ __volatile__ ("fstw %%fr4R,%0" : : "m" (list.farg[0])); /* list.farg[0] = farg1; */ __asm__ __volatile__ ("fstw %%fr5R,%0" : : "m" (list.farg[1])); /* list.farg[1] = farg2; */ __asm__ __volatile__ ("fstw %%fr6R,%0" : : "m" (list.farg[2])); /* list.farg[2] = farg3; */ __asm__ __volatile__ ("fstw %%fr7R,%0" : : "m" (list.farg[3])); /* list.farg[3] = farg4; */ __asm__ __volatile__ ("fstw %%fr8R,%0" : : "m" (list.farg[4])); /* list.farg[4] = farg5; */ __asm__ __volatile__ ("fstw %%fr9R,%0" : : "m" (list.farg[5])); /* list.farg[5] = farg6; */ __asm__ __volatile__ ("fstw %%fr10R,%0" : : "m" (list.farg[6])); /* list.farg[6] = farg7; */ __asm__ __volatile__ ("fstw %%fr11R,%0" : : "m" (list.farg[7])); /* list.farg[7] = farg8; */ list.darg[0] = darg1; list.darg[1] = darg2; list.darg[2] = darg3; list.darg[3] = darg4; list.darg[4] = darg5; list.darg[5] = darg6; list.darg[6] = darg7; list.darg[7] = darg8; /* Prepare the va_alist. */ list.flags = 0; list.aptr = (long)(&firstword - 8); list.raddr = (void*)0; list.rtype = __VAvoid; list.memargptr = (long)&firstword; /* Call vacall_function. The macros do all the rest. */ #ifndef REENTRANT (*vacall_function) (&list); #else /* REENTRANT */ (*env->vacall_function) (env->arg,&list); #endif /* Put return value into proper register. */ if (list.rtype == __VAvoid) { } else if (list.rtype == __VAchar) { iret = list.tmp._char; } else if (list.rtype == __VAschar) { iret = list.tmp._schar; } else if (list.rtype == __VAuchar) { iret = list.tmp._uchar; } else if (list.rtype == __VAshort) { iret = list.tmp._short; } else if (list.rtype == __VAushort) { iret = list.tmp._ushort; } else if (list.rtype == __VAint) { iret = list.tmp._int; } else if (list.rtype == __VAuint) { iret = list.tmp._uint; } else if (list.rtype == __VAlong || list.rtype == __VAlonglong) { iret = list.tmp._long; } else if (list.rtype == __VAulong || list.rtype == __VAulonglong) { iret = list.tmp._ulong; } else if (list.rtype == __VAfloat) { __asm__ __volatile__ ("fldw %0,%%fr4R" : : "m" (list.tmp._float)); /* farg1 = list.tmp._float; */ iret = *(unsigned int *)&list.tmp._float; } else if (list.rtype == __VAdouble) { darg1 = list.tmp._double; iret = *(unsigned long*)&list.tmp._double; } else if (list.rtype == __VAvoidp) { iret = (long)list.tmp._ptr; } else if (list.rtype == __VAstruct) { if (list.flags & __VA_REGISTER_STRUCT_RETURN) { #if 0 /* Unoptimized */ if (list.rsize == 1) { iret = (__vaword)((unsigned char *) list.raddr)[0] << 56; } else if (list.rsize == 2) { iret = ((__vaword)((unsigned char *) list.raddr)[0] << 56) | ((__vaword)((unsigned char *) list.raddr)[1] << 48); } else if (list.rsize == 3) { iret = ((__vaword)((unsigned char *) list.raddr)[0] << 56) | ((__vaword)((unsigned char *) list.raddr)[1] << 48) | ((__vaword)((unsigned char *) list.raddr)[2] << 40); } else if (list.rsize == 4) { iret = ((__vaword)((unsigned char *) list.raddr)[0] << 56) | ((__vaword)((unsigned char *) list.raddr)[1] << 48) | ((__vaword)((unsigned char *) list.raddr)[2] << 40) | ((__vaword)((unsigned char *) list.raddr)[3] << 32); } else if (list.rsize == 5) { iret = ((__vaword)((unsigned char *) list.raddr)[0] << 56) | ((__vaword)((unsigned char *) list.raddr)[1] << 48) | ((__vaword)((unsigned char *) list.raddr)[2] << 40) | ((__vaword)((unsigned char *) list.raddr)[3] << 32) | ((__vaword)((unsigned char *) list.raddr)[4] << 24); } else if (list.rsize == 6) { iret = ((__vaword)((unsigned char *) list.raddr)[0] << 56) | ((__vaword)((unsigned char *) list.raddr)[1] << 48) | ((__vaword)((unsigned char *) list.raddr)[2] << 40) | ((__vaword)((unsigned char *) list.raddr)[3] << 32) | ((__vaword)((unsigned char *) list.raddr)[4] << 24) | ((__vaword)((unsigned char *) list.raddr)[5] << 16); } else if (list.rsize == 7) { iret = ((__vaword)((unsigned char *) list.raddr)[0] << 56) | ((__vaword)((unsigned char *) list.raddr)[1] << 48) | ((__vaword)((unsigned char *) list.raddr)[2] << 40) | ((__vaword)((unsigned char *) list.raddr)[3] << 32) | ((__vaword)((unsigned char *) list.raddr)[4] << 24) | ((__vaword)((unsigned char *) list.raddr)[5] << 16) | ((__vaword)((unsigned char *) list.raddr)[6] << 8); } else if (list.rsize >= 8 && list.rsize <= 16) { iret = ((__vaword)((unsigned char *) list.raddr)[0] << 56) | ((__vaword)((unsigned char *) list.raddr)[1] << 48) | ((__vaword)((unsigned char *) list.raddr)[2] << 40) | ((__vaword)((unsigned char *) list.raddr)[3] << 32) | ((__vaword)((unsigned char *) list.raddr)[4] << 24) | ((__vaword)((unsigned char *) list.raddr)[5] << 16) | ((__vaword)((unsigned char *) list.raddr)[6] << 8) | (__vaword)((unsigned char *) list.raddr)[7]; if (list.rsize == 8) { } else if (list.rsize == 9) { iret2 = (__vaword)((unsigned char *) list.raddr)[8] << 56; } else if (list.rsize == 10) { iret2 = ((__vaword)((unsigned char *) list.raddr)[8] << 56) | ((__vaword)((unsigned char *) list.raddr)[9] << 48); } else if (list.rsize == 11) { iret2 = ((__vaword)((unsigned char *) list.raddr)[8] << 56) | ((__vaword)((unsigned char *) list.raddr)[9] << 48) | ((__vaword)((unsigned char *) list.raddr)[10] << 40); } else if (list.rsize == 12) { iret2 = ((__vaword)((unsigned char *) list.raddr)[8] << 56) | ((__vaword)((unsigned char *) list.raddr)[9] << 48) | ((__vaword)((unsigned char *) list.raddr)[10] << 40) | ((__vaword)((unsigned char *) list.raddr)[11] << 32); } else if (list.rsize == 13) { iret2 = ((__vaword)((unsigned char *) list.raddr)[8] << 56) | ((__vaword)((unsigned char *) list.raddr)[9] << 48) | ((__vaword)((unsigned char *) list.raddr)[10] << 40) | ((__vaword)((unsigned char *) list.raddr)[11] << 32) | ((__vaword)((unsigned char *) list.raddr)[12] << 24); } else if (list.rsize == 14) { iret2 = ((__vaword)((unsigned char *) list.raddr)[8] << 56) | ((__vaword)((unsigned char *) list.raddr)[9] << 48) | ((__vaword)((unsigned char *) list.raddr)[10] << 40) | ((__vaword)((unsigned char *) list.raddr)[11] << 32) | ((__vaword)((unsigned char *) list.raddr)[12] << 24) | ((__vaword)((unsigned char *) list.raddr)[13] << 16); } else if (list.rsize == 15) { iret2 = ((__vaword)((unsigned char *) list.raddr)[8] << 56) | ((__vaword)((unsigned char *) list.raddr)[9] << 48) | ((__vaword)((unsigned char *) list.raddr)[10] << 40) | ((__vaword)((unsigned char *) list.raddr)[11] << 32) | ((__vaword)((unsigned char *) list.raddr)[12] << 24) | ((__vaword)((unsigned char *) list.raddr)[13] << 16) | ((__vaword)((unsigned char *) list.raddr)[14] << 8); } else if (list.rsize == 16) { iret2 = ((__vaword)((unsigned char *) list.raddr)[8] << 56) | ((__vaword)((unsigned char *) list.raddr)[9] << 48) | ((__vaword)((unsigned char *) list.raddr)[10] << 40) | ((__vaword)((unsigned char *) list.raddr)[11] << 32) | ((__vaword)((unsigned char *) list.raddr)[12] << 24) | ((__vaword)((unsigned char *) list.raddr)[13] << 16) | ((__vaword)((unsigned char *) list.raddr)[14] << 8) | (__vaword)((unsigned char *) list.raddr)[15]; } } #else /* Optimized: fewer conditional jumps, fewer memory accesses */ uintptr_t count = list.rsize; /* > 0, ≤ 2*sizeof(__vaword) */ __vaword* wordaddr = (__vaword*)((uintptr_t)list.raddr & ~(uintptr_t)(sizeof(__vaword)-1)); uintptr_t start_offset = (uintptr_t)list.raddr & (uintptr_t)(sizeof(__vaword)-1); /* ≥ 0, < sizeof(__vaword) */ uintptr_t end_offset = start_offset + count; /* > 0, < 3*sizeof(__vaword) */ if (count <= sizeof(__vaword)) { /* Assign iret. */ if (end_offset <= sizeof(__vaword)) { /* 0 < end_offset ≤ sizeof(__vaword) */ __vaword mask0 = - ((__vaword)1 << (sizeof(__vaword)*8-end_offset*8)); iret = (wordaddr[0] & mask0) << (start_offset*8); } else { /* sizeof(__vaword) < end_offset < 2*sizeof(__vaword), start_offset > 0 */ __vaword mask1 = - ((__vaword)1 << (2*sizeof(__vaword)*8-end_offset*8)); iret = (wordaddr[0] << (start_offset*8)) | ((wordaddr[1] & mask1) >> (sizeof(__vaword)*8-start_offset*8)); } } else { /* Assign iret, iret2. */ if (end_offset <= 2*sizeof(__vaword)) { /* sizeof(__vaword) < end_offset ≤ 2*sizeof(__vaword) */ __vaword mask1 = - ((__vaword)1 << (2*sizeof(__vaword)*8-end_offset*8)); iret = (wordaddr[0] << (start_offset*8)) | ((wordaddr[1] & mask1) >> (sizeof(__vaword)*4-start_offset*4) >> (sizeof(__vaword)*4-start_offset*4)); iret2 = (wordaddr[1] & mask1) << (start_offset*8); } else { /* 2*sizeof(__vaword) < end_offset < 3*sizeof(__vaword), start_offset > 0 */ __vaword mask2 = - ((__vaword)1 << (3*sizeof(__vaword)*8-end_offset*8)); iret = (wordaddr[0] << (start_offset*8)) | (wordaddr[1] >> (sizeof(__vaword)*8-start_offset*8)); iret2 = (wordaddr[1] << (start_offset*8)) | ((wordaddr[2] & mask2) >> (sizeof(__vaword)*8-start_offset*8)); } } #endif } else { iret = (long)list.raddr; } } } #ifdef REENTRANT __vacall_r_t callback_get_receiver (void) { return (__vacall_r_t)(void*)&callback_receiver; } #endif libffcall-2.2/vacall/vacall-mips64eb-macro.S0000664000000000000000000001107213530357111015542 00000000000000#include "asm-mips.h" .file 1 "vacall-mips64.c" .text .align 2 .align 3 .globl vacall_receiver .set nomips16 .set nomicromips .ent vacall_receiver DECLARE_FUNCTION(vacall_receiver) vacall_receiver: .frame $fp,272,$31 .mask 0xd0070000,-72 .fmask 0x00000000,0 .set noreorder .set nomacro daddiu $sp,$sp,-272 sd $28,184($sp) lui $28,%hi(%neg(%gp_rel(vacall_receiver))) daddu $28,$28,$25 daddiu $28,$28,%lo(%neg(%gp_rel(vacall_receiver))) ld $12,%got_disp(vacall_function)($28) sd $fp,192($sp) move $fp,$sp ld $25,0($12) daddiu $12,$fp,208 sd $31,200($sp) sd $18,176($sp) sd $17,168($sp) sd $16,160($sp) sd $4,208($fp) sd $5,216($fp) sd $6,224($fp) sd $7,232($fp) sd $8,240($fp) sd $9,248($fp) sd $10,256($fp) sd $11,264($fp) sdc1 $f12,96($fp) sdc1 $f13,104($fp) sdc1 $f14,112($fp) sdc1 $f15,120($fp) sdc1 $f16,128($fp) sdc1 $f17,136($fp) sdc1 $f18,144($fp) sdc1 $f19,152($fp) swc1 $f12,60($fp) swc1 $f13,64($fp) swc1 $f14,68($fp) swc1 $f15,72($fp) swc1 $f16,76($fp) swc1 $f17,80($fp) swc1 $f18,84($fp) swc1 $f19,88($fp) move $4,$fp sw $0,0($fp) sd $12,24($fp) sd $0,32($fp) sw $0,40($fp) jalr $25 sw $0,56($fp) lw $12,40($fp) beq $12,$0,.L1 li $13,1 beq $12,$13,.L43 li $13,2 beq $12,$13,.L43 li $13,3 beq $12,$13,.L46 li $13,4 beq $12,$13,.L47 li $13,5 beq $12,$13,.L48 li $13,6 beq $12,$13,.L49 li $13,7 beq $12,$13,.L50 li $13,8 beq $12,$13,.L44 li $13,9 beq $12,$13,.L44 li $13,10 beq $12,$13,.L44 li $13,11 beq $12,$13,.L44 li $13,12 beq $12,$13,.L51 li $13,13 beq $12,$13,.L52 li $13,14 beq $12,$13,.L44 li $13,15 bnel $12,$13,.L58 move $sp,$fp lw $12,0($fp) andi $13,$12,0x400 beq $13,$0,.L1 andi $13,$12,0x4 beq $13,$0,.L19 ld $14,48($fp) ld $12,48($fp) li $13,1 beq $12,$13,.L53 li $13,2 beq $12,$13,.L54 li $13,4 beq $12,$13,.L55 li $13,8 bnel $12,$13,.L58 move $sp,$fp ld $12,32($fp) ld $2,0($12) .L1: move $sp,$fp .L58: ld $31,200($sp) ld $fp,192($sp) ld $28,184($sp) ld $18,176($sp) ld $17,168($sp) ld $16,160($sp) j $31 daddiu $sp,$sp,272 .align 3 .L43: move $sp,$fp ld $31,200($sp) ld $28,184($sp) ld $18,176($sp) ld $17,168($sp) ld $16,160($sp) lb $2,8($fp) ld $fp,192($sp) j $31 daddiu $sp,$sp,272 .align 3 .L44: b .L1 ld $2,8($fp) .align 3 .L46: b .L1 lbu $2,8($fp) .align 3 .L47: b .L1 lh $2,8($fp) .align 3 .L48: b .L1 lhu $2,8($fp) .align 3 .L49: b .L1 lw $2,8($fp) .align 3 .L51: b .L1 lwc1 $f0,8($fp) .align 3 .L50: b .L1 lwu $2,8($fp) .L52: b .L1 ldc1 $f0,8($fp) .L19: daddiu $13,$14,-1 sltu $13,$13,16 beql $13,$0,.L59 andi $13,$12,0x800 ld $13,32($fp) li $24,-8 sltu $25,$14,9 andi $15,$13,0x7 and $24,$13,$24 beq $25,$0,.L24 daddu $13,$14,$15 sltu $25,$13,9 sll $13,$13,0 beq $25,$0,.L25 subu $13,$0,$13 ld $25,0($24) sll $13,$13,3 li $24,-1 dsll $13,$24,$13 and $13,$13,$25 sll $15,$15,3 dsll $2,$13,$15 .L23: andi $13,$12,0x800 .L59: beql $13,$0,.L27 andi $12,$12,0x1000 li $13,4 beq $14,$13,.L56 li $13,8 beql $14,$13,.L57 ld $13,32($fp) andi $12,$12,0x1000 beql $12,$0,.L58 move $sp,$fp li $12,16 .L60: bnel $14,$12,.L58 move $sp,$fp ld $12,32($fp) ldc1 $f0,0($12) b .L1 ldc1 $f2,8($12) .L27: beq $12,$0,.L1 li $12,8 bne $14,$12,.L60 li $12,16 ld $13,32($fp) b .L1 ldc1 $f0,0($13) .L24: sltu $25,$13,17 beq $25,$0,.L26 sll $13,$13,0 ld $18,8($24) subu $13,$0,$13 move $16,$15 li $25,-1 subu $15,$0,$15 sll $13,$13,3 dsll $13,$25,$13 ld $17,0($24) sll $25,$15,2 addiu $24,$25,32 and $13,$13,$18 sll $15,$16,3 dsra $25,$13,$24 dsll $16,$17,$15 dsra $24,$25,$24 or $2,$16,$24 b .L23 dsll $3,$13,$15 .L53: ld $12,32($fp) b .L1 lbu $2,0($12) .L54: ld $12,32($fp) b .L1 lhu $2,0($12) .L26: ld $18,16($24) subu $13,$0,$13 ld $16,8($24) ld $17,0($24) subu $25,$0,$15 sll $13,$13,3 li $24,-1 dsll $24,$24,$13 sll $25,$25,3 sll $15,$15,3 addiu $25,$25,64 and $13,$24,$18 dsra $13,$13,$25 dsll $24,$17,$15 dsra $17,$16,$25 dsll $15,$16,$15 or $2,$24,$17 b .L23 or $3,$13,$15 .L56: ld $12,32($fp) b .L1 lwc1 $f0,0($12) .L55: ld $12,32($fp) b .L1 lwu $2,0($12) .L25: ld $16,8($24) ld $25,0($24) sll $13,$13,3 li $24,-1 dsll $13,$24,$13 subu $24,$0,$15 and $13,$13,$16 sll $24,$24,3 sll $15,$15,3 dsra $13,$13,$24 dsll $15,$25,$15 b .L23 or $2,$13,$15 .L57: andi $12,$12,0x1000 lwc1 $f0,0($13) beq $12,$0,.L1 lwc1 $f2,4($13) b .L1 ldc1 $f0,0($13) .set macro .set reorder .end vacall_receiver .size vacall_receiver, .-vacall_receiver libffcall-2.2/vacall/vacall-mips64el-macro.S0000664000000000000000000001122313530357111015552 00000000000000#include "asm-mips.h" .file 1 "vacall-mips64.c" .text .align 2 .align 3 .globl vacall_receiver .set nomips16 .set nomicromips .ent vacall_receiver DECLARE_FUNCTION(vacall_receiver) vacall_receiver: .frame $fp,272,$31 .mask 0xd0070000,-72 .fmask 0x00000000,0 .set noreorder .set nomacro daddiu $sp,$sp,-272 sd $28,184($sp) lui $28,%hi(%neg(%gp_rel(vacall_receiver))) daddu $28,$28,$25 daddiu $28,$28,%lo(%neg(%gp_rel(vacall_receiver))) ld $12,%got_disp(vacall_function)($28) sd $fp,192($sp) move $fp,$sp ld $25,0($12) daddiu $12,$fp,208 sd $31,200($sp) sd $18,176($sp) sd $17,168($sp) sd $16,160($sp) sd $4,208($fp) sd $5,216($fp) sd $6,224($fp) sd $7,232($fp) sd $8,240($fp) sd $9,248($fp) sd $10,256($fp) sd $11,264($fp) sdc1 $f12,96($fp) sdc1 $f13,104($fp) sdc1 $f14,112($fp) sdc1 $f15,120($fp) sdc1 $f16,128($fp) sdc1 $f17,136($fp) sdc1 $f18,144($fp) sdc1 $f19,152($fp) swc1 $f12,60($fp) swc1 $f13,64($fp) swc1 $f14,68($fp) swc1 $f15,72($fp) swc1 $f16,76($fp) swc1 $f17,80($fp) swc1 $f18,84($fp) swc1 $f19,88($fp) move $4,$fp sw $0,0($fp) sd $12,24($fp) sd $0,32($fp) sw $0,40($fp) jalr $25 sw $0,56($fp) lw $12,40($fp) beq $12,$0,.L1 li $13,1 beq $12,$13,.L43 li $13,2 beq $12,$13,.L43 li $13,3 beq $12,$13,.L46 li $13,4 beq $12,$13,.L47 li $13,5 beq $12,$13,.L48 li $13,6 beq $12,$13,.L49 li $13,7 beq $12,$13,.L50 li $13,8 beq $12,$13,.L44 li $13,9 beq $12,$13,.L44 li $13,10 beq $12,$13,.L44 li $13,11 beq $12,$13,.L44 li $13,12 beq $12,$13,.L51 li $13,13 beq $12,$13,.L52 li $13,14 beq $12,$13,.L44 li $13,15 bnel $12,$13,.L58 move $sp,$fp lw $12,0($fp) andi $13,$12,0x400 beq $13,$0,.L1 andi $13,$12,0x4 beq $13,$0,.L19 ld $14,48($fp) ld $12,48($fp) li $13,1 beq $12,$13,.L53 li $13,2 beq $12,$13,.L54 li $13,4 beq $12,$13,.L55 li $13,8 bnel $12,$13,.L58 move $sp,$fp ld $12,32($fp) ld $2,0($12) .L1: move $sp,$fp .L58: ld $31,200($sp) ld $fp,192($sp) ld $28,184($sp) ld $18,176($sp) ld $17,168($sp) ld $16,160($sp) j $31 daddiu $sp,$sp,272 .align 3 .L43: move $sp,$fp ld $31,200($sp) ld $28,184($sp) ld $18,176($sp) ld $17,168($sp) ld $16,160($sp) lb $2,8($fp) ld $fp,192($sp) j $31 daddiu $sp,$sp,272 .align 3 .L44: b .L1 ld $2,8($fp) .align 3 .L46: b .L1 lbu $2,8($fp) .align 3 .L47: b .L1 lh $2,8($fp) .align 3 .L48: b .L1 lhu $2,8($fp) .align 3 .L49: b .L1 lw $2,8($fp) .align 3 .L51: b .L1 lwc1 $f0,8($fp) .align 3 .L50: b .L1 lwu $2,8($fp) .L52: b .L1 ldc1 $f0,8($fp) .L19: daddiu $13,$14,-1 sltu $13,$13,16 beql $13,$0,.L59 andi $13,$12,0x800 ld $13,32($fp) li $15,-8 sltu $25,$14,9 andi $24,$13,0x7 and $15,$13,$15 beq $25,$0,.L24 daddu $13,$14,$24 sltu $25,$13,9 beq $25,$0,.L25 dsll $13,$13,3 daddiu $13,$13,-1 ld $25,0($15) sll $13,$13,0 li $15,2 dsll $13,$15,$13 daddiu $13,$13,-1 and $13,$13,$25 sll $24,$24,3 dsra $2,$13,$24 .L23: andi $13,$12,0x800 .L59: beql $13,$0,.L27 andi $12,$12,0x1000 li $13,4 beq $14,$13,.L56 li $13,8 beql $14,$13,.L57 ld $13,32($fp) andi $12,$12,0x1000 beql $12,$0,.L58 move $sp,$fp li $12,16 .L60: bnel $14,$12,.L58 move $sp,$fp ld $12,32($fp) ldc1 $f0,0($12) b .L1 ldc1 $f2,8($12) .L27: beq $12,$0,.L1 li $12,8 bne $14,$12,.L60 li $12,16 ld $13,32($fp) b .L1 ldc1 $f0,0($13) .L24: sltu $25,$13,17 beq $25,$0,.L26 dsll $13,$13,3 daddiu $13,$13,-65 ld $17,8($15) li $25,2 sll $13,$13,0 dsll $13,$25,$13 subu $25,$0,$24 sll $25,$25,2 ld $16,0($15) daddiu $13,$13,-1 addiu $15,$25,32 and $13,$13,$17 sll $24,$24,3 dsll $25,$13,$15 dsra $16,$16,$24 dsll $15,$25,$15 or $2,$16,$15 b .L23 dsra $3,$13,$24 .L53: ld $12,32($fp) b .L1 lbu $2,0($12) .L54: ld $12,32($fp) b .L1 lhu $2,0($12) .L26: daddiu $13,$13,-129 ld $16,8($15) ld $17,0($15) sll $13,$13,0 ld $18,16($15) li $15,2 subu $25,$0,$24 dsll $15,$15,$13 daddiu $15,$15,-1 sll $25,$25,3 sll $24,$24,3 addiu $25,$25,64 and $13,$15,$18 dsll $13,$13,$25 dsra $15,$17,$24 dsll $17,$16,$25 dsra $24,$16,$24 or $2,$15,$17 b .L23 or $3,$13,$24 .L56: ld $12,32($fp) b .L1 lwc1 $f0,0($12) .L55: ld $12,32($fp) b .L1 lwu $2,0($12) .L25: daddiu $13,$13,-65 li $25,2 sll $13,$13,0 ld $17,8($15) dsll $13,$25,$13 ld $25,0($15) daddiu $13,$13,-1 subu $16,$0,$24 and $15,$13,$17 sll $24,$24,3 sll $13,$16,3 dsll $13,$15,$13 dsra $24,$25,$24 b .L23 or $2,$13,$24 .L57: andi $12,$12,0x1000 lwc1 $f0,0($13) beq $12,$0,.L1 lwc1 $f2,4($13) b .L1 ldc1 $f0,0($13) .set macro .set reorder .end vacall_receiver .size vacall_receiver, .-vacall_receiver libffcall-2.2/vacall/vacall-riscv32.c0000664000000000000000000002001013527104765014330 00000000000000/* vacall function for RISC-V 32-bit CPU */ /* * Copyright 1995-2019 Bruno Haible * * This program is free software: you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by * the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program. If not, see . */ #include "vacall-internal.h" #ifdef REENTRANT #define vacall_receiver callback_receiver register struct { void (*vacall_function) (void*,va_alist); void* arg; } * env __asm__("t2"); #endif register __vaword iarg1 __asm__("a0"); register __vaword iarg2 __asm__("a1"); register __vaword iarg3 __asm__("a2"); register __vaword iarg4 __asm__("a3"); register __vaword iarg5 __asm__("a4"); register __vaword iarg6 __asm__("a5"); register __vaword iarg7 __asm__("a6"); register __vaword iarg8 __asm__("a7"); register float farg1 __asm__("fa0"); register float farg2 __asm__("fa1"); register float farg3 __asm__("fa2"); register float farg4 __asm__("fa3"); register float farg5 __asm__("fa4"); register float farg6 __asm__("fa5"); register float farg7 __asm__("fa6"); register float farg8 __asm__("fa7"); register double darg1 __asm__("fa0"); register double darg2 __asm__("fa1"); register double darg3 __asm__("fa2"); register double darg4 __asm__("fa3"); register double darg5 __asm__("fa4"); register double darg6 __asm__("fa5"); register double darg7 __asm__("fa6"); register double darg8 __asm__("fa7"); register __vaword iret __asm__("a0"); register __vaword iret2 __asm__("a1"); register float fret __asm__("fa0"); register double dret __asm__("fa0"); /* The ABI requires that the first 8 general-purpose argument words are being passed in registers, even if these words belong to structs that are at most 2 words large. No room is allocated for these register words on the stack by the caller, but the callee allocates room for them - at the right place in the stack frame, that is, above the retaddr - if and only if they are part of a struct that extends to the stack and the address of this struct is taken. */ struct gpargsequence { __vaword word8; /* a7 */ __vaword firststackword; }; #ifdef REENTRANT static #endif void /* the return type is variable, not void! */ vacall_receiver (__vaword word1, __vaword word2, __vaword word3, __vaword word4, __vaword word5, __vaword word6, __vaword word7, struct gpargsequence gpargs) { __va_alist list; /* Move the arguments passed in registers to temp storage. */ list.iarg[0] = iarg1; list.iarg[1] = iarg2; list.iarg[2] = iarg3; list.iarg[3] = iarg4; list.iarg[4] = iarg5; list.iarg[5] = iarg6; list.iarg[6] = iarg7; list.iarg[7] = iarg8; /* = gpargs.word8 */ list.farg[0] = farg1; list.farg[1] = farg2; list.farg[2] = farg3; list.farg[3] = farg4; list.farg[4] = farg5; list.farg[5] = farg6; list.farg[6] = farg7; list.farg[7] = farg8; list.darg[0] = darg1; list.darg[1] = darg2; list.darg[2] = darg3; list.darg[3] = darg4; list.darg[4] = darg5; list.darg[5] = darg6; list.darg[6] = darg7; list.darg[7] = darg8; /* Prepare the va_alist. */ list.flags = 0; list.aptr = (long)&gpargs + sizeof(__vaword); list.raddr = (void*)0; list.rtype = __VAvoid; list.ianum = 0; list.fanum = 0; /* Call vacall_function. The macros do all the rest. */ #ifndef REENTRANT (*vacall_function) (&list); #else /* REENTRANT */ (*env->vacall_function) (env->arg,&list); #endif /* Put return value into proper register. */ if (list.rtype == __VAvoid) { } else if (list.rtype == __VAchar) { iret = list.tmp._char; } else if (list.rtype == __VAschar) { iret = list.tmp._schar; } else if (list.rtype == __VAuchar) { iret = list.tmp._uchar; } else if (list.rtype == __VAshort) { iret = list.tmp._short; } else if (list.rtype == __VAushort) { iret = list.tmp._ushort; } else if (list.rtype == __VAint) { iret = list.tmp._int; } else if (list.rtype == __VAuint) { iret = list.tmp._uint; } else if (list.rtype == __VAlong) { iret = list.tmp._long; } else if (list.rtype == __VAulong) { iret = list.tmp._ulong; } else if (list.rtype == __VAlonglong || list.rtype == __VAulonglong) { iret = ((__vaword *) &list.tmp._longlong)[0]; iret2 = ((__vaword *) &list.tmp._longlong)[1]; } else if (list.rtype == __VAfloat) { fret = list.tmp._float; } else if (list.rtype == __VAdouble) { dret = list.tmp._double; } else if (list.rtype == __VAvoidp) { iret = (long)list.tmp._ptr; } else if (list.rtype == __VAstruct) { /* normal struct return convention */ if (list.flags & __VA_SMALL_STRUCT_RETURN) { /* Return structs of size <= 8 in registers. */ if (list.rsize > 0 && list.rsize <= 8) { #if 1 /* Unoptimized */ iret = (__vaword)((unsigned char *) list.raddr)[0]; if (list.rsize >= 2) iret |= (__vaword)((unsigned char *) list.raddr)[1] << 8; if (list.rsize >= 3) iret |= (__vaword)((unsigned char *) list.raddr)[2] << 16; if (list.rsize >= 4) iret |= (__vaword)((unsigned char *) list.raddr)[3] << 24; if (list.rsize >= 5) { iret2 = (__vaword)((unsigned char *) list.raddr)[4]; if (list.rsize >= 6) iret2 |= (__vaword)((unsigned char *) list.raddr)[5] << 8; if (list.rsize >= 7) iret2 |= (__vaword)((unsigned char *) list.raddr)[6] << 16; if (list.rsize >= 8) iret2 |= (__vaword)((unsigned char *) list.raddr)[7] << 24; } #else /* Optimized: fewer conditional jumps, fewer memory accesses */ uintptr_t count = list.rsize; /* > 0, ≤ 2*sizeof(__vaword) */ __vaword* wordaddr = (__vaword*)((uintptr_t)list.raddr & ~(uintptr_t)(sizeof(__vaword)-1)); uintptr_t start_offset = (uintptr_t)list.raddr & (uintptr_t)(sizeof(__vaword)-1); /* ≥ 0, < sizeof(__vaword) */ uintptr_t end_offset = start_offset + count; /* > 0, < 3*sizeof(__vaword) */ if (count <= sizeof(__vaword)) { /* Assign iret. */ if (end_offset <= sizeof(__vaword)) { /* 0 < end_offset ≤ sizeof(__vaword) */ __vaword mask0 = ((__vaword)2 << (end_offset*8-1)) - 1; iret = (wordaddr[0] & mask0) >> (start_offset*8); } else { /* sizeof(__vaword) < end_offset < 2*sizeof(__vaword), start_offset > 0 */ __vaword mask1 = ((__vaword)2 << (end_offset*8-sizeof(__vaword)*8-1)) - 1; iret = (wordaddr[0] >> (start_offset*8)) | ((wordaddr[1] & mask1) << (sizeof(__vaword)*8-start_offset*8)); } } else { /* Assign iret, iret2. */ if (end_offset <= 2*sizeof(__vaword)) { /* sizeof(__vaword) < end_offset ≤ 2*sizeof(__vaword) */ __vaword mask1 = ((__vaword)2 << (end_offset*8-sizeof(__vaword)*8-1)) - 1; iret = (wordaddr[0] >> (start_offset*8)) | ((wordaddr[1] & mask1) << (sizeof(__vaword)*4-start_offset*4) << (sizeof(__vaword)*4-start_offset*4)); iret2 = (wordaddr[1] & mask1) >> (start_offset*8); } else { /* 2*sizeof(__vaword) < end_offset < 3*sizeof(__vaword), start_offset > 0 */ __vaword mask2 = ((__vaword)2 << (end_offset*8-2*sizeof(__vaword)*8-1)) - 1; iret = (wordaddr[0] >> (start_offset*8)) | (wordaddr[1] << (sizeof(__vaword)*8-start_offset*8)); iret2 = (wordaddr[1] >> (start_offset*8)) | ((wordaddr[2] & mask2) << (sizeof(__vaword)*8-start_offset*8)); } } #endif } } } } #ifdef REENTRANT __vacall_r_t callback_get_receiver (void) { return (__vacall_r_t)(void*)&callback_receiver; } #endif libffcall-2.2/vacall/vacall.h0000664000000000000000000004543713527104765013070 00000000000000/* * Copyright 1995-2019 Bruno Haible * * This program is free software: you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by * the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program. If not, see . */ #ifndef _VACALL_H #define _VACALL_H #include #include "ffcall-version.h" #include "ffcall-abi.h" /* Determine whether the current ABI is LLP64 ('long' = 32-bit, 'long long' = 'void*' = 64-bit). */ #if defined(__x86_64__) && defined(_WIN32) && !defined(__CYGWIN__) #define __VA_LLP64 1 #endif /* Determine the alignment of a type at compile time. */ #if defined(__GNUC__) || defined(__IBM__ALIGNOF__) #define __VA_alignof __alignof__ #elif defined(__cplusplus) template struct __VA_alignof_helper { char __slot1; type __slot2; }; #define __VA_alignof(type) offsetof (__VA_alignof_helper, __slot2) #elif defined(__mips__) || defined(__mipsn32__) || defined(__mips64__) /* SGI compiler */ #define __VA_alignof __builtin_alignof #else #define __VA_offsetof(type,ident) ((unsigned long)&(((type*)0)->ident)) #define __VA_alignof(type) __VA_offsetof(struct { char __slot1; type __slot2; }, __slot2) #endif #ifdef __cplusplus extern "C" { #endif /* C builtin types. */ #if defined(__mipsn32__) || defined(__x86_64_x32__) || defined(__VA_LLP64) typedef long long __vaword; #else typedef long __vaword; #endif enum __VAtype { __VAvoid, __VAchar, __VAschar, __VAuchar, __VAshort, __VAushort, __VAint, __VAuint, __VAlong, __VAulong, __VAlonglong, __VAulonglong, __VAfloat, __VAdouble, __VAvoidp, __VAstruct }; enum __VA_alist_flags { /* how to return structs */ /* There are basically 3 ways to return structs: * a. The called function returns a pointer to static data. Not reentrant. * Not supported any more. * b. The caller passes the return structure address in a dedicated register * or as a first (or last), invisible argument. The called function stores * its result there. * c. Like b, and the called function also returns the return structure * address in the return value register. (This is not very distinguishable * from b.) * Independently of this, * r. small structures (<= 4 or <= 8 bytes) may be returned in the return * value register(s), or * m. even small structures are passed in memory. */ /* gcc-2.6.3 employs the following strategy: * - If PCC_STATIC_STRUCT_RETURN is defined in the machine description * it uses method a, else method c. * - If flag_pcc_struct_return is set (either by -fpcc-struct-return or if * DEFAULT_PCC_STRUCT_RETURN is defined to 1 in the machine description) * it uses method m, else (either by -freg-struct-return or if * DEFAULT_PCC_STRUCT_RETURN is defined to 0 in the machine description) * method r. */ __VA_SMALL_STRUCT_RETURN = 1<<1, /* r: special case for small structs */ __VA_GCC_STRUCT_RETURN = 1<<2, /* consider 8 byte structs as small */ #if defined(__sparc__) && !defined(__sparc64__) __VA_SUNCC_STRUCT_RETURN = 1<<3, __VA_SUNPROCC_STRUCT_RETURN = 1<<4, #else __VA_SUNCC_STRUCT_RETURN = 0, __VA_SUNPROCC_STRUCT_RETURN = 0, #endif #if defined(__i386__) __VA_MSVC_STRUCT_RETURN = 1<<4, #endif /* the default way to return structs */ /* This choice here is based on the assumption that the function you are * going to call has been compiled with the same compiler you are using to * include this file. * If you want to call functions with another struct returning convention, * just #define __VA_STRUCT_RETURN ... * before or after #including . */ #ifndef __VA_STRUCT_RETURN __VA_STRUCT_RETURN = #if defined(__sparc__) && !defined(__sparc64__) && defined(__sun) && (defined(__SUNPRO_C) || defined(__SUNPRO_CC)) /* SUNWspro cc or CC */ __VA_SUNPROCC_STRUCT_RETURN, #else #if (defined(__i386__) && (defined(_WIN32) || defined(__CYGWIN__) || (defined(__MACH__) && defined(__APPLE__)) || defined(__FreeBSD__) || defined(__DragonFly__) || defined(__OpenBSD__))) || defined(__m68k__) || defined(__mipsn32__) || defined(__mips64__) || defined(__sparc64__) || defined(__hppa__) || defined(__hppa64__) || defined(__arm__) || defined(__armhf__) || defined(__arm64__) || defined(__powerpc64_elfv2__) || defined(__ia64__) || defined(__x86_64__) || defined(__riscv32__) || defined(__riscv64__) __VA_SMALL_STRUCT_RETURN | #endif #if defined(__GNUC__) && !((defined(__mipsn32__) || defined(__mips64__)) && ((__GNUC__ == 3 && __GNUC_MINOR__ >= 4) || (__GNUC__ > 3))) __VA_GCC_STRUCT_RETURN | #endif #if defined(__i386__) && defined(_WIN32) && !defined(__CYGWIN__) /* native Windows */ __VA_MSVC_STRUCT_RETURN | #endif 0, #endif #endif /* how to return floats */ #if defined(__m68k__) || (defined(__sparc__) && !defined(__sparc64__)) __VA_SUNCC_FLOAT_RETURN = 1<<5, #endif #if defined(__m68k__) __VA_FREG_FLOAT_RETURN = 1<<6, #endif /* the default way to return floats */ /* This choice here is based on the assumption that the function you are * going to call has been compiled with the same compiler you are using to * include this file. * If you want to call functions with another float returning convention, * just #define __VA_FLOAT_RETURN ... * before or after #including . */ #ifndef __VA_FLOAT_RETURN #if (defined(__m68k__) || (defined(__sparc__) && !defined(__sparc64__))) && !defined(__GNUC__) && defined(__sun) && !(defined(__SUNPRO_C) || defined(__SUNPRO_CC)) /* Sun cc or CC */ __VA_FLOAT_RETURN = __VA_SUNCC_FLOAT_RETURN, #elif defined(__m68k__) __VA_FLOAT_RETURN = __VA_FREG_FLOAT_RETURN, #else __VA_FLOAT_RETURN = 0, #endif #endif /* how to pass structs */ #if defined(__mips__) || defined(__mipsn32__) || defined(__mips64__) __VA_SGICC_STRUCT_ARGS = 1<<7, #endif #if defined(__powerpc__) || defined(__powerpc64__) __VA_AIXCC_STRUCT_ARGS = 1<<7, #endif #if defined(__ia64__) __VA_OLDGCC_STRUCT_ARGS = 1<<7, #endif /* the default way to pass structs */ /* This choice here is based on the assumption that the function you are * going to call has been compiled with the same compiler you are using to * include this file. * If you want to call functions with another structs passing convention, * just #define __VA_STRUCT_ARGS ... * before or after #including . */ #ifndef __VA_STRUCT_ARGS #if (defined(__mips__) && !defined(__mipsn32__) && !defined(__mips64__)) && !defined(__GNUC__) /* SGI mips cc */ __VA_STRUCT_ARGS = __VA_SGICC_STRUCT_ARGS, #else #if (defined(__mipsn32__) || defined(__mips64__)) && (!defined(__GNUC__) || (__GNUC__ == 3 && __GNUC_MINOR__ >= 4) || (__GNUC__ > 3)) /* SGI mips cc or gcc >= 3.4 */ __VA_STRUCT_ARGS = __VA_SGICC_STRUCT_ARGS, #else #if defined(__powerpc__) && !defined(__powerpc64__) && defined(_AIX) && !defined(__GNUC__) /* AIX 32-bit cc, xlc */ __VA_STRUCT_ARGS = __VA_AIXCC_STRUCT_ARGS, #else #if defined(__powerpc64__) && defined(_AIX) /* AIX 64-bit cc, xlc, gcc */ __VA_STRUCT_ARGS = __VA_AIXCC_STRUCT_ARGS, #else #if defined(__ia64__) && !(defined(__GNUC__) && (__GNUC__ >= 3)) __VA_STRUCT_ARGS = __VA_OLDGCC_STRUCT_ARGS, #else __VA_STRUCT_ARGS = 0, #endif #endif #endif #endif #endif #endif /* how to pass floats */ /* ANSI C compilers and GNU gcc pass floats as floats. * K&R C compilers pass floats as doubles. We don't support them any more. */ #if defined(__powerpc64__) __VA_AIXCC_FLOAT_ARGS = 1<<8, /* pass floats in the low 4 bytes of an 8-bytes word */ #endif /* the default way to pass floats */ /* This choice here is based on the assumption that the function you are * going to call has been compiled with the same compiler you are using to * include this file. * If you want to call functions with another float passing convention, * just #define __VA_FLOAT_ARGS ... * before or after #including . */ #ifndef __VA_FLOAT_ARGS #if defined(__powerpc64__) && defined(_AIX) && !defined(__GNUC__) /* AIX 64-bit xlc */ __VA_FLOAT_ARGS = __VA_AIXCC_FLOAT_ARGS, #else __VA_FLOAT_ARGS = 0, #endif #endif /* how to pass and return small integer arguments */ __VA_ANSI_INTEGERS = 0, /* no promotions */ __VA_TRADITIONAL_INTEGERS = 0, /* promote [u]char, [u]short to [u]int */ /* Fortunately these two methods are compatible. Our macros work with both. */ /* stack cleanup policy */ __VA_CDECL_CLEANUP = 0, /* caller pops args after return */ __VA_STDCALL_CLEANUP = 1<<9, /* callee pops args before return */ /* currently only supported on __i386__ */ #ifndef __VA_CLEANUP __VA_CLEANUP = __VA_CDECL_CLEANUP, #endif /* These are for internal use only */ #if defined(__i386__) || defined(__m68k__) || defined(__mipsn32__) || defined(__mips64__) || defined(__sparc64__) || defined(__alpha__) || defined(__hppa64__) || defined(__arm__) || defined(__armhf__) || defined(__arm64__) || defined(__powerpc__) || defined(__powerpc64__) || defined(__ia64__) || defined(__x86_64__) || (defined(__s390__) && !defined(__s390x__)) || defined(__riscv64__) __VA_REGISTER_STRUCT_RETURN = 1<<10, #endif #if defined(__mipsn32__) || defined(__mips64__) __VA_REGISTER_FLOATSTRUCT_RETURN = 1<<11, __VA_REGISTER_DOUBLESTRUCT_RETURN = 1<<12, #endif __VA_flag_for_broken_compilers_that_dont_like_trailing_commas }; /* * Definition of the ‘va_alist’ type. */ struct vacall_alist; typedef struct vacall_alist * va_alist; /* * Definition of the va_start_xxx macros. */ #define __VA_START_FLAGS \ __VA_STRUCT_RETURN | __VA_FLOAT_RETURN | __VA_STRUCT_ARGS | __VA_FLOAT_ARGS | __VA_CLEANUP extern void vacall_start (va_alist /* LIST */, int /* RETTYPE */, int /* FLAGS */); #define va_start_void(LIST) vacall_start(LIST,__VAvoid, __VA_START_FLAGS) #define va_start_char(LIST) vacall_start(LIST,__VAchar, __VA_START_FLAGS) #define va_start_schar(LIST) vacall_start(LIST,__VAschar, __VA_START_FLAGS) #define va_start_uchar(LIST) vacall_start(LIST,__VAuchar, __VA_START_FLAGS) #define va_start_short(LIST) vacall_start(LIST,__VAshort, __VA_START_FLAGS) #define va_start_ushort(LIST) vacall_start(LIST,__VAushort, __VA_START_FLAGS) #define va_start_int(LIST) vacall_start(LIST,__VAint, __VA_START_FLAGS) #define va_start_uint(LIST) vacall_start(LIST,__VAuint, __VA_START_FLAGS) #define va_start_long(LIST) vacall_start(LIST,__VAlong, __VA_START_FLAGS) #define va_start_ulong(LIST) vacall_start(LIST,__VAulong, __VA_START_FLAGS) #define va_start_longlong(LIST) vacall_start(LIST,__VAlonglong, __VA_START_FLAGS) #define va_start_ulonglong(LIST) vacall_start(LIST,__VAulonglong,__VA_START_FLAGS) #define va_start_float(LIST) vacall_start(LIST,__VAfloat, __VA_START_FLAGS) #define va_start_double(LIST) vacall_start(LIST,__VAdouble, __VA_START_FLAGS) #define va_start_ptr(LIST,TYPE) vacall_start(LIST,__VAvoidp, __VA_START_FLAGS) /* * va_start_struct: Preparing structure return. */ extern void vacall_start_struct (va_alist /* LIST */, size_t /* TYPE_SIZE */, size_t /* TYPE_ALIGN */, int /* TYPE_SPLITTABLE */, int /* FLAGS */); #define va_start_struct(LIST,TYPE,TYPE_SPLITTABLE) \ _va_start_struct(LIST,sizeof(TYPE),__VA_alignof(TYPE),TYPE_SPLITTABLE) /* _va_start_struct() is like va_start_struct(), except that you pass * the type's size and alignment instead of the type itself. * Undocumented, but used by GNU clisp. */ #define _va_start_struct(LIST,TYPE_SIZE,TYPE_ALIGN,TYPE_SPLITTABLE) \ vacall_start_struct(LIST,TYPE_SIZE,TYPE_ALIGN,TYPE_SPLITTABLE,__VA_START_FLAGS) /* * Definition of the va_arg_xxx macros. */ extern char vacall_arg_char (va_alist /* LIST */); extern signed char vacall_arg_schar (va_alist /* LIST */); extern unsigned char vacall_arg_uchar (va_alist /* LIST */); extern short vacall_arg_short (va_alist /* LIST */); extern unsigned short vacall_arg_ushort (va_alist /* LIST */); extern int vacall_arg_int (va_alist /* LIST */); extern unsigned int vacall_arg_uint (va_alist /* LIST */); extern long vacall_arg_long (va_alist /* LIST */); extern unsigned long vacall_arg_ulong (va_alist /* LIST */); #define va_arg_char(LIST) vacall_arg_char(LIST) #define va_arg_schar(LIST) vacall_arg_schar(LIST) #define va_arg_uchar(LIST) vacall_arg_uchar(LIST) #define va_arg_short(LIST) vacall_arg_short(LIST) #define va_arg_ushort(LIST) vacall_arg_ushort(LIST) #define va_arg_int(LIST) vacall_arg_int(LIST) #define va_arg_uint(LIST) vacall_arg_uint(LIST) #define va_arg_long(LIST) vacall_arg_long(LIST) #define va_arg_ulong(LIST) vacall_arg_ulong(LIST) extern long long vacall_arg_longlong (va_alist /* LIST */); extern unsigned long long vacall_arg_ulonglong (va_alist /* LIST */); #define va_arg_longlong(LIST) vacall_arg_longlong(LIST) #define va_arg_ulonglong(LIST) vacall_arg_ulonglong(LIST) /* Floating point arguments. */ extern float vacall_arg_float (va_alist /* LIST */); extern double vacall_arg_double (va_alist /* LIST */); #define va_arg_float(LIST) vacall_arg_float(LIST) #define va_arg_double(LIST) vacall_arg_double(LIST) /* Pointer arguments. */ extern void* vacall_arg_ptr (va_alist /* LIST */); #define va_arg_ptr(LIST,TYPE) ((TYPE)vacall_arg_ptr(LIST)) /* Structure arguments. */ extern void* vacall_arg_struct (va_alist /* LIST */, size_t /* TYPE_SIZE */, size_t /* TYPE_ALIGN */); #define va_arg_struct(LIST,TYPE) \ *(TYPE*)vacall_arg_struct(LIST,sizeof(TYPE),__VA_alignof(TYPE)) /* _va_arg_struct() is like va_arg_struct(), except that you pass the type's * size and alignment instead of the type and get the value's address instead * of the value itself. * Undocumented, but used by GNU clisp. */ #define _va_arg_struct(LIST,TYPE_SIZE,TYPE_ALIGN) \ vacall_arg_struct(LIST,TYPE_SIZE,TYPE_ALIGN) /* * Definition of the va_return_xxx macros. */ extern void vacall_return_void (va_alist /* LIST */); #define va_return_void(LIST) vacall_return_void(LIST) extern void vacall_return_char (va_alist /* LIST */, char /* VAL */); extern void vacall_return_schar (va_alist /* LIST */, signed char /* VAL */); extern void vacall_return_uchar (va_alist /* LIST */, unsigned char /* VAL */); extern void vacall_return_short (va_alist /* LIST */, short /* VAL */); extern void vacall_return_ushort (va_alist /* LIST */, unsigned short /* VAL */); extern void vacall_return_int (va_alist /* LIST */, int /* VAL */); extern void vacall_return_uint (va_alist /* LIST */, unsigned int /* VAL */); extern void vacall_return_long (va_alist /* LIST */, long /* VAL */); extern void vacall_return_ulong (va_alist /* LIST */, unsigned long /* VAL */); #define va_return_char(LIST,VAL) vacall_return_char(LIST,VAL) #define va_return_schar(LIST,VAL) vacall_return_schar(LIST,VAL) #define va_return_uchar(LIST,VAL) vacall_return_uchar(LIST,VAL) #define va_return_short(LIST,VAL) vacall_return_short(LIST,VAL) #define va_return_ushort(LIST,VAL) vacall_return_ushort(LIST,VAL) #define va_return_int(LIST,VAL) vacall_return_int(LIST,VAL) #define va_return_uint(LIST,VAL) vacall_return_uint(LIST,VAL) #define va_return_long(LIST,VAL) vacall_return_long(LIST,VAL) #define va_return_ulong(LIST,VAL) vacall_return_ulong(LIST,VAL) extern void vacall_return_longlong (va_alist /* LIST */, long long /* VAL */); extern void vacall_return_ulonglong (va_alist /* LIST */, unsigned long long /* VAL */); #define va_return_longlong(LIST,VAL) vacall_return_longlong(LIST,VAL) #define va_return_ulonglong(LIST,VAL) vacall_return_ulonglong(LIST,VAL) extern void vacall_return_float (va_alist /* LIST */, float /* VAL */); extern void vacall_return_double (va_alist /* LIST */, double /* VAL */); #define va_return_float(LIST,VAL) vacall_return_float(LIST,VAL) #define va_return_double(LIST,VAL) vacall_return_double(LIST,VAL) extern void vacall_return_ptr (va_alist /* LIST */, void* /* VAL */); #define va_return_ptr(LIST,TYPE,VAL) vacall_return_ptr(LIST,(void*)(TYPE)(VAL)) extern void vacall_return_struct (va_alist /* LIST */, size_t /* TYPE_SIZE */, size_t /* TYPE_ALIGN */, const void* /* VAL_ADDR */); #define va_return_struct(LIST,TYPE,VAL) \ _va_return_struct(LIST,sizeof(TYPE),__VA_alignof(TYPE),&(VAL)) /* Undocumented, but used by GNU clisp. */ #define _va_return_struct(LIST,TYPE_SIZE,TYPE_ALIGN,VAL_ADDR) \ vacall_return_struct(LIST,TYPE_SIZE,TYPE_ALIGN,VAL_ADDR) /* Determine whether a struct type is word-splittable, i.e. whether each of * its components fit into a register. * The entire computation is done at compile time. */ #define va_word_splittable_1(slot1) \ (__va_offset1(slot1)/sizeof(__vaword) == (__va_offset1(slot1)+sizeof(slot1)-1)/sizeof(__vaword)) #define va_word_splittable_2(slot1,slot2) \ ((__va_offset1(slot1)/sizeof(__vaword) == (__va_offset1(slot1)+sizeof(slot1)-1)/sizeof(__vaword)) \ && (__va_offset2(slot1,slot2)/sizeof(__vaword) == (__va_offset2(slot1,slot2)+sizeof(slot2)-1)/sizeof(__vaword)) \ ) #define va_word_splittable_3(slot1,slot2,slot3) \ ((__va_offset1(slot1)/sizeof(__vaword) == (__va_offset1(slot1)+sizeof(slot1)-1)/sizeof(__vaword)) \ && (__va_offset2(slot1,slot2)/sizeof(__vaword) == (__va_offset2(slot1,slot2)+sizeof(slot2)-1)/sizeof(__vaword)) \ && (__va_offset3(slot1,slot2,slot3)/sizeof(__vaword) == (__va_offset3(slot1,slot2,slot3)+sizeof(slot3)-1)/sizeof(__vaword)) \ ) #define va_word_splittable_4(slot1,slot2,slot3,slot4) \ ((__va_offset1(slot1)/sizeof(__vaword) == (__va_offset1(slot1)+sizeof(slot1)-1)/sizeof(__vaword)) \ && (__va_offset2(slot1,slot2)/sizeof(__vaword) == (__va_offset2(slot1,slot2)+sizeof(slot2)-1)/sizeof(__vaword)) \ && (__va_offset3(slot1,slot2,slot3)/sizeof(__vaword) == (__va_offset3(slot1,slot2,slot3)+sizeof(slot3)-1)/sizeof(__vaword)) \ && (__va_offset4(slot1,slot2,slot3,slot4)/sizeof(__vaword) == (__va_offset4(slot1,slot2,slot3,slot4)+sizeof(slot4)-1)/sizeof(__vaword)) \ ) #define __va_offset1(slot1) \ 0 #define __va_offset2(slot1,slot2) \ ((__va_offset1(slot1)+sizeof(slot1)+__VA_alignof(slot2)-1) & -(long)__VA_alignof(slot2)) #define __va_offset3(slot1,slot2,slot3) \ ((__va_offset2(slot1,slot2)+sizeof(slot2)+__VA_alignof(slot3)-1) & -(long)__VA_alignof(slot3)) #define __va_offset4(slot1,slot2,slot3,slot4) \ ((__va_offset3(slot1,slot2,slot3)+sizeof(slot3)+__VA_alignof(slot4)-1) & -(long)__VA_alignof(slot4)) /* * Miscellaneous declarations. */ #ifdef __cplusplus extern "C" void (*vacall) (); /* the return type is variable, not void! */ #else extern void (*vacall) (); /* the return type is variable, not void! */ #endif extern void (* vacall_function) (va_alist); #ifdef __cplusplus } #endif #endif /* _VACALL_H */ libffcall-2.2/vacall/vacall-s390x-linux.s0000664000000000000000000000364313530357113015104 00000000000000 .file "vacall-s390x.c" .text .align 8 .globl vacall_receiver .type vacall_receiver, @function vacall_receiver: .LFB0: .cfi_startproc stmg %r11,%r15,88(%r15) .cfi_offset 11, -72 .cfi_offset 12, -64 .cfi_offset 13, -56 .cfi_offset 14, -48 .cfi_offset 15, -40 aghi %r15,-320 .cfi_def_cfa_offset 480 lgr %r11,%r15 .cfi_def_cfa_register 11 larl %r1,vacall_function lhi %r0,0 lg %r1,0(%r1) st %r0,160(%r11) la %r0,480(%r11) stg %r0,184(%r11) lghi %r0,0 stg %r2,224(%r11) stg %r3,232(%r11) stg %r4,240(%r11) stg %r5,248(%r11) stg %r6,256(%r11) ste %f0,268(%r11) ste %f2,272(%r11) ste %f4,276(%r11) ste %f6,280(%r11) std %f0,288(%r11) std %f2,296(%r11) std %f4,304(%r11) std %f6,312(%r11) stg %r0,192(%r11) st %r0,200(%r11) st %r0,216(%r11) st %r0,264(%r11) la %r2,160(%r11) basr %r14,%r1 icm %r1,15,200(%r11) je .L1 chi %r1,1 je .L18 chi %r1,2 je .L21 chi %r1,3 je .L18 chi %r1,4 je .L22 chi %r1,5 je .L23 chi %r1,6 je .L24 chi %r1,7 je .L25 lr %r0,%r1 nill %r0,65533 chi %r0,8 je .L19 chi %r0,9 je .L19 chi %r1,12 je .L26 chi %r1,13 je .L27 chi %r1,14 je .L19 .L1: lg %r4,432(%r11) lmg %r11,%r15,408(%r11) .cfi_remember_state .cfi_restore 15 .cfi_restore 14 .cfi_restore 13 .cfi_restore 12 .cfi_restore 11 .cfi_def_cfa 15, 160 br %r4 .L18: .cfi_restore_state lg %r4,432(%r11) llgc %r2,168(%r11) lmg %r11,%r15,408(%r11) .cfi_remember_state .cfi_restore 11 .cfi_restore 12 .cfi_restore 13 .cfi_restore 14 .cfi_restore 15 .cfi_def_cfa 15, 160 br %r4 .L21: .cfi_restore_state icmh %r2,8,168(%r11) srag %r2,%r2,56 j .L1 .L19: lg %r2,168(%r11) j .L1 .L22: lgh %r2,168(%r11) j .L1 .L23: llgh %r2,168(%r11) j .L1 .L24: lgf %r2,168(%r11) j .L1 .L26: le %f0,168(%r11) j .L1 .L25: llgf %r2,168(%r11) j .L1 .L27: ld %f0,168(%r11) j .L1 .cfi_endproc .LFE0: .size vacall_receiver, .-vacall_receiver .ident "GCC: (GNU) 5.4.0" .section .note.GNU-stack,"",@progbits libffcall-2.2/vacall/vacall-ia64-linux.s0000664000000000000000000002433313530357112014757 00000000000000 .file "vacall-ia64.c" .pred.safe_across_calls p1-p5,p16-p63 .text .align 16 .global vacall_receiver# .proc vacall_receiver# vacall_receiver: .prologue 14, 41 .spill 48 .mmb .save ar.pfs, r42 alloc r42 = ar.pfs, 8, 5, 1, 0 .vframe r43 mov r43 = r12 nop 0 .mmi adds r12 = -208, r12 mov r44 = r1 .save rp, r41 mov r41 = b0 .body ;; .mmi adds r14 = -48, r43 adds r16 = -48, r43 adds r40 = -152, r43 .mmb adds r45 = -192, r43 st8 [r43] = r38 nop 0 ;; .mmi nop 0 st8 [r14] = r32, 8 adds r32 = -160, r43 .mmi st4 [r40] = r0 ;; st8 [r14] = r33 adds r14 = -32, r43 .mmi st4 [r45] = r0 ;; st8 [r14] = r34 addl r14 = @ltoffx(vacall_function#), r1 .mmb nop 0 st8 [r32] = r0 nop 0 ;; .mmi ld8.mov r14 = [r14], vacall_function# ;; ld8 r15 = [r14] nop 0 .mmi adds r14 = -24, r43 ;; st8 [r14] = r35 adds r14 = -16, r43 ;; .mfi st8 [r14] = r36 nop 0 adds r14 = -8, r43 .mmi nop 0 ;; st8 [r14] = r37 nop 0 .mmi adds r14 = 8, r43 ;; st8 [r14] = r39 adds r14 = -112, r43 ;; .mfi stfd [r14] = f8 nop 0 adds r14 = -104, r43 .mmi nop 0 ;; stfd [r14] = f9 nop 0 .mmi adds r14 = -96, r43 ;; stfd [r14] = f10 adds r14 = -88, r43 ;; .mfi stfd [r14] = f11 nop 0 adds r14 = -80, r43 .mmi nop 0 ;; stfd [r14] = f12 nop 0 .mmi adds r14 = -72, r43 ;; stfd [r14] = f13 adds r14 = -64, r43 ;; .mfi stfd [r14] = f14 nop 0 adds r14 = -56, r43 .mmi nop 0 ;; stfd [r14] = f15 nop 0 .mmi adds r14 = -168, r43 ;; st8 [r14] = r16 adds r14 = -128, r43 ;; .mii st8 [r14] = r16 adds r14 = -120, r43 ;; nop 0 .mii st4 [r14] = r0 adds r14 = -136, r43 ;; nop 0 .mmb st8 [r14] = r8 ld8 r14 = [r15], 8 nop 0 ;; .mib nop 0 mov b6 = r14 nop 0 .mbb ld8 r1 = [r15] nop 0 br.call.sptk.many b0 = b6 ;; .mmb mov r1 = r44 ld4 r40 = [r40] nop 0 ;; .mfb cmp4.eq p6, p7 = 0, r40 nop 0 (p6) br.cond.dpnt .L49 ;; .mfb cmp4.ne p6, p7 = 1, r40 nop 0 (p7) br.cond.dpnt .L50 ;; .mfb cmp4.ne p6, p7 = 2, r40 nop 0 (p7) br.cond.dpnt .L50 ;; .mii nop 0 cmp4.ne p6, p7 = 3, r40 ;; (p7) adds r14 = -184, r43 ;; .mfb (p7) ld1 r8 = [r14] nop 0 (p7) br.cond.dpnt .L49 .mii nop 0 cmp4.ne p6, p7 = 4, r40 ;; nop 0 .mmi (p7) adds r14 = -184, r43 ;; (p7) ld2 r14 = [r14] nop 0 ;; .mib nop 0 (p7) sxt2 r8 = r14 (p7) br.cond.dpnt .L49 .mii nop 0 cmp4.ne p6, p7 = 5, r40 ;; (p7) adds r14 = -184, r43 ;; .mfb (p7) ld2 r8 = [r14] nop 0 (p7) br.cond.dpnt .L49 .mii nop 0 cmp4.ne p6, p7 = 6, r40 ;; nop 0 .mmi (p7) adds r14 = -184, r43 ;; (p7) ld4 r14 = [r14] nop 0 ;; .mib nop 0 (p7) sxt4 r8 = r14 (p7) br.cond.dpnt .L49 .mii nop 0 cmp4.ne p6, p7 = 7, r40 ;; (p7) adds r14 = -184, r43 ;; .mfb (p7) ld4 r8 = [r14] nop 0 (p7) br.cond.dpnt .L49 .mfb cmp4.ne p6, p7 = 8, r40 nop 0 (p7) br.cond.dpnt .L54 ;; .mfb cmp4.ne p6, p7 = 9, r40 nop 0 (p7) br.cond.dpnt .L54 ;; .mfb cmp4.ne p6, p7 = 10, r40 nop 0 (p7) br.cond.dpnt .L54 ;; .mfb cmp4.ne p6, p7 = 11, r40 nop 0 (p7) br.cond.dpnt .L54 ;; .mii nop 0 cmp4.ne p6, p7 = 12, r40 ;; (p7) adds r14 = -184, r43 ;; .mfb (p7) ldfs f8 = [r14] nop 0 (p7) br.cond.dpnt .L49 .mii nop 0 cmp4.ne p6, p7 = 13, r40 ;; (p7) adds r14 = -184, r43 ;; .mfb (p7) ldfd f8 = [r14] nop 0 (p7) br.cond.dpnt .L49 .mfb cmp4.ne p6, p7 = 14, r40 nop 0 (p7) br.cond.dpnt .L54 ;; .mib nop 0 cmp4.ne p6, p7 = 15, r40 (p6) br.cond.dptk .L49 .mii nop 0 adds r15 = -192, r43 ;; nop 0 .mmi ld4 r14 = [r15] ;; nop 0 tbit.z p6, p7 = r14, 10 .mfb adds r14 = -144, r43 nop 0 (p6) br.cond.dpnt .L49 ;; .mmi ld8 r21 = [r14] ;; adds r14 = -1, r21 nop 0 ;; .mib nop 0 cmp.ltu p6, p7 = 31, r14 (p6) br.cond.dpnt .L49 .mmi ld8 r14 = [r32] ;; and r20 = 7, r14 and r23 = -8, r14 .mii nop 0 cmp.ltu p6, p7 = 8, r21 ;; nop 0 .mfb add r14 = r21, r20 nop 0 (p6) br.cond.dptk .L35 ;; .mib nop 0 cmp.ltu p6, p7 = 8, r14 (p6) br.cond.dptk .L37 .mfi shladd r15 = r14, 3, r0 nop 0 addl r14 = 2, r0 .mii ld8 r16 = [r23] shladd r17 = r20, 3, r0 ;; adds r15 = -1, r15 ;; .mii nop 0 sxt4 r15 = r15 ;; shl r14 = r14, r15 ;; .mmi adds r14 = -1, r14 ;; and r14 = r16, r14 nop 0 .mmi nop 0 ;; nop 0 shr r8 = r14, r17 .L49: .mii nop 0 mov ar.pfs = r42 mov b0 = r41 .mib nop 0 .label_state 1 .restore sp mov r12 = r43 br.ret.sptk.many b0 .L50: .body .copy_state 1 .mii nop 0 adds r14 = -184, r43 ;; nop 0 .mii ld1 r14 = [r14] nop 0 ;; sxt1 r8 = r14 .mii nop 0 mov ar.pfs = r42 mov b0 = r41 .mib nop 0 .label_state 2 .restore sp mov r12 = r43 br.ret.sptk.many b0 .L54: .body .copy_state 2 .mmb nop 0 adds r14 = -184, r43 nop 0 ;; .mii ld8 r8 = [r14] mov ar.pfs = r42 mov b0 = r41 .mib nop 0 .label_state 3 .restore sp mov r12 = r43 br.ret.sptk.many b0 .L35: .body .copy_state 3 .mib nop 0 cmp.ltu p6, p7 = 16, r21 (p6) br.cond.dptk .L39 ;; .mib nop 0 cmp.ltu p6, p7 = 16, r14 (p6) br.cond.dptk .L41 .mmi shladd r15 = r14, 3, r0 adds r14 = 8, r23 shladd r16 = r20, 2, r0 .mmb shladd r18 = r20, 3, r0 ld8 r17 = [r23] nop 0 ;; .mfi ld8 r19 = [r14] nop 0 addl r14 = 2, r0 .mii adds r15 = -65, r15 sub r16 = 32, r16 ;; sxt4 r15 = r15 .mii nop 0 sxt4 r16 = r16 shr r17 = r17, r18 ;; .mii nop 0 shl r14 = r14, r15 ;; adds r14 = -1, r14 ;; .mii nop 0 and r14 = r19, r14 ;; shl r15 = r14, r16 .mii nop 0 shr r9 = r14, r18 ;; shl r15 = r15, r16 ;; .mii or r8 = r15, r17 mov ar.pfs = r42 mov b0 = r41 .mib nop 0 .label_state 4 .restore sp mov r12 = r43 br.ret.sptk.many b0 .L37: .body .copy_state 4 .mfi shladd r15 = r14, 3, r0 nop 0 addl r14 = 2, r0 .mii ld8 r17 = [r23], 8 shladd r18 = r20, 3, r0 ;; adds r15 = -65, r15 .mii ld8 r19 = [r23] sub r16 = 64, r18 ;; sxt4 r15 = r15 .mii nop 0 sxt4 r16 = r16 ;; shl r14 = r14, r15 .mii nop 0 shr r17 = r17, r18 ;; adds r14 = -1, r14 ;; .mii nop 0 and r14 = r19, r14 ;; shl r14 = r14, r16 ;; .mii or r8 = r14, r17 mov ar.pfs = r42 mov b0 = r41 .mib nop 0 .label_state 5 .restore sp mov r12 = r43 br.ret.sptk.many b0 .L39: .body .copy_state 5 .mib nop 0 cmp.ltu p6, p7 = 24, r21 (p6) br.cond.dptk .L43 ;; .mib nop 0 cmp.ltu p6, p7 = 24, r14 (p6) br.cond.dptk .L45 .mmi shladd r15 = r14, 3, r0 adds r14 = 8, r23 shladd r16 = r20, 2, r0 .mmb shladd r19 = r20, 3, r0 ld8 r18 = [r23], 16 nop 0 ;; .mmi ld8 r17 = [r14] addl r14 = 2, r0 adds r15 = -65, r15 .mmb sub r16 = 32, r16 ld8 r20 = [r23] nop 0 ;; .mii nop 0 sxt4 r15 = r15 sxt4 r16 = r16 .mii nop 0 shr r18 = r18, r19 ;; shl r14 = r14, r15 .mii nop 0 shl r15 = r17, r16 shr r17 = r17, r19 ;; .mii nop 0 shl r15 = r15, r16 adds r14 = -1, r14 ;; .mii and r14 = r20, r14 or r8 = r15, r18 ;; shl r15 = r14, r16 .mii nop 0 shr r10 = r14, r19 ;; shl r15 = r15, r16 ;; .mii or r9 = r15, r17 mov ar.pfs = r42 mov b0 = r41 .mib nop 0 .label_state 6 .restore sp mov r12 = r43 br.ret.sptk.many b0 .L41: .body .copy_state 6 .mfi shladd r16 = r14, 3, r0 nop 0 adds r14 = 8, r23 .mfi ld8 r18 = [r23], 16 nop 0 shladd r15 = r20, 3, r0 ;; .mmi ld8 r17 = [r14] addl r14 = 2, r0 adds r16 = -129, r16 .mmi ld8 r20 = [r23] mov r19 = r15 sub r15 = 64, r15 ;; .mii nop 0 sxt4 r16 = r16 sxt4 r15 = r15 ;; .mii nop 0 shl r14 = r14, r16 shr r18 = r18, r19 .mii nop 0 shl r16 = r17, r15 shr r17 = r17, r19 ;; .mmi adds r14 = -1, r14 ;; and r14 = r20, r14 or r8 = r16, r18 ;; .mib nop 0 shl r14 = r14, r15 nop 0 ;; .mii or r9 = r14, r17 mov ar.pfs = r42 mov b0 = r41 .mib nop 0 .label_state 7 .restore sp mov r12 = r43 br.ret.sptk.many b0 .L45: .body .copy_state 7 .mmi shladd r16 = r14, 3, r0 adds r14 = 24, r23 shladd r15 = r20, 3, r0 .mmi adds r18 = 8, r23 ld8 r20 = [r23] adds r19 = 16, r23 ;; .mmi ld8 r22 = [r14] addl r14 = 2, r0 adds r16 = -129, r16 .mmi mov r17 = r15 ld8 r18 = [r18] sub r15 = 64, r15 ;; .mib nop 0 sxt4 r16 = r16 nop 0 .mii ld8 r19 = [r19] sxt4 r15 = r15 ;; shl r14 = r14, r16 .mii nop 0 shr r21 = r19, r17 shl r16 = r18, r15 .mii nop 0 shr r20 = r20, r17 shr r18 = r18, r17 .mii nop 0 shl r19 = r19, r15 ;; nop 0 .mmi adds r14 = -1, r14 ;; and r14 = r22, r14 or r8 = r16, r20 .mii nop 0 or r9 = r19, r18 ;; shl r14 = r14, r15 ;; .mii or r10 = r14, r21 mov ar.pfs = r42 mov b0 = r41 .mib nop 0 .label_state 8 .restore sp mov r12 = r43 br.ret.sptk.many b0 .L43: .body .copy_state 8 .mib nop 0 cmp.ltu p6, p7 = 32, r14 (p6) br.cond.dptk .L47 .mmi adds r15 = 24, r23 shladd r14 = r14, 3, r0 adds r17 = 8, r23 .mmi shladd r16 = r20, 2, r0 adds r18 = 16, r23 shladd r20 = r20, 3, r0 ;; .mmi nop 0 ld8 r22 = [r15] addl r15 = 2, r0 .mmi adds r14 = -65, r14 ld8 r19 = [r17] sub r16 = 32, r16 ;; .mii nop 0 sxt4 r14 = r14 sxt4 r16 = r16 .mmb ld8 r21 = [r18] ld8 r18 = [r23] nop 0 ;; .mii nop 0 shl r15 = r15, r14 shl r14 = r19, r16 .mii nop 0 shr r18 = r18, r20 shl r17 = r21, r16 ;; .mii nop 0 shl r14 = r14, r16 shr r19 = r19, r20 .mii adds r15 = -1, r15 shl r17 = r17, r16 shr r21 = r21, r20 ;; .mmi nop 0 and r15 = r22, r15 or r8 = r14, r18 .mmi or r9 = r17, r19 ;; nop 0 shl r14 = r15, r16 .mii nop 0 shr r11 = r15, r20 ;; shl r14 = r14, r16 ;; .mii or r10 = r14, r21 mov ar.pfs = r42 mov b0 = r41 .mib nop 0 .label_state 9 .restore sp mov r12 = r43 br.ret.sptk.many b0 .L47: .body .copy_state 9 .mmb shladd r16 = r14, 3, r0 adds r14 = 32, r23 nop 0 .mmi adds r18 = 8, r23 adds r19 = 16, r23 shladd r15 = r20, 3, r0 ;; .mfi ld8 r22 = [r14] nop 0 adds r14 = 24, r23 .mmi ld8 r20 = [r18] adds r16 = -129, r16 mov r17 = r15 .mfi ld8 r18 = [r19] nop 0 sub r15 = 64, r15 ;; .mmi ld8 r19 = [r14] addl r14 = 2, r0 sxt4 r16 = r16 .mii nop 0 sxt4 r15 = r15 ;; shl r21 = r20, r15 .mii nop 0 shr r20 = r20, r17 shl r14 = r14, r16 .mii ld8 r16 = [r23] shr r23 = r19, r17 shl r19 = r19, r15 ;; .mii nop 0 shr r16 = r16, r17 shr r17 = r18, r17 .mii adds r14 = -1, r14 shl r18 = r18, r15 ;; and r14 = r22, r14 .mmi nop 0 or r8 = r21, r16 or r10 = r19, r17 .mii nop 0 or r9 = r18, r20 ;; shl r14 = r14, r15 ;; .mii or r11 = r14, r23 mov ar.pfs = r42 mov b0 = r41 .mib nop 0 .restore sp mov r12 = r43 br.ret.sptk.many b0 .endp vacall_receiver# .ident "GCC: (GNU) 4.0.1" libffcall-2.2/vacall/vacall-x86_64-x32-linux.s0000664000000000000000000001045613530357113015566 00000000000000 .file "vacall-x86_64.c" .section .text.unlikely,"ax",@progbits .LCOLDB0: .text .LHOTB0: .p2align 4,,15 .globl vacall_receiver .type vacall_receiver, @function vacall_receiver: .LFB0: pushq %rbp .LCFI0: movl %esp, %ebp .LCFI1: pushq %r14 subl $184, %esp .LCFI2: movq %rsi, -64(%ebp) leal 16(%rbp), %esi movq %rcx, -48(%ebp) movl vacall_function(%rip), %ecx movsd %xmm0, -144(%ebp) movq %rdi, -72(%ebp) movq %rdx, -56(%ebp) movsd %xmm1, -136(%ebp) movq %r8, -40(%ebp) movsd %xmm2, -128(%ebp) leal -192(%rbp), %edi movq %r9, -32(%ebp) movsd %xmm3, -120(%ebp) movsd %xmm4, -112(%ebp) movl $0, -192(%ebp) movsd %xmm5, -104(%ebp) movl %esi, -168(%ebp) movsd %xmm6, -96(%ebp) movl $0, -164(%ebp) movsd %xmm7, -88(%ebp) movl $0, -160(%ebp) movl $0, -80(%ebp) movl $0, -152(%ebp) call *%rcx movl -160(%ebp), %ecx testl %ecx, %ecx je .L1 cmpl $1, %ecx je .L27 cmpl $2, %ecx je .L27 cmpl $3, %ecx je .L33 cmpl $4, %ecx je .L34 cmpl $5, %ecx je .L35 cmpl $6, %ecx je .L28 cmpl $7, %ecx je .L30 cmpl $8, %ecx je .L28 cmpl $9, %ecx je .L30 cmpl $10, %ecx je .L31 cmpl $11, %ecx je .L31 cmpl $12, %ecx je .L36 cmpl $13, %ecx je .L37 cmpl $14, %ecx je .L30 cmpl $15, %ecx jne .L1 testb $4, -191(%ebp) je .L1 movl -156(%ebp), %ecx leal -1(%rcx), %esi cmpl $15, %esi ja .L1 movl -164(%ebp), %esi movl %esi, %edi andl $7, %esi andl $-8, %edi cmpl $8, %ecx leal (%rcx,%rsi), %r10d ja .L17 cmpl $8, %r10d ja .L18 leal -1(,%r10,8), %ecx movl $2, %r8d salq %cl, %r8 movq %r8, %rcx subq $1, %rcx andq (%edi), %rcx movq %rcx, %rdi leal 0(,%rsi,8), %ecx sarq %cl, %rdi movq %rdi, %rax .L1: addl $184, %esp popq %r14 popq %rbp .LCFI3: ret .p2align 4,,10 .p2align 3 .L27: .LCFI4: movsbq -184(%ebp), %rax addl $184, %esp popq %r14 popq %rbp .LCFI5: ret .p2align 4,,10 .p2align 3 .L28: .LCFI6: movslq -184(%ebp), %rax jmp .L1 .p2align 4,,10 .p2align 3 .L33: movzbl -184(%ebp), %eax jmp .L1 .p2align 4,,10 .p2align 3 .L34: movswq -184(%ebp), %rax jmp .L1 .p2align 4,,10 .p2align 3 .L30: movl -184(%ebp), %eax jmp .L1 .p2align 4,,10 .p2align 3 .L35: movzwl -184(%ebp), %eax jmp .L1 .p2align 4,,10 .p2align 3 .L36: movss -184(%ebp), %xmm0 jmp .L1 .p2align 4,,10 .p2align 3 .L31: movq -184(%ebp), %rax jmp .L1 .L37: movsd -184(%ebp), %xmm0 jmp .L1 .L17: cmpl $16, %r10d leal 0(,%rsi,8), %r9d jbe .L38 negl %esi movq 8(%edi), %r8 movl %r9d, %ecx leal 64(,%rsi,8), %r11d movq (%edi), %rsi movq %r8, %r14 sarq %cl, %rsi movl %r11d, %ecx salq %cl, %r14 leal -129(,%r10,8), %ecx orq %r14, %rsi movq %rsi, %rax movl $2, %esi salq %cl, %rsi movl %r11d, %ecx subq $1, %rsi andq 16(%edi), %rsi salq %cl, %rsi movl %r9d, %ecx sarq %cl, %r8 orq %r8, %rsi movq %rsi, %rdx jmp .L1 .L18: leal -65(,%r10,8), %ecx movl $2, %r8d salq %cl, %r8 movl %esi, %ecx subq $1, %r8 andq 8(%edi), %r8 negl %ecx leal 64(,%rcx,8), %ecx movq (%edi), %rdi salq %cl, %r8 leal 0(,%rsi,8), %ecx sarq %cl, %rdi orq %rdi, %r8 movq %r8, %rax jmp .L1 .L38: leal -65(,%r10,8), %ecx movl $2, %r8d movq (%edi), %r10 imull $-4, %esi, %esi salq %cl, %r8 movl %r9d, %ecx subq $1, %r8 andq 8(%edi), %r8 sarq %cl, %r10 addl $32, %esi movl %esi, %ecx movq %r8, %rdi salq %cl, %rdi salq %cl, %rdi movl %r9d, %ecx orq %rdi, %r10 sarq %cl, %r8 movq %r10, %rax movq %r8, %rdx jmp .L1 .LFE0: .size vacall_receiver, .-vacall_receiver .section .text.unlikely .LCOLDE0: .text .LHOTE0: .section .eh_frame,"a",@progbits .Lframe1: .long .LECIE1-.LSCIE1 .LSCIE1: .long 0 .byte 0x3 .string "zR" .uleb128 0x1 .sleb128 -8 .uleb128 0x10 .uleb128 0x1 .byte 0x3 .byte 0xc .uleb128 0x7 .uleb128 0x8 .byte 0x90 .uleb128 0x1 .align 4 .LECIE1: .LSFDE1: .long .LEFDE1-.LASFDE1 .LASFDE1: .long .LASFDE1-.Lframe1 .long .LFB0 .long .LFE0-.LFB0 .uleb128 0 .byte 0x4 .long .LCFI0-.LFB0 .byte 0xe .uleb128 0x10 .byte 0x86 .uleb128 0x2 .byte 0x4 .long .LCFI1-.LCFI0 .byte 0xd .uleb128 0x6 .byte 0x4 .long .LCFI2-.LCFI1 .byte 0x8e .uleb128 0x3 .byte 0x4 .long .LCFI3-.LCFI2 .byte 0xa .byte 0xc .uleb128 0x7 .uleb128 0x8 .byte 0x4 .long .LCFI4-.LCFI3 .byte 0xb .byte 0x4 .long .LCFI5-.LCFI4 .byte 0xa .byte 0xc .uleb128 0x7 .uleb128 0x8 .byte 0x4 .long .LCFI6-.LCFI5 .byte 0xb .align 4 .LEFDE1: .ident "GCC: (GNU) 5.4.0" .section .note.GNU-stack,"",@progbits libffcall-2.2/vacall/vacall-mipseb-macro.S0000664000000000000000000000721113530357111015370 00000000000000#include "asm-mips.h" .file 1 "vacall-mips.c" .text .align 2 .globl vacall_receiver .set nomips16 .set nomicromips .ent vacall_receiver DECLARE_FUNCTION(vacall_receiver) vacall_receiver: .frame $fp,104,$31 .mask 0xc0000000,-4 .fmask 0x00000000,0 .set noreorder .cpload $25 .set reorder addiu $sp,$sp,-104 sw $fp,96($sp) move $fp,$sp sw $31,100($sp) la $8,vacall_function sw $4,104($fp) lw $25,0($8) addiu $4,$fp,104 sw $4,40($fp) addiu $4,$fp,120 sw $4,56($fp) .cprestore 16 addiu $4,$fp,24 sw $5,108($fp) sw $6,112($fp) sw $7,116($fp) sdc1 $f12,80($fp) sdc1 $f14,88($fp) swc1 $f12,68($fp) swc1 $f14,72($fp) sw $0,24($fp) sw $0,44($fp) sw $0,48($fp) sw $0,60($fp) sw $0,64($fp) jal $25 lw $4,48($fp) .set noreorder .set nomacro beq $4,$0,$L1 li $5,1 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,$L23 li $5,2 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,$L23 li $5,3 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,$L29 li $5,4 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,$L30 li $5,5 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,$L31 li $5,6 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,$L27 li $5,7 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,$L27 li $5,8 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,$L27 li $5,9 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,$L27 addiu $5,$4,-10 .set macro .set reorder sltu $5,$5,2 .set noreorder .set nomacro bne $5,$0,$L32 li $5,12 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,$L33 li $5,13 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,$L34 li $5,14 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,$L27 li $5,15 .set macro .set reorder .set noreorder .set nomacro bnel $4,$5,$L37 move $sp,$fp .set macro .set reorder lw $4,24($fp) andi $4,$4,0x2 .set noreorder .set nomacro beql $4,$0,$L38 lw $2,44($fp) .set macro .set reorder lw $4,52($fp) li $5,1 .set noreorder .set nomacro beql $4,$5,$L35 lw $4,44($fp) .set macro .set reorder li $5,2 .set noreorder .set nomacro beq $4,$5,$L36 li $5,4 .set macro .set reorder .set noreorder .set nomacro bnel $4,$5,$L37 move $sp,$fp .set macro .set reorder lw $4,44($fp) lw $2,0($4) $L1: $L38: move $sp,$fp $L37: lw $31,100($sp) lw $fp,96($sp) .set noreorder .set nomacro j $31 addiu $sp,$sp,104 .set macro .set reorder $L23: move $sp,$fp lw $31,100($sp) lb $2,32($fp) lw $fp,96($sp) .set noreorder .set nomacro j $31 addiu $sp,$sp,104 .set macro .set reorder $L27: move $sp,$fp lw $31,100($sp) lw $2,32($fp) lw $fp,96($sp) .set noreorder .set nomacro j $31 addiu $sp,$sp,104 .set macro .set reorder $L29: .set noreorder .set nomacro b $L1 lbu $2,32($fp) .set macro .set reorder $L30: .set noreorder .set nomacro b $L1 lh $2,32($fp) .set macro .set reorder $L31: .set noreorder .set nomacro b $L1 lhu $2,32($fp) .set macro .set reorder $L34: .set noreorder .set nomacro b $L1 ldc1 $f0,32($fp) .set macro .set reorder $L32: lw $2,32($fp) .set noreorder .set nomacro b $L1 lw $3,36($fp) .set macro .set reorder $L33: .set noreorder .set nomacro b $L1 lwc1 $f0,32($fp) .set macro .set reorder $L35: .set noreorder .set nomacro b $L1 lbu $2,0($4) .set macro .set reorder $L36: lw $4,44($fp) .set noreorder .set nomacro b $L1 lhu $2,0($4) .set macro .set reorder .end vacall_receiver .size vacall_receiver, .-vacall_receiver libffcall-2.2/vacall/vacall-m68k.c0000664000000000000000000000755013347755336013646 00000000000000/* vacall function for m68k CPU */ /* * Copyright 1995-2017 Bruno Haible * * This program is free software: you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by * the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program. If not, see . */ #include "vacall-internal.h" #ifdef REENTRANT #define vacall_receiver callback_receiver register struct { void (*vacall_function) (void*,va_alist); void* arg; } * env __asm__("a0"); #endif register void* sret __asm__("a1"); register int iret __asm__("d0"); register int iret2 __asm__("d1"); register int pret __asm__("a0"); /* some compilers return pointers in a0 */ register float fret __asm__("d0"); /* d0 */ register double dret __asm__("d0"); /* d0,d1 */ register float fp_fret __asm__("fp0"); register double fp_dret __asm__("fp0"); #ifdef REENTRANT static #endif void /* the return type is variable, not void! */ vacall_receiver (__vaword firstword) { __va_alist list; /* Prepare the va_alist. */ list.flags = 0; list.aptr = (long)&firstword; list.raddr = (void*)0; list.rtype = __VAvoid; list.structraddr = sret; /* Call vacall_function. The macros do all the rest. */ #ifndef REENTRANT (*vacall_function) (&list); #else /* REENTRANT */ (*env->vacall_function) (env->arg,&list); #endif /* Put return value into proper register. */ if (list.rtype == __VAvoid) { } else if (list.rtype == __VAchar) { iret = list.tmp._char; } else if (list.rtype == __VAschar) { iret = list.tmp._schar; } else if (list.rtype == __VAuchar) { iret = list.tmp._uchar; } else if (list.rtype == __VAshort) { iret = list.tmp._short; } else if (list.rtype == __VAushort) { iret = list.tmp._ushort; } else if (list.rtype == __VAint) { iret = list.tmp._int; } else if (list.rtype == __VAuint) { iret = list.tmp._uint; } else if (list.rtype == __VAlong) { iret = list.tmp._long; } else if (list.rtype == __VAulong) { iret = list.tmp._ulong; } else if (list.rtype == __VAlonglong || list.rtype == __VAulonglong) { iret = ((__vaword *) &list.tmp._longlong)[0]; iret2 = ((__vaword *) &list.tmp._longlong)[1]; } else if (list.rtype == __VAfloat) { if (list.flags & __VA_FREG_FLOAT_RETURN) { fp_fret = list.tmp._float; } else { if (list.flags & __VA_SUNCC_FLOAT_RETURN) { dret = (double)list.tmp._float; } else { fret = list.tmp._float; } } } else if (list.rtype == __VAdouble) { if (list.flags & __VA_FREG_FLOAT_RETURN) { fp_dret = list.tmp._double; } else { dret = list.tmp._double; } } else if (list.rtype == __VAvoidp) { pret = iret = (long)list.tmp._ptr; } else if (list.rtype == __VAstruct) { /* NB: On m68k, all structure sizes are divisible by 2. */ if (list.flags & __VA_REGISTER_STRUCT_RETURN) { if (list.rsize == sizeof(char)) { /* can't occur */ iret = *(unsigned char *) list.raddr; } else if (list.rsize == sizeof(short)) { iret = *(unsigned short *) list.raddr; } else if (list.rsize == sizeof(int)) { iret = *(unsigned int *) list.raddr; } else if (list.rsize == 2*sizeof(__vaword)) { iret = ((__vaword *) list.raddr)[0]; iret2 = ((__vaword *) list.raddr)[1]; } } } } #ifdef REENTRANT __vacall_r_t callback_get_receiver (void) { return (__vacall_r_t)(void*)&callback_receiver; } #endif libffcall-2.2/vacall/vacall-powerpc.c0000664000000000000000000001266413347755340014535 00000000000000/* vacall function for powerpc CPU */ /* * Copyright 1995-2017 Bruno Haible * Copyright 2000 Adam Fedor * Copyright 2004 Paul Guyot * * This program is free software: you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by * the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program. If not, see . */ #include "vacall-internal.h" #ifdef REENTRANT #define vacall_receiver callback_receiver register struct { void (*vacall_function) (void*,va_alist); void* arg; } * env __asm__("r11"); #endif register double farg1 __asm__("fr1"); register double farg2 __asm__("fr2"); register double farg3 __asm__("fr3"); register double farg4 __asm__("fr4"); register double farg5 __asm__("fr5"); register double farg6 __asm__("fr6"); register double farg7 __asm__("fr7"); register double farg8 __asm__("fr8"); register double farg9 __asm__("fr9"); register double farg10 __asm__("fr10"); register double farg11 __asm__("fr11"); register double farg12 __asm__("fr12"); register double farg13 __asm__("fr13"); register __vaword iret __asm__("r3"); register __vaword iret2 __asm__("r4"); register float fret __asm__("fr1"); register double dret __asm__("fr1"); #ifdef REENTRANT static #endif void /* the return type is variable, not void! */ vacall_receiver (__vaword word1, __vaword word2, __vaword word3, __vaword word4, __vaword word5, __vaword word6, __vaword word7, __vaword word8, __vaword firstword) { __va_alist list; #if defined(_AIX) || (defined(__MACH__) && defined(__APPLE__)) /* __powerpc_aix__ */ /* gcc-2.6.3 source says: When a parameter is passed in a register, * stack space is still allocated for it. */ /* Move the arguments passed in registers to their stack locations. */ (&firstword)[-8] = word1; (&firstword)[-7] = word2; (&firstword)[-6] = word3; (&firstword)[-5] = word4; (&firstword)[-4] = word5; (&firstword)[-3] = word6; (&firstword)[-2] = word7; (&firstword)[-1] = word8; #else /* __powerpc_sysv4__ */ /* Move the arguments passed in registers to temp storage, since moving them to the stack would mess up the stack */ list.iarg[0] = word1; list.iarg[1] = word2; list.iarg[2] = word3; list.iarg[3] = word4; list.iarg[4] = word5; list.iarg[5] = word6; list.iarg[6] = word7; list.iarg[7] = word8; #endif list.farg[0] = farg1; list.farg[1] = farg2; list.farg[2] = farg3; list.farg[3] = farg4; list.farg[4] = farg5; list.farg[5] = farg6; list.farg[6] = farg7; list.farg[7] = farg8; #if defined(_AIX) || (defined(__MACH__) && defined(__APPLE__)) /* __powerpc_aix__ */ list.farg[8] = farg9; list.farg[9] = farg10; list.farg[10] = farg11; list.farg[11] = farg12; list.farg[12] = farg13; #endif /* Prepare the va_alist. */ list.flags = 0; #if defined(_AIX) || (defined(__MACH__) && defined(__APPLE__)) /* __powerpc_aix__ */ list.aptr = (long)(&firstword - 8); #else /* __powerpc_sysv4__ */ list.aptr = (long)(&firstword); list.ianum = 0; #endif list.raddr = (void*)0; list.rtype = __VAvoid; list.fanum = 0; /* Call vacall_function. The macros do all the rest. */ #ifndef REENTRANT (*vacall_function) (&list); #else /* REENTRANT */ (*env->vacall_function) (env->arg,&list); #endif /* Put return value into proper register. */ if (list.rtype == __VAvoid) { } else if (list.rtype == __VAchar) { iret = list.tmp._char; } else if (list.rtype == __VAschar) { iret = list.tmp._schar; } else if (list.rtype == __VAuchar) { iret = list.tmp._uchar; } else if (list.rtype == __VAshort) { iret = list.tmp._short; } else if (list.rtype == __VAushort) { iret = list.tmp._ushort; } else if (list.rtype == __VAint) { iret = list.tmp._int; } else if (list.rtype == __VAuint) { iret = list.tmp._uint; } else if (list.rtype == __VAlong) { iret = list.tmp._long; } else if (list.rtype == __VAulong) { iret = list.tmp._ulong; } else if (list.rtype == __VAlonglong || list.rtype == __VAulonglong) { iret = ((__vaword *) &list.tmp._longlong)[0]; iret2 = ((__vaword *) &list.tmp._longlong)[1]; } else if (list.rtype == __VAfloat) { fret = list.tmp._float; } else if (list.rtype == __VAdouble) { dret = list.tmp._double; } else if (list.rtype == __VAvoidp) { iret = (long)list.tmp._ptr; } else if (list.rtype == __VAstruct) { if (list.flags & __VA_REGISTER_STRUCT_RETURN) { if (list.rsize == sizeof(char)) { iret = *(unsigned char *) list.raddr; } else if (list.rsize == sizeof(short)) { iret = *(unsigned short *) list.raddr; } else if (list.rsize == sizeof(int)) { iret = *(unsigned int *) list.raddr; } else if (list.rsize == 2*sizeof(__vaword)) { iret = ((__vaword *) list.raddr)[0]; iret2 = ((__vaword *) list.raddr)[1]; } } } } #ifdef REENTRANT __vacall_r_t callback_get_receiver (void) { return (__vacall_r_t)(void*)&callback_receiver; } #endif libffcall-2.2/vacall/vacall-sparc-linux-pic.s0000664000000000000000000000372513530357111016076 00000000000000 .file "vacall-sparc.c" .section ".text" .align 4 .LLGETPC0: retl add %o7, %l7, %l7 .align 4 .global vacall_receiver .type vacall_receiver,#function .proc 020 vacall_receiver: !#PROLOGUE# 0 save %sp, -144, %sp sethi %hi(vacall_function), %o0 sethi %hi(_GLOBAL_OFFSET_TABLE_-4), %l7 call .LLGETPC0 add %l7, %lo(_GLOBAL_OFFSET_TABLE_+4), %l7 or %o0, %lo(vacall_function), %o0 ld [%l7+%o0], %o1 st %i2, [%fp+76] ld [%o1], %o2 add %fp, 68, %o0 ld [%fp+64], %o1 st %o0, [%fp-32] st %o1, [%fp-16] st %i3, [%fp+80] st %i4, [%fp+84] st %i5, [%fp+88] st %i0, [%fp+68] st %i1, [%fp+72] st %g0, [%fp-48] st %g0, [%fp-28] st %g0, [%fp-24] call %o2, 0 add %fp, -48, %o0 ld [%fp-24], %o1 cmp %o1, 0 be .LL1 cmp %o1, 1 be .LL44 cmp %o1, 2 be .LL44 cmp %o1, 3 be .LL45 cmp %o1, 4 be .LL46 cmp %o1, 5 be .LL47 cmp %o1, 6 be .LL43 cmp %o1, 7 be .LL43 cmp %o1, 8 be .LL43 cmp %o1, 9 be .LL43 add %o1, -10, %o0 cmp %o0, 1 bgu .LL22 cmp %o1, 12 ld [%fp-40], %i0 b .LL1 ld [%fp-36], %i1 .LL22: be .LL48 cmp %o1, 13 be .LL49 cmp %o1, 14 be .LL43 cmp %o1, 15 bne .LL1 ld [%fp-48], %o0 andcc %o0, 16, %g0 be .LL33 andcc %o0, 2, %g0 ld [%fp-20], %o0 ld [%i7+8], %o1 and %o0, 4095, %o0 cmp %o0, %o1 bne .LL1 ld [%fp-28], %i0 b .LL1 add %i7, 4, %i7 .LL33: be,a .LL1 add %i7, 4, %i7 ld [%fp-20], %o0 cmp %o0, 1 be .LL50 cmp %o0, 2 be .LL51 cmp %o0, 4 bne,a .LL1 add %i7, 4, %i7 ld [%fp-28], %o0 b .LL1 ld [%o0], %i0 .LL51: ld [%fp-28], %o0 b .LL1 lduh [%o0], %i0 .LL50: ld [%fp-28], %o0 b .LL1 ldub [%o0], %i0 .LL43: b .LL1 ld [%fp-40], %i0 .LL49: b .LL1 ldd [%fp-40], %f0 .LL48: ld [%fp-48], %o0 andcc %o0, 32, %g0 be,a .LL1 ld [%fp-40], %f0 ld [%fp-40], %f2 b .LL1 fstod %f2, %f0 .LL47: b .LL1 lduh [%fp-40], %i0 .LL46: b .LL1 ldsh [%fp-40], %i0 .LL45: b .LL1 ldub [%fp-40], %i0 .LL44: ldsb [%fp-40], %i0 .LL38: .LL1: nop ret restore .LLfe1: .size vacall_receiver,.LLfe1-vacall_receiver .ident "GCC: (GNU) 3.1" libffcall-2.2/vacall/vacall-sparc64.c0000664000000000000000000005465113347755341014343 00000000000000/* vacall function for sparc64 CPU */ /* * Copyright 1995-2017 Bruno Haible * * This program is free software: you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by * the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program. If not, see . */ #include "vacall-internal.h" #ifdef REENTRANT #define vacall_receiver callback_receiver register struct { void (*vacall_function) (void*,va_alist); void* arg; } * env __asm__("%g5"); #endif register __vaword* fp __asm__("%fp"); /* our %fp, caller's %sp */ register __vaword* ret __asm__("%i7"); /* %i7+8 = return address */ register float farg0 __asm__("%f1"); register float farg1 __asm__("%f3"); register float farg2 __asm__("%f5"); register float farg3 __asm__("%f7"); register float farg4 __asm__("%f9"); register float farg5 __asm__("%f11"); register float farg6 __asm__("%f13"); register float farg7 __asm__("%f15"); register float farg8 __asm__("%f17"); register float farg9 __asm__("%f19"); register float farg10 __asm__("%f21"); register float farg11 __asm__("%f23"); register float farg12 __asm__("%f25"); register float farg13 __asm__("%f27"); register float farg14 __asm__("%f29"); register float farg15 __asm__("%f31"); register double darg0 __asm__("%f0"); register double darg1 __asm__("%f2"); register double darg2 __asm__("%f4"); register double darg3 __asm__("%f6"); register double darg4 __asm__("%f8"); register double darg5 __asm__("%f10"); register double darg6 __asm__("%f12"); register double darg7 __asm__("%f14"); register double darg8 __asm__("%f16"); register double darg9 __asm__("%f18"); register double darg10 __asm__("%f20"); register double darg11 __asm__("%f22"); register double darg12 __asm__("%f24"); register double darg13 __asm__("%f26"); register double darg14 __asm__("%f28"); register double darg15 __asm__("%f30"); register __vaword iret __asm__("%i0"); register __vaword o1 __asm__("%i1"); register __vaword o2 __asm__("%i2"); register __vaword o3 __asm__("%i3"); register __vaword o4 __asm__("%i4"); register __vaword o5 __asm__("%i5"); register float fret __asm__("%f0"); /* %f0 */ register double dret __asm__("%f0"); /* %f0,%f1 */ void /* the return type is variable, not void! */ vacall_receiver (__vaword word1, __vaword word2, __vaword word3, __vaword word4, __vaword word5, __vaword word6, __vaword firstword) { __va_alist list; /* Move the arguments passed in registers to their stack locations. */ (&firstword)[-6] = word1; (&firstword)[-5] = word2; (&firstword)[-4] = word3; (&firstword)[-3] = word4; (&firstword)[-2] = word5; (&firstword)[-1] = word6; list.darg[0] = darg0; list.darg[1] = darg1; list.darg[2] = darg2; list.darg[3] = darg3; list.darg[4] = darg4; list.darg[5] = darg5; list.darg[6] = darg6; list.darg[7] = darg7; list.darg[8] = darg8; list.darg[9] = darg9; list.darg[10] = darg10; list.darg[11] = darg11; list.darg[12] = darg12; list.darg[13] = darg13; list.darg[14] = darg14; list.darg[15] = darg15; list.farg[0] = farg0; list.farg[1] = farg1; list.farg[2] = farg2; list.farg[3] = farg3; list.farg[4] = farg4; list.farg[5] = farg5; list.farg[6] = farg6; list.farg[7] = farg7; list.farg[8] = farg8; list.farg[9] = farg9; list.farg[10] = farg10; list.farg[11] = farg11; list.farg[12] = farg12; list.farg[13] = farg13; list.farg[14] = farg14; list.farg[15] = farg15; /* Prepare the va_alist. */ list.flags = 0; list.aptr = (long)(&firstword - 6); list.raddr = (void*)0; list.rtype = __VAvoid; list.anum = 0; /* Call vacall_function. The macros do all the rest. */ #ifndef REENTRANT (*vacall_function) (&list); #else /* REENTRANT */ (*env->vacall_function) (env->arg,&list); #endif /* Put return value into proper register. */ if (list.rtype == __VAvoid) { } else if (list.rtype == __VAchar) { iret = list.tmp._char; } else if (list.rtype == __VAschar) { iret = list.tmp._schar; } else if (list.rtype == __VAuchar) { iret = list.tmp._uchar; } else if (list.rtype == __VAshort) { iret = list.tmp._short; } else if (list.rtype == __VAushort) { iret = list.tmp._ushort; } else if (list.rtype == __VAint) { iret = list.tmp._int; } else if (list.rtype == __VAuint) { iret = list.tmp._uint; } else if (list.rtype == __VAlong) { iret = list.tmp._long; } else if (list.rtype == __VAulong) { iret = list.tmp._ulong; } else if (list.rtype == __VAlonglong) { iret = list.tmp._long; } else if (list.rtype == __VAulonglong) { iret = list.tmp._ulong; } else if (list.rtype == __VAfloat) { fret = list.tmp._float; } else if (list.rtype == __VAdouble) { dret = list.tmp._double; } else if (list.rtype == __VAvoidp) { iret = (long)list.tmp._ptr; } else if (list.rtype == __VAstruct) { if (list.flags & __VA_REGISTER_STRUCT_RETURN) { /* Return structs of size <= 32 in registers. */ #define iret2 o1 #define iret3 o2 #define iret4 o3 if (list.rsize > 0 && list.rsize <= 32) { #if 0 /* Unoptimized */ if (list.rsize == 1) { iret = (__vaword)((unsigned char *) list.raddr)[0] << 56; } else if (list.rsize == 2) { iret = ((__vaword)((unsigned char *) list.raddr)[0] << 56) | ((__vaword)((unsigned char *) list.raddr)[1] << 48); } else if (list.rsize == 3) { iret = ((__vaword)((unsigned char *) list.raddr)[0] << 56) | ((__vaword)((unsigned char *) list.raddr)[1] << 48) | ((__vaword)((unsigned char *) list.raddr)[2] << 40); } else if (list.rsize == 4) { iret = ((__vaword)((unsigned char *) list.raddr)[0] << 56) | ((__vaword)((unsigned char *) list.raddr)[1] << 48) | ((__vaword)((unsigned char *) list.raddr)[2] << 40) | ((__vaword)((unsigned char *) list.raddr)[3] << 32); } else if (list.rsize == 5) { iret = ((__vaword)((unsigned char *) list.raddr)[0] << 56) | ((__vaword)((unsigned char *) list.raddr)[1] << 48) | ((__vaword)((unsigned char *) list.raddr)[2] << 40) | ((__vaword)((unsigned char *) list.raddr)[3] << 32) | ((__vaword)((unsigned char *) list.raddr)[4] << 24); } else if (list.rsize == 6) { iret = ((__vaword)((unsigned char *) list.raddr)[0] << 56) | ((__vaword)((unsigned char *) list.raddr)[1] << 48) | ((__vaword)((unsigned char *) list.raddr)[2] << 40) | ((__vaword)((unsigned char *) list.raddr)[3] << 32) | ((__vaword)((unsigned char *) list.raddr)[4] << 24) | ((__vaword)((unsigned char *) list.raddr)[5] << 16); } else if (list.rsize == 7) { iret = ((__vaword)((unsigned char *) list.raddr)[0] << 56) | ((__vaword)((unsigned char *) list.raddr)[1] << 48) | ((__vaword)((unsigned char *) list.raddr)[2] << 40) | ((__vaword)((unsigned char *) list.raddr)[3] << 32) | ((__vaword)((unsigned char *) list.raddr)[4] << 24) | ((__vaword)((unsigned char *) list.raddr)[5] << 16) | ((__vaword)((unsigned char *) list.raddr)[6] << 8); } else if (list.rsize >= 8 && list.rsize <= 32) { iret = ((__vaword)((unsigned char *) list.raddr)[0] << 56) | ((__vaword)((unsigned char *) list.raddr)[1] << 48) | ((__vaword)((unsigned char *) list.raddr)[2] << 40) | ((__vaword)((unsigned char *) list.raddr)[3] << 32) | ((__vaword)((unsigned char *) list.raddr)[4] << 24) | ((__vaword)((unsigned char *) list.raddr)[5] << 16) | ((__vaword)((unsigned char *) list.raddr)[6] << 8) | (__vaword)((unsigned char *) list.raddr)[7]; if (list.rsize == 8) { } else if (list.rsize == 9) { iret2 = (__vaword)((unsigned char *) list.raddr)[8] << 56; } else if (list.rsize == 10) { iret2 = ((__vaword)((unsigned char *) list.raddr)[8] << 56) | ((__vaword)((unsigned char *) list.raddr)[9] << 48); } else if (list.rsize == 11) { iret2 = ((__vaword)((unsigned char *) list.raddr)[8] << 56) | ((__vaword)((unsigned char *) list.raddr)[9] << 48) | ((__vaword)((unsigned char *) list.raddr)[10] << 40); } else if (list.rsize == 12) { iret2 = ((__vaword)((unsigned char *) list.raddr)[8] << 56) | ((__vaword)((unsigned char *) list.raddr)[9] << 48) | ((__vaword)((unsigned char *) list.raddr)[10] << 40) | ((__vaword)((unsigned char *) list.raddr)[11] << 32); } else if (list.rsize == 13) { iret2 = ((__vaword)((unsigned char *) list.raddr)[8] << 56) | ((__vaword)((unsigned char *) list.raddr)[9] << 48) | ((__vaword)((unsigned char *) list.raddr)[10] << 40) | ((__vaword)((unsigned char *) list.raddr)[11] << 32) | ((__vaword)((unsigned char *) list.raddr)[12] << 24); } else if (list.rsize == 14) { iret2 = ((__vaword)((unsigned char *) list.raddr)[8] << 56) | ((__vaword)((unsigned char *) list.raddr)[9] << 48) | ((__vaword)((unsigned char *) list.raddr)[10] << 40) | ((__vaword)((unsigned char *) list.raddr)[11] << 32) | ((__vaword)((unsigned char *) list.raddr)[12] << 24) | ((__vaword)((unsigned char *) list.raddr)[13] << 16); } else if (list.rsize == 15) { iret2 = ((__vaword)((unsigned char *) list.raddr)[8] << 56) | ((__vaword)((unsigned char *) list.raddr)[9] << 48) | ((__vaword)((unsigned char *) list.raddr)[10] << 40) | ((__vaword)((unsigned char *) list.raddr)[11] << 32) | ((__vaword)((unsigned char *) list.raddr)[12] << 24) | ((__vaword)((unsigned char *) list.raddr)[13] << 16) | ((__vaword)((unsigned char *) list.raddr)[14] << 8); } else if (list.rsize >= 16 && list.rsize <= 32) { iret2 = ((__vaword)((unsigned char *) list.raddr)[8] << 56) | ((__vaword)((unsigned char *) list.raddr)[9] << 48) | ((__vaword)((unsigned char *) list.raddr)[10] << 40) | ((__vaword)((unsigned char *) list.raddr)[11] << 32) | ((__vaword)((unsigned char *) list.raddr)[12] << 24) | ((__vaword)((unsigned char *) list.raddr)[13] << 16) | ((__vaword)((unsigned char *) list.raddr)[14] << 8) | (__vaword)((unsigned char *) list.raddr)[15]; if (list.rsize == 16) { } else if (list.rsize == 17) { iret3 = (__vaword)((unsigned char *) list.raddr)[16] << 56; } else if (list.rsize == 18) { iret3 = ((__vaword)((unsigned char *) list.raddr)[16] << 56) | ((__vaword)((unsigned char *) list.raddr)[17] << 48); } else if (list.rsize == 19) { iret3 = ((__vaword)((unsigned char *) list.raddr)[16] << 56) | ((__vaword)((unsigned char *) list.raddr)[17] << 48) | ((__vaword)((unsigned char *) list.raddr)[18] << 40); } else if (list.rsize == 20) { iret3 = ((__vaword)((unsigned char *) list.raddr)[16] << 56) | ((__vaword)((unsigned char *) list.raddr)[17] << 48) | ((__vaword)((unsigned char *) list.raddr)[18] << 40) | ((__vaword)((unsigned char *) list.raddr)[19] << 32); } else if (list.rsize == 21) { iret3 = ((__vaword)((unsigned char *) list.raddr)[16] << 56) | ((__vaword)((unsigned char *) list.raddr)[17] << 48) | ((__vaword)((unsigned char *) list.raddr)[18] << 40) | ((__vaword)((unsigned char *) list.raddr)[19] << 32) | ((__vaword)((unsigned char *) list.raddr)[20] << 24); } else if (list.rsize == 22) { iret3 = ((__vaword)((unsigned char *) list.raddr)[16] << 56) | ((__vaword)((unsigned char *) list.raddr)[17] << 48) | ((__vaword)((unsigned char *) list.raddr)[18] << 40) | ((__vaword)((unsigned char *) list.raddr)[19] << 32) | ((__vaword)((unsigned char *) list.raddr)[20] << 24) | ((__vaword)((unsigned char *) list.raddr)[21] << 16); } else if (list.rsize == 23) { iret3 = ((__vaword)((unsigned char *) list.raddr)[16] << 56) | ((__vaword)((unsigned char *) list.raddr)[17] << 48) | ((__vaword)((unsigned char *) list.raddr)[18] << 40) | ((__vaword)((unsigned char *) list.raddr)[19] << 32) | ((__vaword)((unsigned char *) list.raddr)[20] << 24) | ((__vaword)((unsigned char *) list.raddr)[21] << 16) | ((__vaword)((unsigned char *) list.raddr)[22] << 8); } else if (list.rsize >= 24 && list.rsize <= 32) { iret3 = ((__vaword)((unsigned char *) list.raddr)[16] << 56) | ((__vaword)((unsigned char *) list.raddr)[17] << 48) | ((__vaword)((unsigned char *) list.raddr)[18] << 40) | ((__vaword)((unsigned char *) list.raddr)[19] << 32) | ((__vaword)((unsigned char *) list.raddr)[20] << 24) | ((__vaword)((unsigned char *) list.raddr)[21] << 16) | ((__vaword)((unsigned char *) list.raddr)[22] << 8) | (__vaword)((unsigned char *) list.raddr)[23]; if (list.rsize == 24) { } else if (list.rsize == 25) { iret4 = (__vaword)((unsigned char *) list.raddr)[24] << 56; } else if (list.rsize == 26) { iret4 = ((__vaword)((unsigned char *) list.raddr)[24] << 56) | ((__vaword)((unsigned char *) list.raddr)[25] << 48); } else if (list.rsize == 27) { iret4 = ((__vaword)((unsigned char *) list.raddr)[24] << 56) | ((__vaword)((unsigned char *) list.raddr)[25] << 48) | ((__vaword)((unsigned char *) list.raddr)[26] << 40); } else if (list.rsize == 28) { iret4 = ((__vaword)((unsigned char *) list.raddr)[24] << 56) | ((__vaword)((unsigned char *) list.raddr)[25] << 48) | ((__vaword)((unsigned char *) list.raddr)[26] << 40) | ((__vaword)((unsigned char *) list.raddr)[27] << 32); } else if (list.rsize == 29) { iret4 = ((__vaword)((unsigned char *) list.raddr)[24] << 56) | ((__vaword)((unsigned char *) list.raddr)[25] << 48) | ((__vaword)((unsigned char *) list.raddr)[26] << 40) | ((__vaword)((unsigned char *) list.raddr)[27] << 32) | ((__vaword)((unsigned char *) list.raddr)[28] << 24); } else if (list.rsize == 30) { iret4 = ((__vaword)((unsigned char *) list.raddr)[24] << 56) | ((__vaword)((unsigned char *) list.raddr)[25] << 48) | ((__vaword)((unsigned char *) list.raddr)[26] << 40) | ((__vaword)((unsigned char *) list.raddr)[27] << 32) | ((__vaword)((unsigned char *) list.raddr)[28] << 24) | ((__vaword)((unsigned char *) list.raddr)[29] << 16); } else if (list.rsize == 31) { iret4 = ((__vaword)((unsigned char *) list.raddr)[24] << 56) | ((__vaword)((unsigned char *) list.raddr)[25] << 48) | ((__vaword)((unsigned char *) list.raddr)[26] << 40) | ((__vaword)((unsigned char *) list.raddr)[27] << 32) | ((__vaword)((unsigned char *) list.raddr)[28] << 24) | ((__vaword)((unsigned char *) list.raddr)[29] << 16) | ((__vaword)((unsigned char *) list.raddr)[30] << 8); } else if (list.rsize == 32) { iret4 = ((__vaword)((unsigned char *) list.raddr)[24] << 56) | ((__vaword)((unsigned char *) list.raddr)[25] << 48) | ((__vaword)((unsigned char *) list.raddr)[26] << 40) | ((__vaword)((unsigned char *) list.raddr)[27] << 32) | ((__vaword)((unsigned char *) list.raddr)[28] << 24) | ((__vaword)((unsigned char *) list.raddr)[29] << 16) | ((__vaword)((unsigned char *) list.raddr)[30] << 8) | (__vaword)((unsigned char *) list.raddr)[31]; } } } } #else /* Optimized: fewer conditional jumps, fewer memory accesses */ uintptr_t count = list.rsize; /* > 0, ≤ 4*sizeof(__vaword) */ __vaword* wordaddr = (__vaword*)((uintptr_t)list.raddr & ~(uintptr_t)(sizeof(__vaword)-1)); uintptr_t start_offset = (uintptr_t)list.raddr & (uintptr_t)(sizeof(__vaword)-1); /* ≥ 0, < sizeof(__vaword) */ uintptr_t end_offset = start_offset + count; /* > 0, < 5*sizeof(__vaword) */ if (count <= sizeof(__vaword)) { /* Assign iret. */ if (end_offset <= sizeof(__vaword)) { /* 0 < end_offset ≤ sizeof(__vaword) */ __vaword mask0 = - ((__vaword)1 << (sizeof(__vaword)*8-end_offset*8)); iret = (wordaddr[0] & mask0) << (start_offset*8); } else { /* sizeof(__vaword) < end_offset < 2*sizeof(__vaword), start_offset > 0 */ __vaword mask1 = - ((__vaword)1 << (2*sizeof(__vaword)*8-end_offset*8)); iret = (wordaddr[0] << (start_offset*8)) | ((wordaddr[1] & mask1) >> (sizeof(__vaword)*8-start_offset*8)); } } else if (count <= 2*sizeof(__vaword)) { /* Assign iret, iret2. */ if (end_offset <= 2*sizeof(__vaword)) { /* sizeof(__vaword) < end_offset ≤ 2*sizeof(__vaword) */ __vaword mask1 = - ((__vaword)1 << (2*sizeof(__vaword)*8-end_offset*8)); iret = (wordaddr[0] << (start_offset*8)) | ((wordaddr[1] & mask1) >> (sizeof(__vaword)*4-start_offset*4) >> (sizeof(__vaword)*4-start_offset*4)); iret2 = (wordaddr[1] & mask1) << (start_offset*8); } else { /* 2*sizeof(__vaword) < end_offset < 3*sizeof(__vaword), start_offset > 0 */ __vaword mask2 = - ((__vaword)1 << (3*sizeof(__vaword)*8-end_offset*8)); iret = (wordaddr[0] << (start_offset*8)) | (wordaddr[1] >> (sizeof(__vaword)*8-start_offset*8)); iret2 = (wordaddr[1] << (start_offset*8)) | ((wordaddr[2] & mask2) >> (sizeof(__vaword)*8-start_offset*8)); } } else if (count <= 3*sizeof(__vaword)) { /* Assign iret, iret2, iret3. */ if (end_offset <= 3*sizeof(__vaword)) { /* 2*sizeof(__vaword) < end_offset ≤ 3*sizeof(__vaword) */ __vaword mask2 = - ((__vaword)1 << (3*sizeof(__vaword)*8-end_offset*8)); iret = (wordaddr[0] << (start_offset*8)) | (wordaddr[1] >> (sizeof(__vaword)*4-start_offset*4) >> (sizeof(__vaword)*4-start_offset*4)); iret2 = (wordaddr[1] << (start_offset*8)) | ((wordaddr[2] & mask2) >> (sizeof(__vaword)*4-start_offset*4) >> (sizeof(__vaword)*4-start_offset*4)); iret3 = (wordaddr[2] & mask2) << (start_offset*8); } else { /* 3*sizeof(__vaword) < end_offset < 4*sizeof(__vaword), start_offset > 0 */ __vaword mask3 = - ((__vaword)1 << (4*sizeof(__vaword)*8-end_offset*8)); iret = (wordaddr[0] << (start_offset*8)) | (wordaddr[1] >> (sizeof(__vaword)*8-start_offset*8)); iret2 = (wordaddr[1] << (start_offset*8)) | (wordaddr[2] >> (sizeof(__vaword)*8-start_offset*8)); iret3 = (wordaddr[2] << (start_offset*8)) | ((wordaddr[3] & mask3) >> (sizeof(__vaword)*8-start_offset*8)); } } else { /* Assign iret, iret2, iret3, iret4. */ if (end_offset <= 4*sizeof(__vaword)) { /* 3*sizeof(__vaword) < end_offset ≤ 4*sizeof(__vaword) */ __vaword mask3 = - ((__vaword)1 << (4*sizeof(__vaword)*8-end_offset*8)); iret = (wordaddr[0] << (start_offset*8)) | (wordaddr[1] >> (sizeof(__vaword)*4-start_offset*4) >> (sizeof(__vaword)*4-start_offset*4)); iret2 = (wordaddr[1] << (start_offset*8)) | (wordaddr[2] >> (sizeof(__vaword)*4-start_offset*4) >> (sizeof(__vaword)*4-start_offset*4)); iret3 = (wordaddr[2] << (start_offset*8)) | ((wordaddr[3] & mask3) >> (sizeof(__vaword)*4-start_offset*4) >> (sizeof(__vaword)*4-start_offset*4)); iret4 = (wordaddr[3] & mask3) << (start_offset*8); } else { /* 4*sizeof(__vaword) < end_offset < 5*sizeof(__vaword), start_offset > 0 */ __vaword mask4 = - ((__vaword)1 << (5*sizeof(__vaword)*8-end_offset*8)); iret = (wordaddr[0] << (start_offset*8)) | (wordaddr[1] >> (sizeof(__vaword)*8-start_offset*8)); iret2 = (wordaddr[1] << (start_offset*8)) | (wordaddr[2] >> (sizeof(__vaword)*8-start_offset*8)); iret3 = (wordaddr[2] << (start_offset*8)) | (wordaddr[3] >> (sizeof(__vaword)*8-start_offset*8)); iret4 = (wordaddr[3] << (start_offset*8)) | ((wordaddr[4] & mask4) >> (sizeof(__vaword)*8-start_offset*8)); } } #endif } } } } libffcall-2.2/vacall/vacall-armhf-macro.S0000664000000000000000000001273513530357112015216 00000000000000#include "asm-arm.h" #ifdef __PIC__ .arch armv6 .eabi_attribute 28, 1 .eabi_attribute 20, 1 .eabi_attribute 21, 1 .eabi_attribute 23, 3 .eabi_attribute 24, 1 .eabi_attribute 25, 1 .eabi_attribute 26, 1 .eabi_attribute 30, 2 .eabi_attribute 34, 1 .eabi_attribute 18, 4 .text .align 2 .global C(vacall_receiver) .syntax unified .arm .fpu vfpv3-d16 .type vacall_receiver, %function FUNBEGIN(vacall_receiver) // args = 20, pretend = 16, frame = 176 // frame_needed = 1, uses_anonymous_args = 0 sub sp, sp, $16 mov ip, $0 push {r4, r5, r6, fp, lr} add fp, sp, $16 ldr r4, L(32) ldr r5, L(32)+4 add lr, fp, $4 L(PIC0): add r4, pc, r4 add r6, fp, $20 sub sp, sp, $180 stm lr, {r0, r1, r2, r3} vstr.32 s0, [fp, $-152] vstr.32 s1, [fp, $-148] vstr.32 s2, [fp, $-144] vstr.32 s3, [fp, $-140] vstr.32 s4, [fp, $-136] vstr.32 s5, [fp, $-132] vstr.32 s6, [fp, $-128] vstr.32 s7, [fp, $-124] vstr.32 s8, [fp, $-120] vstr.32 s9, [fp, $-116] vstr.32 s10, [fp, $-112] vstr.32 s11, [fp, $-108] vstr.32 s12, [fp, $-104] vstr.32 s13, [fp, $-100] vstr.32 s14, [fp, $-96] vstr.32 s15, [fp, $-92] vstr.64 d0, [fp, $-84] vstr.64 d1, [fp, $-76] vstr.64 d2, [fp, $-68] vstr.64 d3, [fp, $-60] vstr.64 d4, [fp, $-52] vstr.64 d5, [fp, $-44] vstr.64 d6, [fp, $-36] vstr.64 d7, [fp, $-28] str lr, [fp, $-164] str ip, [fp, $-196] str ip, [fp, $-160] str r6, [fp, $-180] str ip, [fp, $-156] str ip, [fp, $-176] strb ip, [fp, $-172] ldr r2, [r4, r5] mov r3, r4 sub r0, fp, $196 ldr r3, [r2] blx r3 ldrb r3, [fp, $-172] // zero_extendqisi2 cmp r3, $0 beq L(1) cmp r3, $1 beq L(25) cmp r3, $2 ldrsbeq r0, [fp, $-188] beq L(1) cmp r3, $3 beq L(25) cmp r3, $4 ldrsheq r0, [fp, $-188] beq L(1) cmp r3, $5 ldrheq r0, [fp, $-188] beq L(1) cmp r3, $6 beq L(27) cmp r3, $7 beq L(27) cmp r3, $8 beq L(27) cmp r3, $9 beq L(27) sub r2, r3, $10 cmp r2, $1 bls L(29) cmp r3, $12 vldreq.32 s0, [fp, $-188] beq L(1) cmp r3, $13 beq L(30) cmp r3, $14 beq L(27) cmp r3, $15 bne L(1) ldr r3, [fp, $-196] tst r3, $1024 beq L(1) ldr r3, [fp, $-168] cmp r3, $1 beq L(31) cmp r3, $2 ldr r3, [fp, $-176] ldrheq r0, [r3] ldrne r0, [r3] L(1): sub sp, fp, $16 // sp needed pop {r4, r5, r6, fp, lr} add sp, sp, $16 bx lr L(25): ldrb r0, [fp, $-188] // zero_extendqisi2 sub sp, fp, $16 // sp needed pop {r4, r5, r6, fp, lr} add sp, sp, $16 bx lr L(27): ldr r0, [fp, $-188] sub sp, fp, $16 // sp needed pop {r4, r5, r6, fp, lr} add sp, sp, $16 bx lr L(30): vldr.64 d0, [fp, $-188] b L(1) L(29): ldr r0, [fp, $-188] ldr r1, [fp, $-184] b L(1) L(31): ldr r3, [fp, $-176] ldrb r0, [r3] // zero_extendqisi2 b L(1) L(33): .align 2 L(32): .word _GLOBAL_OFFSET_TABLE_-(L(PIC0)+8) .word C(vacall_function)(GOT) FUNEND(vacall_receiver) #else .arch armv6 .eabi_attribute 28, 1 .eabi_attribute 20, 1 .eabi_attribute 21, 1 .eabi_attribute 23, 3 .eabi_attribute 24, 1 .eabi_attribute 25, 1 .eabi_attribute 26, 1 .eabi_attribute 30, 2 .eabi_attribute 34, 1 .eabi_attribute 18, 4 .text .align 2 .global C(vacall_receiver) .syntax unified .arm .fpu vfpv3-d16 .type vacall_receiver, %function FUNBEGIN(vacall_receiver) // args = 20, pretend = 16, frame = 176 // frame_needed = 1, uses_anonymous_args = 0 sub sp, sp, $16 mov ip, $0 push {r4, r5, fp, lr} add fp, sp, $12 ldr r4, L(32) add lr, fp, $4 add r5, fp, $20 sub sp, sp, $176 stm lr, {r0, r1, r2, r3} vstr.32 s0, [fp, $-144] vstr.32 s1, [fp, $-140] vstr.32 s2, [fp, $-136] vstr.32 s3, [fp, $-132] vstr.32 s4, [fp, $-128] vstr.32 s5, [fp, $-124] vstr.32 s6, [fp, $-120] vstr.32 s7, [fp, $-116] vstr.32 s8, [fp, $-112] vstr.32 s9, [fp, $-108] vstr.32 s10, [fp, $-104] vstr.32 s11, [fp, $-100] vstr.32 s12, [fp, $-96] vstr.32 s13, [fp, $-92] vstr.32 s14, [fp, $-88] vstr.32 s15, [fp, $-84] vstr.64 d0, [fp, $-76] vstr.64 d1, [fp, $-68] vstr.64 d2, [fp, $-60] vstr.64 d3, [fp, $-52] vstr.64 d4, [fp, $-44] vstr.64 d5, [fp, $-36] vstr.64 d6, [fp, $-28] vstr.64 d7, [fp, $-20] str lr, [fp, $-156] str ip, [fp, $-188] sub r0, fp, $188 str ip, [fp, $-152] ldr r3, [r4] str r5, [fp, $-172] str ip, [fp, $-148] str ip, [fp, $-168] strb ip, [fp, $-164] blx r3 ldrb r3, [fp, $-164] // zero_extendqisi2 cmp r3, $0 beq L(1) cmp r3, $1 beq L(25) cmp r3, $2 ldrsbeq r0, [fp, $-180] beq L(1) cmp r3, $3 beq L(25) cmp r3, $4 ldrsheq r0, [fp, $-180] beq L(1) cmp r3, $5 ldrheq r0, [fp, $-180] beq L(1) cmp r3, $6 beq L(27) cmp r3, $7 beq L(27) cmp r3, $8 beq L(27) cmp r3, $9 beq L(27) sub r2, r3, $10 cmp r2, $1 bls L(29) cmp r3, $12 vldreq.32 s0, [fp, $-180] beq L(1) cmp r3, $13 beq L(30) cmp r3, $14 beq L(27) cmp r3, $15 bne L(1) ldr r3, [fp, $-188] tst r3, $1024 beq L(1) ldr r3, [fp, $-160] cmp r3, $1 beq L(31) cmp r3, $2 ldr r3, [fp, $-168] ldrheq r0, [r3] ldrne r0, [r3] L(1): sub sp, fp, $12 // sp needed pop {r4, r5, fp, lr} add sp, sp, $16 bx lr L(25): ldrb r0, [fp, $-180] // zero_extendqisi2 sub sp, fp, $12 // sp needed pop {r4, r5, fp, lr} add sp, sp, $16 bx lr L(27): ldr r0, [fp, $-180] sub sp, fp, $12 // sp needed pop {r4, r5, fp, lr} add sp, sp, $16 bx lr L(30): vldr.64 d0, [fp, $-180] b L(1) L(29): ldr r0, [fp, $-180] ldr r1, [fp, $-176] b L(1) L(31): ldr r3, [fp, $-168] ldrb r0, [r3] // zero_extendqisi2 b L(1) L(33): .align 2 L(32): .word C(vacall_function) FUNEND(vacall_receiver) #endif #if defined __linux__ || defined __FreeBSD__ || defined __FreeBSD_kernel__ || defined __DragonFly__ .section .note.GNU-stack,"",%progbits #endif libffcall-2.2/vacall/vacall-arm-linux.s0000664000000000000000000000276513530357112015000 00000000000000 .file "vacall-arm.c" .text .align 2 .global vacall_receiver .type vacall_receiver,function vacall_receiver: @ args = 20, pretend = 16, frame = 32 @ frame_needed = 1, uses_anonymous_args = 0 mov ip, sp sub sp, sp, #16 stmfd sp!, {fp, ip, lr, pc} sub fp, ip, #20 add lr, fp, #4 mov ip, #0 sub sp, sp, #32 stmia lr, {r0, r1, r2, r3} bic sp, sp, #7 str lr, [fp, #-28] str ip, [fp, #-20] str ip, [fp, #-44] str ip, [fp, #-24] sub r0, fp, #44 ldr r3, .L40 mov lr, pc ldr pc, [r3, #0] ldr r2, [fp, #-20] cmp r2, #0 beq .L1 cmp r2, #1 beq .L38 cmp r2, #2 ldreqsb r0, [fp, #-36] beq .L1 cmp r2, #3 beq .L38 cmp r2, #4 ldreqsh r0, [fp, #-36] beq .L1 cmp r2, #5 ldreqh r0, [fp, #-36] beq .L1 cmp r2, #6 beq .L37 cmp r2, #7 beq .L37 cmp r2, #8 beq .L37 cmp r2, #9 beq .L37 sub r3, r2, #10 cmp r3, #1 bls .L36 cmp r2, #12 ldreq r0, [fp, #-36] @ float beq .L1 cmp r2, #13 beq .L36 cmp r2, #14 beq .L37 cmp r2, #15 beq .L39 .L1: ldmea fp, {fp, sp, pc} .L39: ldr r3, [fp, #-44] tst r3, #1024 beq .L1 ldr r3, [fp, #-16] cmp r3, #1 ldreq r3, [fp, #-24] ldreqb r0, [r3, #0] @ zero_extendqisi2 beq .L1 cmp r3, #2 ldreq r3, [fp, #-24] ldrne r3, [fp, #-24] ldreqh r0, [r3, #0] ldrne r0, [r3, #0] b .L1 .L37: ldr r0, [fp, #-36] b .L1 .L36: sub r0, fp, #36 ldmia r0, {r0, r1} @ phole ldm b .L1 .L38: ldrb r0, [fp, #-36] @ zero_extendqisi2 b .L1 .L41: .align 2 .L40: .word vacall_function .Lfe1: .size vacall_receiver,.Lfe1-vacall_receiver .ident "GCC: (GNU) 3.1" libffcall-2.2/vacall/README0000664000000000000000000000473713347755333012336 00000000000000vacall - C functions called with variable arguments This library allows C functions to be called with variable arguments and to return variable return values. This is much like the varargs(3) facility, but also allows the return value to be specified at run time. A typical use is the implementation of call-back functions in embedded interpreters. Installation instructions: Configure the parent directory. Then: cd vacall make make check make install Files in this package: Documentation: README this text COPYING free software license PLATFORMS list of supported platforms vacall.3 manual page in Unix man format vacall.man manual page vacall.html manual page in HTML format Source: vacall.h main include file vacall-*.c source for the main interface function vacall-*.[sS] its translation to assembly language vacall-libapi.c implementation of other library API vacall-structcpy.c auxiliary function tests.c test program Building: Makefile.in Makefile master Porting: Makefile.devel developer's Makefile This subdirectory produces a static library. Reason: The vacall-*.c files access global variables. Such accesses causes portability problems when combined with the option -fPIC (because of the small/medium/large memory models and platform dependent assembler syntax to access the GOT). Therefore Makefile.devel in this directory compiles the files without -fPIC. Therefore the resulting object files are not suitable for being put into a shared library. Therefore this direcory must - either not use libtool, - or pass '-static' to $(LIBTOOL_LINK) when creating libvacall.la. Copyright notice: Copyright 1995-2017 Bruno Haible This program is free software: you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program. If not, see . libffcall-2.2/vacall/vacall-x86_64-windows-macro.S0000664000000000000000000001543313530357113016546 00000000000000#include "asm-x86_64.h" TEXT() P2ALIGN(4,15) GLOBL(C(vacall_receiver)) DECLARE_FUNCTION(vacall_receiver) FUNBEGIN(vacall_receiver) L(FB0): INSN1(push,q ,R(rbp)) L(CFI0): INSN2(mov,q ,R(rsp), R(rbp)) L(CFI1): INSN2(sub,q ,NUM(144), R(rsp)) INSN2(mov,q ,R(rcx),X8 MEM_DISP(rbp,16)) INSN2(lea,q ,X8 MEM_DISP(rbp,16), R(rcx)) INSN2(mov,q ,R(rdx),X8 MEM_DISP(rbp,24)) INSN2(mov,q ,R(r8),X8 MEM_DISP(rbp,32)) INSN2(mov,q ,R(r9),X8 MEM_DISP(rbp,40)) INSN2S(movs,s ,R(xmm0),X4 MEM_DISP(rbp,-52)) INSN2(mov,q ,R(rcx),X8 MEM_DISP(rbp,-88)) INSN2S(movs,s ,R(xmm1),X4 MEM_DISP(rbp,-48)) INSN2(mov,l ,NUM(0),X4 MEM_DISP(rbp,-112)) INSN2S(movs,s ,R(xmm2),X4 MEM_DISP(rbp,-44)) INSN2(mov,q ,NUM(0),X8 MEM_DISP(rbp,-80)) INSN2(lea,q ,X8 MEM_DISP(rbp,-112), R(rcx)) INSN2S(movs,s ,R(xmm3),X4 MEM_DISP(rbp,-40)) INSN2(mov,l ,NUM(0),X4 MEM_DISP(rbp,-72)) INSN2S(movs,d ,R(xmm0),X8 MEM_DISP(rbp,-32)) INSN2(mov,l ,NUM(0),X4 MEM_DISP(rbp,-56)) INSN2S(movs,d ,R(xmm1),X8 MEM_DISP(rbp,-24)) INSN2S(movs,d ,R(xmm2),X8 MEM_DISP(rbp,-16)) INSN2S(movs,d ,R(xmm3),X8 MEM_DISP(rbp,-8)) INSN1(call,_ ,INDIR(X8 MEM_PCRELATIVE(C(vacall_function)))) INSN2(mov,l ,X4 MEM_DISP(rbp,-72), R(edx)) INSN2(test,l ,R(edx), R(edx)) INSN1(je,_ ,L(1)) INSN2(cmp,l ,NUM(1), R(edx)) INSN1(je,_ ,L(34)) INSN2(cmp,l ,NUM(2), R(edx)) INSN1(je,_ ,L(34)) INSN2(cmp,l ,NUM(3), R(edx)) INSN1(je,_ ,L(37)) INSN2(cmp,l ,NUM(4), R(edx)) INSN1(je,_ ,L(38)) INSN2(cmp,l ,NUM(5), R(edx)) INSN1(je,_ ,L(39)) INSN2(cmp,l ,NUM(6), R(edx)) INSN1(je,_ ,L(40)) INSN2(cmp,l ,NUM(7), R(edx)) INSN1(je,_ ,L(41)) INSN2(cmp,l ,NUM(8), R(edx)) INSN1(je,_ ,L(35)) INSN2(cmp,l ,NUM(9), R(edx)) INSN1(je,_ ,L(35)) INSN2(cmp,l ,NUM(10), R(edx)) INSN1(je,_ ,L(35)) INSN2(cmp,l ,NUM(11), R(edx)) INSN1(je,_ ,L(35)) INSN2(cmp,l ,NUM(12), R(edx)) INSN1(je,_ ,L(42)) INSN2(cmp,l ,NUM(13), R(edx)) INSN1(je,_ ,L(43)) INSN2(cmp,l ,NUM(14), R(edx)) INSN1(je,_ ,L(35)) INSN2(cmp,l ,NUM(15), R(edx)) INSN1(jne,_ ,L(1)) INSN2(test,b ,NUM(4),X1 MEM_DISP(rbp,-111)) INSN1(je,_ ,L(17)) INSN2(mov,q ,X8 MEM_DISP(rbp,-64), R(rdx)) INSN2(lea,q ,X8 MEM_DISP(rdx,-4), R(rcx)) INSN2(test,q ,NUM(-5), R(rcx)) INSN1(je,_ ,L(20)) INSN2(lea,q ,X8 MEM_DISP(rdx,-1), R(rcx)) INSN2(cmp,q ,NUM(1), R(rcx)) INSN1(ja,_ ,L(1)) L(20): INSN2(mov,q ,X8 MEM_DISP(rbp,-80), R(r8)) INSN2(mov,q ,R(r8), R(r9)) INSN2(and,l ,NUM(7), R(r8d)) INSN2(add,q ,R(r8), R(rdx)) INSN2(and,q ,NUM(-8), R(r9)) INSN2(cmp,q ,NUM(8), R(rdx)) INSN1(ja,_ ,L(19)) INSN2(lea,l ,X4 MEM_DISP_SHINDEX0(-1,rdx,8), R(ecx)) INSN2(mov,l ,NUM(2), R(edx)) INSN2(sal,q ,R(cl), R(rdx)) INSN2(lea,l ,X4 MEM_DISP_SHINDEX0(0,r8,8), R(ecx)) INSN2(sub,q ,NUM(1), R(rdx)) INSN2(and,q ,X8 MEM(r9), R(rdx)) INSN2(sar,q ,R(cl), R(rdx)) INSN2(mov,q ,R(rdx), R(rax)) L(1): leave L(CFI2): ret P2ALIGN(4,10) P2ALIGN(3,7) L(34): L(CFI3): INSN2MOVXQ(movs,b,X1 MEM_DISP(rbp,-104), R(rax)) leave L(CFI4): ret P2ALIGN(4,10) P2ALIGN(3,7) L(35): L(CFI5): INSN2(mov,q ,X8 MEM_DISP(rbp,-104), R(rax)) leave L(CFI6): ret P2ALIGN(4,10) P2ALIGN(3,7) L(37): L(CFI7): INSN2MOVXL(movz,b,X1 MEM_DISP(rbp,-104), R(eax)) leave L(CFI8): ret P2ALIGN(4,10) P2ALIGN(3,7) L(38): L(CFI9): INSN2MOVXQ(movs,w,X2 MEM_DISP(rbp,-104), R(rax)) leave L(CFI10): ret P2ALIGN(4,10) P2ALIGN(3,7) L(39): L(CFI11): INSN2MOVXL(movz,w,X2 MEM_DISP(rbp,-104), R(eax)) leave L(CFI12): ret P2ALIGN(4,10) P2ALIGN(3,7) L(40): L(CFI13): INSN2MOVXLQ(movs,l,X4 MEM_DISP(rbp,-104), R(rax)) leave L(CFI14): ret P2ALIGN(4,10) P2ALIGN(3,7) L(42): L(CFI15): INSN2S(movs,s ,X4 MEM_DISP(rbp,-104), R(xmm0)) leave L(CFI16): ret P2ALIGN(4,10) P2ALIGN(3,7) L(41): L(CFI17): INSN2(mov,l ,X4 MEM_DISP(rbp,-104), R(eax)) leave L(CFI18): ret L(43): L(CFI19): INSN2S(movs,d ,X8 MEM_DISP(rbp,-104), R(xmm0)) leave L(CFI20): ret L(17): L(CFI21): INSN2(mov,q ,X8 MEM_DISP(rbp,-80), R(rax)) leave L(CFI22): ret L(19): L(CFI23): INSN2(lea,l ,X4 MEM_DISP_SHINDEX0(-65,rdx,8), R(ecx)) INSN2(mov,l ,NUM(2), R(edx)) INSN2(sal,q ,R(cl), R(rdx)) INSN2(mov,l ,R(r8d), R(ecx)) INSN2(sub,q ,NUM(1), R(rdx)) INSN2(and,q ,X8 MEM_DISP(r9,8), R(rdx)) INSN1(neg,l ,R(ecx)) INSN2(lea,l ,X4 MEM_DISP_SHINDEX0(64,rcx,8), R(ecx)) INSN2(sal,q ,R(cl), R(rdx)) INSN2(lea,l ,X4 MEM_DISP_SHINDEX0(0,r8,8), R(ecx)) INSN2(mov,q ,X8 MEM(r9), R(r8)) leave L(CFI24): INSN2(sar,q ,R(cl), R(r8)) INSN2(or,q ,R(r8), R(rdx)) INSN2(mov,q ,R(rdx), R(rax)) ret L(FE0): FUNEND(vacall_receiver, .-vacall_receiver) #if !(defined __sun || (defined __APPLE__ && defined __MACH__) || (defined _WIN32 || defined __CYGWIN__)) .section EH_FRAME_SECTION L(frame1): .long L(ECIE1)-.LSCIE1 L(SCIE1): .long 0 .byte 0x3 .string "zR" .uleb128 0x1 .sleb128 -8 .uleb128 0x10 .uleb128 0x1 .byte 0x3 .byte 0xc .uleb128 0x7 .uleb128 0x8 .byte 0x90 .uleb128 0x1 .align 8 L(ECIE1): L(SFDE1): .long L(EFDE1)-.LASFDE1 L(ASFDE1): .long L(ASFDE1)-.Lframe1 .long L(FB0) .long L(FE0)-.LFB0 .uleb128 0 .byte 0x4 .long L(CFI0)-.LFB0 .byte 0xe .uleb128 0x10 .byte 0x86 .uleb128 0x2 .byte 0x4 .long L(CFI1)-.LCFI0 .byte 0xd .uleb128 0x6 .byte 0x4 .long L(CFI2)-.LCFI1 .byte 0xa .byte 0xc6 .byte 0xc .uleb128 0x7 .uleb128 0x8 .byte 0x4 .long L(CFI3)-.LCFI2 .byte 0xb .byte 0x4 .long L(CFI4)-.LCFI3 .byte 0xa .byte 0xc6 .byte 0xc .uleb128 0x7 .uleb128 0x8 .byte 0x4 .long L(CFI5)-.LCFI4 .byte 0xb .byte 0x4 .long L(CFI6)-.LCFI5 .byte 0xa .byte 0xc6 .byte 0xc .uleb128 0x7 .uleb128 0x8 .byte 0x4 .long L(CFI7)-.LCFI6 .byte 0xb .byte 0x4 .long L(CFI8)-.LCFI7 .byte 0xa .byte 0xc6 .byte 0xc .uleb128 0x7 .uleb128 0x8 .byte 0x4 .long L(CFI9)-.LCFI8 .byte 0xb .byte 0x4 .long L(CFI10)-.LCFI9 .byte 0xa .byte 0xc6 .byte 0xc .uleb128 0x7 .uleb128 0x8 .byte 0x4 .long L(CFI11)-.LCFI10 .byte 0xb .byte 0x4 .long L(CFI12)-.LCFI11 .byte 0xa .byte 0xc6 .byte 0xc .uleb128 0x7 .uleb128 0x8 .byte 0x4 .long L(CFI13)-.LCFI12 .byte 0xb .byte 0x4 .long L(CFI14)-.LCFI13 .byte 0xa .byte 0xc6 .byte 0xc .uleb128 0x7 .uleb128 0x8 .byte 0x4 .long L(CFI15)-.LCFI14 .byte 0xb .byte 0x4 .long L(CFI16)-.LCFI15 .byte 0xa .byte 0xc6 .byte 0xc .uleb128 0x7 .uleb128 0x8 .byte 0x4 .long L(CFI17)-.LCFI16 .byte 0xb .byte 0x4 .long L(CFI18)-.LCFI17 .byte 0xa .byte 0xc6 .byte 0xc .uleb128 0x7 .uleb128 0x8 .byte 0x4 .long L(CFI19)-.LCFI18 .byte 0xb .byte 0x4 .long L(CFI20)-.LCFI19 .byte 0xa .byte 0xc6 .byte 0xc .uleb128 0x7 .uleb128 0x8 .byte 0x4 .long L(CFI21)-.LCFI20 .byte 0xb .byte 0x4 .long L(CFI22)-.LCFI21 .byte 0xa .byte 0xc6 .byte 0xc .uleb128 0x7 .uleb128 0x8 .byte 0x4 .long L(CFI23)-.LCFI22 .byte 0xb .byte 0x4 .long L(CFI24)-.LCFI23 .byte 0xc6 .byte 0xc .uleb128 0x7 .uleb128 0x8 .align 8 L(EFDE1): #endif #if defined __linux__ || defined __FreeBSD__ || defined __FreeBSD_kernel__ || defined __DragonFly__ .section .note.GNU-stack,"",@progbits #endif libffcall-2.2/vacall/vacall-mips64el-linux.s0000664000000000000000000001167313530357111015661 00000000000000 .file 1 "vacall-mips64.c" .section .mdebug.abi64 .previous .nan legacy .module fp=64 .module oddspreg .abicalls .text .align 2 .align 3 .globl vacall_receiver .set nomips16 .set nomicromips .ent vacall_receiver .type vacall_receiver, @function vacall_receiver: .frame $fp,272,$31 # vars= 160, regs= 6/0, args= 0, gp= 0 .mask 0xd0070000,-72 .fmask 0x00000000,0 .set noreorder .set nomacro daddiu $sp,$sp,-272 sd $28,184($sp) lui $28,%hi(%neg(%gp_rel(vacall_receiver))) daddu $28,$28,$25 daddiu $28,$28,%lo(%neg(%gp_rel(vacall_receiver))) ld $12,%got_disp(vacall_function)($28) sd $fp,192($sp) move $fp,$sp ld $25,0($12) daddiu $12,$fp,208 sd $31,200($sp) sd $18,176($sp) sd $17,168($sp) sd $16,160($sp) sd $4,208($fp) sd $5,216($fp) sd $6,224($fp) sd $7,232($fp) sd $8,240($fp) sd $9,248($fp) sd $10,256($fp) sd $11,264($fp) sdc1 $f12,96($fp) sdc1 $f13,104($fp) sdc1 $f14,112($fp) sdc1 $f15,120($fp) sdc1 $f16,128($fp) sdc1 $f17,136($fp) sdc1 $f18,144($fp) sdc1 $f19,152($fp) swc1 $f12,60($fp) swc1 $f13,64($fp) swc1 $f14,68($fp) swc1 $f15,72($fp) swc1 $f16,76($fp) swc1 $f17,80($fp) swc1 $f18,84($fp) swc1 $f19,88($fp) move $4,$fp sw $0,0($fp) sd $12,24($fp) sd $0,32($fp) sw $0,40($fp) jalr $25 sw $0,56($fp) lw $12,40($fp) beq $12,$0,.L1 li $13,1 # 0x1 beq $12,$13,.L43 li $13,2 # 0x2 beq $12,$13,.L43 li $13,3 # 0x3 beq $12,$13,.L46 li $13,4 # 0x4 beq $12,$13,.L47 li $13,5 # 0x5 beq $12,$13,.L48 li $13,6 # 0x6 beq $12,$13,.L49 li $13,7 # 0x7 beq $12,$13,.L50 li $13,8 # 0x8 beq $12,$13,.L44 li $13,9 # 0x9 beq $12,$13,.L44 li $13,10 # 0xa beq $12,$13,.L44 li $13,11 # 0xb beq $12,$13,.L44 li $13,12 # 0xc beq $12,$13,.L51 li $13,13 # 0xd beq $12,$13,.L52 li $13,14 # 0xe beq $12,$13,.L44 li $13,15 # 0xf bnel $12,$13,.L58 move $sp,$fp lw $12,0($fp) andi $13,$12,0x400 beq $13,$0,.L1 andi $13,$12,0x4 beq $13,$0,.L19 ld $14,48($fp) ld $12,48($fp) li $13,1 # 0x1 beq $12,$13,.L53 li $13,2 # 0x2 beq $12,$13,.L54 li $13,4 # 0x4 beq $12,$13,.L55 li $13,8 # 0x8 bnel $12,$13,.L58 move $sp,$fp ld $12,32($fp) ld $2,0($12) .L1: move $sp,$fp .L58: ld $31,200($sp) ld $fp,192($sp) ld $28,184($sp) ld $18,176($sp) ld $17,168($sp) ld $16,160($sp) j $31 daddiu $sp,$sp,272 .align 3 .L43: move $sp,$fp ld $31,200($sp) ld $28,184($sp) ld $18,176($sp) ld $17,168($sp) ld $16,160($sp) lb $2,8($fp) ld $fp,192($sp) j $31 daddiu $sp,$sp,272 .align 3 .L44: b .L1 ld $2,8($fp) .align 3 .L46: b .L1 lbu $2,8($fp) .align 3 .L47: b .L1 lh $2,8($fp) .align 3 .L48: b .L1 lhu $2,8($fp) .align 3 .L49: b .L1 lw $2,8($fp) .align 3 .L51: b .L1 lwc1 $f0,8($fp) .align 3 .L50: b .L1 lwu $2,8($fp) .L52: b .L1 ldc1 $f0,8($fp) .L19: daddiu $13,$14,-1 sltu $13,$13,16 beql $13,$0,.L59 andi $13,$12,0x800 ld $13,32($fp) li $15,-8 # 0xfffffffffffffff8 sltu $25,$14,9 andi $24,$13,0x7 and $15,$13,$15 beq $25,$0,.L24 daddu $13,$14,$24 sltu $25,$13,9 beq $25,$0,.L25 dsll $13,$13,3 daddiu $13,$13,-1 ld $25,0($15) sll $13,$13,0 li $15,2 # 0x2 dsll $13,$15,$13 daddiu $13,$13,-1 and $13,$13,$25 sll $24,$24,3 dsra $2,$13,$24 .L23: andi $13,$12,0x800 .L59: beql $13,$0,.L27 andi $12,$12,0x1000 li $13,4 # 0x4 beq $14,$13,.L56 li $13,8 # 0x8 beql $14,$13,.L57 ld $13,32($fp) andi $12,$12,0x1000 beql $12,$0,.L58 move $sp,$fp li $12,16 # 0x10 .L60: bnel $14,$12,.L58 move $sp,$fp ld $12,32($fp) ldc1 $f0,0($12) b .L1 ldc1 $f2,8($12) .L27: beq $12,$0,.L1 li $12,8 # 0x8 bne $14,$12,.L60 li $12,16 # 0x10 ld $13,32($fp) b .L1 ldc1 $f0,0($13) .L24: sltu $25,$13,17 beq $25,$0,.L26 dsll $13,$13,3 daddiu $13,$13,-65 ld $17,8($15) li $25,2 # 0x2 sll $13,$13,0 dsll $13,$25,$13 subu $25,$0,$24 sll $25,$25,2 ld $16,0($15) daddiu $13,$13,-1 addiu $15,$25,32 and $13,$13,$17 sll $24,$24,3 dsll $25,$13,$15 dsra $16,$16,$24 dsll $15,$25,$15 or $2,$16,$15 b .L23 dsra $3,$13,$24 .L53: ld $12,32($fp) b .L1 lbu $2,0($12) .L54: ld $12,32($fp) b .L1 lhu $2,0($12) .L26: daddiu $13,$13,-129 ld $16,8($15) ld $17,0($15) sll $13,$13,0 ld $18,16($15) li $15,2 # 0x2 subu $25,$0,$24 dsll $15,$15,$13 daddiu $15,$15,-1 sll $25,$25,3 sll $24,$24,3 addiu $25,$25,64 and $13,$15,$18 dsll $13,$13,$25 dsra $15,$17,$24 dsll $17,$16,$25 dsra $24,$16,$24 or $2,$15,$17 b .L23 or $3,$13,$24 .L56: ld $12,32($fp) b .L1 lwc1 $f0,0($12) .L55: ld $12,32($fp) b .L1 lwu $2,0($12) .L25: daddiu $13,$13,-65 li $25,2 # 0x2 sll $13,$13,0 ld $17,8($15) dsll $13,$25,$13 ld $25,0($15) daddiu $13,$13,-1 subu $16,$0,$24 and $15,$13,$17 sll $24,$24,3 sll $13,$16,3 dsll $13,$15,$13 dsra $24,$25,$24 b .L23 or $2,$13,$24 .L57: andi $12,$12,0x1000 lwc1 $f0,0($13) beq $12,$0,.L1 lwc1 $f2,4($13) b .L1 ldc1 $f0,0($13) .set macro .set reorder .end vacall_receiver .size vacall_receiver, .-vacall_receiver .ident "GCC: (GNU) 5.4.0" libffcall-2.2/vacall/vacall-mipsn32el-macro.S0000664000000000000000000001102613530357111015724 00000000000000#include "asm-mips.h" .file 1 "vacall-mipsn32.c" .text .align 2 .align 3 .globl vacall_receiver .set nomips16 .set nomicromips .ent vacall_receiver DECLARE_FUNCTION(vacall_receiver) vacall_receiver: .frame $fp,256,$31 .mask 0xd0070000,-72 .fmask 0x00000000,0 .set noreorder .set nomacro addiu $sp,$sp,-256 sd $28,168($sp) lui $28,%hi(__gnu_local_gp) addiu $28,$28,%lo(__gnu_local_gp) lw $12,%got_disp(vacall_function)($28) sd $fp,176($sp) move $fp,$sp lw $25,0($12) addiu $12,$fp,192 sd $31,184($sp) sd $18,160($sp) sd $17,152($sp) sd $16,144($sp) sd $4,192($fp) sd $5,200($fp) sd $6,208($fp) sd $7,216($fp) sd $8,224($fp) sd $9,232($fp) sd $10,240($fp) sd $11,248($fp) sdc1 $f12,80($fp) sdc1 $f13,88($fp) sdc1 $f14,96($fp) sdc1 $f15,104($fp) sdc1 $f16,112($fp) sdc1 $f17,120($fp) sdc1 $f18,128($fp) sdc1 $f19,136($fp) swc1 $f12,44($fp) swc1 $f13,48($fp) swc1 $f14,52($fp) swc1 $f15,56($fp) swc1 $f16,60($fp) swc1 $f17,64($fp) swc1 $f18,68($fp) swc1 $f19,72($fp) move $4,$fp sw $0,0($fp) sw $12,24($fp) sw $0,28($fp) sw $0,32($fp) jalr $25 sw $0,40($fp) lw $12,32($fp) beq $12,$0,.L1 li $13,1 beq $12,$13,.L43 li $13,2 beq $12,$13,.L43 li $13,3 beq $12,$13,.L49 li $13,4 beq $12,$13,.L50 li $13,5 beq $12,$13,.L51 li $13,6 beq $12,$13,.L46 li $13,7 beq $12,$13,.L45 li $13,8 beq $12,$13,.L46 li $13,9 beq $12,$13,.L45 li $13,10 beq $12,$13,.L47 li $13,11 beq $12,$13,.L47 li $13,12 beq $12,$13,.L52 li $13,13 beq $12,$13,.L53 li $13,14 beq $12,$13,.L46 li $13,15 bnel $12,$13,.L59 move $sp,$fp lw $12,0($fp) andi $13,$12,0x400 beq $13,$0,.L1 andi $13,$12,0x4 beq $13,$0,.L19 lw $24,36($fp) lw $12,36($fp) li $13,1 beq $12,$13,.L54 li $13,2 beq $12,$13,.L55 li $13,4 beq $12,$13,.L56 li $13,8 bnel $12,$13,.L59 move $sp,$fp lw $12,28($fp) ld $2,0($12) .L1: move $sp,$fp .L59: ld $31,184($sp) ld $fp,176($sp) ld $28,168($sp) ld $18,160($sp) ld $17,152($sp) ld $16,144($sp) j $31 addiu $sp,$sp,256 .align 3 .L43: move $sp,$fp ld $31,184($sp) ld $28,168($sp) ld $18,160($sp) ld $17,152($sp) ld $16,144($sp) lb $2,8($fp) ld $fp,176($sp) j $31 addiu $sp,$sp,256 .align 3 .L46: b .L1 lw $2,8($fp) .align 3 .L49: b .L1 lbu $2,8($fp) .align 3 .L50: b .L1 lh $2,8($fp) .align 3 .L45: b .L1 lwu $2,8($fp) .align 3 .L51: b .L1 lhu $2,8($fp) .align 3 .L52: b .L1 lwc1 $f0,8($fp) .align 3 .L47: b .L1 ld $2,8($fp) .L53: b .L1 ldc1 $f0,8($fp) .L19: addiu $13,$24,-1 sltu $13,$13,16 beql $13,$0,.L60 andi $13,$12,0x800 lw $13,28($fp) li $15,-8 sltu $25,$24,9 andi $14,$13,0x7 and $15,$13,$15 beq $25,$0,.L24 addu $13,$24,$14 sltu $25,$13,9 beq $25,$0,.L25 sll $13,$13,3 ld $25,0($15) addiu $13,$13,-1 li $15,2 dsll $13,$15,$13 daddiu $13,$13,-1 and $13,$13,$25 sll $14,$14,3 dsra $2,$13,$14 .L23: andi $13,$12,0x800 .L60: beql $13,$0,.L27 andi $12,$12,0x1000 li $13,4 beq $24,$13,.L57 li $13,8 beql $24,$13,.L58 lw $13,28($fp) andi $12,$12,0x1000 beql $12,$0,.L59 move $sp,$fp li $12,16 .L61: bnel $24,$12,.L59 move $sp,$fp lw $12,28($fp) ldc1 $f0,0($12) b .L1 ldc1 $f2,8($12) .L27: beq $12,$0,.L1 li $12,8 bne $24,$12,.L61 li $12,16 lw $13,28($fp) b .L1 ldc1 $f0,0($13) .L24: sltu $25,$13,17 beq $25,$0,.L26 sll $13,$13,3 ld $17,8($15) li $25,2 addiu $13,$13,-65 dsll $13,$25,$13 subu $25,$0,$14 sll $25,$25,2 ld $16,0($15) daddiu $13,$13,-1 addiu $15,$25,32 and $13,$13,$17 sll $14,$14,3 dsll $25,$13,$15 dsra $16,$16,$14 dsll $15,$25,$15 or $2,$16,$15 b .L23 dsra $3,$13,$14 .L54: lw $12,28($fp) b .L1 lbu $2,0($12) .L55: lw $12,28($fp) b .L1 lhu $2,0($12) .L26: ld $16,8($15) ld $17,0($15) addiu $13,$13,-129 ld $18,16($15) li $15,2 subu $25,$0,$14 dsll $15,$15,$13 daddiu $15,$15,-1 sll $25,$25,3 sll $14,$14,3 addiu $25,$25,64 and $13,$15,$18 dsll $13,$13,$25 dsra $15,$17,$14 dsll $17,$16,$25 dsra $14,$16,$14 or $2,$15,$17 b .L23 or $3,$13,$14 .L57: lw $12,28($fp) b .L1 lwc1 $f0,0($12) .L56: lw $12,28($fp) b .L1 lwu $2,0($12) .L25: li $25,2 addiu $13,$13,-65 ld $17,8($15) dsll $13,$25,$13 ld $25,0($15) daddiu $13,$13,-1 subu $16,$0,$14 and $15,$13,$17 sll $14,$14,3 sll $13,$16,3 dsll $13,$15,$13 dsra $14,$25,$14 b .L23 or $2,$13,$14 .L58: andi $12,$12,0x1000 lwc1 $f0,0($13) beq $12,$0,.L1 lwc1 $f2,4($13) b .L1 ldc1 $f0,0($13) .set macro .set reorder .end vacall_receiver .size vacall_receiver, .-vacall_receiver libffcall-2.2/vacall/vacall.30000664000000000000000000001745013136760230012764 00000000000000.\" Copyright (C) 1995-2017 Bruno Haible .\" .\" This manual is free documentation. It is dually licensed under the .\" GNU FDL and the GNU GPL. This means that you can redistribute this .\" manual under either of these two licenses, at your choice. .\" .\" This manual is covered by the GNU FDL. Permission is granted to copy, .\" distribute and/or modify this document under the terms of the .\" GNU Free Documentation License (FDL), either version 1.2 of the .\" License, or (at your option) any later version published by the .\" Free Software Foundation (FSF); with no Invariant Sections, with no .\" Front-Cover Text, and with no Back-Cover Texts. .\" A copy of the license is at . .\" .\" This manual is covered by the GNU GPL. You can redistribute it and/or .\" modify it under the terms of the GNU General Public License (GPL), either .\" version 2 of the License, or (at your option) any later version published .\" by the Free Software Foundation (FSF). .\" A copy of the license is at . .\" .TH VACALL 3 "1 January 2017" .SH NAME vacall \- C functions called with variable arguments .SH SYNOPSIS .B #include .LP .B extern void* vacall_function; .LP .nf .BI "void " function " (va_alist" alist ")" .BI "{" .BI " va_start_" type "(" alist "[, " return_type "]);" .BI " " arg " = va_arg_" type "(" alist "[, " arg_type "]);" .BI " va_return_" type "(" alist "[[, " return_type "], " return_value "]);" .BI "}" .fi .LP .BI "vacall_function = " "&function" ";" .LP .IB "val" " = ((" return_type " (*) ()) vacall) (" arg1 , arg2 , ... ");" .SH DESCRIPTION This set of macros permit a C function .I function to be called with variable arguments and to return variable return values. This is much like the .BR stdarg (3) facility, but also allows the return value to be specified at run time. Function calling conventions differ considerably on different machines, and .I vacall attempts to provide some degree of isolation from such architecture dependencies. The function that can be called with any number and type of arguments and which will return any type of return value is .BR vacall . It will do some magic and call the function stored in the variable .BR vacall_function . If you want to make more than one use of .IR vacall , use the .IR trampoline (3) facility to store .I &function into .B vacall_function just before calling .BR vacall . Within .IR function , the following macros can be used to walk through the argument list and specify a return value: .RS 0 .TP .BI "va_start_" type "(" alist "[, " return_type "]);" starts the walk through the argument list and specifies the return type. .TP .IB arg " = va_arg_" type "(" alist "[, " arg_type "]);" fetches the next argument from the argument list. .TP .BI "va_return_" type "(" alist "[[, " return_type "], " return_value "]);" ends the walk through the argument list and specifies the return value. .RE The .I type in .BI va_start_ type and .BI va_return_ type shall be one of .BR void ", " int ", " uint ", " long ", " ulong ", " longlong ", " ulonglong ", " double ", " struct ", " ptr or (for ANSI C calling conventions only) .BR char ", " schar ", " uchar ", " short ", " ushort ", " float , depending on the class of .IR return_type . The .I type specifiers in .BI va_start_ type and .BI va_return_ type must be the same. The .I return_type specifiers passed to .BI va_start_ type and .BI va_return_ type must be the same. The .I type in .BI va_arg_ type shall be one of .BR int ", " uint ", " long ", " ulong ", " longlong ", " ulonglong ", " double ", " struct ", " ptr or (for ANSI C calling conventions only) .BR char ", " schar ", " uchar ", " short ", " ushort ", " float , depending on the class of .IR arg_type . In .BI "va_start_struct(" alist ", " return_type ", " splittable ); the .I splittable flag specifies whether the struct .I return_type can be returned in registers such that every struct field fits entirely in a single register. This needs to be specified for structs of size 2*sizeof(long). For structs of size <= sizeof(long), .I splittable is ignored and assumed to be 1. For structs of size > 2*sizeof(long), .I splittable is ignored and assumed to be 0. There are some handy macros for this: .nf .BI "va_word_splittable_1 (" type1 ) .BI "va_word_splittable_2 (" type1 ", " type2 ) .BI "va_word_splittable_3 (" type1 ", " type2 ", " type3 ) .BI "va_word_splittable_4 (" type1 ", " type2 ", " type3 ", " type4 ) .fi For a struct with three slots .nf .BI "struct { " "type1 id1" "; " "type2 id2" "; " "type3 id3" "; }" .fi you can specify .I splittable as .BI "va_word_splittable_3 (" type1 ", " type2 ", " type3 ) .RB . .SH NOTES Functions which want to emulate Kernighan & Ritchie style functions (i.e., in ANSI C, functions without a typed argument list) cannot use the .I type values .BR char ", " schar ", " uchar ", " short ", " ushort ", " float . As prescribed by the default K&R C expression promotions, they have to use .B int instead of .BR char ", " schar ", " uchar ", " short ", " ushort and .B double instead of .BR float . The macros .BR va_start_longlong(\|) , .BR va_start_ulonglong(\|) , .BR va_return_longlong(\|) , .BR va_return_ulonglong(\|) , .B va_arg_longlong(\|) and .B va_arg_ulonglong(\|) work only if the C compiler has a working .B long long 64-bit integer type. The struct types used in .B va_start_struct(\|) and .B va_struct(\|) must only contain (signed or unsigned) int, long, long long or pointer fields. Struct types containing (signed or unsigned) char, short, float, double or other structs are not supported. .SH EXAMPLE This example, a possible implementation of .BR execl (3) on top of .BR execv (2) using .BR stdarg (3), .nf .ft B #include #define MAXARGS 100 /* execl is called by execl(file, arg1, arg2, ..., (char *)0); */ int execl (...) { va_list ap; char* file; char* args[MAXARGS]; int argno = 0; va_start (ap); file = va_arg(ap, char*); while ((args[argno] = va_arg(ap, char*)) != (char *)0) argno++; va_end (ap); return execv(file, args); } .ft .fi looks like this using .BR vacall (3): .nf .ft B #include #define MAXARGS 100 /* execl is called by vacall(file, arg1, arg2, ..., (char *)0); */ void execl (va_alist ap) { char* file; char* args[MAXARGS]; int argno = 0; int retval; va_start_int (ap); file = va_arg_ptr(ap, char*); while ((args[argno] = va_arg_ptr(ap, char*)) != (char *)0) argno++; retval = execv(file, args); va_return_int (ap, retval); } vacall_function = &execl; .ft .fi .SH SEE ALSO .BR stdarg (3), .BR trampoline (3), .BR callback (3). .SH BUGS The current implementations have been tested on a selection of common cases but there are probably still many bugs. There are typically built-in limits on the size of the argument-list, which may also include the size of any structure arguments. The decision whether a struct is to be returned in registers or in memory considers only the struct's size and alignment. This is inaccurate: for example, gcc on m68k-next returns .B "struct { char a,b,c; }" in registers and .B "struct { char a[3]; }" in memory, although both types have the same size and the same alignment. The argument list can only be walked once. The use of the global variable .B vacall_function is not reentrant. This is fixed in the .BR callback (3) package. .SH PORTING Knowledge about argument passing conventions can be found in the gcc source, file .RI gcc-2.6.3/config/ cpu / cpu .h, section "Stack layout; function entry, exit and calling." The implementation of varargs for gcc can be found in the gcc source, files gcc-2.6.3/ginclude/va*.h. gcc's __builtin_saveregs() function is defined in the gcc source, file gcc-2.6.3/libgcc2.c. .SH AUTHOR Bruno Haible .SH ACKNOWLEDGEMENTS Many ideas and a lot of code were cribbed from the gcc source. libffcall-2.2/vacall/vacall-i386-linux.s0000664000000000000000000000375213530357111014706 00000000000000 .file "vacall-i386.c" .text .align 2 .p2align 2,,3 .globl vacall_receiver .type vacall_receiver,@function vacall_receiver: pushl %ebp movl %esp, %ebp leal 8(%ebp), %edx pushl %esi subl $64, %esp movl %edx, -40(%ebp) leal -56(%ebp), %edx movl $0, -56(%ebp) movl $0, -36(%ebp) movl $0, -32(%ebp) movl %ebx, -24(%ebp) pushl %edx call *vacall_function movl -32(%ebp), %ecx addl $16, %esp testl %ecx, %ecx je .L43 cmpl $1, %ecx je .L44 cmpl $2, %ecx je .L44 cmpl $3, %ecx je .L49 cmpl $4, %ecx je .L50 cmpl $5, %ecx je .L51 cmpl $6, %ecx je .L48 cmpl $7, %ecx je .L48 cmpl $8, %ecx je .L48 cmpl $9, %ecx je .L48 leal -10(%ecx), %edx cmpl $1, %edx ja .L22 movl -48(%ebp), %eax #APP movl -44(%ebp),%edx .L33: .p2align 2,,3 #NO_APP .L43: movl -56(%ebp), %ecx .L3: andl $512, %ecx je .L1 #APP movl 0(%ebp),%ecx #NO_APP movl -40(%ebp), %esp #APP jmp *%ecx #NO_APP .L1: movl -4(%ebp), %esi leave ret .L22: cmpl $12, %ecx je .L52 cmpl $13, %ecx je .L53 cmpl $14, %ecx je .L48 cmpl $15, %ecx jne .L43 movl -56(%ebp), %ecx testl $1024, %ecx movl %ecx, %esi je .L31 movl -28(%ebp), %edx cmpl $1, %edx je .L54 cmpl $2, %edx je .L55 cmpl $4, %edx je .L56 cmpl $8, %edx je .L57 .L31: andl $16, %esi movl -36(%ebp), %eax jne .L3 #APP leal -4(%ebp), %esp popl %esi leave ret $4 #NO_APP jmp .L3 .L57: movl -36(%ebp), %edx movl (%edx), %eax #APP movl 4(%edx),%edx #NO_APP jmp .L3 .L56: movl -36(%ebp), %edx movl (%edx), %eax jmp .L3 .L55: movl -36(%ebp), %edx movzwl (%edx), %eax jmp .L3 .L54: movl -36(%ebp), %edx movzbl (%edx), %eax jmp .L3 .p2align 2,,3 .L48: movl -48(%ebp), %eax jmp .L43 .L53: #APP fldl -48(%ebp) #NO_APP jmp .L43 .L52: #APP flds -48(%ebp) #NO_APP jmp .L43 .p2align 2,,3 .L51: movzwl -48(%ebp), %eax jmp .L43 .L50: movswl -48(%ebp),%eax jmp .L43 .L49: movzbl -48(%ebp), %eax jmp .L43 .p2align 2,,3 .L44: movsbl -48(%ebp),%eax jmp .L43 .Lfe1: .size vacall_receiver,.Lfe1-vacall_receiver .ident "GCC: (GNU) 3.1" libffcall-2.2/vacall/vacall-i386-linux-pic.s0000664000000000000000000000420113530357111015445 00000000000000 .file "vacall-i386.c" .text .align 2 .p2align 2,,3 .globl vacall_receiver .type vacall_receiver,@function vacall_receiver: pushl %ebp movl %esp, %ebp pushl %esi pushl %ebx subl $48, %esp call .L44 .L44: popl %ebx addl $_GLOBAL_OFFSET_TABLE_+[.-.L44], %ebx leal 8(%ebp), %edx movl %edx, -40(%ebp) subl $12, %esp leal -56(%ebp), %edx movl $0, -56(%ebp) movl $0, -36(%ebp) movl $0, -32(%ebp) movl %ebx, -24(%ebp) pushl %edx movl vacall_function@GOT(%ebx), %edx call *(%edx) movl -32(%ebp), %ecx addl $16, %esp testl %ecx, %ecx je .L43 cmpl $1, %ecx je .L45 cmpl $2, %ecx je .L45 cmpl $3, %ecx je .L50 cmpl $4, %ecx je .L51 cmpl $5, %ecx je .L52 cmpl $6, %ecx je .L49 cmpl $7, %ecx je .L49 cmpl $8, %ecx je .L49 cmpl $9, %ecx je .L49 leal -10(%ecx), %edx cmpl $1, %edx ja .L22 movl -48(%ebp), %eax #APP movl -44(%ebp),%edx .L33: .p2align 2,,3 #NO_APP .L43: movl -56(%ebp), %ecx .L3: andl $512, %ecx je .L1 #APP movl 0(%ebp),%ecx #NO_APP movl -40(%ebp), %esp #APP jmp *%ecx #NO_APP .L1: leal -8(%ebp), %esp popl %ebx popl %esi leave ret .L22: cmpl $12, %ecx je .L53 cmpl $13, %ecx je .L54 cmpl $14, %ecx je .L49 cmpl $15, %ecx jne .L43 movl -56(%ebp), %ecx testl $1024, %ecx movl %ecx, %esi je .L31 movl -28(%ebp), %edx cmpl $1, %edx je .L55 cmpl $2, %edx je .L56 cmpl $4, %edx je .L57 cmpl $8, %edx je .L58 .L31: andl $16, %esi movl -36(%ebp), %eax jne .L3 #APP leal -4(%ebp), %esp popl %esi leave ret $4 #NO_APP jmp .L3 .L58: movl -36(%ebp), %edx movl (%edx), %eax #APP movl 4(%edx),%edx #NO_APP jmp .L3 .L57: movl -36(%ebp), %edx movl (%edx), %eax jmp .L3 .L56: movl -36(%ebp), %edx movzwl (%edx), %eax jmp .L3 .L55: movl -36(%ebp), %edx movzbl (%edx), %eax jmp .L3 .p2align 2,,3 .L49: movl -48(%ebp), %eax jmp .L43 .L54: #APP fldl -48(%ebp) #NO_APP jmp .L43 .L53: #APP flds -48(%ebp) #NO_APP jmp .L43 .p2align 2,,3 .L52: movzwl -48(%ebp), %eax jmp .L43 .L51: movswl -48(%ebp),%eax jmp .L43 .L50: movzbl -48(%ebp), %eax jmp .L43 .p2align 2,,3 .L45: movsbl -48(%ebp),%eax jmp .L43 .Lfe1: .size vacall_receiver,.Lfe1-vacall_receiver .ident "GCC: (GNU) 3.1" libffcall-2.2/vacall/vacall-powerpc64-elfv2-linux.S0000664000000000000000000000602713530357112017021 00000000000000 .file "vacall-powerpc64.c" .machine power4 .abiversion 2 .section ".toc","aw" .section ".text" .section ".toc","aw" .LC0: .quad vacall_function .section ".text" .align 2 .p2align 4,,15 .globl vacall_receiver .type vacall_receiver, @function vacall_receiver: 0: addis 2,12,.TOC.-0b@ha addi 2,2,.TOC.-0b@l .localentry vacall_receiver,.-vacall_receiver mflr 0 std 31,-8(1) addis 11,2,.LC0@toc@ha ld 12,.LC0@toc@l(11) li 11,0 std 0,16(1) stdu 1,-224(1) mr 31,1 ld 0,0(12) std 2,24(1) std 9,304(31) li 9,0 std 3,256(31) addi 3,31,32 std 4,264(31) std 5,272(31) mtctr 0 stw 9,32(31) std 6,280(31) std 7,288(31) std 8,296(31) std 10,312(31) stfd 1,96(31) addi 9,31,256 stfd 2,104(31) stfd 3,112(31) stfd 4,120(31) stfd 5,128(31) mr 12,0 std 9,56(31) stfd 6,136(31) stfd 7,144(31) stfd 8,152(31) stfd 9,160(31) stfd 10,168(31) stfd 11,176(31) stfd 12,184(31) stfd 13,192(31) std 11,64(31) stw 11,72(31) stw 11,88(31) bctrl ld 2,24(1) lwz 9,72(31) cmpdi 7,9,0 beq 7,.L1 cmplwi 7,9,1 beq 7,.L27 cmplwi 7,9,2 beq 7,.L30 cmplwi 7,9,3 beq 7,.L27 cmplwi 7,9,4 beq 7,.L31 cmplwi 7,9,5 beq 7,.L32 cmplwi 7,9,6 beq 7,.L33 cmplwi 7,9,7 beq 7,.L34 cmplwi 7,9,8 beq 7,.L28 cmplwi 7,9,9 beq 7,.L28 cmplwi 7,9,10 beq 7,.L28 cmplwi 7,9,11 beq 7,.L28 cmplwi 7,9,12 beq 7,.L35 cmplwi 7,9,13 beq 7,.L36 cmplwi 7,9,14 beq 7,.L28 cmplwi 7,9,15 bne 7,.L1 lwz 9,32(31) rldicl. 10,9,54,63 beq 0,.L1 ld 9,80(31) addi 10,9,-1 cmpldi 7,10,15 bgt 7,.L1 ld 8,64(31) cmpldi 7,9,8 rldicl 10,8,0,61 rldicr 8,8,0,60 add 9,9,10 bgt 7,.L17 cmpldi 7,9,8 slwi 9,9,3 bgt 7,.L18 ld 7,0(8) addi 9,9,-1 li 8,2 slwi 10,10,3 sld 9,8,9 addi 9,9,-1 and 9,9,7 srad 3,9,10 .L1: addi 1,31,224 ld 0,16(1) ld 31,-8(1) mtlr 0 blr .p2align 4,,15 .L27: addi 1,31,224 lbz 3,40(31) ld 0,16(1) ld 31,-8(1) mtlr 0 blr .p2align 4,,15 .L30: lbz 9,40(31) extsb 3,9 b .L1 .p2align 4,,15 .L28: ld 3,40(31) b .L1 .p2align 4,,15 .L31: lha 3,40(31) b .L1 .p2align 4,,15 .L32: lhz 3,40(31) b .L1 .p2align 4,,15 .L33: lwa 3,40(31) b .L1 .p2align 4,,15 .L35: lfs 1,40(31) b .L1 .p2align 4,,15 .L34: lwz 3,40(31) b .L1 .L36: lfd 1,40(31) b .L1 .L17: cmpldi 7,9,16 rldicl 10,10,0,32 slwi 9,9,3 ble 7,.L37 li 7,2 addi 9,9,-129 ld 11,16(8) ld 5,0(8) mulli 6,10,-8 sld 9,7,9 ld 7,8(8) addi 8,9,-1 slwi 9,10,3 addi 6,6,64 and 10,8,11 srad 8,5,9 sld 5,7,6 srad 9,7,9 sld 10,10,6 or 3,8,5 or 4,10,9 b .L1 .L18: rldicl 10,10,0,32 li 7,2 ld 6,8(8) ld 8,0(8) addi 9,9,-65 sld 9,7,9 mulli 7,10,-8 slwi 10,10,3 addi 9,9,-1 srad 10,8,10 and 9,9,6 addi 7,7,64 sld 9,9,7 or 3,9,10 b .L1 .L37: li 7,2 addi 9,9,-65 ld 5,8(8) ld 6,0(8) sld 9,7,9 mulli 7,10,-4 addi 9,9,-1 addi 7,7,32 and 8,9,5 slwi 9,10,3 sld 10,8,7 srad 6,6,9 srad 4,8,9 sld 7,10,7 or 3,6,7 b .L1 .long 0 .byte 0,0,0,1,128,1,0,0 .size vacall_receiver,.-vacall_receiver #if defined __linux__ || defined __FreeBSD__ || defined __FreeBSD_kernel__ || defined __DragonFly__ .section .note.GNU-stack,"",@progbits #endif libffcall-2.2/vacall/vacall-s390x.c0000664000000000000000000000722313347755340013737 00000000000000/* vacall function for s390x (S/390 64-bit) CPU */ /* * Copyright 1995-2017 Bruno Haible * * This program is free software: you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by * the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program. If not, see . */ #include "vacall-internal.h" #ifdef REENTRANT #define vacall_receiver callback_receiver register struct { void (*vacall_function) (void*,va_alist); void* arg; } * env __asm__("r0"); #endif register __vaword iarg1 __asm__("r2"); register __vaword iarg2 __asm__("r3"); register __vaword iarg3 __asm__("r4"); register __vaword iarg4 __asm__("r5"); register __vaword iarg5 __asm__("r6"); register float farg1 __asm__("f0"); register float farg2 __asm__("f2"); register float farg3 __asm__("f4"); register float farg4 __asm__("f6"); register double darg1 __asm__("f0"); register double darg2 __asm__("f2"); register double darg3 __asm__("f4"); register double darg4 __asm__("f6"); register __vaword iret __asm__("r2"); register float fret __asm__("f0"); register double dret __asm__("f0"); #ifdef REENTRANT static #endif void /* the return type is variable, not void! */ vacall_receiver (__vaword word1, __vaword word2, __vaword word3, __vaword word4, __vaword word5, __vaword firstword) { __va_alist list; /* Move the arguments passed in registers to temp storage. */ list.iarg[0] = iarg1; list.iarg[1] = iarg2; list.iarg[2] = iarg3; list.iarg[3] = iarg4; list.iarg[4] = iarg5; list.farg[0] = farg1; list.farg[1] = farg2; list.farg[2] = farg3; list.farg[3] = farg4; list.darg[0] = darg1; list.darg[1] = darg2; list.darg[2] = darg3; list.darg[3] = darg4; /* Prepare the va_alist. */ list.flags = 0; list.aptr = (long)&firstword; list.raddr = (void*)0; list.rtype = __VAvoid; list.ianum = 0; list.fanum = 0; /* Call vacall_function. The macros do all the rest. */ #ifndef REENTRANT (*vacall_function) (&list); #else /* REENTRANT */ (*env->vacall_function) (env->arg,&list); #endif /* Put return value into proper register. */ if (list.rtype == __VAvoid) { } else if (list.rtype == __VAchar) { iret = list.tmp._char; } else if (list.rtype == __VAschar) { iret = list.tmp._schar; } else if (list.rtype == __VAuchar) { iret = list.tmp._uchar; } else if (list.rtype == __VAshort) { iret = list.tmp._short; } else if (list.rtype == __VAushort) { iret = list.tmp._ushort; } else if (list.rtype == __VAint) { iret = list.tmp._int; } else if (list.rtype == __VAuint) { iret = list.tmp._uint; } else if (list.rtype == __VAlong || list.rtype == __VAlonglong) { iret = list.tmp._long; } else if (list.rtype == __VAulong || list.rtype == __VAulonglong) { iret = list.tmp._ulong; } else if (list.rtype == __VAfloat) { fret = list.tmp._float; } else if (list.rtype == __VAdouble) { dret = list.tmp._double; } else if (list.rtype == __VAvoidp) { iret = (long)list.tmp._ptr; } else if (list.rtype == __VAstruct) { /* normal struct return convention */ } } #ifdef REENTRANT __vacall_r_t callback_get_receiver (void) { return (__vacall_r_t)(void*)&callback_receiver; } #endif libffcall-2.2/vacall/vacall-powerpc64-linux.S0000664000000000000000000000413213530357112016000 00000000000000 .file "vacall-powerpc64.c" .machine power4 .section ".toc","aw" .section ".text" .section ".toc","aw" .LC0: .quad vacall_function .section ".text" .align 2 .p2align 4,,15 .globl vacall_receiver .section ".opd","aw" .align 3 vacall_receiver: .quad .L.vacall_receiver,.TOC.@tocbase,0 .previous .type vacall_receiver, @function .L.vacall_receiver: mflr 0 std 31,-8(1) li 11,0 std 0,16(1) stdu 1,-304(1) li 0,0 mr 31,1 std 2,40(1) stw 11,152(31) stw 0,112(31) stw 11,168(31) std 9,400(31) std 3,352(31) std 4,360(31) std 5,368(31) std 6,376(31) std 7,384(31) std 8,392(31) std 10,408(31) stfd 1,176(31) addi 9,31,352 stfd 2,184(31) stfd 3,192(31) stfd 4,200(31) stfd 5,208(31) addis 10,2,.LC0@toc@ha addi 3,31,112 stfd 6,216(31) stfd 7,224(31) stfd 8,232(31) stfd 9,240(31) stfd 10,248(31) stfd 11,256(31) stfd 12,264(31) stfd 13,272(31) std 9,136(31) std 11,144(31) ld 9,.LC0@toc@l(10) ld 9,0(9) ld 10,0(9) ld 11,16(9) mtctr 10 ld 2,8(9) bctrl ld 2,40(1) lwz 9,152(31) cmpdi 7,9,0 beq 7,.L1 cmplwi 7,9,1 beq 7,.L20 cmplwi 7,9,2 beq 7,.L23 cmplwi 7,9,3 beq 7,.L20 cmplwi 7,9,4 beq 7,.L24 cmplwi 7,9,5 beq 7,.L25 cmplwi 7,9,6 beq 7,.L26 cmplwi 7,9,7 beq 7,.L27 cmplwi 7,9,8 beq 7,.L21 cmplwi 7,9,9 beq 7,.L21 cmplwi 7,9,10 beq 7,.L21 cmplwi 7,9,11 beq 7,.L21 cmplwi 7,9,12 beq 7,.L28 cmplwi 7,9,13 beq 7,.L29 cmplwi 7,9,14 beq 7,.L21 .L1: addi 1,31,304 ld 0,16(1) ld 31,-8(1) mtlr 0 blr .p2align 4,,15 .L20: lbz 3,120(31) addi 1,31,304 ld 0,16(1) ld 31,-8(1) mtlr 0 blr .p2align 4,,15 .L23: lbz 9,120(31) extsb 3,9 b .L1 .p2align 4,,15 .L21: ld 3,120(31) b .L1 .p2align 4,,15 .L24: lha 3,120(31) b .L1 .p2align 4,,15 .L25: lhz 3,120(31) b .L1 .p2align 4,,15 .L26: lwa 3,120(31) b .L1 .p2align 4,,15 .L28: lfs 1,120(31) b .L1 .p2align 4,,15 .L27: lwz 3,120(31) b .L1 .L29: lfd 1,120(31) b .L1 .long 0 .byte 0,0,0,1,128,1,0,0 .size vacall_receiver,.-.L.vacall_receiver #if defined __linux__ || defined __FreeBSD__ || defined __FreeBSD_kernel__ || defined __DragonFly__ .section .note.GNU-stack,"",@progbits #endif libffcall-2.2/vacall/vacall.man0000664000000000000000000002262413530357246013403 00000000000000VACALL(3) Library Functions Manual VACALL(3) NAME vacall - C functions called with variable arguments SYNOPSIS #include  extern void* vacall_function; void function (va_alistalist) { va_start_type(alist[, return_type]); arg = va_arg_type(alist[, arg_type]); va_return_type(alist[[, return_type], return_value]); } vacall_function = &function; val = ((return_type (*) ()) vacall) (arg1,arg2,...); DESCRIPTION This set of macros permit a C function function to be called with vari‐ able arguments and to return variable return values. This is much like the stdarg(3) facility, but also allows the return value to be speci‐ fied at run time. Function calling conventions differ considerably on different machines, and vacall attempts to provide some degree of isolation from such architecture dependencies. The function that can be called with any number and type of arguments and which will return any type of return value is vacall. It will do some magic and call the function stored in the variable vacall_func‐ tion. If you want to make more than one use of vacall, use the trampo‐ line(3) facility to store &function into vacall_function just before calling vacall. Within function, the following macros can be used to walk through the argument list and specify a return value: va_start_type(alist[, return_type]); starts the walk through the argument list and specifies the return type. arg = va_arg_type(alist[, arg_type]); fetches the next argument from the argument list. va_return_type(alist[[, return_type], return_value]); ends the walk through the argument list and specifies the return value. The type in va_start_type and va_return_type shall be one of void, int, uint, long, ulong, longlong, ulonglong, double, struct, ptr or (for ANSI C calling conventions only) char, schar, uchar, short, ushort, float, depending on the class of return_type. The type specifiers in va_start_type and va_return_type must be the same. The return_type specifiers passed to va_start_type and va_return_type must be the same. The type in va_arg_type shall be one of int, uint, long, ulong, long‐ long, ulonglong, double, struct, ptr or (for ANSI C calling conventions only) char, schar, uchar, short, ushort, float, depending on the class of arg_type. In va_start_struct(alist, return_type, splittable); the splittable flag specifies whether the struct return_type can be returned in registers such that every struct field fits entirely in a single register. This needs to be specified for structs of size 2*sizeof(long). For structs of size <= sizeof(long), splittable is ignored and assumed to be 1. For structs of size > 2*sizeof(long), splittable is ignored and assumed to be 0. There are some handy macros for this: va_word_splittable_1 (type1) va_word_splittable_2 (type1, type2) va_word_splittable_3 (type1, type2, type3) va_word_splittable_4 (type1, type2, type3, type4) For a struct with three slots struct { type1 id1; type2 id2; type3 id3; } you can specify splittable as va_word_splittable_3 (type1, type2, type3) . NOTES Functions which want to emulate Kernighan & Ritchie style functions (i.e., in ANSI C, functions without a typed argument list) cannot use the type values char, schar, uchar, short, ushort, float. As pre‐ scribed by the default K&R C expression promotions, they have to use int instead of char, schar, uchar, short, ushort and double instead of float. The macros va_start_longlong(), va_start_ulonglong(), va_return_long‐ long(), va_return_ulonglong(), va_arg_longlong() and va_arg_ulonglong() work only if the C compiler has a working long long 64-bit integer type. The struct types used in va_start_struct() and va_struct() must only contain (signed or unsigned) int, long, long long or pointer fields. Struct types containing (signed or unsigned) char, short, float, double or other structs are not supported. EXAMPLE This example, a possible implementation of execl(3) on top of execv(2) using stdarg(3), #include  #define MAXARGS 100 /* execl is called by execl(file, arg1, arg2, ..., (char *)0); */ int execl (...) { va_list ap; char* file; char* args[MAXARGS]; int argno = 0; va_start (ap); file = va_arg(ap, char*); while ((args[argno] = va_arg(ap, char*)) != (char *)0) argno++; va_end (ap); return execv(file, args); } looks like this using vacall(3): #include  #define MAXARGS 100 /* execl is called by vacall(file, arg1, arg2, ..., (char *)0); */ void execl (va_alist ap) { char* file; char* args[MAXARGS]; int argno = 0; int retval; va_start_int (ap); file = va_arg_ptr(ap, char*); while ((args[argno] = va_arg_ptr(ap, char*)) != (char *)0) argno++; retval = execv(file, args); va_return_int (ap, retval); } vacall_function = &execl; SEE ALSO stdarg(3), trampoline(3), callback(3). BUGS The current implementations have been tested on a selection of common cases but there are probably still many bugs. There are typically built-in limits on the size of the argument-list, which may also include the size of any structure arguments. The decision whether a struct is to be returned in registers or in mem‐ ory considers only the struct's size and alignment. This is inaccurate: for example, gcc on m68k-next returns struct { char a,b,c; } in regis‐ ters and struct { char a[3]; } in memory, although both types have the same size and the same alignment. The argument list can only be walked once. The use of the global variable vacall_function is not reentrant. This is fixed in the callback(3) package. PORTING Knowledge about argument passing conventions can be found in the gcc source, file gcc-2.6.3/config/cpu/cpu.h, section "Stack layout; func‐ tion entry, exit and calling." The implementation of varargs for gcc can be found in the gcc source, files gcc-2.6.3/ginclude/va*.h. gcc's __builtin_saveregs() function is defined in the gcc source, file gcc-2.6.3/libgcc2.c. AUTHOR Bruno Haible ACKNOWLEDGEMENTS Many ideas and a lot of code were cribbed from the gcc source. 1 January 2017 VACALL(3) libffcall-2.2/vacall/vacall-x86_64-windows.c0000664000000000000000000001463613416724302015474 00000000000000/* vacall function for x86_64 CPU with the Windows ABI ('gcc -mabi=ms') */ /* * Copyright 1995-2017 Bruno Haible * * This program is free software: you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by * the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program. If not, see . */ #include "vacall-internal.h" #ifdef REENTRANT #define vacall_receiver callback_receiver register struct { void (*vacall_function) (void*,va_alist); void* arg; } * env __asm__("r10"); #endif /*register __vaword iarg1 __asm__("rcx");*/ /*register __vaword iarg2 __asm__("rdx");*/ /*register __vaword iarg3 __asm__("r8");*/ /*register __vaword iarg4 __asm__("r9");*/ register float farg1 __asm__("xmm0"); register float farg2 __asm__("xmm1"); register float farg3 __asm__("xmm2"); register float farg4 __asm__("xmm3"); register double darg1 __asm__("xmm0"); register double darg2 __asm__("xmm1"); register double darg3 __asm__("xmm2"); register double darg4 __asm__("xmm3"); register __vaword iret __asm__("rax"); register float fret __asm__("xmm0"); register double dret __asm__("xmm0"); /* * Tell gcc to not use the call-saved registers %rbx, %rsi, %rdi. * This ensures that the return sequence does not need to restore registers * from the stack. */ register void* dummy1 __asm__("%rbx"); register void* dummy2 __asm__("%rsi"); register void* dummy3 __asm__("%rdi"); #ifdef REENTRANT static #endif void /* the return type is variable, not void! */ vacall_receiver (__vaword word1, __vaword word2, __vaword word3, __vaword word4, __vaword firstword) { __va_alist list; /* Move the arguments passed in registers to their stack locations. */ (&firstword)[-4] = word1; (&firstword)[-3] = word2; (&firstword)[-2] = word3; (&firstword)[-1] = word4; /* Move the floating-point arguments passed in registers to temp storage. */ list.farg[0] = farg1; list.farg[1] = farg2; list.farg[2] = farg3; list.farg[3] = farg4; list.darg[0] = darg1; list.darg[1] = darg2; list.darg[2] = darg3; list.darg[3] = darg4; /* Prepare the va_alist. */ list.flags = 0; list.aptr = (long)(&firstword - 4); list.raddr = (void*)0; list.rtype = __VAvoid; list.anum = 0; /* Call vacall_function. The macros do all the rest. */ #ifndef REENTRANT (*vacall_function) (&list); #else /* REENTRANT */ (*env->vacall_function) (env->arg,&list); #endif /* Put return value into proper register. */ if (list.rtype == __VAvoid) { } else if (list.rtype == __VAchar) { iret = list.tmp._char; } else if (list.rtype == __VAschar) { iret = list.tmp._schar; } else if (list.rtype == __VAuchar) { iret = list.tmp._uchar; } else if (list.rtype == __VAshort) { iret = list.tmp._short; } else if (list.rtype == __VAushort) { iret = list.tmp._ushort; } else if (list.rtype == __VAint) { iret = list.tmp._int; } else if (list.rtype == __VAuint) { iret = list.tmp._uint; } else if (list.rtype == __VAlong) { iret = list.tmp._long; } else if (list.rtype == __VAulong) { iret = list.tmp._ulong; } else if (list.rtype == __VAlonglong) { iret = list.tmp._long; } else if (list.rtype == __VAulonglong) { iret = list.tmp._ulong; } else if (list.rtype == __VAfloat) { fret = list.tmp._float; } else if (list.rtype == __VAdouble) { dret = list.tmp._double; } else if (list.rtype == __VAvoidp) { iret = (long)list.tmp._ptr; } else if (list.rtype == __VAstruct) { if (list.flags & __VA_REGISTER_STRUCT_RETURN) { /* Return structs of size 1, 2, 4, 8 in registers. */ #if 0 /* Unoptimized */ if (list.rsize == 1) { iret = (__vaword)((unsigned char *) list.raddr)[0]; } else if (list.rsize == 2) { iret = (__vaword)((unsigned char *) list.raddr)[0] | ((__vaword)((unsigned char *) list.raddr)[1] << 8); } else if (list.rsize == 4) { iret = (__vaword)((unsigned char *) list.raddr)[0] | ((__vaword)((unsigned char *) list.raddr)[1] << 8) | ((__vaword)((unsigned char *) list.raddr)[2] << 16) | ((__vaword)((unsigned char *) list.raddr)[3] << 24); } else if (list.rsize == 8) { iret = (__vaword)((unsigned char *) list.raddr)[0] | ((__vaword)((unsigned char *) list.raddr)[1] << 8) | ((__vaword)((unsigned char *) list.raddr)[2] << 16) | ((__vaword)((unsigned char *) list.raddr)[3] << 24) | ((__vaword)((unsigned char *) list.raddr)[4] << 32) | ((__vaword)((unsigned char *) list.raddr)[5] << 40) | ((__vaword)((unsigned char *) list.raddr)[6] << 48) | ((__vaword)((unsigned char *) list.raddr)[7] << 56); } #else /* Optimized: fewer conditional jumps, fewer memory accesses */ uintptr_t count = list.rsize; /* > 0, ≤ sizeof(__vaword) */ if (count == 1 || count == 2 || count == 4 || count == 8) { __vaword* wordaddr = (__vaword*)((uintptr_t)list.raddr & ~(uintptr_t)(sizeof(__vaword)-1)); uintptr_t start_offset = (uintptr_t)list.raddr & (uintptr_t)(sizeof(__vaword)-1); /* ≥ 0, < sizeof(__vaword) */ uintptr_t end_offset = start_offset + count; /* > 0, < 2*sizeof(__vaword) */ if (end_offset <= sizeof(__vaword)) { /* 0 < end_offset ≤ sizeof(__vaword) */ __vaword mask0 = ((__vaword)2 << (end_offset*8-1)) - 1; iret = (wordaddr[0] & mask0) >> (start_offset*8); } else { /* sizeof(__vaword) < end_offset < 2*sizeof(__vaword), start_offset > 0 */ __vaword mask1 = ((__vaword)2 << (end_offset*8-sizeof(__vaword)*8-1)) - 1; iret = (wordaddr[0] >> (start_offset*8)) | ((wordaddr[1] & mask1) << (sizeof(__vaword)*8-start_offset*8)); } } #endif } else { iret = (long)list.raddr; } } } #ifdef REENTRANT __vacall_r_t callback_get_receiver (void) { return (__vacall_r_t)(void*)&callback_receiver; } #endif libffcall-2.2/vacall/vacall-x86_64-windows.s0000664000000000000000000001136513530357113015507 00000000000000 .file "vacall-x86_64-windows.c" .text .p2align 4,,15 .globl vacall_receiver .type vacall_receiver, @function vacall_receiver: .LFB0: pushq %rbp .LCFI0: movq %rsp, %rbp .LCFI1: subq $144, %rsp movq %rcx, 16(%rbp) leaq 16(%rbp), %rcx movq %rdx, 24(%rbp) movq %r8, 32(%rbp) movq %r9, 40(%rbp) movss %xmm0, -52(%rbp) movq %rcx, -88(%rbp) movss %xmm1, -48(%rbp) movl $0, -112(%rbp) movss %xmm2, -44(%rbp) movq $0, -80(%rbp) leaq -112(%rbp), %rcx movss %xmm3, -40(%rbp) movl $0, -72(%rbp) movsd %xmm0, -32(%rbp) movl $0, -56(%rbp) movsd %xmm1, -24(%rbp) movsd %xmm2, -16(%rbp) movsd %xmm3, -8(%rbp) call *vacall_function(%rip) movl -72(%rbp), %edx testl %edx, %edx je .L1 cmpl $1, %edx je .L34 cmpl $2, %edx je .L34 cmpl $3, %edx je .L37 cmpl $4, %edx je .L38 cmpl $5, %edx je .L39 cmpl $6, %edx je .L40 cmpl $7, %edx je .L41 cmpl $8, %edx je .L35 cmpl $9, %edx je .L35 cmpl $10, %edx je .L35 cmpl $11, %edx je .L35 cmpl $12, %edx je .L42 cmpl $13, %edx je .L43 cmpl $14, %edx je .L35 cmpl $15, %edx jne .L1 testb $4, -111(%rbp) je .L17 movq -64(%rbp), %rdx leaq -4(%rdx), %rcx testq $-5, %rcx je .L20 leaq -1(%rdx), %rcx cmpq $1, %rcx ja .L1 .L20: movq -80(%rbp), %r8 movq %r8, %r9 andl $7, %r8d addq %r8, %rdx andq $-8, %r9 cmpq $8, %rdx ja .L19 leal -1(,%rdx,8), %ecx movl $2, %edx salq %cl, %rdx leal 0(,%r8,8), %ecx subq $1, %rdx andq (%r9), %rdx sarq %cl, %rdx movq %rdx, %rax .L1: leave .LCFI2: ret .p2align 4,,10 .p2align 3 .L34: .LCFI3: movsbq -104(%rbp), %rax leave .LCFI4: ret .p2align 4,,10 .p2align 3 .L35: .LCFI5: movq -104(%rbp), %rax leave .LCFI6: ret .p2align 4,,10 .p2align 3 .L37: .LCFI7: movzbl -104(%rbp), %eax leave .LCFI8: ret .p2align 4,,10 .p2align 3 .L38: .LCFI9: movswq -104(%rbp), %rax leave .LCFI10: ret .p2align 4,,10 .p2align 3 .L39: .LCFI11: movzwl -104(%rbp), %eax leave .LCFI12: ret .p2align 4,,10 .p2align 3 .L40: .LCFI13: movslq -104(%rbp), %rax leave .LCFI14: ret .p2align 4,,10 .p2align 3 .L42: .LCFI15: movss -104(%rbp), %xmm0 leave .LCFI16: ret .p2align 4,,10 .p2align 3 .L41: .LCFI17: movl -104(%rbp), %eax leave .LCFI18: ret .L43: .LCFI19: movsd -104(%rbp), %xmm0 leave .LCFI20: ret .L17: .LCFI21: movq -80(%rbp), %rax leave .LCFI22: ret .L19: .LCFI23: leal -65(,%rdx,8), %ecx movl $2, %edx salq %cl, %rdx movl %r8d, %ecx subq $1, %rdx andq 8(%r9), %rdx negl %ecx leal 64(,%rcx,8), %ecx salq %cl, %rdx leal 0(,%r8,8), %ecx movq (%r9), %r8 leave .LCFI24: sarq %cl, %r8 orq %r8, %rdx movq %rdx, %rax ret .LFE0: .size vacall_receiver, .-vacall_receiver .section .eh_frame,"a",@progbits .Lframe1: .long .LECIE1-.LSCIE1 .LSCIE1: .long 0 .byte 0x3 .string "zR" .uleb128 0x1 .sleb128 -8 .uleb128 0x10 .uleb128 0x1 .byte 0x3 .byte 0xc .uleb128 0x7 .uleb128 0x8 .byte 0x90 .uleb128 0x1 .align 8 .LECIE1: .LSFDE1: .long .LEFDE1-.LASFDE1 .LASFDE1: .long .LASFDE1-.Lframe1 .long .LFB0 .long .LFE0-.LFB0 .uleb128 0 .byte 0x4 .long .LCFI0-.LFB0 .byte 0xe .uleb128 0x10 .byte 0x86 .uleb128 0x2 .byte 0x4 .long .LCFI1-.LCFI0 .byte 0xd .uleb128 0x6 .byte 0x4 .long .LCFI2-.LCFI1 .byte 0xa .byte 0xc6 .byte 0xc .uleb128 0x7 .uleb128 0x8 .byte 0x4 .long .LCFI3-.LCFI2 .byte 0xb .byte 0x4 .long .LCFI4-.LCFI3 .byte 0xa .byte 0xc6 .byte 0xc .uleb128 0x7 .uleb128 0x8 .byte 0x4 .long .LCFI5-.LCFI4 .byte 0xb .byte 0x4 .long .LCFI6-.LCFI5 .byte 0xa .byte 0xc6 .byte 0xc .uleb128 0x7 .uleb128 0x8 .byte 0x4 .long .LCFI7-.LCFI6 .byte 0xb .byte 0x4 .long .LCFI8-.LCFI7 .byte 0xa .byte 0xc6 .byte 0xc .uleb128 0x7 .uleb128 0x8 .byte 0x4 .long .LCFI9-.LCFI8 .byte 0xb .byte 0x4 .long .LCFI10-.LCFI9 .byte 0xa .byte 0xc6 .byte 0xc .uleb128 0x7 .uleb128 0x8 .byte 0x4 .long .LCFI11-.LCFI10 .byte 0xb .byte 0x4 .long .LCFI12-.LCFI11 .byte 0xa .byte 0xc6 .byte 0xc .uleb128 0x7 .uleb128 0x8 .byte 0x4 .long .LCFI13-.LCFI12 .byte 0xb .byte 0x4 .long .LCFI14-.LCFI13 .byte 0xa .byte 0xc6 .byte 0xc .uleb128 0x7 .uleb128 0x8 .byte 0x4 .long .LCFI15-.LCFI14 .byte 0xb .byte 0x4 .long .LCFI16-.LCFI15 .byte 0xa .byte 0xc6 .byte 0xc .uleb128 0x7 .uleb128 0x8 .byte 0x4 .long .LCFI17-.LCFI16 .byte 0xb .byte 0x4 .long .LCFI18-.LCFI17 .byte 0xa .byte 0xc6 .byte 0xc .uleb128 0x7 .uleb128 0x8 .byte 0x4 .long .LCFI19-.LCFI18 .byte 0xb .byte 0x4 .long .LCFI20-.LCFI19 .byte 0xa .byte 0xc6 .byte 0xc .uleb128 0x7 .uleb128 0x8 .byte 0x4 .long .LCFI21-.LCFI20 .byte 0xb .byte 0x4 .long .LCFI22-.LCFI21 .byte 0xa .byte 0xc6 .byte 0xc .uleb128 0x7 .uleb128 0x8 .byte 0x4 .long .LCFI23-.LCFI22 .byte 0xb .byte 0x4 .long .LCFI24-.LCFI23 .byte 0xc6 .byte 0xc .uleb128 0x7 .uleb128 0x8 .align 8 .LEFDE1: .ident "GCC: (GNU) 5.4.0" .section .note.GNU-stack,"",@progbits libffcall-2.2/vacall/vacall-sparc64-linux.s0000664000000000000000000001312313530357111015470 00000000000000 .file "vacall-sparc64.c" .section ".text" .align 4 .global vacall_receiver .type vacall_receiver, #function .proc 020 vacall_receiver: .register %g2, #scratch .register %g3, #scratch save %sp, -448, %sp add %fp, 2175, %g1 stx %i0, [%fp+2175] stx %i1, [%fp+2183] stx %i2, [%fp+2191] stx %i3, [%fp+2199] stx %i4, [%fp+2207] stx %i5, [%fp+2215] std %f0, [%fp+1903] std %f2, [%fp+1911] std %f4, [%fp+1919] std %f6, [%fp+1927] std %f8, [%fp+1935] std %f10, [%fp+1943] std %f12, [%fp+1951] std %f14, [%fp+1959] std %f16, [%fp+1967] std %f18, [%fp+1975] std %f20, [%fp+1983] std %f22, [%fp+1991] std %f24, [%fp+1999] std %f26, [%fp+2007] std %f28, [%fp+2015] std %f30, [%fp+2023] st %f1, [%fp+1835] st %f3, [%fp+1839] st %f5, [%fp+1843] st %f7, [%fp+1847] st %f9, [%fp+1851] st %f11, [%fp+1855] st %f13, [%fp+1859] st %f15, [%fp+1863] st %f17, [%fp+1867] st %f19, [%fp+1871] st %f21, [%fp+1875] sethi %lm(vacall_function), %g2 st %f23, [%fp+1879] stx %g1, [%fp+1799] st %f25, [%fp+1883] st %f27, [%fp+1887] st %f29, [%fp+1891] st %f31, [%fp+1895] st %g0, [%fp+1775] stx %g0, [%fp+1807] st %g0, [%fp+1815] st %g0, [%fp+1831] sethi %hh(vacall_function), %g1 or %g1, %hm(vacall_function), %g1 sllx %g1, 32, %g1 add %g1, %g2, %g1 ldx [%g1+%lo(vacall_function)], %g3 call %g3, 0 add %fp, 1775, %o0 lduw [%fp+1815], %g1 cmp %g1, 0 be,pn %icc, .LL61 cmp %g1, 1 be,pn %icc, .LL50 cmp %g1, 2 be,pn %icc, .LL50 cmp %g1, 3 be,pn %icc, .LL53 cmp %g1, 4 be,pn %icc, .LL54 cmp %g1, 5 be,pn %icc, .LL55 cmp %g1, 6 be,pn %icc, .LL56 cmp %g1, 7 be,pn %icc, .LL57 cmp %g1, 8 be,pn %icc, .LL51 cmp %g1, 9 be,pn %icc, .LL51 cmp %g1, 10 be,pn %icc, .LL51 cmp %g1, 11 be,pn %icc, .LL51 cmp %g1, 12 be,pn %icc, .LL58 cmp %g1, 13 be,pn %icc, .LL59 cmp %g1, 14 be,pn %icc, .LL51 cmp %g1, 15 bne,pt %icc, .LL61 lduw [%fp+1775], %g1 andcc %g1, 1024, %g0 be,pn %xcc, .LL61 ldx [%fp+1823], %g5 add %g5, -1, %g1 cmp %g1, 31 bgu,pn %xcc, .LL61 ldx [%fp+1807], %g1 cmp %g5, 8 and %g1, 7, %o2 and %g1, -8, %l0 bgu,pt %xcc, .LL35 add %g5, %o2, %g2 cmp %g2, 8 bgu,pt %xcc, .LL37 sllx %o2, 3, %g4 sllx %g2, 3, %g2 ldx [%l0], %g3 sub %g0, %g2, %g2 mov -1, %g1 sllx %g1, %g2, %g1 and %g1, %g3, %g1 return %i7+8 sllx %g1, %g4, %o0 .LL47: ldx [%l0], %g1 sllx %g1, %o4, %g1 ldx [%l0+8], %g4 ldx [%l0+16], %g5 sllx %g4, %o4, %o1 sllx %g5, %o4, %o0 ldx [%l0+24], %o5 sllx %g2, 3, %o3 sllx %o5, %o4, %o7 ldx [%l0+32], %o2 sub %g0, %o3, %o3 mov 64, %g3 sub %g3, %o4, %g3 srax %g4, %g3, %g4 srax %g5, %g3, %g5 or %g1, %g4, %i0 srax %o5, %g3, %o5 mov -1, %g1 or %o1, %g5, %i1 sllx %g1, %o3, %g1 or %o0, %o5, %i2 and %g1, %o2, %g1 srax %g1, %g3, %g1 or %o7, %g1, %i3 .LL61: return %i7+8 nop .LL50: ldsb [%fp+1783], %i0 return %i7+8 nop .LL54: ldsh [%fp+1783], %i0 return %i7+8 nop .LL53: ldub [%fp+1783], %i0 return %i7+8 nop .LL51: ldx [%fp+1783], %i0 return %i7+8 nop .LL55: lduh [%fp+1783], %i0 return %i7+8 nop .LL56: ldsw [%fp+1783], %i0 return %i7+8 nop .LL57: lduw [%fp+1783], %i0 return %i7+8 nop .LL58: ld [%fp+1783], %f0 return %i7+8 nop .LL59: ldd [%fp+1783], %f0 return %i7+8 nop .LL35: cmp %g5, 16 bgu,pt %xcc, .LL39 cmp %g5, 24 cmp %g2, 16 bgu,pt %xcc, .LL41 sllx %o2, 3, %o5 sllx %g2, 3, %g3 ldx [%l0+8], %g2 sll %o2, 3, %g5 sllx %o2, 2, %o5 sub %g0, %g3, %g3 ldx [%l0], %g4 mov -1, %g1 sllx %g4, %g5, %g4 sllx %g1, %g3, %g1 and %g1, %g2, %g1 mov 32, %g2 sllx %g1, %g5, %i1 sub %g2, %o5, %g2 srax %g1, %g2, %g1 srax %g1, %g2, %g1 return %i7+8 or %g4, %g1, %o0 .LL37: sllx %g2, 3, %g3 ldx [%l0+8], %g5 sub %g0, %g3, %g3 sub %g0, %g4, %o5 ldx [%l0], %g2 mov -1, %g1 sllx %g2, %g4, %g2 sllx %g1, %g3, %g1 and %g1, %g5, %g1 srax %g1, %o5, %g1 return %i7+8 or %g2, %g1, %o0 .LL39: bgu,pt %xcc, .LL43 cmp %g2, 32 cmp %g2, 24 bgu,pt %xcc, .LL45 sllx %o2, 3, %o4 sllx %o2, 2, %g1 sll %o2, 3, %g5 sllx %g2, 3, %o5 ldx [%l0+8], %g3 ldx [%l0+16], %o4 sllx %g3, %g5, %o3 sub %g0, %o5, %o5 mov 32, %g4 ldx [%l0], %g2 sub %g4, %g1, %g4 sllx %g2, %g5, %g2 srax %g3, %g4, %g3 mov -1, %g1 srax %g3, %g4, %g3 sllx %g1, %o5, %g1 and %g1, %o4, %g1 sllx %g1, %g5, %i2 srax %g1, %g4, %g1 srax %g1, %g4, %g1 or %o3, %g1, %i1 return %i7+8 or %g2, %g3, %o0 .LL41: sllx %g2, 3, %g5 ldx [%l0+8], %g3 ldx [%l0+16], %o4 sllx %g3, %o5, %o3 sub %g0, %g5, %g5 mov 64, %g4 ldx [%l0], %g2 sub %g4, %o5, %g4 sllx %g2, %o5, %g2 srax %g3, %g4, %g3 mov -1, %g1 sllx %g1, %g5, %g1 and %g1, %o4, %g1 srax %g1, %g4, %g1 or %o3, %g1, %i1 return %i7+8 or %g2, %g3, %o0 .LL45: ldx [%l0], %g1 sllx %g1, %o4, %g1 ldx [%l0+8], %g3 ldx [%l0+16], %g4 sllx %g3, %o4, %o3 sllx %g4, %o4, %o1 sllx %g2, 3, %o5 ldx [%l0+24], %o2 sub %g0, %o5, %o5 mov 64, %g5 sub %g5, %o4, %g5 srax %g3, %g5, %g3 srax %g4, %g5, %g4 or %g1, %g3, %i0 or %o3, %g4, %i1 mov -1, %g1 sllx %g1, %o5, %g1 and %g1, %o2, %g1 srax %g1, %g5, %g1 or %o1, %g1, %i2 return %i7+8 nop .LL43: bgu,pt %xcc, .LL47 sllx %o2, 3, %o4 sll %o2, 3, %o5 ldx [%l0], %g1 sllx %g1, %o5, %g1 sllx %o2, 2, %o4 sllx %g2, 3, %g5 ldx [%l0+8], %g3 ldx [%l0+16], %g4 sllx %g3, %o5, %o2 sllx %g4, %o5, %o1 ldx [%l0+24], %o3 sub %g0, %g5, %g5 mov 32, %g2 sub %g2, %o4, %g2 srax %g3, %g2, %g3 srax %g4, %g2, %g4 srax %g3, %g2, %g3 srax %g4, %g2, %g4 or %g1, %g3, %i0 or %o2, %g4, %i1 mov -1, %g1 sllx %g1, %g5, %g1 and %g1, %o3, %g1 sllx %g1, %o5, %i3 srax %g1, %g2, %g1 srax %g1, %g2, %g1 or %o1, %g1, %i2 return %i7+8 nop .size vacall_receiver, .-vacall_receiver .ident "GCC: (GNU) 4.0.2" .section ".note.GNU-stack" libffcall-2.2/vacall/vacall-m68k.mit.S0000664000000000000000000000456513530357111014400 00000000000000#include "asm-m68k.h" .text .even .globl C(vacall_receiver) DECLARE_FUNCTION(vacall_receiver) FUNBEGIN(vacall_receiver) link $a6,#-32 moveml #0x3030,$sp@- clrl $a6@(-32) lea $a6@(8),$a2 movel $a2,$a6@(-20) clrl $a6@(-16) clrl $a6@(-12) movel $a1,$a6@(-4) pea $a6@(-32) movel C(vacall_function),$a2 jbsr $a2@ addql #4,$sp movel $a6@(-12),$a3 tstl $a3 jeq L(1) moveq #1,$d2 cmpl $a3,$d2 jeq L(46) moveq #2,$d3 cmpl $a3,$d3 jeq L(46) moveq #3,$d2 cmpl $a3,$d2 jeq L(47) moveq #4,$d3 cmpl $a3,$d3 jeq L(48) moveq #5,$d2 cmpl $a3,$d2 jeq L(49) moveq #6,$d3 cmpl $a3,$d3 jeq L(45) moveq #7,$d2 cmpl $a3,$d2 jeq L(45) moveq #8,$d3 cmpl $a3,$d3 jeq L(45) moveq #9,$d2 cmpl $a3,$d2 jeq L(45) lea $a3@(-10),$a2 moveq #1,$d3 cmpl $a2,$d3 jcs L(22) movel $a6@(-28),$d0 movel $a6@(-24),$d1 jra L(1) .even L(22): moveq #12,$d2 cmpl $a3,$d2 jeq L(50) moveq #13,$d2 cmpl $a3,$d2 jeq L(51) moveq #14,$d3 cmpl $a3,$d3 jeq L(52) moveq #15,$d2 cmpl $a3,$d2 jne L(1) btst #2,$a6@(-30) jeq L(1) movel $a6@(-8),$d2 moveq #1,$d3 cmpl $d2,$d3 jeq L(53) moveq #2,$d3 cmpl $d2,$d3 jeq L(54) moveq #4,$d3 cmpl $d2,$d3 jeq L(55) moveq #8,$d3 cmpl $d2,$d3 jne L(1) movel $a6@(-16),$a2 movel $a2@,$d0 movel $a2@(4),$d1 jra L(1) .even L(55): movel $a6@(-16),$a2 movel $a2@,$d0 jra L(1) .even L(54): movel $a6@(-16),$a2 clrl $d0 movew $a2@,$d0 jra L(1) .even L(53): movel $a6@(-16),$a2 clrl $d0 moveb $a2@,$d0 jra L(1) .even L(52): movel $a6@(-28),$d0 movel $d0,$a0 jra L(1) .even L(51): btst #6,$a6@(-29) jeq L(31) fmoved $a6@(-28),$fp0 jra L(1) .even L(31): movel $a6@(-28),$d0 movel $a6@(-24),$d1 jra L(1) .even L(50): movel $a6@(-32),$d2 btst #6,$d2 jeq L(25) fmoves $a6@(-28),$fp0 jra L(1) .even L(25): btst #5,$d2 jeq L(27) fmoves $a6@(-28),$fp1 fmoved $fp1,$sp@- movel $sp@+,$d0 movel $sp@+,$d1 jra L(1) .even L(27): movel $a6@(-28),$d0 jra L(1) .even L(45): movel $a6@(-28),$d0 jra L(1) .even L(49): clrl $d0 movew $a6@(-28),$d0 jra L(1) .even L(48): movew $a6@(-28),$d0 extl $d0 jra L(1) .even L(47): clrl $d0 moveb $a6@(-28),$d0 jra L(1) .even L(46): moveb $a6@(-28),$d0 extbl $d0 L(1): moveml $a6@(-48),#0xc0c unlk $a6 rts FUNEND(vacall_receiver) #if defined __linux__ || defined __FreeBSD__ || defined __FreeBSD_kernel__ || defined __DragonFly__ .section .note.GNU-stack,"",@progbits #endif libffcall-2.2/vacall/vacall-riscv64-lp64d-linux.s0000664000000000000000000000513413530357113016442 00000000000000 .file "vacall-riscv64.c" .option nopic .text .align 1 .globl vacall_receiver .type vacall_receiver, @function vacall_receiver: add sp,sp,-288 sd ra,264(sp) sd s0,256(sp) sd s1,248(sp) add s0,sp,272 lui t1,%hi(vacall_function) ld t1,%lo(vacall_function)(t1) sd a0,-200(s0) add a0,s0,16 sd a7,8(s0) sd a1,-192(s0) sd a2,-184(s0) sd a3,-176(s0) sd a4,-168(s0) sd a5,-160(s0) sd a6,-152(s0) sd a7,-144(s0) fsw fa0,-132(s0) fsw fa1,-128(s0) fsw fa2,-124(s0) fsw fa3,-120(s0) fsw fa4,-116(s0) fsw fa5,-112(s0) fsw fa6,-108(s0) fsw fa7,-104(s0) fsd fa0,-96(s0) fsd fa1,-88(s0) fsd fa2,-80(s0) fsd fa3,-72(s0) fsd fa4,-64(s0) fsd fa5,-56(s0) fsd fa6,-48(s0) fsd fa7,-40(s0) sd a0,-240(s0) sw zero,-264(s0) sd zero,-232(s0) add a0,s0,-264 sw zero,-224(s0) sw zero,-208(s0) sw zero,-136(s0) jalr t1 lw t1,-224(s0) beqz t1,.L1 li t3,1 beq t1,t3,.L25 li t3,2 beq t1,t3,.L29 li t3,3 beq t1,t3,.L25 li t3,4 beq t1,t3,.L30 li t3,5 beq t1,t3,.L31 li t3,6 beq t1,t3,.L32 li t3,7 beq t1,t3,.L33 and t3,t1,-3 li t4,8 beq t3,t4,.L27 li t4,9 beq t3,t4,.L27 li t3,12 beq t1,t3,.L34 li t3,13 beq t1,t3,.L35 li t3,14 beq t1,t3,.L27 li t3,15 bne t1,t3,.L1 lw t3,-264(s0) and t3,t3,1024 beqz t3,.L1 ld t0,-216(s0) add t3,t0,-1 bgtu t3,t1,.L1 ld t5,-232(s0) li s1,8 and t6,t5,7 add t2,t0,t6 and t5,t5,-8 sext.w t6,t6 sllw t1,t2,3 ld t4,0(t5) sll t3,t6,3 bgtu t0,s1,.L15 bgtu t2,s1,.L16 addw t1,t1,-1 li a0,2 sll a0,a0,t1 add a0,a0,-1 and a0,a0,t4 sra a0,a0,t3 .L1: ld ra,264(sp) ld s0,256(sp) ld s1,248(sp) add sp,sp,288 jr ra .L25: lbu a0,-256(s0) ld ra,264(sp) ld s0,256(sp) ld s1,248(sp) add sp,sp,288 jr ra .L29: lb a0,-256(s0) ld ra,264(sp) ld s0,256(sp) ld s1,248(sp) add sp,sp,288 jr ra .L30: lh a0,-256(s0) j .L1 .L33: lwu a0,-256(s0) j .L1 .L31: lhu a0,-256(s0) j .L1 .L27: ld a0,-256(s0) j .L1 .L32: lw a0,-256(s0) j .L1 .L34: flw fa0,-256(s0) j .L1 .L35: fld fa0,-256(s0) j .L1 .L15: li s1,16 sra t4,t4,t3 ld t0,8(t5) bleu t2,s1,.L36 li a1,-8 mulw t6,a1,t6 addw t1,t1,-129 ld a0,16(t5) li a1,2 sll a1,a1,t1 add a1,a1,-1 and a1,a1,a0 sra t3,t0,t3 addw t1,t6,64 sll a0,t0,t1 sll a1,a1,t1 or a0,a0,t4 or a1,a1,t3 j .L1 .L16: li a0,-8 mulw t6,a0,t6 addw t1,t1,-65 ld t5,8(t5) li a0,2 sll a0,a0,t1 add a0,a0,-1 and a0,a0,t5 sra t4,t4,t3 sll a0,a0,t6 or a0,a0,t4 j .L1 .L36: li a1,-4 mulw t6,a1,t6 addw t1,t1,-65 li a0,2 sll a0,a0,t1 add a0,a0,-1 and a0,a0,t0 sra a1,a0,t3 addw t1,t6,32 sll a0,a0,t1 sll a0,a0,t1 or a0,a0,t4 j .L1 .size vacall_receiver, .-vacall_receiver .ident "GCC: (GNU) 7.3.0" libffcall-2.2/vacall/vacall-hppa64-linux.s0000664000000000000000000000757013530357112015322 00000000000000 .LEVEL 2.0w .text .align 8 .globl vacall_receiver .type vacall_receiver,@function vacall_receiver: .PROC .CALLINFO FRAME=384,CALLS,SAVE_RP,SAVE_SP,ENTRY_GR=8 .ENTRY copy %r3,%r1 std %r2,-16(%r30) copy %r30,%r3 std,ma %r1,384(%r30) std %r4,224(%r3) copy %r27,%r4 std %r8,192(%r3) std %r7,200(%r3) std %r6,208(%r3) std %r5,216(%r3) std %r26,-64(%r29) std %r19,-8(%r29) std %r25,-56(%r29) std %r24,-48(%r29) std %r23,-40(%r29) std %r22,-32(%r29) std %r21,-24(%r29) std %r20,-16(%r29) #APP fstw %fr4R,88(%r3) fstw %fr5R,92(%r3) fstw %fr6R,96(%r3) fstw %fr7R,100(%r3) fstw %fr8R,104(%r3) fstw %fr9R,108(%r3) fstw %fr10R,112(%r3) fstw %fr11R,116(%r3) #NO_APP fstd %fr10,168(%r3) addil LT'vacall_function,%r27 ldo -64(%r29),%r31 ldd RT'vacall_function(%r1),%r1 ldo 16(%r3),%r26 std %r31,40(%r3) std %r29,80(%r3) ldo -16(%r30),%r29 ldd 0(%r1),%r31 fstd %fr11,176(%r3) fstd %fr4,120(%r3) fstd %fr5,128(%r3) fstd %fr6,136(%r3) fstd %fr7,144(%r3) fstd %fr8,152(%r3) fstd %fr9,160(%r3) stw %r0,16(%r3) std %r0,48(%r3) stw %r0,56(%r3) ldd 16(%r31),%r2 ldd 24(%r31),%r27 bve,l (%r2),%r2 nop ldw 56(%r3),%r31 cmpib,= 0,%r31,.L1 copy %r4,%r27 cmpib,=,n 1,%r31,.L43 cmpib,=,n 2,%r31,.L43 cmpib,=,n 3,%r31,.L44 cmpib,=,n 4,%r31,.L45 cmpib,=,n 5,%r31,.L46 cmpib,=,n 6,%r31,.L47 cmpib,=,n 7,%r31,.L41 cmpib,=,n 8,%r31,.L40 cmpib,=,n 10,%r31,.L40 cmpib,=,n 9,%r31,.L40 cmpib,=,n 11,%r31,.L40 cmpib,=,n 12,%r31,.L48 cmpib,=,n 13,%r31,.L49 cmpib,=,n 14,%r31,.L40 cmpib,= 15,%r31,.L50 ldw 16(%r3),%r31 .L1: ldd -16(%r3),%r2 ldd 192(%r3),%r8 ldd 200(%r3),%r7 ldd 208(%r3),%r6 ldd 216(%r3),%r5 ldd 224(%r3),%r4 ldo 64(%r3),%r30 bve (%r2) ldd,mb -64(%r30),%r3 .L50: extrd,u %r31,53+1-1,1,%r31 cmpib,= 0,%r31,.L1 ldd 48(%r3),%r28 ldd 48(%r3),%r31 ldd 64(%r3),%r2 extrd,u %r31,63,3,%r6 copy %r31,%r1 depdi 0,63,3,%r1 cmpib,*<< 8,%r2,.L32 add,l %r6,%r2,%r4 cmpib,*<< 8,%r4,.L33 depd,z %r4,60,61,%r31 subi 64,%r31,%r31 ldd 0(%r1),%r2 extrd,s %r31,63,32,%r31 mtsarcm %r31 depd,z %r6,60,61,%r4 depdi,z 1,%sar,64,%r31 mtsarcm %r4 sub %r0,%r31,%r31 and %r2,%r31,%r2 depd,z %r2,%sar,64,%r2 b .L1 copy %r2,%r28 .L33: subi 128,%r31,%r31 depd,z %r6,60,61,%r2 extrd,s %r31,63,32,%r31 subi 64,%r2,%r5 mtsarcm %r31 subi 63,%r2,%r7 depdi,z 1,%sar,64,%r31 mtsar %r7 ldd 8(%r1),%r4 sub %r0,%r31,%r31 extrd,s %r5,63,32,%r5 ldd 0(%r1),%r2 subi 63,%r5,%r5 and %r4,%r31,%r4 depd,z %r2,%sar,64,%r2 mtsar %r5 extrd,s %r4,%sar,64,%r4 .L39: b .L1 or %r4,%r2,%r28 .L32: ldi 16,%r31 cmpb,*<< %r31,%r4,.L36 depd,z %r4,60,61,%r31 subi 128,%r31,%r31 depd,z %r6,61,62,%r2 extrd,s %r31,63,32,%r31 subi 32,%r2,%r2 mtsarcm %r31 extrd,s %r2,63,32,%r2 depdi,z 1,%sar,64,%r31 subi 63,%r2,%r7 ldd 8(%r1),%r4 sub %r0,%r31,%r31 mtsar %r7 ldd 0(%r1),%r5 and %r4,%r31,%r4 depd,z %r6,60,61,%r31 extrd,s %r4,%sar,64,%r2 subi 63,%r31,%r31 extrd,s %r2,%sar,64,%r2 mtsar %r31 depd,z %r4,%sar,64,%r4 depd,z %r5,%sar,64,%r5 copy %r4,%r29 b .L1 or %r5,%r2,%r28 .L36: subi 192,%r31,%r31 depd,z %r6,60,61,%r2 extrd,s %r31,63,32,%r31 subi 64,%r2,%r6 mtsarcm %r31 subi 63,%r2,%r8 depdi,z 1,%sar,64,%r31 mtsar %r8 ldd 8(%r1),%r2 sub %r0,%r31,%r31 ldd 16(%r1),%r5 extrd,s %r6,63,32,%r6 subi 63,%r6,%r6 and %r5,%r31,%r5 ldd 0(%r1),%r4 depd,z %r2,%sar,64,%r31 mtsar %r6 extrd,s %r5,%sar,64,%r5 mtsar %r8 depd,z %r4,%sar,64,%r4 or %r31,%r5,%r29 mtsar %r6 b .L39 extrd,s %r2,%sar,64,%r2 .L40: b .L1 ldd 24(%r3),%r28 .L49: b .L40 fldd 24(%r3),%fr4 .L48: #APP fldw 24(%r3),%fr4R #NO_APP .L41: ldw 24(%r3),%r31 .L42: b .L1 copy %r31,%r28 .L47: ldw 24(%r3),%r31 b .L1 extrd,s %r31,63,32,%r28 .L46: b .L42 ldh 24(%r3),%r31 .L45: ldh 24(%r3),%r31 b .L1 extrd,s %r31,63,16,%r28 .L44: b .L42 ldb 24(%r3),%r31 .L43: ldb 24(%r3),%r31 b .L1 extrd,s %r31,63,8,%r28 .EXIT .PROCEND .Lfe1: .size vacall_receiver,.Lfe1-vacall_receiver .ident "GCC: (GNU) 3.1" libffcall-2.2/vacall/vacall-mipsn32eb-macro.S0000664000000000000000000001070213530357111015712 00000000000000#include "asm-mips.h" .file 1 "vacall-mipsn32.c" .text .align 2 .align 3 .globl vacall_receiver .set nomips16 .set nomicromips .ent vacall_receiver DECLARE_FUNCTION(vacall_receiver) vacall_receiver: .frame $fp,256,$31 .mask 0xd0070000,-72 .fmask 0x00000000,0 .set noreorder .set nomacro addiu $sp,$sp,-256 sd $28,168($sp) lui $28,%hi(__gnu_local_gp) addiu $28,$28,%lo(__gnu_local_gp) lw $12,%got_disp(vacall_function)($28) sd $fp,176($sp) move $fp,$sp lw $25,0($12) addiu $12,$fp,192 sd $31,184($sp) sd $18,160($sp) sd $17,152($sp) sd $16,144($sp) sd $4,192($fp) sd $5,200($fp) sd $6,208($fp) sd $7,216($fp) sd $8,224($fp) sd $9,232($fp) sd $10,240($fp) sd $11,248($fp) sdc1 $f12,80($fp) sdc1 $f13,88($fp) sdc1 $f14,96($fp) sdc1 $f15,104($fp) sdc1 $f16,112($fp) sdc1 $f17,120($fp) sdc1 $f18,128($fp) sdc1 $f19,136($fp) swc1 $f12,44($fp) swc1 $f13,48($fp) swc1 $f14,52($fp) swc1 $f15,56($fp) swc1 $f16,60($fp) swc1 $f17,64($fp) swc1 $f18,68($fp) swc1 $f19,72($fp) move $4,$fp sw $0,0($fp) sw $12,24($fp) sw $0,28($fp) sw $0,32($fp) jalr $25 sw $0,40($fp) lw $12,32($fp) beq $12,$0,.L1 li $13,1 beq $12,$13,.L43 li $13,2 beq $12,$13,.L43 li $13,3 beq $12,$13,.L49 li $13,4 beq $12,$13,.L50 li $13,5 beq $12,$13,.L51 li $13,6 beq $12,$13,.L46 li $13,7 beq $12,$13,.L45 li $13,8 beq $12,$13,.L46 li $13,9 beq $12,$13,.L45 li $13,10 beq $12,$13,.L47 li $13,11 beq $12,$13,.L47 li $13,12 beq $12,$13,.L52 li $13,13 beq $12,$13,.L53 li $13,14 beq $12,$13,.L46 li $13,15 bnel $12,$13,.L59 move $sp,$fp lw $12,0($fp) andi $13,$12,0x400 beq $13,$0,.L1 andi $13,$12,0x4 beq $13,$0,.L19 lw $24,36($fp) lw $12,36($fp) li $13,1 beq $12,$13,.L54 li $13,2 beq $12,$13,.L55 li $13,4 beq $12,$13,.L56 li $13,8 bnel $12,$13,.L59 move $sp,$fp lw $12,28($fp) ld $2,0($12) .L1: move $sp,$fp .L59: ld $31,184($sp) ld $fp,176($sp) ld $28,168($sp) ld $18,160($sp) ld $17,152($sp) ld $16,144($sp) j $31 addiu $sp,$sp,256 .align 3 .L43: move $sp,$fp ld $31,184($sp) ld $28,168($sp) ld $18,160($sp) ld $17,152($sp) ld $16,144($sp) lb $2,8($fp) ld $fp,176($sp) j $31 addiu $sp,$sp,256 .align 3 .L46: b .L1 lw $2,8($fp) .align 3 .L49: b .L1 lbu $2,8($fp) .align 3 .L50: b .L1 lh $2,8($fp) .align 3 .L45: b .L1 lwu $2,8($fp) .align 3 .L51: b .L1 lhu $2,8($fp) .align 3 .L52: b .L1 lwc1 $f0,8($fp) .align 3 .L47: b .L1 ld $2,8($fp) .L53: b .L1 ldc1 $f0,8($fp) .L19: addiu $13,$24,-1 sltu $13,$13,16 beql $13,$0,.L60 andi $13,$12,0x800 lw $13,28($fp) li $15,-8 sltu $25,$24,9 andi $14,$13,0x7 and $15,$13,$15 beq $25,$0,.L24 addu $13,$24,$14 sltu $25,$13,9 beq $25,$0,.L25 subu $13,$0,$13 ld $25,0($15) sll $13,$13,3 li $15,-1 dsll $13,$15,$13 and $13,$13,$25 sll $14,$14,3 dsll $2,$13,$14 .L23: andi $13,$12,0x800 .L60: beql $13,$0,.L27 andi $12,$12,0x1000 li $13,4 beq $24,$13,.L57 li $13,8 beql $24,$13,.L58 lw $13,28($fp) andi $12,$12,0x1000 beql $12,$0,.L59 move $sp,$fp li $12,16 .L61: bnel $24,$12,.L59 move $sp,$fp lw $12,28($fp) ldc1 $f0,0($12) b .L1 ldc1 $f2,8($12) .L27: beq $12,$0,.L1 li $12,8 bne $24,$12,.L61 li $12,16 lw $13,28($fp) b .L1 ldc1 $f0,0($13) .L24: sltu $25,$13,17 beq $25,$0,.L26 subu $13,$0,$13 ld $17,8($15) subu $16,$0,$14 li $25,-1 sll $13,$13,3 dsll $13,$25,$13 sll $25,$16,2 ld $16,0($15) and $13,$13,$17 addiu $15,$25,32 sll $14,$14,3 dsra $25,$13,$15 dsll $16,$16,$14 dsra $15,$25,$15 or $2,$16,$15 b .L23 dsll $3,$13,$14 .L54: lw $12,28($fp) b .L1 lbu $2,0($12) .L55: lw $12,28($fp) b .L1 lhu $2,0($12) .L26: ld $18,16($15) ld $16,8($15) ld $17,0($15) subu $25,$0,$14 li $15,-1 sll $13,$13,3 sll $25,$25,3 dsll $13,$15,$13 sll $14,$14,3 addiu $15,$25,64 and $13,$13,$18 dsll $25,$17,$14 dsra $13,$13,$15 dsra $17,$16,$15 dsll $14,$16,$14 or $2,$25,$17 b .L23 or $3,$13,$14 .L57: lw $12,28($fp) b .L1 lwc1 $f0,0($12) .L56: lw $12,28($fp) b .L1 lwu $2,0($12) .L25: ld $16,8($15) ld $25,0($15) sll $13,$13,3 li $15,-1 dsll $13,$15,$13 subu $15,$0,$14 and $13,$13,$16 sll $15,$15,3 sll $14,$14,3 dsra $13,$13,$15 dsll $14,$25,$14 b .L23 or $2,$13,$14 .L58: andi $12,$12,0x1000 lwc1 $f0,0($13) beq $12,$0,.L1 lwc1 $f2,4($13) b .L1 ldc1 $f0,0($13) .set macro .set reorder .end vacall_receiver .size vacall_receiver, .-vacall_receiver libffcall-2.2/vacall/vacall-arm.c0000664000000000000000000001136413347755334013634 00000000000000/* vacall function for arm CPU */ /* * Copyright 1995-2017 Bruno Haible * * This program is free software: you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by * the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program. If not, see . */ #include "vacall-internal.h" #ifdef REENTRANT #define vacall_receiver callback_receiver typedef struct { void (*vacall_function) (void*,va_alist); void* arg; } env_t; #endif /* armel have only softvfp which uses generic registers */ register __vaword iret __asm__("r0"); register __vaword iret2 __asm__("r1"); register float fret __asm__("r0"); register __vaword dret1 __asm__("r0"); register __vaword dret2 __asm__("r1"); #ifndef REENTRANT /* The ARM ABI requires that the first 4 general-purpose argument words are being passed in registers, even if these words belong to a struct. No room is allocated for these register words on the stack by the caller, but the callee allocates room for them - at the right place in the stack frame, that is, above the usual {fp, sp, retaddr, pc} combo - if and only if they are part of a larger struct that extends to the stack and the address of this struct is taken. */ struct gpargsequence { __vaword word1; /* r0 */ __vaword word2; /* r1 */ __vaword word3; /* r2 */ __vaword word4; /* r3 */ __vaword firststackword; }; void /* the return type is variable, not void! */ vacall_receiver (struct gpargsequence gpargs) #else /* REENTRANT */ /* The first 4 general-purpose argument words have already been pushed to the stack by the trampoline. We can ignore them here. */ static void /* the return type is variable, not void! */ vacall_receiver (__vaword ignored1, __vaword ignored2, __vaword ignored3, __vaword ignored4, env_t* env, __vaword filler, __vaword saved_fp, __vaword saved_sp, __vaword saved_lr, __vaword saved_pc, __vaword firstword) #endif { __va_alist list; /* Enforce 8-bytes-alignment of the stack pointer. We need to do it this way because the old GCC that we use to compile this file does not support the option '-mabi=aapcs'. */ register unsigned long sp __asm__("r13"); /* C names for registers */ sp &= -8; /* Prepare the va_alist. */ list.flags = 0; #ifndef REENTRANT list.aptr = (long)&gpargs; #else /* REENTRANT */ list.aptr = (long)&firstword; #endif list.raddr = (void*)0; list.rtype = __VAvoid; /* Call vacall_function. The macros do all the rest. */ #ifndef REENTRANT (*vacall_function) (&list); #else /* REENTRANT */ (*env->vacall_function) (env->arg,&list); #endif /* Put return value into proper register. */ if (list.rtype == __VAvoid) { } else if (list.rtype == __VAchar) { iret = list.tmp._char; } else if (list.rtype == __VAschar) { iret = list.tmp._schar; } else if (list.rtype == __VAuchar) { iret = list.tmp._uchar; } else if (list.rtype == __VAshort) { iret = list.tmp._short; } else if (list.rtype == __VAushort) { iret = list.tmp._ushort; } else if (list.rtype == __VAint) { iret = list.tmp._int; } else if (list.rtype == __VAuint) { iret = list.tmp._uint; } else if (list.rtype == __VAlong) { iret = list.tmp._long; } else if (list.rtype == __VAulong) { iret = list.tmp._ulong; } else if (list.rtype == __VAlonglong || list.rtype == __VAulonglong) { iret = ((__vaword *) &list.tmp._longlong)[0]; iret2 = ((__vaword *) &list.tmp._longlong)[1]; } else if (list.rtype == __VAfloat) { fret = list.tmp._float; } else if (list.rtype == __VAdouble) { dret1 = ((__vaword *) &list.tmp._double)[0]; dret2 = ((__vaword *) &list.tmp._double)[1]; } else if (list.rtype == __VAvoidp) { iret = (long)list.tmp._ptr; } else if (list.rtype == __VAstruct) { /* NB: On arm, all structure sizes are divisible by 4. */ if (list.flags & __VA_REGISTER_STRUCT_RETURN) { if (list.rsize == sizeof(char)) { /* can't occur */ iret = *(unsigned char *) list.raddr; } else if (list.rsize == sizeof(short)) { /* can't occur */ iret = *(unsigned short *) list.raddr; } else iret = *(unsigned int *) list.raddr; /* struct of size 3 :) */ } } } #ifdef REENTRANT __vacall_r_t callback_get_receiver (void) { return (__vacall_r_t)(void*)&callback_receiver; } #endif libffcall-2.2/vacall/minitests.c0000664000000000000000000000136613347755332013633 00000000000000/* * Copyright 1999-2001 Bruno Haible * * This program is free software: you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by * the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program. If not, see . */ #define SKIP_EXTRA_STRUCTS #include "tests.c" libffcall-2.2/vacall/PLATFORMS0000664000000000000000000000612113530336773012732 00000000000000Supported CPUs: (Put the GNU config.guess values here.) i386 i486-unknown-linux (gcc), i686-unknown-gnu0.9 (gcc), i386-unknown-sysv4.0 (gcc, /usr/bin/cc, /usr/ucb/cc), i386-pc-solaris2.6 (gcc), i386-pc-solaris2.10 (gcc, cc), i486-unknown-sco3.2v4.2 (gcc, cc -Of), i386-pc-cygwin32 (gcc), i386-w64-mingw32 (gcc, MSVC 14), i586-unknown-freebsd11.0 (cc), i386-unknown-dragonfly3.8 (gcc), i386-unknown-netbsdelf7.0 (gcc), i386-unknown-openbsd6.0 (gcc), i586-pc-haiku (gcc-x86), i386-pc-minix (clang) m68k m68k-next-nextstep3 (cc), m68k-sun-sunos4.0 (cc), m68k-unknown-linux (gcc) mips mips-sgi-irix4.0.5 (gcc, cc -ansi, cc -D__STDC__, cc -cckr), mips-sgi-irix5.2 (gcc, cc -ansi, cc -D__STDC__, cc -cckr), mips-sgi-irix5.2 (gcc, cc -ansi, cc -D__STDC__, cc -cckr), mips-sgi-irix6.2 (cc -32), mips-sgi-irix6.4 (cc -32, cc -n32, cc -64), mips-sgi-irix6.5 (cc -32, cc -n32, gcc -mabi=n32), mips-unknown-linux (gcc -mabi=32), mips64-unknown-linux (gcc -mabi=n32, -mabi=64) sparc sparc-sun-sunos4.1.1 (gcc, cc), sparc-sun-solaris2.3 (gcc), sparc-sun-solaris2.4 (gcc, cc), sparc-sun-solaris2.10 (gcc, cc), sparc64-sun-solaris2.10 (gcc -m64, cc -xarch=generic64), sparc-unknown-linux (gcc), sparc64-unknown-linux (gcc), sparc-unknown-netbsdelf7.1 (gcc), sparc64-unknown-netbsd8.0 (gcc) alpha alpha-dec-osf3.0 (gcc, cc), alpha-dec-osf4.0 (gcc, cc), alphaev67-unknown-linux (gcc) hppa hppa1.0-hp-hpux8.00 (gcc, cc), hppa1.1-hp-hpux9.05 (cc), hppa1.1-hp-hpux10.01 (cc), hppa2.0-hp-hpux10.20 (cc +DA1.1), hppa2.0w-hp-hpux11.31 (cc), hppa-unknown-linux (gcc) hppa64 hppa64-hp-hpux11.31 (cc +DD64) arm armv5tejl-unknown-linux (gcc), armv6l-unknown-linux (gcc), armv7l-unknown-linux (gcc) arm64 aarch64-unknown-linux (gcc) powerpc powerpc-ibm-aix4.1.4.0 (cc), powerpc-ibm-aix7.1.3.0 (xlc, gcc), powerpc-unknown-linux (gcc), powerpc-apple-darwin6.8 (gcc), powerpc-apple-darwin9.8.0 (gcc) powerpc64 powerpc-ibm-aix7.1.3.0 (gcc -maix64, xlc -q64; AR="ar -X 64"), powerpc64-unknown-linux (gcc -m64), powerpc64le-unknown-linux (gcc) ia64 ia64-unknown-linux (gcc) x86_64 x86_64-suse-linux (gcc), x86_64-unknown-linux (gcc -mx32), x86_64-pc-solaris2.10 (gcc -m64, cc -xarch=generic64), x86_64-pc-cygwin (gcc), x86_64-w64-mingw32 (gcc, MSVC 14), x86_64-unknown-freebsd11.0 (cc), x86_64-unknown-netbsd7.0 (gcc), x86_64-unknown-openbsd6.0 (gcc) s390 s390x-ibm-linux (gcc -m31) s390x s390x-ibm-linux (gcc) riscv32 riscv32-unknown-linux (gcc -mabi=ilp32d) riscv64 riscv64-unknown-linux (gcc -mabi=lp64d) libffcall-2.2/vacall/vacall-sparc64-linux-pic.s0000664000000000000000000001324513530357111016246 00000000000000 .file "vacall-sparc64.c" .section ".text" .align 4 .LLADDPC0: jmp %o7+8 add %o7, %l7, %l7 .align 4 .global vacall_receiver .type vacall_receiver, #function .proc 020 vacall_receiver: .register %g2, #scratch .register %g3, #scratch save %sp, -448, %sp add %fp, 2175, %g1 stx %i0, [%fp+2175] stx %i1, [%fp+2183] stx %i2, [%fp+2191] stx %i3, [%fp+2199] stx %i4, [%fp+2207] stx %i5, [%fp+2215] std %f0, [%fp+1903] std %f2, [%fp+1911] std %f4, [%fp+1919] std %f6, [%fp+1927] std %f8, [%fp+1935] std %f10, [%fp+1943] std %f12, [%fp+1951] std %f14, [%fp+1959] std %f16, [%fp+1967] std %f18, [%fp+1975] std %f20, [%fp+1983] std %f22, [%fp+1991] std %f24, [%fp+1999] std %f26, [%fp+2007] std %f28, [%fp+2015] std %f30, [%fp+2023] st %f1, [%fp+1835] st %f3, [%fp+1839] st %f5, [%fp+1843] st %f7, [%fp+1847] st %f9, [%fp+1851] st %f11, [%fp+1855] st %f13, [%fp+1859] st %f15, [%fp+1863] st %f17, [%fp+1867] st %f19, [%fp+1871] st %f21, [%fp+1875] sethi %hi(_GLOBAL_OFFSET_TABLE_-4), %l7 call .LLADDPC0 add %l7, %lo(_GLOBAL_OFFSET_TABLE_+4), %l7 st %f23, [%fp+1879] stx %g1, [%fp+1799] sethi %hi(vacall_function), %g1 or %g1, %lo(vacall_function), %g1 st %f25, [%fp+1883] ldx [%l7+%g1], %g2 st %f27, [%fp+1887] st %f29, [%fp+1891] st %f31, [%fp+1895] st %g0, [%fp+1775] stx %g0, [%fp+1807] st %g0, [%fp+1815] st %g0, [%fp+1831] ldx [%g2], %g3 call %g3, 0 add %fp, 1775, %o0 lduw [%fp+1815], %g1 cmp %g1, 0 be,pn %icc, .LL61 cmp %g1, 1 be,pn %icc, .LL50 cmp %g1, 2 be,pn %icc, .LL50 cmp %g1, 3 be,pn %icc, .LL53 cmp %g1, 4 be,pn %icc, .LL54 cmp %g1, 5 be,pn %icc, .LL55 cmp %g1, 6 be,pn %icc, .LL56 cmp %g1, 7 be,pn %icc, .LL57 cmp %g1, 8 be,pn %icc, .LL51 cmp %g1, 9 be,pn %icc, .LL51 cmp %g1, 10 be,pn %icc, .LL51 cmp %g1, 11 be,pn %icc, .LL51 cmp %g1, 12 be,pn %icc, .LL58 cmp %g1, 13 be,pn %icc, .LL59 cmp %g1, 14 be,pn %icc, .LL51 cmp %g1, 15 bne,pt %icc, .LL61 lduw [%fp+1775], %g1 andcc %g1, 1024, %g0 be,pn %xcc, .LL61 ldx [%fp+1823], %g5 add %g5, -1, %g1 cmp %g1, 31 bgu,pn %xcc, .LL61 ldx [%fp+1807], %g1 cmp %g5, 8 and %g1, 7, %o2 and %g1, -8, %l0 bgu,pt %xcc, .LL35 add %g5, %o2, %g2 cmp %g2, 8 bgu,pt %xcc, .LL37 sllx %o2, 3, %g4 sllx %g2, 3, %g2 ldx [%l0], %g3 sub %g0, %g2, %g2 mov -1, %g1 sllx %g1, %g2, %g1 and %g1, %g3, %g1 return %i7+8 sllx %g1, %g4, %o0 .LL47: ldx [%l0], %g1 sllx %g1, %o4, %g1 ldx [%l0+8], %g4 ldx [%l0+16], %g5 sllx %g4, %o4, %o1 sllx %g5, %o4, %o0 ldx [%l0+24], %o5 sllx %g2, 3, %o3 sllx %o5, %o4, %o7 ldx [%l0+32], %o2 sub %g0, %o3, %o3 mov 64, %g3 sub %g3, %o4, %g3 srax %g4, %g3, %g4 srax %g5, %g3, %g5 or %g1, %g4, %i0 srax %o5, %g3, %o5 mov -1, %g1 or %o1, %g5, %i1 sllx %g1, %o3, %g1 or %o0, %o5, %i2 and %g1, %o2, %g1 srax %g1, %g3, %g1 or %o7, %g1, %i3 .LL61: return %i7+8 nop .LL50: ldsb [%fp+1783], %i0 return %i7+8 nop .LL54: ldsh [%fp+1783], %i0 return %i7+8 nop .LL53: ldub [%fp+1783], %i0 return %i7+8 nop .LL51: ldx [%fp+1783], %i0 return %i7+8 nop .LL55: lduh [%fp+1783], %i0 return %i7+8 nop .LL56: ldsw [%fp+1783], %i0 return %i7+8 nop .LL57: lduw [%fp+1783], %i0 return %i7+8 nop .LL58: ld [%fp+1783], %f0 return %i7+8 nop .LL59: ldd [%fp+1783], %f0 return %i7+8 nop .LL35: cmp %g5, 16 bgu,pt %xcc, .LL39 cmp %g5, 24 cmp %g2, 16 bgu,pt %xcc, .LL41 sllx %o2, 3, %o5 sllx %g2, 3, %g3 ldx [%l0+8], %g2 sll %o2, 3, %g5 sllx %o2, 2, %o5 sub %g0, %g3, %g3 ldx [%l0], %g4 mov -1, %g1 sllx %g4, %g5, %g4 sllx %g1, %g3, %g1 and %g1, %g2, %g1 mov 32, %g2 sllx %g1, %g5, %i1 sub %g2, %o5, %g2 srax %g1, %g2, %g1 srax %g1, %g2, %g1 return %i7+8 or %g4, %g1, %o0 .LL37: sllx %g2, 3, %g3 ldx [%l0+8], %g5 sub %g0, %g3, %g3 sub %g0, %g4, %o5 ldx [%l0], %g2 mov -1, %g1 sllx %g2, %g4, %g2 sllx %g1, %g3, %g1 and %g1, %g5, %g1 srax %g1, %o5, %g1 return %i7+8 or %g2, %g1, %o0 .LL39: bgu,pt %xcc, .LL43 cmp %g2, 32 cmp %g2, 24 bgu,pt %xcc, .LL45 sllx %o2, 3, %o4 sllx %o2, 2, %g1 sll %o2, 3, %g5 sllx %g2, 3, %o5 ldx [%l0+8], %g3 ldx [%l0+16], %o4 sllx %g3, %g5, %o3 sub %g0, %o5, %o5 mov 32, %g4 ldx [%l0], %g2 sub %g4, %g1, %g4 sllx %g2, %g5, %g2 srax %g3, %g4, %g3 mov -1, %g1 srax %g3, %g4, %g3 sllx %g1, %o5, %g1 and %g1, %o4, %g1 sllx %g1, %g5, %i2 srax %g1, %g4, %g1 srax %g1, %g4, %g1 or %o3, %g1, %i1 return %i7+8 or %g2, %g3, %o0 .LL41: sllx %g2, 3, %g5 ldx [%l0+8], %g3 ldx [%l0+16], %o4 sllx %g3, %o5, %o3 sub %g0, %g5, %g5 mov 64, %g4 ldx [%l0], %g2 sub %g4, %o5, %g4 sllx %g2, %o5, %g2 srax %g3, %g4, %g3 mov -1, %g1 sllx %g1, %g5, %g1 and %g1, %o4, %g1 srax %g1, %g4, %g1 or %o3, %g1, %i1 return %i7+8 or %g2, %g3, %o0 .LL45: ldx [%l0], %g1 sllx %g1, %o4, %g1 ldx [%l0+8], %g3 ldx [%l0+16], %g4 sllx %g3, %o4, %o3 sllx %g4, %o4, %o1 sllx %g2, 3, %o5 ldx [%l0+24], %o2 sub %g0, %o5, %o5 mov 64, %g5 sub %g5, %o4, %g5 srax %g3, %g5, %g3 srax %g4, %g5, %g4 or %g1, %g3, %i0 or %o3, %g4, %i1 mov -1, %g1 sllx %g1, %o5, %g1 and %g1, %o2, %g1 srax %g1, %g5, %g1 or %o1, %g1, %i2 return %i7+8 nop .LL43: bgu,pt %xcc, .LL47 sllx %o2, 3, %o4 sll %o2, 3, %o5 ldx [%l0], %g1 sllx %g1, %o5, %g1 sllx %o2, 2, %o4 sllx %g2, 3, %g5 ldx [%l0+8], %g3 ldx [%l0+16], %g4 sllx %g3, %o5, %o2 sllx %g4, %o5, %o1 ldx [%l0+24], %o3 sub %g0, %g5, %g5 mov 32, %g2 sub %g2, %o4, %g2 srax %g3, %g2, %g3 srax %g4, %g2, %g4 srax %g3, %g2, %g3 srax %g4, %g2, %g4 or %g1, %g3, %i0 or %o2, %g4, %i1 mov -1, %g1 sllx %g1, %g5, %g1 and %g1, %o3, %g1 sllx %g1, %o5, %i3 srax %g1, %g2, %g1 srax %g1, %g2, %g1 or %o1, %g1, %i2 return %i7+8 nop .size vacall_receiver, .-vacall_receiver .ident "GCC: (GNU) 4.0.2" .section ".note.GNU-stack" libffcall-2.2/vacall/vacall-arm-macro.S0000664000000000000000000000640113530357112014671 00000000000000#include "asm-arm.h" #ifdef __PIC__ .text .align 2 .global C(vacall_receiver) DECLARE_FUNCTION(vacall_receiver) FUNBEGIN(vacall_receiver) // args = 20, pretend = 16, frame = 32 // frame_needed = 1, uses_anonymous_args = 0 mov ip, sp sub sp, sp, $16 stmfd sp!, {sl, fp, ip, lr, pc} sub fp, ip, $20 add ip, fp, $4 ldr sl, L(41) sub sp, sp, $32 stmia ip, {r0, r1, r2, r3} ldr r3, L(41)+4 mov lr, $0 L(36): add sl, pc, sl ldr r2, [sl, r3] str ip, [fp, $-32] str lr, [fp, $-24] str lr, [fp, $-48] str lr, [fp, $-28] bic sp, sp, $7 sub r0, fp, $48 mov lr, pc ldr pc, [r2, $0] ldr r2, [fp, $-24] cmp r2, $0 beq L(1) cmp r2, $1 beq L(39) cmp r2, $2 ldreqsb r0, [fp, $-40] beq L(1) cmp r2, $3 beq L(39) cmp r2, $4 ldreqsh r0, [fp, $-40] beq L(1) cmp r2, $5 ldreqh r0, [fp, $-40] beq L(1) cmp r2, $6 beq L(38) cmp r2, $7 beq L(38) cmp r2, $8 beq L(38) cmp r2, $9 beq L(38) sub r3, r2, $10 cmp r3, $1 bls L(37) cmp r2, $12 ldreq r0, [fp, $-40] // float beq L(1) cmp r2, $13 beq L(37) cmp r2, $14 beq L(38) cmp r2, $15 beq L(40) L(1): ldmea fp, {sl, fp, sp, pc} L(40): ldr r3, [fp, $-48] tst r3, $1024 beq L(1) ldr r3, [fp, $-20] cmp r3, $1 ldreq r3, [fp, $-28] ldreqb r0, [r3, $0] // zero_extendqisi2 beq L(1) cmp r3, $2 ldreq r3, [fp, $-28] ldrne r3, [fp, $-28] ldreqh r0, [r3, $0] ldrne r0, [r3, $0] b L(1) L(38): ldr r0, [fp, $-40] b L(1) L(37): sub r0, fp, $40 ldmia r0, {r0, r1} // phole ldm b L(1) L(39): ldrb r0, [fp, $-40] // zero_extendqisi2 b L(1) L(42): .align 2 L(41): .word _GLOBAL_OFFSET_TABLE_-(L(36)+8) .word C(vacall_function)(GOT) L(fe1): FUNEND(vacall_receiver) #else .text .align 2 .global C(vacall_receiver) DECLARE_FUNCTION(vacall_receiver) FUNBEGIN(vacall_receiver) // args = 20, pretend = 16, frame = 32 // frame_needed = 1, uses_anonymous_args = 0 mov ip, sp sub sp, sp, $16 stmfd sp!, {fp, ip, lr, pc} sub fp, ip, $20 add lr, fp, $4 mov ip, $0 sub sp, sp, $32 stmia lr, {r0, r1, r2, r3} bic sp, sp, $7 str lr, [fp, $-28] str ip, [fp, $-20] str ip, [fp, $-44] str ip, [fp, $-24] sub r0, fp, $44 ldr r3, L(40) mov lr, pc ldr pc, [r3, $0] ldr r2, [fp, $-20] cmp r2, $0 beq L(1) cmp r2, $1 beq L(38) cmp r2, $2 ldreqsb r0, [fp, $-36] beq L(1) cmp r2, $3 beq L(38) cmp r2, $4 ldreqsh r0, [fp, $-36] beq L(1) cmp r2, $5 ldreqh r0, [fp, $-36] beq L(1) cmp r2, $6 beq L(37) cmp r2, $7 beq L(37) cmp r2, $8 beq L(37) cmp r2, $9 beq L(37) sub r3, r2, $10 cmp r3, $1 bls L(36) cmp r2, $12 ldreq r0, [fp, $-36] // float beq L(1) cmp r2, $13 beq L(36) cmp r2, $14 beq L(37) cmp r2, $15 beq L(39) L(1): ldmea fp, {fp, sp, pc} L(39): ldr r3, [fp, $-44] tst r3, $1024 beq L(1) ldr r3, [fp, $-16] cmp r3, $1 ldreq r3, [fp, $-24] ldreqb r0, [r3, $0] // zero_extendqisi2 beq L(1) cmp r3, $2 ldreq r3, [fp, $-24] ldrne r3, [fp, $-24] ldreqh r0, [r3, $0] ldrne r0, [r3, $0] b L(1) L(37): ldr r0, [fp, $-36] b L(1) L(36): sub r0, fp, $36 ldmia r0, {r0, r1} // phole ldm b L(1) L(38): ldrb r0, [fp, $-36] // zero_extendqisi2 b L(1) L(41): .align 2 L(40): .word C(vacall_function) L(fe1): FUNEND(vacall_receiver) #endif #if defined __linux__ || defined __FreeBSD__ || defined __FreeBSD_kernel__ || defined __DragonFly__ .section .note.GNU-stack,"",%progbits #endif libffcall-2.2/vacall/vacall-alpha-linux.s0000664000000000000000000000513313530357111015275 00000000000000 .set noreorder .set volatile .set noat .set nomacro .text .align 2 .align 4 .globl vacall_receiver .ent vacall_receiver vacall_receiver: .frame $15,192,$26,48 .mask 0x4008000,-192 ldah $29,0($27) !gpdisp!1 lda $29,0($29) !gpdisp!1 $vacall_receiver..ng: lda $30,-192($30) stq $15,8($30) mov $30,$15 lda $3,144($15) stq $26,0($30) .prologue 1 lda $2,88($15) stq $16,144($15) subq $2,$3,$2 ldq $3,vacall_function($29) !literal stq $2,80($15) lda $2,192($15) lda $16,16($15) stq $2,72($15) ldq $27,0($3) lda $2,144($15) stq $17,152($15) stq $18,160($15) stq $19,168($15) stq $20,176($15) stq $21,184($15) stt $f16,88($15) stt $f17,96($15) stt $f18,104($15) stt $f19,112($15) stt $f20,120($15) stt $f21,128($15) stl $31,16($15) stq $2,40($15) stq $31,48($15) stl $31,56($15) jsr $26,($27),0 ldah $29,0($26) !gpdisp!2 lda $29,0($29) !gpdisp!2 ldl $2,56($15) beq $2,$L43 zapnot $2,15,$3 cmpeq $3,1,$2 bne $2,$L44 cmpeq $3,2,$2 bne $2,$L44 cmpeq $3,3,$2 bne $2,$L50 cmpeq $3,4,$2 bne $2,$L51 cmpeq $3,5,$2 bne $2,$L52 cmpeq $3,6,$2 bne $2,$L53 cmpeq $3,7,$2 bne $2,$L54 cmpeq $3,8,$2 bne $2,$L48 cmpeq $3,9,$2 bne $2,$L48 cmpeq $3,10,$2 bne $2,$L48 cmpeq $3,11,$2 bne $2,$L48 cmpeq $3,12,$2 bne $2,$L55 cmpeq $3,13,$2 bne $2,$L56 cmpeq $3,14,$2 bne $2,$L48 cmpeq $3,15,$2 beq $2,$L43 lda $2,1024($31) ldl $3,16($15) and $2,$3,$2 beq $2,$L43 ldq $3,64($15) cmpeq $3,1,$2 bne $2,$L57 cmpeq $3,2,$2 bne $2,$L58 cmpeq $3,4,$2 bne $2,$L59 cmpeq $3,8,$2 bne $2,$L60 cmpeq $3,16,$2 beq $2,$L43 ldq $2,48($15) ldq $1,8($2) ldq $0,0($2) .align 4 $L43: mov $15,$30 ldq $26,0($30) ldq $15,8($30) lda $30,192($30) ret $31,($26),1 .align 4 $L44: mov $15,$30 ldl $2,24($15) ldq $26,0($30) sll $2,56,$2 sra $2,56,$0 ldq $15,8($30) lda $30,192($30) ret $31,($26),1 $L51: ldl $2,24($15) sll $2,48,$2 sra $2,48,$0 br $31,$L43 $L50: ldl $2,24($15) bis $31,$31,$31 and $2,0xff,$0 br $31,$L43 $L48: ldq $0,24($15) br $31,$L43 $L52: ldl $2,24($15) bis $31,$31,$31 zapnot $2,3,$0 br $31,$L43 $L53: ldl $3,24($15) bis $31,$31,$31 mov $3,$0 br $31,$L43 $L54: ldl $2,24($15) bis $31,$31,$31 zapnot $2,15,$0 br $31,$L43 $L55: lds $f0,24($15) br $31,$L43 $L56: ldt $f0,24($15) br $31,$L43 $L57: ldq $3,48($15) ldq_u $2,0($3) extbl $2,$3,$0 br $31,$L43 $L58: ldq $3,48($15) ldq_u $2,0($3) extwl $2,$3,$0 br $31,$L43 $L60: ldq $2,48($15) bis $31,$31,$31 ldq $0,0($2) br $31,$L43 $L59: ldq $2,48($15) ldl $3,0($2) zapnot $3,15,$0 br $31,$L43 .end vacall_receiver .ident "GCC: (GNU) 4.0.2" .section .note.GNU-stack,"",@progbits libffcall-2.2/vacall/vacall-hppa-macro.S0000664000000000000000000000665613530357111015055 00000000000000#include "asm-hppa.h" .LEVEL 1.1 IMPORT_MILLICODE($$dyncall) TEXT1() TEXT2() .align 4 GLOBL(vacall_receiver) DECLARE_FUNCTION(vacall_receiver) DEF(vacall_receiver) .PROC .CALLINFO FRAME=192,CALLS,SAVE_RP,SAVE_SP,ENTRY_GR=3 .ENTRY copy %r3,%r1 stw %r2,-20(%r30) copy %r30,%r3 stwm %r1,192(%r30) addil LR!vacall_function-$global$,%r27 ldo -32(%r3),%r2 ldo 16(%r3),%r22 sub %r22,%r2,%r20 ldo 104(%r3),%r19 ldo 72(%r3),%r21 ldo 80(%r20),%r31 fstds %fr5,-16(%r19) ldo 64(%r20),%r20 ldo -48(%r3),%r19 stw %r26,-36(%r3) copy %r22,%r26 stw %r20,56(%r3) fstws %fr7L,-8(%r21) stw %r19,52(%r3) stw %r31,60(%r3) stw %r25,-40(%r3) stw %r24,-44(%r3) stw %r23,-48(%r3) fstds %fr7,8(%r21) fstws %fr4L,4(%r21) fstws %fr5L,0(%r21) fstws %fr6L,-4(%r21) stw %r0,16(%r3) stw %r2,32(%r3) stw %r0,36(%r3) stw %r0,40(%r3) stw %r28,48(%r3) ldw RR!vacall_function-$global$(%r1),%r22 .CALL ARGW0=GR bl $$dyncall,%r31 copy %r31,%r2 ldw 40(%r3),%r20 comib,= 0,%r20,L(48) ldw -20(%r3),%r2 comib,= 1,%r20,L(49) ldb 24(%r3),%r19 comib,=,n 2,%r20,L(49) comib,=,n 3,%r20,L(43) comib,=,n 4,%r20,L(44) comib,=,n 5,%r20,L(45) comib,=,n 6,%r20,L(41) comib,=,n 7,%r20,L(41) comib,=,n 8,%r20,L(41) comib,= 9,%r20,L(41) ldo -10(%r20),%r19 comib,<<,n 1,%r19,L(22) ldw 24(%r3),%r28 DEF(L(40)) ldw 28(%r3),%r29 DEF(L(1)) ldw -20(%r3),%r2 DEF(L(48)) ldo 64(%r3),%r30 bv %r0(%r2) ldwm -64(%r30),%r3 DEF(L(22)) comib,= 12,%r20,L(46) ldo 40(%r3),%r19 comib,=,n 13,%r20,L(47) comib,=,n 14,%r20,L(1) ldw 24(%r3),%r28 comib,<> 15,%r20,L(48) ldw -20(%r3),%r2 ldw 16(%r3),%r19 bb,>= %r19,30,L(1) ldw 44(%r3),%r2 ldo -1(%r2),%r19 comib,<< 7,%r19,L(1) ldw 36(%r3),%r19 extru %r19,31,2,%r22 copy %r19,%r31 depi 0,31,2,%r31 comib,<< 4,%r2,L(33) addl %r22,%r2,%r1 zdep %r22,28,29,%r22 mtsar %r22 zvdepi 2,32,%r19 comib,<< 4,%r1,L(34) ldo -1(%r19),%r22 ldw 0(%r31),%r19 zdep %r1,28,29,%r20 ldo -1(%r20),%r20 and %r19,%r22,%r19 mtsar %r20 vextrs %r19,32,%r19 movb,tr %r19,%r28,L(48) ldw -20(%r3),%r2 DEF(L(34)) ldw 0(%r31),%r19 zdep %r1,28,29,%r21 ldw 4(%r31),%r20 and %r19,%r22,%r19 ldo -33(%r21),%r31 subi 63,%r21,%r21 mtsar %r21 zvdep %r19,32,%r19 mtsar %r31 vextrs %r20,32,%r20 DEF(L(39)) b L(1) or %r20,%r19,%r28 DEF(L(33)) zdep %r22,28,29,%r22 mtsar %r22 zvdepi 2,32,%r19 comib,<< 8,%r1,L(37) ldo -1(%r19),%r2 ldw 0(%r31),%r21 zdep %r1,29,30,%r19 and %r21,%r2,%r21 ldw 4(%r31),%r22 subi 47,%r19,%r2 zdep %r1,28,29,%r19 mtsar %r2 ldo -33(%r19),%r19 zvdep %r21,32,%r20 zvdep %r20,32,%r20 mtsar %r19 vextrs %r22,32,%r22 vextrs %r21,32,%r21 movb,tr %r21,%r28,L(1) or %r20,%r22,%r29 DEF(L(37)) ldw 0(%r31),%r20 zdep %r1,28,29,%r22 ldw 8(%r31),%r21 and %r20,%r2,%r20 ldo -65(%r22),%r2 ldw 4(%r31),%r19 mtsar %r2 subi 95,%r22,%r31 vextrs %r21,32,%r21 mtsar %r31 zvdep %r19,32,%r22 zvdep %r20,32,%r20 or %r22,%r21,%r29 mtsar %r2 b L(39) vextrs %r19,32,%r19 DEF(L(41)) b L(1) ldw 24(%r3),%r28 DEF(L(47)) ldw 24(%r3),%r28 b L(40) fldds -16(%r19),%fr4 DEF(L(46)) ldw 24(%r3),%r28 b L(1) fldws -16(%r19),%fr4L DEF(L(45)) b L(1) ldh 24(%r3),%r28 DEF(L(44)) ldh 24(%r3),%r19 b L(1) extrs %r19,31,16,%r28 DEF(L(43)) b L(1) ldb 24(%r3),%r28 DEF(L(49)) b L(1) extrs %r19,31,8,%r28 .EXIT .PROCEND DEF(L(fe1)) FUNEND(vacall_receiver) IMPORT_DATA(vacall_function) #if defined __linux__ || defined __FreeBSD__ || defined __FreeBSD_kernel__ || defined __DragonFly__ .section .note.GNU-stack,"",@progbits #endif libffcall-2.2/vacall/vacall-structcpy.c0000664000000000000000000000142413347755341015107 00000000000000/* copy structs */ /* * Copyright 2016 Bruno Haible * * This program is free software: you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by * the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program. If not, see . */ #define __structcpy vacall_structcpy #include "structcpy.c" libffcall-2.2/vacall/vacall-mipsel-linux.s0000664000000000000000000000754113530357111015506 00000000000000 .file 1 "vacall-mips.c" .section .mdebug.abi32 .previous .nan legacy .module fp=xx .module nooddspreg .abicalls .text .align 2 .globl vacall_receiver .set nomips16 .set nomicromips .ent vacall_receiver .type vacall_receiver, @function vacall_receiver: .frame $fp,104,$31 # vars= 72, regs= 2/0, args= 16, gp= 8 .mask 0xc0000000,-4 .fmask 0x00000000,0 .set noreorder .cpload $25 .set reorder addiu $sp,$sp,-104 sw $fp,96($sp) move $fp,$sp sw $31,100($sp) la $8,vacall_function sw $4,104($fp) lw $25,0($8) addiu $4,$fp,104 sw $4,40($fp) addiu $4,$fp,120 sw $4,56($fp) .cprestore 16 addiu $4,$fp,24 sw $5,108($fp) sw $6,112($fp) sw $7,116($fp) sdc1 $f12,80($fp) sdc1 $f14,88($fp) swc1 $f12,68($fp) swc1 $f14,72($fp) sw $0,24($fp) sw $0,44($fp) sw $0,48($fp) sw $0,60($fp) sw $0,64($fp) jal $25 lw $4,48($fp) .set noreorder .set nomacro beq $4,$0,$L1 li $5,1 # 0x1 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,$L23 li $5,2 # 0x2 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,$L23 li $5,3 # 0x3 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,$L29 li $5,4 # 0x4 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,$L30 li $5,5 # 0x5 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,$L31 li $5,6 # 0x6 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,$L27 li $5,7 # 0x7 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,$L27 li $5,8 # 0x8 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,$L27 li $5,9 # 0x9 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,$L27 addiu $5,$4,-10 .set macro .set reorder sltu $5,$5,2 .set noreorder .set nomacro bne $5,$0,$L32 li $5,12 # 0xc .set macro .set reorder .set noreorder .set nomacro beq $4,$5,$L33 li $5,13 # 0xd .set macro .set reorder .set noreorder .set nomacro beq $4,$5,$L34 li $5,14 # 0xe .set macro .set reorder .set noreorder .set nomacro beq $4,$5,$L27 li $5,15 # 0xf .set macro .set reorder .set noreorder .set nomacro bnel $4,$5,$L37 move $sp,$fp .set macro .set reorder lw $4,24($fp) andi $4,$4,0x2 .set noreorder .set nomacro beql $4,$0,$L38 lw $2,44($fp) .set macro .set reorder lw $4,52($fp) li $5,1 # 0x1 .set noreorder .set nomacro beql $4,$5,$L35 lw $4,44($fp) .set macro .set reorder li $5,2 # 0x2 .set noreorder .set nomacro beq $4,$5,$L36 li $5,4 # 0x4 .set macro .set reorder .set noreorder .set nomacro bnel $4,$5,$L37 move $sp,$fp .set macro .set reorder lw $4,44($fp) lw $2,0($4) $L1: $L38: move $sp,$fp $L37: lw $31,100($sp) lw $fp,96($sp) .set noreorder .set nomacro j $31 addiu $sp,$sp,104 .set macro .set reorder $L23: move $sp,$fp lw $31,100($sp) lb $2,32($fp) lw $fp,96($sp) .set noreorder .set nomacro j $31 addiu $sp,$sp,104 .set macro .set reorder $L27: move $sp,$fp lw $31,100($sp) lw $2,32($fp) lw $fp,96($sp) .set noreorder .set nomacro j $31 addiu $sp,$sp,104 .set macro .set reorder $L29: .set noreorder .set nomacro b $L1 lbu $2,32($fp) .set macro .set reorder $L30: .set noreorder .set nomacro b $L1 lh $2,32($fp) .set macro .set reorder $L31: .set noreorder .set nomacro b $L1 lhu $2,32($fp) .set macro .set reorder $L34: .set noreorder .set nomacro b $L1 ldc1 $f0,32($fp) .set macro .set reorder $L32: lw $2,32($fp) .set noreorder .set nomacro b $L1 lw $3,36($fp) .set macro .set reorder $L33: .set noreorder .set nomacro b $L1 lwc1 $f0,32($fp) .set macro .set reorder $L35: .set noreorder .set nomacro b $L1 lbu $2,0($4) .set macro .set reorder $L36: lw $4,44($fp) .set noreorder .set nomacro b $L1 lhu $2,0($4) .set macro .set reorder .end vacall_receiver .size vacall_receiver, .-vacall_receiver .ident "GCC: (GNU) 5.4.0" libffcall-2.2/vacall/tests.c0000664000000000000000000022623313530344240012742 00000000000000/* Some random tests for vacall. */ /* * Copyright 1993 Bill Triggs * Copyright 1995-2019 Bruno Haible * * This program is free software: you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by * the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program. If not, see . */ #include #include #include #include "vacall.h" #include "testcases.c" #if defined(__m68k__) && defined(__GNUC__) /* "gcc-2.6.3 -freg-struct-return" returns T = struct { char c[3]; } (which * has size 4 !) in memory, in contrast to struct { char a,b,c; } and * struct { char c[4]; } and struct { char a,b,c,d; } which have the same * size and the same alignment but are returned in registers. I don't know why. */ #define SKIP_T #endif #if defined(__sparc__) && defined(__sun) && defined(__SUNPRO_C) /* SUNWspro cc */ /* SunPRO cc miscompiles the simulator function for X_BcdB: d.i[1] is * temporarily stored in %l2 and put onto the stack from %l2, but in between * the copy of X has used %l2 as a counter without saving and restoring its * value. */ #define SKIP_X #endif #if defined(__mipsn32__) && !defined(__GNUC__) /* The X test crashes for an unknown reason. */ #define SKIP_X #endif void* current_function; /* This function simulates the behaviour of current_function. */ void simulator (va_alist alist) { /* void tests */ if (current_function == (void*)&v_v) { va_start_void(alist); fprintf(out,"void f(void):\n"); fflush(out); va_return_void(alist); } /* int tests */ else if (current_function == (void*)&i_v) { va_start_int(alist); {int r=99; fprintf(out,"int f(void):"); fflush(out); va_return_int(alist, r); }} else if (current_function == (void*)&i_i) { va_start_int(alist); {int a = va_arg_int(alist); int r=a+1; fprintf(out,"int f(int):(%d)",a); fflush(out); va_return_int(alist, r); }} else if (current_function == (void*)&i_i2) { va_start_int(alist); {int a = va_arg_int(alist); int b = va_arg_int(alist); int r=a+b; fprintf(out,"int f(2*int):(%d,%d)",a,b); fflush(out); va_return_int(alist, r); }} else if (current_function == (void*)&i_i4) { va_start_int(alist); {int a = va_arg_int(alist); int b = va_arg_int(alist); int c = va_arg_int(alist); int d = va_arg_int(alist); int r=a+b+c+d; fprintf(out,"int f(4*int):(%d,%d,%d,%d)",a,b,c,d); fflush(out); va_return_int(alist, r); }} else if (current_function == (void*)&i_i8) { va_start_int(alist); {int a = va_arg_int(alist); int b = va_arg_int(alist); int c = va_arg_int(alist); int d = va_arg_int(alist); int e = va_arg_int(alist); int f = va_arg_int(alist); int g = va_arg_int(alist); int h = va_arg_int(alist); int r=a+b+c+d+e+f+g+h; fprintf(out,"int f(8*int):(%d,%d,%d,%d,%d,%d,%d,%d)",a,b,c,d,e,f,g,h); fflush(out); va_return_int(alist, r); }} else if (current_function == (void*)&i_i16) { va_start_int(alist); {int a = va_arg_int(alist); int b = va_arg_int(alist); int c = va_arg_int(alist); int d = va_arg_int(alist); int e = va_arg_int(alist); int f = va_arg_int(alist); int g = va_arg_int(alist); int h = va_arg_int(alist); int i = va_arg_int(alist); int j = va_arg_int(alist); int k = va_arg_int(alist); int l = va_arg_int(alist); int m = va_arg_int(alist); int n = va_arg_int(alist); int o = va_arg_int(alist); int p = va_arg_int(alist); int r=a+b+c+d+e+f+g+h+i+j+k+l+m+n+o+p; fprintf(out,"int f(16*int):(%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d)", a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p); fflush(out); va_return_int(alist, r); }} else if (current_function == (void*)&i_i32) { va_start_int(alist); {int a = va_arg_int(alist); int b = va_arg_int(alist); int c = va_arg_int(alist); int d = va_arg_int(alist); int e = va_arg_int(alist); int f = va_arg_int(alist); int g = va_arg_int(alist); int h = va_arg_int(alist); int i = va_arg_int(alist); int j = va_arg_int(alist); int k = va_arg_int(alist); int l = va_arg_int(alist); int m = va_arg_int(alist); int n = va_arg_int(alist); int o = va_arg_int(alist); int p = va_arg_int(alist); int aa = va_arg_int(alist); int ab = va_arg_int(alist); int ac = va_arg_int(alist); int ad = va_arg_int(alist); int ae = va_arg_int(alist); int af = va_arg_int(alist); int ag = va_arg_int(alist); int ah = va_arg_int(alist); int ai = va_arg_int(alist); int aj = va_arg_int(alist); int ak = va_arg_int(alist); int al = va_arg_int(alist); int am = va_arg_int(alist); int an = va_arg_int(alist); int ao = va_arg_int(alist); int ap = va_arg_int(alist); int r=a+b+c+d+e+f+g+h+i+j+k+l+m+n+o+p+aa+ab+ac+ad+ae+af+ag+ah+ai+aj+ak+al+am+an+ao+ap; fprintf(out,"int f(32*int):(%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d)", a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,aa,ab,ac,ad,ae,af,ag,ah,ai,aj,ak,al,am,an,ao,ap); fflush(out); va_return_int(alist, r); }} /* float tests */ else if (current_function == (void*)&f_f) { va_start_float(alist); {float a = va_arg_float(alist); float r=a+1.0; fprintf(out,"float f(float):(%g)",a); fflush(out); va_return_float(alist, r); }} else if (current_function == (void*)&f_f2) { va_start_float(alist); {float a = va_arg_float(alist); float b = va_arg_float(alist); float r=a+b; fprintf(out,"float f(2*float):(%g,%g)",a,b); fflush(out); va_return_float(alist, r); }} else if (current_function == (void*)&f_f4) { va_start_float(alist); {float a = va_arg_float(alist); float b = va_arg_float(alist); float c = va_arg_float(alist); float d = va_arg_float(alist); float r=a+b+c+d; fprintf(out,"float f(4*float):(%g,%g,%g,%g)",a,b,c,d); fflush(out); va_return_float(alist, r); }} else if (current_function == (void*)&f_f8) { va_start_float(alist); {float a = va_arg_float(alist); float b = va_arg_float(alist); float c = va_arg_float(alist); float d = va_arg_float(alist); float e = va_arg_float(alist); float f = va_arg_float(alist); float g = va_arg_float(alist); float h = va_arg_float(alist); float r=a+b+c+d+e+f+g+h; fprintf(out,"float f(8*float):(%g,%g,%g,%g,%g,%g,%g,%g)",a,b,c,d,e,f,g,h); fflush(out); va_return_float(alist, r); }} else if (current_function == (void*)&f_f16) { va_start_float(alist); {float a = va_arg_float(alist); float b = va_arg_float(alist); float c = va_arg_float(alist); float d = va_arg_float(alist); float e = va_arg_float(alist); float f = va_arg_float(alist); float g = va_arg_float(alist); float h = va_arg_float(alist); float i = va_arg_float(alist); float j = va_arg_float(alist); float k = va_arg_float(alist); float l = va_arg_float(alist); float m = va_arg_float(alist); float n = va_arg_float(alist); float o = va_arg_float(alist); float p = va_arg_float(alist); float r=a+b+c+d+e+f+g+h+i+j+k+l+m+n+o+p; fprintf(out,"float f(16*float):(%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g)",a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p); fflush(out); va_return_float(alist, r); }} else if (current_function == (void*)&f_f24) { va_start_float(alist); {float a = va_arg_float(alist); float b = va_arg_float(alist); float c = va_arg_float(alist); float d = va_arg_float(alist); float e = va_arg_float(alist); float f = va_arg_float(alist); float g = va_arg_float(alist); float h = va_arg_float(alist); float i = va_arg_float(alist); float j = va_arg_float(alist); float k = va_arg_float(alist); float l = va_arg_float(alist); float m = va_arg_float(alist); float n = va_arg_float(alist); float o = va_arg_float(alist); float p = va_arg_float(alist); float q = va_arg_float(alist); float s = va_arg_float(alist); float t = va_arg_float(alist); float u = va_arg_float(alist); float v = va_arg_float(alist); float w = va_arg_float(alist); float x = va_arg_float(alist); float y = va_arg_float(alist); float r=a+b+c+d+e+f+g+h+i+j+k+l+m+n+o+p+q+s+t+u+v+w+x+y; fprintf(out,"float f(24*float):(%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g)",a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,s,t,u,v,w,x,y); fflush(out); va_return_float(alist, r); }} /* double tests */ else if (current_function == (void*)&d_d) { va_start_double(alist); {double a = va_arg_double(alist); double r=a+1.0; fprintf(out,"double f(double):(%g)",a); fflush(out); va_return_double(alist, r); }} else if (current_function == (void*)&d_d2) { va_start_double(alist); {double a = va_arg_double(alist); double b = va_arg_double(alist); double r=a+b; fprintf(out,"double f(2*double):(%g,%g)",a,b); fflush(out); va_return_double(alist, r); }} else if (current_function == (void*)&d_d4) { va_start_double(alist); {double a = va_arg_double(alist); double b = va_arg_double(alist); double c = va_arg_double(alist); double d = va_arg_double(alist); double r=a+b+c+d; fprintf(out,"double f(4*double):(%g,%g,%g,%g)",a,b,c,d); fflush(out); va_return_double(alist, r); }} else if (current_function == (void*)&d_d8) { va_start_double(alist); {double a = va_arg_double(alist); double b = va_arg_double(alist); double c = va_arg_double(alist); double d = va_arg_double(alist); double e = va_arg_double(alist); double f = va_arg_double(alist); double g = va_arg_double(alist); double h = va_arg_double(alist); double r=a+b+c+d+e+f+g+h; fprintf(out,"double f(8*double):(%g,%g,%g,%g,%g,%g,%g,%g)",a,b,c,d,e,f,g,h); fflush(out); va_return_double(alist, r); }} else if (current_function == (void*)&d_d16) { va_start_double(alist); {double a = va_arg_double(alist); double b = va_arg_double(alist); double c = va_arg_double(alist); double d = va_arg_double(alist); double e = va_arg_double(alist); double f = va_arg_double(alist); double g = va_arg_double(alist); double h = va_arg_double(alist); double i = va_arg_double(alist); double j = va_arg_double(alist); double k = va_arg_double(alist); double l = va_arg_double(alist); double m = va_arg_double(alist); double n = va_arg_double(alist); double o = va_arg_double(alist); double p = va_arg_double(alist); double r=a+b+c+d+e+f+g+h+i+j+k+l+m+n+o+p; fprintf(out,"double f(16*double):(%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g)",a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p); fflush(out); va_return_double(alist, r); }} /* pointer tests */ else if (current_function == (void*)&vp_vpdpcpsp) { va_start_ptr(alist, void*); {void* a = va_arg_ptr(alist, void*); double* b = va_arg_ptr(alist, double*); char* c = va_arg_ptr(alist, char*); Int* d = va_arg_ptr(alist, Int*); void* ret = (char*)b + 1; fprintf(out,"void* f(void*,double*,char*,Int*):(0x%p,0x%p,0x%p,0x%p)",a,b,c,d); fflush(out); va_return_ptr(alist, void*, ret); }} /* mixed number tests */ else if (current_function == (void*)&uc_ucsil) { va_start_uchar(alist); {uchar a = va_arg_uchar(alist); ushort b = va_arg_ushort(alist); uint c = va_arg_uint(alist); ulong d = va_arg_ulong(alist); uchar r = (uchar)-1; fprintf(out,"uchar f(uchar,ushort,uint,ulong):(%u,%u,%u,%lu)",a,b,c,d); fflush(out); va_return_uchar(alist, r); }} else if (current_function == (void*)&d_iidd) { va_start_double(alist); {int a = va_arg_int(alist); int b = va_arg_int(alist); double c = va_arg_double(alist); double d = va_arg_double(alist); double r=a+b+c+d; fprintf(out,"double f(int,int,double,double):(%d,%d,%g,%g)",a,b,c,d); fflush(out); va_return_double(alist, r); }} else if (current_function == (void*)&d_iiidi) { va_start_double(alist); {int a = va_arg_int(alist); int b = va_arg_int(alist); int c = va_arg_int(alist); double d = va_arg_double(alist); int e = va_arg_int(alist); double r=a+b+c+d+e; fprintf(out,"double f(int,int,int,double,int):(%d,%d,%d,%g,%d)",a,b,c,d,e); fflush(out); va_return_double(alist, r); }} else if (current_function == (void*)&d_idid) { va_start_double(alist); {int a = va_arg_int(alist); double b = va_arg_double(alist); int c = va_arg_int(alist); double d = va_arg_double(alist); double r=a+b+c+d; fprintf(out,"double f(int,double,int,double):(%d,%g,%d,%g)",a,b,c,d); fflush(out); va_return_double(alist, r); }} else if (current_function == (void*)&d_fdi) { va_start_double(alist); {float a = va_arg_float(alist); double b = va_arg_double(alist); int c = va_arg_int(alist); double r=a+b+c; fprintf(out,"double f(float,double,int):(%g,%g,%d)",a,b,c); fflush(out); va_return_double(alist, r); }} else if (current_function == (void*)&us_cdcd) { va_start_ushort(alist); {char a = va_arg_char(alist); double b = va_arg_double(alist); char c = va_arg_char(alist); double d = va_arg_double(alist); ushort r = (ushort)(a + b + c + d); fprintf(out,"ushort f(char,double,char,double):('%c',%g,'%c',%g)",a,b,c,d); fflush(out); va_return_ushort(alist, r); }} else if (current_function == (void*)&ll_iiilli) { va_start_longlong(alist); {int a = va_arg_int(alist); int b = va_arg_int(alist); int c = va_arg_int(alist); long long d = va_arg_longlong(alist); int e = va_arg_int(alist); long long r = (long long)a + (long long)b + (long long)c + d + (long long)e; fprintf(out,"long long f(int,int,int,long long,int):(%d,%d,%d,0x%lx%08lx,%d)",a,b,c,(long)(d>>32),(long)(d&0xffffffff),e); fflush(out); va_return_longlong(alist, r); }} else if (current_function == (void*)&ll_flli) { va_start_longlong(alist); {float a = va_arg_float(alist); long long b = va_arg_longlong(alist); int c = va_arg_int(alist); long long r = (long long)(int)a + b + (long long)c; fprintf(out,"long long f(float,long long,int):(%g,0x%lx%08lx,0x%lx)",a,(long)(b>>32),(long)(b&0xffffffff),(long)c); fflush(out); va_return_longlong(alist, r); }} else if (current_function == (void*)&f_fi) { va_start_float(alist); {float a = va_arg_float(alist); int z = va_arg_int(alist); float r = a+z; fprintf(out,"float f(float,int):(%g,%d)",a,z); fflush(out); va_return_float(alist, r); }} else if (current_function == (void*)&f_f2i) { va_start_float(alist); {float a = va_arg_float(alist); float b = va_arg_float(alist); int z = va_arg_int(alist); float r = a+b+z; fprintf(out,"float f(2*float,int):(%g,%g,%d)",a,b,z); fflush(out); va_return_float(alist, r); }} else if (current_function == (void*)&f_f3i) { va_start_float(alist); {float a = va_arg_float(alist); float b = va_arg_float(alist); float c = va_arg_float(alist); int z = va_arg_int(alist); float r = a+b+c+z; fprintf(out,"float f(3*float,int):(%g,%g,%g,%d)",a,b,c,z); fflush(out); va_return_float(alist, r); }} else if (current_function == (void*)&f_f4i) { va_start_float(alist); {float a = va_arg_float(alist); float b = va_arg_float(alist); float c = va_arg_float(alist); float d = va_arg_float(alist); int z = va_arg_int(alist); float r = a+b+c+d+z; fprintf(out,"float f(4*float,int):(%g,%g,%g,%g,%d)",a,b,c,d,z); fflush(out); va_return_float(alist, r); }} else if (current_function == (void*)&f_f7i) { va_start_float(alist); {float a = va_arg_float(alist); float b = va_arg_float(alist); float c = va_arg_float(alist); float d = va_arg_float(alist); float e = va_arg_float(alist); float f = va_arg_float(alist); float g = va_arg_float(alist); int z = va_arg_int(alist); float r = a+b+c+d+e+f+g+z; fprintf(out,"float f(7*float,int):(%g,%g,%g,%g,%g,%g,%g,%d)",a,b,c,d,e,f,g,z); fflush(out); va_return_float(alist, r); }} else if (current_function == (void*)&f_f8i) { va_start_float(alist); {float a = va_arg_float(alist); float b = va_arg_float(alist); float c = va_arg_float(alist); float d = va_arg_float(alist); float e = va_arg_float(alist); float f = va_arg_float(alist); float g = va_arg_float(alist); float h = va_arg_float(alist); int z = va_arg_int(alist); float r = a+b+c+d+e+f+g+h+z; fprintf(out,"float f(8*float,int):(%g,%g,%g,%g,%g,%g,%g,%g,%d)",a,b,c,d,e,f,g,h,z); fflush(out); va_return_float(alist, r); }} else if (current_function == (void*)&f_f12i) { va_start_float(alist); {float a = va_arg_float(alist); float b = va_arg_float(alist); float c = va_arg_float(alist); float d = va_arg_float(alist); float e = va_arg_float(alist); float f = va_arg_float(alist); float g = va_arg_float(alist); float h = va_arg_float(alist); float i = va_arg_float(alist); float j = va_arg_float(alist); float k = va_arg_float(alist); float l = va_arg_float(alist); int z = va_arg_int(alist); float r = a+b+c+d+e+f+g+h+i+j+k+l+z; fprintf(out,"float f(12*float,int):(%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%d)",a,b,c,d,e,f,g,h,i,j,k,l,z); fflush(out); va_return_float(alist, r); }} else if (current_function == (void*)&f_f13i) { va_start_float(alist); {float a = va_arg_float(alist); float b = va_arg_float(alist); float c = va_arg_float(alist); float d = va_arg_float(alist); float e = va_arg_float(alist); float f = va_arg_float(alist); float g = va_arg_float(alist); float h = va_arg_float(alist); float i = va_arg_float(alist); float j = va_arg_float(alist); float k = va_arg_float(alist); float l = va_arg_float(alist); float m = va_arg_float(alist); int z = va_arg_int(alist); float r = a+b+c+d+e+f+g+h+i+j+k+l+m+z; fprintf(out,"float f(13*float,int):(%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%d)",a,b,c,d,e,f,g,h,i,j,k,l,m,z); fflush(out); va_return_float(alist, r); }} else if (current_function == (void*)&d_di) { va_start_double(alist); {double a = va_arg_double(alist); int z = va_arg_int(alist); double r = a+z; fprintf(out,"double f(double,int):(%g,%d)",a,z); fflush(out); va_return_double(alist, r); }} else if (current_function == (void*)&d_d2i) { va_start_double(alist); {double a = va_arg_double(alist); double b = va_arg_double(alist); int z = va_arg_int(alist); double r = a+b+z; fprintf(out,"double f(2*double,int):(%g,%g,%d)",a,b,z); fflush(out); va_return_double(alist, r); }} else if (current_function == (void*)&d_d3i) { va_start_double(alist); {double a = va_arg_double(alist); double b = va_arg_double(alist); double c = va_arg_double(alist); int z = va_arg_int(alist); double r = a+b+c+z; fprintf(out,"double f(3*double,int):(%g,%g,%g,%d)",a,b,c,z); fflush(out); va_return_double(alist, r); }} else if (current_function == (void*)&d_d4i) { va_start_double(alist); {double a = va_arg_double(alist); double b = va_arg_double(alist); double c = va_arg_double(alist); double d = va_arg_double(alist); int z = va_arg_int(alist); double r = a+b+c+d+z; fprintf(out,"double f(4*double,int):(%g,%g,%g,%g,%d)",a,b,c,d,z); fflush(out); va_return_double(alist, r); }} else if (current_function == (void*)&d_d7i) { va_start_double(alist); {double a = va_arg_double(alist); double b = va_arg_double(alist); double c = va_arg_double(alist); double d = va_arg_double(alist); double e = va_arg_double(alist); double f = va_arg_double(alist); double g = va_arg_double(alist); int z = va_arg_int(alist); double r = a+b+c+d+e+f+g+z; fprintf(out,"double f(7*double,int):(%g,%g,%g,%g,%g,%g,%g,%d)",a,b,c,d,e,f,g,z); fflush(out); va_return_double(alist, r); }} else if (current_function == (void*)&d_d8i) { va_start_double(alist); {double a = va_arg_double(alist); double b = va_arg_double(alist); double c = va_arg_double(alist); double d = va_arg_double(alist); double e = va_arg_double(alist); double f = va_arg_double(alist); double g = va_arg_double(alist); double h = va_arg_double(alist); int z = va_arg_int(alist); double r = a+b+c+d+e+f+g+h+z; fprintf(out,"double f(8*double,int):(%g,%g,%g,%g,%g,%g,%g,%g,%d)",a,b,c,d,e,f,g,h,z); fflush(out); va_return_double(alist, r); }} else if (current_function == (void*)&d_d12i) { va_start_double(alist); {double a = va_arg_double(alist); double b = va_arg_double(alist); double c = va_arg_double(alist); double d = va_arg_double(alist); double e = va_arg_double(alist); double f = va_arg_double(alist); double g = va_arg_double(alist); double h = va_arg_double(alist); double i = va_arg_double(alist); double j = va_arg_double(alist); double k = va_arg_double(alist); double l = va_arg_double(alist); int z = va_arg_int(alist); double r = a+b+c+d+e+f+g+h+i+j+k+l+z; fprintf(out,"double f(12*double,int):(%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%d)",a,b,c,d,e,f,g,h,i,j,k,l,z); fflush(out); va_return_double(alist, r); }} else if (current_function == (void*)&d_d13i) { va_start_double(alist); {double a = va_arg_double(alist); double b = va_arg_double(alist); double c = va_arg_double(alist); double d = va_arg_double(alist); double e = va_arg_double(alist); double f = va_arg_double(alist); double g = va_arg_double(alist); double h = va_arg_double(alist); double i = va_arg_double(alist); double j = va_arg_double(alist); double k = va_arg_double(alist); double l = va_arg_double(alist); double m = va_arg_double(alist); int z = va_arg_int(alist); double r = a+b+c+d+e+f+g+h+i+j+k+l+m+z; fprintf(out,"double f(13*double,int):(%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%d)",a,b,c,d,e,f,g,h,i,j,k,l,m,z); fflush(out); va_return_double(alist, r); }} /* small structure return tests */ else if (current_function == (void*)&S1_v) { Size1 r; va_start_struct(alist, Size1, 1); r = Size1_1; fprintf(out,"Size1 f(void):"); fflush(out); va_return_struct(alist, Size1, r); } else if (current_function == (void*)&S2_v) { Size2 r; va_start_struct(alist, Size2, 1); r = Size2_1; fprintf(out,"Size2 f(void):"); fflush(out); va_return_struct(alist, Size2, r); } else if (current_function == (void*)&S3_v) { Size3 r; va_start_struct(alist, Size3, 1); r = Size3_1; fprintf(out,"Size3 f(void):"); fflush(out); va_return_struct(alist, Size3, r); } else if (current_function == (void*)&S4_v) { Size4 r; va_start_struct(alist, Size4, 1); r = Size4_1; fprintf(out,"Size4 f(void):"); fflush(out); va_return_struct(alist, Size4, r); } else if (current_function == (void*)&S7_v) { Size7 r; va_start_struct(alist, Size7, 1); r = Size7_1; fprintf(out,"Size7 f(void):"); fflush(out); va_return_struct(alist, Size7, r); } else if (current_function == (void*)&S8_v) { Size8 r; va_start_struct(alist, Size8, 1); r = Size8_1; fprintf(out,"Size8 f(void):"); fflush(out); va_return_struct(alist, Size8, r); } else if (current_function == (void*)&S12_v) { Size12 r; va_start_struct(alist, Size12, 1); r = Size12_1; fprintf(out,"Size12 f(void):"); fflush(out); va_return_struct(alist, Size12, r); } else if (current_function == (void*)&S15_v) { Size15 r; va_start_struct(alist, Size15, 1); r = Size15_1; fprintf(out,"Size15 f(void):"); fflush(out); va_return_struct(alist, Size15, r); } else if (current_function == (void*)&S16_v) { Size16 r; va_start_struct(alist, Size16, 1); r = Size16_1; fprintf(out,"Size16 f(void):"); fflush(out); va_return_struct(alist, Size16, r); } /* structure tests */ else if (current_function == (void*)&I_III) { Int a; Int b; Int c; Int r; va_start_struct(alist, Int, 1); a = va_arg_struct(alist, Int); b = va_arg_struct(alist, Int); c = va_arg_struct(alist, Int); r.x = a.x + b.x + c.x; fprintf(out,"Int f(Int,Int,Int):({%d},{%d},{%d})",a.x,b.x,c.x); fflush(out); va_return_struct(alist, Int, r); } #ifndef SKIP_EXTRA_STRUCTS else if (current_function == (void*)&C_CdC) { Char a; double b; Char c; Char r; va_start_struct(alist, Char, 1); a = va_arg_struct(alist, Char); b = va_arg_double(alist); c = va_arg_struct(alist, Char); r.x = (a.x + c.x)/2; fprintf(out,"Char f(Char,double,Char):({'%c'},%g,{'%c'})",a.x,b,c.x); fflush(out); va_return_struct(alist, Char, r); } else if (current_function == (void*)&F_Ffd) { Float a; float b; double c; Float r; va_start_struct(alist, Float, va_word_splittable_1(float)); a = va_arg_struct(alist, Float); b = va_arg_float(alist); c = va_arg_double(alist); r.x = a.x + b + c; fprintf(out,"Float f(Float,float,double):({%g},%g,%g)",a.x,b,c); fflush(out); va_return_struct(alist, Float, r); } else if (current_function == (void*)&D_fDd) { float a; Double b; double c; Double r; va_start_struct(alist, Double, va_word_splittable_1(double)); a = va_arg_float(alist); b = va_arg_struct(alist, Double); c = va_arg_double(alist); r.x = a + b.x + c; fprintf(out,"Double f(float,Double,double):(%g,{%g},%g)",a,b.x,c); fflush(out); va_return_struct(alist, Double, r); } else if (current_function == (void*)&D_Dfd) { Double a; float b; double c; Double r; va_start_struct(alist, Double, va_word_splittable_1(double)); a = va_arg_struct(alist, Double); b = va_arg_float(alist); c = va_arg_double(alist); r.x = a.x + b + c; fprintf(out,"Double f(Double,float,double):({%g},%g,%g)",a.x,b,c); fflush(out); va_return_struct(alist, Double, r); } #endif else if (current_function == (void*)&J_JiJ) { J a; int b; J c; J r; va_start_struct(alist, J, va_word_splittable_2(long,long)); a = va_arg_struct(alist, J); b = va_arg_int(alist); c = va_arg_struct(alist, J); r.l1 = a.l1+c.l1; r.l2 = a.l2+b+c.l2; fprintf(out,"J f(J,int,J):({%ld,%ld},%d,{%ld,%ld})",a.l1,a.l2,b,c.l1,c.l2); fflush(out); va_return_struct(alist, J, r); } #ifndef SKIP_EXTRA_STRUCTS else if (current_function == (void*)&T_TcT) { T a; char b; T c; T r; va_start_struct(alist, T, 1); a = va_arg_struct(alist, T); b = va_arg_char(alist); c = va_arg_struct(alist, T); r.c[0]='b'; r.c[1]=c.c[1]; r.c[2]=c.c[2]; fprintf(out,"T f(T,char,T):({\"%c%c%c\"},'%c',{\"%c%c%c\"})",a.c[0],a.c[1],a.c[2],b,c.c[0],c.c[1],c.c[2]); fflush(out); va_return_struct(alist, T, r); } else if (current_function == (void*)&X_BcdB) { B a; char b; double c; B d; static X xr={"return val",'R'}; X r; va_start_struct(alist, X, 0); a = va_arg_struct(alist, B); b = va_arg_char(alist); c = va_arg_double(alist); d = va_arg_struct(alist, B); r = xr; r.c1 = b; fprintf(out,"X f(B,char,double,B):({%g,{%d,%d,%d}},'%c',%g,{%g,{%d,%d,%d}})", a.d,a.i[0],a.i[1],a.i[2],b,c,d.d,d.i[0],d.i[1],d.i[2]); fflush(out); va_return_struct(alist, X, r); } #endif /* gpargs boundary tests */ else if (current_function == (void*)&l_l0J) { va_start_long(alist); {J b = va_arg_struct(alist, J); long c = va_arg_long(alist); long r = b.l1 + b.l2 + c; fprintf(out,"long f(J,long):(%ld,%ld,%ld)",b.l1,b.l2,c); fflush(out); va_return_long(alist, r); }} else if (current_function == (void*)&l_l1J) { va_start_long(alist); {long a1 = va_arg_long(alist); J b = va_arg_struct(alist, J); long c = va_arg_long(alist); long r = a1 + b.l1 + b.l2 + c; fprintf(out,"long f(long,J,long):(%ld,%ld,%ld,%ld)",a1,b.l1,b.l2,c); fflush(out); va_return_long(alist, r); }} else if (current_function == (void*)&l_l2J) { va_start_long(alist); {long a1 = va_arg_long(alist); long a2 = va_arg_long(alist); J b = va_arg_struct(alist, J); long c = va_arg_long(alist); long r = a1 + a2 + b.l1 + b.l2 + c; fprintf(out,"long f(2*long,J,long):(%ld,%ld,%ld,%ld,%ld)",a1,a2,b.l1,b.l2,c); fflush(out); va_return_long(alist, r); }} else if (current_function == (void*)&l_l3J) { va_start_long(alist); {long a1 = va_arg_long(alist); long a2 = va_arg_long(alist); long a3 = va_arg_long(alist); J b = va_arg_struct(alist, J); long c = va_arg_long(alist); long r = a1 + a2 + a3 + b.l1 + b.l2 + c; fprintf(out,"long f(3*long,J,long):(%ld,%ld,%ld,%ld,%ld,%ld)",a1,a2,a3,b.l1,b.l2,c); fflush(out); va_return_long(alist, r); }} else if (current_function == (void*)&l_l4J) { va_start_long(alist); {long a1 = va_arg_long(alist); long a2 = va_arg_long(alist); long a3 = va_arg_long(alist); long a4 = va_arg_long(alist); J b = va_arg_struct(alist, J); long c = va_arg_long(alist); long r = a1 + a2 + a3 + a4 + b.l1 + b.l2 + c; fprintf(out,"long f(4*long,J,long):(%ld,%ld,%ld,%ld,%ld,%ld,%ld)",a1,a2,a3,a4,b.l1,b.l2,c); fflush(out); va_return_long(alist, r); }} else if (current_function == (void*)&l_l5J) { va_start_long(alist); {long a1 = va_arg_long(alist); long a2 = va_arg_long(alist); long a3 = va_arg_long(alist); long a4 = va_arg_long(alist); long a5 = va_arg_long(alist); J b = va_arg_struct(alist, J); long c = va_arg_long(alist); long r = a1 + a2 + a3 + a4 + a5 + b.l1 + b.l2 + c; fprintf(out,"long f(5*long,J,long):(%ld,%ld,%ld,%ld,%ld,%ld,%ld,%ld)",a1,a2,a3,a4,a5,b.l1,b.l2,c); fflush(out); va_return_long(alist, r); }} else if (current_function == (void*)&l_l6J) { va_start_long(alist); {long a1 = va_arg_long(alist); long a2 = va_arg_long(alist); long a3 = va_arg_long(alist); long a4 = va_arg_long(alist); long a5 = va_arg_long(alist); long a6 = va_arg_long(alist); J b = va_arg_struct(alist, J); long c = va_arg_long(alist); long r = a1 + a2 + a3 + a4 + a5 + a6 + b.l1 + b.l2 + c; fprintf(out,"long f(6*long,J,long):(%ld,%ld,%ld,%ld,%ld,%ld,%ld,%ld,%ld)",a1,a2,a3,a4,a5,a6,b.l1,b.l2,c); fflush(out); va_return_long(alist, r); }} else if (current_function == (void*)&l_l7J) { va_start_long(alist); {long a1 = va_arg_long(alist); long a2 = va_arg_long(alist); long a3 = va_arg_long(alist); long a4 = va_arg_long(alist); long a5 = va_arg_long(alist); long a6 = va_arg_long(alist); long a7 = va_arg_long(alist); J b = va_arg_struct(alist, J); long c = va_arg_long(alist); long r = a1 + a2 + a3 + a4 + a5 + a6 + a7 + b.l1 + b.l2 + c; fprintf(out,"long f(7*long,J,long):(%ld,%ld,%ld,%ld,%ld,%ld,%ld,%ld,%ld,%ld)",a1,a2,a3,a4,a5,a6,a7,b.l1,b.l2,c); fflush(out); va_return_long(alist, r); }} else if (current_function == (void*)&l_l0K) { va_start_long(alist); {K b = va_arg_struct(alist, K); long c = va_arg_long(alist); long r = b.l1 + b.l2 + b.l3 + b.l4 + c; fprintf(out,"long f(K,long):(%ld,%ld,%ld,%ld,%ld)",b.l1,b.l2,b.l3,b.l4,c); fflush(out); va_return_long(alist, r); }} else if (current_function == (void*)&l_l1K) { va_start_long(alist); {long a1 = va_arg_long(alist); K b = va_arg_struct(alist, K); long c = va_arg_long(alist); long r = a1 + b.l1 + b.l2 + b.l3 + b.l4 + c; fprintf(out,"long f(long,K,long):(%ld,%ld,%ld,%ld,%ld,%ld)",a1,b.l1,b.l2,b.l3,b.l4,c); fflush(out); va_return_long(alist, r); }} else if (current_function == (void*)&l_l2K) { va_start_long(alist); {long a1 = va_arg_long(alist); long a2 = va_arg_long(alist); K b = va_arg_struct(alist, K); long c = va_arg_long(alist); long r = a1 + a2 + b.l1 + b.l2 + b.l3 + b.l4 + c; fprintf(out,"long f(2*long,K,long):(%ld,%ld,%ld,%ld,%ld,%ld,%ld)",a1,a2,b.l1,b.l2,b.l3,b.l4,c); fflush(out); va_return_long(alist, r); }} else if (current_function == (void*)&l_l3K) { va_start_long(alist); {long a1 = va_arg_long(alist); long a2 = va_arg_long(alist); long a3 = va_arg_long(alist); K b = va_arg_struct(alist, K); long c = va_arg_long(alist); long r = a1 + a2 + a3 + b.l1 + b.l2 + b.l3 + b.l4 + c; fprintf(out,"long f(3*long,K,long):(%ld,%ld,%ld,%ld,%ld,%ld,%ld,%ld)",a1,a2,a3,b.l1,b.l2,b.l3,b.l4,c); fflush(out); va_return_long(alist, r); }} else if (current_function == (void*)&l_l4K) { va_start_long(alist); {long a1 = va_arg_long(alist); long a2 = va_arg_long(alist); long a3 = va_arg_long(alist); long a4 = va_arg_long(alist); K b = va_arg_struct(alist, K); long c = va_arg_long(alist); long r = a1 + a2 + a3 + a4 + b.l1 + b.l2 + b.l3 + b.l4 + c; fprintf(out,"long f(4*long,K,long):(%ld,%ld,%ld,%ld,%ld,%ld,%ld,%ld,%ld)",a1,a2,a3,a4,b.l1,b.l2,b.l3,b.l4,c); fflush(out); va_return_long(alist, r); }} else if (current_function == (void*)&l_l5K) { va_start_long(alist); {long a1 = va_arg_long(alist); long a2 = va_arg_long(alist); long a3 = va_arg_long(alist); long a4 = va_arg_long(alist); long a5 = va_arg_long(alist); K b = va_arg_struct(alist, K); long c = va_arg_long(alist); long r = a1 + a2 + a3 + a4 + a5 + b.l1 + b.l2 + b.l3 + b.l4 + c; fprintf(out,"long f(5*long,K,long):(%ld,%ld,%ld,%ld,%ld,%ld,%ld,%ld,%ld,%ld)",a1,a2,a3,a4,a5,b.l1,b.l2,b.l3,b.l4,c); fflush(out); va_return_long(alist, r); }} else if (current_function == (void*)&l_l6K) { va_start_long(alist); {long a1 = va_arg_long(alist); long a2 = va_arg_long(alist); long a3 = va_arg_long(alist); long a4 = va_arg_long(alist); long a5 = va_arg_long(alist); long a6 = va_arg_long(alist); K b = va_arg_struct(alist, K); long c = va_arg_long(alist); long r = a1 + a2 + a3 + a4 + a5 + a6 + b.l1 + b.l2 + b.l3 + b.l4 + c; fprintf(out,"long f(6*long,K,long):(%ld,%ld,%ld,%ld,%ld,%ld,%ld,%ld,%ld,%ld,%ld)",a1,a2,a3,a4,a5,a6,b.l1,b.l2,b.l3,b.l4,c); fflush(out); va_return_long(alist, r); }} else if (current_function == (void*)&f_f17l3L) { va_start_float(alist); {float a = va_arg_float(alist); float b = va_arg_float(alist); float c = va_arg_float(alist); float d = va_arg_float(alist); float e = va_arg_float(alist); float f = va_arg_float(alist); float g = va_arg_float(alist); float h = va_arg_float(alist); float i = va_arg_float(alist); float j = va_arg_float(alist); float k = va_arg_float(alist); float l = va_arg_float(alist); float m = va_arg_float(alist); float n = va_arg_float(alist); float o = va_arg_float(alist); float p = va_arg_float(alist); float q = va_arg_float(alist); long s = va_arg_long(alist); long t = va_arg_long(alist); long u = va_arg_long(alist); L z = va_arg_struct(alist, L); float r = a+b+c+d+e+f+g+h+i+j+k+l+m+n+o+p+q+s+t+u+z.l1+z.l2+z.l3+z.l4+z.l5+z.l6; fprintf(out,"float f(17*float,3*int,L):(%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%ld,%ld,%ld,%ld,%ld,%ld,%ld,%ld,%ld)",a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,s,t,u,z.l1,z.l2,z.l3,z.l4,z.l5,z.l6); fflush(out); va_return_float(alist, r); }} else if (current_function == (void*)&d_d17l3L) { va_start_double(alist); {double a = va_arg_double(alist); double b = va_arg_double(alist); double c = va_arg_double(alist); double d = va_arg_double(alist); double e = va_arg_double(alist); double f = va_arg_double(alist); double g = va_arg_double(alist); double h = va_arg_double(alist); double i = va_arg_double(alist); double j = va_arg_double(alist); double k = va_arg_double(alist); double l = va_arg_double(alist); double m = va_arg_double(alist); double n = va_arg_double(alist); double o = va_arg_double(alist); double p = va_arg_double(alist); double q = va_arg_double(alist); long s = va_arg_long(alist); long t = va_arg_long(alist); long u = va_arg_long(alist); L z = va_arg_struct(alist, L); double r = a+b+c+d+e+f+g+h+i+j+k+l+m+n+o+p+q+s+t+u+z.l1+z.l2+z.l3+z.l4+z.l5+z.l6; fprintf(out,"double f(17*double,3*int,L):(%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%ld,%ld,%ld,%ld,%ld,%ld,%ld,%ld,%ld)",a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,s,t,u,z.l1,z.l2,z.l3,z.l4,z.l5,z.l6); fflush(out); va_return_double(alist, r); }} else if (current_function == (void*)&ll_l2ll) { va_start_longlong(alist); {long a1 = va_arg_long(alist); long a2 = va_arg_long(alist); long long b = va_arg_longlong(alist); long c = va_arg_long(alist); long long r = (long long) (a1 + a2) + b + c; fprintf(out,"long long f(2*long,long long,long):(%ld,%ld,0x%lx%08lx,%ld)",a1,a2,(long)(b>>32),(long)(b&0xffffffff),c); fflush(out); va_return_longlong(alist, r); }} else if (current_function == (void*)&ll_l3ll) { va_start_longlong(alist); {long a1 = va_arg_long(alist); long a2 = va_arg_long(alist); long a3 = va_arg_long(alist); long long b = va_arg_longlong(alist); long c = va_arg_long(alist); long long r = (long long) (a1 + a2 + a3) + b + c; fprintf(out,"long long f(3*long,long long,long):(%ld,%ld,%ld,0x%lx%08lx,%ld)",a1,a2,a3,(long)(b>>32),(long)(b&0xffffffff),c); fflush(out); va_return_longlong(alist, r); }} else if (current_function == (void*)&ll_l4ll) { va_start_longlong(alist); {long a1 = va_arg_long(alist); long a2 = va_arg_long(alist); long a3 = va_arg_long(alist); long a4 = va_arg_long(alist); long long b = va_arg_longlong(alist); long c = va_arg_long(alist); long long r = (long long) (a1 + a2 + a3 + a4) + b + c; fprintf(out,"long long f(4*long,long long,long):(%ld,%ld,%ld,%ld,0x%lx%08lx,%ld)",a1,a2,a3,a4,(long)(b>>32),(long)(b&0xffffffff),c); fflush(out); va_return_longlong(alist, r); }} else if (current_function == (void*)&ll_l5ll) { va_start_longlong(alist); {long a1 = va_arg_long(alist); long a2 = va_arg_long(alist); long a3 = va_arg_long(alist); long a4 = va_arg_long(alist); long a5 = va_arg_long(alist); long long b = va_arg_longlong(alist); long c = va_arg_long(alist); long long r = (long long) (a1 + a2 + a3 + a4 + a5) + b + c; fprintf(out,"long long f(5*long,long long,long):(%ld,%ld,%ld,%ld,%ld,0x%lx%08lx,%ld)",a1,a2,a3,a4,a5,(long)(b>>32),(long)(b&0xffffffff),c); fflush(out); va_return_longlong(alist, r); }} else if (current_function == (void*)&ll_l6ll) { va_start_longlong(alist); {long a1 = va_arg_long(alist); long a2 = va_arg_long(alist); long a3 = va_arg_long(alist); long a4 = va_arg_long(alist); long a5 = va_arg_long(alist); long a6 = va_arg_long(alist); long long b = va_arg_longlong(alist); long c = va_arg_long(alist); long long r = (long long) (a1 + a2 + a3 + a4 + a5 + a6) + b + c; fprintf(out,"long long f(6*long,long long,long):(%ld,%ld,%ld,%ld,%ld,%ld,0x%lx%08lx,%ld)",a1,a2,a3,a4,a5,a6,(long)(b>>32),(long)(b&0xffffffff),c); fflush(out); va_return_longlong(alist, r); }} else if (current_function == (void*)&ll_l7ll) { va_start_longlong(alist); {long a1 = va_arg_long(alist); long a2 = va_arg_long(alist); long a3 = va_arg_long(alist); long a4 = va_arg_long(alist); long a5 = va_arg_long(alist); long a6 = va_arg_long(alist); long a7 = va_arg_long(alist); long long b = va_arg_longlong(alist); long c = va_arg_long(alist); long long r = (long long) (a1 + a2 + a3 + a4 + a5 + a6 + a7) + b + c; fprintf(out,"long long f(7*long,long long,long):(%ld,%ld,%ld,%ld,%ld,%ld,%ld,0x%lx%08lx,%ld)",a1,a2,a3,a4,a5,a6,a7,(long)(b>>32),(long)(b&0xffffffff),c); fflush(out); va_return_longlong(alist, r); }} else if (current_function == (void*)&d_l2d) { va_start_double(alist); {long a1 = va_arg_long(alist); long a2 = va_arg_long(alist); double b = va_arg_double(alist); long c = va_arg_long(alist); double r = (double) (a1 + a2) + b + c; fprintf(out,"double f(2*long,double,long):(%ld,%ld,%g,%ld)",a1,a2,b,c); fflush(out); va_return_double(alist, r); }} else if (current_function == (void*)&d_l3d) { va_start_double(alist); {long a1 = va_arg_long(alist); long a2 = va_arg_long(alist); long a3 = va_arg_long(alist); double b = va_arg_double(alist); long c = va_arg_long(alist); double r = (double) (a1 + a2 + a3) + b + c; fprintf(out,"double f(3*long,double,long):(%ld,%ld,%ld,%g,%ld)",a1,a2,a3,b,c); fflush(out); va_return_double(alist, r); }} else if (current_function == (void*)&d_l4d) { va_start_double(alist); {long a1 = va_arg_long(alist); long a2 = va_arg_long(alist); long a3 = va_arg_long(alist); long a4 = va_arg_long(alist); double b = va_arg_double(alist); long c = va_arg_long(alist); double r = (double) (a1 + a2 + a3 + a4) + b + c; fprintf(out,"double f(4*long,double,long):(%ld,%ld,%ld,%ld,%g,%ld)",a1,a2,a3,a4,b,c); fflush(out); va_return_double(alist, r); }} else if (current_function == (void*)&d_l5d) { va_start_double(alist); {long a1 = va_arg_long(alist); long a2 = va_arg_long(alist); long a3 = va_arg_long(alist); long a4 = va_arg_long(alist); long a5 = va_arg_long(alist); double b = va_arg_double(alist); long c = va_arg_long(alist); double r = (double) (a1 + a2 + a3 + a4 + a5) + b + c; fprintf(out,"double f(5*long,double,long):(%ld,%ld,%ld,%ld,%ld,%g,%ld)",a1,a2,a3,a4,a5,b,c); fflush(out); va_return_double(alist, r); }} else if (current_function == (void*)&d_l6d) { va_start_double(alist); {long a1 = va_arg_long(alist); long a2 = va_arg_long(alist); long a3 = va_arg_long(alist); long a4 = va_arg_long(alist); long a5 = va_arg_long(alist); long a6 = va_arg_long(alist); double b = va_arg_double(alist); long c = va_arg_long(alist); double r = (double) (a1 + a2 + a3 + a4 + a5 + a6) + b + c; fprintf(out,"double f(6*long,double,long):(%ld,%ld,%ld,%ld,%ld,%ld,%g,%ld)",a1,a2,a3,a4,a5,a6,b,c); fflush(out); va_return_double(alist, r); }} else if (current_function == (void*)&d_l7d) { va_start_double(alist); {long a1 = va_arg_long(alist); long a2 = va_arg_long(alist); long a3 = va_arg_long(alist); long a4 = va_arg_long(alist); long a5 = va_arg_long(alist); long a6 = va_arg_long(alist); long a7 = va_arg_long(alist); double b = va_arg_double(alist); long c = va_arg_long(alist); double r = (double) (a1 + a2 + a3 + a4 + a5 + a6 + a7) + b + c; fprintf(out,"double f(7*long,double,long):(%ld,%ld,%ld,%ld,%ld,%ld,%ld,%g,%ld)",a1,a2,a3,a4,a5,a6,a7,b,c); fflush(out); va_return_double(alist, r); }} /* by-value tests */ else if (current_function == (void*)&v_clobber_K) { va_start_void(alist); {K k = va_arg_struct(alist, K); k.l1 += 1; k.l2 += 10; k.l3 += 100; k.l4 += 1000; va_return_void(alist); }} else { fprintf(out,"simulate: unknown function\n"); fflush(out); } } /* * The way we run these tests - first call the function directly, then * through vacall() - there is the danger that arguments or results seem * to be passed correctly, but what we are seeing are in fact the vestiges * (traces) or the previous call. This may seriously fake the test. * Avoid this by clearing the registers between the first and the second call. */ long clear_traces_i (long a, long b, long c, long d, long e, long f, long g, long h, long i, long j, long k, long l, long m, long n, long o, long p) { return 0; } float clear_traces_f (float a, float b, float c, float d, float e, float f, float g, float h, float i, float j, float k, float l, float m, float n, float o, float p) { return 0.0; } double clear_traces_d (double a, double b, double c, double d, double e, double f, double g, double h, double i, double j, double k, double l, double m, double n, double o, double p) { return 0.0; } J clear_traces_J (void) { J j; j.l1 = j.l2 = 0; return j; } void clear_traces (void) { clear_traces_i(0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0); clear_traces_f(0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0); clear_traces_d(0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0); clear_traces_J(); } int main (void) { out = stdout; vacall_function = &simulator; /* void tests */ v_v(); clear_traces(); current_function = (void*) &v_v; ((void (*) (void)) vacall) (); /* int tests */ { int ir; ir = i_v(); fprintf(out,"->%d\n",ir); fflush(out); ir = 0; clear_traces(); current_function = (void*) &i_v; ir = ((int (*) (void)) vacall) (); fprintf(out,"->%d\n",ir); fflush(out); ir = i_i(i1); fprintf(out,"->%d\n",ir); fflush(out); ir = 0; clear_traces(); current_function = (void*) &i_i; ir = ((int (*) (int)) vacall) (i1); fprintf(out,"->%d\n",ir); fflush(out); ir = i_i2(i1,i2); fprintf(out,"->%d\n",ir); fflush(out); ir = 0; clear_traces(); current_function = (void*) &i_i2; ir = ((int (*) (int,int)) vacall) (i1,i2); fprintf(out,"->%d\n",ir); fflush(out); ir = i_i4(i1,i2,i3,i4); fprintf(out,"->%d\n",ir); fflush(out); ir = 0; clear_traces(); current_function = (void*) &i_i4; ir = ((int (*) (int,int,int,int)) vacall) (i1,i2,i3,i4); fprintf(out,"->%d\n",ir); fflush(out); ir = i_i8(i1,i2,i3,i4,i5,i6,i7,i8); fprintf(out,"->%d\n",ir); fflush(out); ir = 0; clear_traces(); current_function = (void*) &i_i8; ir = ((int (*) (int,int,int,int,int,int,int,int)) vacall) (i1,i2,i3,i4,i5,i6,i7,i8); fprintf(out,"->%d\n",ir); fflush(out); ir = i_i16(i1,i2,i3,i4,i5,i6,i7,i8,i9,i10,i11,i12,i13,i14,i15,i16); fprintf(out,"->%d\n",ir); fflush(out); ir = 0; clear_traces(); current_function = (void*) &i_i16; ir = ((int (*) (int,int,int,int,int,int,int,int,int,int,int,int,int,int,int,int)) vacall) (i1,i2,i3,i4,i5,i6,i7,i8,i9,i10,i11,i12,i13,i14,i15,i16); fprintf(out,"->%d\n",ir); fflush(out); ir = i_i32(i1,i2,i3,i4,i5,i6,i7,i8,i9,i10,i11,i12,i13,i14,i15,i16,i17,i18,i19,i20,i21,i22,i23,i24,i25,i26,i27,i28,i29,i30,i31,i32); fprintf(out,"->%d\n",ir); fflush(out); ir = 0; clear_traces(); current_function = (void*) &i_i32; ir = ((int (*) (int,int,int,int,int,int,int,int,int,int,int,int,int,int,int,int,int,int,int,int,int,int,int,int,int,int,int,int,int,int,int,int)) vacall) (i1,i2,i3,i4,i5,i6,i7,i8,i9,i10,i11,i12,i13,i14,i15,i16,i17,i18,i19,i20,i21,i22,i23,i24,i25,i26,i27,i28,i29,i30,i31,i32); fprintf(out,"->%d\n",ir); fflush(out); } /* float tests */ { float fr; fr = f_f(f1); fprintf(out,"->%g\n",fr); fflush(out); fr = 0.0; clear_traces(); current_function = (void*) &f_f; fr = ((float (*) (float)) vacall) (f1); fprintf(out,"->%g\n",fr); fflush(out); fr = f_f2(f1,f2); fprintf(out,"->%g\n",fr); fflush(out); fr = 0.0; clear_traces(); current_function = (void*) &f_f2; fr = ((float (*) (float,float)) vacall) (f1,f2); fprintf(out,"->%g\n",fr); fflush(out); fr = f_f4(f1,f2,f3,f4); fprintf(out,"->%g\n",fr); fflush(out); fr = 0.0; clear_traces(); current_function = (void*) &f_f4; fr = ((float (*) (float,float,float,float)) vacall) (f1,f2,f3,f4); fprintf(out,"->%g\n",fr); fflush(out); fr = f_f8(f1,f2,f3,f4,f5,f6,f7,f8); fprintf(out,"->%g\n",fr); fflush(out); fr = 0.0; clear_traces(); current_function = (void*) &f_f8; fr = ((float (*) (float,float,float,float,float,float,float,float)) vacall) (f1,f2,f3,f4,f5,f6,f7,f8); fprintf(out,"->%g\n",fr); fflush(out); fr = f_f16(f1,f2,f3,f4,f5,f6,f7,f8,f9,f10,f11,f12,f13,f14,f15,f16); fprintf(out,"->%g\n",fr); fflush(out); fr = 0.0; clear_traces(); current_function = (void*) &f_f16; fr = ((float (*) (float,float,float,float,float,float,float,float,float,float,float,float,float,float,float,float)) vacall) (f1,f2,f3,f4,f5,f6,f7,f8,f9,f10,f11,f12,f13,f14,f15,f16); fprintf(out,"->%g\n",fr); fflush(out); fr = f_f24(f1,f2,f3,f4,f5,f6,f7,f8,f9,f10,f11,f12,f13,f14,f15,f16,f17,f18,f19,f20,f21,f22,f23,f24); fprintf(out,"->%g\n",fr); fflush(out); fr = 0.0; clear_traces(); current_function = (void*) &f_f24; fr = ((float (*) (float,float,float,float,float,float,float,float,float,float,float,float,float,float,float,float,float,float,float,float,float,float,float,float)) vacall) (f1,f2,f3,f4,f5,f6,f7,f8,f9,f10,f11,f12,f13,f14,f15,f16,f17,f18,f19,f20,f21,f22,f23,f24); fprintf(out,"->%g\n",fr); fflush(out); } /* double tests */ { double dr; dr = d_d(d1); fprintf(out,"->%g\n",dr); fflush(out); dr = 0.0; clear_traces(); current_function = (void*) &d_d; dr = ((double (*) (double)) vacall) (d1); fprintf(out,"->%g\n",dr); fflush(out); dr = d_d2(d1,d2); fprintf(out,"->%g\n",dr); fflush(out); dr = 0.0; clear_traces(); current_function = (void*) &d_d2; dr = ((double (*) (double,double)) vacall) (d1,d2); fprintf(out,"->%g\n",dr); fflush(out); dr = d_d4(d1,d2,d3,d4); fprintf(out,"->%g\n",dr); fflush(out); dr = 0.0; clear_traces(); current_function = (void*) &d_d4; dr = ((double (*) (double,double,double,double)) vacall) (d1,d2,d3,d4); fprintf(out,"->%g\n",dr); fflush(out); dr = d_d8(d1,d2,d3,d4,d5,d6,d7,d8); fprintf(out,"->%g\n",dr); fflush(out); dr = 0.0; clear_traces(); current_function = (void*) &d_d8; dr = ((double (*) (double,double,double,double,double,double,double,double)) vacall) (d1,d2,d3,d4,d5,d6,d7,d8); fprintf(out,"->%g\n",dr); fflush(out); dr = d_d16(d1,d2,d3,d4,d5,d6,d7,d8,d9,d10,d11,d12,d13,d14,d15,d16); fprintf(out,"->%g\n",dr); fflush(out); dr = 0.0; clear_traces(); current_function = (void*) &d_d16; dr = ((double (*) (double,double,double,double,double,double,double,double,double,double,double,double,double,double,double,double)) vacall) (d1,d2,d3,d4,d5,d6,d7,d8,d9,d10,d11,d12,d13,d14,d15,d16); fprintf(out,"->%g\n",dr); fflush(out); } /* pointer tests */ { void* vpr; vpr = vp_vpdpcpsp(&uc1,&d2,str3,&I4); fprintf(out,"->0x%p\n",vpr); fflush(out); vpr = 0; clear_traces(); current_function = (void*) &vp_vpdpcpsp; vpr = ((void* (*) (void*,double*,char*,Int*)) vacall) (&uc1,&d2,str3,&I4); fprintf(out,"->0x%p\n",vpr); fflush(out); } /* mixed number tests */ { uchar ucr; ushort usr; float fr; double dr; long long llr; ucr = uc_ucsil(uc1,us2,ui3,ul4); fprintf(out,"->%u\n",ucr); fflush(out); ucr = 0; clear_traces(); current_function = (void*) &uc_ucsil; ucr = ((uchar (*) (uchar,ushort,uint,ulong)) vacall) (uc1,us2,ui3,ul4); fprintf(out,"->%u\n",ucr); fflush(out); dr = d_iidd(i1,i2,d3,d4); fprintf(out,"->%g\n",dr); fflush(out); dr = 0.0; clear_traces(); current_function = (void*) &d_iidd; dr = ((double (*) (int,int,double,double)) vacall) (i1,i2,d3,d4); fprintf(out,"->%g\n",dr); fflush(out); dr = d_iiidi(i1,i2,i3,d4,i5); fprintf(out,"->%g\n",dr); fflush(out); dr = 0.0; clear_traces(); current_function = (void*) &d_iiidi; dr = ((double (*) (int,int,int,double,int)) vacall) (i1,i2,i3,d4,i5); fprintf(out,"->%g\n",dr); fflush(out); dr = d_idid(i1,d2,i3,d4); fprintf(out,"->%g\n",dr); fflush(out); dr = 0.0; clear_traces(); current_function = (void*) &d_idid; dr = ((double (*) (int,double,int,double)) vacall) (i1,d2,i3,d4); fprintf(out,"->%g\n",dr); fflush(out); dr = d_fdi(f1,d2,i3); fprintf(out,"->%g\n",dr); fflush(out); dr = 0.0; clear_traces(); current_function = (void*) &d_fdi; dr = ((double (*) (float,double,int)) vacall) (f1,d2,i3); fprintf(out,"->%g\n",dr); fflush(out); usr = us_cdcd(c1,d2,c3,d4); fprintf(out,"->%u\n",usr); fflush(out); usr = 0; clear_traces(); current_function = (void*) &us_cdcd; usr = ((ushort (*) (char,double,char,double)) vacall) (c1,d2,c3,d4); fprintf(out,"->%u\n",usr); fflush(out); llr = ll_iiilli(i1,i2,i3,ll1,i13); fprintf(out,"->0x%lx%08lx\n",(long)(llr>>32),(long)(llr&0xffffffff)); fflush(out); llr = 0; clear_traces(); current_function = (void*) &ll_iiilli; llr = ((long long (*) (int,int,int,long long,int)) vacall) (i1,i2,i3,ll1,i13); fprintf(out,"->0x%lx%08lx\n",(long)(llr>>32),(long)(llr&0xffffffff)); fflush(out); llr = ll_flli(f13,ll1,i13); fprintf(out,"->0x%lx%08lx\n",(long)(llr>>32),(long)(llr&0xffffffff)); fflush(out); llr = 0; clear_traces(); current_function = (void*) &ll_flli; llr = ((long long (*) (float,long long,int)) vacall) (f13,ll1,i13); fprintf(out,"->0x%lx%08lx\n",(long)(llr>>32),(long)(llr&0xffffffff)); fflush(out); fr = f_fi(f1,i9); fprintf(out,"->%g\n",fr); fflush(out); fr = 0.0; clear_traces(); current_function = (void*) &f_fi; fr = ((float (*) (float,int)) vacall) (f1,i9); fprintf(out,"->%g\n",fr); fflush(out); fr = f_f2i(f1,f2,i9); fprintf(out,"->%g\n",fr); fflush(out); fr = 0.0; clear_traces(); current_function = (void*) &f_f2i; fr = ((float (*) (float,float,int)) vacall) (f1,f2,i9); fprintf(out,"->%g\n",fr); fflush(out); fr = f_f3i(f1,f2,f3,i9); fprintf(out,"->%g\n",fr); fflush(out); fr = 0.0; clear_traces(); current_function = (void*) &f_f3i; fr = ((float (*) (float,float,float,int)) vacall) (f1,f2,f3,i9); fprintf(out,"->%g\n",fr); fflush(out); fr = f_f4i(f1,f2,f3,f4,i9); fprintf(out,"->%g\n",fr); fflush(out); fr = 0.0; clear_traces(); current_function = (void*) &f_f4i; fr = ((float (*) (float,float,float,float,int)) vacall) (f1,f2,f3,f4,i9); fprintf(out,"->%g\n",fr); fflush(out); fr = f_f7i(f1,f2,f3,f4,f5,f6,f7,i9); fprintf(out,"->%g\n",fr); fflush(out); fr = 0.0; clear_traces(); current_function = (void*) &f_f7i; fr = ((float (*) (float,float,float,float,float,float,float,int)) vacall) (f1,f2,f3,f4,f5,f6,f7,i9); fprintf(out,"->%g\n",fr); fflush(out); fr = f_f8i(f1,f2,f3,f4,f5,f6,f7,f8,i9); fprintf(out,"->%g\n",fr); fflush(out); fr = 0.0; clear_traces(); current_function = (void*) &f_f8i; fr = ((float (*) (float,float,float,float,float,float,float,float,int)) vacall) (f1,f2,f3,f4,f5,f6,f7,f8,i9); fprintf(out,"->%g\n",fr); fflush(out); fr = f_f12i(f1,f2,f3,f4,f5,f6,f7,f8,f9,f10,f11,f12,i9); fprintf(out,"->%g\n",fr); fflush(out); fr = 0.0; clear_traces(); current_function = (void*) &f_f12i; fr = ((float (*) (float,float,float,float,float,float,float,float,float,float,float,float,int)) vacall) (f1,f2,f3,f4,f5,f6,f7,f8,f9,f10,f11,f12,i9); fprintf(out,"->%g\n",fr); fflush(out); fr = f_f13i(f1,f2,f3,f4,f5,f6,f7,f8,f9,f10,f11,f12,f13,i9); fprintf(out,"->%g\n",fr); fflush(out); fr = 0.0; clear_traces(); current_function = (void*) &f_f13i; fr = ((float (*) (float,float,float,float,float,float,float,float,float,float,float,float,float,int)) vacall) (f1,f2,f3,f4,f5,f6,f7,f8,f9,f10,f11,f12,f13,i9); fprintf(out,"->%g\n",fr); fflush(out); dr = d_di(d1,i9); fprintf(out,"->%g\n",dr); fflush(out); dr = 0.0; clear_traces(); current_function = (void*) &d_di; dr = ((double (*) (double,int)) vacall) (d1,i9); fprintf(out,"->%g\n",dr); fflush(out); dr = d_d2i(d1,d2,i9); fprintf(out,"->%g\n",dr); fflush(out); dr = 0.0; clear_traces(); current_function = (void*) &d_d2i; dr = ((double (*) (double,double,int)) vacall) (d1,d2,i9); fprintf(out,"->%g\n",dr); fflush(out); dr = d_d3i(d1,d2,d3,i9); fprintf(out,"->%g\n",dr); fflush(out); dr = 0.0; clear_traces(); current_function = (void*) &d_d3i; dr = ((double (*) (double,double,double,int)) vacall) (d1,d2,d3,i9); fprintf(out,"->%g\n",dr); fflush(out); dr = d_d4i(d1,d2,d3,d4,i9); fprintf(out,"->%g\n",dr); fflush(out); dr = 0.0; clear_traces(); current_function = (void*) &d_d4i; dr = ((double (*) (double,double,double,double,int)) vacall) (d1,d2,d3,d4,i9); fprintf(out,"->%g\n",dr); fflush(out); dr = d_d7i(d1,d2,d3,d4,d5,d6,d7,i9); fprintf(out,"->%g\n",dr); fflush(out); dr = 0.0; clear_traces(); current_function = (void*) &d_d7i; dr = ((double (*) (double,double,double,double,double,double,double,int)) vacall) (d1,d2,d3,d4,d5,d6,d7,i9); fprintf(out,"->%g\n",dr); fflush(out); dr = d_d8i(d1,d2,d3,d4,d5,d6,d7,d8,i9); fprintf(out,"->%g\n",dr); fflush(out); dr = 0.0; clear_traces(); current_function = (void*) &d_d8i; dr = ((double (*) (double,double,double,double,double,double,double,double,int)) vacall) (d1,d2,d3,d4,d5,d6,d7,d8,i9); fprintf(out,"->%g\n",dr); fflush(out); dr = d_d12i(d1,d2,d3,d4,d5,d6,d7,d8,d9,d10,d11,d12,i9); fprintf(out,"->%g\n",dr); fflush(out); dr = 0.0; clear_traces(); current_function = (void*) &d_d12i; dr = ((double (*) (double,double,double,double,double,double,double,double,double,double,double,double,int)) vacall) (d1,d2,d3,d4,d5,d6,d7,d8,d9,d10,d11,d12,i9); fprintf(out,"->%g\n",dr); fflush(out); dr = d_d13i(d1,d2,d3,d4,d5,d6,d7,d8,d9,d10,d11,d12,d13,i9); fprintf(out,"->%g\n",dr); fflush(out); dr = 0.0; clear_traces(); current_function = (void*) &d_d13i; dr = ((double (*) (double,double,double,double,double,double,double,double,double,double,double,double,double,int)) vacall) (d1,d2,d3,d4,d5,d6,d7,d8,d9,d10,d11,d12,d13,i9); fprintf(out,"->%g\n",dr); fflush(out); } /* small structure return tests */ { Size1 r = S1_v(); fprintf(out,"->{%c}\n",r.x1); fflush(out); memset(&r,0,sizeof(r)); clear_traces(); current_function = (void*) &S1_v; r = ((Size1 (*) (void)) vacall) (); fprintf(out,"->{%c}\n",r.x1); fflush(out); } { Size2 r = S2_v(); fprintf(out,"->{%c%c}\n",r.x1,r.x2); fflush(out); memset(&r,0,sizeof(r)); clear_traces(); current_function = (void*) &S2_v; r = ((Size2 (*) (void)) vacall) (); fprintf(out,"->{%c%c}\n",r.x1,r.x2); fflush(out); } { Size3 r = S3_v(); fprintf(out,"->{%c%c%c}\n",r.x1,r.x2,r.x3); fflush(out); memset(&r,0,sizeof(r)); clear_traces(); current_function = (void*) &S3_v; r = ((Size3 (*) (void)) vacall) (); fprintf(out,"->{%c%c%c}\n",r.x1,r.x2,r.x3); fflush(out); } { Size4 r = S4_v(); fprintf(out,"->{%c%c%c%c}\n",r.x1,r.x2,r.x3,r.x4); fflush(out); memset(&r,0,sizeof(r)); clear_traces(); current_function = (void*) &S4_v; r = ((Size4 (*) (void)) vacall) (); fprintf(out,"->{%c%c%c%c}\n",r.x1,r.x2,r.x3,r.x4); fflush(out); } { Size7 r = S7_v(); fprintf(out,"->{%c%c%c%c%c%c%c}\n",r.x1,r.x2,r.x3,r.x4,r.x5,r.x6,r.x7); fflush(out); memset(&r,0,sizeof(r)); clear_traces(); current_function = (void*) &S7_v; r = ((Size7 (*) (void)) vacall) (); fprintf(out,"->{%c%c%c%c%c%c%c}\n",r.x1,r.x2,r.x3,r.x4,r.x5,r.x6,r.x7); fflush(out); } { Size8 r = S8_v(); fprintf(out,"->{%c%c%c%c%c%c%c%c}\n",r.x1,r.x2,r.x3,r.x4,r.x5,r.x6,r.x7,r.x8); fflush(out); memset(&r,0,sizeof(r)); clear_traces(); current_function = (void*) &S8_v; r = ((Size8 (*) (void)) vacall) (); fprintf(out,"->{%c%c%c%c%c%c%c%c}\n",r.x1,r.x2,r.x3,r.x4,r.x5,r.x6,r.x7,r.x8); fflush(out); } { Size12 r = S12_v(); fprintf(out,"->{%c%c%c%c%c%c%c%c%c%c%c%c}\n",r.x1,r.x2,r.x3,r.x4,r.x5,r.x6,r.x7,r.x8,r.x9,r.x10,r.x11,r.x12); fflush(out); memset(&r,0,sizeof(r)); clear_traces(); current_function = (void*) &S12_v; r = ((Size12 (*) (void)) vacall) (); fprintf(out,"->{%c%c%c%c%c%c%c%c%c%c%c%c}\n",r.x1,r.x2,r.x3,r.x4,r.x5,r.x6,r.x7,r.x8,r.x9,r.x10,r.x11,r.x12); fflush(out); } { Size15 r = S15_v(); fprintf(out,"->{%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c}\n",r.x1,r.x2,r.x3,r.x4,r.x5,r.x6,r.x7,r.x8,r.x9,r.x10,r.x11,r.x12,r.x13,r.x14,r.x15); fflush(out); memset(&r,0,sizeof(r)); clear_traces(); current_function = (void*) &S15_v; r = ((Size15 (*) (void)) vacall) (); fprintf(out,"->{%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c}\n",r.x1,r.x2,r.x3,r.x4,r.x5,r.x6,r.x7,r.x8,r.x9,r.x10,r.x11,r.x12,r.x13,r.x14,r.x15); fflush(out); } { Size16 r = S16_v(); fprintf(out,"->{%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c}\n",r.x1,r.x2,r.x3,r.x4,r.x5,r.x6,r.x7,r.x8,r.x9,r.x10,r.x11,r.x12,r.x13,r.x14,r.x15,r.x16); fflush(out); memset(&r,0,sizeof(r)); clear_traces(); current_function = (void*) &S16_v; r = ((Size16 (*) (void)) vacall) (); fprintf(out,"->{%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c}\n",r.x1,r.x2,r.x3,r.x4,r.x5,r.x6,r.x7,r.x8,r.x9,r.x10,r.x11,r.x12,r.x13,r.x14,r.x15,r.x16); fflush(out); } /* structure tests */ { Int Ir; Char Cr; Float Fr; Double Dr; J Jr; T Tr; X Xr; Ir = I_III(I1,I2,I3); fprintf(out,"->{%d}\n",Ir.x); fflush(out); Ir.x = 0; clear_traces(); current_function = (void*) &I_III; Ir = ((Int (*) (Int,Int,Int)) vacall) (I1,I2,I3); fprintf(out,"->{%d}\n",Ir.x); fflush(out); #ifndef SKIP_EXTRA_STRUCTS Cr = C_CdC(C1,d2,C3); fprintf(out,"->{'%c'}\n",Cr.x); fflush(out); Cr.x = '\0'; clear_traces(); current_function = (void*) &C_CdC; Cr = ((Char (*) (Char,double,Char)) vacall) (C1,d2,C3); fprintf(out,"->{'%c'}\n",Cr.x); fflush(out); Fr = F_Ffd(F1,f2,d3); fprintf(out,"->{%g}\n",Fr.x); fflush(out); Fr.x = 0.0; clear_traces(); current_function = (void*) &F_Ffd; Fr = ((Float (*) (Float,float,double)) vacall) (F1,f2,d3); fprintf(out,"->{%g}\n",Fr.x); fflush(out); Dr = D_fDd(f1,D2,d3); fprintf(out,"->{%g}\n",Dr.x); fflush(out); Dr.x = 0.0; clear_traces(); current_function = (void*) &D_fDd; Dr = ((Double (*) (float,Double,double)) vacall) (f1,D2,d3); fprintf(out,"->{%g}\n",Dr.x); fflush(out); Dr = D_Dfd(D1,f2,d3); fprintf(out,"->{%g}\n",Dr.x); fflush(out); Dr.x = 0.0; clear_traces(); current_function = (void*) &D_Dfd; Dr = ((Double (*) (Double,float,double)) vacall) (D1,f2,d3); fprintf(out,"->{%g}\n",Dr.x); fflush(out); #endif Jr = J_JiJ(J1,i2,J2); fprintf(out,"->{%ld,%ld}\n",Jr.l1,Jr.l2); fflush(out); Jr.l1 = Jr.l2 = 0; clear_traces(); current_function = (void*) &J_JiJ; Jr = ((J (*) (J,int,J)) vacall) (J1,i2,J2); fprintf(out,"->{%ld,%ld}\n",Jr.l1,Jr.l2); fflush(out); #ifndef SKIP_EXTRA_STRUCTS #ifndef SKIP_T Tr = T_TcT(T1,' ',T2); fprintf(out,"->{\"%c%c%c\"}\n",Tr.c[0],Tr.c[1],Tr.c[2]); fflush(out); Tr.c[0] = Tr.c[1] = Tr.c[2] = 0; clear_traces(); current_function = (void*) &T_TcT; Tr = ((T (*) (T,char,T)) vacall) (T1,' ',T2); fprintf(out,"->{\"%c%c%c\"}\n",Tr.c[0],Tr.c[1],Tr.c[2]); fflush(out); #endif #ifndef SKIP_X Xr = X_BcdB(B1,c2,d3,B2); fprintf(out,"->{\"%s\",'%c'}\n",Xr.c,Xr.c1); fflush(out); Xr.c[0]=Xr.c1='\0'; clear_traces(); current_function = (void*) &X_BcdB; Xr = ((X (*) (B,char,double,B)) vacall) (B1,c2,d3,B2); fprintf(out,"->{\"%s\",'%c'}\n",Xr.c,Xr.c1); fflush(out); #endif #endif } /* gpargs boundary tests */ { long lr; long long llr; float fr; double dr; lr = l_l0J(J1,l9); fprintf(out,"->%ld\n",lr); fflush(out); lr = 0; clear_traces(); current_function = (void*) &l_l0J; lr = ((long (*) (J,long)) vacall) (J1,l9); fprintf(out,"->%ld\n",lr); fflush(out); lr = l_l1J(l1,J1,l9); fprintf(out,"->%ld\n",lr); fflush(out); lr = 0; clear_traces(); current_function = (void*) &l_l1J; lr = ((long (*) (long,J,long)) vacall) (l1,J1,l9); fprintf(out,"->%ld\n",lr); fflush(out); lr = l_l2J(l1,l2,J1,l9); fprintf(out,"->%ld\n",lr); fflush(out); lr = 0; clear_traces(); current_function = (void*) &l_l2J; lr = ((long (*) (long,long,J,long)) vacall) (l1,l2,J1,l9); fprintf(out,"->%ld\n",lr); fflush(out); lr = l_l3J(l1,l2,l3,J1,l9); fprintf(out,"->%ld\n",lr); fflush(out); lr = 0; clear_traces(); current_function = (void*) &l_l3J; lr = ((long (*) (long,long,long,J,long)) vacall) (l1,l2,l3,J1,l9); fprintf(out,"->%ld\n",lr); fflush(out); lr = l_l4J(l1,l2,l3,l4,J1,l9); fprintf(out,"->%ld\n",lr); fflush(out); lr = 0; clear_traces(); current_function = (void*) &l_l4J; lr = ((long (*) (long,long,long,long,J,long)) vacall) (l1,l2,l3,l4,J1,l9); fprintf(out,"->%ld\n",lr); fflush(out); lr = l_l5J(l1,l2,l3,l4,l5,J1,l9); fprintf(out,"->%ld\n",lr); fflush(out); lr = 0; clear_traces(); current_function = (void*) &l_l5J; lr = ((long (*) (long,long,long,long,long,J,long)) vacall) (l1,l2,l3,l4,l5,J1,l9); fprintf(out,"->%ld\n",lr); fflush(out); lr = l_l6J(l1,l2,l3,l4,l5,l6,J1,l9); fprintf(out,"->%ld\n",lr); fflush(out); lr = 0; clear_traces(); current_function = (void*) &l_l6J; lr = ((long (*) (long,long,long,long,long,long,J,long)) vacall) (l1,l2,l3,l4,l5,l6,J1,l9); fprintf(out,"->%ld\n",lr); fflush(out); lr = l_l7J(l1,l2,l3,l4,l5,l6,l7,J1,l9); fprintf(out,"->%ld\n",lr); fflush(out); lr = 0; clear_traces(); current_function = (void*) &l_l7J; lr = ((long (*) (long,long,long,long,long,long,long,J,long)) vacall) (l1,l2,l3,l4,l5,l6,l7,J1,l9); fprintf(out,"->%ld\n",lr); fflush(out); lr = l_l0K(K1,l9); fprintf(out,"->%ld\n",lr); fflush(out); lr = 0; clear_traces(); current_function = (void*) &l_l0K; lr = ((long (*) (K,long)) vacall) (K1,l9); fprintf(out,"->%ld\n",lr); fflush(out); lr = l_l1K(l1,K1,l9); fprintf(out,"->%ld\n",lr); fflush(out); lr = 0; clear_traces(); current_function = (void*) &l_l1K; lr = ((long (*) (long,K,long)) vacall) (l1,K1,l9); fprintf(out,"->%ld\n",lr); fflush(out); lr = l_l2K(l1,l2,K1,l9); fprintf(out,"->%ld\n",lr); fflush(out); lr = 0; clear_traces(); current_function = (void*) &l_l2K; lr = ((long (*) (long,long,K,long)) vacall) (l1,l2,K1,l9); fprintf(out,"->%ld\n",lr); fflush(out); lr = l_l3K(l1,l2,l3,K1,l9); fprintf(out,"->%ld\n",lr); fflush(out); lr = 0; clear_traces(); current_function = (void*) &l_l3K; lr = ((long (*) (long,long,long,K,long)) vacall) (l1,l2,l3,K1,l9); fprintf(out,"->%ld\n",lr); fflush(out); lr = l_l4K(l1,l2,l3,l4,K1,l9); fprintf(out,"->%ld\n",lr); fflush(out); lr = 0; clear_traces(); current_function = (void*) &l_l4K; lr = ((long (*) (long,long,long,long,K,long)) vacall) (l1,l2,l3,l4,K1,l9); fprintf(out,"->%ld\n",lr); fflush(out); lr = l_l5K(l1,l2,l3,l4,l5,K1,l9); fprintf(out,"->%ld\n",lr); fflush(out); lr = 0; clear_traces(); current_function = (void*) &l_l5K; lr = ((long (*) (long,long,long,long,long,K,long)) vacall) (l1,l2,l3,l4,l5,K1,l9); fprintf(out,"->%ld\n",lr); fflush(out); lr = l_l6K(l1,l2,l3,l4,l5,l6,K1,l9); fprintf(out,"->%ld\n",lr); fflush(out); lr = 0; clear_traces(); current_function = (void*) &l_l6K; lr = ((long (*) (long,long,long,long,long,long,K,long)) vacall) (l1,l2,l3,l4,l5,l6,K1,l9); fprintf(out,"->%ld\n",lr); fflush(out); fr = f_f17l3L(f1,f2,f3,f4,f5,f6,f7,f8,f9,f10,f11,f12,f13,f14,f15,f16,f17,l6,l7,l8,L1); fprintf(out,"->%g\n",fr); fflush(out); fr = 0.0; clear_traces(); current_function = (void*) &f_f17l3L; fr = ((float (*) (float,float,float,float,float,float,float,float,float,float,float,float,float,float,float,float,float,long,long,long,L)) vacall) (f1,f2,f3,f4,f5,f6,f7,f8,f9,f10,f11,f12,f13,f14,f15,f16,f17,l6,l7,l8,L1); fprintf(out,"->%g\n",fr); fflush(out); dr = d_d17l3L(d1,d2,d3,d4,d5,d6,d7,d8,d9,d10,d11,d12,d13,d14,d15,d16,d17,l6,l7,l8,L1); fprintf(out,"->%g\n",dr); fflush(out); dr = 0.0; clear_traces(); current_function = (void*) &d_d17l3L; dr = ((double (*) (double,double,double,double,double,double,double,double,double,double,double,double,double,double,double,double,double,long,long,long,L)) vacall) (d1,d2,d3,d4,d5,d6,d7,d8,d9,d10,d11,d12,d13,d14,d15,d16,d17,l6,l7,l8,L1); fprintf(out,"->%g\n",dr); fflush(out); llr = ll_l2ll(l1,l2,ll1,l9); fprintf(out,"->0x%lx%08lx\n",(long)(llr>>32),(long)(llr&0xffffffff)); fflush(out); llr = 0; clear_traces(); current_function = (void*) &ll_l2ll; llr = ((long long (*) (long,long,long long,long)) vacall) (l1,l2,ll1,l9); fprintf(out,"->0x%lx%08lx\n",(long)(llr>>32),(long)(llr&0xffffffff)); fflush(out); llr = ll_l3ll(l1,l2,l3,ll1,l9); fprintf(out,"->0x%lx%08lx\n",(long)(llr>>32),(long)(llr&0xffffffff)); fflush(out); llr = 0; clear_traces(); current_function = (void*) &ll_l3ll; llr = ((long long (*) (long,long,long,long long,long)) vacall) (l1,l2,l3,ll1,l9); fprintf(out,"->0x%lx%08lx\n",(long)(llr>>32),(long)(llr&0xffffffff)); fflush(out); llr = ll_l4ll(l1,l2,l3,l4,ll1,l9); fprintf(out,"->0x%lx%08lx\n",(long)(llr>>32),(long)(llr&0xffffffff)); fflush(out); llr = 0; clear_traces(); current_function = (void*) &ll_l4ll; llr = ((long long (*) (long,long,long,long,long long,long)) vacall) (l1,l2,l3,l4,ll1,l9); fprintf(out,"->0x%lx%08lx\n",(long)(llr>>32),(long)(llr&0xffffffff)); fflush(out); llr = ll_l5ll(l1,l2,l3,l4,l5,ll1,l9); fprintf(out,"->0x%lx%08lx\n",(long)(llr>>32),(long)(llr&0xffffffff)); fflush(out); llr = 0; clear_traces(); current_function = (void*) &ll_l5ll; llr = ((long long (*) (long,long,long,long,long,long long,long)) vacall) (l1,l2,l3,l4,l5,ll1,l9); fprintf(out,"->0x%lx%08lx\n",(long)(llr>>32),(long)(llr&0xffffffff)); fflush(out); llr = ll_l6ll(l1,l2,l3,l4,l5,l6,ll1,l9); fprintf(out,"->0x%lx%08lx\n",(long)(llr>>32),(long)(llr&0xffffffff)); fflush(out); llr = 0; clear_traces(); current_function = (void*) &ll_l6ll; llr = ((long long (*) (long,long,long,long,long,long,long long,long)) vacall) (l1,l2,l3,l4,l5,l6,ll1,l9); fprintf(out,"->0x%lx%08lx\n",(long)(llr>>32),(long)(llr&0xffffffff)); fflush(out); llr = ll_l7ll(l1,l2,l3,l4,l5,l6,l7,ll1,l9); fprintf(out,"->0x%lx%08lx\n",(long)(llr>>32),(long)(llr&0xffffffff)); fflush(out); llr = 0; clear_traces(); current_function = (void*) &ll_l7ll; llr = ((long long (*) (long,long,long,long,long,long,long,long long,long)) vacall) (l1,l2,l3,l4,l5,l6,l7,ll1,l9); fprintf(out,"->0x%lx%08lx\n",(long)(llr>>32),(long)(llr&0xffffffff)); fflush(out); dr = d_l2d(l1,l2,ll1,l9); fprintf(out,"->%g\n",dr); fflush(out); dr = 0.0; clear_traces(); current_function = (void*) &d_l2d; dr = ((double (*) (long,long,double,long)) vacall) (l1,l2,ll1,l9); fprintf(out,"->%g\n",dr); fflush(out); dr = d_l3d(l1,l2,l3,ll1,l9); fprintf(out,"->%g\n",dr); fflush(out); dr = 0.0; clear_traces(); current_function = (void*) &d_l3d; dr = ((double (*) (long,long,long,double,long)) vacall) (l1,l2,l3,ll1,l9); fprintf(out,"->%g\n",dr); fflush(out); dr = d_l4d(l1,l2,l3,l4,ll1,l9); fprintf(out,"->%g\n",dr); fflush(out); dr = 0.0; clear_traces(); current_function = (void*) &d_l4d; dr = ((double (*) (long,long,long,long,double,long)) vacall) (l1,l2,l3,l4,ll1,l9); fprintf(out,"->%g\n",dr); fflush(out); dr = d_l5d(l1,l2,l3,l4,l5,ll1,l9); fprintf(out,"->%g\n",dr); fflush(out); dr = 0.0; clear_traces(); current_function = (void*) &d_l5d; dr = ((double (*) (long,long,long,long,long,double,long)) vacall) (l1,l2,l3,l4,l5,ll1,l9); fprintf(out,"->%g\n",dr); fflush(out); dr = d_l6d(l1,l2,l3,l4,l5,l6,ll1,l9); fprintf(out,"->%g\n",dr); fflush(out); dr = 0.0; clear_traces(); current_function = (void*) &d_l6d; dr = ((double (*) (long,long,long,long,long,long,double,long)) vacall) (l1,l2,l3,l4,l5,l6,ll1,l9); fprintf(out,"->%g\n",dr); fflush(out); dr = d_l7d(l1,l2,l3,l4,l5,l6,l7,ll1,l9); fprintf(out,"->%g\n",dr); fflush(out); dr = 0.0; clear_traces(); current_function = (void*) &d_l7d; dr = ((double (*) (long,long,long,long,long,long,long,double,long)) vacall) (l1,l2,l3,l4,l5,l6,l7,ll1,l9); fprintf(out,"->%g\n",dr); fflush(out); } /* by-value tests */ /* This test is trivial, since a copy of k is allocated on the callee's stack. But anyway... */ { K k; k.l1 = l1; k.l2 = l2; k.l3 = l3; k.l4 = l4; fprintf(out,"by_value:%ld,%ld,%ld,%ld\n",k.l1,k.l2,k.l3,k.l4); fflush(out); clear_traces(); current_function = (void*) &v_clobber_K; ((void (*) (K)) vacall) (k); fprintf(out,"by_value:%ld,%ld,%ld,%ld\n",k.l1,k.l2,k.l3,k.l4); fflush(out); } exit(0); } libffcall-2.2/vacall/vacall-hppa-linux.s0000664000000000000000000000617313530357111015145 00000000000000 .LEVEL 1.1 .text .align 4 .globl vacall_receiver .type vacall_receiver,@function vacall_receiver: .PROC .CALLINFO FRAME=192,CALLS,SAVE_RP,SAVE_SP,ENTRY_GR=3 .ENTRY copy %r3,%r1 stw %r2,-20(%r30) copy %r30,%r3 stwm %r1,192(%r30) addil LR'vacall_function-$global$,%r27 ldo -32(%r3),%r2 ldo 16(%r3),%r22 sub %r22,%r2,%r20 ldo 104(%r3),%r19 ldo 72(%r3),%r21 ldo 80(%r20),%r31 fstds %fr5,-16(%r19) ldo 64(%r20),%r20 ldo -48(%r3),%r19 stw %r26,-36(%r3) copy %r22,%r26 stw %r20,56(%r3) fstws %fr7L,-8(%r21) stw %r19,52(%r3) stw %r31,60(%r3) stw %r25,-40(%r3) stw %r24,-44(%r3) stw %r23,-48(%r3) fstds %fr7,8(%r21) fstws %fr4L,4(%r21) fstws %fr5L,0(%r21) fstws %fr6L,-4(%r21) stw %r0,16(%r3) stw %r2,32(%r3) stw %r0,36(%r3) stw %r0,40(%r3) stw %r28,48(%r3) ldw RR'vacall_function-$global$(%r1),%r22 .CALL ARGW0=GR bl $$dyncall,%r31 copy %r31,%r2 ldw 40(%r3),%r20 comib,= 0,%r20,.L48 ldw -20(%r3),%r2 comib,= 1,%r20,.L49 ldb 24(%r3),%r19 comib,=,n 2,%r20,.L49 comib,=,n 3,%r20,.L43 comib,=,n 4,%r20,.L44 comib,=,n 5,%r20,.L45 comib,=,n 6,%r20,.L41 comib,=,n 7,%r20,.L41 comib,=,n 8,%r20,.L41 comib,= 9,%r20,.L41 ldo -10(%r20),%r19 comib,<<,n 1,%r19,.L22 ldw 24(%r3),%r28 .L40: ldw 28(%r3),%r29 .L1: ldw -20(%r3),%r2 .L48: ldo 64(%r3),%r30 bv %r0(%r2) ldwm -64(%r30),%r3 .L22: comib,= 12,%r20,.L46 ldo 40(%r3),%r19 comib,=,n 13,%r20,.L47 comib,=,n 14,%r20,.L1 ldw 24(%r3),%r28 comib,<> 15,%r20,.L48 ldw -20(%r3),%r2 ldw 16(%r3),%r19 bb,>= %r19,30,.L1 ldw 44(%r3),%r2 ldo -1(%r2),%r19 comib,<< 7,%r19,.L1 ldw 36(%r3),%r19 extru %r19,31,2,%r22 copy %r19,%r31 depi 0,31,2,%r31 comib,<< 4,%r2,.L33 addl %r22,%r2,%r1 zdep %r22,28,29,%r22 mtsar %r22 zvdepi 2,32,%r19 comib,<< 4,%r1,.L34 ldo -1(%r19),%r22 ldw 0(%r31),%r19 zdep %r1,28,29,%r20 ldo -1(%r20),%r20 and %r19,%r22,%r19 mtsar %r20 vextrs %r19,32,%r19 movb,tr %r19,%r28,.L48 ldw -20(%r3),%r2 .L34: ldw 0(%r31),%r19 zdep %r1,28,29,%r21 ldw 4(%r31),%r20 and %r19,%r22,%r19 ldo -33(%r21),%r31 subi 63,%r21,%r21 mtsar %r21 zvdep %r19,32,%r19 mtsar %r31 vextrs %r20,32,%r20 .L39: b .L1 or %r20,%r19,%r28 .L33: zdep %r22,28,29,%r22 mtsar %r22 zvdepi 2,32,%r19 comib,<< 8,%r1,.L37 ldo -1(%r19),%r2 ldw 0(%r31),%r21 zdep %r1,29,30,%r19 and %r21,%r2,%r21 ldw 4(%r31),%r22 subi 47,%r19,%r2 zdep %r1,28,29,%r19 mtsar %r2 ldo -33(%r19),%r19 zvdep %r21,32,%r20 zvdep %r20,32,%r20 mtsar %r19 vextrs %r22,32,%r22 vextrs %r21,32,%r21 movb,tr %r21,%r28,.L1 or %r20,%r22,%r29 .L37: ldw 0(%r31),%r20 zdep %r1,28,29,%r22 ldw 8(%r31),%r21 and %r20,%r2,%r20 ldo -65(%r22),%r2 ldw 4(%r31),%r19 mtsar %r2 subi 95,%r22,%r31 vextrs %r21,32,%r21 mtsar %r31 zvdep %r19,32,%r22 zvdep %r20,32,%r20 or %r22,%r21,%r29 mtsar %r2 b .L39 vextrs %r19,32,%r19 .L41: b .L1 ldw 24(%r3),%r28 .L47: ldw 24(%r3),%r28 b .L40 fldds -16(%r19),%fr4 .L46: ldw 24(%r3),%r28 b .L1 fldws -16(%r19),%fr4L .L45: b .L1 ldh 24(%r3),%r28 .L44: ldh 24(%r3),%r19 b .L1 extrs %r19,31,16,%r28 .L43: b .L1 ldb 24(%r3),%r28 .L49: b .L1 extrs %r19,31,8,%r28 .EXIT .PROCEND .Lfe1: .size vacall_receiver,.Lfe1-vacall_receiver .ident "GCC: (GNU) 3.1" libffcall-2.2/vacall/vacall-sparc-macro.S0000664000000000000000000000770613530357111015232 00000000000000#include "asm-sparc.h" #ifdef __PIC__ .section ".text" .align 4 L(LGETPC0): retl add %o7, %l7, %l7 .align 4 .global C(vacall_receiver) DECLARE_FUNCTION(vacall_receiver) .proc 020 FUNBEGIN(vacall_receiver) !$PROLOGUE$ 0 save %sp, -144, %sp sethi %hi(C(vacall_function)), %o0 sethi %hi(_GLOBAL_OFFSET_TABLE_-4), %l7 call L(LGETPC0) add %l7, %lo(_GLOBAL_OFFSET_TABLE_+4), %l7 or %o0, %lo(C(vacall_function)), %o0 ld [%l7+%o0], %o1 st %i2, [%fp+76] ld [%o1], %o2 add %fp, 68, %o0 ld [%fp+64], %o1 st %o0, [%fp-32] st %o1, [%fp-16] st %i3, [%fp+80] st %i4, [%fp+84] st %i5, [%fp+88] st %i0, [%fp+68] st %i1, [%fp+72] st %g0, [%fp-48] st %g0, [%fp-28] st %g0, [%fp-24] call %o2, 0 add %fp, -48, %o0 ld [%fp-24], %o1 cmp %o1, 0 be L(L1) cmp %o1, 1 be L(L44) cmp %o1, 2 be L(L44) cmp %o1, 3 be L(L45) cmp %o1, 4 be L(L46) cmp %o1, 5 be L(L47) cmp %o1, 6 be L(L43) cmp %o1, 7 be L(L43) cmp %o1, 8 be L(L43) cmp %o1, 9 be L(L43) add %o1, -10, %o0 cmp %o0, 1 bgu L(L22) cmp %o1, 12 ld [%fp-40], %i0 b L(L1) ld [%fp-36], %i1 L(L22): be L(L48) cmp %o1, 13 be L(L49) cmp %o1, 14 be L(L43) cmp %o1, 15 bne L(L1) ld [%fp-48], %o0 andcc %o0, 16, %g0 be L(L33) andcc %o0, 2, %g0 ld [%fp-20], %o0 ld [%i7+8], %o1 and %o0, 4095, %o0 cmp %o0, %o1 bne L(L1) ld [%fp-28], %i0 b L(L1) add %i7, 4, %i7 L(L33): be,a L(L1) add %i7, 4, %i7 ld [%fp-20], %o0 cmp %o0, 1 be L(L50) cmp %o0, 2 be L(L51) cmp %o0, 4 bne,a L(L1) add %i7, 4, %i7 ld [%fp-28], %o0 b L(L1) ld [%o0], %i0 L(L51): ld [%fp-28], %o0 b L(L1) lduh [%o0], %i0 L(L50): ld [%fp-28], %o0 b L(L1) ldub [%o0], %i0 L(L43): b L(L1) ld [%fp-40], %i0 L(L49): b L(L1) ldd [%fp-40], %f0 L(L48): ld [%fp-48], %o0 andcc %o0, 32, %g0 be,a L(L1) ld [%fp-40], %f0 ld [%fp-40], %f2 b L(L1) fstod %f2, %f0 L(L47): b L(L1) lduh [%fp-40], %i0 L(L46): b L(L1) ldsh [%fp-40], %i0 L(L45): b L(L1) ldub [%fp-40], %i0 L(L44): ldsb [%fp-40], %i0 L(L38): L(L1): nop ret restore L(Lfe1): FUNEND(vacall_receiver) #else .section ".text" .align 4 .global C(vacall_receiver) DECLARE_FUNCTION(vacall_receiver) .proc 020 FUNBEGIN(vacall_receiver) !$PROLOGUE$ 0 save %sp, -144, %sp !$PROLOGUE$ 1 sethi %hi(C(vacall_function)), %o0 ld [%o0+%lo(C(vacall_function))], %o2 st %i2, [%fp+76] add %fp, 68, %o0 ld [%fp+64], %o1 st %o0, [%fp-32] st %o1, [%fp-16] st %i3, [%fp+80] st %i4, [%fp+84] st %i5, [%fp+88] st %i0, [%fp+68] st %i1, [%fp+72] st %g0, [%fp-48] st %g0, [%fp-28] st %g0, [%fp-24] call %o2, 0 add %fp, -48, %o0 ld [%fp-24], %o1 cmp %o1, 0 be L(L1) cmp %o1, 1 be L(L44) cmp %o1, 2 be L(L44) cmp %o1, 3 be L(L45) cmp %o1, 4 be L(L46) cmp %o1, 5 be L(L47) cmp %o1, 6 be L(L43) cmp %o1, 7 be L(L43) cmp %o1, 8 be L(L43) cmp %o1, 9 be L(L43) add %o1, -10, %o0 cmp %o0, 1 bgu L(L22) cmp %o1, 12 ld [%fp-40], %i0 b L(L1) ld [%fp-36], %i1 L(L22): be L(L48) cmp %o1, 13 be L(L49) cmp %o1, 14 be L(L43) cmp %o1, 15 bne L(L1) ld [%fp-48], %o0 andcc %o0, 16, %g0 be L(L33) andcc %o0, 2, %g0 ld [%fp-20], %o0 ld [%i7+8], %o1 and %o0, 4095, %o0 cmp %o0, %o1 bne L(L1) ld [%fp-28], %i0 b L(L1) add %i7, 4, %i7 L(L33): be,a L(L1) add %i7, 4, %i7 ld [%fp-20], %o0 cmp %o0, 1 be L(L50) cmp %o0, 2 be L(L51) cmp %o0, 4 bne,a L(L1) add %i7, 4, %i7 ld [%fp-28], %o0 b L(L1) ld [%o0], %i0 L(L51): ld [%fp-28], %o0 b L(L1) lduh [%o0], %i0 L(L50): ld [%fp-28], %o0 b L(L1) ldub [%o0], %i0 L(L43): b L(L1) ld [%fp-40], %i0 L(L49): b L(L1) ldd [%fp-40], %f0 L(L48): ld [%fp-48], %o0 andcc %o0, 32, %g0 be,a L(L1) ld [%fp-40], %f0 ld [%fp-40], %f2 b L(L1) fstod %f2, %f0 L(L47): b L(L1) lduh [%fp-40], %i0 L(L46): b L(L1) ldsh [%fp-40], %i0 L(L45): b L(L1) ldub [%fp-40], %i0 L(L44): ldsb [%fp-40], %i0 L(L38): L(L1): nop ret restore L(Lfe1): FUNEND(vacall_receiver) #endif #if defined __linux__ || defined __FreeBSD__ || defined __FreeBSD_kernel__ || defined __DragonFly__ .section .note.GNU-stack,"",@progbits #endif libffcall-2.2/vacall/vacall-s390.c0000664000000000000000000000773513347755340013557 00000000000000/* vacall function for S/390 32-bit CPU */ /* * Copyright 1995-2017 Bruno Haible * Copyright 2000 Adam Fedor * Copyright 2001 Gerhard Tonn * * This program is free software: you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by * the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program. If not, see . */ #include "vacall-internal.h" #ifdef REENTRANT #define vacall_receiver callback_receiver register struct { void (*vacall_function) (void*,va_alist); void* arg; } * env __asm__("r0"); #endif register float farg1 __asm__("f0"); register float farg2 __asm__("f2"); register double darg1 __asm__("f0"); register double darg2 __asm__("f2"); register __vaword iret __asm__("%r2"); register __vaword iret2 __asm__("%r3"); register float fret __asm__("%f0"); register double dret __asm__("%f0"); #ifdef REENTRANT static #endif void /* the return type is variable, not void! */ vacall_receiver (__vaword word1, __vaword word2, __vaword word3, __vaword word4, __vaword word5, __vaword firstword) { __va_alist list; /* Move the arguments passed in registers to temp storage, since moving them to the stack would mess up the stack */ list.iarg[0] = word1; list.iarg[1] = word2; list.iarg[2] = word3; list.iarg[3] = word4; list.iarg[4] = word5; list.darg[1] = darg2; list.darg[0] = darg1; list.farg[1] = farg2; list.farg[0] = farg1; /* Prepare the va_alist. */ list.flags = 0; list.aptr = (long)&firstword; list.raddr = (void*)0; list.rtype = __VAvoid; list.ianum = 0; list.fanum = 0; /* Call vacall_function. The macros do all the rest. */ #ifndef REENTRANT (*vacall_function) (&list); #else /* REENTRANT */ (*env->vacall_function) (env->arg,&list); #endif /* Put return value into proper register. */ if (list.rtype == __VAvoid) { } else if (list.rtype == __VAchar) { iret = list.tmp._char; } else if (list.rtype == __VAschar) { iret = list.tmp._schar; } else if (list.rtype == __VAuchar) { iret = list.tmp._uchar; } else if (list.rtype == __VAshort) { iret = list.tmp._short; } else if (list.rtype == __VAushort) { iret = list.tmp._ushort; } else if (list.rtype == __VAint) { iret = list.tmp._int; } else if (list.rtype == __VAuint) { iret = list.tmp._uint; } else if (list.rtype == __VAlong) { iret = list.tmp._long; } else if (list.rtype == __VAulong) { iret = list.tmp._ulong; } else if (list.rtype == __VAlonglong || list.rtype == __VAulonglong) { iret = ((__vaword *) &list.tmp._longlong)[0]; iret2 = ((__vaword *) &list.tmp._longlong)[1]; } else if (list.rtype == __VAfloat) { fret = list.tmp._float; } else if (list.rtype == __VAdouble) { dret = list.tmp._double; } else if (list.rtype == __VAvoidp) { iret = (long)list.tmp._ptr; } else if (list.rtype == __VAstruct) { if (list.flags & __VA_REGISTER_STRUCT_RETURN) { if (list.rsize == sizeof(char)) { iret = *(unsigned char *) list.raddr; } else if (list.rsize == sizeof(short)) { iret = *(unsigned short *) list.raddr; } else if (list.rsize == sizeof(int)) { iret = *(unsigned int *) list.raddr; } else if (list.rsize == 2*sizeof(__vaword)) { iret = ((__vaword *) list.raddr)[0]; iret2 = ((__vaword *) list.raddr)[1]; } } } } #ifdef REENTRANT __vacall_r_t callback_get_receiver (void) { return (__vacall_r_t)(void*)&callback_receiver; } #endif libffcall-2.2/vacall/vacall-mips64.c0000664000000000000000000005563113347755337014207 00000000000000/* vacall function for mips CPU */ /* * Copyright 1995-2017 Bruno Haible * * This program is free software: you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by * the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program. If not, see . */ #include "vacall-internal.h" #ifndef REENTRANT typedef void (*func_pointer)(va_alist); #else /* REENTRANT */ #define vacall_receiver callback_receiver typedef void (*func_pointer)(void*,va_alist); register struct { func_pointer vacall_function; void* arg; } * env __asm__("$2"); #endif register void* sp __asm__("$sp"); register long iarg0 __asm__("$4"); register long iarg1 __asm__("$5"); register long iarg2 __asm__("$6"); register long iarg3 __asm__("$7"); register long iarg4 __asm__("$8"); register long iarg5 __asm__("$9"); register long iarg6 __asm__("$10"); register long iarg7 __asm__("$11"); register float farg0 __asm__("$f12"); register float farg1 __asm__("$f13"); register float farg2 __asm__("$f14"); register float farg3 __asm__("$f15"); register float farg4 __asm__("$f16"); register float farg5 __asm__("$f17"); register float farg6 __asm__("$f18"); register float farg7 __asm__("$f19"); register double darg0 __asm__("$f12"); register double darg1 __asm__("$f13"); register double darg2 __asm__("$f14"); register double darg3 __asm__("$f15"); register double darg4 __asm__("$f16"); register double darg5 __asm__("$f17"); register double darg6 __asm__("$f18"); register double darg7 __asm__("$f19"); register long iret __asm__("$2"); register long iret2 __asm__("$3"); register float fret __asm__("$f0"); register float fret2 __asm__("$f2"); register double dret __asm__("$f0"); register double dret2 __asm__("$f2"); /* The ABI requires that the first 8 general-purpose argument words are being passed in registers, even if these words belong to a struct. No room is allocated for these register words on the stack by the caller, but the callee allocates room for them - at the right place in the stack frame, that is, above the usual {fp, retaddr} combo - if and only if they are part of a larger struct that extends to the stack and the address of this struct is taken. */ struct gpargsequence { __vaword word1; /* r4 */ __vaword word2; /* r5 */ __vaword word3; /* r6 */ __vaword word4; /* r7 */ __vaword word5; /* r8 */ __vaword word6; /* r9 */ __vaword word7; /* r10 */ __vaword word8; /* r11 */ __vaword firststackword; }; #ifdef REENTRANT static #endif void /* the return type is variable, not void! */ vacall_receiver (struct gpargsequence gpargs) { __va_alist list; list.darg[0] = darg0; list.darg[1] = darg1; list.darg[2] = darg2; list.darg[3] = darg3; list.darg[4] = darg4; list.darg[5] = darg5; list.darg[6] = darg6; list.darg[7] = darg7; list.farg[0] = farg0; list.farg[1] = farg1; list.farg[2] = farg2; list.farg[3] = farg3; list.farg[4] = farg4; list.farg[5] = farg5; list.farg[6] = farg6; list.farg[7] = farg7; /* Prepare the va_alist. */ list.flags = 0; list.aptr = (long)&gpargs; list.raddr = (void*)0; list.rtype = __VAvoid; list.anum = 0; /* Call vacall_function. The macros do all the rest. */ #ifndef REENTRANT (*vacall_function) (&list); #else /* REENTRANT */ (*env->vacall_function) (env->arg,&list); #endif /* Put return value into proper register. */ if (list.rtype == __VAvoid) { } else if (list.rtype == __VAchar) { iret = list.tmp._char; } else if (list.rtype == __VAschar) { iret = list.tmp._schar; } else if (list.rtype == __VAuchar) { iret = list.tmp._uchar; } else if (list.rtype == __VAshort) { iret = list.tmp._short; } else if (list.rtype == __VAushort) { iret = list.tmp._ushort; } else if (list.rtype == __VAint) { iret = list.tmp._int; } else if (list.rtype == __VAuint) { iret = list.tmp._uint; } else if (list.rtype == __VAlong) { iret = list.tmp._long; } else if (list.rtype == __VAulong) { iret = list.tmp._ulong; } else if (list.rtype == __VAlonglong) { iret = list.tmp._long; } else if (list.rtype == __VAulonglong) { iret = list.tmp._ulong; } else if (list.rtype == __VAfloat) { fret = list.tmp._float; } else if (list.rtype == __VAdouble) { dret = list.tmp._double; } else if (list.rtype == __VAvoidp) { iret = (long)list.tmp._ptr; } else if (list.rtype == __VAstruct) { if (list.flags & __VA_REGISTER_STRUCT_RETURN) { if (list.flags & __VA_GCC_STRUCT_RETURN) { /* gcc returns structs of size 1,2,4,8 in registers. */ if (list.rsize == sizeof(char)) { iret = *(unsigned char *) list.raddr; } else if (list.rsize == sizeof(short)) { iret = *(unsigned short *) list.raddr; } else if (list.rsize == sizeof(int)) { iret = *(unsigned int *) list.raddr; } else if (list.rsize == sizeof(long)) { iret = *(unsigned long *) list.raddr; } } else { /* cc returns structs of size <= 16 in registers. */ /* Maybe this big if cascade could be replaced with * if (list.rsize > 0 && list.rsize <= 16) * __asm__ ("ldl $2,%0 ; ldr $2,%1" * : : "m" (((unsigned char *) list.raddr)[0]), * "m" (((unsigned char *) list.raddr)[7])); */ if (list.rsize > 0 && list.rsize <= 16) { #if 0 /* Unoptimized */ if (list.rsize == 1) { #if defined(_MIPSEL) iret = (__vaword)((unsigned char *) list.raddr)[0]; #else iret = (__vaword)((unsigned char *) list.raddr)[0] << 56; #endif } else if (list.rsize == 2) { #if defined(_MIPSEL) iret = ((__vaword)((unsigned char *) list.raddr)[0]) | ((__vaword)((unsigned char *) list.raddr)[1] << 8); #else iret = ((__vaword)((unsigned char *) list.raddr)[0] << 56) | ((__vaword)((unsigned char *) list.raddr)[1] << 48); #endif } else if (list.rsize == 3) { #if defined(_MIPSEL) iret = ((__vaword)((unsigned char *) list.raddr)[0]) | ((__vaword)((unsigned char *) list.raddr)[1] << 8) | ((__vaword)((unsigned char *) list.raddr)[2] << 16); #else iret = ((__vaword)((unsigned char *) list.raddr)[0] << 56) | ((__vaword)((unsigned char *) list.raddr)[1] << 48) | ((__vaword)((unsigned char *) list.raddr)[2] << 40); #endif } else if (list.rsize == 4) { #if defined(_MIPSEL) iret = ((__vaword)((unsigned char *) list.raddr)[0]) | ((__vaword)((unsigned char *) list.raddr)[1] << 8) | ((__vaword)((unsigned char *) list.raddr)[2] << 16) | ((__vaword)((unsigned char *) list.raddr)[3] << 24); #else iret = ((__vaword)((unsigned char *) list.raddr)[0] << 56) | ((__vaword)((unsigned char *) list.raddr)[1] << 48) | ((__vaword)((unsigned char *) list.raddr)[2] << 40) | ((__vaword)((unsigned char *) list.raddr)[3] << 32); #endif } else if (list.rsize == 5) { #if defined(_MIPSEL) iret = ((__vaword)((unsigned char *) list.raddr)[0]) | ((__vaword)((unsigned char *) list.raddr)[1] << 8) | ((__vaword)((unsigned char *) list.raddr)[2] << 16) | ((__vaword)((unsigned char *) list.raddr)[3] << 24) | ((__vaword)((unsigned char *) list.raddr)[4] << 32); #else iret = ((__vaword)((unsigned char *) list.raddr)[0] << 56) | ((__vaword)((unsigned char *) list.raddr)[1] << 48) | ((__vaword)((unsigned char *) list.raddr)[2] << 40) | ((__vaword)((unsigned char *) list.raddr)[3] << 32) | ((__vaword)((unsigned char *) list.raddr)[4] << 24); #endif } else if (list.rsize == 6) { #if defined(_MIPSEL) iret = ((__vaword)((unsigned char *) list.raddr)[0]) | ((__vaword)((unsigned char *) list.raddr)[1] << 8) | ((__vaword)((unsigned char *) list.raddr)[2] << 16) | ((__vaword)((unsigned char *) list.raddr)[3] << 24) | ((__vaword)((unsigned char *) list.raddr)[4] << 32) | ((__vaword)((unsigned char *) list.raddr)[5] << 40); #else iret = ((__vaword)((unsigned char *) list.raddr)[0] << 56) | ((__vaword)((unsigned char *) list.raddr)[1] << 48) | ((__vaword)((unsigned char *) list.raddr)[2] << 40) | ((__vaword)((unsigned char *) list.raddr)[3] << 32) | ((__vaword)((unsigned char *) list.raddr)[4] << 24) | ((__vaword)((unsigned char *) list.raddr)[5] << 16); #endif } else if (list.rsize == 7) { #if defined(_MIPSEL) iret = ((__vaword)((unsigned char *) list.raddr)[0]) | ((__vaword)((unsigned char *) list.raddr)[1] << 8) | ((__vaword)((unsigned char *) list.raddr)[2] << 16) | ((__vaword)((unsigned char *) list.raddr)[3] << 24) | ((__vaword)((unsigned char *) list.raddr)[4] << 32) | ((__vaword)((unsigned char *) list.raddr)[5] << 40) | ((__vaword)((unsigned char *) list.raddr)[6] << 48); #else iret = ((__vaword)((unsigned char *) list.raddr)[0] << 56) | ((__vaword)((unsigned char *) list.raddr)[1] << 48) | ((__vaword)((unsigned char *) list.raddr)[2] << 40) | ((__vaword)((unsigned char *) list.raddr)[3] << 32) | ((__vaword)((unsigned char *) list.raddr)[4] << 24) | ((__vaword)((unsigned char *) list.raddr)[5] << 16) | ((__vaword)((unsigned char *) list.raddr)[6] << 8); #endif } else if (list.rsize >= 8 && list.rsize <= 16) { #if defined(_MIPSEL) iret = ((__vaword)((unsigned char *) list.raddr)[0]) | ((__vaword)((unsigned char *) list.raddr)[1] << 8) | ((__vaword)((unsigned char *) list.raddr)[2] << 16) | ((__vaword)((unsigned char *) list.raddr)[3] << 24) | ((__vaword)((unsigned char *) list.raddr)[4] << 32) | ((__vaword)((unsigned char *) list.raddr)[5] << 40) | ((__vaword)((unsigned char *) list.raddr)[6] << 48) | ((__vaword)((unsigned char *) list.raddr)[7] << 56); #else iret = ((__vaword)((unsigned char *) list.raddr)[0] << 56) | ((__vaword)((unsigned char *) list.raddr)[1] << 48) | ((__vaword)((unsigned char *) list.raddr)[2] << 40) | ((__vaword)((unsigned char *) list.raddr)[3] << 32) | ((__vaword)((unsigned char *) list.raddr)[4] << 24) | ((__vaword)((unsigned char *) list.raddr)[5] << 16) | ((__vaword)((unsigned char *) list.raddr)[6] << 8) | (__vaword)((unsigned char *) list.raddr)[7]; #endif /* Maybe this big if cascade could be replaced with * if (list.rsize > 8 && list.rsize <= 16) * __asm__ ("ldl $3,%0 ; ldr $3,%1" * : : "m" (((unsigned char *) list.raddr)[8]), * "m" (((unsigned char *) list.raddr)[15])); */ if (list.rsize == 8) { } else if (list.rsize == 9) { #if defined(_MIPSEL) iret2 = (__vaword)((unsigned char *) list.raddr)[8]; #else iret2 = (__vaword)((unsigned char *) list.raddr)[8] << 56; #endif } else if (list.rsize == 10) { #if defined(_MIPSEL) iret2 = ((__vaword)((unsigned char *) list.raddr)[8]) | ((__vaword)((unsigned char *) list.raddr)[9] << 8); #else iret2 = ((__vaword)((unsigned char *) list.raddr)[8] << 56) | ((__vaword)((unsigned char *) list.raddr)[9] << 48); #endif } else if (list.rsize == 11) { #if defined(_MIPSEL) iret2 = ((__vaword)((unsigned char *) list.raddr)[8]) | ((__vaword)((unsigned char *) list.raddr)[9] << 8) | ((__vaword)((unsigned char *) list.raddr)[10] << 16); #else iret2 = ((__vaword)((unsigned char *) list.raddr)[8] << 56) | ((__vaword)((unsigned char *) list.raddr)[9] << 48) | ((__vaword)((unsigned char *) list.raddr)[10] << 40); #endif } else if (list.rsize == 12) { #if defined(_MIPSEL) iret2 = ((__vaword)((unsigned char *) list.raddr)[8]) | ((__vaword)((unsigned char *) list.raddr)[9] << 8) | ((__vaword)((unsigned char *) list.raddr)[10] << 16) | ((__vaword)((unsigned char *) list.raddr)[11] << 24); #else iret2 = ((__vaword)((unsigned char *) list.raddr)[8] << 56) | ((__vaword)((unsigned char *) list.raddr)[9] << 48) | ((__vaword)((unsigned char *) list.raddr)[10] << 40) | ((__vaword)((unsigned char *) list.raddr)[11] << 32); #endif } else if (list.rsize == 13) { #if defined(_MIPSEL) iret2 = ((__vaword)((unsigned char *) list.raddr)[8]) | ((__vaword)((unsigned char *) list.raddr)[9] << 8) | ((__vaword)((unsigned char *) list.raddr)[10] << 16) | ((__vaword)((unsigned char *) list.raddr)[11] << 24) | ((__vaword)((unsigned char *) list.raddr)[12] << 32); #else iret2 = ((__vaword)((unsigned char *) list.raddr)[8] << 56) | ((__vaword)((unsigned char *) list.raddr)[9] << 48) | ((__vaword)((unsigned char *) list.raddr)[10] << 40) | ((__vaword)((unsigned char *) list.raddr)[11] << 32) | ((__vaword)((unsigned char *) list.raddr)[12] << 24); #endif } else if (list.rsize == 14) { #if defined(_MIPSEL) iret2 = ((__vaword)((unsigned char *) list.raddr)[8]) | ((__vaword)((unsigned char *) list.raddr)[9] << 8) | ((__vaword)((unsigned char *) list.raddr)[10] << 16) | ((__vaword)((unsigned char *) list.raddr)[11] << 24) | ((__vaword)((unsigned char *) list.raddr)[12] << 32) | ((__vaword)((unsigned char *) list.raddr)[13] << 40); #else iret2 = ((__vaword)((unsigned char *) list.raddr)[8] << 56) | ((__vaword)((unsigned char *) list.raddr)[9] << 48) | ((__vaword)((unsigned char *) list.raddr)[10] << 40) | ((__vaword)((unsigned char *) list.raddr)[11] << 32) | ((__vaword)((unsigned char *) list.raddr)[12] << 24) | ((__vaword)((unsigned char *) list.raddr)[13] << 16); #endif } else if (list.rsize == 15) { #if defined(_MIPSEL) iret2 = ((__vaword)((unsigned char *) list.raddr)[8]) | ((__vaword)((unsigned char *) list.raddr)[9] << 8) | ((__vaword)((unsigned char *) list.raddr)[10] << 16) | ((__vaword)((unsigned char *) list.raddr)[11] << 24) | ((__vaword)((unsigned char *) list.raddr)[12] << 32) | ((__vaword)((unsigned char *) list.raddr)[13] << 40) | ((__vaword)((unsigned char *) list.raddr)[14] << 48); #else iret2 = ((__vaword)((unsigned char *) list.raddr)[8] << 56) | ((__vaword)((unsigned char *) list.raddr)[9] << 48) | ((__vaword)((unsigned char *) list.raddr)[10] << 40) | ((__vaword)((unsigned char *) list.raddr)[11] << 32) | ((__vaword)((unsigned char *) list.raddr)[12] << 24) | ((__vaword)((unsigned char *) list.raddr)[13] << 16) | ((__vaword)((unsigned char *) list.raddr)[14] << 8); #endif } else if (list.rsize == 16) { #if defined(_MIPSEL) iret2 = ((__vaword)((unsigned char *) list.raddr)[8]) | ((__vaword)((unsigned char *) list.raddr)[9] << 8) | ((__vaword)((unsigned char *) list.raddr)[10] << 16) | ((__vaword)((unsigned char *) list.raddr)[11] << 24) | ((__vaword)((unsigned char *) list.raddr)[12] << 32) | ((__vaword)((unsigned char *) list.raddr)[13] << 40) | ((__vaword)((unsigned char *) list.raddr)[14] << 48) | ((__vaword)((unsigned char *) list.raddr)[15] << 56); #else iret2 = ((__vaword)((unsigned char *) list.raddr)[8] << 56) | ((__vaword)((unsigned char *) list.raddr)[9] << 48) | ((__vaword)((unsigned char *) list.raddr)[10] << 40) | ((__vaword)((unsigned char *) list.raddr)[11] << 32) | ((__vaword)((unsigned char *) list.raddr)[12] << 24) | ((__vaword)((unsigned char *) list.raddr)[13] << 16) | ((__vaword)((unsigned char *) list.raddr)[14] << 8) | (__vaword)((unsigned char *) list.raddr)[15]; #endif } } #else /* Optimized: fewer conditional jumps, fewer memory accesses */ uintptr_t count = list.rsize; /* > 0, ≤ 2*sizeof(__vaword) */ __vaword* wordaddr = (__vaword*)((uintptr_t)list.raddr & ~(uintptr_t)(sizeof(__vaword)-1)); uintptr_t start_offset = (uintptr_t)list.raddr & (uintptr_t)(sizeof(__vaword)-1); /* ≥ 0, < sizeof(__vaword) */ uintptr_t end_offset = start_offset + count; /* > 0, < 3*sizeof(__vaword) */ #if defined(_MIPSEL) if (count <= sizeof(__vaword)) { /* Assign iret. */ if (end_offset <= sizeof(__vaword)) { /* 0 < end_offset ≤ sizeof(__vaword) */ __vaword mask0 = ((__vaword)2 << (end_offset*8-1)) - 1; iret = (wordaddr[0] & mask0) >> (start_offset*8); } else { /* sizeof(__vaword) < end_offset < 2*sizeof(__vaword), start_offset > 0 */ __vaword mask1 = ((__vaword)2 << (end_offset*8-sizeof(__vaword)*8-1)) - 1; iret = (wordaddr[0] >> (start_offset*8)) | ((wordaddr[1] & mask1) << (sizeof(__vaword)*8-start_offset*8)); } } else { /* Assign iret, iret2. */ if (end_offset <= 2*sizeof(__vaword)) { /* sizeof(__vaword) < end_offset ≤ 2*sizeof(__vaword) */ __vaword mask1 = ((__vaword)2 << (end_offset*8-sizeof(__vaword)*8-1)) - 1; iret = (wordaddr[0] >> (start_offset*8)) | ((wordaddr[1] & mask1) << (sizeof(__vaword)*4-start_offset*4) << (sizeof(__vaword)*4-start_offset*4)); iret2 = (wordaddr[1] & mask1) >> (start_offset*8); } else { /* 2*sizeof(__vaword) < end_offset < 3*sizeof(__vaword), start_offset > 0 */ __vaword mask2 = ((__vaword)2 << (end_offset*8-2*sizeof(__vaword)*8-1)) - 1; iret = (wordaddr[0] >> (start_offset*8)) | (wordaddr[1] << (sizeof(__vaword)*8-start_offset*8)); iret2 = (wordaddr[1] >> (start_offset*8)) | ((wordaddr[2] & mask2) << (sizeof(__vaword)*8-start_offset*8)); } } #else if (count <= sizeof(__vaword)) { /* Assign iret. */ if (end_offset <= sizeof(__vaword)) { /* 0 < end_offset ≤ sizeof(__vaword) */ __vaword mask0 = - ((__vaword)1 << (sizeof(__vaword)*8-end_offset*8)); iret = (wordaddr[0] & mask0) << (start_offset*8); } else { /* sizeof(__vaword) < end_offset < 2*sizeof(__vaword), start_offset > 0 */ __vaword mask1 = - ((__vaword)1 << (2*sizeof(__vaword)*8-end_offset*8)); iret = (wordaddr[0] << (start_offset*8)) | ((wordaddr[1] & mask1) >> (sizeof(__vaword)*8-start_offset*8)); } } else { /* Assign iret, iret2. */ if (end_offset <= 2*sizeof(__vaword)) { /* sizeof(__vaword) < end_offset ≤ 2*sizeof(__vaword) */ __vaword mask1 = - ((__vaword)1 << (2*sizeof(__vaword)*8-end_offset*8)); iret = (wordaddr[0] << (start_offset*8)) | ((wordaddr[1] & mask1) >> (sizeof(__vaword)*4-start_offset*4) >> (sizeof(__vaword)*4-start_offset*4)); iret2 = (wordaddr[1] & mask1) << (start_offset*8); } else { /* 2*sizeof(__vaword) < end_offset < 3*sizeof(__vaword), start_offset > 0 */ __vaword mask2 = - ((__vaword)1 << (3*sizeof(__vaword)*8-end_offset*8)); iret = (wordaddr[0] << (start_offset*8)) | (wordaddr[1] >> (sizeof(__vaword)*8-start_offset*8)); iret2 = (wordaddr[1] << (start_offset*8)) | ((wordaddr[2] & mask2) >> (sizeof(__vaword)*8-start_offset*8)); } } #endif #endif } if (list.flags & __VA_REGISTER_FLOATSTRUCT_RETURN) { if (list.rsize == sizeof(float)) { fret = *(float*)list.raddr; } else if (list.rsize == 2*sizeof(float)) { fret = *(float*)list.raddr; fret2 = *(float*)((char*)list.raddr + 4); } } if (list.flags & __VA_REGISTER_DOUBLESTRUCT_RETURN) { if (list.rsize == sizeof(double)) { dret = *(double*)list.raddr; } else if (list.rsize == 2*sizeof(double)) { dret = *(double*)list.raddr; dret2 = *(double*)((char*)list.raddr + 8); } } } } } } #ifdef REENTRANT __vacall_r_t callback_get_receiver (void) { return (__vacall_r_t)(void*)&callback_receiver; } #endif libffcall-2.2/vacall/vacall-ia64.c0000664000000000000000000003051013347755335013613 00000000000000/* vacall function for ia64 CPU */ /* * Copyright 1995-2017 Bruno Haible * * This program is free software: you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by * the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program. If not, see . */ #include "vacall-internal.h" #ifdef REENTRANT #define vacall_receiver callback_receiver register struct { void (*vacall_function) (void*,va_alist); void* arg; } * env __asm__("r15"); #endif register double farg1 __asm__("f8"); register double farg2 __asm__("f9"); register double farg3 __asm__("f10"); register double farg4 __asm__("f11"); register double farg5 __asm__("f12"); register double farg6 __asm__("f13"); register double farg7 __asm__("f14"); register double farg8 __asm__("f15"); register __vaword* sret __asm__("r8"); register __vaword iret __asm__("r8"); register __vaword iret2 __asm__("r9"); register __vaword iret3 __asm__("r10"); register __vaword iret4 __asm__("r11"); register float fret __asm__("f8"); register double dret __asm__("f8"); /* The ABI requires that the first 8 general-purpose argument words are being passed in registers, even if these words belong to a struct. No room is allocated for these register words on the stack by the caller, but the callee allocates room for them - at the right place in the stack frame, that is, above the usual {fp, retaddr} combo - if and only if they are part of a larger struct that extends to the stack and the address of this struct is taken. */ struct gpargsequence { __vaword word1; /* r32 */ __vaword word2; /* r33 */ __vaword word3; /* r34 */ __vaword word4; /* r35 */ __vaword word5; /* r36 */ __vaword word6; /* r37 */ __vaword word7; /* r38 */ __vaword word8; /* r39 */ __vaword firststackword; }; #ifdef REENTRANT static #endif void /* the return type is variable, not void! */ vacall_receiver (struct gpargsequence gpargs) { __va_alist list; /* Move the arguments passed in registers to their stack locations. */ list.farg[0] = farg1; list.farg[1] = farg2; list.farg[2] = farg3; list.farg[3] = farg4; list.farg[4] = farg5; list.farg[5] = farg6; list.farg[6] = farg7; list.farg[7] = farg8; /* Prepare the va_alist. */ list.flags = 0; list.aptr = (long)&gpargs; list.saptr = (__vaword*)&gpargs; list.fanum = 0; list.raddr = (void*)0; list.rtype = __VAvoid; list.structraddr = sret; /* Call vacall_function. The macros do all the rest. */ #ifndef REENTRANT (*vacall_function) (&list); #else /* REENTRANT */ (*env->vacall_function) (env->arg,&list); #endif /* Put return value into proper register. */ if (list.rtype == __VAvoid) { } else if (list.rtype == __VAchar) { iret = list.tmp._char; } else if (list.rtype == __VAschar) { iret = list.tmp._schar; } else if (list.rtype == __VAuchar) { iret = list.tmp._uchar; } else if (list.rtype == __VAshort) { iret = list.tmp._short; } else if (list.rtype == __VAushort) { iret = list.tmp._ushort; } else if (list.rtype == __VAint) { iret = list.tmp._int; } else if (list.rtype == __VAuint) { iret = list.tmp._uint; } else if (list.rtype == __VAlong) { iret = list.tmp._long; } else if (list.rtype == __VAulong) { iret = list.tmp._ulong; } else if (list.rtype == __VAlonglong) { iret = list.tmp._long; } else if (list.rtype == __VAulonglong) { iret = list.tmp._ulong; } else if (list.rtype == __VAfloat) { fret = list.tmp._float; } else if (list.rtype == __VAdouble) { dret = list.tmp._double; } else if (list.rtype == __VAvoidp) { iret = (long)list.tmp._ptr; } else if (list.rtype == __VAstruct) { if (list.flags & __VA_REGISTER_STRUCT_RETURN) { /* Return structs of size <= 32 in registers. */ if (list.rsize > 0 && list.rsize <= 32) { #if 0 /* Unoptimized */ iret = (__vaword)((unsigned char *) list.raddr)[0]; if (list.rsize >= 2) iret |= (__vaword)((unsigned char *) list.raddr)[1] << 8; if (list.rsize >= 3) iret |= (__vaword)((unsigned char *) list.raddr)[2] << 16; if (list.rsize >= 4) iret |= (__vaword)((unsigned char *) list.raddr)[3] << 24; if (list.rsize >= 5) iret |= (__vaword)((unsigned char *) list.raddr)[4] << 32; if (list.rsize >= 6) iret |= (__vaword)((unsigned char *) list.raddr)[5] << 40; if (list.rsize >= 7) iret |= (__vaword)((unsigned char *) list.raddr)[6] << 48; if (list.rsize >= 8) iret |= (__vaword)((unsigned char *) list.raddr)[7] << 56; if (list.rsize >= 9) { iret2 = (__vaword)((unsigned char *) list.raddr)[8]; if (list.rsize >= 10) iret2 |= (__vaword)((unsigned char *) list.raddr)[9] << 8; if (list.rsize >= 11) iret2 |= (__vaword)((unsigned char *) list.raddr)[10] << 16; if (list.rsize >= 12) iret2 |= (__vaword)((unsigned char *) list.raddr)[11] << 24; if (list.rsize >= 13) iret2 |= (__vaword)((unsigned char *) list.raddr)[12] << 32; if (list.rsize >= 14) iret2 |= (__vaword)((unsigned char *) list.raddr)[13] << 40; if (list.rsize >= 15) iret2 |= (__vaword)((unsigned char *) list.raddr)[14] << 48; if (list.rsize >= 16) iret2 |= (__vaword)((unsigned char *) list.raddr)[15] << 56; if (list.rsize >= 17) { iret3 = (__vaword)((unsigned char *) list.raddr)[16]; if (list.rsize >= 18) iret3 |= (__vaword)((unsigned char *) list.raddr)[17] << 8; if (list.rsize >= 19) iret3 |= (__vaword)((unsigned char *) list.raddr)[18] << 16; if (list.rsize >= 20) iret3 |= (__vaword)((unsigned char *) list.raddr)[19] << 24; if (list.rsize >= 21) iret3 |= (__vaword)((unsigned char *) list.raddr)[20] << 32; if (list.rsize >= 22) iret3 |= (__vaword)((unsigned char *) list.raddr)[21] << 40; if (list.rsize >= 23) iret3 |= (__vaword)((unsigned char *) list.raddr)[22] << 48; if (list.rsize >= 24) iret3 |= (__vaword)((unsigned char *) list.raddr)[23] << 56; if (list.rsize >= 25) { iret4 = (__vaword)((unsigned char *) list.raddr)[24]; if (list.rsize >= 26) iret4 |= (__vaword)((unsigned char *) list.raddr)[25] << 8; if (list.rsize >= 27) iret4 |= (__vaword)((unsigned char *) list.raddr)[26] << 16; if (list.rsize >= 28) iret4 |= (__vaword)((unsigned char *) list.raddr)[27] << 24; if (list.rsize >= 29) iret4 |= (__vaword)((unsigned char *) list.raddr)[28] << 32; if (list.rsize >= 30) iret4 |= (__vaword)((unsigned char *) list.raddr)[29] << 40; if (list.rsize >= 31) iret4 |= (__vaword)((unsigned char *) list.raddr)[30] << 48; if (list.rsize >= 32) iret4 |= (__vaword)((unsigned char *) list.raddr)[31] << 56; } } } #else /* Optimized: fewer conditional jumps, fewer memory accesses */ uintptr_t count = list.rsize; /* > 0, ≤ 4*sizeof(__vaword) */ __vaword* wordaddr = (__vaword*)((uintptr_t)list.raddr & ~(uintptr_t)(sizeof(__vaword)-1)); uintptr_t start_offset = (uintptr_t)list.raddr & (uintptr_t)(sizeof(__vaword)-1); /* ≥ 0, < sizeof(__vaword) */ uintptr_t end_offset = start_offset + count; /* > 0, < 5*sizeof(__vaword) */ if (count <= sizeof(__vaword)) { /* Assign iret. */ if (end_offset <= sizeof(__vaword)) { /* 0 < end_offset ≤ sizeof(__vaword) */ __vaword mask0 = ((__vaword)2 << (end_offset*8-1)) - 1; iret = (wordaddr[0] & mask0) >> (start_offset*8); } else { /* sizeof(__vaword) < end_offset < 2*sizeof(__vaword), start_offset > 0 */ __vaword mask1 = ((__vaword)2 << (end_offset*8-sizeof(__vaword)*8-1)) - 1; iret = (wordaddr[0] >> (start_offset*8)) | ((wordaddr[1] & mask1) << (sizeof(__vaword)*8-start_offset*8)); } } else if (count <= 2*sizeof(__vaword)) { /* Assign iret, iret2. */ if (end_offset <= 2*sizeof(__vaword)) { /* sizeof(__vaword) < end_offset ≤ 2*sizeof(__vaword) */ __vaword mask1 = ((__vaword)2 << (end_offset*8-sizeof(__vaword)*8-1)) - 1; iret = (wordaddr[0] >> (start_offset*8)) | ((wordaddr[1] & mask1) << (sizeof(__vaword)*4-start_offset*4) << (sizeof(__vaword)*4-start_offset*4)); iret2 = (wordaddr[1] & mask1) >> (start_offset*8); } else { /* 2*sizeof(__vaword) < end_offset < 3*sizeof(__vaword), start_offset > 0 */ __vaword mask2 = ((__vaword)2 << (end_offset*8-2*sizeof(__vaword)*8-1)) - 1; iret = (wordaddr[0] >> (start_offset*8)) | (wordaddr[1] << (sizeof(__vaword)*8-start_offset*8)); iret2 = (wordaddr[1] >> (start_offset*8)) | ((wordaddr[2] & mask2) << (sizeof(__vaword)*8-start_offset*8)); } } else if (count <= 3*sizeof(__vaword)) { /* Assign iret, iret2, iret3. */ if (end_offset <= 3*sizeof(__vaword)) { /* 2*sizeof(__vaword) < end_offset ≤ 3*sizeof(__vaword) */ __vaword mask2 = ((__vaword)2 << (end_offset*8-sizeof(__vaword)*8-1)) - 1; iret = (wordaddr[0] >> (start_offset*8)) | (wordaddr[1] << (sizeof(__vaword)*4-start_offset*4) << (sizeof(__vaword)*4-start_offset*4)); iret2 = (wordaddr[1] >> (start_offset*8)) | ((wordaddr[2] & mask2) << (sizeof(__vaword)*4-start_offset*4) << (sizeof(__vaword)*4-start_offset*4)); iret3 = (wordaddr[2] & mask2) >> (start_offset*8); } else { /* 3*sizeof(__vaword) < end_offset < 4*sizeof(__vaword), start_offset > 0 */ __vaword mask3 = ((__vaword)2 << (end_offset*8-2*sizeof(__vaword)*8-1)) - 1; iret = (wordaddr[0] >> (start_offset*8)) | (wordaddr[1] << (sizeof(__vaword)*8-start_offset*8)); iret2 = (wordaddr[1] >> (start_offset*8)) | (wordaddr[2] << (sizeof(__vaword)*8-start_offset*8)); iret3 = (wordaddr[2] >> (start_offset*8)) | ((wordaddr[3] & mask3) << (sizeof(__vaword)*8-start_offset*8)); } } else { /* Assign iret, iret2, iret3, iret4. */ if (end_offset <= 4*sizeof(__vaword)) { /* 3*sizeof(__vaword) < end_offset ≤ 4*sizeof(__vaword) */ __vaword mask3 = ((__vaword)2 << (end_offset*8-sizeof(__vaword)*8-1)) - 1; iret = (wordaddr[0] >> (start_offset*8)) | (wordaddr[1] << (sizeof(__vaword)*4-start_offset*4) << (sizeof(__vaword)*4-start_offset*4)); iret2 = (wordaddr[1] >> (start_offset*8)) | (wordaddr[2] << (sizeof(__vaword)*4-start_offset*4) << (sizeof(__vaword)*4-start_offset*4)); iret3 = (wordaddr[2] >> (start_offset*8)) | ((wordaddr[3] & mask3) << (sizeof(__vaword)*4-start_offset*4) << (sizeof(__vaword)*4-start_offset*4)); iret4 = (wordaddr[3] & mask3) >> (start_offset*8); } else { /* 4*sizeof(__vaword) < end_offset < 5*sizeof(__vaword), start_offset > 0 */ __vaword mask4 = ((__vaword)2 << (end_offset*8-2*sizeof(__vaword)*8-1)) - 1; iret = (wordaddr[0] >> (start_offset*8)) | (wordaddr[1] << (sizeof(__vaword)*8-start_offset*8)); iret2 = (wordaddr[1] >> (start_offset*8)) | (wordaddr[2] << (sizeof(__vaword)*8-start_offset*8)); iret3 = (wordaddr[2] >> (start_offset*8)) | (wordaddr[3] << (sizeof(__vaword)*8-start_offset*8)); iret4 = (wordaddr[3] >> (start_offset*8)) | ((wordaddr[4] & mask4) << (sizeof(__vaword)*8-start_offset*8)); } } #endif } } } } #ifdef REENTRANT __vacall_r_t callback_get_receiver (void) { return (__vacall_r_t)(void*)&callback_receiver; } #endif libffcall-2.2/vacall/vacall-powerpc-linux-macro.S0000664000000000000000000000366213530357112016734 00000000000000 .file "vacall-powerpc.c" .section ".text" .align 2 .globl vacall_receiver .type vacall_receiver, @function vacall_receiver: .extern __mulh .extern __mull .extern __divss .extern __divus .extern __quoss .extern __quous stwu 1,-176(1) mflr 0 li 11,0 stw 0,180(1) stw 31,172(1) mr 31,1 stw 9,76(31) addi 0,31,184 lis 9,vacall_function@ha stw 3,52(31) lwz 9,vacall_function@l(9) addi 3,31,16 stw 5,60(31) mtctr 9 stw 6,64(31) stw 7,68(31) stw 8,72(31) stw 10,80(31) stw 0,32(31) stw 11,84(31) stw 4,56(31) stfd 1,88(31) stfd 2,96(31) stfd 3,104(31) stfd 4,112(31) stfd 5,120(31) stfd 6,128(31) stfd 7,136(31) stfd 8,144(31) stw 11,16(31) stw 11,48(31) stw 11,36(31) stw 11,40(31) bctrl lwz 9,40(31) cmpwi 0,9,0 beq- 0,.L1 cmpwi 0,9,1 beq- 0,.L41 cmpwi 0,9,2 beq- 0,.L42 cmpwi 0,9,3 beq- 0,.L41 cmpwi 0,9,4 beq- 0,.L43 cmpwi 0,9,5 beq- 0,.L44 cmpwi 0,9,6 beq- 0,.L40 cmpwi 0,9,7 beq- 0,.L40 cmpwi 0,9,8 beq- 0,.L40 cmpwi 0,9,9 beq- 0,.L40 addi 0,9,-10 cmplwi 0,0,1 bgt- 0,.L22 lwz 3,24(31) lwz 4,28(31) .L1: lwz 11,0(1) lwz 0,4(11) lwz 31,-4(11) mtlr 0 mr 1,11 blr .L22: cmpwi 0,9,12 beq- 0,.L45 cmpwi 0,9,13 beq- 0,.L46 cmpwi 0,9,14 beq- 0,.L40 cmpwi 0,9,15 bne+ 0,.L1 lwz 0,16(31) andi. 9,0,1024 beq- 0,.L1 lwz 0,44(31) cmpwi 0,0,1 beq- 0,.L47 cmpwi 0,0,2 beq- 0,.L48 cmpwi 0,0,4 beq- 0,.L49 cmpwi 0,0,8 bne+ 0,.L1 lwz 9,36(31) lwz 4,4(9) .L39: lwz 3,0(9) b .L1 .L49: lwz 9,36(31) b .L39 .L48: lwz 9,36(31) lhz 3,0(9) b .L1 .L47: lwz 9,36(31) lbz 3,0(9) b .L1 .L40: lwz 3,24(31) b .L1 .L46: lfd 1,24(31) b .L1 .L45: lfs 1,24(31) b .L1 .L44: lhz 3,24(31) b .L1 .L43: lha 3,24(31) b .L1 .L41: lbz 3,24(31) b .L1 .L42: lbz 0,24(31) slwi 0,0,24 srawi 3,0,24 b .L1 .size vacall_receiver, .-vacall_receiver #if defined __linux__ || defined __FreeBSD__ || defined __FreeBSD_kernel__ || defined __DragonFly__ .section .note.GNU-stack,"",@progbits #endif libffcall-2.2/vacall/vacall-sparc.c0000664000000000000000000001110713347755341014156 00000000000000/* vacall function for sparc CPU */ /* * Copyright 1995-2017 Bruno Haible * * This program is free software: you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by * the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program. If not, see . */ #include "vacall-internal.h" #ifdef REENTRANT #define vacall_receiver callback_receiver register struct { void (*vacall_function) (void*,va_alist); void* arg; } * env __asm__("%g2"); #endif register __vaword* fp __asm__("%fp"); /* our %fp, caller's %sp */ register __vaword* ret __asm__("%i7"); /* %i7+8 = return address */ register int iret __asm__("%i0"); register int iret2 __asm__("%i1"); register float fret __asm__("%f0"); /* %f0 */ register double dret __asm__("%f0"); /* %f0,%f1 */ void /* the return type is variable, not void! */ vacall_receiver (__vaword word1, __vaword word2, __vaword word3, __vaword word4, __vaword word5, __vaword word6, __vaword firstword) { __va_alist list; /* gcc-2.6.3 source says: When a parameter is passed in a register, * stack space is still allocated for it. */ /* Move the arguments passed in registers to their stack locations. */ (&firstword)[-6] = word1; (&firstword)[-5] = word2; (&firstword)[-4] = word3; (&firstword)[-3] = word4; (&firstword)[-2] = word5; (&firstword)[-1] = word6; /* Prepare the va_alist. */ list.flags = 0; list.aptr = (long)(&firstword - 6); list.raddr = (void*)0; list.rtype = __VAvoid; list.structraddr = (void*)((&firstword)[-7]); /* = (void*) fp[16] */ /* Call vacall_function. The macros do all the rest. */ #ifndef REENTRANT (*vacall_function) (&list); #else /* REENTRANT */ (*env->vacall_function) (env->arg,&list); #endif /* Put return value into proper register. */ if (list.rtype == __VAvoid) { } else if (list.rtype == __VAchar) { iret = list.tmp._char; } else if (list.rtype == __VAschar) { iret = list.tmp._schar; } else if (list.rtype == __VAuchar) { iret = list.tmp._uchar; } else if (list.rtype == __VAshort) { iret = list.tmp._short; } else if (list.rtype == __VAushort) { iret = list.tmp._ushort; } else if (list.rtype == __VAint) { iret = list.tmp._int; } else if (list.rtype == __VAuint) { iret = list.tmp._uint; } else if (list.rtype == __VAlong) { iret = list.tmp._long; } else if (list.rtype == __VAulong) { iret = list.tmp._ulong; } else if (list.rtype == __VAlonglong || list.rtype == __VAulonglong) { iret = ((__vaword *) &list.tmp._longlong)[0]; iret2 = ((__vaword *) &list.tmp._longlong)[1]; } else if (list.rtype == __VAfloat) { if (list.flags & __VA_SUNCC_FLOAT_RETURN) { dret = (double)list.tmp._float; } else { fret = list.tmp._float; } } else if (list.rtype == __VAdouble) { dret = list.tmp._double; } else if (list.rtype == __VAvoidp) { iret = (long)list.tmp._ptr; } else if (list.rtype == __VAstruct) { if (list.flags & __VA_SUNPROCC_STRUCT_RETURN) { /* Sun cc struct return convention. */ /* The desired struct return address was passed in fp[16], later on * list.raddr = list.structraddr = fp[16]. Now the result has * already been copied there. No need to copy the result once more. * The caller expects to receive the struct return address in %o0. */ iret = (long) list.raddr; if ((list.rsize & 0xfff) == ret[2]) ret++; /* skip the "unimp n" instruction at the return address */ /* else the "unimp n" instruction will cause a core dump */ } else { /* normal struct return convention */ if (list.flags & __VA_SMALL_STRUCT_RETURN) { if (list.rsize == sizeof(char)) { iret = *(unsigned char *) list.raddr; goto done; } else if (list.rsize == sizeof(short)) { iret = *(unsigned short *) list.raddr; goto done; } else if (list.rsize == sizeof(int)) { iret = *(unsigned int *) list.raddr; goto done; } } ret++; /* skip the "unimp n" instruction at the return address */ done: ; } } } libffcall-2.2/vacall/vacall-mipsn32.c0000664000000000000000000005575113347755337014363 00000000000000/* vacall function for mips CPU */ /* * Copyright 1995-2017 Bruno Haible * * This program is free software: you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by * the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program. If not, see . */ #include "vacall-internal.h" #ifndef REENTRANT typedef void (*func_pointer)(va_alist); #else /* REENTRANT */ #define vacall_receiver callback_receiver typedef void (*func_pointer)(void*,va_alist); register struct { func_pointer vacall_function; void* arg; } * env __asm__("$2"); #endif register void* sp __asm__("$sp"); register __vaword iarg0 __asm__("$4"); register __vaword iarg1 __asm__("$5"); register __vaword iarg2 __asm__("$6"); register __vaword iarg3 __asm__("$7"); register __vaword iarg4 __asm__("$8"); register __vaword iarg5 __asm__("$9"); register __vaword iarg6 __asm__("$10"); register __vaword iarg7 __asm__("$11"); register float farg0 __asm__("$f12"); register float farg1 __asm__("$f13"); register float farg2 __asm__("$f14"); register float farg3 __asm__("$f15"); register float farg4 __asm__("$f16"); register float farg5 __asm__("$f17"); register float farg6 __asm__("$f18"); register float farg7 __asm__("$f19"); register double darg0 __asm__("$f12"); register double darg1 __asm__("$f13"); register double darg2 __asm__("$f14"); register double darg3 __asm__("$f15"); register double darg4 __asm__("$f16"); register double darg5 __asm__("$f17"); register double darg6 __asm__("$f18"); register double darg7 __asm__("$f19"); register __vaword iret __asm__("$2"); register __vaword iret2 __asm__("$3"); register float fret __asm__("$f0"); register float fret2 __asm__("$f2"); register double dret __asm__("$f0"); register double dret2 __asm__("$f2"); /* The ABI requires that the first 8 general-purpose argument words are being passed in registers, even if these words belong to a struct. No room is allocated for these register words on the stack by the caller, but the callee allocates room for them - at the right place in the stack frame, that is, above the usual {fp, retaddr} combo - if and only if they are part of a larger struct that extends to the stack and the address of this struct is taken. */ struct gpargsequence { __vaword word1; /* r4 */ __vaword word2; /* r5 */ __vaword word3; /* r6 */ __vaword word4; /* r7 */ __vaword word5; /* r8 */ __vaword word6; /* r9 */ __vaword word7; /* r10 */ __vaword word8; /* r11 */ __vaword firststackword; }; #ifdef REENTRANT static #endif void /* the return type is variable, not void! */ vacall_receiver (struct gpargsequence gpargs) { __va_alist list; list.darg[0] = darg0; list.darg[1] = darg1; list.darg[2] = darg2; list.darg[3] = darg3; list.darg[4] = darg4; list.darg[5] = darg5; list.darg[6] = darg6; list.darg[7] = darg7; list.farg[0] = farg0; list.farg[1] = farg1; list.farg[2] = farg2; list.farg[3] = farg3; list.farg[4] = farg4; list.farg[5] = farg5; list.farg[6] = farg6; list.farg[7] = farg7; /* Prepare the va_alist. */ list.flags = 0; list.aptr = (long)&gpargs; list.raddr = (void*)0; list.rtype = __VAvoid; list.anum = 0; /* Call vacall_function. The macros do all the rest. */ #ifndef REENTRANT (*vacall_function) (&list); #else /* REENTRANT */ (*env->vacall_function) (env->arg,&list); #endif /* Put return value into proper register. */ if (list.rtype == __VAvoid) { } else if (list.rtype == __VAchar) { iret = list.tmp._char; } else if (list.rtype == __VAschar) { iret = list.tmp._schar; } else if (list.rtype == __VAuchar) { iret = list.tmp._uchar; } else if (list.rtype == __VAshort) { iret = list.tmp._short; } else if (list.rtype == __VAushort) { iret = list.tmp._ushort; } else if (list.rtype == __VAint) { iret = list.tmp._int; } else if (list.rtype == __VAuint) { iret = list.tmp._uint; } else if (list.rtype == __VAlong) { iret = list.tmp._long; } else if (list.rtype == __VAulong) { iret = list.tmp._ulong; } else if (list.rtype == __VAlonglong) { iret = list.tmp._longlong; } else if (list.rtype == __VAulonglong) { iret = list.tmp._ulonglong; } else if (list.rtype == __VAfloat) { fret = list.tmp._float; } else if (list.rtype == __VAdouble) { dret = list.tmp._double; } else if (list.rtype == __VAvoidp) { iret = (long)list.tmp._ptr; } else if (list.rtype == __VAstruct) { if (list.flags & __VA_REGISTER_STRUCT_RETURN) { if (list.flags & __VA_GCC_STRUCT_RETURN) { /* gcc returns structs of size 1,2,4,8 in registers. */ if (list.rsize == sizeof(char)) { iret = *(unsigned char *) list.raddr; } else if (list.rsize == sizeof(short)) { iret = *(unsigned short *) list.raddr; } else if (list.rsize == sizeof(int)) { iret = *(unsigned int *) list.raddr; } else if (list.rsize == sizeof(long long)) { iret = *(unsigned long long *) list.raddr; } } else { /* cc returns structs of size <= 16 in registers. */ /* Maybe this big if cascade could be replaced with * if (list.rsize > 0 && list.rsize <= 16) * __asm__ ("ldl $2,%0 ; ldr $2,%1" * : : "m" (((unsigned char *) list.raddr)[0]), * "m" (((unsigned char *) list.raddr)[7])); */ if (list.rsize > 0 && list.rsize <= 16) { #if 0 /* Unoptimized */ if (list.rsize == 1) { #if defined(_MIPSEL) iret = (__vaword)((unsigned char *) list.raddr)[0]; #else iret = (__vaword)((unsigned char *) list.raddr)[0] << 56; #endif } else if (list.rsize == 2) { #if defined(_MIPSEL) iret = ((__vaword)((unsigned char *) list.raddr)[0]) | ((__vaword)((unsigned char *) list.raddr)[1] << 8); #else iret = ((__vaword)((unsigned char *) list.raddr)[0] << 56) | ((__vaword)((unsigned char *) list.raddr)[1] << 48); #endif } else if (list.rsize == 3) { #if defined(_MIPSEL) iret = ((__vaword)((unsigned char *) list.raddr)[0]) | ((__vaword)((unsigned char *) list.raddr)[1] << 8) | ((__vaword)((unsigned char *) list.raddr)[2] << 16); #else iret = ((__vaword)((unsigned char *) list.raddr)[0] << 56) | ((__vaword)((unsigned char *) list.raddr)[1] << 48) | ((__vaword)((unsigned char *) list.raddr)[2] << 40); #endif } else if (list.rsize == 4) { #if defined(_MIPSEL) iret = ((__vaword)((unsigned char *) list.raddr)[0]) | ((__vaword)((unsigned char *) list.raddr)[1] << 8) | ((__vaword)((unsigned char *) list.raddr)[2] << 16) | ((__vaword)((unsigned char *) list.raddr)[3] << 24); #else iret = ((__vaword)((unsigned char *) list.raddr)[0] << 56) | ((__vaword)((unsigned char *) list.raddr)[1] << 48) | ((__vaword)((unsigned char *) list.raddr)[2] << 40) | ((__vaword)((unsigned char *) list.raddr)[3] << 32); #endif } else if (list.rsize == 5) { #if defined(_MIPSEL) iret = ((__vaword)((unsigned char *) list.raddr)[0]) | ((__vaword)((unsigned char *) list.raddr)[1] << 8) | ((__vaword)((unsigned char *) list.raddr)[2] << 16) | ((__vaword)((unsigned char *) list.raddr)[3] << 24) | ((__vaword)((unsigned char *) list.raddr)[4] << 32); #else iret = ((__vaword)((unsigned char *) list.raddr)[0] << 56) | ((__vaword)((unsigned char *) list.raddr)[1] << 48) | ((__vaword)((unsigned char *) list.raddr)[2] << 40) | ((__vaword)((unsigned char *) list.raddr)[3] << 32) | ((__vaword)((unsigned char *) list.raddr)[4] << 24); #endif } else if (list.rsize == 6) { #if defined(_MIPSEL) iret = ((__vaword)((unsigned char *) list.raddr)[0]) | ((__vaword)((unsigned char *) list.raddr)[1] << 8) | ((__vaword)((unsigned char *) list.raddr)[2] << 16) | ((__vaword)((unsigned char *) list.raddr)[3] << 24) | ((__vaword)((unsigned char *) list.raddr)[4] << 32) | ((__vaword)((unsigned char *) list.raddr)[5] << 40); #else iret = ((__vaword)((unsigned char *) list.raddr)[0] << 56) | ((__vaword)((unsigned char *) list.raddr)[1] << 48) | ((__vaword)((unsigned char *) list.raddr)[2] << 40) | ((__vaword)((unsigned char *) list.raddr)[3] << 32) | ((__vaword)((unsigned char *) list.raddr)[4] << 24) | ((__vaword)((unsigned char *) list.raddr)[5] << 16); #endif } else if (list.rsize == 7) { #if defined(_MIPSEL) iret = ((__vaword)((unsigned char *) list.raddr)[0]) | ((__vaword)((unsigned char *) list.raddr)[1] << 8) | ((__vaword)((unsigned char *) list.raddr)[2] << 16) | ((__vaword)((unsigned char *) list.raddr)[3] << 24) | ((__vaword)((unsigned char *) list.raddr)[4] << 32) | ((__vaword)((unsigned char *) list.raddr)[5] << 40) | ((__vaword)((unsigned char *) list.raddr)[6] << 48); #else iret = ((__vaword)((unsigned char *) list.raddr)[0] << 56) | ((__vaword)((unsigned char *) list.raddr)[1] << 48) | ((__vaword)((unsigned char *) list.raddr)[2] << 40) | ((__vaword)((unsigned char *) list.raddr)[3] << 32) | ((__vaword)((unsigned char *) list.raddr)[4] << 24) | ((__vaword)((unsigned char *) list.raddr)[5] << 16) | ((__vaword)((unsigned char *) list.raddr)[6] << 8); #endif } else if (list.rsize >= 8 && list.rsize <= 16) { #if defined(_MIPSEL) iret = ((__vaword)((unsigned char *) list.raddr)[0]) | ((__vaword)((unsigned char *) list.raddr)[1] << 8) | ((__vaword)((unsigned char *) list.raddr)[2] << 16) | ((__vaword)((unsigned char *) list.raddr)[3] << 24) | ((__vaword)((unsigned char *) list.raddr)[4] << 32) | ((__vaword)((unsigned char *) list.raddr)[5] << 40) | ((__vaword)((unsigned char *) list.raddr)[6] << 48) | ((__vaword)((unsigned char *) list.raddr)[7] << 56); #else iret = ((__vaword)((unsigned char *) list.raddr)[0] << 56) | ((__vaword)((unsigned char *) list.raddr)[1] << 48) | ((__vaword)((unsigned char *) list.raddr)[2] << 40) | ((__vaword)((unsigned char *) list.raddr)[3] << 32) | ((__vaword)((unsigned char *) list.raddr)[4] << 24) | ((__vaword)((unsigned char *) list.raddr)[5] << 16) | ((__vaword)((unsigned char *) list.raddr)[6] << 8) | (__vaword)((unsigned char *) list.raddr)[7]; #endif /* Maybe this big if cascade could be replaced with * if (list.rsize > 8 && list.rsize <= 16) * __asm__ ("ldl $3,%0 ; ldr $3,%1" * : : "m" (((unsigned char *) list.raddr)[8]), * "m" (((unsigned char *) list.raddr)[15])); */ if (list.rsize == 8) { } else if (list.rsize == 9) { #if defined(_MIPSEL) iret2 = (__vaword)((unsigned char *) list.raddr)[8]; #else iret2 = (__vaword)((unsigned char *) list.raddr)[8] << 56; #endif } else if (list.rsize == 10) { #if defined(_MIPSEL) iret2 = ((__vaword)((unsigned char *) list.raddr)[8]) | ((__vaword)((unsigned char *) list.raddr)[9] << 8); #else iret2 = ((__vaword)((unsigned char *) list.raddr)[8] << 56) | ((__vaword)((unsigned char *) list.raddr)[9] << 48); #endif } else if (list.rsize == 11) { #if defined(_MIPSEL) iret2 = ((__vaword)((unsigned char *) list.raddr)[8]) | ((__vaword)((unsigned char *) list.raddr)[9] << 8) | ((__vaword)((unsigned char *) list.raddr)[10] << 16); #else iret2 = ((__vaword)((unsigned char *) list.raddr)[8] << 56) | ((__vaword)((unsigned char *) list.raddr)[9] << 48) | ((__vaword)((unsigned char *) list.raddr)[10] << 40); #endif } else if (list.rsize == 12) { #if defined(_MIPSEL) iret2 = ((__vaword)((unsigned char *) list.raddr)[8]) | ((__vaword)((unsigned char *) list.raddr)[9] << 8) | ((__vaword)((unsigned char *) list.raddr)[10] << 16) | ((__vaword)((unsigned char *) list.raddr)[11] << 24); #else iret2 = ((__vaword)((unsigned char *) list.raddr)[8] << 56) | ((__vaword)((unsigned char *) list.raddr)[9] << 48) | ((__vaword)((unsigned char *) list.raddr)[10] << 40) | ((__vaword)((unsigned char *) list.raddr)[11] << 32); #endif } else if (list.rsize == 13) { #if defined(_MIPSEL) iret2 = ((__vaword)((unsigned char *) list.raddr)[8]) | ((__vaword)((unsigned char *) list.raddr)[9] << 8) | ((__vaword)((unsigned char *) list.raddr)[10] << 16) | ((__vaword)((unsigned char *) list.raddr)[11] << 24) | ((__vaword)((unsigned char *) list.raddr)[12] << 32); #else iret2 = ((__vaword)((unsigned char *) list.raddr)[8] << 56) | ((__vaword)((unsigned char *) list.raddr)[9] << 48) | ((__vaword)((unsigned char *) list.raddr)[10] << 40) | ((__vaword)((unsigned char *) list.raddr)[11] << 32) | ((__vaword)((unsigned char *) list.raddr)[12] << 24); #endif } else if (list.rsize == 14) { #if defined(_MIPSEL) iret2 = ((__vaword)((unsigned char *) list.raddr)[8]) | ((__vaword)((unsigned char *) list.raddr)[9] << 8) | ((__vaword)((unsigned char *) list.raddr)[10] << 16) | ((__vaword)((unsigned char *) list.raddr)[11] << 24) | ((__vaword)((unsigned char *) list.raddr)[12] << 32) | ((__vaword)((unsigned char *) list.raddr)[13] << 40); #else iret2 = ((__vaword)((unsigned char *) list.raddr)[8] << 56) | ((__vaword)((unsigned char *) list.raddr)[9] << 48) | ((__vaword)((unsigned char *) list.raddr)[10] << 40) | ((__vaword)((unsigned char *) list.raddr)[11] << 32) | ((__vaword)((unsigned char *) list.raddr)[12] << 24) | ((__vaword)((unsigned char *) list.raddr)[13] << 16); #endif } else if (list.rsize == 15) { #if defined(_MIPSEL) iret2 = ((__vaword)((unsigned char *) list.raddr)[8]) | ((__vaword)((unsigned char *) list.raddr)[9] << 8) | ((__vaword)((unsigned char *) list.raddr)[10] << 16) | ((__vaword)((unsigned char *) list.raddr)[11] << 24) | ((__vaword)((unsigned char *) list.raddr)[12] << 32) | ((__vaword)((unsigned char *) list.raddr)[13] << 40) | ((__vaword)((unsigned char *) list.raddr)[14] << 48); #else iret2 = ((__vaword)((unsigned char *) list.raddr)[8] << 56) | ((__vaword)((unsigned char *) list.raddr)[9] << 48) | ((__vaword)((unsigned char *) list.raddr)[10] << 40) | ((__vaword)((unsigned char *) list.raddr)[11] << 32) | ((__vaword)((unsigned char *) list.raddr)[12] << 24) | ((__vaword)((unsigned char *) list.raddr)[13] << 16) | ((__vaword)((unsigned char *) list.raddr)[14] << 8); #endif } else if (list.rsize == 16) { #if defined(_MIPSEL) iret2 = ((__vaword)((unsigned char *) list.raddr)[8]) | ((__vaword)((unsigned char *) list.raddr)[9] << 8) | ((__vaword)((unsigned char *) list.raddr)[10] << 16) | ((__vaword)((unsigned char *) list.raddr)[11] << 24) | ((__vaword)((unsigned char *) list.raddr)[12] << 32) | ((__vaword)((unsigned char *) list.raddr)[13] << 40) | ((__vaword)((unsigned char *) list.raddr)[14] << 48) | ((__vaword)((unsigned char *) list.raddr)[15] << 56); #else iret2 = ((__vaword)((unsigned char *) list.raddr)[8] << 56) | ((__vaword)((unsigned char *) list.raddr)[9] << 48) | ((__vaword)((unsigned char *) list.raddr)[10] << 40) | ((__vaword)((unsigned char *) list.raddr)[11] << 32) | ((__vaword)((unsigned char *) list.raddr)[12] << 24) | ((__vaword)((unsigned char *) list.raddr)[13] << 16) | ((__vaword)((unsigned char *) list.raddr)[14] << 8) | (__vaword)((unsigned char *) list.raddr)[15]; #endif } } #else /* Optimized: fewer conditional jumps, fewer memory accesses */ uintptr_t count = list.rsize; /* > 0, ≤ 2*sizeof(__vaword) */ __vaword* wordaddr = (__vaword*)((uintptr_t)list.raddr & ~(uintptr_t)(sizeof(__vaword)-1)); uintptr_t start_offset = (uintptr_t)list.raddr & (uintptr_t)(sizeof(__vaword)-1); /* ≥ 0, < sizeof(__vaword) */ uintptr_t end_offset = start_offset + count; /* > 0, < 3*sizeof(__vaword) */ #if defined(_MIPSEL) if (count <= sizeof(__vaword)) { /* Assign iret. */ if (end_offset <= sizeof(__vaword)) { /* 0 < end_offset ≤ sizeof(__vaword) */ __vaword mask0 = ((__vaword)2 << (end_offset*8-1)) - 1; iret = (wordaddr[0] & mask0) >> (start_offset*8); } else { /* sizeof(__vaword) < end_offset < 2*sizeof(__vaword), start_offset > 0 */ __vaword mask1 = ((__vaword)2 << (end_offset*8-sizeof(__vaword)*8-1)) - 1; iret = (wordaddr[0] >> (start_offset*8)) | ((wordaddr[1] & mask1) << (sizeof(__vaword)*8-start_offset*8)); } } else { /* Assign iret, iret2. */ if (end_offset <= 2*sizeof(__vaword)) { /* sizeof(__vaword) < end_offset ≤ 2*sizeof(__vaword) */ __vaword mask1 = ((__vaword)2 << (end_offset*8-sizeof(__vaword)*8-1)) - 1; iret = (wordaddr[0] >> (start_offset*8)) | ((wordaddr[1] & mask1) << (sizeof(__vaword)*4-start_offset*4) << (sizeof(__vaword)*4-start_offset*4)); iret2 = (wordaddr[1] & mask1) >> (start_offset*8); } else { /* 2*sizeof(__vaword) < end_offset < 3*sizeof(__vaword), start_offset > 0 */ __vaword mask2 = ((__vaword)2 << (end_offset*8-2*sizeof(__vaword)*8-1)) - 1; iret = (wordaddr[0] >> (start_offset*8)) | (wordaddr[1] << (sizeof(__vaword)*8-start_offset*8)); iret2 = (wordaddr[1] >> (start_offset*8)) | ((wordaddr[2] & mask2) << (sizeof(__vaword)*8-start_offset*8)); } } #else if (count <= sizeof(__vaword)) { /* Assign iret. */ if (end_offset <= sizeof(__vaword)) { /* 0 < end_offset ≤ sizeof(__vaword) */ __vaword mask0 = - ((__vaword)1 << (sizeof(__vaword)*8-end_offset*8)); iret = (wordaddr[0] & mask0) << (start_offset*8); } else { /* sizeof(__vaword) < end_offset < 2*sizeof(__vaword), start_offset > 0 */ __vaword mask1 = - ((__vaword)1 << (2*sizeof(__vaword)*8-end_offset*8)); iret = (wordaddr[0] << (start_offset*8)) | ((wordaddr[1] & mask1) >> (sizeof(__vaword)*8-start_offset*8)); } } else { /* Assign iret, iret2. */ if (end_offset <= 2*sizeof(__vaword)) { /* sizeof(__vaword) < end_offset ≤ 2*sizeof(__vaword) */ __vaword mask1 = - ((__vaword)1 << (2*sizeof(__vaword)*8-end_offset*8)); iret = (wordaddr[0] << (start_offset*8)) | ((wordaddr[1] & mask1) >> (sizeof(__vaword)*4-start_offset*4) >> (sizeof(__vaword)*4-start_offset*4)); iret2 = (wordaddr[1] & mask1) << (start_offset*8); } else { /* 2*sizeof(__vaword) < end_offset < 3*sizeof(__vaword), start_offset > 0 */ __vaword mask2 = - ((__vaword)1 << (3*sizeof(__vaword)*8-end_offset*8)); iret = (wordaddr[0] << (start_offset*8)) | (wordaddr[1] >> (sizeof(__vaword)*8-start_offset*8)); iret2 = (wordaddr[1] << (start_offset*8)) | ((wordaddr[2] & mask2) >> (sizeof(__vaword)*8-start_offset*8)); } } #endif #endif } if (list.flags & __VA_REGISTER_FLOATSTRUCT_RETURN) { if (list.rsize == sizeof(float)) { fret = *(float*)list.raddr; } else if (list.rsize == 2*sizeof(float)) { fret = *(float*)list.raddr; fret2 = *(float*)((char*)list.raddr + 4); } } if (list.flags & __VA_REGISTER_DOUBLESTRUCT_RETURN) { if (list.rsize == sizeof(double)) { dret = *(double*)list.raddr; } else if (list.rsize == 2*sizeof(double)) { dret = *(double*)list.raddr; dret2 = *(double*)((char*)list.raddr + 8); } } } } } } #ifdef REENTRANT __vacall_r_t callback_get_receiver (void) { return (__vacall_r_t)(void*)&callback_receiver; } #endif libffcall-2.2/vacall/vacall-x86_64-macro.S0000664000000000000000000001555013530357113015056 00000000000000#include "asm-x86_64.h" TEXT() P2ALIGN(4,15) GLOBL(C(vacall_receiver)) DECLARE_FUNCTION(vacall_receiver) FUNBEGIN(vacall_receiver) L(FB2): INSN1(push,q ,R(rbp)) L(CFI0): INSN2(mov,q ,R(rsp), R(rbp)) L(CFI1): INSN1(push,q ,R(r12)) L(CFI2): INSN2(sub,q ,NUM(200), R(rsp)) L(CFI3): INSN2(mov,q ,R(rcx),X8 MEM_DISP(rbp,-48)) INSN2(lea,q ,X8 MEM_DISP(rbp,16), R(rcx)) INSN2(mov,q ,R(rdi),X8 MEM_DISP(rbp,-72)) INSN2(mov,q ,R(rsi),X8 MEM_DISP(rbp,-64)) INSN2S(movs,d ,R(xmm0),X8 MEM_DISP(rbp,-144)) INSN2(mov,q ,R(rcx),X8 MEM_DISP(rbp,-184)) INSN2(mov,q ,R(rdx),X8 MEM_DISP(rbp,-56)) INSN2S(movs,d ,R(xmm1),X8 MEM_DISP(rbp,-136)) INSN2(mov,q ,R(r8),X8 MEM_DISP(rbp,-40)) INSN2S(movs,d ,R(xmm2),X8 MEM_DISP(rbp,-128)) INSN2(lea,q ,X8 MEM_DISP(rbp,-208), R(rdi)) INSN2(mov,q ,R(r9),X8 MEM_DISP(rbp,-32)) INSN2S(movs,d ,R(xmm3),X8 MEM_DISP(rbp,-120)) INSN2S(movs,d ,R(xmm4),X8 MEM_DISP(rbp,-112)) INSN2(mov,l ,NUM(0),X4 MEM_DISP(rbp,-208)) INSN2S(movs,d ,R(xmm5),X8 MEM_DISP(rbp,-104)) INSN2(mov,q ,NUM(0),X8 MEM_DISP(rbp,-176)) INSN2S(movs,d ,R(xmm6),X8 MEM_DISP(rbp,-96)) INSN2(mov,l ,NUM(0),X4 MEM_DISP(rbp,-168)) INSN2S(movs,d ,R(xmm7),X8 MEM_DISP(rbp,-88)) INSN2(mov,l ,NUM(0),X4 MEM_DISP(rbp,-80)) INSN2(mov,l ,NUM(0),X4 MEM_DISP(rbp,-152)) INSN1(call,_ ,INDIR(X8 MEM_PCRELATIVE(C(vacall_function)))) INSN2(mov,l ,X4 MEM_DISP(rbp,-168), R(ecx)) INSN2(test,l ,R(ecx), R(ecx)) INSN1(je,_ ,L(41)) INSN2(cmp,l ,NUM(1), R(ecx)) INSN1(je,_ ,L(42)) INSN2(cmp,l ,NUM(2), R(ecx)) INSN1(je,_ ,L(42)) INSN2(cmp,l ,NUM(3), R(ecx)) P2ALIGN(4,5) INSN1(je,_ ,L(48)) INSN2(cmp,l ,NUM(4), R(ecx)) P2ALIGN(4,5) INSN1(je,_ ,L(49)) INSN2(cmp,l ,NUM(5), R(ecx)) P2ALIGN(4,5) INSN1(je,_ ,L(50)) INSN2(cmp,l ,NUM(6), R(ecx)) P2ALIGN(4,5) INSN1(je,_ ,L(51)) INSN2(cmp,l ,NUM(7), R(ecx)) P2ALIGN(4,5) INSN1(je,_ ,L(52)) INSN2(cmp,l ,NUM(8), R(ecx)) P2ALIGN(4,5) INSN1(je,_ ,L(46)) INSN2(cmp,l ,NUM(9), R(ecx)) P2ALIGN(4,5) INSN1(je,_ ,L(46)) INSN2(cmp,l ,NUM(10), R(ecx)) P2ALIGN(4,5) INSN1(je,_ ,L(46)) INSN2(cmp,l ,NUM(11), R(ecx)) P2ALIGN(4,5) INSN1(je,_ ,L(46)) INSN2(cmp,l ,NUM(12), R(ecx)) P2ALIGN(4,5) INSN1(je,_ ,L(53)) INSN2(cmp,l ,NUM(13), R(ecx)) P2ALIGN(4,5) INSN1(je,_ ,L(54)) INSN2(cmp,l ,NUM(14), R(ecx)) P2ALIGN(4,5) INSN1(je,_ ,L(46)) INSN2(cmp,l ,NUM(15), R(ecx)) P2ALIGN(4,5) INSN1(jne,_ ,L(41)) INSN2(test,b ,NUM(4),X1 MEM_DISP(rbp,-207)) P2ALIGN(4,2) INSN1(je,_ ,L(41)) INSN2(mov,q ,X8 MEM_DISP(rbp,-160), R(rsi)) INSN2(lea,q ,X8 MEM_DISP(rsi,-1), R(rcx)) INSN2(cmp,q ,NUM(15), R(rcx)) INSN1(ja,_ ,L(41)) INSN2(mov,q ,X8 MEM_DISP(rbp,-176), R(rcx)) INSN2(mov,q ,R(rcx), R(r11)) INSN2(mov,q ,R(rcx), R(r8)) INSN2(and,l ,NUM(7), R(r8d)) INSN2(and,q ,NUM(-8), R(r11)) INSN2(cmp,q ,NUM(8), R(rsi)) INSN2(lea,q ,X8 MEM_INDEX(rsi,r8), R(r10)) INSN1(ja,_ ,L(35)) INSN2(cmp,q ,NUM(8), R(r10)) INSN1(ja,_ ,L(37)) INSN2(lea,l ,X4 MEM_DISP_SHINDEX0(-1,r10,8), R(ecx)) INSN2(mov,l ,NUM(2), R(esi)) INSN2(sal,q ,R(cl), R(rsi)) INSN2(lea,l ,X4 MEM_DISP_SHINDEX0(0,r8,8), R(ecx)) INSN1(dec,q ,R(rsi)) INSN2(and,q ,X8 MEM(r11), R(rsi)) INSN2(mov,q ,R(rsi), R(rax)) INSN2(sar,q ,R(cl), R(rax)) P2ALIGN(4,7) L(41): INSN2(add,q ,NUM(200), R(rsp)) INSN1(pop,q ,R(r12)) leave ret P2ALIGN(4,7) L(42): INSN2MOVXQ(movs,b,X1 MEM_DISP(rbp,-200),R(rax)) INSN2(add,q ,NUM(200), R(rsp)) INSN1(pop,q ,R(r12)) leave ret L(49): INSN2MOVXQ(movs,w,X2 MEM_DISP(rbp,-200),R(rax)) INSN1(jmp,_ ,L(41)) L(48): INSN2MOVXQ(movz,b,X1 MEM_DISP(rbp,-200), R(rax)) INSN1(jmp,_ ,L(41)) L(46): INSN2(mov,q ,X8 MEM_DISP(rbp,-200), R(rax)) INSN1(jmp,_ ,L(41)) L(50): INSN2MOVXQ(movz,w,X2 MEM_DISP(rbp,-200), R(rax)) INSN1(jmp,_ ,L(41)) L(51): INSN2MOVXLQ(movs,l,X4 MEM_DISP(rbp,-200),R(rax)) INSN1(jmp,_ ,L(41)) L(52): INSN2(mov,l ,X4 MEM_DISP(rbp,-200), R(eax)) INSN1(jmp,_ ,L(41)) L(53): INSN2S(movs,s ,X4 MEM_DISP(rbp,-200), R(xmm0)) INSN1(jmp,_ ,L(41)) L(54): INSN2(movlp,d ,X8 MEM_DISP(rbp,-200), R(xmm0)) INSN1(jmp,_ ,L(41)) L(35): INSN2(cmp,q ,NUM(16), R(r10)) INSN1(ja,_ ,L(39)) INSN2(lea,l ,X4 MEM_DISP_SHINDEX0(-65,r10,8), R(ecx)) INSN2(mov,l ,NUM(2), R(esi)) INSN2(lea,l ,X4 MEM_DISP_SHINDEX0(0,r8,8), R(r9d)) INSN2(mov,l ,NUM(32), R(edi)) INSN2(sal,q ,R(cl), R(rsi)) INSN2(lea,q ,X8 MEM_DISP_SHINDEX0(0,r8,4), R(rcx)) INSN2(mov,q ,X8 MEM(r11), R(r8)) INSN1(dec,q ,R(rsi)) INSN2(and,q ,X8 MEM_DISP(r11,8), R(rsi)) INSN2(sub,l ,R(ecx), R(edi)) INSN2(mov,l ,R(r9d), R(ecx)) INSN2(sar,q ,R(cl), R(r8)) INSN2(mov,l ,R(edi), R(ecx)) INSN2(mov,q ,R(r8), R(rax)) INSN2(mov,q ,R(rsi), R(r10)) INSN2(mov,q ,R(rsi), R(rdx)) INSN2(sal,q ,R(cl), R(r10)) INSN2(sal,q ,R(cl), R(r10)) INSN2(mov,l ,R(r9d), R(ecx)) INSN2(or,q ,R(r10), R(rax)) INSN2(sar,q ,R(cl), R(rdx)) INSN1(jmp,_ ,L(41)) L(37): INSN2(mov,q ,X8 MEM(r11), R(rdi)) INSN2(lea,l ,X4 MEM_DISP_SHINDEX0(-65,r10,8), R(esi)) INSN2(sal,q ,NUM(3), R(r8)) INSN2(mov,l ,R(r8d), R(ecx)) INSN2(mov,l ,NUM(2), R(r10d)) INSN2(sar,q ,R(cl), R(rdi)) INSN2(mov,l ,R(esi), R(ecx)) INSN2(mov,l ,NUM(64), R(esi)) INSN2(sal,q ,R(cl), R(r10)) INSN2(sub,l ,R(r8d), R(esi)) INSN2(mov,q ,R(rdi), R(rax)) INSN1(dec,q ,R(r10)) INSN2(and,q ,X8 MEM_DISP(r11,8), R(r10)) INSN2(mov,l ,R(esi), R(ecx)) INSN2(sal,q ,R(cl), R(r10)) INSN2(or,q ,R(r10), R(rax)) INSN1(jmp,_ ,L(41)) L(39): INSN2(lea,q ,X8 MEM_DISP_SHINDEX0(0,r8,8), R(rcx)) INSN2(mov,q ,X8 MEM(r11), R(r12)) INSN2(mov,q ,X8 MEM_DISP(r11,8), R(r8)) INSN2(mov,l ,NUM(64), R(edi)) INSN2(sub,l ,R(ecx), R(edi)) INSN2(mov,l ,R(ecx), R(r9d)) INSN2(sar,q ,R(cl), R(r12)) INSN2(mov,q ,R(r8), R(rsi)) INSN2(mov,l ,R(edi), R(ecx)) INSN2(sal,q ,R(cl), R(rsi)) INSN2(mov,q ,R(r12), R(rax)) INSN2(mov,l ,R(r9d), R(ecx)) INSN2(or,q ,R(rsi), R(rax)) INSN2(lea,l ,X4 MEM_DISP_SHINDEX0(-129,r10,8), R(esi)) INSN2(sar,q ,R(cl), R(r8)) INSN2(mov,l ,NUM(2), R(r9d)) INSN2(mov,q ,R(r8), R(rdx)) INSN2(mov,l ,R(esi), R(ecx)) INSN2(sal,q ,R(cl), R(r9)) INSN2(mov,l ,R(edi), R(ecx)) INSN2(lea,q ,X8 MEM_DISP(r9,-1), R(rsi)) INSN2(and,q ,X8 MEM_DISP(r11,16), R(rsi)) INSN2(sal,q ,R(cl), R(rsi)) INSN2(or,q ,R(rsi), R(rdx)) INSN1(jmp,_ ,L(41)) L(FE2): FUNEND(vacall_receiver, .-vacall_receiver) #if !(defined __sun || (defined __APPLE__ && defined __MACH__) || (defined _WIN32 || defined __CYGWIN__)) .section EH_FRAME_SECTION L(frame1): .long L(ECIE1)-.LSCIE1 L(SCIE1): .long 0x0 .byte 0x1 .string "" .uleb128 0x1 .sleb128 -8 .byte 0x10 .byte 0xc .uleb128 0x7 .uleb128 0x8 .byte 0x90 .uleb128 0x1 .align 8 L(ECIE1): L(SFDE1): .long L(EFDE1)-.LASFDE1 L(ASFDE1): .long L(ASFDE1)-.Lframe1 .quad L(FB2) .quad L(FE2)-.LFB2 .byte 0x4 .long L(CFI0)-.LFB2 .byte 0xe .uleb128 0x10 .byte 0x86 .uleb128 0x2 .byte 0x4 .long L(CFI1)-.LCFI0 .byte 0xd .uleb128 0x6 .byte 0x4 .long L(CFI3)-.LCFI1 .byte 0x8c .uleb128 0x3 .align 8 L(EFDE1): #endif #if defined __linux__ || defined __FreeBSD__ || defined __FreeBSD_kernel__ || defined __DragonFly__ .section .note.GNU-stack,"",@progbits #endif libffcall-2.2/vacall/Makefile.maint0000664000000000000000000000076013153072372014203 00000000000000# maintainer -*-Makefile-*- LN = ln -s RM = rm -f # ==================== Easily regeneratable files ==================== ROFF_MAN = groff -Tutf8 -mandoc all : vacall.man \ vacall-i386-msvc.c vacall.man : vacall.3 $(ROFF_MAN) vacall.3 > vacall.man vacall-i386-msvc.c : vacall-i386-macro.S (echo '#ifdef _MSC_VER' ; echo '#include "vacall.h"' ; echo '#endif' ; cat vacall-i386-macro.S) > vacall-i386-msvc.c totally-clean : force $(RM) vacall.man $(RM) vacall-i386-msvc.c force : libffcall-2.2/vacall/vacall-alpha.c0000664000000000000000000001137713347755333014145 00000000000000/* vacall function for alpha CPU */ /* * Copyright 1995-2017 Bruno Haible * * This program is free software: you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by * the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program. If not, see . */ #include "vacall-internal.h" #ifdef REENTRANT #define vacall_receiver callback_receiver register struct { void (*vacall_function) (void*,va_alist); void* arg; } * env __asm__("$1"); #endif register long arg1 __asm__("$16"); register long arg2 __asm__("$17"); register long arg3 __asm__("$18"); register long arg4 __asm__("$19"); register long arg5 __asm__("$20"); register long arg6 __asm__("$21"); register double farg1 __asm__("$f16"); register double farg2 __asm__("$f17"); register double farg3 __asm__("$f18"); register double farg4 __asm__("$f19"); register double farg5 __asm__("$f20"); register double farg6 __asm__("$f21"); register __vaword iret __asm__("$0"); register __vaword iret2 __asm__("$1"); register float fret __asm__("$f0"); register double dret __asm__("$f0"); /* The ABI requires that the first 6 general-purpose argument words are being passed in registers, even if these words belong to a struct. No room is allocated for these register words on the stack by the caller, but the callee allocates room for them - at the right place in the stack frame, that is, above the usual {fp, retaddr} combo - if and only if they are part of a larger struct that extends to the stack and the address of this struct is taken. */ struct gpargsequence { __vaword word1; /* $16 */ __vaword word2; /* $17 */ __vaword word3; /* $18 */ __vaword word4; /* $19 */ __vaword word5; /* $20 */ __vaword word6; /* $21 */ __vaword firststackword; }; #ifdef REENTRANT static #endif void /* the return type is variable, not void! */ vacall_receiver (struct gpargsequence gpargs) { __va_alist list; /* Move the arguments passed in registers to their stack locations. */ list.farg[0] = farg1; list.farg[1] = farg2; list.farg[2] = farg3; list.farg[3] = farg4; list.farg[4] = farg5; list.farg[5] = farg6; /* Prepare the va_alist. */ list.flags = 0; list.aptr = (long)&gpargs; list.raddr = (void*)0; list.rtype = __VAvoid; list.memargptr = (long)&gpargs.firststackword; list.farg_offset = (long)&list.farg[0] - list.aptr; /* Call vacall_function. The macros do all the rest. */ #ifndef REENTRANT (*vacall_function) (&list); #else /* REENTRANT */ (*env->vacall_function) (env->arg,&list); #endif /* Put return value into proper register. */ if (list.rtype == __VAvoid) { } else if (list.rtype == __VAchar) { iret = list.tmp._char; } else if (list.rtype == __VAschar) { iret = list.tmp._schar; } else if (list.rtype == __VAuchar) { iret = list.tmp._uchar; } else if (list.rtype == __VAshort) { iret = list.tmp._short; } else if (list.rtype == __VAushort) { iret = list.tmp._ushort; } else if (list.rtype == __VAint) { iret = list.tmp._int; } else if (list.rtype == __VAuint) { iret = list.tmp._uint; } else if (list.rtype == __VAlong) { iret = list.tmp._long; } else if (list.rtype == __VAulong) { iret = list.tmp._ulong; } else if (list.rtype == __VAlonglong) { iret = list.tmp._long; } else if (list.rtype == __VAulonglong) { iret = list.tmp._ulong; } else if (list.rtype == __VAfloat) { fret = list.tmp._float; } else if (list.rtype == __VAdouble) { dret = list.tmp._double; } else if (list.rtype == __VAvoidp) { iret = (long)list.tmp._ptr; } else if (list.rtype == __VAstruct) { if (list.flags & __VA_REGISTER_STRUCT_RETURN) { if (list.rsize == sizeof(char)) { iret = *(unsigned char *) list.raddr; } else if (list.rsize == sizeof(short)) { iret = *(unsigned short *) list.raddr; } else if (list.rsize == sizeof(int)) { iret = *(unsigned int *) list.raddr; } else if (list.rsize == sizeof(long)) { iret = *(unsigned long *) list.raddr; } else if (list.rsize == 2*sizeof(__vaword)) { iret = ((__vaword *) list.raddr)[0]; iret2 = ((__vaword *) list.raddr)[1]; } } } } #ifdef REENTRANT __vacall_r_t callback_get_receiver (void) { return (__vacall_r_t)(void*)&callback_receiver; } #endif libffcall-2.2/vacall/vacall-riscv32-ilp32d-linux.s0000664000000000000000000000436213530357113016603 00000000000000 .file "vacall-riscv32.c" .option nopic .text .align 1 .globl vacall_receiver .type vacall_receiver, @function vacall_receiver: add sp,sp,-208 sw ra,188(sp) sw s0,184(sp) add s0,sp,192 lui t1,%hi(vacall_function) lw t1,%lo(vacall_function)(t1) sw a0,-148(s0) add a0,s0,16 sw a7,12(s0) sw a1,-144(s0) sw a2,-140(s0) sw a3,-136(s0) sw a4,-132(s0) sw a5,-128(s0) sw a6,-124(s0) sw a7,-120(s0) fsw fa0,-112(s0) fsw fa1,-108(s0) fsw fa2,-104(s0) fsw fa3,-100(s0) fsw fa4,-96(s0) fsw fa5,-92(s0) fsw fa6,-88(s0) fsw fa7,-84(s0) fsd fa0,-80(s0) fsd fa1,-72(s0) fsd fa2,-64(s0) fsd fa3,-56(s0) fsd fa4,-48(s0) fsd fa5,-40(s0) fsd fa6,-32(s0) fsd fa7,-24(s0) sw a0,-168(s0) sw zero,-184(s0) sw zero,-164(s0) sw zero,-160(s0) add a0,s0,-184 sw zero,-152(s0) sw zero,-116(s0) jalr t1 lw t1,-160(s0) beqz t1,.L1 li t3,1 beq t1,t3,.L22 li t3,2 beq t1,t3,.L25 li t3,3 beq t1,t3,.L22 li t3,4 beq t1,t3,.L26 li t3,5 beq t1,t3,.L27 li t3,6 beq t1,t3,.L23 li t3,7 beq t1,t3,.L23 li t3,8 beq t1,t3,.L23 li t3,9 beq t1,t3,.L23 add t3,t1,-10 li t4,1 bleu t3,t4,.L28 li t3,12 beq t1,t3,.L29 li t3,13 beq t1,t3,.L30 li t3,14 beq t1,t3,.L23 li t3,15 bne t1,t3,.L1 lw t1,-184(s0) and t1,t1,2 beqz t1,.L1 lw t3,-156(s0) li t1,7 add t5,t3,-1 bgtu t5,t1,.L1 lw t1,-164(s0) lbu t5,0(t1) mv a0,t5 beq t3,t4,.L1 lbu t4,1(t1) li t6,2 sll t4,t4,8 or t5,t4,t5 mv a0,t5 beq t3,t6,.L1 lbu t4,2(t1) li t6,3 sll t4,t4,16 or t4,t4,t5 mv a0,t4 beq t3,t6,.L1 lbu a0,3(t1) li t5,4 sll a0,a0,24 or a0,a0,t4 beq t3,t5,.L1 lbu t5,4(t1) li t4,5 mv a1,t5 beq t3,t4,.L1 lbu t4,5(t1) li t6,6 sll t4,t4,8 or t5,t4,t5 mv a1,t5 beq t3,t6,.L1 lbu t4,6(t1) li t6,8 sll t4,t4,16 or t4,t4,t5 mv a1,t4 bne t3,t6,.L1 lbu a1,7(t1) sll a1,a1,24 or a1,a1,t4 .L1: lw ra,188(sp) lw s0,184(sp) add sp,sp,208 jr ra .L22: lbu a0,-176(s0) lw ra,188(sp) lw s0,184(sp) add sp,sp,208 jr ra .L23: lw a0,-176(s0) j .L1 .L25: lb a0,-176(s0) lw ra,188(sp) lw s0,184(sp) add sp,sp,208 jr ra .L26: lh a0,-176(s0) j .L1 .L27: lhu a0,-176(s0) j .L1 .L28: lw a0,-176(s0) lw a1,-172(s0) j .L1 .L29: flw fa0,-176(s0) j .L1 .L30: fld fa0,-176(s0) j .L1 .size vacall_receiver, .-vacall_receiver .ident "GCC: (GNU) 7.3.0" libffcall-2.2/vacall/vacall-m68k-sun.s0000664000000000000000000000362213530357111014444 00000000000000#NO_APP .text .even .globl _vacall_receiver _vacall_receiver: link a6,#-32 moveml #0x3030,sp@- clrl a6@(-32) lea a6@(8),a2 movel a2,a6@(-20) clrl a6@(-16) clrl a6@(-12) movel a1,a6@(-4) pea a6@(-32) movel _vacall_function,a2 jbsr a2@ addql #4,sp movel a6@(-12),a3 tstl a3 jeq L1 moveq #1,d2 cmpl a3,d2 jeq L46 moveq #2,d3 cmpl a3,d3 jeq L46 moveq #3,d2 cmpl a3,d2 jeq L47 moveq #4,d3 cmpl a3,d3 jeq L48 moveq #5,d2 cmpl a3,d2 jeq L49 moveq #6,d3 cmpl a3,d3 jeq L45 moveq #7,d2 cmpl a3,d2 jeq L45 moveq #8,d3 cmpl a3,d3 jeq L45 moveq #9,d2 cmpl a3,d2 jeq L45 lea a3@(-10),a2 moveq #1,d3 cmpl a2,d3 jcs L22 movel a6@(-28),d0 movel a6@(-24),d1 jra L1 .even L22: moveq #12,d2 cmpl a3,d2 jeq L50 moveq #13,d2 cmpl a3,d2 jeq L51 moveq #14,d3 cmpl a3,d3 jeq L52 moveq #15,d2 cmpl a3,d2 jne L1 btst #2,a6@(-30) jeq L1 movel a6@(-8),d2 moveq #1,d3 cmpl d2,d3 jeq L53 moveq #2,d3 cmpl d2,d3 jeq L54 moveq #4,d3 cmpl d2,d3 jeq L55 moveq #8,d3 cmpl d2,d3 jne L1 movel a6@(-16),a2 movel a2@,d0 movel a2@(4),d1 jra L1 .even L55: movel a6@(-16),a2 movel a2@,d0 jra L1 .even L54: movel a6@(-16),a2 clrl d0 movew a2@,d0 jra L1 .even L53: movel a6@(-16),a2 clrl d0 moveb a2@,d0 jra L1 .even L52: movel a6@(-28),d0 movel d0,a0 jra L1 .even L51: btst #6,a6@(-29) jeq L31 fmoved a6@(-28),fp0 jra L1 .even L31: movel a6@(-28),d0 movel a6@(-24),d1 jra L1 .even L50: movel a6@(-32),d2 btst #6,d2 jeq L25 fmoves a6@(-28),fp0 jra L1 .even L25: btst #5,d2 jeq L27 fmoves a6@(-28),fp1 fmoved fp1,sp@- movel sp@+,d0 movel sp@+,d1 jra L1 .even L27: movel a6@(-28),d0 jra L1 .even L45: movel a6@(-28),d0 jra L1 .even L49: clrl d0 movew a6@(-28),d0 jra L1 .even L48: movew a6@(-28),d0 extl d0 jra L1 .even L47: clrl d0 moveb a6@(-28),d0 jra L1 .even L46: moveb a6@(-28),d0 extbl d0 L1: moveml a6@(-48),#0xc0c unlk a6 rts libffcall-2.2/vacall/vacall-sparc-linux.s0000664000000000000000000000346013530357111015321 00000000000000 .file "vacall-sparc.c" .section ".text" .align 4 .global vacall_receiver .type vacall_receiver,#function .proc 020 vacall_receiver: !#PROLOGUE# 0 save %sp, -144, %sp !#PROLOGUE# 1 sethi %hi(vacall_function), %o0 ld [%o0+%lo(vacall_function)], %o2 st %i2, [%fp+76] add %fp, 68, %o0 ld [%fp+64], %o1 st %o0, [%fp-32] st %o1, [%fp-16] st %i3, [%fp+80] st %i4, [%fp+84] st %i5, [%fp+88] st %i0, [%fp+68] st %i1, [%fp+72] st %g0, [%fp-48] st %g0, [%fp-28] st %g0, [%fp-24] call %o2, 0 add %fp, -48, %o0 ld [%fp-24], %o1 cmp %o1, 0 be .LL1 cmp %o1, 1 be .LL44 cmp %o1, 2 be .LL44 cmp %o1, 3 be .LL45 cmp %o1, 4 be .LL46 cmp %o1, 5 be .LL47 cmp %o1, 6 be .LL43 cmp %o1, 7 be .LL43 cmp %o1, 8 be .LL43 cmp %o1, 9 be .LL43 add %o1, -10, %o0 cmp %o0, 1 bgu .LL22 cmp %o1, 12 ld [%fp-40], %i0 b .LL1 ld [%fp-36], %i1 .LL22: be .LL48 cmp %o1, 13 be .LL49 cmp %o1, 14 be .LL43 cmp %o1, 15 bne .LL1 ld [%fp-48], %o0 andcc %o0, 16, %g0 be .LL33 andcc %o0, 2, %g0 ld [%fp-20], %o0 ld [%i7+8], %o1 and %o0, 4095, %o0 cmp %o0, %o1 bne .LL1 ld [%fp-28], %i0 b .LL1 add %i7, 4, %i7 .LL33: be,a .LL1 add %i7, 4, %i7 ld [%fp-20], %o0 cmp %o0, 1 be .LL50 cmp %o0, 2 be .LL51 cmp %o0, 4 bne,a .LL1 add %i7, 4, %i7 ld [%fp-28], %o0 b .LL1 ld [%o0], %i0 .LL51: ld [%fp-28], %o0 b .LL1 lduh [%o0], %i0 .LL50: ld [%fp-28], %o0 b .LL1 ldub [%o0], %i0 .LL43: b .LL1 ld [%fp-40], %i0 .LL49: b .LL1 ldd [%fp-40], %f0 .LL48: ld [%fp-48], %o0 andcc %o0, 32, %g0 be,a .LL1 ld [%fp-40], %f0 ld [%fp-40], %f2 b .LL1 fstod %f2, %f0 .LL47: b .LL1 lduh [%fp-40], %i0 .LL46: b .LL1 ldsh [%fp-40], %i0 .LL45: b .LL1 ldub [%fp-40], %i0 .LL44: ldsb [%fp-40], %i0 .LL38: .LL1: nop ret restore .LLfe1: .size vacall_receiver,.LLfe1-vacall_receiver .ident "GCC: (GNU) 3.1" libffcall-2.2/vacall/vacall-x86_64-linux.s0000664000000000000000000000767513530357112015164 00000000000000 .file "vacall-x86_64.c" .text .p2align 4,,15 .globl vacall_receiver .type vacall_receiver, @function vacall_receiver: .LFB2: pushq %rbp .LCFI0: movq %rsp, %rbp .LCFI1: pushq %r12 .LCFI2: subq $200, %rsp .LCFI3: movq %rcx, -48(%rbp) leaq 16(%rbp), %rcx movq %rdi, -72(%rbp) movq %rsi, -64(%rbp) movsd %xmm0, -144(%rbp) movq %rcx, -184(%rbp) movq %rdx, -56(%rbp) movsd %xmm1, -136(%rbp) movq %r8, -40(%rbp) movsd %xmm2, -128(%rbp) leaq -208(%rbp), %rdi movq %r9, -32(%rbp) movsd %xmm3, -120(%rbp) movsd %xmm4, -112(%rbp) movl $0, -208(%rbp) movsd %xmm5, -104(%rbp) movq $0, -176(%rbp) movsd %xmm6, -96(%rbp) movl $0, -168(%rbp) movsd %xmm7, -88(%rbp) movl $0, -80(%rbp) movl $0, -152(%rbp) call *vacall_function(%rip) movl -168(%rbp), %ecx testl %ecx, %ecx je .L41 cmpl $1, %ecx je .L42 cmpl $2, %ecx je .L42 cmpl $3, %ecx .p2align 4,,5 je .L48 cmpl $4, %ecx .p2align 4,,5 je .L49 cmpl $5, %ecx .p2align 4,,5 je .L50 cmpl $6, %ecx .p2align 4,,5 je .L51 cmpl $7, %ecx .p2align 4,,5 je .L52 cmpl $8, %ecx .p2align 4,,5 je .L46 cmpl $9, %ecx .p2align 4,,5 je .L46 cmpl $10, %ecx .p2align 4,,5 je .L46 cmpl $11, %ecx .p2align 4,,5 je .L46 cmpl $12, %ecx .p2align 4,,5 je .L53 cmpl $13, %ecx .p2align 4,,5 je .L54 cmpl $14, %ecx .p2align 4,,5 je .L46 cmpl $15, %ecx .p2align 4,,5 jne .L41 testb $4, -207(%rbp) .p2align 4,,2 je .L41 movq -160(%rbp), %rsi leaq -1(%rsi), %rcx cmpq $15, %rcx ja .L41 movq -176(%rbp), %rcx movq %rcx, %r11 movq %rcx, %r8 andl $7, %r8d andq $-8, %r11 cmpq $8, %rsi leaq (%rsi,%r8), %r10 ja .L35 cmpq $8, %r10 ja .L37 leal -1(,%r10,8), %ecx movl $2, %esi salq %cl, %rsi leal 0(,%r8,8), %ecx decq %rsi andq (%r11), %rsi movq %rsi, %rax sarq %cl, %rax .p2align 4,,7 .L41: addq $200, %rsp popq %r12 leave ret .p2align 4,,7 .L42: movsbq -200(%rbp),%rax addq $200, %rsp popq %r12 leave ret .L49: movswq -200(%rbp),%rax jmp .L41 .L48: movzbq -200(%rbp), %rax jmp .L41 .L46: movq -200(%rbp), %rax jmp .L41 .L50: movzwq -200(%rbp), %rax jmp .L41 .L51: movslq -200(%rbp),%rax jmp .L41 .L52: mov -200(%rbp), %eax jmp .L41 .L53: movss -200(%rbp), %xmm0 jmp .L41 .L54: movlpd -200(%rbp), %xmm0 jmp .L41 .L35: cmpq $16, %r10 ja .L39 leal -65(,%r10,8), %ecx movl $2, %esi leal 0(,%r8,8), %r9d movl $32, %edi salq %cl, %rsi leaq 0(,%r8,4), %rcx movq (%r11), %r8 decq %rsi andq 8(%r11), %rsi subl %ecx, %edi movl %r9d, %ecx sarq %cl, %r8 movl %edi, %ecx movq %r8, %rax movq %rsi, %r10 movq %rsi, %rdx salq %cl, %r10 salq %cl, %r10 movl %r9d, %ecx orq %r10, %rax sarq %cl, %rdx jmp .L41 .L37: movq (%r11), %rdi leal -65(,%r10,8), %esi salq $3, %r8 movl %r8d, %ecx movl $2, %r10d sarq %cl, %rdi movl %esi, %ecx movl $64, %esi salq %cl, %r10 subl %r8d, %esi movq %rdi, %rax decq %r10 andq 8(%r11), %r10 movl %esi, %ecx salq %cl, %r10 orq %r10, %rax jmp .L41 .L39: leaq 0(,%r8,8), %rcx movq (%r11), %r12 movq 8(%r11), %r8 movl $64, %edi subl %ecx, %edi movl %ecx, %r9d sarq %cl, %r12 movq %r8, %rsi movl %edi, %ecx salq %cl, %rsi movq %r12, %rax movl %r9d, %ecx orq %rsi, %rax leal -129(,%r10,8), %esi sarq %cl, %r8 movl $2, %r9d movq %r8, %rdx movl %esi, %ecx salq %cl, %r9 movl %edi, %ecx leaq -1(%r9), %rsi andq 16(%r11), %rsi salq %cl, %rsi orq %rsi, %rdx jmp .L41 .LFE2: .size vacall_receiver, .-vacall_receiver .section .eh_frame,"a",@progbits .Lframe1: .long .LECIE1-.LSCIE1 .LSCIE1: .long 0x0 .byte 0x1 .string "" .uleb128 0x1 .sleb128 -8 .byte 0x10 .byte 0xc .uleb128 0x7 .uleb128 0x8 .byte 0x90 .uleb128 0x1 .align 8 .LECIE1: .LSFDE1: .long .LEFDE1-.LASFDE1 .LASFDE1: .long .LASFDE1-.Lframe1 .quad .LFB2 .quad .LFE2-.LFB2 .byte 0x4 .long .LCFI0-.LFB2 .byte 0xe .uleb128 0x10 .byte 0x86 .uleb128 0x2 .byte 0x4 .long .LCFI1-.LCFI0 .byte 0xd .uleb128 0x6 .byte 0x4 .long .LCFI3-.LCFI1 .byte 0x8c .uleb128 0x3 .align 8 .LEFDE1: .ident "GCC: (GNU) 4.0.2" .section .note.GNU-stack,"",@progbits libffcall-2.2/vacall/vacall-riscv64-lp64d-macro.S0000664000000000000000000000532313530357113016344 00000000000000 .file "vacall-riscv64.c" .option nopic .text .align 1 .globl vacall_receiver .type vacall_receiver, @function vacall_receiver: add sp,sp,-288 sd ra,264(sp) sd s0,256(sp) sd s1,248(sp) add s0,sp,272 lui t1,%hi(vacall_function) ld t1,%lo(vacall_function)(t1) sd a0,-200(s0) add a0,s0,16 sd a7,8(s0) sd a1,-192(s0) sd a2,-184(s0) sd a3,-176(s0) sd a4,-168(s0) sd a5,-160(s0) sd a6,-152(s0) sd a7,-144(s0) fsw fa0,-132(s0) fsw fa1,-128(s0) fsw fa2,-124(s0) fsw fa3,-120(s0) fsw fa4,-116(s0) fsw fa5,-112(s0) fsw fa6,-108(s0) fsw fa7,-104(s0) fsd fa0,-96(s0) fsd fa1,-88(s0) fsd fa2,-80(s0) fsd fa3,-72(s0) fsd fa4,-64(s0) fsd fa5,-56(s0) fsd fa6,-48(s0) fsd fa7,-40(s0) sd a0,-240(s0) sw zero,-264(s0) sd zero,-232(s0) add a0,s0,-264 sw zero,-224(s0) sw zero,-208(s0) sw zero,-136(s0) jalr t1 lw t1,-224(s0) beqz t1,.L1 li t3,1 beq t1,t3,.L25 li t3,2 beq t1,t3,.L29 li t3,3 beq t1,t3,.L25 li t3,4 beq t1,t3,.L30 li t3,5 beq t1,t3,.L31 li t3,6 beq t1,t3,.L32 li t3,7 beq t1,t3,.L33 and t3,t1,-3 li t4,8 beq t3,t4,.L27 li t4,9 beq t3,t4,.L27 li t3,12 beq t1,t3,.L34 li t3,13 beq t1,t3,.L35 li t3,14 beq t1,t3,.L27 li t3,15 bne t1,t3,.L1 lw t3,-264(s0) and t3,t3,1024 beqz t3,.L1 ld t0,-216(s0) add t3,t0,-1 bgtu t3,t1,.L1 ld t5,-232(s0) li s1,8 and t6,t5,7 add t2,t0,t6 and t5,t5,-8 sext.w t6,t6 sllw t1,t2,3 ld t4,0(t5) sll t3,t6,3 bgtu t0,s1,.L15 bgtu t2,s1,.L16 addw t1,t1,-1 li a0,2 sll a0,a0,t1 add a0,a0,-1 and a0,a0,t4 sra a0,a0,t3 .L1: ld ra,264(sp) ld s0,256(sp) ld s1,248(sp) add sp,sp,288 jr ra .L25: lbu a0,-256(s0) ld ra,264(sp) ld s0,256(sp) ld s1,248(sp) add sp,sp,288 jr ra .L29: lb a0,-256(s0) ld ra,264(sp) ld s0,256(sp) ld s1,248(sp) add sp,sp,288 jr ra .L30: lh a0,-256(s0) j .L1 .L33: lwu a0,-256(s0) j .L1 .L31: lhu a0,-256(s0) j .L1 .L27: ld a0,-256(s0) j .L1 .L32: lw a0,-256(s0) j .L1 .L34: flw fa0,-256(s0) j .L1 .L35: fld fa0,-256(s0) j .L1 .L15: li s1,16 sra t4,t4,t3 ld t0,8(t5) bleu t2,s1,.L36 li a1,-8 mulw t6,a1,t6 addw t1,t1,-129 ld a0,16(t5) li a1,2 sll a1,a1,t1 add a1,a1,-1 and a1,a1,a0 sra t3,t0,t3 addw t1,t6,64 sll a0,t0,t1 sll a1,a1,t1 or a0,a0,t4 or a1,a1,t3 j .L1 .L16: li a0,-8 mulw t6,a0,t6 addw t1,t1,-65 ld t5,8(t5) li a0,2 sll a0,a0,t1 add a0,a0,-1 and a0,a0,t5 sra t4,t4,t3 sll a0,a0,t6 or a0,a0,t4 j .L1 .L36: li a1,-4 mulw t6,a1,t6 addw t1,t1,-65 li a0,2 sll a0,a0,t1 add a0,a0,-1 and a0,a0,t0 sra a1,a0,t3 addw t1,t6,32 sll a0,a0,t1 sll a0,a0,t1 or a0,a0,t4 j .L1 .size vacall_receiver, .-vacall_receiver #if defined __linux__ || defined __FreeBSD__ || defined __FreeBSD_kernel__ || defined __DragonFly__ .section .note.GNU-stack,"",@progbits #endif libffcall-2.2/vacall/COPYING0000644000000000000000000004335713026317520012472 00000000000000 GNU GENERAL PUBLIC LICENSE Version 2, June 1991 Copyright (C) 1989, 1991 Free Software Foundation, Inc. 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. Everyone is permitted to copy and distribute verbatim copies of this license document, but changing it is not allowed. Preamble The licenses for most software are designed to take away your freedom to share and change it. By contrast, the GNU General Public License is intended to guarantee your freedom to share and change free software--to make sure the software is free for all its users. This General Public License applies to most of the Free Software Foundation's software and to any other program whose authors commit to using it. (Some other Free Software Foundation software is covered by the GNU Library General Public License instead.) You can apply it to your programs, too. When we speak of free software, we are referring to freedom, not price. Our General Public Licenses are designed to make sure that you have the freedom to distribute copies of free software (and charge for this service if you wish), that you receive source code or can get it if you want it, that you can change the software or use pieces of it in new free programs; and that you know you can do these things. To protect your rights, we need to make restrictions that forbid anyone to deny you these rights or to ask you to surrender the rights. These restrictions translate to certain responsibilities for you if you distribute copies of the software, or if you modify it. For example, if you distribute copies of such a program, whether gratis or for a fee, you must give the recipients all the rights that you have. You must make sure that they, too, receive or can get the source code. And you must show them these terms so they know their rights. We protect your rights with two steps: (1) copyright the software, and (2) offer you this license which gives you legal permission to copy, distribute and/or modify the software. Also, for each author's protection and ours, we want to make certain that everyone understands that there is no warranty for this free software. If the software is modified by someone else and passed on, we want its recipients to know that what they have is not the original, so that any problems introduced by others will not reflect on the original authors' reputations. Finally, any free program is threatened constantly by software patents. We wish to avoid the danger that redistributors of a free program will individually obtain patent licenses, in effect making the program proprietary. To prevent this, we have made it clear that any patent must be licensed for everyone's free use or not licensed at all. The precise terms and conditions for copying, distribution and modification follow. GNU GENERAL PUBLIC LICENSE TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION 0. This License applies to any program or other work which contains a notice placed by the copyright holder saying it may be distributed under the terms of this General Public License. The "Program", below, refers to any such program or work, and a "work based on the Program" means either the Program or any derivative work under copyright law: that is to say, a work containing the Program or a portion of it, either verbatim or with modifications and/or translated into another language. (Hereinafter, translation is included without limitation in the term "modification".) Each licensee is addressed as "you". Activities other than copying, distribution and modification are not covered by this License; they are outside its scope. The act of running the Program is not restricted, and the output from the Program is covered only if its contents constitute a work based on the Program (independent of having been made by running the Program). Whether that is true depends on what the Program does. 1. You may copy and distribute verbatim copies of the Program's source code as you receive it, in any medium, provided that you conspicuously and appropriately publish on each copy an appropriate copyright notice and disclaimer of warranty; keep intact all the notices that refer to this License and to the absence of any warranty; and give any other recipients of the Program a copy of this License along with the Program. You may charge a fee for the physical act of transferring a copy, and you may at your option offer warranty protection in exchange for a fee. 2. You may modify your copy or copies of the Program or any portion of it, thus forming a work based on the Program, and copy and distribute such modifications or work under the terms of Section 1 above, provided that you also meet all of these conditions: a) You must cause the modified files to carry prominent notices stating that you changed the files and the date of any change. b) You must cause any work that you distribute or publish, that in whole or in part contains or is derived from the Program or any part thereof, to be licensed as a whole at no charge to all third parties under the terms of this License. c) If the modified program normally reads commands interactively when run, you must cause it, when started running for such interactive use in the most ordinary way, to print or display an announcement including an appropriate copyright notice and a notice that there is no warranty (or else, saying that you provide a warranty) and that users may redistribute the program under these conditions, and telling the user how to view a copy of this License. (Exception: if the Program itself is interactive but does not normally print such an announcement, your work based on the Program is not required to print an announcement.) These requirements apply to the modified work as a whole. If identifiable sections of that work are not derived from the Program, and can be reasonably considered independent and separate works in themselves, then this License, and its terms, do not apply to those sections when you distribute them as separate works. But when you distribute the same sections as part of a whole which is a work based on the Program, the distribution of the whole must be on the terms of this License, whose permissions for other licensees extend to the entire whole, and thus to each and every part regardless of who wrote it. Thus, it is not the intent of this section to claim rights or contest your rights to work written entirely by you; rather, the intent is to exercise the right to control the distribution of derivative or collective works based on the Program. In addition, mere aggregation of another work not based on the Program with the Program (or with a work based on the Program) on a volume of a storage or distribution medium does not bring the other work under the scope of this License. 3. You may copy and distribute the Program (or a work based on it, under Section 2) in object code or executable form under the terms of Sections 1 and 2 above provided that you also do one of the following: a) Accompany it with the complete corresponding machine-readable source code, which must be distributed under the terms of Sections 1 and 2 above on a medium customarily used for software interchange; or, b) Accompany it with a written offer, valid for at least three years, to give any third party, for a charge no more than your cost of physically performing source distribution, a complete machine-readable copy of the corresponding source code, to be distributed under the terms of Sections 1 and 2 above on a medium customarily used for software interchange; or, c) Accompany it with the information you received as to the offer to distribute corresponding source code. (This alternative is allowed only for noncommercial distribution and only if you received the program in object code or executable form with such an offer, in accord with Subsection b above.) The source code for a work means the preferred form of the work for making modifications to it. For an executable work, complete source code means all the source code for all modules it contains, plus any associated interface definition files, plus the scripts used to control compilation and installation of the executable. However, as a special exception, the source code distributed need not include anything that is normally distributed (in either source or binary form) with the major components (compiler, kernel, and so on) of the operating system on which the executable runs, unless that component itself accompanies the executable. If distribution of executable or object code is made by offering access to copy from a designated place, then offering equivalent access to copy the source code from the same place counts as distribution of the source code, even though third parties are not compelled to copy the source along with the object code. 4. You may not copy, modify, sublicense, or distribute the Program except as expressly provided under this License. Any attempt otherwise to copy, modify, sublicense or distribute the Program is void, and will automatically terminate your rights under this License. However, parties who have received copies, or rights, from you under this License will not have their licenses terminated so long as such parties remain in full compliance. 5. You are not required to accept this License, since you have not signed it. However, nothing else grants you permission to modify or distribute the Program or its derivative works. These actions are prohibited by law if you do not accept this License. Therefore, by modifying or distributing the Program (or any work based on the Program), you indicate your acceptance of this License to do so, and all its terms and conditions for copying, distributing or modifying the Program or works based on it. 6. Each time you redistribute the Program (or any work based on the Program), the recipient automatically receives a license from the original licensor to copy, distribute or modify the Program subject to these terms and conditions. You may not impose any further restrictions on the recipients' exercise of the rights granted herein. You are not responsible for enforcing compliance by third parties to this License. 7. If, as a consequence of a court judgment or allegation of patent infringement or for any other reason (not limited to patent issues), conditions are imposed on you (whether by court order, agreement or otherwise) that contradict the conditions of this License, they do not excuse you from the conditions of this License. If you cannot distribute so as to satisfy simultaneously your obligations under this License and any other pertinent obligations, then as a consequence you may not distribute the Program at all. For example, if a patent license would not permit royalty-free redistribution of the Program by all those who receive copies directly or indirectly through you, then the only way you could satisfy both it and this License would be to refrain entirely from distribution of the Program. If any portion of this section is held invalid or unenforceable under any particular circumstance, the balance of the section is intended to apply and the section as a whole is intended to apply in other circumstances. It is not the purpose of this section to induce you to infringe any patents or other property right claims or to contest validity of any such claims; this section has the sole purpose of protecting the integrity of the free software distribution system, which is implemented by public license practices. Many people have made generous contributions to the wide range of software distributed through that system in reliance on consistent application of that system; it is up to the author/donor to decide if he or she is willing to distribute software through any other system and a licensee cannot impose that choice. This section is intended to make thoroughly clear what is believed to be a consequence of the rest of this License. 8. If the distribution and/or use of the Program is restricted in certain countries either by patents or by copyrighted interfaces, the original copyright holder who places the Program under this License may add an explicit geographical distribution limitation excluding those countries, so that distribution is permitted only in or among countries not thus excluded. In such case, this License incorporates the limitation as if written in the body of this License. 9. The Free Software Foundation may publish revised and/or new versions of the General Public License from time to time. Such new versions will be similar in spirit to the present version, but may differ in detail to address new problems or concerns. Each version is given a distinguishing version number. If the Program specifies a version number of this License which applies to it and "any later version", you have the option of following the terms and conditions either of that version or of any later version published by the Free Software Foundation. If the Program does not specify a version number of this License, you may choose any version ever published by the Free Software Foundation. 10. If you wish to incorporate parts of the Program into other free programs whose distribution conditions are different, write to the author to ask for permission. For software which is copyrighted by the Free Software Foundation, write to the Free Software Foundation; we sometimes make exceptions for this. Our decision will be guided by the two goals of preserving the free status of all derivatives of our free software and of promoting the sharing and reuse of software generally. NO WARRANTY 11. BECAUSE THE PROGRAM IS LICENSED FREE OF CHARGE, THERE IS NO WARRANTY FOR THE PROGRAM, TO THE EXTENT PERMITTED BY APPLICABLE LAW. EXCEPT WHEN OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR OTHER PARTIES PROVIDE THE PROGRAM "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. THE ENTIRE RISK AS TO THE QUALITY AND PERFORMANCE OF THE PROGRAM IS WITH YOU. SHOULD THE PROGRAM PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL NECESSARY SERVICING, REPAIR OR CORRECTION. 12. IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY AND/OR REDISTRIBUTE THE PROGRAM AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES, INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING OUT OF THE USE OR INABILITY TO USE THE PROGRAM (INCLUDING BUT NOT LIMITED TO LOSS OF DATA OR DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY YOU OR THIRD PARTIES OR A FAILURE OF THE PROGRAM TO OPERATE WITH ANY OTHER PROGRAMS), EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGES. END OF TERMS AND CONDITIONS Appendix: How to Apply These Terms to Your New Programs If you develop a new program, and you want it to be of the greatest possible use to the public, the best way to achieve this is to make it free software which everyone can redistribute and change under these terms. To do so, attach the following notices to the program. It is safest to attach them to the start of each source file to most effectively convey the exclusion of warranty; and each file should have at least the "copyright" line and a pointer to where the full notice is found. Copyright (C) This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program; if not, write to the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. Also add information on how to contact you by electronic and paper mail. If the program is interactive, make it output a short notice like this when it starts in an interactive mode: Gnomovision version 69, Copyright (C) year name of author Gnomovision comes with ABSOLUTELY NO WARRANTY; for details type `show w'. This is free software, and you are welcome to redistribute it under certain conditions; type `show c' for details. The hypothetical commands `show w' and `show c' should show the appropriate parts of the General Public License. Of course, the commands you use may be called something other than `show w' and `show c'; they could even be mouse-clicks or menu items--whatever suits your program. You should also get your employer (if you work as a programmer) or your school, if any, to sign a "copyright disclaimer" for the program, if necessary. Here is a sample; alter the names: Yoyodyne, Inc., hereby disclaims all copyright interest in the program `Gnomovision' (which makes passes at compilers) written by James Hacker. , 1 April 1989 Ty Coon, President of Vice This General Public License does not permit incorporating your program into proprietary programs. If your program is a subroutine library, you may consider it more useful to permit linking proprietary applications with the library. If this is what you want to do, use the GNU Library General Public License instead of this License. libffcall-2.2/vacall/vacall-powerpc64.c0000664000000000000000000003031413347755337014705 00000000000000/* vacall function for powerpc64 CPU */ /* * Copyright 1995-2017 Bruno Haible * Copyright 2000 Adam Fedor * Copyright 2004 Paul Guyot * * This program is free software: you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by * the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program. If not, see . */ #include "vacall-internal.h" #ifdef REENTRANT #define vacall_receiver callback_receiver register struct { void (*vacall_function) (void*,va_alist); void* arg; } * env __asm__("r11"); #endif register double farg1 __asm__("fr1"); register double farg2 __asm__("fr2"); register double farg3 __asm__("fr3"); register double farg4 __asm__("fr4"); register double farg5 __asm__("fr5"); register double farg6 __asm__("fr6"); register double farg7 __asm__("fr7"); register double farg8 __asm__("fr8"); register double farg9 __asm__("fr9"); register double farg10 __asm__("fr10"); register double farg11 __asm__("fr11"); register double farg12 __asm__("fr12"); register double farg13 __asm__("fr13"); register __vaword iret __asm__("r3"); register __vaword iret2 __asm__("r4"); register float fret __asm__("fr1"); register double dret __asm__("fr1"); #ifdef REENTRANT static #endif void /* the return type is variable, not void! */ vacall_receiver (__vaword word1, __vaword word2, __vaword word3, __vaword word4, __vaword word5, __vaword word6, __vaword word7, __vaword word8, __vaword firstword) { __va_alist list; /* When a parameter is passed in a register, * stack space is still allocated for it. */ /* Move the arguments passed in registers to their stack locations. */ (&firstword)[-8] = word1; (&firstword)[-7] = word2; (&firstword)[-6] = word3; (&firstword)[-5] = word4; (&firstword)[-4] = word5; (&firstword)[-3] = word6; (&firstword)[-2] = word7; (&firstword)[-1] = word8; list.farg[0] = farg1; list.farg[1] = farg2; list.farg[2] = farg3; list.farg[3] = farg4; list.farg[4] = farg5; list.farg[5] = farg6; list.farg[6] = farg7; list.farg[7] = farg8; list.farg[8] = farg9; list.farg[9] = farg10; list.farg[10] = farg11; list.farg[11] = farg12; list.farg[12] = farg13; /* Prepare the va_alist. */ list.flags = 0; list.aptr = (long)(&firstword - 8); list.raddr = (void*)0; list.rtype = __VAvoid; list.fanum = 0; /* Call vacall_function. The macros do all the rest. */ #ifndef REENTRANT (*vacall_function) (&list); #else /* REENTRANT */ (*env->vacall_function) (env->arg,&list); #endif /* Put return value into proper register. */ if (list.rtype == __VAvoid) { } else if (list.rtype == __VAchar) { iret = list.tmp._char; } else if (list.rtype == __VAschar) { iret = list.tmp._schar; } else if (list.rtype == __VAuchar) { iret = list.tmp._uchar; } else if (list.rtype == __VAshort) { iret = list.tmp._short; } else if (list.rtype == __VAushort) { iret = list.tmp._ushort; } else if (list.rtype == __VAint) { iret = list.tmp._int; } else if (list.rtype == __VAuint) { iret = list.tmp._uint; } else if (list.rtype == __VAlong) { iret = list.tmp._long; } else if (list.rtype == __VAulong) { iret = list.tmp._ulong; } else if (list.rtype == __VAlonglong) { iret = list.tmp._long; } else if (list.rtype == __VAulonglong) { iret = list.tmp._ulong; } else if (list.rtype == __VAfloat) { fret = list.tmp._float; } else if (list.rtype == __VAdouble) { dret = list.tmp._double; } else if (list.rtype == __VAvoidp) { iret = (long)list.tmp._ptr; } else if (list.rtype == __VAstruct) { #ifdef __powerpc64_elfv2__ if (list.flags & __VA_REGISTER_STRUCT_RETURN) { /* In the ELFv2 ABI, gcc returns structs of size <= 16 in registers. */ if (list.rsize > 0 && list.rsize <= 16) { #if 0 /* Unoptimized */ if (list.rsize == 1) { iret = (__vaword)((unsigned char *) list.raddr)[0]; } else if (list.rsize == 2) { iret = ((__vaword)((unsigned char *) list.raddr)[0]) | ((__vaword)((unsigned char *) list.raddr)[1] << 8); } else if (list.rsize == 3) { iret = ((__vaword)((unsigned char *) list.raddr)[0]) | ((__vaword)((unsigned char *) list.raddr)[1] << 8) | ((__vaword)((unsigned char *) list.raddr)[2] << 16); } else if (list.rsize == 4) { iret = ((__vaword)((unsigned char *) list.raddr)[0]) | ((__vaword)((unsigned char *) list.raddr)[1] << 8) | ((__vaword)((unsigned char *) list.raddr)[2] << 16) | ((__vaword)((unsigned char *) list.raddr)[3] << 24); } else if (list.rsize == 5) { iret = ((__vaword)((unsigned char *) list.raddr)[0]) | ((__vaword)((unsigned char *) list.raddr)[1] << 8) | ((__vaword)((unsigned char *) list.raddr)[2] << 16) | ((__vaword)((unsigned char *) list.raddr)[3] << 24) | ((__vaword)((unsigned char *) list.raddr)[4] << 32); } else if (list.rsize == 6) { iret = ((__vaword)((unsigned char *) list.raddr)[0]) | ((__vaword)((unsigned char *) list.raddr)[1] << 8) | ((__vaword)((unsigned char *) list.raddr)[2] << 16) | ((__vaword)((unsigned char *) list.raddr)[3] << 24) | ((__vaword)((unsigned char *) list.raddr)[4] << 32) | ((__vaword)((unsigned char *) list.raddr)[5] << 40); } else if (list.rsize == 7) { iret = ((__vaword)((unsigned char *) list.raddr)[0]) | ((__vaword)((unsigned char *) list.raddr)[1] << 8) | ((__vaword)((unsigned char *) list.raddr)[2] << 16) | ((__vaword)((unsigned char *) list.raddr)[3] << 24) | ((__vaword)((unsigned char *) list.raddr)[4] << 32) | ((__vaword)((unsigned char *) list.raddr)[5] << 40) | ((__vaword)((unsigned char *) list.raddr)[6] << 48); } else if (list.rsize >= 8 && list.rsize <= 16) { iret = ((__vaword)((unsigned char *) list.raddr)[0]) | ((__vaword)((unsigned char *) list.raddr)[1] << 8) | ((__vaword)((unsigned char *) list.raddr)[2] << 16) | ((__vaword)((unsigned char *) list.raddr)[3] << 24) | ((__vaword)((unsigned char *) list.raddr)[4] << 32) | ((__vaword)((unsigned char *) list.raddr)[5] << 40) | ((__vaword)((unsigned char *) list.raddr)[6] << 48) | ((__vaword)((unsigned char *) list.raddr)[7] << 56); if (list.rsize == 8) { } else if (list.rsize == 9) { iret2 = (__vaword)((unsigned char *) list.raddr)[8]; } else if (list.rsize == 10) { iret2 = ((__vaword)((unsigned char *) list.raddr)[8]) | ((__vaword)((unsigned char *) list.raddr)[9] << 8); } else if (list.rsize == 11) { iret2 = ((__vaword)((unsigned char *) list.raddr)[8]) | ((__vaword)((unsigned char *) list.raddr)[9] << 8) | ((__vaword)((unsigned char *) list.raddr)[10] << 16); } else if (list.rsize == 12) { iret2 = ((__vaword)((unsigned char *) list.raddr)[8]) | ((__vaword)((unsigned char *) list.raddr)[9] << 8) | ((__vaword)((unsigned char *) list.raddr)[10] << 16) | ((__vaword)((unsigned char *) list.raddr)[11] << 24); } else if (list.rsize == 13) { iret2 = ((__vaword)((unsigned char *) list.raddr)[8]) | ((__vaword)((unsigned char *) list.raddr)[9] << 8) | ((__vaword)((unsigned char *) list.raddr)[10] << 16) | ((__vaword)((unsigned char *) list.raddr)[11] << 24) | ((__vaword)((unsigned char *) list.raddr)[12] << 32); } else if (list.rsize == 14) { iret2 = ((__vaword)((unsigned char *) list.raddr)[8]) | ((__vaword)((unsigned char *) list.raddr)[9] << 8) | ((__vaword)((unsigned char *) list.raddr)[10] << 16) | ((__vaword)((unsigned char *) list.raddr)[11] << 24) | ((__vaword)((unsigned char *) list.raddr)[12] << 32) | ((__vaword)((unsigned char *) list.raddr)[13] << 40); } else if (list.rsize == 15) { iret2 = ((__vaword)((unsigned char *) list.raddr)[8]) | ((__vaword)((unsigned char *) list.raddr)[9] << 8) | ((__vaword)((unsigned char *) list.raddr)[10] << 16) | ((__vaword)((unsigned char *) list.raddr)[11] << 24) | ((__vaword)((unsigned char *) list.raddr)[12] << 32) | ((__vaword)((unsigned char *) list.raddr)[13] << 40) | ((__vaword)((unsigned char *) list.raddr)[14] << 48); } else if (list.rsize == 16) { iret2 = ((__vaword)((unsigned char *) list.raddr)[8]) | ((__vaword)((unsigned char *) list.raddr)[9] << 8) | ((__vaword)((unsigned char *) list.raddr)[10] << 16) | ((__vaword)((unsigned char *) list.raddr)[11] << 24) | ((__vaword)((unsigned char *) list.raddr)[12] << 32) | ((__vaword)((unsigned char *) list.raddr)[13] << 40) | ((__vaword)((unsigned char *) list.raddr)[14] << 48) | ((__vaword)((unsigned char *) list.raddr)[15] << 56); } } #else /* Optimized: fewer conditional jumps, fewer memory accesses */ uintptr_t count = list.rsize; /* > 0, ≤ 2*sizeof(__vaword) */ __vaword* wordaddr = (__vaword*)((uintptr_t)list.raddr & ~(uintptr_t)(sizeof(__vaword)-1)); uintptr_t start_offset = (uintptr_t)list.raddr & (uintptr_t)(sizeof(__vaword)-1); /* ≥ 0, < sizeof(__vaword) */ uintptr_t end_offset = start_offset + count; /* > 0, < 3*sizeof(__vaword) */ if (count <= sizeof(__vaword)) { /* Assign iret. */ if (end_offset <= sizeof(__vaword)) { /* 0 < end_offset ≤ sizeof(__vaword) */ __vaword mask0 = ((__vaword)2 << (end_offset*8-1)) - 1; iret = (wordaddr[0] & mask0) >> (start_offset*8); } else { /* sizeof(__vaword) < end_offset < 2*sizeof(__vaword), start_offset > 0 */ __vaword mask1 = ((__vaword)2 << (end_offset*8-sizeof(__vaword)*8-1)) - 1; iret = (wordaddr[0] >> (start_offset*8)) | ((wordaddr[1] & mask1) << (sizeof(__vaword)*8-start_offset*8)); } } else { /* Assign iret, iret2. */ if (end_offset <= 2*sizeof(__vaword)) { /* sizeof(__vaword) < end_offset ≤ 2*sizeof(__vaword) */ __vaword mask1 = ((__vaword)2 << (end_offset*8-sizeof(__vaword)*8-1)) - 1; iret = (wordaddr[0] >> (start_offset*8)) | ((wordaddr[1] & mask1) << (sizeof(__vaword)*4-start_offset*4) << (sizeof(__vaword)*4-start_offset*4)); iret2 = (wordaddr[1] & mask1) >> (start_offset*8); } else { /* 2*sizeof(__vaword) < end_offset < 3*sizeof(__vaword), start_offset > 0 */ __vaword mask2 = ((__vaword)2 << (end_offset*8-2*sizeof(__vaword)*8-1)) - 1; iret = (wordaddr[0] >> (start_offset*8)) | (wordaddr[1] << (sizeof(__vaword)*8-start_offset*8)); iret2 = (wordaddr[1] >> (start_offset*8)) | ((wordaddr[2] & mask2) << (sizeof(__vaword)*8-start_offset*8)); } } #endif } } #endif } } #ifdef REENTRANT __vacall_r_t callback_get_receiver (void) { return (__vacall_r_t)(void*)&callback_receiver; } #endif libffcall-2.2/ffcall-version.in.h0000664000000000000000000000202713347755317013674 00000000000000/* * Copyright 2009-2017 Bruno Haible * * This program is free software: you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by * the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program. If not, see . */ #if !defined(FFCALL_VERSION_H) /* Version number of libffcall (include files): (major<<8) + minor. */ #define LIBFFCALL_VERSION 0 #ifdef __cplusplus extern "C" { #endif /* Version number of libffcall (library): (major<<8) + minor. */ extern int ffcall_get_version (void); #ifdef __cplusplus } #endif #endif /* FFCALL_VERSION_H */ libffcall-2.2/NEWS0000664000000000000000000001555113530336773010704 00000000000000New in 2.2: * Added support for the following platforms: (Previously, a build on these platforms failed.) - armv6 (Raspberry Pi): Linux. - hppa: Linux 32-bit. - riscv32: Linux with ilp32d ABI. - riscv64: Linux with lp64d ABI. * The build for the mips 32-bit ABI is now compatible with toolchains for the 'fpxx' ABI variant. The downside is that the mips1 architecture is no longer supported. * Fixed a bug regarding passing of more than 8 arguments on the following platforms: - arm64: Linux 64-bit. * Fixed a stack corruption bug on the following platforms: - hppa: HP-UX 32-bit. New in 2.1: * Added support for the following platforms: (Previously, a build on these platforms failed.) - arm: Linux with PIE-enabled gcc. - x86_64: Solaris 11.3. - OpenBSD 6.1. - HardenedBSD 10 and 11. * Fixed a bug regarding passing of pointers on the following platforms: - x86_64: Linux with x32 ABI: CC="gcc -mx32". * Fixed a crash in trampoline on the following platforms: - mips: Linux with CC="gcc -mabi=64", little endian. New in 2.0: * The package now installs a library libffcall.{a,so}. It contains the 'avcall' and 'callback' packages. The libraries libavcall.{a,so} and libcallback.{a,so} are still installed as well, but are deprecated. * The installed libraries are now installed as shared libraries by default (except for libvacall, which is still a static library only). * The installed shared libraries are now properly versioned. This means that when installing with --enable-shared, upgrading to a newer version of libffcall will not break existing binaries. * The installed include files are now platform independent. This means that you can now install libffcall for different ABIs on the same system, using the same --prefix option but different --exec-prefix options for each ABI. * API changes in : - The second argument of alloc_trampoline() is now a 'void**', rather than a 'void*'. - The return value of trampoline_variable() is now a 'void**', rather than a 'void*'. - The argument of trampoline_address(), trampoline_variable(), trampoline_data() is now a function pointer instead of a 'void*'. * API changes in : - The argument of callback_address(), callback_data() is now a function pointer instead of a 'void*'. * Fixed a bug regarding floating-point arguments followed by non-floating-point arguments on the following platforms: - arm: Linux 32-bit, with hardware floats. - powerpc: Linux 32-bit. - s390: Linux. * Fixed a bug regarding structure returns on the following platforms: - i386: FreeBSD. - i386: MinGW. - mips: old 32-bit ABI (Linux, IRIX). * Added support for the following platforms: (Previously, a build on these platforms failed.) - i386: MSVC 14. - x86_64: Cygwin. - x86_64: MinGW. - x86_64: MSVC 14. - hppa64: HP-UX 11. - m68k: Linux. * Verified support for the following platforms: (A build on these platforms worked and still works.) - i386: FreeBSD, NetBSD, OpenBSD, DragonFly BSD. - i386: Hurd. - x86_64: FreeBSD, NetBSD, OpenBSD. New in 1.13: * The license has been changed from GPLv2 to GPLv2+. * Added support for the following platforms: (Previously, a build on these platforms failed.) - x86_64: Mac OS X 64-bit. - x86_64: Solaris 64-bit. - x86_64: Linux with x32 ABI: CC="gcc -mx32". - arm: Linux 32-bit, without hardware floats. - arm64: Linux 64-bit. - s390x: Linux 64-bit. - powerpc: AIX 64-bit. - mips: IRIX 6.5 with CC="cc -32". - sparc: Solaris 64-bit. * Fixed support for the following platforms: (Previously, a build on these platforms appeared to succeed but was buggy.) - x86_64: Linux. - arm: Linux 32-bit, with hardware floats. - powerpc: Linux 64-bit. - mips: Linux with CC="gcc -mabi=32". - mips: Linux with CC="gcc -mabi=n32". - mips: Linux with CC="gcc -mabi=64". - mips: IRIX 6.5 with CC="gcc -mabi=n32". - s390: Linux. - sparc: Linux 64-bit. - ia64: Linux. - hppa: HP-UX 32-bit. * Verified support for the following platforms: (A build on these platforms worked and still works.) - i386: Linux, Solaris, Mac OS X. - powerpc: Linux 32-bit. - powerpc: AIX 32-bit. - powerpc: MacOS X. - mips: IRIX 6.5 with CC="cc -n32". - sparc: Solaris 32-bit. - sparc: Linux 32-bit: CC="gcc -m32". - alpha: Linux. * Support for a security feature: On Linux and FreeBSD platforms, linking with the libffcall libraries no longer causes the stack to become executable. New in 1.12: * Added ppc64le to the list of supported architectures. New in 1.11: * Header now define LIBFFCALL_VERSION (to 0x010B). * Better support for IA64 on Linux (kernel 2.6.16+ and gcc 4.1.0+). * Added ARM support from Jonathan Olson (debian 1.10-2). * Added MIPSel support from Thiemo Seufer (debian 1.10-2). * Added ARMel support from Max Lapan. New in 1.10: * Added support for PowerPC NetBSD. New in 1.9: * Added support for x86_64 (AMD64) Linux. * Added support for PowerPC MacOS X. New in 1.8: * Added support for IA64 Linux. New in 1.7: * Struct types containing elements other than int, long, long long, pointer are not supported any more. Passing them as arguments and results is too hairy. * Added support for PowerPC Linux. New in 1.6: * The avcall and callback packages are compiled as position-independent code, if CC="gcc -fPIC". * The avcall and callback packages are built as shared libraries, if the option "--enable-shared" is passed to configure. * The package can now be built with CC="gcc -x c++". * Improved RS6000/PowerPC support. * Improved support for gcc on Irix6 (-n32 ABI). * Added preliminary support for 64-bit SPARC. New in 1.5: * Added support for m68k Linux. New in 1.4: * Added support for the two new ABIs on Irix6 (-n32, -64). * A fix for DEC Alpha. New in 1.3.1: * Added support for Mingw32 on Win32. * Fixed a compilation problem in trampoline on m68k NetBSD. * Fixed an installation problem with clisp: When configured outside the source directory, callback.h would not be copied into the build directory. New in 1.3: * Added the callback package, a reentrant combination of vacall and trampoline. * The avcall and callback packages are multithread-safe. * Fixed bugs in trampoline on hppa and rs6000. * On hppa, added support for gcc-2.7.2, although its calling convention is different from gcc-2.6.3. New in 1.2.1: * Added support for MSVC5 on Win32. New in 1.2: * Support passing/returning values of type ‘long long’ and ‘unsigned long long’ on platforms which have these types. * Support for "stdcall" calling convention on i386. * Added support for Cygwin32 and MSVC4 on Win32. * Added support for EMX on OS/2. * Added support for m68k AmigaOS (Jörg Höhle). * Added support for m68k SunOS 4.0.3. * More reliable cache-flushing in trampoline. New in 1.1: * Added support for SUNWspro cc on Sparc Solaris. * Added support for AIX 4. * Added preliminary support for 64-bit MIPS. libffcall-2.2/README0000664000000000000000000000762113526517150011057 00000000000000libffcall - foreign function call libraries This is a library which can be used to build foreign function call interfaces in embedded interpreters. Installed libraries and header files: It installs a library libffcall.{a,so}; to link with it, use the compiler option '-lffcall'. It consists of two parts: * avcall - calling C functions with variable arguments. Its include file is . * callback - closures with variable arguments as first-class C functions. Its include file is . Additionally, you can determine the libffcall version by including . For backward compatibility with versions 1.x, libraries libavcall.{a,so} and libcallback.{a,so} are installed as well. But they are deprecated; use libffcall.{a,so} instead. Installation instructions: mkdir builddir cd builddir ../configure --cache-file=config.cache make make check make install Files in this package: Documentation: README this text COPYING free software license PLATFORMS list of supported platforms Source: avcall/* the avcall package (compiled into libffcall) vacall/* the vacall package Implements C functions accepting variable argument prototypes. This is a non-reentrant variant of part of 'callback'. *Not* compiled into libffcall. trampoline/* the trampoline package Implements closures as first-class C functions. This is a non-reentrant variant of part of 'callback'. *Not* compiled into libffcall. callback/* the callback package (compiled into libffcall) Building: configure configuration script configure.ac autoconf source for the configuration script m4/* auxiliary configuration scripts Makefile.in Makefile master Copyright notice: Copyright 1993-1995 Bill Triggs (original avcall) Copyright 1995-2017 Bruno Haible (everything) Copyright 1997 Jörg Höhle (m68k AmigaOS support) Copyright 2000 Adam Fedor (PowerPC MacOS support) Copyright 2001-2012 Sam Steingold (build infrastructure) Copyright 2001-2002 Gerhard Tonn (s390 support) Copyright 2004 Paul Guyot (PowerPC MacOS support) Copyright 2005 Thiemo Seufer (MIPS EL support) Copyright 2009 Max Lapan (ARM EL support) Copyright 2010 Valery Ushakov (SPARC64 improvements) This program is free software: you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program. If not, see . Distribution: git: $ git clone git://git.savannah.gnu.org/libffcall.git See https://savannah.gnu.org/git/?group=libffcall for more info. Bug reports: Report bugs - in the bug tracker at - or by email to . Homepage: https://www.gnu.org/software/libffcall/ libffcall-2.2/testcases.c0000664000000000000000000006202013530343142012324 00000000000000/* * Copyright 1993 Bill Triggs * Copyright 1995-2019 Bruno Haible * * This program is free software: you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by * the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program. If not, see . */ /* This file defines test functions of selected signatures, that exercise dark corners of the various ABIs. */ #include FILE* out; #define uchar unsigned char #define ushort unsigned short #define uint unsigned int #define ulong unsigned long typedef struct { char x; } Char; typedef struct { short x; } Short; typedef struct { int x; } Int; typedef struct { long x; } Long; typedef struct { float x; } Float; typedef struct { double x; } Double; typedef struct { char c; float f; } A; typedef struct { double d; int i[3]; } B; typedef struct { long l1; long l2; } J; typedef struct { long l1; long l2; long l3; long l4; } K; typedef struct { long l1; long l2; long l3; long l4; long l5; long l6; } L; typedef struct { char x1; } Size1; typedef struct { char x1; char x2; } Size2; typedef struct { char x1; char x2; char x3; } Size3; typedef struct { char x1; char x2; char x3; char x4; } Size4; typedef struct { char x1; char x2; char x3; char x4; char x5; char x6; char x7; } Size7; typedef struct { char x1; char x2; char x3; char x4; char x5; char x6; char x7; char x8; } Size8; typedef struct { char x1; char x2; char x3; char x4; char x5; char x6; char x7; char x8; char x9; char x10; char x11; char x12; } Size12; typedef struct { char x1; char x2; char x3; char x4; char x5; char x6; char x7; char x8; char x9; char x10; char x11; char x12; char x13; char x14; char x15; } Size15; typedef struct { char x1; char x2; char x3; char x4; char x5; char x6; char x7; char x8; char x9; char x10; char x11; char x12; char x13; char x14; char x15; char x16; } Size16; typedef struct { char c[3]; } T; typedef struct { char c[33],c1; } X; char c1='a', c2=127, c3=(char)128, c4=(char)255, c5=-1; short s1=32767, s2=(short)32768, s3=3, s4=4, s5=5, s6=6, s7=7, s8=8, s9=9; int i1=1, i2=2, i3=3, i4=4, i5=5, i6=6, i7=7, i8=8, i9=9, i10=11, i11=12, i12=13, i13=14, i14=15, i15=16, i16=17, i17=18, i18=19, i19=20, i20=21, i21=22, i22=23, i23=24, i24=25, i25=26, i26=27, i27=28, i28=29, i29=30, i30=31, i31=32, i32=33; long l1=1, l2=2, l3=3, l4=4, l5=5, l6=6, l7=7, l8=8, l9=9; long long ll1 = 3875056143130689530LL; float f1=0.1, f2=0.2, f3=0.3, f4=0.4, f5=0.5, f6=0.6, f7=0.7, f8=0.8, f9=0.9, f10=1.1, f11=1.2, f12=1.3, f13=1.4, f14=1.5, f15=1.6, f16=1.7, f17=1.8, f18=1.9, f19=2.1, f20=2.2, f21=2.3, f22=2.4, f23=2.5, f24=2.6; double d1=0.1, d2=0.2, d3=0.3, d4=0.4, d5=0.5, d6=0.6, d7=0.7, d8=0.8, d9=0.9, d10=1.1, d11=1.2, d12=1.3, d13=1.4, d14=1.5, d15=1.6, d16=1.7, d17=1.8; uchar uc1='a', uc2=127, uc3=128, uc4=255, uc5=(uchar)-1; ushort us1=1, us2=2, us3=3, us4=4, us5=5, us6=6, us7=7, us8=8, us9=9; uint ui1=1, ui2=2, ui3=3, ui4=4, ui5=5, ui6=6, ui7=7, ui8=8, ui9=9; ulong ul1=1, ul2=2, ul3=3, ul4=4, ul5=5, ul6=6, ul7=7, ul8=8, ul9=9; char *str1="hello",str2[]="goodbye",*str3="still here?"; Char C1={'A'}, C2={'B'}, C3={'C'}, C4={'\377'}, C5={(char)(-1)}; Short S1={1}, S2={2}, S3={3}, S4={4}, S5={5}, S6={6}, S7={7}, S8={8}, S9={9}; Int I1={1}, I2={2}, I3={3}, I4={4}, I5={5}, I6={6}, I7={7}, I8={8}, I9={9}; Float F1={0.1}, F2={0.2}, F3={0.3}, F4={0.4}, F5={0.5}, F6={0.6}, F7={0.7}, F8={0.8}, F9={0.9}; Double D1={0.1}, D2={0.2}, D3={0.3}, D4={0.4}, D5={0.5}, D6={0.6}, D7={0.7}, D8={0.8}, D9={0.9}; A A1={'a',0.1},A2={'b',0.2},A3={'\377',0.3}; B B1={0.1,{1,2,3}},B2={0.2,{5,4,3}}; J J1={47,11},J2={73,55}; K K1={19,69,12,28}; L L1={561,1105,1729,2465,2821,6601}; /* A002997 */ Size1 Size1_1={'a'}; Size2 Size2_1={'a','b'}; Size3 Size3_1={'a','b','c'}; Size4 Size4_1={'a','b','c','d'}; Size7 Size7_1={'a','b','c','d','e','f','g'}; Size8 Size8_1={'a','b','c','d','e','f','g','h'}; Size12 Size12_1={'a','b','c','d','e','f','g','h','i','j','k','l'}; Size15 Size15_1={'a','b','c','d','e','f','g','h','i','j','k','l','m','n','o'}; Size16 Size16_1={'a','b','c','d','e','f','g','h','i','j','k','l','m','n','o','p'}; T T1={'t','h','e'},T2={'f','o','x'}; X X1={"abcdefghijklmnopqrstuvwxyzABCDEF",'G'}, X2={"123",'9'}, X3={"return-return-return",'R'}; /* void tests */ void v_v (void) { fprintf(out,"void f(void):\n"); fflush(out); } /* int tests */ int i_v (void) { int r=99; fprintf(out,"int f(void):"); fflush(out); return r; } int i_i (int a) { int r=a+1; fprintf(out,"int f(int):(%d)",a); fflush(out); return r; } int i_i2 (int a, int b) { int r=a+b; fprintf(out,"int f(2*int):(%d,%d)",a,b); fflush(out); return r; } int i_i4 (int a, int b, int c, int d) { int r=a+b+c+d; fprintf(out,"int f(4*int):(%d,%d,%d,%d)",a,b,c,d); fflush(out); return r; } int i_i8 (int a, int b, int c, int d, int e, int f, int g, int h) { int r=a+b+c+d+e+f+g+h; fprintf(out,"int f(8*int):(%d,%d,%d,%d,%d,%d,%d,%d)",a,b,c,d,e,f,g,h); fflush(out); return r; } int i_i16 (int a, int b, int c, int d, int e, int f, int g, int h, int i, int j, int k, int l, int m, int n, int o, int p) { int r=a+b+c+d+e+f+g+h+i+j+k+l+m+n+o+p; fprintf(out,"int f(16*int):(%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d)", a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p); fflush(out); return r; } int i_i32 (int a, int b, int c, int d, int e, int f, int g, int h, int i, int j, int k, int l, int m, int n, int o, int p, int aa, int ab, int ac, int ad, int ae, int af, int ag, int ah, int ai, int aj, int ak, int al, int am, int an, int ao, int ap) { int r=a+b+c+d+e+f+g+h+i+j+k+l+m+n+o+p+aa+ab+ac+ad+ae+af+ag+ah+ai+aj+ak+al+am+an+ao+ap; fprintf(out,"int f(32*int):(%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d)", a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,aa,ab,ac,ad,ae,af,ag,ah,ai,aj,ak,al,am,an,ao,ap); fflush(out); return r; } /* float tests */ float f_f (float a) { float r=a+1.0; fprintf(out,"float f(float):(%g)",a); fflush(out); return r; } float f_f2 (float a, float b) { float r=a+b; fprintf(out,"float f(2*float):(%g,%g)",a,b); fflush(out); return r; } float f_f4 (float a, float b, float c, float d) { float r=a+b+c+d; fprintf(out,"float f(4*float):(%g,%g,%g,%g)",a,b,c,d); fflush(out); return r; } float f_f8 (float a, float b, float c, float d, float e, float f, float g, float h) { float r=a+b+c+d+e+f+g+h; fprintf(out,"float f(8*float):(%g,%g,%g,%g,%g,%g,%g,%g)",a,b,c,d,e,f,g,h); fflush(out); return r; } float f_f16 (float a, float b, float c, float d, float e, float f, float g, float h, float i, float j, float k, float l, float m, float n, float o, float p) { float r=a+b+c+d+e+f+g+h+i+j+k+l+m+n+o+p; fprintf(out,"float f(16*float):(%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g)",a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p); fflush(out); return r; } float f_f24 (float a, float b, float c, float d, float e, float f, float g, float h, float i, float j, float k, float l, float m, float n, float o, float p, float q, float s, float t, float u, float v, float w, float x, float y) { float r=a+b+c+d+e+f+g+h+i+j+k+l+m+n+o+p+q+s+t+u+v+w+x+y; fprintf(out,"float f(24*float):(%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g)",a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,s,t,u,v,w,x,y); fflush(out); return r; } /* double tests */ double d_d (double a) { double r=a+1.0; fprintf(out,"double f(double):(%g)",a); fflush(out); return r; } double d_d2 (double a, double b) { double r=a+b; fprintf(out,"double f(2*double):(%g,%g)",a,b); fflush(out); return r; } double d_d4 (double a, double b, double c, double d) { double r=a+b+c+d; fprintf(out,"double f(4*double):(%g,%g,%g,%g)",a,b,c,d); fflush(out); return r; } double d_d8 (double a, double b, double c, double d, double e, double f, double g, double h) { double r=a+b+c+d+e+f+g+h; fprintf(out,"double f(8*double):(%g,%g,%g,%g,%g,%g,%g,%g)",a,b,c,d,e,f,g,h); fflush(out); return r; } double d_d16 (double a, double b, double c, double d, double e, double f, double g, double h, double i, double j, double k, double l, double m, double n, double o, double p) { double r=a+b+c+d+e+f+g+h+i+j+k+l+m+n+o+p; fprintf(out,"double f(16*double):(%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g)",a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p); fflush(out); return r; } /* pointer tests */ void* vp_vpdpcpsp (void* a, double* b, char* c, Int* d) { void* ret = (char*)b + 1; fprintf(out,"void* f(void*,double*,char*,Int*):(0x%p,0x%p,0x%p,0x%p)",a,b,c,d); fflush(out); return ret; } /* mixed number tests */ uchar uc_ucsil (uchar a, ushort b, uint c, ulong d) { uchar r = (uchar)-1; fprintf(out,"uchar f(uchar,ushort,uint,ulong):(%u,%u,%u,%lu)",a,b,c,d); fflush(out); return r; } double d_iidd (int a, int b, double c, double d) { double r = a+b+c+d; fprintf(out,"double f(int,int,double,double):(%d,%d,%g,%g)",a,b,c,d); fflush(out); return r; } double d_iiidi (int a, int b, int c, double d, int e) { double r = a+b+c+d+e; fprintf(out,"double f(int,int,int,double,int):(%d,%d,%d,%g,%d)",a,b,c,d,e); fflush(out); return r; } double d_idid (int a, double b, int c, double d) { double r = a+b+c+d; fprintf(out,"double f(int,double,int,double):(%d,%g,%d,%g)",a,b,c,d); fflush(out); return r; } double d_fdi (float a, double b, int c) { double r = a+b+c; fprintf(out,"double f(float,double,int):(%g,%g,%d)",a,b,c); fflush(out); return r; } ushort us_cdcd (char a, double b, char c, double d) { ushort r = (ushort)(a + b + c + d); fprintf(out,"ushort f(char,double,char,double):('%c',%g,'%c',%g)",a,b,c,d); fflush(out); return r; } long long ll_iiilli (int a, int b, int c, long long d, int e) { long long r = (long long)(int)a+(long long)(int)b+(long long)(int)c+d+(long long)(int)e; fprintf(out,"long long f(int,int,int,long long,int):(%d,%d,%d,0x%lx%08lx,%d)",a,b,c,(long)(d>>32),(long)(d&0xffffffff),e); fflush(out); return r; } long long ll_flli (float a, long long b, int c) { long long r = (long long)(int)a + b + (long long)c; fprintf(out,"long long f(float,long long,int):(%g,0x%lx%08lx,0x%lx)",a,(long)(b>>32),(long)(b&0xffffffff),(long)c); fflush(out); return r; } float f_fi (float a, int z) { float r = a+z; fprintf(out,"float f(float,int):(%g,%d)",a,z); fflush(out); return r; } float f_f2i (float a, float b, int z) { float r = a+b+z; fprintf(out,"float f(2*float,int):(%g,%g,%d)",a,b,z); fflush(out); return r; } float f_f3i (float a, float b, float c, int z) { float r = a+b+c+z; fprintf(out,"float f(3*float,int):(%g,%g,%g,%d)",a,b,c,z); fflush(out); return r; } float f_f4i (float a, float b, float c, float d, int z) { float r = a+b+c+d+z; fprintf(out,"float f(4*float,int):(%g,%g,%g,%g,%d)",a,b,c,d,z); fflush(out); return r; } float f_f7i (float a, float b, float c, float d, float e, float f, float g, int z) { float r = a+b+c+d+e+f+g+z; fprintf(out,"float f(7*float,int):(%g,%g,%g,%g,%g,%g,%g,%d)",a,b,c,d,e,f,g,z); fflush(out); return r; } float f_f8i (float a, float b, float c, float d, float e, float f, float g, float h, int z) { float r = a+b+c+d+e+f+g+h+z; fprintf(out,"float f(8*float,int):(%g,%g,%g,%g,%g,%g,%g,%g,%d)",a,b,c,d,e,f,g,h,z); fflush(out); return r; } float f_f12i (float a, float b, float c, float d, float e, float f, float g, float h, float i, float j, float k, float l, int z) { float r = a+b+c+d+e+f+g+h+i+j+k+l+z; fprintf(out,"float f(12*float,int):(%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%d)",a,b,c,d,e,f,g,h,i,j,k,l,z); fflush(out); return r; } float f_f13i (float a, float b, float c, float d, float e, float f, float g, float h, float i, float j, float k, float l, float m, int z) { float r = a+b+c+d+e+f+g+h+i+j+k+l+m+z; fprintf(out,"float f(13*float,int):(%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%d)",a,b,c,d,e,f,g,h,i,j,k,l,m,z); fflush(out); return r; } double d_di (double a, int z) { double r = a+z; fprintf(out,"double f(double,int):(%g,%d)",a,z); fflush(out); return r; } double d_d2i (double a, double b, int z) { double r = a+b+z; fprintf(out,"double f(2*double,int):(%g,%g,%d)",a,b,z); fflush(out); return r; } double d_d3i (double a, double b, double c, int z) { double r = a+b+c+z; fprintf(out,"double f(3*double,int):(%g,%g,%g,%d)",a,b,c,z); fflush(out); return r; } double d_d4i (double a, double b, double c, double d, int z) { double r = a+b+c+d+z; fprintf(out,"double f(4*double,int):(%g,%g,%g,%g,%d)",a,b,c,d,z); fflush(out); return r; } double d_d7i (double a, double b, double c, double d, double e, double f, double g, int z) { double r = a+b+c+d+e+f+g+z; fprintf(out,"double f(7*double,int):(%g,%g,%g,%g,%g,%g,%g,%d)",a,b,c,d,e,f,g,z); fflush(out); return r; } double d_d8i (double a, double b, double c, double d, double e, double f, double g, double h, int z) { double r = a+b+c+d+e+f+g+h+z; fprintf(out,"double f(8*double,int):(%g,%g,%g,%g,%g,%g,%g,%g,%d)",a,b,c,d,e,f,g,h,z); fflush(out); return r; } double d_d12i (double a, double b, double c, double d, double e, double f, double g, double h, double i, double j, double k, double l, int z) { double r = a+b+c+d+e+f+g+h+i+j+k+l+z; fprintf(out,"double f(12*double,int):(%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%d)",a,b,c,d,e,f,g,h,i,j,k,l,z); fflush(out); return r; } double d_d13i (double a, double b, double c, double d, double e, double f, double g, double h, double i, double j, double k, double l, double m, int z) { double r = a+b+c+d+e+f+g+h+i+j+k+l+m+z; fprintf(out,"double f(13*double,int):(%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%d)",a,b,c,d,e,f,g,h,i,j,k,l,m,z); fflush(out); return r; } /* small structure return tests */ Size1 S1_v (void) { fprintf(out,"Size1 f(void):"); fflush(out); return Size1_1; } Size2 S2_v (void) { fprintf(out,"Size2 f(void):"); fflush(out); return Size2_1; } Size3 S3_v (void) { fprintf(out,"Size3 f(void):"); fflush(out); return Size3_1; } Size4 S4_v (void) { fprintf(out,"Size4 f(void):"); fflush(out); return Size4_1; } Size7 S7_v (void) { fprintf(out,"Size7 f(void):"); fflush(out); return Size7_1; } Size8 S8_v (void) { fprintf(out,"Size8 f(void):"); fflush(out); return Size8_1; } Size12 S12_v (void) { fprintf(out,"Size12 f(void):"); fflush(out); return Size12_1; } Size15 S15_v (void) { fprintf(out,"Size15 f(void):"); fflush(out); return Size15_1; } Size16 S16_v (void) { fprintf(out,"Size16 f(void):"); fflush(out); return Size16_1; } /* structure tests */ Int I_III (Int a, Int b, Int c) { Int r; r.x = a.x + b.x + c.x; fprintf(out,"Int f(Int,Int,Int):({%d},{%d},{%d})",a.x,b.x,c.x); fflush(out); return r; } Char C_CdC (Char a, double b, Char c) { Char r; r.x = (a.x + c.x)/2; fprintf(out,"Char f(Char,double,Char):({'%c'},%g,{'%c'})",a.x,b,c.x); fflush(out); return r; } Float F_Ffd (Float a, float b, double c) { Float r; r.x = a.x + b + c; fprintf(out,"Float f(Float,float,double):({%g},%g,%g)",a.x,b,c); fflush(out); return r; } Double D_fDd (float a, Double b, double c) { Double r; r.x = a + b.x + c; fprintf(out,"Double f(float,Double,double):(%g,{%g},%g)",a,b.x,c); fflush(out); return r; } Double D_Dfd (Double a, float b, double c) { Double r; r.x = a.x + b + c; fprintf(out,"Double f(Double,float,double):({%g},%g,%g)",a.x,b,c); fflush(out); return r; } J J_JiJ (J a, int b, J c) { J r; r.l1 = a.l1+c.l1; r.l2 = a.l2+b+c.l2; fprintf(out,"J f(J,int,J):({%ld,%ld},%d,{%ld,%ld})",a.l1,a.l2,b,c.l1,c.l2); fflush(out); return r; } T T_TcT (T a, char b, T c) { T r; r.c[0]='b'; r.c[1]=c.c[1]; r.c[2]=c.c[2]; fprintf(out,"T f(T,char,T):({\"%c%c%c\"},'%c',{\"%c%c%c\"})",a.c[0],a.c[1],a.c[2],b,c.c[0],c.c[1],c.c[2]); fflush(out); return r; } X X_BcdB (B a, char b, double c, B d) { static X xr={"return val",'R'}; X r; r = xr; r.c1 = b; fprintf(out,"X f(B,char,double,B):({%g,{%d,%d,%d}},'%c',%g,{%g,{%d,%d,%d}})", a.d,a.i[0],a.i[1],a.i[2],b,c,d.d,d.i[0],d.i[1],d.i[2]); fflush(out); return r; } /* Test for cases where some argument (especially structure, 'long long', or 'double') may be passed partially in general-purpose argument registers and partially on the stack. Different ABIs pass between 4 and 8 arguments (or none) in general-purpose argument registers. */ long l_l0J (J b, long c) { long r = b.l1 + b.l2 + c; fprintf(out,"long f(J,long):(%ld,%ld,%ld)",b.l1,b.l2,c); fflush(out); return r; } long l_l1J (long a1, J b, long c) { long r = a1 + b.l1 + b.l2 + c; fprintf(out,"long f(long,J,long):(%ld,%ld,%ld,%ld)",a1,b.l1,b.l2,c); fflush(out); return r; } long l_l2J (long a1, long a2, J b, long c) { long r = a1 + a2 + b.l1 + b.l2 + c; fprintf(out,"long f(2*long,J,long):(%ld,%ld,%ld,%ld,%ld)",a1,a2,b.l1,b.l2,c); fflush(out); return r; } long l_l3J (long a1, long a2, long a3, J b, long c) { long r = a1 + a2 + a3 + b.l1 + b.l2 + c; fprintf(out,"long f(3*long,J,long):(%ld,%ld,%ld,%ld,%ld,%ld)",a1,a2,a3,b.l1,b.l2,c); fflush(out); return r; } long l_l4J (long a1, long a2, long a3, long a4, J b, long c) { long r = a1 + a2 + a3 + a4 + b.l1 + b.l2 + c; fprintf(out,"long f(4*long,J,long):(%ld,%ld,%ld,%ld,%ld,%ld,%ld)",a1,a2,a3,a4,b.l1,b.l2,c); fflush(out); return r; } long l_l5J (long a1, long a2, long a3, long a4, long a5, J b, long c) { long r = a1 + a2 + a3 + a4 + a5 + b.l1 + b.l2 + c; fprintf(out,"long f(5*long,J,long):(%ld,%ld,%ld,%ld,%ld,%ld,%ld,%ld)",a1,a2,a3,a4,a5,b.l1,b.l2,c); fflush(out); return r; } long l_l6J (long a1, long a2, long a3, long a4, long a5, long a6, J b, long c) { long r = a1 + a2 + a3 + a4 + a5 + a6 + b.l1 + b.l2 + c; fprintf(out,"long f(6*long,J,long):(%ld,%ld,%ld,%ld,%ld,%ld,%ld,%ld,%ld)",a1,a2,a3,a4,a5,a6,b.l1,b.l2,c); fflush(out); return r; } long l_l7J (long a1, long a2, long a3, long a4, long a5, long a6, long a7, J b, long c) { long r = a1 + a2 + a3 + a4 + a5 + a6 + a7 + b.l1 + b.l2 + c; fprintf(out,"long f(7*long,J,long):(%ld,%ld,%ld,%ld,%ld,%ld,%ld,%ld,%ld,%ld)",a1,a2,a3,a4,a5,a6,a7,b.l1,b.l2,c); fflush(out); return r; } long l_l0K (K b, long c) { long r = b.l1 + b.l2 + b.l3 + b.l4 + c; fprintf(out,"long f(K,long):(%ld,%ld,%ld,%ld,%ld)",b.l1,b.l2,b.l3,b.l4,c); fflush(out); return r; } long l_l1K (long a1, K b, long c) { long r = a1 + b.l1 + b.l2 + b.l3 + b.l4 + c; fprintf(out,"long f(long,K,long):(%ld,%ld,%ld,%ld,%ld,%ld)",a1,b.l1,b.l2,b.l3,b.l4,c); fflush(out); return r; } long l_l2K (long a1, long a2, K b, long c) { long r = a1 + a2 + b.l1 + b.l2 + b.l3 + b.l4 + c; fprintf(out,"long f(2*long,K,long):(%ld,%ld,%ld,%ld,%ld,%ld,%ld)",a1,a2,b.l1,b.l2,b.l3,b.l4,c); fflush(out); return r; } long l_l3K (long a1, long a2, long a3, K b, long c) { long r = a1 + a2 + a3 + b.l1 + b.l2 + b.l3 + b.l4 + c; fprintf(out,"long f(3*long,K,long):(%ld,%ld,%ld,%ld,%ld,%ld,%ld,%ld)",a1,a2,a3,b.l1,b.l2,b.l3,b.l4,c); fflush(out); return r; } long l_l4K (long a1, long a2, long a3, long a4, K b, long c) { long r = a1 + a2 + a3 + a4 + b.l1 + b.l2 + b.l3 + b.l4 + c; fprintf(out,"long f(4*long,K,long):(%ld,%ld,%ld,%ld,%ld,%ld,%ld,%ld,%ld)",a1,a2,a3,a4,b.l1,b.l2,b.l3,b.l4,c); fflush(out); return r; } long l_l5K (long a1, long a2, long a3, long a4, long a5, K b, long c) { long r = a1 + a2 + a3 + a4 + a5 + b.l1 + b.l2 + b.l3 + b.l4 + c; fprintf(out,"long f(5*long,K,long):(%ld,%ld,%ld,%ld,%ld,%ld,%ld,%ld,%ld,%ld)",a1,a2,a3,a4,a5,b.l1,b.l2,b.l3,b.l4,c); fflush(out); return r; } long l_l6K (long a1, long a2, long a3, long a4, long a5, long a6, K b, long c) { long r = a1 + a2 + a3 + a4 + a5 + a6 + b.l1 + b.l2 + b.l3 + b.l4 + c; fprintf(out,"long f(6*long,K,long):(%ld,%ld,%ld,%ld,%ld,%ld,%ld,%ld,%ld,%ld,%ld)",a1,a2,a3,a4,a5,a6,b.l1,b.l2,b.l3,b.l4,c); fflush(out); return r; } /* These tests is crafted on the knowledge that for all known ABIs: * 17 > number of floating-point argument registers, * 3 < number of general-purpose argument registers < 3 + 6. */ float f_f17l3L (float a, float b, float c, float d, float e, float f, float g, float h, float i, float j, float k, float l, float m, float n, float o, float p, float q, long s, long t, long u, L z) { float r = a+b+c+d+e+f+g+h+i+j+k+l+m+n+o+p+q+s+t+u+z.l1+z.l2+z.l3+z.l4+z.l5+z.l6; fprintf(out,"float f(17*float,3*int,L):(%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%ld,%ld,%ld,%ld,%ld,%ld,%ld,%ld,%ld)",a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,s,t,u,z.l1,z.l2,z.l3,z.l4,z.l5,z.l6); fflush(out); return r; } double d_d17l3L (double a, double b, double c, double d, double e, double f, double g, double h, double i, double j, double k, double l, double m, double n, double o, double p, double q, long s, long t, long u, L z) { double r = a+b+c+d+e+f+g+h+i+j+k+l+m+n+o+p+q+s+t+u+z.l1+z.l2+z.l3+z.l4+z.l5+z.l6; fprintf(out,"double f(17*double,3*int,L):(%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%ld,%ld,%ld,%ld,%ld,%ld,%ld,%ld,%ld)",a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,s,t,u,z.l1,z.l2,z.l3,z.l4,z.l5,z.l6); fflush(out); return r; } long long ll_l2ll (long a1, long a2, long long b, long c) { long long r = (long long) (a1 + a2) + b + c; fprintf(out,"long long f(2*long,long long,long):(%ld,%ld,0x%lx%08lx,%ld)",a1,a2,(long)(b>>32),(long)(b&0xffffffff),c); fflush(out); return r; } long long ll_l3ll (long a1, long a2, long a3, long long b, long c) { long long r = (long long) (a1 + a2 + a3) + b + c; fprintf(out,"long long f(3*long,long long,long):(%ld,%ld,%ld,0x%lx%08lx,%ld)",a1,a2,a3,(long)(b>>32),(long)(b&0xffffffff),c); fflush(out); return r; } long long ll_l4ll (long a1, long a2, long a3, long a4, long long b, long c) { long long r = (long long) (a1 + a2 + a3 + a4) + b + c; fprintf(out,"long long f(4*long,long long,long):(%ld,%ld,%ld,%ld,0x%lx%08lx,%ld)",a1,a2,a3,a4,(long)(b>>32),(long)(b&0xffffffff),c); fflush(out); return r; } long long ll_l5ll (long a1, long a2, long a3, long a4, long a5, long long b, long c) { long long r = (long long) (a1 + a2 + a3 + a4 + a5) + b + c; fprintf(out,"long long f(5*long,long long,long):(%ld,%ld,%ld,%ld,%ld,0x%lx%08lx,%ld)",a1,a2,a3,a4,a5,(long)(b>>32),(long)(b&0xffffffff),c); fflush(out); return r; } long long ll_l6ll (long a1, long a2, long a3, long a4, long a5, long a6, long long b, long c) { long long r = (long long) (a1 + a2 + a3 + a4 + a5 + a6) + b + c; fprintf(out,"long long f(6*long,long long,long):(%ld,%ld,%ld,%ld,%ld,%ld,0x%lx%08lx,%ld)",a1,a2,a3,a4,a5,a6,(long)(b>>32),(long)(b&0xffffffff),c); fflush(out); return r; } long long ll_l7ll (long a1, long a2, long a3, long a4, long a5, long a6, long a7, long long b, long c) { long long r = (long long) (a1 + a2 + a3 + a4 + a5 + a6 + a7) + b + c; fprintf(out,"long long f(7*long,long long,long):(%ld,%ld,%ld,%ld,%ld,%ld,%ld,0x%lx%08lx,%ld)",a1,a2,a3,a4,a5,a6,a7,(long)(b>>32),(long)(b&0xffffffff),c); fflush(out); return r; } double d_l2d (long a1, long a2, double b, long c) { double r = (double) (a1 + a2) + b + c; fprintf(out,"double f(2*long,double,long):(%ld,%ld,%g,%ld)",a1,a2,b,c); fflush(out); return r; } double d_l3d (long a1, long a2, long a3, double b, long c) { double r = (double) (a1 + a2 + a3) + b + c; fprintf(out,"double f(3*long,double,long):(%ld,%ld,%ld,%g,%ld)",a1,a2,a3,b,c); fflush(out); return r; } double d_l4d (long a1, long a2, long a3, long a4, double b, long c) { double r = (double) (a1 + a2 + a3 + a4) + b + c; fprintf(out,"double f(4*long,double,long):(%ld,%ld,%ld,%ld,%g,%ld)",a1,a2,a3,a4,b,c); fflush(out); return r; } double d_l5d (long a1, long a2, long a3, long a4, long a5, double b, long c) { double r = (double) (a1 + a2 + a3 + a4 + a5) + b + c; fprintf(out,"double f(5*long,double,long):(%ld,%ld,%ld,%ld,%ld,%g,%ld)",a1,a2,a3,a4,a5,b,c); fflush(out); return r; } double d_l6d (long a1, long a2, long a3, long a4, long a5, long a6, double b, long c) { double r = (double) (a1 + a2 + a3 + a4 + a5 + a6) + b + c; fprintf(out,"double f(6*long,double,long):(%ld,%ld,%ld,%ld,%ld,%ld,%g,%ld)",a1,a2,a3,a4,a5,a6,b,c); fflush(out); return r; } double d_l7d (long a1, long a2, long a3, long a4, long a5, long a6, long a7, double b, long c) { double r = (double) (a1 + a2 + a3 + a4 + a5 + a6 + a7) + b + c; fprintf(out,"double f(7*long,double,long):(%ld,%ld,%ld,%ld,%ld,%ld,%ld,%g,%ld)",a1,a2,a3,a4,a5,a6,a7,b,c); fflush(out); return r; } /* This function is used to verify that structs larger than 2 words are really passed by value, not accidentally by reference. */ void v_clobber_K (K k) { k.l1 += 1; k.l2 += 10; k.l3 += 100; k.l4 += 1000; } libffcall-2.2/configure.ac0000664000000000000000000001376513527104765012500 00000000000000dnl AUTOCONF configuration for LIBFFCALL dnl Copyright 1995-2019 Bruno Haible dnl Copyright 2003-2010 Sam Steingold dnl dnl This program is free software: you can redistribute it and/or modify dnl it under the terms of the GNU General Public License as published by dnl the Free Software Foundation; either version 2 of the License, or dnl (at your option) any later version. dnl dnl This program is distributed in the hope that it will be useful, dnl but WITHOUT ANY WARRANTY; without even the implied warranty of dnl MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the dnl GNU General Public License for more details. dnl dnl You should have received a copy of the GNU General Public License dnl along with this program. If not, see . dnl AC_INIT([GNU libffcall],m4_normalize(m4_esyscmd([cat VERSION])),[https://savannah.gnu.org/projects/libffcall],[libffcall]) AC_CONFIG_AUX_DIR([build-aux]) AM_INIT_AUTOMAKE([]) AC_CONFIG_SRCDIR([trampoline/trampoline.h]) AC_CONFIG_HEADERS([config.h]) AC_CONFIG_HEADERS([ffcall-version.h:ffcall-version.in.h]) AC_CONFIG_FILES([Makefile]) AC_CONFIG_FILES([gnulib-lib/Makefile]) AC_CONFIG_FILES([avcall/Makefile]) AC_CONFIG_FILES([vacall/Makefile]) AC_CONFIG_FILES([trampoline/Makefile]) AC_CONFIG_FILES([callback/Makefile]) AC_CONFIG_FILES([callback/vacall_r/Makefile]) AC_CONFIG_FILES([callback/trampoline_r/Makefile]) dnl Substitutable version number. changequote(,) sed_extract_major='/^[0-9]/{s/^\([0-9]*\).*/\1/p;q;} i\ 0 q ' sed_extract_minor='/^[0-9][0-9]*[.][0-9]/{s/^[0-9]*[.]\([0-9]*\).*/\1/p;q;} i\ 0 q ' changequote([,]) version_major=`echo "${PACKAGE_VERSION}" | sed -n -e "$sed_extract_major"` version_minor=`echo "${PACKAGE_VERSION}" | sed -n -e "$sed_extract_minor"` HEXVERSION=`printf '0x%02X%02X' $version_major $version_minor` AC_DEFINE_UNQUOTED([LIBFFCALL_VERSION], [$HEXVERSION], [Version number: (major<<8) + minor]) AC_PROG_MAKE_SET dnl The libraries are built in C. AC_PROG_CC AC_PROG_CPP AC_PROG_GCC_TRADITIONAL CL_CC_GCC CL_AS_UNDERSCORE dnl But some tests use C++. gl_PROG_ANSI_CXX([CXX], [ANSICXX]) if test "$CXX" != no; then IF_CXX='' else IF_CXX='# ' fi AC_SUBST([IF_CXX]) dnl For a 64-bit build on AIX, AC_PROG_RANLIB is not sufficient. gl_PROG_AR_RANLIB dnl The Makefiles have a few special rules for MSVC. AC_EGREP_CPP([MicrosoftCompiler], [ #ifdef _MSC_VER MicrosoftCompiler #endif ], [IF_MSVC='' IFNOT_MSVC='# ' ], [IF_MSVC='# ' IFNOT_MSVC='' ]) AC_SUBST([IF_MSVC]) AC_SUBST([IFNOT_MSVC]) AC_PROG_INSTALL CL_PROG_LN gl_EARLY gl_HOST_CPU_C_ABI FFCALL_ENDIANNESS PACKAGE=libffcall LT_INIT([win32-dll]) dnl Checks for avcall, vacall, vacall_r. FFCALL_SMALL_STRUCT_RETURN FFCALL_IREG_FLOAT_RETURN dnl Checks for trampoline, trampoline_r. AC_CHECK_HEADERS([unistd_h]) AC_HEADER_STDC CL_GETPAGESIZE CL_MACH_VM FFCALL_MMAP FFCALL_MPROTECT CL_SHM_H CL_SHM FFCALL_CODEEXEC FFCALL_CODEEXEC_PAX dnl List of object files for trampoline, trampoline_r. CPU_OBJECTS='' if test ${HOST_CPU_C_ABI} = hppa -o ${HOST_CPU_C_ABI} = hppa64 -o ${HOST_CPU_C_ABI} = powerpc64 -o ${HOST_CPU_C_ABI} = ia64; then CPU_OBJECTS="$CPU_OBJECTS "'tramp-$(CPU).lo' fi if test ${HOST_CPU_C_ABI} = powerpc; then case "${host_os}" in aix*) CPU_OBJECTS="$CPU_OBJECTS "'tramp-$(CPU).lo' ;; *) ;; esac fi if test ${HOST_CPU_C_ABI} = sparc -o ${HOST_CPU_C_ABI} = sparc64 -o ${HOST_CPU_C_ABI} = alpha -o ${HOST_CPU_C_ABI} = hppa -o ${HOST_CPU_C_ABI} = hppa64 -o ${HOST_CPU_C_ABI} = powerpc64-elfv2; then CPU_OBJECTS="$CPU_OBJECTS "'cache-$(CPU).lo' fi if test ${HOST_CPU_C_ABI} = powerpc; then case "${host_os}" in aix*) ;; *) CPU_OBJECTS="$CPU_OBJECTS "'cache-$(CPU).lo' ;; esac fi AC_SUBST([CPU_OBJECTS]) case "${HOST_CPU_C_ABI}" in mips* | riscv*) AC_CHECK_HEADERS([sys/cachectl.h]) ;; esac dnl Work around GCC bug : dnl GCC, configured with --enable-default-pie on SPARC, miscompiles hand-written dnl .s files that happen to access global variables. The recommended workaround dnl is to use '#ifdef __PIC__' in the .s file; this works fine on 64-bit SPARC. dnl On 32-bit SPARC, however, the resulting executable is still broken. The dnl workaround here is to use -fno-pie. This option is available in gcc >= 3.4. WORKAROUND_BUG_81653='' if test ${HOST_CPU_C_ABI} = sparc && test -n "$GCC"; then gcc_version=`LC_ALL=C ${CC} -v 2>&1 | grep version | sed -n -e '$p' | sed -e 's/.*version //g' -e 's/gcc //'` case "$gcc_version" in 2.* | 3.[0-3]*) ;; *) WORKAROUND_BUG_81653='-fno-pie' ;; esac fi AC_SUBST([WORKAROUND_BUG_81653]) dnl Some parts of avcall and vacall need to interpret memory words as 'float' dnl or 'double' entities. This violates the strict type-based aliasing rules dnl of C. In other words, we still use C as a portable assembler, but now the dnl compilers want to outsmart us. There are two ways to tell them not to do dnl this: to use union types, or specific compiler options. I prefer to do it dnl through compiler options, because union types produce trouble with dnl alignments. if test -n "$GCC"; then DISABLE_TYPE_BASED_ALIASING='-fno-strict-aliasing' else case "$host_os" in aix*) dnl for xlc DISABLE_TYPE_BASED_ALIASING='-qalias=noansi' ;; *) AC_EGREP_CPP([yes], [#ifdef __SUNPRO_C yes #endif ], [dnl for SUNWspro cc DISABLE_TYPE_BASED_ALIASING='-xalias_level=weak' ], [DISABLE_TYPE_BASED_ALIASING='']) ;; esac fi AC_SUBST([DISABLE_TYPE_BASED_ALIASING]) gl_INIT dnl This piece of sed script replaces every line containing '@subdir@' dnl by several consecutive lines, each referencing one subdir. extrasub="$extrasub"' /@subdir@/{ h g s/@subdir@/gnulib-lib/g p g s/@subdir@/avcall/g p g s/@subdir@/vacall/g p g s/@subdir@/trampoline/g p g s/@subdir@/callback/g p d } ' dnl Likewise for the callback subdirectory. extrasub="$extrasub"' /@callback_subdir@/{ h g s/@callback_subdir@/vacall_r/g p g s/@callback_subdir@/trampoline_r/g p d } ' AC_OUTPUT libffcall-2.2/INSTALL.windows0000664000000000000000000002474613347673424012740 00000000000000Installation on Microsoft Windows: There are three ways to create binaries of this package for Microsoft Windows: 1) Native binaries, built using the mingw tool chain. 2) Native binaries, built using the MS Visual C/C++ tool chain. 3) Binaries for the Cygwin environment. =============================================================================== 1) Native binaries, built using the mingw tool chain. I recommend to use the Cygwin environment as the development environment and mingw only as the target (runtime, deployment) environment. For this, you need to install * Cygwin (from https://cygwin.com/), * some packages available from the Cygwin package installer: make * the mingw cross-compilation tools and runtime package, available from the Cygwin package installer (setup-x86_64.exe): - for creating 32-bit binaries: packages mingw64-i686-gcc-core, mingw64-i686-gcc-g++, mingw64-i686-headers, mingw64-i686-runtime - for creating 64-bit binaries: packages mingw64-x86_64-gcc-core, mingw64-x86_64-gcc-g++, mingw64-x86_64-headers, mingw64-x86_64-runtime Building 32-bit binaries for mingw is achieved through the following preparation, configure, and build commands: PATH=/usr/local/mingw32/bin:/usr/i686-w64-mingw32/sys-root/mingw/bin:$PATH export PATH ./configure --host=i686-w64-mingw32 --prefix=/usr/local/mingw32 \ CC=i686-w64-mingw32-gcc \ CXX=i686-w64-mingw32-g++ \ CPPFLAGS="-I/usr/local/mingw32/include -Wall" \ LDFLAGS="-L/usr/local/mingw32/lib" make make check Building 64-bit binaries for mingw is achieved through the following preparation, configure, and build commands: PATH=/usr/local/mingw64/bin:/usr/x86_64-w64-mingw32/sys-root/mingw/bin:$PATH export PATH ./configure --host=x86_64-w64-mingw32 --prefix=/usr/local/mingw64 \ CC=x86_64-w64-mingw32-gcc \ CXX=x86_64-w64-mingw32-g++ \ CPPFLAGS="-I/usr/local/mingw64/include -Wall" \ LDFLAGS="-L/usr/local/mingw64/lib" make make check Installation: make install =============================================================================== 2) Native binaries, built using the MS Visual C/C++ tool chain. Note that binaries created with MSVC have a distribution constraint: They depend on a closed-source library ('msvcr90.dll' for MSVC 9.0, 'vcruntime140.dll' for MSVC 14.0, and so on) which is not normally part of a Windows installation. You cannot distribute 'vcruntime*.dll' with the binaries - this would be a violation of the GPL and of the Microsoft EULA. You can distribute the binaries without including 'vcruntime*.dll'. Users who don't have this library on their system will require to pull some files (api-ms-win*.dll) through the Windows Update mechanism, see https://support.microsoft.com/en-us/kb/2999226 . This recipe requires MS Visual C/C++ 9.0 or newer. You don't need the Visual Studio IDE, just the C/C++ tool chain. As of 2016, you can install the MS Visual C/C++ 14.0 tool chain from http://landinghub.visualstudio.com/visual-cpp-build-tools (it's the file visualcppbuildtools_full.exe). This recipe requires also a Cygwin environment (with 'bash', the common POSIX commands, and 'make') as a build environment. Building with 'nmake' is not supported. For this, you need to install * Cygwin (from https://cygwin.com/), * some packages available from the Cygwin package installer: make You also need the scripts 'ar-lib' and 'compile' from https://git.savannah.gnu.org/gitweb/?p=automake.git;a=blob_plain;f=lib/ar-lib;hb=HEAD https://git.savannah.gnu.org/gitweb/?p=automake.git;a=blob_plain;f=lib/compile;hb=HEAD respectively. They may also be included in this package, in directory 'build-aux/'. Save them; the instructions below assume that you stored them in $HOME/msvc/. Make them executable: chmod a+x ar-lib compile Start a bash (from Cygwin). Make sure that the MSVC tools ("cl" etc.) are found in PATH and the environment variables INCLUDE and LIB are set appropriately. In a typical MSVC 9.0 installation, it can be achieved by running C:\Program Files\Microsoft Visual Studio 9.0\Common7\Tools\vsvars32.bat In a typical MSVC 14.0 installation on Windows 10, it can be achieved - for creating 32-bit binaries: through the following bash commands: # Set environment variables for using MSVC 14, # for creating native 32-bit Windows executables. # Windows C library headers and libraries. WindowsCrtIncludeDir='C:\Program Files (x86)\Windows Kits\10\Include\10.0.10240.0\ucrt' WindowsCrtLibDir='C:\Program Files (x86)\Windows Kits\10\Lib\10.0.10240.0\ucrt\' INCLUDE="${WindowsCrtIncludeDir};$INCLUDE" LIB="${WindowsCrtLibDir}x86;$LIB" # Windows API headers and libraries. WindowsSdkIncludeDir='C:\Program Files (x86)\Windows Kits\8.1\Include\' WindowsSdkLibDir='C:\Program Files (x86)\Windows Kits\8.1\Lib\winv6.3\um\' INCLUDE="${WindowsSdkIncludeDir}um;${WindowsSdkIncludeDir}shared;$INCLUDE" LIB="${WindowsSdkLibDir}x86;$LIB" # Visual C++ tools, headers and libraries. VSINSTALLDIR='C:\Program Files (x86)\Microsoft Visual Studio 14.0' VCINSTALLDIR="${VSINSTALLDIR}"'\VC' PATH=`cygpath -u "${VCINSTALLDIR}"`/bin:"$PATH" INCLUDE="${VCINSTALLDIR}"'\include;'"${INCLUDE}" LIB="${VCINSTALLDIR}"'\lib;'"${LIB}" export INCLUDE LIB - for creating 64-bit binaries: through the following bash commands: # Set environment variables for using MSVC 14, # for creating native 64-bit Windows executables. # Windows C library headers and libraries. WindowsCrtIncludeDir='C:\Program Files (x86)\Windows Kits\10\Include\10.0.10240.0\ucrt' WindowsCrtLibDir='C:\Program Files (x86)\Windows Kits\10\Lib\10.0.10240.0\ucrt\' INCLUDE="${WindowsCrtIncludeDir};$INCLUDE" LIB="${WindowsCrtLibDir}x64;$LIB" # Windows API headers and libraries. WindowsSdkIncludeDir='C:\Program Files (x86)\Windows Kits\8.1\Include\' WindowsSdkLibDir='C:\Program Files (x86)\Windows Kits\8.1\Lib\winv6.3\um\' INCLUDE="${WindowsSdkIncludeDir}um;${WindowsSdkIncludeDir}shared;$INCLUDE" LIB="${WindowsSdkLibDir}x64;$LIB" # Visual C++ tools, headers and libraries. VSINSTALLDIR='C:\Program Files (x86)\Microsoft Visual Studio 14.0' VCINSTALLDIR="${VSINSTALLDIR}"'\VC' PATH=`cygpath -u "${VCINSTALLDIR}"`/bin/amd64:"$PATH" INCLUDE="${VCINSTALLDIR}"'\include;'"${INCLUDE}" LIB="${VCINSTALLDIR}"'\lib\amd64;'"${LIB}" export INCLUDE LIB Building 32-bit binaries with MSVC is achieved through the following preparation, configure, and build commands: PATH=/usr/local/msvc32/bin:$PATH export PATH win32_target=_WIN32_WINNT_WINXP # for MSVC 9.0 win32_target=_WIN32_WINNT_VISTA # possibly for MSVC >= 10.0 win32_target=_WIN32_WINNT_WIN7 # possibly for MSVC >= 10.0 win32_target=_WIN32_WINNT_WIN8 # possibly for MSVC >= 10.0 ./configure --host=i686-w64-mingw32 --prefix=/usr/local/msvc32 \ CC="$HOME/msvc/compile cl -nologo" \ CFLAGS="-MD" \ CXX="$HOME/msvc/compile cl -nologo" \ CXXFLAGS="-MD" \ CPPFLAGS="-D_WIN32_WINNT=$win32_target -I/usr/local/msvc32/include" \ LDFLAGS="-L/usr/local/msvc32/lib" \ LD="link" \ NM="dumpbin -symbols" \ STRIP=":" \ AR="$HOME/msvc/ar-lib lib" \ RANLIB=":" make make check Building 64-bit binaries with MSVC is achieved through the following preparation, configure, and build commands: PATH=/usr/local/msvc64/bin:$PATH export PATH win32_target=_WIN32_WINNT_WINXP # for MSVC 9.0 win32_target=_WIN32_WINNT_VISTA # possibly for MSVC >= 10.0 win32_target=_WIN32_WINNT_WIN7 # possibly for MSVC >= 10.0 win32_target=_WIN32_WINNT_WIN8 # possibly for MSVC >= 10.0 ./configure --host=x86_64-w64-mingw32 --prefix=/usr/local/msvc64 \ CC="$HOME/msvc/compile cl -nologo" \ CFLAGS="-MD" \ CXX="$HOME/msvc/compile cl -nologo" \ CXXFLAGS="-MD" \ CPPFLAGS="-D_WIN32_WINNT=$win32_target -I/usr/local/msvc64/include" \ LDFLAGS="-L/usr/local/msvc64/lib" \ LD="link" \ NM="dumpbin -symbols" \ STRIP=":" \ AR="$HOME/msvc/ar-lib lib" \ RANLIB=":" make make check Installation: make install =============================================================================== 3) Binaries for the Cygwin environment. The generic instructions in the INSTALL file apply. But here are more specific ones. You need to install * Cygwin (from https://cygwin.com/), * some packages available from the Cygwin package installer: make * the Cygwin [cross-]compilation tools package, available from the Cygwin package installer (setup-x86_64.exe): - for creating 32-bit binaries: packages cygwin32-gcc-core, cygwin32-gcc-g++, cygwin32 - for creating 64-bit binaries: packages gcc-core, gcc-g++ Building 32-bit binaries for Cygwin must be done in a directory *outside* the Cygwin /home and /usr hierarchies. It is achieved through the following preparation, configure, and build commands: PATH=/usr/local/cygwin32/bin:/usr/i686-pc-cygwin/sys-root/usr/bin:$PATH export PATH ./configure --host=i686-pc-cygwin --prefix=/usr/local/cygwin32 \ CC=i686-pc-cygwin-gcc \ CXX=i686-pc-cygwin-g++ \ CPPFLAGS="-I/usr/local/cygwin32/include -Wall" \ LDFLAGS="-L/usr/local/cygwin32/lib" make make check Building 64-bit binaries for Cygwin is achieved through the following preparation, configure, and build commands: PATH=/usr/local/cygwin64/bin:$PATH export PATH ./configure --host=x86_64-pc-cygwin --prefix=/usr/local/cygwin64 \ CC=x86_64-pc-cygwin-gcc \ CXX=x86_64-pc-cygwin-g++ \ CPPFLAGS="-I/usr/local/cygwin64/include -Wall" \ LDFLAGS="-L/usr/local/cygwin64/lib" make make check Installation: make install =============================================================================== libffcall-2.2/aclocal.m40000664000000000000000000012504513530357243012040 00000000000000# generated automatically by aclocal 1.15.1 -*- Autoconf -*- # Copyright (C) 1996-2017 Free Software Foundation, Inc. # This file is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY, to the extent permitted by law; without # even the implied warranty of MERCHANTABILITY or FITNESS FOR A # PARTICULAR PURPOSE. m4_ifndef([AC_CONFIG_MACRO_DIRS], [m4_defun([_AM_CONFIG_MACRO_DIRS], [])m4_defun([AC_CONFIG_MACRO_DIRS], [_AM_CONFIG_MACRO_DIRS($@)])]) m4_ifndef([AC_AUTOCONF_VERSION], [m4_copy([m4_PACKAGE_VERSION], [AC_AUTOCONF_VERSION])])dnl m4_if(m4_defn([AC_AUTOCONF_VERSION]), [2.69],, [m4_warning([this file was generated for autoconf 2.69. You have another version of autoconf. It may work, but is not guaranteed to. If you have problems, you may need to regenerate the build system entirely. To do so, use the procedure documented by the package, typically 'autoreconf'.])]) # Copyright (C) 2002-2017 Free Software Foundation, Inc. # # This file is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # AM_AUTOMAKE_VERSION(VERSION) # ---------------------------- # Automake X.Y traces this macro to ensure aclocal.m4 has been # generated from the m4 files accompanying Automake X.Y. # (This private macro should not be called outside this file.) AC_DEFUN([AM_AUTOMAKE_VERSION], [am__api_version='1.15' dnl Some users find AM_AUTOMAKE_VERSION and mistake it for a way to dnl require some minimum version. Point them to the right macro. m4_if([$1], [1.15.1], [], [AC_FATAL([Do not call $0, use AM_INIT_AUTOMAKE([$1]).])])dnl ]) # _AM_AUTOCONF_VERSION(VERSION) # ----------------------------- # aclocal traces this macro to find the Autoconf version. # This is a private macro too. Using m4_define simplifies # the logic in aclocal, which can simply ignore this definition. m4_define([_AM_AUTOCONF_VERSION], []) # AM_SET_CURRENT_AUTOMAKE_VERSION # ------------------------------- # Call AM_AUTOMAKE_VERSION and AM_AUTOMAKE_VERSION so they can be traced. # This function is AC_REQUIREd by AM_INIT_AUTOMAKE. AC_DEFUN([AM_SET_CURRENT_AUTOMAKE_VERSION], [AM_AUTOMAKE_VERSION([1.15.1])dnl m4_ifndef([AC_AUTOCONF_VERSION], [m4_copy([m4_PACKAGE_VERSION], [AC_AUTOCONF_VERSION])])dnl _AM_AUTOCONF_VERSION(m4_defn([AC_AUTOCONF_VERSION]))]) # AM_AUX_DIR_EXPAND -*- Autoconf -*- # Copyright (C) 2001-2017 Free Software Foundation, Inc. # # This file is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # For projects using AC_CONFIG_AUX_DIR([foo]), Autoconf sets # $ac_aux_dir to '$srcdir/foo'. In other projects, it is set to # '$srcdir', '$srcdir/..', or '$srcdir/../..'. # # Of course, Automake must honor this variable whenever it calls a # tool from the auxiliary directory. The problem is that $srcdir (and # therefore $ac_aux_dir as well) can be either absolute or relative, # depending on how configure is run. This is pretty annoying, since # it makes $ac_aux_dir quite unusable in subdirectories: in the top # source directory, any form will work fine, but in subdirectories a # relative path needs to be adjusted first. # # $ac_aux_dir/missing # fails when called from a subdirectory if $ac_aux_dir is relative # $top_srcdir/$ac_aux_dir/missing # fails if $ac_aux_dir is absolute, # fails when called from a subdirectory in a VPATH build with # a relative $ac_aux_dir # # The reason of the latter failure is that $top_srcdir and $ac_aux_dir # are both prefixed by $srcdir. In an in-source build this is usually # harmless because $srcdir is '.', but things will broke when you # start a VPATH build or use an absolute $srcdir. # # So we could use something similar to $top_srcdir/$ac_aux_dir/missing, # iff we strip the leading $srcdir from $ac_aux_dir. That would be: # am_aux_dir='\$(top_srcdir)/'`expr "$ac_aux_dir" : "$srcdir//*\(.*\)"` # and then we would define $MISSING as # MISSING="\${SHELL} $am_aux_dir/missing" # This will work as long as MISSING is not called from configure, because # unfortunately $(top_srcdir) has no meaning in configure. # However there are other variables, like CC, which are often used in # configure, and could therefore not use this "fixed" $ac_aux_dir. # # Another solution, used here, is to always expand $ac_aux_dir to an # absolute PATH. The drawback is that using absolute paths prevent a # configured tree to be moved without reconfiguration. AC_DEFUN([AM_AUX_DIR_EXPAND], [AC_REQUIRE([AC_CONFIG_AUX_DIR_DEFAULT])dnl # Expand $ac_aux_dir to an absolute path. am_aux_dir=`cd "$ac_aux_dir" && pwd` ]) # AM_CONDITIONAL -*- Autoconf -*- # Copyright (C) 1997-2017 Free Software Foundation, Inc. # # This file is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # AM_CONDITIONAL(NAME, SHELL-CONDITION) # ------------------------------------- # Define a conditional. AC_DEFUN([AM_CONDITIONAL], [AC_PREREQ([2.52])dnl m4_if([$1], [TRUE], [AC_FATAL([$0: invalid condition: $1])], [$1], [FALSE], [AC_FATAL([$0: invalid condition: $1])])dnl AC_SUBST([$1_TRUE])dnl AC_SUBST([$1_FALSE])dnl _AM_SUBST_NOTMAKE([$1_TRUE])dnl _AM_SUBST_NOTMAKE([$1_FALSE])dnl m4_define([_AM_COND_VALUE_$1], [$2])dnl if $2; then $1_TRUE= $1_FALSE='#' else $1_TRUE='#' $1_FALSE= fi AC_CONFIG_COMMANDS_PRE( [if test -z "${$1_TRUE}" && test -z "${$1_FALSE}"; then AC_MSG_ERROR([[conditional "$1" was never defined. Usually this means the macro was only invoked conditionally.]]) fi])]) # Copyright (C) 1999-2017 Free Software Foundation, Inc. # # This file is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # There are a few dirty hacks below to avoid letting 'AC_PROG_CC' be # written in clear, in which case automake, when reading aclocal.m4, # will think it sees a *use*, and therefore will trigger all it's # C support machinery. Also note that it means that autoscan, seeing # CC etc. in the Makefile, will ask for an AC_PROG_CC use... # _AM_DEPENDENCIES(NAME) # ---------------------- # See how the compiler implements dependency checking. # NAME is "CC", "CXX", "OBJC", "OBJCXX", "UPC", or "GJC". # We try a few techniques and use that to set a single cache variable. # # We don't AC_REQUIRE the corresponding AC_PROG_CC since the latter was # modified to invoke _AM_DEPENDENCIES(CC); we would have a circular # dependency, and given that the user is not expected to run this macro, # just rely on AC_PROG_CC. AC_DEFUN([_AM_DEPENDENCIES], [AC_REQUIRE([AM_SET_DEPDIR])dnl AC_REQUIRE([AM_OUTPUT_DEPENDENCY_COMMANDS])dnl AC_REQUIRE([AM_MAKE_INCLUDE])dnl AC_REQUIRE([AM_DEP_TRACK])dnl m4_if([$1], [CC], [depcc="$CC" am_compiler_list=], [$1], [CXX], [depcc="$CXX" am_compiler_list=], [$1], [OBJC], [depcc="$OBJC" am_compiler_list='gcc3 gcc'], [$1], [OBJCXX], [depcc="$OBJCXX" am_compiler_list='gcc3 gcc'], [$1], [UPC], [depcc="$UPC" am_compiler_list=], [$1], [GCJ], [depcc="$GCJ" am_compiler_list='gcc3 gcc'], [depcc="$$1" am_compiler_list=]) AC_CACHE_CHECK([dependency style of $depcc], [am_cv_$1_dependencies_compiler_type], [if test -z "$AMDEP_TRUE" && test -f "$am_depcomp"; then # We make a subdir and do the tests there. Otherwise we can end up # making bogus files that we don't know about and never remove. For # instance it was reported that on HP-UX the gcc test will end up # making a dummy file named 'D' -- because '-MD' means "put the output # in D". rm -rf conftest.dir mkdir conftest.dir # Copy depcomp to subdir because otherwise we won't find it if we're # using a relative directory. cp "$am_depcomp" conftest.dir cd conftest.dir # We will build objects and dependencies in a subdirectory because # it helps to detect inapplicable dependency modes. For instance # both Tru64's cc and ICC support -MD to output dependencies as a # side effect of compilation, but ICC will put the dependencies in # the current directory while Tru64 will put them in the object # directory. mkdir sub am_cv_$1_dependencies_compiler_type=none if test "$am_compiler_list" = ""; then am_compiler_list=`sed -n ['s/^#*\([a-zA-Z0-9]*\))$/\1/p'] < ./depcomp` fi am__universal=false m4_case([$1], [CC], [case " $depcc " in #( *\ -arch\ *\ -arch\ *) am__universal=true ;; esac], [CXX], [case " $depcc " in #( *\ -arch\ *\ -arch\ *) am__universal=true ;; esac]) for depmode in $am_compiler_list; do # Setup a source with many dependencies, because some compilers # like to wrap large dependency lists on column 80 (with \), and # we should not choose a depcomp mode which is confused by this. # # We need to recreate these files for each test, as the compiler may # overwrite some of them when testing with obscure command lines. # This happens at least with the AIX C compiler. : > sub/conftest.c for i in 1 2 3 4 5 6; do echo '#include "conftst'$i'.h"' >> sub/conftest.c # Using ": > sub/conftst$i.h" creates only sub/conftst1.h with # Solaris 10 /bin/sh. echo '/* dummy */' > sub/conftst$i.h done echo "${am__include} ${am__quote}sub/conftest.Po${am__quote}" > confmf # We check with '-c' and '-o' for the sake of the "dashmstdout" # mode. It turns out that the SunPro C++ compiler does not properly # handle '-M -o', and we need to detect this. Also, some Intel # versions had trouble with output in subdirs. am__obj=sub/conftest.${OBJEXT-o} am__minus_obj="-o $am__obj" case $depmode in gcc) # This depmode causes a compiler race in universal mode. test "$am__universal" = false || continue ;; nosideeffect) # After this tag, mechanisms are not by side-effect, so they'll # only be used when explicitly requested. if test "x$enable_dependency_tracking" = xyes; then continue else break fi ;; msvc7 | msvc7msys | msvisualcpp | msvcmsys) # This compiler won't grok '-c -o', but also, the minuso test has # not run yet. These depmodes are late enough in the game, and # so weak that their functioning should not be impacted. am__obj=conftest.${OBJEXT-o} am__minus_obj= ;; none) break ;; esac if depmode=$depmode \ source=sub/conftest.c object=$am__obj \ depfile=sub/conftest.Po tmpdepfile=sub/conftest.TPo \ $SHELL ./depcomp $depcc -c $am__minus_obj sub/conftest.c \ >/dev/null 2>conftest.err && grep sub/conftst1.h sub/conftest.Po > /dev/null 2>&1 && grep sub/conftst6.h sub/conftest.Po > /dev/null 2>&1 && grep $am__obj sub/conftest.Po > /dev/null 2>&1 && ${MAKE-make} -s -f confmf > /dev/null 2>&1; then # icc doesn't choke on unknown options, it will just issue warnings # or remarks (even with -Werror). So we grep stderr for any message # that says an option was ignored or not supported. # When given -MP, icc 7.0 and 7.1 complain thusly: # icc: Command line warning: ignoring option '-M'; no argument required # The diagnosis changed in icc 8.0: # icc: Command line remark: option '-MP' not supported if (grep 'ignoring option' conftest.err || grep 'not supported' conftest.err) >/dev/null 2>&1; then :; else am_cv_$1_dependencies_compiler_type=$depmode break fi fi done cd .. rm -rf conftest.dir else am_cv_$1_dependencies_compiler_type=none fi ]) AC_SUBST([$1DEPMODE], [depmode=$am_cv_$1_dependencies_compiler_type]) AM_CONDITIONAL([am__fastdep$1], [ test "x$enable_dependency_tracking" != xno \ && test "$am_cv_$1_dependencies_compiler_type" = gcc3]) ]) # AM_SET_DEPDIR # ------------- # Choose a directory name for dependency files. # This macro is AC_REQUIREd in _AM_DEPENDENCIES. AC_DEFUN([AM_SET_DEPDIR], [AC_REQUIRE([AM_SET_LEADING_DOT])dnl AC_SUBST([DEPDIR], ["${am__leading_dot}deps"])dnl ]) # AM_DEP_TRACK # ------------ AC_DEFUN([AM_DEP_TRACK], [AC_ARG_ENABLE([dependency-tracking], [dnl AS_HELP_STRING( [--enable-dependency-tracking], [do not reject slow dependency extractors]) AS_HELP_STRING( [--disable-dependency-tracking], [speeds up one-time build])]) if test "x$enable_dependency_tracking" != xno; then am_depcomp="$ac_aux_dir/depcomp" AMDEPBACKSLASH='\' am__nodep='_no' fi AM_CONDITIONAL([AMDEP], [test "x$enable_dependency_tracking" != xno]) AC_SUBST([AMDEPBACKSLASH])dnl _AM_SUBST_NOTMAKE([AMDEPBACKSLASH])dnl AC_SUBST([am__nodep])dnl _AM_SUBST_NOTMAKE([am__nodep])dnl ]) # Generate code to set up dependency tracking. -*- Autoconf -*- # Copyright (C) 1999-2017 Free Software Foundation, Inc. # # This file is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # _AM_OUTPUT_DEPENDENCY_COMMANDS # ------------------------------ AC_DEFUN([_AM_OUTPUT_DEPENDENCY_COMMANDS], [{ # Older Autoconf quotes --file arguments for eval, but not when files # are listed without --file. Let's play safe and only enable the eval # if we detect the quoting. case $CONFIG_FILES in *\'*) eval set x "$CONFIG_FILES" ;; *) set x $CONFIG_FILES ;; esac shift for mf do # Strip MF so we end up with the name of the file. mf=`echo "$mf" | sed -e 's/:.*$//'` # Check whether this is an Automake generated Makefile or not. # We used to match only the files named 'Makefile.in', but # some people rename them; so instead we look at the file content. # Grep'ing the first line is not enough: some people post-process # each Makefile.in and add a new line on top of each file to say so. # Grep'ing the whole file is not good either: AIX grep has a line # limit of 2048, but all sed's we know have understand at least 4000. if sed -n 's,^#.*generated by automake.*,X,p' "$mf" | grep X >/dev/null 2>&1; then dirpart=`AS_DIRNAME("$mf")` else continue fi # Extract the definition of DEPDIR, am__include, and am__quote # from the Makefile without running 'make'. DEPDIR=`sed -n 's/^DEPDIR = //p' < "$mf"` test -z "$DEPDIR" && continue am__include=`sed -n 's/^am__include = //p' < "$mf"` test -z "$am__include" && continue am__quote=`sed -n 's/^am__quote = //p' < "$mf"` # Find all dependency output files, they are included files with # $(DEPDIR) in their names. We invoke sed twice because it is the # simplest approach to changing $(DEPDIR) to its actual value in the # expansion. for file in `sed -n " s/^$am__include $am__quote\(.*(DEPDIR).*\)$am__quote"'$/\1/p' <"$mf" | \ sed -e 's/\$(DEPDIR)/'"$DEPDIR"'/g'`; do # Make sure the directory exists. test -f "$dirpart/$file" && continue fdir=`AS_DIRNAME(["$file"])` AS_MKDIR_P([$dirpart/$fdir]) # echo "creating $dirpart/$file" echo '# dummy' > "$dirpart/$file" done done } ])# _AM_OUTPUT_DEPENDENCY_COMMANDS # AM_OUTPUT_DEPENDENCY_COMMANDS # ----------------------------- # This macro should only be invoked once -- use via AC_REQUIRE. # # This code is only required when automatic dependency tracking # is enabled. FIXME. This creates each '.P' file that we will # need in order to bootstrap the dependency handling code. AC_DEFUN([AM_OUTPUT_DEPENDENCY_COMMANDS], [AC_CONFIG_COMMANDS([depfiles], [test x"$AMDEP_TRUE" != x"" || _AM_OUTPUT_DEPENDENCY_COMMANDS], [AMDEP_TRUE="$AMDEP_TRUE" ac_aux_dir="$ac_aux_dir"]) ]) # Do all the work for Automake. -*- Autoconf -*- # Copyright (C) 1996-2017 Free Software Foundation, Inc. # # This file is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # This macro actually does too much. Some checks are only needed if # your package does certain things. But this isn't really a big deal. dnl Redefine AC_PROG_CC to automatically invoke _AM_PROG_CC_C_O. m4_define([AC_PROG_CC], m4_defn([AC_PROG_CC]) [_AM_PROG_CC_C_O ]) # AM_INIT_AUTOMAKE(PACKAGE, VERSION, [NO-DEFINE]) # AM_INIT_AUTOMAKE([OPTIONS]) # ----------------------------------------------- # The call with PACKAGE and VERSION arguments is the old style # call (pre autoconf-2.50), which is being phased out. PACKAGE # and VERSION should now be passed to AC_INIT and removed from # the call to AM_INIT_AUTOMAKE. # We support both call styles for the transition. After # the next Automake release, Autoconf can make the AC_INIT # arguments mandatory, and then we can depend on a new Autoconf # release and drop the old call support. AC_DEFUN([AM_INIT_AUTOMAKE], [AC_PREREQ([2.65])dnl dnl Autoconf wants to disallow AM_ names. We explicitly allow dnl the ones we care about. m4_pattern_allow([^AM_[A-Z]+FLAGS$])dnl AC_REQUIRE([AM_SET_CURRENT_AUTOMAKE_VERSION])dnl AC_REQUIRE([AC_PROG_INSTALL])dnl if test "`cd $srcdir && pwd`" != "`pwd`"; then # Use -I$(srcdir) only when $(srcdir) != ., so that make's output # is not polluted with repeated "-I." AC_SUBST([am__isrc], [' -I$(srcdir)'])_AM_SUBST_NOTMAKE([am__isrc])dnl # test to see if srcdir already configured if test -f $srcdir/config.status; then AC_MSG_ERROR([source directory already configured; run "make distclean" there first]) fi fi # test whether we have cygpath if test -z "$CYGPATH_W"; then if (cygpath --version) >/dev/null 2>/dev/null; then CYGPATH_W='cygpath -w' else CYGPATH_W=echo fi fi AC_SUBST([CYGPATH_W]) # Define the identity of the package. dnl Distinguish between old-style and new-style calls. m4_ifval([$2], [AC_DIAGNOSE([obsolete], [$0: two- and three-arguments forms are deprecated.]) m4_ifval([$3], [_AM_SET_OPTION([no-define])])dnl AC_SUBST([PACKAGE], [$1])dnl AC_SUBST([VERSION], [$2])], [_AM_SET_OPTIONS([$1])dnl dnl Diagnose old-style AC_INIT with new-style AM_AUTOMAKE_INIT. m4_if( m4_ifdef([AC_PACKAGE_NAME], [ok]):m4_ifdef([AC_PACKAGE_VERSION], [ok]), [ok:ok],, [m4_fatal([AC_INIT should be called with package and version arguments])])dnl AC_SUBST([PACKAGE], ['AC_PACKAGE_TARNAME'])dnl AC_SUBST([VERSION], ['AC_PACKAGE_VERSION'])])dnl _AM_IF_OPTION([no-define],, [AC_DEFINE_UNQUOTED([PACKAGE], ["$PACKAGE"], [Name of package]) AC_DEFINE_UNQUOTED([VERSION], ["$VERSION"], [Version number of package])])dnl # Some tools Automake needs. AC_REQUIRE([AM_SANITY_CHECK])dnl AC_REQUIRE([AC_ARG_PROGRAM])dnl AM_MISSING_PROG([ACLOCAL], [aclocal-${am__api_version}]) AM_MISSING_PROG([AUTOCONF], [autoconf]) AM_MISSING_PROG([AUTOMAKE], [automake-${am__api_version}]) AM_MISSING_PROG([AUTOHEADER], [autoheader]) AM_MISSING_PROG([MAKEINFO], [makeinfo]) AC_REQUIRE([AM_PROG_INSTALL_SH])dnl AC_REQUIRE([AM_PROG_INSTALL_STRIP])dnl AC_REQUIRE([AC_PROG_MKDIR_P])dnl # For better backward compatibility. To be removed once Automake 1.9.x # dies out for good. For more background, see: # # AC_SUBST([mkdir_p], ['$(MKDIR_P)']) # We need awk for the "check" target (and possibly the TAP driver). The # system "awk" is bad on some platforms. AC_REQUIRE([AC_PROG_AWK])dnl AC_REQUIRE([AC_PROG_MAKE_SET])dnl AC_REQUIRE([AM_SET_LEADING_DOT])dnl _AM_IF_OPTION([tar-ustar], [_AM_PROG_TAR([ustar])], [_AM_IF_OPTION([tar-pax], [_AM_PROG_TAR([pax])], [_AM_PROG_TAR([v7])])]) _AM_IF_OPTION([no-dependencies],, [AC_PROVIDE_IFELSE([AC_PROG_CC], [_AM_DEPENDENCIES([CC])], [m4_define([AC_PROG_CC], m4_defn([AC_PROG_CC])[_AM_DEPENDENCIES([CC])])])dnl AC_PROVIDE_IFELSE([AC_PROG_CXX], [_AM_DEPENDENCIES([CXX])], [m4_define([AC_PROG_CXX], m4_defn([AC_PROG_CXX])[_AM_DEPENDENCIES([CXX])])])dnl AC_PROVIDE_IFELSE([AC_PROG_OBJC], [_AM_DEPENDENCIES([OBJC])], [m4_define([AC_PROG_OBJC], m4_defn([AC_PROG_OBJC])[_AM_DEPENDENCIES([OBJC])])])dnl AC_PROVIDE_IFELSE([AC_PROG_OBJCXX], [_AM_DEPENDENCIES([OBJCXX])], [m4_define([AC_PROG_OBJCXX], m4_defn([AC_PROG_OBJCXX])[_AM_DEPENDENCIES([OBJCXX])])])dnl ]) AC_REQUIRE([AM_SILENT_RULES])dnl dnl The testsuite driver may need to know about EXEEXT, so add the dnl 'am__EXEEXT' conditional if _AM_COMPILER_EXEEXT was seen. This dnl macro is hooked onto _AC_COMPILER_EXEEXT early, see below. AC_CONFIG_COMMANDS_PRE(dnl [m4_provide_if([_AM_COMPILER_EXEEXT], [AM_CONDITIONAL([am__EXEEXT], [test -n "$EXEEXT"])])])dnl # POSIX will say in a future version that running "rm -f" with no argument # is OK; and we want to be able to make that assumption in our Makefile # recipes. So use an aggressive probe to check that the usage we want is # actually supported "in the wild" to an acceptable degree. # See automake bug#10828. # To make any issue more visible, cause the running configure to be aborted # by default if the 'rm' program in use doesn't match our expectations; the # user can still override this though. if rm -f && rm -fr && rm -rf; then : OK; else cat >&2 <<'END' Oops! Your 'rm' program seems unable to run without file operands specified on the command line, even when the '-f' option is present. This is contrary to the behaviour of most rm programs out there, and not conforming with the upcoming POSIX standard: Please tell bug-automake@gnu.org about your system, including the value of your $PATH and any error possibly output before this message. This can help us improve future automake versions. END if test x"$ACCEPT_INFERIOR_RM_PROGRAM" = x"yes"; then echo 'Configuration will proceed anyway, since you have set the' >&2 echo 'ACCEPT_INFERIOR_RM_PROGRAM variable to "yes"' >&2 echo >&2 else cat >&2 <<'END' Aborting the configuration process, to ensure you take notice of the issue. You can download and install GNU coreutils to get an 'rm' implementation that behaves properly: . If you want to complete the configuration process using your problematic 'rm' anyway, export the environment variable ACCEPT_INFERIOR_RM_PROGRAM to "yes", and re-run configure. END AC_MSG_ERROR([Your 'rm' program is bad, sorry.]) fi fi dnl The trailing newline in this macro's definition is deliberate, for dnl backward compatibility and to allow trailing 'dnl'-style comments dnl after the AM_INIT_AUTOMAKE invocation. See automake bug#16841. ]) dnl Hook into '_AC_COMPILER_EXEEXT' early to learn its expansion. Do not dnl add the conditional right here, as _AC_COMPILER_EXEEXT may be further dnl mangled by Autoconf and run in a shell conditional statement. m4_define([_AC_COMPILER_EXEEXT], m4_defn([_AC_COMPILER_EXEEXT])[m4_provide([_AM_COMPILER_EXEEXT])]) # When config.status generates a header, we must update the stamp-h file. # This file resides in the same directory as the config header # that is generated. The stamp files are numbered to have different names. # Autoconf calls _AC_AM_CONFIG_HEADER_HOOK (when defined) in the # loop where config.status creates the headers, so we can generate # our stamp files there. AC_DEFUN([_AC_AM_CONFIG_HEADER_HOOK], [# Compute $1's index in $config_headers. _am_arg=$1 _am_stamp_count=1 for _am_header in $config_headers :; do case $_am_header in $_am_arg | $_am_arg:* ) break ;; * ) _am_stamp_count=`expr $_am_stamp_count + 1` ;; esac done echo "timestamp for $_am_arg" >`AS_DIRNAME(["$_am_arg"])`/stamp-h[]$_am_stamp_count]) # Copyright (C) 2001-2017 Free Software Foundation, Inc. # # This file is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # AM_PROG_INSTALL_SH # ------------------ # Define $install_sh. AC_DEFUN([AM_PROG_INSTALL_SH], [AC_REQUIRE([AM_AUX_DIR_EXPAND])dnl if test x"${install_sh+set}" != xset; then case $am_aux_dir in *\ * | *\ *) install_sh="\${SHELL} '$am_aux_dir/install-sh'" ;; *) install_sh="\${SHELL} $am_aux_dir/install-sh" esac fi AC_SUBST([install_sh])]) # Copyright (C) 2003-2017 Free Software Foundation, Inc. # # This file is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # Check whether the underlying file-system supports filenames # with a leading dot. For instance MS-DOS doesn't. AC_DEFUN([AM_SET_LEADING_DOT], [rm -rf .tst 2>/dev/null mkdir .tst 2>/dev/null if test -d .tst; then am__leading_dot=. else am__leading_dot=_ fi rmdir .tst 2>/dev/null AC_SUBST([am__leading_dot])]) # Check to see how 'make' treats includes. -*- Autoconf -*- # Copyright (C) 2001-2017 Free Software Foundation, Inc. # # This file is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # AM_MAKE_INCLUDE() # ----------------- # Check to see how make treats includes. AC_DEFUN([AM_MAKE_INCLUDE], [am_make=${MAKE-make} cat > confinc << 'END' am__doit: @echo this is the am__doit target .PHONY: am__doit END # If we don't find an include directive, just comment out the code. AC_MSG_CHECKING([for style of include used by $am_make]) am__include="#" am__quote= _am_result=none # First try GNU make style include. echo "include confinc" > confmf # Ignore all kinds of additional output from 'make'. case `$am_make -s -f confmf 2> /dev/null` in #( *the\ am__doit\ target*) am__include=include am__quote= _am_result=GNU ;; esac # Now try BSD make style include. if test "$am__include" = "#"; then echo '.include "confinc"' > confmf case `$am_make -s -f confmf 2> /dev/null` in #( *the\ am__doit\ target*) am__include=.include am__quote="\"" _am_result=BSD ;; esac fi AC_SUBST([am__include]) AC_SUBST([am__quote]) AC_MSG_RESULT([$_am_result]) rm -f confinc confmf ]) # Fake the existence of programs that GNU maintainers use. -*- Autoconf -*- # Copyright (C) 1997-2017 Free Software Foundation, Inc. # # This file is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # AM_MISSING_PROG(NAME, PROGRAM) # ------------------------------ AC_DEFUN([AM_MISSING_PROG], [AC_REQUIRE([AM_MISSING_HAS_RUN]) $1=${$1-"${am_missing_run}$2"} AC_SUBST($1)]) # AM_MISSING_HAS_RUN # ------------------ # Define MISSING if not defined so far and test if it is modern enough. # If it is, set am_missing_run to use it, otherwise, to nothing. AC_DEFUN([AM_MISSING_HAS_RUN], [AC_REQUIRE([AM_AUX_DIR_EXPAND])dnl AC_REQUIRE_AUX_FILE([missing])dnl if test x"${MISSING+set}" != xset; then case $am_aux_dir in *\ * | *\ *) MISSING="\${SHELL} \"$am_aux_dir/missing\"" ;; *) MISSING="\${SHELL} $am_aux_dir/missing" ;; esac fi # Use eval to expand $SHELL if eval "$MISSING --is-lightweight"; then am_missing_run="$MISSING " else am_missing_run= AC_MSG_WARN(['missing' script is too old or missing]) fi ]) # Helper functions for option handling. -*- Autoconf -*- # Copyright (C) 2001-2017 Free Software Foundation, Inc. # # This file is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # _AM_MANGLE_OPTION(NAME) # ----------------------- AC_DEFUN([_AM_MANGLE_OPTION], [[_AM_OPTION_]m4_bpatsubst($1, [[^a-zA-Z0-9_]], [_])]) # _AM_SET_OPTION(NAME) # -------------------- # Set option NAME. Presently that only means defining a flag for this option. AC_DEFUN([_AM_SET_OPTION], [m4_define(_AM_MANGLE_OPTION([$1]), [1])]) # _AM_SET_OPTIONS(OPTIONS) # ------------------------ # OPTIONS is a space-separated list of Automake options. AC_DEFUN([_AM_SET_OPTIONS], [m4_foreach_w([_AM_Option], [$1], [_AM_SET_OPTION(_AM_Option)])]) # _AM_IF_OPTION(OPTION, IF-SET, [IF-NOT-SET]) # ------------------------------------------- # Execute IF-SET if OPTION is set, IF-NOT-SET otherwise. AC_DEFUN([_AM_IF_OPTION], [m4_ifset(_AM_MANGLE_OPTION([$1]), [$2], [$3])]) # Copyright (C) 1999-2017 Free Software Foundation, Inc. # # This file is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # _AM_PROG_CC_C_O # --------------- # Like AC_PROG_CC_C_O, but changed for automake. We rewrite AC_PROG_CC # to automatically call this. AC_DEFUN([_AM_PROG_CC_C_O], [AC_REQUIRE([AM_AUX_DIR_EXPAND])dnl AC_REQUIRE_AUX_FILE([compile])dnl AC_LANG_PUSH([C])dnl AC_CACHE_CHECK( [whether $CC understands -c and -o together], [am_cv_prog_cc_c_o], [AC_LANG_CONFTEST([AC_LANG_PROGRAM([])]) # Make sure it works both with $CC and with simple cc. # Following AC_PROG_CC_C_O, we do the test twice because some # compilers refuse to overwrite an existing .o file with -o, # though they will create one. am_cv_prog_cc_c_o=yes for am_i in 1 2; do if AM_RUN_LOG([$CC -c conftest.$ac_ext -o conftest2.$ac_objext]) \ && test -f conftest2.$ac_objext; then : OK else am_cv_prog_cc_c_o=no break fi done rm -f core conftest* unset am_i]) if test "$am_cv_prog_cc_c_o" != yes; then # Losing compiler, so override with the script. # FIXME: It is wrong to rewrite CC. # But if we don't then we get into trouble of one sort or another. # A longer-term fix would be to have automake use am__CC in this case, # and then we could set am__CC="\$(top_srcdir)/compile \$(CC)" CC="$am_aux_dir/compile $CC" fi AC_LANG_POP([C])]) # For backward compatibility. AC_DEFUN_ONCE([AM_PROG_CC_C_O], [AC_REQUIRE([AC_PROG_CC])]) # Copyright (C) 2001-2017 Free Software Foundation, Inc. # # This file is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # AM_RUN_LOG(COMMAND) # ------------------- # Run COMMAND, save the exit status in ac_status, and log it. # (This has been adapted from Autoconf's _AC_RUN_LOG macro.) AC_DEFUN([AM_RUN_LOG], [{ echo "$as_me:$LINENO: $1" >&AS_MESSAGE_LOG_FD ($1) >&AS_MESSAGE_LOG_FD 2>&AS_MESSAGE_LOG_FD ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&AS_MESSAGE_LOG_FD (exit $ac_status); }]) # Check to make sure that the build environment is sane. -*- Autoconf -*- # Copyright (C) 1996-2017 Free Software Foundation, Inc. # # This file is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # AM_SANITY_CHECK # --------------- AC_DEFUN([AM_SANITY_CHECK], [AC_MSG_CHECKING([whether build environment is sane]) # Reject unsafe characters in $srcdir or the absolute working directory # name. Accept space and tab only in the latter. am_lf=' ' case `pwd` in *[[\\\"\#\$\&\'\`$am_lf]]*) AC_MSG_ERROR([unsafe absolute working directory name]);; esac case $srcdir in *[[\\\"\#\$\&\'\`$am_lf\ \ ]]*) AC_MSG_ERROR([unsafe srcdir value: '$srcdir']);; esac # Do 'set' in a subshell so we don't clobber the current shell's # arguments. Must try -L first in case configure is actually a # symlink; some systems play weird games with the mod time of symlinks # (eg FreeBSD returns the mod time of the symlink's containing # directory). if ( am_has_slept=no for am_try in 1 2; do echo "timestamp, slept: $am_has_slept" > conftest.file set X `ls -Lt "$srcdir/configure" conftest.file 2> /dev/null` if test "$[*]" = "X"; then # -L didn't work. set X `ls -t "$srcdir/configure" conftest.file` fi if test "$[*]" != "X $srcdir/configure conftest.file" \ && test "$[*]" != "X conftest.file $srcdir/configure"; then # If neither matched, then we have a broken ls. This can happen # if, for instance, CONFIG_SHELL is bash and it inherits a # broken ls alias from the environment. This has actually # happened. Such a system could not be considered "sane". AC_MSG_ERROR([ls -t appears to fail. Make sure there is not a broken alias in your environment]) fi if test "$[2]" = conftest.file || test $am_try -eq 2; then break fi # Just in case. sleep 1 am_has_slept=yes done test "$[2]" = conftest.file ) then # Ok. : else AC_MSG_ERROR([newly created file is older than distributed files! Check your system clock]) fi AC_MSG_RESULT([yes]) # If we didn't sleep, we still need to ensure time stamps of config.status and # generated files are strictly newer. am_sleep_pid= if grep 'slept: no' conftest.file >/dev/null 2>&1; then ( sleep 1 ) & am_sleep_pid=$! fi AC_CONFIG_COMMANDS_PRE( [AC_MSG_CHECKING([that generated files are newer than configure]) if test -n "$am_sleep_pid"; then # Hide warnings about reused PIDs. wait $am_sleep_pid 2>/dev/null fi AC_MSG_RESULT([done])]) rm -f conftest.file ]) # Copyright (C) 2009-2017 Free Software Foundation, Inc. # # This file is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # AM_SILENT_RULES([DEFAULT]) # -------------------------- # Enable less verbose build rules; with the default set to DEFAULT # ("yes" being less verbose, "no" or empty being verbose). AC_DEFUN([AM_SILENT_RULES], [AC_ARG_ENABLE([silent-rules], [dnl AS_HELP_STRING( [--enable-silent-rules], [less verbose build output (undo: "make V=1")]) AS_HELP_STRING( [--disable-silent-rules], [verbose build output (undo: "make V=0")])dnl ]) case $enable_silent_rules in @%:@ ((( yes) AM_DEFAULT_VERBOSITY=0;; no) AM_DEFAULT_VERBOSITY=1;; *) AM_DEFAULT_VERBOSITY=m4_if([$1], [yes], [0], [1]);; esac dnl dnl A few 'make' implementations (e.g., NonStop OS and NextStep) dnl do not support nested variable expansions. dnl See automake bug#9928 and bug#10237. am_make=${MAKE-make} AC_CACHE_CHECK([whether $am_make supports nested variables], [am_cv_make_support_nested_variables], [if AS_ECHO([['TRUE=$(BAR$(V)) BAR0=false BAR1=true V=1 am__doit: @$(TRUE) .PHONY: am__doit']]) | $am_make -f - >/dev/null 2>&1; then am_cv_make_support_nested_variables=yes else am_cv_make_support_nested_variables=no fi]) if test $am_cv_make_support_nested_variables = yes; then dnl Using '$V' instead of '$(V)' breaks IRIX make. AM_V='$(V)' AM_DEFAULT_V='$(AM_DEFAULT_VERBOSITY)' else AM_V=$AM_DEFAULT_VERBOSITY AM_DEFAULT_V=$AM_DEFAULT_VERBOSITY fi AC_SUBST([AM_V])dnl AM_SUBST_NOTMAKE([AM_V])dnl AC_SUBST([AM_DEFAULT_V])dnl AM_SUBST_NOTMAKE([AM_DEFAULT_V])dnl AC_SUBST([AM_DEFAULT_VERBOSITY])dnl AM_BACKSLASH='\' AC_SUBST([AM_BACKSLASH])dnl _AM_SUBST_NOTMAKE([AM_BACKSLASH])dnl ]) # Copyright (C) 2001-2017 Free Software Foundation, Inc. # # This file is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # AM_PROG_INSTALL_STRIP # --------------------- # One issue with vendor 'install' (even GNU) is that you can't # specify the program used to strip binaries. This is especially # annoying in cross-compiling environments, where the build's strip # is unlikely to handle the host's binaries. # Fortunately install-sh will honor a STRIPPROG variable, so we # always use install-sh in "make install-strip", and initialize # STRIPPROG with the value of the STRIP variable (set by the user). AC_DEFUN([AM_PROG_INSTALL_STRIP], [AC_REQUIRE([AM_PROG_INSTALL_SH])dnl # Installed binaries are usually stripped using 'strip' when the user # run "make install-strip". However 'strip' might not be the right # tool to use in cross-compilation environments, therefore Automake # will honor the 'STRIP' environment variable to overrule this program. dnl Don't test for $cross_compiling = yes, because it might be 'maybe'. if test "$cross_compiling" != no; then AC_CHECK_TOOL([STRIP], [strip], :) fi INSTALL_STRIP_PROGRAM="\$(install_sh) -c -s" AC_SUBST([INSTALL_STRIP_PROGRAM])]) # Copyright (C) 2006-2017 Free Software Foundation, Inc. # # This file is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # _AM_SUBST_NOTMAKE(VARIABLE) # --------------------------- # Prevent Automake from outputting VARIABLE = @VARIABLE@ in Makefile.in. # This macro is traced by Automake. AC_DEFUN([_AM_SUBST_NOTMAKE]) # AM_SUBST_NOTMAKE(VARIABLE) # -------------------------- # Public sister of _AM_SUBST_NOTMAKE. AC_DEFUN([AM_SUBST_NOTMAKE], [_AM_SUBST_NOTMAKE($@)]) # Check how to create a tarball. -*- Autoconf -*- # Copyright (C) 2004-2017 Free Software Foundation, Inc. # # This file is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # _AM_PROG_TAR(FORMAT) # -------------------- # Check how to create a tarball in format FORMAT. # FORMAT should be one of 'v7', 'ustar', or 'pax'. # # Substitute a variable $(am__tar) that is a command # writing to stdout a FORMAT-tarball containing the directory # $tardir. # tardir=directory && $(am__tar) > result.tar # # Substitute a variable $(am__untar) that extract such # a tarball read from stdin. # $(am__untar) < result.tar # AC_DEFUN([_AM_PROG_TAR], [# Always define AMTAR for backward compatibility. Yes, it's still used # in the wild :-( We should find a proper way to deprecate it ... AC_SUBST([AMTAR], ['$${TAR-tar}']) # We'll loop over all known methods to create a tar archive until one works. _am_tools='gnutar m4_if([$1], [ustar], [plaintar]) pax cpio none' m4_if([$1], [v7], [am__tar='$${TAR-tar} chof - "$$tardir"' am__untar='$${TAR-tar} xf -'], [m4_case([$1], [ustar], [# The POSIX 1988 'ustar' format is defined with fixed-size fields. # There is notably a 21 bits limit for the UID and the GID. In fact, # the 'pax' utility can hang on bigger UID/GID (see automake bug#8343 # and bug#13588). am_max_uid=2097151 # 2^21 - 1 am_max_gid=$am_max_uid # The $UID and $GID variables are not portable, so we need to resort # to the POSIX-mandated id(1) utility. Errors in the 'id' calls # below are definitely unexpected, so allow the users to see them # (that is, avoid stderr redirection). am_uid=`id -u || echo unknown` am_gid=`id -g || echo unknown` AC_MSG_CHECKING([whether UID '$am_uid' is supported by ustar format]) if test $am_uid -le $am_max_uid; then AC_MSG_RESULT([yes]) else AC_MSG_RESULT([no]) _am_tools=none fi AC_MSG_CHECKING([whether GID '$am_gid' is supported by ustar format]) if test $am_gid -le $am_max_gid; then AC_MSG_RESULT([yes]) else AC_MSG_RESULT([no]) _am_tools=none fi], [pax], [], [m4_fatal([Unknown tar format])]) AC_MSG_CHECKING([how to create a $1 tar archive]) # Go ahead even if we have the value already cached. We do so because we # need to set the values for the 'am__tar' and 'am__untar' variables. _am_tools=${am_cv_prog_tar_$1-$_am_tools} for _am_tool in $_am_tools; do case $_am_tool in gnutar) for _am_tar in tar gnutar gtar; do AM_RUN_LOG([$_am_tar --version]) && break done am__tar="$_am_tar --format=m4_if([$1], [pax], [posix], [$1]) -chf - "'"$$tardir"' am__tar_="$_am_tar --format=m4_if([$1], [pax], [posix], [$1]) -chf - "'"$tardir"' am__untar="$_am_tar -xf -" ;; plaintar) # Must skip GNU tar: if it does not support --format= it doesn't create # ustar tarball either. (tar --version) >/dev/null 2>&1 && continue am__tar='tar chf - "$$tardir"' am__tar_='tar chf - "$tardir"' am__untar='tar xf -' ;; pax) am__tar='pax -L -x $1 -w "$$tardir"' am__tar_='pax -L -x $1 -w "$tardir"' am__untar='pax -r' ;; cpio) am__tar='find "$$tardir" -print | cpio -o -H $1 -L' am__tar_='find "$tardir" -print | cpio -o -H $1 -L' am__untar='cpio -i -H $1 -d' ;; none) am__tar=false am__tar_=false am__untar=false ;; esac # If the value was cached, stop now. We just wanted to have am__tar # and am__untar set. test -n "${am_cv_prog_tar_$1}" && break # tar/untar a dummy directory, and stop if the command works. rm -rf conftest.dir mkdir conftest.dir echo GrepMe > conftest.dir/file AM_RUN_LOG([tardir=conftest.dir && eval $am__tar_ >conftest.tar]) rm -rf conftest.dir if test -s conftest.tar; then AM_RUN_LOG([$am__untar /dev/null 2>&1 && break fi done rm -rf conftest.dir AC_CACHE_VAL([am_cv_prog_tar_$1], [am_cv_prog_tar_$1=$_am_tool]) AC_MSG_RESULT([$am_cv_prog_tar_$1])]) AC_SUBST([am__tar]) AC_SUBST([am__untar]) ]) # _AM_PROG_TAR m4_include([gnulib-m4/00gnulib.m4]) m4_include([gnulib-m4/absolute-header.m4]) m4_include([gnulib-m4/ansi-c++.m4]) m4_include([gnulib-m4/asm-underscore.m4]) m4_include([gnulib-m4/extensions.m4]) m4_include([gnulib-m4/gnulib-common.m4]) m4_include([gnulib-m4/gnulib-comp.m4]) m4_include([gnulib-m4/host-cpu-c-abi.m4]) m4_include([gnulib-m4/include_next.m4]) m4_include([gnulib-m4/limits-h.m4]) m4_include([gnulib-m4/lock.m4]) m4_include([gnulib-m4/longlong.m4]) m4_include([gnulib-m4/multiarch.m4]) m4_include([gnulib-m4/nocrash.m4]) m4_include([gnulib-m4/off_t.m4]) m4_include([gnulib-m4/onceonly.m4]) m4_include([gnulib-m4/pthread_rwlock_rdlock.m4]) m4_include([gnulib-m4/ssize_t.m4]) m4_include([gnulib-m4/stdint.m4]) m4_include([gnulib-m4/stdnoreturn.m4]) m4_include([gnulib-m4/sys_types_h.m4]) m4_include([gnulib-m4/threadlib.m4]) m4_include([gnulib-m4/wint_t.m4]) m4_include([m4/as-underscore.m4]) m4_include([m4/cc-gcc.m4]) m4_include([m4/codeexec.m4]) m4_include([m4/endianness.m4]) m4_include([m4/general.m4]) m4_include([m4/getpagesize.m4]) m4_include([m4/ireg.m4]) m4_include([m4/libtool.m4]) m4_include([m4/ln.m4]) m4_include([m4/ltoptions.m4]) m4_include([m4/ltsugar.m4]) m4_include([m4/ltversion.m4]) m4_include([m4/lt~obsolete.m4]) m4_include([m4/mach-vm.m4]) m4_include([m4/mmap.m4]) m4_include([m4/mprotect.m4]) m4_include([m4/proto.m4]) m4_include([m4/shm.m4]) m4_include([m4/smallstruct.m4]) libffcall-2.2/VERSION0000664000000000000000000000000413242023216011221 000000000000002.2 libffcall-2.2/PLATFORMS0000664000000000000000000000617713530336773011503 00000000000000Supported CPUs: (Put the GNU config.guess values here.) i386 i486-unknown-linux (gcc), i686-unknown-gnu0.9 (gcc), i386-unknown-sysv4.0 (gcc, /usr/bin/cc, /usr/ucb/cc), i386-pc-solaris2.6 (gcc), i386-pc-solaris2.10 (gcc, cc), i486-unknown-sco3.2v4.2 (gcc, cc -Of), i486-unknown-os2emx (gcc), i386-pc-cygwin32 (gcc), i386-w64-mingw32 (gcc, MSVC 14), i586-unknown-freebsd11.0 (cc), i386-unknown-dragonfly3.8 (gcc), i386-unknown-netbsdelf7.0 (gcc), i386-unknown-openbsd6.0 (gcc), i586-pc-haiku (gcc-x86), i386-pc-minix (clang) m68k m68k-next-nextstep3 (cc), m68k-sun-sunos4.0 (cc), m68k-unknown-linux (gcc) mips mips-sgi-irix4.0.5 (gcc, cc -ansi, cc -D__STDC__, cc -cckr), mips-sgi-irix5.2 (gcc, cc -ansi, cc -D__STDC__, cc -cckr), mips-sgi-irix5.3 (gcc, cc -ansi, cc -D__STDC__, cc -cckr), mips-sgi-irix6.2 (cc -32), mips-sgi-irix6.4 (cc -32, cc -n32, cc -64), mips-sgi-irix6.5 (cc -32, cc -n32, gcc -mabi=n32), mips-unknown-linux (gcc -mabi=32), mips64-unknown-linux (gcc -mabi=n32, gcc -mabi=64) sparc sparc-sun-sunos4.1.1 (gcc, cc), sparc-sun-solaris2.3 (gcc) sparc-sun-solaris2.4 (gcc, cc), sparc-sun-solaris2.10 (gcc, cc), sparc64-sun-solaris2.10 (gcc -m64, cc -xarch=generic64), sparc-unknown-linux (gcc), sparc64-unknown-linux (gcc), sparc-unknown-netbsdelf7.1 (gcc), sparc64-unknown-netbsd8.0 (gcc) alpha alpha-dec-osf3.0 (gcc, cc), alpha-dec-osf4.0 (gcc, cc), alphaev67-unknown-linux (gcc) hppa hppa1.0-hp-hpux8.00 (gcc, cc), hppa1.1-hp-hpux9.05 (cc), hppa1.1-hp-hpux10.01 (cc), hppa2.0-hp-hpux10.20 (cc +DA1.1), hppa2.0w-hp-hpux11.31 (cc), hppa-unknown-linux (gcc) hppa64 hppa64-hp-hpux11.31 (cc +DD64) arm armv5tejl-unknown-linux (gcc), armv6l-unknown-linux (gcc), armv7l-unknown-linux (gcc) arm64 aarch64-unknown-linux (gcc) powerpc powerpc-ibm-aix4.1.4.0 (cc), powerpc-ibm-aix7.1.3.0 (xlc, gcc), powerpc-unknown-linux (gcc), powerpc-apple-darwin6.8 (gcc), powerpc-apple-darwin9.8.0 (gcc) powerpc64 powerpc-ibm-aix7.1.3.0 (gcc -maix64, xlc -q64; AR="ar -X 64"), powerpc64-unknown-linux (gcc -m64), powerpc64le-unknown-linux (gcc) ia64 ia64-unknown-linux (gcc) x86_64 x86_64-suse-linux (gcc), x86_64-unknown-linux (gcc -mx32), x86_64-pc-solaris2.10 (gcc -m64, cc -xarch=generic64), x86_64-pc-cygwin (gcc), x86_64-w64-mingw32 (gcc, MSVC 14), x86_64-unknown-freebsd11.0 (cc), x86_64-unknown-netbsd7.0 (gcc), x86_64-unknown-openbsd6.0 (gcc) s390 s390x-ibm-linux (gcc -m31) s390x s390x-ibm-linux (gcc) riscv32 riscv32-unknown-linux (gcc -mabi=ilp32d) riscv64 riscv64-unknown-linux (gcc -mabi=lp64d) libffcall-2.2/callback/0000775000000000000000000000000013530357260012004 500000000000000libffcall-2.2/callback/minitests-c++.cc0000664000000000000000000000133213347755266014635 00000000000000/* * Copyright 2017 Bruno Haible * * This program is free software: you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by * the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program. If not, see . */ #include "minitests.c" libffcall-2.2/callback/callback.h0000664000000000000000000000557613347755265013663 00000000000000/* * Copyright 1997-2017 Bruno Haible * * This program is free software: you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by * the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program. If not, see . */ #ifndef _CALLBACK_H #define _CALLBACK_H #include "ffcall-version.h" /* Defines the type 'va_alist' and the va_* macros. */ #include "vacall_r.h" #ifdef __cplusplus extern "C" { #endif /* This type denotes an opaque function pointer. You need to cast it to an actual function pointer type (with correct return type) before you can actually invoke it. */ #ifdef __cplusplus typedef int (*callback_t) (...); #else typedef int (*callback_t) (); #endif /* A deprecated alias of this type. */ typedef callback_t __TR_function; /* This type denotes a callback implementation. DATA is the pointer that was passed to alloc_callback(). ALIST allows to iterate over the argument list. */ typedef void (*callback_function_t) (void* /* DATA */, va_alist /* ALIST */); /* Allocates a callback. It returns a function pointer whose signature depends on the behaviour of ADDRESS. When invoked, it passes DATA as first argument to ADDRESS and the actual arguments as a va_alist to ADDRESS. It returns the value passed to a va_return_* macro by ADDRESS. The callback has indefinite extent. It can be accessed until a call to free_callback(). */ extern callback_t alloc_callback (callback_function_t /* ADDRESS */, void* /* DATA */); /* Frees the memory used by a callback. CALLBACK must be the result of an alloc_callback() invocation. After this call, CALLBACK must not be used any more - neither invoked, not used as an argument to other functions. */ extern void free_callback (callback_t /* CALLBACK */); /* Tests whether a given pointer is a function pointer returned by alloc_callback(). Returns 1 for yes, 0 for no. If yes, it can be cast to callback_t. */ extern int is_callback (void* /* CALLBACK */); /* Returns the ADDRESS argument passed to the alloc_callback() invocation. CALLBACK must be the result of an alloc_callback() invocation. */ extern callback_function_t callback_address (callback_t /* CALLBACK */); /* Returns the DATA argument passed to the alloc_callback() invocation. CALLBACK must be the result of an alloc_callback() invocation. */ extern void* callback_data (callback_t /* CALLBACK */); #ifdef __cplusplus } #endif #endif /* _CALLBACK_H */ libffcall-2.2/callback/callback.30000664000000000000000000001653413136760230013552 00000000000000.\" Copyright (C) 1995-2017 Bruno Haible .\" .\" This manual is free documentation. It is dually licensed under the .\" GNU FDL and the GNU GPL. This means that you can redistribute this .\" manual under either of these two licenses, at your choice. .\" .\" This manual is covered by the GNU FDL. Permission is granted to copy, .\" distribute and/or modify this document under the terms of the .\" GNU Free Documentation License (FDL), either version 1.2 of the .\" License, or (at your option) any later version published by the .\" Free Software Foundation (FSF); with no Invariant Sections, with no .\" Front-Cover Text, and with no Back-Cover Texts. .\" A copy of the license is at . .\" .\" This manual is covered by the GNU GPL. You can redistribute it and/or .\" modify it under the terms of the GNU General Public License (GPL), either .\" version 2 of the License, or (at your option) any later version published .\" by the Free Software Foundation (FSF). .\" A copy of the license is at . .\" .TH CALLBACK 3 "1 January 2017" .SH NAME callback \- closures with variable arguments as first-class C functions .SH SYNOPSIS .B #include .LP .nf .BI "void " function " (void* " data ", va_alist " alist ")" .BI "{" .BI " va_start_" type "(" alist "[, " return_type "]);" .BI " " arg " = va_arg_" type "(" alist "[, " arg_type "]);" .BI " va_return_" type "(" alist "[[, " return_type "], " return_value "]);" .BI "}" .fi .LP .IB callback " = alloc_callback(" "&function" ", " data ");" .LP .BI "free_callback(" callback ");" .LP .nf .BI "is_callback(" callback ")" .BI "callback_address(" callback ")" .BI "callback_data(" callback ")" .fi .SH DESCRIPTION .LP These functions implement .I closures with variable arguments as first-class C functions. Closures as .I first-class C functions means that they fit into a function pointer and can be called exactly like any other C function. Moreover, they can be called with variable arguments and can return variable return values. .IB callback " = alloc_callback(" "&function" ", " data ")" allocates a callback. When .I callback gets called, it arranges to call .IR function "," passing .I data as first argument and, as second argument, the entire sequence of arguments passed to .IR callback . Function calling conventions differ considerably on different machines, therefore the arguments are accessed and the result value is stored through the same macros as used by the .I vacall package, see below. The callbacks are functions with indefinite extent: .I callback is only deallocated when .BI free_callback( callback ) is called. .BI "is_callback(" callback ")" checks whether the C function .I callback was produced by a call to .IR alloc_callback . If this returns true, the arguments given to .I alloc_callback can be retrieved: .RS 4 .LP .BI "callback_address(" callback ")" returns .IR "&function" , .LP .BI "callback_data(" callback ")" returns .IR data . .RE .SH VACALL MACROS Within .IR function , the following macros can be used to walk through the argument list and specify a return value: .RS 0 .TP .BI "va_start_" type "(" alist "[, " return_type "]);" starts the walk through the argument list and specifies the return type. .TP .IB arg " = va_arg_" type "(" alist "[, " arg_type "]);" fetches the next argument from the argument list. .TP .BI "va_return_" type "(" alist "[[, " return_type "], " return_value "]);" ends the walk through the argument list and specifies the return value. .RE The .I type in .BI va_start_ type and .BI va_return_ type shall be one of .BR void ", " int ", " uint ", " long ", " ulong ", " longlong ", " ulonglong ", " double ", " struct ", " ptr or (for ANSI C calling conventions only) .BR char ", " schar ", " uchar ", " short ", " ushort ", " float , depending on the class of .IR return_type . The .I type specifiers in .BI va_start_ type and .BI va_return_ type must be the same. The .I return_type specifiers passed to .BI va_start_ type and .BI va_return_ type must be the same. The .I type in .BI va_arg_ type shall be one of .BR int ", " uint ", " long ", " ulong ", " longlong ", " ulonglong ", " double ", " struct ", " ptr or (for ANSI C calling conventions only) .BR char ", " schar ", " uchar ", " short ", " ushort ", " float , depending on the class of .IR arg_type . In .BI "va_start_struct(" alist ", " return_type ", " splittable ); the .I splittable flag specifies whether the struct .I return_type can be returned in registers such that every struct field fits entirely in a single register. This needs to be specified for structs of size 2*sizeof(long). For structs of size <= sizeof(long), .I splittable is ignored and assumed to be 1. For structs of size > 2*sizeof(long), .I splittable is ignored and assumed to be 0. There are some handy macros for this: .nf .BI "va_word_splittable_1 (" type1 ) .BI "va_word_splittable_2 (" type1 ", " type2 ) .BI "va_word_splittable_3 (" type1 ", " type2 ", " type3 ) .BI "va_word_splittable_4 (" type1 ", " type2 ", " type3 ", " type4 ) .fi For a struct with three slots .nf .BI "struct { " "type1 id1" "; " "type2 id2" "; " "type3 id3" "; }" .fi you can specify .I splittable as .BI "va_word_splittable_3 (" type1 ", " type2 ", " type3 ) .RB . .SH NOTES Functions which want to emulate Kernighan & Ritchie style functions (i.e., in ANSI C, functions without a typed argument list) cannot use the .I type values .BR char ", " schar ", " uchar ", " short ", " ushort ", " float . As prescribed by the default K&R C expression promotions, they have to use .B int instead of .BR char ", " schar ", " uchar ", " short ", " ushort and .B double instead of .BR float . The macros .BR va_start_longlong(\|) , .BR va_start_ulonglong(\|) , .BR va_return_longlong(\|) , .BR va_return_ulonglong(\|) , .B va_arg_longlong(\|) and .B va_arg_ulonglong(\|) work only if the C compiler has a working .B long long 64-bit integer type. The struct types used in .B va_start_struct(\|) and .B va_struct(\|) must only contain (signed or unsigned) int, long, long long or pointer fields. Struct types containing (signed or unsigned) char, short, float, double or other structs are not supported. .SH SEE ALSO .BR vacall (3), .BR trampoline (3). .SH BUGS The current implementations have been tested on a selection of common cases but there are probably still many bugs. There are typically built-in limits on the size of the argument-list, which may also include the size of any structure arguments. The decision whether a struct is to be returned in registers or in memory considers only the struct's size and alignment. This is inaccurate: for example, gcc on m68k-next returns .B "struct { char a,b,c; }" in registers and .B "struct { char a[3]; }" in memory, although both types have the same size and the same alignment. The argument list can only be walked once. .SH NON-BUGS All information is passed in CPU registers and the stack. The .B callback package is therefore multithread-safe. .SH PORTING Porting .B callback consists in first porting the .B vacall and .B trampoline packages, then choosing a CPU register for passing the closure from .B trampoline to .BR vacall . This register is normally the register designated by STATIC_CHAIN_REGNUM in the gcc source, file .RI gcc-2.7.2/config/ cpu / cpu .h. .SH AUTHOR Bruno Haible .SH ACKNOWLEDGEMENTS Many ideas were cribbed from the gcc source. libffcall-2.2/callback/Makefile.in0000664000000000000000000002012513530356702013771 00000000000000# Makefile for callback #### Start of system configuration section. #### HOST = @host@ CPU = @HOST_CPU_C_ABI@ # Directories used by "make": srcdir = @srcdir@ # Directories used by "make install": prefix = @prefix@ local_prefix = /usr/local exec_prefix = @exec_prefix@ libdir = @libdir@ includedir = @includedir@ mandir = @mandir@ datadir = @datadir@ datarootdir = @datarootdir@ htmldir = $(datadir)/html # Programs used by "make": # C compiler CC = @CC@ CFLAGS = @CFLAGS@ CPP = @CPP@ # C++ compiler CXX = @CXX@ CXXFLAGS = @CXXFLAGS@ # Both C and C++ compiler CPPFLAGS = @CPPFLAGS@ INCLUDES = -I. -I$(srcdir) -I.. -I$(srcdir)/.. -I$(srcdir)/vacall_r LDFLAGS = @LDFLAGS@ LIBTOOL = @LIBTOOL@ LIBTOOL_COMPILE = $(LIBTOOL) --mode=compile LIBTOOL_LINK = $(LIBTOOL) --mode=link LIBTOOL_INSTALL = $(LIBTOOL) --mode=install LIBTOOL_UNINSTALL = $(LIBTOOL) --mode=uninstall AR = @AR@ AR_FLAGS = rc RANLIB = @RANLIB@ RM = rm -f @SET_MAKE@ # Programs used by "make install": INSTALL = @INSTALL@ INSTALL_PROGRAM = @INSTALL_PROGRAM@ INSTALL_DATA = @INSTALL_DATA@ # Libtool options for linking with the thread library. LTLIBTHREAD = @LTLIBTHREAD@ #### End of system configuration section. #### SHELL = /bin/sh # Needed by $(LIBTOOL). top_builddir = .. # Limit the set of exported symbols, on those platforms where libtool supports it. # Currently this excludes the symbols from gnulib modules. LIBCALLBACK_EXPORTED_SYMBOLS_REGEX = '^callback_|_callback$$|^trampoline_r_data0$$' # Before making a release, change this according to the libtool documentation, # section "Library interface versions". LIBCALLBACK_VERSION_INFO = 1:2:0 all : all-subdirs libcallback.la $(srcdir)/callback.3 $(srcdir)/callback.html all-subdirs : force cd @callback_subdir@ && $(MAKE) all callback-libapi.lo : $(srcdir)/callback-libapi.c $(srcdir)/callback.h $(srcdir)/trampoline_r/trampoline_r.h ../config.h $(LIBTOOL_COMPILE) $(CC) $(INCLUDES) -I$(srcdir)/trampoline_r $(CPPFLAGS) $(CFLAGS) -c $(srcdir)/callback-libapi.c callback-compat.lo : $(srcdir)/callback-compat.c ../config.h $(LIBTOOL_COMPILE) $(CC) $(INCLUDES) $(CPPFLAGS) $(CFLAGS) -c $(srcdir)/callback-compat.c libcallback.la : vacall_r/libvacall.la trampoline_r/libtrampoline.la callback-libapi.lo callback-compat.lo $(LIBTOOL_LINK) $(CC) -o libcallback.la -rpath $(libdir) -no-undefined -export-symbols-regex $(LIBCALLBACK_EXPORTED_SYMBOLS_REGEX) -version-info $(LIBCALLBACK_VERSION_INFO) vacall_r/vacall.lo vacall_r/vacall-libapi.lo vacall_r/vacall-structcpy.lo trampoline_r/*.lo callback-libapi.lo callback-compat.lo ../gnulib-lib/libgnu.la $(LDFLAGS) $(LTLIBTHREAD) # Installs the library and include files only. Typically called with only # $(libdir) and $(includedir) - don't use $(prefix) and $(exec_prefix) here. install-lib : all force cd vacall_r && $(MAKE) install-lib libdir='$(libdir)' includedir='$(includedir)' mkdir -p $(libdir) $(LIBTOOL_INSTALL) $(INSTALL_DATA) libcallback.la $(libdir)/libcallback.la mkdir -p $(includedir) $(INSTALL_DATA) $(srcdir)/callback.h $(includedir)/callback.h install : force cd vacall_r && $(MAKE) install mkdir -p $(DESTDIR)$(prefix) mkdir -p $(DESTDIR)$(exec_prefix) mkdir -p $(DESTDIR)$(libdir) $(LIBTOOL_INSTALL) $(INSTALL_DATA) libcallback.la $(DESTDIR)$(libdir)/libcallback.la mkdir -p $(DESTDIR)$(includedir) $(INSTALL_DATA) $(srcdir)/callback.h $(DESTDIR)$(includedir)/callback.h mkdir -p $(DESTDIR)$(mandir) mkdir -p $(DESTDIR)$(mandir)/man3 $(INSTALL_DATA) $(srcdir)/callback.3 $(DESTDIR)$(mandir)/man3/callback.3 mkdir -p $(DESTDIR)$(datadir) mkdir -p $(DESTDIR)$(htmldir) $(INSTALL_DATA) $(srcdir)/callback.html $(DESTDIR)$(htmldir)/callback.html installdirs : force cd vacall_r && $(MAKE) installdirs mkdir -p $(DESTDIR)$(prefix) mkdir -p $(DESTDIR)$(exec_prefix) mkdir -p $(DESTDIR)$(libdir) mkdir -p $(DESTDIR)$(includedir) mkdir -p $(DESTDIR)$(mandir) mkdir -p $(DESTDIR)$(mandir)/man3 mkdir -p $(DESTDIR)$(datadir) mkdir -p $(DESTDIR)$(htmldir) uninstall : force cd vacall_r && $(MAKE) uninstall $(LIBTOOL_UNINSTALL) $(RM) $(DESTDIR)$(libdir)/libcallback.la $(RM) $(DESTDIR)$(includedir)/callback.h $(RM) $(DESTDIR)$(mandir)/man3/callback.3 $(RM) $(DESTDIR)$(htmldir)/callback.html test1.@OBJEXT@ : $(srcdir)/test1.c $(srcdir)/callback.h $(srcdir)/vacall_r/vacall_r.h $(CC) $(INCLUDES) $(CPPFLAGS) $(CFLAGS) -c $(srcdir)/test1.c test1 : test1.@OBJEXT@ libcallback.la $(LIBTOOL_LINK) $(CC) $(CFLAGS) @GCC_X_NONE@ test1.@OBJEXT@ libcallback.la $(LDFLAGS) -o test1 minitests.@OBJEXT@ : $(srcdir)/minitests.c $(srcdir)/tests.c $(srcdir)/callback.h $(srcdir)/vacall_r/vacall_r.h $(CC) $(INCLUDES) $(CPPFLAGS) $(CFLAGS) -c $(srcdir)/minitests.c minitests.s : $(srcdir)/minitests.c $(srcdir)/tests.c $(srcdir)/callback.h $(srcdir)/vacall_r/vacall_r.h $(CC) $(INCLUDES) $(CPPFLAGS) $(CFLAGS) -S $(srcdir)/minitests.c minitests : minitests.@OBJEXT@ libcallback.la $(LIBTOOL_LINK) $(CC) $(CFLAGS) @GCC_X_NONE@ minitests.@OBJEXT@ libcallback.la $(LDFLAGS) -o minitests minitests-c++.@OBJEXT@ : $(srcdir)/minitests-c++.cc $(srcdir)/minitests.c $(srcdir)/tests.c $(srcdir)/callback.h $(srcdir)/vacall_r/vacall_r.h $(CXX) $(INCLUDES) $(CPPFLAGS) $(CXXFLAGS) -c $(srcdir)/minitests-c++.cc minitests-c++ : minitests-c++.@OBJEXT@ libcallback.la $(LIBTOOL_LINK) $(CXX) $(CXXFLAGS) @GCC_X_NONE@ minitests-c++.@OBJEXT@ libcallback.la $(LDFLAGS) -o minitests-c++ check-subdirs : force cd @callback_subdir@ && $(MAKE) check check : all check-subdirs test1 minitests ./test1 ./minitests > minitests.out LC_ALL=C uniq -u < minitests.out > minitests.output.$(HOST) test '!' -s minitests.output.$(HOST) @IF_CXX@ ./minitests-c++ > minitests-c++.out @IF_CXX@ LC_ALL=C uniq -u < minitests-c++.out > minitests-c++.output.$(HOST) @IF_CXX@ test '!' -s minitests-c++.output.$(HOST) @IF_CXX@check : minitests-c++ tests.@OBJEXT@ : $(srcdir)/tests.c $(srcdir)/callback.h $(srcdir)/vacall_r/vacall_r.h $(CC) $(INCLUDES) $(CPPFLAGS) $(CFLAGS) -c $(srcdir)/tests.c tests.s : $(srcdir)/tests.c $(srcdir)/callback.h $(srcdir)/vacall_r/vacall_r.h $(CC) $(INCLUDES) $(CPPFLAGS) $(CFLAGS) -S $(srcdir)/tests.c tests : tests.@OBJEXT@ libcallback.la $(LIBTOOL_LINK) $(CC) $(CFLAGS) @GCC_X_NONE@ tests.@OBJEXT@ libcallback.la $(LDFLAGS) -o tests extracheck-subdirs : force cd @callback_subdir@ && $(MAKE) extracheck extracheck : all extracheck-subdirs tests ./tests > tests.out LC_ALL=C uniq -u < tests.out > tests.output.$(HOST) test '!' -s tests.output.$(HOST) MOSTLYCLEANDIRS = .libs _libs MOSTLYCLEANFILES = \ *.@OBJEXT@ *.lo core \ libcallback.* \ test1.@OBJEXT@ test1 \ minitests.@OBJEXT@ minitests.s minitests minitests.out \ minitests-c++.@OBJEXT@ minitests-c++ minitests-c++.out \ tests.@OBJEXT@ tests.s tests tests.out mostlyclean : force cd @callback_subdir@ && $(MAKE) mostlyclean $(RM) -r $(MOSTLYCLEANDIRS) $(RM) $(MOSTLYCLEANFILES) clean : force cd @callback_subdir@ && $(MAKE) clean $(RM) -r $(MOSTLYCLEANDIRS) $(RM) $(MOSTLYCLEANFILES) DISTCLEANFILES = \ Makefile \ minitests.output.* minitests-c++.output.* tests.output.* distclean : force cd @callback_subdir@ && if test -f Makefile; then $(MAKE) distclean; fi $(RM) -r $(MOSTLYCLEANDIRS) $(RM) $(MOSTLYCLEANFILES) $(RM) $(DISTCLEANFILES) maintainer-clean : force cd @callback_subdir@ && if test -f Makefile; then $(MAKE) maintainer-clean; fi $(RM) -r $(MOSTLYCLEANDIRS) $(RM) $(MOSTLYCLEANFILES) $(RM) $(DISTCLEANFILES) # List of source files (committed in version control). SOURCE_FILES = \ COPYING MIGRATION PLATFORMS README callback.3 callback.html elf-hack.txt \ Makefile.maint \ Makefile.in \ callback.h \ callback-libapi.c \ callback-compat.c \ test1.c \ minitests.c minitests-c++.cc \ tests.c # List of distributed files generated by Makefile.maint. GENERATED_FILES = \ callback.man # List of distributed files. DISTFILES = $(SOURCE_FILES) $(GENERATED_FILES) distdir : $(DISTFILES) for file in $(DISTFILES); do \ if test -f $$file; then dir='.'; else dir='$(srcdir)'; fi; \ cp -p "$$dir/$$file" '$(distdir)'/$$file || exit 1; \ done test -d '$(distdir)'/@callback_subdir@ || mkdir '$(distdir)'/@callback_subdir@; cd @callback_subdir@ && $(MAKE) distdir distdir='$(distdir)'/@callback_subdir@ force : libffcall-2.2/callback/vacall_r/0000775000000000000000000000000013530357260013567 500000000000000libffcall-2.2/callback/vacall_r/vacall-s390-linux.s0000664000000000000000000000434413530357115016772 00000000000000 .file "vacall-s390.c" .text .align 4 .type callback_receiver,@function callback_receiver: stm %r6,%r15,24(%r15) bras %r13,.LTN0_0 .LT0_0: .LC0: .long 0 .LC1: .long 255 .LC2: .long 65535 .LC3: .long 1 .LTN0_0: lr %r1,%r0 lr %r14,%r15 ahi %r15,-184 lr %r11,%r15 lr %r9,%r0 l %r10,0(%r1) st %r14,0(%r15) la %r1,280(%r11) mvc 116(4,%r11),.LC0-.LT0_0(%r13) st %r2,132(%r11) st %r3,136(%r11) la %r3,96(%r11) st %r4,140(%r11) st %r5,144(%r11) st %r6,148(%r11) std %f2,176(%r11) std %f0,168(%r11) ste %f2,160(%r11) ste %f0,156(%r11) mvc 96(4,%r11),.LC0-.LT0_0(%r13) st %r1,112(%r11) mvc 120(4,%r11),.LC0-.LT0_0(%r13) mvc 128(4,%r11),.LC0-.LT0_0(%r13) mvc 152(4,%r11),.LC0-.LT0_0(%r13) l %r2,4(%r9) basr %r14,%r10 icm %r4,15,120(%r11) je .L1 chi %r4,1 je .L43 chi %r4,2 je .L44 chi %r4,3 je .L43 chi %r4,4 je .L45 chi %r4,5 je .L46 chi %r4,6 je .L40 chi %r4,7 je .L40 chi %r4,8 je .L40 chi %r4,9 je .L40 lr %r1,%r4 ahi %r1,-10 cl %r1,.LC3-.LT0_0(%r13) jh .L22 l %r2,104(%r11) l %r3,108(%r11) .L1: l %r4,240(%r11) lm %r6,%r15,208(%r11) br %r4 .L22: chi %r4,12 je .L47 chi %r4,13 je .L48 chi %r4,14 je .L40 chi %r4,15 jne .L1 tm 98(%r11),4 je .L1 l %r1,124(%r11) chi %r1,1 je .L49 chi %r1,2 je .L50 chi %r1,4 je .L51 chi %r1,8 jne .L1 l %r1,116(%r11) l %r3,4(%r1) .L39: l %r2,0(%r1) j .L1 .L51: l %r1,116(%r11) j .L39 .L50: l %r1,116(%r11) lh %r4,0(%r1) lr %r2,%r4 .L41: n %r2,.LC2-.LT0_0(%r13) j .L1 .L49: l %r1,116(%r11) ic %r4,0(%r1) lr %r2,%r4 .L42: n %r2,.LC1-.LT0_0(%r13) j .L1 .L40: l %r2,104(%r11) j .L1 .L48: ld %f0,104(%r11) j .L1 .L47: le %f0,104(%r11) j .L1 .L46: lh %r1,104(%r11) lr %r2,%r1 j .L41 .L45: lh %r2,104(%r11) j .L1 .L43: ic %r1,104(%r11) lr %r2,%r1 j .L42 .L44: icm %r1,8,104(%r11) lr %r2,%r1 sra %r2,24 j .L1 .Lfe1: .size callback_receiver,.Lfe1-callback_receiver .align 4 .globl callback_get_receiver .type callback_get_receiver,@function callback_get_receiver: stm %r11,%r13,44(%r15) bras %r13,.LTN1_0 .LT1_0: .LC4: .long callback_receiver-.LT1_0 .LTN1_0: l %r1,.LC4-.LT1_0(%r13) lr %r11,%r15 la %r2,0(%r13,%r1) lm %r11,%r13,44(%r11) br %r14 .Lfe2: .size callback_get_receiver,.Lfe2-callback_get_receiver .ident "GCC: (GNU) 3.1" libffcall-2.2/callback/vacall_r/vacall-m68k.motorola.S0000664000000000000000000000553013530357113017513 00000000000000#include "asm-m68k.h" .text .align 2 DECLARE_FUNCTION(callback_receiver) FUNBEGIN(callback_receiver) link.w %a6,#-32 movm.l #0x3030,-(%sp) clr.l -32(%a6) lea (8,%a6),%a2 move.l %a2,-20(%a6) clr.l -16(%a6) clr.l -12(%a6) move.l %a1,-4(%a6) pea -32(%a6) move.l 4(%a0),-(%sp) move.l (%a0),%a2 jsr (%a2) addq.l #8,%sp move.l -12(%a6),%a3 tst.l %a3 jbeq L(1) moveq.l #1,%d2 cmp.l %a3,%d2 jbeq L(46) moveq.l #2,%d3 cmp.l %a3,%d3 jbeq L(46) moveq.l #3,%d2 cmp.l %a3,%d2 jbeq L(47) moveq.l #4,%d3 cmp.l %a3,%d3 jbeq L(48) moveq.l #5,%d2 cmp.l %a3,%d2 jbeq L(49) moveq.l #6,%d3 cmp.l %a3,%d3 jbeq L(45) moveq.l #7,%d2 cmp.l %a3,%d2 jbeq L(45) moveq.l #8,%d3 cmp.l %a3,%d3 jbeq L(45) moveq.l #9,%d2 cmp.l %a3,%d2 jbeq L(45) lea (-10,%a3),%a2 moveq.l #1,%d3 cmp.l %a2,%d3 jbcs L(22) move.l -28(%a6),%d0 move.l -24(%a6),%d1 jbra L(1) .align 2 L(22): moveq.l #12,%d2 cmp.l %a3,%d2 jbeq L(50) moveq.l #13,%d2 cmp.l %a3,%d2 jbeq L(51) moveq.l #14,%d3 cmp.l %a3,%d3 jbeq L(52) moveq.l #15,%d2 cmp.l %a3,%d2 jbne L(1) btst #2,-30(%a6) jbeq L(1) move.l -8(%a6),%d2 moveq.l #1,%d3 cmp.l %d2,%d3 jbeq L(53) moveq.l #2,%d3 cmp.l %d2,%d3 jbeq L(54) moveq.l #4,%d3 cmp.l %d2,%d3 jbeq L(55) moveq.l #8,%d3 cmp.l %d2,%d3 jbne L(1) move.l -16(%a6),%a2 move.l (%a2),%d0 move.l 4(%a2),%d1 jbra L(1) .align 2 L(55): move.l -16(%a6),%a2 move.l (%a2),%d0 jbra L(1) .align 2 L(54): move.l -16(%a6),%a2 clr.l %d0 move.w (%a2),%d0 jbra L(1) .align 2 L(53): move.l -16(%a6),%a2 clr.l %d0 move.b (%a2),%d0 jbra L(1) .align 2 L(52): move.l -28(%a6),%d0 move.l %d0,%a0 jbra L(1) .align 2 L(51): btst #6,-29(%a6) jbeq L(31) fmove.d -28(%a6),%fp0 jbra L(1) .align 2 L(31): move.l -28(%a6),%d0 move.l -24(%a6),%d1 jbra L(1) .align 2 L(50): move.l -32(%a6),%d2 btst #6,%d2 jbeq L(25) fmove.s -28(%a6),%fp0 jbra L(1) .align 2 L(25): btst #5,%d2 jbeq L(27) fmove.s -28(%a6),%fp1 fmove.d %fp1,-(%sp) move.l (%sp)+,%d0 move.l (%sp)+,%d1 jbra L(1) .align 2 L(27): move.l -28(%a6),%d0 jbra L(1) .align 2 L(45): move.l -28(%a6),%d0 jbra L(1) .align 2 L(49): clr.l %d0 move.w -28(%a6),%d0 jbra L(1) .align 2 L(48): move.w -28(%a6),%d0 ext.l %d0 jbra L(1) .align 2 L(47): clr.l %d0 move.b -28(%a6),%d0 jbra L(1) .align 2 L(46): move.b -28(%a6),%d0 extb.l %d0 L(1): movm.l -48(%a6),#0xc0c unlk %a6 rts L(fe1): FUNEND(callback_receiver) .align 2 .globl C(callback_get_receiver) DECLARE_FUNCTION(callback_get_receiver) FUNBEGIN(callback_get_receiver) link.w %a6,#0 move.l %a5,-(%sp) lea (%pc, _GLOBAL_OFFSET_TABLE_@GOTPC), %a5 move.l callback_receiver@GOT(%a5),%a0 move.l %a0,%d0 move.l (%sp)+,%a5 unlk %a6 rts L(fe2): FUNEND(callback_get_receiver) #if defined __linux__ || defined __FreeBSD__ || defined __FreeBSD_kernel__ || defined __DragonFly__ .section .note.GNU-stack,"",@progbits #endif libffcall-2.2/callback/vacall_r/vacall-mips64eb-linux.s0000664000000000000000000001265113530357113017723 00000000000000 .file 1 "vacall-mips64.c" .section .mdebug.abi64 .previous .nan legacy .module fp=64 .module oddspreg .abicalls .text .align 2 .align 3 .set nomips16 .set nomicromips .ent callback_receiver .type callback_receiver, @function callback_receiver: .frame $fp,272,$31 # vars= 160, regs= 6/0, args= 0, gp= 0 .mask 0xd0070000,-72 .fmask 0x00000000,0 .set noreorder .set nomacro daddiu $sp,$sp,-272 sd $fp,192($sp) move $fp,$sp sd $4,208($fp) ld $4,8($2) ld $25,0($2) daddiu $12,$fp,208 sd $31,200($sp) sd $18,176($sp) sd $17,168($sp) sd $16,160($sp) sd $5,216($fp) sd $6,224($fp) sd $7,232($fp) sd $8,240($fp) sd $9,248($fp) sd $10,256($fp) sd $11,264($fp) sdc1 $f12,96($fp) sdc1 $f13,104($fp) sdc1 $f14,112($fp) sdc1 $f15,120($fp) sdc1 $f16,128($fp) sdc1 $f17,136($fp) sdc1 $f18,144($fp) sdc1 $f19,152($fp) swc1 $f12,60($fp) swc1 $f13,64($fp) swc1 $f14,68($fp) swc1 $f15,72($fp) swc1 $f16,76($fp) swc1 $f17,80($fp) swc1 $f18,84($fp) move $5,$fp swc1 $f19,88($fp) sd $12,24($fp) sw $0,0($fp) sd $0,32($fp) sw $0,40($fp) jalr $25 sw $0,56($fp) lw $12,40($fp) beq $12,$0,.L1 li $13,1 # 0x1 beq $12,$13,.L43 li $13,2 # 0x2 beq $12,$13,.L43 li $13,3 # 0x3 beq $12,$13,.L46 li $13,4 # 0x4 beq $12,$13,.L47 li $13,5 # 0x5 beq $12,$13,.L48 li $13,6 # 0x6 beq $12,$13,.L49 li $13,7 # 0x7 beq $12,$13,.L50 li $13,8 # 0x8 beq $12,$13,.L44 li $13,9 # 0x9 beq $12,$13,.L44 li $13,10 # 0xa beq $12,$13,.L44 li $13,11 # 0xb beq $12,$13,.L44 li $13,12 # 0xc beq $12,$13,.L51 li $13,13 # 0xd beq $12,$13,.L52 li $13,14 # 0xe beq $12,$13,.L44 li $13,15 # 0xf bnel $12,$13,.L58 move $sp,$fp lw $12,0($fp) andi $13,$12,0x400 beq $13,$0,.L1 andi $13,$12,0x4 beq $13,$0,.L19 ld $14,48($fp) ld $12,48($fp) li $13,1 # 0x1 beq $12,$13,.L53 li $13,2 # 0x2 beq $12,$13,.L54 li $13,4 # 0x4 beq $12,$13,.L55 li $13,8 # 0x8 bnel $12,$13,.L58 move $sp,$fp ld $12,32($fp) ld $2,0($12) .L1: move $sp,$fp .L58: ld $31,200($sp) ld $fp,192($sp) ld $18,176($sp) ld $17,168($sp) ld $16,160($sp) j $31 daddiu $sp,$sp,272 .align 3 .L43: move $sp,$fp ld $31,200($sp) ld $18,176($sp) ld $17,168($sp) ld $16,160($sp) lb $2,8($fp) ld $fp,192($sp) j $31 daddiu $sp,$sp,272 .align 3 .L44: b .L1 ld $2,8($fp) .align 3 .L46: b .L1 lbu $2,8($fp) .align 3 .L47: b .L1 lh $2,8($fp) .align 3 .L48: b .L1 lhu $2,8($fp) .align 3 .L49: b .L1 lw $2,8($fp) .align 3 .L51: b .L1 lwc1 $f0,8($fp) .align 3 .L50: b .L1 lwu $2,8($fp) .L52: b .L1 ldc1 $f0,8($fp) .L19: daddiu $13,$14,-1 sltu $13,$13,16 beql $13,$0,.L59 andi $13,$12,0x800 ld $13,32($fp) li $24,-8 # 0xfffffffffffffff8 sltu $25,$14,9 andi $15,$13,0x7 and $24,$13,$24 beq $25,$0,.L24 daddu $13,$14,$15 sltu $25,$13,9 sll $13,$13,0 beq $25,$0,.L25 subu $13,$0,$13 ld $25,0($24) sll $13,$13,3 li $24,-1 # 0xffffffffffffffff dsll $13,$24,$13 and $13,$13,$25 sll $15,$15,3 dsll $2,$13,$15 .L23: andi $13,$12,0x800 .L59: beql $13,$0,.L27 andi $12,$12,0x1000 li $13,4 # 0x4 beq $14,$13,.L56 li $13,8 # 0x8 beql $14,$13,.L57 ld $13,32($fp) andi $12,$12,0x1000 beql $12,$0,.L58 move $sp,$fp li $12,16 # 0x10 .L60: bnel $14,$12,.L58 move $sp,$fp ld $12,32($fp) ldc1 $f0,0($12) b .L1 ldc1 $f2,8($12) .L27: beq $12,$0,.L1 li $12,8 # 0x8 bne $14,$12,.L60 li $12,16 # 0x10 ld $13,32($fp) b .L1 ldc1 $f0,0($13) .L24: sltu $25,$13,17 beq $25,$0,.L26 sll $13,$13,0 ld $18,8($24) subu $13,$0,$13 move $16,$15 li $25,-1 # 0xffffffffffffffff subu $15,$0,$15 sll $13,$13,3 dsll $13,$25,$13 ld $17,0($24) sll $25,$15,2 addiu $24,$25,32 and $13,$13,$18 sll $15,$16,3 dsra $25,$13,$24 dsll $16,$17,$15 dsra $24,$25,$24 or $2,$16,$24 b .L23 dsll $3,$13,$15 .L53: ld $12,32($fp) b .L1 lbu $2,0($12) .L54: ld $12,32($fp) b .L1 lhu $2,0($12) .L26: ld $18,16($24) subu $13,$0,$13 ld $16,8($24) ld $17,0($24) subu $25,$0,$15 sll $13,$13,3 li $24,-1 # 0xffffffffffffffff dsll $24,$24,$13 sll $25,$25,3 sll $15,$15,3 addiu $25,$25,64 and $13,$24,$18 dsra $13,$13,$25 dsll $24,$17,$15 dsra $17,$16,$25 dsll $15,$16,$15 or $2,$24,$17 b .L23 or $3,$13,$15 .L56: ld $12,32($fp) b .L1 lwc1 $f0,0($12) .L55: ld $12,32($fp) b .L1 lwu $2,0($12) .L25: ld $16,8($24) ld $25,0($24) sll $13,$13,3 li $24,-1 # 0xffffffffffffffff dsll $13,$24,$13 subu $24,$0,$15 and $13,$13,$16 sll $24,$24,3 sll $15,$15,3 dsra $13,$13,$24 dsll $15,$25,$15 b .L23 or $2,$13,$15 .L57: andi $12,$12,0x1000 lwc1 $f0,0($13) beq $12,$0,.L1 lwc1 $f2,4($13) b .L1 ldc1 $f0,0($13) .set macro .set reorder .end callback_receiver .size callback_receiver, .-callback_receiver .align 2 .align 3 .globl callback_get_receiver .set nomips16 .set nomicromips .ent callback_get_receiver .type callback_get_receiver, @function callback_get_receiver: .frame $fp,16,$31 # vars= 0, regs= 1/0, args= 0, gp= 0 .mask 0x40000000,-8 .fmask 0x00000000,0 .set noreorder .set nomacro lui $13,%hi(%neg(%gp_rel(callback_get_receiver))) daddu $13,$13,$25 daddiu $13,$13,%lo(%neg(%gp_rel(callback_get_receiver))) daddiu $sp,$sp,-16 ld $12,%got_page(callback_receiver)($13) sd $fp,8($sp) move $fp,$sp move $sp,$fp ld $fp,8($sp) daddiu $2,$12,%got_ofst(callback_receiver) j $31 daddiu $sp,$sp,16 .set macro .set reorder .end callback_get_receiver .size callback_get_receiver, .-callback_get_receiver .ident "GCC: (GNU) 5.4.0" libffcall-2.2/callback/vacall_r/vacall-mipsel-macro.S0000664000000000000000000001021113530357113017453 00000000000000#include "asm-mips.h" .file 1 "vacall-mips.c" .text .align 2 .set nomips16 .set nomicromips .ent callback_receiver DECLARE_FUNCTION(callback_receiver) callback_receiver: .frame $fp,104,$31 .mask 0xc0000000,-4 .fmask 0x00000000,0 .set noreorder .cpload $25 .set reorder addiu $sp,$sp,-104 sw $fp,96($sp) move $fp,$sp sw $31,100($sp) lw $25,0($2) sw $4,104($fp) lw $4,4($2) sw $5,108($fp) addiu $5,$fp,104 sw $5,40($fp) addiu $5,$fp,120 sw $5,56($fp) .cprestore 16 sw $6,112($fp) sw $7,116($fp) sdc1 $f12,80($fp) sdc1 $f14,88($fp) swc1 $f12,68($fp) swc1 $f14,72($fp) sw $0,24($fp) sw $0,44($fp) sw $0,48($fp) sw $0,60($fp) sw $0,64($fp) addiu $5,$fp,24 jal $25 lw $4,48($fp) .set noreorder .set nomacro beq $4,$0,$L1 li $5,1 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,$L23 li $5,2 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,$L23 li $5,3 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,$L29 li $5,4 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,$L30 li $5,5 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,$L31 li $5,6 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,$L27 li $5,7 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,$L27 li $5,8 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,$L27 li $5,9 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,$L27 addiu $5,$4,-10 .set macro .set reorder sltu $5,$5,2 .set noreorder .set nomacro bne $5,$0,$L32 li $5,12 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,$L33 li $5,13 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,$L34 li $5,14 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,$L27 li $5,15 .set macro .set reorder .set noreorder .set nomacro bnel $4,$5,$L37 move $sp,$fp .set macro .set reorder lw $4,24($fp) andi $4,$4,0x2 .set noreorder .set nomacro beql $4,$0,$L38 lw $2,44($fp) .set macro .set reorder lw $4,52($fp) li $5,1 .set noreorder .set nomacro beql $4,$5,$L35 lw $4,44($fp) .set macro .set reorder li $5,2 .set noreorder .set nomacro beq $4,$5,$L36 li $5,4 .set macro .set reorder .set noreorder .set nomacro bnel $4,$5,$L37 move $sp,$fp .set macro .set reorder lw $4,44($fp) lw $2,0($4) $L1: $L38: move $sp,$fp $L37: lw $31,100($sp) lw $fp,96($sp) .set noreorder .set nomacro j $31 addiu $sp,$sp,104 .set macro .set reorder $L23: move $sp,$fp lw $31,100($sp) lb $2,32($fp) lw $fp,96($sp) .set noreorder .set nomacro j $31 addiu $sp,$sp,104 .set macro .set reorder $L27: move $sp,$fp lw $31,100($sp) lw $2,32($fp) lw $fp,96($sp) .set noreorder .set nomacro j $31 addiu $sp,$sp,104 .set macro .set reorder $L29: .set noreorder .set nomacro b $L1 lbu $2,32($fp) .set macro .set reorder $L30: .set noreorder .set nomacro b $L1 lh $2,32($fp) .set macro .set reorder $L31: .set noreorder .set nomacro b $L1 lhu $2,32($fp) .set macro .set reorder $L34: .set noreorder .set nomacro b $L1 ldc1 $f0,32($fp) .set macro .set reorder $L32: lw $2,32($fp) .set noreorder .set nomacro b $L1 lw $3,36($fp) .set macro .set reorder $L33: .set noreorder .set nomacro b $L1 lwc1 $f0,32($fp) .set macro .set reorder $L35: .set noreorder .set nomacro b $L1 lbu $2,0($4) .set macro .set reorder $L36: lw $4,44($fp) .set noreorder .set nomacro b $L1 lhu $2,0($4) .set macro .set reorder .end callback_receiver .size callback_receiver, .-callback_receiver .align 2 .globl callback_get_receiver .set nomips16 .set nomicromips .ent callback_get_receiver DECLARE_FUNCTION(callback_get_receiver) callback_get_receiver: .frame $fp,8,$31 .mask 0x40000000,-4 .fmask 0x00000000,0 .set noreorder .cpload $25 .set reorder addiu $sp,$sp,-8 sw $fp,4($sp) move $fp,$sp move $sp,$fp lw $fp,4($sp) la $2,callback_receiver .set noreorder .set nomacro j $31 addiu $sp,$sp,8 .set macro .set reorder .end callback_get_receiver .size callback_get_receiver, .-callback_get_receiver libffcall-2.2/callback/vacall_r/vacall-powerpc-macos.s0000664000000000000000000000423613530357114017715 00000000000000.text .align 2 _callback_receiver: mflr r0 stmw r29,-12(r1) stw r0,8(r1) li r29,0 stwu r1,-224(r1) mr r30,r1 addi r0,r30,248 stw r29,84(r30) stw r0,80(r30) lwz r0,0(r11) stw r3,248(r30) stw r4,252(r30) mtctr r0 stw r9,272(r30) addi r4,r30,64 stw r5,256(r30) stw r6,260(r30) stw r7,264(r30) stw r8,268(r30) stw r10,276(r30) stw r29,96(r30) stfd f1,100(r30) stfd f2,108(r30) stfd f3,116(r30) stfd f4,124(r30) stfd f5,132(r30) stfd f6,140(r30) stfd f7,148(r30) stfd f8,156(r30) stfd f9,164(r30) stfd f10,172(r30) stfd f11,180(r30) stfd f12,188(r30) stfd f13,196(r30) stw r29,64(r30) stw r29,88(r30) lwz r3,4(r11) bctrl lwz r9,88(r30) cmpwi cr0,r9,0 beq- cr0,L1 cmpwi cr0,r9,1 beq- cr0,L41 cmpwi cr0,r9,2 beq- cr0,L41 cmpwi cr0,r9,3 beq- cr0,L42 cmpwi cr0,r9,4 beq- cr0,L43 cmpwi cr0,r9,5 beq- cr0,L44 cmpwi cr0,r9,6 beq- cr0,L40 cmpwi cr0,r9,7 beq- cr0,L40 cmpwi cr0,r9,8 beq- cr0,L40 cmpwi cr0,r9,9 beq- cr0,L40 addi r0,r9,-10 cmplwi cr0,r0,1 bgt- cr0,L22 lwz r3,72(r30) lwz r4,76(r30) L1: lwz r1,0(r1) lwz r0,8(r1) lmw r29,-12(r1) mtlr r0 blr L22: cmpwi cr0,r9,12 beq- cr0,L45 cmpwi cr0,r9,13 beq- cr0,L46 cmpwi cr0,r9,14 beq- cr0,L40 cmpwi cr0,r9,15 bne+ cr0,L1 lwz r0,64(r30) andi. r9,r0,1024 beq- cr0,L1 lwz r0,92(r30) cmpwi cr0,r0,1 beq- cr0,L47 cmpwi cr0,r0,2 beq- cr0,L48 cmpwi cr0,r0,4 beq- cr0,L49 cmpwi cr0,r0,8 bne+ cr0,L1 lwz r9,84(r30) lwz r4,4(r9) L39: lwz r3,0(r9) b L1 L49: lwz r9,84(r30) b L39 L48: lwz r9,84(r30) lhz r3,0(r9) b L1 L47: lwz r9,84(r30) lbz r3,0(r9) b L1 L40: lwz r3,72(r30) b L1 L46: lfd f1,72(r30) b L1 L45: lfs f1,72(r30) b L1 L44: lhz r3,72(r30) b L1 L43: lha r3,72(r30) b L1 L42: lbz r3,72(r30) b L1 L41: lbz r0,72(r30) extsb r3,r0 b L1 .align 2 .globl _callback_get_receiver _callback_get_receiver: mflr r0 stmw r30,-8(r1) stw r0,8(r1) bcl 20,31,L1$pb L1$pb: stwu r1,-48(r1) mflr r31 addis r9,r31,ha16(L_callback_receiver$non_lazy_ptr-L1$pb) mr r30,r1 lwz r3,lo16(L_callback_receiver$non_lazy_ptr-L1$pb)(r9) lwz r1,0(r1) lwz r0,8(r1) lmw r30,-8(r1) mtlr r0 blr .data .align 2 L_callback_receiver$non_lazy_ptr: .long _callback_receiver libffcall-2.2/callback/vacall_r/vacall-alpha-macro.S0000664000000000000000000000616113530357113017260 00000000000000 .set noreorder .set volatile .set noat .set nomacro .text .align 2 .align 4 .ent callback_receiver callback_receiver: .frame $15,192,$26,48 .mask 0x4008000,-192 ldah $29,0($27) !gpdisp!1 lda $29,0($29) !gpdisp!1 $callback_receiver..ng: lda $30,-192($30) ldq $27,0($1) stq $15,8($30) mov $30,$15 lda $3,144($15) stq $26,0($30) .prologue 1 stq $31,48($15) lda $2,88($15) stq $16,144($15) subq $2,$3,$2 ldq $16,8($1) stq $17,152($15) lda $3,192($15) stq $2,80($15) lda $17,16($15) lda $2,144($15) stq $3,72($15) stq $18,160($15) stq $19,168($15) stq $20,176($15) stq $21,184($15) stt $f16,88($15) stt $f17,96($15) stt $f18,104($15) stt $f19,112($15) stt $f20,120($15) stt $f21,128($15) stl $31,16($15) stq $2,40($15) stl $31,56($15) jsr $26,($27),0 ldah $29,0($26) !gpdisp!2 lda $29,0($29) !gpdisp!2 ldl $2,56($15) beq $2,$L43 zapnot $2,15,$3 cmpeq $3,1,$2 bne $2,$L44 cmpeq $3,2,$2 bne $2,$L44 cmpeq $3,3,$2 bne $2,$L50 cmpeq $3,4,$2 bne $2,$L51 cmpeq $3,5,$2 bne $2,$L52 cmpeq $3,6,$2 bne $2,$L53 cmpeq $3,7,$2 bne $2,$L54 cmpeq $3,8,$2 bne $2,$L48 cmpeq $3,9,$2 bne $2,$L48 cmpeq $3,10,$2 bne $2,$L48 cmpeq $3,11,$2 bne $2,$L48 cmpeq $3,12,$2 bne $2,$L55 cmpeq $3,13,$2 bne $2,$L56 cmpeq $3,14,$2 bne $2,$L48 cmpeq $3,15,$2 beq $2,$L43 lda $2,1024($31) ldl $3,16($15) and $2,$3,$2 beq $2,$L43 ldq $3,64($15) cmpeq $3,1,$2 bne $2,$L57 cmpeq $3,2,$2 bne $2,$L58 cmpeq $3,4,$2 bne $2,$L59 cmpeq $3,8,$2 bne $2,$L60 cmpeq $3,16,$2 beq $2,$L43 ldq $2,48($15) ldq $1,8($2) ldq $0,0($2) .align 4 $L43: mov $15,$30 ldq $26,0($30) ldq $15,8($30) lda $30,192($30) ret $31,($26),1 .align 4 $L44: mov $15,$30 ldl $2,24($15) ldq $26,0($30) sll $2,56,$2 sra $2,56,$0 ldq $15,8($30) lda $30,192($30) ret $31,($26),1 $L51: ldl $2,24($15) sll $2,48,$2 sra $2,48,$0 br $31,$L43 $L50: ldl $2,24($15) bis $31,$31,$31 and $2,0xff,$0 br $31,$L43 $L48: ldq $0,24($15) br $31,$L43 $L52: ldl $2,24($15) bis $31,$31,$31 zapnot $2,3,$0 br $31,$L43 $L53: ldl $3,24($15) bis $31,$31,$31 mov $3,$0 br $31,$L43 $L54: ldl $2,24($15) bis $31,$31,$31 zapnot $2,15,$0 br $31,$L43 $L55: lds $f0,24($15) br $31,$L43 $L56: ldt $f0,24($15) br $31,$L43 $L57: ldq $3,48($15) ldq_u $2,0($3) extbl $2,$3,$0 br $31,$L43 $L58: ldq $3,48($15) ldq_u $2,0($3) extwl $2,$3,$0 br $31,$L43 $L60: ldq $2,48($15) bis $31,$31,$31 ldq $0,0($2) br $31,$L43 $L59: ldq $2,48($15) ldl $3,0($2) zapnot $3,15,$0 br $31,$L43 .end callback_receiver .align 2 .align 4 .globl callback_get_receiver .ent callback_get_receiver callback_get_receiver: .frame $15,16,$26,0 .mask 0x4008000,-16 ldah $29,0($27) !gpdisp!3 lda $29,0($29) !gpdisp!3 $callback_get_receiver..ng: lda $30,-16($30) ldah $2,callback_receiver($29) !gprelhigh stq $15,8($30) mov $30,$15 stq $26,0($30) .prologue 1 mov $15,$30 lda $0,callback_receiver($2) !gprellow ldq $26,0($30) ldq $15,8($30) lda $30,16($30) ret $31,($26),1 .end callback_get_receiver #if defined __linux__ || defined __FreeBSD__ || defined __FreeBSD_kernel__ || defined __DragonFly__ .section .note.GNU-stack,"",@progbits #endif libffcall-2.2/callback/vacall_r/vacall-powerpc64-aix.s0000664000000000000000000000506313530357114017545 00000000000000 .file "../../vacall/vacall-powerpc64.c" .csect .text[PR] .toc .csect .text[PR] .align 2 .align 4 .lglobl .callback_receiver .csect callback_receiver[DS],3 callback_receiver: .llong .callback_receiver, TOC[tc0], 0 .csect .text[PR] .callback_receiver: mflr 0 std 30,-16(1) std 31,-8(1) li 30,0 std 0,16(1) li 0,0 stdu 1,-304(1) ld 12,0(11) mr 31,1 std 9,400(31) addi 9,31,352 stfd 1,172(31) stw 0,152(31) stw 0,168(31) std 3,352(31) std 4,360(31) ld 3,8(11) std 5,368(31) addi 4,31,112 std 6,376(31) std 7,384(31) std 8,392(31) std 10,408(31) stfd 2,180(31) stfd 3,188(31) stfd 4,196(31) stfd 5,204(31) stfd 6,212(31) stfd 7,220(31) stfd 8,228(31) stfd 9,236(31) stfd 10,244(31) stfd 11,252(31) stfd 12,260(31) stfd 13,268(31) std 9,136(31) std 0,144(31) stw 30,112(31) std 2,40(1) ld 9,0(12) ld 11,16(12) mtctr 9 ld 2,8(12) bctrl ld 2,40(1) lwz 9,152(31) cmpdi 7,9,0 beq 7,L..1 cmplwi 7,9,1 beq 7,L..20 cmplwi 7,9,2 beq 7,L..23 cmplwi 7,9,3 beq 7,L..20 cmplwi 7,9,4 beq 7,L..24 cmplwi 7,9,5 beq 7,L..25 cmplwi 7,9,6 beq 7,L..26 cmplwi 7,9,7 beq 7,L..27 cmplwi 7,9,8 beq 7,L..21 cmplwi 7,9,9 beq 7,L..21 cmplwi 7,9,10 beq 7,L..21 cmplwi 7,9,11 beq 7,L..21 cmplwi 7,9,12 beq 7,L..28 cmplwi 7,9,13 beq 7,L..29 cmplwi 7,9,14 beq 7,L..21 L..1: addi 1,31,304 ld 0,16(1) ld 30,-16(1) ld 31,-8(1) mtlr 0 blr .align 4 L..20: lbz 3,120(31) addi 1,31,304 ld 0,16(1) ld 30,-16(1) ld 31,-8(1) mtlr 0 blr .align 4 L..23: lbz 9,120(31) extsb 3,9 b L..1 .align 4 L..21: ld 3,120(31) b L..1 .align 4 L..24: lha 3,120(31) b L..1 .align 4 L..25: lhz 3,120(31) b L..1 .align 4 L..26: lwa 3,120(31) b L..1 .align 4 L..28: lfs 1,120(31) b L..1 .align 4 L..27: lwz 3,120(31) b L..1 L..29: lfd 1,120(31) b L..1 LT..callback_receiver: .long 0 .byte 0,0,32,97,128,2,8,0 .long 0 .long LT..callback_receiver-.callback_receiver .short 17 .byte "callback_receiver" .byte 31 .align 2 .toc LC..0: .tc callback_receiver[TC],callback_receiver .csect .text[PR] .align 2 .align 4 .globl callback_get_receiver .globl .callback_get_receiver .csect callback_get_receiver[DS],3 callback_get_receiver: .llong .callback_get_receiver, TOC[tc0], 0 .csect .text[PR] .callback_get_receiver: std 31,-8(1) ld 3,LC..0(2) stdu 1,-64(1) mr 31,1 addi 1,31,64 ld 31,-8(1) blr LT..callback_get_receiver: .long 0 .byte 0,0,32,96,128,1,0,0 .long LT..callback_get_receiver-.callback_get_receiver .short 21 .byte "callback_get_receiver" .byte 31 .align 2 _section_.text: .csect .data[RW],4 .llong _section_.text libffcall-2.2/callback/vacall_r/vacall-powerpc-aix.s0000664000000000000000000000547113530357114017376 00000000000000 .file "../../vacall/vacall-powerpc.c" .toc .csect .text[PR] .align 2 .lglobl .callback_receiver .csect callback_receiver[DS] callback_receiver: .long .callback_receiver, TOC[tc0], 0 .csect .text[PR] .callback_receiver: .extern __mulh .extern __mull .extern __divss .extern __divus .extern __quoss .extern __quous mflr 0 stw 0,8(1) stw 28,-16(1) stw 29,-12(1) stw 31,-4(1) stwu 1,-216(1) mr 31,1 lwz 28,0(11) li 29,0 addi 0,31,240 stw 9,264(31) stw 3,240(31) stw 4,244(31) stw 5,248(31) stw 6,252(31) stw 7,256(31) stw 8,260(31) stw 10,268(31) stw 29,76(31) stfd 1,92(31) stfd 2,100(31) stfd 3,108(31) stfd 4,116(31) stfd 5,124(31) stfd 6,132(31) stfd 7,140(31) stfd 8,148(31) stfd 9,156(31) stfd 10,164(31) stfd 11,172(31) stfd 12,180(31) stfd 13,188(31) stw 0,72(31) stw 29,88(31) stw 29,56(31) stw 29,80(31) lwz 0,0(28) lwz 3,4(11) mtctr 0 addi 4,31,56 stw 2,20(1) lwz 11,8(28) lwz 2,4(28) bctrl lwz 2,20(1) lwz 9,80(31) cmpwi 0,9,0 beq- 0,L..1 cmpwi 0,9,1 beq- 0,L..41 cmpwi 0,9,2 beq- 0,L..42 cmpwi 0,9,3 beq- 0,L..41 cmpwi 0,9,4 beq- 0,L..43 cmpwi 0,9,5 beq- 0,L..44 cmpwi 0,9,6 beq- 0,L..40 cmpwi 0,9,7 beq- 0,L..40 cmpwi 0,9,8 beq- 0,L..40 cmpwi 0,9,9 beq- 0,L..40 addi 0,9,-10 cmplwi 0,0,1 bgt- 0,L..22 lwz 3,64(31) lwz 4,68(31) L..1: lwz 1,0(1) lwz 0,8(1) lwz 28,-16(1) mtlr 0 lwz 29,-12(1) lwz 31,-4(1) blr L..22: cmpwi 0,9,12 beq- 0,L..45 cmpwi 0,9,13 beq- 0,L..46 cmpwi 0,9,14 beq- 0,L..40 cmpwi 0,9,15 bne+ 0,L..1 lwz 0,56(31) andi. 9,0,1024 beq- 0,L..1 lwz 0,84(31) cmpwi 0,0,1 beq- 0,L..47 cmpwi 0,0,2 beq- 0,L..48 cmpwi 0,0,4 beq- 0,L..49 cmpwi 0,0,8 bne+ 0,L..1 lwz 9,76(31) lwz 4,4(9) L..39: lwz 3,0(9) b L..1 L..49: lwz 9,76(31) b L..39 L..48: lwz 9,76(31) lhz 3,0(9) b L..1 L..47: lwz 9,76(31) lbz 3,0(9) b L..1 L..40: lwz 3,64(31) b L..1 L..46: lfd 1,64(31) b L..1 L..45: lfs 1,64(31) b L..1 L..44: lhz 3,64(31) b L..1 L..43: lha 3,64(31) b L..1 L..41: lbz 3,64(31) b L..1 L..42: lbz 0,64(31) slwi 0,0,24 srawi 3,0,24 b L..1 LT..callback_receiver: .long 0 .byte 0,0,32,97,128,4,8,0 .long 0 .long LT..callback_receiver-.callback_receiver .short 17 .byte "callback_receiver" .byte 31 .align 2 .toc LC..0: .tc callback_receiver[TC],callback_receiver .csect .text[PR] .align 2 .globl callback_get_receiver .globl .callback_get_receiver .csect callback_get_receiver[DS] callback_get_receiver: .long .callback_get_receiver, TOC[tc0], 0 .csect .text[PR] .callback_get_receiver: stw 31,-4(1) stwu 1,-40(1) mr 31,1 lwz 1,0(1) lwz 3,LC..0(2) lwz 31,-4(1) blr LT..callback_get_receiver: .long 0 .byte 0,0,32,96,128,1,0,0 .long LT..callback_get_receiver-.callback_get_receiver .short 21 .byte "callback_get_receiver" .byte 31 .align 2 _section_.text: .csect .data[RW],3 .long _section_.text libffcall-2.2/callback/vacall_r/vacall-powerpc-sysv4-macro.S0000664000000000000000000000476313530357114020747 00000000000000 .file "vacall-powerpc.c" .section ".text" .align 2 .type callback_receiver, @function callback_receiver: .extern __mulh .extern __mull .extern __divss .extern __divus .extern __quoss .extern __quous stwu 1,-176(1) mflr 0 stw 0,180(1) stw 31,172(1) mr 31,1 stw 29,164(1) addi 0,31,184 li 29,0 stw 0,32(31) stw 29,36(31) lwz 0,0(11) stw 3,52(31) stw 4,56(31) mtctr 0 stw 9,76(31) addi 4,31,16 stw 30,168(1) stw 5,60(31) stw 6,64(31) stw 7,68(31) stw 8,72(31) stw 10,80(31) stw 29,84(31) stfd 1,88(31) stfd 2,96(31) stfd 3,104(31) stfd 4,112(31) stfd 5,120(31) stfd 6,128(31) stfd 7,136(31) stfd 8,144(31) stw 29,16(31) stw 29,48(31) stw 29,40(31) lwz 3,4(11) bctrl lwz 9,40(31) cmpwi 0,9,0 beq- 0,.L1 cmpwi 0,9,1 beq- 0,.L41 cmpwi 0,9,2 beq- 0,.L42 cmpwi 0,9,3 beq- 0,.L41 cmpwi 0,9,4 beq- 0,.L43 cmpwi 0,9,5 beq- 0,.L44 cmpwi 0,9,6 beq- 0,.L40 cmpwi 0,9,7 beq- 0,.L40 cmpwi 0,9,8 beq- 0,.L40 cmpwi 0,9,9 beq- 0,.L40 addi 0,9,-10 cmplwi 0,0,1 bgt- 0,.L22 lwz 3,24(31) lwz 4,28(31) .L1: lwz 11,0(1) lwz 0,4(11) lwz 29,-12(11) lwz 30,-8(11) mtlr 0 lwz 31,-4(11) mr 1,11 blr .L22: cmpwi 0,9,12 beq- 0,.L45 cmpwi 0,9,13 beq- 0,.L46 cmpwi 0,9,14 beq- 0,.L40 cmpwi 0,9,15 bne+ 0,.L1 lwz 0,16(31) andi. 9,0,1024 beq- 0,.L1 lwz 0,44(31) cmpwi 0,0,1 beq- 0,.L47 cmpwi 0,0,2 beq- 0,.L48 cmpwi 0,0,4 beq- 0,.L49 cmpwi 0,0,8 bne+ 0,.L1 lwz 9,36(31) lwz 4,4(9) .L39: lwz 3,0(9) b .L1 .L49: lwz 9,36(31) b .L39 .L48: lwz 9,36(31) lhz 3,0(9) b .L1 .L47: lwz 9,36(31) lbz 3,0(9) b .L1 .L40: lwz 3,24(31) b .L1 .L46: lfd 1,24(31) b .L1 .L45: lfs 1,24(31) b .L1 .L44: lhz 3,24(31) b .L1 .L43: lha 3,24(31) b .L1 .L41: lbz 3,24(31) b .L1 .L42: lbz 0,24(31) slwi 0,0,24 srawi 3,0,24 b .L1 .size callback_receiver, .-callback_receiver .section ".got2","aw" .LCTOC1 = .+32768 .section ".text" .section ".got2","aw" .LC0: .long callback_receiver .section ".text" .align 2 .globl callback_get_receiver .LCL1: .long .LCTOC1-.LCF1 .type callback_get_receiver, @function callback_get_receiver: stwu 1,-32(1) mflr 0 bcl 20,31,.LCF1 .LCF1: stw 30,24(1) mflr 30 stw 31,28(1) mr 31,1 stw 0,36(1) lwz 11,0(1) lwz 0,.LCL1-.LCF1(30) lwz 31,-4(11) add 30,0,30 lwz 0,4(11) lwz 3,.LC0-.LCTOC1(30) lwz 30,-8(11) mtlr 0 mr 1,11 blr .size callback_get_receiver, .-callback_get_receiver #if defined __linux__ || defined __FreeBSD__ || defined __FreeBSD_kernel__ || defined __DragonFly__ .section .note.GNU-stack,"",@progbits #endif libffcall-2.2/callback/vacall_r/vacall-i386-macro.S0000664000000000000000000001044613530357113016665 00000000000000#include "asm-i386.h" TEXT() ALIGN(2) P2ALIGN(2,3) DECLARE_FUNCTION(callback_receiver) FUNBEGIN(callback_receiver) INSN1(push,l ,R(ebp)) INSN2(mov,l ,R(esp), R(ebp)) INSN1(push,l ,R(edi)) INSN1(push,l ,R(esi)) INSN2(lea,l ,X4 MEM_DISP(ebp,8), R(edx)) INSN2(sub,l ,NUM(56), R(esp)) INSN2(mov,l ,R(edx),X4 MEM_DISP(ebp,-40)) INSN2(lea,l ,X4 MEM_DISP(ebp,-56), R(edx)) INSN2(mov,l ,NUM(0),X4 MEM_DISP(ebp,-56)) INSN2(mov,l ,NUM(0),X4 MEM_DISP(ebp,-36)) INSN2(mov,l ,NUM(0),X4 MEM_DISP(ebp,-32)) INSN2(mov,l ,R(ebx),X4 MEM_DISP(ebp,-24)) INSN1(push,l ,R(edx)) INSN1(push,l ,X4 MEM_DISP(ecx,4)) INSN1(call,_ ,INDIR(X4 MEM(ecx))) INSN2(mov,l ,X4 MEM_DISP(ebp,-32), R(esi)) INSN2(add,l ,NUM(16), R(esp)) INSN2(test,l ,R(esi), R(esi)) INSN1(je,_ ,L(43)) INSN2(cmp,l ,NUM(1), R(esi)) INSN1(je,_ ,L(44)) INSN2(cmp,l ,NUM(2), R(esi)) INSN1(je,_ ,L(44)) INSN2(cmp,l ,NUM(3), R(esi)) INSN1(je,_ ,L(49)) INSN2(cmp,l ,NUM(4), R(esi)) INSN1(je,_ ,L(50)) INSN2(cmp,l ,NUM(5), R(esi)) INSN1(je,_ ,L(51)) INSN2(cmp,l ,NUM(6), R(esi)) INSN1(je,_ ,L(48)) INSN2(cmp,l ,NUM(7), R(esi)) INSN1(je,_ ,L(48)) INSN2(cmp,l ,NUM(8), R(esi)) INSN1(je,_ ,L(48)) INSN2(cmp,l ,NUM(9), R(esi)) INSN1(je,_ ,L(48)) INSN2(lea,l ,X4 MEM_DISP(esi,-10), R(edx)) INSN2(cmp,l ,NUM(1), R(edx)) INSN1(ja,_ ,L(22)) INSN2(mov,l ,X4 MEM_DISP(ebp,-48), R(eax)) INSN2(mov,l ,X4 MEM_DISP(ebp,-44),R(edx)) L(33): P2ALIGN(2,3) L(43): INSN2(mov,l ,X4 MEM_DISP(ebp,-56), R(esi)) L(3): INSN2(and,l ,NUM(512), R(esi)) INSN1(je,_ ,L(1)) INSN2(mov,l ,X4 MEM_DISP(ebp,0),R(ecx)) INSN2(mov,l ,X4 MEM_DISP(ebp,-40), R(esp)) INSN1(jmp,_ ,INDIR(R(ecx))) L(1): INSN2(lea,l ,X4 MEM_DISP(ebp,-8), R(esp)) INSN1(pop,l ,R(esi)) INSN1(pop,l ,R(edi)) leave ret L(22): INSN2(cmp,l ,NUM(12), R(esi)) INSN1(je,_ ,L(52)) INSN2(cmp,l ,NUM(13), R(esi)) INSN1(je,_ ,L(53)) INSN2(cmp,l ,NUM(14), R(esi)) INSN1(je,_ ,L(48)) INSN2(cmp,l ,NUM(15), R(esi)) INSN1(jne,_ ,L(43)) INSN2(mov,l ,X4 MEM_DISP(ebp,-56), R(esi)) INSN2(test,l ,NUM(1024), R(esi)) INSN2(mov,l ,R(esi), R(edi)) INSN1(je,_ ,L(31)) INSN2(mov,l ,X4 MEM_DISP(ebp,-28), R(edx)) INSN2(cmp,l ,NUM(1), R(edx)) INSN1(je,_ ,L(54)) INSN2(cmp,l ,NUM(2), R(edx)) INSN1(je,_ ,L(55)) INSN2(cmp,l ,NUM(4), R(edx)) INSN1(je,_ ,L(56)) INSN2(cmp,l ,NUM(8), R(edx)) INSN1(je,_ ,L(57)) L(31): INSN2(and,l ,NUM(16), R(edi)) INSN2(mov,l ,X4 MEM_DISP(ebp,-36), R(eax)) INSN1(jne,_ ,L(3)) INSN2(lea,l ,X4 MEM_DISP(ebp,-8), R(esp)) INSN1(pop,l ,R(esi)) INSN1(pop,l ,R(edi)) leave ret NUM(4) INSN1(jmp,_ ,L(3)) L(57): INSN2(mov,l ,X4 MEM_DISP(ebp,-36), R(edx)) INSN2(mov,l ,X4 MEM(edx), R(eax)) INSN2(mov,l ,X4 MEM_DISP(edx,4),R(edx)) INSN1(jmp,_ ,L(3)) L(56): INSN2(mov,l ,X4 MEM_DISP(ebp,-36), R(edx)) INSN2(mov,l ,X4 MEM(edx), R(eax)) INSN1(jmp,_ ,L(3)) L(55): INSN2(mov,l ,X4 MEM_DISP(ebp,-36), R(edx)) INSN2MOVXL(movz,w,X2 MEM(edx), R(eax)) INSN1(jmp,_ ,L(3)) L(54): INSN2(mov,l ,X4 MEM_DISP(ebp,-36), R(edx)) INSN2MOVXL(movz,b,X1 MEM(edx), R(eax)) INSN1(jmp,_ ,L(3)) P2ALIGN(2,3) L(48): INSN2(mov,l ,X4 MEM_DISP(ebp,-48), R(eax)) INSN1(jmp,_ ,L(43)) L(53): INSN1(fld,l ,X8 MEM_DISP(ebp,-48)) INSN1(jmp,_ ,L(43)) L(52): INSN1(fld,s ,X4 MEM_DISP(ebp,-48)) INSN1(jmp,_ ,L(43)) P2ALIGN(2,3) L(51): INSN2MOVXL(movz,w,X2 MEM_DISP(ebp,-48), R(eax)) INSN1(jmp,_ ,L(43)) L(50): INSN2MOVXL(movs,w,X2 MEM_DISP(ebp,-48),R(eax)) INSN1(jmp,_ ,L(43)) L(49): INSN2MOVXL(movz,b,X1 MEM_DISP(ebp,-48), R(eax)) INSN1(jmp,_ ,L(43)) P2ALIGN(2,3) L(44): INSN2MOVXL(movs,b,X1 MEM_DISP(ebp,-48),R(eax)) INSN1(jmp,_ ,L(43)) L(fe1): FUNEND(callback_receiver,L(fe1)-callback_receiver) ALIGN(2) P2ALIGN(2,3) GLOBL(C(callback_get_receiver)) DECLARE_FUNCTION(callback_get_receiver) FUNBEGIN(callback_get_receiver) INSN1(push,l ,R(ebp)) INSN2(mov,l ,R(esp), R(ebp)) INSN1(push,l ,R(ebx)) INSN1(call,_ ,L(59)) L(59): INSN1(pop,l ,R(ebx)) #ifdef __ELF__ INSN2(add,l ,NUM()_GLOBAL_OFFSET_TABLE_+[.-L(59)],R(ebx)) #endif #ifdef __ELF__ INSN2(lea,l ,callback_receiver@MEM_DISP(ebx,GOTOFF), R(eax)) #else INSN2(lea,l ,C(callback_receiver)-L(59)MEM(ebx), R(eax)) #endif INSN2(mov,l ,X4 MEM(esp), R(ebx)) leave ret L(fe2): FUNEND(callback_get_receiver,L(fe2)-callback_get_receiver) #if defined __linux__ || defined __FreeBSD__ || defined __FreeBSD_kernel__ || defined __DragonFly__ .section .note.GNU-stack,"",@progbits #endif libffcall-2.2/callback/vacall_r/vacall-libapi.c0000664000000000000000000001101713347755305016363 00000000000000/* * Copyright 1995-2017 Bruno Haible * * This program is free software: you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by * the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program. If not, see . */ #include "config.h" #include #include #include #include "vacall-internal.h" /* Room for returning structs according to the Sun C non-reentrant struct return convention. */ typedef union { __vaword room[__VA_ALIST_WORDS]; double align; } __va_struct_buffer_t; static __va_struct_buffer_t vacall_struct_buffer; static _Noreturn void vacall_error_type_mismatch (enum __VAtype start_type, enum __VAtype return_type) { /* If you see this, fix your code. */ fprintf (stderr, "vacall: va_start type %d and va_return type %d disagree.\n", (int)start_type, (int)return_type); abort(); } static _Noreturn void vacall_error_struct_too_large (unsigned int size) { /* If you see this, increase __VA_ALIST_WORDS: */ fprintf (stderr, "vacall: struct of size %u too large for Sun C struct return.\n", size); abort(); } void vacall_start (va_alist list, int rettype, int flags) { __va_start(list,rettype,flags); } void vacall_start_struct (va_alist list, size_t type_size, size_t type_align, int type_splittable, int flags) { __va_start_struct(list,type_size,type_align,type_splittable,flags); } char vacall_arg_char (va_alist list) { return _va_arg_char(list); } signed char vacall_arg_schar (va_alist list) { return _va_arg_schar(list); } unsigned char vacall_arg_uchar (va_alist list) { return _va_arg_uchar(list); } short vacall_arg_short (va_alist list) { return _va_arg_short(list); } unsigned short vacall_arg_ushort (va_alist list) { return _va_arg_ushort(list); } int vacall_arg_int (va_alist list) { return _va_arg_int(list); } unsigned int vacall_arg_uint (va_alist list) { return _va_arg_uint(list); } long vacall_arg_long (va_alist list) { return _va_arg_long(list); } unsigned long vacall_arg_ulong (va_alist list) { return _va_arg_ulong(list); } long long vacall_arg_longlong (va_alist list) { return _va_arg_longlong(list); } unsigned long long vacall_arg_ulonglong (va_alist list) { return _va_arg_ulonglong(list); } float vacall_arg_float (va_alist list) { return _va_arg_float(list); } double vacall_arg_double (va_alist list) { return _va_arg_double(list); } void* vacall_arg_ptr (va_alist list) { return _va_arg_ptr(list); } void* vacall_arg_struct (va_alist list, size_t type_size, size_t type_align) { return __va_arg_struct(list,type_size,type_align); } void vacall_return_void (va_alist list) { _va_return_void(list); } void vacall_return_char (va_alist list, char val) { _va_return_char(list,val); } void vacall_return_schar (va_alist list, signed char val) { _va_return_schar(list,val); } void vacall_return_uchar (va_alist list, unsigned char val) { _va_return_uchar(list,val); } void vacall_return_short (va_alist list, short val) { _va_return_short(list,val); } void vacall_return_ushort (va_alist list, unsigned short val) { _va_return_ushort(list,val); } void vacall_return_int (va_alist list, int val) { _va_return_int(list,val); } void vacall_return_uint (va_alist list, unsigned int val) { _va_return_uint(list,val); } void vacall_return_long (va_alist list, long val) { _va_return_long(list,val); } void vacall_return_ulong (va_alist list, unsigned long val) { _va_return_ulong(list,val); } void vacall_return_longlong (va_alist list, long long val) { _va_return_longlong(list,val); } void vacall_return_ulonglong (va_alist list, unsigned long long val) { _va_return_ulonglong(list,val); } void vacall_return_float (va_alist list, float val) { _va_return_float(list,val); } void vacall_return_double (va_alist list, double val) { _va_return_double(list,val); } void vacall_return_ptr (va_alist list, void* val) { _va_return_ptr(list,val); } void vacall_return_struct (va_alist list, size_t type_size, size_t type_align, const void* val_addr) { __va_return_struct(list,type_size,type_align,val_addr); } libffcall-2.2/callback/vacall_r/vacall-mipsn32eb-linux.s0000664000000000000000000001254113530357113020072 00000000000000 .file 1 "vacall-mipsn32.c" .section .mdebug.abiN32 .previous .nan legacy .module fp=64 .module oddspreg .abicalls .text .align 2 .align 3 .set nomips16 .set nomicromips .ent callback_receiver .type callback_receiver, @function callback_receiver: .frame $fp,256,$31 # vars= 144, regs= 6/0, args= 0, gp= 0 .mask 0xd0070000,-72 .fmask 0x00000000,0 .set noreorder .set nomacro addiu $sp,$sp,-256 sd $fp,176($sp) move $fp,$sp sd $4,192($fp) lw $4,4($2) lw $25,0($2) addiu $12,$fp,192 sd $31,184($sp) sd $18,160($sp) sd $17,152($sp) sd $16,144($sp) sd $5,200($fp) sd $6,208($fp) sd $7,216($fp) sd $8,224($fp) sd $9,232($fp) sd $10,240($fp) sd $11,248($fp) sdc1 $f12,80($fp) sdc1 $f13,88($fp) sdc1 $f14,96($fp) sdc1 $f15,104($fp) sdc1 $f16,112($fp) sdc1 $f17,120($fp) sdc1 $f18,128($fp) sdc1 $f19,136($fp) swc1 $f12,44($fp) swc1 $f13,48($fp) swc1 $f14,52($fp) swc1 $f15,56($fp) swc1 $f16,60($fp) swc1 $f17,64($fp) swc1 $f18,68($fp) move $5,$fp swc1 $f19,72($fp) sw $12,24($fp) sw $0,0($fp) sw $0,28($fp) sw $0,32($fp) jalr $25 sw $0,40($fp) lw $12,32($fp) beq $12,$0,.L1 li $13,1 # 0x1 beq $12,$13,.L43 li $13,2 # 0x2 beq $12,$13,.L43 li $13,3 # 0x3 beq $12,$13,.L49 li $13,4 # 0x4 beq $12,$13,.L50 li $13,5 # 0x5 beq $12,$13,.L51 li $13,6 # 0x6 beq $12,$13,.L46 li $13,7 # 0x7 beq $12,$13,.L45 li $13,8 # 0x8 beq $12,$13,.L46 li $13,9 # 0x9 beq $12,$13,.L45 li $13,10 # 0xa beq $12,$13,.L47 li $13,11 # 0xb beq $12,$13,.L47 li $13,12 # 0xc beq $12,$13,.L52 li $13,13 # 0xd beq $12,$13,.L53 li $13,14 # 0xe beq $12,$13,.L46 li $13,15 # 0xf bnel $12,$13,.L59 move $sp,$fp lw $12,0($fp) andi $13,$12,0x400 beq $13,$0,.L1 andi $13,$12,0x4 beq $13,$0,.L19 lw $24,36($fp) lw $12,36($fp) li $13,1 # 0x1 beq $12,$13,.L54 li $13,2 # 0x2 beq $12,$13,.L55 li $13,4 # 0x4 beq $12,$13,.L56 li $13,8 # 0x8 bnel $12,$13,.L59 move $sp,$fp lw $12,28($fp) ld $2,0($12) .L1: move $sp,$fp .L59: ld $31,184($sp) ld $fp,176($sp) ld $18,160($sp) ld $17,152($sp) ld $16,144($sp) j $31 addiu $sp,$sp,256 .align 3 .L43: move $sp,$fp ld $31,184($sp) ld $18,160($sp) ld $17,152($sp) ld $16,144($sp) lb $2,8($fp) ld $fp,176($sp) j $31 addiu $sp,$sp,256 .align 3 .L46: b .L1 lw $2,8($fp) .align 3 .L49: b .L1 lbu $2,8($fp) .align 3 .L50: b .L1 lh $2,8($fp) .align 3 .L45: b .L1 lwu $2,8($fp) .align 3 .L51: b .L1 lhu $2,8($fp) .align 3 .L52: b .L1 lwc1 $f0,8($fp) .align 3 .L47: b .L1 ld $2,8($fp) .L53: b .L1 ldc1 $f0,8($fp) .L19: addiu $13,$24,-1 sltu $13,$13,16 beql $13,$0,.L60 andi $13,$12,0x800 lw $13,28($fp) li $15,-8 # 0xfffffffffffffff8 sltu $25,$24,9 andi $14,$13,0x7 and $15,$13,$15 beq $25,$0,.L24 addu $13,$24,$14 sltu $25,$13,9 beq $25,$0,.L25 subu $13,$0,$13 ld $25,0($15) sll $13,$13,3 li $15,-1 # 0xffffffffffffffff dsll $13,$15,$13 and $13,$13,$25 sll $14,$14,3 dsll $2,$13,$14 .L23: andi $13,$12,0x800 .L60: beql $13,$0,.L27 andi $12,$12,0x1000 li $13,4 # 0x4 beq $24,$13,.L57 li $13,8 # 0x8 beql $24,$13,.L58 lw $13,28($fp) andi $12,$12,0x1000 beql $12,$0,.L59 move $sp,$fp li $12,16 # 0x10 .L61: bnel $24,$12,.L59 move $sp,$fp lw $12,28($fp) ldc1 $f0,0($12) b .L1 ldc1 $f2,8($12) .L27: beq $12,$0,.L1 li $12,8 # 0x8 bne $24,$12,.L61 li $12,16 # 0x10 lw $13,28($fp) b .L1 ldc1 $f0,0($13) .L24: sltu $25,$13,17 beq $25,$0,.L26 subu $13,$0,$13 ld $17,8($15) subu $16,$0,$14 li $25,-1 # 0xffffffffffffffff sll $13,$13,3 dsll $13,$25,$13 sll $25,$16,2 ld $16,0($15) and $13,$13,$17 addiu $15,$25,32 sll $14,$14,3 dsra $25,$13,$15 dsll $16,$16,$14 dsra $15,$25,$15 or $2,$16,$15 b .L23 dsll $3,$13,$14 .L54: lw $12,28($fp) b .L1 lbu $2,0($12) .L55: lw $12,28($fp) b .L1 lhu $2,0($12) .L26: ld $18,16($15) ld $16,8($15) ld $17,0($15) subu $25,$0,$14 li $15,-1 # 0xffffffffffffffff sll $13,$13,3 sll $25,$25,3 dsll $13,$15,$13 sll $14,$14,3 addiu $15,$25,64 and $13,$13,$18 dsll $25,$17,$14 dsra $13,$13,$15 dsra $17,$16,$15 dsll $14,$16,$14 or $2,$25,$17 b .L23 or $3,$13,$14 .L57: lw $12,28($fp) b .L1 lwc1 $f0,0($12) .L56: lw $12,28($fp) b .L1 lwu $2,0($12) .L25: ld $16,8($15) ld $25,0($15) sll $13,$13,3 li $15,-1 # 0xffffffffffffffff dsll $13,$15,$13 subu $15,$0,$14 and $13,$13,$16 sll $15,$15,3 sll $14,$14,3 dsra $13,$13,$15 dsll $14,$25,$14 b .L23 or $2,$13,$14 .L58: andi $12,$12,0x1000 lwc1 $f0,0($13) beq $12,$0,.L1 lwc1 $f2,4($13) b .L1 ldc1 $f0,0($13) .set macro .set reorder .end callback_receiver .size callback_receiver, .-callback_receiver .align 2 .align 3 .globl callback_get_receiver .set nomips16 .set nomicromips .ent callback_get_receiver .type callback_get_receiver, @function callback_get_receiver: .frame $fp,16,$31 # vars= 0, regs= 1/0, args= 0, gp= 0 .mask 0x40000000,-8 .fmask 0x00000000,0 .set noreorder .set nomacro lui $13,%hi(%neg(%gp_rel(callback_get_receiver))) addu $13,$13,$25 addiu $13,$13,%lo(%neg(%gp_rel(callback_get_receiver))) addiu $sp,$sp,-16 lw $12,%got_page(callback_receiver)($13) sd $fp,8($sp) move $fp,$sp move $sp,$fp ld $fp,8($sp) addiu $2,$12,%got_ofst(callback_receiver) j $31 addiu $sp,$sp,16 .set macro .set reorder .end callback_get_receiver .size callback_get_receiver, .-callback_get_receiver .ident "GCC: (GNU) 5.4.0" libffcall-2.2/callback/vacall_r/vacall-powerpc-linux.s0000664000000000000000000000464313530357114017754 00000000000000 .file "vacall-powerpc.c" .section ".text" .align 2 .type callback_receiver, @function callback_receiver: .extern __mulh .extern __mull .extern __divss .extern __divus .extern __quoss .extern __quous stwu 1,-176(1) mflr 0 stw 0,180(1) stw 31,172(1) mr 31,1 stw 29,164(1) addi 0,31,184 li 29,0 stw 0,32(31) stw 29,36(31) lwz 0,0(11) stw 3,52(31) stw 4,56(31) mtctr 0 stw 9,76(31) addi 4,31,16 stw 30,168(1) stw 5,60(31) stw 6,64(31) stw 7,68(31) stw 8,72(31) stw 10,80(31) stw 29,84(31) stfd 1,88(31) stfd 2,96(31) stfd 3,104(31) stfd 4,112(31) stfd 5,120(31) stfd 6,128(31) stfd 7,136(31) stfd 8,144(31) stw 29,16(31) stw 29,48(31) stw 29,40(31) lwz 3,4(11) bctrl lwz 9,40(31) cmpwi 0,9,0 beq- 0,.L1 cmpwi 0,9,1 beq- 0,.L41 cmpwi 0,9,2 beq- 0,.L42 cmpwi 0,9,3 beq- 0,.L41 cmpwi 0,9,4 beq- 0,.L43 cmpwi 0,9,5 beq- 0,.L44 cmpwi 0,9,6 beq- 0,.L40 cmpwi 0,9,7 beq- 0,.L40 cmpwi 0,9,8 beq- 0,.L40 cmpwi 0,9,9 beq- 0,.L40 addi 0,9,-10 cmplwi 0,0,1 bgt- 0,.L22 lwz 3,24(31) lwz 4,28(31) .L1: lwz 11,0(1) lwz 0,4(11) lwz 29,-12(11) lwz 30,-8(11) mtlr 0 lwz 31,-4(11) mr 1,11 blr .L22: cmpwi 0,9,12 beq- 0,.L45 cmpwi 0,9,13 beq- 0,.L46 cmpwi 0,9,14 beq- 0,.L40 cmpwi 0,9,15 bne+ 0,.L1 lwz 0,16(31) andi. 9,0,1024 beq- 0,.L1 lwz 0,44(31) cmpwi 0,0,1 beq- 0,.L47 cmpwi 0,0,2 beq- 0,.L48 cmpwi 0,0,4 beq- 0,.L49 cmpwi 0,0,8 bne+ 0,.L1 lwz 9,36(31) lwz 4,4(9) .L39: lwz 3,0(9) b .L1 .L49: lwz 9,36(31) b .L39 .L48: lwz 9,36(31) lhz 3,0(9) b .L1 .L47: lwz 9,36(31) lbz 3,0(9) b .L1 .L40: lwz 3,24(31) b .L1 .L46: lfd 1,24(31) b .L1 .L45: lfs 1,24(31) b .L1 .L44: lhz 3,24(31) b .L1 .L43: lha 3,24(31) b .L1 .L41: lbz 3,24(31) b .L1 .L42: lbz 0,24(31) slwi 0,0,24 srawi 3,0,24 b .L1 .size callback_receiver, .-callback_receiver .section ".got2","aw" .LCTOC1 = .+32768 .section ".text" .section ".got2","aw" .LC0: .long callback_receiver .section ".text" .align 2 .globl callback_get_receiver .LCL1: .long .LCTOC1-.LCF1 .type callback_get_receiver, @function callback_get_receiver: stwu 1,-32(1) mflr 0 bcl 20,31,.LCF1 .LCF1: stw 30,24(1) mflr 30 stw 31,28(1) mr 31,1 stw 0,36(1) lwz 11,0(1) lwz 0,.LCL1-.LCF1(30) lwz 31,-4(11) add 30,0,30 lwz 0,4(11) lwz 3,.LC0-.LCTOC1(30) lwz 30,-8(11) mtlr 0 mr 1,11 blr .size callback_get_receiver, .-callback_get_receiver .section .note.GNU-stack,"",@progbits .ident "GCC: (GNU) 3.3.6" libffcall-2.2/callback/vacall_r/vacall-riscv32-ilp32d-macro.S0000664000000000000000000000507113530357115020562 00000000000000 .file "vacall-riscv32.c" .option pic .text .align 1 .type callback_receiver, @function callback_receiver: add sp,sp,-208 sw ra,188(sp) sw s0,184(sp) add s0,sp,192 sw a1,-144(s0) add a1,s0,16 lw t3,0(t2) sw a7,12(s0) sw a2,-140(s0) sw a3,-136(s0) sw a4,-132(s0) sw a5,-128(s0) sw a6,-124(s0) sw a7,-120(s0) fsw fa0,-112(s0) fsw fa1,-108(s0) fsw fa2,-104(s0) fsw fa3,-100(s0) fsw fa4,-96(s0) fsw fa5,-92(s0) fsw fa6,-88(s0) fsw fa7,-84(s0) fsd fa0,-80(s0) fsd fa1,-72(s0) fsd fa2,-64(s0) fsd fa3,-56(s0) fsd fa4,-48(s0) fsd fa5,-40(s0) fsd fa6,-32(s0) fsd fa7,-24(s0) sw a1,-168(s0) sw a0,-148(s0) sw zero,-184(s0) sw zero,-164(s0) sw zero,-160(s0) lw a0,4(t2) sw zero,-152(s0) sw zero,-116(s0) add a1,s0,-184 jalr t3 lw t1,-160(s0) beqz t1,.L1 li t3,1 beq t1,t3,.L22 li t3,2 beq t1,t3,.L25 li t3,3 beq t1,t3,.L22 li t3,4 beq t1,t3,.L26 li t3,5 beq t1,t3,.L27 li t3,6 beq t1,t3,.L23 li t3,7 beq t1,t3,.L23 li t3,8 beq t1,t3,.L23 li t3,9 beq t1,t3,.L23 add t3,t1,-10 li t4,1 bleu t3,t4,.L28 li t3,12 beq t1,t3,.L29 li t3,13 beq t1,t3,.L30 li t3,14 beq t1,t3,.L23 li t3,15 bne t1,t3,.L1 lw t1,-184(s0) and t1,t1,2 beqz t1,.L1 lw t3,-156(s0) li t1,7 add t5,t3,-1 bgtu t5,t1,.L1 lw t1,-164(s0) lbu t5,0(t1) mv a0,t5 beq t3,t4,.L1 lbu t4,1(t1) li t6,2 sll t4,t4,8 or t5,t4,t5 mv a0,t5 beq t3,t6,.L1 lbu t4,2(t1) li t6,3 sll t4,t4,16 or t4,t4,t5 mv a0,t4 beq t3,t6,.L1 lbu a0,3(t1) li t5,4 sll a0,a0,24 or a0,a0,t4 beq t3,t5,.L1 lbu t5,4(t1) li t4,5 mv a1,t5 beq t3,t4,.L1 lbu t4,5(t1) li t6,6 sll t4,t4,8 or t5,t4,t5 mv a1,t5 beq t3,t6,.L1 lbu t4,6(t1) li t6,8 sll t4,t4,16 or t4,t4,t5 mv a1,t4 bne t3,t6,.L1 lbu a1,7(t1) sll a1,a1,24 or a1,a1,t4 .L1: lw ra,188(sp) lw s0,184(sp) add sp,sp,208 jr ra .L22: lbu a0,-176(s0) lw ra,188(sp) lw s0,184(sp) add sp,sp,208 jr ra .L23: lw a0,-176(s0) j .L1 .L25: lb a0,-176(s0) lw ra,188(sp) lw s0,184(sp) add sp,sp,208 jr ra .L26: lh a0,-176(s0) j .L1 .L27: lhu a0,-176(s0) j .L1 .L28: lw a0,-176(s0) lw a1,-172(s0) j .L1 .L29: flw fa0,-176(s0) j .L1 .L30: fld fa0,-176(s0) j .L1 .size callback_receiver, .-callback_receiver .align 1 .globl callback_get_receiver .type callback_get_receiver, @function callback_get_receiver: add sp,sp,-16 sw s0,12(sp) add s0,sp,16 lw s0,12(sp) lla a0,callback_receiver add sp,sp,16 jr ra .size callback_get_receiver, .-callback_get_receiver #if defined __linux__ || defined __FreeBSD__ || defined __FreeBSD_kernel__ || defined __DragonFly__ .section .note.GNU-stack,"",@progbits #endif libffcall-2.2/callback/vacall_r/vacall-hppa64-macro.S0000664000000000000000000001073613530357114017301 00000000000000#include "asm-hppa64.h" .LEVEL 2.0w TEXT1() TEXT2() .align 8 GLOBL(callback_receiver) DECLARE_FUNCTION(callback_receiver) DEF(callback_receiver) .PROC .CALLINFO FRAME=384,CALLS,SAVE_RP,SAVE_SP,ENTRY_GR=9 .ENTRY copy %r3,%r1 std %r2,-16(%r30) copy %r30,%r3 std,ma %r1,384(%r30) std %r5,224(%r3) copy %r27,%r5 std %r9,192(%r3) std %r8,200(%r3) std %r7,208(%r3) std %r6,216(%r3) std %r4,232(%r3) std %r26,-64(%r29) std %r25,-56(%r29) std %r19,-8(%r29) std %r24,-48(%r29) std %r23,-40(%r29) std %r22,-32(%r29) std %r21,-24(%r29) std %r20,-16(%r29) fstw %fr4R,88(%r3) fstw %fr5R,92(%r3) fstw %fr6R,96(%r3) fstw %fr7R,100(%r3) fstw %fr8R,104(%r3) fstw %fr9R,108(%r3) fstw %fr10R,112(%r3) fstw %fr11R,116(%r3) fstd %fr10,168(%r3) ldo -64(%r29),%r2 ldo 16(%r3),%r25 std %r0,48(%r3) std %r2,40(%r3) std %r29,80(%r3) ldo -16(%r30),%r29 fstd %fr11,176(%r3) fstd %fr4,120(%r3) fstd %fr5,128(%r3) fstd %fr6,136(%r3) fstd %fr7,144(%r3) fstd %fr8,152(%r3) fstd %fr9,160(%r3) stw %r0,16(%r3) stw %r0,56(%r3) ldd 0(%r31),%r4 ldd 8(%r31),%r26 ldd 16(%r4),%r2 ldd 24(%r4),%r27 bve,l (%r2),%r2 nop ldw 56(%r3),%r2 cmpib,= 0,%r2,L(1) copy %r5,%r27 cmpib,=,n 1,%r2,L(43) cmpib,=,n 2,%r2,L(43) cmpib,=,n 3,%r2,L(44) cmpib,=,n 4,%r2,L(45) cmpib,=,n 5,%r2,L(46) cmpib,=,n 6,%r2,L(47) cmpib,=,n 7,%r2,L(41) cmpib,=,n 8,%r2,L(40) cmpib,=,n 10,%r2,L(40) cmpib,=,n 9,%r2,L(40) cmpib,=,n 11,%r2,L(40) cmpib,=,n 12,%r2,L(48) cmpib,=,n 13,%r2,L(49) cmpib,=,n 14,%r2,L(40) cmpib,= 15,%r2,L(50) ldw 16(%r3),%r2 DEF(L(1)) ldd -16(%r3),%r2 ldd 192(%r3),%r9 ldd 200(%r3),%r8 ldd 208(%r3),%r7 ldd 216(%r3),%r6 ldd 224(%r3),%r5 ldd 232(%r3),%r4 ldo 64(%r3),%r30 bve (%r2) ldd,mb -64(%r30),%r3 DEF(L(50)) extrd,u %r2,53+1-1,1,%r2 cmpib,= 0,%r2,L(1) ldd 48(%r3),%r28 ldd 48(%r3),%r2 ldd 64(%r3),%r4 extrd,u %r2,63,3,%r7 copy %r2,%r1 depdi 0,63,3,%r1 cmpib,*<< 8,%r4,L(32) add,l %r7,%r4,%r5 cmpib,*<< 8,%r5,L(33) depd,z %r5,60,61,%r2 subi 64,%r2,%r2 ldd 0(%r1),%r4 extrd,s %r2,63,32,%r2 mtsarcm %r2 depd,z %r7,60,61,%r5 depdi,z 1,%sar,64,%r2 mtsarcm %r5 sub %r0,%r2,%r2 and %r4,%r2,%r4 depd,z %r4,%sar,64,%r4 b L(1) copy %r4,%r28 DEF(L(33)) subi 128,%r2,%r2 depd,z %r7,60,61,%r4 extrd,s %r2,63,32,%r2 subi 64,%r4,%r6 mtsarcm %r2 subi 63,%r4,%r8 depdi,z 1,%sar,64,%r2 mtsar %r8 ldd 8(%r1),%r5 sub %r0,%r2,%r2 extrd,s %r6,63,32,%r6 ldd 0(%r1),%r4 subi 63,%r6,%r6 and %r5,%r2,%r5 depd,z %r4,%sar,64,%r4 mtsar %r6 extrd,s %r5,%sar,64,%r5 DEF(L(39)) b L(1) or %r5,%r4,%r28 DEF(L(32)) ldi 16,%r2 cmpb,*<< %r2,%r5,L(36) depd,z %r5,60,61,%r2 subi 128,%r2,%r2 depd,z %r7,61,62,%r4 extrd,s %r2,63,32,%r2 subi 32,%r4,%r4 mtsarcm %r2 extrd,s %r4,63,32,%r4 depdi,z 1,%sar,64,%r2 subi 63,%r4,%r8 ldd 8(%r1),%r5 sub %r0,%r2,%r2 mtsar %r8 ldd 0(%r1),%r6 and %r5,%r2,%r5 depd,z %r7,60,61,%r2 extrd,s %r5,%sar,64,%r4 subi 63,%r2,%r2 extrd,s %r4,%sar,64,%r4 mtsar %r2 depd,z %r5,%sar,64,%r5 depd,z %r6,%sar,64,%r6 copy %r5,%r29 b L(1) or %r6,%r4,%r28 DEF(L(36)) subi 192,%r2,%r2 depd,z %r7,60,61,%r4 extrd,s %r2,63,32,%r2 subi 64,%r4,%r7 mtsarcm %r2 subi 63,%r4,%r9 depdi,z 1,%sar,64,%r2 mtsar %r9 ldd 8(%r1),%r4 sub %r0,%r2,%r2 ldd 16(%r1),%r6 extrd,s %r7,63,32,%r7 subi 63,%r7,%r7 and %r6,%r2,%r6 ldd 0(%r1),%r5 depd,z %r4,%sar,64,%r2 mtsar %r7 extrd,s %r6,%sar,64,%r6 mtsar %r9 depd,z %r5,%sar,64,%r5 or %r2,%r6,%r29 mtsar %r7 b L(39) extrd,s %r4,%sar,64,%r4 DEF(L(40)) b L(1) ldd 24(%r3),%r28 DEF(L(49)) b L(40) fldd 24(%r3),%fr4 DEF(L(48)) fldw 24(%r3),%fr4R DEF(L(41)) ldw 24(%r3),%r2 DEF(L(42)) b L(1) copy %r2,%r28 DEF(L(47)) ldw 24(%r3),%r2 b L(1) extrd,s %r2,63,32,%r28 DEF(L(46)) b L(42) ldh 24(%r3),%r2 DEF(L(45)) ldh 24(%r3),%r2 b L(1) extrd,s %r2,63,16,%r28 DEF(L(44)) b L(42) ldb 24(%r3),%r2 DEF(L(43)) ldb 24(%r3),%r2 b L(1) extrd,s %r2,63,8,%r28 .EXIT .PROCEND DEF(L(fe1)) FUNEND(callback_receiver) .data .align 8 DEF(L(C0)) .dword P%callback_receiver TEXT1() TEXT2() .align 8 GLOBL(callback_get_receiver) DECLARE_FUNCTION(callback_get_receiver) DEF(callback_get_receiver) .PROC .CALLINFO FRAME=128,NO_CALLS,SAVE_SP,ENTRY_GR=3 .ENTRY copy %r3,%r1 copy %r30,%r3 std,ma %r1,128(%r30) addil LT!L(C0),%r27 ldd RT!L(C0)(%r1),%r1 ldd 0(%r1),%r28 ldo 64(%r3),%r30 bve (%r2) ldd,mb -64(%r30),%r3 .EXIT .PROCEND DEF(L(fe2)) FUNEND(callback_get_receiver) #if defined __linux__ || defined __FreeBSD__ || defined __FreeBSD_kernel__ || defined __DragonFly__ .section .note.GNU-stack,"",@progbits #endif libffcall-2.2/callback/vacall_r/vacall-m68k-linux.s0000664000000000000000000000527713530357113017065 00000000000000 .file "vacall-m68k.c" .text .align 2 .type callback_receiver,@function callback_receiver: link.w %a6,#-32 movm.l #0x3030,-(%sp) clr.l -32(%a6) lea (8,%a6),%a2 move.l %a2,-20(%a6) clr.l -16(%a6) clr.l -12(%a6) move.l %a1,-4(%a6) pea -32(%a6) move.l 4(%a0),-(%sp) move.l (%a0),%a2 jsr (%a2) addq.l #8,%sp move.l -12(%a6),%a3 tst.l %a3 jbeq .L1 moveq.l #1,%d2 cmp.l %a3,%d2 jbeq .L46 moveq.l #2,%d3 cmp.l %a3,%d3 jbeq .L46 moveq.l #3,%d2 cmp.l %a3,%d2 jbeq .L47 moveq.l #4,%d3 cmp.l %a3,%d3 jbeq .L48 moveq.l #5,%d2 cmp.l %a3,%d2 jbeq .L49 moveq.l #6,%d3 cmp.l %a3,%d3 jbeq .L45 moveq.l #7,%d2 cmp.l %a3,%d2 jbeq .L45 moveq.l #8,%d3 cmp.l %a3,%d3 jbeq .L45 moveq.l #9,%d2 cmp.l %a3,%d2 jbeq .L45 lea (-10,%a3),%a2 moveq.l #1,%d3 cmp.l %a2,%d3 jbcs .L22 move.l -28(%a6),%d0 move.l -24(%a6),%d1 jbra .L1 .align 2 .L22: moveq.l #12,%d2 cmp.l %a3,%d2 jbeq .L50 moveq.l #13,%d2 cmp.l %a3,%d2 jbeq .L51 moveq.l #14,%d3 cmp.l %a3,%d3 jbeq .L52 moveq.l #15,%d2 cmp.l %a3,%d2 jbne .L1 btst #2,-30(%a6) jbeq .L1 move.l -8(%a6),%d2 moveq.l #1,%d3 cmp.l %d2,%d3 jbeq .L53 moveq.l #2,%d3 cmp.l %d2,%d3 jbeq .L54 moveq.l #4,%d3 cmp.l %d2,%d3 jbeq .L55 moveq.l #8,%d3 cmp.l %d2,%d3 jbne .L1 move.l -16(%a6),%a2 move.l (%a2),%d0 move.l 4(%a2),%d1 jbra .L1 .align 2 .L55: move.l -16(%a6),%a2 move.l (%a2),%d0 jbra .L1 .align 2 .L54: move.l -16(%a6),%a2 clr.l %d0 move.w (%a2),%d0 jbra .L1 .align 2 .L53: move.l -16(%a6),%a2 clr.l %d0 move.b (%a2),%d0 jbra .L1 .align 2 .L52: move.l -28(%a6),%d0 move.l %d0,%a0 jbra .L1 .align 2 .L51: btst #6,-29(%a6) jbeq .L31 fmove.d -28(%a6),%fp0 jbra .L1 .align 2 .L31: move.l -28(%a6),%d0 move.l -24(%a6),%d1 jbra .L1 .align 2 .L50: move.l -32(%a6),%d2 btst #6,%d2 jbeq .L25 fmove.s -28(%a6),%fp0 jbra .L1 .align 2 .L25: btst #5,%d2 jbeq .L27 fmove.s -28(%a6),%fp1 fmove.d %fp1,-(%sp) move.l (%sp)+,%d0 move.l (%sp)+,%d1 jbra .L1 .align 2 .L27: move.l -28(%a6),%d0 jbra .L1 .align 2 .L45: move.l -28(%a6),%d0 jbra .L1 .align 2 .L49: clr.l %d0 move.w -28(%a6),%d0 jbra .L1 .align 2 .L48: move.w -28(%a6),%d0 ext.l %d0 jbra .L1 .align 2 .L47: clr.l %d0 move.b -28(%a6),%d0 jbra .L1 .align 2 .L46: move.b -28(%a6),%d0 extb.l %d0 .L1: movm.l -48(%a6),#0xc0c unlk %a6 rts .Lfe1: .size callback_receiver,.Lfe1-callback_receiver .align 2 .globl callback_get_receiver .type callback_get_receiver,@function callback_get_receiver: link.w %a6,#0 move.l %a5,-(%sp) lea (%pc, _GLOBAL_OFFSET_TABLE_@GOTPC), %a5 move.l callback_receiver@GOT(%a5),%a0 move.l %a0,%d0 move.l (%sp)+,%a5 unlk %a6 rts .Lfe2: .size callback_get_receiver,.Lfe2-callback_get_receiver .ident "GCC: (GNU) 3.1" libffcall-2.2/callback/vacall_r/vacall-arm64-macro.S0000664000000000000000000000603613530357114017126 00000000000000#include "asm-arm.h" .cpu generic+fp+simd .text .align 2 .p2align 3,,7 .type callback_receiver, %function FUNBEGIN(callback_receiver) stp x29, x30, [sp, -256]! add x29, sp, 0 ldr x10, [x18] add x11, x29, 256 stp s0, s1, [x29, 156] stp s2, s3, [x29, 164] stp x0, x1, [x29, 88] stp s4, s5, [x29, 172] stp x11, xzr, [x29, 40] stp s6, s7, [x29, 180] str x8, [x29, 72] stp d0, d1, [x29, 192] stp x2, x3, [x29, 104] stp d2, d3, [x29, 208] stp x4, x5, [x29, 120] stp d4, d5, [x29, 224] stp x6, x7, [x29, 136] stp d6, d7, [x29, 240] str wzr, [x29, 16] add x1, x29, 16 str wzr, [x29, 56] ldr x0, [x18, 8] str wzr, [x29, 80] str wzr, [x29, 152] blr x10 ldr w9, [x29, 56] cbz w9, L(1) cmp w9, 1 beq L(25) cmp w9, 2 beq L(29) cmp w9, 3 beq L(25) cmp w9, 4 beq L(30) cmp w9, 5 beq L(31) cmp w9, 6 beq L(32) cmp w9, 7 beq L(33) and w10, w9, -3 cmp w10, 8 beq L(27) cmp w10, 9 beq L(27) cmp w9, 12 beq L(34) cmp w9, 13 beq L(35) cmp w9, 14 beq L(27) cmp w9, 15 bne L(1) ldr w9, [x29, 16] tbz x9, 10, L(1) ldr x9, [x29, 64] sub x10, x9, $1 cmp x10, 15 bhi L(1) ldr x11, [x29, 48] cmp x9, 8 and x10, x11, 7 and x11, x11, -8 add x9, x9, x10 bhi L(15) cmp x9, 8 lsl w9, w9, 3 bhi L(16) mov x12, 2 sub w9, w9, $1 lsl x9, x12, x9 ldr x11, [x11] sub x9, x9, $1 lsl w10, w10, 3 and x9, x9, x11 asr x0, x9, x10 L(1): ldp x29, x30, [sp], 256 ret .p2align 3 L(25): ldrb w0, [x29, 24] ldp x29, x30, [sp], 256 ret .p2align 3 L(27): ldr x0, [x29, 24] b L(1) .p2align 3 L(29): ldrsb x0, [x29, 24] b L(1) .p2align 3 L(30): ldrsh x0, [x29, 24] b L(1) .p2align 3 L(31): ldrh w0, [x29, 24] b L(1) .p2align 3 L(32): ldrsw x0, [x29, 24] b L(1) .p2align 3 L(33): ldr w0, [x29, 24] b L(1) L(34): ldr s0, [x29, 24] b L(1) L(35): ldr d0, [x29, 24] b L(1) L(15): cmp x9, 16 lsl w9, w9, 3 bls L(36) mov x13, 2 sub w9, w9, $129 ldp x14, x12, [x11, 8] lsl x9, x13, x9 lsl w15, w10, 3 sub x9, x9, $1 neg w10, w10, lsl 3 ldr x11, [x11] add w10, w10, 64 and x9, x9, x12 lsl x16, x14, x10 asr x11, x11, x15 asr x14, x14, x15 lsl x10, x9, x10 orr x0, x11, x16 orr x1, x10, x14 b L(1) L(16): mov w13, -8 mov x14, 2 sub w9, w9, $65 lsl w15, w10, 3 ldr x12, [x11, 8] lsl x9, x14, x9 mul w10, w13, w10 sub x9, x9, $1 ldr x11, [x11] add w10, w10, 64 and x9, x9, x12 asr x11, x11, x15 lsl x9, x9, x10 orr x0, x9, x11 b L(1) L(36): mov w13, -4 mov x14, 2 sub w9, w9, $65 lsl w15, w10, 3 ldr x12, [x11, 8] lsl x9, x14, x9 mul w10, w13, w10 sub x9, x9, $1 ldr x11, [x11] add w10, w10, 32 and x9, x9, x12 asr x1, x9, x15 lsl x9, x9, x10 asr x11, x11, x15 lsl x9, x9, x10 orr x0, x11, x9 b L(1) FUNEND(callback_receiver) .align 2 .p2align 3,,7 .global C(callback_get_receiver) .type callback_get_receiver, %function FUNBEGIN(callback_get_receiver) adrp x9, callback_receiver add x0, x9, :lo12:callback_receiver ret FUNEND(callback_get_receiver) #if defined __linux__ || defined __FreeBSD__ || defined __FreeBSD_kernel__ || defined __DragonFly__ .section .note.GNU-stack,"",%progbits #endif libffcall-2.2/callback/vacall_r/vacall_r.h0000664000000000000000000005474213527104765015465 00000000000000/* * Copyright 1995-2019 Bruno Haible * * This program is free software: you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by * the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program. If not, see . */ #ifndef _VACALL_R_H #define _VACALL_R_H #include #include "ffcall-abi.h" /* Use a consistent prefix for all symbols in libcallback. */ #define vacall_start callback_start #define vacall_start_struct callback_start_struct #define vacall_arg_char callback_arg_char #define vacall_arg_schar callback_arg_schar #define vacall_arg_uchar callback_arg_uchar #define vacall_arg_short callback_arg_short #define vacall_arg_ushort callback_arg_ushort #define vacall_arg_int callback_arg_int #define vacall_arg_uint callback_arg_uint #define vacall_arg_long callback_arg_long #define vacall_arg_ulong callback_arg_ulong #define vacall_arg_longlong callback_arg_longlong #define vacall_arg_ulonglong callback_arg_ulonglong #define vacall_arg_float callback_arg_float #define vacall_arg_double callback_arg_double #define vacall_arg_ptr callback_arg_ptr #define vacall_arg_struct callback_arg_struct #define vacall_return_void callback_return_void #define vacall_return_char callback_return_char #define vacall_return_schar callback_return_schar #define vacall_return_uchar callback_return_uchar #define vacall_return_short callback_return_short #define vacall_return_ushort callback_return_ushort #define vacall_return_int callback_return_int #define vacall_return_uint callback_return_uint #define vacall_return_long callback_return_long #define vacall_return_ulong callback_return_ulong #define vacall_return_longlong callback_return_longlong #define vacall_return_ulonglong callback_return_ulonglong #define vacall_return_float callback_return_float #define vacall_return_double callback_return_double #define vacall_return_ptr callback_return_ptr #define vacall_return_struct callback_return_struct #define vacall_error_type_mismatch callback_error_type_mismatch #define vacall_error_struct_too_large callback_error_struct_too_large #define vacall_structcpy callback_structcpy #define vacall_struct_buffer callback_struct_buffer /* Determine whether the current ABI is LLP64 ('long' = 32-bit, 'long long' = 'void*' = 64-bit). */ #if defined(__x86_64__) && defined(_WIN32) && !defined(__CYGWIN__) #define __VA_LLP64 1 #endif /* Determine the alignment of a type at compile time. */ #if defined(__GNUC__) || defined(__IBM__ALIGNOF__) #define __VA_alignof __alignof__ #elif defined(__cplusplus) template struct __VA_alignof_helper { char __slot1; type __slot2; }; #define __VA_alignof(type) offsetof (__VA_alignof_helper, __slot2) #elif defined(__mips__) || defined(__mipsn32__) || defined(__mips64__) /* SGI compiler */ #define __VA_alignof __builtin_alignof #else #define __VA_offsetof(type,ident) ((unsigned long)&(((type*)0)->ident)) #define __VA_alignof(type) __VA_offsetof(struct { char __slot1; type __slot2; }, __slot2) #endif #ifdef __cplusplus extern "C" { #endif /* C builtin types. */ #if defined(__mipsn32__) || defined(__x86_64_x32__) || defined(__VA_LLP64) typedef long long __vaword; #else typedef long __vaword; #endif enum __VAtype { __VAvoid, __VAchar, __VAschar, __VAuchar, __VAshort, __VAushort, __VAint, __VAuint, __VAlong, __VAulong, __VAlonglong, __VAulonglong, __VAfloat, __VAdouble, __VAvoidp, __VAstruct }; enum __VA_alist_flags { /* how to return structs */ /* There are basically 3 ways to return structs: * a. The called function returns a pointer to static data. Not reentrant. * Not supported any more. * b. The caller passes the return structure address in a dedicated register * or as a first (or last), invisible argument. The called function stores * its result there. * c. Like b, and the called function also returns the return structure * address in the return value register. (This is not very distinguishable * from b.) * Independently of this, * r. small structures (<= 4 or <= 8 bytes) may be returned in the return * value register(s), or * m. even small structures are passed in memory. */ /* gcc-2.6.3 employs the following strategy: * - If PCC_STATIC_STRUCT_RETURN is defined in the machine description * it uses method a, else method c. * - If flag_pcc_struct_return is set (either by -fpcc-struct-return or if * DEFAULT_PCC_STRUCT_RETURN is defined to 1 in the machine description) * it uses method m, else (either by -freg-struct-return or if * DEFAULT_PCC_STRUCT_RETURN is defined to 0 in the machine description) * method r. */ __VA_SMALL_STRUCT_RETURN = 1<<1, /* r: special case for small structs */ __VA_GCC_STRUCT_RETURN = 1<<2, /* consider 8 byte structs as small */ #if defined(__sparc__) && !defined(__sparc64__) __VA_SUNCC_STRUCT_RETURN = 1<<3, __VA_SUNPROCC_STRUCT_RETURN = 1<<4, #else __VA_SUNCC_STRUCT_RETURN = 0, __VA_SUNPROCC_STRUCT_RETURN = 0, #endif #if defined(__i386__) __VA_MSVC_STRUCT_RETURN = 1<<4, #endif /* the default way to return structs */ /* This choice here is based on the assumption that the function you are * going to call has been compiled with the same compiler you are using to * include this file. * If you want to call functions with another struct returning convention, * just #define __VA_STRUCT_RETURN ... * before or after #including . */ #ifndef __VA_STRUCT_RETURN __VA_STRUCT_RETURN = #if defined(__sparc__) && !defined(__sparc64__) && defined(__sun) && (defined(__SUNPRO_C) || defined(__SUNPRO_CC)) /* SUNWspro cc or CC */ __VA_SUNPROCC_STRUCT_RETURN, #else #if (defined(__i386__) && (defined(_WIN32) || defined(__CYGWIN__) || (defined(__MACH__) && defined(__APPLE__)) || defined(__FreeBSD__) || defined(__DragonFly__) || defined(__OpenBSD__))) || defined(__m68k__) || defined(__mipsn32__) || defined(__mips64__) || defined(__sparc64__) || defined(__hppa__) || defined(__hppa64__) || defined(__arm__) || defined(__armhf__) || defined(__arm64__) || defined(__powerpc64_elfv2__) || defined(__ia64__) || defined(__x86_64__) || defined(__riscv32__) || defined(__riscv64__) __VA_SMALL_STRUCT_RETURN | #endif #if defined(__GNUC__) && !((defined(__mipsn32__) || defined(__mips64__)) && ((__GNUC__ == 3 && __GNUC_MINOR__ >= 4) || (__GNUC__ > 3))) __VA_GCC_STRUCT_RETURN | #endif #if defined(__i386__) && defined(_WIN32) && !defined(__CYGWIN__) /* native Windows */ __VA_MSVC_STRUCT_RETURN | #endif 0, #endif #endif /* how to return floats */ #if defined(__m68k__) || (defined(__sparc__) && !defined(__sparc64__)) __VA_SUNCC_FLOAT_RETURN = 1<<5, #endif #if defined(__m68k__) __VA_FREG_FLOAT_RETURN = 1<<6, #endif /* the default way to return floats */ /* This choice here is based on the assumption that the function you are * going to call has been compiled with the same compiler you are using to * include this file. * If you want to call functions with another float returning convention, * just #define __VA_FLOAT_RETURN ... * before or after #including . */ #ifndef __VA_FLOAT_RETURN #if (defined(__m68k__) || (defined(__sparc__) && !defined(__sparc64__))) && !defined(__GNUC__) && defined(__sun) && !(defined(__SUNPRO_C) || defined(__SUNPRO_CC)) /* Sun cc or CC */ __VA_FLOAT_RETURN = __VA_SUNCC_FLOAT_RETURN, #elif defined(__m68k__) __VA_FLOAT_RETURN = __VA_FREG_FLOAT_RETURN, #else __VA_FLOAT_RETURN = 0, #endif #endif /* how to pass structs */ #if defined(__mips__) || defined(__mipsn32__) || defined(__mips64__) __VA_SGICC_STRUCT_ARGS = 1<<7, #endif #if defined(__powerpc__) || defined(__powerpc64__) __VA_AIXCC_STRUCT_ARGS = 1<<7, #endif #if defined(__ia64__) __VA_OLDGCC_STRUCT_ARGS = 1<<7, #endif /* the default way to pass structs */ /* This choice here is based on the assumption that the function you are * going to call has been compiled with the same compiler you are using to * include this file. * If you want to call functions with another structs passing convention, * just #define __VA_STRUCT_ARGS ... * before or after #including . */ #ifndef __VA_STRUCT_ARGS #if (defined(__mips__) && !defined(__mipsn32__) && !defined(__mips64__)) && !defined(__GNUC__) /* SGI mips cc */ __VA_STRUCT_ARGS = __VA_SGICC_STRUCT_ARGS, #else #if (defined(__mipsn32__) || defined(__mips64__)) && (!defined(__GNUC__) || (__GNUC__ == 3 && __GNUC_MINOR__ >= 4) || (__GNUC__ > 3)) /* SGI mips cc or gcc >= 3.4 */ __VA_STRUCT_ARGS = __VA_SGICC_STRUCT_ARGS, #else #if defined(__powerpc__) && !defined(__powerpc64__) && defined(_AIX) && !defined(__GNUC__) /* AIX 32-bit cc, xlc */ __VA_STRUCT_ARGS = __VA_AIXCC_STRUCT_ARGS, #else #if defined(__powerpc64__) && defined(_AIX) /* AIX 64-bit cc, xlc, gcc */ __VA_STRUCT_ARGS = __VA_AIXCC_STRUCT_ARGS, #else #if defined(__ia64__) && !(defined(__GNUC__) && (__GNUC__ >= 3)) __VA_STRUCT_ARGS = __VA_OLDGCC_STRUCT_ARGS, #else __VA_STRUCT_ARGS = 0, #endif #endif #endif #endif #endif #endif /* how to pass floats */ /* ANSI C compilers and GNU gcc pass floats as floats. * K&R C compilers pass floats as doubles. We don't support them any more. */ #if defined(__powerpc64__) __VA_AIXCC_FLOAT_ARGS = 1<<8, /* pass floats in the low 4 bytes of an 8-bytes word */ #endif /* the default way to pass floats */ /* This choice here is based on the assumption that the function you are * going to call has been compiled with the same compiler you are using to * include this file. * If you want to call functions with another float passing convention, * just #define __VA_FLOAT_ARGS ... * before or after #including . */ #ifndef __VA_FLOAT_ARGS #if defined(__powerpc64__) && defined(_AIX) && !defined(__GNUC__) /* AIX 64-bit xlc */ __VA_FLOAT_ARGS = __VA_AIXCC_FLOAT_ARGS, #else __VA_FLOAT_ARGS = 0, #endif #endif /* how to pass and return small integer arguments */ __VA_ANSI_INTEGERS = 0, /* no promotions */ __VA_TRADITIONAL_INTEGERS = 0, /* promote [u]char, [u]short to [u]int */ /* Fortunately these two methods are compatible. Our macros work with both. */ /* stack cleanup policy */ __VA_CDECL_CLEANUP = 0, /* caller pops args after return */ __VA_STDCALL_CLEANUP = 1<<9, /* callee pops args before return */ /* currently only supported on __i386__ */ #ifndef __VA_CLEANUP __VA_CLEANUP = __VA_CDECL_CLEANUP, #endif /* These are for internal use only */ #if defined(__i386__) || defined(__m68k__) || defined(__mipsn32__) || defined(__mips64__) || defined(__sparc64__) || defined(__alpha__) || defined(__hppa64__) || defined(__arm__) || defined(__armhf__) || defined(__arm64__) || defined(__powerpc__) || defined(__powerpc64__) || defined(__ia64__) || defined(__x86_64__) || (defined(__s390__) && !defined(__s390x__)) || defined(__riscv64__) __VA_REGISTER_STRUCT_RETURN = 1<<10, #endif #if defined(__mipsn32__) || defined(__mips64__) __VA_REGISTER_FLOATSTRUCT_RETURN = 1<<11, __VA_REGISTER_DOUBLESTRUCT_RETURN = 1<<12, #endif __VA_flag_for_broken_compilers_that_dont_like_trailing_commas }; /* * Definition of the ‘va_alist’ type. */ struct vacall_alist /* GNU clisp pokes in internals of the alist! */ #ifdef LISPFUN { /* some va_... macros need these flags */ int flags; #if defined(__i386__) || defined(__arm__) || defined(__armhf__) || (defined(__powerpc__) && !defined(__powerpc64__) && defined(__MACH__) && defined(__APPLE__)) __vaword filler1; #endif /* temporary storage for return value */ union { char _char; signed char _schar; unsigned char _uchar; short _short; unsigned short _ushort; int _int; unsigned int _uint; long _long; unsigned long _ulong; long long _longlong; unsigned long long _ulonglong; float _float; double _double; void* _ptr; } tmp; } #endif ; typedef struct vacall_alist * va_alist; /* * Definition of the va_start_xxx macros. */ #define __VA_START_FLAGS \ __VA_STRUCT_RETURN | __VA_FLOAT_RETURN | __VA_STRUCT_ARGS | __VA_FLOAT_ARGS | __VA_CLEANUP extern void vacall_start (va_alist /* LIST */, int /* RETTYPE */, int /* FLAGS */); #define va_start_void(LIST) vacall_start(LIST,__VAvoid, __VA_START_FLAGS) #define va_start_char(LIST) vacall_start(LIST,__VAchar, __VA_START_FLAGS) #define va_start_schar(LIST) vacall_start(LIST,__VAschar, __VA_START_FLAGS) #define va_start_uchar(LIST) vacall_start(LIST,__VAuchar, __VA_START_FLAGS) #define va_start_short(LIST) vacall_start(LIST,__VAshort, __VA_START_FLAGS) #define va_start_ushort(LIST) vacall_start(LIST,__VAushort, __VA_START_FLAGS) #define va_start_int(LIST) vacall_start(LIST,__VAint, __VA_START_FLAGS) #define va_start_uint(LIST) vacall_start(LIST,__VAuint, __VA_START_FLAGS) #define va_start_long(LIST) vacall_start(LIST,__VAlong, __VA_START_FLAGS) #define va_start_ulong(LIST) vacall_start(LIST,__VAulong, __VA_START_FLAGS) #define va_start_longlong(LIST) vacall_start(LIST,__VAlonglong, __VA_START_FLAGS) #define va_start_ulonglong(LIST) vacall_start(LIST,__VAulonglong,__VA_START_FLAGS) #define va_start_float(LIST) vacall_start(LIST,__VAfloat, __VA_START_FLAGS) #define va_start_double(LIST) vacall_start(LIST,__VAdouble, __VA_START_FLAGS) #define va_start_ptr(LIST,TYPE) vacall_start(LIST,__VAvoidp, __VA_START_FLAGS) /* * va_start_struct: Preparing structure return. */ extern void vacall_start_struct (va_alist /* LIST */, size_t /* TYPE_SIZE */, size_t /* TYPE_ALIGN */, int /* TYPE_SPLITTABLE */, int /* FLAGS */); #define va_start_struct(LIST,TYPE,TYPE_SPLITTABLE) \ _va_start_struct(LIST,sizeof(TYPE),__VA_alignof(TYPE),TYPE_SPLITTABLE) /* _va_start_struct() is like va_start_struct(), except that you pass * the type's size and alignment instead of the type itself. * Undocumented, but used by GNU clisp. */ #define _va_start_struct(LIST,TYPE_SIZE,TYPE_ALIGN,TYPE_SPLITTABLE) \ vacall_start_struct(LIST,TYPE_SIZE,TYPE_ALIGN,TYPE_SPLITTABLE,__VA_START_FLAGS) /* * Definition of the va_arg_xxx macros. */ extern char vacall_arg_char (va_alist /* LIST */); extern signed char vacall_arg_schar (va_alist /* LIST */); extern unsigned char vacall_arg_uchar (va_alist /* LIST */); extern short vacall_arg_short (va_alist /* LIST */); extern unsigned short vacall_arg_ushort (va_alist /* LIST */); extern int vacall_arg_int (va_alist /* LIST */); extern unsigned int vacall_arg_uint (va_alist /* LIST */); extern long vacall_arg_long (va_alist /* LIST */); extern unsigned long vacall_arg_ulong (va_alist /* LIST */); #define va_arg_char(LIST) vacall_arg_char(LIST) #define va_arg_schar(LIST) vacall_arg_schar(LIST) #define va_arg_uchar(LIST) vacall_arg_uchar(LIST) #define va_arg_short(LIST) vacall_arg_short(LIST) #define va_arg_ushort(LIST) vacall_arg_ushort(LIST) #define va_arg_int(LIST) vacall_arg_int(LIST) #define va_arg_uint(LIST) vacall_arg_uint(LIST) #define va_arg_long(LIST) vacall_arg_long(LIST) #define va_arg_ulong(LIST) vacall_arg_ulong(LIST) extern long long vacall_arg_longlong (va_alist /* LIST */); extern unsigned long long vacall_arg_ulonglong (va_alist /* LIST */); #define va_arg_longlong(LIST) vacall_arg_longlong(LIST) #define va_arg_ulonglong(LIST) vacall_arg_ulonglong(LIST) /* Floating point arguments. */ extern float vacall_arg_float (va_alist /* LIST */); extern double vacall_arg_double (va_alist /* LIST */); #define va_arg_float(LIST) vacall_arg_float(LIST) #define va_arg_double(LIST) vacall_arg_double(LIST) /* Pointer arguments. */ extern void* vacall_arg_ptr (va_alist /* LIST */); #define va_arg_ptr(LIST,TYPE) ((TYPE)vacall_arg_ptr(LIST)) /* Structure arguments. */ extern void* vacall_arg_struct (va_alist /* LIST */, size_t /* TYPE_SIZE */, size_t /* TYPE_ALIGN */); #define va_arg_struct(LIST,TYPE) \ *(TYPE*)vacall_arg_struct(LIST,sizeof(TYPE),__VA_alignof(TYPE)) /* _va_arg_struct() is like va_arg_struct(), except that you pass the type's * size and alignment instead of the type and get the value's address instead * of the value itself. * Undocumented, but used by GNU clisp. */ #define _va_arg_struct(LIST,TYPE_SIZE,TYPE_ALIGN) \ vacall_arg_struct(LIST,TYPE_SIZE,TYPE_ALIGN) /* * Definition of the va_return_xxx macros. */ extern void vacall_return_void (va_alist /* LIST */); #define va_return_void(LIST) vacall_return_void(LIST) extern void vacall_return_char (va_alist /* LIST */, char /* VAL */); extern void vacall_return_schar (va_alist /* LIST */, signed char /* VAL */); extern void vacall_return_uchar (va_alist /* LIST */, unsigned char /* VAL */); extern void vacall_return_short (va_alist /* LIST */, short /* VAL */); extern void vacall_return_ushort (va_alist /* LIST */, unsigned short /* VAL */); extern void vacall_return_int (va_alist /* LIST */, int /* VAL */); extern void vacall_return_uint (va_alist /* LIST */, unsigned int /* VAL */); extern void vacall_return_long (va_alist /* LIST */, long /* VAL */); extern void vacall_return_ulong (va_alist /* LIST */, unsigned long /* VAL */); #define va_return_char(LIST,VAL) vacall_return_char(LIST,VAL) #define va_return_schar(LIST,VAL) vacall_return_schar(LIST,VAL) #define va_return_uchar(LIST,VAL) vacall_return_uchar(LIST,VAL) #define va_return_short(LIST,VAL) vacall_return_short(LIST,VAL) #define va_return_ushort(LIST,VAL) vacall_return_ushort(LIST,VAL) #define va_return_int(LIST,VAL) vacall_return_int(LIST,VAL) #define va_return_uint(LIST,VAL) vacall_return_uint(LIST,VAL) #define va_return_long(LIST,VAL) vacall_return_long(LIST,VAL) #define va_return_ulong(LIST,VAL) vacall_return_ulong(LIST,VAL) extern void vacall_return_longlong (va_alist /* LIST */, long long /* VAL */); extern void vacall_return_ulonglong (va_alist /* LIST */, unsigned long long /* VAL */); #define va_return_longlong(LIST,VAL) vacall_return_longlong(LIST,VAL) #define va_return_ulonglong(LIST,VAL) vacall_return_ulonglong(LIST,VAL) extern void vacall_return_float (va_alist /* LIST */, float /* VAL */); extern void vacall_return_double (va_alist /* LIST */, double /* VAL */); #define va_return_float(LIST,VAL) vacall_return_float(LIST,VAL) #define va_return_double(LIST,VAL) vacall_return_double(LIST,VAL) extern void vacall_return_ptr (va_alist /* LIST */, void* /* VAL */); #define va_return_ptr(LIST,TYPE,VAL) vacall_return_ptr(LIST,(void*)(TYPE)(VAL)) extern void vacall_return_struct (va_alist /* LIST */, size_t /* TYPE_SIZE */, size_t /* TYPE_ALIGN */, const void* /* VAL_ADDR */); #define va_return_struct(LIST,TYPE,VAL) \ _va_return_struct(LIST,sizeof(TYPE),__VA_alignof(TYPE),&(VAL)) /* Undocumented, but used by GNU clisp. */ #define _va_return_struct(LIST,TYPE_SIZE,TYPE_ALIGN,VAL_ADDR) \ vacall_return_struct(LIST,TYPE_SIZE,TYPE_ALIGN,VAL_ADDR) /* Determine whether a struct type is word-splittable, i.e. whether each of * its components fit into a register. * The entire computation is done at compile time. */ #define va_word_splittable_1(slot1) \ (__va_offset1(slot1)/sizeof(__vaword) == (__va_offset1(slot1)+sizeof(slot1)-1)/sizeof(__vaword)) #define va_word_splittable_2(slot1,slot2) \ ((__va_offset1(slot1)/sizeof(__vaword) == (__va_offset1(slot1)+sizeof(slot1)-1)/sizeof(__vaword)) \ && (__va_offset2(slot1,slot2)/sizeof(__vaword) == (__va_offset2(slot1,slot2)+sizeof(slot2)-1)/sizeof(__vaword)) \ ) #define va_word_splittable_3(slot1,slot2,slot3) \ ((__va_offset1(slot1)/sizeof(__vaword) == (__va_offset1(slot1)+sizeof(slot1)-1)/sizeof(__vaword)) \ && (__va_offset2(slot1,slot2)/sizeof(__vaword) == (__va_offset2(slot1,slot2)+sizeof(slot2)-1)/sizeof(__vaword)) \ && (__va_offset3(slot1,slot2,slot3)/sizeof(__vaword) == (__va_offset3(slot1,slot2,slot3)+sizeof(slot3)-1)/sizeof(__vaword)) \ ) #define va_word_splittable_4(slot1,slot2,slot3,slot4) \ ((__va_offset1(slot1)/sizeof(__vaword) == (__va_offset1(slot1)+sizeof(slot1)-1)/sizeof(__vaword)) \ && (__va_offset2(slot1,slot2)/sizeof(__vaword) == (__va_offset2(slot1,slot2)+sizeof(slot2)-1)/sizeof(__vaword)) \ && (__va_offset3(slot1,slot2,slot3)/sizeof(__vaword) == (__va_offset3(slot1,slot2,slot3)+sizeof(slot3)-1)/sizeof(__vaword)) \ && (__va_offset4(slot1,slot2,slot3,slot4)/sizeof(__vaword) == (__va_offset4(slot1,slot2,slot3,slot4)+sizeof(slot4)-1)/sizeof(__vaword)) \ ) #define __va_offset1(slot1) \ 0 #define __va_offset2(slot1,slot2) \ ((__va_offset1(slot1)+sizeof(slot1)+__VA_alignof(slot2)-1) & -(long)__VA_alignof(slot2)) #define __va_offset3(slot1,slot2,slot3) \ ((__va_offset2(slot1,slot2)+sizeof(slot2)+__VA_alignof(slot3)-1) & -(long)__VA_alignof(slot3)) #define __va_offset4(slot1,slot2,slot3,slot4) \ ((__va_offset3(slot1,slot2,slot3)+sizeof(slot3)+__VA_alignof(slot4)-1) & -(long)__VA_alignof(slot4)) /* * Miscellaneous declarations. */ #if defined(__sparc__) || defined(__sparc64__) /* On SPARC, PIC compiled code crashes when used outside of a shared library. Therefore, don't use the callback_get_receiver indirection on this platform. */ extern #ifdef __cplusplus "C" #endif void callback_receiver (); /* Actually it takes arguments and returns values! */ #define callback_get_receiver() (&callback_receiver) #else /* A fake type for callback_receiver. Actually it takes arguments and returns values. */ typedef void (*__vacall_r_t) (void); /* This function returns the address of callback_receiver. callback_receiver is not a global symbol, because on ELF platforms, functions with global visibility cannot accept additional arguments in registers. See elf-hack.txt for more details. */ extern #ifdef __cplusplus "C" #endif __vacall_r_t callback_get_receiver (void); #endif #ifdef __cplusplus } #endif #endif /* _VACALL_R_H */ libffcall-2.2/callback/vacall_r/vacall-mipseb-linux.s0000664000000000000000000001060413530357113017545 00000000000000 .file 1 "vacall-mips.c" .section .mdebug.abi32 .previous .nan legacy .module fp=xx .module nooddspreg .abicalls .text .align 2 .set nomips16 .set nomicromips .ent callback_receiver .type callback_receiver, @function callback_receiver: .frame $fp,104,$31 # vars= 72, regs= 2/0, args= 16, gp= 8 .mask 0xc0000000,-4 .fmask 0x00000000,0 .set noreorder .cpload $25 .set reorder addiu $sp,$sp,-104 sw $fp,96($sp) move $fp,$sp sw $31,100($sp) lw $25,0($2) sw $4,104($fp) lw $4,4($2) sw $5,108($fp) addiu $5,$fp,104 sw $5,40($fp) addiu $5,$fp,120 sw $5,56($fp) .cprestore 16 sw $6,112($fp) sw $7,116($fp) sdc1 $f12,80($fp) sdc1 $f14,88($fp) swc1 $f12,68($fp) swc1 $f14,72($fp) sw $0,24($fp) sw $0,44($fp) sw $0,48($fp) sw $0,60($fp) sw $0,64($fp) addiu $5,$fp,24 jal $25 lw $4,48($fp) .set noreorder .set nomacro beq $4,$0,$L1 li $5,1 # 0x1 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,$L23 li $5,2 # 0x2 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,$L23 li $5,3 # 0x3 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,$L29 li $5,4 # 0x4 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,$L30 li $5,5 # 0x5 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,$L31 li $5,6 # 0x6 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,$L27 li $5,7 # 0x7 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,$L27 li $5,8 # 0x8 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,$L27 li $5,9 # 0x9 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,$L27 addiu $5,$4,-10 .set macro .set reorder sltu $5,$5,2 .set noreorder .set nomacro bne $5,$0,$L32 li $5,12 # 0xc .set macro .set reorder .set noreorder .set nomacro beq $4,$5,$L33 li $5,13 # 0xd .set macro .set reorder .set noreorder .set nomacro beq $4,$5,$L34 li $5,14 # 0xe .set macro .set reorder .set noreorder .set nomacro beq $4,$5,$L27 li $5,15 # 0xf .set macro .set reorder .set noreorder .set nomacro bnel $4,$5,$L37 move $sp,$fp .set macro .set reorder lw $4,24($fp) andi $4,$4,0x2 .set noreorder .set nomacro beql $4,$0,$L38 lw $2,44($fp) .set macro .set reorder lw $4,52($fp) li $5,1 # 0x1 .set noreorder .set nomacro beql $4,$5,$L35 lw $4,44($fp) .set macro .set reorder li $5,2 # 0x2 .set noreorder .set nomacro beq $4,$5,$L36 li $5,4 # 0x4 .set macro .set reorder .set noreorder .set nomacro bnel $4,$5,$L37 move $sp,$fp .set macro .set reorder lw $4,44($fp) lw $2,0($4) $L1: $L38: move $sp,$fp $L37: lw $31,100($sp) lw $fp,96($sp) .set noreorder .set nomacro j $31 addiu $sp,$sp,104 .set macro .set reorder $L23: move $sp,$fp lw $31,100($sp) lb $2,32($fp) lw $fp,96($sp) .set noreorder .set nomacro j $31 addiu $sp,$sp,104 .set macro .set reorder $L27: move $sp,$fp lw $31,100($sp) lw $2,32($fp) lw $fp,96($sp) .set noreorder .set nomacro j $31 addiu $sp,$sp,104 .set macro .set reorder $L29: .set noreorder .set nomacro b $L1 lbu $2,32($fp) .set macro .set reorder $L30: .set noreorder .set nomacro b $L1 lh $2,32($fp) .set macro .set reorder $L31: .set noreorder .set nomacro b $L1 lhu $2,32($fp) .set macro .set reorder $L34: .set noreorder .set nomacro b $L1 ldc1 $f0,32($fp) .set macro .set reorder $L32: lw $2,32($fp) .set noreorder .set nomacro b $L1 lw $3,36($fp) .set macro .set reorder $L33: .set noreorder .set nomacro b $L1 lwc1 $f0,32($fp) .set macro .set reorder $L35: .set noreorder .set nomacro b $L1 lbu $2,0($4) .set macro .set reorder $L36: lw $4,44($fp) .set noreorder .set nomacro b $L1 lhu $2,0($4) .set macro .set reorder .end callback_receiver .size callback_receiver, .-callback_receiver .align 2 .globl callback_get_receiver .set nomips16 .set nomicromips .ent callback_get_receiver .type callback_get_receiver, @function callback_get_receiver: .frame $fp,8,$31 # vars= 0, regs= 1/0, args= 0, gp= 0 .mask 0x40000000,-4 .fmask 0x00000000,0 .set noreorder .cpload $25 .set reorder addiu $sp,$sp,-8 sw $fp,4($sp) move $fp,$sp move $sp,$fp lw $fp,4($sp) la $2,callback_receiver .set noreorder .set nomacro j $31 addiu $sp,$sp,8 .set macro .set reorder .end callback_get_receiver .size callback_get_receiver, .-callback_get_receiver .ident "GCC: (GNU) 5.4.0" libffcall-2.2/callback/vacall_r/vacall-sparc64-macro.S0000664000000000000000000001311313530357113017450 00000000000000#include "asm-sparc.h" .section ".text" .align 4 .global C(callback_receiver) DECLARE_FUNCTION(callback_receiver) .proc 020 FUNBEGIN(callback_receiver) .register %g2, $scratch .register %g3, $scratch save %sp, -448, %sp stx %i0, [%fp+2175] stx %i1, [%fp+2183] stx %i2, [%fp+2191] stx %i3, [%fp+2199] stx %i4, [%fp+2207] stx %i5, [%fp+2215] std %f0, [%fp+1903] std %f2, [%fp+1911] std %f4, [%fp+1919] std %f6, [%fp+1927] std %f8, [%fp+1935] std %f10, [%fp+1943] std %f12, [%fp+1951] std %f14, [%fp+1959] std %f16, [%fp+1967] std %f18, [%fp+1975] std %f20, [%fp+1983] std %f22, [%fp+1991] std %f24, [%fp+1999] std %f26, [%fp+2007] std %f28, [%fp+2015] std %f30, [%fp+2023] st %f1, [%fp+1835] st %f3, [%fp+1839] st %f5, [%fp+1843] st %f7, [%fp+1847] st %f9, [%fp+1851] st %f11, [%fp+1855] st %f13, [%fp+1859] st %f15, [%fp+1863] st %f17, [%fp+1867] st %f19, [%fp+1871] st %f21, [%fp+1875] st %f23, [%fp+1879] add %fp, 2175, %g2 stx %g0, [%fp+1807] st %f25, [%fp+1883] st %f27, [%fp+1887] st %f29, [%fp+1891] st %f31, [%fp+1895] st %g0, [%fp+1775] st %g0, [%fp+1815] st %g0, [%fp+1831] ldx [%g5+8], %o0 stx %g2, [%fp+1799] ldx [%g5], %g3 call %g3, 0 add %fp, 1775, %o1 lduw [%fp+1815], %g1 cmp %g1, 0 be,pn %icc, L(L61) cmp %g1, 1 be,pn %icc, L(L50) cmp %g1, 2 be,pn %icc, L(L50) cmp %g1, 3 be,pn %icc, L(L53) cmp %g1, 4 be,pn %icc, L(L54) cmp %g1, 5 be,pn %icc, L(L55) cmp %g1, 6 be,pn %icc, L(L56) cmp %g1, 7 be,pn %icc, L(L57) cmp %g1, 8 be,pn %icc, L(L51) cmp %g1, 9 be,pn %icc, L(L51) cmp %g1, 10 be,pn %icc, L(L51) cmp %g1, 11 be,pn %icc, L(L51) cmp %g1, 12 be,pn %icc, L(L58) cmp %g1, 13 be,pn %icc, L(L59) cmp %g1, 14 be,pn %icc, L(L51) cmp %g1, 15 bne,pt %icc, L(L61) lduw [%fp+1775], %g1 andcc %g1, 1024, %g0 be,pn %xcc, L(L61) ldx [%fp+1823], %o5 add %o5, -1, %g1 cmp %g1, 31 bgu,pn %xcc, L(L61) ldx [%fp+1807], %g1 cmp %o5, 8 and %g1, 7, %o1 and %g1, -8, %l1 bgu,pt %xcc, L(L35) add %o5, %o1, %g2 cmp %g2, 8 bgu,pt %xcc, L(L37) sllx %o1, 3, %g4 sllx %g2, 3, %g2 ldx [%l1], %g3 sub %g0, %g2, %g2 mov -1, %g1 sllx %g1, %g2, %g1 and %g1, %g3, %g1 return %i7+8 sllx %g1, %g4, %o0 L(L47): ldx [%l1], %g1 sllx %g1, %o3, %g1 ldx [%l1+8], %g4 ldx [%l1+16], %o5 sllx %g4, %o3, %o0 sllx %o5, %o3, %o7 ldx [%l1+24], %o4 sllx %g2, 3, %o2 sllx %o4, %o3, %l0 ldx [%l1+32], %o1 sub %g0, %o2, %o2 mov 64, %g3 sub %g3, %o3, %g3 srax %g4, %g3, %g4 srax %o5, %g3, %o5 or %g1, %g4, %i0 srax %o4, %g3, %o4 mov -1, %g1 or %o0, %o5, %i1 sllx %g1, %o2, %g1 or %o7, %o4, %i2 and %g1, %o1, %g1 srax %g1, %g3, %g1 or %l0, %g1, %i3 L(L61): return %i7+8 nop L(L50): ldsb [%fp+1783], %i0 return %i7+8 nop L(L54): ldsh [%fp+1783], %i0 return %i7+8 nop L(L53): ldub [%fp+1783], %i0 return %i7+8 nop L(L51): ldx [%fp+1783], %i0 return %i7+8 nop L(L55): lduh [%fp+1783], %i0 return %i7+8 nop L(L56): ldsw [%fp+1783], %i0 return %i7+8 nop L(L57): lduw [%fp+1783], %i0 return %i7+8 nop L(L58): ld [%fp+1783], %f0 return %i7+8 nop L(L59): ldd [%fp+1783], %f0 return %i7+8 nop L(L35): cmp %o5, 16 bgu,pt %xcc, L(L39) cmp %o5, 24 cmp %g2, 16 bgu,pt %xcc, L(L41) sllx %o1, 3, %o4 sllx %g2, 3, %g3 ldx [%l1+8], %g2 sll %o1, 3, %o5 sllx %o1, 2, %o4 sub %g0, %g3, %g3 ldx [%l1], %g4 mov -1, %g1 sllx %g4, %o5, %g4 sllx %g1, %g3, %g1 and %g1, %g2, %g1 mov 32, %g2 sllx %g1, %o5, %i1 sub %g2, %o4, %g2 srax %g1, %g2, %g1 srax %g1, %g2, %g1 return %i7+8 or %g4, %g1, %o0 L(L37): sllx %g2, 3, %g3 ldx [%l1+8], %o5 sub %g0, %g3, %g3 sub %g0, %g4, %o4 ldx [%l1], %g2 mov -1, %g1 sllx %g2, %g4, %g2 sllx %g1, %g3, %g1 and %g1, %o5, %g1 srax %g1, %o4, %g1 return %i7+8 or %g2, %g1, %o0 L(L39): bgu,pt %xcc, L(L43) cmp %g2, 32 cmp %g2, 24 bgu,pt %xcc, L(L45) sllx %o1, 3, %o3 sllx %o1, 2, %g1 sll %o1, 3, %o5 sllx %g2, 3, %o4 ldx [%l1+8], %g3 ldx [%l1+16], %o3 sllx %g3, %o5, %o2 sub %g0, %o4, %o4 mov 32, %g4 ldx [%l1], %g2 sub %g4, %g1, %g4 sllx %g2, %o5, %g2 srax %g3, %g4, %g3 mov -1, %g1 srax %g3, %g4, %g3 sllx %g1, %o4, %g1 and %g1, %o3, %g1 sllx %g1, %o5, %i2 srax %g1, %g4, %g1 srax %g1, %g4, %g1 or %o2, %g1, %i1 return %i7+8 or %g2, %g3, %o0 L(L41): sllx %g2, 3, %o5 ldx [%l1+8], %g3 ldx [%l1+16], %o3 sllx %g3, %o4, %o2 sub %g0, %o5, %o5 mov 64, %g4 ldx [%l1], %g2 sub %g4, %o4, %g4 sllx %g2, %o4, %g2 srax %g3, %g4, %g3 mov -1, %g1 sllx %g1, %o5, %g1 and %g1, %o3, %g1 srax %g1, %g4, %g1 or %o2, %g1, %i1 return %i7+8 or %g2, %g3, %o0 L(L45): ldx [%l1], %g1 sllx %g1, %o3, %g1 ldx [%l1+8], %g3 ldx [%l1+16], %g4 sllx %g3, %o3, %o2 sllx %g4, %o3, %o0 sllx %g2, 3, %o4 ldx [%l1+24], %o1 sub %g0, %o4, %o4 mov 64, %o5 sub %o5, %o3, %o5 srax %g3, %o5, %g3 srax %g4, %o5, %g4 or %g1, %g3, %i0 or %o2, %g4, %i1 mov -1, %g1 sllx %g1, %o4, %g1 and %g1, %o1, %g1 srax %g1, %o5, %g1 or %o0, %g1, %i2 return %i7+8 nop L(L43): bgu,pt %xcc, L(L47) sllx %o1, 3, %o3 sll %o1, 3, %o4 ldx [%l1], %g1 sllx %g1, %o4, %g1 sllx %o1, 2, %o3 sllx %g2, 3, %o5 ldx [%l1+8], %g3 ldx [%l1+16], %g4 sllx %g3, %o4, %o1 sllx %g4, %o4, %o0 ldx [%l1+24], %o2 sub %g0, %o5, %o5 mov 32, %g2 sub %g2, %o3, %g2 srax %g3, %g2, %g3 srax %g4, %g2, %g4 srax %g3, %g2, %g3 srax %g4, %g2, %g4 or %g1, %g3, %i0 or %o1, %g4, %i1 mov -1, %g1 sllx %g1, %o5, %g1 and %g1, %o2, %g1 sllx %g1, %o4, %i3 srax %g1, %g2, %g1 srax %g1, %g2, %g1 or %o0, %g1, %i2 return %i7+8 nop FUNEND(callback_receiver) #if defined __linux__ || defined __FreeBSD__ || defined __FreeBSD_kernel__ || defined __DragonFly__ .section .note.GNU-stack,"",@progbits #endif libffcall-2.2/callback/vacall_r/vacall-mipsn32el-linux.s0000664000000000000000000001257113530357113020107 00000000000000 .file 1 "vacall-mipsn32.c" .section .mdebug.abiN32 .previous .nan legacy .module fp=64 .module oddspreg .abicalls .text .align 2 .align 3 .set nomips16 .set nomicromips .ent callback_receiver .type callback_receiver, @function callback_receiver: .frame $fp,256,$31 # vars= 144, regs= 6/0, args= 0, gp= 0 .mask 0xd0070000,-72 .fmask 0x00000000,0 .set noreorder .set nomacro addiu $sp,$sp,-256 sd $fp,176($sp) move $fp,$sp sd $4,192($fp) lw $4,4($2) lw $25,0($2) addiu $12,$fp,192 sd $31,184($sp) sd $18,160($sp) sd $17,152($sp) sd $16,144($sp) sd $5,200($fp) sd $6,208($fp) sd $7,216($fp) sd $8,224($fp) sd $9,232($fp) sd $10,240($fp) sd $11,248($fp) sdc1 $f12,80($fp) sdc1 $f13,88($fp) sdc1 $f14,96($fp) sdc1 $f15,104($fp) sdc1 $f16,112($fp) sdc1 $f17,120($fp) sdc1 $f18,128($fp) sdc1 $f19,136($fp) swc1 $f12,44($fp) swc1 $f13,48($fp) swc1 $f14,52($fp) swc1 $f15,56($fp) swc1 $f16,60($fp) swc1 $f17,64($fp) swc1 $f18,68($fp) move $5,$fp swc1 $f19,72($fp) sw $12,24($fp) sw $0,0($fp) sw $0,28($fp) sw $0,32($fp) jalr $25 sw $0,40($fp) lw $12,32($fp) beq $12,$0,.L1 li $13,1 # 0x1 beq $12,$13,.L43 li $13,2 # 0x2 beq $12,$13,.L43 li $13,3 # 0x3 beq $12,$13,.L49 li $13,4 # 0x4 beq $12,$13,.L50 li $13,5 # 0x5 beq $12,$13,.L51 li $13,6 # 0x6 beq $12,$13,.L46 li $13,7 # 0x7 beq $12,$13,.L45 li $13,8 # 0x8 beq $12,$13,.L46 li $13,9 # 0x9 beq $12,$13,.L45 li $13,10 # 0xa beq $12,$13,.L47 li $13,11 # 0xb beq $12,$13,.L47 li $13,12 # 0xc beq $12,$13,.L52 li $13,13 # 0xd beq $12,$13,.L53 li $13,14 # 0xe beq $12,$13,.L46 li $13,15 # 0xf bnel $12,$13,.L59 move $sp,$fp lw $12,0($fp) andi $13,$12,0x400 beq $13,$0,.L1 andi $13,$12,0x4 beq $13,$0,.L19 lw $24,36($fp) lw $12,36($fp) li $13,1 # 0x1 beq $12,$13,.L54 li $13,2 # 0x2 beq $12,$13,.L55 li $13,4 # 0x4 beq $12,$13,.L56 li $13,8 # 0x8 bnel $12,$13,.L59 move $sp,$fp lw $12,28($fp) ld $2,0($12) .L1: move $sp,$fp .L59: ld $31,184($sp) ld $fp,176($sp) ld $18,160($sp) ld $17,152($sp) ld $16,144($sp) j $31 addiu $sp,$sp,256 .align 3 .L43: move $sp,$fp ld $31,184($sp) ld $18,160($sp) ld $17,152($sp) ld $16,144($sp) lb $2,8($fp) ld $fp,176($sp) j $31 addiu $sp,$sp,256 .align 3 .L46: b .L1 lw $2,8($fp) .align 3 .L49: b .L1 lbu $2,8($fp) .align 3 .L50: b .L1 lh $2,8($fp) .align 3 .L45: b .L1 lwu $2,8($fp) .align 3 .L51: b .L1 lhu $2,8($fp) .align 3 .L52: b .L1 lwc1 $f0,8($fp) .align 3 .L47: b .L1 ld $2,8($fp) .L53: b .L1 ldc1 $f0,8($fp) .L19: addiu $13,$24,-1 sltu $13,$13,16 beql $13,$0,.L60 andi $13,$12,0x800 lw $13,28($fp) li $15,-8 # 0xfffffffffffffff8 sltu $25,$24,9 andi $14,$13,0x7 and $15,$13,$15 beq $25,$0,.L24 addu $13,$24,$14 sltu $25,$13,9 beq $25,$0,.L25 sll $13,$13,3 ld $25,0($15) addiu $13,$13,-1 li $15,2 # 0x2 dsll $13,$15,$13 daddiu $13,$13,-1 and $13,$13,$25 sll $14,$14,3 dsra $2,$13,$14 .L23: andi $13,$12,0x800 .L60: beql $13,$0,.L27 andi $12,$12,0x1000 li $13,4 # 0x4 beq $24,$13,.L57 li $13,8 # 0x8 beql $24,$13,.L58 lw $13,28($fp) andi $12,$12,0x1000 beql $12,$0,.L59 move $sp,$fp li $12,16 # 0x10 .L61: bnel $24,$12,.L59 move $sp,$fp lw $12,28($fp) ldc1 $f0,0($12) b .L1 ldc1 $f2,8($12) .L27: beq $12,$0,.L1 li $12,8 # 0x8 bne $24,$12,.L61 li $12,16 # 0x10 lw $13,28($fp) b .L1 ldc1 $f0,0($13) .L24: sltu $25,$13,17 beq $25,$0,.L26 sll $13,$13,3 ld $17,8($15) li $25,2 # 0x2 addiu $13,$13,-65 dsll $13,$25,$13 subu $25,$0,$14 sll $25,$25,2 ld $16,0($15) daddiu $13,$13,-1 addiu $15,$25,32 and $13,$13,$17 sll $14,$14,3 dsll $25,$13,$15 dsra $16,$16,$14 dsll $15,$25,$15 or $2,$16,$15 b .L23 dsra $3,$13,$14 .L54: lw $12,28($fp) b .L1 lbu $2,0($12) .L55: lw $12,28($fp) b .L1 lhu $2,0($12) .L26: ld $16,8($15) ld $17,0($15) addiu $13,$13,-129 ld $18,16($15) li $15,2 # 0x2 subu $25,$0,$14 dsll $15,$15,$13 daddiu $15,$15,-1 sll $25,$25,3 sll $14,$14,3 addiu $25,$25,64 and $13,$15,$18 dsll $13,$13,$25 dsra $15,$17,$14 dsll $17,$16,$25 dsra $14,$16,$14 or $2,$15,$17 b .L23 or $3,$13,$14 .L57: lw $12,28($fp) b .L1 lwc1 $f0,0($12) .L56: lw $12,28($fp) b .L1 lwu $2,0($12) .L25: li $25,2 # 0x2 addiu $13,$13,-65 ld $17,8($15) dsll $13,$25,$13 ld $25,0($15) daddiu $13,$13,-1 subu $16,$0,$14 and $15,$13,$17 sll $14,$14,3 sll $13,$16,3 dsll $13,$15,$13 dsra $14,$25,$14 b .L23 or $2,$13,$14 .L58: andi $12,$12,0x1000 lwc1 $f0,0($13) beq $12,$0,.L1 lwc1 $f2,4($13) b .L1 ldc1 $f0,0($13) .set macro .set reorder .end callback_receiver .size callback_receiver, .-callback_receiver .align 2 .align 3 .globl callback_get_receiver .set nomips16 .set nomicromips .ent callback_get_receiver .type callback_get_receiver, @function callback_get_receiver: .frame $fp,16,$31 # vars= 0, regs= 1/0, args= 0, gp= 0 .mask 0x40000000,-8 .fmask 0x00000000,0 .set noreorder .set nomacro lui $13,%hi(%neg(%gp_rel(callback_get_receiver))) addu $13,$13,$25 addiu $13,$13,%lo(%neg(%gp_rel(callback_get_receiver))) addiu $sp,$sp,-16 lw $12,%got_page(callback_receiver)($13) sd $fp,8($sp) move $fp,$sp move $sp,$fp ld $fp,8($sp) addiu $2,$12,%got_ofst(callback_receiver) j $31 addiu $sp,$sp,16 .set macro .set reorder .end callback_get_receiver .size callback_get_receiver, .-callback_get_receiver .ident "GCC: (GNU) 5.4.0" libffcall-2.2/callback/vacall_r/Makefile.devel0000664000000000000000000004222213527356632016257 00000000000000# This is the developer's -*-Makefile-*-, not the user's makefile. # Do not use it unless you know exactly what you do! THISFILE = Makefile.devel LN = ln -s RM = rm -f # ============ Rules that require cross-compilation tools ============ GCC = gcc GCCFLAGS = -I../.. -I../../dummy -O2 -fno-omit-frame-pointer -fPIC -DREENTRANT SED = sed CROSS_TOOL = cross precompiled : \ vacall-i386-macro.S \ vacall-m68k.mit.S vacall-m68k.motorola.S \ vacall-mipseb-macro.S vacall-mipsel-macro.S vacall-mipsn32eb-macro.S vacall-mipsn32el-macro.S vacall-mips64eb-macro.S vacall-mips64el-macro.S \ vacall-sparc-macro.S vacall-sparc64-macro.S \ vacall-alpha-macro.S \ vacall-hppa-macro.S vacall-hppa64-macro.S \ vacall-arm-macro.S vacall-armhf-macro.S \ vacall-arm64-macro.S \ vacall-powerpc-aix.s vacall-powerpc-linux-macro.S vacall-powerpc-sysv4-macro.S vacall-powerpc-macos.s vacall-powerpc64-aix.s vacall-powerpc64-linux.S vacall-powerpc64-elfv2-linux.S \ vacall-ia64-macro.S \ vacall-x86_64-macro.S vacall-x86_64-x32-linux.s vacall-x86_64-windows-macro.S \ vacall-s390-macro.S vacall-s390x-macro.S \ vacall-riscv32-ilp32d-macro.S vacall-riscv64-lp64d-macro.S vacall-i386-linux.s : ../../vacall/vacall-i386.c ../../vacall/vacall-internal.h vacall_r.h $(THISFILE) $(CROSS_TOOL) i386-linux gcc -V 3.1 $(GCCFLAGS) -D__i386__ -S ../../vacall/vacall-i386.c -I../../vacall -I. -o vacall-i386-linux.s vacall-i386-macro.S : vacall-i386-linux.s ../../common/asm-i386.sh ../../common/noexecstack.h $(THISFILE) (echo '#include "asm-i386.h"' ; sed -e '/\.align.*,0x90$$/d' < vacall-i386-linux.s | ../../common/asm-i386.sh ; cat ../../common/noexecstack.h) > vacall-i386-macro.S vacall-m68k-linux.s : ../../vacall/vacall-m68k.c ../../vacall/vacall-internal.h vacall_r.h $(THISFILE) $(CROSS_TOOL) m68k-linux gcc -V 3.1 $(GCCFLAGS) -D__m68k__ -S ../../vacall/vacall-m68k.c -I../../vacall -I. -o vacall-m68k-linux.s vacall-m68k-sun.s : ../../vacall/vacall-m68k.c ../../vacall/vacall-internal.h vacall_r.h $(THISFILE) $(CROSS_TOOL) m68k-sun gcc -V 3.1 $(GCCFLAGS) -D__m68k__ -S ../../vacall/vacall-m68k.c -I../../vacall -I. -o vacall-m68k-sun.s vacall-m68k.mit.S : vacall-m68k-sun.s ../../common/asm-m68k.sh ../../common/noexecstack.h $(THISFILE) (echo '#include "asm-m68k.h"' ; ../../common/asm-m68k.sh mit < vacall-m68k-sun.s ; cat ../../common/noexecstack.h) > vacall-m68k.mit.S vacall-m68k.motorola.S : vacall-m68k-linux.s ../../common/asm-m68k.sh ../../common/noexecstack.h $(THISFILE) (echo '#include "asm-m68k.h"' ; ../../common/asm-m68k.sh motorola < vacall-m68k-linux.s ; cat ../../common/noexecstack.h) > vacall-m68k.motorola.S vacall-mipseb-linux.s : ../../vacall/vacall-mips.c ../../vacall/vacall-internal.h vacall_r.h $(THISFILE) # For references to symbols: -mno-explicit-relocs ensures a syntax that the IRIX assembler understands. $(CROSS_TOOL) mips64-linux gcc-5.4.0 -mabi=32 -mfpxx -march=mips2 -meb -mno-explicit-relocs $(GCCFLAGS) -D__mips__ -S ../../vacall/vacall-mips.c -I../../vacall -I. -o vacall-mipseb-linux.s vacall-mipseb-macro.S : vacall-mipseb-linux.s ../../common/asm-mips.sh $(THISFILE) (echo '#include "asm-mips.h"' ; ../../common/asm-mips.sh < vacall-mipseb-linux.s) > vacall-mipseb-macro.S vacall-mipsel-linux.s : ../../vacall/vacall-mips.c ../../vacall/vacall-internal.h vacall_r.h $(THISFILE) $(CROSS_TOOL) mips64-linux gcc-5.4.0 -mabi=32 -mfpxx -march=mips2 -mel -mno-explicit-relocs $(GCCFLAGS) -D__mips__ -S ../../vacall/vacall-mips.c -I../../vacall -I. -o vacall-mipsel-linux.s vacall-mipsel-macro.S : vacall-mipsel-linux.s ../../common/asm-mips.sh $(THISFILE) (echo '#include "asm-mips.h"' ; ../../common/asm-mips.sh < vacall-mipsel-linux.s) > vacall-mipsel-macro.S vacall-mipsn32eb-linux.s : ../../vacall/vacall-mipsn32.c ../../vacall/vacall-internal.h vacall_r.h $(THISFILE) $(CROSS_TOOL) mips64-linux gcc-5.4.0 -mabi=n32 -meb $(GCCFLAGS) -D__mipsn32__ -S ../../vacall/vacall-mipsn32.c -I../../vacall -I. -o vacall-mipsn32eb-linux.s vacall-mipsn32eb-macro.S : vacall-mipsn32eb-linux.s ../../common/asm-mips.sh $(THISFILE) (echo '#include "asm-mips.h"' ; ../../common/asm-mips.sh < vacall-mipsn32eb-linux.s) > vacall-mipsn32eb-macro.S vacall-mipsn32el-linux.s : ../../vacall/vacall-mipsn32.c ../../vacall/vacall-internal.h vacall_r.h $(THISFILE) $(CROSS_TOOL) mips64-linux gcc-5.4.0 -mabi=n32 -mel $(GCCFLAGS) -D__mipsn32__ -S ../../vacall/vacall-mipsn32.c -I../../vacall -I. -o vacall-mipsn32el-linux.s vacall-mipsn32el-macro.S : vacall-mipsn32el-linux.s ../../common/asm-mips.sh $(THISFILE) (echo '#include "asm-mips.h"' ; ../../common/asm-mips.sh < vacall-mipsn32el-linux.s) > vacall-mipsn32el-macro.S vacall-mips64eb-linux.s : ../../vacall/vacall-mips64.c ../../vacall/vacall-internal.h vacall_r.h $(THISFILE) $(CROSS_TOOL) mips64-linux gcc-5.4.0 -mabi=64 -meb $(GCCFLAGS) -D__mips64__ -S ../../vacall/vacall-mips64.c -I../../vacall -I. -o vacall-mips64eb-linux.s vacall-mips64eb-macro.S : vacall-mips64eb-linux.s ../../common/asm-mips.sh $(THISFILE) (echo '#include "asm-mips.h"' ; ../../common/asm-mips.sh < vacall-mips64eb-linux.s) > vacall-mips64eb-macro.S vacall-mips64el-linux.s : ../../vacall/vacall-mips64.c ../../vacall/vacall-internal.h vacall_r.h $(THISFILE) $(CROSS_TOOL) mips64-linux gcc-5.4.0 -mabi=64 -mel $(GCCFLAGS) -D__mips64__ -S ../../vacall/vacall-mips64.c -I../../vacall -I. -o vacall-mips64el-linux.s vacall-mips64el-macro.S : vacall-mips64el-linux.s ../../common/asm-mips.sh $(THISFILE) (echo '#include "asm-mips.h"' ; ../../common/asm-mips.sh < vacall-mips64el-linux.s) > vacall-mips64el-macro.S vacall-sparc-linux.s : ../../vacall/vacall-sparc.c ../../vacall/vacall-internal.h vacall_r.h $(THISFILE) $(CROSS_TOOL) sparc-linux gcc -V 3.1 $(GCCFLAGS) -D__sparc__ -S ../../vacall/vacall-sparc.c -I../../vacall -I. -o vacall-sparc-linux.s vacall-sparc-macro.S : vacall-sparc-linux.s ../../common/asm-sparc.sh ../../common/noexecstack.h $(THISFILE) (echo '#include "asm-sparc.h"' ; ../../common/asm-sparc.sh < vacall-sparc-linux.s ; cat ../../common/noexecstack.h) > vacall-sparc-macro.S vacall-sparc64-linux.s : ../../vacall/vacall-sparc64.c ../../vacall/vacall-internal.h vacall_r.h $(THISFILE) $(CROSS_TOOL) sparc64-linux gcc -V 4.0.2 $(GCCFLAGS) -D__sparc64__ -S ../../vacall/vacall-sparc64.c -I../../vacall -I. -o vacall-sparc64-linux.s vacall-sparc64-macro.S : vacall-sparc64-linux.s ../../common/asm-sparc.sh ../../common/noexecstack.h $(THISFILE) (echo '#include "asm-sparc.h"' ; ../../common/asm-sparc.sh < vacall-sparc64-linux.s ; cat ../../common/noexecstack.h) > vacall-sparc64-macro.S vacall-alpha-linux.s : ../../vacall/vacall-alpha.c ../../vacall/vacall-internal.h vacall_r.h $(THISFILE) $(CROSS_TOOL) alpha-linux gcc -V 4.0.2 $(GCCFLAGS) -D__alpha__ -S ../../vacall/vacall-alpha.c -I../../vacall -I. -o vacall-alpha-linux.s vacall-alpha-macro.S : vacall-alpha-linux.s ../../common/asm-alpha.sh ../../common/noexecstack.h $(THISFILE) (../../common/asm-alpha.sh < vacall-alpha-linux.s ; cat ../../common/noexecstack.h) > vacall-alpha-macro.S vacall-hppa-linux.s : ../../vacall/vacall-hppa.c ../../vacall/vacall-internal.h vacall_r.h $(THISFILE) $(CROSS_TOOL) hppa-linux gcc -V 3.1 $(GCCFLAGS) -D__hppa__ -S ../../vacall/vacall-hppa.c -I../../vacall -I. -o vacall-hppa-linux.s vacall-hppa-macro.S : vacall-hppa-linux.s ../../common/asm-hppa.sh ../../common/noexecstack.h $(THISFILE) (echo '#include "asm-hppa.h"' ; ../../common/asm-hppa.sh < vacall-hppa-linux.s ; cat ../../common/noexecstack.h) > vacall-hppa-macro.S vacall-hppa64-linux.s : ../../vacall/vacall-hppa64.c ../../vacall/vacall-internal.h vacall_r.h $(THISFILE) $(CROSS_TOOL) hppa64-linux gcc -V 3.1 $(GCCFLAGS) -D__hppa64__ -S ../../vacall/vacall-hppa64.c -I../../vacall -I. -o vacall-hppa64-linux.s vacall-hppa64-macro.S : vacall-hppa64-linux.s ../../common/asm-hppa64.sh ../../common/noexecstack.h $(THISFILE) (echo '#include "asm-hppa64.h"' ; ../../common/asm-hppa64.sh < vacall-hppa64-linux.s ; cat ../../common/noexecstack.h) > vacall-hppa64-macro.S vacall-arm-macro.S : ../../vacall/vacall-arm.c ../../vacall/vacall-internal.h vacall_r.h ../../common/asm-arm.sh ../../common/noexecstack-arm.h $(THISFILE) $(CROSS_TOOL) arm-linux gcc -V 3.1 -mlittle-endian $(GCCFLAGS) -D__arm__ -S ../../vacall/vacall-arm.c -I../../vacall -I. -o vacall-armel.s $(CROSS_TOOL) arm-linux gcc -V 3.1 -mbig-endian $(GCCFLAGS) -D__arm__ -S ../../vacall/vacall-arm.c -I../../vacall -I. -o vacall-armeb.s cmp vacall-armel.s vacall-armeb.s > /dev/null (echo '#include "asm-arm.h"' ; ../../common/asm-arm.sh < vacall-armel.s ; cat ../../common/noexecstack-arm.h) > vacall-arm-macro.S $(RM) vacall-armel.s vacall-armeb.s vacall-armhf-macro.S : ../../vacall/vacall-armhf.c ../../vacall/vacall-internal.h vacall_r.h ../../common/asm-arm.sh ../../common/noexecstack-arm.h $(THISFILE) # The option -mabi=aapcs ensures an 8-bytes-aligned stack pointer. $(CROSS_TOOL) armv7l-linux-gnueabihf gcc-6.3.0 -march=armv6 -mabi=aapcs -mfloat-abi=hard -mlittle-endian $(GCCFLAGS) -D__armhf__ -S ../../vacall/vacall-armhf.c -I../../vacall -I. -o vacall-armhfel.s $(CROSS_TOOL) armv7l-linux-gnueabihf gcc-6.3.0 -march=armv6 -mabi=aapcs -mfloat-abi=hard -mbig-endian $(GCCFLAGS) -D__armhf__ -S ../../vacall/vacall-armhf.c -I../../vacall -I. -o vacall-armhfeb.s cmp vacall-armhfel.s vacall-armhfeb.s > /dev/null (echo '#include "asm-arm.h"' ; ../../common/asm-arm.sh < vacall-armhfel.s ; cat ../../common/noexecstack-arm.h) > vacall-armhf-macro.S $(RM) vacall-armhfel.s vacall-armhfeb.s vacall-arm64-macro.S : ../../vacall/vacall-arm64.c ../../vacall/vacall-internal.h vacall_r.h ../../common/asm-arm.sh ../../common/noexecstack-arm.h $(THISFILE) $(CROSS_TOOL) aarch64-linux gcc-5.4.0 -mlittle-endian $(GCCFLAGS) -D__arm64__ -S ../../vacall/vacall-arm64.c -I../../vacall -I. -o vacall-arm64el.s $(CROSS_TOOL) aarch64-linux gcc-5.4.0 -mbig-endian $(GCCFLAGS) -D__arm64__ -S ../../vacall/vacall-arm64.c -I../../vacall -I. -o vacall-arm64eb.s cmp vacall-arm64el.s vacall-arm64eb.s > /dev/null (echo '#include "asm-arm.h"' ; ../../common/asm-arm.sh < vacall-arm64el.s ; cat ../../common/noexecstack-arm.h) > vacall-arm64-macro.S $(RM) vacall-arm64el.s vacall-arm64eb.s vacall-powerpc-aix.s : ../../vacall/vacall-powerpc.c ../../vacall/vacall-internal.h vacall_r.h $(THISFILE) $(CROSS_TOOL) rs6000-aix gcc -V 3.3.6 -mno-power -mno-power2 -mno-powerpc -mnew-mnemonics $(GCCFLAGS) -D__powerpc__ -S ../../vacall/vacall-powerpc.c -I../../vacall -I. -o vacall-powerpc-aix.s vacall-powerpc-linux.s : ../../vacall/vacall-powerpc.c ../../vacall/vacall-internal.h vacall_r.h $(THISFILE) $(CROSS_TOOL) powerpc-linux gcc -V 3.3.6 -mno-power -mno-power2 -mno-powerpc $(GCCFLAGS) -D__powerpc__ -S ../../vacall/vacall-powerpc.c -I../../vacall -I. -o vacall-powerpc-linux.s vacall-powerpc-linux-macro.S : vacall-powerpc-linux.s ../../common/asm-powerpc.sh ../../common/noexecstack.h $(THISFILE) (../../common/asm-powerpc.sh < vacall-powerpc-linux.s ; cat ../../common/noexecstack.h) > vacall-powerpc-linux-macro.S vacall-powerpc-sysv4-macro.S : ../../vacall/vacall-powerpc.c ../../vacall/vacall-internal.h vacall_r.h ../../common/asm-powerpc.sh ../../common/noexecstack.h $(THISFILE) $(CROSS_TOOL) powerpc-linux gcc -V 3.3.6 -mno-power -mno-power2 -mno-powerpc $(GCCFLAGS) -D__powerpc__ -S ../../vacall/vacall-powerpc.c -I../../vacall -I. -o vacall-powerpc-sysv4.s (../../common/asm-powerpc.sh < vacall-powerpc-sysv4.s ; cat ../../common/noexecstack.h) > vacall-powerpc-sysv4-macro.S $(RM) vacall-powerpc-sysv4.s vacall-powerpc-macos.s : ../../vacall/vacall-powerpc.c ../../vacall/vacall-internal.h vacall_r.h $(THISFILE) $(CROSS_TOOL) powerpc-darwin gcc -V 3.3.6 $(GCCFLAGS) -D__powerpc__ -S ../../vacall/vacall-powerpc.c -I../../vacall -I. -o vacall-powerpc-macos.s vacall-powerpc64-aix.s : ../../vacall/vacall-powerpc64.c ../../vacall/vacall-internal.h vacall_r.h $(THISFILE) $(CROSS_TOOL) rs6000-aix6.1 gcc-5.4.0 -maix64 $(GCCFLAGS) -D__powerpc64__ -S ../../vacall/vacall-powerpc64.c -I../../vacall -I. -o vacall-powerpc64-aix.s vacall-powerpc64-linux.S : ../../vacall/vacall-powerpc64.c ../../vacall/vacall-internal.h vacall_r.h ../../common/asm-powerpc.sh ../../common/noexecstack.h $(THISFILE) $(CROSS_TOOL) powerpc64le-linux gcc-5.4.0 -mabi=elfv1 -mcpu=power4 -mlittle-endian $(GCCFLAGS) -D__powerpc64__ -S ../../vacall/vacall-powerpc64.c -I../../vacall -I. -o vacall-powerpc64-linux-le.s $(CROSS_TOOL) powerpc64le-linux gcc-5.4.0 -mabi=elfv1 -mcpu=power4 -mbig-endian $(GCCFLAGS) -D__powerpc64__ -S ../../vacall/vacall-powerpc64.c -I../../vacall -I. -o vacall-powerpc64-linux-be.s cmp vacall-powerpc64-linux-le.s vacall-powerpc64-linux-be.s > /dev/null (../../common/asm-powerpc.sh < vacall-powerpc64-linux-be.s ; cat ../../common/noexecstack.h) > vacall-powerpc64-linux.S $(RM) vacall-powerpc64-linux-le.s vacall-powerpc64-linux-be.s vacall-powerpc64-elfv2-linux.S : ../../vacall/vacall-powerpc64.c ../../vacall/vacall-internal.h vacall_r.h ../../common/asm-powerpc.sh ../../common/noexecstack.h $(THISFILE) $(CROSS_TOOL) powerpc64le-linux gcc-5.4.0 -mabi=elfv2 -mcpu=power4 -mlittle-endian $(GCCFLAGS) -D__powerpc64__ -D__powerpc64_elfv2__ -S ../../vacall/vacall-powerpc64.c -I../../vacall -I. -o vacall-powerpc64-elfv2-linux-le.s $(CROSS_TOOL) powerpc64le-linux gcc-5.4.0 -mabi=elfv2 -mcpu=power4 -mbig-endian $(GCCFLAGS) -D__powerpc64__ -D__powerpc64_elfv2__ -S ../../vacall/vacall-powerpc64.c -I../../vacall -I. -o vacall-powerpc64-elfv2-linux-be.s # vacall-powerpc64-linux-be.s contains endianness specific optimizations. (../../common/asm-powerpc.sh < vacall-powerpc64-elfv2-linux-le.s ; cat ../../common/noexecstack.h) > vacall-powerpc64-elfv2-linux.S $(RM) vacall-powerpc64-elfv2-linux-le.s vacall-powerpc64-elfv2-linux-be.s vacall-ia64-linux.s : ../../vacall/vacall-ia64.c ../../vacall/vacall-internal.h vacall_r.h $(THISFILE) $(CROSS_TOOL) ia64-linux gcc -V 4.0.1 $(GCCFLAGS) -D__ia64__ -S ../../vacall/vacall-ia64.c -I../../vacall -I. -o vacall-ia64-linux.s vacall-ia64-macro.S : vacall-ia64-linux.s ../../common/noexecstack.h $(THISFILE) cat vacall-ia64-linux.s ../../common/noexecstack.h > vacall-ia64-macro.S vacall-x86_64-linux.s : ../../vacall/vacall-x86_64.c ../../vacall/vacall-internal.h vacall_r.h $(THISFILE) $(CROSS_TOOL) x86_64-linux gcc-4.0.2 $(GCCFLAGS) -D__x86_64__ -S ../../vacall/vacall-x86_64.c -I../../vacall -I. -o vacall-x86_64-linux.s vacall-x86_64-macro.S : vacall-x86_64-linux.s ../../common/asm-x86_64.sh ../../common/noexecstack.h $(THISFILE) (echo '#include "asm-x86_64.h"' ; ../../common/asm-x86_64.sh < vacall-x86_64-linux.s ; cat ../../common/noexecstack.h) > vacall-x86_64-macro.S vacall-x86_64-x32-linux.s : ../../vacall/vacall-x86_64.c ../../vacall/vacall-internal.h vacall_r.h $(THISFILE) $(CROSS_TOOL) x86_64-linux gcc-5.4.0 -mx32 $(GCCFLAGS) -D__x86_64__ -D__x86_64_x32__ -S ../../vacall/vacall-x86_64.c -I../../vacall -I. -o vacall-x86_64-x32-linux.s vacall-x86_64-windows.s : ../../vacall/vacall-x86_64-windows.c ../../vacall/vacall-internal.h vacall_r.h $(THISFILE) $(CROSS_TOOL) x86_64-linux gcc-5.4.0 -mabi=ms $(GCCFLAGS) -fno-reorder-blocks-and-partition -D__x86_64__ -D_WIN32 -S ../../vacall/vacall-x86_64-windows.c -I../../vacall -I. -o vacall-x86_64-windows.s vacall-x86_64-windows-macro.S : vacall-x86_64-windows.s ../../common/asm-x86_64.sh ../../common/noexecstack.h $(THISFILE) (echo '#include "asm-x86_64.h"' ; ../../common/asm-x86_64.sh < vacall-x86_64-windows.s ; cat ../../common/noexecstack.h) > vacall-x86_64-windows-macro.S vacall-s390-linux.s : ../../vacall/vacall-s390.c ../../vacall/vacall-internal.h vacall_r.h $(THISFILE) $(CROSS_TOOL) s390-linux gcc -V 3.1 $(GCCFLAGS) -D__s390__ -S ../../vacall/vacall-s390.c -I../../vacall -I. -o vacall-s390-linux.s vacall-s390-macro.S : vacall-s390-linux.s ../../common/asm-s390.sh ../../common/noexecstack.h $(THISFILE) (../../common/asm-s390.sh < vacall-s390-linux.s ; cat ../../common/noexecstack.h) > vacall-s390-macro.S vacall-s390x-linux.s : ../../vacall/vacall-s390x.c ../../vacall/vacall-internal.h vacall_r.h $(THISFILE) $(CROSS_TOOL) s390x-linux gcc-5.4.0 $(GCCFLAGS) -D__s390x__ -S ../../vacall/vacall-s390x.c -I../../vacall -I. -o vacall-s390x-linux.s vacall-s390x-macro.S : vacall-s390x-linux.s ../../common/asm-s390.sh ../../common/noexecstack.h $(THISFILE) (../../common/asm-s390.sh < vacall-s390x-linux.s ; cat ../../common/noexecstack.h) > vacall-s390x-macro.S vacall-riscv32-ilp32d-linux.s : ../../vacall/vacall-riscv32.c ../../vacall/vacall-internal.h vacall_r.h $(THISFILE) $(CROSS_TOOL) riscv32-linux gcc-7.3.0 $(GCCFLAGS) -D__riscv32__ -S ../../vacall/vacall-riscv32.c -I../../vacall -I. -o vacall-riscv32-ilp32d-linux.s vacall-riscv32-ilp32d-macro.S : vacall-riscv32-ilp32d-linux.s ../../common/asm-riscv.sh ../../common/noexecstack.h $(THISFILE) (../../common/asm-riscv.sh < vacall-riscv32-ilp32d-linux.s ; cat ../../common/noexecstack.h) > vacall-riscv32-ilp32d-macro.S vacall-riscv64-lp64d-linux.s : ../../vacall/vacall-riscv64.c ../../vacall/vacall-internal.h vacall_r.h $(THISFILE) $(CROSS_TOOL) riscv64-linux gcc-7.3.0 $(GCCFLAGS) -D__riscv64__ -S ../../vacall/vacall-riscv64.c -I../../vacall -I. -o vacall-riscv64-lp64d-linux.s vacall-riscv64-lp64d-macro.S : vacall-riscv64-lp64d-linux.s ../../common/asm-riscv.sh ../../common/noexecstack.h $(THISFILE) (../../common/asm-riscv.sh < vacall-riscv64-lp64d-linux.s ; cat ../../common/noexecstack.h) > vacall-riscv64-lp64d-macro.S libffcall-2.2/callback/vacall_r/vacall-i386-msvc.c0000664000000000000000000001067213530357247016565 00000000000000#ifdef _MSC_VER #include "vacall_r.h" #endif #include "asm-i386.h" TEXT() ALIGN(2) P2ALIGN(2,3) DECLARE_FUNCTION(callback_receiver) FUNBEGIN(callback_receiver) INSN1(push,l ,R(ebp)) INSN2(mov,l ,R(esp), R(ebp)) INSN1(push,l ,R(edi)) INSN1(push,l ,R(esi)) INSN2(lea,l ,X4 MEM_DISP(ebp,8), R(edx)) INSN2(sub,l ,NUM(56), R(esp)) INSN2(mov,l ,R(edx),X4 MEM_DISP(ebp,-40)) INSN2(lea,l ,X4 MEM_DISP(ebp,-56), R(edx)) INSN2(mov,l ,NUM(0),X4 MEM_DISP(ebp,-56)) INSN2(mov,l ,NUM(0),X4 MEM_DISP(ebp,-36)) INSN2(mov,l ,NUM(0),X4 MEM_DISP(ebp,-32)) INSN2(mov,l ,R(ebx),X4 MEM_DISP(ebp,-24)) INSN1(push,l ,R(edx)) INSN1(push,l ,X4 MEM_DISP(ecx,4)) INSN1(call,_ ,INDIR(X4 MEM(ecx))) INSN2(mov,l ,X4 MEM_DISP(ebp,-32), R(esi)) INSN2(add,l ,NUM(16), R(esp)) INSN2(test,l ,R(esi), R(esi)) INSN1(je,_ ,L(43)) INSN2(cmp,l ,NUM(1), R(esi)) INSN1(je,_ ,L(44)) INSN2(cmp,l ,NUM(2), R(esi)) INSN1(je,_ ,L(44)) INSN2(cmp,l ,NUM(3), R(esi)) INSN1(je,_ ,L(49)) INSN2(cmp,l ,NUM(4), R(esi)) INSN1(je,_ ,L(50)) INSN2(cmp,l ,NUM(5), R(esi)) INSN1(je,_ ,L(51)) INSN2(cmp,l ,NUM(6), R(esi)) INSN1(je,_ ,L(48)) INSN2(cmp,l ,NUM(7), R(esi)) INSN1(je,_ ,L(48)) INSN2(cmp,l ,NUM(8), R(esi)) INSN1(je,_ ,L(48)) INSN2(cmp,l ,NUM(9), R(esi)) INSN1(je,_ ,L(48)) INSN2(lea,l ,X4 MEM_DISP(esi,-10), R(edx)) INSN2(cmp,l ,NUM(1), R(edx)) INSN1(ja,_ ,L(22)) INSN2(mov,l ,X4 MEM_DISP(ebp,-48), R(eax)) INSN2(mov,l ,X4 MEM_DISP(ebp,-44),R(edx)) L(33): P2ALIGN(2,3) L(43): INSN2(mov,l ,X4 MEM_DISP(ebp,-56), R(esi)) L(3): INSN2(and,l ,NUM(512), R(esi)) INSN1(je,_ ,L(1)) INSN2(mov,l ,X4 MEM_DISP(ebp,0),R(ecx)) INSN2(mov,l ,X4 MEM_DISP(ebp,-40), R(esp)) INSN1(jmp,_ ,INDIR(R(ecx))) L(1): INSN2(lea,l ,X4 MEM_DISP(ebp,-8), R(esp)) INSN1(pop,l ,R(esi)) INSN1(pop,l ,R(edi)) leave ret L(22): INSN2(cmp,l ,NUM(12), R(esi)) INSN1(je,_ ,L(52)) INSN2(cmp,l ,NUM(13), R(esi)) INSN1(je,_ ,L(53)) INSN2(cmp,l ,NUM(14), R(esi)) INSN1(je,_ ,L(48)) INSN2(cmp,l ,NUM(15), R(esi)) INSN1(jne,_ ,L(43)) INSN2(mov,l ,X4 MEM_DISP(ebp,-56), R(esi)) INSN2(test,l ,NUM(1024), R(esi)) INSN2(mov,l ,R(esi), R(edi)) INSN1(je,_ ,L(31)) INSN2(mov,l ,X4 MEM_DISP(ebp,-28), R(edx)) INSN2(cmp,l ,NUM(1), R(edx)) INSN1(je,_ ,L(54)) INSN2(cmp,l ,NUM(2), R(edx)) INSN1(je,_ ,L(55)) INSN2(cmp,l ,NUM(4), R(edx)) INSN1(je,_ ,L(56)) INSN2(cmp,l ,NUM(8), R(edx)) INSN1(je,_ ,L(57)) L(31): INSN2(and,l ,NUM(16), R(edi)) INSN2(mov,l ,X4 MEM_DISP(ebp,-36), R(eax)) INSN1(jne,_ ,L(3)) INSN2(lea,l ,X4 MEM_DISP(ebp,-8), R(esp)) INSN1(pop,l ,R(esi)) INSN1(pop,l ,R(edi)) leave ret NUM(4) INSN1(jmp,_ ,L(3)) L(57): INSN2(mov,l ,X4 MEM_DISP(ebp,-36), R(edx)) INSN2(mov,l ,X4 MEM(edx), R(eax)) INSN2(mov,l ,X4 MEM_DISP(edx,4),R(edx)) INSN1(jmp,_ ,L(3)) L(56): INSN2(mov,l ,X4 MEM_DISP(ebp,-36), R(edx)) INSN2(mov,l ,X4 MEM(edx), R(eax)) INSN1(jmp,_ ,L(3)) L(55): INSN2(mov,l ,X4 MEM_DISP(ebp,-36), R(edx)) INSN2MOVXL(movz,w,X2 MEM(edx), R(eax)) INSN1(jmp,_ ,L(3)) L(54): INSN2(mov,l ,X4 MEM_DISP(ebp,-36), R(edx)) INSN2MOVXL(movz,b,X1 MEM(edx), R(eax)) INSN1(jmp,_ ,L(3)) P2ALIGN(2,3) L(48): INSN2(mov,l ,X4 MEM_DISP(ebp,-48), R(eax)) INSN1(jmp,_ ,L(43)) L(53): INSN1(fld,l ,X8 MEM_DISP(ebp,-48)) INSN1(jmp,_ ,L(43)) L(52): INSN1(fld,s ,X4 MEM_DISP(ebp,-48)) INSN1(jmp,_ ,L(43)) P2ALIGN(2,3) L(51): INSN2MOVXL(movz,w,X2 MEM_DISP(ebp,-48), R(eax)) INSN1(jmp,_ ,L(43)) L(50): INSN2MOVXL(movs,w,X2 MEM_DISP(ebp,-48),R(eax)) INSN1(jmp,_ ,L(43)) L(49): INSN2MOVXL(movz,b,X1 MEM_DISP(ebp,-48), R(eax)) INSN1(jmp,_ ,L(43)) P2ALIGN(2,3) L(44): INSN2MOVXL(movs,b,X1 MEM_DISP(ebp,-48),R(eax)) INSN1(jmp,_ ,L(43)) L(fe1): FUNEND(callback_receiver,L(fe1)-callback_receiver) /* Implementation of callback_get_receiver */ /* * Copyright 2017 Bruno Haible * * This program is free software: you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by * the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program. If not, see . */ __vacall_r_t callback_get_receiver (void) { return (__vacall_r_t)(void*)&callback_receiver; } libffcall-2.2/callback/vacall_r/vacall-s390x-macro.S0000664000000000000000000000464713530357115017072 00000000000000 .file "vacall-s390x.c" .text .align 8 .type callback_receiver, @function callback_receiver: .LFB0: .cfi_startproc stmg %r10,%r15,80(%r15) .cfi_offset 10, -80 .cfi_offset 11, -72 .cfi_offset 12, -64 .cfi_offset 13, -56 .cfi_offset 14, -48 .cfi_offset 15, -40 aghi %r15,-320 .cfi_def_cfa_offset 480 lgr %r11,%r15 .cfi_def_cfa_register 11 lgr %r1,%r0 lhi %r14,0 stg %r2,224(%r11) lg %r10,0(%r1) st %r14,160(%r11) la %r14,480(%r11) stg %r14,184(%r11) lghi %r14,0 stg %r3,232(%r11) lg %r2,8(%r1) stg %r4,240(%r11) stg %r5,248(%r11) stg %r6,256(%r11) ste %f0,268(%r11) ste %f2,272(%r11) ste %f4,276(%r11) ste %f6,280(%r11) std %f0,288(%r11) std %f2,296(%r11) std %f4,304(%r11) std %f6,312(%r11) stg %r14,192(%r11) st %r14,200(%r11) st %r14,216(%r11) st %r14,264(%r11) la %r3,160(%r11) basr %r14,%r10 icm %r1,15,200(%r11) je .L1 chi %r1,1 je .L18 chi %r1,2 je .L21 chi %r1,3 je .L18 chi %r1,4 je .L22 chi %r1,5 je .L23 chi %r1,6 je .L24 chi %r1,7 je .L25 lr %r10,%r1 nill %r10,65533 chi %r10,8 je .L19 chi %r10,9 je .L19 chi %r1,12 je .L26 chi %r1,13 je .L27 chi %r1,14 je .L19 .L1: lg %r4,432(%r11) lmg %r10,%r15,400(%r11) .cfi_remember_state .cfi_restore 15 .cfi_restore 14 .cfi_restore 13 .cfi_restore 12 .cfi_restore 11 .cfi_restore 10 .cfi_def_cfa 15, 160 br %r4 .L18: .cfi_restore_state lg %r4,432(%r11) llgc %r2,168(%r11) lmg %r10,%r15,400(%r11) .cfi_remember_state .cfi_restore 10 .cfi_restore 11 .cfi_restore 12 .cfi_restore 13 .cfi_restore 14 .cfi_restore 15 .cfi_def_cfa 15, 160 br %r4 .L21: .cfi_restore_state icmh %r2,8,168(%r11) srag %r2,%r2,56 j .L1 .L19: lg %r2,168(%r11) j .L1 .L22: lgh %r2,168(%r11) j .L1 .L23: llgh %r2,168(%r11) j .L1 .L24: lgf %r2,168(%r11) j .L1 .L26: le %f0,168(%r11) j .L1 .L25: llgf %r2,168(%r11) j .L1 .L27: ld %f0,168(%r11) j .L1 .cfi_endproc .LFE0: .size callback_receiver, .-callback_receiver .align 8 .globl callback_get_receiver .type callback_get_receiver, @function callback_get_receiver: .LFB1: .cfi_startproc stg %r11,88(%r15) .cfi_offset 11, -72 lgr %r11,%r15 .cfi_def_cfa_register 11 larl %r2,callback_receiver lg %r11,88(%r11) .cfi_restore 11 .cfi_def_cfa_register 15 br %r14 .cfi_endproc .LFE1: .size callback_get_receiver, .-callback_get_receiver #if defined __linux__ || defined __FreeBSD__ || defined __FreeBSD_kernel__ || defined __DragonFly__ .section .note.GNU-stack,"",@progbits #endif libffcall-2.2/callback/vacall_r/Makefile.in0000664000000000000000000003570513527104765015574 00000000000000# Makefile for vacall #### Start of system configuration section. #### HOST = @host@ CPU = @HOST_CPU_C_ABI@ OS = @host_os@ # Directories used by "make": srcdir = @srcdir@ # Directories used by "make install": prefix = @prefix@ local_prefix = /usr/local exec_prefix = @exec_prefix@ libdir = @libdir@ includedir = @includedir@ mandir = @mandir@ datadir = @datadir@ datarootdir = @datarootdir@ htmldir = $(datadir)/html # Programs used by "make": CC = @CC@ CFLAGS = @CFLAGS@ CPPFLAGS = @CPPFLAGS@ CPP = @CPP@ INCLUDES = -I. -I$(srcdir) -I$(srcdir)/../../vacall -I../.. -I$(srcdir)/../.. INCLUDES_WITH_GNULIB = $(INCLUDES) -I../../gnulib-lib -I$(srcdir)/../../gnulib-lib ASPFLAGS = `if test @AS_UNDERSCORE@ = true; then echo '-DASM_UNDERSCORE'; fi` LDFLAGS = @LDFLAGS@ LIBTOOL = @LIBTOOL@ LIBTOOL_COMPILE = $(LIBTOOL) --mode=compile LIBTOOL_LINK = $(LIBTOOL) --mode=link LIBTOOL_INSTALL = $(LIBTOOL) --mode=install LIBTOOL_UNINSTALL = $(LIBTOOL) --mode=uninstall AR = @AR@ AR_FLAGS = rc RANLIB = @RANLIB@ MV = mv LN = @LN@ RM = rm -f @SET_MAKE@ # Programs used by "make install": INSTALL = @INSTALL@ INSTALL_PROGRAM = @INSTALL_PROGRAM@ INSTALL_DATA = @INSTALL_DATA@ #### End of system configuration section. #### SHELL = /bin/sh # Needed by $(LIBTOOL). top_builddir = ../.. OBJECTS = vacall.lo vacall-libapi.lo vacall-structcpy.lo all : $(OBJECTS) libvacall.la vacall.lo : vacall-$(CPU).lo $(RM) vacall.lo vacall.@OBJEXT@ $(LN) vacall-$(CPU).lo vacall.lo if test -f vacall-$(CPU).@OBJEXT@; then $(LN) vacall-$(CPU).@OBJEXT@ vacall.@OBJEXT@; fi @IFNOT_MSVC@vacall-i386.lo : vacall-i386.s @IFNOT_MSVC@ $(LIBTOOL_COMPILE) $(CC) @GCC_X_NONE@ -c vacall-i386.s @IFNOT_MSVC@vacall-i386.s : $(srcdir)/vacall-i386-macro.S @IFNOT_MSVC@ $(CPP) $(ASPFLAGS) -I$(srcdir) -I$(srcdir)/../../common - < $(srcdir)/vacall-i386-macro.S | grep -v '^ *#line' | grep -v '^#' | sed -e 's,% ,%,g' -e 's,\. ,.,g' -e 's,@ ,@,g' -e 's,//.*$$,,' -e 's/##//g' > vacall-i386.s @IF_MSVC@vacall-i386.lo : $(srcdir)/vacall-i386-msvc.c @IF_MSVC@ $(LIBTOOL_COMPILE) $(CC) $(INCLUDES) -I$(srcdir)/../../common $(CPPFLAGS) $(CFLAGS) -c $(srcdir)/vacall-i386-msvc.c -o vacall-i386.lo vacall-sparc.lo : vacall-sparc.s $(LIBTOOL_COMPILE) $(CC) @GCC_X_NONE@ -c vacall-sparc.s vacall-sparc.s : $(srcdir)/vacall-sparc-macro.S $(CPP) $(ASPFLAGS) -I$(srcdir)/../../common - < $(srcdir)/vacall-sparc-macro.S | grep -v '^ *#line' | grep -v '^#' | sed -e 's,% ,%,g' -e 's,\. ,.,g' -e 's,//.*$$,,' -e 's,\$$,#,g' -e 's,# ,#,g' > vacall-sparc.s vacall-sparc64.lo : vacall-sparc64.s $(LIBTOOL_COMPILE) $(CC) @GCC_X_NONE@ -c vacall-sparc64.s vacall-sparc64.s : $(srcdir)/vacall-sparc64-macro.S $(CPP) $(ASPFLAGS) -I$(srcdir)/../../common - < $(srcdir)/vacall-sparc64-macro.S | grep -v '^ *#line' | grep -v '^#' | sed -e 's,% ,%,g' -e 's,\. ,.,g' -e 's,//.*$$,,' -e 's,\$$,#,g' -e 's,# ,#,g' > vacall-sparc64.s vacall-m68k.lo : vacall-m68k.s $(LIBTOOL_COMPILE) $(CC) @GCC_X_NONE@ -c vacall-m68k.s vacall-m68k.s : $(srcdir)/vacall-m68k.mit.S $(srcdir)/vacall-m68k.motorola.S $(CPP) $(ASPFLAGS) -I$(srcdir) -I$(srcdir)/../../common $(srcdir)/vacall-m68k.motorola.S | grep -v '^ *#line' | grep -v '^#' | sed -e 's,% ,%,g' -e 's,//.*$$,,' | if test @AS_UNDERSCORE@ = true; then sed -e 's/\$$//g'; else sed -e 's/\$$/%/g'; fi > vacall-m68k.s vacall-mips.lo : vacall-mips.s $(LIBTOOL_COMPILE) $(CC) @GCC_X_NONE@ -c vacall-mips.s vacall-mips.s : $(srcdir)/vacall-mips@ENDIANNESS@-macro.S $(CPP) $(ASPFLAGS) -I$(srcdir) -I$(srcdir)/../../common $(srcdir)/vacall-mips@ENDIANNESS@-macro.S | grep -v '^ *#line' | grep -v '^#' | sed -e 's,% ,%,g' -e 's,//.*$$,,' > vacall-mips.s vacall-mipsn32.lo : vacall-mipsn32.s $(LIBTOOL_COMPILE) $(CC) @GCC_X_NONE@ -c vacall-mipsn32.s vacall-mipsn32.s : $(srcdir)/vacall-mipsn32@ENDIANNESS@-macro.S $(CPP) $(ASPFLAGS) -I$(srcdir) -I$(srcdir)/../../common $(srcdir)/vacall-mipsn32@ENDIANNESS@-macro.S | grep -v '^ *#line' | grep -v '^#' | sed -e 's,% ,%,g' -e 's,//.*$$,,' > vacall-mipsn32.s vacall-mips64.lo : vacall-mips64.s $(LIBTOOL_COMPILE) $(CC) @GCC_X_NONE@ -c vacall-mips64.s vacall-mips64.s : $(srcdir)/vacall-mips64@ENDIANNESS@-macro.S $(CPP) $(ASPFLAGS) -I$(srcdir) -I$(srcdir)/../../common $(srcdir)/vacall-mips64@ENDIANNESS@-macro.S | grep -v '^ *#line' | grep -v '^#' | sed -e 's,% ,%,g' -e 's,//.*$$,,' > vacall-mips64.s vacall-alpha.lo : vacall-alpha.s $(LIBTOOL_COMPILE) $(CC) @GCC_X_NONE@ -c vacall-alpha.s vacall-alpha.s : $(srcdir)/vacall-alpha-macro.S $(CPP) $(ASPFLAGS) -I$(srcdir) -I$(srcdir)/../../common $(srcdir)/vacall-alpha-macro.S | grep -v '^ *#line' | grep -v '^#' | sed -e 's,% ,%,g' -e 's,//.*$$,,' > vacall-alpha.s vacall-hppa.lo : vacall-hppa.s $(LIBTOOL_COMPILE) $(CC) @GCC_X_NONE@ -c vacall-hppa.s vacall-hppa.s : $(srcdir)/vacall-hppa-macro.S $(CPP) $(ASPFLAGS) -I$(srcdir)/../../common $(srcdir)/vacall-hppa-macro.S | grep -v '^ *#line' | grep -v '^#' | sed -e "s,!,',g" > vacall-hppa.s vacall-hppa64.lo : vacall-hppa64.s $(LIBTOOL_COMPILE) $(CC) @GCC_X_NONE@ -c vacall-hppa64.s vacall-hppa64.s : $(srcdir)/vacall-hppa64-macro.S $(CPP) $(ASPFLAGS) -I$(srcdir)/../../common $(srcdir)/vacall-hppa64-macro.S | grep -v '^ *#line' | grep -v '^#' | sed -e "s,!,',g" > vacall-hppa64.s vacall-arm.lo : vacall-arm.s $(LIBTOOL_COMPILE) $(CC) @GCC_X_NONE@ -c vacall-arm.s vacall-arm.s : $(srcdir)/vacall-arm-macro.S $(CPP) $(ASPFLAGS) -I$(srcdir) -I$(srcdir)/../../common $(srcdir)/vacall-arm-macro.S | grep -v '^ *#line' | grep -v '^#' | sed -e 's,% ,%,g' -e 's,//,@,g' -e 's,\$$,#,g' > vacall-arm.s vacall-armhf.lo : vacall-armhf.s $(LIBTOOL_COMPILE) $(CC) @GCC_X_NONE@ -c vacall-armhf.s vacall-armhf.s : $(srcdir)/vacall-armhf-macro.S $(CPP) $(ASPFLAGS) -I$(srcdir) -I$(srcdir)/../../common $(srcdir)/vacall-armhf-macro.S | grep -v '^ *#line' | grep -v '^#' | sed -e 's,% ,%,g' -e 's,//,@,g' -e 's,\$$,#,g' > vacall-armhf.s vacall-arm64.lo : vacall-arm64.s $(LIBTOOL_COMPILE) $(CC) @GCC_X_NONE@ -c vacall-arm64.s vacall-arm64.s : $(srcdir)/vacall-arm64-macro.S $(CPP) $(ASPFLAGS) -I$(srcdir) -I$(srcdir)/../../common $(srcdir)/vacall-arm64-macro.S | grep -v '^ *#line' | grep -v '^#' | sed -e 's,% ,%,g' -e 's,//,@,g' -e 's,\$$,#,g' > vacall-arm64.s vacall-powerpc.lo : vacall-powerpc.s $(LIBTOOL_COMPILE) $(CC) @GCC_X_NONE@ -c vacall-powerpc.s vacall-powerpc.s : $(srcdir)/vacall-powerpc-aix.s $(srcdir)/vacall-powerpc-linux-macro.S $(srcdir)/vacall-powerpc-macos.s $(srcdir)/vacall-powerpc-sysv4-macro.S case "$(OS)" in \ aix*) syntax=aix;; \ linux* | netbsd* | openbsd*) syntax=linux;; \ macos* | darwin*) syntax=macos;; \ *) syntax=sysv4;; \ esac; \ case $${syntax} in \ linux | netbsd | sysv4) \ $(CPP) $(ASPFLAGS) -I$(srcdir) $(srcdir)/vacall-powerpc-$${syntax}-macro.S | grep -v '^ *#line' | grep -v '^#' | sed -e 's,% ,%,g' -e 's,//,@,g' -e 's,\$$,#,g' > vacall-powerpc.s || exit 1 ;; \ macos) \ grep -v '\.machine' $(srcdir)/vacall-powerpc-$${syntax}.s > vacall-powerpc.s || exit 1 ;; \ *) \ cp $(srcdir)/vacall-powerpc-$${syntax}.s vacall-powerpc.s || exit 1 ;; \ esac vacall-powerpc64.lo : vacall-powerpc64.s $(LIBTOOL_COMPILE) $(CC) @GCC_X_NONE@ -c vacall-powerpc64.s vacall-powerpc64.s : $(srcdir)/vacall-powerpc64-aix.s $(srcdir)/vacall-powerpc64-linux.S case "$(OS)" in \ aix*) syntax=aix;; \ *) syntax=linux;; \ esac; \ case $${syntax} in \ linux) \ $(CPP) $(ASPFLAGS) $(srcdir)/vacall-powerpc64-$${syntax}.S | grep -v '^ *#line' | grep -v '^#' | sed -e 's,% ,%,g' -e 's,//.*$$,,' > vacall-powerpc64.s || exit 1 ;; \ *) \ cp $(srcdir)/vacall-powerpc64-$${syntax}.s vacall-powerpc64.s || exit 1 ;; \ esac vacall-powerpc64-elfv2.lo : vacall-powerpc64-elfv2.s $(LIBTOOL_COMPILE) $(CC) @GCC_X_NONE@ -c vacall-powerpc64-elfv2.s vacall-powerpc64-elfv2.s : $(srcdir)/vacall-powerpc64-elfv2-linux.S $(CPP) $(ASPFLAGS) $(srcdir)/vacall-powerpc64-elfv2-linux.S | grep -v '^ *#line' | grep -v '^#' | sed -e 's,% ,%,g' -e 's,//.*$$,,' > vacall-powerpc64-elfv2.s vacall-ia64.lo : vacall-ia64.s $(LIBTOOL_COMPILE) $(CC) @GCC_X_NONE@ -c vacall-ia64.s vacall-ia64.s : $(srcdir)/vacall-ia64-macro.S $(CPP) $(ASPFLAGS) $(srcdir)/vacall-ia64-macro.S | grep -v '^ *#line' | grep -v '^#' | sed -e 's,% ,%,g' -e 's,//.*$$,,' > vacall-ia64.s @IFNOT_MSVC@vacall-x86_64.lo : vacall-x86_64.s @IFNOT_MSVC@ $(LIBTOOL_COMPILE) $(CC) @GCC_X_NONE@ -c vacall-x86_64.s @IFNOT_MSVC@vacall-x86_64.s : $(srcdir)/vacall-x86_64-macro.S $(srcdir)/vacall-x86_64-windows-macro.S @IFNOT_MSVC@ case "$(OS)" in \ @IFNOT_MSVC@ cygwin* | mingw*) variant='-windows';; \ @IFNOT_MSVC@ *) variant='';; \ @IFNOT_MSVC@ esac; \ @IFNOT_MSVC@ $(CPP) $(ASPFLAGS) -I$(srcdir) -I$(srcdir)/../../common - < $(srcdir)/vacall-x86_64$${variant}-macro.S | grep -v '^ *#line' | grep -v '^#' | sed -e 's,% ,%,g' -e 's,\. ,.,g' -e 's,@ ,@,g' -e 's,//.*$$,,' -e 's/##//g' > vacall-x86_64.s @IF_MSVC@vacall-x86_64.lo : vacall-x86_64.asm @IF_MSVC@ $(LIBTOOL_COMPILE) ml64 -c -nologo vacall-x86_64.asm @IF_MSVC@ mkdir -p .libs; cp vacall-x86_64.@OBJEXT@ .libs/vacall-x86_64.@OBJEXT@ @IF_MSVC@vacall-x86_64.asm : $(srcdir)/vacall-x86_64-windows-macro.S @IF_MSVC@ { $(CPP) $(ASPFLAGS) -I$(srcdir)/../../common $(srcdir)/vacall-x86_64-windows-macro.S | grep -v '^#'; echo 'END'; } > vacall-x86_64.asm vacall-x86_64-x32.lo : vacall-x86_64-x32.s $(LIBTOOL_COMPILE) $(CC) @GCC_X_NONE@ -c vacall-x86_64-x32.s vacall-x86_64-x32.s : $(srcdir)/vacall-x86_64-x32-linux.s cp $(srcdir)/vacall-x86_64-x32-linux.s vacall-x86_64-x32.s vacall-s390.lo : vacall-s390.s $(LIBTOOL_COMPILE) $(CC) @GCC_X_NONE@ -c vacall-s390.s vacall-s390.s : $(srcdir)/vacall-s390-macro.S $(CPP) $(ASPFLAGS) -I$(srcdir) $(srcdir)/vacall-s390-macro.S | grep -v '^ *#line' | grep -v '^#' | sed -e 's,% ,%,g' -e 's,//.*$$,,' > vacall-s390.s vacall-s390x.lo : vacall-s390x.s $(LIBTOOL_COMPILE) $(CC) @GCC_X_NONE@ -c vacall-s390x.s vacall-s390x.s : $(srcdir)/vacall-s390x-macro.S $(CPP) $(ASPFLAGS) -I$(srcdir) $(srcdir)/vacall-s390x-macro.S | grep -v '^ *#line' | grep -v '^#' | sed -e 's,% ,%,g' -e 's,//.*$$,,' > vacall-s390x.s vacall-riscv32-ilp32d.lo : vacall-riscv32-ilp32d.s $(LIBTOOL_COMPILE) $(CC) @GCC_X_NONE@ -c vacall-riscv32-ilp32d.s vacall-riscv32-ilp32d.s : $(srcdir)/vacall-riscv32-ilp32d-macro.S $(CPP) $(ASPFLAGS) -I$(srcdir) $(srcdir)/vacall-riscv32-ilp32d-macro.S | grep -v '^ *#line' | grep -v '^#' | sed -e 's,% ,%,g' -e 's,//.*$$,,' > vacall-riscv32-ilp32d.s vacall-riscv64-lp64d.lo : vacall-riscv64-lp64d.s $(LIBTOOL_COMPILE) $(CC) @GCC_X_NONE@ -c vacall-riscv64-lp64d.s vacall-riscv64-lp64d.s : $(srcdir)/vacall-riscv64-lp64d-macro.S $(CPP) $(ASPFLAGS) -I$(srcdir) $(srcdir)/vacall-riscv64-lp64d-macro.S | grep -v '^ *#line' | grep -v '^#' | sed -e 's,% ,%,g' -e 's,//.*$$,,' > vacall-riscv64-lp64d.s vacall-libapi.lo : $(srcdir)/vacall-libapi.c $(srcdir)/../../vacall/vacall-internal.h $(srcdir)/vacall_r.h ../../config.h $(LIBTOOL_COMPILE) $(CC) $(INCLUDES_WITH_GNULIB) $(CPPFLAGS) $(CFLAGS) @DISABLE_TYPE_BASED_ALIASING@ -DREENTRANT -c $(srcdir)/vacall-libapi.c vacall-structcpy.lo : $(srcdir)/vacall-structcpy.c $(srcdir)/../../common/structcpy.c $(LIBTOOL_COMPILE) $(CC) -I$(srcdir)/../../common $(CPPFLAGS) $(CFLAGS) -c $(srcdir)/vacall-structcpy.c libvacall.la : $(OBJECTS) $(LIBTOOL_LINK) $(CC) -o libvacall.la -rpath $(libdir) -no-undefined $(OBJECTS) $(LDFLAGS) # Installs the library and include files only. Typically called with only # $(libdir) and $(includedir) - don't use $(prefix) and $(exec_prefix) here. install-lib : all force mkdir -p $(includedir) $(INSTALL_DATA) $(srcdir)/vacall_r.h $(includedir)/vacall_r.h install : all force mkdir -p $(DESTDIR)$(prefix) # mkdir -p $(DESTDIR)$(exec_prefix) # mkdir -p $(DESTDIR)$(libdir) # $(LIBTOOL_INSTALL) $(INSTALL_DATA) libvacall.la $(DESTDIR)$(libdir)/libvacall.la mkdir -p $(DESTDIR)$(includedir) $(INSTALL_DATA) $(srcdir)/vacall_r.h $(DESTDIR)$(includedir)/vacall_r.h # mkdir -p $(DESTDIR)$(mandir) # mkdir -p $(DESTDIR)$(mandir)/man3 # $(INSTALL_DATA) $(srcdir)/vacall_r.3 $(DESTDIR)$(mandir)/man3/vacall_r.3 # mkdir -p $(DESTDIR)$(datadir) # mkdir -p $(DESTDIR)$(htmldir) # $(INSTALL_DATA) $(srcdir)/vacall_r.html $(DESTDIR)$(htmldir)/vacall_r.html installdirs : force mkdir -p $(DESTDIR)$(prefix) # mkdir -p $(DESTDIR)$(exec_prefix) # mkdir -p $(DESTDIR)$(libdir) mkdir -p $(DESTDIR)$(includedir) # mkdir -p $(DESTDIR)$(mandir) # mkdir -p $(DESTDIR)$(mandir)/man3 # mkdir -p $(DESTDIR)$(datadir) # mkdir -p $(DESTDIR)$(htmldir) uninstall : force # $(LIBTOOL_UNINSTALL) $(RM) $(DESTDIR)$(libdir)/libvacall.la $(RM) $(DESTDIR)$(includedir)/vacall_r.h # $(RM) $(DESTDIR)$(mandir)/man3/vacall_r.3 # $(RM) $(DESTDIR)$(htmldir)/vacall_r.html check : all extracheck : all mostlyclean : clean clean : force $(RM) *.@OBJEXT@ *.lo *.a libvacall.* core $(RM) vacall-i386.s vacall-sparc.s vacall-sparc64.s vacall-m68k.s vacall-mips.s vacall-mipsn32.s vacall-mips64.s vacall-alpha.s vacall-hppa.s vacall-hppa64.s vacall-arm.s vacall-armhf.s vacall-arm64.s vacall-powerpc.s vacall-powerpc64.s vacall-powerpc64-elfv2.s vacall-ia64.s vacall-x86_64.s vacall-x86_64.asm vacall-x86_64-x32.s vacall-s390.s vacall-s390x.s vacall-riscv32-ilp32d.s vacall-riscv64-lp64d.s $(RM) -r .libs _libs distclean : clean $(RM) Makefile maintainer-clean : distclean # List of source files (committed in version control or generated by Makefile.devel). SOURCE_FILES = \ COPYING \ README \ Makefile.devel \ Makefile.maint \ Makefile.in \ vacall_r.h \ get_receiver.c \ vacall-alpha-linux.s vacall-alpha-macro.S \ vacall-arm-macro.S \ vacall-armhf-macro.S \ vacall-arm64-macro.S \ vacall-hppa-linux.s vacall-hppa-macro.S \ vacall-hppa64-linux.s vacall-hppa64-macro.S \ vacall-i386-linux.s vacall-i386-macro.S \ vacall-ia64-linux.s vacall-ia64-macro.S \ vacall-m68k-linux.s vacall-m68k-sun.s vacall-m68k.mit.S vacall-m68k.motorola.S \ vacall-mipseb-linux.s vacall-mipsel-linux.s vacall-mipseb-macro.S vacall-mipsel-macro.S \ vacall-mipsn32eb-linux.s vacall-mipsn32el-linux.s vacall-mipsn32eb-macro.S vacall-mipsn32el-macro.S \ vacall-mips64eb-linux.s vacall-mips64el-linux.s vacall-mips64eb-macro.S vacall-mips64el-macro.S \ vacall-powerpc-aix.s \ vacall-powerpc-linux.s vacall-powerpc-linux-macro.S \ vacall-powerpc-macos.s \ vacall-powerpc-sysv4-macro.S \ vacall-powerpc64-aix.s vacall-powerpc64-linux.S vacall-powerpc64-elfv2-linux.S \ vacall-riscv32-ilp32d-linux.s vacall-riscv32-ilp32d-macro.S \ vacall-riscv64-lp64d-linux.s vacall-riscv64-lp64d-macro.S \ vacall-s390-linux.s vacall-s390-macro.S \ vacall-s390x-linux.s vacall-s390x-macro.S \ vacall-sparc-linux.s vacall-sparc-macro.S \ vacall-sparc64-linux.s vacall-sparc64-macro.S \ vacall-x86_64-linux.s vacall-x86_64-macro.S vacall-x86_64-x32-linux.s \ vacall-x86_64-windows.s vacall-x86_64-windows-macro.S \ vacall-libapi.c \ vacall-structcpy.c # List of distributed files generated by Makefile.maint. GENERATED_FILES = \ vacall-i386-msvc.c # List of distributed files. DISTFILES = $(SOURCE_FILES) $(GENERATED_FILES) distdir : $(DISTFILES) for file in $(DISTFILES); do \ if test -f $$file; then dir='.'; else dir='$(srcdir)'; fi; \ cp -p "$$dir/$$file" '$(distdir)'/$$file || exit 1; \ done force : libffcall-2.2/callback/vacall_r/vacall-s390-macro.S0000664000000000000000000000453513530357115016676 00000000000000 .file "vacall-s390.c" .text .align 4 .type callback_receiver,@function callback_receiver: stm %r6,%r15,24(%r15) bras %r13,.LTN0_0 .LT0_0: .LC0: .long 0 .LC1: .long 255 .LC2: .long 65535 .LC3: .long 1 .LTN0_0: lr %r1,%r0 lr %r14,%r15 ahi %r15,-184 lr %r11,%r15 lr %r9,%r0 l %r10,0(%r1) st %r14,0(%r15) la %r1,280(%r11) mvc 116(4,%r11),.LC0-.LT0_0(%r13) st %r2,132(%r11) st %r3,136(%r11) la %r3,96(%r11) st %r4,140(%r11) st %r5,144(%r11) st %r6,148(%r11) std %f2,176(%r11) std %f0,168(%r11) ste %f2,160(%r11) ste %f0,156(%r11) mvc 96(4,%r11),.LC0-.LT0_0(%r13) st %r1,112(%r11) mvc 120(4,%r11),.LC0-.LT0_0(%r13) mvc 128(4,%r11),.LC0-.LT0_0(%r13) mvc 152(4,%r11),.LC0-.LT0_0(%r13) l %r2,4(%r9) basr %r14,%r10 icm %r4,15,120(%r11) je .L1 chi %r4,1 je .L43 chi %r4,2 je .L44 chi %r4,3 je .L43 chi %r4,4 je .L45 chi %r4,5 je .L46 chi %r4,6 je .L40 chi %r4,7 je .L40 chi %r4,8 je .L40 chi %r4,9 je .L40 lr %r1,%r4 ahi %r1,-10 cl %r1,.LC3-.LT0_0(%r13) jh .L22 l %r2,104(%r11) l %r3,108(%r11) .L1: l %r4,240(%r11) lm %r6,%r15,208(%r11) br %r4 .L22: chi %r4,12 je .L47 chi %r4,13 je .L48 chi %r4,14 je .L40 chi %r4,15 jne .L1 tm 98(%r11),4 je .L1 l %r1,124(%r11) chi %r1,1 je .L49 chi %r1,2 je .L50 chi %r1,4 je .L51 chi %r1,8 jne .L1 l %r1,116(%r11) l %r3,4(%r1) .L39: l %r2,0(%r1) j .L1 .L51: l %r1,116(%r11) j .L39 .L50: l %r1,116(%r11) lh %r4,0(%r1) lr %r2,%r4 .L41: n %r2,.LC2-.LT0_0(%r13) j .L1 .L49: l %r1,116(%r11) ic %r4,0(%r1) lr %r2,%r4 .L42: n %r2,.LC1-.LT0_0(%r13) j .L1 .L40: l %r2,104(%r11) j .L1 .L48: ld %f0,104(%r11) j .L1 .L47: le %f0,104(%r11) j .L1 .L46: lh %r1,104(%r11) lr %r2,%r1 j .L41 .L45: lh %r2,104(%r11) j .L1 .L43: ic %r1,104(%r11) lr %r2,%r1 j .L42 .L44: icm %r1,8,104(%r11) lr %r2,%r1 sra %r2,24 j .L1 .Lfe1: .size callback_receiver,.Lfe1-callback_receiver .align 4 .globl callback_get_receiver .type callback_get_receiver,@function callback_get_receiver: stm %r11,%r13,44(%r15) bras %r13,.LTN1_0 .LT1_0: .LC4: .long callback_receiver-.LT1_0 .LTN1_0: l %r1,.LC4-.LT1_0(%r13) lr %r11,%r15 la %r2,0(%r13,%r1) lm %r11,%r13,44(%r11) br %r14 .Lfe2: .size callback_get_receiver,.Lfe2-callback_get_receiver #if defined __linux__ || defined __FreeBSD__ || defined __FreeBSD_kernel__ || defined __DragonFly__ .section .note.GNU-stack,"",@progbits #endif libffcall-2.2/callback/vacall_r/vacall-ia64-macro.S0000664000000000000000000002506713530357114016745 00000000000000 .file "vacall-ia64.c" .pred.safe_across_calls p1-p5,p16-p63 .text .align 16 .proc callback_receiver# callback_receiver: .prologue 14, 42 .spill 48 .mmb .save ar.pfs, r43 alloc r43 = ar.pfs, 8, 6, 2, 0 .vframe r44 mov r44 = r12 nop 0 .mmi adds r12 = -208, r12 adds r18 = 8, r15 mov r45 = r1 ;; .mmi adds r16 = -48, r44 adds r14 = -136, r44 adds r17 = -48, r44 .mmi adds r40 = -152, r44 adds r47 = -192, r44 adds r41 = -160, r44 ;; .mmb st8 [r14] = r8 adds r14 = -32, r44 nop 0 .mfi st8 [r16] = r32, 8 nop 0 .save rp, r42 mov r42 = b0 .body ;; .mfi st8 [r14] = r34 nop 0 adds r14 = -24, r44 .mmb st8 [r16] = r33 ld8 r16 = [r15] nop 0 ;; .mmi nop 0 st8 [r14] = r35 adds r14 = -16, r44 .mmi st8 [r41] = r0 ;; st8 [r14] = r36 adds r14 = -8, r44 .mmb st4 [r40] = r0 ld8 r46 = [r18] nop 0 ;; .mmi nop 0 st8 [r14] = r37 adds r14 = 8, r44 .mmi st8 [r44] = r38 ;; st8 [r14] = r39 adds r14 = -112, r44 .mmi st4 [r47] = r0 ;; stfd [r14] = f8 nop 0 .mmi adds r14 = -104, r44 ;; stfd [r14] = f9 adds r14 = -96, r44 ;; .mfi stfd [r14] = f10 nop 0 adds r14 = -88, r44 .mmi nop 0 ;; stfd [r14] = f11 nop 0 .mmi adds r14 = -80, r44 ;; stfd [r14] = f12 adds r14 = -72, r44 ;; .mfi stfd [r14] = f13 nop 0 adds r14 = -64, r44 .mmi nop 0 ;; stfd [r14] = f14 nop 0 .mmi adds r14 = -56, r44 ;; stfd [r14] = f15 adds r14 = -168, r44 ;; .mii st8 [r14] = r17 adds r14 = -128, r44 ;; nop 0 .mii st8 [r14] = r17 adds r14 = -120, r44 ;; nop 0 .mmb st4 [r14] = r0 ld8 r14 = [r16], 8 nop 0 ;; .mib nop 0 mov b6 = r14 nop 0 .mbb ld8 r1 = [r16] nop 0 br.call.sptk.many b0 = b6 ;; .mmb mov r1 = r45 ld4 r40 = [r40] nop 0 ;; .mfb cmp4.eq p6, p7 = 0, r40 nop 0 (p6) br.cond.dpnt .L49 ;; .mfb cmp4.ne p6, p7 = 1, r40 nop 0 (p7) br.cond.dpnt .L50 ;; .mfb cmp4.ne p6, p7 = 2, r40 nop 0 (p7) br.cond.dpnt .L50 ;; .mii nop 0 cmp4.ne p6, p7 = 3, r40 ;; (p7) adds r14 = -184, r44 ;; .mfb (p7) ld1 r8 = [r14] nop 0 (p7) br.cond.dpnt .L49 .mii nop 0 cmp4.ne p6, p7 = 4, r40 ;; nop 0 .mmi (p7) adds r14 = -184, r44 ;; (p7) ld2 r14 = [r14] nop 0 ;; .mib nop 0 (p7) sxt2 r8 = r14 (p7) br.cond.dpnt .L49 .mii nop 0 cmp4.ne p6, p7 = 5, r40 ;; (p7) adds r14 = -184, r44 ;; .mfb (p7) ld2 r8 = [r14] nop 0 (p7) br.cond.dpnt .L49 .mii nop 0 cmp4.ne p6, p7 = 6, r40 ;; nop 0 .mmi (p7) adds r14 = -184, r44 ;; (p7) ld4 r14 = [r14] nop 0 ;; .mib nop 0 (p7) sxt4 r8 = r14 (p7) br.cond.dpnt .L49 .mii nop 0 cmp4.ne p6, p7 = 7, r40 ;; (p7) adds r14 = -184, r44 ;; .mfb (p7) ld4 r8 = [r14] nop 0 (p7) br.cond.dpnt .L49 .mfb cmp4.ne p6, p7 = 8, r40 nop 0 (p7) br.cond.dpnt .L54 ;; .mfb cmp4.ne p6, p7 = 9, r40 nop 0 (p7) br.cond.dpnt .L54 ;; .mfb cmp4.ne p6, p7 = 10, r40 nop 0 (p7) br.cond.dpnt .L54 ;; .mfb cmp4.ne p6, p7 = 11, r40 nop 0 (p7) br.cond.dpnt .L54 ;; .mii nop 0 cmp4.ne p6, p7 = 12, r40 ;; (p7) adds r14 = -184, r44 ;; .mfb (p7) ldfs f8 = [r14] nop 0 (p7) br.cond.dpnt .L49 .mii nop 0 cmp4.ne p6, p7 = 13, r40 ;; (p7) adds r14 = -184, r44 ;; .mfb (p7) ldfd f8 = [r14] nop 0 (p7) br.cond.dpnt .L49 .mfb cmp4.ne p6, p7 = 14, r40 nop 0 (p7) br.cond.dpnt .L54 ;; .mib nop 0 cmp4.ne p6, p7 = 15, r40 (p6) br.cond.dptk .L49 .mii nop 0 adds r16 = -192, r44 ;; nop 0 .mmi ld4 r14 = [r16] ;; nop 0 tbit.z p6, p7 = r14, 10 .mfb adds r14 = -144, r44 nop 0 (p6) br.cond.dpnt .L49 ;; .mmi ld8 r22 = [r14] ;; adds r14 = -1, r22 nop 0 ;; .mib nop 0 cmp.ltu p6, p7 = 31, r14 (p6) br.cond.dpnt .L49 .mmi ld8 r14 = [r41] ;; and r21 = 7, r14 and r24 = -8, r14 .mii nop 0 cmp.ltu p6, p7 = 8, r22 ;; nop 0 .mfb add r14 = r22, r21 nop 0 (p6) br.cond.dptk .L35 ;; .mib nop 0 cmp.ltu p6, p7 = 8, r14 (p6) br.cond.dptk .L37 .mfi shladd r16 = r14, 3, r0 nop 0 addl r14 = 2, r0 .mii ld8 r17 = [r24] shladd r18 = r21, 3, r0 ;; adds r16 = -1, r16 ;; .mii nop 0 sxt4 r16 = r16 ;; shl r14 = r14, r16 ;; .mmi adds r14 = -1, r14 ;; and r14 = r17, r14 nop 0 .mmi nop 0 ;; nop 0 shr r8 = r14, r18 .L49: .mii nop 0 mov ar.pfs = r43 mov b0 = r42 .mib nop 0 .label_state 1 .restore sp mov r12 = r44 br.ret.sptk.many b0 .L50: .body .copy_state 1 .mii nop 0 adds r14 = -184, r44 ;; nop 0 .mii ld1 r14 = [r14] nop 0 ;; sxt1 r8 = r14 .mii nop 0 mov ar.pfs = r43 mov b0 = r42 .mib nop 0 .label_state 2 .restore sp mov r12 = r44 br.ret.sptk.many b0 .L54: .body .copy_state 2 .mmb nop 0 adds r14 = -184, r44 nop 0 ;; .mii ld8 r8 = [r14] mov ar.pfs = r43 mov b0 = r42 .mib nop 0 .label_state 3 .restore sp mov r12 = r44 br.ret.sptk.many b0 .L35: .body .copy_state 3 .mib nop 0 cmp.ltu p6, p7 = 16, r22 (p6) br.cond.dptk .L39 ;; .mib nop 0 cmp.ltu p6, p7 = 16, r14 (p6) br.cond.dptk .L41 .mmi shladd r16 = r14, 3, r0 adds r14 = 8, r24 shladd r17 = r21, 2, r0 .mmb shladd r19 = r21, 3, r0 ld8 r18 = [r24] nop 0 ;; .mfi ld8 r20 = [r14] nop 0 addl r14 = 2, r0 .mii adds r16 = -65, r16 sub r17 = 32, r17 ;; sxt4 r16 = r16 .mii nop 0 sxt4 r17 = r17 shr r18 = r18, r19 ;; .mii nop 0 shl r14 = r14, r16 ;; adds r14 = -1, r14 ;; .mii nop 0 and r14 = r20, r14 ;; shl r16 = r14, r17 .mii nop 0 shr r9 = r14, r19 ;; shl r16 = r16, r17 ;; .mii or r8 = r16, r18 mov ar.pfs = r43 mov b0 = r42 .mib nop 0 .label_state 4 .restore sp mov r12 = r44 br.ret.sptk.many b0 .L37: .body .copy_state 4 .mfi shladd r16 = r14, 3, r0 nop 0 addl r14 = 2, r0 .mii ld8 r18 = [r24], 8 shladd r19 = r21, 3, r0 ;; adds r16 = -65, r16 .mii ld8 r20 = [r24] sub r17 = 64, r19 ;; sxt4 r16 = r16 .mii nop 0 sxt4 r17 = r17 ;; shl r14 = r14, r16 .mii nop 0 shr r18 = r18, r19 ;; adds r14 = -1, r14 ;; .mii nop 0 and r14 = r20, r14 ;; shl r14 = r14, r17 ;; .mii or r8 = r14, r18 mov ar.pfs = r43 mov b0 = r42 .mib nop 0 .label_state 5 .restore sp mov r12 = r44 br.ret.sptk.many b0 .L39: .body .copy_state 5 .mib nop 0 cmp.ltu p6, p7 = 24, r22 (p6) br.cond.dptk .L43 ;; .mib nop 0 cmp.ltu p6, p7 = 24, r14 (p6) br.cond.dptk .L45 .mmi shladd r16 = r14, 3, r0 adds r14 = 8, r24 shladd r17 = r21, 2, r0 .mmb shladd r20 = r21, 3, r0 ld8 r19 = [r24], 16 nop 0 ;; .mmi ld8 r18 = [r14] addl r14 = 2, r0 adds r16 = -65, r16 .mmb sub r17 = 32, r17 ld8 r21 = [r24] nop 0 ;; .mii nop 0 sxt4 r16 = r16 sxt4 r17 = r17 .mii nop 0 shr r19 = r19, r20 ;; shl r14 = r14, r16 .mii nop 0 shl r16 = r18, r17 shr r18 = r18, r20 ;; .mii nop 0 shl r16 = r16, r17 adds r14 = -1, r14 ;; .mii and r14 = r21, r14 or r8 = r16, r19 ;; shl r16 = r14, r17 .mii nop 0 shr r10 = r14, r20 ;; shl r16 = r16, r17 ;; .mii or r9 = r16, r18 mov ar.pfs = r43 mov b0 = r42 .mib nop 0 .label_state 6 .restore sp mov r12 = r44 br.ret.sptk.many b0 .L41: .body .copy_state 6 .mfi shladd r17 = r14, 3, r0 nop 0 adds r14 = 8, r24 .mfi ld8 r19 = [r24], 16 nop 0 shladd r16 = r21, 3, r0 ;; .mmi ld8 r18 = [r14] addl r14 = 2, r0 adds r17 = -129, r17 .mmi ld8 r21 = [r24] mov r20 = r16 sub r16 = 64, r16 ;; .mii nop 0 sxt4 r17 = r17 sxt4 r16 = r16 ;; .mii nop 0 shl r14 = r14, r17 shr r19 = r19, r20 .mii nop 0 shl r17 = r18, r16 shr r18 = r18, r20 ;; .mmi adds r14 = -1, r14 ;; and r14 = r21, r14 or r8 = r17, r19 ;; .mib nop 0 shl r14 = r14, r16 nop 0 ;; .mii or r9 = r14, r18 mov ar.pfs = r43 mov b0 = r42 .mib nop 0 .label_state 7 .restore sp mov r12 = r44 br.ret.sptk.many b0 .L45: .body .copy_state 7 .mmi shladd r17 = r14, 3, r0 adds r14 = 24, r24 shladd r16 = r21, 3, r0 .mmi adds r19 = 8, r24 ld8 r21 = [r24] adds r20 = 16, r24 ;; .mmi ld8 r23 = [r14] addl r14 = 2, r0 adds r17 = -129, r17 .mmi mov r18 = r16 ld8 r19 = [r19] sub r16 = 64, r16 ;; .mib nop 0 sxt4 r17 = r17 nop 0 .mii ld8 r20 = [r20] sxt4 r16 = r16 ;; shl r14 = r14, r17 .mii nop 0 shr r22 = r20, r18 shl r17 = r19, r16 .mii nop 0 shr r21 = r21, r18 shr r19 = r19, r18 .mii nop 0 shl r20 = r20, r16 ;; nop 0 .mmi adds r14 = -1, r14 ;; and r14 = r23, r14 or r8 = r17, r21 .mii nop 0 or r9 = r20, r19 ;; shl r14 = r14, r16 ;; .mii or r10 = r14, r22 mov ar.pfs = r43 mov b0 = r42 .mib nop 0 .label_state 8 .restore sp mov r12 = r44 br.ret.sptk.many b0 .L43: .body .copy_state 8 .mib nop 0 cmp.ltu p6, p7 = 32, r14 (p6) br.cond.dptk .L47 .mmi adds r16 = 24, r24 shladd r14 = r14, 3, r0 adds r18 = 8, r24 .mmi shladd r17 = r21, 2, r0 adds r19 = 16, r24 shladd r21 = r21, 3, r0 ;; .mmi nop 0 ld8 r23 = [r16] addl r16 = 2, r0 .mmi adds r14 = -65, r14 ld8 r20 = [r18] sub r17 = 32, r17 ;; .mii nop 0 sxt4 r14 = r14 sxt4 r17 = r17 .mmb ld8 r22 = [r19] ld8 r19 = [r24] nop 0 ;; .mii nop 0 shl r16 = r16, r14 shl r14 = r20, r17 .mii nop 0 shr r19 = r19, r21 shl r18 = r22, r17 ;; .mii nop 0 shl r14 = r14, r17 shr r20 = r20, r21 .mii adds r16 = -1, r16 shl r18 = r18, r17 shr r22 = r22, r21 ;; .mmi nop 0 and r16 = r23, r16 or r8 = r14, r19 .mmi or r9 = r18, r20 ;; nop 0 shl r14 = r16, r17 .mii nop 0 shr r11 = r16, r21 ;; shl r14 = r14, r17 ;; .mii or r10 = r14, r22 mov ar.pfs = r43 mov b0 = r42 .mib nop 0 .label_state 9 .restore sp mov r12 = r44 br.ret.sptk.many b0 .L47: .body .copy_state 9 .mmb shladd r17 = r14, 3, r0 adds r14 = 32, r24 nop 0 .mmi adds r19 = 8, r24 adds r20 = 16, r24 shladd r16 = r21, 3, r0 ;; .mfi ld8 r23 = [r14] nop 0 adds r14 = 24, r24 .mmi ld8 r21 = [r19] adds r17 = -129, r17 mov r18 = r16 .mfi ld8 r19 = [r20] nop 0 sub r16 = 64, r16 ;; .mmi ld8 r20 = [r14] addl r14 = 2, r0 sxt4 r17 = r17 .mii nop 0 sxt4 r16 = r16 ;; shl r22 = r21, r16 .mii nop 0 shr r21 = r21, r18 shl r14 = r14, r17 .mii ld8 r17 = [r24] shr r24 = r20, r18 shl r20 = r20, r16 ;; .mii nop 0 shr r17 = r17, r18 shr r18 = r19, r18 .mii adds r14 = -1, r14 shl r19 = r19, r16 ;; and r14 = r23, r14 .mmi nop 0 or r8 = r22, r17 or r10 = r20, r18 .mii nop 0 or r9 = r19, r21 ;; shl r14 = r14, r16 ;; .mii or r11 = r14, r24 mov ar.pfs = r43 mov b0 = r42 .mib nop 0 .restore sp mov r12 = r44 br.ret.sptk.many b0 .endp callback_receiver# .align 16 .global callback_get_receiver# .proc callback_get_receiver# callback_get_receiver: .prologue 2, 2 .mfi .vframe r2 mov r2 = r12 .body nop 0 addl r8 = @ltoff(@fptr(callback_receiver#)), gp ;; .mib ld8 r8 = [r8] .restore sp mov r12 = r2 br.ret.sptk.many b0 .endp callback_get_receiver# .ident "GCC: (GNU) 4.0.1" #if defined __linux__ || defined __FreeBSD__ || defined __FreeBSD_kernel__ || defined __DragonFly__ .section .note.GNU-stack,"",@progbits #endif libffcall-2.2/callback/vacall_r/vacall-mips64eb-macro.S0000664000000000000000000001204213530357113017617 00000000000000#include "asm-mips.h" .file 1 "vacall-mips64.c" .text .align 2 .align 3 .set nomips16 .set nomicromips .ent callback_receiver DECLARE_FUNCTION(callback_receiver) callback_receiver: .frame $fp,272,$31 .mask 0xd0070000,-72 .fmask 0x00000000,0 .set noreorder .set nomacro daddiu $sp,$sp,-272 sd $fp,192($sp) move $fp,$sp sd $4,208($fp) ld $4,8($2) ld $25,0($2) daddiu $12,$fp,208 sd $31,200($sp) sd $18,176($sp) sd $17,168($sp) sd $16,160($sp) sd $5,216($fp) sd $6,224($fp) sd $7,232($fp) sd $8,240($fp) sd $9,248($fp) sd $10,256($fp) sd $11,264($fp) sdc1 $f12,96($fp) sdc1 $f13,104($fp) sdc1 $f14,112($fp) sdc1 $f15,120($fp) sdc1 $f16,128($fp) sdc1 $f17,136($fp) sdc1 $f18,144($fp) sdc1 $f19,152($fp) swc1 $f12,60($fp) swc1 $f13,64($fp) swc1 $f14,68($fp) swc1 $f15,72($fp) swc1 $f16,76($fp) swc1 $f17,80($fp) swc1 $f18,84($fp) move $5,$fp swc1 $f19,88($fp) sd $12,24($fp) sw $0,0($fp) sd $0,32($fp) sw $0,40($fp) jalr $25 sw $0,56($fp) lw $12,40($fp) beq $12,$0,.L1 li $13,1 beq $12,$13,.L43 li $13,2 beq $12,$13,.L43 li $13,3 beq $12,$13,.L46 li $13,4 beq $12,$13,.L47 li $13,5 beq $12,$13,.L48 li $13,6 beq $12,$13,.L49 li $13,7 beq $12,$13,.L50 li $13,8 beq $12,$13,.L44 li $13,9 beq $12,$13,.L44 li $13,10 beq $12,$13,.L44 li $13,11 beq $12,$13,.L44 li $13,12 beq $12,$13,.L51 li $13,13 beq $12,$13,.L52 li $13,14 beq $12,$13,.L44 li $13,15 bnel $12,$13,.L58 move $sp,$fp lw $12,0($fp) andi $13,$12,0x400 beq $13,$0,.L1 andi $13,$12,0x4 beq $13,$0,.L19 ld $14,48($fp) ld $12,48($fp) li $13,1 beq $12,$13,.L53 li $13,2 beq $12,$13,.L54 li $13,4 beq $12,$13,.L55 li $13,8 bnel $12,$13,.L58 move $sp,$fp ld $12,32($fp) ld $2,0($12) .L1: move $sp,$fp .L58: ld $31,200($sp) ld $fp,192($sp) ld $18,176($sp) ld $17,168($sp) ld $16,160($sp) j $31 daddiu $sp,$sp,272 .align 3 .L43: move $sp,$fp ld $31,200($sp) ld $18,176($sp) ld $17,168($sp) ld $16,160($sp) lb $2,8($fp) ld $fp,192($sp) j $31 daddiu $sp,$sp,272 .align 3 .L44: b .L1 ld $2,8($fp) .align 3 .L46: b .L1 lbu $2,8($fp) .align 3 .L47: b .L1 lh $2,8($fp) .align 3 .L48: b .L1 lhu $2,8($fp) .align 3 .L49: b .L1 lw $2,8($fp) .align 3 .L51: b .L1 lwc1 $f0,8($fp) .align 3 .L50: b .L1 lwu $2,8($fp) .L52: b .L1 ldc1 $f0,8($fp) .L19: daddiu $13,$14,-1 sltu $13,$13,16 beql $13,$0,.L59 andi $13,$12,0x800 ld $13,32($fp) li $24,-8 sltu $25,$14,9 andi $15,$13,0x7 and $24,$13,$24 beq $25,$0,.L24 daddu $13,$14,$15 sltu $25,$13,9 sll $13,$13,0 beq $25,$0,.L25 subu $13,$0,$13 ld $25,0($24) sll $13,$13,3 li $24,-1 dsll $13,$24,$13 and $13,$13,$25 sll $15,$15,3 dsll $2,$13,$15 .L23: andi $13,$12,0x800 .L59: beql $13,$0,.L27 andi $12,$12,0x1000 li $13,4 beq $14,$13,.L56 li $13,8 beql $14,$13,.L57 ld $13,32($fp) andi $12,$12,0x1000 beql $12,$0,.L58 move $sp,$fp li $12,16 .L60: bnel $14,$12,.L58 move $sp,$fp ld $12,32($fp) ldc1 $f0,0($12) b .L1 ldc1 $f2,8($12) .L27: beq $12,$0,.L1 li $12,8 bne $14,$12,.L60 li $12,16 ld $13,32($fp) b .L1 ldc1 $f0,0($13) .L24: sltu $25,$13,17 beq $25,$0,.L26 sll $13,$13,0 ld $18,8($24) subu $13,$0,$13 move $16,$15 li $25,-1 subu $15,$0,$15 sll $13,$13,3 dsll $13,$25,$13 ld $17,0($24) sll $25,$15,2 addiu $24,$25,32 and $13,$13,$18 sll $15,$16,3 dsra $25,$13,$24 dsll $16,$17,$15 dsra $24,$25,$24 or $2,$16,$24 b .L23 dsll $3,$13,$15 .L53: ld $12,32($fp) b .L1 lbu $2,0($12) .L54: ld $12,32($fp) b .L1 lhu $2,0($12) .L26: ld $18,16($24) subu $13,$0,$13 ld $16,8($24) ld $17,0($24) subu $25,$0,$15 sll $13,$13,3 li $24,-1 dsll $24,$24,$13 sll $25,$25,3 sll $15,$15,3 addiu $25,$25,64 and $13,$24,$18 dsra $13,$13,$25 dsll $24,$17,$15 dsra $17,$16,$25 dsll $15,$16,$15 or $2,$24,$17 b .L23 or $3,$13,$15 .L56: ld $12,32($fp) b .L1 lwc1 $f0,0($12) .L55: ld $12,32($fp) b .L1 lwu $2,0($12) .L25: ld $16,8($24) ld $25,0($24) sll $13,$13,3 li $24,-1 dsll $13,$24,$13 subu $24,$0,$15 and $13,$13,$16 sll $24,$24,3 sll $15,$15,3 dsra $13,$13,$24 dsll $15,$25,$15 b .L23 or $2,$13,$15 .L57: andi $12,$12,0x1000 lwc1 $f0,0($13) beq $12,$0,.L1 lwc1 $f2,4($13) b .L1 ldc1 $f0,0($13) .set macro .set reorder .end callback_receiver .size callback_receiver, .-callback_receiver .align 2 .align 3 .globl callback_get_receiver .set nomips16 .set nomicromips .ent callback_get_receiver DECLARE_FUNCTION(callback_get_receiver) callback_get_receiver: .frame $fp,16,$31 .mask 0x40000000,-8 .fmask 0x00000000,0 .set noreorder .set nomacro lui $13,%hi(%neg(%gp_rel(callback_get_receiver))) daddu $13,$13,$25 daddiu $13,$13,%lo(%neg(%gp_rel(callback_get_receiver))) daddiu $sp,$sp,-16 ld $12,%got_page(callback_receiver)($13) sd $fp,8($sp) move $fp,$sp move $sp,$fp ld $fp,8($sp) daddiu $2,$12,%got_ofst(callback_receiver) j $31 daddiu $sp,$sp,16 .set macro .set reorder .end callback_get_receiver .size callback_get_receiver, .-callback_get_receiver libffcall-2.2/callback/vacall_r/vacall-mips64el-macro.S0000664000000000000000000001217313530357113017636 00000000000000#include "asm-mips.h" .file 1 "vacall-mips64.c" .text .align 2 .align 3 .set nomips16 .set nomicromips .ent callback_receiver DECLARE_FUNCTION(callback_receiver) callback_receiver: .frame $fp,272,$31 .mask 0xd0070000,-72 .fmask 0x00000000,0 .set noreorder .set nomacro daddiu $sp,$sp,-272 sd $fp,192($sp) move $fp,$sp sd $4,208($fp) ld $4,8($2) ld $25,0($2) daddiu $12,$fp,208 sd $31,200($sp) sd $18,176($sp) sd $17,168($sp) sd $16,160($sp) sd $5,216($fp) sd $6,224($fp) sd $7,232($fp) sd $8,240($fp) sd $9,248($fp) sd $10,256($fp) sd $11,264($fp) sdc1 $f12,96($fp) sdc1 $f13,104($fp) sdc1 $f14,112($fp) sdc1 $f15,120($fp) sdc1 $f16,128($fp) sdc1 $f17,136($fp) sdc1 $f18,144($fp) sdc1 $f19,152($fp) swc1 $f12,60($fp) swc1 $f13,64($fp) swc1 $f14,68($fp) swc1 $f15,72($fp) swc1 $f16,76($fp) swc1 $f17,80($fp) swc1 $f18,84($fp) move $5,$fp swc1 $f19,88($fp) sd $12,24($fp) sw $0,0($fp) sd $0,32($fp) sw $0,40($fp) jalr $25 sw $0,56($fp) lw $12,40($fp) beq $12,$0,.L1 li $13,1 beq $12,$13,.L43 li $13,2 beq $12,$13,.L43 li $13,3 beq $12,$13,.L46 li $13,4 beq $12,$13,.L47 li $13,5 beq $12,$13,.L48 li $13,6 beq $12,$13,.L49 li $13,7 beq $12,$13,.L50 li $13,8 beq $12,$13,.L44 li $13,9 beq $12,$13,.L44 li $13,10 beq $12,$13,.L44 li $13,11 beq $12,$13,.L44 li $13,12 beq $12,$13,.L51 li $13,13 beq $12,$13,.L52 li $13,14 beq $12,$13,.L44 li $13,15 bnel $12,$13,.L58 move $sp,$fp lw $12,0($fp) andi $13,$12,0x400 beq $13,$0,.L1 andi $13,$12,0x4 beq $13,$0,.L19 ld $14,48($fp) ld $12,48($fp) li $13,1 beq $12,$13,.L53 li $13,2 beq $12,$13,.L54 li $13,4 beq $12,$13,.L55 li $13,8 bnel $12,$13,.L58 move $sp,$fp ld $12,32($fp) ld $2,0($12) .L1: move $sp,$fp .L58: ld $31,200($sp) ld $fp,192($sp) ld $18,176($sp) ld $17,168($sp) ld $16,160($sp) j $31 daddiu $sp,$sp,272 .align 3 .L43: move $sp,$fp ld $31,200($sp) ld $18,176($sp) ld $17,168($sp) ld $16,160($sp) lb $2,8($fp) ld $fp,192($sp) j $31 daddiu $sp,$sp,272 .align 3 .L44: b .L1 ld $2,8($fp) .align 3 .L46: b .L1 lbu $2,8($fp) .align 3 .L47: b .L1 lh $2,8($fp) .align 3 .L48: b .L1 lhu $2,8($fp) .align 3 .L49: b .L1 lw $2,8($fp) .align 3 .L51: b .L1 lwc1 $f0,8($fp) .align 3 .L50: b .L1 lwu $2,8($fp) .L52: b .L1 ldc1 $f0,8($fp) .L19: daddiu $13,$14,-1 sltu $13,$13,16 beql $13,$0,.L59 andi $13,$12,0x800 ld $13,32($fp) li $15,-8 sltu $25,$14,9 andi $24,$13,0x7 and $15,$13,$15 beq $25,$0,.L24 daddu $13,$14,$24 sltu $25,$13,9 beq $25,$0,.L25 dsll $13,$13,3 daddiu $13,$13,-1 ld $25,0($15) sll $13,$13,0 li $15,2 dsll $13,$15,$13 daddiu $13,$13,-1 and $13,$13,$25 sll $24,$24,3 dsra $2,$13,$24 .L23: andi $13,$12,0x800 .L59: beql $13,$0,.L27 andi $12,$12,0x1000 li $13,4 beq $14,$13,.L56 li $13,8 beql $14,$13,.L57 ld $13,32($fp) andi $12,$12,0x1000 beql $12,$0,.L58 move $sp,$fp li $12,16 .L60: bnel $14,$12,.L58 move $sp,$fp ld $12,32($fp) ldc1 $f0,0($12) b .L1 ldc1 $f2,8($12) .L27: beq $12,$0,.L1 li $12,8 bne $14,$12,.L60 li $12,16 ld $13,32($fp) b .L1 ldc1 $f0,0($13) .L24: sltu $25,$13,17 beq $25,$0,.L26 dsll $13,$13,3 daddiu $13,$13,-65 ld $17,8($15) li $25,2 sll $13,$13,0 dsll $13,$25,$13 subu $25,$0,$24 sll $25,$25,2 ld $16,0($15) daddiu $13,$13,-1 addiu $15,$25,32 and $13,$13,$17 sll $24,$24,3 dsll $25,$13,$15 dsra $16,$16,$24 dsll $15,$25,$15 or $2,$16,$15 b .L23 dsra $3,$13,$24 .L53: ld $12,32($fp) b .L1 lbu $2,0($12) .L54: ld $12,32($fp) b .L1 lhu $2,0($12) .L26: daddiu $13,$13,-129 ld $16,8($15) ld $17,0($15) sll $13,$13,0 ld $18,16($15) li $15,2 subu $25,$0,$24 dsll $15,$15,$13 daddiu $15,$15,-1 sll $25,$25,3 sll $24,$24,3 addiu $25,$25,64 and $13,$15,$18 dsll $13,$13,$25 dsra $15,$17,$24 dsll $17,$16,$25 dsra $24,$16,$24 or $2,$15,$17 b .L23 or $3,$13,$24 .L56: ld $12,32($fp) b .L1 lwc1 $f0,0($12) .L55: ld $12,32($fp) b .L1 lwu $2,0($12) .L25: daddiu $13,$13,-65 li $25,2 sll $13,$13,0 ld $17,8($15) dsll $13,$25,$13 ld $25,0($15) daddiu $13,$13,-1 subu $16,$0,$24 and $15,$13,$17 sll $24,$24,3 sll $13,$16,3 dsll $13,$15,$13 dsra $24,$25,$24 b .L23 or $2,$13,$24 .L57: andi $12,$12,0x1000 lwc1 $f0,0($13) beq $12,$0,.L1 lwc1 $f2,4($13) b .L1 ldc1 $f0,0($13) .set macro .set reorder .end callback_receiver .size callback_receiver, .-callback_receiver .align 2 .align 3 .globl callback_get_receiver .set nomips16 .set nomicromips .ent callback_get_receiver DECLARE_FUNCTION(callback_get_receiver) callback_get_receiver: .frame $fp,16,$31 .mask 0x40000000,-8 .fmask 0x00000000,0 .set noreorder .set nomacro lui $13,%hi(%neg(%gp_rel(callback_get_receiver))) daddu $13,$13,$25 daddiu $13,$13,%lo(%neg(%gp_rel(callback_get_receiver))) daddiu $sp,$sp,-16 ld $12,%got_page(callback_receiver)($13) sd $fp,8($sp) move $fp,$sp move $sp,$fp ld $fp,8($sp) daddiu $2,$12,%got_ofst(callback_receiver) j $31 daddiu $sp,$sp,16 .set macro .set reorder .end callback_get_receiver .size callback_get_receiver, .-callback_get_receiver libffcall-2.2/callback/vacall_r/vacall-s390x-linux.s0000664000000000000000000000452713530357115017165 00000000000000 .file "vacall-s390x.c" .text .align 8 .type callback_receiver, @function callback_receiver: .LFB0: .cfi_startproc stmg %r10,%r15,80(%r15) .cfi_offset 10, -80 .cfi_offset 11, -72 .cfi_offset 12, -64 .cfi_offset 13, -56 .cfi_offset 14, -48 .cfi_offset 15, -40 aghi %r15,-320 .cfi_def_cfa_offset 480 lgr %r11,%r15 .cfi_def_cfa_register 11 lgr %r1,%r0 lhi %r14,0 stg %r2,224(%r11) lg %r10,0(%r1) st %r14,160(%r11) la %r14,480(%r11) stg %r14,184(%r11) lghi %r14,0 stg %r3,232(%r11) lg %r2,8(%r1) stg %r4,240(%r11) stg %r5,248(%r11) stg %r6,256(%r11) ste %f0,268(%r11) ste %f2,272(%r11) ste %f4,276(%r11) ste %f6,280(%r11) std %f0,288(%r11) std %f2,296(%r11) std %f4,304(%r11) std %f6,312(%r11) stg %r14,192(%r11) st %r14,200(%r11) st %r14,216(%r11) st %r14,264(%r11) la %r3,160(%r11) basr %r14,%r10 icm %r1,15,200(%r11) je .L1 chi %r1,1 je .L18 chi %r1,2 je .L21 chi %r1,3 je .L18 chi %r1,4 je .L22 chi %r1,5 je .L23 chi %r1,6 je .L24 chi %r1,7 je .L25 lr %r10,%r1 nill %r10,65533 chi %r10,8 je .L19 chi %r10,9 je .L19 chi %r1,12 je .L26 chi %r1,13 je .L27 chi %r1,14 je .L19 .L1: lg %r4,432(%r11) lmg %r10,%r15,400(%r11) .cfi_remember_state .cfi_restore 15 .cfi_restore 14 .cfi_restore 13 .cfi_restore 12 .cfi_restore 11 .cfi_restore 10 .cfi_def_cfa 15, 160 br %r4 .L18: .cfi_restore_state lg %r4,432(%r11) llgc %r2,168(%r11) lmg %r10,%r15,400(%r11) .cfi_remember_state .cfi_restore 10 .cfi_restore 11 .cfi_restore 12 .cfi_restore 13 .cfi_restore 14 .cfi_restore 15 .cfi_def_cfa 15, 160 br %r4 .L21: .cfi_restore_state icmh %r2,8,168(%r11) srag %r2,%r2,56 j .L1 .L19: lg %r2,168(%r11) j .L1 .L22: lgh %r2,168(%r11) j .L1 .L23: llgh %r2,168(%r11) j .L1 .L24: lgf %r2,168(%r11) j .L1 .L26: le %f0,168(%r11) j .L1 .L25: llgf %r2,168(%r11) j .L1 .L27: ld %f0,168(%r11) j .L1 .cfi_endproc .LFE0: .size callback_receiver, .-callback_receiver .align 8 .globl callback_get_receiver .type callback_get_receiver, @function callback_get_receiver: .LFB1: .cfi_startproc stg %r11,88(%r15) .cfi_offset 11, -72 lgr %r11,%r15 .cfi_def_cfa_register 11 larl %r2,callback_receiver lg %r11,88(%r11) .cfi_restore 11 .cfi_def_cfa_register 15 br %r14 .cfi_endproc .LFE1: .size callback_get_receiver, .-callback_get_receiver .ident "GCC: (GNU) 5.4.0" .section .note.GNU-stack,"",@progbits libffcall-2.2/callback/vacall_r/vacall-ia64-linux.s0000664000000000000000000002464513530357114017044 00000000000000 .file "vacall-ia64.c" .pred.safe_across_calls p1-p5,p16-p63 .text .align 16 .proc callback_receiver# callback_receiver: .prologue 14, 42 .spill 48 .mmb .save ar.pfs, r43 alloc r43 = ar.pfs, 8, 6, 2, 0 .vframe r44 mov r44 = r12 nop 0 .mmi adds r12 = -208, r12 adds r18 = 8, r15 mov r45 = r1 ;; .mmi adds r16 = -48, r44 adds r14 = -136, r44 adds r17 = -48, r44 .mmi adds r40 = -152, r44 adds r47 = -192, r44 adds r41 = -160, r44 ;; .mmb st8 [r14] = r8 adds r14 = -32, r44 nop 0 .mfi st8 [r16] = r32, 8 nop 0 .save rp, r42 mov r42 = b0 .body ;; .mfi st8 [r14] = r34 nop 0 adds r14 = -24, r44 .mmb st8 [r16] = r33 ld8 r16 = [r15] nop 0 ;; .mmi nop 0 st8 [r14] = r35 adds r14 = -16, r44 .mmi st8 [r41] = r0 ;; st8 [r14] = r36 adds r14 = -8, r44 .mmb st4 [r40] = r0 ld8 r46 = [r18] nop 0 ;; .mmi nop 0 st8 [r14] = r37 adds r14 = 8, r44 .mmi st8 [r44] = r38 ;; st8 [r14] = r39 adds r14 = -112, r44 .mmi st4 [r47] = r0 ;; stfd [r14] = f8 nop 0 .mmi adds r14 = -104, r44 ;; stfd [r14] = f9 adds r14 = -96, r44 ;; .mfi stfd [r14] = f10 nop 0 adds r14 = -88, r44 .mmi nop 0 ;; stfd [r14] = f11 nop 0 .mmi adds r14 = -80, r44 ;; stfd [r14] = f12 adds r14 = -72, r44 ;; .mfi stfd [r14] = f13 nop 0 adds r14 = -64, r44 .mmi nop 0 ;; stfd [r14] = f14 nop 0 .mmi adds r14 = -56, r44 ;; stfd [r14] = f15 adds r14 = -168, r44 ;; .mii st8 [r14] = r17 adds r14 = -128, r44 ;; nop 0 .mii st8 [r14] = r17 adds r14 = -120, r44 ;; nop 0 .mmb st4 [r14] = r0 ld8 r14 = [r16], 8 nop 0 ;; .mib nop 0 mov b6 = r14 nop 0 .mbb ld8 r1 = [r16] nop 0 br.call.sptk.many b0 = b6 ;; .mmb mov r1 = r45 ld4 r40 = [r40] nop 0 ;; .mfb cmp4.eq p6, p7 = 0, r40 nop 0 (p6) br.cond.dpnt .L49 ;; .mfb cmp4.ne p6, p7 = 1, r40 nop 0 (p7) br.cond.dpnt .L50 ;; .mfb cmp4.ne p6, p7 = 2, r40 nop 0 (p7) br.cond.dpnt .L50 ;; .mii nop 0 cmp4.ne p6, p7 = 3, r40 ;; (p7) adds r14 = -184, r44 ;; .mfb (p7) ld1 r8 = [r14] nop 0 (p7) br.cond.dpnt .L49 .mii nop 0 cmp4.ne p6, p7 = 4, r40 ;; nop 0 .mmi (p7) adds r14 = -184, r44 ;; (p7) ld2 r14 = [r14] nop 0 ;; .mib nop 0 (p7) sxt2 r8 = r14 (p7) br.cond.dpnt .L49 .mii nop 0 cmp4.ne p6, p7 = 5, r40 ;; (p7) adds r14 = -184, r44 ;; .mfb (p7) ld2 r8 = [r14] nop 0 (p7) br.cond.dpnt .L49 .mii nop 0 cmp4.ne p6, p7 = 6, r40 ;; nop 0 .mmi (p7) adds r14 = -184, r44 ;; (p7) ld4 r14 = [r14] nop 0 ;; .mib nop 0 (p7) sxt4 r8 = r14 (p7) br.cond.dpnt .L49 .mii nop 0 cmp4.ne p6, p7 = 7, r40 ;; (p7) adds r14 = -184, r44 ;; .mfb (p7) ld4 r8 = [r14] nop 0 (p7) br.cond.dpnt .L49 .mfb cmp4.ne p6, p7 = 8, r40 nop 0 (p7) br.cond.dpnt .L54 ;; .mfb cmp4.ne p6, p7 = 9, r40 nop 0 (p7) br.cond.dpnt .L54 ;; .mfb cmp4.ne p6, p7 = 10, r40 nop 0 (p7) br.cond.dpnt .L54 ;; .mfb cmp4.ne p6, p7 = 11, r40 nop 0 (p7) br.cond.dpnt .L54 ;; .mii nop 0 cmp4.ne p6, p7 = 12, r40 ;; (p7) adds r14 = -184, r44 ;; .mfb (p7) ldfs f8 = [r14] nop 0 (p7) br.cond.dpnt .L49 .mii nop 0 cmp4.ne p6, p7 = 13, r40 ;; (p7) adds r14 = -184, r44 ;; .mfb (p7) ldfd f8 = [r14] nop 0 (p7) br.cond.dpnt .L49 .mfb cmp4.ne p6, p7 = 14, r40 nop 0 (p7) br.cond.dpnt .L54 ;; .mib nop 0 cmp4.ne p6, p7 = 15, r40 (p6) br.cond.dptk .L49 .mii nop 0 adds r16 = -192, r44 ;; nop 0 .mmi ld4 r14 = [r16] ;; nop 0 tbit.z p6, p7 = r14, 10 .mfb adds r14 = -144, r44 nop 0 (p6) br.cond.dpnt .L49 ;; .mmi ld8 r22 = [r14] ;; adds r14 = -1, r22 nop 0 ;; .mib nop 0 cmp.ltu p6, p7 = 31, r14 (p6) br.cond.dpnt .L49 .mmi ld8 r14 = [r41] ;; and r21 = 7, r14 and r24 = -8, r14 .mii nop 0 cmp.ltu p6, p7 = 8, r22 ;; nop 0 .mfb add r14 = r22, r21 nop 0 (p6) br.cond.dptk .L35 ;; .mib nop 0 cmp.ltu p6, p7 = 8, r14 (p6) br.cond.dptk .L37 .mfi shladd r16 = r14, 3, r0 nop 0 addl r14 = 2, r0 .mii ld8 r17 = [r24] shladd r18 = r21, 3, r0 ;; adds r16 = -1, r16 ;; .mii nop 0 sxt4 r16 = r16 ;; shl r14 = r14, r16 ;; .mmi adds r14 = -1, r14 ;; and r14 = r17, r14 nop 0 .mmi nop 0 ;; nop 0 shr r8 = r14, r18 .L49: .mii nop 0 mov ar.pfs = r43 mov b0 = r42 .mib nop 0 .label_state 1 .restore sp mov r12 = r44 br.ret.sptk.many b0 .L50: .body .copy_state 1 .mii nop 0 adds r14 = -184, r44 ;; nop 0 .mii ld1 r14 = [r14] nop 0 ;; sxt1 r8 = r14 .mii nop 0 mov ar.pfs = r43 mov b0 = r42 .mib nop 0 .label_state 2 .restore sp mov r12 = r44 br.ret.sptk.many b0 .L54: .body .copy_state 2 .mmb nop 0 adds r14 = -184, r44 nop 0 ;; .mii ld8 r8 = [r14] mov ar.pfs = r43 mov b0 = r42 .mib nop 0 .label_state 3 .restore sp mov r12 = r44 br.ret.sptk.many b0 .L35: .body .copy_state 3 .mib nop 0 cmp.ltu p6, p7 = 16, r22 (p6) br.cond.dptk .L39 ;; .mib nop 0 cmp.ltu p6, p7 = 16, r14 (p6) br.cond.dptk .L41 .mmi shladd r16 = r14, 3, r0 adds r14 = 8, r24 shladd r17 = r21, 2, r0 .mmb shladd r19 = r21, 3, r0 ld8 r18 = [r24] nop 0 ;; .mfi ld8 r20 = [r14] nop 0 addl r14 = 2, r0 .mii adds r16 = -65, r16 sub r17 = 32, r17 ;; sxt4 r16 = r16 .mii nop 0 sxt4 r17 = r17 shr r18 = r18, r19 ;; .mii nop 0 shl r14 = r14, r16 ;; adds r14 = -1, r14 ;; .mii nop 0 and r14 = r20, r14 ;; shl r16 = r14, r17 .mii nop 0 shr r9 = r14, r19 ;; shl r16 = r16, r17 ;; .mii or r8 = r16, r18 mov ar.pfs = r43 mov b0 = r42 .mib nop 0 .label_state 4 .restore sp mov r12 = r44 br.ret.sptk.many b0 .L37: .body .copy_state 4 .mfi shladd r16 = r14, 3, r0 nop 0 addl r14 = 2, r0 .mii ld8 r18 = [r24], 8 shladd r19 = r21, 3, r0 ;; adds r16 = -65, r16 .mii ld8 r20 = [r24] sub r17 = 64, r19 ;; sxt4 r16 = r16 .mii nop 0 sxt4 r17 = r17 ;; shl r14 = r14, r16 .mii nop 0 shr r18 = r18, r19 ;; adds r14 = -1, r14 ;; .mii nop 0 and r14 = r20, r14 ;; shl r14 = r14, r17 ;; .mii or r8 = r14, r18 mov ar.pfs = r43 mov b0 = r42 .mib nop 0 .label_state 5 .restore sp mov r12 = r44 br.ret.sptk.many b0 .L39: .body .copy_state 5 .mib nop 0 cmp.ltu p6, p7 = 24, r22 (p6) br.cond.dptk .L43 ;; .mib nop 0 cmp.ltu p6, p7 = 24, r14 (p6) br.cond.dptk .L45 .mmi shladd r16 = r14, 3, r0 adds r14 = 8, r24 shladd r17 = r21, 2, r0 .mmb shladd r20 = r21, 3, r0 ld8 r19 = [r24], 16 nop 0 ;; .mmi ld8 r18 = [r14] addl r14 = 2, r0 adds r16 = -65, r16 .mmb sub r17 = 32, r17 ld8 r21 = [r24] nop 0 ;; .mii nop 0 sxt4 r16 = r16 sxt4 r17 = r17 .mii nop 0 shr r19 = r19, r20 ;; shl r14 = r14, r16 .mii nop 0 shl r16 = r18, r17 shr r18 = r18, r20 ;; .mii nop 0 shl r16 = r16, r17 adds r14 = -1, r14 ;; .mii and r14 = r21, r14 or r8 = r16, r19 ;; shl r16 = r14, r17 .mii nop 0 shr r10 = r14, r20 ;; shl r16 = r16, r17 ;; .mii or r9 = r16, r18 mov ar.pfs = r43 mov b0 = r42 .mib nop 0 .label_state 6 .restore sp mov r12 = r44 br.ret.sptk.many b0 .L41: .body .copy_state 6 .mfi shladd r17 = r14, 3, r0 nop 0 adds r14 = 8, r24 .mfi ld8 r19 = [r24], 16 nop 0 shladd r16 = r21, 3, r0 ;; .mmi ld8 r18 = [r14] addl r14 = 2, r0 adds r17 = -129, r17 .mmi ld8 r21 = [r24] mov r20 = r16 sub r16 = 64, r16 ;; .mii nop 0 sxt4 r17 = r17 sxt4 r16 = r16 ;; .mii nop 0 shl r14 = r14, r17 shr r19 = r19, r20 .mii nop 0 shl r17 = r18, r16 shr r18 = r18, r20 ;; .mmi adds r14 = -1, r14 ;; and r14 = r21, r14 or r8 = r17, r19 ;; .mib nop 0 shl r14 = r14, r16 nop 0 ;; .mii or r9 = r14, r18 mov ar.pfs = r43 mov b0 = r42 .mib nop 0 .label_state 7 .restore sp mov r12 = r44 br.ret.sptk.many b0 .L45: .body .copy_state 7 .mmi shladd r17 = r14, 3, r0 adds r14 = 24, r24 shladd r16 = r21, 3, r0 .mmi adds r19 = 8, r24 ld8 r21 = [r24] adds r20 = 16, r24 ;; .mmi ld8 r23 = [r14] addl r14 = 2, r0 adds r17 = -129, r17 .mmi mov r18 = r16 ld8 r19 = [r19] sub r16 = 64, r16 ;; .mib nop 0 sxt4 r17 = r17 nop 0 .mii ld8 r20 = [r20] sxt4 r16 = r16 ;; shl r14 = r14, r17 .mii nop 0 shr r22 = r20, r18 shl r17 = r19, r16 .mii nop 0 shr r21 = r21, r18 shr r19 = r19, r18 .mii nop 0 shl r20 = r20, r16 ;; nop 0 .mmi adds r14 = -1, r14 ;; and r14 = r23, r14 or r8 = r17, r21 .mii nop 0 or r9 = r20, r19 ;; shl r14 = r14, r16 ;; .mii or r10 = r14, r22 mov ar.pfs = r43 mov b0 = r42 .mib nop 0 .label_state 8 .restore sp mov r12 = r44 br.ret.sptk.many b0 .L43: .body .copy_state 8 .mib nop 0 cmp.ltu p6, p7 = 32, r14 (p6) br.cond.dptk .L47 .mmi adds r16 = 24, r24 shladd r14 = r14, 3, r0 adds r18 = 8, r24 .mmi shladd r17 = r21, 2, r0 adds r19 = 16, r24 shladd r21 = r21, 3, r0 ;; .mmi nop 0 ld8 r23 = [r16] addl r16 = 2, r0 .mmi adds r14 = -65, r14 ld8 r20 = [r18] sub r17 = 32, r17 ;; .mii nop 0 sxt4 r14 = r14 sxt4 r17 = r17 .mmb ld8 r22 = [r19] ld8 r19 = [r24] nop 0 ;; .mii nop 0 shl r16 = r16, r14 shl r14 = r20, r17 .mii nop 0 shr r19 = r19, r21 shl r18 = r22, r17 ;; .mii nop 0 shl r14 = r14, r17 shr r20 = r20, r21 .mii adds r16 = -1, r16 shl r18 = r18, r17 shr r22 = r22, r21 ;; .mmi nop 0 and r16 = r23, r16 or r8 = r14, r19 .mmi or r9 = r18, r20 ;; nop 0 shl r14 = r16, r17 .mii nop 0 shr r11 = r16, r21 ;; shl r14 = r14, r17 ;; .mii or r10 = r14, r22 mov ar.pfs = r43 mov b0 = r42 .mib nop 0 .label_state 9 .restore sp mov r12 = r44 br.ret.sptk.many b0 .L47: .body .copy_state 9 .mmb shladd r17 = r14, 3, r0 adds r14 = 32, r24 nop 0 .mmi adds r19 = 8, r24 adds r20 = 16, r24 shladd r16 = r21, 3, r0 ;; .mfi ld8 r23 = [r14] nop 0 adds r14 = 24, r24 .mmi ld8 r21 = [r19] adds r17 = -129, r17 mov r18 = r16 .mfi ld8 r19 = [r20] nop 0 sub r16 = 64, r16 ;; .mmi ld8 r20 = [r14] addl r14 = 2, r0 sxt4 r17 = r17 .mii nop 0 sxt4 r16 = r16 ;; shl r22 = r21, r16 .mii nop 0 shr r21 = r21, r18 shl r14 = r14, r17 .mii ld8 r17 = [r24] shr r24 = r20, r18 shl r20 = r20, r16 ;; .mii nop 0 shr r17 = r17, r18 shr r18 = r19, r18 .mii adds r14 = -1, r14 shl r19 = r19, r16 ;; and r14 = r23, r14 .mmi nop 0 or r8 = r22, r17 or r10 = r20, r18 .mii nop 0 or r9 = r19, r21 ;; shl r14 = r14, r16 ;; .mii or r11 = r14, r24 mov ar.pfs = r43 mov b0 = r42 .mib nop 0 .restore sp mov r12 = r44 br.ret.sptk.many b0 .endp callback_receiver# .align 16 .global callback_get_receiver# .proc callback_get_receiver# callback_get_receiver: .prologue 2, 2 .mfi .vframe r2 mov r2 = r12 .body nop 0 addl r8 = @ltoff(@fptr(callback_receiver#)), gp ;; .mib ld8 r8 = [r8] .restore sp mov r12 = r2 br.ret.sptk.many b0 .endp callback_get_receiver# .ident "GCC: (GNU) 4.0.1" libffcall-2.2/callback/vacall_r/vacall-x86_64-x32-linux.s0000664000000000000000000001207413530357114017642 00000000000000 .file "vacall-x86_64.c" .section .text.unlikely,"ax",@progbits .LCOLDB0: .text .LHOTB0: .p2align 4,,15 .type callback_receiver, @function callback_receiver: .LFB0: pushq %rbp .LCFI0: movl %esp, %ebp .LCFI1: pushq %r14 pushq %r12 subl $176, %esp .LCFI2: movq %rdi, -72(%ebp) leal 16(%rbp), %edi movq %rcx, -48(%ebp) movl (%r10d), %ecx movsd %xmm0, -144(%ebp) movl %edi, -168(%ebp) movl 4(%r10d), %edi movsd %xmm1, -136(%ebp) movq %rsi, -64(%ebp) movsd %xmm2, -128(%ebp) leal -192(%rbp), %esi movq %rdx, -56(%ebp) movsd %xmm3, -120(%ebp) movq %r8, -40(%ebp) movsd %xmm4, -112(%ebp) movq %r9, -32(%ebp) movsd %xmm5, -104(%ebp) movsd %xmm6, -96(%ebp) movl $0, -192(%ebp) movsd %xmm7, -88(%ebp) movl $0, -164(%ebp) movl $0, -160(%ebp) movl $0, -80(%ebp) movl $0, -152(%ebp) call *%rcx movl -160(%ebp), %ecx testl %ecx, %ecx je .L1 cmpl $1, %ecx je .L27 cmpl $2, %ecx je .L27 cmpl $3, %ecx je .L33 cmpl $4, %ecx je .L34 cmpl $5, %ecx je .L35 cmpl $6, %ecx je .L28 cmpl $7, %ecx je .L30 cmpl $8, %ecx je .L28 cmpl $9, %ecx je .L30 cmpl $10, %ecx je .L31 cmpl $11, %ecx je .L31 cmpl $12, %ecx je .L36 cmpl $13, %ecx je .L37 cmpl $14, %ecx je .L30 cmpl $15, %ecx jne .L1 testb $4, -191(%ebp) je .L1 movl -156(%ebp), %ecx leal -1(%rcx), %esi cmpl $15, %esi ja .L1 movl -164(%ebp), %esi movl %esi, %edi andl $7, %esi andl $-8, %edi cmpl $8, %ecx leal (%rcx,%rsi), %r11d ja .L17 cmpl $8, %r11d ja .L18 leal -1(,%r11,8), %ecx movl $2, %r8d salq %cl, %r8 movq %r8, %rcx subq $1, %rcx andq (%edi), %rcx movq %rcx, %rdi leal 0(,%rsi,8), %ecx sarq %cl, %rdi movq %rdi, %rax .L1: addl $176, %esp popq %r12 popq %r14 popq %rbp .LCFI3: ret .p2align 4,,10 .p2align 3 .L27: .LCFI4: movsbq -184(%ebp), %rax addl $176, %esp popq %r12 popq %r14 popq %rbp .LCFI5: ret .p2align 4,,10 .p2align 3 .L28: .LCFI6: movslq -184(%ebp), %rax jmp .L1 .p2align 4,,10 .p2align 3 .L33: movzbl -184(%ebp), %eax jmp .L1 .p2align 4,,10 .p2align 3 .L34: movswq -184(%ebp), %rax jmp .L1 .p2align 4,,10 .p2align 3 .L30: movl -184(%ebp), %eax jmp .L1 .p2align 4,,10 .p2align 3 .L35: movzwl -184(%ebp), %eax jmp .L1 .p2align 4,,10 .p2align 3 .L36: movss -184(%ebp), %xmm0 jmp .L1 .p2align 4,,10 .p2align 3 .L31: movq -184(%ebp), %rax jmp .L1 .L37: movsd -184(%ebp), %xmm0 jmp .L1 .L17: cmpl $16, %r11d leal 0(,%rsi,8), %r9d jbe .L38 negl %esi movq 8(%edi), %r8 movl %r9d, %ecx leal 64(,%rsi,8), %r12d movq (%edi), %rsi movq %r8, %r14 sarq %cl, %rsi movl %r12d, %ecx salq %cl, %r14 leal -129(,%r11,8), %ecx orq %r14, %rsi movq %rsi, %rax movl $2, %esi salq %cl, %rsi movl %r12d, %ecx subq $1, %rsi andq 16(%edi), %rsi salq %cl, %rsi movl %r9d, %ecx sarq %cl, %r8 orq %r8, %rsi movq %rsi, %rdx jmp .L1 .L18: leal -65(,%r11,8), %ecx movl $2, %r8d salq %cl, %r8 movl %esi, %ecx subq $1, %r8 andq 8(%edi), %r8 negl %ecx leal 64(,%rcx,8), %ecx movq (%edi), %rdi salq %cl, %r8 leal 0(,%rsi,8), %ecx sarq %cl, %rdi orq %rdi, %r8 movq %r8, %rax jmp .L1 .L38: leal -65(,%r11,8), %ecx movl $2, %r8d movq (%edi), %r11 imull $-4, %esi, %esi salq %cl, %r8 movl %r9d, %ecx subq $1, %r8 andq 8(%edi), %r8 sarq %cl, %r11 addl $32, %esi movl %esi, %ecx movq %r8, %rdi salq %cl, %rdi salq %cl, %rdi movl %r9d, %ecx orq %rdi, %r11 sarq %cl, %r8 movq %r11, %rax movq %r8, %rdx jmp .L1 .LFE0: .size callback_receiver, .-callback_receiver .section .text.unlikely .LCOLDE0: .text .LHOTE0: .section .text.unlikely .LCOLDB1: .text .LHOTB1: .p2align 4,,15 .globl callback_get_receiver .type callback_get_receiver, @function callback_get_receiver: .LFB1: pushq %rbp .LCFI7: leal callback_receiver(%rip), %eax movl %esp, %ebp .LCFI8: popq %rbp .LCFI9: ret .LFE1: .size callback_get_receiver, .-callback_get_receiver .section .text.unlikely .LCOLDE1: .text .LHOTE1: .section .eh_frame,"a",@progbits .Lframe1: .long .LECIE1-.LSCIE1 .LSCIE1: .long 0 .byte 0x3 .string "zR" .uleb128 0x1 .sleb128 -8 .uleb128 0x10 .uleb128 0x1 .byte 0x1b .byte 0xc .uleb128 0x7 .uleb128 0x8 .byte 0x90 .uleb128 0x1 .align 4 .LECIE1: .LSFDE1: .long .LEFDE1-.LASFDE1 .LASFDE1: .long .LASFDE1-.Lframe1 .long .LFB0-. .long .LFE0-.LFB0 .uleb128 0 .byte 0x4 .long .LCFI0-.LFB0 .byte 0xe .uleb128 0x10 .byte 0x86 .uleb128 0x2 .byte 0x4 .long .LCFI1-.LCFI0 .byte 0xd .uleb128 0x6 .byte 0x4 .long .LCFI2-.LCFI1 .byte 0x8e .uleb128 0x3 .byte 0x8c .uleb128 0x4 .byte 0x4 .long .LCFI3-.LCFI2 .byte 0xa .byte 0xc .uleb128 0x7 .uleb128 0x8 .byte 0x4 .long .LCFI4-.LCFI3 .byte 0xb .byte 0x4 .long .LCFI5-.LCFI4 .byte 0xa .byte 0xc .uleb128 0x7 .uleb128 0x8 .byte 0x4 .long .LCFI6-.LCFI5 .byte 0xb .align 4 .LEFDE1: .LSFDE3: .long .LEFDE3-.LASFDE3 .LASFDE3: .long .LASFDE3-.Lframe1 .long .LFB1-. .long .LFE1-.LFB1 .uleb128 0 .byte 0x4 .long .LCFI7-.LFB1 .byte 0xe .uleb128 0x10 .byte 0x86 .uleb128 0x2 .byte 0x4 .long .LCFI8-.LCFI7 .byte 0xd .uleb128 0x6 .byte 0x4 .long .LCFI9-.LCFI8 .byte 0xc .uleb128 0x7 .uleb128 0x8 .align 4 .LEFDE3: .ident "GCC: (GNU) 5.4.0" .section .note.GNU-stack,"",@progbits libffcall-2.2/callback/vacall_r/vacall-mipseb-macro.S0000664000000000000000000001021113530357113017441 00000000000000#include "asm-mips.h" .file 1 "vacall-mips.c" .text .align 2 .set nomips16 .set nomicromips .ent callback_receiver DECLARE_FUNCTION(callback_receiver) callback_receiver: .frame $fp,104,$31 .mask 0xc0000000,-4 .fmask 0x00000000,0 .set noreorder .cpload $25 .set reorder addiu $sp,$sp,-104 sw $fp,96($sp) move $fp,$sp sw $31,100($sp) lw $25,0($2) sw $4,104($fp) lw $4,4($2) sw $5,108($fp) addiu $5,$fp,104 sw $5,40($fp) addiu $5,$fp,120 sw $5,56($fp) .cprestore 16 sw $6,112($fp) sw $7,116($fp) sdc1 $f12,80($fp) sdc1 $f14,88($fp) swc1 $f12,68($fp) swc1 $f14,72($fp) sw $0,24($fp) sw $0,44($fp) sw $0,48($fp) sw $0,60($fp) sw $0,64($fp) addiu $5,$fp,24 jal $25 lw $4,48($fp) .set noreorder .set nomacro beq $4,$0,$L1 li $5,1 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,$L23 li $5,2 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,$L23 li $5,3 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,$L29 li $5,4 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,$L30 li $5,5 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,$L31 li $5,6 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,$L27 li $5,7 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,$L27 li $5,8 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,$L27 li $5,9 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,$L27 addiu $5,$4,-10 .set macro .set reorder sltu $5,$5,2 .set noreorder .set nomacro bne $5,$0,$L32 li $5,12 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,$L33 li $5,13 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,$L34 li $5,14 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,$L27 li $5,15 .set macro .set reorder .set noreorder .set nomacro bnel $4,$5,$L37 move $sp,$fp .set macro .set reorder lw $4,24($fp) andi $4,$4,0x2 .set noreorder .set nomacro beql $4,$0,$L38 lw $2,44($fp) .set macro .set reorder lw $4,52($fp) li $5,1 .set noreorder .set nomacro beql $4,$5,$L35 lw $4,44($fp) .set macro .set reorder li $5,2 .set noreorder .set nomacro beq $4,$5,$L36 li $5,4 .set macro .set reorder .set noreorder .set nomacro bnel $4,$5,$L37 move $sp,$fp .set macro .set reorder lw $4,44($fp) lw $2,0($4) $L1: $L38: move $sp,$fp $L37: lw $31,100($sp) lw $fp,96($sp) .set noreorder .set nomacro j $31 addiu $sp,$sp,104 .set macro .set reorder $L23: move $sp,$fp lw $31,100($sp) lb $2,32($fp) lw $fp,96($sp) .set noreorder .set nomacro j $31 addiu $sp,$sp,104 .set macro .set reorder $L27: move $sp,$fp lw $31,100($sp) lw $2,32($fp) lw $fp,96($sp) .set noreorder .set nomacro j $31 addiu $sp,$sp,104 .set macro .set reorder $L29: .set noreorder .set nomacro b $L1 lbu $2,32($fp) .set macro .set reorder $L30: .set noreorder .set nomacro b $L1 lh $2,32($fp) .set macro .set reorder $L31: .set noreorder .set nomacro b $L1 lhu $2,32($fp) .set macro .set reorder $L34: .set noreorder .set nomacro b $L1 ldc1 $f0,32($fp) .set macro .set reorder $L32: lw $2,32($fp) .set noreorder .set nomacro b $L1 lw $3,36($fp) .set macro .set reorder $L33: .set noreorder .set nomacro b $L1 lwc1 $f0,32($fp) .set macro .set reorder $L35: .set noreorder .set nomacro b $L1 lbu $2,0($4) .set macro .set reorder $L36: lw $4,44($fp) .set noreorder .set nomacro b $L1 lhu $2,0($4) .set macro .set reorder .end callback_receiver .size callback_receiver, .-callback_receiver .align 2 .globl callback_get_receiver .set nomips16 .set nomicromips .ent callback_get_receiver DECLARE_FUNCTION(callback_get_receiver) callback_get_receiver: .frame $fp,8,$31 .mask 0x40000000,-4 .fmask 0x00000000,0 .set noreorder .cpload $25 .set reorder addiu $sp,$sp,-8 sw $fp,4($sp) move $fp,$sp move $sp,$fp lw $fp,4($sp) la $2,callback_receiver .set noreorder .set nomacro j $31 addiu $sp,$sp,8 .set macro .set reorder .end callback_get_receiver .size callback_get_receiver, .-callback_get_receiver libffcall-2.2/callback/vacall_r/vacall-armhf-macro.S0000664000000000000000000000620313530357114017266 00000000000000#include "asm-arm.h" .arch armv6 .eabi_attribute 28, 1 .eabi_attribute 20, 1 .eabi_attribute 21, 1 .eabi_attribute 23, 3 .eabi_attribute 24, 1 .eabi_attribute 25, 1 .eabi_attribute 26, 1 .eabi_attribute 30, 2 .eabi_attribute 34, 1 .eabi_attribute 18, 4 .text .align 2 .global C(callback_receiver) .syntax unified .arm .fpu vfpv3-d16 .type callback_receiver, %function FUNBEGIN(callback_receiver) // args = 28, pretend = 0, frame = 176 // frame_needed = 1, uses_anonymous_args = 0 push {fp, lr} add fp, sp, $4 sub sp, sp, $176 ldr r2, [fp, $4] mov r3, $0 add lr, fp, $28 add ip, fp, $44 vstr.32 s0, [fp, $-136] vstr.32 s1, [fp, $-132] vstr.32 s2, [fp, $-128] vstr.32 s3, [fp, $-124] vstr.32 s4, [fp, $-120] vstr.32 s5, [fp, $-116] vstr.32 s6, [fp, $-112] vstr.32 s7, [fp, $-108] vstr.32 s8, [fp, $-104] vstr.32 s9, [fp, $-100] vstr.32 s10, [fp, $-96] vstr.32 s11, [fp, $-92] vstr.32 s12, [fp, $-88] vstr.32 s13, [fp, $-84] vstr.32 s14, [fp, $-80] vstr.32 s15, [fp, $-76] vstr.64 d0, [fp, $-68] vstr.64 d1, [fp, $-60] vstr.64 d2, [fp, $-52] vstr.64 d3, [fp, $-44] vstr.64 d4, [fp, $-36] vstr.64 d5, [fp, $-28] vstr.64 d6, [fp, $-20] vstr.64 d7, [fp, $-12] str r3, [fp, $-180] str r3, [fp, $-144] str r3, [fp, $-140] str r3, [fp, $-160] strb r3, [fp, $-156] sub r1, fp, $180 str lr, [fp, $-148] ldr r3, [r2] str ip, [fp, $-164] ldr r0, [r2, $4] blx r3 ldrb r3, [fp, $-156] // zero_extendqisi2 cmp r3, $0 beq L(1) cmp r3, $1 beq L(25) cmp r3, $2 ldrsbeq r0, [fp, $-172] beq L(1) cmp r3, $3 beq L(25) cmp r3, $4 ldrsheq r0, [fp, $-172] beq L(1) cmp r3, $5 ldrheq r0, [fp, $-172] beq L(1) cmp r3, $6 beq L(27) cmp r3, $7 beq L(27) cmp r3, $8 beq L(27) cmp r3, $9 beq L(27) sub r2, r3, $10 cmp r2, $1 bls L(29) cmp r3, $12 vldreq.32 s0, [fp, $-172] beq L(1) cmp r3, $13 beq L(30) cmp r3, $14 beq L(27) cmp r3, $15 bne L(1) ldr r3, [fp, $-180] tst r3, $1024 beq L(1) ldr r3, [fp, $-152] cmp r3, $1 beq L(31) cmp r3, $2 ldr r3, [fp, $-160] ldrheq r0, [r3] ldrne r0, [r3] L(1): sub sp, fp, $4 // sp needed pop {fp, pc} L(25): ldrb r0, [fp, $-172] // zero_extendqisi2 sub sp, fp, $4 // sp needed pop {fp, pc} L(27): ldr r0, [fp, $-172] sub sp, fp, $4 // sp needed pop {fp, pc} L(30): vldr.64 d0, [fp, $-172] b L(1) L(29): ldr r0, [fp, $-172] ldr r1, [fp, $-168] b L(1) L(31): ldr r3, [fp, $-160] ldrb r0, [r3] // zero_extendqisi2 b L(1) FUNEND(callback_receiver) .align 2 .global C(callback_get_receiver) .syntax unified .arm .fpu vfpv3-d16 .type callback_get_receiver, %function FUNBEGIN(callback_get_receiver) // args = 0, pretend = 0, frame = 0 // frame_needed = 1, uses_anonymous_args = 0 // link register save eliminated. ldr r3, L(34) ldr r2, L(34)+4 L(PIC0): add r3, pc, r3 str fp, [sp, $-4]! add fp, sp, $0 ldr r3, [r3, r2] mov r0, r3 add sp, fp, $0 // sp needed ldr fp, [sp], $4 bx lr L(35): .align 2 L(34): .word _GLOBAL_OFFSET_TABLE_-(L(PIC0)+8) .word callback_receiver(GOT) FUNEND(callback_get_receiver) #if defined __linux__ || defined __FreeBSD__ || defined __FreeBSD_kernel__ || defined __DragonFly__ .section .note.GNU-stack,"",%progbits #endif libffcall-2.2/callback/vacall_r/README0000644000000000000000000000056113026317517014370 00000000000000This directory contains a reentrant version of the vacall package. Instead of using a global variable for the function to be called, a pointer is passed in a special CPU register, pointing to: - a function code pointer in the first word, - a data word in the second word, to be passed before the va_alist. The include file is renamed to . libffcall-2.2/callback/vacall_r/vacall-x86_64-windows-macro.S0000664000000000000000000001677213530357114020633 00000000000000#include "asm-x86_64.h" TEXT() P2ALIGN(4,15) DECLARE_FUNCTION(callback_receiver) FUNBEGIN(callback_receiver) L(FB0): INSN1(push,q ,R(rbp)) L(CFI0): INSN2(mov,q ,R(rsp), R(rbp)) L(CFI1): INSN2(sub,q ,NUM(144), R(rsp)) INSN2(mov,q ,R(rcx),X8 MEM_DISP(rbp,16)) INSN2(lea,q ,X8 MEM_DISP(rbp,16), R(rcx)) INSN2(mov,q ,R(rdx),X8 MEM_DISP(rbp,24)) INSN2(mov,q ,R(r8),X8 MEM_DISP(rbp,32)) INSN2(lea,q ,X8 MEM_DISP(rbp,-112), R(rdx)) INSN2(mov,q ,R(r9),X8 MEM_DISP(rbp,40)) INSN2(mov,q ,R(rcx),X8 MEM_DISP(rbp,-88)) INSN2S(movs,s ,R(xmm0),X4 MEM_DISP(rbp,-52)) INSN2(mov,l ,NUM(0),X4 MEM_DISP(rbp,-112)) INSN2S(movs,s ,R(xmm1),X4 MEM_DISP(rbp,-48)) INSN2(mov,q ,NUM(0),X8 MEM_DISP(rbp,-80)) INSN2(mov,l ,NUM(0),X4 MEM_DISP(rbp,-72)) INSN2S(movs,s ,R(xmm2),X4 MEM_DISP(rbp,-44)) INSN2(mov,l ,NUM(0),X4 MEM_DISP(rbp,-56)) INSN2S(movs,s ,R(xmm3),X4 MEM_DISP(rbp,-40)) INSN2(mov,q ,X8 MEM_DISP(r10,8), R(rcx)) INSN2S(movs,d ,R(xmm0),X8 MEM_DISP(rbp,-32)) INSN2S(movs,d ,R(xmm1),X8 MEM_DISP(rbp,-24)) INSN2S(movs,d ,R(xmm2),X8 MEM_DISP(rbp,-16)) INSN2S(movs,d ,R(xmm3),X8 MEM_DISP(rbp,-8)) INSN1(call,_ ,INDIR(X8 MEM(r10))) INSN2(mov,l ,X4 MEM_DISP(rbp,-72), R(edx)) INSN2(test,l ,R(edx), R(edx)) INSN1(je,_ ,L(1)) INSN2(cmp,l ,NUM(1), R(edx)) INSN1(je,_ ,L(34)) INSN2(cmp,l ,NUM(2), R(edx)) INSN1(je,_ ,L(34)) INSN2(cmp,l ,NUM(3), R(edx)) INSN1(je,_ ,L(37)) INSN2(cmp,l ,NUM(4), R(edx)) INSN1(je,_ ,L(38)) INSN2(cmp,l ,NUM(5), R(edx)) INSN1(je,_ ,L(39)) INSN2(cmp,l ,NUM(6), R(edx)) INSN1(je,_ ,L(40)) INSN2(cmp,l ,NUM(7), R(edx)) INSN1(je,_ ,L(41)) INSN2(cmp,l ,NUM(8), R(edx)) INSN1(je,_ ,L(35)) INSN2(cmp,l ,NUM(9), R(edx)) INSN1(je,_ ,L(35)) INSN2(cmp,l ,NUM(10), R(edx)) INSN1(je,_ ,L(35)) INSN2(cmp,l ,NUM(11), R(edx)) INSN1(je,_ ,L(35)) INSN2(cmp,l ,NUM(12), R(edx)) INSN1(je,_ ,L(42)) INSN2(cmp,l ,NUM(13), R(edx)) INSN1(je,_ ,L(43)) INSN2(cmp,l ,NUM(14), R(edx)) INSN1(je,_ ,L(35)) INSN2(cmp,l ,NUM(15), R(edx)) INSN1(jne,_ ,L(1)) INSN2(test,b ,NUM(4),X1 MEM_DISP(rbp,-111)) INSN1(je,_ ,L(17)) INSN2(mov,q ,X8 MEM_DISP(rbp,-64), R(rdx)) INSN2(lea,q ,X8 MEM_DISP(rdx,-4), R(rcx)) INSN2(test,q ,NUM(-5), R(rcx)) INSN1(je,_ ,L(20)) INSN2(lea,q ,X8 MEM_DISP(rdx,-1), R(rcx)) INSN2(cmp,q ,NUM(1), R(rcx)) INSN1(ja,_ ,L(1)) L(20): INSN2(mov,q ,X8 MEM_DISP(rbp,-80), R(r8)) INSN2(mov,q ,R(r8), R(r9)) INSN2(and,l ,NUM(7), R(r8d)) INSN2(add,q ,R(r8), R(rdx)) INSN2(and,q ,NUM(-8), R(r9)) INSN2(cmp,q ,NUM(8), R(rdx)) INSN1(ja,_ ,L(19)) INSN2(lea,l ,X4 MEM_DISP_SHINDEX0(-1,rdx,8), R(ecx)) INSN2(mov,l ,NUM(2), R(edx)) INSN2(sal,q ,R(cl), R(rdx)) INSN2(lea,l ,X4 MEM_DISP_SHINDEX0(0,r8,8), R(ecx)) INSN2(sub,q ,NUM(1), R(rdx)) INSN2(and,q ,X8 MEM(r9), R(rdx)) INSN2(sar,q ,R(cl), R(rdx)) INSN2(mov,q ,R(rdx), R(rax)) L(1): leave L(CFI2): ret P2ALIGN(4,10) P2ALIGN(3,7) L(34): L(CFI3): INSN2MOVXQ(movs,b,X1 MEM_DISP(rbp,-104), R(rax)) leave L(CFI4): ret P2ALIGN(4,10) P2ALIGN(3,7) L(35): L(CFI5): INSN2(mov,q ,X8 MEM_DISP(rbp,-104), R(rax)) leave L(CFI6): ret P2ALIGN(4,10) P2ALIGN(3,7) L(37): L(CFI7): INSN2MOVXL(movz,b,X1 MEM_DISP(rbp,-104), R(eax)) leave L(CFI8): ret P2ALIGN(4,10) P2ALIGN(3,7) L(38): L(CFI9): INSN2MOVXQ(movs,w,X2 MEM_DISP(rbp,-104), R(rax)) leave L(CFI10): ret P2ALIGN(4,10) P2ALIGN(3,7) L(39): L(CFI11): INSN2MOVXL(movz,w,X2 MEM_DISP(rbp,-104), R(eax)) leave L(CFI12): ret P2ALIGN(4,10) P2ALIGN(3,7) L(40): L(CFI13): INSN2MOVXLQ(movs,l,X4 MEM_DISP(rbp,-104), R(rax)) leave L(CFI14): ret P2ALIGN(4,10) P2ALIGN(3,7) L(42): L(CFI15): INSN2S(movs,s ,X4 MEM_DISP(rbp,-104), R(xmm0)) leave L(CFI16): ret P2ALIGN(4,10) P2ALIGN(3,7) L(41): L(CFI17): INSN2(mov,l ,X4 MEM_DISP(rbp,-104), R(eax)) leave L(CFI18): ret L(43): L(CFI19): INSN2S(movs,d ,X8 MEM_DISP(rbp,-104), R(xmm0)) leave L(CFI20): ret L(17): L(CFI21): INSN2(mov,q ,X8 MEM_DISP(rbp,-80), R(rax)) leave L(CFI22): ret L(19): L(CFI23): INSN2(lea,l ,X4 MEM_DISP_SHINDEX0(-65,rdx,8), R(ecx)) INSN2(mov,l ,NUM(2), R(edx)) INSN2(sal,q ,R(cl), R(rdx)) INSN2(mov,l ,R(r8d), R(ecx)) INSN2(sub,q ,NUM(1), R(rdx)) INSN2(and,q ,X8 MEM_DISP(r9,8), R(rdx)) INSN1(neg,l ,R(ecx)) INSN2(lea,l ,X4 MEM_DISP_SHINDEX0(64,rcx,8), R(ecx)) INSN2(sal,q ,R(cl), R(rdx)) INSN2(lea,l ,X4 MEM_DISP_SHINDEX0(0,r8,8), R(ecx)) INSN2(mov,q ,X8 MEM(r9), R(r8)) leave L(CFI24): INSN2(sar,q ,R(cl), R(r8)) INSN2(or,q ,R(r8), R(rdx)) INSN2(mov,q ,R(rdx), R(rax)) ret L(FE0): FUNEND(callback_receiver, .-callback_receiver) P2ALIGN(4,15) GLOBL(C(callback_get_receiver)) DECLARE_FUNCTION(callback_get_receiver) FUNBEGIN(callback_get_receiver) L(FB1): INSN1(push,q ,R(rbp)) L(CFI25): INSN2(lea,q ,ADDR_PCRELATIVE(C(callback_receiver)), R(rax)) INSN2(mov,q ,R(rsp), R(rbp)) L(CFI26): INSN1(pop,q ,R(rbp)) L(CFI27): ret L(FE1): FUNEND(callback_get_receiver, .-callback_get_receiver) #if !(defined __sun || (defined __APPLE__ && defined __MACH__) || (defined _WIN32 || defined __CYGWIN__)) .section EH_FRAME_SECTION L(frame1): .long L(ECIE1)-.LSCIE1 L(SCIE1): .long 0 .byte 0x3 .string "zR" .uleb128 0x1 .sleb128 -8 .uleb128 0x10 .uleb128 0x1 .byte 0x1b .byte 0xc .uleb128 0x7 .uleb128 0x8 .byte 0x90 .uleb128 0x1 .align 8 L(ECIE1): L(SFDE1): .long L(EFDE1)-.LASFDE1 L(ASFDE1): .long L(ASFDE1)-.Lframe1 .long L(FB0)-. .long L(FE0)-.LFB0 .uleb128 0 .byte 0x4 .long L(CFI0)-.LFB0 .byte 0xe .uleb128 0x10 .byte 0x86 .uleb128 0x2 .byte 0x4 .long L(CFI1)-.LCFI0 .byte 0xd .uleb128 0x6 .byte 0x4 .long L(CFI2)-.LCFI1 .byte 0xa .byte 0xc6 .byte 0xc .uleb128 0x7 .uleb128 0x8 .byte 0x4 .long L(CFI3)-.LCFI2 .byte 0xb .byte 0x4 .long L(CFI4)-.LCFI3 .byte 0xa .byte 0xc6 .byte 0xc .uleb128 0x7 .uleb128 0x8 .byte 0x4 .long L(CFI5)-.LCFI4 .byte 0xb .byte 0x4 .long L(CFI6)-.LCFI5 .byte 0xa .byte 0xc6 .byte 0xc .uleb128 0x7 .uleb128 0x8 .byte 0x4 .long L(CFI7)-.LCFI6 .byte 0xb .byte 0x4 .long L(CFI8)-.LCFI7 .byte 0xa .byte 0xc6 .byte 0xc .uleb128 0x7 .uleb128 0x8 .byte 0x4 .long L(CFI9)-.LCFI8 .byte 0xb .byte 0x4 .long L(CFI10)-.LCFI9 .byte 0xa .byte 0xc6 .byte 0xc .uleb128 0x7 .uleb128 0x8 .byte 0x4 .long L(CFI11)-.LCFI10 .byte 0xb .byte 0x4 .long L(CFI12)-.LCFI11 .byte 0xa .byte 0xc6 .byte 0xc .uleb128 0x7 .uleb128 0x8 .byte 0x4 .long L(CFI13)-.LCFI12 .byte 0xb .byte 0x4 .long L(CFI14)-.LCFI13 .byte 0xa .byte 0xc6 .byte 0xc .uleb128 0x7 .uleb128 0x8 .byte 0x4 .long L(CFI15)-.LCFI14 .byte 0xb .byte 0x4 .long L(CFI16)-.LCFI15 .byte 0xa .byte 0xc6 .byte 0xc .uleb128 0x7 .uleb128 0x8 .byte 0x4 .long L(CFI17)-.LCFI16 .byte 0xb .byte 0x4 .long L(CFI18)-.LCFI17 .byte 0xa .byte 0xc6 .byte 0xc .uleb128 0x7 .uleb128 0x8 .byte 0x4 .long L(CFI19)-.LCFI18 .byte 0xb .byte 0x4 .long L(CFI20)-.LCFI19 .byte 0xa .byte 0xc6 .byte 0xc .uleb128 0x7 .uleb128 0x8 .byte 0x4 .long L(CFI21)-.LCFI20 .byte 0xb .byte 0x4 .long L(CFI22)-.LCFI21 .byte 0xa .byte 0xc6 .byte 0xc .uleb128 0x7 .uleb128 0x8 .byte 0x4 .long L(CFI23)-.LCFI22 .byte 0xb .byte 0x4 .long L(CFI24)-.LCFI23 .byte 0xc6 .byte 0xc .uleb128 0x7 .uleb128 0x8 .align 8 L(EFDE1): L(SFDE3): .long L(EFDE3)-.LASFDE3 L(ASFDE3): .long L(ASFDE3)-.Lframe1 .long L(FB1)-. .long L(FE1)-.LFB1 .uleb128 0 .byte 0x4 .long L(CFI25)-.LFB1 .byte 0xe .uleb128 0x10 .byte 0x86 .uleb128 0x2 .byte 0x4 .long L(CFI26)-.LCFI25 .byte 0xd .uleb128 0x6 .byte 0x4 .long L(CFI27)-.LCFI26 .byte 0xc6 .byte 0xc .uleb128 0x7 .uleb128 0x8 .align 8 L(EFDE3): #endif #if defined __linux__ || defined __FreeBSD__ || defined __FreeBSD_kernel__ || defined __DragonFly__ .section .note.GNU-stack,"",@progbits #endif libffcall-2.2/callback/vacall_r/vacall-mips64el-linux.s0000664000000000000000000001270613530357113017736 00000000000000 .file 1 "vacall-mips64.c" .section .mdebug.abi64 .previous .nan legacy .module fp=64 .module oddspreg .abicalls .text .align 2 .align 3 .set nomips16 .set nomicromips .ent callback_receiver .type callback_receiver, @function callback_receiver: .frame $fp,272,$31 # vars= 160, regs= 6/0, args= 0, gp= 0 .mask 0xd0070000,-72 .fmask 0x00000000,0 .set noreorder .set nomacro daddiu $sp,$sp,-272 sd $fp,192($sp) move $fp,$sp sd $4,208($fp) ld $4,8($2) ld $25,0($2) daddiu $12,$fp,208 sd $31,200($sp) sd $18,176($sp) sd $17,168($sp) sd $16,160($sp) sd $5,216($fp) sd $6,224($fp) sd $7,232($fp) sd $8,240($fp) sd $9,248($fp) sd $10,256($fp) sd $11,264($fp) sdc1 $f12,96($fp) sdc1 $f13,104($fp) sdc1 $f14,112($fp) sdc1 $f15,120($fp) sdc1 $f16,128($fp) sdc1 $f17,136($fp) sdc1 $f18,144($fp) sdc1 $f19,152($fp) swc1 $f12,60($fp) swc1 $f13,64($fp) swc1 $f14,68($fp) swc1 $f15,72($fp) swc1 $f16,76($fp) swc1 $f17,80($fp) swc1 $f18,84($fp) move $5,$fp swc1 $f19,88($fp) sd $12,24($fp) sw $0,0($fp) sd $0,32($fp) sw $0,40($fp) jalr $25 sw $0,56($fp) lw $12,40($fp) beq $12,$0,.L1 li $13,1 # 0x1 beq $12,$13,.L43 li $13,2 # 0x2 beq $12,$13,.L43 li $13,3 # 0x3 beq $12,$13,.L46 li $13,4 # 0x4 beq $12,$13,.L47 li $13,5 # 0x5 beq $12,$13,.L48 li $13,6 # 0x6 beq $12,$13,.L49 li $13,7 # 0x7 beq $12,$13,.L50 li $13,8 # 0x8 beq $12,$13,.L44 li $13,9 # 0x9 beq $12,$13,.L44 li $13,10 # 0xa beq $12,$13,.L44 li $13,11 # 0xb beq $12,$13,.L44 li $13,12 # 0xc beq $12,$13,.L51 li $13,13 # 0xd beq $12,$13,.L52 li $13,14 # 0xe beq $12,$13,.L44 li $13,15 # 0xf bnel $12,$13,.L58 move $sp,$fp lw $12,0($fp) andi $13,$12,0x400 beq $13,$0,.L1 andi $13,$12,0x4 beq $13,$0,.L19 ld $14,48($fp) ld $12,48($fp) li $13,1 # 0x1 beq $12,$13,.L53 li $13,2 # 0x2 beq $12,$13,.L54 li $13,4 # 0x4 beq $12,$13,.L55 li $13,8 # 0x8 bnel $12,$13,.L58 move $sp,$fp ld $12,32($fp) ld $2,0($12) .L1: move $sp,$fp .L58: ld $31,200($sp) ld $fp,192($sp) ld $18,176($sp) ld $17,168($sp) ld $16,160($sp) j $31 daddiu $sp,$sp,272 .align 3 .L43: move $sp,$fp ld $31,200($sp) ld $18,176($sp) ld $17,168($sp) ld $16,160($sp) lb $2,8($fp) ld $fp,192($sp) j $31 daddiu $sp,$sp,272 .align 3 .L44: b .L1 ld $2,8($fp) .align 3 .L46: b .L1 lbu $2,8($fp) .align 3 .L47: b .L1 lh $2,8($fp) .align 3 .L48: b .L1 lhu $2,8($fp) .align 3 .L49: b .L1 lw $2,8($fp) .align 3 .L51: b .L1 lwc1 $f0,8($fp) .align 3 .L50: b .L1 lwu $2,8($fp) .L52: b .L1 ldc1 $f0,8($fp) .L19: daddiu $13,$14,-1 sltu $13,$13,16 beql $13,$0,.L59 andi $13,$12,0x800 ld $13,32($fp) li $15,-8 # 0xfffffffffffffff8 sltu $25,$14,9 andi $24,$13,0x7 and $15,$13,$15 beq $25,$0,.L24 daddu $13,$14,$24 sltu $25,$13,9 beq $25,$0,.L25 dsll $13,$13,3 daddiu $13,$13,-1 ld $25,0($15) sll $13,$13,0 li $15,2 # 0x2 dsll $13,$15,$13 daddiu $13,$13,-1 and $13,$13,$25 sll $24,$24,3 dsra $2,$13,$24 .L23: andi $13,$12,0x800 .L59: beql $13,$0,.L27 andi $12,$12,0x1000 li $13,4 # 0x4 beq $14,$13,.L56 li $13,8 # 0x8 beql $14,$13,.L57 ld $13,32($fp) andi $12,$12,0x1000 beql $12,$0,.L58 move $sp,$fp li $12,16 # 0x10 .L60: bnel $14,$12,.L58 move $sp,$fp ld $12,32($fp) ldc1 $f0,0($12) b .L1 ldc1 $f2,8($12) .L27: beq $12,$0,.L1 li $12,8 # 0x8 bne $14,$12,.L60 li $12,16 # 0x10 ld $13,32($fp) b .L1 ldc1 $f0,0($13) .L24: sltu $25,$13,17 beq $25,$0,.L26 dsll $13,$13,3 daddiu $13,$13,-65 ld $17,8($15) li $25,2 # 0x2 sll $13,$13,0 dsll $13,$25,$13 subu $25,$0,$24 sll $25,$25,2 ld $16,0($15) daddiu $13,$13,-1 addiu $15,$25,32 and $13,$13,$17 sll $24,$24,3 dsll $25,$13,$15 dsra $16,$16,$24 dsll $15,$25,$15 or $2,$16,$15 b .L23 dsra $3,$13,$24 .L53: ld $12,32($fp) b .L1 lbu $2,0($12) .L54: ld $12,32($fp) b .L1 lhu $2,0($12) .L26: daddiu $13,$13,-129 ld $16,8($15) ld $17,0($15) sll $13,$13,0 ld $18,16($15) li $15,2 # 0x2 subu $25,$0,$24 dsll $15,$15,$13 daddiu $15,$15,-1 sll $25,$25,3 sll $24,$24,3 addiu $25,$25,64 and $13,$15,$18 dsll $13,$13,$25 dsra $15,$17,$24 dsll $17,$16,$25 dsra $24,$16,$24 or $2,$15,$17 b .L23 or $3,$13,$24 .L56: ld $12,32($fp) b .L1 lwc1 $f0,0($12) .L55: ld $12,32($fp) b .L1 lwu $2,0($12) .L25: daddiu $13,$13,-65 li $25,2 # 0x2 sll $13,$13,0 ld $17,8($15) dsll $13,$25,$13 ld $25,0($15) daddiu $13,$13,-1 subu $16,$0,$24 and $15,$13,$17 sll $24,$24,3 sll $13,$16,3 dsll $13,$15,$13 dsra $24,$25,$24 b .L23 or $2,$13,$24 .L57: andi $12,$12,0x1000 lwc1 $f0,0($13) beq $12,$0,.L1 lwc1 $f2,4($13) b .L1 ldc1 $f0,0($13) .set macro .set reorder .end callback_receiver .size callback_receiver, .-callback_receiver .align 2 .align 3 .globl callback_get_receiver .set nomips16 .set nomicromips .ent callback_get_receiver .type callback_get_receiver, @function callback_get_receiver: .frame $fp,16,$31 # vars= 0, regs= 1/0, args= 0, gp= 0 .mask 0x40000000,-8 .fmask 0x00000000,0 .set noreorder .set nomacro lui $13,%hi(%neg(%gp_rel(callback_get_receiver))) daddu $13,$13,$25 daddiu $13,$13,%lo(%neg(%gp_rel(callback_get_receiver))) daddiu $sp,$sp,-16 ld $12,%got_page(callback_receiver)($13) sd $fp,8($sp) move $fp,$sp move $sp,$fp ld $fp,8($sp) daddiu $2,$12,%got_ofst(callback_receiver) j $31 daddiu $sp,$sp,16 .set macro .set reorder .end callback_get_receiver .size callback_get_receiver, .-callback_get_receiver .ident "GCC: (GNU) 5.4.0" libffcall-2.2/callback/vacall_r/vacall-mipsn32el-macro.S0000664000000000000000000001205513530357113020006 00000000000000#include "asm-mips.h" .file 1 "vacall-mipsn32.c" .text .align 2 .align 3 .set nomips16 .set nomicromips .ent callback_receiver DECLARE_FUNCTION(callback_receiver) callback_receiver: .frame $fp,256,$31 .mask 0xd0070000,-72 .fmask 0x00000000,0 .set noreorder .set nomacro addiu $sp,$sp,-256 sd $fp,176($sp) move $fp,$sp sd $4,192($fp) lw $4,4($2) lw $25,0($2) addiu $12,$fp,192 sd $31,184($sp) sd $18,160($sp) sd $17,152($sp) sd $16,144($sp) sd $5,200($fp) sd $6,208($fp) sd $7,216($fp) sd $8,224($fp) sd $9,232($fp) sd $10,240($fp) sd $11,248($fp) sdc1 $f12,80($fp) sdc1 $f13,88($fp) sdc1 $f14,96($fp) sdc1 $f15,104($fp) sdc1 $f16,112($fp) sdc1 $f17,120($fp) sdc1 $f18,128($fp) sdc1 $f19,136($fp) swc1 $f12,44($fp) swc1 $f13,48($fp) swc1 $f14,52($fp) swc1 $f15,56($fp) swc1 $f16,60($fp) swc1 $f17,64($fp) swc1 $f18,68($fp) move $5,$fp swc1 $f19,72($fp) sw $12,24($fp) sw $0,0($fp) sw $0,28($fp) sw $0,32($fp) jalr $25 sw $0,40($fp) lw $12,32($fp) beq $12,$0,.L1 li $13,1 beq $12,$13,.L43 li $13,2 beq $12,$13,.L43 li $13,3 beq $12,$13,.L49 li $13,4 beq $12,$13,.L50 li $13,5 beq $12,$13,.L51 li $13,6 beq $12,$13,.L46 li $13,7 beq $12,$13,.L45 li $13,8 beq $12,$13,.L46 li $13,9 beq $12,$13,.L45 li $13,10 beq $12,$13,.L47 li $13,11 beq $12,$13,.L47 li $13,12 beq $12,$13,.L52 li $13,13 beq $12,$13,.L53 li $13,14 beq $12,$13,.L46 li $13,15 bnel $12,$13,.L59 move $sp,$fp lw $12,0($fp) andi $13,$12,0x400 beq $13,$0,.L1 andi $13,$12,0x4 beq $13,$0,.L19 lw $24,36($fp) lw $12,36($fp) li $13,1 beq $12,$13,.L54 li $13,2 beq $12,$13,.L55 li $13,4 beq $12,$13,.L56 li $13,8 bnel $12,$13,.L59 move $sp,$fp lw $12,28($fp) ld $2,0($12) .L1: move $sp,$fp .L59: ld $31,184($sp) ld $fp,176($sp) ld $18,160($sp) ld $17,152($sp) ld $16,144($sp) j $31 addiu $sp,$sp,256 .align 3 .L43: move $sp,$fp ld $31,184($sp) ld $18,160($sp) ld $17,152($sp) ld $16,144($sp) lb $2,8($fp) ld $fp,176($sp) j $31 addiu $sp,$sp,256 .align 3 .L46: b .L1 lw $2,8($fp) .align 3 .L49: b .L1 lbu $2,8($fp) .align 3 .L50: b .L1 lh $2,8($fp) .align 3 .L45: b .L1 lwu $2,8($fp) .align 3 .L51: b .L1 lhu $2,8($fp) .align 3 .L52: b .L1 lwc1 $f0,8($fp) .align 3 .L47: b .L1 ld $2,8($fp) .L53: b .L1 ldc1 $f0,8($fp) .L19: addiu $13,$24,-1 sltu $13,$13,16 beql $13,$0,.L60 andi $13,$12,0x800 lw $13,28($fp) li $15,-8 sltu $25,$24,9 andi $14,$13,0x7 and $15,$13,$15 beq $25,$0,.L24 addu $13,$24,$14 sltu $25,$13,9 beq $25,$0,.L25 sll $13,$13,3 ld $25,0($15) addiu $13,$13,-1 li $15,2 dsll $13,$15,$13 daddiu $13,$13,-1 and $13,$13,$25 sll $14,$14,3 dsra $2,$13,$14 .L23: andi $13,$12,0x800 .L60: beql $13,$0,.L27 andi $12,$12,0x1000 li $13,4 beq $24,$13,.L57 li $13,8 beql $24,$13,.L58 lw $13,28($fp) andi $12,$12,0x1000 beql $12,$0,.L59 move $sp,$fp li $12,16 .L61: bnel $24,$12,.L59 move $sp,$fp lw $12,28($fp) ldc1 $f0,0($12) b .L1 ldc1 $f2,8($12) .L27: beq $12,$0,.L1 li $12,8 bne $24,$12,.L61 li $12,16 lw $13,28($fp) b .L1 ldc1 $f0,0($13) .L24: sltu $25,$13,17 beq $25,$0,.L26 sll $13,$13,3 ld $17,8($15) li $25,2 addiu $13,$13,-65 dsll $13,$25,$13 subu $25,$0,$14 sll $25,$25,2 ld $16,0($15) daddiu $13,$13,-1 addiu $15,$25,32 and $13,$13,$17 sll $14,$14,3 dsll $25,$13,$15 dsra $16,$16,$14 dsll $15,$25,$15 or $2,$16,$15 b .L23 dsra $3,$13,$14 .L54: lw $12,28($fp) b .L1 lbu $2,0($12) .L55: lw $12,28($fp) b .L1 lhu $2,0($12) .L26: ld $16,8($15) ld $17,0($15) addiu $13,$13,-129 ld $18,16($15) li $15,2 subu $25,$0,$14 dsll $15,$15,$13 daddiu $15,$15,-1 sll $25,$25,3 sll $14,$14,3 addiu $25,$25,64 and $13,$15,$18 dsll $13,$13,$25 dsra $15,$17,$14 dsll $17,$16,$25 dsra $14,$16,$14 or $2,$15,$17 b .L23 or $3,$13,$14 .L57: lw $12,28($fp) b .L1 lwc1 $f0,0($12) .L56: lw $12,28($fp) b .L1 lwu $2,0($12) .L25: li $25,2 addiu $13,$13,-65 ld $17,8($15) dsll $13,$25,$13 ld $25,0($15) daddiu $13,$13,-1 subu $16,$0,$14 and $15,$13,$17 sll $14,$14,3 sll $13,$16,3 dsll $13,$15,$13 dsra $14,$25,$14 b .L23 or $2,$13,$14 .L58: andi $12,$12,0x1000 lwc1 $f0,0($13) beq $12,$0,.L1 lwc1 $f2,4($13) b .L1 ldc1 $f0,0($13) .set macro .set reorder .end callback_receiver .size callback_receiver, .-callback_receiver .align 2 .align 3 .globl callback_get_receiver .set nomips16 .set nomicromips .ent callback_get_receiver DECLARE_FUNCTION(callback_get_receiver) callback_get_receiver: .frame $fp,16,$31 .mask 0x40000000,-8 .fmask 0x00000000,0 .set noreorder .set nomacro lui $13,%hi(%neg(%gp_rel(callback_get_receiver))) addu $13,$13,$25 addiu $13,$13,%lo(%neg(%gp_rel(callback_get_receiver))) addiu $sp,$sp,-16 lw $12,%got_page(callback_receiver)($13) sd $fp,8($sp) move $fp,$sp move $sp,$fp ld $fp,8($sp) addiu $2,$12,%got_ofst(callback_receiver) j $31 addiu $sp,$sp,16 .set macro .set reorder .end callback_get_receiver .size callback_get_receiver, .-callback_get_receiver libffcall-2.2/callback/vacall_r/vacall-i386-linux.s0000664000000000000000000000457513530357113016771 00000000000000 .file "vacall-i386.c" .text .align 2 .p2align 2,,3 .type callback_receiver,@function callback_receiver: pushl %ebp movl %esp, %ebp pushl %edi pushl %esi leal 8(%ebp), %edx subl $56, %esp movl %edx, -40(%ebp) leal -56(%ebp), %edx movl $0, -56(%ebp) movl $0, -36(%ebp) movl $0, -32(%ebp) movl %ebx, -24(%ebp) pushl %edx pushl 4(%ecx) call *(%ecx) movl -32(%ebp), %esi addl $16, %esp testl %esi, %esi je .L43 cmpl $1, %esi je .L44 cmpl $2, %esi je .L44 cmpl $3, %esi je .L49 cmpl $4, %esi je .L50 cmpl $5, %esi je .L51 cmpl $6, %esi je .L48 cmpl $7, %esi je .L48 cmpl $8, %esi je .L48 cmpl $9, %esi je .L48 leal -10(%esi), %edx cmpl $1, %edx ja .L22 movl -48(%ebp), %eax #APP movl -44(%ebp),%edx .L33: .p2align 2,,3 #NO_APP .L43: movl -56(%ebp), %esi .L3: andl $512, %esi je .L1 #APP movl 0(%ebp),%ecx #NO_APP movl -40(%ebp), %esp #APP jmp *%ecx #NO_APP .L1: leal -8(%ebp), %esp popl %esi popl %edi leave ret .L22: cmpl $12, %esi je .L52 cmpl $13, %esi je .L53 cmpl $14, %esi je .L48 cmpl $15, %esi jne .L43 movl -56(%ebp), %esi testl $1024, %esi movl %esi, %edi je .L31 movl -28(%ebp), %edx cmpl $1, %edx je .L54 cmpl $2, %edx je .L55 cmpl $4, %edx je .L56 cmpl $8, %edx je .L57 .L31: andl $16, %edi movl -36(%ebp), %eax jne .L3 #APP leal -8(%ebp), %esp popl %esi popl %edi leave ret $4 #NO_APP jmp .L3 .L57: movl -36(%ebp), %edx movl (%edx), %eax #APP movl 4(%edx),%edx #NO_APP jmp .L3 .L56: movl -36(%ebp), %edx movl (%edx), %eax jmp .L3 .L55: movl -36(%ebp), %edx movzwl (%edx), %eax jmp .L3 .L54: movl -36(%ebp), %edx movzbl (%edx), %eax jmp .L3 .p2align 2,,3 .L48: movl -48(%ebp), %eax jmp .L43 .L53: #APP fldl -48(%ebp) #NO_APP jmp .L43 .L52: #APP flds -48(%ebp) #NO_APP jmp .L43 .p2align 2,,3 .L51: movzwl -48(%ebp), %eax jmp .L43 .L50: movswl -48(%ebp),%eax jmp .L43 .L49: movzbl -48(%ebp), %eax jmp .L43 .p2align 2,,3 .L44: movsbl -48(%ebp),%eax jmp .L43 .Lfe1: .size callback_receiver,.Lfe1-callback_receiver .align 2 .p2align 2,,3 .globl callback_get_receiver .type callback_get_receiver,@function callback_get_receiver: pushl %ebp movl %esp, %ebp pushl %ebx call .L59 .L59: popl %ebx addl $_GLOBAL_OFFSET_TABLE_+[.-.L59], %ebx leal callback_receiver@GOTOFF(%ebx), %eax movl (%esp), %ebx leave ret .Lfe2: .size callback_get_receiver,.Lfe2-callback_get_receiver .ident "GCC: (GNU) 3.1" libffcall-2.2/callback/vacall_r/vacall-powerpc64-elfv2-linux.S0000664000000000000000000000662013530357114021077 00000000000000 .file "vacall-powerpc64.c" .machine power4 .abiversion 2 .section ".toc","aw" .section ".text" .align 2 .p2align 4,,15 .type callback_receiver, @function callback_receiver: 0: addis 2,12,.TOC.-0b@ha addi 2,2,.TOC.-0b@l .localentry callback_receiver,.-callback_receiver mflr 0 std 30,-16(1) std 31,-8(1) std 0,16(1) stdu 1,-224(1) li 0,0 ld 30,0(11) mr 31,1 std 3,256(31) std 4,264(31) addi 4,31,32 ld 3,8(11) std 9,304(31) mtctr 30 li 9,0 std 5,272(31) std 6,280(31) std 7,288(31) std 8,296(31) stw 9,32(31) std 10,312(31) stfd 1,96(31) stfd 2,104(31) mr 12,30 addi 9,31,256 stfd 3,112(31) stfd 4,120(31) stfd 5,128(31) stfd 6,136(31) std 9,56(31) stfd 7,144(31) stfd 8,152(31) stfd 9,160(31) stfd 10,168(31) stfd 11,176(31) stfd 12,184(31) stfd 13,192(31) std 0,64(31) stw 0,72(31) stw 0,88(31) std 2,24(1) bctrl ld 2,24(1) lwz 9,72(31) cmpdi 7,9,0 beq 7,.L1 cmplwi 7,9,1 beq 7,.L27 cmplwi 7,9,2 beq 7,.L30 cmplwi 7,9,3 beq 7,.L27 cmplwi 7,9,4 beq 7,.L31 cmplwi 7,9,5 beq 7,.L32 cmplwi 7,9,6 beq 7,.L33 cmplwi 7,9,7 beq 7,.L34 cmplwi 7,9,8 beq 7,.L28 cmplwi 7,9,9 beq 7,.L28 cmplwi 7,9,10 beq 7,.L28 cmplwi 7,9,11 beq 7,.L28 cmplwi 7,9,12 beq 7,.L35 cmplwi 7,9,13 beq 7,.L36 cmplwi 7,9,14 beq 7,.L28 cmplwi 7,9,15 bne 7,.L1 lwz 9,32(31) rldicl. 10,9,54,63 beq 0,.L1 ld 9,80(31) addi 10,9,-1 cmpldi 7,10,15 bgt 7,.L1 ld 8,64(31) cmpldi 7,9,8 rldicl 10,8,0,61 rldicr 8,8,0,60 add 9,9,10 bgt 7,.L17 cmpldi 7,9,8 slwi 9,9,3 bgt 7,.L18 ld 7,0(8) addi 9,9,-1 li 8,2 slwi 10,10,3 sld 9,8,9 addi 9,9,-1 and 9,9,7 srad 3,9,10 .L1: addi 1,31,224 ld 0,16(1) ld 30,-16(1) ld 31,-8(1) mtlr 0 blr .p2align 4,,15 .L27: addi 1,31,224 lbz 3,40(31) ld 0,16(1) ld 30,-16(1) ld 31,-8(1) mtlr 0 blr .p2align 4,,15 .L30: lbz 9,40(31) extsb 3,9 b .L1 .p2align 4,,15 .L28: ld 3,40(31) b .L1 .p2align 4,,15 .L31: lha 3,40(31) b .L1 .p2align 4,,15 .L32: lhz 3,40(31) b .L1 .p2align 4,,15 .L33: lwa 3,40(31) b .L1 .p2align 4,,15 .L35: lfs 1,40(31) b .L1 .p2align 4,,15 .L34: lwz 3,40(31) b .L1 .L36: lfd 1,40(31) b .L1 .L17: cmpldi 7,9,16 rldicl 10,10,0,32 slwi 9,9,3 ble 7,.L37 li 7,2 addi 9,9,-129 ld 0,16(8) ld 5,0(8) mulli 6,10,-8 sld 9,7,9 ld 7,8(8) addi 8,9,-1 slwi 9,10,3 addi 6,6,64 and 10,8,0 srad 8,5,9 sld 5,7,6 srad 9,7,9 sld 10,10,6 or 3,8,5 or 4,10,9 b .L1 .L18: rldicl 10,10,0,32 li 7,2 ld 6,8(8) ld 8,0(8) addi 9,9,-65 sld 9,7,9 mulli 7,10,-8 slwi 10,10,3 addi 9,9,-1 srad 10,8,10 and 9,9,6 addi 7,7,64 sld 9,9,7 or 3,9,10 b .L1 .L37: li 7,2 addi 9,9,-65 ld 5,8(8) ld 6,0(8) sld 9,7,9 mulli 7,10,-4 addi 9,9,-1 addi 7,7,32 and 8,9,5 slwi 9,10,3 sld 10,8,7 srad 6,6,9 srad 4,8,9 sld 7,10,7 or 3,6,7 b .L1 .long 0 .byte 0,0,0,1,128,2,0,0 .size callback_receiver,.-callback_receiver .align 2 .p2align 4,,15 .globl callback_get_receiver .type callback_get_receiver, @function callback_get_receiver: 0: addis 2,12,.TOC.-0b@ha addi 2,2,.TOC.-0b@l .localentry callback_get_receiver,.-callback_get_receiver std 31,-8(1) stdu 1,-48(1) addis 3,2,callback_receiver@toc@ha addi 3,3,callback_receiver@toc@l mr 31,1 addi 1,31,48 ld 31,-8(1) blr .long 0 .byte 0,0,0,0,128,1,0,0 .size callback_get_receiver,.-callback_get_receiver #if defined __linux__ || defined __FreeBSD__ || defined __FreeBSD_kernel__ || defined __DragonFly__ .section .note.GNU-stack,"",@progbits #endif libffcall-2.2/callback/vacall_r/vacall-powerpc64-linux.S0000664000000000000000000000474613530357114020072 00000000000000 .file "vacall-powerpc64.c" .machine power4 .section ".toc","aw" .section ".text" .align 2 .p2align 4,,15 .section ".opd","aw" .align 3 callback_receiver: .quad .L.callback_receiver,.TOC.@tocbase,0 .previous .type callback_receiver, @function .L.callback_receiver: mflr 0 std 30,-16(1) std 31,-8(1) li 30,0 std 0,16(1) stdu 1,-304(1) li 0,0 mr 31,1 ld 12,0(11) std 9,400(31) addi 9,31,352 stw 0,152(31) stw 0,168(31) std 3,352(31) std 4,360(31) ld 3,8(11) std 5,368(31) std 6,376(31) addi 4,31,112 std 7,384(31) std 8,392(31) std 10,408(31) stfd 1,176(31) stfd 2,184(31) stfd 3,192(31) stfd 4,200(31) stfd 5,208(31) stfd 6,216(31) stfd 7,224(31) stfd 8,232(31) stfd 9,240(31) stfd 10,248(31) stfd 11,256(31) stfd 12,264(31) stfd 13,272(31) std 9,136(31) std 0,144(31) stw 30,112(31) std 2,40(1) ld 9,0(12) ld 11,16(12) mtctr 9 ld 2,8(12) bctrl ld 2,40(1) lwz 9,152(31) cmpdi 7,9,0 beq 7,.L1 cmplwi 7,9,1 beq 7,.L20 cmplwi 7,9,2 beq 7,.L23 cmplwi 7,9,3 beq 7,.L20 cmplwi 7,9,4 beq 7,.L24 cmplwi 7,9,5 beq 7,.L25 cmplwi 7,9,6 beq 7,.L26 cmplwi 7,9,7 beq 7,.L27 cmplwi 7,9,8 beq 7,.L21 cmplwi 7,9,9 beq 7,.L21 cmplwi 7,9,10 beq 7,.L21 cmplwi 7,9,11 beq 7,.L21 cmplwi 7,9,12 beq 7,.L28 cmplwi 7,9,13 beq 7,.L29 cmplwi 7,9,14 beq 7,.L21 .L1: addi 1,31,304 ld 0,16(1) ld 30,-16(1) ld 31,-8(1) mtlr 0 blr .p2align 4,,15 .L20: lbz 3,120(31) addi 1,31,304 ld 0,16(1) ld 30,-16(1) ld 31,-8(1) mtlr 0 blr .p2align 4,,15 .L23: lbz 9,120(31) extsb 3,9 b .L1 .p2align 4,,15 .L21: ld 3,120(31) b .L1 .p2align 4,,15 .L24: lha 3,120(31) b .L1 .p2align 4,,15 .L25: lhz 3,120(31) b .L1 .p2align 4,,15 .L26: lwa 3,120(31) b .L1 .p2align 4,,15 .L28: lfs 1,120(31) b .L1 .p2align 4,,15 .L27: lwz 3,120(31) b .L1 .L29: lfd 1,120(31) b .L1 .long 0 .byte 0,0,0,1,128,2,0,0 .size callback_receiver,.-.L.callback_receiver .align 2 .p2align 4,,15 .globl callback_get_receiver .section ".opd","aw" .align 3 callback_get_receiver: .quad .L.callback_get_receiver,.TOC.@tocbase,0 .previous .type callback_get_receiver, @function .L.callback_get_receiver: std 31,-8(1) stdu 1,-64(1) addis 3,2,callback_receiver@toc@ha addi 3,3,callback_receiver@toc@l mr 31,1 addi 1,31,64 ld 31,-8(1) blr .long 0 .byte 0,0,0,0,128,1,0,0 .size callback_get_receiver,.-.L.callback_get_receiver #if defined __linux__ || defined __FreeBSD__ || defined __FreeBSD_kernel__ || defined __DragonFly__ .section .note.GNU-stack,"",@progbits #endif libffcall-2.2/callback/vacall_r/vacall-x86_64-windows.s0000664000000000000000000001256313530357114017566 00000000000000 .file "vacall-x86_64-windows.c" .text .p2align 4,,15 .type callback_receiver, @function callback_receiver: .LFB0: pushq %rbp .LCFI0: movq %rsp, %rbp .LCFI1: subq $144, %rsp movq %rcx, 16(%rbp) leaq 16(%rbp), %rcx movq %rdx, 24(%rbp) movq %r8, 32(%rbp) leaq -112(%rbp), %rdx movq %r9, 40(%rbp) movq %rcx, -88(%rbp) movss %xmm0, -52(%rbp) movl $0, -112(%rbp) movss %xmm1, -48(%rbp) movq $0, -80(%rbp) movl $0, -72(%rbp) movss %xmm2, -44(%rbp) movl $0, -56(%rbp) movss %xmm3, -40(%rbp) movq 8(%r10), %rcx movsd %xmm0, -32(%rbp) movsd %xmm1, -24(%rbp) movsd %xmm2, -16(%rbp) movsd %xmm3, -8(%rbp) call *(%r10) movl -72(%rbp), %edx testl %edx, %edx je .L1 cmpl $1, %edx je .L34 cmpl $2, %edx je .L34 cmpl $3, %edx je .L37 cmpl $4, %edx je .L38 cmpl $5, %edx je .L39 cmpl $6, %edx je .L40 cmpl $7, %edx je .L41 cmpl $8, %edx je .L35 cmpl $9, %edx je .L35 cmpl $10, %edx je .L35 cmpl $11, %edx je .L35 cmpl $12, %edx je .L42 cmpl $13, %edx je .L43 cmpl $14, %edx je .L35 cmpl $15, %edx jne .L1 testb $4, -111(%rbp) je .L17 movq -64(%rbp), %rdx leaq -4(%rdx), %rcx testq $-5, %rcx je .L20 leaq -1(%rdx), %rcx cmpq $1, %rcx ja .L1 .L20: movq -80(%rbp), %r8 movq %r8, %r9 andl $7, %r8d addq %r8, %rdx andq $-8, %r9 cmpq $8, %rdx ja .L19 leal -1(,%rdx,8), %ecx movl $2, %edx salq %cl, %rdx leal 0(,%r8,8), %ecx subq $1, %rdx andq (%r9), %rdx sarq %cl, %rdx movq %rdx, %rax .L1: leave .LCFI2: ret .p2align 4,,10 .p2align 3 .L34: .LCFI3: movsbq -104(%rbp), %rax leave .LCFI4: ret .p2align 4,,10 .p2align 3 .L35: .LCFI5: movq -104(%rbp), %rax leave .LCFI6: ret .p2align 4,,10 .p2align 3 .L37: .LCFI7: movzbl -104(%rbp), %eax leave .LCFI8: ret .p2align 4,,10 .p2align 3 .L38: .LCFI9: movswq -104(%rbp), %rax leave .LCFI10: ret .p2align 4,,10 .p2align 3 .L39: .LCFI11: movzwl -104(%rbp), %eax leave .LCFI12: ret .p2align 4,,10 .p2align 3 .L40: .LCFI13: movslq -104(%rbp), %rax leave .LCFI14: ret .p2align 4,,10 .p2align 3 .L42: .LCFI15: movss -104(%rbp), %xmm0 leave .LCFI16: ret .p2align 4,,10 .p2align 3 .L41: .LCFI17: movl -104(%rbp), %eax leave .LCFI18: ret .L43: .LCFI19: movsd -104(%rbp), %xmm0 leave .LCFI20: ret .L17: .LCFI21: movq -80(%rbp), %rax leave .LCFI22: ret .L19: .LCFI23: leal -65(,%rdx,8), %ecx movl $2, %edx salq %cl, %rdx movl %r8d, %ecx subq $1, %rdx andq 8(%r9), %rdx negl %ecx leal 64(,%rcx,8), %ecx salq %cl, %rdx leal 0(,%r8,8), %ecx movq (%r9), %r8 leave .LCFI24: sarq %cl, %r8 orq %r8, %rdx movq %rdx, %rax ret .LFE0: .size callback_receiver, .-callback_receiver .p2align 4,,15 .globl callback_get_receiver .type callback_get_receiver, @function callback_get_receiver: .LFB1: pushq %rbp .LCFI25: leaq callback_receiver(%rip), %rax movq %rsp, %rbp .LCFI26: popq %rbp .LCFI27: ret .LFE1: .size callback_get_receiver, .-callback_get_receiver .section .eh_frame,"a",@progbits .Lframe1: .long .LECIE1-.LSCIE1 .LSCIE1: .long 0 .byte 0x3 .string "zR" .uleb128 0x1 .sleb128 -8 .uleb128 0x10 .uleb128 0x1 .byte 0x1b .byte 0xc .uleb128 0x7 .uleb128 0x8 .byte 0x90 .uleb128 0x1 .align 8 .LECIE1: .LSFDE1: .long .LEFDE1-.LASFDE1 .LASFDE1: .long .LASFDE1-.Lframe1 .long .LFB0-. .long .LFE0-.LFB0 .uleb128 0 .byte 0x4 .long .LCFI0-.LFB0 .byte 0xe .uleb128 0x10 .byte 0x86 .uleb128 0x2 .byte 0x4 .long .LCFI1-.LCFI0 .byte 0xd .uleb128 0x6 .byte 0x4 .long .LCFI2-.LCFI1 .byte 0xa .byte 0xc6 .byte 0xc .uleb128 0x7 .uleb128 0x8 .byte 0x4 .long .LCFI3-.LCFI2 .byte 0xb .byte 0x4 .long .LCFI4-.LCFI3 .byte 0xa .byte 0xc6 .byte 0xc .uleb128 0x7 .uleb128 0x8 .byte 0x4 .long .LCFI5-.LCFI4 .byte 0xb .byte 0x4 .long .LCFI6-.LCFI5 .byte 0xa .byte 0xc6 .byte 0xc .uleb128 0x7 .uleb128 0x8 .byte 0x4 .long .LCFI7-.LCFI6 .byte 0xb .byte 0x4 .long .LCFI8-.LCFI7 .byte 0xa .byte 0xc6 .byte 0xc .uleb128 0x7 .uleb128 0x8 .byte 0x4 .long .LCFI9-.LCFI8 .byte 0xb .byte 0x4 .long .LCFI10-.LCFI9 .byte 0xa .byte 0xc6 .byte 0xc .uleb128 0x7 .uleb128 0x8 .byte 0x4 .long .LCFI11-.LCFI10 .byte 0xb .byte 0x4 .long .LCFI12-.LCFI11 .byte 0xa .byte 0xc6 .byte 0xc .uleb128 0x7 .uleb128 0x8 .byte 0x4 .long .LCFI13-.LCFI12 .byte 0xb .byte 0x4 .long .LCFI14-.LCFI13 .byte 0xa .byte 0xc6 .byte 0xc .uleb128 0x7 .uleb128 0x8 .byte 0x4 .long .LCFI15-.LCFI14 .byte 0xb .byte 0x4 .long .LCFI16-.LCFI15 .byte 0xa .byte 0xc6 .byte 0xc .uleb128 0x7 .uleb128 0x8 .byte 0x4 .long .LCFI17-.LCFI16 .byte 0xb .byte 0x4 .long .LCFI18-.LCFI17 .byte 0xa .byte 0xc6 .byte 0xc .uleb128 0x7 .uleb128 0x8 .byte 0x4 .long .LCFI19-.LCFI18 .byte 0xb .byte 0x4 .long .LCFI20-.LCFI19 .byte 0xa .byte 0xc6 .byte 0xc .uleb128 0x7 .uleb128 0x8 .byte 0x4 .long .LCFI21-.LCFI20 .byte 0xb .byte 0x4 .long .LCFI22-.LCFI21 .byte 0xa .byte 0xc6 .byte 0xc .uleb128 0x7 .uleb128 0x8 .byte 0x4 .long .LCFI23-.LCFI22 .byte 0xb .byte 0x4 .long .LCFI24-.LCFI23 .byte 0xc6 .byte 0xc .uleb128 0x7 .uleb128 0x8 .align 8 .LEFDE1: .LSFDE3: .long .LEFDE3-.LASFDE3 .LASFDE3: .long .LASFDE3-.Lframe1 .long .LFB1-. .long .LFE1-.LFB1 .uleb128 0 .byte 0x4 .long .LCFI25-.LFB1 .byte 0xe .uleb128 0x10 .byte 0x86 .uleb128 0x2 .byte 0x4 .long .LCFI26-.LCFI25 .byte 0xd .uleb128 0x6 .byte 0x4 .long .LCFI27-.LCFI26 .byte 0xc6 .byte 0xc .uleb128 0x7 .uleb128 0x8 .align 8 .LEFDE3: .ident "GCC: (GNU) 5.4.0" .section .note.GNU-stack,"",@progbits libffcall-2.2/callback/vacall_r/vacall-sparc64-linux.s0000664000000000000000000001271713530357113017557 00000000000000 .file "vacall-sparc64.c" .section ".text" .align 4 .global callback_receiver .type callback_receiver, #function .proc 020 callback_receiver: .register %g2, #scratch .register %g3, #scratch save %sp, -448, %sp stx %i0, [%fp+2175] stx %i1, [%fp+2183] stx %i2, [%fp+2191] stx %i3, [%fp+2199] stx %i4, [%fp+2207] stx %i5, [%fp+2215] std %f0, [%fp+1903] std %f2, [%fp+1911] std %f4, [%fp+1919] std %f6, [%fp+1927] std %f8, [%fp+1935] std %f10, [%fp+1943] std %f12, [%fp+1951] std %f14, [%fp+1959] std %f16, [%fp+1967] std %f18, [%fp+1975] std %f20, [%fp+1983] std %f22, [%fp+1991] std %f24, [%fp+1999] std %f26, [%fp+2007] std %f28, [%fp+2015] std %f30, [%fp+2023] st %f1, [%fp+1835] st %f3, [%fp+1839] st %f5, [%fp+1843] st %f7, [%fp+1847] st %f9, [%fp+1851] st %f11, [%fp+1855] st %f13, [%fp+1859] st %f15, [%fp+1863] st %f17, [%fp+1867] st %f19, [%fp+1871] st %f21, [%fp+1875] st %f23, [%fp+1879] add %fp, 2175, %g2 stx %g0, [%fp+1807] st %f25, [%fp+1883] st %f27, [%fp+1887] st %f29, [%fp+1891] st %f31, [%fp+1895] st %g0, [%fp+1775] st %g0, [%fp+1815] st %g0, [%fp+1831] ldx [%g5+8], %o0 stx %g2, [%fp+1799] ldx [%g5], %g3 call %g3, 0 add %fp, 1775, %o1 lduw [%fp+1815], %g1 cmp %g1, 0 be,pn %icc, .LL61 cmp %g1, 1 be,pn %icc, .LL50 cmp %g1, 2 be,pn %icc, .LL50 cmp %g1, 3 be,pn %icc, .LL53 cmp %g1, 4 be,pn %icc, .LL54 cmp %g1, 5 be,pn %icc, .LL55 cmp %g1, 6 be,pn %icc, .LL56 cmp %g1, 7 be,pn %icc, .LL57 cmp %g1, 8 be,pn %icc, .LL51 cmp %g1, 9 be,pn %icc, .LL51 cmp %g1, 10 be,pn %icc, .LL51 cmp %g1, 11 be,pn %icc, .LL51 cmp %g1, 12 be,pn %icc, .LL58 cmp %g1, 13 be,pn %icc, .LL59 cmp %g1, 14 be,pn %icc, .LL51 cmp %g1, 15 bne,pt %icc, .LL61 lduw [%fp+1775], %g1 andcc %g1, 1024, %g0 be,pn %xcc, .LL61 ldx [%fp+1823], %o5 add %o5, -1, %g1 cmp %g1, 31 bgu,pn %xcc, .LL61 ldx [%fp+1807], %g1 cmp %o5, 8 and %g1, 7, %o1 and %g1, -8, %l1 bgu,pt %xcc, .LL35 add %o5, %o1, %g2 cmp %g2, 8 bgu,pt %xcc, .LL37 sllx %o1, 3, %g4 sllx %g2, 3, %g2 ldx [%l1], %g3 sub %g0, %g2, %g2 mov -1, %g1 sllx %g1, %g2, %g1 and %g1, %g3, %g1 return %i7+8 sllx %g1, %g4, %o0 .LL47: ldx [%l1], %g1 sllx %g1, %o3, %g1 ldx [%l1+8], %g4 ldx [%l1+16], %o5 sllx %g4, %o3, %o0 sllx %o5, %o3, %o7 ldx [%l1+24], %o4 sllx %g2, 3, %o2 sllx %o4, %o3, %l0 ldx [%l1+32], %o1 sub %g0, %o2, %o2 mov 64, %g3 sub %g3, %o3, %g3 srax %g4, %g3, %g4 srax %o5, %g3, %o5 or %g1, %g4, %i0 srax %o4, %g3, %o4 mov -1, %g1 or %o0, %o5, %i1 sllx %g1, %o2, %g1 or %o7, %o4, %i2 and %g1, %o1, %g1 srax %g1, %g3, %g1 or %l0, %g1, %i3 .LL61: return %i7+8 nop .LL50: ldsb [%fp+1783], %i0 return %i7+8 nop .LL54: ldsh [%fp+1783], %i0 return %i7+8 nop .LL53: ldub [%fp+1783], %i0 return %i7+8 nop .LL51: ldx [%fp+1783], %i0 return %i7+8 nop .LL55: lduh [%fp+1783], %i0 return %i7+8 nop .LL56: ldsw [%fp+1783], %i0 return %i7+8 nop .LL57: lduw [%fp+1783], %i0 return %i7+8 nop .LL58: ld [%fp+1783], %f0 return %i7+8 nop .LL59: ldd [%fp+1783], %f0 return %i7+8 nop .LL35: cmp %o5, 16 bgu,pt %xcc, .LL39 cmp %o5, 24 cmp %g2, 16 bgu,pt %xcc, .LL41 sllx %o1, 3, %o4 sllx %g2, 3, %g3 ldx [%l1+8], %g2 sll %o1, 3, %o5 sllx %o1, 2, %o4 sub %g0, %g3, %g3 ldx [%l1], %g4 mov -1, %g1 sllx %g4, %o5, %g4 sllx %g1, %g3, %g1 and %g1, %g2, %g1 mov 32, %g2 sllx %g1, %o5, %i1 sub %g2, %o4, %g2 srax %g1, %g2, %g1 srax %g1, %g2, %g1 return %i7+8 or %g4, %g1, %o0 .LL37: sllx %g2, 3, %g3 ldx [%l1+8], %o5 sub %g0, %g3, %g3 sub %g0, %g4, %o4 ldx [%l1], %g2 mov -1, %g1 sllx %g2, %g4, %g2 sllx %g1, %g3, %g1 and %g1, %o5, %g1 srax %g1, %o4, %g1 return %i7+8 or %g2, %g1, %o0 .LL39: bgu,pt %xcc, .LL43 cmp %g2, 32 cmp %g2, 24 bgu,pt %xcc, .LL45 sllx %o1, 3, %o3 sllx %o1, 2, %g1 sll %o1, 3, %o5 sllx %g2, 3, %o4 ldx [%l1+8], %g3 ldx [%l1+16], %o3 sllx %g3, %o5, %o2 sub %g0, %o4, %o4 mov 32, %g4 ldx [%l1], %g2 sub %g4, %g1, %g4 sllx %g2, %o5, %g2 srax %g3, %g4, %g3 mov -1, %g1 srax %g3, %g4, %g3 sllx %g1, %o4, %g1 and %g1, %o3, %g1 sllx %g1, %o5, %i2 srax %g1, %g4, %g1 srax %g1, %g4, %g1 or %o2, %g1, %i1 return %i7+8 or %g2, %g3, %o0 .LL41: sllx %g2, 3, %o5 ldx [%l1+8], %g3 ldx [%l1+16], %o3 sllx %g3, %o4, %o2 sub %g0, %o5, %o5 mov 64, %g4 ldx [%l1], %g2 sub %g4, %o4, %g4 sllx %g2, %o4, %g2 srax %g3, %g4, %g3 mov -1, %g1 sllx %g1, %o5, %g1 and %g1, %o3, %g1 srax %g1, %g4, %g1 or %o2, %g1, %i1 return %i7+8 or %g2, %g3, %o0 .LL45: ldx [%l1], %g1 sllx %g1, %o3, %g1 ldx [%l1+8], %g3 ldx [%l1+16], %g4 sllx %g3, %o3, %o2 sllx %g4, %o3, %o0 sllx %g2, 3, %o4 ldx [%l1+24], %o1 sub %g0, %o4, %o4 mov 64, %o5 sub %o5, %o3, %o5 srax %g3, %o5, %g3 srax %g4, %o5, %g4 or %g1, %g3, %i0 or %o2, %g4, %i1 mov -1, %g1 sllx %g1, %o4, %g1 and %g1, %o1, %g1 srax %g1, %o5, %g1 or %o0, %g1, %i2 return %i7+8 nop .LL43: bgu,pt %xcc, .LL47 sllx %o1, 3, %o3 sll %o1, 3, %o4 ldx [%l1], %g1 sllx %g1, %o4, %g1 sllx %o1, 2, %o3 sllx %g2, 3, %o5 ldx [%l1+8], %g3 ldx [%l1+16], %g4 sllx %g3, %o4, %o1 sllx %g4, %o4, %o0 ldx [%l1+24], %o2 sub %g0, %o5, %o5 mov 32, %g2 sub %g2, %o3, %g2 srax %g3, %g2, %g3 srax %g4, %g2, %g4 srax %g3, %g2, %g3 srax %g4, %g2, %g4 or %g1, %g3, %i0 or %o1, %g4, %i1 mov -1, %g1 sllx %g1, %o5, %g1 and %g1, %o2, %g1 sllx %g1, %o4, %i3 srax %g1, %g2, %g1 srax %g1, %g2, %g1 or %o0, %g1, %i2 return %i7+8 nop .size callback_receiver, .-callback_receiver .ident "GCC: (GNU) 4.0.2" .section ".note.GNU-stack" libffcall-2.2/callback/vacall_r/vacall-m68k.mit.S0000664000000000000000000000513113530357113016445 00000000000000#include "asm-m68k.h" .text .even FUNBEGIN(callback_receiver) link $a6,#-32 moveml #0x3030,$sp@- clrl $a6@(-32) lea $a6@(8),$a2 movel $a2,$a6@(-20) clrl $a6@(-16) clrl $a6@(-12) movel $a1,$a6@(-4) pea $a6@(-32) movel $a0@(4),$sp@- movel $a0@,$a2 jsr $a2@ addql #8,$sp movel $a6@(-12),$a3 tstl $a3 jeq L(1) moveq #1,$d2 cmpl $a3,$d2 jeq L(46) moveq #2,$d3 cmpl $a3,$d3 jeq L(46) moveq #3,$d2 cmpl $a3,$d2 jeq L(47) moveq #4,$d3 cmpl $a3,$d3 jeq L(48) moveq #5,$d2 cmpl $a3,$d2 jeq L(49) moveq #6,$d3 cmpl $a3,$d3 jeq L(45) moveq #7,$d2 cmpl $a3,$d2 jeq L(45) moveq #8,$d3 cmpl $a3,$d3 jeq L(45) moveq #9,$d2 cmpl $a3,$d2 jeq L(45) lea $a3@(-10),$a2 moveq #1,$d3 cmpl $a2,$d3 jcs L(22) movel $a6@(-28),$d0 movel $a6@(-24),$d1 jra L(1) .even L(22): moveq #12,$d2 cmpl $a3,$d2 jeq L(50) moveq #13,$d2 cmpl $a3,$d2 jeq L(51) moveq #14,$d3 cmpl $a3,$d3 jeq L(52) moveq #15,$d2 cmpl $a3,$d2 jne L(1) btst #2,$a6@(-30) jeq L(1) movel $a6@(-8),$d2 moveq #1,$d3 cmpl $d2,$d3 jeq L(53) moveq #2,$d3 cmpl $d2,$d3 jeq L(54) moveq #4,$d3 cmpl $d2,$d3 jeq L(55) moveq #8,$d3 cmpl $d2,$d3 jne L(1) movel $a6@(-16),$a2 movel $a2@,$d0 movel $a2@(4),$d1 jra L(1) .even L(55): movel $a6@(-16),$a2 movel $a2@,$d0 jra L(1) .even L(54): movel $a6@(-16),$a2 clrl $d0 movew $a2@,$d0 jra L(1) .even L(53): movel $a6@(-16),$a2 clrl $d0 moveb $a2@,$d0 jra L(1) .even L(52): movel $a6@(-28),$d0 movel $d0,$a0 jra L(1) .even L(51): btst #6,$a6@(-29) jeq L(31) fmoved $a6@(-28),$fp0 jra L(1) .even L(31): movel $a6@(-28),$d0 movel $a6@(-24),$d1 jra L(1) .even L(50): movel $a6@(-32),$d2 btst #6,$d2 jeq L(25) fmoves $a6@(-28),$fp0 jra L(1) .even L(25): btst #5,$d2 jeq L(27) fmoves $a6@(-28),$fp1 fmoved $fp1,$sp@- movel $sp@+,$d0 movel $sp@+,$d1 jra L(1) .even L(27): movel $a6@(-28),$d0 jra L(1) .even L(45): movel $a6@(-28),$d0 jra L(1) .even L(49): clrl $d0 movew $a6@(-28),$d0 jra L(1) .even L(48): movew $a6@(-28),$d0 extl $d0 jra L(1) .even L(47): clrl $d0 moveb $a6@(-28),$d0 jra L(1) .even L(46): moveb $a6@(-28),$d0 extbl $d0 L(1): moveml $a6@(-48),#0xc0c unlk $a6 rts .even .globl C(callback_get_receiver) DECLARE_FUNCTION(callback_get_receiver) FUNBEGIN(callback_get_receiver) link $a6,#0 movel $a5,$sp@- movel #C(_GLOBAL_OFFSET_TABLE_), $a5 lea $pc@(0,$a5:l),$a5 movel $a5@(C(callback_receiver):l),$d0 movel $sp@+,$a5 unlk $a6 rts FUNEND(callback_get_receiver) #if defined __linux__ || defined __FreeBSD__ || defined __FreeBSD_kernel__ || defined __DragonFly__ .section .note.GNU-stack,"",@progbits #endif libffcall-2.2/callback/vacall_r/vacall-riscv64-lp64d-linux.s0000664000000000000000000000554613530357115020530 00000000000000 .file "vacall-riscv64.c" .option pic .text .align 1 .type callback_receiver, @function callback_receiver: add sp,sp,-288 sd ra,264(sp) sd s0,256(sp) sd s1,248(sp) add s0,sp,272 sd s2,240(sp) sd a1,-192(s0) add a1,s0,16 ld t3,0(t2) sd a7,8(s0) sd a2,-184(s0) sd a3,-176(s0) sd a4,-168(s0) sd a5,-160(s0) sd a6,-152(s0) sd a7,-144(s0) fsw fa0,-132(s0) fsw fa1,-128(s0) fsw fa2,-124(s0) fsw fa3,-120(s0) fsw fa4,-116(s0) fsw fa5,-112(s0) fsw fa6,-108(s0) fsw fa7,-104(s0) fsd fa0,-96(s0) fsd fa1,-88(s0) fsd fa2,-80(s0) fsd fa3,-72(s0) fsd fa4,-64(s0) fsd fa5,-56(s0) fsd fa6,-48(s0) fsd fa7,-40(s0) sd a1,-240(s0) sd a0,-200(s0) sw zero,-264(s0) ld a0,8(t2) sd zero,-232(s0) sw zero,-224(s0) sw zero,-208(s0) sw zero,-136(s0) add a1,s0,-264 jalr t3 lw t1,-224(s0) beqz t1,.L1 li t3,1 beq t1,t3,.L25 li t3,2 beq t1,t3,.L29 li t3,3 beq t1,t3,.L25 li t3,4 beq t1,t3,.L30 li t3,5 beq t1,t3,.L31 li t3,6 beq t1,t3,.L32 li t3,7 beq t1,t3,.L33 and t3,t1,-3 li t4,8 beq t3,t4,.L27 li t4,9 beq t3,t4,.L27 li t3,12 beq t1,t3,.L34 li t3,13 beq t1,t3,.L35 li t3,14 beq t1,t3,.L27 li t3,15 bne t1,t3,.L1 lw t3,-264(s0) and t3,t3,1024 beqz t3,.L1 ld t0,-216(s0) add t3,t0,-1 bgtu t3,t1,.L1 ld t5,-232(s0) li s2,8 and t6,t5,7 add s1,t0,t6 and t5,t5,-8 sext.w t6,t6 sllw t1,s1,3 ld t4,0(t5) sll t3,t6,3 bgtu t0,s2,.L15 bgtu s1,s2,.L16 addw t1,t1,-1 li a0,2 sll a0,a0,t1 add a0,a0,-1 and a0,a0,t4 sra a0,a0,t3 .L1: ld ra,264(sp) ld s0,256(sp) ld s1,248(sp) ld s2,240(sp) add sp,sp,288 jr ra .L25: lbu a0,-256(s0) ld ra,264(sp) ld s0,256(sp) ld s1,248(sp) ld s2,240(sp) add sp,sp,288 jr ra .L29: lb a0,-256(s0) ld ra,264(sp) ld s0,256(sp) ld s1,248(sp) ld s2,240(sp) add sp,sp,288 jr ra .L30: lh a0,-256(s0) j .L1 .L33: lwu a0,-256(s0) j .L1 .L31: lhu a0,-256(s0) j .L1 .L27: ld a0,-256(s0) j .L1 .L32: lw a0,-256(s0) j .L1 .L34: flw fa0,-256(s0) j .L1 .L35: fld fa0,-256(s0) j .L1 .L15: li s2,16 sra t4,t4,t3 ld t0,8(t5) bleu s1,s2,.L36 li a1,-8 mulw t6,a1,t6 addw t1,t1,-129 ld a0,16(t5) li a1,2 sll a1,a1,t1 add a1,a1,-1 and a1,a1,a0 sra t3,t0,t3 addw t1,t6,64 sll a0,t0,t1 sll a1,a1,t1 or a0,a0,t4 or a1,a1,t3 j .L1 .L16: li a0,-8 mulw t6,a0,t6 addw t1,t1,-65 ld t5,8(t5) li a0,2 sll a0,a0,t1 add a0,a0,-1 and a0,a0,t5 sra t4,t4,t3 sll a0,a0,t6 or a0,a0,t4 j .L1 .L36: li a1,-4 mulw t6,a1,t6 addw t1,t1,-65 li a0,2 sll a0,a0,t1 add a0,a0,-1 and a0,a0,t0 sra a1,a0,t3 addw t1,t6,32 sll a0,a0,t1 sll a0,a0,t1 or a0,a0,t4 j .L1 .size callback_receiver, .-callback_receiver .align 1 .globl callback_get_receiver .type callback_get_receiver, @function callback_get_receiver: add sp,sp,-16 sd s0,8(sp) add s0,sp,16 ld s0,8(sp) lla a0,callback_receiver add sp,sp,16 jr ra .size callback_get_receiver, .-callback_get_receiver .ident "GCC: (GNU) 7.3.0" libffcall-2.2/callback/vacall_r/vacall-hppa64-linux.s0000664000000000000000000001037013530357114017371 00000000000000 .LEVEL 2.0w .text .align 8 .globl callback_receiver .type callback_receiver,@function callback_receiver: .PROC .CALLINFO FRAME=384,CALLS,SAVE_RP,SAVE_SP,ENTRY_GR=9 .ENTRY copy %r3,%r1 std %r2,-16(%r30) copy %r30,%r3 std,ma %r1,384(%r30) std %r5,224(%r3) copy %r27,%r5 std %r9,192(%r3) std %r8,200(%r3) std %r7,208(%r3) std %r6,216(%r3) std %r4,232(%r3) std %r26,-64(%r29) std %r25,-56(%r29) std %r19,-8(%r29) std %r24,-48(%r29) std %r23,-40(%r29) std %r22,-32(%r29) std %r21,-24(%r29) std %r20,-16(%r29) #APP fstw %fr4R,88(%r3) fstw %fr5R,92(%r3) fstw %fr6R,96(%r3) fstw %fr7R,100(%r3) fstw %fr8R,104(%r3) fstw %fr9R,108(%r3) fstw %fr10R,112(%r3) fstw %fr11R,116(%r3) #NO_APP fstd %fr10,168(%r3) ldo -64(%r29),%r2 ldo 16(%r3),%r25 std %r0,48(%r3) std %r2,40(%r3) std %r29,80(%r3) ldo -16(%r30),%r29 fstd %fr11,176(%r3) fstd %fr4,120(%r3) fstd %fr5,128(%r3) fstd %fr6,136(%r3) fstd %fr7,144(%r3) fstd %fr8,152(%r3) fstd %fr9,160(%r3) stw %r0,16(%r3) stw %r0,56(%r3) ldd 0(%r31),%r4 ldd 8(%r31),%r26 ldd 16(%r4),%r2 ldd 24(%r4),%r27 bve,l (%r2),%r2 nop ldw 56(%r3),%r2 cmpib,= 0,%r2,.L1 copy %r5,%r27 cmpib,=,n 1,%r2,.L43 cmpib,=,n 2,%r2,.L43 cmpib,=,n 3,%r2,.L44 cmpib,=,n 4,%r2,.L45 cmpib,=,n 5,%r2,.L46 cmpib,=,n 6,%r2,.L47 cmpib,=,n 7,%r2,.L41 cmpib,=,n 8,%r2,.L40 cmpib,=,n 10,%r2,.L40 cmpib,=,n 9,%r2,.L40 cmpib,=,n 11,%r2,.L40 cmpib,=,n 12,%r2,.L48 cmpib,=,n 13,%r2,.L49 cmpib,=,n 14,%r2,.L40 cmpib,= 15,%r2,.L50 ldw 16(%r3),%r2 .L1: ldd -16(%r3),%r2 ldd 192(%r3),%r9 ldd 200(%r3),%r8 ldd 208(%r3),%r7 ldd 216(%r3),%r6 ldd 224(%r3),%r5 ldd 232(%r3),%r4 ldo 64(%r3),%r30 bve (%r2) ldd,mb -64(%r30),%r3 .L50: extrd,u %r2,53+1-1,1,%r2 cmpib,= 0,%r2,.L1 ldd 48(%r3),%r28 ldd 48(%r3),%r2 ldd 64(%r3),%r4 extrd,u %r2,63,3,%r7 copy %r2,%r1 depdi 0,63,3,%r1 cmpib,*<< 8,%r4,.L32 add,l %r7,%r4,%r5 cmpib,*<< 8,%r5,.L33 depd,z %r5,60,61,%r2 subi 64,%r2,%r2 ldd 0(%r1),%r4 extrd,s %r2,63,32,%r2 mtsarcm %r2 depd,z %r7,60,61,%r5 depdi,z 1,%sar,64,%r2 mtsarcm %r5 sub %r0,%r2,%r2 and %r4,%r2,%r4 depd,z %r4,%sar,64,%r4 b .L1 copy %r4,%r28 .L33: subi 128,%r2,%r2 depd,z %r7,60,61,%r4 extrd,s %r2,63,32,%r2 subi 64,%r4,%r6 mtsarcm %r2 subi 63,%r4,%r8 depdi,z 1,%sar,64,%r2 mtsar %r8 ldd 8(%r1),%r5 sub %r0,%r2,%r2 extrd,s %r6,63,32,%r6 ldd 0(%r1),%r4 subi 63,%r6,%r6 and %r5,%r2,%r5 depd,z %r4,%sar,64,%r4 mtsar %r6 extrd,s %r5,%sar,64,%r5 .L39: b .L1 or %r5,%r4,%r28 .L32: ldi 16,%r2 cmpb,*<< %r2,%r5,.L36 depd,z %r5,60,61,%r2 subi 128,%r2,%r2 depd,z %r7,61,62,%r4 extrd,s %r2,63,32,%r2 subi 32,%r4,%r4 mtsarcm %r2 extrd,s %r4,63,32,%r4 depdi,z 1,%sar,64,%r2 subi 63,%r4,%r8 ldd 8(%r1),%r5 sub %r0,%r2,%r2 mtsar %r8 ldd 0(%r1),%r6 and %r5,%r2,%r5 depd,z %r7,60,61,%r2 extrd,s %r5,%sar,64,%r4 subi 63,%r2,%r2 extrd,s %r4,%sar,64,%r4 mtsar %r2 depd,z %r5,%sar,64,%r5 depd,z %r6,%sar,64,%r6 copy %r5,%r29 b .L1 or %r6,%r4,%r28 .L36: subi 192,%r2,%r2 depd,z %r7,60,61,%r4 extrd,s %r2,63,32,%r2 subi 64,%r4,%r7 mtsarcm %r2 subi 63,%r4,%r9 depdi,z 1,%sar,64,%r2 mtsar %r9 ldd 8(%r1),%r4 sub %r0,%r2,%r2 ldd 16(%r1),%r6 extrd,s %r7,63,32,%r7 subi 63,%r7,%r7 and %r6,%r2,%r6 ldd 0(%r1),%r5 depd,z %r4,%sar,64,%r2 mtsar %r7 extrd,s %r6,%sar,64,%r6 mtsar %r9 depd,z %r5,%sar,64,%r5 or %r2,%r6,%r29 mtsar %r7 b .L39 extrd,s %r4,%sar,64,%r4 .L40: b .L1 ldd 24(%r3),%r28 .L49: b .L40 fldd 24(%r3),%fr4 .L48: #APP fldw 24(%r3),%fr4R #NO_APP .L41: ldw 24(%r3),%r2 .L42: b .L1 copy %r2,%r28 .L47: ldw 24(%r3),%r2 b .L1 extrd,s %r2,63,32,%r28 .L46: b .L42 ldh 24(%r3),%r2 .L45: ldh 24(%r3),%r2 b .L1 extrd,s %r2,63,16,%r28 .L44: b .L42 ldb 24(%r3),%r2 .L43: ldb 24(%r3),%r2 b .L1 extrd,s %r2,63,8,%r28 .EXIT .PROCEND .Lfe1: .size callback_receiver,.Lfe1-callback_receiver .data .align 8 .LC0: .dword P%callback_receiver .text .align 8 .globl callback_get_receiver .type callback_get_receiver,@function callback_get_receiver: .PROC .CALLINFO FRAME=128,NO_CALLS,SAVE_SP,ENTRY_GR=3 .ENTRY copy %r3,%r1 copy %r30,%r3 std,ma %r1,128(%r30) addil LT'.LC0,%r27 ldd RT'.LC0(%r1),%r1 ldd 0(%r1),%r28 ldo 64(%r3),%r30 bve (%r2) ldd,mb -64(%r30),%r3 .EXIT .PROCEND .Lfe2: .size callback_get_receiver,.Lfe2-callback_get_receiver .ident "GCC: (GNU) 3.1" libffcall-2.2/callback/vacall_r/vacall-mipsn32eb-macro.S0000664000000000000000000001173113530357113017774 00000000000000#include "asm-mips.h" .file 1 "vacall-mipsn32.c" .text .align 2 .align 3 .set nomips16 .set nomicromips .ent callback_receiver DECLARE_FUNCTION(callback_receiver) callback_receiver: .frame $fp,256,$31 .mask 0xd0070000,-72 .fmask 0x00000000,0 .set noreorder .set nomacro addiu $sp,$sp,-256 sd $fp,176($sp) move $fp,$sp sd $4,192($fp) lw $4,4($2) lw $25,0($2) addiu $12,$fp,192 sd $31,184($sp) sd $18,160($sp) sd $17,152($sp) sd $16,144($sp) sd $5,200($fp) sd $6,208($fp) sd $7,216($fp) sd $8,224($fp) sd $9,232($fp) sd $10,240($fp) sd $11,248($fp) sdc1 $f12,80($fp) sdc1 $f13,88($fp) sdc1 $f14,96($fp) sdc1 $f15,104($fp) sdc1 $f16,112($fp) sdc1 $f17,120($fp) sdc1 $f18,128($fp) sdc1 $f19,136($fp) swc1 $f12,44($fp) swc1 $f13,48($fp) swc1 $f14,52($fp) swc1 $f15,56($fp) swc1 $f16,60($fp) swc1 $f17,64($fp) swc1 $f18,68($fp) move $5,$fp swc1 $f19,72($fp) sw $12,24($fp) sw $0,0($fp) sw $0,28($fp) sw $0,32($fp) jalr $25 sw $0,40($fp) lw $12,32($fp) beq $12,$0,.L1 li $13,1 beq $12,$13,.L43 li $13,2 beq $12,$13,.L43 li $13,3 beq $12,$13,.L49 li $13,4 beq $12,$13,.L50 li $13,5 beq $12,$13,.L51 li $13,6 beq $12,$13,.L46 li $13,7 beq $12,$13,.L45 li $13,8 beq $12,$13,.L46 li $13,9 beq $12,$13,.L45 li $13,10 beq $12,$13,.L47 li $13,11 beq $12,$13,.L47 li $13,12 beq $12,$13,.L52 li $13,13 beq $12,$13,.L53 li $13,14 beq $12,$13,.L46 li $13,15 bnel $12,$13,.L59 move $sp,$fp lw $12,0($fp) andi $13,$12,0x400 beq $13,$0,.L1 andi $13,$12,0x4 beq $13,$0,.L19 lw $24,36($fp) lw $12,36($fp) li $13,1 beq $12,$13,.L54 li $13,2 beq $12,$13,.L55 li $13,4 beq $12,$13,.L56 li $13,8 bnel $12,$13,.L59 move $sp,$fp lw $12,28($fp) ld $2,0($12) .L1: move $sp,$fp .L59: ld $31,184($sp) ld $fp,176($sp) ld $18,160($sp) ld $17,152($sp) ld $16,144($sp) j $31 addiu $sp,$sp,256 .align 3 .L43: move $sp,$fp ld $31,184($sp) ld $18,160($sp) ld $17,152($sp) ld $16,144($sp) lb $2,8($fp) ld $fp,176($sp) j $31 addiu $sp,$sp,256 .align 3 .L46: b .L1 lw $2,8($fp) .align 3 .L49: b .L1 lbu $2,8($fp) .align 3 .L50: b .L1 lh $2,8($fp) .align 3 .L45: b .L1 lwu $2,8($fp) .align 3 .L51: b .L1 lhu $2,8($fp) .align 3 .L52: b .L1 lwc1 $f0,8($fp) .align 3 .L47: b .L1 ld $2,8($fp) .L53: b .L1 ldc1 $f0,8($fp) .L19: addiu $13,$24,-1 sltu $13,$13,16 beql $13,$0,.L60 andi $13,$12,0x800 lw $13,28($fp) li $15,-8 sltu $25,$24,9 andi $14,$13,0x7 and $15,$13,$15 beq $25,$0,.L24 addu $13,$24,$14 sltu $25,$13,9 beq $25,$0,.L25 subu $13,$0,$13 ld $25,0($15) sll $13,$13,3 li $15,-1 dsll $13,$15,$13 and $13,$13,$25 sll $14,$14,3 dsll $2,$13,$14 .L23: andi $13,$12,0x800 .L60: beql $13,$0,.L27 andi $12,$12,0x1000 li $13,4 beq $24,$13,.L57 li $13,8 beql $24,$13,.L58 lw $13,28($fp) andi $12,$12,0x1000 beql $12,$0,.L59 move $sp,$fp li $12,16 .L61: bnel $24,$12,.L59 move $sp,$fp lw $12,28($fp) ldc1 $f0,0($12) b .L1 ldc1 $f2,8($12) .L27: beq $12,$0,.L1 li $12,8 bne $24,$12,.L61 li $12,16 lw $13,28($fp) b .L1 ldc1 $f0,0($13) .L24: sltu $25,$13,17 beq $25,$0,.L26 subu $13,$0,$13 ld $17,8($15) subu $16,$0,$14 li $25,-1 sll $13,$13,3 dsll $13,$25,$13 sll $25,$16,2 ld $16,0($15) and $13,$13,$17 addiu $15,$25,32 sll $14,$14,3 dsra $25,$13,$15 dsll $16,$16,$14 dsra $15,$25,$15 or $2,$16,$15 b .L23 dsll $3,$13,$14 .L54: lw $12,28($fp) b .L1 lbu $2,0($12) .L55: lw $12,28($fp) b .L1 lhu $2,0($12) .L26: ld $18,16($15) ld $16,8($15) ld $17,0($15) subu $25,$0,$14 li $15,-1 sll $13,$13,3 sll $25,$25,3 dsll $13,$15,$13 sll $14,$14,3 addiu $15,$25,64 and $13,$13,$18 dsll $25,$17,$14 dsra $13,$13,$15 dsra $17,$16,$15 dsll $14,$16,$14 or $2,$25,$17 b .L23 or $3,$13,$14 .L57: lw $12,28($fp) b .L1 lwc1 $f0,0($12) .L56: lw $12,28($fp) b .L1 lwu $2,0($12) .L25: ld $16,8($15) ld $25,0($15) sll $13,$13,3 li $15,-1 dsll $13,$15,$13 subu $15,$0,$14 and $13,$13,$16 sll $15,$15,3 sll $14,$14,3 dsra $13,$13,$15 dsll $14,$25,$14 b .L23 or $2,$13,$14 .L58: andi $12,$12,0x1000 lwc1 $f0,0($13) beq $12,$0,.L1 lwc1 $f2,4($13) b .L1 ldc1 $f0,0($13) .set macro .set reorder .end callback_receiver .size callback_receiver, .-callback_receiver .align 2 .align 3 .globl callback_get_receiver .set nomips16 .set nomicromips .ent callback_get_receiver DECLARE_FUNCTION(callback_get_receiver) callback_get_receiver: .frame $fp,16,$31 .mask 0x40000000,-8 .fmask 0x00000000,0 .set noreorder .set nomacro lui $13,%hi(%neg(%gp_rel(callback_get_receiver))) addu $13,$13,$25 addiu $13,$13,%lo(%neg(%gp_rel(callback_get_receiver))) addiu $sp,$sp,-16 lw $12,%got_page(callback_receiver)($13) sd $fp,8($sp) move $fp,$sp move $sp,$fp ld $fp,8($sp) addiu $2,$12,%got_ofst(callback_receiver) j $31 addiu $sp,$sp,16 .set macro .set reorder .end callback_get_receiver .size callback_get_receiver, .-callback_get_receiver libffcall-2.2/callback/vacall_r/vacall-arm-macro.S0000664000000000000000000000435313530357114016754 00000000000000#include "asm-arm.h" .text .align 2 DECLARE_FUNCTION(callback_receiver) FUNBEGIN(callback_receiver) // args = 28, pretend = 0, frame = 32 // frame_needed = 1, uses_anonymous_args = 0 mov ip, sp stmfd sp!, {r4, fp, ip, lr, pc} mov r2, $0 sub fp, ip, $4 sub sp, sp, $32 ldr r4, [fp, $4] str r2, [fp, $-28] add r3, fp, $28 str r2, [fp, $-24] str r2, [fp, $-48] str r3, [fp, $-32] bic sp, sp, $7 ldr r0, [r4, $4] sub r1, fp, $48 mov lr, pc ldr pc, [r4, $0] ldr r2, [fp, $-24] cmp r2, $0 ldmeqea fp, {r4, fp, sp, pc} cmp r2, $1 beq L(36) cmp r2, $2 ldreqsb r0, [fp, $-40] ldmeqea fp, {r4, fp, sp, pc} cmp r2, $3 beq L(36) cmp r2, $4 ldreqsh r0, [fp, $-40] ldmeqea fp, {r4, fp, sp, pc} cmp r2, $5 ldreqh r0, [fp, $-40] ldmeqea fp, {r4, fp, sp, pc} cmp r2, $6 beq L(40) cmp r2, $7 beq L(40) cmp r2, $8 beq L(40) cmp r2, $9 beq L(40) sub r3, r2, $10 cmp r3, $1 bls L(41) cmp r2, $12 ldreq r0, [fp, $-40] // float ldmeqea fp, {r4, fp, sp, pc} cmp r2, $13 beq L(41) cmp r2, $14 beq L(40) cmp r2, $15 ldmneea fp, {r4, fp, sp, pc} ldr r3, [fp, $-48] tst r3, $1024 ldmeqea fp, {r4, fp, sp, pc} ldr r3, [fp, $-20] cmp r3, $1 ldreq r3, [fp, $-28] ldreqb r0, [r3, $0] // zero_extendqisi2 ldmeqea fp, {r4, fp, sp, pc} cmp r3, $2 ldreq r3, [fp, $-28] ldrne r3, [fp, $-28] ldreqh r0, [r3, $0] ldrne r0, [r3, $0] ldmea fp, {r4, fp, sp, pc} L(40): ldr r0, [fp, $-40] ldmea fp, {r4, fp, sp, pc} L(41): sub r0, fp, $40 ldmia r0, {r0, r1} // phole ldm ldmea fp, {r4, fp, sp, pc} L(36): ldrb r0, [fp, $-40] // zero_extendqisi2 ldmea fp, {r4, fp, sp, pc} L(fe1): FUNEND(callback_receiver) .align 2 .global C(callback_get_receiver) DECLARE_FUNCTION(callback_get_receiver) FUNBEGIN(callback_get_receiver) // args = 0, pretend = 0, frame = 0 // frame_needed = 1, uses_anonymous_args = 0 mov ip, sp stmfd sp!, {sl, fp, ip, lr, pc} ldr sl, L(44) ldr r3, L(44)+4 L(43): add sl, pc, sl sub fp, ip, $4 add r0, sl, r3 ldmea fp, {sl, fp, sp, pc} L(45): .align 2 L(44): .word _GLOBAL_OFFSET_TABLE_-(L(43)+8) .word callback_receiver(GOTOFF) L(fe2): FUNEND(callback_get_receiver) #if defined __linux__ || defined __FreeBSD__ || defined __FreeBSD_kernel__ || defined __DragonFly__ .section .note.GNU-stack,"",%progbits #endif libffcall-2.2/callback/vacall_r/vacall-alpha-linux.s0000664000000000000000000000604113530357113017353 00000000000000 .set noreorder .set volatile .set noat .set nomacro .text .align 2 .align 4 .ent callback_receiver callback_receiver: .frame $15,192,$26,48 .mask 0x4008000,-192 ldah $29,0($27) !gpdisp!1 lda $29,0($29) !gpdisp!1 $callback_receiver..ng: lda $30,-192($30) ldq $27,0($1) stq $15,8($30) mov $30,$15 lda $3,144($15) stq $26,0($30) .prologue 1 stq $31,48($15) lda $2,88($15) stq $16,144($15) subq $2,$3,$2 ldq $16,8($1) stq $17,152($15) lda $3,192($15) stq $2,80($15) lda $17,16($15) lda $2,144($15) stq $3,72($15) stq $18,160($15) stq $19,168($15) stq $20,176($15) stq $21,184($15) stt $f16,88($15) stt $f17,96($15) stt $f18,104($15) stt $f19,112($15) stt $f20,120($15) stt $f21,128($15) stl $31,16($15) stq $2,40($15) stl $31,56($15) jsr $26,($27),0 ldah $29,0($26) !gpdisp!2 lda $29,0($29) !gpdisp!2 ldl $2,56($15) beq $2,$L43 zapnot $2,15,$3 cmpeq $3,1,$2 bne $2,$L44 cmpeq $3,2,$2 bne $2,$L44 cmpeq $3,3,$2 bne $2,$L50 cmpeq $3,4,$2 bne $2,$L51 cmpeq $3,5,$2 bne $2,$L52 cmpeq $3,6,$2 bne $2,$L53 cmpeq $3,7,$2 bne $2,$L54 cmpeq $3,8,$2 bne $2,$L48 cmpeq $3,9,$2 bne $2,$L48 cmpeq $3,10,$2 bne $2,$L48 cmpeq $3,11,$2 bne $2,$L48 cmpeq $3,12,$2 bne $2,$L55 cmpeq $3,13,$2 bne $2,$L56 cmpeq $3,14,$2 bne $2,$L48 cmpeq $3,15,$2 beq $2,$L43 lda $2,1024($31) ldl $3,16($15) and $2,$3,$2 beq $2,$L43 ldq $3,64($15) cmpeq $3,1,$2 bne $2,$L57 cmpeq $3,2,$2 bne $2,$L58 cmpeq $3,4,$2 bne $2,$L59 cmpeq $3,8,$2 bne $2,$L60 cmpeq $3,16,$2 beq $2,$L43 ldq $2,48($15) ldq $1,8($2) ldq $0,0($2) .align 4 $L43: mov $15,$30 ldq $26,0($30) ldq $15,8($30) lda $30,192($30) ret $31,($26),1 .align 4 $L44: mov $15,$30 ldl $2,24($15) ldq $26,0($30) sll $2,56,$2 sra $2,56,$0 ldq $15,8($30) lda $30,192($30) ret $31,($26),1 $L51: ldl $2,24($15) sll $2,48,$2 sra $2,48,$0 br $31,$L43 $L50: ldl $2,24($15) bis $31,$31,$31 and $2,0xff,$0 br $31,$L43 $L48: ldq $0,24($15) br $31,$L43 $L52: ldl $2,24($15) bis $31,$31,$31 zapnot $2,3,$0 br $31,$L43 $L53: ldl $3,24($15) bis $31,$31,$31 mov $3,$0 br $31,$L43 $L54: ldl $2,24($15) bis $31,$31,$31 zapnot $2,15,$0 br $31,$L43 $L55: lds $f0,24($15) br $31,$L43 $L56: ldt $f0,24($15) br $31,$L43 $L57: ldq $3,48($15) ldq_u $2,0($3) extbl $2,$3,$0 br $31,$L43 $L58: ldq $3,48($15) ldq_u $2,0($3) extwl $2,$3,$0 br $31,$L43 $L60: ldq $2,48($15) bis $31,$31,$31 ldq $0,0($2) br $31,$L43 $L59: ldq $2,48($15) ldl $3,0($2) zapnot $3,15,$0 br $31,$L43 .end callback_receiver .align 2 .align 4 .globl callback_get_receiver .ent callback_get_receiver callback_get_receiver: .frame $15,16,$26,0 .mask 0x4008000,-16 ldah $29,0($27) !gpdisp!3 lda $29,0($29) !gpdisp!3 $callback_get_receiver..ng: lda $30,-16($30) ldah $2,callback_receiver($29) !gprelhigh stq $15,8($30) mov $30,$15 stq $26,0($30) .prologue 1 mov $15,$30 lda $0,callback_receiver($2) !gprellow ldq $26,0($30) ldq $15,8($30) lda $30,16($30) ret $31,($26),1 .end callback_get_receiver .ident "GCC: (GNU) 4.0.2" .section .note.GNU-stack,"",@progbits libffcall-2.2/callback/vacall_r/vacall-hppa-macro.S0000664000000000000000000000772613530357113017133 00000000000000#include "asm-hppa.h" .LEVEL 1.1 IMPORT_MILLICODE($$dyncall) TEXT1() TEXT2() .align 4 DECLARE_FUNCTION(callback_receiver) DEF(callback_receiver) .PROC .CALLINFO FRAME=192,CALLS,SAVE_RP,SAVE_SP,ENTRY_GR=5 .ENTRY copy %r3,%r1 stw %r2,-20(%r30) copy %r30,%r3 stwm %r1,192(%r30) ldo -32(%r3),%r2 ldo 16(%r3),%r21 ldo 88(%r3),%r20 stw %r5,96(%r3) sub %r21,%r2,%r31 copy %r19,%r5 stw %r4,100(%r3) ldo 80(%r31),%r4 ldo 64(%r31),%r31 stw %r19,-32(%r30) stw %r25,-40(%r3) copy %r21,%r25 ldo 80(%r3),%r21 fstds %fr5,0(%r20) ldo 76(%r3),%r20 fstws %fr4L,0(%r20) ldo 68(%r3),%r20 stw %r0,36(%r3) stw %r28,48(%r3) fstds %fr7,0(%r21) ldo 72(%r3),%r21 fstws %fr5L,0(%r21) ldo 64(%r3),%r21 fstws %fr6L,0(%r20) ldo -48(%r3),%r20 stw %r26,-36(%r3) fstws %fr7L,0(%r21) ldw 0(%r29),%r22 stw %r20,52(%r3) stw %r31,56(%r3) stw %r4,60(%r3) stw %r24,-44(%r3) stw %r23,-48(%r3) stw %r0,16(%r3) stw %r2,32(%r3) stw %r0,40(%r3) ldw 4(%r29),%r26 .CALL ARGW0=GR bl $$dyncall,%r31 copy %r31,%r2 ldw 40(%r3),%r21 comib,= 0,%r21,L(1) copy %r5,%r19 comib,= 1,%r21,L(48) ldb 24(%r3),%r20 comib,=,n 2,%r21,L(48) comib,=,n 3,%r21,L(43) comib,=,n 4,%r21,L(44) comib,=,n 5,%r21,L(45) comib,=,n 6,%r21,L(41) comib,=,n 7,%r21,L(41) comib,=,n 8,%r21,L(41) comib,= 9,%r21,L(41) ldo -10(%r21),%r20 comib,<<,n 1,%r20,L(22) ldw 24(%r3),%r28 DEF(L(40)) ldw 28(%r3),%r29 DEF(L(1)) ldw -20(%r3),%r2 DEF(L(49)) DEF(L(50)) ldw 96(%r3),%r5 ldw 100(%r3),%r4 ldo 64(%r3),%r30 bv %r0(%r2) ldwm -64(%r30),%r3 DEF(L(22)) comib,= 12,%r21,L(46) ldo 24(%r3),%r20 comib,=,n 13,%r21,L(47) comib,=,n 14,%r21,L(1) ldw 24(%r3),%r28 comib,<> 15,%r21,L(49) ldw -20(%r3),%r2 ldw 16(%r3),%r20 bb,>= %r20,30,L(49) ldw 44(%r3),%r4 ldo -1(%r4),%r20 comib,<< 7,%r20,L(50) ldw 36(%r3),%r20 extru %r20,31,2,%r31 copy %r20,%r2 depi 0,31,2,%r2 comib,<< 4,%r4,L(33) addl %r31,%r4,%r5 zdep %r31,28,29,%r31 mtsar %r31 zvdepi 2,32,%r20 comib,<< 4,%r5,L(34) ldo -1(%r20),%r31 ldw 0(%r2),%r20 zdep %r5,28,29,%r21 ldo -1(%r21),%r21 and %r20,%r31,%r20 mtsar %r21 vextrs %r20,32,%r20 movb,tr %r20,%r28,L(49) ldw -20(%r3),%r2 DEF(L(34)) ldw 0(%r2),%r20 zdep %r5,28,29,%r22 ldw 4(%r2),%r21 and %r20,%r31,%r20 ldo -33(%r22),%r2 subi 63,%r22,%r22 mtsar %r22 zvdep %r20,32,%r20 mtsar %r2 vextrs %r21,32,%r21 DEF(L(39)) b L(1) or %r21,%r20,%r28 DEF(L(33)) zdep %r31,28,29,%r31 mtsar %r31 zvdepi 2,32,%r20 comib,<< 8,%r5,L(37) ldo -1(%r20),%r4 ldw 0(%r2),%r22 zdep %r5,29,30,%r20 and %r22,%r4,%r22 ldw 4(%r2),%r31 subi 47,%r20,%r4 zdep %r5,28,29,%r20 mtsar %r4 ldo -33(%r20),%r20 zvdep %r22,32,%r21 zvdep %r21,32,%r21 mtsar %r20 vextrs %r31,32,%r31 vextrs %r22,32,%r22 movb,tr %r22,%r28,L(1) or %r21,%r31,%r29 DEF(L(37)) ldw 0(%r2),%r21 zdep %r5,28,29,%r31 ldw 8(%r2),%r22 and %r21,%r4,%r21 ldo -65(%r31),%r4 ldw 4(%r2),%r20 mtsar %r4 subi 95,%r31,%r2 vextrs %r22,32,%r22 mtsar %r2 zvdep %r20,32,%r31 zvdep %r21,32,%r21 or %r31,%r22,%r29 mtsar %r4 b L(39) vextrs %r20,32,%r20 DEF(L(41)) b L(1) ldw 24(%r3),%r28 DEF(L(47)) ldw 24(%r3),%r28 b L(40) fldds 0(%r20),%fr4 DEF(L(46)) ldw 24(%r3),%r28 b L(1) fldws 0(%r20),%fr4L DEF(L(45)) b L(1) ldh 24(%r3),%r28 DEF(L(44)) ldh 24(%r3),%r20 b L(1) extrs %r20,31,16,%r28 DEF(L(43)) b L(1) ldb 24(%r3),%r28 DEF(L(48)) b L(1) extrs %r20,31,8,%r28 .EXIT .PROCEND DEF(L(fe1)) FUNEND(callback_receiver) .data .align 4 DEF(L(C0)) .word P%callback_receiver TEXT1() TEXT2() .align 4 GLOBL(callback_get_receiver) DECLARE_FUNCTION(callback_get_receiver) DEF(callback_get_receiver) .PROC .CALLINFO FRAME=64,NO_CALLS,SAVE_SP,ENTRY_GR=3 .ENTRY copy %r3,%r1 copy %r30,%r3 stwm %r1,64(%r30) addil LT!L(C0),%r19 stw %r19,-32(%r30) ldw RT!L(C0)(%r1),%r1 ldw 0(%r1),%r28 ldo 64(%r3),%r30 bv %r0(%r2) ldwm -64(%r30),%r3 .EXIT .PROCEND DEF(L(fe2)) FUNEND(callback_get_receiver) #if defined __linux__ || defined __FreeBSD__ || defined __FreeBSD_kernel__ || defined __DragonFly__ .section .note.GNU-stack,"",@progbits #endif libffcall-2.2/callback/vacall_r/vacall-structcpy.c0000664000000000000000000000142613347755306017167 00000000000000/* copy structs */ /* * Copyright 2016 Bruno Haible * * This program is free software: you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by * the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program. If not, see . */ #define __structcpy callback_structcpy #include "structcpy.c" libffcall-2.2/callback/vacall_r/vacall-mipsel-linux.s0000664000000000000000000001060413530357113017557 00000000000000 .file 1 "vacall-mips.c" .section .mdebug.abi32 .previous .nan legacy .module fp=xx .module nooddspreg .abicalls .text .align 2 .set nomips16 .set nomicromips .ent callback_receiver .type callback_receiver, @function callback_receiver: .frame $fp,104,$31 # vars= 72, regs= 2/0, args= 16, gp= 8 .mask 0xc0000000,-4 .fmask 0x00000000,0 .set noreorder .cpload $25 .set reorder addiu $sp,$sp,-104 sw $fp,96($sp) move $fp,$sp sw $31,100($sp) lw $25,0($2) sw $4,104($fp) lw $4,4($2) sw $5,108($fp) addiu $5,$fp,104 sw $5,40($fp) addiu $5,$fp,120 sw $5,56($fp) .cprestore 16 sw $6,112($fp) sw $7,116($fp) sdc1 $f12,80($fp) sdc1 $f14,88($fp) swc1 $f12,68($fp) swc1 $f14,72($fp) sw $0,24($fp) sw $0,44($fp) sw $0,48($fp) sw $0,60($fp) sw $0,64($fp) addiu $5,$fp,24 jal $25 lw $4,48($fp) .set noreorder .set nomacro beq $4,$0,$L1 li $5,1 # 0x1 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,$L23 li $5,2 # 0x2 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,$L23 li $5,3 # 0x3 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,$L29 li $5,4 # 0x4 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,$L30 li $5,5 # 0x5 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,$L31 li $5,6 # 0x6 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,$L27 li $5,7 # 0x7 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,$L27 li $5,8 # 0x8 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,$L27 li $5,9 # 0x9 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,$L27 addiu $5,$4,-10 .set macro .set reorder sltu $5,$5,2 .set noreorder .set nomacro bne $5,$0,$L32 li $5,12 # 0xc .set macro .set reorder .set noreorder .set nomacro beq $4,$5,$L33 li $5,13 # 0xd .set macro .set reorder .set noreorder .set nomacro beq $4,$5,$L34 li $5,14 # 0xe .set macro .set reorder .set noreorder .set nomacro beq $4,$5,$L27 li $5,15 # 0xf .set macro .set reorder .set noreorder .set nomacro bnel $4,$5,$L37 move $sp,$fp .set macro .set reorder lw $4,24($fp) andi $4,$4,0x2 .set noreorder .set nomacro beql $4,$0,$L38 lw $2,44($fp) .set macro .set reorder lw $4,52($fp) li $5,1 # 0x1 .set noreorder .set nomacro beql $4,$5,$L35 lw $4,44($fp) .set macro .set reorder li $5,2 # 0x2 .set noreorder .set nomacro beq $4,$5,$L36 li $5,4 # 0x4 .set macro .set reorder .set noreorder .set nomacro bnel $4,$5,$L37 move $sp,$fp .set macro .set reorder lw $4,44($fp) lw $2,0($4) $L1: $L38: move $sp,$fp $L37: lw $31,100($sp) lw $fp,96($sp) .set noreorder .set nomacro j $31 addiu $sp,$sp,104 .set macro .set reorder $L23: move $sp,$fp lw $31,100($sp) lb $2,32($fp) lw $fp,96($sp) .set noreorder .set nomacro j $31 addiu $sp,$sp,104 .set macro .set reorder $L27: move $sp,$fp lw $31,100($sp) lw $2,32($fp) lw $fp,96($sp) .set noreorder .set nomacro j $31 addiu $sp,$sp,104 .set macro .set reorder $L29: .set noreorder .set nomacro b $L1 lbu $2,32($fp) .set macro .set reorder $L30: .set noreorder .set nomacro b $L1 lh $2,32($fp) .set macro .set reorder $L31: .set noreorder .set nomacro b $L1 lhu $2,32($fp) .set macro .set reorder $L34: .set noreorder .set nomacro b $L1 ldc1 $f0,32($fp) .set macro .set reorder $L32: lw $2,32($fp) .set noreorder .set nomacro b $L1 lw $3,36($fp) .set macro .set reorder $L33: .set noreorder .set nomacro b $L1 lwc1 $f0,32($fp) .set macro .set reorder $L35: .set noreorder .set nomacro b $L1 lbu $2,0($4) .set macro .set reorder $L36: lw $4,44($fp) .set noreorder .set nomacro b $L1 lhu $2,0($4) .set macro .set reorder .end callback_receiver .size callback_receiver, .-callback_receiver .align 2 .globl callback_get_receiver .set nomips16 .set nomicromips .ent callback_get_receiver .type callback_get_receiver, @function callback_get_receiver: .frame $fp,8,$31 # vars= 0, regs= 1/0, args= 0, gp= 0 .mask 0x40000000,-4 .fmask 0x00000000,0 .set noreorder .cpload $25 .set reorder addiu $sp,$sp,-8 sw $fp,4($sp) move $fp,$sp move $sp,$fp lw $fp,4($sp) la $2,callback_receiver .set noreorder .set nomacro j $31 addiu $sp,$sp,8 .set macro .set reorder .end callback_get_receiver .size callback_get_receiver, .-callback_get_receiver .ident "GCC: (GNU) 5.4.0" libffcall-2.2/callback/vacall_r/vacall-hppa-linux.s0000664000000000000000000000727413530357113017227 00000000000000 .LEVEL 1.1 .text .align 4 .type callback_receiver,@function callback_receiver: .PROC .CALLINFO FRAME=192,CALLS,SAVE_RP,SAVE_SP,ENTRY_GR=5 .ENTRY copy %r3,%r1 stw %r2,-20(%r30) copy %r30,%r3 stwm %r1,192(%r30) ldo -32(%r3),%r2 ldo 16(%r3),%r21 ldo 88(%r3),%r20 stw %r5,96(%r3) sub %r21,%r2,%r31 copy %r19,%r5 stw %r4,100(%r3) ldo 80(%r31),%r4 ldo 64(%r31),%r31 stw %r19,-32(%r30) stw %r25,-40(%r3) copy %r21,%r25 ldo 80(%r3),%r21 fstds %fr5,0(%r20) ldo 76(%r3),%r20 fstws %fr4L,0(%r20) ldo 68(%r3),%r20 stw %r0,36(%r3) stw %r28,48(%r3) fstds %fr7,0(%r21) ldo 72(%r3),%r21 fstws %fr5L,0(%r21) ldo 64(%r3),%r21 fstws %fr6L,0(%r20) ldo -48(%r3),%r20 stw %r26,-36(%r3) fstws %fr7L,0(%r21) ldw 0(%r29),%r22 stw %r20,52(%r3) stw %r31,56(%r3) stw %r4,60(%r3) stw %r24,-44(%r3) stw %r23,-48(%r3) stw %r0,16(%r3) stw %r2,32(%r3) stw %r0,40(%r3) ldw 4(%r29),%r26 .CALL ARGW0=GR bl $$dyncall,%r31 copy %r31,%r2 ldw 40(%r3),%r21 comib,= 0,%r21,.L1 copy %r5,%r19 comib,= 1,%r21,.L48 ldb 24(%r3),%r20 comib,=,n 2,%r21,.L48 comib,=,n 3,%r21,.L43 comib,=,n 4,%r21,.L44 comib,=,n 5,%r21,.L45 comib,=,n 6,%r21,.L41 comib,=,n 7,%r21,.L41 comib,=,n 8,%r21,.L41 comib,= 9,%r21,.L41 ldo -10(%r21),%r20 comib,<<,n 1,%r20,.L22 ldw 24(%r3),%r28 .L40: ldw 28(%r3),%r29 .L1: ldw -20(%r3),%r2 .L49: .L50: ldw 96(%r3),%r5 ldw 100(%r3),%r4 ldo 64(%r3),%r30 bv %r0(%r2) ldwm -64(%r30),%r3 .L22: comib,= 12,%r21,.L46 ldo 24(%r3),%r20 comib,=,n 13,%r21,.L47 comib,=,n 14,%r21,.L1 ldw 24(%r3),%r28 comib,<> 15,%r21,.L49 ldw -20(%r3),%r2 ldw 16(%r3),%r20 bb,>= %r20,30,.L49 ldw 44(%r3),%r4 ldo -1(%r4),%r20 comib,<< 7,%r20,.L50 ldw 36(%r3),%r20 extru %r20,31,2,%r31 copy %r20,%r2 depi 0,31,2,%r2 comib,<< 4,%r4,.L33 addl %r31,%r4,%r5 zdep %r31,28,29,%r31 mtsar %r31 zvdepi 2,32,%r20 comib,<< 4,%r5,.L34 ldo -1(%r20),%r31 ldw 0(%r2),%r20 zdep %r5,28,29,%r21 ldo -1(%r21),%r21 and %r20,%r31,%r20 mtsar %r21 vextrs %r20,32,%r20 movb,tr %r20,%r28,.L49 ldw -20(%r3),%r2 .L34: ldw 0(%r2),%r20 zdep %r5,28,29,%r22 ldw 4(%r2),%r21 and %r20,%r31,%r20 ldo -33(%r22),%r2 subi 63,%r22,%r22 mtsar %r22 zvdep %r20,32,%r20 mtsar %r2 vextrs %r21,32,%r21 .L39: b .L1 or %r21,%r20,%r28 .L33: zdep %r31,28,29,%r31 mtsar %r31 zvdepi 2,32,%r20 comib,<< 8,%r5,.L37 ldo -1(%r20),%r4 ldw 0(%r2),%r22 zdep %r5,29,30,%r20 and %r22,%r4,%r22 ldw 4(%r2),%r31 subi 47,%r20,%r4 zdep %r5,28,29,%r20 mtsar %r4 ldo -33(%r20),%r20 zvdep %r22,32,%r21 zvdep %r21,32,%r21 mtsar %r20 vextrs %r31,32,%r31 vextrs %r22,32,%r22 movb,tr %r22,%r28,.L1 or %r21,%r31,%r29 .L37: ldw 0(%r2),%r21 zdep %r5,28,29,%r31 ldw 8(%r2),%r22 and %r21,%r4,%r21 ldo -65(%r31),%r4 ldw 4(%r2),%r20 mtsar %r4 subi 95,%r31,%r2 vextrs %r22,32,%r22 mtsar %r2 zvdep %r20,32,%r31 zvdep %r21,32,%r21 or %r31,%r22,%r29 mtsar %r4 b .L39 vextrs %r20,32,%r20 .L41: b .L1 ldw 24(%r3),%r28 .L47: ldw 24(%r3),%r28 b .L40 fldds 0(%r20),%fr4 .L46: ldw 24(%r3),%r28 b .L1 fldws 0(%r20),%fr4L .L45: b .L1 ldh 24(%r3),%r28 .L44: ldh 24(%r3),%r20 b .L1 extrs %r20,31,16,%r28 .L43: b .L1 ldb 24(%r3),%r28 .L48: b .L1 extrs %r20,31,8,%r28 .EXIT .PROCEND .Lfe1: .size callback_receiver,.Lfe1-callback_receiver .data .align 4 .LC0: .word P%callback_receiver .text .align 4 .globl callback_get_receiver .type callback_get_receiver,@function callback_get_receiver: .PROC .CALLINFO FRAME=64,NO_CALLS,SAVE_SP,ENTRY_GR=3 .ENTRY copy %r3,%r1 copy %r30,%r3 stwm %r1,64(%r30) addil LT'.LC0,%r19 stw %r19,-32(%r30) ldw RT'.LC0(%r1),%r1 ldw 0(%r1),%r28 ldo 64(%r3),%r30 bv %r0(%r2) ldwm -64(%r30),%r3 .EXIT .PROCEND .Lfe2: .size callback_get_receiver,.Lfe2-callback_get_receiver .ident "GCC: (GNU) 3.1" libffcall-2.2/callback/vacall_r/vacall-sparc-macro.S0000664000000000000000000000364413530357113017306 00000000000000#include "asm-sparc.h" .section ".text" .align 4 .global C(callback_receiver) DECLARE_FUNCTION(callback_receiver) .proc 020 FUNBEGIN(callback_receiver) !$PROLOGUE$ 0 save %sp, -144, %sp ld [%fp+64], %o0 add %fp, 68, %o1 st %g0, [%fp-28] st %o0, [%fp-16] st %o1, [%fp-32] ld [%g2+4], %o0 add %fp, -48, %o1 ld [%g2], %o2 st %i2, [%fp+76] st %i3, [%fp+80] st %i4, [%fp+84] st %i5, [%fp+88] st %i0, [%fp+68] st %i1, [%fp+72] st %g0, [%fp-48] call %o2, 0 st %g0, [%fp-24] ld [%fp-24], %o1 cmp %o1, 0 be L(L1) cmp %o1, 1 be L(L44) cmp %o1, 2 be L(L44) cmp %o1, 3 be L(L45) cmp %o1, 4 be L(L46) cmp %o1, 5 be L(L47) cmp %o1, 6 be L(L43) cmp %o1, 7 be L(L43) cmp %o1, 8 be L(L43) cmp %o1, 9 be L(L43) add %o1, -10, %o0 cmp %o0, 1 bgu L(L22) cmp %o1, 12 ld [%fp-40], %i0 b L(L1) ld [%fp-36], %i1 L(L22): be L(L48) cmp %o1, 13 be L(L49) cmp %o1, 14 be L(L43) cmp %o1, 15 bne L(L1) ld [%fp-48], %o0 andcc %o0, 16, %g0 be L(L33) andcc %o0, 2, %g0 ld [%fp-20], %o0 ld [%i7+8], %o1 and %o0, 4095, %o0 cmp %o0, %o1 bne L(L1) ld [%fp-28], %i0 b L(L1) add %i7, 4, %i7 L(L33): be,a L(L1) add %i7, 4, %i7 ld [%fp-20], %o0 cmp %o0, 1 be L(L50) cmp %o0, 2 be L(L51) cmp %o0, 4 bne,a L(L1) add %i7, 4, %i7 ld [%fp-28], %o0 b L(L1) ld [%o0], %i0 L(L51): ld [%fp-28], %o0 b L(L1) lduh [%o0], %i0 L(L50): ld [%fp-28], %o0 b L(L1) ldub [%o0], %i0 L(L43): b L(L1) ld [%fp-40], %i0 L(L49): b L(L1) ldd [%fp-40], %f0 L(L48): ld [%fp-48], %o0 andcc %o0, 32, %g0 be,a L(L1) ld [%fp-40], %f0 ld [%fp-40], %f2 b L(L1) fstod %f2, %f0 L(L47): b L(L1) lduh [%fp-40], %i0 L(L46): b L(L1) ldsh [%fp-40], %i0 L(L45): b L(L1) ldub [%fp-40], %i0 L(L44): ldsb [%fp-40], %i0 L(L38): L(L1): nop ret restore L(Lfe1): FUNEND(callback_receiver) #if defined __linux__ || defined __FreeBSD__ || defined __FreeBSD_kernel__ || defined __DragonFly__ .section .note.GNU-stack,"",@progbits #endif libffcall-2.2/callback/vacall_r/vacall-powerpc-linux-macro.S0000664000000000000000000000476313530357114021016 00000000000000 .file "vacall-powerpc.c" .section ".text" .align 2 .type callback_receiver, @function callback_receiver: .extern __mulh .extern __mull .extern __divss .extern __divus .extern __quoss .extern __quous stwu 1,-176(1) mflr 0 stw 0,180(1) stw 31,172(1) mr 31,1 stw 29,164(1) addi 0,31,184 li 29,0 stw 0,32(31) stw 29,36(31) lwz 0,0(11) stw 3,52(31) stw 4,56(31) mtctr 0 stw 9,76(31) addi 4,31,16 stw 30,168(1) stw 5,60(31) stw 6,64(31) stw 7,68(31) stw 8,72(31) stw 10,80(31) stw 29,84(31) stfd 1,88(31) stfd 2,96(31) stfd 3,104(31) stfd 4,112(31) stfd 5,120(31) stfd 6,128(31) stfd 7,136(31) stfd 8,144(31) stw 29,16(31) stw 29,48(31) stw 29,40(31) lwz 3,4(11) bctrl lwz 9,40(31) cmpwi 0,9,0 beq- 0,.L1 cmpwi 0,9,1 beq- 0,.L41 cmpwi 0,9,2 beq- 0,.L42 cmpwi 0,9,3 beq- 0,.L41 cmpwi 0,9,4 beq- 0,.L43 cmpwi 0,9,5 beq- 0,.L44 cmpwi 0,9,6 beq- 0,.L40 cmpwi 0,9,7 beq- 0,.L40 cmpwi 0,9,8 beq- 0,.L40 cmpwi 0,9,9 beq- 0,.L40 addi 0,9,-10 cmplwi 0,0,1 bgt- 0,.L22 lwz 3,24(31) lwz 4,28(31) .L1: lwz 11,0(1) lwz 0,4(11) lwz 29,-12(11) lwz 30,-8(11) mtlr 0 lwz 31,-4(11) mr 1,11 blr .L22: cmpwi 0,9,12 beq- 0,.L45 cmpwi 0,9,13 beq- 0,.L46 cmpwi 0,9,14 beq- 0,.L40 cmpwi 0,9,15 bne+ 0,.L1 lwz 0,16(31) andi. 9,0,1024 beq- 0,.L1 lwz 0,44(31) cmpwi 0,0,1 beq- 0,.L47 cmpwi 0,0,2 beq- 0,.L48 cmpwi 0,0,4 beq- 0,.L49 cmpwi 0,0,8 bne+ 0,.L1 lwz 9,36(31) lwz 4,4(9) .L39: lwz 3,0(9) b .L1 .L49: lwz 9,36(31) b .L39 .L48: lwz 9,36(31) lhz 3,0(9) b .L1 .L47: lwz 9,36(31) lbz 3,0(9) b .L1 .L40: lwz 3,24(31) b .L1 .L46: lfd 1,24(31) b .L1 .L45: lfs 1,24(31) b .L1 .L44: lhz 3,24(31) b .L1 .L43: lha 3,24(31) b .L1 .L41: lbz 3,24(31) b .L1 .L42: lbz 0,24(31) slwi 0,0,24 srawi 3,0,24 b .L1 .size callback_receiver, .-callback_receiver .section ".got2","aw" .LCTOC1 = .+32768 .section ".text" .section ".got2","aw" .LC0: .long callback_receiver .section ".text" .align 2 .globl callback_get_receiver .LCL1: .long .LCTOC1-.LCF1 .type callback_get_receiver, @function callback_get_receiver: stwu 1,-32(1) mflr 0 bcl 20,31,.LCF1 .LCF1: stw 30,24(1) mflr 30 stw 31,28(1) mr 31,1 stw 0,36(1) lwz 11,0(1) lwz 0,.LCL1-.LCF1(30) lwz 31,-4(11) add 30,0,30 lwz 0,4(11) lwz 3,.LC0-.LCTOC1(30) lwz 30,-8(11) mtlr 0 mr 1,11 blr .size callback_get_receiver, .-callback_get_receiver #if defined __linux__ || defined __FreeBSD__ || defined __FreeBSD_kernel__ || defined __DragonFly__ .section .note.GNU-stack,"",@progbits #endif libffcall-2.2/callback/vacall_r/vacall-x86_64-macro.S0000664000000000000000000001714413530357114017135 00000000000000#include "asm-x86_64.h" TEXT() P2ALIGN(4,15) DECLARE_FUNCTION(callback_receiver) FUNBEGIN(callback_receiver) L(FB2): INSN1(push,q ,R(rbp)) L(CFI0): INSN2(mov,q ,R(rsp), R(rbp)) L(CFI1): INSN1(push,q ,R(r13)) L(CFI2): INSN1(push,q ,R(r12)) L(CFI3): INSN2(sub,q ,NUM(192), R(rsp)) L(CFI4): INSN2(mov,q ,R(rcx),X8 MEM_DISP(rbp,-48)) INSN2(lea,q ,X8 MEM_DISP(rbp,16), R(rcx)) INSN2(mov,q ,R(rdi),X8 MEM_DISP(rbp,-72)) INSN2(mov,q ,R(rsi),X8 MEM_DISP(rbp,-64)) INSN2S(movs,d ,R(xmm0),X8 MEM_DISP(rbp,-144)) INSN2(mov,q ,R(rcx),X8 MEM_DISP(rbp,-184)) INSN2(mov,q ,NUM(0),X8 MEM_DISP(rbp,-176)) INSN2S(movs,d ,R(xmm1),X8 MEM_DISP(rbp,-136)) INSN2(mov,q ,R(rdx),X8 MEM_DISP(rbp,-56)) INSN2S(movs,d ,R(xmm2),X8 MEM_DISP(rbp,-128)) INSN2(lea,q ,X8 MEM_DISP(rbp,-208), R(rsi)) INSN2(mov,q ,R(r8),X8 MEM_DISP(rbp,-40)) INSN2S(movs,d ,R(xmm3),X8 MEM_DISP(rbp,-120)) INSN2(mov,q ,R(r9),X8 MEM_DISP(rbp,-32)) INSN2S(movs,d ,R(xmm4),X8 MEM_DISP(rbp,-112)) INSN2S(movs,d ,R(xmm5),X8 MEM_DISP(rbp,-104)) INSN2(mov,l ,NUM(0),X4 MEM_DISP(rbp,-208)) INSN2S(movs,d ,R(xmm6),X8 MEM_DISP(rbp,-96)) INSN2(mov,l ,NUM(0),X4 MEM_DISP(rbp,-168)) INSN2S(movs,d ,R(xmm7),X8 MEM_DISP(rbp,-88)) INSN2(mov,l ,NUM(0),X4 MEM_DISP(rbp,-80)) INSN2(mov,l ,NUM(0),X4 MEM_DISP(rbp,-152)) INSN2(mov,q ,X8 MEM_DISP(r10,8), R(rdi)) INSN1(call,_ ,INDIR(X8 MEM(r10))) INSN2(mov,l ,X4 MEM_DISP(rbp,-168), R(ecx)) INSN2(test,l ,R(ecx), R(ecx)) INSN1(je,_ ,L(41)) INSN2(cmp,l ,NUM(1), R(ecx)) INSN1(je,_ ,L(42)) INSN2(cmp,l ,NUM(2), R(ecx)) INSN1(je,_ ,L(42)) INSN2(cmp,l ,NUM(3), R(ecx)) P2ALIGN(4,5) INSN1(je,_ ,L(48)) INSN2(cmp,l ,NUM(4), R(ecx)) P2ALIGN(4,5) INSN1(je,_ ,L(49)) INSN2(cmp,l ,NUM(5), R(ecx)) P2ALIGN(4,5) INSN1(je,_ ,L(50)) INSN2(cmp,l ,NUM(6), R(ecx)) P2ALIGN(4,5) INSN1(je,_ ,L(51)) INSN2(cmp,l ,NUM(7), R(ecx)) P2ALIGN(4,5) INSN1(je,_ ,L(52)) INSN2(cmp,l ,NUM(8), R(ecx)) P2ALIGN(4,5) INSN1(je,_ ,L(46)) INSN2(cmp,l ,NUM(9), R(ecx)) P2ALIGN(4,5) INSN1(je,_ ,L(46)) INSN2(cmp,l ,NUM(10), R(ecx)) P2ALIGN(4,5) INSN1(je,_ ,L(46)) INSN2(cmp,l ,NUM(11), R(ecx)) P2ALIGN(4,5) INSN1(je,_ ,L(46)) INSN2(cmp,l ,NUM(12), R(ecx)) P2ALIGN(4,5) INSN1(je,_ ,L(53)) INSN2(cmp,l ,NUM(13), R(ecx)) P2ALIGN(4,5) INSN1(je,_ ,L(54)) INSN2(cmp,l ,NUM(14), R(ecx)) P2ALIGN(4,5) INSN1(je,_ ,L(46)) INSN2(cmp,l ,NUM(15), R(ecx)) P2ALIGN(4,5) INSN1(jne,_ ,L(41)) INSN2(test,b ,NUM(4),X1 MEM_DISP(rbp,-207)) P2ALIGN(4,2) INSN1(je,_ ,L(41)) INSN2(mov,q ,X8 MEM_DISP(rbp,-160), R(rsi)) INSN2(lea,q ,X8 MEM_DISP(rsi,-1), R(rcx)) INSN2(cmp,q ,NUM(15), R(rcx)) INSN1(ja,_ ,L(41)) INSN2(mov,q ,X8 MEM_DISP(rbp,-176), R(rcx)) INSN2(mov,q ,R(rcx), R(r12)) INSN2(mov,q ,R(rcx), R(r8)) INSN2(and,l ,NUM(7), R(r8d)) INSN2(and,q ,NUM(-8), R(r12)) INSN2(cmp,q ,NUM(8), R(rsi)) INSN2(lea,q ,X8 MEM_INDEX(rsi,r8), R(r11)) INSN1(ja,_ ,L(35)) INSN2(cmp,q ,NUM(8), R(r11)) INSN1(ja,_ ,L(37)) INSN2(lea,l ,X4 MEM_DISP_SHINDEX0(-1,r11,8), R(ecx)) INSN2(mov,l ,NUM(2), R(esi)) INSN2(sal,q ,R(cl), R(rsi)) INSN2(lea,l ,X4 MEM_DISP_SHINDEX0(0,r8,8), R(ecx)) INSN1(dec,q ,R(rsi)) INSN2(and,q ,X8 MEM(r12), R(rsi)) INSN2(mov,q ,R(rsi), R(rax)) INSN2(sar,q ,R(cl), R(rax)) P2ALIGN(4,7) L(41): INSN2(add,q ,NUM(192), R(rsp)) INSN1(pop,q ,R(r12)) INSN1(pop,q ,R(r13)) leave ret P2ALIGN(4,7) L(42): INSN2MOVXQ(movs,b,X1 MEM_DISP(rbp,-200),R(rax)) INSN2(add,q ,NUM(192), R(rsp)) INSN1(pop,q ,R(r12)) INSN1(pop,q ,R(r13)) leave ret L(49): INSN2MOVXQ(movs,w,X2 MEM_DISP(rbp,-200),R(rax)) INSN1(jmp,_ ,L(41)) L(48): INSN2MOVXQ(movz,b,X1 MEM_DISP(rbp,-200), R(rax)) INSN1(jmp,_ ,L(41)) L(46): INSN2(mov,q ,X8 MEM_DISP(rbp,-200), R(rax)) INSN1(jmp,_ ,L(41)) L(50): INSN2MOVXQ(movz,w,X2 MEM_DISP(rbp,-200), R(rax)) INSN1(jmp,_ ,L(41)) L(51): INSN2MOVXLQ(movs,l,X4 MEM_DISP(rbp,-200),R(rax)) INSN1(jmp,_ ,L(41)) L(52): INSN2(mov,l ,X4 MEM_DISP(rbp,-200), R(eax)) INSN1(jmp,_ ,L(41)) L(53): INSN2S(movs,s ,X4 MEM_DISP(rbp,-200), R(xmm0)) INSN1(jmp,_ ,L(41)) L(54): INSN2(movlp,d ,X8 MEM_DISP(rbp,-200), R(xmm0)) INSN1(jmp,_ ,L(41)) L(35): INSN2(cmp,q ,NUM(16), R(r11)) INSN1(ja,_ ,L(39)) INSN2(lea,l ,X4 MEM_DISP_SHINDEX0(-65,r11,8), R(ecx)) INSN2(mov,l ,NUM(2), R(esi)) INSN2(lea,l ,X4 MEM_DISP_SHINDEX0(0,r8,8), R(r9d)) INSN2(mov,l ,NUM(32), R(edi)) INSN2(sal,q ,R(cl), R(rsi)) INSN2(lea,q ,X8 MEM_DISP_SHINDEX0(0,r8,4), R(rcx)) INSN2(mov,q ,X8 MEM(r12), R(r8)) INSN1(dec,q ,R(rsi)) INSN2(and,q ,X8 MEM_DISP(r12,8), R(rsi)) INSN2(sub,l ,R(ecx), R(edi)) INSN2(mov,l ,R(r9d), R(ecx)) INSN2(sar,q ,R(cl), R(r8)) INSN2(mov,l ,R(edi), R(ecx)) INSN2(mov,q ,R(r8), R(rax)) INSN2(mov,q ,R(rsi), R(r11)) INSN2(mov,q ,R(rsi), R(rdx)) INSN2(sal,q ,R(cl), R(r11)) INSN2(sal,q ,R(cl), R(r11)) INSN2(mov,l ,R(r9d), R(ecx)) INSN2(or,q ,R(r11), R(rax)) INSN2(sar,q ,R(cl), R(rdx)) INSN1(jmp,_ ,L(41)) L(37): INSN2(mov,q ,X8 MEM(r12), R(rdi)) INSN2(lea,l ,X4 MEM_DISP_SHINDEX0(-65,r11,8), R(esi)) INSN2(sal,q ,NUM(3), R(r8)) INSN2(mov,l ,R(r8d), R(ecx)) INSN2(mov,l ,NUM(2), R(r11d)) INSN2(sar,q ,R(cl), R(rdi)) INSN2(mov,l ,R(esi), R(ecx)) INSN2(mov,l ,NUM(64), R(esi)) INSN2(sal,q ,R(cl), R(r11)) INSN2(sub,l ,R(r8d), R(esi)) INSN2(mov,q ,R(rdi), R(rax)) INSN1(dec,q ,R(r11)) INSN2(and,q ,X8 MEM_DISP(r12,8), R(r11)) INSN2(mov,l ,R(esi), R(ecx)) INSN2(sal,q ,R(cl), R(r11)) INSN2(or,q ,R(r11), R(rax)) INSN1(jmp,_ ,L(41)) L(39): INSN2(lea,q ,X8 MEM_DISP_SHINDEX0(0,r8,8), R(rcx)) INSN2(mov,q ,X8 MEM(r12), R(r13)) INSN2(mov,q ,X8 MEM_DISP(r12,8), R(r8)) INSN2(mov,l ,NUM(64), R(edi)) INSN2(sub,l ,R(ecx), R(edi)) INSN2(mov,l ,R(ecx), R(r9d)) INSN2(sar,q ,R(cl), R(r13)) INSN2(mov,q ,R(r8), R(rsi)) INSN2(mov,l ,R(edi), R(ecx)) INSN2(sal,q ,R(cl), R(rsi)) INSN2(mov,q ,R(r13), R(rax)) INSN2(mov,l ,R(r9d), R(ecx)) INSN2(or,q ,R(rsi), R(rax)) INSN2(lea,l ,X4 MEM_DISP_SHINDEX0(-129,r11,8), R(esi)) INSN2(sar,q ,R(cl), R(r8)) INSN2(mov,l ,NUM(2), R(r9d)) INSN2(mov,q ,R(r8), R(rdx)) INSN2(mov,l ,R(esi), R(ecx)) INSN2(sal,q ,R(cl), R(r9)) INSN2(mov,l ,R(edi), R(ecx)) INSN2(lea,q ,X8 MEM_DISP(r9,-1), R(rsi)) INSN2(and,q ,X8 MEM_DISP(r12,16), R(rsi)) INSN2(sal,q ,R(cl), R(rsi)) INSN2(or,q ,R(rsi), R(rdx)) INSN1(jmp,_ ,L(41)) L(FE2): FUNEND(callback_receiver, .-callback_receiver) P2ALIGN(4,15) GLOBL(C(callback_get_receiver)) DECLARE_FUNCTION(callback_get_receiver) FUNBEGIN(callback_get_receiver) L(FB3): INSN1(push,q ,R(rbp)) L(CFI5): INSN2(lea,q ,ADDR_PCRELATIVE(C(callback_receiver)), R(rax)) INSN2(mov,q ,R(rsp), R(rbp)) L(CFI6): leave ret L(FE3): FUNEND(callback_get_receiver, .-callback_get_receiver) #if !(defined __sun || (defined __APPLE__ && defined __MACH__) || (defined _WIN32 || defined __CYGWIN__)) .section EH_FRAME_SECTION L(frame1): .long L(ECIE1)-.LSCIE1 L(SCIE1): .long 0x0 .byte 0x1 .string "zR" .uleb128 0x1 .sleb128 -8 .byte 0x10 .uleb128 0x1 .byte 0x1b .byte 0xc .uleb128 0x7 .uleb128 0x8 .byte 0x90 .uleb128 0x1 .align 8 L(ECIE1): L(SFDE1): .long L(EFDE1)-.LASFDE1 L(ASFDE1): .long L(ASFDE1)-.Lframe1 .long L(FB2)-. .long L(FE2)-.LFB2 .uleb128 0x0 .byte 0x4 .long L(CFI0)-.LFB2 .byte 0xe .uleb128 0x10 .byte 0x86 .uleb128 0x2 .byte 0x4 .long L(CFI1)-.LCFI0 .byte 0xd .uleb128 0x6 .byte 0x4 .long L(CFI4)-.LCFI1 .byte 0x8c .uleb128 0x4 .byte 0x8d .uleb128 0x3 .align 8 L(EFDE1): L(SFDE3): .long L(EFDE3)-.LASFDE3 L(ASFDE3): .long L(ASFDE3)-.Lframe1 .long L(FB3)-. .long L(FE3)-.LFB3 .uleb128 0x0 .byte 0x4 .long L(CFI5)-.LFB3 .byte 0xe .uleb128 0x10 .byte 0x86 .uleb128 0x2 .byte 0x4 .long L(CFI6)-.LCFI5 .byte 0xd .uleb128 0x6 .align 8 L(EFDE3): #endif #if defined __linux__ || defined __FreeBSD__ || defined __FreeBSD_kernel__ || defined __DragonFly__ .section .note.GNU-stack,"",@progbits #endif libffcall-2.2/callback/vacall_r/Makefile.maint0000664000000000000000000000065313153072372016261 00000000000000# maintainer -*-Makefile-*- LN = ln -s RM = rm -f # ==================== Easily regeneratable files ==================== all : vacall-i386-msvc.c vacall-i386-msvc.c : vacall-i386-macro.S (echo '#ifdef _MSC_VER' ; echo '#include "vacall_r.h"' ; echo '#endif' ; sed -e '/FUNEND(callback_receiver,/q' < vacall-i386-macro.S ; cat get_receiver.c) > vacall-i386-msvc.c totally-clean : force $(RM) vacall-i386-msvc.c force : libffcall-2.2/callback/vacall_r/vacall-riscv32-ilp32d-linux.s0000664000000000000000000000470213530357115020660 00000000000000 .file "vacall-riscv32.c" .option pic .text .align 1 .type callback_receiver, @function callback_receiver: add sp,sp,-208 sw ra,188(sp) sw s0,184(sp) add s0,sp,192 sw a1,-144(s0) add a1,s0,16 lw t3,0(t2) sw a7,12(s0) sw a2,-140(s0) sw a3,-136(s0) sw a4,-132(s0) sw a5,-128(s0) sw a6,-124(s0) sw a7,-120(s0) fsw fa0,-112(s0) fsw fa1,-108(s0) fsw fa2,-104(s0) fsw fa3,-100(s0) fsw fa4,-96(s0) fsw fa5,-92(s0) fsw fa6,-88(s0) fsw fa7,-84(s0) fsd fa0,-80(s0) fsd fa1,-72(s0) fsd fa2,-64(s0) fsd fa3,-56(s0) fsd fa4,-48(s0) fsd fa5,-40(s0) fsd fa6,-32(s0) fsd fa7,-24(s0) sw a1,-168(s0) sw a0,-148(s0) sw zero,-184(s0) sw zero,-164(s0) sw zero,-160(s0) lw a0,4(t2) sw zero,-152(s0) sw zero,-116(s0) add a1,s0,-184 jalr t3 lw t1,-160(s0) beqz t1,.L1 li t3,1 beq t1,t3,.L22 li t3,2 beq t1,t3,.L25 li t3,3 beq t1,t3,.L22 li t3,4 beq t1,t3,.L26 li t3,5 beq t1,t3,.L27 li t3,6 beq t1,t3,.L23 li t3,7 beq t1,t3,.L23 li t3,8 beq t1,t3,.L23 li t3,9 beq t1,t3,.L23 add t3,t1,-10 li t4,1 bleu t3,t4,.L28 li t3,12 beq t1,t3,.L29 li t3,13 beq t1,t3,.L30 li t3,14 beq t1,t3,.L23 li t3,15 bne t1,t3,.L1 lw t1,-184(s0) and t1,t1,2 beqz t1,.L1 lw t3,-156(s0) li t1,7 add t5,t3,-1 bgtu t5,t1,.L1 lw t1,-164(s0) lbu t5,0(t1) mv a0,t5 beq t3,t4,.L1 lbu t4,1(t1) li t6,2 sll t4,t4,8 or t5,t4,t5 mv a0,t5 beq t3,t6,.L1 lbu t4,2(t1) li t6,3 sll t4,t4,16 or t4,t4,t5 mv a0,t4 beq t3,t6,.L1 lbu a0,3(t1) li t5,4 sll a0,a0,24 or a0,a0,t4 beq t3,t5,.L1 lbu t5,4(t1) li t4,5 mv a1,t5 beq t3,t4,.L1 lbu t4,5(t1) li t6,6 sll t4,t4,8 or t5,t4,t5 mv a1,t5 beq t3,t6,.L1 lbu t4,6(t1) li t6,8 sll t4,t4,16 or t4,t4,t5 mv a1,t4 bne t3,t6,.L1 lbu a1,7(t1) sll a1,a1,24 or a1,a1,t4 .L1: lw ra,188(sp) lw s0,184(sp) add sp,sp,208 jr ra .L22: lbu a0,-176(s0) lw ra,188(sp) lw s0,184(sp) add sp,sp,208 jr ra .L23: lw a0,-176(s0) j .L1 .L25: lb a0,-176(s0) lw ra,188(sp) lw s0,184(sp) add sp,sp,208 jr ra .L26: lh a0,-176(s0) j .L1 .L27: lhu a0,-176(s0) j .L1 .L28: lw a0,-176(s0) lw a1,-172(s0) j .L1 .L29: flw fa0,-176(s0) j .L1 .L30: fld fa0,-176(s0) j .L1 .size callback_receiver, .-callback_receiver .align 1 .globl callback_get_receiver .type callback_get_receiver, @function callback_get_receiver: add sp,sp,-16 sw s0,12(sp) add s0,sp,16 lw s0,12(sp) lla a0,callback_receiver add sp,sp,16 jr ra .size callback_get_receiver, .-callback_get_receiver .ident "GCC: (GNU) 7.3.0" libffcall-2.2/callback/vacall_r/vacall-m68k-sun.s0000664000000000000000000000412113530357113016516 00000000000000#NO_APP .text .even _callback_receiver: link a6,#-32 moveml #0x3030,sp@- clrl a6@(-32) lea a6@(8),a2 movel a2,a6@(-20) clrl a6@(-16) clrl a6@(-12) movel a1,a6@(-4) pea a6@(-32) movel a0@(4),sp@- movel a0@,a2 jsr a2@ addql #8,sp movel a6@(-12),a3 tstl a3 jeq L1 moveq #1,d2 cmpl a3,d2 jeq L46 moveq #2,d3 cmpl a3,d3 jeq L46 moveq #3,d2 cmpl a3,d2 jeq L47 moveq #4,d3 cmpl a3,d3 jeq L48 moveq #5,d2 cmpl a3,d2 jeq L49 moveq #6,d3 cmpl a3,d3 jeq L45 moveq #7,d2 cmpl a3,d2 jeq L45 moveq #8,d3 cmpl a3,d3 jeq L45 moveq #9,d2 cmpl a3,d2 jeq L45 lea a3@(-10),a2 moveq #1,d3 cmpl a2,d3 jcs L22 movel a6@(-28),d0 movel a6@(-24),d1 jra L1 .even L22: moveq #12,d2 cmpl a3,d2 jeq L50 moveq #13,d2 cmpl a3,d2 jeq L51 moveq #14,d3 cmpl a3,d3 jeq L52 moveq #15,d2 cmpl a3,d2 jne L1 btst #2,a6@(-30) jeq L1 movel a6@(-8),d2 moveq #1,d3 cmpl d2,d3 jeq L53 moveq #2,d3 cmpl d2,d3 jeq L54 moveq #4,d3 cmpl d2,d3 jeq L55 moveq #8,d3 cmpl d2,d3 jne L1 movel a6@(-16),a2 movel a2@,d0 movel a2@(4),d1 jra L1 .even L55: movel a6@(-16),a2 movel a2@,d0 jra L1 .even L54: movel a6@(-16),a2 clrl d0 movew a2@,d0 jra L1 .even L53: movel a6@(-16),a2 clrl d0 moveb a2@,d0 jra L1 .even L52: movel a6@(-28),d0 movel d0,a0 jra L1 .even L51: btst #6,a6@(-29) jeq L31 fmoved a6@(-28),fp0 jra L1 .even L31: movel a6@(-28),d0 movel a6@(-24),d1 jra L1 .even L50: movel a6@(-32),d2 btst #6,d2 jeq L25 fmoves a6@(-28),fp0 jra L1 .even L25: btst #5,d2 jeq L27 fmoves a6@(-28),fp1 fmoved fp1,sp@- movel sp@+,d0 movel sp@+,d1 jra L1 .even L27: movel a6@(-28),d0 jra L1 .even L45: movel a6@(-28),d0 jra L1 .even L49: clrl d0 movew a6@(-28),d0 jra L1 .even L48: movew a6@(-28),d0 extl d0 jra L1 .even L47: clrl d0 moveb a6@(-28),d0 jra L1 .even L46: moveb a6@(-28),d0 extbl d0 L1: moveml a6@(-48),#0xc0c unlk a6 rts .even .globl _callback_get_receiver _callback_get_receiver: link a6,#0 movel a5,sp@- movel #__GLOBAL_OFFSET_TABLE_, a5 lea pc@(0,a5:l),a5 movel a5@(_callback_receiver:l),d0 movel sp@+,a5 unlk a6 rts libffcall-2.2/callback/vacall_r/vacall-sparc-linux.s0000664000000000000000000000340613530357113017400 00000000000000 .file "vacall-sparc.c" .section ".text" .align 4 .global callback_receiver .type callback_receiver,#function .proc 020 callback_receiver: !#PROLOGUE# 0 save %sp, -144, %sp ld [%fp+64], %o0 add %fp, 68, %o1 st %g0, [%fp-28] st %o0, [%fp-16] st %o1, [%fp-32] ld [%g2+4], %o0 add %fp, -48, %o1 ld [%g2], %o2 st %i2, [%fp+76] st %i3, [%fp+80] st %i4, [%fp+84] st %i5, [%fp+88] st %i0, [%fp+68] st %i1, [%fp+72] st %g0, [%fp-48] call %o2, 0 st %g0, [%fp-24] ld [%fp-24], %o1 cmp %o1, 0 be .LL1 cmp %o1, 1 be .LL44 cmp %o1, 2 be .LL44 cmp %o1, 3 be .LL45 cmp %o1, 4 be .LL46 cmp %o1, 5 be .LL47 cmp %o1, 6 be .LL43 cmp %o1, 7 be .LL43 cmp %o1, 8 be .LL43 cmp %o1, 9 be .LL43 add %o1, -10, %o0 cmp %o0, 1 bgu .LL22 cmp %o1, 12 ld [%fp-40], %i0 b .LL1 ld [%fp-36], %i1 .LL22: be .LL48 cmp %o1, 13 be .LL49 cmp %o1, 14 be .LL43 cmp %o1, 15 bne .LL1 ld [%fp-48], %o0 andcc %o0, 16, %g0 be .LL33 andcc %o0, 2, %g0 ld [%fp-20], %o0 ld [%i7+8], %o1 and %o0, 4095, %o0 cmp %o0, %o1 bne .LL1 ld [%fp-28], %i0 b .LL1 add %i7, 4, %i7 .LL33: be,a .LL1 add %i7, 4, %i7 ld [%fp-20], %o0 cmp %o0, 1 be .LL50 cmp %o0, 2 be .LL51 cmp %o0, 4 bne,a .LL1 add %i7, 4, %i7 ld [%fp-28], %o0 b .LL1 ld [%o0], %i0 .LL51: ld [%fp-28], %o0 b .LL1 lduh [%o0], %i0 .LL50: ld [%fp-28], %o0 b .LL1 ldub [%o0], %i0 .LL43: b .LL1 ld [%fp-40], %i0 .LL49: b .LL1 ldd [%fp-40], %f0 .LL48: ld [%fp-48], %o0 andcc %o0, 32, %g0 be,a .LL1 ld [%fp-40], %f0 ld [%fp-40], %f2 b .LL1 fstod %f2, %f0 .LL47: b .LL1 lduh [%fp-40], %i0 .LL46: b .LL1 ldsh [%fp-40], %i0 .LL45: b .LL1 ldub [%fp-40], %i0 .LL44: ldsb [%fp-40], %i0 .LL38: .LL1: nop ret restore .LLfe1: .size callback_receiver,.LLfe1-callback_receiver .ident "GCC: (GNU) 3.1" libffcall-2.2/callback/vacall_r/vacall-x86_64-linux.s0000664000000000000000000001110313530357114017220 00000000000000 .file "vacall-x86_64.c" .text .p2align 4,,15 .type callback_receiver, @function callback_receiver: .LFB2: pushq %rbp .LCFI0: movq %rsp, %rbp .LCFI1: pushq %r13 .LCFI2: pushq %r12 .LCFI3: subq $192, %rsp .LCFI4: movq %rcx, -48(%rbp) leaq 16(%rbp), %rcx movq %rdi, -72(%rbp) movq %rsi, -64(%rbp) movsd %xmm0, -144(%rbp) movq %rcx, -184(%rbp) movq $0, -176(%rbp) movsd %xmm1, -136(%rbp) movq %rdx, -56(%rbp) movsd %xmm2, -128(%rbp) leaq -208(%rbp), %rsi movq %r8, -40(%rbp) movsd %xmm3, -120(%rbp) movq %r9, -32(%rbp) movsd %xmm4, -112(%rbp) movsd %xmm5, -104(%rbp) movl $0, -208(%rbp) movsd %xmm6, -96(%rbp) movl $0, -168(%rbp) movsd %xmm7, -88(%rbp) movl $0, -80(%rbp) movl $0, -152(%rbp) movq 8(%r10), %rdi call *(%r10) movl -168(%rbp), %ecx testl %ecx, %ecx je .L41 cmpl $1, %ecx je .L42 cmpl $2, %ecx je .L42 cmpl $3, %ecx .p2align 4,,5 je .L48 cmpl $4, %ecx .p2align 4,,5 je .L49 cmpl $5, %ecx .p2align 4,,5 je .L50 cmpl $6, %ecx .p2align 4,,5 je .L51 cmpl $7, %ecx .p2align 4,,5 je .L52 cmpl $8, %ecx .p2align 4,,5 je .L46 cmpl $9, %ecx .p2align 4,,5 je .L46 cmpl $10, %ecx .p2align 4,,5 je .L46 cmpl $11, %ecx .p2align 4,,5 je .L46 cmpl $12, %ecx .p2align 4,,5 je .L53 cmpl $13, %ecx .p2align 4,,5 je .L54 cmpl $14, %ecx .p2align 4,,5 je .L46 cmpl $15, %ecx .p2align 4,,5 jne .L41 testb $4, -207(%rbp) .p2align 4,,2 je .L41 movq -160(%rbp), %rsi leaq -1(%rsi), %rcx cmpq $15, %rcx ja .L41 movq -176(%rbp), %rcx movq %rcx, %r12 movq %rcx, %r8 andl $7, %r8d andq $-8, %r12 cmpq $8, %rsi leaq (%rsi,%r8), %r11 ja .L35 cmpq $8, %r11 ja .L37 leal -1(,%r11,8), %ecx movl $2, %esi salq %cl, %rsi leal 0(,%r8,8), %ecx decq %rsi andq (%r12), %rsi movq %rsi, %rax sarq %cl, %rax .p2align 4,,7 .L41: addq $192, %rsp popq %r12 popq %r13 leave ret .p2align 4,,7 .L42: movsbq -200(%rbp),%rax addq $192, %rsp popq %r12 popq %r13 leave ret .L49: movswq -200(%rbp),%rax jmp .L41 .L48: movzbq -200(%rbp), %rax jmp .L41 .L46: movq -200(%rbp), %rax jmp .L41 .L50: movzwq -200(%rbp), %rax jmp .L41 .L51: movslq -200(%rbp),%rax jmp .L41 .L52: mov -200(%rbp), %eax jmp .L41 .L53: movss -200(%rbp), %xmm0 jmp .L41 .L54: movlpd -200(%rbp), %xmm0 jmp .L41 .L35: cmpq $16, %r11 ja .L39 leal -65(,%r11,8), %ecx movl $2, %esi leal 0(,%r8,8), %r9d movl $32, %edi salq %cl, %rsi leaq 0(,%r8,4), %rcx movq (%r12), %r8 decq %rsi andq 8(%r12), %rsi subl %ecx, %edi movl %r9d, %ecx sarq %cl, %r8 movl %edi, %ecx movq %r8, %rax movq %rsi, %r11 movq %rsi, %rdx salq %cl, %r11 salq %cl, %r11 movl %r9d, %ecx orq %r11, %rax sarq %cl, %rdx jmp .L41 .L37: movq (%r12), %rdi leal -65(,%r11,8), %esi salq $3, %r8 movl %r8d, %ecx movl $2, %r11d sarq %cl, %rdi movl %esi, %ecx movl $64, %esi salq %cl, %r11 subl %r8d, %esi movq %rdi, %rax decq %r11 andq 8(%r12), %r11 movl %esi, %ecx salq %cl, %r11 orq %r11, %rax jmp .L41 .L39: leaq 0(,%r8,8), %rcx movq (%r12), %r13 movq 8(%r12), %r8 movl $64, %edi subl %ecx, %edi movl %ecx, %r9d sarq %cl, %r13 movq %r8, %rsi movl %edi, %ecx salq %cl, %rsi movq %r13, %rax movl %r9d, %ecx orq %rsi, %rax leal -129(,%r11,8), %esi sarq %cl, %r8 movl $2, %r9d movq %r8, %rdx movl %esi, %ecx salq %cl, %r9 movl %edi, %ecx leaq -1(%r9), %rsi andq 16(%r12), %rsi salq %cl, %rsi orq %rsi, %rdx jmp .L41 .LFE2: .size callback_receiver, .-callback_receiver .p2align 4,,15 .globl callback_get_receiver .type callback_get_receiver, @function callback_get_receiver: .LFB3: pushq %rbp .LCFI5: leaq callback_receiver(%rip), %rax movq %rsp, %rbp .LCFI6: leave ret .LFE3: .size callback_get_receiver, .-callback_get_receiver .section .eh_frame,"a",@progbits .Lframe1: .long .LECIE1-.LSCIE1 .LSCIE1: .long 0x0 .byte 0x1 .string "zR" .uleb128 0x1 .sleb128 -8 .byte 0x10 .uleb128 0x1 .byte 0x1b .byte 0xc .uleb128 0x7 .uleb128 0x8 .byte 0x90 .uleb128 0x1 .align 8 .LECIE1: .LSFDE1: .long .LEFDE1-.LASFDE1 .LASFDE1: .long .LASFDE1-.Lframe1 .long .LFB2-. .long .LFE2-.LFB2 .uleb128 0x0 .byte 0x4 .long .LCFI0-.LFB2 .byte 0xe .uleb128 0x10 .byte 0x86 .uleb128 0x2 .byte 0x4 .long .LCFI1-.LCFI0 .byte 0xd .uleb128 0x6 .byte 0x4 .long .LCFI4-.LCFI1 .byte 0x8c .uleb128 0x4 .byte 0x8d .uleb128 0x3 .align 8 .LEFDE1: .LSFDE3: .long .LEFDE3-.LASFDE3 .LASFDE3: .long .LASFDE3-.Lframe1 .long .LFB3-. .long .LFE3-.LFB3 .uleb128 0x0 .byte 0x4 .long .LCFI5-.LFB3 .byte 0xe .uleb128 0x10 .byte 0x86 .uleb128 0x2 .byte 0x4 .long .LCFI6-.LCFI5 .byte 0xd .uleb128 0x6 .align 8 .LEFDE3: .ident "GCC: (GNU) 4.0.2" .section .note.GNU-stack,"",@progbits libffcall-2.2/callback/vacall_r/vacall-riscv64-lp64d-macro.S0000664000000000000000000000573513530357115020432 00000000000000 .file "vacall-riscv64.c" .option pic .text .align 1 .type callback_receiver, @function callback_receiver: add sp,sp,-288 sd ra,264(sp) sd s0,256(sp) sd s1,248(sp) add s0,sp,272 sd s2,240(sp) sd a1,-192(s0) add a1,s0,16 ld t3,0(t2) sd a7,8(s0) sd a2,-184(s0) sd a3,-176(s0) sd a4,-168(s0) sd a5,-160(s0) sd a6,-152(s0) sd a7,-144(s0) fsw fa0,-132(s0) fsw fa1,-128(s0) fsw fa2,-124(s0) fsw fa3,-120(s0) fsw fa4,-116(s0) fsw fa5,-112(s0) fsw fa6,-108(s0) fsw fa7,-104(s0) fsd fa0,-96(s0) fsd fa1,-88(s0) fsd fa2,-80(s0) fsd fa3,-72(s0) fsd fa4,-64(s0) fsd fa5,-56(s0) fsd fa6,-48(s0) fsd fa7,-40(s0) sd a1,-240(s0) sd a0,-200(s0) sw zero,-264(s0) ld a0,8(t2) sd zero,-232(s0) sw zero,-224(s0) sw zero,-208(s0) sw zero,-136(s0) add a1,s0,-264 jalr t3 lw t1,-224(s0) beqz t1,.L1 li t3,1 beq t1,t3,.L25 li t3,2 beq t1,t3,.L29 li t3,3 beq t1,t3,.L25 li t3,4 beq t1,t3,.L30 li t3,5 beq t1,t3,.L31 li t3,6 beq t1,t3,.L32 li t3,7 beq t1,t3,.L33 and t3,t1,-3 li t4,8 beq t3,t4,.L27 li t4,9 beq t3,t4,.L27 li t3,12 beq t1,t3,.L34 li t3,13 beq t1,t3,.L35 li t3,14 beq t1,t3,.L27 li t3,15 bne t1,t3,.L1 lw t3,-264(s0) and t3,t3,1024 beqz t3,.L1 ld t0,-216(s0) add t3,t0,-1 bgtu t3,t1,.L1 ld t5,-232(s0) li s2,8 and t6,t5,7 add s1,t0,t6 and t5,t5,-8 sext.w t6,t6 sllw t1,s1,3 ld t4,0(t5) sll t3,t6,3 bgtu t0,s2,.L15 bgtu s1,s2,.L16 addw t1,t1,-1 li a0,2 sll a0,a0,t1 add a0,a0,-1 and a0,a0,t4 sra a0,a0,t3 .L1: ld ra,264(sp) ld s0,256(sp) ld s1,248(sp) ld s2,240(sp) add sp,sp,288 jr ra .L25: lbu a0,-256(s0) ld ra,264(sp) ld s0,256(sp) ld s1,248(sp) ld s2,240(sp) add sp,sp,288 jr ra .L29: lb a0,-256(s0) ld ra,264(sp) ld s0,256(sp) ld s1,248(sp) ld s2,240(sp) add sp,sp,288 jr ra .L30: lh a0,-256(s0) j .L1 .L33: lwu a0,-256(s0) j .L1 .L31: lhu a0,-256(s0) j .L1 .L27: ld a0,-256(s0) j .L1 .L32: lw a0,-256(s0) j .L1 .L34: flw fa0,-256(s0) j .L1 .L35: fld fa0,-256(s0) j .L1 .L15: li s2,16 sra t4,t4,t3 ld t0,8(t5) bleu s1,s2,.L36 li a1,-8 mulw t6,a1,t6 addw t1,t1,-129 ld a0,16(t5) li a1,2 sll a1,a1,t1 add a1,a1,-1 and a1,a1,a0 sra t3,t0,t3 addw t1,t6,64 sll a0,t0,t1 sll a1,a1,t1 or a0,a0,t4 or a1,a1,t3 j .L1 .L16: li a0,-8 mulw t6,a0,t6 addw t1,t1,-65 ld t5,8(t5) li a0,2 sll a0,a0,t1 add a0,a0,-1 and a0,a0,t5 sra t4,t4,t3 sll a0,a0,t6 or a0,a0,t4 j .L1 .L36: li a1,-4 mulw t6,a1,t6 addw t1,t1,-65 li a0,2 sll a0,a0,t1 add a0,a0,-1 and a0,a0,t0 sra a1,a0,t3 addw t1,t6,32 sll a0,a0,t1 sll a0,a0,t1 or a0,a0,t4 j .L1 .size callback_receiver, .-callback_receiver .align 1 .globl callback_get_receiver .type callback_get_receiver, @function callback_get_receiver: add sp,sp,-16 sd s0,8(sp) add s0,sp,16 ld s0,8(sp) lla a0,callback_receiver add sp,sp,16 jr ra .size callback_get_receiver, .-callback_get_receiver #if defined __linux__ || defined __FreeBSD__ || defined __FreeBSD_kernel__ || defined __DragonFly__ .section .note.GNU-stack,"",@progbits #endif libffcall-2.2/callback/vacall_r/get_receiver.c0000664000000000000000000000152213347755304016325 00000000000000/* Implementation of callback_get_receiver */ /* * Copyright 2017 Bruno Haible * * This program is free software: you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by * the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program. If not, see . */ __vacall_r_t callback_get_receiver (void) { return (__vacall_r_t)(void*)&callback_receiver; } libffcall-2.2/callback/vacall_r/COPYING0000644000000000000000000004335713026317517014555 00000000000000 GNU GENERAL PUBLIC LICENSE Version 2, June 1991 Copyright (C) 1989, 1991 Free Software Foundation, Inc. 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. Everyone is permitted to copy and distribute verbatim copies of this license document, but changing it is not allowed. Preamble The licenses for most software are designed to take away your freedom to share and change it. By contrast, the GNU General Public License is intended to guarantee your freedom to share and change free software--to make sure the software is free for all its users. This General Public License applies to most of the Free Software Foundation's software and to any other program whose authors commit to using it. (Some other Free Software Foundation software is covered by the GNU Library General Public License instead.) You can apply it to your programs, too. When we speak of free software, we are referring to freedom, not price. Our General Public Licenses are designed to make sure that you have the freedom to distribute copies of free software (and charge for this service if you wish), that you receive source code or can get it if you want it, that you can change the software or use pieces of it in new free programs; and that you know you can do these things. To protect your rights, we need to make restrictions that forbid anyone to deny you these rights or to ask you to surrender the rights. These restrictions translate to certain responsibilities for you if you distribute copies of the software, or if you modify it. For example, if you distribute copies of such a program, whether gratis or for a fee, you must give the recipients all the rights that you have. You must make sure that they, too, receive or can get the source code. And you must show them these terms so they know their rights. We protect your rights with two steps: (1) copyright the software, and (2) offer you this license which gives you legal permission to copy, distribute and/or modify the software. Also, for each author's protection and ours, we want to make certain that everyone understands that there is no warranty for this free software. If the software is modified by someone else and passed on, we want its recipients to know that what they have is not the original, so that any problems introduced by others will not reflect on the original authors' reputations. Finally, any free program is threatened constantly by software patents. We wish to avoid the danger that redistributors of a free program will individually obtain patent licenses, in effect making the program proprietary. To prevent this, we have made it clear that any patent must be licensed for everyone's free use or not licensed at all. The precise terms and conditions for copying, distribution and modification follow. GNU GENERAL PUBLIC LICENSE TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION 0. This License applies to any program or other work which contains a notice placed by the copyright holder saying it may be distributed under the terms of this General Public License. The "Program", below, refers to any such program or work, and a "work based on the Program" means either the Program or any derivative work under copyright law: that is to say, a work containing the Program or a portion of it, either verbatim or with modifications and/or translated into another language. (Hereinafter, translation is included without limitation in the term "modification".) Each licensee is addressed as "you". Activities other than copying, distribution and modification are not covered by this License; they are outside its scope. The act of running the Program is not restricted, and the output from the Program is covered only if its contents constitute a work based on the Program (independent of having been made by running the Program). Whether that is true depends on what the Program does. 1. You may copy and distribute verbatim copies of the Program's source code as you receive it, in any medium, provided that you conspicuously and appropriately publish on each copy an appropriate copyright notice and disclaimer of warranty; keep intact all the notices that refer to this License and to the absence of any warranty; and give any other recipients of the Program a copy of this License along with the Program. You may charge a fee for the physical act of transferring a copy, and you may at your option offer warranty protection in exchange for a fee. 2. You may modify your copy or copies of the Program or any portion of it, thus forming a work based on the Program, and copy and distribute such modifications or work under the terms of Section 1 above, provided that you also meet all of these conditions: a) You must cause the modified files to carry prominent notices stating that you changed the files and the date of any change. b) You must cause any work that you distribute or publish, that in whole or in part contains or is derived from the Program or any part thereof, to be licensed as a whole at no charge to all third parties under the terms of this License. c) If the modified program normally reads commands interactively when run, you must cause it, when started running for such interactive use in the most ordinary way, to print or display an announcement including an appropriate copyright notice and a notice that there is no warranty (or else, saying that you provide a warranty) and that users may redistribute the program under these conditions, and telling the user how to view a copy of this License. (Exception: if the Program itself is interactive but does not normally print such an announcement, your work based on the Program is not required to print an announcement.) These requirements apply to the modified work as a whole. If identifiable sections of that work are not derived from the Program, and can be reasonably considered independent and separate works in themselves, then this License, and its terms, do not apply to those sections when you distribute them as separate works. But when you distribute the same sections as part of a whole which is a work based on the Program, the distribution of the whole must be on the terms of this License, whose permissions for other licensees extend to the entire whole, and thus to each and every part regardless of who wrote it. Thus, it is not the intent of this section to claim rights or contest your rights to work written entirely by you; rather, the intent is to exercise the right to control the distribution of derivative or collective works based on the Program. In addition, mere aggregation of another work not based on the Program with the Program (or with a work based on the Program) on a volume of a storage or distribution medium does not bring the other work under the scope of this License. 3. You may copy and distribute the Program (or a work based on it, under Section 2) in object code or executable form under the terms of Sections 1 and 2 above provided that you also do one of the following: a) Accompany it with the complete corresponding machine-readable source code, which must be distributed under the terms of Sections 1 and 2 above on a medium customarily used for software interchange; or, b) Accompany it with a written offer, valid for at least three years, to give any third party, for a charge no more than your cost of physically performing source distribution, a complete machine-readable copy of the corresponding source code, to be distributed under the terms of Sections 1 and 2 above on a medium customarily used for software interchange; or, c) Accompany it with the information you received as to the offer to distribute corresponding source code. (This alternative is allowed only for noncommercial distribution and only if you received the program in object code or executable form with such an offer, in accord with Subsection b above.) The source code for a work means the preferred form of the work for making modifications to it. For an executable work, complete source code means all the source code for all modules it contains, plus any associated interface definition files, plus the scripts used to control compilation and installation of the executable. However, as a special exception, the source code distributed need not include anything that is normally distributed (in either source or binary form) with the major components (compiler, kernel, and so on) of the operating system on which the executable runs, unless that component itself accompanies the executable. If distribution of executable or object code is made by offering access to copy from a designated place, then offering equivalent access to copy the source code from the same place counts as distribution of the source code, even though third parties are not compelled to copy the source along with the object code. 4. You may not copy, modify, sublicense, or distribute the Program except as expressly provided under this License. Any attempt otherwise to copy, modify, sublicense or distribute the Program is void, and will automatically terminate your rights under this License. However, parties who have received copies, or rights, from you under this License will not have their licenses terminated so long as such parties remain in full compliance. 5. You are not required to accept this License, since you have not signed it. However, nothing else grants you permission to modify or distribute the Program or its derivative works. These actions are prohibited by law if you do not accept this License. Therefore, by modifying or distributing the Program (or any work based on the Program), you indicate your acceptance of this License to do so, and all its terms and conditions for copying, distributing or modifying the Program or works based on it. 6. Each time you redistribute the Program (or any work based on the Program), the recipient automatically receives a license from the original licensor to copy, distribute or modify the Program subject to these terms and conditions. You may not impose any further restrictions on the recipients' exercise of the rights granted herein. You are not responsible for enforcing compliance by third parties to this License. 7. If, as a consequence of a court judgment or allegation of patent infringement or for any other reason (not limited to patent issues), conditions are imposed on you (whether by court order, agreement or otherwise) that contradict the conditions of this License, they do not excuse you from the conditions of this License. If you cannot distribute so as to satisfy simultaneously your obligations under this License and any other pertinent obligations, then as a consequence you may not distribute the Program at all. For example, if a patent license would not permit royalty-free redistribution of the Program by all those who receive copies directly or indirectly through you, then the only way you could satisfy both it and this License would be to refrain entirely from distribution of the Program. If any portion of this section is held invalid or unenforceable under any particular circumstance, the balance of the section is intended to apply and the section as a whole is intended to apply in other circumstances. It is not the purpose of this section to induce you to infringe any patents or other property right claims or to contest validity of any such claims; this section has the sole purpose of protecting the integrity of the free software distribution system, which is implemented by public license practices. Many people have made generous contributions to the wide range of software distributed through that system in reliance on consistent application of that system; it is up to the author/donor to decide if he or she is willing to distribute software through any other system and a licensee cannot impose that choice. This section is intended to make thoroughly clear what is believed to be a consequence of the rest of this License. 8. If the distribution and/or use of the Program is restricted in certain countries either by patents or by copyrighted interfaces, the original copyright holder who places the Program under this License may add an explicit geographical distribution limitation excluding those countries, so that distribution is permitted only in or among countries not thus excluded. In such case, this License incorporates the limitation as if written in the body of this License. 9. The Free Software Foundation may publish revised and/or new versions of the General Public License from time to time. Such new versions will be similar in spirit to the present version, but may differ in detail to address new problems or concerns. Each version is given a distinguishing version number. If the Program specifies a version number of this License which applies to it and "any later version", you have the option of following the terms and conditions either of that version or of any later version published by the Free Software Foundation. If the Program does not specify a version number of this License, you may choose any version ever published by the Free Software Foundation. 10. If you wish to incorporate parts of the Program into other free programs whose distribution conditions are different, write to the author to ask for permission. For software which is copyrighted by the Free Software Foundation, write to the Free Software Foundation; we sometimes make exceptions for this. Our decision will be guided by the two goals of preserving the free status of all derivatives of our free software and of promoting the sharing and reuse of software generally. NO WARRANTY 11. BECAUSE THE PROGRAM IS LICENSED FREE OF CHARGE, THERE IS NO WARRANTY FOR THE PROGRAM, TO THE EXTENT PERMITTED BY APPLICABLE LAW. EXCEPT WHEN OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR OTHER PARTIES PROVIDE THE PROGRAM "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. THE ENTIRE RISK AS TO THE QUALITY AND PERFORMANCE OF THE PROGRAM IS WITH YOU. SHOULD THE PROGRAM PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL NECESSARY SERVICING, REPAIR OR CORRECTION. 12. IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY AND/OR REDISTRIBUTE THE PROGRAM AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES, INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING OUT OF THE USE OR INABILITY TO USE THE PROGRAM (INCLUDING BUT NOT LIMITED TO LOSS OF DATA OR DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY YOU OR THIRD PARTIES OR A FAILURE OF THE PROGRAM TO OPERATE WITH ANY OTHER PROGRAMS), EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGES. END OF TERMS AND CONDITIONS Appendix: How to Apply These Terms to Your New Programs If you develop a new program, and you want it to be of the greatest possible use to the public, the best way to achieve this is to make it free software which everyone can redistribute and change under these terms. To do so, attach the following notices to the program. It is safest to attach them to the start of each source file to most effectively convey the exclusion of warranty; and each file should have at least the "copyright" line and a pointer to where the full notice is found. Copyright (C) This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program; if not, write to the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. Also add information on how to contact you by electronic and paper mail. If the program is interactive, make it output a short notice like this when it starts in an interactive mode: Gnomovision version 69, Copyright (C) year name of author Gnomovision comes with ABSOLUTELY NO WARRANTY; for details type `show w'. This is free software, and you are welcome to redistribute it under certain conditions; type `show c' for details. The hypothetical commands `show w' and `show c' should show the appropriate parts of the General Public License. Of course, the commands you use may be called something other than `show w' and `show c'; they could even be mouse-clicks or menu items--whatever suits your program. You should also get your employer (if you work as a programmer) or your school, if any, to sign a "copyright disclaimer" for the program, if necessary. Here is a sample; alter the names: Yoyodyne, Inc., hereby disclaims all copyright interest in the program `Gnomovision' (which makes passes at compilers) written by James Hacker. , 1 April 1989 Ty Coon, President of Vice This General Public License does not permit incorporating your program into proprietary programs. If your program is a subroutine library, you may consider it more useful to permit linking proprietary applications with the library. If this is what you want to do, use the GNU Library General Public License instead of this License. libffcall-2.2/callback/callback-compat.c0000664000000000000000000000156113347755264015124 00000000000000/* * Copyright 2017 Bruno Haible * * This program is free software: you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by * the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program. If not, see . */ #include "config.h" #include /* A dummy symbol, so that GNU clisp's autoconfiguration recognizes this library. */ void trampoline_r_data0 (void) { abort(); } libffcall-2.2/callback/test1.c0000664000000000000000000000257413347755267013157 00000000000000/* Trampoline test */ /* * Copyright 1995-2017 Bruno Haible * * This program is free software: you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by * the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program. If not, see . */ #include "config.h" /* Define __${host_cpu}__ */ #include #include #include "callback.h" #define MAGIC1 0x9db9af42 #define MAGIC2 0xa2f9d045 #define MAGIC3 0x7aff3cb4 int f (int x) { return x + MAGIC3; } void vf (void* data, va_alist alist) { if (data != (void*)MAGIC1) { printf("wrong data\n"); exit(1); } va_start_int(alist); {int a = va_arg_int(alist); int r = f(a); va_return_int(alist, r); }} int main () { callback_t cf = alloc_callback(&vf, (void*)MAGIC1); if ((*cf)(MAGIC2) == MAGIC2+MAGIC3) { free_callback(cf); printf("Works, test1 passed.\n"); exit(0); } else { printf("Doesn't work!\n"); exit(1); } } libffcall-2.2/callback/trampoline_r/0000775000000000000000000000000013530357260014477 500000000000000libffcall-2.2/callback/trampoline_r/trampoline.c0000664000000000000000000014313113527104765016746 00000000000000/* Trampoline construction */ /* * Copyright 1995-2019 Bruno Haible * * This program is free software: you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by * the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program. If not, see . */ #include "config.h" #include "trampoline_r.h" #if defined(__hppa__) && !defined(__hppa64__) #if 0 #define __hppaold__ /* Old trampoline, real machine code. */ #else #define __hppanew__ /* New trampoline, just a closure. */ #endif #endif #if defined(__hppa64__) #if 0 #define __hppa64old__ /* Old trampoline, real machine code. */ #else #define __hppa64new__ /* New trampoline, just a closure. */ #endif #endif #if defined(__powerpc__) && !defined(__powerpc64__) #if !defined(_AIX) #define __powerpcsysv4__ /* SysV.4 ABI, real machine code. */ #else #define __powerpcaix__ /* AIX ABI, just a closure. */ #endif #endif #if defined(__powerpc64__) && !defined(__powerpc64_elfv2__) #define __powerpc64aix__ /* AIX ABI, just a closure. */ #endif #if defined(__hppanew__) || defined(__hppa64new__) /* * A function pointer is a biased pointer to a data area whose first word * (hppa) or third word (hppa64) contains the actual address of the function. */ extern void tramp_r (); /* trampoline prototype */ /* We don't need to take any special measures to make the code executable * since the actual instructions are in the text segment. */ #ifndef CODE_EXECUTABLE #define CODE_EXECUTABLE #endif #endif #if defined(__powerpcaix__) || defined(__powerpc64aix__) || defined(__ia64__) /* * A function pointer is a pointer to a data area whose first word contains * the actual address of the function. */ extern void (*tramp_r) (); /* trampoline prototype */ /* We don't need to take any special measures to make the code executable * since the actual instructions are in the text segment. */ #ifndef CODE_EXECUTABLE #define CODE_EXECUTABLE #endif #endif #ifndef CODE_EXECUTABLE /* How do we make the trampoline's code executable? */ #if defined(HAVE_MACH_VM) || defined(HAVE_WORKING_MPROTECT) #if HAVE_MPROTECT_AFTER_MALLOC_CAN_EXEC > 0 /* mprotect() [or equivalent] the malloc'ed area. */ #define EXECUTABLE_VIA_MALLOC_THEN_MPROTECT #elif HAVE_MPROTECT_AFTER_MMAP_CAN_EXEC > 0 /* mprotect() [or equivalent] the mmap'ed area. */ #define EXECUTABLE_VIA_MMAP_THEN_MPROTECT #elif defined(HAVE_MMAP_SHARED_CAN_EXEC) #define EXECUTABLE_VIA_MMAP_FILE_SHARED #else #error "Don't know how to make memory pages executable." #endif #else #ifdef HAVE_MMAP /* Use an mmap'ed page. */ #define EXECUTABLE_VIA_MMAP #else #ifdef HAVE_SHM /* Use an shmat'ed page. */ #define EXECUTABLE_VIA_SHM #else #if defined(_WIN32) && ! defined(__CYGWIN__) /* native Windows */ #define EXECUTABLE_VIA_VIRTUALALLOC #else ?? #endif #endif #endif #endif #endif #include /* declares fprintf() */ #include #include /* declares abort(), malloc(), free() */ #ifdef HAVE_UNISTD_H #include #endif /* Define intptr_t, uintptr_t. */ #include /* Declare getpagesize(). */ #ifdef HAVE_GETPAGESIZE #ifdef __cplusplus extern "C" RETGETPAGESIZETYPE getpagesize (void); #else extern RETGETPAGESIZETYPE getpagesize (void); #endif #else #ifdef HAVE_SYS_PARAM_H #include #else /* Not Unix, e.g. mingw32 */ #define PAGESIZE 4096 #endif #define getpagesize() PAGESIZE #endif /* Declare mprotect() or equivalent. */ #if defined(EXECUTABLE_VIA_MALLOC_THEN_MPROTECT) || defined(EXECUTABLE_VIA_MMAP_THEN_MPROTECT) #ifdef HAVE_MACH_VM #include #include #ifdef __osf__ #include #endif #include #else #include #include #endif #endif /* Declare mmap(). */ #if defined(EXECUTABLE_VIA_MMAP) || defined(EXECUTABLE_VIA_MMAP_FILE_SHARED) #include #include #if !defined(PROT_EXEC) && defined(PROT_EXECUTE) /* Irix 4.0.5 needs this */ #define PROT_EXEC PROT_EXECUTE #endif #endif /* Declare open(). */ #if defined(EXECUTABLE_VIA_MMAP_DEVZERO) || defined(EXECUTABLE_VIA_MMAP_FILE_SHARED) #include #include #include #endif /* Declare shmget(), shmat(), shmctl(). */ #ifdef EXECUTABLE_VIA_SHM #include #include #include #ifdef HAVE_SYS_SYSMACROS_H #include #endif #endif /* Declare VirtualAlloc(), GetSystemInfo. */ #ifdef EXECUTABLE_VIA_VIRTUALALLOC #define WIN32_LEAN_AND_MEAN #define WIN32_EXTRA_LEAN #include #endif /* Some old mmap() implementations require the flag MAP_FILE whenever you pass an fd >= 0. */ #ifndef MAP_FILE #define MAP_FILE 0 #endif /* Some old mmap() implementations require the flag MAP_VARIABLE whenever you pass an addr == NULL. */ #ifndef MAP_VARIABLE #define MAP_VARIABLE 0 #endif /* Support for instruction cache flush. */ #ifdef __i386__ #if defined(_WIN32) && ! defined(__CYGWIN__) /* native Windows */ #define WIN32_LEAN_AND_MEAN #define WIN32_EXTRA_LEAN #include #endif #endif #if defined(__mips__) || defined(__mipsn32__) || defined(__mips64__) || defined(__riscv32__) || defined(__riscv64__) #ifdef HAVE_SYS_CACHECTL_H /* IRIX, Linux */ #include #else #ifdef __OpenBSD__ #include #endif #endif #endif /* Inline assembly function for instruction cache flush. */ #if defined(__sparc__) || defined(__sparc64__) || defined(__alpha__) || defined(__hppaold__) || defined(__hppa64old__) || defined(__powerpcsysv4__) || defined(__powerpc64_elfv2__) #if defined(__sparc__) || defined(__sparc64__) extern void __TR_clear_cache_2(); #else extern void __TR_clear_cache(); #endif #endif /* Support for multithread-safe coding. */ #include "glthread/lock.h" #if !defined(CODE_EXECUTABLE) && defined(EXECUTABLE_VIA_MMAP_FILE_SHARED) /* Opens a file descriptor and attempts to make it non-inheritable. */ static int open_noinherit (const char *filename, int flags, int mode) { # if O_CLOEXEC return open (filename, flags | O_CLOEXEC, mode); # else int fd = open (filename, flags, mode); # ifdef F_SETFD if (fd >= 0) { int flags = fcntl (fd, F_GETFD, 0); if (flags >= 0) fcntl (fd, F_SETFD, flags | FD_CLOEXEC); } # endif return fd; # endif } #endif /* Length and alignment of trampoline */ #ifdef __i386__ #define TRAMP_LENGTH 12 #define TRAMP_ALIGN 16 /* 4 for a i386, 16 for a i486 */ #endif #ifdef __m68k__ #define TRAMP_LENGTH 14 #define TRAMP_ALIGN 16 #endif #if (defined(__mips__) || defined(__mipsn32__)) && !defined(__mips64__) #define TRAMP_LENGTH 24 #define TRAMP_ALIGN 4 #endif #ifdef __mips64old__ #define TRAMP_LENGTH 56 #define TRAMP_ALIGN 4 #endif #ifdef __mips64__ #define TRAMP_LENGTH 32 #define TRAMP_ALIGN 8 #endif #if defined(__sparc__) && !defined(__sparc64__) #define TRAMP_LENGTH 16 #define TRAMP_ALIGN 16 #endif #ifdef __sparc64__ #define TRAMP_LENGTH 32 #define TRAMP_ALIGN 16 #endif #ifdef __alpha__ #define TRAMP_LENGTH 32 #define TRAMP_ALIGN 8 #endif #ifdef __hppaold__ #define TRAMP_LENGTH 48 #define TRAMP_ALIGN 16 #endif #ifdef __hppanew__ #define TRAMP_LENGTH 16 #define TRAMP_ALIGN 16 #define TRAMP_BIAS 2 #endif #ifdef __hppa64old__ #define TRAMP_LENGTH 80 #define TRAMP_ALIGN 8 #define TRAMP_BIAS 48 #endif #ifdef __hppa64new__ #define TRAMP_LENGTH 48 #define TRAMP_ALIGN 8 #endif #if defined(__arm__) || defined(__armhf__) #define TRAMP_LENGTH 48 #define TRAMP_ALIGN 4 #endif #ifdef __arm64__ #define TRAMP_LENGTH 32 #define TRAMP_ALIGN 8 #endif #ifdef __powerpcsysv4__ #define TRAMP_LENGTH 24 #define TRAMP_ALIGN 4 #endif #ifdef __powerpcaix__ #define TRAMP_LENGTH 20 #define TRAMP_ALIGN 4 #endif #ifdef __powerpc64_elfv2__ #define TRAMP_LENGTH 32 #define TRAMP_ALIGN 8 #endif #ifdef __powerpc64aix__ #define TRAMP_LENGTH 40 #define TRAMP_ALIGN 8 #endif #ifdef __ia64__ #define TRAMP_LENGTH 32 #define TRAMP_ALIGN 16 #endif #ifdef __x86_64__ #ifdef __x86_64_x32__ #define TRAMP_LENGTH 13 #define TRAMP_ALIGN 4 #else #define TRAMP_LENGTH 22 #define TRAMP_ALIGN 16 #endif #endif #if defined(__s390__) && !defined(__s390x__) #define TRAMP_LENGTH 20 #define TRAMP_ALIGN 4 #endif #ifdef __s390x__ #define TRAMP_LENGTH 32 #define TRAMP_ALIGN 8 #endif #ifdef __riscv32__ #define TRAMP_LENGTH 24 #define TRAMP_ALIGN 4 #endif #ifdef __riscv64__ #define TRAMP_LENGTH 32 #define TRAMP_ALIGN 8 #endif #ifndef TRAMP_BIAS #define TRAMP_BIAS 0 #endif #define TRAMP_TOTAL_LENGTH (TRAMP_LENGTH + 2*sizeof(void*)) #if !defined(CODE_EXECUTABLE) static long pagesize = 0; #endif #if !defined(CODE_EXECUTABLE) && (defined(EXECUTABLE_VIA_MMAP_DEVZERO) || defined(EXECUTABLE_VIA_MMAP_FILE_SHARED)) /* Variables needed for obtaining memory pages via mmap(). */ #if defined(EXECUTABLE_VIA_MMAP_DEVZERO) static int zero_fd; #endif #if defined(EXECUTABLE_VIA_MMAP_FILE_SHARED) static int file_fd; static long file_length; #endif /* Initialization of these variables. */ static void for_mmap_init (void) { #if defined(EXECUTABLE_VIA_MMAP_DEVZERO) zero_fd = open("/dev/zero",O_RDONLY,0644); if (zero_fd < 0) { fprintf(stderr,"trampoline: Cannot open /dev/zero!\n"); abort(); } #endif #if defined(EXECUTABLE_VIA_MMAP_FILE_SHARED) { char filename[100]; sprintf(filename, "%s/trampdata-%d-%ld", "/tmp", getpid (), random ()); file_fd = open_noinherit (filename, O_CREAT | O_RDWR | O_TRUNC, 0700); if (file_fd < 0) { fprintf(stderr,"trampoline: Cannot open %s!\n",filename); abort(); } /* Remove the file from the file system as soon as possible, to make sure there is no leftover after this process terminates or crashes. */ unlink(filename); } file_length = 0; #endif } /* Once-only initializer for these variables. */ gl_once_define(static, for_mmap_once) #endif #if !defined(CODE_EXECUTABLE) && !defined(EXECUTABLE_VIA_MALLOC_THEN_MPROTECT) /* AIX doesn't support mprotect() in malloc'ed memory. Must get pages of * memory with execute permission via mmap(). Then keep a free list of * free trampolines. */ static char* freelist = NULL; /* Lock that protects the freelist from simultaneous access from multiple threads. */ gl_lock_define_initialized(static, freelist_lock) #endif __TR_function alloc_trampoline_r (__TR_function address, void* data0, void* data1) { char* function; char* function_x; char* data; #if !defined(CODE_EXECUTABLE) /* First, get the page size once and for all. */ if (!pagesize) { /* Simultaneous execution of this initialization in multiple threads is OK. */ #if defined(EXECUTABLE_VIA_VIRTUALALLOC) /* GetSystemInfo */ SYSTEM_INFO info; GetSystemInfo(&info); pagesize = info.dwPageSize; #elif defined(HAVE_MACH_VM) pagesize = vm_page_size; #else pagesize = getpagesize(); #endif #if defined(EXECUTABLE_VIA_MMAP_DEVZERO) || defined(EXECUTABLE_VIA_MMAP_FILE_SHARED) /* Use a once-only initializer here, since simultaneous execution of for_mmap_init() in multiple threads must be avoided. */ gl_once (for_mmap_once, for_mmap_init); #endif } #endif /* 1. Allocate room */ #if !defined(CODE_EXECUTABLE) && !defined(EXECUTABLE_VIA_MALLOC_THEN_MPROTECT) gl_lock_lock(freelist_lock); if (freelist == NULL) { /* Get a new page. */ char* page; char* page_end; #ifdef EXECUTABLE_VIA_VIRTUALALLOC /* VirtualAlloc */ page = VirtualAlloc(NULL,pagesize,MEM_COMMIT,PAGE_EXECUTE_READWRITE); if (page == NULL) { fprintf(stderr,"trampoline: Out of virtual memory!\n"); abort(); } page_end = page + pagesize; #else #ifdef EXECUTABLE_VIA_MMAP_FILE_SHARED char* page_x; /* Extend the file by one page. */ long new_file_length = file_length + pagesize; if (ftruncate(file_fd,new_file_length) < 0) { fprintf(stderr,"trampoline: Cannot extend backing file!\n"); abort(); } /* Create separate mappings for writing and for executing. */ page = (char*)mmap(NULL,pagesize,PROT_READ|PROT_WRITE,MAP_SHARED,file_fd,file_length); page_x = (char*)mmap(NULL,pagesize,PROT_READ|PROT_EXEC,MAP_SHARED,file_fd,file_length); if (page == (char*)(-1) || page_x == (char*)(-1)) { fprintf(stderr,"trampoline: Out of virtual memory!\n"); abort(); } file_length = new_file_length; page_end = page + pagesize; /* Link the two pages together. */ ((intptr_t*)page)[0] = page_x - page; page = (char*)(((uintptr_t)page + sizeof(intptr_t) + TRAMP_ALIGN-1) & -TRAMP_ALIGN); #else #ifdef EXECUTABLE_VIA_MMAP_THEN_MPROTECT #ifdef HAVE_MMAP_ANONYMOUS /* Use mmap with the MAP_ANONYMOUS or MAP_ANON flag. */ page = mmap(NULL, pagesize, PROT_READ | PROT_WRITE, MAP_PRIVATE | MAP_ANONYMOUS | MAP_VARIABLE, -1, 0); #else /* Use mmap on /dev/zero. */ page = mmap(NULL, pagesize, PROT_READ | PROT_WRITE, MAP_PRIVATE | MAP_FILE | MAP_VARIABLE, zero_fd, 0); #endif #endif #ifdef EXECUTABLE_VIA_MMAP #ifdef HAVE_MMAP_ANONYMOUS /* Use mmap with the MAP_ANONYMOUS or MAP_ANON flag. */ page = mmap(NULL, pagesize, PROT_READ | PROT_WRITE | PROT_EXEC, MAP_PRIVATE | MAP_ANONYMOUS | MAP_VARIABLE, -1, 0); #else /* Use mmap on /dev/zero. */ page = mmap(NULL, pagesize, PROT_READ | PROT_WRITE | PROT_EXEC, MAP_PRIVATE | MAP_FILE | MAP_VARIABLE, zero_fd, 0); #endif #endif #ifdef EXECUTABLE_VIA_SHM int shmid = shmget(IPC_PRIVATE, pagesize, 0700|IPC_CREAT); if (shmid<0) { page = (char*)(-1); } else { page = shmat(shmid, 0, 0); shmctl(shmid, IPC_RMID, 0); } #endif if (page == (char*)(-1)) { fprintf(stderr,"trampoline: Out of virtual memory!\n"); abort(); } page_end = page + pagesize; #endif #endif /* Fill it with free trampolines. */ { char** last = &freelist; while (page+TRAMP_TOTAL_LENGTH <= page_end) { *last = page; last = (char**)page; page = (char*)(((uintptr_t)page + TRAMP_TOTAL_LENGTH + TRAMP_ALIGN-1) & -TRAMP_ALIGN); } *last = NULL; } } function = freelist; freelist = *(char**)freelist; gl_lock_unlock(freelist_lock); #else { char* room = (char*) malloc(sizeof(void*) + TRAMP_TOTAL_LENGTH + TRAMP_ALIGN-1); if (!room) { fprintf(stderr,"trampoline: Out of virtual memory!\n"); abort(); } function = (char*)(((uintptr_t)room + sizeof(void*) + TRAMP_ALIGN-1) & -TRAMP_ALIGN); ((char**)function)[-1] = room; /* backpointer for free_trampoline() */ } #endif #if !defined(CODE_EXECUTABLE) && defined(EXECUTABLE_VIA_MMAP_FILE_SHARED) /* Find the executable address corresponding to the writable address. */ { uintptr_t page = (uintptr_t) function & -(intptr_t)pagesize; function_x = function + ((intptr_t*)page)[0]; } #else function_x = function; #endif /* 2. Fill out the trampoline */ data = function + TRAMP_LENGTH; /* Knowing that data = function + TRAMP_LENGTH, we could certainly optimize * the trampolines a little bit more, using PC relative addressing modes. * But I doubt it's really worth it. */ #ifdef __i386__ /* function: * movl $,%ecx B9 * jmp

E9
- * here: * nop 90 * nop 90 */ *(char *) (function + 0) = 0xB9; *(long *) (function + 1) = (long) data; *(char *) (function + 5) = 0xE9; *(long *) (function + 6) = (long) address - (long) (function_x + 10); *(short *) (function +10) = 0x9090; /* nop nop, for alignment */ #define is_tramp(function) \ *(unsigned char *) (function + 0) == 0xB9 && \ *(unsigned char *) (function + 5) == 0xE9 #define tramp_address(function) \ *(long *) (function + 6) + (long) (function + 10) #define tramp_data(function) \ *(long *) (function + 1) #endif #ifdef __m68k__ /* function: * movel #,a0 20 7C * jmp
4E F9
* nop 4E 71 */ *(short *) (function + 0) = 0x207C; *(long *) (function + 2) = (long) data; *(short *) (function + 6) = 0x4EF9; *(long *) (function + 8) = (long) address; *(short *) (function +12) = 0x4E71; #define is_tramp(function) \ *(unsigned short *) (function + 0) == 0x207C && \ *(unsigned short *) (function + 6) == 0x4EF9 && \ *(unsigned short *) (function +12) == 0x4E71 #define tramp_address(function) \ *(long *) (function + 8) #define tramp_data(function) \ *(long *) (function + 2) #endif #if (defined(__mips__) || defined(__mipsn32__)) && !defined(__mips64__) /* function: * lw $2,16($25) 8F 22 00 10 * lw $25,20($25) 8F 39 00 14 * j $25 03 20 00 08 * nop 00 00 00 00 * .word * .word
*/ *(unsigned int *) (function + 0) = 0x8F220010; *(unsigned int *) (function + 4) = 0x8F390014; *(unsigned int *) (function + 8) = 0x03200008; *(unsigned int *) (function +12) = 0x00000000; *(unsigned int *) (function +16) = (unsigned int) data; *(unsigned int *) (function +20) = (unsigned int) address; #define TRAMP_CODE_LENGTH 16 #define is_tramp(function) \ *(unsigned int *) (function + 0) == 0x8F220010 && \ *(unsigned int *) (function + 4) == 0x8F390014 && \ *(unsigned int *) (function + 8) == 0x03200008 && \ *(unsigned int *) (function +12) == 0x00000000 #define tramp_address(function) \ *(unsigned int *) (function +20) #define tramp_data(function) \ *(unsigned int *) (function +16) #endif #ifdef __mips64old__ /* function: * dli $2, 3C 02 hi16(hi32()) * 34 42 lo16(hi32()) * 00 02 14 38 * 34 42 hi16(lo32()) * 00 02 14 38 * 34 42 lo16(lo32()) * dli $25,
3C 19 hi16(hi32(
)) * 37 39 lo16(hi32(
)) * 00 19 CC 38 * 37 39 hi16(lo32(
)) * 00 19 CC 38 * 37 39 lo16(lo32(
)) * j $25 03 20 00 08 * nop 00 00 00 00 */ /* What about big endian / little endian ?? */ *(short *) (function + 0) = 0x3C02; *(short *) (function + 2) = (unsigned long) data >> 48; *(short *) (function + 4) = 0x3442; *(short *) (function + 6) = ((unsigned long) data >> 32) & 0xffff; *(int *) (function + 8) = 0x00021438; *(short *) (function +12) = 0x3442; *(short *) (function +14) = ((unsigned long) data >> 16) & 0xffff; *(int *) (function +16) = 0x00021438; *(short *) (function +20) = 0x3442; *(short *) (function +22) = (unsigned long) data & 0xffff; *(short *) (function +24) = 0x3C19; *(short *) (function +26) = (unsigned long) address >> 48; *(short *) (function +28) = 0x3739; *(short *) (function +30) = ((unsigned long) address >> 32) & 0xffff; *(int *) (function +32) = 0x0019CC38; *(short *) (function +36) = 0x3739; *(short *) (function +38) = ((unsigned long) address >> 16) & 0xffff; *(int *) (function +40) = 0x0019CC38; *(short *) (function +44) = 0x3739; *(short *) (function +46) = (unsigned long) address & 0xffff; *(int *) (function +48) = 0x03200008; *(int *) (function +52) = 0x00000000; #define is_tramp(function) \ *(unsigned short *) (function + 0) == 0x3C02 && \ *(unsigned short *) (function + 4) == 0x3442 && \ *(unsigned int *) (function + 8) == 0x00021438 && \ *(unsigned short *) (function +12) == 0x3442 && \ *(unsigned int *) (function +16) == 0x00021438 && \ *(unsigned short *) (function +20) == 0x3442 && \ *(unsigned short *) (function +24) == 0x3C19 && \ *(unsigned short *) (function +28) == 0x3739 && \ *(unsigned int *) (function +32) == 0x0019CC38 && \ *(unsigned short *) (function +36) == 0x3739 && \ *(unsigned int *) (function +40) == 0x0019CC38 && \ *(unsigned short *) (function +44) == 0x3739 && \ *(unsigned int *) (function +48) == 0x03200008 && \ *(unsigned int *) (function +52) == 0x00000000 #define hilo(word3,word2,word1,word0) \ (((unsigned long) (word3) << 48) | ((unsigned long) (word2) << 32) | \ ((unsigned long) (word1) << 16) | (unsigned long) (word0)) #define tramp_address(function) \ hilo(*(unsigned short *) (function +26), \ *(unsigned short *) (function +30), \ *(unsigned short *) (function +38), \ *(unsigned short *) (function +46)) #define tramp_data(function) \ hilo(*(unsigned short *) (function + 2), \ *(unsigned short *) (function + 6), \ *(unsigned short *) (function +14), \ *(unsigned short *) (function +22)) #endif #ifdef __mips64__ /* function: * ld $2,16($25) DF 22 00 10 * ld $25,24($25) DF 39 00 18 * j $25 03 20 00 08 * nop 00 00 00 00 * .dword * .dword
*/ *(unsigned int *) (function + 0) = 0xDF220010; *(unsigned int *) (function + 4) = 0xDF390018; *(unsigned int *) (function + 8) = 0x03200008; *(unsigned int *) (function +12) = 0x00000000; *(unsigned long *) (function +16) = (unsigned long) data; *(unsigned long *) (function +24) = (unsigned long) address; #define TRAMP_CODE_LENGTH 16 #define is_tramp(function) \ *(unsigned int *) (function + 0) == 0xDF220010 && \ *(unsigned int *) (function + 4) == 0xDF390018 && \ *(unsigned int *) (function + 8) == 0x03200008 && \ *(unsigned int *) (function +12) == 0x00000000 #define tramp_address(function) \ *(unsigned long *) (function +24) #define tramp_data(function) \ *(unsigned long *) (function +16) #endif #if defined(__sparc__) && !defined(__sparc64__) /* function: * sethi %hi(),%g2 05000000 | ( >> 10) * sethi %hi(
),%g1 03000000 | (
>> 10) * jmp %g1+%lo(
) 81C06000 | (
& 0x3ff) * or %g2,%lo(),%g2 8410A000 | ( & 0x3ff) */ #define hi(word) ((unsigned long) (word) >> 10) #define lo(word) ((unsigned long) (word) & 0x3ff) *(long *) (function + 0) = 0x05000000 | hi(data); *(long *) (function + 4) = 0x03000000 | hi(address); *(long *) (function + 8) = 0x81C06000 | lo(address); *(long *) (function +12) = 0x8410A000 | lo(data); #define is_tramp(function) \ (*(long *) (function + 0) & 0xffc00000) == 0x05000000 && \ (*(long *) (function + 4) & 0xffc00000) == 0x03000000 && \ (*(long *) (function + 8) & 0xfffffc00) == 0x81C06000 && \ (*(long *) (function +12) & 0xfffffc00) == 0x8410A000 #define hilo(hiword,loword) (((hiword) << 10) | ((loword) & 0x3ff)) #define tramp_address(function) \ hilo(*(long *) (function + 4), *(long *) (function + 8)) #define tramp_data(function) \ hilo(*(long *) (function + 0), *(long *) (function +12)) #endif #ifdef __sparc64__ /* function: * rd %pc,%g1 83414000 * ldx [%g1+24],%g2 C4586018 * jmp %g2 81C08000 * ldx [%g1+16],%g5 CA586010 * .long high32() >> 32 * .long low32() & 0xffffffff * .long high32(
)
>> 32 * .long low32(
)
& 0xffffffff */ *(int *) (function + 0) = 0x83414000; *(int *) (function + 4) = 0xC4586018; *(int *) (function + 8) = 0x81C08000; *(int *) (function +12) = 0xCA586010; *(long *) (function +16) = (long) data; *(long *) (function +24) = (long) address; #define TRAMP_CODE_LENGTH 16 #define is_tramp(function) \ *(int *) (function + 0) == 0x83414000 && \ *(int *) (function + 4) == 0xC4586018 && \ *(int *) (function + 8) == 0x81C08000 && \ *(int *) (function +12) == 0xCA586010 #define tramp_address(function) \ *(long *) (function +24) #define tramp_data(function) \ *(long *) (function +16) #endif #ifdef __alpha__ /* function: * br $1,function..ng 00 00 20 C0 * function..ng: * ldq $27,20($1) 14 00 61 A7 * ldq $1,12($1) 0C 00 21 A4 * jmp $31,($27),0 00 00 FB 6B * .quad * .quad
*/ { static int code [4] = { 0xC0200000, 0xA7610014, 0xA421000C, 0x6BFB0000 }; int i; for (i=0; i<4; i++) { ((int *) function)[i] = code[i]; } ((long *) function)[2] = (long) data; ((long *) function)[3] = (long) address; } #define TRAMP_CODE_LENGTH 16 #define is_tramp(function) \ ((int *) function)[0] == 0xC0200000 && \ ((int *) function)[1] == 0xA7610014 && \ ((int *) function)[2] == 0xA421000C && \ ((int *) function)[3] == 0x6BFB0000 #define tramp_address(function) \ ((long *) function)[3] #define tramp_data(function) \ ((long *) function)[2] #endif #ifdef __hppaold__ /* function: * ldil L',%r29 23A00000 | hi() * ldil L'
,%r21 22A00000 | hi(
) * ldo R'(%r29),%r29 37BD0000 | lo() * ldo R'
(%r21),%r21 36B50000 | lo(
) * bb,>=,n %r21,30,function2 C7D5C012 * depi 0,31,2,%r21 D6A01C1E * ldw 4(0,%r21),%r19 4AB30008 * ldw 0(0,%r21),%r21 4AB50000 * function2: * ldsid (0,%r21),%r1 02A010A1 * mtsp %r1,%sr0 00011820 * be,n 0(%sr0,%r21) E2A00002 * nop 08000240 */ /* When decoding a 21-bit argument in an instruction, the hppa performs * the following bit manipulation: * assemble21: x[20]...x[0] * --> x[0] x[11]...x[1] x[15]..x[14] x[20]...x[16] x[13]..x[12] * When encoding a 21-bit argument into an instruction, we need the * to perform the reverse permutation: * permute21: y[20]...y[0] * --> y[6]...y[2] y[8]..y[7] y[1]..y[0] y[19]...y[9] y[20] */ #define assemble21(x) \ ((((x) & 0x1) << 20) | (((x) & 0xFFE) << 8) | \ (((x) & 0xC000) >> 7) | (((x) & 0x1F0000) >> 14) | (((x) & 0x3000) >> 12)) #define permute21(y) \ ((((y) & 0x7C) << 14) | (((y) & 0x180) << 7) | (((y) & 0x3) << 12) | \ (((y) & 0xFFE00) >> 8) | (((y) & 0x100000) >> 20)) #define hi(word) permute21((unsigned long) (word) >> 11) #define lo(word) (((unsigned long) (word) & 0x7FF) << 1) *(long *) (function + 0) = 0x23A00000 | hi(data); *(long *) (function + 4) = 0x22A00000 | hi(address); *(long *) (function + 8) = 0x37BD0000 | lo(data); *(long *) (function +12) = 0x36B50000 | lo(address); *(long *) (function +16) = 0xC7D5C012; *(long *) (function +20) = 0xD6A01C1E; *(long *) (function +24) = 0x4AB30008; *(long *) (function +28) = 0x4AB50000; *(long *) (function +32) = 0x02A010A1; *(long *) (function +36) = 0x00011820; *(long *) (function +40) = 0xE2A00002; *(long *) (function +44) = 0x08000240; #define is_tramp(function) \ ((long) function & 3) == 0 && \ (*(long *) (function + 0) & 0xffe00000) == 0x23A00000 && \ (*(long *) (function + 4) & 0xffe00000) == 0x22A00000 && \ (*(long *) (function + 8) & 0xfffff000) == 0x37BD0000 && \ (*(long *) (function +12) & 0xfffff000) == 0x36B50000 && \ *(long *) (function +16) == 0xC7D5C012 && \ *(long *) (function +20) == 0xD6A01C1E && \ *(long *) (function +24) == 0x4AB30008 && \ *(long *) (function +28) == 0x4AB50000 && \ *(long *) (function +32) == 0x02A010A1 && \ *(long *) (function +36) == 0x00011820 && \ *(long *) (function +40) == 0xE2A00002 && \ *(long *) (function +44) == 0x08000240 #define hilo(hiword,loword) \ ((assemble21((unsigned long) (hiword)) << 11) | \ (((unsigned long) (loword) & 0xFFE) >> 1) \ ) #define tramp_address(function) \ hilo(*(long *) (function + 4), *(long *) (function +12)) #define tramp_data(function) \ hilo(*(long *) (function + 0), *(long *) (function + 8)) #endif #ifdef __hppanew__ /* function: * .long tramp_r * .long closure * closure: * .long * .long
*/ { /* work around a bug in gcc 3.* */ void* tramp_r_address = &tramp_r; *(long *) (function + 0) = ((long *) ((char*)tramp_r_address-2))[0]; *(long *) (function + 4) = (long) (function + 8); *(long *) (function + 8) = (long) data; *(long *) (function +12) = (long) address; } #define TRAMP_CODE_LENGTH 0 #define is_tramp(function) \ ((long *) function)[0] == ((long *) ((char*)tramp_r_address-2))[0] #define tramp_address(function) \ ((long *) function)[3] #define tramp_data(function) \ ((long *) function)[2] #endif #ifdef __hppa64old__ /* function: * mfia %r27 000014BB * ldd 32(%r27),%r31 537F0040 * ldd 40(%r27),%r27 537B0050 * ldd 16(%r27),%r1 53610020 * ldd 24(%r27),%r27 537B0030 * bve (%r1) E820D000 * nop 08000240 * .align 8 * .dword * .dword
* function_pointer: * .dword 0 * .dword 0 * .dword function * .dword 0 */ *(int *) (function + 0) = 0x000014BB; *(int *) (function + 4) = 0x537F0040; *(int *) (function + 8) = 0x537B0050; *(int *) (function +12) = 0x53610020; *(int *) (function +16) = 0x537B0030; *(int *) (function +20) = 0xE820D000; *(int *) (function +24) = 0x08000240; *(long *) (function +32) = (long)data; *(long *) (function +40) = (long)address; *(long *) (function +48) = (long)0; *(long *) (function +56) = (long)0; *(long *) (function +64) = (long)function; *(long *) (function +72) = (long)0; #define TRAMP_CODE_LENGTH 28 #define is_tramp(function) \ *(int *) (function + 0) == 0x000014BB && \ *(int *) (function + 4) == 0x537F0040 && \ *(int *) (function + 8) == 0x537B0050 && \ *(int *) (function +12) == 0x53610020 && \ *(int *) (function +16) == 0x537B0030 && \ *(int *) (function +20) == 0xE820D000 && \ *(int *) (function +24) == 0x08000240 #define tramp_address(function) \ (*(unsigned long *) (function +40)) #define tramp_data(function) \ (*(unsigned long *) (function +32)) #endif #ifdef __hppa64new__ /* function: * .dword 0 * .dword 0 * .dword tramp * .dword closure * closure: * .dword * .dword
*/ *(long *) (function + 0) = 0; *(long *) (function + 8) = 0; *(long *) (function +16) = ((long *) (void*) &tramp_r)[2]; *(long *) (function +24) = (long) (function + 32); *(long *) (function +32) = (long) data; *(long *) (function +40) = (long) address; #define TRAMP_CODE_LENGTH 0 #define is_tramp(function) \ ((long *) function)[2] == ((long *) (void*) &tramp_r)[2] && \ ((long *) function)[3] == (long) (function + 32) #define tramp_address(function) \ ((long *) function)[5] #define tramp_data(function) \ ((long *) function)[4] #endif #if defined(__arm__) || defined(__armhf__) /* function: * mov ip,sp E1A0C00D * stmdb sp!,{r0,r1,r2,r3} E92D000F * stmfd sp!,{fp,ip,lr,pc} E92DD800 * sub fp,ip,#20 E24CB014 * sub sp,sp,#8 E24DD008 * ldr ip,[pc,#12] E59FC00C @ Get * str ip,[sp,#0] E58DC000 @ Put on stack * mov lr,pc E1A0E00F @ Prepare call (put return address in lr) * ldr pc,[pc,#4] E59FF004 @ Call
with the same args in registers * ldmea fp,{fp,sp,pc} E91BA800 @ Restore fp and sp, and return to return address. * _data: * .word * _address: * .word
*/ { ((long *) function)[0] = 0xE1A0C00D; ((long *) function)[1] = 0xE92D000F; ((long *) function)[2] = 0xE92DD800; ((long *) function)[3] = 0xE24CB014; ((long *) function)[4] = 0xE24DD008; ((long *) function)[5] = 0xE59FC00C; ((long *) function)[6] = 0xE58DC000; ((long *) function)[7] = 0xE1A0E00F; ((long *) function)[8] = 0xE59FF004; ((long *) function)[9] = 0xE91BA800; ((long *) function)[10] = (long) data; ((long *) function)[11] = (long) address; } #define TRAMP_CODE_LENGTH 40 #define is_tramp(function) \ ((long *) function)[0] == 0xE1A0C00D && \ ((long *) function)[1] == 0xE92D000F && \ ((long *) function)[2] == 0xE92DD800 && \ ((long *) function)[3] == 0xE24CB014 && \ ((long *) function)[4] == 0xE24DD008 && \ ((long *) function)[5] == 0xE59FC00C && \ ((long *) function)[6] == 0xE58DC000 && \ ((long *) function)[7] == 0xE1A0E00F && \ ((long *) function)[8] == 0xE59FF004 && \ ((long *) function)[9] == 0xE91BA800 #define tramp_address(function) \ ((long *) function)[11] #define tramp_data(function) \ ((long *) function)[10] #endif #ifdef __arm64__ /* function: * ldr x17,.+24 580000D1 * ldr x18,.+12 58000072 * br x17 D61F0220 * nop D503201F * .xword * .xword
*/ *(int *) (function + 0) = 0x580000D1; *(int *) (function + 4) = 0x58000072; *(int *) (function + 8) = 0xD61F0220; *(int *) (function +12) = 0xD503201F; *(long *) (function +16) = (unsigned long) data; *(long *) (function +24) = (unsigned long) address; #define TRAMP_CODE_LENGTH 16 #define is_tramp(function) \ *(unsigned int *) (function + 0) == 0x580000D1 && \ *(unsigned int *) (function + 4) == 0x58000072 && \ *(unsigned int *) (function + 8) == 0xD61F0220 && \ *(unsigned int *) (function +12) == 0xD503201F #define tramp_address(function) \ (*(unsigned long *) (function +24)) #define tramp_data(function) \ (*(unsigned long *) (function +16)) #endif #ifdef __powerpcsysv4__ /* function: * {liu|lis} 11,hi16() 3D 60 hi16() * {oril|ori} 11,11,lo16() 61 6B lo16() * {liu|lis} 0,hi16(
) 3C 00 hi16(
) * {oril|ori} 0,0,lo16(
) 60 00 lo16(
) * mtctr 0 7C 09 03 A6 * bctr 4E 80 04 20 */ *(short *) (function + 0) = 0x3D60; *(short *) (function + 2) = (unsigned long) data >> 16; *(short *) (function + 4) = 0x616B; *(short *) (function + 6) = (unsigned long) data & 0xffff; *(short *) (function + 8) = 0x3C00; *(short *) (function +10) = (unsigned long) address >> 16; *(short *) (function +12) = 0x6000; *(short *) (function +14) = (unsigned long) address & 0xffff; *(long *) (function +16) = 0x7C0903A6; *(long *) (function +20) = 0x4E800420; #define is_tramp(function) \ *(unsigned short *) (function + 0) == 0x3D60 && \ *(unsigned short *) (function + 4) == 0x616B && \ *(unsigned short *) (function + 8) == 0x3C00 && \ *(unsigned short *) (function +12) == 0x6000 && \ *(unsigned long *) (function +16) == 0x7C0903A6 && \ *(unsigned long *) (function +20) == 0x4E800420 #define hilo(hiword,loword) \ (((unsigned long) (hiword) << 16) | (unsigned long) (loword)) #define tramp_address(function) \ hilo(*(unsigned short *) (function +10), *(unsigned short *) (function +14)) #define tramp_data(function) \ hilo(*(unsigned short *) (function + 2), *(unsigned short *) (function + 6)) #endif #ifdef __powerpcaix__ /* function: * .long .tramp_r * .long .mytoc * .long 0 * .mytoc: * .long * .long
*/ *(long *) (function + 0) = ((long *) &tramp_r)[0]; *(long *) (function + 4) = (long) (function + 12); *(long *) (function + 8) = 0; *(long *) (function +12) = (long) data; *(long *) (function +16) = (long) address; #define TRAMP_CODE_LENGTH 0 #define is_tramp(function) \ ((long *) function)[0] == ((long *) &tramp_r)[0] #define tramp_address(function) \ ((long *) function)[4] #define tramp_data(function) \ ((long *) function)[3] #endif #ifdef __powerpc64_elfv2__ /* function: * ld 11,16(12) 10 00 6C E9 * ld 12,24(12) 18 00 8C E9 * mtctr 12 A6 03 89 7D * bctr 20 04 80 4E * .quad * .quad
*/ *(int *) (function + 0) = 0xE96C0010; *(int *) (function + 4) = 0xE98C0018; *(int *) (function + 8) = 0x7D8903A6; *(int *) (function +12) = 0x4E800420; *(long *) (function +16) = (unsigned long) data; *(long *) (function +24) = (unsigned long) address; #define TRAMP_CODE_LENGTH 16 #define is_tramp(function) \ *(unsigned int *) (function + 0) == 0xE96C0010 && \ *(unsigned int *) (function + 4) == 0xE98C0018 && \ *(unsigned int *) (function + 8) == 0x7D8903A6 && \ *(unsigned int *) (function +12) == 0x4E800420 #define tramp_address(function) \ (*(unsigned long *) (function +24)) #define tramp_data(function) \ (*(unsigned long *) (function +16)) #endif #ifdef __powerpc64aix__ /* function: * .quad .tramp_r * .quad .mytoc * .quad 0 * .mytoc: * .quad * .quad
*/ *(long *) (function + 0) = ((long *) &tramp_r)[0]; *(long *) (function + 8) = (long) (function + 24); *(long *) (function +16) = 0; *(long *) (function +24) = (long) data; *(long *) (function +32) = (long) address; #define TRAMP_CODE_LENGTH 0 #define is_tramp(function) \ ((long *) function)[0] == ((long *) &tramp_r)[0] #define tramp_address(function) \ ((long *) function)[4] #define tramp_data(function) \ ((long *) function)[3] #endif #ifdef __ia64__ /* function: * data8 tramp_r * data8 closure * closure: * data8
* data8 */ *(long *) (function + 0) = (long) &tramp_r; *(long *) (function + 8) = (long) (function + 16); *(long *) (function +16) = (long) address; *(long *) (function +24) = (long) data; #define TRAMP_CODE_LENGTH 0 #define is_tramp(function) \ ((long *) function)[0] == (long) &tramp_r && \ ((long *) function)[1] == (long) (function + 16) #define tramp_address(function) \ ((long *) function)[2] #define tramp_data(function) \ ((long *) function)[3] #endif #ifdef __x86_64__ #ifdef __x86_64_x32__ /* function: * movl $,%r10d 41 BA * movl $
,%rax B8
* jmp *%rax FF E0 */ *(int *) (function + 0) = ((unsigned long) data << 16) | 0xBA41; *(int *) (function + 4) = ((unsigned long) address << 24) | 0xB80000 | ((unsigned long) data >> 16); *(int *) (function + 8) = 0xFF000000 | ((unsigned long) address >> 8); *(int *) (function +12) = 0xE0; #define is_tramp(function) \ (*(unsigned long *) (function + 0) & 0x0000FFFF) == 0xBA41 && \ (*(unsigned long *) (function + 4) & 0x00FF0000) == 0xB80000 && \ (*(unsigned long *) (function + 8) & 0xFF000000) == 0xFF000000 && \ *(unsigned char *) (function +12) == 0xE0 #define tramp_address(function) \ ((*(unsigned long *) (function + 4) >> 24) | \ (*(unsigned long *) (function + 8) << 8)) #define tramp_data(function) \ ((*(unsigned long *) (function + 0) >> 16) | \ (*(unsigned long *) (function + 4) << 16)) #else /* function: * movabsq $,%r10 49 BA * movabsq $
,%rax 48 B8
* jmp *%rax FF E0 */ *(short *) (function + 0) = 0xBA49; *(short *) (function + 2) = (unsigned long long) data & 0xffff; *(int *) (function + 4) = ((unsigned long long) data >> 16) & 0xffffffff; *(short *) (function + 8) = ((unsigned long long) data >> 48) & 0xffff; *(short *) (function +10) = 0xB848; *(int *) (function +12) = (unsigned long long) address & 0xffffffff; *(int *) (function +16) = ((unsigned long long) address >> 32) & 0xffffffff; *(short *) (function +20) = 0xE0FF; #define is_tramp(function) \ *(unsigned short *) (function + 0) == 0xBA49 && \ *(unsigned short *) (function +10) == 0xB848 && \ *(unsigned short *) (function +20) == 0xE0FF #define hilo(hiword,loword) \ (((unsigned long long) (hiword) << 32) | (unsigned long long) (loword)) #define himidlo(hishort,midword,loshort) \ (((unsigned long long) (hishort) << 48) | (unsigned long long) (midword) << 16 \ | (unsigned long long) (loshort)) #define tramp_address(function) \ hilo(*(unsigned int *) (function +16), *(unsigned int *) (function +12)) #define tramp_data(function) \ himidlo(*(unsigned short *) (function + 8), \ *(unsigned int *) (function + 4), \ *(unsigned short *) (function + 2)) #endif #endif #if defined(__s390__) && !defined(__s390x__) /* function: * bras %r1,.L1 A7150002 * .L1: * lm %r0,%r1,data-.L1(%r1) 98011008 * br %r1 07F1 * nop 0707 * data: .long * address: .long
*/ *(int *) (function + 0) = 0xA7150002; *(int *) (function + 4) = 0x98011008; *(int *) (function + 8) = 0x07F10707; *(int *) (function +12) = (unsigned int) data; *(int *) (function +16) = (unsigned int) address; #define TRAMP_CODE_LENGTH 12 #define is_tramp(function) \ *(unsigned int *) (function + 0) == 0xA7150002 && \ *(unsigned int *) (function + 4) == 0x98011008 && \ *(unsigned int *) (function + 8) == 0x07F10707 #define tramp_address(function) \ *(unsigned int *) (function +16) #define tramp_data(function) \ *(unsigned int *) (function +12) #endif #ifdef __s390x__ /* function: * larl %r1,.L1 C01000000003 * .L1: * lmg %r0,%r1,data-.L1(%r1) EB01100A0004 * br %r1 07F1 * nop 0707 * data: .quad * address: .quad
*/ *(int *) (function + 0) = 0xC0100000; *(int *) (function + 4) = 0x0003EB01; *(int *) (function + 8) = 0x100A0004; *(int *) (function +12) = 0x07F10707; *(long *) (function +16) = (unsigned long) data; *(long *) (function +24) = (unsigned long) address; #define TRAMP_CODE_LENGTH 16 #define is_tramp(function) \ *(unsigned int *) (function + 0) == 0xC0100000 && \ *(unsigned int *) (function + 4) == 0x0003EB01 && \ *(unsigned int *) (function + 8) == 0x100A0004 && \ *(unsigned int *) (function +12) == 0x07F10707 #define tramp_address(function) \ (*(unsigned long *) (function +24)) #define tramp_data(function) \ (*(unsigned long *) (function +16)) #endif #ifdef __riscv32__ /* function: * auipc t0,0 00000297 * lw t1,20(t0) 0142A303 * lw t2,16(t0) 0102A383 * jr t1 00030067 * data: .quad * address: .quad
*/ *(int *) (function + 0) = 0x00000297; *(int *) (function + 4) = 0x0142A303; *(int *) (function + 8) = 0x0102A383; *(int *) (function +12) = 0x00030067; *(int *) (function +16) = (unsigned int) data; *(int *) (function +24) = (unsigned int) address; #define TRAMP_CODE_LENGTH 16 #define is_tramp(function) \ *(unsigned int *) (function + 0) == 0x00000297 && \ *(unsigned int *) (function + 4) == 0x0142A303 && \ *(unsigned int *) (function + 8) == 0x0102A383 && \ *(unsigned int *) (function +12) == 0x00030067 #define tramp_address(function) \ (*(unsigned int *) (function +20)) #define tramp_data(function) \ (*(unsigned int *) (function +16)) #endif #ifdef __riscv64__ /* function: * auipc t0,0 00000297 * ld t1,24(t0) 0182B303 * ld t2,16(t0) 0102B383 * jr t1 00030067 * data: .quad * address: .quad
*/ *(int *) (function + 0) = 0x00000297; *(int *) (function + 4) = 0x0182B303; *(int *) (function + 8) = 0x0102B383; *(int *) (function +12) = 0x00030067; *(long *) (function +16) = (unsigned long) data; *(long *) (function +24) = (unsigned long) address; #define TRAMP_CODE_LENGTH 16 #define is_tramp(function) \ *(unsigned int *) (function + 0) == 0x00000297 && \ *(unsigned int *) (function + 4) == 0x0182B303 && \ *(unsigned int *) (function + 8) == 0x0102B383 && \ *(unsigned int *) (function +12) == 0x00030067 #define tramp_address(function) \ (*(unsigned long *) (function +24)) #define tramp_data(function) \ (*(unsigned long *) (function +16)) #endif /* * data: * * */ *(void* *) (data + 0*sizeof(void*)) = data0; *(void* *) (data + 1*sizeof(void*)) = data1; /* 3. Set memory protection to "executable" */ #if !defined(CODE_EXECUTABLE) #if defined(EXECUTABLE_VIA_MALLOC_THEN_MPROTECT) || defined(EXECUTABLE_VIA_MMAP_THEN_MPROTECT) /* Call mprotect on the pages that contain the range. */ { uintptr_t start_addr = (uintptr_t) function; uintptr_t end_addr = (uintptr_t) (function + TRAMP_LENGTH); start_addr = start_addr & -pagesize; end_addr = (end_addr + pagesize-1) & -pagesize; {uintptr_t len = end_addr - start_addr; #if defined(HAVE_MACH_VM) if (vm_protect(task_self(),start_addr,len,0,VM_PROT_READ|VM_PROT_WRITE|VM_PROT_EXECUTE) != KERN_SUCCESS) #else if (mprotect((void*)start_addr, len, PROT_READ|PROT_WRITE|PROT_EXEC) < 0) #endif { fprintf(stderr,"trampoline: cannot make memory executable\n"); abort(); } }} #endif #endif /* 4. Flush instruction cache */ /* We need this because some CPUs have separate data cache and instruction * cache. The freshly built trampoline is visible to the data cache, but not * maybe not to the instruction cache. This is hairy. */ /* TRAMP_CODE_LENGTH = length of the machine instructions. */ #ifndef TRAMP_CODE_LENGTH #define TRAMP_CODE_LENGTH TRAMP_LENGTH #endif #if !(defined(__hppanew__) || defined(__hppa64new__) || defined(__powerpcaix__) || defined(__powerpc64aix__) || defined(__ia64__)) /* Only needed if we really set up machine instructions. */ #ifdef __i386__ #if defined(_WIN32) while (!FlushInstructionCache(GetCurrentProcess(),function_x,TRAMP_CODE_LENGTH)) continue; #endif #endif #ifdef __m68k__ #if defined(__NetBSD__) && defined(__GNUC__) { register uintptr_t _beg __asm__ ("%a1") = (uintptr_t) function_x; register uintptr_t _len __asm__ ("%d1") = TRAMP_CODE_LENGTH; __asm__ __volatile__ ( "move%.l %#0x80000004,%/d0\n\t" /* CC_EXTPURGE | C_IPURGE */ "trap #12" /* kernel call ‘cachectl’ */ : : "a" (_beg), "d" (_len) : "%a0", "%a1", "%d0", "%d1" /* call-used registers */ ); } #endif #if defined(__linux__) && defined(__GNUC__) { register uintptr_t _beg __asm__ ("%d1") = (uintptr_t) function_x; register uintptr_t _len __asm__ ("%d4") = TRAMP_CODE_LENGTH + 32; __asm__ __volatile__ ( "move%.l %#123,%/d0\n\t" "move%.l %#1,%/d2\n\t" "move%.l %#3,%/d3\n\t" "trap %#0" : : "d" (_beg), "d" (_len) : "%d0", "%d2", "%d3" ); } #endif #if defined(AUX) && defined(__GNUC__) /* sysm68k(105, addr, scope, cache, len) */ __asm__ __volatile__ ( "move%.l %1,%/sp@-\n\t" "move%.l %#3,%/sp@-\n\t" "move%.l %#1,%/sp@-\n\t" "move%.l %0,%/sp@-\n\t" "move%.l %#105,%/sp@-\n\t" "move%.l %#0,%/sp@-\n\t" "move%.l %#38,%/sp@-\n\t" "trap %#0\n\t" "add%.l %#24,%/sp" : : "r" (function_x), "g" ((int)TRAMP_CODE_LENGTH) : "%d0" ); #endif #endif #if defined(__mips__) || defined(__mipsn32__) || defined(__mips64__) cacheflush(function_x,TRAMP_CODE_LENGTH,ICACHE); /* gforth-0.3.0 uses BCACHE instead of ICACHE. Why?? */ #endif #if defined(__sparc__) || defined(__sparc64__) /* This assumes that the trampoline fits in at most two cache lines. */ __TR_clear_cache_2(function_x,function_x+TRAMP_CODE_LENGTH-1); #endif #ifdef __alpha__ __TR_clear_cache(); #endif #if defined(__hppa__) || defined(__hppa64__) /* This assumes that the trampoline fits in at most two cache lines. */ __TR_clear_cache(function_x,function_x+TRAMP_CODE_LENGTH-1); #endif #if defined(__arm__) || defined(__armhf__) || defined(__arm64__) /* On ARM, cache flushing can only be done through a system call. GCC implements it for Linux with EABI, through an "swi 0" with code 0xf0002. For other systems, it may be an "swi 0x9f0002", an "swi 0xf00000", or similar. */ /* On ARM64, cache flushing is done through special instructions, and the length of the cache lines must be determined at runtime. See gcc/libgcc/config/aarch64/sync-cache.c. */ #if defined(__GNUC__) /* Use the GCC built-in. */ __clear_cache((void*)function_x,(void*)(function_x+TRAMP_CODE_LENGTH)); #else #error "Don't know how to implement clear_cache on this platform." #endif #endif #if defined(__powerpc__) || defined(__powerpc64__) __TR_clear_cache(function_x); #endif #if defined(__riscv32__) || defined(__riscv64__) #if defined(__linux__) /* Use the libc function. */ __riscv_flush_icache((void*)function_x,(void*)(function_x+TRAMP_CODE_LENGTH),0); #elif defined(__GNUC__) __asm__ __volatile__ ("fence.i"); #endif #endif #endif /* 5. Return. */ return (__TR_function) (function_x + TRAMP_BIAS); } void free_trampoline_r (__TR_function function) { #if TRAMP_BIAS function = (__TR_function)((char*)function - TRAMP_BIAS); #endif #if !defined(CODE_EXECUTABLE) && !defined(EXECUTABLE_VIA_MALLOC_THEN_MPROTECT) #ifdef EXECUTABLE_VIA_MMAP_FILE_SHARED /* Find the writable address corresponding to the executable address. */ { uintptr_t page_x = (uintptr_t) function & -(intptr_t)pagesize; function -= ((intptr_t*)page_x)[0]; } #endif *(char**)function = freelist; freelist = (char*)function; /* It is probably not worth calling munmap() for entirely freed pages. */ #else free(((char**)function)[-1]); #endif } int is_trampoline_r (void* function) { #if defined(is_tramp) && defined(tramp_data) #ifdef __hppanew__ void* tramp_r_address = &tramp_r; if (!(((uintptr_t)function & 3) == (TRAMP_BIAS & 3))) return 0; #endif if (is_tramp(((char*)function - TRAMP_BIAS))) { char* function_w; #ifdef EXECUTABLE_VIA_MMAP_FILE_SHARED /* Find the writable address corresponding to the executable address. */ { uintptr_t page_x = (uintptr_t) function & -(intptr_t)pagesize; function_w = function - ((intptr_t*)page_x)[0]; } #else function_w = function; #endif return (tramp_data(((char*)function - TRAMP_BIAS))) == (uintptr_t)((char*)function_w - TRAMP_BIAS + TRAMP_LENGTH); } return 0; #else abort(); #endif } __TR_function trampoline_r_address (__TR_function function) { #ifdef tramp_address return (__TR_function)(tramp_address(((char*)function - TRAMP_BIAS))); #else abort(); #endif } void* trampoline_r_data0 (__TR_function function) { #ifdef tramp_data return ((void**)((char*)function-TRAMP_BIAS+TRAMP_LENGTH))[0]; #else abort(); #endif } void* trampoline_r_data1 (__TR_function function) { #ifdef tramp_data return ((void**)((char*)function-TRAMP_BIAS+TRAMP_LENGTH))[1]; #else abort(); #endif } libffcall-2.2/callback/trampoline_r/cache-alpha-macro.S0000664000000000000000000000066013527105034017766 00000000000000 .set noreorder .set volatile .set noat .set nomacro .text .align 2 .align 4 .globl __TR_clear_cache .ent __TR_clear_cache $__TR_clear_cache..ng: __TR_clear_cache: .frame $30,0,$26,0 .prologue 0 .set macro call_pal 0x86 .set nomacro ret $31,($26),1 .end __TR_clear_cache #if defined __linux__ || defined __FreeBSD__ || defined __FreeBSD_kernel__ || defined __DragonFly__ .section .note.GNU-stack,"",@progbits #endif libffcall-2.2/callback/trampoline_r/cache-powerpc64.c0000664000000000000000000000240113347755270017463 00000000000000/* Instruction cache flushing for powerpc64, not the AIX ABI */ /* * Copyright 1997-2017 Bruno Haible * * This program is free software: you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by * the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program. If not, see . */ void __TR_clear_cache (char* first_addr) { /* Taken from egcs-1.1.2/gcc/config/rs6000/tramp.asm. */ /* The number of asm statements here depends on the value of TRAMP_LENGTH-2*8 for __powerpc64_elfv2__. */ asm volatile ("icbi 0,%0; dcbf 0,%0" : : "r" (first_addr)); asm volatile ("icbi 0,%0; dcbf 0,%0" : : "r" (first_addr+4)); asm volatile ("icbi 0,%0; dcbf 0,%0" : : "r" (first_addr+8)); asm volatile ("icbi 0,%0; dcbf 0,%0" : : "r" (first_addr+12)); asm volatile ("sync; isync"); } libffcall-2.2/callback/trampoline_r/cache-sparc64-macro.S0000664000000000000000000000057213527105034020165 00000000000000#include "asm-sparc.h" .section ".text" .align 4 .global C(__TR_clear_cache_2) DECLARE_FUNCTION(__TR_clear_cache_2) .proc 020 FUNBEGIN(__TR_clear_cache_2) iflush %o0+0;iflush %o0+8 jmp %o7+8 nop FUNEND(__TR_clear_cache_2) #if defined __linux__ || defined __FreeBSD__ || defined __FreeBSD_kernel__ || defined __DragonFly__ .section .note.GNU-stack,"",@progbits #endif libffcall-2.2/callback/trampoline_r/tramp-hppa-macro.S0000664000000000000000000000250713347755274017734 00000000000000; Trampoline for hppa CPU ; Copyright 1997-2017 Bruno Haible ; ; This program is free software: you can redistribute it and/or modify ; it under the terms of the GNU General Public License as published by ; the Free Software Foundation; either version 2 of the License, or ; (at your option) any later version. ; ; This program is distributed in the hope that it will be useful, ; but WITHOUT ANY WARRANTY; without even the implied warranty of ; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ; GNU General Public License for more details. ; ; You should have received a copy of the GNU General Public License ; along with this program. If not, see . ; Available registers: %r1, %r19, %r20, %r21, %r22, %r29, %r31. .code .IMPORT $global$,DATA .IMPORT $$dyncall,MILLICODE .code .align 4 .EXPORT tramp_r,ENTRY,PRIV_LEV=3,ARGW0=GR,ARGW1=GR .label tramp_r .PROC .CALLINFO FRAME=0,NO_CALLS .ENTRY ; The closure pointer is already in register %r19. ; Move into register %r29 ldw 0(0,%r19),%r29 ; Move
into register %r21. ldw 4(0,%r19),%r21 ; Jump to it. bb,>=,n %r21,30,tramp_r_2 depi 0,31,2,%r21 ldw 4(0,%r21),%r19 ldw 0(0,%r21),%r21 .label tramp_r_2 ldsid (0,%r21),%r1 mtsp %r1,%sr0 be,n 0(%sr0,%r21) nop .EXIT .PROCEND #include "noexecstack.h" libffcall-2.2/callback/trampoline_r/tramp-hppa64-macro.S0000664000000000000000000000254513347755274020110 00000000000000; Trampoline for hppa64 CPU ; Copyright 2017 Bruno Haible ; ; This program is free software: you can redistribute it and/or modify ; it under the terms of the GNU General Public License as published by ; the Free Software Foundation; either version 2 of the License, or ; (at your option) any later version. ; ; This program is distributed in the hope that it will be useful, ; but WITHOUT ANY WARRANTY; without even the implied warranty of ; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ; GNU General Public License for more details. ; ; You should have received a copy of the GNU General Public License ; along with this program. If not, see . ; Available registers: %r1, %r27, %r31. ; %r27 has a fixed meaning at function calls: pic_base (a.k.a. gp or dp). ; %r31 has a fixed meaning as millicode return pointer (mrp). #include "asm-hppa64.h" .LEVEL 2.0w TEXT1() TEXT2() .align 8 GLOBL(tramp_r) DECLARE_FUNCTION(tramp_r) DEF(tramp_r) .PROC .CALLINFO FRAME=0,NO_CALLS .ENTRY ; The closure pointer is already in register %r27. ; Move into register %r31. ldd 0(%r27),%r31 ; get ; Jump to . ldd 8(%r27),%r27 ; get ldd 16(%r27),%r1 ldd 24(%r27),%r27 bve (%r1) ; jump to nop .EXIT .PROCEND DEF(L(fe1)) FUNEND(tramp_r) #include "noexecstack.h" libffcall-2.2/callback/trampoline_r/cache-powerpc64-elfv2-linux.s0000664000000000000000000000132113527105034021637 00000000000000 .file "cache-powerpc64.c" .machine power4 .abiversion 2 .section ".toc","aw" .section ".text" .align 2 .p2align 4,,15 .globl __TR_clear_cache .type __TR_clear_cache, @function __TR_clear_cache: #APP # 25 "cache-powerpc64.c" 1 icbi 0,3; dcbf 0,3 # 0 "" 2 #NO_APP addi 9,3,4 #APP # 26 "cache-powerpc64.c" 1 icbi 0,9; dcbf 0,9 # 0 "" 2 #NO_APP addi 9,3,8 #APP # 27 "cache-powerpc64.c" 1 icbi 0,9; dcbf 0,9 # 0 "" 2 #NO_APP addi 3,3,12 #APP # 28 "cache-powerpc64.c" 1 icbi 0,3; dcbf 0,3 # 0 "" 2 # 29 "cache-powerpc64.c" 1 sync; isync # 0 "" 2 #NO_APP blr .long 0 .byte 0,0,0,0,0,0,0,0 .size __TR_clear_cache,.-__TR_clear_cache .ident "GCC: (GNU) 5.4.0" .section .note.GNU-stack,"",@progbits libffcall-2.2/callback/trampoline_r/tramp-powerpc64-aix.S0000664000000000000000000000324713347755300020305 00000000000000/* Trampoline for powerpc64 CPU with AIX calling convention */ /* * Copyright 1995-2017 Bruno Haible * * This program is free software: you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by * the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program. If not, see . */ /* Available registers: r0, r11, r12. */ /* However, r0 is special in that it cannot be used as a base register. */ .machine "ppc64" #ifdef _AIX .rename H.4.NO_SYMBOL{PR},"" .lglobl H.4.NO_SYMBOL{PR} .globl .tramp_r .csect H.4.NO_SYMBOL{PR},7 #else .globl tramp_r .globl .tramp_r tramp_r: .quad .tramp_r #endif .tramp_r: /* Move into register r11 */ ld 11,0(2) /* get */ /* Get */ ld 12,8(2) /* * gcc-2.6.3 source says: * A function pointer is a pointer to a data area whose first word contains * the actual address of the function, whose second word contains a pointer * to its TOC, and whose third word contains a value to place in the static * chain register (r11). But we have already placed our information in r11. */ /* ld 11,16(12) pass static chain in r11 */ ld 2,8(12) /* pass TOC in r2 */ ld 0,0(12) /* actual code address */ mtctr 0 bctr #include "noexecstack.h" libffcall-2.2/callback/trampoline_r/cache-hppa-macro.S0000664000000000000000000000114213527105034017625 00000000000000#include "asm-hppa.h" .LEVEL 1.1 IMPORT_MILLICODE($$dyncall) TEXT1() TEXT2() .align 4 GLOBL(__TR_clear_cache) DECLARE_FUNCTION(__TR_clear_cache) DEF(__TR_clear_cache) .PROC .CALLINFO FRAME=0,NO_CALLS .ENTRY fdc 0(0,%r26) fdc 0(0,%r25) sync mfsp %sr0,%r20 ldsid (0,%r26),%r26 mtsp %r26,%sr0 fic 0(%sr0,%r26) fic 0(%sr0,%r25) sync mtsp %r20,%sr0 nop nop nop nop nop nop bv,n %r0(%r2) .EXIT .PROCEND DEF(L(fe1)) FUNEND(__TR_clear_cache) #if defined __linux__ || defined __FreeBSD__ || defined __FreeBSD_kernel__ || defined __DragonFly__ .section .note.GNU-stack,"",@progbits #endif libffcall-2.2/callback/trampoline_r/cache-powerpc-macos.s0000664000000000000000000000043413527105034020420 00000000000000.text .align 2 .globl ___TR_clear_cache ___TR_clear_cache: icbi 0,r3; dcbf 0,r3 addi r0,r3,4 icbi 0,r0; dcbf 0,r0 addi r9,r3,8 icbi 0,r9; dcbf 0,r9 addi r0,r3,12 icbi 0,r0; dcbf 0,r0 addi r9,r3,16 icbi 0,r9; dcbf 0,r9 addi r3,r3,20 icbi 0,r3; dcbf 0,r3 sync; isync blr libffcall-2.2/callback/trampoline_r/Makefile.devel0000664000000000000000000002172113527104765017166 00000000000000# This is the developer's -*-Makefile-*-, not the user's makefile. # Do not use it unless you know exactly what you do! THISFILE = Makefile.devel RM = rm -f # ============ Rules that require cross-compilation tools ============ GCC = gcc GCCFLAGS = -O2 -fomit-frame-pointer -fPIC CPP = $(GCC) -E CROSS_TOOL = cross precompiled : \ cache-sparc-macro.S cache-sparc64-macro.S \ cache-alpha-macro.S \ cache-hppa-macro.S cache-hppa64-macro.S \ cache-powerpc-linux-macro.S cache-powerpc-macos.s \ cache-powerpc64-elfv2-macro.S cache-sparc-linux.s : cache-sparc.c $(THISFILE) $(CROSS_TOOL) sparc-linux gcc -V 3.1 $(GCCFLAGS) -D__sparc__ -S cache-sparc.c -o cache-sparc-linux.s cache-sparc-macro.S : cache-sparc-linux.s ../../common/asm-sparc.sh ../../common/noexecstack.h $(THISFILE) (echo '#include "asm-sparc.h"' ; ../../common/asm-sparc.sh < cache-sparc-linux.s ; cat ../../common/noexecstack.h) > cache-sparc-macro.S cache-sparc64-linux.s : cache-sparc.c $(THISFILE) $(CROSS_TOOL) sparc64-linux gcc -V 4.0.2 $(GCCFLAGS) -D__sparc64__ -S cache-sparc.c -o cache-sparc64-linux.s cache-sparc64-macro.S : cache-sparc64-linux.s ../../common/asm-sparc.sh ../../common/noexecstack.h $(THISFILE) (echo '#include "asm-sparc.h"' ; ../../common/asm-sparc.sh < cache-sparc64-linux.s ; cat ../../common/noexecstack.h) > cache-sparc64-macro.S cache-alpha-linux.s : cache-alpha.c $(THISFILE) $(CROSS_TOOL) alpha-linux gcc -V 4.0.2 $(GCCFLAGS) -D__alpha__ -S cache-alpha.c -o cache-alpha-linux.s cache-alpha-macro.S : cache-alpha-linux.s ../../common/asm-alpha.sh ../../common/noexecstack.h $(THISFILE) (../../common/asm-alpha.sh < cache-alpha-linux.s ; cat ../../common/noexecstack.h) > cache-alpha-macro.S cache-hppa-linux.s : cache-hppa.c $(THISFILE) $(CROSS_TOOL) hppa-linux gcc -V 3.1 $(GCCFLAGS) -D__hppa__ -S cache-hppa.c -o cache-hppa-linux.s cache-hppa-macro.S : cache-hppa-linux.s ../../common/asm-hppa.sh ../../common/noexecstack.h $(THISFILE) (echo '#include "asm-hppa.h"' ; ../../common/asm-hppa.sh < cache-hppa-linux.s ; cat ../../common/noexecstack.h) > cache-hppa-macro.S cache-hppa64-linux.s : cache-hppa.c $(THISFILE) $(CROSS_TOOL) hppa64-linux gcc -V 3.1 $(GCCFLAGS) -D__hppa64__ -S cache-hppa.c -o cache-hppa64-linux.s cache-hppa64-macro.S : cache-hppa64-linux.s ../../common/asm-hppa64.sh ../../common/noexecstack.h $(THISFILE) (echo '#include "asm-hppa64.h"' ; ../../common/asm-hppa64.sh < cache-hppa64-linux.s ; cat ../../common/noexecstack.h) > cache-hppa64-macro.S cache-powerpc-linux.s : cache-powerpc.c $(THISFILE) $(CROSS_TOOL) powerpc-linux gcc -V 3.3.6 -mno-power -mno-power2 -mno-powerpc $(GCCFLAGS) -D__powerpc__ -S cache-powerpc.c -o cache-powerpc-linux.s cache-powerpc-linux-macro.S : cache-powerpc-linux.s ../../common/asm-powerpc.sh ../../common/noexecstack.h $(THISFILE) (../../common/asm-powerpc.sh < cache-powerpc-linux.s ; cat ../../common/noexecstack.h) > cache-powerpc-linux-macro.S cache-powerpc-macos.s : cache-powerpc.c $(THISFILE) $(CROSS_TOOL) powerpc-darwin gcc -V 3.3.6 $(GCCFLAGS) -D__powerpc__ -S cache-powerpc.c -o cache-powerpc-macos.s cache-powerpc64-elfv2-linux.s : cache-powerpc64.c $(THISFILE) $(CROSS_TOOL) powerpc64le-linux gcc-5.4.0 -mabi=elfv2 -mcpu=power4 -mlittle-endian $(GCCFLAGS) -D__powerpc64__ -S cache-powerpc64.c -o cache-powerpc64-elfv2-linux-le.s $(CROSS_TOOL) powerpc64le-linux gcc-5.4.0 -mabi=elfv2 -mcpu=power4 -mbig-endian $(GCCFLAGS) -D__powerpc64__ -S cache-powerpc64.c -o cache-powerpc64-elfv2-linux-be.s cmp cache-powerpc64-elfv2-linux-le.s cache-powerpc64-elfv2-linux-be.s > /dev/null mv cache-powerpc64-elfv2-linux-le.s cache-powerpc64-elfv2-linux.s $(RM) cache-powerpc64-elfv2-linux-be.s cache-powerpc64-elfv2-macro.S : cache-powerpc64-elfv2-linux.s ../../common/asm-powerpc.sh ../../common/noexecstack.h $(THISFILE) (../../common/asm-powerpc.sh < cache-powerpc64-elfv2-linux.s ; cat ../../common/noexecstack.h) > cache-powerpc64-elfv2-macro.S # --------------- Older rules --------------- OLDGCCFLAGS = -O2 -fomit-frame-pointer ASPREFIX = /usr1/gnu/lib proto-precompiled : proto-i386.s proto-m68k.s proto-mips.s proto-mipsn32.s proto-mips64.s proto-sparc.s proto-sparc64.s proto-alpha.s proto-hppa.s proto-hppa64.s proto-arm.s proto-arm64.s proto-powerpc-aix.s proto-powerpc-sysv4.s proto-powerpc-macos.s proto-powerpc64-aix.s proto-powerpc64-elfv2.s proto-ia64.c proto-x86_64.c proto-x86_64-x32.s proto-s390.s proto-s390x.s proto-riscv32.s proto-riscv64.s proto-i386.s : proto.c $(GCC) -V 2.7.2 -b i486-linuxaout $(OLDGCCFLAGS) -D__i386__ -S proto.c -o $@ proto-m68k.s : proto.c $(GCC) -V egcs-2.91.57 -b m68k-sun $(OLDGCCFLAGS) -D__m68k__ -S proto.c -o $@ proto-mips.s : proto.c $(GCC) -V 2.95.2 -b mips-sgi $(OLDGCCFLAGS) -D__mips__ -S proto.c -o $@ -mabicalls proto-mipsn32.s : proto.c $(GCC) -V 2.95.2 -b mips-sgi-irix6 $(OLDGCCFLAGS) -D__mipsn32__ -S proto.c -o $@ -mabicalls proto-mips64.s : proto64.c $(GCC) -V 2.95.2 -b mips-sgi -mips3 -mlong64 $(OLDGCCFLAGS) -D__mips64__ -S proto64.c -o $@ -mabicalls proto-sparc.s : proto.c $(GCC) -V 2.95.2 -b sparc-sun $(OLDGCCFLAGS) -D__sparc__ -S proto.c -o $@ proto-sparc64.s : proto64.c sparc64-linux-gcc -V 2.95.2 -b sparc64-linux $(OLDGCCFLAGS) -D__sparc64__ -S proto64.c -o $@ proto-alpha.s : proto64.c $(GCC) -V 2.7.2 -b alpha-dec-osf $(OLDGCCFLAGS) -D__alpha__ -S proto64.c -o $@ proto-hppa.s : proto.c $(GCC) -V 2.6.3 -b hppa1.0-hpux $(OLDGCCFLAGS) -D__hppa__ -S proto.c -o $@ proto-hppa64.s : proto64.c $(CROSS_TOOL) hppa64-linux gcc -V 3.1 $(OLDGCCFLAGS) -D__hppa64__ -S proto64.c -o $@ proto-arm.s : proto.c $(CROSS_TOOL) arm-linux gcc -V 3.1 $(OLDGCCFLAGS) -fno-omit-frame-pointer -D__arm__ -S proto.c -o $@ proto-arm64.s : proto64.c $(CROSS_TOOL) aarch64-linux gcc-5.4.0 $(OLDGCCFLAGS) -D__arm64__ -S proto64.c -o $@ proto-powerpc-aix.s : proto.c $(GCC) -V 2.95.2 -b rs6000 -mno-power -mno-power2 -mno-powerpc -mnew-mnemonics $(OLDGCCFLAGS) -D__powerpc__ -S proto.c -o $@ proto-powerpc-sysv4.s : proto.c $(GCC) -V 2.95.2 -b ppc-linux -mno-power -mno-power2 -mno-powerpc $(OLDGCCFLAGS) -D__powerpc__ -S proto.c -o $@ proto-powerpc-macos.s : proto.c $(GCC) -V 3.3.2 -b powerpc-darwin $(OLDGCCFLAGS) -D__powerpc__ -S proto.c -o $@ proto-powerpc64-aix.s : proto64.c $(CROSS_TOOL) powerpc64-linux gcc $(OLDGCCFLAGS) -D__powerpc64__ -S proto64.c -o $@ proto-powerpc64-elfv2.s : proto64.c $(CROSS_TOOL) powerpc64le-linux gcc -mabi=elfv2 $(OLDGCCFLAGS) -D__powerpc64__ -S proto64.c -o $@ proto-ia64.s : proto64.c $(GCC) -V 2.9-ia64-000216 -b ia64-hp-linux $(OLDGCCFLAGS) -D__ia64__ -S proto64.c -o $@ proto-x86_64.s : proto64.c $(GCC) -V 3.2.2 -b x86_64-suse-linux $(OLDGCCFLAGS) -D__x86_64__ -S proto64.c -o $@ proto-x86_64-x32.s : proto.c $(CROSS_TOOL) x86_64-linux gcc-5.4.0 -mx32 $(OLDGCCFLAGS) -fno-asynchronous-unwind-tables -D__x86_64__ -D__x86_64_x32__ -S proto.c -o $@ proto-s390.s : proto.c $(CROSS_TOOL) s390-linux gcc -V 3.1 $(OLDGCCFLAGS) -D__s390__ -S proto.c -o $@ proto-s390x.s : proto64.c $(CROSS_TOOL) s390x-linux gcc-5.4.0 $(OLDGCCFLAGS) -D__s390x__ -S proto64.c -o $@ proto-riscv32.s : proto.c $(CROSS_TOOL) riscv32-linux gcc-7.3.0 $(OLDGCCFLAGS) -D__riscv32__ -S proto.c -o $@ proto-riscv64.s : proto64.c $(CROSS_TOOL) riscv64-linux gcc-7.3.0 $(OLDGCCFLAGS) -D__riscv64__ -S proto64.c -o $@ tramp-i386.o : tramp-i386.s $(ASPREFIX)/i486-linux/bin/as tramp-i386.s -o $@ tramp-m68k.o : tramp-m68k.s $(ASPREFIX)/m68k-linux/bin/as tramp-m68k.s -o $@ tramp-mips.o : tramp-mips.s $(ASPREFIX)/mips-linux/bin/as tramp-mips.s -o $@ tramp-mips64.o : tramp-mips64.s $(ASPREFIX)/mips-linux/bin/as -mips64 -mabi=64 tramp-mips64.s -o $@ tramp-sparc.o : tramp-sparc.s $(ASPREFIX)/sparc-sun/bin/as tramp-sparc.s -o $@ tramp-sparc64.o : tramp-sparc64.s $(ASPREFIX)/sparc64-linux/bin/as tramp-sparc64.s -o $@ tramp-alpha.o : tramp-alpha.s $(ASPREFIX)/alpha-linux/bin/as tramp-alpha.s -o $@ tramp-hppa.o : tramp-hppa.s $(ASPREFIX)/hppa1.0-hpux/bin/as tramp-hppa.s -o $@ tramp-hppa64.o : tramp-hppa64.s $(CROSS_TOOL) hppa64-linux as tramp-hppa64.s -o $@ tramp-arm.o : tramp-arm.s $(CROSS_TOOL) arm-linux as tramp-arm.s -o $@ tramp-arm64.o : tramp-arm64.s $(CROSS_TOOL) aarch64-linux as tramp-arm64.s -o $@ tramp-powerpc-old.o : tramp-powerpc-old.s $(ASPREFIX)/rs6000/bin/as tramp-powerpc-old.s -o $@ tramp-powerpc-sysv4.o : tramp-powerpc-sysv4.s $(ASPREFIX)/ppc-linux/bin/as tramp-powerpc-sysv4.s -o $@ tramp-powerpc64-elfv2.o : tramp-powerpc64-elfv2.s $(CROSS_TOOL) powerpc64le-linux as tramp-powerpc64-elfv2.s -o $@ tramp-ia64.o : tramp-ia64.s /nue/usr/ia64-hp-linux/bin/as tramp-ia64.s -o $@ tramp-x86_64.o : tramp-x86_64.s $(ASPREFIX)/x86_64-linux/bin/as tramp-x86_64.s -o $@ tramp-x86_64-x32.o : tramp-x86_64-x32.s $(CROSS_TOOL) x86_64-linux as tramp-x86_64-x32.s -o $@ tramp-s390.o : tramp-s390.s $(CROSS_TOOL) s390-linux as tramp-s390.s -o $@ tramp-s390x.o : tramp-s390x.s $(CROSS_TOOL) s390x-linux as tramp-s390x.s -o $@ tramp-riscv32.o : tramp-riscv32.s $(CROSS_TOOL) riscv32-linux as tramp-riscv32.s -o $@ tramp-riscv64.o : tramp-riscv64.s $(CROSS_TOOL) riscv64-linux as tramp-riscv64.s -o $@ libffcall-2.2/callback/trampoline_r/Makefile.in0000664000000000000000000002244713155007160016467 00000000000000# Makefile for trampoline #### Start of system configuration section. #### HOST = @host@ CPU = @HOST_CPU_C_ABI@ OS = @host_os@ # Directories used by "make": srcdir = @srcdir@ # Directories used by "make install": prefix = @prefix@ local_prefix = /usr/local exec_prefix = @exec_prefix@ libdir = @libdir@ includedir = @includedir@ mandir = @mandir@ datadir = @datadir@ datarootdir = @datarootdir@ htmldir = $(datadir)/html # Programs used by "make": CC = @CC@ CFLAGS = @CFLAGS@ CPPFLAGS = @CPPFLAGS@ CPP = @CPP@ INCLUDES = -I. -I$(srcdir) -I../.. -I$(srcdir)/../.. INCLUDES_WITH_GNULIB = $(INCLUDES) -I../../gnulib-lib -I$(srcdir)/../../gnulib-lib ASPFLAGS = `if test @AS_UNDERSCORE@ = true; then echo '-DASM_UNDERSCORE'; fi` LDFLAGS = @LDFLAGS@ LIBTOOL = @LIBTOOL@ LIBTOOL_COMPILE = $(LIBTOOL) --mode=compile LIBTOOL_LINK = $(LIBTOOL) --mode=link LIBTOOL_INSTALL = $(LIBTOOL) --mode=install LIBTOOL_UNINSTALL = $(LIBTOOL) --mode=uninstall AR = @AR@ AR_FLAGS = rc RANLIB = @RANLIB@ RM = rm -f @SET_MAKE@ # Programs used by "make install": INSTALL = @INSTALL@ INSTALL_PROGRAM = @INSTALL_PROGRAM@ INSTALL_DATA = @INSTALL_DATA@ # Libtool options for linking with the thread library. LTLIBTHREAD = @LTLIBTHREAD@ #### End of system configuration section. #### SHELL = /bin/sh # Needed by $(LIBTOOL). top_builddir = ../.. OBJECTS = trampoline.lo @CPU_OBJECTS@ all : $(OBJECTS) libtrampoline.la $(srcdir)/trampoline_r.3 $(srcdir)/trampoline_r.html trampoline.lo : $(srcdir)/trampoline.c $(srcdir)/trampoline_r.h $(LIBTOOL_COMPILE) $(CC) $(INCLUDES_WITH_GNULIB) $(CPPFLAGS) $(CFLAGS) -c $(srcdir)/trampoline.c tramp-hppa.lo : tramp-hppa.s $(LIBTOOL_COMPILE) $(CC) @GCC_X_NONE@ -c tramp-hppa.s tramp-hppa.s : $(srcdir)/tramp-hppa-macro.S $(srcdir)/../../common/noexecstack.h $(CPP) $(ASPFLAGS) -I$(srcdir)/../../common $(srcdir)/tramp-hppa-macro.S | grep -v '^ *#line' | grep -v '^#' | sed -e "s,!,',g" > tramp-hppa.s tramp-hppa64.lo : tramp-hppa64.s $(LIBTOOL_COMPILE) $(CC) @GCC_X_NONE@ -c tramp-hppa64.s tramp-hppa64.s : $(srcdir)/tramp-hppa64-macro.S $(srcdir)/../../common/noexecstack.h $(CPP) $(ASPFLAGS) -I$(srcdir)/../../common $(srcdir)/tramp-hppa64-macro.S | grep -v '^ *#line' | grep -v '^#' | sed -e "s,!,',g" > tramp-hppa64.s tramp-powerpc.lo : tramp-powerpc.s $(LIBTOOL_COMPILE) $(CC) @GCC_X_NONE@ -c tramp-powerpc.s tramp-powerpc.s : $(srcdir)/tramp-powerpc-aix.S $(CPP) $(srcdir)/tramp-powerpc-aix.S > tramp-powerpc.s tramp-powerpc64.lo : tramp-powerpc64.s $(LIBTOOL_COMPILE) $(CC) @GCC_X_NONE@ -c tramp-powerpc64.s tramp-powerpc64.s : $(srcdir)/tramp-powerpc64-aix.S $(srcdir)/../../common/noexecstack.h $(CPP) -I$(srcdir)/../../common $(srcdir)/tramp-powerpc64-aix.S > tramp-powerpc64.s tramp-ia64.lo : tramp-ia64.s $(LIBTOOL_COMPILE) $(CC) @GCC_X_NONE@ -c tramp-ia64.s tramp-ia64.s : $(srcdir)/tramp-ia64-macro.S $(srcdir)/../../common/noexecstack.h $(CPP) $(ASPFLAGS) -I$(srcdir)/../../common $(srcdir)/tramp-ia64-macro.S | grep -v '^ *#line' | grep -v '^#' | sed -e 's,% ,%,g' -e 's,//.*$$,,' > tramp-ia64.s cache-sparc.lo : cache-sparc.s $(LIBTOOL_COMPILE) $(CC) @GCC_X_NONE@ -c cache-sparc.s cache-sparc.s : $(srcdir)/cache-sparc-macro.S $(CPP) $(ASPFLAGS) -I$(srcdir)/../../common - < $(srcdir)/cache-sparc-macro.S | grep -v '^ *#line' | grep -v '^#' | sed -e 's,% ,%,g' -e 's,\. ,.,g' -e 's,//.*$$,,' -e 's,\$$,#,g' -e 's,# ,#,g' > cache-sparc.s cache-sparc64.lo : cache-sparc64.s $(LIBTOOL_COMPILE) $(CC) @GCC_X_NONE@ -c cache-sparc64.s cache-sparc64.s : $(srcdir)/cache-sparc64-macro.S $(CPP) $(ASPFLAGS) -I$(srcdir)/../../common - < $(srcdir)/cache-sparc64-macro.S | grep -v '^ *#line' | grep -v '^#' | sed -e 's,% ,%,g' -e 's,\. ,.,g' -e 's,//.*$$,,' -e 's,\$$,#,g' -e 's,# ,#,g' > cache-sparc64.s cache-alpha.lo : cache-alpha.s $(LIBTOOL_COMPILE) $(CC) @GCC_X_NONE@ -c cache-alpha.s cache-alpha.s : $(srcdir)/cache-alpha-macro.S $(CPP) $(ASPFLAGS) $(srcdir)/cache-alpha-macro.S | grep -v '^ *#line' | grep -v '^#' | sed -e 's,% ,%,g' -e 's,//.*$$,,' > cache-alpha.s cache-hppa.lo : cache-hppa.s $(LIBTOOL_COMPILE) $(CC) @GCC_X_NONE@ -c cache-hppa.s cache-hppa.s : $(srcdir)/cache-hppa-macro.S $(CPP) $(ASPFLAGS) -I$(srcdir)/../../common $(srcdir)/cache-hppa-macro.S | grep -v '^ *#line' | grep -v '^#' | sed -e "s,!,',g" > cache-hppa.s cache-hppa64.lo : cache-hppa64.s $(LIBTOOL_COMPILE) $(CC) @GCC_X_NONE@ -c cache-hppa64.s cache-hppa64.s : $(srcdir)/cache-hppa64-macro.S $(CPP) $(ASPFLAGS) -I$(srcdir)/../../common $(srcdir)/cache-hppa64-macro.S | grep -v '^ *#line' | grep -v '^#' | sed -e "s,!,',g" > cache-hppa64.s cache-powerpc.lo : cache-powerpc.s $(LIBTOOL_COMPILE) $(CC) @GCC_X_NONE@ -c cache-powerpc.s cache-powerpc.s : $(srcdir)/cache-powerpc-linux-macro.S $(srcdir)/cache-powerpc-macos.s case "$(OS)" in \ macos* | darwin*) syntax=macos;; \ *) syntax=linux;; \ esac; \ case $${syntax} in \ macos) \ grep -v '\.machine' $(srcdir)/cache-powerpc-$${syntax}.s > cache-powerpc.s || exit 1 ;; \ linux) \ $(CPP) $(ASPFLAGS) $(srcdir)/cache-powerpc-$${syntax}-macro.S | grep -v '^ *#line' | grep -v '^#' | sed -e 's,% ,%,g' -e 's,//.*$$,,' > cache-powerpc.s || exit 1 ;; \ *) \ cp $(srcdir)/cache-powerpc-$${syntax}.s cache-powerpc.s || exit 1 ;; \ esac cache-powerpc64-elfv2.lo : cache-powerpc64-elfv2.s $(LIBTOOL_COMPILE) $(CC) @GCC_X_NONE@ -c cache-powerpc64-elfv2.s cache-powerpc64-elfv2.s : $(srcdir)/cache-powerpc64-elfv2-macro.S $(CPP) $(ASPFLAGS) $(srcdir)/cache-powerpc64-elfv2-macro.S | grep -v '^ *#line' | grep -v '^#' | sed -e 's,% ,%,g' -e 's,//.*$$,,' > cache-powerpc64-elfv2.s libtrampoline.la : $(OBJECTS) ../../gnulib-lib/libgnu.la $(LIBTOOL_LINK) $(CC) -o libtrampoline.la -rpath $(libdir) -no-undefined $(OBJECTS) ../../gnulib-lib/libgnu.la $(LDFLAGS) $(LTLIBTHREAD) # Installs the library and include files only. Typically called with only # $(libdir) and $(includedir) - don't use $(prefix) and $(exec_prefix) here. install-lib : all force mkdir -p $(includedir) $(INSTALL_DATA) $(srcdir)/trampoline_r.h $(includedir)/trampoline_r.h install : all force mkdir -p $(DESTDIR)$(prefix) mkdir -p $(DESTDIR)$(exec_prefix) # mkdir -p $(DESTDIR)$(libdir) # $(LIBTOOL_INSTALL) $(INSTALL_DATA) libtrampoline.la $(DESTDIR)$(libdir)/libtrampoline.la mkdir -p $(DESTDIR)$(includedir) $(INSTALL_DATA) $(srcdir)/trampoline_r.h $(DESTDIR)$(includedir)/trampoline_r.h mkdir -p $(DESTDIR)$(mandir) mkdir -p $(DESTDIR)$(mandir)/man3 $(INSTALL_DATA) $(srcdir)/trampoline_r.3 $(DESTDIR)$(mandir)/man3/trampoline_r.3 mkdir -p $(DESTDIR)$(datadir) mkdir -p $(DESTDIR)$(htmldir) $(INSTALL_DATA) $(srcdir)/trampoline_r.html $(DESTDIR)$(htmldir)/trampoline_r.html installdirs : force mkdir -p $(DESTDIR)$(prefix) mkdir -p $(DESTDIR)$(exec_prefix) # mkdir -p $(DESTDIR)$(libdir) mkdir -p $(DESTDIR)$(includedir) mkdir -p $(DESTDIR)$(mandir) mkdir -p $(DESTDIR)$(mandir)/man3 mkdir -p $(DESTDIR)$(datadir) mkdir -p $(DESTDIR)$(htmldir) uninstall : force # $(LIBTOOL_UNINSTALL) $(RM) $(DESTDIR)$(libdir)/libtrampoline.la $(RM) $(DESTDIR)$(includedir)/trampoline_r.h $(RM) $(DESTDIR)$(mandir)/man3/trampoline_r.3 $(RM) $(DESTDIR)$(htmldir)/trampoline_r.html test1.@OBJEXT@ : $(srcdir)/test1.c $(srcdir)/trampoline_r.h $(CC) $(INCLUDES) $(CPPFLAGS) $(CFLAGS) -c $(srcdir)/test1.c test1 : test1.@OBJEXT@ libtrampoline.la $(LIBTOOL_LINK) $(CC) $(CFLAGS) @GCC_X_NONE@ test1.@OBJEXT@ libtrampoline.la $(LDFLAGS) -o test1 test2.@OBJEXT@ : $(srcdir)/test2.c $(srcdir)/trampoline_r.h $(CC) $(INCLUDES) $(CPPFLAGS) $(CFLAGS) -c $(srcdir)/test2.c test2 : test2.@OBJEXT@ libtrampoline.la $(LIBTOOL_LINK) $(CC) $(CFLAGS) @GCC_X_NONE@ test2.@OBJEXT@ libtrampoline.la $(LDFLAGS) -o test2 check1 : all test1 ./test1 check : all test1 test2 ./test1 ./test2 touch tests.passed.$(HOST) extracheck : check mostlyclean : clean clean : force $(RM) $(OBJECTS) `echo $(OBJECTS) | sed -e 's/\.lo/.@OBJEXT@/g'` tramp-hppa.s tramp-hppa64.s tramp-powerpc.s tramp-powerpc64.s tramp-ia64.s cache-sparc.s cache-sparc64.s cache-alpha.s cache-hppa.s cache-hppa64.s cache-powerpc.s cache-powerpc64-elfv2.s libtrampoline.* core $(RM) -r .libs _libs $(RM) test1.@OBJEXT@ test1 test2.@OBJEXT@ test2 distclean : clean $(RM) Makefile tests.passed.* maintainer-clean : distclean # List of source files (committed in version control or generated by Makefile.devel). SOURCE_FILES = \ COPYING \ PORTING README trampoline_r.3 trampoline_r.html \ Makefile.devel \ Makefile.maint \ Makefile.in \ trampoline_r.h \ trampoline.c \ tramp-hppa-macro.S \ tramp-hppa64-macro.S \ tramp-powerpc-aix.S \ tramp-powerpc64-aix.S \ tramp-ia64-macro.S \ cache.c \ cache-alpha.c cache-alpha-linux.s cache-alpha-macro.S \ cache-hppa.c cache-hppa-linux.s cache-hppa-macro.S cache-hppa64-linux.s cache-hppa64-macro.S \ cache-powerpc.c cache-powerpc-linux.s cache-powerpc-linux-macro.S cache-powerpc-macos.s \ cache-powerpc64.c cache-powerpc64-elfv2-linux.s cache-powerpc64-elfv2-macro.S \ cache-sparc.c cache-sparc-linux.s cache-sparc-macro.S cache-sparc64-linux.s cache-sparc64-macro.S \ test1.c \ test2.c # List of distributed files generated by Makefile.maint. GENERATED_FILES = \ trampoline_r.man # List of distributed files. DISTFILES = $(SOURCE_FILES) $(GENERATED_FILES) distdir : $(DISTFILES) for file in $(DISTFILES); do \ if test -f $$file; then dir='.'; else dir='$(srcdir)'; fi; \ cp -p "$$dir/$$file" '$(distdir)'/$$file || exit 1; \ done force : libffcall-2.2/callback/trampoline_r/cache-sparc64-linux.s0000664000000000000000000000044613527105034020263 00000000000000 .file "cache-sparc.c" .section ".text" .align 4 .global __TR_clear_cache_2 .type __TR_clear_cache_2, #function .proc 020 __TR_clear_cache_2: iflush %o0+0;iflush %o0+8 jmp %o7+8 nop .size __TR_clear_cache_2, .-__TR_clear_cache_2 .ident "GCC: (GNU) 4.0.2" .section ".note.GNU-stack" libffcall-2.2/callback/trampoline_r/tramp-powerpc-aix.S0000664000000000000000000000313513347755301020130 00000000000000/* Trampoline for powerpc CPU with AIX calling convention */ /* * Copyright 1995-2017 Bruno Haible * * This program is free software: you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by * the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program. If not, see . */ /* Available registers: r0, r11, r12. */ /* However, r0 is special in that it cannot be used as a base register. */ .globl tramp_r .globl .tramp_r .csect tramp_r[DS] tramp_r: .long .tramp_r, 0, 0 .csect .text[PR] .tramp_r: /* Move into register r11 */ lwz 11,0(2) /* get */ /* Get */ lwz 12,4(2) /* * gcc-2.6.3 source says: * A function pointer is a pointer to a data area whose first word contains * the actual address of the function, whose second word contains a pointer * to its TOC, and whose third word contains a value to place in the static * chain register (r11). But we have already placed our information in r11. */ /* lwz 11,8(12) pass static chain in r11 */ lwz 2,4(12) /* pass TOC in r2 */ lwz 0,0(12) /* actual code address */ mtctr 0 bctr _section_.text: .csect .data[RW] .long _section_.text libffcall-2.2/callback/trampoline_r/cache-powerpc.c0000664000000000000000000000256513347755271017325 00000000000000/* Instruction cache flushing for powerpc, not on AIX */ /* * Copyright 1997-2017 Bruno Haible * * This program is free software: you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by * the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program. If not, see . */ void __TR_clear_cache (char* first_addr) { /* Taken from egcs-1.1.2/gcc/config/rs6000/tramp.asm. */ /* The number of asm statements here depends on the value of TRAMP_LENGTH for __powerpcsysv4__. */ asm volatile ("icbi 0,%0; dcbf 0,%0" : : "r" (first_addr)); asm volatile ("icbi 0,%0; dcbf 0,%0" : : "r" (first_addr+4)); asm volatile ("icbi 0,%0; dcbf 0,%0" : : "r" (first_addr+8)); asm volatile ("icbi 0,%0; dcbf 0,%0" : : "r" (first_addr+12)); asm volatile ("icbi 0,%0; dcbf 0,%0" : : "r" (first_addr+16)); asm volatile ("icbi 0,%0; dcbf 0,%0" : : "r" (first_addr+20)); asm volatile ("sync; isync"); } libffcall-2.2/callback/trampoline_r/trampoline_r.man0000664000000000000000000000565213530357247017624 00000000000000TRAMPOLINE(3) Library Functions Manual TRAMPOLINE(3) NAME trampoline - closures as first-class C functions SYNOPSIS #include  function = alloc_trampoline_r(address, data0, data1); free_trampoline_r(function); is_trampoline_r(function) trampoline_r_address(function) trampoline_r_data0(function) trampoline_r_data1(function) DESCRIPTION These functions implement closures as first-class C functions. A clo‐ sure consists of a regular C function and a piece of data which gets passed to the C function when the closure is called. Closures as first-class C functions means that they fit into a function pointer and can be called exactly like any other C function. function = alloc_trampoline_r(address, data0, data1) allocates a closure. When function gets called, it stores in a special "lexical chain register" a pointer to a storage area containing data0 in its first word and data1 in its second word and calls the C function at address. The function at address is responsible for fetching data0 and data1 off the pointer. Note that the "lexical chain register" is a call-used register, i.e. is clobbered by function calls. This is much like gcc's local functions, except that the GNU C local functions have dynamic extent (i.e. are deallocated when the creating function returns), while trampoline provides functions with indefinite extent: function is only deallocated when free_trampoline_r(function) is called. is_trampoline_r(function) checks whether the C function function was produced by a call to alloc_trampoline_r. If this returns true, the arguments given to alloc_trampoline_r can be retrieved: trampoline_r_address(function) returns address, trampoline_r_data0(function) returns data0, trampoline_r_data1(function) returns data1. SEE ALSO trampoline(3), gcc(1), stdarg(3) PORTING The way gcc builds local functions is described in the gcc source, file gcc-2.6.3/config/cpu/cpu.h. AUTHOR Bruno Haible ACKNOWLEDGEMENTS Many ideas were cribbed from the gcc source. 1 January 2017 TRAMPOLINE(3) libffcall-2.2/callback/trampoline_r/test1.c0000664000000000000000000000526413527104765015640 00000000000000/* Trampoline test */ /* * Copyright 1995-2019 Bruno Haible * * This program is free software: you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by * the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program. If not, see . */ #include #include #include "trampoline_r.h" #include "ffcall-abi.h" /* Define __${host_cpu}__ */ /* Set when we can check that the env register is being passed correctly. */ #if defined __GNUC__ && !defined __clang__ && !defined(__arm__) #define CHECK_ENV_REGISTER #endif #define MAGIC1 0x9db9af42 #define MAGIC2 0x614a13c9 #define MAGIC3 0x7aff3cb4 #define MAGIC4 0xa2f9d045 #ifdef __cplusplus typedef int (*function)(...); #else typedef int (*function)(); #endif int f (int x) { #ifdef CHECK_ENV_REGISTER #ifdef __i386__ register void* env __asm__("%ecx"); #endif #ifdef __m68k__ register void* env __asm__("a0"); #endif #if defined(__mips__) || defined(__mipsn32__) || defined(__mips64__) register void* env __asm__("$2"); #endif #if defined(__sparc__) && !defined(__sparc64__) register void* env __asm__("%g2"); #endif #ifdef __sparc64__ register void* env __asm__("%g5"); #endif #ifdef __alpha__ register void* env __asm__("$1"); #endif #if defined(__hppa__) && !defined(__hppa64__) register void* env __asm__("%r29"); #endif #ifdef __hppa64__ register void* env __asm__("%r31"); #endif #ifdef __arm64__ register void* env __asm__("x18"); #endif #ifdef __powerpc__ register void* env __asm__("r11"); #endif #ifdef __ia64__ register void* env __asm__("r15"); #endif #ifdef __x86_64__ register void* env __asm__("r10"); #endif #if defined(__s390__) || defined(__s390x__) register void* env __asm__("r0"); #endif #if defined(__riscv32__) || defined(__riscv64__) register void* env __asm__("t2"); #endif return x + (int)(long)((void**)env)[0] + (int)(long)((void**)env)[1] + MAGIC3; #else return x + MAGIC3; #endif } int main () { function cf = alloc_trampoline_r((function)&f, (void*)MAGIC1, (void*)MAGIC2); #ifdef CHECK_ENV_REGISTER if ((*cf)(MAGIC4) == MAGIC1+MAGIC2+MAGIC3+MAGIC4) #else if ((*cf)(MAGIC4) == MAGIC3+MAGIC4) #endif { free_trampoline_r(cf); printf("Works, test1 passed.\n"); exit(0); } else { printf("Doesn't work!\n"); exit(1); } } libffcall-2.2/callback/trampoline_r/cache-sparc-macro.S0000664000000000000000000000062113527105034020006 00000000000000#include "asm-sparc.h" .section ".text" .align 4 .global C(__TR_clear_cache_2) DECLARE_FUNCTION(__TR_clear_cache_2) .proc 020 FUNBEGIN(__TR_clear_cache_2) !$PROLOGUE$ 0 iflush %o0+0;iflush %o0+8 nop retl nop L(Lfe1): FUNEND(__TR_clear_cache_2) #if defined __linux__ || defined __FreeBSD__ || defined __FreeBSD_kernel__ || defined __DragonFly__ .section .note.GNU-stack,"",@progbits #endif libffcall-2.2/callback/trampoline_r/README0000644000000000000000000000102013026317517015267 00000000000000This directory contains a reentrant version of the trampoline package. Instead of clobbering a global variable, a pointer to data0,data1,... is passed to the called function in a special CPU register. The number of supported data words (data0,data1) is arbitrary; 3 or 4 or more would work as well if trampoline.c was modified appropriately. Two words are needed, however, for passing closures through vacall_r without an additional malloc() call per closure. The include file is renamed to . libffcall-2.2/callback/trampoline_r/trampoline_r.30000664000000000000000000000644413136760230017203 00000000000000.\" Copyright (C) 1995-2017 Bruno Haible .\" .\" This manual is free documentation. It is dually licensed under the .\" GNU FDL and the GNU GPL. This means that you can redistribute this .\" manual under either of these two licenses, at your choice. .\" .\" This manual is covered by the GNU FDL. Permission is granted to copy, .\" distribute and/or modify this document under the terms of the .\" GNU Free Documentation License (FDL), either version 1.2 of the .\" License, or (at your option) any later version published by the .\" Free Software Foundation (FSF); with no Invariant Sections, with no .\" Front-Cover Text, and with no Back-Cover Texts. .\" A copy of the license is at . .\" .\" This manual is covered by the GNU GPL. You can redistribute it and/or .\" modify it under the terms of the GNU General Public License (GPL), either .\" version 2 of the License, or (at your option) any later version published .\" by the Free Software Foundation (FSF). .\" A copy of the license is at . .\" .TH TRAMPOLINE 3 "1 January 2017" .SH NAME trampoline \- closures as first-class C functions .SH SYNOPSIS .B #include .LP .B function = alloc_trampoline_r(address, data0, data1); .LP .B free_trampoline_r(function); .LP .nf .B is_trampoline_r(function) .B trampoline_r_address(function) .B trampoline_r_data0(function) .B trampoline_r_data1(function) .fi .SH DESCRIPTION .LP These functions implement .I closures as first-class C functions. A closure consists of a regular C function and a piece of data which gets passed to the C function when the closure is called. Closures as .I first-class C functions means that they fit into a function pointer and can be called exactly like any other C function. .IB function " = alloc_trampoline_r(" address ", " data0 ", " data1 ")" allocates a closure. When .I function gets called, it stores in a special "lexical chain register" a pointer to a storage area containing .I data0 in its first word and .I data1 in its second word and calls the C function at .IR address . The function at .I address is responsible for fetching .I data0 and .I data1 off the pointer. Note that the "lexical chain register" is a call-used register, i.e. is clobbered by function calls. This is much like .BR gcc "'s" local functions, except that the GNU C local functions have dynamic extent (i.e. are deallocated when the creating function returns), while .I trampoline provides functions with indefinite extent: .I function is only deallocated when .BI free_trampoline_r( function ) is called. .BI "is_trampoline_r(" function ")" checks whether the C function .I function was produced by a call to .IR alloc_trampoline_r . If this returns true, the arguments given to .I alloc_trampoline_r can be retrieved: .RS 4 .LP .BI "trampoline_r_address(" function ")" returns .IR address , .LP .BI "trampoline_r_data0(" function ")" returns .IR data0 , .LP .BI "trampoline_r_data1(" function ")" returns .IR data1 . .RE .SH SEE ALSO .BR trampoline (3), .BR gcc (1), .BR stdarg (3) .SH PORTING The way .B gcc builds local functions is described in the gcc source, file .RI gcc-2.6.3/config/ cpu / cpu .h. .SH AUTHOR Bruno Haible .SH ACKNOWLEDGEMENTS Many ideas were cribbed from the gcc source. libffcall-2.2/callback/trampoline_r/test2.c0000664000000000000000000000317613347755272015646 00000000000000/* Trampoline accessor test */ /* * Copyright 1995-2005 Bruno Haible * * This program is free software: you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by * the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program. If not, see . */ #include #include #include "trampoline_r.h" #ifdef __cplusplus typedef int (*function)(...); #else typedef int (*function)(); #endif int f (int x) { return x; } #define MAGIC1 0x9db9af42 #define MAGIC2 0x614a13c9 int main () { function cf = alloc_trampoline_r((function)&f, (void*)MAGIC1, (void*)MAGIC2); if (is_trampoline_r((void*)&main)) { printf("is_trampoline_r(&main) returns true!\n"); exit(1); } if (!is_trampoline_r((void*)cf)) { printf("is_trampoline_r() returns false!\n"); exit(1); } if (trampoline_r_address(cf) != (function)&f) { printf("trampoline_r_address() doesn't work!\n"); exit(1); } if (trampoline_r_data0(cf) != (void*)MAGIC1) { printf("trampoline_r_data0() doesn't work!\n"); exit(1); } if (trampoline_r_data1(cf) != (void*)MAGIC2) { printf("trampoline_r_data1() doesn't work!\n"); exit(1); } printf("test2 passed.\n"); exit(0); } libffcall-2.2/callback/trampoline_r/trampoline_r.h0000664000000000000000000000310013347755300017260 00000000000000/* * Copyright 1995-2017 Bruno Haible * * This program is free software: you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by * the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program. If not, see . */ #ifndef _TRAMPOLINE_R_H #define _TRAMPOLINE_R_H /* Use a consistent prefix for all symbols in libcallback. */ #define alloc_trampoline_r callback_trampoline_alloc #define free_trampoline_r callback_trampoline_free #define is_trampoline_r callback_trampoline_is #define trampoline_r_address callback_trampoline_address #define trampoline_r_data0 callback_trampoline_data0 #define trampoline_r_data1 callback_trampoline_data1 #ifdef __cplusplus typedef int (*__TR_function) (...); #else typedef int (*__TR_function) (); #endif extern __TR_function alloc_trampoline_r (__TR_function, void*, void*); extern void free_trampoline_r (__TR_function); extern int is_trampoline_r (void*); extern __TR_function trampoline_r_address (__TR_function); extern void* trampoline_r_data0 (__TR_function); extern void* trampoline_r_data1 (__TR_function); #endif /* _TRAMPOLINE_R_H */ libffcall-2.2/callback/trampoline_r/cache-hppa64-linux.s0000664000000000000000000000075413527105034020105 00000000000000 .LEVEL 2.0w .text .align 8 .globl __TR_clear_cache .type __TR_clear_cache,@function __TR_clear_cache: .PROC .CALLINFO FRAME=128,NO_CALLS .ENTRY ldo 128(%r30),%r30 #APP fdc 0(0,%r26) fdc 0(0,%r25) sync mfsp %sr0,%r31 ldsid (0,%r26),%r28 mtsp %r28,%sr0 fic 0(%sr0,%r26) fic 0(%sr0,%r25) sync mtsp %r31,%sr0 nop nop nop nop nop nop #NO_APP bve (%r2) ldo -128(%r30),%r30 .EXIT .PROCEND .Lfe1: .size __TR_clear_cache,.Lfe1-__TR_clear_cache .ident "GCC: (GNU) 3.1" libffcall-2.2/callback/trampoline_r/cache-powerpc-linux.s0000664000000000000000000000121013527105034020446 00000000000000 .file "cache-powerpc.c" .section ".text" .align 2 .globl __TR_clear_cache .type __TR_clear_cache, @function __TR_clear_cache: .extern __mulh .extern __mull .extern __divss .extern __divus .extern __quoss .extern __quous stwu 1,-32(1) #APP icbi 0,3; dcbf 0,3 #NO_APP addi 0,3,4 #APP icbi 0,0; dcbf 0,0 #NO_APP addi 9,3,8 #APP icbi 0,9; dcbf 0,9 #NO_APP addi 0,3,12 #APP icbi 0,0; dcbf 0,0 #NO_APP addi 9,3,16 #APP icbi 0,9; dcbf 0,9 #NO_APP addi 3,3,20 #APP icbi 0,3; dcbf 0,3 sync; isync #NO_APP addi 1,1,32 blr .size __TR_clear_cache, .-__TR_clear_cache .section .note.GNU-stack,"",@progbits .ident "GCC: (GNU) 3.3.6" libffcall-2.2/callback/trampoline_r/cache-hppa-linux.s0000664000000000000000000000070413527105034017726 00000000000000 .LEVEL 1.1 .text .align 4 .globl __TR_clear_cache .type __TR_clear_cache,@function __TR_clear_cache: .PROC .CALLINFO FRAME=0,NO_CALLS .ENTRY #APP fdc 0(0,%r26) fdc 0(0,%r25) sync mfsp %sr0,%r20 ldsid (0,%r26),%r26 mtsp %r26,%sr0 fic 0(%sr0,%r26) fic 0(%sr0,%r25) sync mtsp %r20,%sr0 nop nop nop nop nop nop #NO_APP bv,n %r0(%r2) .EXIT .PROCEND .Lfe1: .size __TR_clear_cache,.Lfe1-__TR_clear_cache .ident "GCC: (GNU) 3.1" libffcall-2.2/callback/trampoline_r/cache-sparc.c0000664000000000000000000000205313347755271016746 00000000000000/* Instruction cache flushing for sparc */ /* * Copyright 1996-1999 Bruno Haible * * This program is free software: you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by * the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program. If not, see . */ /* * This assumes that the range [first_addr..last_addr] lies in at most two * cache lines. */ void __TR_clear_cache_2 (char* first_addr, char* last_addr) { asm volatile ("iflush %0+0;" /* the +0 is needed by gas, says gforth-0.3.0 */ "iflush %0+8" : : "r" (first_addr)); } libffcall-2.2/callback/trampoline_r/cache-alpha.c0000644000000000000000000000157213347757000016716 00000000000000/* Instruction cache flushing for alpha */ /* * Copyright 1997 Bruno Haible * * This program is free software: you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by * the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program. If not, see . */ void __TR_clear_cache (void) { /* Taken from gforth-0.3.0. */ asm volatile ("call_pal 0x86"); /* imb (instruction-memory barrier) */ } libffcall-2.2/callback/trampoline_r/cache-hppa64-macro.S0000664000000000000000000000115713527105034020005 00000000000000#include "asm-hppa64.h" .LEVEL 2.0w TEXT1() TEXT2() .align 8 GLOBL(__TR_clear_cache) DECLARE_FUNCTION(__TR_clear_cache) DEF(__TR_clear_cache) .PROC .CALLINFO FRAME=128,NO_CALLS .ENTRY ldo 128(%r30),%r30 fdc 0(0,%r26) fdc 0(0,%r25) sync mfsp %sr0,%r31 ldsid (0,%r26),%r28 mtsp %r28,%sr0 fic 0(%sr0,%r26) fic 0(%sr0,%r25) sync mtsp %r31,%sr0 nop nop nop nop nop nop bve (%r2) ldo -128(%r30),%r30 .EXIT .PROCEND DEF(L(fe1)) FUNEND(__TR_clear_cache) #if defined __linux__ || defined __FreeBSD__ || defined __FreeBSD_kernel__ || defined __DragonFly__ .section .note.GNU-stack,"",@progbits #endif libffcall-2.2/callback/trampoline_r/tramp-ia64-macro.S0000664000000000000000000000226313347755276017550 00000000000000/* Trampoline for ia64 CPU */ /* * Copyright 2001-2017 Bruno Haible * * This program is free software: you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by * the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program. If not, see . */ /* Available registers: r14 ... r31, r9 ... r11, r2 ... r3. */ .text .align 16 .global tramp_r# .proc tramp_r# tramp_r: /* The closure pointer is already in register r1. */ ld8 r14 = [r1] /* Move
into register r14. */ adds r15 = 8, r1 ;; ld8 r15 = [r15] /* Move into register r15. */ /* Jump to r14. */ ld8 r17 = [r14] adds r16 = 8, r14 ;; ld8 r1 = [r16] mov b6 = r17 ;; br b6 ;; .endp tramp_r# #include "noexecstack.h" libffcall-2.2/callback/trampoline_r/cache-alpha-linux.s0000664000000000000000000000054013527105034020061 00000000000000 .set noreorder .set volatile .set noat .set nomacro .text .align 2 .align 4 .globl __TR_clear_cache .ent __TR_clear_cache $__TR_clear_cache..ng: __TR_clear_cache: .frame $30,0,$26,0 .prologue 0 .set macro call_pal 0x86 .set nomacro ret $31,($26),1 .end __TR_clear_cache .ident "GCC: (GNU) 4.0.2" .section .note.GNU-stack,"",@progbits libffcall-2.2/callback/trampoline_r/PORTING0000644000000000000000000000701013031471342015452 00000000000000The list of CPUs and platforms TRAMPOLINE has been ported to can be found at the top of file trampoline.c. To port TRAMPOLINE to a new platform, three issues may have to be resolved: A. a new CPU - how to build the trampoline? B. a new OS - how to make code in malloc'ed memory executable? C. a new CPU or OS - how to flush the instruction cache? A. a new CPU - how to build the trampoline? The trampoline is a short sequence of machine instructions which puts the constant into , then jumps to
. The only registers that are allowed to be modified are call-used registers. No stack manipulations are allowed since the trampoline has to pass its arguments along to the function at
. 1. To find out which instructions are available for "move"/"store" and "jump", compile proto.c for your CPU: make -f Makefile.devel proto-${CPU}.s or gcc -O2 -fomit-frame-pointer -S proto.c -o proto-${CPU}.s 2. Write down the instructions for the trampoline in a file tramp-${CPU}.s, using constants for , ,
. Assemble it: gcc -c tramp-${CPU}.s Verify that the jump actually goes to
. (Beware: Some CPUs have program-counter relative jumps.) gdb tramp-${CPU}.o disassemble tramp 3. Take a hex dump of tramp-${CPU}.o hexdump -e '"%06.6_ax " 16/1 " %02X" "\n"' < tramp-${CPU}.o or od -tx1 -Ax < tramp-${CPU}.o or od -x +x < tramp-${CPU}.o Look out for the magic numbers you used for , and
. 4. Write the code which builds up a trampoline in memory, in trampoline.c. 5. Try it: make make check1 6. Write the is_tramp() macro and the tramp_xxx() accessor macros in trampoline.c. 7. Try it: make make check B. a new OS - how to make code in malloc'ed memory executable? ‘configure’ will find out whether code stored in malloc'ed memory is executable, or whether virtual memory protections have to be set in order to allow this. (The test is pretty simple: it copies a small function to malloc'ed memory and tries to executed it. The test could also fail because the compiler produced non-position-independent code or because of alignment issues.) To set virtual memory protections on a page of memory, your system should provide the mprotect() and getpagesize() functions. If it does not, find a substitute. C. a new CPU or OS - how to flush the instruction cache? CPUs which have separate data and instruction caches need to flush (part of) the instruction cache when alloc_trampoline() is called. (There may have been an old trampoline at the same location, and the instruction cache is not updated when the new trampoline is built. The effect can be that when the new trampoline is called, the old one will still be executed.) To flush the instruction cache, some CPUs have special instruction which can be put into gcc "asm" statements. On some CPUs these instructions are privileged, you therefore need to call some system or library function. On other CPUs, the only way to flush the instruction cache is to execute a long sequence of "nop" or "jump" instructions. This is hairy. When you are done with porting to a new platform, or even if TRAMPOLINE passes the "make check" out of the box without modifications, please report your results to the author of TRAMPOLINE, for inclusion in the next release. libffcall-2.2/callback/trampoline_r/cache-powerpc64-elfv2-macro.S0000664000000000000000000000135513527105034021550 00000000000000 .file "cache-powerpc64.c" .machine power4 .abiversion 2 .section ".toc","aw" .section ".text" .align 2 .p2align 4,,15 .globl __TR_clear_cache .type __TR_clear_cache, @function __TR_clear_cache: # 25 "cache-powerpc64.c" 1 icbi 0,3; dcbf 0,3 # 0 "" 2 addi 9,3,4 # 26 "cache-powerpc64.c" 1 icbi 0,9; dcbf 0,9 # 0 "" 2 addi 9,3,8 # 27 "cache-powerpc64.c" 1 icbi 0,9; dcbf 0,9 # 0 "" 2 addi 3,3,12 # 28 "cache-powerpc64.c" 1 icbi 0,3; dcbf 0,3 # 0 "" 2 # 29 "cache-powerpc64.c" 1 sync; isync # 0 "" 2 blr .long 0 .byte 0,0,0,0,0,0,0,0 .size __TR_clear_cache,.-__TR_clear_cache #if defined __linux__ || defined __FreeBSD__ || defined __FreeBSD_kernel__ || defined __DragonFly__ .section .note.GNU-stack,"",@progbits #endif libffcall-2.2/callback/trampoline_r/cache-sparc-linux.s0000664000000000000000000000044113527105034020104 00000000000000 .file "cache-sparc.c" .section ".text" .align 4 .global __TR_clear_cache_2 .type __TR_clear_cache_2,#function .proc 020 __TR_clear_cache_2: !#PROLOGUE# 0 iflush %o0+0;iflush %o0+8 nop retl nop .LLfe1: .size __TR_clear_cache_2,.LLfe1-__TR_clear_cache_2 .ident "GCC: (GNU) 3.1" libffcall-2.2/callback/trampoline_r/Makefile.maint0000664000000000000000000000077113153072372017172 00000000000000# maintainer -*-Makefile-*- RM = rm -f # ==================== Easily regeneratable files ==================== ROFF_MAN = groff -Tutf8 -mandoc all : trampoline_r.man trampoline_r.man : trampoline_r.3 $(ROFF_MAN) trampoline_r.3 > trampoline_r.man totally-clean : force $(RM) trampoline_r.man # Files copied from other directories COPIED_FILES = \ PORTING \ cache.c \ cache-alpha.c \ cache-hppa.c copied-files : $(COPIED_FILES) $(COPIED_FILES) : % : ../../trampoline/% cp $< $@ force : libffcall-2.2/callback/trampoline_r/cache.c0000644000000000000000000001031613347757000015627 00000000000000/* This file is derived from gcc-2.6.3/libgcc2.c, section L_clear_cache */ /* Copyright (C) 1989-2017 Free Software Foundation, Inc. This program is free software: you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program. If not, see . */ /* Clear part of an instruction cache. */ /* Our emphasis here is _not_ to clear as few cache lines as possible * or with as few machine instructions as possible, but to do it _right_. */ /* This code is apparently untested!! */ /* This is from Andreas Stolcke . */ #if defined(__mips__) || defined(__mips64__) #include #define CLEAR_INSN_CACHE(BEG, END) \ cacheflush (BEG, END - BEG, BCACHE) #endif void __TR_clear_cache (beg, end) char *beg, *end; { #ifdef CLEAR_INSN_CACHE CLEAR_INSN_CACHE (beg, end); #else #ifdef INSN_CACHE_SIZE /* This is actually dead code!! */ #define INSN_CACHE_PLANE_SIZE (INSN_CACHE_SIZE / INSN_CACHE_DEPTH) static char array[INSN_CACHE_SIZE + INSN_CACHE_PLANE_SIZE + INSN_CACHE_LINE_WIDTH]; static int initialized = 0; int offset; void *start_addr; void *end_addr; typedef (*function_ptr) (); #if (INSN_CACHE_SIZE / INSN_CACHE_LINE_WIDTH) < 16 /* It's cheaper to clear the whole cache. Put in a series of jump instructions so that calling the beginning of the cache will clear the whole thing. */ if (! initialized) { int ptr = (((int) array + INSN_CACHE_LINE_WIDTH - 1) & -INSN_CACHE_LINE_WIDTH); int end_ptr = ptr + INSN_CACHE_SIZE; while (ptr < end_ptr) { *(INSTRUCTION_TYPE *)ptr = JUMP_AHEAD_INSTRUCTION + INSN_CACHE_LINE_WIDTH; ptr += INSN_CACHE_LINE_WIDTH; } *(INSTRUCTION_TYPE *)(ptr - INSN_CACHE_LINE_WIDTH) = RETURN_INSTRUCTION; initialized = 1; } /* Call the beginning of the sequence. */ (((function_ptr) (((int) array + INSN_CACHE_LINE_WIDTH - 1) & -INSN_CACHE_LINE_WIDTH)) ()); #else /* Cache is large. */ if (! initialized) { int ptr = (((int) array + INSN_CACHE_LINE_WIDTH - 1) & -INSN_CACHE_LINE_WIDTH); while (ptr < (int) array + sizeof array) { *(INSTRUCTION_TYPE *)ptr = RETURN_INSTRUCTION; ptr += INSN_CACHE_LINE_WIDTH; } initialized = 1; } /* Find the location in array that occupies the same cache line as BEG. */ offset = ((int) beg & -INSN_CACHE_LINE_WIDTH) & (INSN_CACHE_PLANE_SIZE - 1); start_addr = (((int) (array + INSN_CACHE_PLANE_SIZE - 1) & -INSN_CACHE_PLANE_SIZE) + offset); /* Compute the cache alignment of the place to stop clearing. */ #if 0 /* This is not needed for gcc's purposes. */ /* If the block to clear is bigger than a cache plane, we clear the entire cache, and OFFSET is already correct. */ if (end < beg + INSN_CACHE_PLANE_SIZE) #endif offset = (((int) (end + INSN_CACHE_LINE_WIDTH - 1) & -INSN_CACHE_LINE_WIDTH) & (INSN_CACHE_PLANE_SIZE - 1)); #if INSN_CACHE_DEPTH > 1 end_addr = (start_addr & -INSN_CACHE_PLANE_SIZE) + offset; if (end_addr <= start_addr) end_addr += INSN_CACHE_PLANE_SIZE; for (plane = 0; plane < INSN_CACHE_DEPTH; plane++) { int addr = start_addr + plane * INSN_CACHE_PLANE_SIZE; int stop = end_addr + plane * INSN_CACHE_PLANE_SIZE; while (addr != stop) { /* Call the return instruction at ADDR. */ ((function_ptr) addr) (); addr += INSN_CACHE_LINE_WIDTH; } } #else /* just one plane */ do { /* Call the return instruction at START_ADDR. */ ((function_ptr) start_addr) (); start_addr += INSN_CACHE_LINE_WIDTH; } while ((start_addr % INSN_CACHE_SIZE) != offset); #endif /* just one plane */ #endif /* Cache is large */ #endif /* Cache exists */ #endif /* CLEAR_INSN_CACHE */ } libffcall-2.2/callback/trampoline_r/trampoline_r.html0000664000000000000000000001111113136760230017770 00000000000000 TRAMPOLINE_R manual page

TRAMPOLINE_R manual page

Name

 trampoline_r - closures as first-class C functions

Synopsis

 
#include <trampoline_r.h>
function = alloc_trampoline_r(address, data0, data1);
free_trampoline_r(function);
is_trampoline_r(function)
trampoline_r_address(function)
trampoline_r_data0(function)
trampoline_r_data1(function)

Description

 These functions implement closures as first-class C functions. A closure consists of a regular C function and a piece of data which gets passed to the C function when the closure is called.

Closures as first-class C functions means that they fit into a function pointer and can be called exactly like any other C function. function = alloc_trampoline_r(address, data0, data1) allocates a closure. When function gets called, it stores in a special "lexical chain register" a pointer to a storage area containing data0 in its first word and data1 in its second word and calls the C function at address. The function at address is responsible for fetching data0 and data1 off the pointer. Note that the "lexical chain register" is a call-used register, i.e. is clobbered by function calls.

This is much like gcc's local functions, except that the GNU C local functions have dynamic extent (i.e. are deallocated when the creating function returns), while trampoline provides functions with indefinite extent: function is only deallocated when free_trampoline_r(function) is called.

is_trampoline_r(function) checks whether the C function function was produced by a call to alloc_trampoline_r. If this returns true, the arguments given to alloc_trampoline_r can be retrieved:

  • trampoline_r_address(function) returns address,
  • trampoline_r_data0(function) returns data0,
  • trampoline_r_data1(function) returns data1.

See also

 trampoline(3), gcc(1), stdarg(3)

Porting

 The way gcc builds local functions is described in the gcc source, file gcc-2.6.3/config/cpu/cpu.h.

Author

 Bruno Haible <bruno@clisp.org>

Acknowledgements

 Many ideas were cribbed from the gcc source.

TRAMPOLINE_R manual page
Bruno Haible <bruno@clisp.org>

Last modified: 1 January 2017. libffcall-2.2/callback/trampoline_r/cache-powerpc-linux-macro.S0000664000000000000000000000121213527105034021507 00000000000000 .file "cache-powerpc.c" .section ".text" .align 2 .globl __TR_clear_cache .type __TR_clear_cache, @function __TR_clear_cache: .extern __mulh .extern __mull .extern __divss .extern __divus .extern __quoss .extern __quous stwu 1,-32(1) icbi 0,3; dcbf 0,3 addi 0,3,4 icbi 0,0; dcbf 0,0 addi 9,3,8 icbi 0,9; dcbf 0,9 addi 0,3,12 icbi 0,0; dcbf 0,0 addi 9,3,16 icbi 0,9; dcbf 0,9 addi 3,3,20 icbi 0,3; dcbf 0,3 sync; isync addi 1,1,32 blr .size __TR_clear_cache, .-__TR_clear_cache #if defined __linux__ || defined __FreeBSD__ || defined __FreeBSD_kernel__ || defined __DragonFly__ .section .note.GNU-stack,"",@progbits #endif libffcall-2.2/callback/trampoline_r/COPYING0000644000000000000000000004335713026317516015464 00000000000000 GNU GENERAL PUBLIC LICENSE Version 2, June 1991 Copyright (C) 1989, 1991 Free Software Foundation, Inc. 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. Everyone is permitted to copy and distribute verbatim copies of this license document, but changing it is not allowed. Preamble The licenses for most software are designed to take away your freedom to share and change it. By contrast, the GNU General Public License is intended to guarantee your freedom to share and change free software--to make sure the software is free for all its users. This General Public License applies to most of the Free Software Foundation's software and to any other program whose authors commit to using it. (Some other Free Software Foundation software is covered by the GNU Library General Public License instead.) You can apply it to your programs, too. When we speak of free software, we are referring to freedom, not price. Our General Public Licenses are designed to make sure that you have the freedom to distribute copies of free software (and charge for this service if you wish), that you receive source code or can get it if you want it, that you can change the software or use pieces of it in new free programs; and that you know you can do these things. To protect your rights, we need to make restrictions that forbid anyone to deny you these rights or to ask you to surrender the rights. These restrictions translate to certain responsibilities for you if you distribute copies of the software, or if you modify it. For example, if you distribute copies of such a program, whether gratis or for a fee, you must give the recipients all the rights that you have. You must make sure that they, too, receive or can get the source code. And you must show them these terms so they know their rights. We protect your rights with two steps: (1) copyright the software, and (2) offer you this license which gives you legal permission to copy, distribute and/or modify the software. Also, for each author's protection and ours, we want to make certain that everyone understands that there is no warranty for this free software. If the software is modified by someone else and passed on, we want its recipients to know that what they have is not the original, so that any problems introduced by others will not reflect on the original authors' reputations. Finally, any free program is threatened constantly by software patents. We wish to avoid the danger that redistributors of a free program will individually obtain patent licenses, in effect making the program proprietary. To prevent this, we have made it clear that any patent must be licensed for everyone's free use or not licensed at all. The precise terms and conditions for copying, distribution and modification follow. GNU GENERAL PUBLIC LICENSE TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION 0. This License applies to any program or other work which contains a notice placed by the copyright holder saying it may be distributed under the terms of this General Public License. The "Program", below, refers to any such program or work, and a "work based on the Program" means either the Program or any derivative work under copyright law: that is to say, a work containing the Program or a portion of it, either verbatim or with modifications and/or translated into another language. (Hereinafter, translation is included without limitation in the term "modification".) Each licensee is addressed as "you". Activities other than copying, distribution and modification are not covered by this License; they are outside its scope. The act of running the Program is not restricted, and the output from the Program is covered only if its contents constitute a work based on the Program (independent of having been made by running the Program). Whether that is true depends on what the Program does. 1. You may copy and distribute verbatim copies of the Program's source code as you receive it, in any medium, provided that you conspicuously and appropriately publish on each copy an appropriate copyright notice and disclaimer of warranty; keep intact all the notices that refer to this License and to the absence of any warranty; and give any other recipients of the Program a copy of this License along with the Program. You may charge a fee for the physical act of transferring a copy, and you may at your option offer warranty protection in exchange for a fee. 2. You may modify your copy or copies of the Program or any portion of it, thus forming a work based on the Program, and copy and distribute such modifications or work under the terms of Section 1 above, provided that you also meet all of these conditions: a) You must cause the modified files to carry prominent notices stating that you changed the files and the date of any change. b) You must cause any work that you distribute or publish, that in whole or in part contains or is derived from the Program or any part thereof, to be licensed as a whole at no charge to all third parties under the terms of this License. c) If the modified program normally reads commands interactively when run, you must cause it, when started running for such interactive use in the most ordinary way, to print or display an announcement including an appropriate copyright notice and a notice that there is no warranty (or else, saying that you provide a warranty) and that users may redistribute the program under these conditions, and telling the user how to view a copy of this License. (Exception: if the Program itself is interactive but does not normally print such an announcement, your work based on the Program is not required to print an announcement.) These requirements apply to the modified work as a whole. If identifiable sections of that work are not derived from the Program, and can be reasonably considered independent and separate works in themselves, then this License, and its terms, do not apply to those sections when you distribute them as separate works. But when you distribute the same sections as part of a whole which is a work based on the Program, the distribution of the whole must be on the terms of this License, whose permissions for other licensees extend to the entire whole, and thus to each and every part regardless of who wrote it. Thus, it is not the intent of this section to claim rights or contest your rights to work written entirely by you; rather, the intent is to exercise the right to control the distribution of derivative or collective works based on the Program. In addition, mere aggregation of another work not based on the Program with the Program (or with a work based on the Program) on a volume of a storage or distribution medium does not bring the other work under the scope of this License. 3. You may copy and distribute the Program (or a work based on it, under Section 2) in object code or executable form under the terms of Sections 1 and 2 above provided that you also do one of the following: a) Accompany it with the complete corresponding machine-readable source code, which must be distributed under the terms of Sections 1 and 2 above on a medium customarily used for software interchange; or, b) Accompany it with a written offer, valid for at least three years, to give any third party, for a charge no more than your cost of physically performing source distribution, a complete machine-readable copy of the corresponding source code, to be distributed under the terms of Sections 1 and 2 above on a medium customarily used for software interchange; or, c) Accompany it with the information you received as to the offer to distribute corresponding source code. (This alternative is allowed only for noncommercial distribution and only if you received the program in object code or executable form with such an offer, in accord with Subsection b above.) The source code for a work means the preferred form of the work for making modifications to it. For an executable work, complete source code means all the source code for all modules it contains, plus any associated interface definition files, plus the scripts used to control compilation and installation of the executable. However, as a special exception, the source code distributed need not include anything that is normally distributed (in either source or binary form) with the major components (compiler, kernel, and so on) of the operating system on which the executable runs, unless that component itself accompanies the executable. If distribution of executable or object code is made by offering access to copy from a designated place, then offering equivalent access to copy the source code from the same place counts as distribution of the source code, even though third parties are not compelled to copy the source along with the object code. 4. You may not copy, modify, sublicense, or distribute the Program except as expressly provided under this License. Any attempt otherwise to copy, modify, sublicense or distribute the Program is void, and will automatically terminate your rights under this License. However, parties who have received copies, or rights, from you under this License will not have their licenses terminated so long as such parties remain in full compliance. 5. You are not required to accept this License, since you have not signed it. However, nothing else grants you permission to modify or distribute the Program or its derivative works. These actions are prohibited by law if you do not accept this License. Therefore, by modifying or distributing the Program (or any work based on the Program), you indicate your acceptance of this License to do so, and all its terms and conditions for copying, distributing or modifying the Program or works based on it. 6. Each time you redistribute the Program (or any work based on the Program), the recipient automatically receives a license from the original licensor to copy, distribute or modify the Program subject to these terms and conditions. You may not impose any further restrictions on the recipients' exercise of the rights granted herein. You are not responsible for enforcing compliance by third parties to this License. 7. If, as a consequence of a court judgment or allegation of patent infringement or for any other reason (not limited to patent issues), conditions are imposed on you (whether by court order, agreement or otherwise) that contradict the conditions of this License, they do not excuse you from the conditions of this License. If you cannot distribute so as to satisfy simultaneously your obligations under this License and any other pertinent obligations, then as a consequence you may not distribute the Program at all. For example, if a patent license would not permit royalty-free redistribution of the Program by all those who receive copies directly or indirectly through you, then the only way you could satisfy both it and this License would be to refrain entirely from distribution of the Program. If any portion of this section is held invalid or unenforceable under any particular circumstance, the balance of the section is intended to apply and the section as a whole is intended to apply in other circumstances. It is not the purpose of this section to induce you to infringe any patents or other property right claims or to contest validity of any such claims; this section has the sole purpose of protecting the integrity of the free software distribution system, which is implemented by public license practices. Many people have made generous contributions to the wide range of software distributed through that system in reliance on consistent application of that system; it is up to the author/donor to decide if he or she is willing to distribute software through any other system and a licensee cannot impose that choice. This section is intended to make thoroughly clear what is believed to be a consequence of the rest of this License. 8. If the distribution and/or use of the Program is restricted in certain countries either by patents or by copyrighted interfaces, the original copyright holder who places the Program under this License may add an explicit geographical distribution limitation excluding those countries, so that distribution is permitted only in or among countries not thus excluded. In such case, this License incorporates the limitation as if written in the body of this License. 9. The Free Software Foundation may publish revised and/or new versions of the General Public License from time to time. Such new versions will be similar in spirit to the present version, but may differ in detail to address new problems or concerns. Each version is given a distinguishing version number. If the Program specifies a version number of this License which applies to it and "any later version", you have the option of following the terms and conditions either of that version or of any later version published by the Free Software Foundation. If the Program does not specify a version number of this License, you may choose any version ever published by the Free Software Foundation. 10. If you wish to incorporate parts of the Program into other free programs whose distribution conditions are different, write to the author to ask for permission. For software which is copyrighted by the Free Software Foundation, write to the Free Software Foundation; we sometimes make exceptions for this. Our decision will be guided by the two goals of preserving the free status of all derivatives of our free software and of promoting the sharing and reuse of software generally. NO WARRANTY 11. BECAUSE THE PROGRAM IS LICENSED FREE OF CHARGE, THERE IS NO WARRANTY FOR THE PROGRAM, TO THE EXTENT PERMITTED BY APPLICABLE LAW. EXCEPT WHEN OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR OTHER PARTIES PROVIDE THE PROGRAM "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. THE ENTIRE RISK AS TO THE QUALITY AND PERFORMANCE OF THE PROGRAM IS WITH YOU. SHOULD THE PROGRAM PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL NECESSARY SERVICING, REPAIR OR CORRECTION. 12. IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY AND/OR REDISTRIBUTE THE PROGRAM AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES, INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING OUT OF THE USE OR INABILITY TO USE THE PROGRAM (INCLUDING BUT NOT LIMITED TO LOSS OF DATA OR DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY YOU OR THIRD PARTIES OR A FAILURE OF THE PROGRAM TO OPERATE WITH ANY OTHER PROGRAMS), EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGES. END OF TERMS AND CONDITIONS Appendix: How to Apply These Terms to Your New Programs If you develop a new program, and you want it to be of the greatest possible use to the public, the best way to achieve this is to make it free software which everyone can redistribute and change under these terms. To do so, attach the following notices to the program. It is safest to attach them to the start of each source file to most effectively convey the exclusion of warranty; and each file should have at least the "copyright" line and a pointer to where the full notice is found. Copyright (C) This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program; if not, write to the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. Also add information on how to contact you by electronic and paper mail. If the program is interactive, make it output a short notice like this when it starts in an interactive mode: Gnomovision version 69, Copyright (C) year name of author Gnomovision comes with ABSOLUTELY NO WARRANTY; for details type `show w'. This is free software, and you are welcome to redistribute it under certain conditions; type `show c' for details. The hypothetical commands `show w' and `show c' should show the appropriate parts of the General Public License. Of course, the commands you use may be called something other than `show w' and `show c'; they could even be mouse-clicks or menu items--whatever suits your program. You should also get your employer (if you work as a programmer) or your school, if any, to sign a "copyright disclaimer" for the program, if necessary. Here is a sample; alter the names: Yoyodyne, Inc., hereby disclaims all copyright interest in the program `Gnomovision' (which makes passes at compilers) written by James Hacker. , 1 April 1989 Ty Coon, President of Vice This General Public License does not permit incorporating your program into proprietary programs. If your program is a subroutine library, you may consider it more useful to permit linking proprietary applications with the library. If this is what you want to do, use the GNU Library General Public License instead of this License. libffcall-2.2/callback/trampoline_r/cache-hppa.c0000664000000000000000000000414513347757000016562 00000000000000/* Instruction cache flushing for hppa */ /* * Copyright 1995-2017 Bruno Haible * * This program is free software: you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by * the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program. If not, see . */ #ifdef __hppa64__ /* Tell GCC not to clobber the registers that are call-saved in the HP C calling convention. */ register long arg0 __asm__("r26"); register long arg1 __asm__("r25"); register long arg2 __asm__("r24"); register long arg3 __asm__("r23"); register long arg4 __asm__("r22"); register long arg5 __asm__("r21"); register long arg6 __asm__("r20"); register long arg7 __asm__("r19"); #endif /* * This assumes that the range [first_addr..last_addr] lies in at most two * cache lines. */ void __TR_clear_cache (char* first_addr, char* last_addr) { register int tmp1; register int tmp2; /* Flush the relevant data cache lines. (Yes, this is needed. I tried it.) */ asm volatile ("fdc 0(0,%0)" "\n\t" "fdc 0(0,%1)" "\n\t" "sync" : : "r" (first_addr), "r" (last_addr) ); /* Flush the relevant instruction cache lines. */ asm volatile ("mfsp %%sr0,%1" "\n\t" "ldsid (0,%4),%0" "\n\t" "mtsp %0,%%sr0" "\n\t" "fic 0(%%sr0,%2)" "\n\t" "fic 0(%%sr0,%3)" "\n\t" "sync" "\n\t" "mtsp %1,%%sr0" "\n\t" "nop" "\n\t" "nop" "\n\t" "nop" "\n\t" "nop" "\n\t" "nop" "\n\t" "nop" : "=r" (tmp1), "=r" (tmp2) : "r" (first_addr), "r" (last_addr), "r" (first_addr) ); } libffcall-2.2/callback/README0000664000000000000000000000400413347755266012620 00000000000000callback - closures with variable arguments as first-class C functions This library implements closures with variable arguments and variable return values as first-class C functions. A closure consists of a regular C function and a piece of data which gets passed to the C function when the closure is called. This library is especially suited to the implementation of call-back functions in embedded interpreters. Installation instructions: Configure the parent directory. Then: cd callback make make check make install Files in this package: Documentation: README this text COPYING free software license PLATFORMS list of supported platforms MIGRATION migration guide from vacall+trampoline callback.3 manual page in Unix man format callback.man manual page callback.html manual page in HTML format Source: callback.h include file tests.c test program vacall_r/* a reentrant version of the vacall package trampoline_r/* a reentrant version of the trampoline package Building: Makefile.in Makefile master Porting: Makefile.devel developer's Makefile call-used-registers.txt table of call-used registers on different CPUs Copyright notice: Copyright 1995-2017 Bruno Haible This program is free software: you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program. If not, see . libffcall-2.2/callback/callback-libapi.c0000664000000000000000000000315513347755265015103 00000000000000/* * Copyright 2017 Bruno Haible * * This program is free software: you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by * the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program. If not, see . */ #include "config.h" #define __TR_function obsolete__TR_function #include "callback.h" #undef __TR_function #include "trampoline_r.h" /* This is the implementation of the library API. The symbols that the linker sees are all prefixed with 'callback_', to avoid potential collisions with other libraries. */ callback_t alloc_callback (callback_function_t address, void* data) { return alloc_trampoline_r((__TR_function)callback_get_receiver(),(void*)address,data); } void free_callback (callback_t callback) { free_trampoline_r (callback); } int is_callback (void* callback) { return is_trampoline_r(callback) && trampoline_r_address((__TR_function)callback) == (__TR_function)callback_get_receiver(); } callback_function_t callback_address (callback_t callback) { return (callback_function_t)trampoline_r_data0(callback); } void* callback_data (callback_t callback) { return trampoline_r_data1(callback); } libffcall-2.2/callback/MIGRATION0000664000000000000000000000553013136760230013200 00000000000000Migration Guide =============== When switching from vacall+trampoline to callback, you need to make the following changes to your code: vacall+trampoline callback ----------------- -------- -- Include files -- #include "vacall/vacall.h" #include "callback/callback.h" #include "trampoline/trampoline.h" -- Variable declarations -- static void* trampvar; -- Callback declaration -- static void static void mycallback (va_alist args) mycallback (void* data, va_alist args) { { void* data = trampvar; ... ... -- Initialization -- vacall_function = &mycallback; -- Allocating a callback -- void* trampoline = void* trampoline = alloc_trampoline( alloc_callback(&mycallback,data); (__TR_function)&vacall, &trampvar, data); -- Testing for a callback -- if if (is_trampoline(address) (is_callback(address) && (trampoline_address(address) && (callback_address(address) == (__TR_function)&vacall) == &mycallback) && (trampoline_variable(address) ) == &trampvar) ) void* data = trampoline_data(address); void* data = callback_data(address); -- Deallocating a callback -- free_trampoline(address); free_callback(address); -- Libraries -- libvacall.a libtrampoline.a libcallback.a ================================================================================ Copyright (C) 1995-1998 Bruno Haible This manual is free documentation. It is dually licensed under the GNU FDL and the GNU GPL. This means that you can redistribute this manual under either of these two licenses, at your choice. This manual is covered by the GNU FDL. Permission is granted to copy, distribute and/or modify this document under the terms of the GNU Free Documentation License (FDL), either version 1.2 of the License, or (at your option) any later version published by the Free Software Foundation (FSF); with no Invariant Sections, with no Front-Cover Text, and with no Back-Cover Texts. A copy of the license is at . This manual is covered by the GNU GPL. You can redistribute it and/or modify it under the terms of the GNU General Public License (GPL), either version 2 of the License, or (at your option) any later version published by the Free Software Foundation (FSF). A copy of the license is at . libffcall-2.2/callback/callback.man0000664000000000000000000002125413530357247014166 00000000000000CALLBACK(3) Library Functions Manual CALLBACK(3) NAME callback - closures with variable arguments as first-class C functions SYNOPSIS #include  void function (void* data, va_alist alist) { va_start_type(alist[, return_type]); arg = va_arg_type(alist[, arg_type]); va_return_type(alist[[, return_type], return_value]); } callback = alloc_callback(&function, data); free_callback(callback); is_callback(callback) callback_address(callback) callback_data(callback) DESCRIPTION These functions implement closures with variable arguments as first- class C functions. Closures as first-class C functions means that they fit into a function pointer and can be called exactly like any other C function. Moreover, they can be called with variable arguments and can return variable return values. callback = alloc_callback(&function, data) allocates a callback. When callback gets called, it arranges to call function, passing data as first argument and, as second argument, the entire sequence of argu‐ ments passed to callback. Function calling conventions differ considerably on different machines, therefore the arguments are accessed and the result value is stored through the same macros as used by the vacall package, see below. The callbacks are functions with indefinite extent: callback is only deallocated when free_callback(callback) is called. is_callback(callback) checks whether the C function callback was pro‐ duced by a call to alloc_callback. If this returns true, the arguments given to alloc_callback can be retrieved: callback_address(callback) returns &function, callback_data(callback) returns data. VACALL MACROS Within function, the following macros can be used to walk through the argument list and specify a return value: va_start_type(alist[, return_type]); starts the walk through the argument list and specifies the return type. arg = va_arg_type(alist[, arg_type]); fetches the next argument from the argument list. va_return_type(alist[[, return_type], return_value]); ends the walk through the argument list and specifies the return value. The type in va_start_type and va_return_type shall be one of void, int, uint, long, ulong, longlong, ulonglong, double, struct, ptr or (for ANSI C calling conventions only) char, schar, uchar, short, ushort, float, depending on the class of return_type. The type specifiers in va_start_type and va_return_type must be the same. The return_type specifiers passed to va_start_type and va_return_type must be the same. The type in va_arg_type shall be one of int, uint, long, ulong, long‐ long, ulonglong, double, struct, ptr or (for ANSI C calling conventions only) char, schar, uchar, short, ushort, float, depending on the class of arg_type. In va_start_struct(alist, return_type, splittable); the splittable flag specifies whether the struct return_type can be returned in registers such that every struct field fits entirely in a single register. This needs to be specified for structs of size 2*sizeof(long). For structs of size <= sizeof(long), splittable is ignored and assumed to be 1. For structs of size > 2*sizeof(long), splittable is ignored and assumed to be 0. There are some handy macros for this: va_word_splittable_1 (type1) va_word_splittable_2 (type1, type2) va_word_splittable_3 (type1, type2, type3) va_word_splittable_4 (type1, type2, type3, type4) For a struct with three slots struct { type1 id1; type2 id2; type3 id3; } you can specify splittable as va_word_splittable_3 (type1, type2, type3) . NOTES Functions which want to emulate Kernighan & Ritchie style functions (i.e., in ANSI C, functions without a typed argument list) cannot use the type values char, schar, uchar, short, ushort, float. As pre‐ scribed by the default K&R C expression promotions, they have to use int instead of char, schar, uchar, short, ushort and double instead of float. The macros va_start_longlong(), va_start_ulonglong(), va_return_long‐ long(), va_return_ulonglong(), va_arg_longlong() and va_arg_ulonglong() work only if the C compiler has a working long long 64-bit integer type. The struct types used in va_start_struct() and va_struct() must only contain (signed or unsigned) int, long, long long or pointer fields. Struct types containing (signed or unsigned) char, short, float, double or other structs are not supported. SEE ALSO vacall(3), trampoline(3). BUGS The current implementations have been tested on a selection of common cases but there are probably still many bugs. There are typically built-in limits on the size of the argument-list, which may also include the size of any structure arguments. The decision whether a struct is to be returned in registers or in mem‐ ory considers only the struct's size and alignment. This is inaccurate: for example, gcc on m68k-next returns struct { char a,b,c; } in regis‐ ters and struct { char a[3]; } in memory, although both types have the same size and the same alignment. The argument list can only be walked once. NON-BUGS All information is passed in CPU registers and the stack. The callback package is therefore multithread-safe. PORTING Porting callback consists in first porting the vacall and trampoline packages, then choosing a CPU register for passing the closure from trampoline to vacall. This register is normally the register desig‐ nated by STATIC_CHAIN_REGNUM in the gcc source, file gcc-2.7.2/con‐ fig/cpu/cpu.h. AUTHOR Bruno Haible ACKNOWLEDGEMENTS Many ideas were cribbed from the gcc source. 1 January 2017 CALLBACK(3) libffcall-2.2/callback/minitests.c0000664000000000000000000000136613347755265014132 00000000000000/* * Copyright 1999-2001 Bruno Haible * * This program is free software: you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by * the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program. If not, see . */ #define SKIP_EXTRA_STRUCTS #include "tests.c" libffcall-2.2/callback/PLATFORMS0000664000000000000000000000501113530336773013221 00000000000000Supported CPUs: (Put the GNU config.guess values here.) i386 i486-pc-linux (gcc), i686-unknown-gnu0.9 (gcc), i386-pc-solaris2.6 (gcc), i386-pc-solaris2.10 (gcc, cc), i386-w64-mingw32 (gcc, MSVC 14), i586-unknown-freebsd11.0 (cc), i386-unknown-dragonfly3.8 (gcc), i386-unknown-netbsdelf7.0 (gcc), i386-unknown-openbsd6.0 (gcc), i586-pc-haiku (gcc-x86), i386-pc-minix (clang) m68k m68k-unknown-linux (gcc) mips mips-sgi-irix5.3 (gcc), mips-sgi-irix6.4 (cc -32, -n32, -64), mips-sgi-irix6.5 (cc -32, -n32, gcc -mabi=n32), mips-unknown-linux (gcc -mabi=32), mips64-unknown-linux (gcc -mabi=n32, gcc -mabi=64) sparc sparc-sun-sunos4.1.3_U1 (gcc), sparc-sun-solaris2.4 (gcc), sparc-sun-solaris2.10 (gcc, cc), sparc64-sun-solaris2.10 (gcc -m64, cc -xarch=generic64), sparc-unknown-linux (gcc), sparc64-unknown-linux (gcc), sparc-unknown-netbsdelf7.1 (gcc), sparc64-unknown-netbsd8.0 (gcc) alpha alpha-dec-osf3.2 (gcc), alpha-dec-osf4.0 (gcc, cc), alphaev67-unknown-linux (gcc) hppa hppa1.1-hp-hpux9.05 (cc), hppa1.1-hp-hpux10.01 (cc), hppa2.0-hp-hpux10.20 (cc +DA1.1), hppa2.0w-hp-hpux11.31 (cc), hppa-unknown-linux (gcc) hppa64 hppa64-hp-hpux11.31 (cc +DD64) arm armv5tejl-unknown-linux (gcc), armv6l-unknown-linux (gcc), armv7l-unknown-linux (gcc) arm64 aarch64-unknown-linux (gcc) powerpc powerpc-ibm-aix7.1.3.0 (xlc, gcc), powerpc-unknown-linux (gcc), powerpc-apple-darwin6.8 (gcc), powerpc-apple-darwin9.8.0 (gcc) powerpc64 powerpc-ibm-aix7.1.3.0 (gcc -maix64, xlc -q64; AR="ar -X 64"), powerpc64-unknown-linux (gcc -m64), powerpc64le-unknown-linux (gcc) ia64 ia64-unknown-linux (gcc) x86_64 x86_64-suse-linux (gcc), x86_64-unknown-linux (gcc -mx32), x86_64-pc-solaris2.10 (gcc -m64, cc -xarch=generic64), x86_64-pc-cygwin (gcc), x86_64-w64-mingw32 (gcc, MSVC 14), x86_64-unknown-freebsd11.0 (cc), x86_64-unknown-netbsd7.0 (gcc), x86_64-unknown-openbsd6.0 (gcc) s390 s390x-ibm-linux (gcc -m31) s390x s390x-ibm-linux (gcc) riscv32 riscv32-unknown-linux (gcc -mabi=ilp32d) riscv64 riscv64-unknown-linux (gcc -mabi=lp64d) libffcall-2.2/callback/tests.c0000664000000000000000000024101613530344216013233 00000000000000/* Some random tests for vacall. */ /* * Copyright 1993 Bill Triggs * Copyright 1995-2019 Bruno Haible * * This program is free software: you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by * the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program. If not, see . */ #include #include #include #include "callback.h" #include "testcases.c" #if defined(__m68k__) && defined(__GNUC__) /* "gcc-2.6.3 -freg-struct-return" returns T = struct { char c[3]; } (which * has size 4 !) in memory, in contrast to struct { char a,b,c; } and * struct { char c[4]; } and struct { char a,b,c,d; } which have the same * size and the same alignment but are returned in registers. I don't know why. */ #define SKIP_T #endif #if defined(__sparc__) && defined(__sun) && defined(__SUNPRO_C) /* SUNWspro cc */ /* SunPRO cc miscompiles the simulator function for X_BcdB: d.i[1] is * temporarily stored in %l2 and put onto the stack from %l2, but in between * the copy of X has used %l2 as a counter without saving and restoring its * value. */ #define SKIP_X #endif #if defined(__mipsn32__) && !defined(__GNUC__) /* The X test crashes for an unknown reason. */ #define SKIP_X #endif /* These functions simulate the behaviour of the functions defined in testcases.c. */ /* void tests */ void v_v_simulator (void* data, va_alist alist) { if (data != (void*)&v_v) { fprintf(out,"wrong data for v_v\n"); exit(1); } va_start_void(alist); fprintf(out,"void f(void):\n"); fflush(out); va_return_void(alist); } /* int tests */ void i_v_simulator (void* data, va_alist alist) { if (data != (void*)&i_v) { fprintf(out,"wrong data for i_v\n"); exit(1); } va_start_int(alist); {int r=99; fprintf(out,"int f(void):"); fflush(out); va_return_int(alist, r); }} void i_i_simulator (void* data, va_alist alist) { if (data != (void*)&i_i) { fprintf(out,"wrong data for i_i\n"); exit(1); } va_start_int(alist); {int a = va_arg_int(alist); int r=a+1; fprintf(out,"int f(int):(%d)",a); fflush(out); va_return_int(alist, r); }} void i_i2_simulator (void* data, va_alist alist) { if (data != (void*)&i_i2) { fprintf(out,"wrong data for i_i2\n"); exit(1); } va_start_int(alist); {int a = va_arg_int(alist); int b = va_arg_int(alist); int r=a+b; fprintf(out,"int f(2*int):(%d,%d)",a,b); fflush(out); va_return_int(alist, r); }} void i_i4_simulator (void* data, va_alist alist) { if (data != (void*)&i_i4) { fprintf(out,"wrong data for i_i4\n"); exit(1); } va_start_int(alist); {int a = va_arg_int(alist); int b = va_arg_int(alist); int c = va_arg_int(alist); int d = va_arg_int(alist); int r=a+b+c+d; fprintf(out,"int f(4*int):(%d,%d,%d,%d)",a,b,c,d); fflush(out); va_return_int(alist, r); }} void i_i8_simulator (void* data, va_alist alist) { if (data != (void*)&i_i8) { fprintf(out,"wrong data for i_i8\n"); exit(1); } va_start_int(alist); {int a = va_arg_int(alist); int b = va_arg_int(alist); int c = va_arg_int(alist); int d = va_arg_int(alist); int e = va_arg_int(alist); int f = va_arg_int(alist); int g = va_arg_int(alist); int h = va_arg_int(alist); int r=a+b+c+d+e+f+g+h; fprintf(out,"int f(8*int):(%d,%d,%d,%d,%d,%d,%d,%d)",a,b,c,d,e,f,g,h); fflush(out); va_return_int(alist, r); }} void i_i16_simulator (void* data, va_alist alist) { if (data != (void*)&i_i16) { fprintf(out,"wrong data for i_i16\n"); exit(1); } va_start_int(alist); {int a = va_arg_int(alist); int b = va_arg_int(alist); int c = va_arg_int(alist); int d = va_arg_int(alist); int e = va_arg_int(alist); int f = va_arg_int(alist); int g = va_arg_int(alist); int h = va_arg_int(alist); int i = va_arg_int(alist); int j = va_arg_int(alist); int k = va_arg_int(alist); int l = va_arg_int(alist); int m = va_arg_int(alist); int n = va_arg_int(alist); int o = va_arg_int(alist); int p = va_arg_int(alist); int r=a+b+c+d+e+f+g+h+i+j+k+l+m+n+o+p; fprintf(out,"int f(16*int):(%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d)", a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p); fflush(out); va_return_int(alist, r); }} void i_i32_simulator (void* data, va_alist alist) { if (data != (void*)&i_i32) { fprintf(out,"wrong data for i_i32\n"); exit(1); } va_start_int(alist); {int a = va_arg_int(alist); int b = va_arg_int(alist); int c = va_arg_int(alist); int d = va_arg_int(alist); int e = va_arg_int(alist); int f = va_arg_int(alist); int g = va_arg_int(alist); int h = va_arg_int(alist); int i = va_arg_int(alist); int j = va_arg_int(alist); int k = va_arg_int(alist); int l = va_arg_int(alist); int m = va_arg_int(alist); int n = va_arg_int(alist); int o = va_arg_int(alist); int p = va_arg_int(alist); int aa = va_arg_int(alist); int ab = va_arg_int(alist); int ac = va_arg_int(alist); int ad = va_arg_int(alist); int ae = va_arg_int(alist); int af = va_arg_int(alist); int ag = va_arg_int(alist); int ah = va_arg_int(alist); int ai = va_arg_int(alist); int aj = va_arg_int(alist); int ak = va_arg_int(alist); int al = va_arg_int(alist); int am = va_arg_int(alist); int an = va_arg_int(alist); int ao = va_arg_int(alist); int ap = va_arg_int(alist); int r=a+b+c+d+e+f+g+h+i+j+k+l+m+n+o+p+aa+ab+ac+ad+ae+af+ag+ah+ai+aj+ak+al+am+an+ao+ap; fprintf(out,"int f(32*int):(%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d)", a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,aa,ab,ac,ad,ae,af,ag,ah,ai,aj,ak,al,am,an,ao,ap); fflush(out); va_return_int(alist, r); }} /* float tests */ void f_f_simulator (void* data, va_alist alist) { if (data != (void*)&f_f) { fprintf(out,"wrong data for f_f\n"); exit(1); } va_start_float(alist); {float a = va_arg_float(alist); float r=a+1.0; fprintf(out,"float f(float):(%g)",a); fflush(out); va_return_float(alist, r); }} void f_f2_simulator (void* data, va_alist alist) { if (data != (void*)&f_f2) { fprintf(out,"wrong data for f_f2\n"); exit(1); } va_start_float(alist); {float a = va_arg_float(alist); float b = va_arg_float(alist); float r=a+b; fprintf(out,"float f(2*float):(%g,%g)",a,b); fflush(out); va_return_float(alist, r); }} void f_f4_simulator (void* data, va_alist alist) { if (data != (void*)&f_f4) { fprintf(out,"wrong data for f_f4\n"); exit(1); } va_start_float(alist); {float a = va_arg_float(alist); float b = va_arg_float(alist); float c = va_arg_float(alist); float d = va_arg_float(alist); float r=a+b+c+d; fprintf(out,"float f(4*float):(%g,%g,%g,%g)",a,b,c,d); fflush(out); va_return_float(alist, r); }} void f_f8_simulator (void* data, va_alist alist) { if (data != (void*)&f_f8) { fprintf(out,"wrong data for f_f8\n"); exit(1); } va_start_float(alist); {float a = va_arg_float(alist); float b = va_arg_float(alist); float c = va_arg_float(alist); float d = va_arg_float(alist); float e = va_arg_float(alist); float f = va_arg_float(alist); float g = va_arg_float(alist); float h = va_arg_float(alist); float r=a+b+c+d+e+f+g+h; fprintf(out,"float f(8*float):(%g,%g,%g,%g,%g,%g,%g,%g)",a,b,c,d,e,f,g,h); fflush(out); va_return_float(alist, r); }} void f_f16_simulator (void* data, va_alist alist) { if (data != (void*)&f_f16) { fprintf(out,"wrong data for f_f16\n"); exit(1); } va_start_float(alist); {float a = va_arg_float(alist); float b = va_arg_float(alist); float c = va_arg_float(alist); float d = va_arg_float(alist); float e = va_arg_float(alist); float f = va_arg_float(alist); float g = va_arg_float(alist); float h = va_arg_float(alist); float i = va_arg_float(alist); float j = va_arg_float(alist); float k = va_arg_float(alist); float l = va_arg_float(alist); float m = va_arg_float(alist); float n = va_arg_float(alist); float o = va_arg_float(alist); float p = va_arg_float(alist); float r=a+b+c+d+e+f+g+h+i+j+k+l+m+n+o+p; fprintf(out,"float f(16*float):(%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g)",a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p); fflush(out); va_return_float(alist, r); }} void f_f24_simulator (void* data, va_alist alist) { if (data != (void*)&f_f24) { fprintf(out,"wrong data for f_f24\n"); exit(1); } va_start_float(alist); {float a = va_arg_float(alist); float b = va_arg_float(alist); float c = va_arg_float(alist); float d = va_arg_float(alist); float e = va_arg_float(alist); float f = va_arg_float(alist); float g = va_arg_float(alist); float h = va_arg_float(alist); float i = va_arg_float(alist); float j = va_arg_float(alist); float k = va_arg_float(alist); float l = va_arg_float(alist); float m = va_arg_float(alist); float n = va_arg_float(alist); float o = va_arg_float(alist); float p = va_arg_float(alist); float q = va_arg_float(alist); float s = va_arg_float(alist); float t = va_arg_float(alist); float u = va_arg_float(alist); float v = va_arg_float(alist); float w = va_arg_float(alist); float x = va_arg_float(alist); float y = va_arg_float(alist); float r=a+b+c+d+e+f+g+h+i+j+k+l+m+n+o+p+q+s+t+u+v+w+x+y; fprintf(out,"float f(24*float):(%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g)",a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,s,t,u,v,w,x,y); fflush(out); va_return_float(alist, r); }} /* double tests */ void d_d_simulator (void* data, va_alist alist) { if (data != (void*)&d_d) { fprintf(out,"wrong data for d_d\n"); exit(1); } va_start_double(alist); {double a = va_arg_double(alist); double r=a+1.0; fprintf(out,"double f(double):(%g)",a); fflush(out); va_return_double(alist, r); }} void d_d2_simulator (void* data, va_alist alist) { if (data != (void*)&d_d2) { fprintf(out,"wrong data for d_d2\n"); exit(1); } va_start_double(alist); {double a = va_arg_double(alist); double b = va_arg_double(alist); double r=a+b; fprintf(out,"double f(2*double):(%g,%g)",a,b); fflush(out); va_return_double(alist, r); }} void d_d4_simulator (void* data, va_alist alist) { if (data != (void*)&d_d4) { fprintf(out,"wrong data for d_d4\n"); exit(1); } va_start_double(alist); {double a = va_arg_double(alist); double b = va_arg_double(alist); double c = va_arg_double(alist); double d = va_arg_double(alist); double r=a+b+c+d; fprintf(out,"double f(4*double):(%g,%g,%g,%g)",a,b,c,d); fflush(out); va_return_double(alist, r); }} void d_d8_simulator (void* data, va_alist alist) { if (data != (void*)&d_d8) { fprintf(out,"wrong data for d_d8\n"); exit(1); } va_start_double(alist); {double a = va_arg_double(alist); double b = va_arg_double(alist); double c = va_arg_double(alist); double d = va_arg_double(alist); double e = va_arg_double(alist); double f = va_arg_double(alist); double g = va_arg_double(alist); double h = va_arg_double(alist); double r=a+b+c+d+e+f+g+h; fprintf(out,"double f(8*double):(%g,%g,%g,%g,%g,%g,%g,%g)",a,b,c,d,e,f,g,h); fflush(out); va_return_double(alist, r); }} void d_d16_simulator (void* data, va_alist alist) { if (data != (void*)&d_d16) { fprintf(out,"wrong data for d_d16\n"); exit(1); } va_start_double(alist); {double a = va_arg_double(alist); double b = va_arg_double(alist); double c = va_arg_double(alist); double d = va_arg_double(alist); double e = va_arg_double(alist); double f = va_arg_double(alist); double g = va_arg_double(alist); double h = va_arg_double(alist); double i = va_arg_double(alist); double j = va_arg_double(alist); double k = va_arg_double(alist); double l = va_arg_double(alist); double m = va_arg_double(alist); double n = va_arg_double(alist); double o = va_arg_double(alist); double p = va_arg_double(alist); double r=a+b+c+d+e+f+g+h+i+j+k+l+m+n+o+p; fprintf(out,"double f(16*double):(%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g)",a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p); fflush(out); va_return_double(alist, r); }} /* pointer tests */ void vp_vpdpcpsp_simulator (void* data, va_alist alist) { if (data != (void*)&vp_vpdpcpsp) { fprintf(out,"wrong data for vp_vpdpcpsp\n"); exit(1); } va_start_ptr(alist, void*); {void* a = va_arg_ptr(alist, void*); double* b = va_arg_ptr(alist, double*); char* c = va_arg_ptr(alist, char*); Int* d = va_arg_ptr(alist, Int*); void* ret = (char*)b + 1; fprintf(out,"void* f(void*,double*,char*,Int*):(0x%p,0x%p,0x%p,0x%p)",a,b,c,d); fflush(out); va_return_ptr(alist, void*, ret); }} /* mixed number tests */ void uc_ucsil_simulator (void* data, va_alist alist) { if (data != (void*)&uc_ucsil) { fprintf(out,"wrong data for uc_ucsil\n"); exit(1); } va_start_uchar(alist); {uchar a = va_arg_uchar(alist); ushort b = va_arg_ushort(alist); uint c = va_arg_uint(alist); ulong d = va_arg_ulong(alist); uchar r = (uchar)-1; fprintf(out,"uchar f(uchar,ushort,uint,ulong):(%u,%u,%u,%lu)",a,b,c,d); fflush(out); va_return_uchar(alist, r); }} void d_iidd_simulator (void* data, va_alist alist) { if (data != (void*)&d_iidd) { fprintf(out,"wrong data for d_iidd\n"); exit(1); } va_start_double(alist); {int a = va_arg_int(alist); int b = va_arg_int(alist); double c = va_arg_double(alist); double d = va_arg_double(alist); double r=a+b+c+d; fprintf(out,"double f(int,int,double,double):(%d,%d,%g,%g)",a,b,c,d); fflush(out); va_return_double(alist, r); }} void d_iiidi_simulator (void* data, va_alist alist) { if (data != (void*)&d_iiidi) { fprintf(out,"wrong data for d_iiidi\n"); exit(1); } va_start_double(alist); {int a = va_arg_int(alist); int b = va_arg_int(alist); int c = va_arg_int(alist); double d = va_arg_double(alist); int e = va_arg_int(alist); double r=a+b+c+d+e; fprintf(out,"double f(int,int,int,double,int):(%d,%d,%d,%g,%d)",a,b,c,d,e); fflush(out); va_return_double(alist, r); }} void d_idid_simulator (void* data, va_alist alist) { if (data != (void*)&d_idid) { fprintf(out,"wrong data for d_idid\n"); exit(1); } va_start_double(alist); {int a = va_arg_int(alist); double b = va_arg_double(alist); int c = va_arg_int(alist); double d = va_arg_double(alist); double r=a+b+c+d; fprintf(out,"double f(int,double,int,double):(%d,%g,%d,%g)",a,b,c,d); fflush(out); va_return_double(alist, r); }} void d_fdi_simulator (void* data, va_alist alist) { if (data != (void*)&d_fdi) { fprintf(out,"wrong data for d_fdi\n"); exit(1); } va_start_double(alist); {float a = va_arg_float(alist); double b = va_arg_double(alist); int c = va_arg_int(alist); double r=a+b+c; fprintf(out,"double f(float,double,int):(%g,%g,%d)",a,b,c); fflush(out); va_return_double(alist, r); }} void us_cdcd_simulator (void* data, va_alist alist) { if (data != (void*)&us_cdcd) { fprintf(out,"wrong data for us_cdcd\n"); exit(1); } va_start_ushort(alist); {char a = va_arg_char(alist); double b = va_arg_double(alist); char c = va_arg_char(alist); double d = va_arg_double(alist); ushort r = (ushort)(a + b + c + d); fprintf(out,"ushort f(char,double,char,double):('%c',%g,'%c',%g)",a,b,c,d); fflush(out); va_return_ushort(alist, r); }} void ll_iiilli_simulator (void* data, va_alist alist) { if (data != (void*)&ll_iiilli) { fprintf(out,"wrong data for ll_iiilli\n"); exit(1); } va_start_longlong(alist); {int a = va_arg_int(alist); int b = va_arg_int(alist); int c = va_arg_int(alist); long long d = va_arg_longlong(alist); int e = va_arg_int(alist); long long r = (long long)(int)a + (long long)(int)b + (long long)(int)c + d + (long long)e; fprintf(out,"long long f(int,int,int,long long,int):(%d,%d,%d,0x%lx%08lx,%d)",a,b,c,(long)(d>>32),(long)(d&0xffffffff),e); fflush(out); va_return_longlong(alist, r); }} void ll_flli_simulator (void* data, va_alist alist) { if (data != (void*)&ll_flli) { fprintf(out,"wrong data for ll_flli\n"); exit(1); } va_start_longlong(alist); {float a = va_arg_float(alist); long long b = va_arg_longlong(alist); int c = va_arg_int(alist); long long r = (long long)(int)a + b + (long long)c; fprintf(out,"long long f(float,long long,int):(%g,0x%lx%08lx,0x%lx)",a,(long)(b>>32),(long)(b&0xffffffff),(long)c); fflush(out); va_return_longlong(alist, r); }} void f_fi_simulator (void* data, va_alist alist) { if (data != (void*)&f_fi) { fprintf(out,"wrong data for f_fi\n"); exit(1); } va_start_float(alist); {float a = va_arg_float(alist); int z = va_arg_int(alist); float r=a+z; fprintf(out,"float f(float,int):(%g,%d)",a,z); fflush(out); va_return_float(alist, r); }} void f_f2i_simulator (void* data, va_alist alist) { if (data != (void*)&f_f2i) { fprintf(out,"wrong data for f_f2i\n"); exit(1); } va_start_float(alist); {float a = va_arg_float(alist); float b = va_arg_float(alist); int z = va_arg_int(alist); float r=a+b+z; fprintf(out,"float f(2*float,int):(%g,%g,%d)",a,b,z); fflush(out); va_return_float(alist, r); }} void f_f3i_simulator (void* data, va_alist alist) { if (data != (void*)&f_f3i) { fprintf(out,"wrong data for f_f3i\n"); exit(1); } va_start_float(alist); {float a = va_arg_float(alist); float b = va_arg_float(alist); float c = va_arg_float(alist); int z = va_arg_int(alist); float r=a+b+c+z; fprintf(out,"float f(3*float,int):(%g,%g,%g,%d)",a,b,c,z); fflush(out); va_return_float(alist, r); }} void f_f4i_simulator (void* data, va_alist alist) { if (data != (void*)&f_f4i) { fprintf(out,"wrong data for f_f4i\n"); exit(1); } va_start_float(alist); {float a = va_arg_float(alist); float b = va_arg_float(alist); float c = va_arg_float(alist); float d = va_arg_float(alist); int z = va_arg_int(alist); float r=a+b+c+d+z; fprintf(out,"float f(4*float,int):(%g,%g,%g,%g,%d)",a,b,c,d,z); fflush(out); va_return_float(alist, r); }} void f_f7i_simulator (void* data, va_alist alist) { if (data != (void*)&f_f7i) { fprintf(out,"wrong data for f_f7i\n"); exit(1); } va_start_float(alist); {float a = va_arg_float(alist); float b = va_arg_float(alist); float c = va_arg_float(alist); float d = va_arg_float(alist); float e = va_arg_float(alist); float f = va_arg_float(alist); float g = va_arg_float(alist); int z = va_arg_int(alist); float r=a+b+c+d+e+f+g+z; fprintf(out,"float f(7*float,int):(%g,%g,%g,%g,%g,%g,%g,%d)",a,b,c,d,e,f,g,z); fflush(out); va_return_float(alist, r); }} void f_f8i_simulator (void* data, va_alist alist) { if (data != (void*)&f_f8i) { fprintf(out,"wrong data for f_f8i\n"); exit(1); } va_start_float(alist); {float a = va_arg_float(alist); float b = va_arg_float(alist); float c = va_arg_float(alist); float d = va_arg_float(alist); float e = va_arg_float(alist); float f = va_arg_float(alist); float g = va_arg_float(alist); float h = va_arg_float(alist); int z = va_arg_int(alist); float r=a+b+c+d+e+f+g+h+z; fprintf(out,"float f(8*float,int):(%g,%g,%g,%g,%g,%g,%g,%g,%d)",a,b,c,d,e,f,g,h,z); fflush(out); va_return_float(alist, r); }} void f_f12i_simulator (void* data, va_alist alist) { if (data != (void*)&f_f12i) { fprintf(out,"wrong data for f_f12i\n"); exit(1); } va_start_float(alist); {float a = va_arg_float(alist); float b = va_arg_float(alist); float c = va_arg_float(alist); float d = va_arg_float(alist); float e = va_arg_float(alist); float f = va_arg_float(alist); float g = va_arg_float(alist); float h = va_arg_float(alist); float i = va_arg_float(alist); float j = va_arg_float(alist); float k = va_arg_float(alist); float l = va_arg_float(alist); int z = va_arg_int(alist); float r=a+b+c+d+e+f+g+h+i+j+k+l+z; fprintf(out,"float f(12*float,int):(%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%d)",a,b,c,d,e,f,g,h,i,j,k,l,z); fflush(out); va_return_float(alist, r); }} void f_f13i_simulator (void* data, va_alist alist) { if (data != (void*)&f_f13i) { fprintf(out,"wrong data for f_f13i\n"); exit(1); } va_start_float(alist); {float a = va_arg_float(alist); float b = va_arg_float(alist); float c = va_arg_float(alist); float d = va_arg_float(alist); float e = va_arg_float(alist); float f = va_arg_float(alist); float g = va_arg_float(alist); float h = va_arg_float(alist); float i = va_arg_float(alist); float j = va_arg_float(alist); float k = va_arg_float(alist); float l = va_arg_float(alist); float m = va_arg_float(alist); int z = va_arg_int(alist); float r=a+b+c+d+e+f+g+h+i+j+k+l+m+z; fprintf(out,"float f(13*float,int):(%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%d)",a,b,c,d,e,f,g,h,i,j,k,l,m,z); fflush(out); va_return_float(alist, r); }} void d_di_simulator (void* data, va_alist alist) { if (data != (void*)&d_di) { fprintf(out,"wrong data for d_di\n"); exit(1); } va_start_double(alist); {double a = va_arg_double(alist); int z = va_arg_int(alist); double r=a+z; fprintf(out,"double f(double,int):(%g,%d)",a,z); fflush(out); va_return_double(alist, r); }} void d_d2i_simulator (void* data, va_alist alist) { if (data != (void*)&d_d2i) { fprintf(out,"wrong data for d_d2i\n"); exit(1); } va_start_double(alist); {double a = va_arg_double(alist); double b = va_arg_double(alist); int z = va_arg_int(alist); double r=a+b+z; fprintf(out,"double f(2*double,int):(%g,%g,%d)",a,b,z); fflush(out); va_return_double(alist, r); }} void d_d3i_simulator (void* data, va_alist alist) { if (data != (void*)&d_d3i) { fprintf(out,"wrong data for d_d3i\n"); exit(1); } va_start_double(alist); {double a = va_arg_double(alist); double b = va_arg_double(alist); double c = va_arg_double(alist); int z = va_arg_int(alist); double r=a+b+c+z; fprintf(out,"double f(3*double,int):(%g,%g,%g,%d)",a,b,c,z); fflush(out); va_return_double(alist, r); }} void d_d4i_simulator (void* data, va_alist alist) { if (data != (void*)&d_d4i) { fprintf(out,"wrong data for d_d4i\n"); exit(1); } va_start_double(alist); {double a = va_arg_double(alist); double b = va_arg_double(alist); double c = va_arg_double(alist); double d = va_arg_double(alist); int z = va_arg_int(alist); double r=a+b+c+d+z; fprintf(out,"double f(4*double,int):(%g,%g,%g,%g,%d)",a,b,c,d,z); fflush(out); va_return_double(alist, r); }} void d_d7i_simulator (void* data, va_alist alist) { if (data != (void*)&d_d7i) { fprintf(out,"wrong data for d_d7i\n"); exit(1); } va_start_double(alist); {double a = va_arg_double(alist); double b = va_arg_double(alist); double c = va_arg_double(alist); double d = va_arg_double(alist); double e = va_arg_double(alist); double f = va_arg_double(alist); double g = va_arg_double(alist); int z = va_arg_int(alist); double r=a+b+c+d+e+f+g+z; fprintf(out,"double f(7*double,int):(%g,%g,%g,%g,%g,%g,%g,%d)",a,b,c,d,e,f,g,z); fflush(out); va_return_double(alist, r); }} void d_d8i_simulator (void* data, va_alist alist) { if (data != (void*)&d_d8i) { fprintf(out,"wrong data for d_d8i\n"); exit(1); } va_start_double(alist); {double a = va_arg_double(alist); double b = va_arg_double(alist); double c = va_arg_double(alist); double d = va_arg_double(alist); double e = va_arg_double(alist); double f = va_arg_double(alist); double g = va_arg_double(alist); double h = va_arg_double(alist); int z = va_arg_int(alist); double r=a+b+c+d+e+f+g+h+z; fprintf(out,"double f(8*double,int):(%g,%g,%g,%g,%g,%g,%g,%g,%d)",a,b,c,d,e,f,g,h,z); fflush(out); va_return_double(alist, r); }} void d_d12i_simulator (void* data, va_alist alist) { if (data != (void*)&d_d12i) { fprintf(out,"wrong data for d_d12i\n"); exit(1); } va_start_double(alist); {double a = va_arg_double(alist); double b = va_arg_double(alist); double c = va_arg_double(alist); double d = va_arg_double(alist); double e = va_arg_double(alist); double f = va_arg_double(alist); double g = va_arg_double(alist); double h = va_arg_double(alist); double i = va_arg_double(alist); double j = va_arg_double(alist); double k = va_arg_double(alist); double l = va_arg_double(alist); int z = va_arg_int(alist); double r=a+b+c+d+e+f+g+h+i+j+k+l+z; fprintf(out,"double f(12*double,int):(%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%d)",a,b,c,d,e,f,g,h,i,j,k,l,z); fflush(out); va_return_double(alist, r); }} void d_d13i_simulator (void* data, va_alist alist) { if (data != (void*)&d_d13i) { fprintf(out,"wrong data for d_d13i\n"); exit(1); } va_start_double(alist); {double a = va_arg_double(alist); double b = va_arg_double(alist); double c = va_arg_double(alist); double d = va_arg_double(alist); double e = va_arg_double(alist); double f = va_arg_double(alist); double g = va_arg_double(alist); double h = va_arg_double(alist); double i = va_arg_double(alist); double j = va_arg_double(alist); double k = va_arg_double(alist); double l = va_arg_double(alist); double m = va_arg_double(alist); int z = va_arg_int(alist); double r=a+b+c+d+e+f+g+h+i+j+k+l+m+z; fprintf(out,"double f(13*double,int):(%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%d)",a,b,c,d,e,f,g,h,i,j,k,l,m,z); fflush(out); va_return_double(alist, r); }} /* small structure return tests */ void S1_v_simulator (void* data, va_alist alist) { if (data != (void*)&S1_v) { fprintf(out,"wrong data for S1_v\n"); exit(1); } {Size1 r; va_start_struct(alist, Size1, 1); r = Size1_1; fprintf(out,"Size1 f(void):"); fflush(out); va_return_struct(alist, Size1, r); }} void S2_v_simulator (void* data, va_alist alist) { if (data != (void*)&S2_v) { fprintf(out,"wrong data for S2_v\n"); exit(1); } {Size2 r; va_start_struct(alist, Size2, 1); r = Size2_1; fprintf(out,"Size2 f(void):"); fflush(out); va_return_struct(alist, Size2, r); }} void S3_v_simulator (void* data, va_alist alist) { if (data != (void*)&S3_v) { fprintf(out,"wrong data for S3_v\n"); exit(1); } {Size3 r; va_start_struct(alist, Size3, 1); r = Size3_1; fprintf(out,"Size3 f(void):"); fflush(out); va_return_struct(alist, Size3, r); }} void S4_v_simulator (void* data, va_alist alist) { if (data != (void*)&S4_v) { fprintf(out,"wrong data for S4_v\n"); exit(1); } {Size4 r; va_start_struct(alist, Size4, 1); r = Size4_1; fprintf(out,"Size4 f(void):"); fflush(out); va_return_struct(alist, Size4, r); }} void S7_v_simulator (void* data, va_alist alist) { if (data != (void*)&S7_v) { fprintf(out,"wrong data for S7_v\n"); exit(1); } {Size7 r; va_start_struct(alist, Size7, 1); r = Size7_1; fprintf(out,"Size7 f(void):"); fflush(out); va_return_struct(alist, Size7, r); }} void S8_v_simulator (void* data, va_alist alist) { if (data != (void*)&S8_v) { fprintf(out,"wrong data for S8_v\n"); exit(1); } {Size8 r; va_start_struct(alist, Size8, 1); r = Size8_1; fprintf(out,"Size8 f(void):"); fflush(out); va_return_struct(alist, Size8, r); }} void S12_v_simulator (void* data, va_alist alist) { if (data != (void*)&S12_v) { fprintf(out,"wrong data for S12_v\n"); exit(1); } {Size12 r; va_start_struct(alist, Size12, 1); r = Size12_1; fprintf(out,"Size12 f(void):"); fflush(out); va_return_struct(alist, Size12, r); }} void S15_v_simulator (void* data, va_alist alist) { if (data != (void*)&S15_v) { fprintf(out,"wrong data for S15_v\n"); exit(1); } {Size15 r; va_start_struct(alist, Size15, 1); r = Size15_1; fprintf(out,"Size15 f(void):"); fflush(out); va_return_struct(alist, Size15, r); }} void S16_v_simulator (void* data, va_alist alist) { if (data != (void*)&S16_v) { fprintf(out,"wrong data for S16_v\n"); exit(1); } {Size16 r; va_start_struct(alist, Size16, 1); r = Size16_1; fprintf(out,"Size16 f(void):"); fflush(out); va_return_struct(alist, Size16, r); }} /* structure tests */ void I_III_simulator (void* data, va_alist alist) { if (data != (void*)&I_III) { fprintf(out,"wrong data for I_III\n"); exit(1); } {Int a; Int b; Int c; Int r; va_start_struct(alist, Int, 1); a = va_arg_struct(alist, Int); b = va_arg_struct(alist, Int); c = va_arg_struct(alist, Int); r.x = a.x + b.x + c.x; fprintf(out,"Int f(Int,Int,Int):({%d},{%d},{%d})",a.x,b.x,c.x); fflush(out); va_return_struct(alist, Int, r); }} #ifndef SKIP_EXTRA_STRUCTS void C_CdC_simulator (void* data, va_alist alist) { if (data != (void*)&C_CdC) { fprintf(out,"wrong data for C_CdC\n"); exit(1); } {Char a; double b; Char c; Char r; va_start_struct(alist, Char, 1); a = va_arg_struct(alist, Char); b = va_arg_double(alist); c = va_arg_struct(alist, Char); r.x = (a.x + c.x)/2; fprintf(out,"Char f(Char,double,Char):({'%c'},%g,{'%c'})",a.x,b,c.x); fflush(out); va_return_struct(alist, Char, r); }} void F_Ffd_simulator (void* data, va_alist alist) { if (data != (void*)&F_Ffd) { fprintf(out,"wrong data for F_Ffd\n"); exit(1); } {Float a; float b; double c; Float r; va_start_struct(alist, Float, va_word_splittable_1(float)); a = va_arg_struct(alist, Float); b = va_arg_float(alist); c = va_arg_double(alist); r.x = a.x + b + c; fprintf(out,"Float f(Float,float,double):({%g},%g,%g)",a.x,b,c); fflush(out); va_return_struct(alist, Float, r); }} void D_fDd_simulator (void* data, va_alist alist) { if (data != (void*)&D_fDd) { fprintf(out,"wrong data for D_fDd\n"); exit(1); } {float a; Double b; double c; Double r; va_start_struct(alist, Double, va_word_splittable_1(double)); a = va_arg_float(alist); b = va_arg_struct(alist, Double); c = va_arg_double(alist); r.x = a + b.x + c; fprintf(out,"Double f(float,Double,double):(%g,{%g},%g)",a,b.x,c); fflush(out); va_return_struct(alist, Double, r); }} void D_Dfd_simulator (void* data, va_alist alist) { if (data != (void*)&D_Dfd) { fprintf(out,"wrong data for D_Dfd\n"); exit(1); } {Double a; float b; double c; Double r; va_start_struct(alist, Double, va_word_splittable_1(double)); a = va_arg_struct(alist, Double); b = va_arg_float(alist); c = va_arg_double(alist); r.x = a.x + b + c; fprintf(out,"Double f(Double,float,double):({%g},%g,%g)",a.x,b,c); fflush(out); va_return_struct(alist, Double, r); }} #endif void J_JiJ_simulator (void* data, va_alist alist) { if (data != (void*)&J_JiJ) { fprintf(out,"wrong data for J_JiJ\n"); exit(1); } {J a; int b; J c; J r; va_start_struct(alist, J, va_word_splittable_2(long,long)); a = va_arg_struct(alist, J); b = va_arg_int(alist); c = va_arg_struct(alist, J); r.l1 = a.l1+c.l1; r.l2 = a.l2+b+c.l2; fprintf(out,"J f(J,int,J):({%ld,%ld},%d,{%ld,%ld})",a.l1,a.l2,b,c.l1,c.l2); fflush(out); va_return_struct(alist, J, r); }} #ifndef SKIP_EXTRA_STRUCTS void T_TcT_simulator (void* data, va_alist alist) { if (data != (void*)&T_TcT) { fprintf(out,"wrong data for T_TcT\n"); exit(1); } {T a; char b; T c; T r; va_start_struct(alist, T, 1); a = va_arg_struct(alist, T); b = va_arg_char(alist); c = va_arg_struct(alist, T); r.c[0]='b'; r.c[1]=c.c[1]; r.c[2]=c.c[2]; fprintf(out,"T f(T,char,T):({\"%c%c%c\"},'%c',{\"%c%c%c\"})",a.c[0],a.c[1],a.c[2],b,c.c[0],c.c[1],c.c[2]); fflush(out); va_return_struct(alist, T, r); }} void X_BcdB_simulator (void* data, va_alist alist) { if (data != (void*)&X_BcdB) { fprintf(out,"wrong data for X_BcdB\n"); exit(1); } {B a; char b; double c; B d; static X xr={"return val",'R'}; X r; va_start_struct(alist, X, 0); a = va_arg_struct(alist, B); b = va_arg_char(alist); c = va_arg_double(alist); d = va_arg_struct(alist, B); r = xr; r.c1 = b; fprintf(out,"X f(B,char,double,B):({%g,{%d,%d,%d}},'%c',%g,{%g,{%d,%d,%d}})", a.d,a.i[0],a.i[1],a.i[2],b,c,d.d,d.i[0],d.i[1],d.i[2]); fflush(out); va_return_struct(alist, X, r); }} #endif /* gpargs boundary tests */ void l_l0J_simulator (void* data, va_alist alist) { if (data != (void*)&l_l0J) { fprintf(out,"wrong data for l_l0J\n"); exit(1); } va_start_long(alist); {J b = va_arg_struct(alist, J); long c = va_arg_long(alist); long r = b.l1 + b.l2 + c; fprintf(out,"long f(J,long):(%ld,%ld,%ld)",b.l1,b.l2,c); fflush(out); va_return_long(alist, r); }} void l_l1J_simulator (void* data, va_alist alist) { if (data != (void*)&l_l1J) { fprintf(out,"wrong data for l_l1J\n"); exit(1); } va_start_long(alist); {long a1 = va_arg_long(alist); J b = va_arg_struct(alist, J); long c = va_arg_long(alist); long r = a1 + b.l1 + b.l2 + c; fprintf(out,"long f(long,J,long):(%ld,%ld,%ld,%ld)",a1,b.l1,b.l2,c); fflush(out); va_return_long(alist, r); }} void l_l2J_simulator (void* data, va_alist alist) { if (data != (void*)&l_l2J) { fprintf(out,"wrong data for l_l2J\n"); exit(1); } va_start_long(alist); {long a1 = va_arg_long(alist); long a2 = va_arg_long(alist); J b = va_arg_struct(alist, J); long c = va_arg_long(alist); long r = a1 + a2 + b.l1 + b.l2 + c; fprintf(out,"long f(2*long,J,long):(%ld,%ld,%ld,%ld,%ld)",a1,a2,b.l1,b.l2,c); fflush(out); va_return_long(alist, r); }} void l_l3J_simulator (void* data, va_alist alist) { if (data != (void*)&l_l3J) { fprintf(out,"wrong data for l_l3J\n"); exit(1); } va_start_long(alist); {long a1 = va_arg_long(alist); long a2 = va_arg_long(alist); long a3 = va_arg_long(alist); J b = va_arg_struct(alist, J); long c = va_arg_long(alist); long r = a1 + a2 + a3 + b.l1 + b.l2 + c; fprintf(out,"long f(3*long,J,long):(%ld,%ld,%ld,%ld,%ld,%ld)",a1,a2,a3,b.l1,b.l2,c); fflush(out); va_return_long(alist, r); }} void l_l4J_simulator (void* data, va_alist alist) { if (data != (void*)&l_l4J) { fprintf(out,"wrong data for l_l4J\n"); exit(1); } va_start_long(alist); {long a1 = va_arg_long(alist); long a2 = va_arg_long(alist); long a3 = va_arg_long(alist); long a4 = va_arg_long(alist); J b = va_arg_struct(alist, J); long c = va_arg_long(alist); long r = a1 + a2 + a3 + a4 + b.l1 + b.l2 + c; fprintf(out,"long f(4*long,J,long):(%ld,%ld,%ld,%ld,%ld,%ld,%ld)",a1,a2,a3,a4,b.l1,b.l2,c); fflush(out); va_return_long(alist, r); }} void l_l5J_simulator (void* data, va_alist alist) { if (data != (void*)&l_l5J) { fprintf(out,"wrong data for l_l5J\n"); exit(1); } va_start_long(alist); {long a1 = va_arg_long(alist); long a2 = va_arg_long(alist); long a3 = va_arg_long(alist); long a4 = va_arg_long(alist); long a5 = va_arg_long(alist); J b = va_arg_struct(alist, J); long c = va_arg_long(alist); long r = a1 + a2 + a3 + a4 + a5 + b.l1 + b.l2 + c; fprintf(out,"long f(5*long,J,long):(%ld,%ld,%ld,%ld,%ld,%ld,%ld,%ld)",a1,a2,a3,a4,a5,b.l1,b.l2,c); fflush(out); va_return_long(alist, r); }} void l_l6J_simulator (void* data, va_alist alist) { if (data != (void*)&l_l6J) { fprintf(out,"wrong data for l_l6J\n"); exit(1); } va_start_long(alist); {long a1 = va_arg_long(alist); long a2 = va_arg_long(alist); long a3 = va_arg_long(alist); long a4 = va_arg_long(alist); long a5 = va_arg_long(alist); long a6 = va_arg_long(alist); J b = va_arg_struct(alist, J); long c = va_arg_long(alist); long r = a1 + a2 + a3 + a4 + a5 + a6 + b.l1 + b.l2 + c; fprintf(out,"long f(6*long,J,long):(%ld,%ld,%ld,%ld,%ld,%ld,%ld,%ld,%ld)",a1,a2,a3,a4,a5,a6,b.l1,b.l2,c); fflush(out); va_return_long(alist, r); }} void l_l7J_simulator (void* data, va_alist alist) { if (data != (void*)&l_l7J) { fprintf(out,"wrong data for l_l7J\n"); exit(1); } va_start_long(alist); {long a1 = va_arg_long(alist); long a2 = va_arg_long(alist); long a3 = va_arg_long(alist); long a4 = va_arg_long(alist); long a5 = va_arg_long(alist); long a6 = va_arg_long(alist); long a7 = va_arg_long(alist); J b = va_arg_struct(alist, J); long c = va_arg_long(alist); long r = a1 + a2 + a3 + a4 + a5 + a6 + a7 + b.l1 + b.l2 + c; fprintf(out,"long f(7*long,J,long):(%ld,%ld,%ld,%ld,%ld,%ld,%ld,%ld,%ld,%ld)",a1,a2,a3,a4,a5,a6,a7,b.l1,b.l2,c); fflush(out); va_return_long(alist, r); }} void l_l0K_simulator (void* data, va_alist alist) { if (data != (void*)&l_l0K) { fprintf(out,"wrong data for l_l0K\n"); exit(1); } va_start_long(alist); {K b = va_arg_struct(alist, K); long c = va_arg_long(alist); long r = b.l1 + b.l2 + b.l3 + b.l4 + c; fprintf(out,"long f(K,long):(%ld,%ld,%ld,%ld,%ld)",b.l1,b.l2,b.l3,b.l4,c); fflush(out); va_return_long(alist, r); }} void l_l1K_simulator (void* data, va_alist alist) { if (data != (void*)&l_l1K) { fprintf(out,"wrong data for l_l1K\n"); exit(1); } va_start_long(alist); {long a1 = va_arg_long(alist); K b = va_arg_struct(alist, K); long c = va_arg_long(alist); long r = a1 + b.l1 + b.l2 + b.l3 + b.l4 + c; fprintf(out,"long f(long,K,long):(%ld,%ld,%ld,%ld,%ld,%ld)",a1,b.l1,b.l2,b.l3,b.l4,c); fflush(out); va_return_long(alist, r); }} void l_l2K_simulator (void* data, va_alist alist) { if (data != (void*)&l_l2K) { fprintf(out,"wrong data for l_l2K\n"); exit(1); } va_start_long(alist); {long a1 = va_arg_long(alist); long a2 = va_arg_long(alist); K b = va_arg_struct(alist, K); long c = va_arg_long(alist); long r = a1 + a2 + b.l1 + b.l2 + b.l3 + b.l4 + c; fprintf(out,"long f(2*long,K,long):(%ld,%ld,%ld,%ld,%ld,%ld,%ld)",a1,a2,b.l1,b.l2,b.l3,b.l4,c); fflush(out); va_return_long(alist, r); }} void l_l3K_simulator (void* data, va_alist alist) { if (data != (void*)&l_l3K) { fprintf(out,"wrong data for l_l3K\n"); exit(1); } va_start_long(alist); {long a1 = va_arg_long(alist); long a2 = va_arg_long(alist); long a3 = va_arg_long(alist); K b = va_arg_struct(alist, K); long c = va_arg_long(alist); long r = a1 + a2 + a3 + b.l1 + b.l2 + b.l3 + b.l4 + c; fprintf(out,"long f(3*long,K,long):(%ld,%ld,%ld,%ld,%ld,%ld,%ld,%ld)",a1,a2,a3,b.l1,b.l2,b.l3,b.l4,c); fflush(out); va_return_long(alist, r); }} void l_l4K_simulator (void* data, va_alist alist) { if (data != (void*)&l_l4K) { fprintf(out,"wrong data for l_l4K\n"); exit(1); } va_start_long(alist); {long a1 = va_arg_long(alist); long a2 = va_arg_long(alist); long a3 = va_arg_long(alist); long a4 = va_arg_long(alist); K b = va_arg_struct(alist, K); long c = va_arg_long(alist); long r = a1 + a2 + a3 + a4 + b.l1 + b.l2 + b.l3 + b.l4 + c; fprintf(out,"long f(4*long,K,long):(%ld,%ld,%ld,%ld,%ld,%ld,%ld,%ld,%ld)",a1,a2,a3,a4,b.l1,b.l2,b.l3,b.l4,c); fflush(out); va_return_long(alist, r); }} void l_l5K_simulator (void* data, va_alist alist) { if (data != (void*)&l_l5K) { fprintf(out,"wrong data for l_l5K\n"); exit(1); } va_start_long(alist); {long a1 = va_arg_long(alist); long a2 = va_arg_long(alist); long a3 = va_arg_long(alist); long a4 = va_arg_long(alist); long a5 = va_arg_long(alist); K b = va_arg_struct(alist, K); long c = va_arg_long(alist); long r = a1 + a2 + a3 + a4 + a5 + b.l1 + b.l2 + b.l3 + b.l4 + c; fprintf(out,"long f(5*long,K,long):(%ld,%ld,%ld,%ld,%ld,%ld,%ld,%ld,%ld,%ld)",a1,a2,a3,a4,a5,b.l1,b.l2,b.l3,b.l4,c); fflush(out); va_return_long(alist, r); }} void l_l6K_simulator (void* data, va_alist alist) { if (data != (void*)&l_l6K) { fprintf(out,"wrong data for l_l6K\n"); exit(1); } va_start_long(alist); {long a1 = va_arg_long(alist); long a2 = va_arg_long(alist); long a3 = va_arg_long(alist); long a4 = va_arg_long(alist); long a5 = va_arg_long(alist); long a6 = va_arg_long(alist); K b = va_arg_struct(alist, K); long c = va_arg_long(alist); long r = a1 + a2 + a3 + a4 + a5 + a6 + b.l1 + b.l2 + b.l3 + b.l4 + c; fprintf(out,"long f(6*long,K,long):(%ld,%ld,%ld,%ld,%ld,%ld,%ld,%ld,%ld,%ld,%ld)",a1,a2,a3,a4,a5,a6,b.l1,b.l2,b.l3,b.l4,c); fflush(out); va_return_long(alist, r); }} void f_f17l3L_simulator (void* data, va_alist alist) { if (data != (void*)&f_f17l3L) { fprintf(out,"wrong data for f_f17l3L\n"); exit(1); } va_start_float(alist); {float a = va_arg_float(alist); float b = va_arg_float(alist); float c = va_arg_float(alist); float d = va_arg_float(alist); float e = va_arg_float(alist); float f = va_arg_float(alist); float g = va_arg_float(alist); float h = va_arg_float(alist); float i = va_arg_float(alist); float j = va_arg_float(alist); float k = va_arg_float(alist); float l = va_arg_float(alist); float m = va_arg_float(alist); float n = va_arg_float(alist); float o = va_arg_float(alist); float p = va_arg_float(alist); float q = va_arg_float(alist); long s = va_arg_long(alist); long t = va_arg_long(alist); long u = va_arg_long(alist); L z = va_arg_struct(alist, L); float r = a+b+c+d+e+f+g+h+i+j+k+l+m+n+o+p+q+s+t+u+z.l1+z.l2+z.l3+z.l4+z.l5+z.l6; fprintf(out,"float f(17*float,3*int,L):(%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%ld,%ld,%ld,%ld,%ld,%ld,%ld,%ld,%ld)",a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,s,t,u,z.l1,z.l2,z.l3,z.l4,z.l5,z.l6); fflush(out); va_return_float(alist, r); }} void d_d17l3L_simulator (void* data, va_alist alist) { if (data != (void*)&d_d17l3L) { fprintf(out,"wrong data for d_d17l3L\n"); exit(1); } va_start_double(alist); {double a = va_arg_double(alist); double b = va_arg_double(alist); double c = va_arg_double(alist); double d = va_arg_double(alist); double e = va_arg_double(alist); double f = va_arg_double(alist); double g = va_arg_double(alist); double h = va_arg_double(alist); double i = va_arg_double(alist); double j = va_arg_double(alist); double k = va_arg_double(alist); double l = va_arg_double(alist); double m = va_arg_double(alist); double n = va_arg_double(alist); double o = va_arg_double(alist); double p = va_arg_double(alist); double q = va_arg_double(alist); long s = va_arg_long(alist); long t = va_arg_long(alist); long u = va_arg_long(alist); L z = va_arg_struct(alist, L); double r = a+b+c+d+e+f+g+h+i+j+k+l+m+n+o+p+q+s+t+u+z.l1+z.l2+z.l3+z.l4+z.l5+z.l6; fprintf(out,"double f(17*double,3*int,L):(%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%g,%ld,%ld,%ld,%ld,%ld,%ld,%ld,%ld,%ld)",a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,s,t,u,z.l1,z.l2,z.l3,z.l4,z.l5,z.l6); fflush(out); va_return_double(alist, r); }} void ll_l2ll_simulator (void* data, va_alist alist) { if (data != (void*)&ll_l2ll) { fprintf(out,"wrong data for ll_l2ll\n"); exit(1); } va_start_longlong(alist); {long a1 = va_arg_long(alist); long a2 = va_arg_long(alist); long long b = va_arg_longlong(alist); long c = va_arg_long(alist); long long r = (long long) (a1 + a2) + b + c; fprintf(out,"long long f(2*long,long long,long):(%ld,%ld,0x%lx%08lx,%ld)",a1,a2,(long)(b>>32),(long)(b&0xffffffff),c); fflush(out); va_return_longlong(alist, r); }} void ll_l3ll_simulator (void* data, va_alist alist) { if (data != (void*)&ll_l3ll) { fprintf(out,"wrong data for ll_l3ll\n"); exit(1); } va_start_longlong(alist); {long a1 = va_arg_long(alist); long a2 = va_arg_long(alist); long a3 = va_arg_long(alist); long long b = va_arg_longlong(alist); long c = va_arg_long(alist); long long r = (long long) (a1 + a2 + a3) + b + c; fprintf(out,"long long f(3*long,long long,long):(%ld,%ld,%ld,0x%lx%08lx,%ld)",a1,a2,a3,(long)(b>>32),(long)(b&0xffffffff),c); fflush(out); va_return_longlong(alist, r); }} void ll_l4ll_simulator (void* data, va_alist alist) { if (data != (void*)&ll_l4ll) { fprintf(out,"wrong data for ll_l4ll\n"); exit(1); } va_start_longlong(alist); {long a1 = va_arg_long(alist); long a2 = va_arg_long(alist); long a3 = va_arg_long(alist); long a4 = va_arg_long(alist); long long b = va_arg_longlong(alist); long c = va_arg_long(alist); long long r = (long long) (a1 + a2 + a3 + a4) + b + c; fprintf(out,"long long f(4*long,long long,long):(%ld,%ld,%ld,%ld,0x%lx%08lx,%ld)",a1,a2,a3,a4,(long)(b>>32),(long)(b&0xffffffff),c); fflush(out); va_return_longlong(alist, r); }} void ll_l5ll_simulator (void* data, va_alist alist) { if (data != (void*)&ll_l5ll) { fprintf(out,"wrong data for ll_l5ll\n"); exit(1); } va_start_longlong(alist); {long a1 = va_arg_long(alist); long a2 = va_arg_long(alist); long a3 = va_arg_long(alist); long a4 = va_arg_long(alist); long a5 = va_arg_long(alist); long long b = va_arg_longlong(alist); long c = va_arg_long(alist); long long r = (long long) (a1 + a2 + a3 + a4 + a5) + b + c; fprintf(out,"long long f(5*long,long long,long):(%ld,%ld,%ld,%ld,%ld,0x%lx%08lx,%ld)",a1,a2,a3,a4,a5,(long)(b>>32),(long)(b&0xffffffff),c); fflush(out); va_return_longlong(alist, r); }} void ll_l6ll_simulator (void* data, va_alist alist) { if (data != (void*)&ll_l6ll) { fprintf(out,"wrong data for ll_l6ll\n"); exit(1); } va_start_longlong(alist); {long a1 = va_arg_long(alist); long a2 = va_arg_long(alist); long a3 = va_arg_long(alist); long a4 = va_arg_long(alist); long a5 = va_arg_long(alist); long a6 = va_arg_long(alist); long long b = va_arg_longlong(alist); long c = va_arg_long(alist); long long r = (long long) (a1 + a2 + a3 + a4 + a5 + a6) + b + c; fprintf(out,"long long f(6*long,long long,long):(%ld,%ld,%ld,%ld,%ld,%ld,0x%lx%08lx,%ld)",a1,a2,a3,a4,a5,a6,(long)(b>>32),(long)(b&0xffffffff),c); fflush(out); va_return_longlong(alist, r); }} void ll_l7ll_simulator (void* data, va_alist alist) { if (data != (void*)&ll_l7ll) { fprintf(out,"wrong data for ll_l7ll\n"); exit(1); } va_start_longlong(alist); {long a1 = va_arg_long(alist); long a2 = va_arg_long(alist); long a3 = va_arg_long(alist); long a4 = va_arg_long(alist); long a5 = va_arg_long(alist); long a6 = va_arg_long(alist); long a7 = va_arg_long(alist); long long b = va_arg_longlong(alist); long c = va_arg_long(alist); long long r = (long long) (a1 + a2 + a3 + a4 + a5 + a6 + a7) + b + c; fprintf(out,"long long f(7*long,long long,long):(%ld,%ld,%ld,%ld,%ld,%ld,%ld,0x%lx%08lx,%ld)",a1,a2,a3,a4,a5,a6,a7,(long)(b>>32),(long)(b&0xffffffff),c); fflush(out); va_return_longlong(alist, r); }} void d_l2d_simulator (void* data, va_alist alist) { if (data != (void*)&d_l2d) { fprintf(out,"wrong data for d_l2d\n"); exit(1); } va_start_double(alist); {long a1 = va_arg_long(alist); long a2 = va_arg_long(alist); double b = va_arg_double(alist); long c = va_arg_long(alist); double r = (double) (a1 + a2) + b + c; fprintf(out,"double f(2*long,double,long):(%ld,%ld,%g,%ld)",a1,a2,b,c); fflush(out); va_return_double(alist, r); }} void d_l3d_simulator (void* data, va_alist alist) { if (data != (void*)&d_l3d) { fprintf(out,"wrong data for d_l3d\n"); exit(1); } va_start_double(alist); {long a1 = va_arg_long(alist); long a2 = va_arg_long(alist); long a3 = va_arg_long(alist); double b = va_arg_double(alist); long c = va_arg_long(alist); double r = (double) (a1 + a2 + a3) + b + c; fprintf(out,"double f(3*long,double,long):(%ld,%ld,%ld,%g,%ld)",a1,a2,a3,b,c); fflush(out); va_return_double(alist, r); }} void d_l4d_simulator (void* data, va_alist alist) { if (data != (void*)&d_l4d) { fprintf(out,"wrong data for d_l4d\n"); exit(1); } va_start_double(alist); {long a1 = va_arg_long(alist); long a2 = va_arg_long(alist); long a3 = va_arg_long(alist); long a4 = va_arg_long(alist); double b = va_arg_double(alist); long c = va_arg_long(alist); double r = (double) (a1 + a2 + a3 + a4) + b + c; fprintf(out,"double f(4*long,double,long):(%ld,%ld,%ld,%ld,%g,%ld)",a1,a2,a3,a4,b,c); fflush(out); va_return_double(alist, r); }} void d_l5d_simulator (void* data, va_alist alist) { if (data != (void*)&d_l5d) { fprintf(out,"wrong data for d_l5d\n"); exit(1); } va_start_double(alist); {long a1 = va_arg_long(alist); long a2 = va_arg_long(alist); long a3 = va_arg_long(alist); long a4 = va_arg_long(alist); long a5 = va_arg_long(alist); double b = va_arg_double(alist); long c = va_arg_long(alist); double r = (double) (a1 + a2 + a3 + a4 + a5) + b + c; fprintf(out,"double f(5*long,double,long):(%ld,%ld,%ld,%ld,%ld,%g,%ld)",a1,a2,a3,a4,a5,b,c); fflush(out); va_return_double(alist, r); }} void d_l6d_simulator (void* data, va_alist alist) { if (data != (void*)&d_l6d) { fprintf(out,"wrong data for d_l6d\n"); exit(1); } va_start_double(alist); {long a1 = va_arg_long(alist); long a2 = va_arg_long(alist); long a3 = va_arg_long(alist); long a4 = va_arg_long(alist); long a5 = va_arg_long(alist); long a6 = va_arg_long(alist); double b = va_arg_double(alist); long c = va_arg_long(alist); double r = (double) (a1 + a2 + a3 + a4 + a5 + a6) + b + c; fprintf(out,"double f(6*long,double,long):(%ld,%ld,%ld,%ld,%ld,%ld,%g,%ld)",a1,a2,a3,a4,a5,a6,b,c); fflush(out); va_return_double(alist, r); }} void d_l7d_simulator (void* data, va_alist alist) { if (data != (void*)&d_l7d) { fprintf(out,"wrong data for d_l7d\n"); exit(1); } va_start_double(alist); {long a1 = va_arg_long(alist); long a2 = va_arg_long(alist); long a3 = va_arg_long(alist); long a4 = va_arg_long(alist); long a5 = va_arg_long(alist); long a6 = va_arg_long(alist); long a7 = va_arg_long(alist); double b = va_arg_double(alist); long c = va_arg_long(alist); double r = (double) (a1 + a2 + a3 + a4 + a5 + a6 + a7) + b + c; fprintf(out,"double f(7*long,double,long):(%ld,%ld,%ld,%ld,%ld,%ld,%ld,%g,%ld)",a1,a2,a3,a4,a5,a6,a7,b,c); fflush(out); va_return_double(alist, r); }} void v_clobber_K_simulator (void* data, va_alist alist) { if (data != (void*)&v_clobber_K) { fprintf(out,"wrong data for v_clobber_K\n"); exit(1); } va_start_void(alist); {K k = va_arg_struct(alist, K); k.l1 += 1; k.l2 += 10; k.l3 += 100; k.l4 += 1000; va_return_void(alist); }} /* * The way we run these tests - first call the function directly, then * through vacall() - there is the danger that arguments or results seem * to be passed correctly, but what we are seeing are in fact the vestiges * (traces) or the previous call. This may seriously fake the test. * Avoid this by clearing the registers between the first and the second call. */ long clear_traces_i (long a, long b, long c, long d, long e, long f, long g, long h, long i, long j, long k, long l, long m, long n, long o, long p) { return 0; } float clear_traces_f (float a, float b, float c, float d, float e, float f, float g, float h, float i, float j, float k, float l, float m, float n, float o, float p) { return 0.0; } double clear_traces_d (double a, double b, double c, double d, double e, double f, double g, double h, double i, double j, double k, double l, double m, double n, double o, double p) { return 0.0; } J clear_traces_J (void) { J j; j.l1 = j.l2 = 0; return j; } void clear_traces (void) { clear_traces_i(0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0); clear_traces_f(0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0); clear_traces_d(0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0); clear_traces_J(); } int main (void) { callback_t callback; out = stdout; /* void tests */ v_v(); clear_traces(); callback = alloc_callback(&v_v_simulator,(void*)&v_v); ((void (*) (void)) callback) (); /* int tests */ { int ir; ir = i_v(); fprintf(out,"->%d\n",ir); fflush(out); ir = 0; clear_traces(); callback = alloc_callback(&i_v_simulator,(void*)&i_v); ir = ((int (*) (void)) callback) (); fprintf(out,"->%d\n",ir); fflush(out); ir = i_i(i1); fprintf(out,"->%d\n",ir); fflush(out); ir = 0; clear_traces(); callback = alloc_callback(&i_i_simulator,(void*)&i_i); ir = ((int (*) (int)) callback) (i1); fprintf(out,"->%d\n",ir); fflush(out); ir = i_i2(i1,i2); fprintf(out,"->%d\n",ir); fflush(out); ir = 0; clear_traces(); callback = alloc_callback(&i_i2_simulator,(void*)&i_i2); ir = ((int (*) (int,int)) callback) (i1,i2); fprintf(out,"->%d\n",ir); fflush(out); ir = i_i4(i1,i2,i3,i4); fprintf(out,"->%d\n",ir); fflush(out); ir = 0; clear_traces(); callback = alloc_callback(&i_i4_simulator,(void*)&i_i4); ir = ((int (*) (int,int,int,int)) callback) (i1,i2,i3,i4); fprintf(out,"->%d\n",ir); fflush(out); ir = i_i8(i1,i2,i3,i4,i5,i6,i7,i8); fprintf(out,"->%d\n",ir); fflush(out); ir = 0; clear_traces(); callback = alloc_callback(&i_i8_simulator,(void*)&i_i8); ir = ((int (*) (int,int,int,int,int,int,int,int)) callback) (i1,i2,i3,i4,i5,i6,i7,i8); fprintf(out,"->%d\n",ir); fflush(out); ir = i_i16(i1,i2,i3,i4,i5,i6,i7,i8,i9,i10,i11,i12,i13,i14,i15,i16); fprintf(out,"->%d\n",ir); fflush(out); ir = 0; clear_traces(); callback = alloc_callback(&i_i16_simulator,(void*)&i_i16); ir = ((int (*) (int,int,int,int,int,int,int,int,int,int,int,int,int,int,int,int)) callback) (i1,i2,i3,i4,i5,i6,i7,i8,i9,i10,i11,i12,i13,i14,i15,i16); fprintf(out,"->%d\n",ir); fflush(out); ir = i_i32(i1,i2,i3,i4,i5,i6,i7,i8,i9,i10,i11,i12,i13,i14,i15,i16,i17,i18,i19,i20,i21,i22,i23,i24,i25,i26,i27,i28,i29,i30,i31,i32); fprintf(out,"->%d\n",ir); fflush(out); ir = 0; clear_traces(); callback = alloc_callback(&i_i32_simulator,(void*)&i_i32); ir = ((int (*) (int,int,int,int,int,int,int,int,int,int,int,int,int,int,int,int,int,int,int,int,int,int,int,int,int,int,int,int,int,int,int,int)) callback) (i1,i2,i3,i4,i5,i6,i7,i8,i9,i10,i11,i12,i13,i14,i15,i16,i17,i18,i19,i20,i21,i22,i23,i24,i25,i26,i27,i28,i29,i30,i31,i32); fprintf(out,"->%d\n",ir); fflush(out); } /* float tests */ { float fr; fr = f_f(f1); fprintf(out,"->%g\n",fr); fflush(out); fr = 0.0; clear_traces(); callback = alloc_callback(&f_f_simulator,(void*)&f_f); fr = ((float (*) (float)) callback) (f1); fprintf(out,"->%g\n",fr); fflush(out); fr = f_f2(f1,f2); fprintf(out,"->%g\n",fr); fflush(out); fr = 0.0; clear_traces(); callback = alloc_callback(&f_f2_simulator,(void*)&f_f2); fr = ((float (*) (float,float)) callback) (f1,f2); fprintf(out,"->%g\n",fr); fflush(out); fr = f_f4(f1,f2,f3,f4); fprintf(out,"->%g\n",fr); fflush(out); fr = 0.0; clear_traces(); callback = alloc_callback(&f_f4_simulator,(void*)&f_f4); fr = ((float (*) (float,float,float,float)) callback) (f1,f2,f3,f4); fprintf(out,"->%g\n",fr); fflush(out); fr = f_f8(f1,f2,f3,f4,f5,f6,f7,f8); fprintf(out,"->%g\n",fr); fflush(out); fr = 0.0; clear_traces(); callback = alloc_callback(&f_f8_simulator,(void*)&f_f8); fr = ((float (*) (float,float,float,float,float,float,float,float)) callback) (f1,f2,f3,f4,f5,f6,f7,f8); fprintf(out,"->%g\n",fr); fflush(out); fr = f_f16(f1,f2,f3,f4,f5,f6,f7,f8,f9,f10,f11,f12,f13,f14,f15,f16); fprintf(out,"->%g\n",fr); fflush(out); fr = 0.0; clear_traces(); callback = alloc_callback(&f_f16_simulator,(void*)&f_f16); fr = ((float (*) (float,float,float,float,float,float,float,float,float,float,float,float,float,float,float,float)) callback) (f1,f2,f3,f4,f5,f6,f7,f8,f9,f10,f11,f12,f13,f14,f15,f16); fprintf(out,"->%g\n",fr); fflush(out); fr = f_f24(f1,f2,f3,f4,f5,f6,f7,f8,f9,f10,f11,f12,f13,f14,f15,f16,f17,f18,f19,f20,f21,f22,f23,f24); fprintf(out,"->%g\n",fr); fflush(out); fr = 0.0; clear_traces(); callback = alloc_callback(&f_f24_simulator,(void*)&f_f24); fr = ((float (*) (float,float,float,float,float,float,float,float,float,float,float,float,float,float,float,float,float,float,float,float,float,float,float,float)) callback) (f1,f2,f3,f4,f5,f6,f7,f8,f9,f10,f11,f12,f13,f14,f15,f16,f17,f18,f19,f20,f21,f22,f23,f24); fprintf(out,"->%g\n",fr); fflush(out); } /* double tests */ { double dr; dr = d_d(d1); fprintf(out,"->%g\n",dr); fflush(out); dr = 0.0; clear_traces(); callback = alloc_callback(&d_d_simulator,(void*)&d_d); dr = ((double (*) (double)) callback) (d1); fprintf(out,"->%g\n",dr); fflush(out); dr = d_d2(d1,d2); fprintf(out,"->%g\n",dr); fflush(out); dr = 0.0; clear_traces(); callback = alloc_callback(&d_d2_simulator,(void*)&d_d2); dr = ((double (*) (double,double)) callback) (d1,d2); fprintf(out,"->%g\n",dr); fflush(out); dr = d_d4(d1,d2,d3,d4); fprintf(out,"->%g\n",dr); fflush(out); dr = 0.0; clear_traces(); callback = alloc_callback(&d_d4_simulator,(void*)&d_d4); dr = ((double (*) (double,double,double,double)) callback) (d1,d2,d3,d4); fprintf(out,"->%g\n",dr); fflush(out); dr = d_d8(d1,d2,d3,d4,d5,d6,d7,d8); fprintf(out,"->%g\n",dr); fflush(out); dr = 0.0; clear_traces(); callback = alloc_callback(&d_d8_simulator,(void*)&d_d8); dr = ((double (*) (double,double,double,double,double,double,double,double)) callback) (d1,d2,d3,d4,d5,d6,d7,d8); fprintf(out,"->%g\n",dr); fflush(out); dr = d_d16(d1,d2,d3,d4,d5,d6,d7,d8,d9,d10,d11,d12,d13,d14,d15,d16); fprintf(out,"->%g\n",dr); fflush(out); dr = 0.0; clear_traces(); callback = alloc_callback(&d_d16_simulator,(void*)&d_d16); dr = ((double (*) (double,double,double,double,double,double,double,double,double,double,double,double,double,double,double,double)) callback) (d1,d2,d3,d4,d5,d6,d7,d8,d9,d10,d11,d12,d13,d14,d15,d16); fprintf(out,"->%g\n",dr); fflush(out); } /* pointer tests */ { void* vpr; vpr = vp_vpdpcpsp(&uc1,&d2,str3,&I4); fprintf(out,"->0x%p\n",vpr); fflush(out); vpr = 0; clear_traces(); callback = alloc_callback(&vp_vpdpcpsp_simulator,(void*)&vp_vpdpcpsp); vpr = ((void* (*) (void*,double*,char*,Int*)) callback) (&uc1,&d2,str3,&I4); fprintf(out,"->0x%p\n",vpr); fflush(out); } /* mixed number tests */ { uchar ucr; ushort usr; float fr; double dr; long long llr; ucr = uc_ucsil(uc1,us2,ui3,ul4); fprintf(out,"->%u\n",ucr); fflush(out); ucr = 0; clear_traces(); callback = alloc_callback(&uc_ucsil_simulator,(void*)&uc_ucsil); ucr = ((uchar (*) (uchar,ushort,uint,ulong)) callback) (uc1,us2,ui3,ul4); fprintf(out,"->%u\n",ucr); fflush(out); dr = d_iidd(i1,i2,d3,d4); fprintf(out,"->%g\n",dr); fflush(out); dr = 0.0; clear_traces(); callback = alloc_callback(&d_iidd_simulator,(void*)&d_iidd); dr = ((double (*) (int,int,double,double)) callback) (i1,i2,d3,d4); fprintf(out,"->%g\n",dr); fflush(out); dr = d_iiidi(i1,i2,i3,d4,i5); fprintf(out,"->%g\n",dr); fflush(out); dr = 0.0; clear_traces(); callback = alloc_callback(&d_iiidi_simulator,(void*)&d_iiidi); dr = ((double (*) (int,int,int,double,int)) callback) (i1,i2,i3,d4,i5); fprintf(out,"->%g\n",dr); fflush(out); dr = d_idid(i1,d2,i3,d4); fprintf(out,"->%g\n",dr); fflush(out); dr = 0.0; clear_traces(); callback = alloc_callback(&d_idid_simulator,(void*)&d_idid); dr = ((double (*) (int,double,int,double)) callback) (i1,d2,i3,d4); fprintf(out,"->%g\n",dr); fflush(out); dr = d_fdi(f1,d2,i3); fprintf(out,"->%g\n",dr); fflush(out); dr = 0.0; clear_traces(); callback = alloc_callback(&d_fdi_simulator,(void*)&d_fdi); dr = ((double (*) (float,double,int)) callback) (f1,d2,i3); fprintf(out,"->%g\n",dr); fflush(out); usr = us_cdcd(c1,d2,c3,d4); fprintf(out,"->%u\n",usr); fflush(out); usr = 0; clear_traces(); callback = alloc_callback(&us_cdcd_simulator,(void*)&us_cdcd); usr = ((ushort (*) (char,double,char,double)) callback) (c1,d2,c3,d4); fprintf(out,"->%u\n",usr); fflush(out); llr = ll_iiilli(i1,i2,i3,ll1,i13); fprintf(out,"->0x%lx%08lx\n",(long)(llr>>32),(long)(llr&0xffffffff)); fflush(out); llr = 0; clear_traces(); callback = alloc_callback(&ll_iiilli_simulator,(void*)&ll_iiilli); llr = ((long long (*) (int,int,int,long long,int)) callback) (i1,i2,i3,ll1,i13); fprintf(out,"->0x%lx%08lx\n",(long)(llr>>32),(long)(llr&0xffffffff)); fflush(out); llr = ll_flli(f13,ll1,i13); fprintf(out,"->0x%lx%08lx\n",(long)(llr>>32),(long)(llr&0xffffffff)); fflush(out); llr = 0; clear_traces(); callback = alloc_callback(&ll_flli_simulator,(void*)&ll_flli); llr = ((long long (*) (float,long long,int)) callback) (f13,ll1,i13); fprintf(out,"->0x%lx%08lx\n",(long)(llr>>32),(long)(llr&0xffffffff)); fflush(out); fr = f_fi(f1,i9); fprintf(out,"->%g\n",fr); fflush(out); fr = 0.0; clear_traces(); callback = alloc_callback(&f_fi_simulator,(void*)&f_fi); fr = ((float (*) (float,int)) callback) (f1,i9); fprintf(out,"->%g\n",fr); fflush(out); fr = f_f2i(f1,f2,i9); fprintf(out,"->%g\n",fr); fflush(out); fr = 0.0; clear_traces(); callback = alloc_callback(&f_f2i_simulator,(void*)&f_f2i); fr = ((float (*) (float,float,int)) callback) (f1,f2,i9); fprintf(out,"->%g\n",fr); fflush(out); fr = f_f3i(f1,f2,f3,i9); fprintf(out,"->%g\n",fr); fflush(out); fr = 0.0; clear_traces(); callback = alloc_callback(&f_f3i_simulator,(void*)&f_f3i); fr = ((float (*) (float,float,float,int)) callback) (f1,f2,f3,i9); fprintf(out,"->%g\n",fr); fflush(out); fr = f_f4i(f1,f2,f3,f4,i9); fprintf(out,"->%g\n",fr); fflush(out); fr = 0.0; clear_traces(); callback = alloc_callback(&f_f4i_simulator,(void*)&f_f4i); fr = ((float (*) (float,float,float,float,int)) callback) (f1,f2,f3,f4,i9); fprintf(out,"->%g\n",fr); fflush(out); fr = f_f7i(f1,f2,f3,f4,f5,f6,f7,i9); fprintf(out,"->%g\n",fr); fflush(out); fr = 0.0; clear_traces(); callback = alloc_callback(&f_f7i_simulator,(void*)&f_f7i); fr = ((float (*) (float,float,float,float,float,float,float,int)) callback) (f1,f2,f3,f4,f5,f6,f7,i9); fprintf(out,"->%g\n",fr); fflush(out); fr = f_f8i(f1,f2,f3,f4,f5,f6,f7,f8,i9); fprintf(out,"->%g\n",fr); fflush(out); fr = 0.0; clear_traces(); callback = alloc_callback(&f_f8i_simulator,(void*)&f_f8i); fr = ((float (*) (float,float,float,float,float,float,float,float,int)) callback) (f1,f2,f3,f4,f5,f6,f7,f8,i9); fprintf(out,"->%g\n",fr); fflush(out); fr = f_f12i(f1,f2,f3,f4,f5,f6,f7,f8,f9,f10,f11,f12,i9); fprintf(out,"->%g\n",fr); fflush(out); fr = 0.0; clear_traces(); callback = alloc_callback(&f_f12i_simulator,(void*)&f_f12i); fr = ((float (*) (float,float,float,float,float,float,float,float,float,float,float,float,int)) callback) (f1,f2,f3,f4,f5,f6,f7,f8,f9,f10,f11,f12,i9); fprintf(out,"->%g\n",fr); fflush(out); fr = f_f13i(f1,f2,f3,f4,f5,f6,f7,f8,f9,f10,f11,f12,f13,i9); fprintf(out,"->%g\n",fr); fflush(out); fr = 0.0; clear_traces(); callback = alloc_callback(&f_f13i_simulator,(void*)&f_f13i); fr = ((float (*) (float,float,float,float,float,float,float,float,float,float,float,float,float,int)) callback) (f1,f2,f3,f4,f5,f6,f7,f8,f9,f10,f11,f12,f13,i9); fprintf(out,"->%g\n",fr); fflush(out); dr = d_di(d1,i9); fprintf(out,"->%g\n",dr); fflush(out); dr = 0.0; clear_traces(); callback = alloc_callback(&d_di_simulator,(void*)&d_di); dr = ((double (*) (double,int)) callback) (d1,i9); fprintf(out,"->%g\n",dr); fflush(out); dr = d_d2i(d1,d2,i9); fprintf(out,"->%g\n",dr); fflush(out); dr = 0.0; clear_traces(); callback = alloc_callback(&d_d2i_simulator,(void*)&d_d2i); dr = ((double (*) (double,double,int)) callback) (d1,d2,i9); fprintf(out,"->%g\n",dr); fflush(out); dr = d_d3i(d1,d2,d3,i9); fprintf(out,"->%g\n",dr); fflush(out); dr = 0.0; clear_traces(); callback = alloc_callback(&d_d3i_simulator,(void*)&d_d3i); dr = ((double (*) (double,double,double,int)) callback) (d1,d2,d3,i9); fprintf(out,"->%g\n",dr); fflush(out); dr = d_d4i(d1,d2,d3,d4,i9); fprintf(out,"->%g\n",dr); fflush(out); dr = 0.0; clear_traces(); callback = alloc_callback(&d_d4i_simulator,(void*)&d_d4i); dr = ((double (*) (double,double,double,double,int)) callback) (d1,d2,d3,d4,i9); fprintf(out,"->%g\n",dr); fflush(out); dr = d_d7i(d1,d2,d3,d4,d5,d6,d7,i9); fprintf(out,"->%g\n",dr); fflush(out); dr = 0.0; clear_traces(); callback = alloc_callback(&d_d7i_simulator,(void*)&d_d7i); dr = ((double (*) (double,double,double,double,double,double,double,int)) callback) (d1,d2,d3,d4,d5,d6,d7,i9); fprintf(out,"->%g\n",dr); fflush(out); dr = d_d8i(d1,d2,d3,d4,d5,d6,d7,d8,i9); fprintf(out,"->%g\n",dr); fflush(out); dr = 0.0; clear_traces(); callback = alloc_callback(&d_d8i_simulator,(void*)&d_d8i); dr = ((double (*) (double,double,double,double,double,double,double,double,int)) callback) (d1,d2,d3,d4,d5,d6,d7,d8,i9); fprintf(out,"->%g\n",dr); fflush(out); dr = d_d12i(d1,d2,d3,d4,d5,d6,d7,d8,d9,d10,d11,d12,i9); fprintf(out,"->%g\n",dr); fflush(out); dr = 0.0; clear_traces(); callback = alloc_callback(&d_d12i_simulator,(void*)&d_d12i); dr = ((double (*) (double,double,double,double,double,double,double,double,double,double,double,double,int)) callback) (d1,d2,d3,d4,d5,d6,d7,d8,d9,d10,d11,d12,i9); fprintf(out,"->%g\n",dr); fflush(out); dr = d_d13i(d1,d2,d3,d4,d5,d6,d7,d8,d9,d10,d11,d12,d13,i9); fprintf(out,"->%g\n",dr); fflush(out); dr = 0.0; clear_traces(); callback = alloc_callback(&d_d13i_simulator,(void*)&d_d13i); dr = ((double (*) (double,double,double,double,double,double,double,double,double,double,double,double,double,int)) callback) (d1,d2,d3,d4,d5,d6,d7,d8,d9,d10,d11,d12,d13,i9); fprintf(out,"->%g\n",dr); fflush(out); } /* small structure return tests */ { Size1 r = S1_v(); fprintf(out,"->{%c}\n",r.x1); fflush(out); memset(&r,0,sizeof(r)); clear_traces(); callback = alloc_callback(&S1_v_simulator,(void*)&S1_v); r = ((Size1 (*) (void)) callback) (); fprintf(out,"->{%c}\n",r.x1); fflush(out); } { Size2 r = S2_v(); fprintf(out,"->{%c%c}\n",r.x1,r.x2); fflush(out); memset(&r,0,sizeof(r)); clear_traces(); callback = alloc_callback(&S2_v_simulator,(void*)&S2_v); r = ((Size2 (*) (void)) callback) (); fprintf(out,"->{%c%c}\n",r.x1,r.x2); fflush(out); } { Size3 r = S3_v(); fprintf(out,"->{%c%c%c}\n",r.x1,r.x2,r.x3); fflush(out); memset(&r,0,sizeof(r)); clear_traces(); callback = alloc_callback(&S3_v_simulator,(void*)&S3_v); r = ((Size3 (*) (void)) callback) (); fprintf(out,"->{%c%c%c}\n",r.x1,r.x2,r.x3); fflush(out); } { Size4 r = S4_v(); fprintf(out,"->{%c%c%c%c}\n",r.x1,r.x2,r.x3,r.x4); fflush(out); memset(&r,0,sizeof(r)); clear_traces(); callback = alloc_callback(&S4_v_simulator,(void*)&S4_v); r = ((Size4 (*) (void)) callback) (); fprintf(out,"->{%c%c%c%c}\n",r.x1,r.x2,r.x3,r.x4); fflush(out); } { Size7 r = S7_v(); fprintf(out,"->{%c%c%c%c%c%c%c}\n",r.x1,r.x2,r.x3,r.x4,r.x5,r.x6,r.x7); fflush(out); memset(&r,0,sizeof(r)); clear_traces(); callback = alloc_callback(&S7_v_simulator,(void*)&S7_v); r = ((Size7 (*) (void)) callback) (); fprintf(out,"->{%c%c%c%c%c%c%c}\n",r.x1,r.x2,r.x3,r.x4,r.x5,r.x6,r.x7); fflush(out); } { Size8 r = S8_v(); fprintf(out,"->{%c%c%c%c%c%c%c%c}\n",r.x1,r.x2,r.x3,r.x4,r.x5,r.x6,r.x7,r.x8); fflush(out); memset(&r,0,sizeof(r)); clear_traces(); callback = alloc_callback(&S8_v_simulator,(void*)&S8_v); r = ((Size8 (*) (void)) callback) (); fprintf(out,"->{%c%c%c%c%c%c%c%c}\n",r.x1,r.x2,r.x3,r.x4,r.x5,r.x6,r.x7,r.x8); fflush(out); } { Size12 r = S12_v(); fprintf(out,"->{%c%c%c%c%c%c%c%c%c%c%c%c}\n",r.x1,r.x2,r.x3,r.x4,r.x5,r.x6,r.x7,r.x8,r.x9,r.x10,r.x11,r.x12); fflush(out); memset(&r,0,sizeof(r)); clear_traces(); callback = alloc_callback(&S12_v_simulator,(void*)&S12_v); r = ((Size12 (*) (void)) callback) (); fprintf(out,"->{%c%c%c%c%c%c%c%c%c%c%c%c}\n",r.x1,r.x2,r.x3,r.x4,r.x5,r.x6,r.x7,r.x8,r.x9,r.x10,r.x11,r.x12); fflush(out); } { Size15 r = S15_v(); fprintf(out,"->{%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c}\n",r.x1,r.x2,r.x3,r.x4,r.x5,r.x6,r.x7,r.x8,r.x9,r.x10,r.x11,r.x12,r.x13,r.x14,r.x15); fflush(out); memset(&r,0,sizeof(r)); clear_traces(); callback = alloc_callback(&S15_v_simulator,(void*)&S15_v); r = ((Size15 (*) (void)) callback) (); fprintf(out,"->{%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c}\n",r.x1,r.x2,r.x3,r.x4,r.x5,r.x6,r.x7,r.x8,r.x9,r.x10,r.x11,r.x12,r.x13,r.x14,r.x15); fflush(out); } { Size16 r = S16_v(); fprintf(out,"->{%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c}\n",r.x1,r.x2,r.x3,r.x4,r.x5,r.x6,r.x7,r.x8,r.x9,r.x10,r.x11,r.x12,r.x13,r.x14,r.x15,r.x16); fflush(out); memset(&r,0,sizeof(r)); clear_traces(); callback = alloc_callback(&S16_v_simulator,(void*)&S16_v); r = ((Size16 (*) (void)) callback) (); fprintf(out,"->{%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c}\n",r.x1,r.x2,r.x3,r.x4,r.x5,r.x6,r.x7,r.x8,r.x9,r.x10,r.x11,r.x12,r.x13,r.x14,r.x15,r.x16); fflush(out); } /* structure tests */ { Int Ir; Char Cr; Float Fr; Double Dr; J Jr; T Tr; X Xr; Ir = I_III(I1,I2,I3); fprintf(out,"->{%d}\n",Ir.x); fflush(out); Ir.x = 0; clear_traces(); callback = alloc_callback(&I_III_simulator,(void*)&I_III); Ir = ((Int (*) (Int,Int,Int)) callback) (I1,I2,I3); fprintf(out,"->{%d}\n",Ir.x); fflush(out); #ifndef SKIP_EXTRA_STRUCTS Cr = C_CdC(C1,d2,C3); fprintf(out,"->{'%c'}\n",Cr.x); fflush(out); Cr.x = '\0'; clear_traces(); callback = alloc_callback(&C_CdC_simulator,(void*)&C_CdC); Cr = ((Char (*) (Char,double,Char)) callback) (C1,d2,C3); fprintf(out,"->{'%c'}\n",Cr.x); fflush(out); Fr = F_Ffd(F1,f2,d3); fprintf(out,"->{%g}\n",Fr.x); fflush(out); Fr.x = 0.0; clear_traces(); callback = alloc_callback(&F_Ffd_simulator,(void*)&F_Ffd); Fr = ((Float (*) (Float,float,double)) callback) (F1,f2,d3); fprintf(out,"->{%g}\n",Fr.x); fflush(out); Dr = D_fDd(f1,D2,d3); fprintf(out,"->{%g}\n",Dr.x); fflush(out); Dr.x = 0.0; clear_traces(); callback = alloc_callback(&D_fDd_simulator,(void*)&D_fDd); Dr = ((Double (*) (float,Double,double)) callback) (f1,D2,d3); fprintf(out,"->{%g}\n",Dr.x); fflush(out); Dr = D_Dfd(D1,f2,d3); fprintf(out,"->{%g}\n",Dr.x); fflush(out); Dr.x = 0.0; clear_traces(); callback = alloc_callback(&D_Dfd_simulator,(void*)&D_Dfd); Dr = ((Double (*) (Double,float,double)) callback) (D1,f2,d3); fprintf(out,"->{%g}\n",Dr.x); fflush(out); #endif Jr = J_JiJ(J1,i2,J2); fprintf(out,"->{%ld,%ld}\n",Jr.l1,Jr.l2); fflush(out); Jr.l1 = Jr.l2 = 0; clear_traces(); callback = alloc_callback(&J_JiJ_simulator,(void*)&J_JiJ); Jr = ((J (*) (J,int,J)) callback) (J1,i2,J2); fprintf(out,"->{%ld,%ld}\n",Jr.l1,Jr.l2); fflush(out); #ifndef SKIP_EXTRA_STRUCTS #ifndef SKIP_T Tr = T_TcT(T1,' ',T2); fprintf(out,"->{\"%c%c%c\"}\n",Tr.c[0],Tr.c[1],Tr.c[2]); fflush(out); Tr.c[0] = Tr.c[1] = Tr.c[2] = 0; clear_traces(); callback = alloc_callback(&T_TcT_simulator,(void*)&T_TcT); Tr = ((T (*) (T,char,T)) callback) (T1,' ',T2); fprintf(out,"->{\"%c%c%c\"}\n",Tr.c[0],Tr.c[1],Tr.c[2]); fflush(out); #endif #ifndef SKIP_X Xr = X_BcdB(B1,c2,d3,B2); fprintf(out,"->{\"%s\",'%c'}\n",Xr.c,Xr.c1); fflush(out); Xr.c[0]=Xr.c1='\0'; clear_traces(); callback = alloc_callback(&X_BcdB_simulator,(void*)&X_BcdB); Xr = ((X (*) (B,char,double,B)) callback) (B1,c2,d3,B2); fprintf(out,"->{\"%s\",'%c'}\n",Xr.c,Xr.c1); fflush(out); #endif #endif } /* gpargs boundary tests */ { long lr; long long llr; float fr; double dr; lr = l_l0J(J1,l9); fprintf(out,"->%ld\n",lr); fflush(out); lr = 0; clear_traces(); callback = alloc_callback(&l_l0J_simulator,(void*)l_l0J); lr = ((long (*) (J,long)) callback) (J1,l9); fprintf(out,"->%ld\n",lr); fflush(out); lr = l_l1J(l1,J1,l9); fprintf(out,"->%ld\n",lr); fflush(out); lr = 0; clear_traces(); callback = alloc_callback(&l_l1J_simulator,(void*)l_l1J); lr = ((long (*) (long,J,long)) callback) (l1,J1,l9); fprintf(out,"->%ld\n",lr); fflush(out); lr = l_l2J(l1,l2,J1,l9); fprintf(out,"->%ld\n",lr); fflush(out); lr = 0; clear_traces(); callback = alloc_callback(&l_l2J_simulator,(void*)l_l2J); lr = ((long (*) (long,long,J,long)) callback) (l1,l2,J1,l9); fprintf(out,"->%ld\n",lr); fflush(out); lr = l_l3J(l1,l2,l3,J1,l9); fprintf(out,"->%ld\n",lr); fflush(out); lr = 0; clear_traces(); callback = alloc_callback(&l_l3J_simulator,(void*)l_l3J); lr = ((long (*) (long,long,long,J,long)) callback) (l1,l2,l3,J1,l9); fprintf(out,"->%ld\n",lr); fflush(out); lr = l_l4J(l1,l2,l3,l4,J1,l9); fprintf(out,"->%ld\n",lr); fflush(out); lr = 0; clear_traces(); callback = alloc_callback(&l_l4J_simulator,(void*)l_l4J); lr = ((long (*) (long,long,long,long,J,long)) callback) (l1,l2,l3,l4,J1,l9); fprintf(out,"->%ld\n",lr); fflush(out); lr = l_l5J(l1,l2,l3,l4,l5,J1,l9); fprintf(out,"->%ld\n",lr); fflush(out); lr = 0; clear_traces(); callback = alloc_callback(&l_l5J_simulator,(void*)l_l5J); lr = ((long (*) (long,long,long,long,long,J,long)) callback) (l1,l2,l3,l4,l5,J1,l9); fprintf(out,"->%ld\n",lr); fflush(out); lr = l_l6J(l1,l2,l3,l4,l5,l6,J1,l9); fprintf(out,"->%ld\n",lr); fflush(out); lr = 0; clear_traces(); callback = alloc_callback(&l_l6J_simulator,(void*)l_l6J); lr = ((long (*) (long,long,long,long,long,long,J,long)) callback) (l1,l2,l3,l4,l5,l6,J1,l9); fprintf(out,"->%ld\n",lr); fflush(out); lr = l_l7J(l1,l2,l3,l4,l5,l6,l7,J1,l9); fprintf(out,"->%ld\n",lr); fflush(out); lr = 0; clear_traces(); callback = alloc_callback(&l_l7J_simulator,(void*)l_l7J); lr = ((long (*) (long,long,long,long,long,long,long,J,long)) callback) (l1,l2,l3,l4,l5,l6,l7,J1,l9); fprintf(out,"->%ld\n",lr); fflush(out); lr = l_l0K(K1,l9); fprintf(out,"->%ld\n",lr); fflush(out); lr = 0; clear_traces(); callback = alloc_callback(&l_l0K_simulator,(void*)l_l0K); lr = ((long (*) (K,long)) callback) (K1,l9); fprintf(out,"->%ld\n",lr); fflush(out); lr = l_l1K(l1,K1,l9); fprintf(out,"->%ld\n",lr); fflush(out); lr = 0; clear_traces(); callback = alloc_callback(&l_l1K_simulator,(void*)l_l1K); lr = ((long (*) (long,K,long)) callback) (l1,K1,l9); fprintf(out,"->%ld\n",lr); fflush(out); lr = l_l2K(l1,l2,K1,l9); fprintf(out,"->%ld\n",lr); fflush(out); lr = 0; clear_traces(); callback = alloc_callback(&l_l2K_simulator,(void*)l_l2K); lr = ((long (*) (long,long,K,long)) callback) (l1,l2,K1,l9); fprintf(out,"->%ld\n",lr); fflush(out); lr = l_l3K(l1,l2,l3,K1,l9); fprintf(out,"->%ld\n",lr); fflush(out); lr = 0; clear_traces(); callback = alloc_callback(&l_l3K_simulator,(void*)l_l3K); lr = ((long (*) (long,long,long,K,long)) callback) (l1,l2,l3,K1,l9); fprintf(out,"->%ld\n",lr); fflush(out); lr = l_l4K(l1,l2,l3,l4,K1,l9); fprintf(out,"->%ld\n",lr); fflush(out); lr = 0; clear_traces(); callback = alloc_callback(&l_l4K_simulator,(void*)l_l4K); lr = ((long (*) (long,long,long,long,K,long)) callback) (l1,l2,l3,l4,K1,l9); fprintf(out,"->%ld\n",lr); fflush(out); lr = l_l5K(l1,l2,l3,l4,l5,K1,l9); fprintf(out,"->%ld\n",lr); fflush(out); lr = 0; clear_traces(); callback = alloc_callback(&l_l5K_simulator,(void*)l_l5K); lr = ((long (*) (long,long,long,long,long,K,long)) callback) (l1,l2,l3,l4,l5,K1,l9); fprintf(out,"->%ld\n",lr); fflush(out); lr = l_l6K(l1,l2,l3,l4,l5,l6,K1,l9); fprintf(out,"->%ld\n",lr); fflush(out); lr = 0; clear_traces(); callback = alloc_callback(&l_l6K_simulator,(void*)l_l6K); lr = ((long (*) (long,long,long,long,long,long,K,long)) callback) (l1,l2,l3,l4,l5,l6,K1,l9); fprintf(out,"->%ld\n",lr); fflush(out); fr = f_f17l3L(f1,f2,f3,f4,f5,f6,f7,f8,f9,f10,f11,f12,f13,f14,f15,f16,f17,l6,l7,l8,L1); fprintf(out,"->%g\n",fr); fflush(out); fr = 0.0; clear_traces(); callback = alloc_callback(&f_f17l3L_simulator,(void*)&f_f17l3L); fr = ((float (*) (float,float,float,float,float,float,float,float,float,float,float,float,float,float,float,float,float,long,long,long,L)) callback) (f1,f2,f3,f4,f5,f6,f7,f8,f9,f10,f11,f12,f13,f14,f15,f16,f17,l6,l7,l8,L1); fprintf(out,"->%g\n",fr); fflush(out); dr = d_d17l3L(d1,d2,d3,d4,d5,d6,d7,d8,d9,d10,d11,d12,d13,d14,d15,d16,d17,l6,l7,l8,L1); fprintf(out,"->%g\n",dr); fflush(out); dr = 0.0; clear_traces(); callback = alloc_callback(&d_d17l3L_simulator,(void*)&d_d17l3L); dr = ((double (*) (double,double,double,double,double,double,double,double,double,double,double,double,double,double,double,double,double,long,long,long,L)) callback) (d1,d2,d3,d4,d5,d6,d7,d8,d9,d10,d11,d12,d13,d14,d15,d16,d17,l6,l7,l8,L1); fprintf(out,"->%g\n",dr); fflush(out); llr = ll_l2ll(l1,l2,ll1,l9); fprintf(out,"->0x%lx%08lx\n",(long)(llr>>32),(long)(llr&0xffffffff)); fflush(out); llr = 0; clear_traces(); callback = alloc_callback(&ll_l2ll_simulator,(void*)ll_l2ll); llr = ((long long (*) (long,long,long long,long)) callback) (l1,l2,ll1,l9); fprintf(out,"->0x%lx%08lx\n",(long)(llr>>32),(long)(llr&0xffffffff)); fflush(out); llr = ll_l3ll(l1,l2,l3,ll1,l9); fprintf(out,"->0x%lx%08lx\n",(long)(llr>>32),(long)(llr&0xffffffff)); fflush(out); llr = 0; clear_traces(); callback = alloc_callback(&ll_l3ll_simulator,(void*)ll_l3ll); llr = ((long long (*) (long,long,long,long long,long)) callback) (l1,l2,l3,ll1,l9); fprintf(out,"->0x%lx%08lx\n",(long)(llr>>32),(long)(llr&0xffffffff)); fflush(out); llr = ll_l4ll(l1,l2,l3,l4,ll1,l9); fprintf(out,"->0x%lx%08lx\n",(long)(llr>>32),(long)(llr&0xffffffff)); fflush(out); llr = 0; clear_traces(); callback = alloc_callback(&ll_l4ll_simulator,(void*)ll_l4ll); llr = ((long long (*) (long,long,long,long,long long,long)) callback) (l1,l2,l3,l4,ll1,l9); fprintf(out,"->0x%lx%08lx\n",(long)(llr>>32),(long)(llr&0xffffffff)); fflush(out); llr = ll_l5ll(l1,l2,l3,l4,l5,ll1,l9); fprintf(out,"->0x%lx%08lx\n",(long)(llr>>32),(long)(llr&0xffffffff)); fflush(out); llr = 0; clear_traces(); callback = alloc_callback(&ll_l5ll_simulator,(void*)ll_l5ll); llr = ((long long (*) (long,long,long,long,long,long long,long)) callback) (l1,l2,l3,l4,l5,ll1,l9); fprintf(out,"->0x%lx%08lx\n",(long)(llr>>32),(long)(llr&0xffffffff)); fflush(out); llr = ll_l6ll(l1,l2,l3,l4,l5,l6,ll1,l9); fprintf(out,"->0x%lx%08lx\n",(long)(llr>>32),(long)(llr&0xffffffff)); fflush(out); llr = 0; clear_traces(); callback = alloc_callback(&ll_l6ll_simulator,(void*)ll_l6ll); llr = ((long long (*) (long,long,long,long,long,long,long long,long)) callback) (l1,l2,l3,l4,l5,l6,ll1,l9); fprintf(out,"->0x%lx%08lx\n",(long)(llr>>32),(long)(llr&0xffffffff)); fflush(out); llr = ll_l7ll(l1,l2,l3,l4,l5,l6,l7,ll1,l9); fprintf(out,"->0x%lx%08lx\n",(long)(llr>>32),(long)(llr&0xffffffff)); fflush(out); llr = 0; clear_traces(); callback = alloc_callback(&ll_l7ll_simulator,(void*)ll_l7ll); llr = ((long long (*) (long,long,long,long,long,long,long,long long,long)) callback) (l1,l2,l3,l4,l5,l6,l7,ll1,l9); fprintf(out,"->0x%lx%08lx\n",(long)(llr>>32),(long)(llr&0xffffffff)); fflush(out); dr = d_l2d(l1,l2,ll1,l9); fprintf(out,"->%g\n",dr); fflush(out); dr = 0.0; clear_traces(); callback = alloc_callback(&d_l2d_simulator,(void*)d_l2d); dr = ((double (*) (long,long,double,long)) callback) (l1,l2,ll1,l9); fprintf(out,"->%g\n",dr); fflush(out); dr = d_l3d(l1,l2,l3,ll1,l9); fprintf(out,"->%g\n",dr); fflush(out); dr = 0.0; clear_traces(); callback = alloc_callback(&d_l3d_simulator,(void*)d_l3d); dr = ((double (*) (long,long,long,double,long)) callback) (l1,l2,l3,ll1,l9); fprintf(out,"->%g\n",dr); fflush(out); dr = d_l4d(l1,l2,l3,l4,ll1,l9); fprintf(out,"->%g\n",dr); fflush(out); dr = 0.0; clear_traces(); callback = alloc_callback(&d_l4d_simulator,(void*)d_l4d); dr = ((double (*) (long,long,long,long,double,long)) callback) (l1,l2,l3,l4,ll1,l9); fprintf(out,"->%g\n",dr); fflush(out); dr = d_l5d(l1,l2,l3,l4,l5,ll1,l9); fprintf(out,"->%g\n",dr); fflush(out); dr = 0.0; clear_traces(); callback = alloc_callback(&d_l5d_simulator,(void*)d_l5d); dr = ((double (*) (long,long,long,long,long,double,long)) callback) (l1,l2,l3,l4,l5,ll1,l9); fprintf(out,"->%g\n",dr); fflush(out); dr = d_l6d(l1,l2,l3,l4,l5,l6,ll1,l9); fprintf(out,"->%g\n",dr); fflush(out); dr = 0.0; clear_traces(); callback = alloc_callback(&d_l6d_simulator,(void*)d_l6d); dr = ((double (*) (long,long,long,long,long,long,double,long)) callback) (l1,l2,l3,l4,l5,l6,ll1,l9); fprintf(out,"->%g\n",dr); fflush(out); dr = d_l7d(l1,l2,l3,l4,l5,l6,l7,ll1,l9); fprintf(out,"->%g\n",dr); fflush(out); dr = 0.0; clear_traces(); callback = alloc_callback(&d_l7d_simulator,(void*)d_l7d); dr = ((double (*) (long,long,long,long,long,long,long,double,long)) callback) (l1,l2,l3,l4,l5,l6,l7,ll1,l9); fprintf(out,"->%g\n",dr); fflush(out); } /* by-value tests */ /* This test is trivial, since a copy of k is allocated on the callee's stack. But anyway... */ { K k; k.l1 = l1; k.l2 = l2; k.l3 = l3; k.l4 = l4; fprintf(out,"by_value:%ld,%ld,%ld,%ld\n",k.l1,k.l2,k.l3,k.l4); fflush(out); clear_traces(); callback = alloc_callback(&v_clobber_K_simulator,(void*)v_clobber_K); ((void (*) (K)) callback) (k); fprintf(out,"by_value:%ld,%ld,%ld,%ld\n",k.l1,k.l2,k.l3,k.l4); fflush(out); } exit(0); } libffcall-2.2/callback/Makefile.maint0000664000000000000000000000134013153072372014470 00000000000000# maintainer -*-Makefile-*- SHELL = /bin/sh MAKE = make # ==================== Easily regeneratable files ==================== ROFF_MAN = groff -Tutf8 -mandoc all : callback.man \ vacall_r/vacall-i386-msvc.c \ trampoline_r/trampoline_r.man callback.man : callback.3 $(ROFF_MAN) callback.3 > callback.man vacall_r/vacall-i386-msvc.c : vacall_r/vacall-i386-macro.S cd vacall_r && $(MAKE) -f Makefile.maint vacall-i386-msvc.c trampoline_r/trampoline_r.man : trampoline_r/trampoline_r.3 cd trampoline_r && $(MAKE) -f Makefile.maint trampoline_r.man totally-clean : force $(RM) callback.man cd vacall_r && $(MAKE) -f Makefile.maint totally-clean cd trampoline_r && $(MAKE) -f Makefile.maint totally-clean force : libffcall-2.2/callback/callback.html0000664000000000000000000002420713136760230014350 00000000000000 CALLBACK manual page

CALLBACK manual page

Name

 callback - closures with variable arguments as first-class C functions

Synopsis

 
#include <callback.h>


void function (void* data, va_alist alist)
{
  va_start_type(alist[, return_type]);
  arg = va_arg_type(alist[, arg_type]);
  va_return_type(alist[[, return_type], return_value]);
}


callback = alloc_callback(&function, data);


free_callback(callback);


is_callback(callback)
callback_address(callback)
callback_data(callback)

Description

 These functions implement closures with variable arguments as first-class C functions.

Closures as first-class C functions means that they fit into a function pointer and can be called exactly like any other C function. Moreover, they can be called with variable arguments and can return variable return values.

callback = alloc_callback(&function, data) allocates a callback. When callback gets called, it arranges to call function, passing data as first argument and, as second argument, the entire sequence of arguments passed to callback.

Function calling conventions differ considerably on different machines, therefore the arguments are accessed and the result value is stored through the same macros as used by the vacall package, see below.

The callbacks are functions with indefinite extent: callback is only deallocated when free_callback(callback) is called.

is_callback(callback) checks whether the C function callback was produced by a call to alloc_callback. If this returns true, the arguments given to alloc_callback can be retrieved:

  • callback_address(callback) returns &function,
  • callback_data(callback) returns data.

VACALL macros

 Within function, the following macros can be used to walk through the argument list and specify a return value: 

va_start_type(alist[, return_type]);
starts the walk through the argument list and specifies the return type. 

arg = va_arg_type(alist[, arg_type]);
fetches the next argument from the argument list. 

va_return_type(alist[[, return_type], return_value]);
ends the walk through the argument list and specifies the return value.

The type in va_start_type and va_return_type shall be one of void, int, uint, long, ulong, longlong, ulonglong, double, struct, ptr or (for ANSI C calling conventions only) char, schar, uchar, short, ushort, float, depending on the class of return_type.

The type specifiers in va_start_type and va_return_type must be the same. The return_type specifiers passed to va_start_type and va_return_type must be the same.

The type in va_arg_type shall be one of int, uint, long, ulong, longlong, ulonglong, double, struct, ptr or (for ANSI C calling conventions only) char, schar, uchar, short, ushort, float, depending on the class of arg_type.

In va_start_struct(alist, return_type, splittable); the splittable flag specifies whether the struct return_type can be returned in registers such that every struct field fits entirely in a single register. This needs to be specified for structs of size 2*sizeof(long). For structs of size <= sizeof(long), splittable is ignored and assumed to be 1. For structs of size > 2*sizeof(long), splittable is ignored and assumed to be 0. There are some handy macros for this: 

va_word_splittable_1 (type1)
va_word_splittable_2 (type1, type2)
va_word_splittable_3 (type1, type2, type3)
va_word_splittable_4 (type1, type2, type3, type4)
For a struct with three slots 
struct { type1 id1; type2 id2; type3 id3; }
you can specify splittable as va_word_splittable_3 (type1, type2, type3).

Notes
  1. Functions which want to emulate Kernighan & Ritchie style functions (i.e., in ANSI C, functions without a typed argument list) cannot use the type values char, schar, uchar, short, ushort, float. As prescribed by the default K&R C expression promotions, they have to use int instead of char, schar, uchar, short, ushort and double instead of float.

  2. The macros va_start_longlong(), va_start_ulonglong(), va_return_longlong(), va_return_ulonglong(), va_arg_longlong() and va_arg_ulonglong() work only if the C compiler has a working long long 64-bit integer type.

  3. The struct types used in va_start_struct() and va_struct() must only contain (signed or unsigned) int, long, long long or pointer fields. Struct types containing (signed or unsigned) char, short, float, double or other structs are not supported.

See also

 vacall(3), trampoline(3).

Bugs

 The current implementations have been tested on a selection of common cases but there are probably still many bugs.

There are typically built-in limits on the size of the argument-list, which may also include the size of any structure arguments.

The decision whether a struct is to be returned in registers or in memory considers only the struct's size and alignment. This is inaccurate: for example, gcc on m68k-next returns struct { char a,b,c; } in registers and struct { char a[3]; } in memory, although both types have the same size and the same alignment.

The argument list can only be walked once.

Non-Bugs

All information is passed in CPU registers and the stack. The callback package is therefore multithread-safe.

Porting

 Porting callback consists in first porting the vacall and trampoline packages, then choosing a CPU register for passing the closure from trampoline to vacall. This register is normally the register designated by STATIC_CHAIN_REGNUM in the gcc source, file gcc-2.7.2/config/cpu/cpu.h.

Author

 Bruno Haible <bruno@clisp.org>

Acknowledgements

 Many ideas were cribbed from the gcc source.

CALLBACK manual page
Bruno Haible <bruno@clisp.org>

Last modified: 1 January 2017. libffcall-2.2/callback/elf-hack.txt0000664000000000000000000000527613146127475014157 00000000000000Workaround against the ELF symbol resolving routine =================================================== On Solaris 2.6 / i386, when the function being jumped to is an external symbol of a shared library, the jump actually points to an ELF indirect jump: jmp *PTR where PTR initially contains the address of some resolving routine which will replace the PTR contents with the actual code address of the function and then jump to the function. Unfortunately, this resolving routine clobbers all three registers: %eax, %edx, %ecx. But %ecx is the register in which we pass the env_t (that points to function and data) to callback_receiver. The same effect is also seen on Linux / x86_64, where r10 is clobbered by the resolving routine (called '_dl_runtime_resolve' in glibc). See https://savannah.gnu.org/bugs/?32466 . The same thing can happen on all platforms that support ELF, since the lexical closure register is always a call-used register (see file call-used-registers.txt). On i386 (and m68k), it would be possible to solve this by passing the env_t as an extra argument on the stack and restore it to the lexical closure register at the beginning of callback_receiver. But this approach becomes too complex for the other CPUs. It is not possible to make a first call to callback_receiver to "straighten things out", because during this first call the lexical closure register gets clobbered and callback_receiver then invokes undefined behaviour. It may be possible to fix this, on some platforms, - by use of "ld -r" to combine object files, so that the code in trampoline_r.o can access callback_receiver directly, or - by use of symbol visibility control, so that callback_receiver is not an external symbol of the shared library any more, or - by an appropriate use of dlsym(). But this is highly platform dependent (linker, compiler, libc) and there may be some platforms for which none of these approaches works. A workaround that was implemented in January 2017 was to 1) modify trampoline_r so that it produces a trampoline that pushes the env_t on the stack (preserving correct stack alignment) instead of putting it in the lexical closure register, 2) insert a couple of instructions at the beginning of callback_receiver that pops this value off the stack and puts in in the lexical closure register. An even simpler workaround is to make callback_receiver a static function, so that the ELF linker does not even see it. Instead introduce a function callback_get_receiver that returns &callback_receiver. This function is global, but since it has a normal calling convention, the ELF symbol resolving routine does not cause trouble the first time callback_get_receiver() is invoked. libffcall-2.2/callback/COPYING0000644000000000000000000004335713026317516012771 00000000000000 GNU GENERAL PUBLIC LICENSE Version 2, June 1991 Copyright (C) 1989, 1991 Free Software Foundation, Inc. 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. Everyone is permitted to copy and distribute verbatim copies of this license document, but changing it is not allowed. Preamble The licenses for most software are designed to take away your freedom to share and change it. By contrast, the GNU General Public License is intended to guarantee your freedom to share and change free software--to make sure the software is free for all its users. This General Public License applies to most of the Free Software Foundation's software and to any other program whose authors commit to using it. (Some other Free Software Foundation software is covered by the GNU Library General Public License instead.) You can apply it to your programs, too. When we speak of free software, we are referring to freedom, not price. Our General Public Licenses are designed to make sure that you have the freedom to distribute copies of free software (and charge for this service if you wish), that you receive source code or can get it if you want it, that you can change the software or use pieces of it in new free programs; and that you know you can do these things. To protect your rights, we need to make restrictions that forbid anyone to deny you these rights or to ask you to surrender the rights. These restrictions translate to certain responsibilities for you if you distribute copies of the software, or if you modify it. For example, if you distribute copies of such a program, whether gratis or for a fee, you must give the recipients all the rights that you have. You must make sure that they, too, receive or can get the source code. And you must show them these terms so they know their rights. We protect your rights with two steps: (1) copyright the software, and (2) offer you this license which gives you legal permission to copy, distribute and/or modify the software. Also, for each author's protection and ours, we want to make certain that everyone understands that there is no warranty for this free software. If the software is modified by someone else and passed on, we want its recipients to know that what they have is not the original, so that any problems introduced by others will not reflect on the original authors' reputations. Finally, any free program is threatened constantly by software patents. We wish to avoid the danger that redistributors of a free program will individually obtain patent licenses, in effect making the program proprietary. To prevent this, we have made it clear that any patent must be licensed for everyone's free use or not licensed at all. The precise terms and conditions for copying, distribution and modification follow. GNU GENERAL PUBLIC LICENSE TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION 0. This License applies to any program or other work which contains a notice placed by the copyright holder saying it may be distributed under the terms of this General Public License. The "Program", below, refers to any such program or work, and a "work based on the Program" means either the Program or any derivative work under copyright law: that is to say, a work containing the Program or a portion of it, either verbatim or with modifications and/or translated into another language. (Hereinafter, translation is included without limitation in the term "modification".) Each licensee is addressed as "you". Activities other than copying, distribution and modification are not covered by this License; they are outside its scope. The act of running the Program is not restricted, and the output from the Program is covered only if its contents constitute a work based on the Program (independent of having been made by running the Program). Whether that is true depends on what the Program does. 1. You may copy and distribute verbatim copies of the Program's source code as you receive it, in any medium, provided that you conspicuously and appropriately publish on each copy an appropriate copyright notice and disclaimer of warranty; keep intact all the notices that refer to this License and to the absence of any warranty; and give any other recipients of the Program a copy of this License along with the Program. You may charge a fee for the physical act of transferring a copy, and you may at your option offer warranty protection in exchange for a fee. 2. You may modify your copy or copies of the Program or any portion of it, thus forming a work based on the Program, and copy and distribute such modifications or work under the terms of Section 1 above, provided that you also meet all of these conditions: a) You must cause the modified files to carry prominent notices stating that you changed the files and the date of any change. b) You must cause any work that you distribute or publish, that in whole or in part contains or is derived from the Program or any part thereof, to be licensed as a whole at no charge to all third parties under the terms of this License. c) If the modified program normally reads commands interactively when run, you must cause it, when started running for such interactive use in the most ordinary way, to print or display an announcement including an appropriate copyright notice and a notice that there is no warranty (or else, saying that you provide a warranty) and that users may redistribute the program under these conditions, and telling the user how to view a copy of this License. (Exception: if the Program itself is interactive but does not normally print such an announcement, your work based on the Program is not required to print an announcement.) These requirements apply to the modified work as a whole. If identifiable sections of that work are not derived from the Program, and can be reasonably considered independent and separate works in themselves, then this License, and its terms, do not apply to those sections when you distribute them as separate works. But when you distribute the same sections as part of a whole which is a work based on the Program, the distribution of the whole must be on the terms of this License, whose permissions for other licensees extend to the entire whole, and thus to each and every part regardless of who wrote it. Thus, it is not the intent of this section to claim rights or contest your rights to work written entirely by you; rather, the intent is to exercise the right to control the distribution of derivative or collective works based on the Program. In addition, mere aggregation of another work not based on the Program with the Program (or with a work based on the Program) on a volume of a storage or distribution medium does not bring the other work under the scope of this License. 3. You may copy and distribute the Program (or a work based on it, under Section 2) in object code or executable form under the terms of Sections 1 and 2 above provided that you also do one of the following: a) Accompany it with the complete corresponding machine-readable source code, which must be distributed under the terms of Sections 1 and 2 above on a medium customarily used for software interchange; or, b) Accompany it with a written offer, valid for at least three years, to give any third party, for a charge no more than your cost of physically performing source distribution, a complete machine-readable copy of the corresponding source code, to be distributed under the terms of Sections 1 and 2 above on a medium customarily used for software interchange; or, c) Accompany it with the information you received as to the offer to distribute corresponding source code. (This alternative is allowed only for noncommercial distribution and only if you received the program in object code or executable form with such an offer, in accord with Subsection b above.) The source code for a work means the preferred form of the work for making modifications to it. For an executable work, complete source code means all the source code for all modules it contains, plus any associated interface definition files, plus the scripts used to control compilation and installation of the executable. However, as a special exception, the source code distributed need not include anything that is normally distributed (in either source or binary form) with the major components (compiler, kernel, and so on) of the operating system on which the executable runs, unless that component itself accompanies the executable. If distribution of executable or object code is made by offering access to copy from a designated place, then offering equivalent access to copy the source code from the same place counts as distribution of the source code, even though third parties are not compelled to copy the source along with the object code. 4. You may not copy, modify, sublicense, or distribute the Program except as expressly provided under this License. Any attempt otherwise to copy, modify, sublicense or distribute the Program is void, and will automatically terminate your rights under this License. However, parties who have received copies, or rights, from you under this License will not have their licenses terminated so long as such parties remain in full compliance. 5. You are not required to accept this License, since you have not signed it. However, nothing else grants you permission to modify or distribute the Program or its derivative works. These actions are prohibited by law if you do not accept this License. Therefore, by modifying or distributing the Program (or any work based on the Program), you indicate your acceptance of this License to do so, and all its terms and conditions for copying, distributing or modifying the Program or works based on it. 6. Each time you redistribute the Program (or any work based on the Program), the recipient automatically receives a license from the original licensor to copy, distribute or modify the Program subject to these terms and conditions. You may not impose any further restrictions on the recipients' exercise of the rights granted herein. You are not responsible for enforcing compliance by third parties to this License. 7. If, as a consequence of a court judgment or allegation of patent infringement or for any other reason (not limited to patent issues), conditions are imposed on you (whether by court order, agreement or otherwise) that contradict the conditions of this License, they do not excuse you from the conditions of this License. If you cannot distribute so as to satisfy simultaneously your obligations under this License and any other pertinent obligations, then as a consequence you may not distribute the Program at all. For example, if a patent license would not permit royalty-free redistribution of the Program by all those who receive copies directly or indirectly through you, then the only way you could satisfy both it and this License would be to refrain entirely from distribution of the Program. If any portion of this section is held invalid or unenforceable under any particular circumstance, the balance of the section is intended to apply and the section as a whole is intended to apply in other circumstances. It is not the purpose of this section to induce you to infringe any patents or other property right claims or to contest validity of any such claims; this section has the sole purpose of protecting the integrity of the free software distribution system, which is implemented by public license practices. Many people have made generous contributions to the wide range of software distributed through that system in reliance on consistent application of that system; it is up to the author/donor to decide if he or she is willing to distribute software through any other system and a licensee cannot impose that choice. This section is intended to make thoroughly clear what is believed to be a consequence of the rest of this License. 8. If the distribution and/or use of the Program is restricted in certain countries either by patents or by copyrighted interfaces, the original copyright holder who places the Program under this License may add an explicit geographical distribution limitation excluding those countries, so that distribution is permitted only in or among countries not thus excluded. In such case, this License incorporates the limitation as if written in the body of this License. 9. The Free Software Foundation may publish revised and/or new versions of the General Public License from time to time. Such new versions will be similar in spirit to the present version, but may differ in detail to address new problems or concerns. Each version is given a distinguishing version number. If the Program specifies a version number of this License which applies to it and "any later version", you have the option of following the terms and conditions either of that version or of any later version published by the Free Software Foundation. If the Program does not specify a version number of this License, you may choose any version ever published by the Free Software Foundation. 10. If you wish to incorporate parts of the Program into other free programs whose distribution conditions are different, write to the author to ask for permission. For software which is copyrighted by the Free Software Foundation, write to the Free Software Foundation; we sometimes make exceptions for this. Our decision will be guided by the two goals of preserving the free status of all derivatives of our free software and of promoting the sharing and reuse of software generally. NO WARRANTY 11. BECAUSE THE PROGRAM IS LICENSED FREE OF CHARGE, THERE IS NO WARRANTY FOR THE PROGRAM, TO THE EXTENT PERMITTED BY APPLICABLE LAW. EXCEPT WHEN OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR OTHER PARTIES PROVIDE THE PROGRAM "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. THE ENTIRE RISK AS TO THE QUALITY AND PERFORMANCE OF THE PROGRAM IS WITH YOU. SHOULD THE PROGRAM PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL NECESSARY SERVICING, REPAIR OR CORRECTION. 12. IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY AND/OR REDISTRIBUTE THE PROGRAM AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES, INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING OUT OF THE USE OR INABILITY TO USE THE PROGRAM (INCLUDING BUT NOT LIMITED TO LOSS OF DATA OR DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY YOU OR THIRD PARTIES OR A FAILURE OF THE PROGRAM TO OPERATE WITH ANY OTHER PROGRAMS), EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGES. END OF TERMS AND CONDITIONS Appendix: How to Apply These Terms to Your New Programs If you develop a new program, and you want it to be of the greatest possible use to the public, the best way to achieve this is to make it free software which everyone can redistribute and change under these terms. To do so, attach the following notices to the program. It is safest to attach them to the start of each source file to most effectively convey the exclusion of warranty; and each file should have at least the "copyright" line and a pointer to where the full notice is found. Copyright (C) This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program; if not, write to the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. Also add information on how to contact you by electronic and paper mail. If the program is interactive, make it output a short notice like this when it starts in an interactive mode: Gnomovision version 69, Copyright (C) year name of author Gnomovision comes with ABSOLUTELY NO WARRANTY; for details type `show w'. This is free software, and you are welcome to redistribute it under certain conditions; type `show c' for details. The hypothetical commands `show w' and `show c' should show the appropriate parts of the General Public License. Of course, the commands you use may be called something other than `show w' and `show c'; they could even be mouse-clicks or menu items--whatever suits your program. You should also get your employer (if you work as a programmer) or your school, if any, to sign a "copyright disclaimer" for the program, if necessary. Here is a sample; alter the names: Yoyodyne, Inc., hereby disclaims all copyright interest in the program `Gnomovision' (which makes passes at compilers) written by James Hacker. , 1 April 1989 Ty Coon, President of Vice This General Public License does not permit incorporating your program into proprietary programs. If your program is a subroutine library, you may consider it more useful to permit linking proprietary applications with the library. If this is what you want to do, use the GNU Library General Public License instead of this License. libffcall-2.2/gnulib-m4/0000775000000000000000000000000013530357260012046 500000000000000libffcall-2.2/gnulib-m4/limits-h.m40000664000000000000000000000244213416710527013762 00000000000000dnl Check whether limits.h has needed features. dnl Copyright 2016-2019 Free Software Foundation, Inc. dnl This file is free software; the Free Software Foundation dnl gives unlimited permission to copy and/or distribute it, dnl with or without modifications, as long as this notice is preserved. dnl From Paul Eggert. AC_DEFUN_ONCE([gl_LIMITS_H], [ gl_CHECK_NEXT_HEADERS([limits.h]) AC_CACHE_CHECK([whether limits.h has LLONG_MAX, WORD_BIT, ULLONG_WIDTH etc.], [gl_cv_header_limits_width], [AC_COMPILE_IFELSE( [AC_LANG_PROGRAM( [[#ifndef __STDC_WANT_IEC_60559_BFP_EXT__ #define __STDC_WANT_IEC_60559_BFP_EXT__ 1 #endif #include long long llm = LLONG_MAX; int wb = WORD_BIT; int ullw = ULLONG_WIDTH; ]])], [gl_cv_header_limits_width=yes], [gl_cv_header_limits_width=no])]) if test "$gl_cv_header_limits_width" = yes; then LIMITS_H= else LIMITS_H=limits.h fi AC_SUBST([LIMITS_H]) AM_CONDITIONAL([GL_GENERATE_LIMITS_H], [test -n "$LIMITS_H"]) ]) dnl Unconditionally enables the replacement of . AC_DEFUN([gl_REPLACE_LIMITS_H], [ AC_REQUIRE([gl_LIMITS_H]) LIMITS_H='limits.h' AM_CONDITIONAL([GL_GENERATE_LIMITS_H], [test -n "$LIMITS_H"]) ]) libffcall-2.2/gnulib-m4/lib-prefix.m40000664000000000000000000002272013416710527014276 00000000000000# lib-prefix.m4 serial 14 dnl Copyright (C) 2001-2005, 2008-2019 Free Software Foundation, Inc. dnl This file is free software; the Free Software Foundation dnl gives unlimited permission to copy and/or distribute it, dnl with or without modifications, as long as this notice is preserved. dnl From Bruno Haible. dnl AC_LIB_PREFIX adds to the CPPFLAGS and LDFLAGS the flags that are needed dnl to access previously installed libraries. The basic assumption is that dnl a user will want packages to use other packages he previously installed dnl with the same --prefix option. dnl This macro is not needed if only AC_LIB_LINKFLAGS is used to locate dnl libraries, but is otherwise very convenient. AC_DEFUN([AC_LIB_PREFIX], [ AC_BEFORE([$0], [AC_LIB_LINKFLAGS]) AC_REQUIRE([AC_PROG_CC]) AC_REQUIRE([AC_CANONICAL_HOST]) AC_REQUIRE([AC_LIB_PREPARE_MULTILIB]) AC_REQUIRE([AC_LIB_PREPARE_PREFIX]) dnl By default, look in $includedir and $libdir. use_additional=yes AC_LIB_WITH_FINAL_PREFIX([ eval additional_includedir=\"$includedir\" eval additional_libdir=\"$libdir\" ]) AC_ARG_WITH([lib-prefix], [[ --with-lib-prefix[=DIR] search for libraries in DIR/include and DIR/lib --without-lib-prefix don't search for libraries in includedir and libdir]], [ if test "X$withval" = "Xno"; then use_additional=no else if test "X$withval" = "X"; then AC_LIB_WITH_FINAL_PREFIX([ eval additional_includedir=\"$includedir\" eval additional_libdir=\"$libdir\" ]) else additional_includedir="$withval/include" additional_libdir="$withval/$acl_libdirstem" fi fi ]) if test $use_additional = yes; then dnl Potentially add $additional_includedir to $CPPFLAGS. dnl But don't add it dnl 1. if it's the standard /usr/include, dnl 2. if it's already present in $CPPFLAGS, dnl 3. if it's /usr/local/include and we are using GCC on Linux, dnl 4. if it doesn't exist as a directory. if test "X$additional_includedir" != "X/usr/include"; then haveit= for x in $CPPFLAGS; do AC_LIB_WITH_FINAL_PREFIX([eval x=\"$x\"]) if test "X$x" = "X-I$additional_includedir"; then haveit=yes break fi done if test -z "$haveit"; then if test "X$additional_includedir" = "X/usr/local/include"; then if test -n "$GCC"; then case $host_os in linux* | gnu* | k*bsd*-gnu) haveit=yes;; esac fi fi if test -z "$haveit"; then if test -d "$additional_includedir"; then dnl Really add $additional_includedir to $CPPFLAGS. CPPFLAGS="${CPPFLAGS}${CPPFLAGS:+ }-I$additional_includedir" fi fi fi fi dnl Potentially add $additional_libdir to $LDFLAGS. dnl But don't add it dnl 1. if it's the standard /usr/lib, dnl 2. if it's already present in $LDFLAGS, dnl 3. if it's /usr/local/lib and we are using GCC on Linux, dnl 4. if it doesn't exist as a directory. if test "X$additional_libdir" != "X/usr/$acl_libdirstem"; then haveit= for x in $LDFLAGS; do AC_LIB_WITH_FINAL_PREFIX([eval x=\"$x\"]) if test "X$x" = "X-L$additional_libdir"; then haveit=yes break fi done if test -z "$haveit"; then if test "X$additional_libdir" = "X/usr/local/$acl_libdirstem"; then if test -n "$GCC"; then case $host_os in linux*) haveit=yes;; esac fi fi if test -z "$haveit"; then if test -d "$additional_libdir"; then dnl Really add $additional_libdir to $LDFLAGS. LDFLAGS="${LDFLAGS}${LDFLAGS:+ }-L$additional_libdir" fi fi fi fi fi ]) dnl AC_LIB_PREPARE_PREFIX creates variables acl_final_prefix, dnl acl_final_exec_prefix, containing the values to which $prefix and dnl $exec_prefix will expand at the end of the configure script. AC_DEFUN([AC_LIB_PREPARE_PREFIX], [ dnl Unfortunately, prefix and exec_prefix get only finally determined dnl at the end of configure. if test "X$prefix" = "XNONE"; then acl_final_prefix="$ac_default_prefix" else acl_final_prefix="$prefix" fi if test "X$exec_prefix" = "XNONE"; then acl_final_exec_prefix='${prefix}' else acl_final_exec_prefix="$exec_prefix" fi acl_save_prefix="$prefix" prefix="$acl_final_prefix" eval acl_final_exec_prefix=\"$acl_final_exec_prefix\" prefix="$acl_save_prefix" ]) dnl AC_LIB_WITH_FINAL_PREFIX([statement]) evaluates statement, with the dnl variables prefix and exec_prefix bound to the values they will have dnl at the end of the configure script. AC_DEFUN([AC_LIB_WITH_FINAL_PREFIX], [ acl_save_prefix="$prefix" prefix="$acl_final_prefix" acl_save_exec_prefix="$exec_prefix" exec_prefix="$acl_final_exec_prefix" $1 exec_prefix="$acl_save_exec_prefix" prefix="$acl_save_prefix" ]) dnl AC_LIB_PREPARE_MULTILIB creates dnl - a variable acl_libdirstem, containing the basename of the libdir, either dnl "lib" or "lib64" or "lib/64", dnl - a variable acl_libdirstem2, as a secondary possible value for dnl acl_libdirstem, either the same as acl_libdirstem or "lib/sparcv9" or dnl "lib/amd64". AC_DEFUN([AC_LIB_PREPARE_MULTILIB], [ dnl There is no formal standard regarding lib and lib64. dnl On glibc systems, the current practice is that on a system supporting dnl 32-bit and 64-bit instruction sets or ABIs, 64-bit libraries go under dnl $prefix/lib64 and 32-bit libraries go under $prefix/lib. We determine dnl the compiler's default mode by looking at the compiler's library search dnl path. If at least one of its elements ends in /lib64 or points to a dnl directory whose absolute pathname ends in /lib64, we assume a 64-bit ABI. dnl Otherwise we use the default, namely "lib". dnl On Solaris systems, the current practice is that on a system supporting dnl 32-bit and 64-bit instruction sets or ABIs, 64-bit libraries go under dnl $prefix/lib/64 (which is a symlink to either $prefix/lib/sparcv9 or dnl $prefix/lib/amd64) and 32-bit libraries go under $prefix/lib. AC_REQUIRE([AC_CANONICAL_HOST]) AC_REQUIRE([gl_HOST_CPU_C_ABI_32BIT]) case "$host_os" in solaris*) AC_CACHE_CHECK([for 64-bit host], [gl_cv_solaris_64bit], [AC_COMPILE_IFELSE( [AC_LANG_SOURCE( [[#ifdef _LP64 int ok; #else error fail #endif ]])], [gl_cv_solaris_64bit=yes], [gl_cv_solaris_64bit=no]) ]);; esac dnl Allow the user to override the result by setting acl_cv_libdirstems. AC_CACHE_CHECK([for the common suffixes of directories in the library search path], [acl_cv_libdirstems], [acl_libdirstem=lib acl_libdirstem2= case "$host_os" in solaris*) dnl See Solaris 10 Software Developer Collection > Solaris 64-bit Developer's Guide > The Development Environment dnl . dnl "Portable Makefiles should refer to any library directories using the 64 symbolic link." dnl But we want to recognize the sparcv9 or amd64 subdirectory also if the dnl symlink is missing, so we set acl_libdirstem2 too. if test $gl_cv_solaris_64bit = yes; then acl_libdirstem=lib/64 case "$host_cpu" in sparc*) acl_libdirstem2=lib/sparcv9 ;; i*86 | x86_64) acl_libdirstem2=lib/amd64 ;; esac fi ;; *) dnl If $CC generates code for a 32-bit ABI, the libraries are dnl surely under $prefix/lib, not $prefix/lib64. if test "$HOST_CPU_C_ABI_32BIT" != yes; then dnl The result is a property of the system. However, non-system dnl compilers sometimes have odd library search paths. Therefore dnl prefer asking /usr/bin/gcc, if available, rather than $CC. searchpath=`(if test -f /usr/bin/gcc \ && LC_ALL=C /usr/bin/gcc -print-search-dirs >/dev/null 2>/dev/null; then \ LC_ALL=C /usr/bin/gcc -print-search-dirs; \ else \ LC_ALL=C $CC -print-search-dirs; \ fi) 2>/dev/null \ | sed -n -e 's,^libraries: ,,p' | sed -e 's,^=,,'` if test -n "$searchpath"; then acl_save_IFS="${IFS= }"; IFS=":" for searchdir in $searchpath; do if test -d "$searchdir"; then case "$searchdir" in */lib64/ | */lib64 ) acl_libdirstem=lib64 ;; */../ | */.. ) # Better ignore directories of this form. They are misleading. ;; *) searchdir=`cd "$searchdir" && pwd` case "$searchdir" in */lib64 ) acl_libdirstem=lib64 ;; esac ;; esac fi done IFS="$acl_save_IFS" fi fi ;; esac test -n "$acl_libdirstem2" || acl_libdirstem2="$acl_libdirstem" acl_cv_libdirstems="$acl_libdirstem,$acl_libdirstem2" ]) # Decompose acl_cv_libdirstems into acl_libdirstem and acl_libdirstem2. acl_libdirstem=`echo "$acl_cv_libdirstems" | sed -e 's/,.*//'` acl_libdirstem2=`echo "$acl_cv_libdirstems" | sed -e '/,/s/.*,//'` ]) libffcall-2.2/gnulib-m4/ssize_t.m40000664000000000000000000000146313416710530013710 00000000000000# ssize_t.m4 serial 5 (gettext-0.18.2) dnl Copyright (C) 2001-2003, 2006, 2010-2019 Free Software Foundation, Inc. dnl This file is free software; the Free Software Foundation dnl gives unlimited permission to copy and/or distribute it, dnl with or without modifications, as long as this notice is preserved. dnl From Bruno Haible. dnl Test whether ssize_t is defined. AC_DEFUN([gt_TYPE_SSIZE_T], [ AC_CACHE_CHECK([for ssize_t], [gt_cv_ssize_t], [AC_COMPILE_IFELSE( [AC_LANG_PROGRAM( [[#include ]], [[int x = sizeof (ssize_t *) + sizeof (ssize_t); return !x;]])], [gt_cv_ssize_t=yes], [gt_cv_ssize_t=no])]) if test $gt_cv_ssize_t = no; then AC_DEFINE([ssize_t], [int], [Define as a signed type of the same size as size_t.]) fi ]) libffcall-2.2/gnulib-m4/ansi-c++.m40000664000000000000000000001116513416710527013536 00000000000000# ansi-c++.m4 serial 10 dnl Copyright (C) 2002-2003, 2005, 2010-2019 Free Software Foundation, Inc. dnl This file is free software; the Free Software Foundation dnl gives unlimited permission to copy and/or distribute it, dnl with or without modifications, as long as this notice is preserved. dnl From Bruno Haible. # Sets CXX_CHOICE to 'yes' or 'no', depending on the preferred use of C++. # The default is 'yes'. If the configure.ac contains a definition of the # macro gl_CXX_CHOICE_DEFAULT_NO, then the default is 'no'. In both cases, # the user can change the value by passing the option --disable-cxx or # --enable-cxx, respectively. AC_DEFUN([gl_CXX_CHOICE], [ AC_MSG_CHECKING([whether to use C++]) dnl Plus signs are supported in AC_ARG_ENABLE starting with autoconf-2.66. m4_version_prereq([2.66], [m4_ifdef([gl_CXX_CHOICE_DEFAULT_NO], [AC_ARG_ENABLE([c++], [ --enable-c++ also build C++ sources], [CXX_CHOICE="$enableval"], [CXX_CHOICE=no])], [AC_ARG_ENABLE([c++], [ --disable-c++ do not build C++ sources], [CXX_CHOICE="$enableval"], [CXX_CHOICE=yes])])], [m4_ifdef([gl_CXX_CHOICE_DEFAULT_NO], [AC_ARG_ENABLE([cxx], [ --enable-cxx also build C++ sources], [CXX_CHOICE="$enableval"], [CXX_CHOICE=no])], [AC_ARG_ENABLE([cxx], [ --disable-cxx do not build C++ sources], [CXX_CHOICE="$enableval"], [CXX_CHOICE=yes])])]) AC_MSG_RESULT([$CXX_CHOICE]) AC_SUBST([CXX_CHOICE]) ]) # gl_PROG_ANSI_CXX([ANSICXX_VARIABLE], [ANSICXX_CONDITIONAL]) # Sets ANSICXX_VARIABLE to the name of a sufficiently ANSI C++ compliant # compiler, or to "no" if none is found. # Defines the Automake condition ANSICXX_CONDITIONAL to true if such a compiler # was found, or to false if not. AC_DEFUN([gl_PROG_ANSI_CXX], [ AC_REQUIRE([gl_CXX_CHOICE]) m4_if([$1], [CXX], [], [gl_save_CXX="$CXX"]) if test "$CXX_CHOICE" = no; then CXX=no fi if test -z "$CXX"; then if test -n "$CCC"; then CXX="$CCC" else AC_CHECK_TOOLS([CXX], [g++ c++ gpp aCC CC cxx cc++ cl FCC KCC RCC xlC_r xlC], [:]) fi fi if test "$CXX" != no; then dnl Use a modified version of AC_PROG_CXX_WORKS that does not exit dnl upon failure. AC_MSG_CHECKING([whether the C++ compiler ($CXX $CXXFLAGS $LDFLAGS) works]) AC_LANG_PUSH([C++]) AC_ARG_VAR([CXX], [C++ compiler command]) AC_ARG_VAR([CXXFLAGS], [C++ compiler flags]) echo 'int main () { return 0; }' > conftest.$ac_ext if AC_TRY_EVAL([ac_link]) && test -s conftest$ac_exeext; then gl_cv_prog_ansicxx_works=yes if (./conftest; exit) 2>/dev/null; then gl_cv_prog_ansicxx_cross=no else gl_cv_prog_ansicxx_cross=yes fi else gl_cv_prog_ansicxx_works=no fi rm -fr conftest* AC_LANG_POP([C++]) AC_MSG_RESULT([$gl_cv_prog_ansicxx_works]) if test $gl_cv_prog_ansicxx_works = no; then CXX=no else dnl Test for namespaces. dnl We don't bother supporting pre-ANSI-C++ compilers. AC_MSG_CHECKING([whether the C++ compiler supports namespaces]) AC_LANG_PUSH([C++]) cat < conftest.$ac_ext #include namespace test { using namespace std; } std::ostream* ptr; int main () { return 0; } EOF if AC_TRY_EVAL([ac_link]) && test -s conftest$ac_exeext; then gl_cv_prog_ansicxx_namespaces=yes else gl_cv_prog_ansicxx_namespaces=no fi rm -fr conftest* AC_LANG_POP([C++]) AC_MSG_RESULT([$gl_cv_prog_ansicxx_namespaces]) if test $gl_cv_prog_ansicxx_namespaces = no; then CXX=no fi fi fi m4_if([$1], [CXX], [], [$1="$CXX" CXX="$gl_save_CXX"]) AC_SUBST([$1]) AM_CONDITIONAL([$2], [test "$$1" != no]) if test "$$1" != no; then dnl This macro invocation resolves an automake error: dnl /usr/local/share/automake-1.11/am/depend2.am: am__fastdepCXX does not appear in AM_CONDITIONAL dnl /usr/local/share/automake-1.11/am/depend2.am: The usual way to define 'am__fastdepCXX' is to add 'AC_PROG_CXX' dnl /usr/local/share/automake-1.11/am/depend2.am: to 'configure.ac' and run 'aclocal' and 'autoconf' again. _AM_DEPENDENCIES([CXX]) else AM_CONDITIONAL([am__fastdepCXX], [false]) fi ]) # gl_ANSI_CXX # Sets CXX to the name of a sufficiently ANSI C++ compliant compiler, or to # "no" if none is found. # Defines the Automake condition ANSICXX to true if such a compiler was found, # or to false if not. AC_DEFUN([gl_ANSI_CXX], [ gl_PROG_ANSI_CXX([CXX], [ANSICXX]) ]) libffcall-2.2/gnulib-m4/multiarch.m40000664000000000000000000000367413416710530014226 00000000000000# multiarch.m4 serial 7 dnl Copyright (C) 2008-2019 Free Software Foundation, Inc. dnl This file is free software; the Free Software Foundation dnl gives unlimited permission to copy and/or distribute it, dnl with or without modifications, as long as this notice is preserved. # Determine whether the compiler is or may be producing universal binaries. # # On Mac OS X 10.5 and later systems, the user can create libraries and # executables that work on multiple system types--known as "fat" or # "universal" binaries--by specifying multiple '-arch' options to the # compiler but only a single '-arch' option to the preprocessor. Like # this: # # ./configure CC="gcc -arch i386 -arch x86_64 -arch ppc -arch ppc64" \ # CXX="g++ -arch i386 -arch x86_64 -arch ppc -arch ppc64" \ # CPP="gcc -E" CXXCPP="g++ -E" # # Detect this situation and set APPLE_UNIVERSAL_BUILD accordingly. AC_DEFUN_ONCE([gl_MULTIARCH], [ dnl Code similar to autoconf-2.63 AC_C_BIGENDIAN. gl_cv_c_multiarch=no AC_COMPILE_IFELSE( [AC_LANG_SOURCE( [[#ifndef __APPLE_CC__ not a universal capable compiler #endif typedef int dummy; ]])], [ dnl Check for potential -arch flags. It is not universal unless dnl there are at least two -arch flags with different values. arch= prev= for word in ${CC} ${CFLAGS} ${CPPFLAGS} ${LDFLAGS}; do if test -n "$prev"; then case $word in i?86 | x86_64 | ppc | ppc64) if test -z "$arch" || test "$arch" = "$word"; then arch="$word" else gl_cv_c_multiarch=yes fi ;; esac prev= else if test "x$word" = "x-arch"; then prev=arch fi fi done ]) if test $gl_cv_c_multiarch = yes; then APPLE_UNIVERSAL_BUILD=1 else APPLE_UNIVERSAL_BUILD=0 fi AC_SUBST([APPLE_UNIVERSAL_BUILD]) ]) libffcall-2.2/gnulib-m4/gnulib-tool.m40000664000000000000000000000264713416710527014476 00000000000000# gnulib-tool.m4 serial 2 dnl Copyright (C) 2004-2005, 2009-2019 Free Software Foundation, Inc. dnl This file is free software; the Free Software Foundation dnl gives unlimited permission to copy and/or distribute it, dnl with or without modifications, as long as this notice is preserved. dnl The following macros need not be invoked explicitly. dnl Invoking them does nothing except to declare default arguments dnl for "gnulib-tool --import". dnl Usage: gl_LOCAL_DIR([DIR]) AC_DEFUN([gl_LOCAL_DIR], []) dnl Usage: gl_MODULES([module1 module2 ...]) AC_DEFUN([gl_MODULES], []) dnl Usage: gl_AVOID([module1 module2 ...]) AC_DEFUN([gl_AVOID], []) dnl Usage: gl_SOURCE_BASE([DIR]) AC_DEFUN([gl_SOURCE_BASE], []) dnl Usage: gl_M4_BASE([DIR]) AC_DEFUN([gl_M4_BASE], []) dnl Usage: gl_PO_BASE([DIR]) AC_DEFUN([gl_PO_BASE], []) dnl Usage: gl_DOC_BASE([DIR]) AC_DEFUN([gl_DOC_BASE], []) dnl Usage: gl_TESTS_BASE([DIR]) AC_DEFUN([gl_TESTS_BASE], []) dnl Usage: gl_WITH_TESTS AC_DEFUN([gl_WITH_TESTS], []) dnl Usage: gl_LIB([LIBNAME]) AC_DEFUN([gl_LIB], []) dnl Usage: gl_LGPL or gl_LGPL([VERSION]) AC_DEFUN([gl_LGPL], []) dnl Usage: gl_MAKEFILE_NAME([FILENAME]) AC_DEFUN([gl_MAKEFILE_NAME], []) dnl Usage: gl_LIBTOOL AC_DEFUN([gl_LIBTOOL], []) dnl Usage: gl_MACRO_PREFIX([PREFIX]) AC_DEFUN([gl_MACRO_PREFIX], []) dnl Usage: gl_PO_DOMAIN([DOMAIN]) AC_DEFUN([gl_PO_DOMAIN], []) dnl Usage: gl_VC_FILES([BOOLEAN]) AC_DEFUN([gl_VC_FILES], []) libffcall-2.2/gnulib-m4/sys_types_h.m40000664000000000000000000000337313416710530014603 00000000000000# sys_types_h.m4 serial 9 dnl Copyright (C) 2011-2019 Free Software Foundation, Inc. dnl This file is free software; the Free Software Foundation dnl gives unlimited permission to copy and/or distribute it, dnl with or without modifications, as long as this notice is preserved. AC_DEFUN_ONCE([gl_SYS_TYPES_H], [ dnl Use sane struct stat types in OpenVMS 8.2 and later. AC_DEFINE([_USE_STD_STAT], 1, [For standard stat data types on VMS.]) AC_REQUIRE([gl_SYS_TYPES_H_DEFAULTS]) gl_NEXT_HEADERS([sys/types.h]) dnl Ensure the type pid_t gets defined. AC_REQUIRE([AC_TYPE_PID_T]) dnl Ensure the type mode_t gets defined. AC_REQUIRE([AC_TYPE_MODE_T]) dnl Whether to override the 'off_t' type. AC_REQUIRE([gl_TYPE_OFF_T]) dnl Whether to override the 'dev_t' and 'ino_t' types. m4_ifdef([gl_WINDOWS_STAT_INODES], [ AC_REQUIRE([gl_WINDOWS_STAT_INODES]) ], [ WINDOWS_STAT_INODES=0 ]) AC_SUBST([WINDOWS_STAT_INODES]) ]) AC_DEFUN([gl_SYS_TYPES_H_DEFAULTS], [ ]) # This works around a buggy version in autoconf <= 2.69. # See m4_version_prereq([2.70], [], [ # This is taken from the following Autoconf patch: # https://git.savannah.gnu.org/cgit/autoconf.git/commit/?id=e17a30e987d7ee695fb4294a82d987ec3dc9b974 m4_undefine([AC_HEADER_MAJOR]) AC_DEFUN([AC_HEADER_MAJOR], [AC_CHECK_HEADERS_ONCE([sys/types.h]) AC_CHECK_HEADER([sys/mkdev.h], [AC_DEFINE([MAJOR_IN_MKDEV], [1], [Define to 1 if `major', `minor', and `makedev' are declared in .])]) if test $ac_cv_header_sys_mkdev_h = no; then AC_CHECK_HEADER([sys/sysmacros.h], [AC_DEFINE([MAJOR_IN_SYSMACROS], [1], [Define to 1 if `major', `minor', and `makedev' are declared in .])]) fi ]) ]) libffcall-2.2/gnulib-m4/lock.m40000664000000000000000000000303713416710527013165 00000000000000# lock.m4 serial 14 dnl Copyright (C) 2005-2019 Free Software Foundation, Inc. dnl This file is free software; the Free Software Foundation dnl gives unlimited permission to copy and/or distribute it, dnl with or without modifications, as long as this notice is preserved. dnl From Bruno Haible. AC_DEFUN([gl_LOCK], [ AC_REQUIRE([gl_THREADLIB]) if test "$gl_threads_api" = posix; then # OSF/1 4.0 and Mac OS X 10.1 lack the pthread_rwlock_t type and the # pthread_rwlock_* functions. has_rwlock=false AC_CHECK_TYPE([pthread_rwlock_t], [has_rwlock=true AC_DEFINE([HAVE_PTHREAD_RWLOCK], [1], [Define if the POSIX multithreading library has read/write locks.])], [], [#include ]) if $has_rwlock; then gl_PTHREAD_RWLOCK_RDLOCK_PREFER_WRITER fi # glibc defines PTHREAD_MUTEX_RECURSIVE as enum, not as a macro. AC_COMPILE_IFELSE([ AC_LANG_PROGRAM( [[#include ]], [[ #if __FreeBSD__ == 4 error "No, in FreeBSD 4.0 recursive mutexes actually don't work." #elif (defined __ENVIRONMENT_MAC_OS_X_VERSION_MIN_REQUIRED__ \ && __ENVIRONMENT_MAC_OS_X_VERSION_MIN_REQUIRED__ < 1070) error "No, in Mac OS X < 10.7 recursive mutexes actually don't work." #else int x = (int)PTHREAD_MUTEX_RECURSIVE; return !x; #endif ]])], [AC_DEFINE([HAVE_PTHREAD_MUTEX_RECURSIVE], [1], [Define if the defines PTHREAD_MUTEX_RECURSIVE.])]) fi gl_PREREQ_LOCK ]) # Prerequisites of lib/glthread/lock.c. AC_DEFUN([gl_PREREQ_LOCK], [:]) libffcall-2.2/gnulib-m4/gnulib-comp.m40000664000000000000000000002317013526533141014446 00000000000000# DO NOT EDIT! GENERATED AUTOMATICALLY! # Copyright (C) 2002-2019 Free Software Foundation, Inc. # # This file is free software; you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by # the Free Software Foundation; either version 3 of the License, or # (at your option) any later version. # # This file is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # # You should have received a copy of the GNU General Public License # along with this file. If not, see . # # As a special exception to the GNU General Public License, # this file may be distributed as part of a program that # contains a configuration script generated by Autoconf, under # the same distribution terms as the rest of that program. # # Generated by gnulib-tool. # # This file represents the compiled summary of the specification in # gnulib-cache.m4. It lists the computed macro invocations that need # to be invoked from configure.ac. # In projects that use version control, this file can be treated like # other built files. # This macro should be invoked from ./configure.ac, in the section # "Checks for programs", right after AC_PROG_CC, and certainly before # any checks for libraries, header files, types and library functions. AC_DEFUN([gl_EARLY], [ m4_pattern_forbid([^gl_[A-Z]])dnl the gnulib macro namespace m4_pattern_allow([^gl_ES$])dnl a valid locale name m4_pattern_allow([^gl_LIBOBJS$])dnl a variable m4_pattern_allow([^gl_LTLIBOBJS$])dnl a variable # Pre-early section. AC_REQUIRE([gl_USE_SYSTEM_EXTENSIONS]) AC_REQUIRE([gl_PROG_AR_RANLIB]) AC_REQUIRE([AM_PROG_CC_C_O]) # Code from module absolute-header: # Code from module ansi-c++-opt: # Code from module extensions: # Code from module havelib: # Code from module host-cpu-c-abi: # Code from module include_next: # Code from module limits-h: # Code from module lock: # Code from module longlong: # Code from module multiarch: # Code from module nocrash: # Code from module snippet/_Noreturn: # Code from module ssize_t: # Code from module stdint: # Code from module stdnoreturn: # Code from module sys_types: # Code from module threadlib: gl_THREADLIB_EARLY # Code from module windows-mutex: # Code from module windows-once: # Code from module windows-recmutex: # Code from module windows-rwlock: ]) # This macro should be invoked from ./configure.ac, in the section # "Check for header files, types and library functions". AC_DEFUN([gl_INIT], [ AM_CONDITIONAL([GL_COND_LIBTOOL], [true]) gl_cond_libtool=true gl_m4_base='gnulib-m4' m4_pushdef([AC_LIBOBJ], m4_defn([gl_LIBOBJ])) m4_pushdef([AC_REPLACE_FUNCS], m4_defn([gl_REPLACE_FUNCS])) m4_pushdef([AC_LIBSOURCES], m4_defn([gl_LIBSOURCES])) m4_pushdef([gl_LIBSOURCES_LIST], []) m4_pushdef([gl_LIBSOURCES_DIR], []) gl_COMMON gl_source_base='gnulib-lib' AC_REQUIRE([gl_ANSI_CXX]) AC_REQUIRE([gl_HOST_CPU_C_ABI]) gl_LIMITS_H gl_LOCK gl_MODULE_INDICATOR([lock]) AC_REQUIRE([AC_TYPE_LONG_LONG_INT]) AC_REQUIRE([AC_TYPE_UNSIGNED_LONG_LONG_INT]) gl_MULTIARCH gt_TYPE_SSIZE_T gl_STDINT_H gl_STDNORETURN_H gl_SYS_TYPES_H AC_PROG_MKDIR_P AC_REQUIRE([gl_THREADLIB]) AC_REQUIRE([AC_CANONICAL_HOST]) case "$host_os" in mingw*) AC_LIBOBJ([windows-mutex]) ;; esac AC_REQUIRE([AC_CANONICAL_HOST]) case "$host_os" in mingw*) AC_LIBOBJ([windows-once]) ;; esac AC_REQUIRE([AC_CANONICAL_HOST]) case "$host_os" in mingw*) AC_LIBOBJ([windows-recmutex]) ;; esac AC_REQUIRE([AC_CANONICAL_HOST]) case "$host_os" in mingw*) AC_LIBOBJ([windows-rwlock]) ;; esac # End of code from modules m4_ifval(gl_LIBSOURCES_LIST, [ m4_syscmd([test ! -d ]m4_defn([gl_LIBSOURCES_DIR])[ || for gl_file in ]gl_LIBSOURCES_LIST[ ; do if test ! -r ]m4_defn([gl_LIBSOURCES_DIR])[/$gl_file ; then echo "missing file ]m4_defn([gl_LIBSOURCES_DIR])[/$gl_file" >&2 exit 1 fi done])dnl m4_if(m4_sysval, [0], [], [AC_FATAL([expected source file, required through AC_LIBSOURCES, not found])]) ]) m4_popdef([gl_LIBSOURCES_DIR]) m4_popdef([gl_LIBSOURCES_LIST]) m4_popdef([AC_LIBSOURCES]) m4_popdef([AC_REPLACE_FUNCS]) m4_popdef([AC_LIBOBJ]) AC_CONFIG_COMMANDS_PRE([ gl_libobjs= gl_ltlibobjs= if test -n "$gl_LIBOBJS"; then # Remove the extension. sed_drop_objext='s/\.o$//;s/\.obj$//' for i in `for i in $gl_LIBOBJS; do echo "$i"; done | sed -e "$sed_drop_objext" | sort | uniq`; do gl_libobjs="$gl_libobjs $i.$ac_objext" gl_ltlibobjs="$gl_ltlibobjs $i.lo" done fi AC_SUBST([gl_LIBOBJS], [$gl_libobjs]) AC_SUBST([gl_LTLIBOBJS], [$gl_ltlibobjs]) ]) gltests_libdeps= gltests_ltlibdeps= m4_pushdef([AC_LIBOBJ], m4_defn([gltests_LIBOBJ])) m4_pushdef([AC_REPLACE_FUNCS], m4_defn([gltests_REPLACE_FUNCS])) m4_pushdef([AC_LIBSOURCES], m4_defn([gltests_LIBSOURCES])) m4_pushdef([gltests_LIBSOURCES_LIST], []) m4_pushdef([gltests_LIBSOURCES_DIR], []) gl_COMMON gl_source_base='tests' changequote(,)dnl gltests_WITNESS=IN_`echo "${PACKAGE-$PACKAGE_TARNAME}" | LC_ALL=C tr abcdefghijklmnopqrstuvwxyz ABCDEFGHIJKLMNOPQRSTUVWXYZ | LC_ALL=C sed -e 's/[^A-Z0-9_]/_/g'`_GNULIB_TESTS changequote([, ])dnl AC_SUBST([gltests_WITNESS]) gl_module_indicator_condition=$gltests_WITNESS m4_pushdef([gl_MODULE_INDICATOR_CONDITION], [$gl_module_indicator_condition]) m4_popdef([gl_MODULE_INDICATOR_CONDITION]) m4_ifval(gltests_LIBSOURCES_LIST, [ m4_syscmd([test ! -d ]m4_defn([gltests_LIBSOURCES_DIR])[ || for gl_file in ]gltests_LIBSOURCES_LIST[ ; do if test ! -r ]m4_defn([gltests_LIBSOURCES_DIR])[/$gl_file ; then echo "missing file ]m4_defn([gltests_LIBSOURCES_DIR])[/$gl_file" >&2 exit 1 fi done])dnl m4_if(m4_sysval, [0], [], [AC_FATAL([expected source file, required through AC_LIBSOURCES, not found])]) ]) m4_popdef([gltests_LIBSOURCES_DIR]) m4_popdef([gltests_LIBSOURCES_LIST]) m4_popdef([AC_LIBSOURCES]) m4_popdef([AC_REPLACE_FUNCS]) m4_popdef([AC_LIBOBJ]) AC_CONFIG_COMMANDS_PRE([ gltests_libobjs= gltests_ltlibobjs= if test -n "$gltests_LIBOBJS"; then # Remove the extension. sed_drop_objext='s/\.o$//;s/\.obj$//' for i in `for i in $gltests_LIBOBJS; do echo "$i"; done | sed -e "$sed_drop_objext" | sort | uniq`; do gltests_libobjs="$gltests_libobjs $i.$ac_objext" gltests_ltlibobjs="$gltests_ltlibobjs $i.lo" done fi AC_SUBST([gltests_LIBOBJS], [$gltests_libobjs]) AC_SUBST([gltests_LTLIBOBJS], [$gltests_ltlibobjs]) ]) ]) # Like AC_LIBOBJ, except that the module name goes # into gl_LIBOBJS instead of into LIBOBJS. AC_DEFUN([gl_LIBOBJ], [ AS_LITERAL_IF([$1], [gl_LIBSOURCES([$1.c])])dnl gl_LIBOBJS="$gl_LIBOBJS $1.$ac_objext" ]) # Like AC_REPLACE_FUNCS, except that the module name goes # into gl_LIBOBJS instead of into LIBOBJS. AC_DEFUN([gl_REPLACE_FUNCS], [ m4_foreach_w([gl_NAME], [$1], [AC_LIBSOURCES(gl_NAME[.c])])dnl AC_CHECK_FUNCS([$1], , [gl_LIBOBJ($ac_func)]) ]) # Like AC_LIBSOURCES, except the directory where the source file is # expected is derived from the gnulib-tool parameterization, # and alloca is special cased (for the alloca-opt module). # We could also entirely rely on EXTRA_lib..._SOURCES. AC_DEFUN([gl_LIBSOURCES], [ m4_foreach([_gl_NAME], [$1], [ m4_if(_gl_NAME, [alloca.c], [], [ m4_define([gl_LIBSOURCES_DIR], [gnulib-lib]) m4_append([gl_LIBSOURCES_LIST], _gl_NAME, [ ]) ]) ]) ]) # Like AC_LIBOBJ, except that the module name goes # into gltests_LIBOBJS instead of into LIBOBJS. AC_DEFUN([gltests_LIBOBJ], [ AS_LITERAL_IF([$1], [gltests_LIBSOURCES([$1.c])])dnl gltests_LIBOBJS="$gltests_LIBOBJS $1.$ac_objext" ]) # Like AC_REPLACE_FUNCS, except that the module name goes # into gltests_LIBOBJS instead of into LIBOBJS. AC_DEFUN([gltests_REPLACE_FUNCS], [ m4_foreach_w([gl_NAME], [$1], [AC_LIBSOURCES(gl_NAME[.c])])dnl AC_CHECK_FUNCS([$1], , [gltests_LIBOBJ($ac_func)]) ]) # Like AC_LIBSOURCES, except the directory where the source file is # expected is derived from the gnulib-tool parameterization, # and alloca is special cased (for the alloca-opt module). # We could also entirely rely on EXTRA_lib..._SOURCES. AC_DEFUN([gltests_LIBSOURCES], [ m4_foreach([_gl_NAME], [$1], [ m4_if(_gl_NAME, [alloca.c], [], [ m4_define([gltests_LIBSOURCES_DIR], [tests]) m4_append([gltests_LIBSOURCES_LIST], _gl_NAME, [ ]) ]) ]) ]) # This macro records the list of files which have been installed by # gnulib-tool and may be removed by future gnulib-tool invocations. AC_DEFUN([gl_FILE_LIST], [ build-aux/config.rpath lib/_Noreturn.h lib/glthread/lock.c lib/glthread/lock.h lib/glthread/threadlib.c lib/limits.in.h lib/stdint.in.h lib/stdnoreturn.in.h lib/sys_types.in.h lib/windows-initguard.h lib/windows-mutex.c lib/windows-mutex.h lib/windows-once.c lib/windows-once.h lib/windows-recmutex.c lib/windows-recmutex.h lib/windows-rwlock.c lib/windows-rwlock.h m4/00gnulib.m4 m4/absolute-header.m4 m4/ansi-c++.m4 m4/asm-underscore.m4 m4/extensions.m4 m4/gnulib-common.m4 m4/host-cpu-c-abi.m4 m4/include_next.m4 m4/lib-ld.m4 m4/lib-link.m4 m4/lib-prefix.m4 m4/limits-h.m4 m4/lock.m4 m4/longlong.m4 m4/multiarch.m4 m4/nocrash.m4 m4/off_t.m4 m4/pthread_rwlock_rdlock.m4 m4/ssize_t.m4 m4/stdint.m4 m4/stdnoreturn.m4 m4/sys_types_h.m4 m4/threadlib.m4 m4/wint_t.m4 ]) libffcall-2.2/gnulib-m4/lib-link.m40000664000000000000000000010000413416710527013726 00000000000000# lib-link.m4 serial 28 dnl Copyright (C) 2001-2019 Free Software Foundation, Inc. dnl This file is free software; the Free Software Foundation dnl gives unlimited permission to copy and/or distribute it, dnl with or without modifications, as long as this notice is preserved. dnl From Bruno Haible. AC_PREREQ([2.61]) dnl AC_LIB_LINKFLAGS(name [, dependencies]) searches for libname and dnl the libraries corresponding to explicit and implicit dependencies. dnl Sets and AC_SUBSTs the LIB${NAME} and LTLIB${NAME} variables and dnl augments the CPPFLAGS variable. dnl Sets and AC_SUBSTs the LIB${NAME}_PREFIX variable to nonempty if libname dnl was found in ${LIB${NAME}_PREFIX}/$acl_libdirstem. AC_DEFUN([AC_LIB_LINKFLAGS], [ AC_REQUIRE([AC_LIB_PREPARE_PREFIX]) AC_REQUIRE([AC_LIB_RPATH]) pushdef([Name],[m4_translit([$1],[./+-], [____])]) pushdef([NAME],[m4_translit([$1],[abcdefghijklmnopqrstuvwxyz./+-], [ABCDEFGHIJKLMNOPQRSTUVWXYZ____])]) AC_CACHE_CHECK([how to link with lib[]$1], [ac_cv_lib[]Name[]_libs], [ AC_LIB_LINKFLAGS_BODY([$1], [$2]) ac_cv_lib[]Name[]_libs="$LIB[]NAME" ac_cv_lib[]Name[]_ltlibs="$LTLIB[]NAME" ac_cv_lib[]Name[]_cppflags="$INC[]NAME" ac_cv_lib[]Name[]_prefix="$LIB[]NAME[]_PREFIX" ]) LIB[]NAME="$ac_cv_lib[]Name[]_libs" LTLIB[]NAME="$ac_cv_lib[]Name[]_ltlibs" INC[]NAME="$ac_cv_lib[]Name[]_cppflags" LIB[]NAME[]_PREFIX="$ac_cv_lib[]Name[]_prefix" AC_LIB_APPENDTOVAR([CPPFLAGS], [$INC]NAME) AC_SUBST([LIB]NAME) AC_SUBST([LTLIB]NAME) AC_SUBST([LIB]NAME[_PREFIX]) dnl Also set HAVE_LIB[]NAME so that AC_LIB_HAVE_LINKFLAGS can reuse the dnl results of this search when this library appears as a dependency. HAVE_LIB[]NAME=yes popdef([NAME]) popdef([Name]) ]) dnl AC_LIB_HAVE_LINKFLAGS(name, dependencies, includes, testcode, [missing-message]) dnl searches for libname and the libraries corresponding to explicit and dnl implicit dependencies, together with the specified include files and dnl the ability to compile and link the specified testcode. The missing-message dnl defaults to 'no' and may contain additional hints for the user. dnl If found, it sets and AC_SUBSTs HAVE_LIB${NAME}=yes and the LIB${NAME} dnl and LTLIB${NAME} variables and augments the CPPFLAGS variable, and dnl #defines HAVE_LIB${NAME} to 1. Otherwise, it sets and AC_SUBSTs dnl HAVE_LIB${NAME}=no and LIB${NAME} and LTLIB${NAME} to empty. dnl Sets and AC_SUBSTs the LIB${NAME}_PREFIX variable to nonempty if libname dnl was found in ${LIB${NAME}_PREFIX}/$acl_libdirstem. AC_DEFUN([AC_LIB_HAVE_LINKFLAGS], [ AC_REQUIRE([AC_LIB_PREPARE_PREFIX]) AC_REQUIRE([AC_LIB_RPATH]) pushdef([Name],[m4_translit([$1],[./+-], [____])]) pushdef([NAME],[m4_translit([$1],[abcdefghijklmnopqrstuvwxyz./+-], [ABCDEFGHIJKLMNOPQRSTUVWXYZ____])]) dnl Search for lib[]Name and define LIB[]NAME, LTLIB[]NAME and INC[]NAME dnl accordingly. AC_LIB_LINKFLAGS_BODY([$1], [$2]) dnl Add $INC[]NAME to CPPFLAGS before performing the following checks, dnl because if the user has installed lib[]Name and not disabled its use dnl via --without-lib[]Name-prefix, he wants to use it. ac_save_CPPFLAGS="$CPPFLAGS" AC_LIB_APPENDTOVAR([CPPFLAGS], [$INC]NAME) AC_CACHE_CHECK([for lib[]$1], [ac_cv_lib[]Name], [ ac_save_LIBS="$LIBS" dnl If $LIB[]NAME contains some -l options, add it to the end of LIBS, dnl because these -l options might require -L options that are present in dnl LIBS. -l options benefit only from the -L options listed before it. dnl Otherwise, add it to the front of LIBS, because it may be a static dnl library that depends on another static library that is present in LIBS. dnl Static libraries benefit only from the static libraries listed after dnl it. case " $LIB[]NAME" in *" -l"*) LIBS="$LIBS $LIB[]NAME" ;; *) LIBS="$LIB[]NAME $LIBS" ;; esac AC_LINK_IFELSE( [AC_LANG_PROGRAM([[$3]], [[$4]])], [ac_cv_lib[]Name=yes], [ac_cv_lib[]Name='m4_if([$5], [], [no], [[$5]])']) LIBS="$ac_save_LIBS" ]) if test "$ac_cv_lib[]Name" = yes; then HAVE_LIB[]NAME=yes AC_DEFINE([HAVE_LIB]NAME, 1, [Define if you have the lib][$1 library.]) AC_MSG_CHECKING([how to link with lib[]$1]) AC_MSG_RESULT([$LIB[]NAME]) else HAVE_LIB[]NAME=no dnl If $LIB[]NAME didn't lead to a usable library, we don't need dnl $INC[]NAME either. CPPFLAGS="$ac_save_CPPFLAGS" LIB[]NAME= LTLIB[]NAME= LIB[]NAME[]_PREFIX= fi AC_SUBST([HAVE_LIB]NAME) AC_SUBST([LIB]NAME) AC_SUBST([LTLIB]NAME) AC_SUBST([LIB]NAME[_PREFIX]) popdef([NAME]) popdef([Name]) ]) dnl Determine the platform dependent parameters needed to use rpath: dnl acl_libext, dnl acl_shlibext, dnl acl_libname_spec, dnl acl_library_names_spec, dnl acl_hardcode_libdir_flag_spec, dnl acl_hardcode_libdir_separator, dnl acl_hardcode_direct, dnl acl_hardcode_minus_L. AC_DEFUN([AC_LIB_RPATH], [ dnl Complain if config.rpath is missing. AC_REQUIRE_AUX_FILE([config.rpath]) AC_REQUIRE([AC_PROG_CC]) dnl we use $CC, $GCC, $LDFLAGS AC_REQUIRE([AC_LIB_PROG_LD]) dnl we use $LD, $with_gnu_ld AC_REQUIRE([AC_CANONICAL_HOST]) dnl we use $host AC_REQUIRE([AC_CONFIG_AUX_DIR_DEFAULT]) dnl we use $ac_aux_dir AC_CACHE_CHECK([for shared library run path origin], [acl_cv_rpath], [ CC="$CC" GCC="$GCC" LDFLAGS="$LDFLAGS" LD="$LD" with_gnu_ld="$with_gnu_ld" \ ${CONFIG_SHELL-/bin/sh} "$ac_aux_dir/config.rpath" "$host" > conftest.sh . ./conftest.sh rm -f ./conftest.sh acl_cv_rpath=done ]) wl="$acl_cv_wl" acl_libext="$acl_cv_libext" acl_shlibext="$acl_cv_shlibext" acl_libname_spec="$acl_cv_libname_spec" acl_library_names_spec="$acl_cv_library_names_spec" acl_hardcode_libdir_flag_spec="$acl_cv_hardcode_libdir_flag_spec" acl_hardcode_libdir_separator="$acl_cv_hardcode_libdir_separator" acl_hardcode_direct="$acl_cv_hardcode_direct" acl_hardcode_minus_L="$acl_cv_hardcode_minus_L" dnl Determine whether the user wants rpath handling at all. AC_ARG_ENABLE([rpath], [ --disable-rpath do not hardcode runtime library paths], :, enable_rpath=yes) ]) dnl AC_LIB_FROMPACKAGE(name, package) dnl declares that libname comes from the given package. The configure file dnl will then not have a --with-libname-prefix option but a dnl --with-package-prefix option. Several libraries can come from the same dnl package. This declaration must occur before an AC_LIB_LINKFLAGS or similar dnl macro call that searches for libname. AC_DEFUN([AC_LIB_FROMPACKAGE], [ pushdef([NAME],[m4_translit([$1],[abcdefghijklmnopqrstuvwxyz./+-], [ABCDEFGHIJKLMNOPQRSTUVWXYZ____])]) define([acl_frompackage_]NAME, [$2]) popdef([NAME]) pushdef([PACK],[$2]) pushdef([PACKUP],[m4_translit(PACK,[abcdefghijklmnopqrstuvwxyz./+-], [ABCDEFGHIJKLMNOPQRSTUVWXYZ____])]) define([acl_libsinpackage_]PACKUP, m4_ifdef([acl_libsinpackage_]PACKUP, [m4_defn([acl_libsinpackage_]PACKUP)[, ]],)[lib$1]) popdef([PACKUP]) popdef([PACK]) ]) dnl AC_LIB_LINKFLAGS_BODY(name [, dependencies]) searches for libname and dnl the libraries corresponding to explicit and implicit dependencies. dnl Sets the LIB${NAME}, LTLIB${NAME} and INC${NAME} variables. dnl Also, sets the LIB${NAME}_PREFIX variable to nonempty if libname was found dnl in ${LIB${NAME}_PREFIX}/$acl_libdirstem. AC_DEFUN([AC_LIB_LINKFLAGS_BODY], [ AC_REQUIRE([AC_LIB_PREPARE_MULTILIB]) pushdef([NAME],[m4_translit([$1],[abcdefghijklmnopqrstuvwxyz./+-], [ABCDEFGHIJKLMNOPQRSTUVWXYZ____])]) pushdef([PACK],[m4_ifdef([acl_frompackage_]NAME, [acl_frompackage_]NAME, lib[$1])]) pushdef([PACKUP],[m4_translit(PACK,[abcdefghijklmnopqrstuvwxyz./+-], [ABCDEFGHIJKLMNOPQRSTUVWXYZ____])]) pushdef([PACKLIBS],[m4_ifdef([acl_frompackage_]NAME, [acl_libsinpackage_]PACKUP, lib[$1])]) dnl By default, look in $includedir and $libdir. use_additional=yes AC_LIB_WITH_FINAL_PREFIX([ eval additional_includedir=\"$includedir\" eval additional_libdir=\"$libdir\" ]) AC_ARG_WITH(PACK[-prefix], [[ --with-]]PACK[[-prefix[=DIR] search for ]PACKLIBS[ in DIR/include and DIR/lib --without-]]PACK[[-prefix don't search for ]PACKLIBS[ in includedir and libdir]], [ if test "X$withval" = "Xno"; then use_additional=no else if test "X$withval" = "X"; then AC_LIB_WITH_FINAL_PREFIX([ eval additional_includedir=\"$includedir\" eval additional_libdir=\"$libdir\" ]) else additional_includedir="$withval/include" additional_libdir="$withval/$acl_libdirstem" if test "$acl_libdirstem2" != "$acl_libdirstem" \ && test ! -d "$withval/$acl_libdirstem"; then additional_libdir="$withval/$acl_libdirstem2" fi fi fi ]) dnl Search the library and its dependencies in $additional_libdir and dnl $LDFLAGS. Using breadth-first-seach. LIB[]NAME= LTLIB[]NAME= INC[]NAME= LIB[]NAME[]_PREFIX= dnl HAVE_LIB${NAME} is an indicator that LIB${NAME}, LTLIB${NAME} have been dnl computed. So it has to be reset here. HAVE_LIB[]NAME= rpathdirs= ltrpathdirs= names_already_handled= names_next_round='$1 $2' while test -n "$names_next_round"; do names_this_round="$names_next_round" names_next_round= for name in $names_this_round; do already_handled= for n in $names_already_handled; do if test "$n" = "$name"; then already_handled=yes break fi done if test -z "$already_handled"; then names_already_handled="$names_already_handled $name" dnl See if it was already located by an earlier AC_LIB_LINKFLAGS dnl or AC_LIB_HAVE_LINKFLAGS call. uppername=`echo "$name" | sed -e 'y|abcdefghijklmnopqrstuvwxyz./+-|ABCDEFGHIJKLMNOPQRSTUVWXYZ____|'` eval value=\"\$HAVE_LIB$uppername\" if test -n "$value"; then if test "$value" = yes; then eval value=\"\$LIB$uppername\" test -z "$value" || LIB[]NAME="${LIB[]NAME}${LIB[]NAME:+ }$value" eval value=\"\$LTLIB$uppername\" test -z "$value" || LTLIB[]NAME="${LTLIB[]NAME}${LTLIB[]NAME:+ }$value" else dnl An earlier call to AC_LIB_HAVE_LINKFLAGS has determined dnl that this library doesn't exist. So just drop it. : fi else dnl Search the library lib$name in $additional_libdir and $LDFLAGS dnl and the already constructed $LIBNAME/$LTLIBNAME. found_dir= found_la= found_so= found_a= eval libname=\"$acl_libname_spec\" # typically: libname=lib$name if test -n "$acl_shlibext"; then shrext=".$acl_shlibext" # typically: shrext=.so else shrext= fi if test $use_additional = yes; then dir="$additional_libdir" dnl The same code as in the loop below: dnl First look for a shared library. if test -n "$acl_shlibext"; then if test -f "$dir/$libname$shrext"; then found_dir="$dir" found_so="$dir/$libname$shrext" else if test "$acl_library_names_spec" = '$libname$shrext$versuffix'; then ver=`(cd "$dir" && \ for f in "$libname$shrext".*; do echo "$f"; done \ | sed -e "s,^$libname$shrext\\\\.,," \ | sort -t '.' -n -r -k1,1 -k2,2 -k3,3 -k4,4 -k5,5 \ | sed 1q ) 2>/dev/null` if test -n "$ver" && test -f "$dir/$libname$shrext.$ver"; then found_dir="$dir" found_so="$dir/$libname$shrext.$ver" fi else eval library_names=\"$acl_library_names_spec\" for f in $library_names; do if test -f "$dir/$f"; then found_dir="$dir" found_so="$dir/$f" break fi done fi fi fi dnl Then look for a static library. if test "X$found_dir" = "X"; then if test -f "$dir/$libname.$acl_libext"; then found_dir="$dir" found_a="$dir/$libname.$acl_libext" fi fi if test "X$found_dir" != "X"; then if test -f "$dir/$libname.la"; then found_la="$dir/$libname.la" fi fi fi if test "X$found_dir" = "X"; then for x in $LDFLAGS $LTLIB[]NAME; do AC_LIB_WITH_FINAL_PREFIX([eval x=\"$x\"]) case "$x" in -L*) dir=`echo "X$x" | sed -e 's/^X-L//'` dnl First look for a shared library. if test -n "$acl_shlibext"; then if test -f "$dir/$libname$shrext"; then found_dir="$dir" found_so="$dir/$libname$shrext" else if test "$acl_library_names_spec" = '$libname$shrext$versuffix'; then ver=`(cd "$dir" && \ for f in "$libname$shrext".*; do echo "$f"; done \ | sed -e "s,^$libname$shrext\\\\.,," \ | sort -t '.' -n -r -k1,1 -k2,2 -k3,3 -k4,4 -k5,5 \ | sed 1q ) 2>/dev/null` if test -n "$ver" && test -f "$dir/$libname$shrext.$ver"; then found_dir="$dir" found_so="$dir/$libname$shrext.$ver" fi else eval library_names=\"$acl_library_names_spec\" for f in $library_names; do if test -f "$dir/$f"; then found_dir="$dir" found_so="$dir/$f" break fi done fi fi fi dnl Then look for a static library. if test "X$found_dir" = "X"; then if test -f "$dir/$libname.$acl_libext"; then found_dir="$dir" found_a="$dir/$libname.$acl_libext" fi fi if test "X$found_dir" != "X"; then if test -f "$dir/$libname.la"; then found_la="$dir/$libname.la" fi fi ;; esac if test "X$found_dir" != "X"; then break fi done fi if test "X$found_dir" != "X"; then dnl Found the library. LTLIB[]NAME="${LTLIB[]NAME}${LTLIB[]NAME:+ }-L$found_dir -l$name" if test "X$found_so" != "X"; then dnl Linking with a shared library. We attempt to hardcode its dnl directory into the executable's runpath, unless it's the dnl standard /usr/lib. if test "$enable_rpath" = no \ || test "X$found_dir" = "X/usr/$acl_libdirstem" \ || test "X$found_dir" = "X/usr/$acl_libdirstem2"; then dnl No hardcoding is needed. LIB[]NAME="${LIB[]NAME}${LIB[]NAME:+ }$found_so" else dnl Use an explicit option to hardcode DIR into the resulting dnl binary. dnl Potentially add DIR to ltrpathdirs. dnl The ltrpathdirs will be appended to $LTLIBNAME at the end. haveit= for x in $ltrpathdirs; do if test "X$x" = "X$found_dir"; then haveit=yes break fi done if test -z "$haveit"; then ltrpathdirs="$ltrpathdirs $found_dir" fi dnl The hardcoding into $LIBNAME is system dependent. if test "$acl_hardcode_direct" = yes; then dnl Using DIR/libNAME.so during linking hardcodes DIR into the dnl resulting binary. LIB[]NAME="${LIB[]NAME}${LIB[]NAME:+ }$found_so" else if test -n "$acl_hardcode_libdir_flag_spec" && test "$acl_hardcode_minus_L" = no; then dnl Use an explicit option to hardcode DIR into the resulting dnl binary. LIB[]NAME="${LIB[]NAME}${LIB[]NAME:+ }$found_so" dnl Potentially add DIR to rpathdirs. dnl The rpathdirs will be appended to $LIBNAME at the end. haveit= for x in $rpathdirs; do if test "X$x" = "X$found_dir"; then haveit=yes break fi done if test -z "$haveit"; then rpathdirs="$rpathdirs $found_dir" fi else dnl Rely on "-L$found_dir". dnl But don't add it if it's already contained in the LDFLAGS dnl or the already constructed $LIBNAME haveit= for x in $LDFLAGS $LIB[]NAME; do AC_LIB_WITH_FINAL_PREFIX([eval x=\"$x\"]) if test "X$x" = "X-L$found_dir"; then haveit=yes break fi done if test -z "$haveit"; then LIB[]NAME="${LIB[]NAME}${LIB[]NAME:+ }-L$found_dir" fi if test "$acl_hardcode_minus_L" != no; then dnl FIXME: Not sure whether we should use dnl "-L$found_dir -l$name" or "-L$found_dir $found_so" dnl here. LIB[]NAME="${LIB[]NAME}${LIB[]NAME:+ }$found_so" else dnl We cannot use $acl_hardcode_runpath_var and LD_RUN_PATH dnl here, because this doesn't fit in flags passed to the dnl compiler. So give up. No hardcoding. This affects only dnl very old systems. dnl FIXME: Not sure whether we should use dnl "-L$found_dir -l$name" or "-L$found_dir $found_so" dnl here. LIB[]NAME="${LIB[]NAME}${LIB[]NAME:+ }-l$name" fi fi fi fi else if test "X$found_a" != "X"; then dnl Linking with a static library. LIB[]NAME="${LIB[]NAME}${LIB[]NAME:+ }$found_a" else dnl We shouldn't come here, but anyway it's good to have a dnl fallback. LIB[]NAME="${LIB[]NAME}${LIB[]NAME:+ }-L$found_dir -l$name" fi fi dnl Assume the include files are nearby. additional_includedir= case "$found_dir" in */$acl_libdirstem | */$acl_libdirstem/) basedir=`echo "X$found_dir" | sed -e 's,^X,,' -e "s,/$acl_libdirstem/"'*$,,'` if test "$name" = '$1'; then LIB[]NAME[]_PREFIX="$basedir" fi additional_includedir="$basedir/include" ;; */$acl_libdirstem2 | */$acl_libdirstem2/) basedir=`echo "X$found_dir" | sed -e 's,^X,,' -e "s,/$acl_libdirstem2/"'*$,,'` if test "$name" = '$1'; then LIB[]NAME[]_PREFIX="$basedir" fi additional_includedir="$basedir/include" ;; esac if test "X$additional_includedir" != "X"; then dnl Potentially add $additional_includedir to $INCNAME. dnl But don't add it dnl 1. if it's the standard /usr/include, dnl 2. if it's /usr/local/include and we are using GCC on Linux, dnl 3. if it's already present in $CPPFLAGS or the already dnl constructed $INCNAME, dnl 4. if it doesn't exist as a directory. if test "X$additional_includedir" != "X/usr/include"; then haveit= if test "X$additional_includedir" = "X/usr/local/include"; then if test -n "$GCC"; then case $host_os in linux* | gnu* | k*bsd*-gnu) haveit=yes;; esac fi fi if test -z "$haveit"; then for x in $CPPFLAGS $INC[]NAME; do AC_LIB_WITH_FINAL_PREFIX([eval x=\"$x\"]) if test "X$x" = "X-I$additional_includedir"; then haveit=yes break fi done if test -z "$haveit"; then if test -d "$additional_includedir"; then dnl Really add $additional_includedir to $INCNAME. INC[]NAME="${INC[]NAME}${INC[]NAME:+ }-I$additional_includedir" fi fi fi fi fi dnl Look for dependencies. if test -n "$found_la"; then dnl Read the .la file. It defines the variables dnl dlname, library_names, old_library, dependency_libs, current, dnl age, revision, installed, dlopen, dlpreopen, libdir. save_libdir="$libdir" case "$found_la" in */* | *\\*) . "$found_la" ;; *) . "./$found_la" ;; esac libdir="$save_libdir" dnl We use only dependency_libs. for dep in $dependency_libs; do case "$dep" in -L*) additional_libdir=`echo "X$dep" | sed -e 's/^X-L//'` dnl Potentially add $additional_libdir to $LIBNAME and $LTLIBNAME. dnl But don't add it dnl 1. if it's the standard /usr/lib, dnl 2. if it's /usr/local/lib and we are using GCC on Linux, dnl 3. if it's already present in $LDFLAGS or the already dnl constructed $LIBNAME, dnl 4. if it doesn't exist as a directory. if test "X$additional_libdir" != "X/usr/$acl_libdirstem" \ && test "X$additional_libdir" != "X/usr/$acl_libdirstem2"; then haveit= if test "X$additional_libdir" = "X/usr/local/$acl_libdirstem" \ || test "X$additional_libdir" = "X/usr/local/$acl_libdirstem2"; then if test -n "$GCC"; then case $host_os in linux* | gnu* | k*bsd*-gnu) haveit=yes;; esac fi fi if test -z "$haveit"; then haveit= for x in $LDFLAGS $LIB[]NAME; do AC_LIB_WITH_FINAL_PREFIX([eval x=\"$x\"]) if test "X$x" = "X-L$additional_libdir"; then haveit=yes break fi done if test -z "$haveit"; then if test -d "$additional_libdir"; then dnl Really add $additional_libdir to $LIBNAME. LIB[]NAME="${LIB[]NAME}${LIB[]NAME:+ }-L$additional_libdir" fi fi haveit= for x in $LDFLAGS $LTLIB[]NAME; do AC_LIB_WITH_FINAL_PREFIX([eval x=\"$x\"]) if test "X$x" = "X-L$additional_libdir"; then haveit=yes break fi done if test -z "$haveit"; then if test -d "$additional_libdir"; then dnl Really add $additional_libdir to $LTLIBNAME. LTLIB[]NAME="${LTLIB[]NAME}${LTLIB[]NAME:+ }-L$additional_libdir" fi fi fi fi ;; -R*) dir=`echo "X$dep" | sed -e 's/^X-R//'` if test "$enable_rpath" != no; then dnl Potentially add DIR to rpathdirs. dnl The rpathdirs will be appended to $LIBNAME at the end. haveit= for x in $rpathdirs; do if test "X$x" = "X$dir"; then haveit=yes break fi done if test -z "$haveit"; then rpathdirs="$rpathdirs $dir" fi dnl Potentially add DIR to ltrpathdirs. dnl The ltrpathdirs will be appended to $LTLIBNAME at the end. haveit= for x in $ltrpathdirs; do if test "X$x" = "X$dir"; then haveit=yes break fi done if test -z "$haveit"; then ltrpathdirs="$ltrpathdirs $dir" fi fi ;; -l*) dnl Handle this in the next round. names_next_round="$names_next_round "`echo "X$dep" | sed -e 's/^X-l//'` ;; *.la) dnl Handle this in the next round. Throw away the .la's dnl directory; it is already contained in a preceding -L dnl option. names_next_round="$names_next_round "`echo "X$dep" | sed -e 's,^X.*/,,' -e 's,^lib,,' -e 's,\.la$,,'` ;; *) dnl Most likely an immediate library name. LIB[]NAME="${LIB[]NAME}${LIB[]NAME:+ }$dep" LTLIB[]NAME="${LTLIB[]NAME}${LTLIB[]NAME:+ }$dep" ;; esac done fi else dnl Didn't find the library; assume it is in the system directories dnl known to the linker and runtime loader. (All the system dnl directories known to the linker should also be known to the dnl runtime loader, otherwise the system is severely misconfigured.) LIB[]NAME="${LIB[]NAME}${LIB[]NAME:+ }-l$name" LTLIB[]NAME="${LTLIB[]NAME}${LTLIB[]NAME:+ }-l$name" fi fi fi done done if test "X$rpathdirs" != "X"; then if test -n "$acl_hardcode_libdir_separator"; then dnl Weird platform: only the last -rpath option counts, the user must dnl pass all path elements in one option. We can arrange that for a dnl single library, but not when more than one $LIBNAMEs are used. alldirs= for found_dir in $rpathdirs; do alldirs="${alldirs}${alldirs:+$acl_hardcode_libdir_separator}$found_dir" done dnl Note: acl_hardcode_libdir_flag_spec uses $libdir and $wl. acl_save_libdir="$libdir" libdir="$alldirs" eval flag=\"$acl_hardcode_libdir_flag_spec\" libdir="$acl_save_libdir" LIB[]NAME="${LIB[]NAME}${LIB[]NAME:+ }$flag" else dnl The -rpath options are cumulative. for found_dir in $rpathdirs; do acl_save_libdir="$libdir" libdir="$found_dir" eval flag=\"$acl_hardcode_libdir_flag_spec\" libdir="$acl_save_libdir" LIB[]NAME="${LIB[]NAME}${LIB[]NAME:+ }$flag" done fi fi if test "X$ltrpathdirs" != "X"; then dnl When using libtool, the option that works for both libraries and dnl executables is -R. The -R options are cumulative. for found_dir in $ltrpathdirs; do LTLIB[]NAME="${LTLIB[]NAME}${LTLIB[]NAME:+ }-R$found_dir" done fi popdef([PACKLIBS]) popdef([PACKUP]) popdef([PACK]) popdef([NAME]) ]) dnl AC_LIB_APPENDTOVAR(VAR, CONTENTS) appends the elements of CONTENTS to VAR, dnl unless already present in VAR. dnl Works only for CPPFLAGS, not for LIB* variables because that sometimes dnl contains two or three consecutive elements that belong together. AC_DEFUN([AC_LIB_APPENDTOVAR], [ for element in [$2]; do haveit= for x in $[$1]; do AC_LIB_WITH_FINAL_PREFIX([eval x=\"$x\"]) if test "X$x" = "X$element"; then haveit=yes break fi done if test -z "$haveit"; then [$1]="${[$1]}${[$1]:+ }$element" fi done ]) dnl For those cases where a variable contains several -L and -l options dnl referring to unknown libraries and directories, this macro determines the dnl necessary additional linker options for the runtime path. dnl AC_LIB_LINKFLAGS_FROM_LIBS([LDADDVAR], [LIBSVALUE], [USE-LIBTOOL]) dnl sets LDADDVAR to linker options needed together with LIBSVALUE. dnl If USE-LIBTOOL evaluates to non-empty, linking with libtool is assumed, dnl otherwise linking without libtool is assumed. AC_DEFUN([AC_LIB_LINKFLAGS_FROM_LIBS], [ AC_REQUIRE([AC_LIB_RPATH]) AC_REQUIRE([AC_LIB_PREPARE_MULTILIB]) $1= if test "$enable_rpath" != no; then if test -n "$acl_hardcode_libdir_flag_spec" && test "$acl_hardcode_minus_L" = no; then dnl Use an explicit option to hardcode directories into the resulting dnl binary. rpathdirs= next= for opt in $2; do if test -n "$next"; then dir="$next" dnl No need to hardcode the standard /usr/lib. if test "X$dir" != "X/usr/$acl_libdirstem" \ && test "X$dir" != "X/usr/$acl_libdirstem2"; then rpathdirs="$rpathdirs $dir" fi next= else case $opt in -L) next=yes ;; -L*) dir=`echo "X$opt" | sed -e 's,^X-L,,'` dnl No need to hardcode the standard /usr/lib. if test "X$dir" != "X/usr/$acl_libdirstem" \ && test "X$dir" != "X/usr/$acl_libdirstem2"; then rpathdirs="$rpathdirs $dir" fi next= ;; *) next= ;; esac fi done if test "X$rpathdirs" != "X"; then if test -n ""$3""; then dnl libtool is used for linking. Use -R options. for dir in $rpathdirs; do $1="${$1}${$1:+ }-R$dir" done else dnl The linker is used for linking directly. if test -n "$acl_hardcode_libdir_separator"; then dnl Weird platform: only the last -rpath option counts, the user dnl must pass all path elements in one option. alldirs= for dir in $rpathdirs; do alldirs="${alldirs}${alldirs:+$acl_hardcode_libdir_separator}$dir" done acl_save_libdir="$libdir" libdir="$alldirs" eval flag=\"$acl_hardcode_libdir_flag_spec\" libdir="$acl_save_libdir" $1="$flag" else dnl The -rpath options are cumulative. for dir in $rpathdirs; do acl_save_libdir="$libdir" libdir="$dir" eval flag=\"$acl_hardcode_libdir_flag_spec\" libdir="$acl_save_libdir" $1="${$1}${$1:+ }$flag" done fi fi fi fi fi AC_SUBST([$1]) ]) libffcall-2.2/gnulib-m4/off_t.m40000664000000000000000000000100613416710530013316 00000000000000# off_t.m4 serial 1 dnl Copyright (C) 2012-2019 Free Software Foundation, Inc. dnl This file is free software; the Free Software Foundation dnl gives unlimited permission to copy and/or distribute it, dnl with or without modifications, as long as this notice is preserved. dnl Check whether to override the 'off_t' type. dnl Set WINDOWS_64_BIT_OFF_T. AC_DEFUN([gl_TYPE_OFF_T], [ m4_ifdef([gl_LARGEFILE], [ AC_REQUIRE([gl_LARGEFILE]) ], [ WINDOWS_64_BIT_OFF_T=0 ]) AC_SUBST([WINDOWS_64_BIT_OFF_T]) ]) libffcall-2.2/gnulib-m4/include_next.m40000664000000000000000000002106113416710527014713 00000000000000# include_next.m4 serial 24 dnl Copyright (C) 2006-2019 Free Software Foundation, Inc. dnl This file is free software; the Free Software Foundation dnl gives unlimited permission to copy and/or distribute it, dnl with or without modifications, as long as this notice is preserved. dnl From Paul Eggert and Derek Price. dnl Sets INCLUDE_NEXT, INCLUDE_NEXT_AS_FIRST_DIRECTIVE, PRAGMA_SYSTEM_HEADER, dnl and PRAGMA_COLUMNS. dnl dnl INCLUDE_NEXT expands to 'include_next' if the compiler supports it, or to dnl 'include' otherwise. dnl dnl INCLUDE_NEXT_AS_FIRST_DIRECTIVE expands to 'include_next' if the compiler dnl supports it in the special case that it is the first include directive in dnl the given file, or to 'include' otherwise. dnl dnl PRAGMA_SYSTEM_HEADER can be used in files that contain #include_next, dnl so as to avoid GCC warnings when the gcc option -pedantic is used. dnl '#pragma GCC system_header' has the same effect as if the file was found dnl through the include search path specified with '-isystem' options (as dnl opposed to the search path specified with '-I' options). Namely, gcc dnl does not warn about some things, and on some systems (Solaris and Interix) dnl __STDC__ evaluates to 0 instead of to 1. The latter is an undesired side dnl effect; we are therefore careful to use 'defined __STDC__' or '1' instead dnl of plain '__STDC__'. dnl dnl PRAGMA_COLUMNS can be used in files that override system header files, so dnl as to avoid compilation errors on HP NonStop systems when the gnulib file dnl is included by a system header file that does a "#pragma COLUMNS 80" (which dnl has the effect of truncating the lines of that file and all files that it dnl includes to 80 columns) and the gnulib file has lines longer than 80 dnl columns. AC_DEFUN([gl_INCLUDE_NEXT], [ AC_LANG_PREPROC_REQUIRE() AC_CACHE_CHECK([whether the preprocessor supports include_next], [gl_cv_have_include_next], [rm -rf conftestd1a conftestd1b conftestd2 mkdir conftestd1a conftestd1b conftestd2 dnl IBM C 9.0, 10.1 (original versions, prior to the 2009-01 updates) on dnl AIX 6.1 support include_next when used as first preprocessor directive dnl in a file, but not when preceded by another include directive. Check dnl for this bug by including . dnl Additionally, with this same compiler, include_next is a no-op when dnl used in a header file that was included by specifying its absolute dnl file name. Despite these two bugs, include_next is used in the dnl compiler's . By virtue of the second bug, we need to use dnl include_next as well in this case. cat < conftestd1a/conftest.h #define DEFINED_IN_CONFTESTD1 #include_next #ifdef DEFINED_IN_CONFTESTD2 int foo; #else #error "include_next doesn't work" #endif EOF cat < conftestd1b/conftest.h #define DEFINED_IN_CONFTESTD1 #include #include_next #ifdef DEFINED_IN_CONFTESTD2 int foo; #else #error "include_next doesn't work" #endif EOF cat < conftestd2/conftest.h #ifndef DEFINED_IN_CONFTESTD1 #error "include_next test doesn't work" #endif #define DEFINED_IN_CONFTESTD2 EOF gl_save_CPPFLAGS="$CPPFLAGS" CPPFLAGS="$gl_save_CPPFLAGS -Iconftestd1b -Iconftestd2" dnl We intentionally avoid using AC_LANG_SOURCE here. AC_COMPILE_IFELSE([AC_LANG_DEFINES_PROVIDED[#include ]], [gl_cv_have_include_next=yes], [CPPFLAGS="$gl_save_CPPFLAGS -Iconftestd1a -Iconftestd2" AC_COMPILE_IFELSE([AC_LANG_DEFINES_PROVIDED[#include ]], [gl_cv_have_include_next=buggy], [gl_cv_have_include_next=no]) ]) CPPFLAGS="$gl_save_CPPFLAGS" rm -rf conftestd1a conftestd1b conftestd2 ]) PRAGMA_SYSTEM_HEADER= if test $gl_cv_have_include_next = yes; then INCLUDE_NEXT=include_next INCLUDE_NEXT_AS_FIRST_DIRECTIVE=include_next if test -n "$GCC"; then PRAGMA_SYSTEM_HEADER='#pragma GCC system_header' fi else if test $gl_cv_have_include_next = buggy; then INCLUDE_NEXT=include INCLUDE_NEXT_AS_FIRST_DIRECTIVE=include_next else INCLUDE_NEXT=include INCLUDE_NEXT_AS_FIRST_DIRECTIVE=include fi fi AC_SUBST([INCLUDE_NEXT]) AC_SUBST([INCLUDE_NEXT_AS_FIRST_DIRECTIVE]) AC_SUBST([PRAGMA_SYSTEM_HEADER]) AC_CACHE_CHECK([whether system header files limit the line length], [gl_cv_pragma_columns], [dnl HP NonStop systems, which define __TANDEM, have this misfeature. AC_EGREP_CPP([choke me], [ #ifdef __TANDEM choke me #endif ], [gl_cv_pragma_columns=yes], [gl_cv_pragma_columns=no]) ]) if test $gl_cv_pragma_columns = yes; then PRAGMA_COLUMNS="#pragma COLUMNS 10000" else PRAGMA_COLUMNS= fi AC_SUBST([PRAGMA_COLUMNS]) ]) # gl_CHECK_NEXT_HEADERS(HEADER1 HEADER2 ...) # ------------------------------------------ # For each arg foo.h, if #include_next works, define NEXT_FOO_H to be # ''; otherwise define it to be # '"///usr/include/foo.h"', or whatever other absolute file name is suitable. # Also, if #include_next works as first preprocessing directive in a file, # define NEXT_AS_FIRST_DIRECTIVE_FOO_H to be ''; otherwise define it to # be # '"///usr/include/foo.h"', or whatever other absolute file name is suitable. # That way, a header file with the following line: # #@INCLUDE_NEXT@ @NEXT_FOO_H@ # or # #@INCLUDE_NEXT_AS_FIRST_DIRECTIVE@ @NEXT_AS_FIRST_DIRECTIVE_FOO_H@ # behaves (after sed substitution) as if it contained # #include_next # even if the compiler does not support include_next. # The three "///" are to pacify Sun C 5.8, which otherwise would say # "warning: #include of /usr/include/... may be non-portable". # Use '""', not '<>', so that the /// cannot be confused with a C99 comment. # Note: This macro assumes that the header file is not empty after # preprocessing, i.e. it does not only define preprocessor macros but also # provides some type/enum definitions or function/variable declarations. # # This macro also checks whether each header exists, by invoking # AC_CHECK_HEADERS_ONCE or AC_CHECK_HEADERS on each argument. AC_DEFUN([gl_CHECK_NEXT_HEADERS], [ gl_NEXT_HEADERS_INTERNAL([$1], [check]) ]) # gl_NEXT_HEADERS(HEADER1 HEADER2 ...) # ------------------------------------ # Like gl_CHECK_NEXT_HEADERS, except do not check whether the headers exist. # This is suitable for headers like that are standardized by C89 # and therefore can be assumed to exist. AC_DEFUN([gl_NEXT_HEADERS], [ gl_NEXT_HEADERS_INTERNAL([$1], [assume]) ]) # The guts of gl_CHECK_NEXT_HEADERS and gl_NEXT_HEADERS. AC_DEFUN([gl_NEXT_HEADERS_INTERNAL], [ AC_REQUIRE([gl_INCLUDE_NEXT]) AC_REQUIRE([AC_CANONICAL_HOST]) m4_if([$2], [check], [AC_CHECK_HEADERS_ONCE([$1]) ]) dnl FIXME: gl_next_header and gl_header_exists must be used unquoted dnl until we can assume autoconf 2.64 or newer. m4_foreach_w([gl_HEADER_NAME], [$1], [AS_VAR_PUSHDEF([gl_next_header], [gl_cv_next_]m4_defn([gl_HEADER_NAME])) if test $gl_cv_have_include_next = yes; then AS_VAR_SET(gl_next_header, ['<'gl_HEADER_NAME'>']) else AC_CACHE_CHECK( [absolute name of <]m4_defn([gl_HEADER_NAME])[>], m4_defn([gl_next_header]), [m4_if([$2], [check], [AS_VAR_PUSHDEF([gl_header_exists], [ac_cv_header_]m4_defn([gl_HEADER_NAME])) if test AS_VAR_GET(gl_header_exists) = yes; then AS_VAR_POPDEF([gl_header_exists]) ]) gl_ABSOLUTE_HEADER_ONE(gl_HEADER_NAME) AS_VAR_COPY([gl_header], [gl_cv_absolute_]AS_TR_SH(gl_HEADER_NAME)) AS_VAR_SET(gl_next_header, ['"'$gl_header'"']) m4_if([$2], [check], [else AS_VAR_SET(gl_next_header, ['<'gl_HEADER_NAME'>']) fi ]) ]) fi AC_SUBST( AS_TR_CPP([NEXT_]m4_defn([gl_HEADER_NAME])), [AS_VAR_GET(gl_next_header)]) if test $gl_cv_have_include_next = yes || test $gl_cv_have_include_next = buggy; then # INCLUDE_NEXT_AS_FIRST_DIRECTIVE='include_next' gl_next_as_first_directive='<'gl_HEADER_NAME'>' else # INCLUDE_NEXT_AS_FIRST_DIRECTIVE='include' gl_next_as_first_directive=AS_VAR_GET(gl_next_header) fi AC_SUBST( AS_TR_CPP([NEXT_AS_FIRST_DIRECTIVE_]m4_defn([gl_HEADER_NAME])), [$gl_next_as_first_directive]) AS_VAR_POPDEF([gl_next_header])]) ]) # Autoconf 2.68 added warnings for our use of AC_COMPILE_IFELSE; # this fallback is safe for all earlier autoconf versions. m4_define_default([AC_LANG_DEFINES_PROVIDED]) libffcall-2.2/gnulib-m4/wint_t.m40000664000000000000000000000444313416710530013535 00000000000000# wint_t.m4 serial 7 dnl Copyright (C) 2003, 2007-2019 Free Software Foundation, Inc. dnl This file is free software; the Free Software Foundation dnl gives unlimited permission to copy and/or distribute it, dnl with or without modifications, as long as this notice is preserved. dnl From Bruno Haible. dnl Test whether has the 'wint_t' type and whether gnulib's dnl or would, if present, override 'wint_t'. dnl Prerequisite: AC_PROG_CC AC_DEFUN([gt_TYPE_WINT_T], [ AC_CACHE_CHECK([for wint_t], [gt_cv_c_wint_t], [AC_COMPILE_IFELSE( [AC_LANG_PROGRAM( [[ /* Tru64 with Desktop Toolkit C has a bug: must be included before . BSD/OS 4.0.1 has a bug: , and must be included before . */ #include #include #include #include wint_t foo = (wchar_t)'\0';]], [[]])], [gt_cv_c_wint_t=yes], [gt_cv_c_wint_t=no])]) if test $gt_cv_c_wint_t = yes; then AC_DEFINE([HAVE_WINT_T], [1], [Define if you have the 'wint_t' type.]) dnl Determine whether gnulib's or would, if present, dnl override 'wint_t'. AC_CACHE_CHECK([whether wint_t is too small], [gl_cv_type_wint_t_too_small], [AC_COMPILE_IFELSE( [AC_LANG_PROGRAM([[ /* Tru64 with Desktop Toolkit C has a bug: must be included before . BSD/OS 4.0.1 has a bug: , and must be included before . */ #if !(defined __GLIBC__ && !defined __UCLIBC__) # include # include # include #endif #include int verify[sizeof (wint_t) < sizeof (int) ? -1 : 1]; ]])], [gl_cv_type_wint_t_too_small=no], [gl_cv_type_wint_t_too_small=yes])]) if test $gl_cv_type_wint_t_too_small = yes; then GNULIB_OVERRIDES_WINT_T=1 else GNULIB_OVERRIDES_WINT_T=0 fi else GNULIB_OVERRIDES_WINT_T=0 fi AC_SUBST([GNULIB_OVERRIDES_WINT_T]) ]) dnl Prerequisites of the 'wint_t' override. AC_DEFUN([gl_TYPE_WINT_T_PREREQ], [ AC_CHECK_HEADERS_ONCE([crtdefs.h]) if test $ac_cv_header_crtdefs_h = yes; then HAVE_CRTDEFS_H=1 else HAVE_CRTDEFS_H=0 fi AC_SUBST([HAVE_CRTDEFS_H]) ]) libffcall-2.2/gnulib-m4/absolute-header.m40000664000000000000000000001034713416710527015303 00000000000000# absolute-header.m4 serial 16 dnl Copyright (C) 2006-2019 Free Software Foundation, Inc. dnl This file is free software; the Free Software Foundation dnl gives unlimited permission to copy and/or distribute it, dnl with or without modifications, as long as this notice is preserved. dnl From Derek Price. # gl_ABSOLUTE_HEADER(HEADER1 HEADER2 ...) # --------------------------------------- # Find the absolute name of a header file, testing first if the header exists. # If the header were sys/inttypes.h, this macro would define # ABSOLUTE_SYS_INTTYPES_H to the '""' quoted absolute name of sys/inttypes.h # in config.h # (e.g. '#define ABSOLUTE_SYS_INTTYPES_H "///usr/include/sys/inttypes.h"'). # The three "///" are to pacify Sun C 5.8, which otherwise would say # "warning: #include of /usr/include/... may be non-portable". # Use '""', not '<>', so that the /// cannot be confused with a C99 comment. # Note: This macro assumes that the header file is not empty after # preprocessing, i.e. it does not only define preprocessor macros but also # provides some type/enum definitions or function/variable declarations. AC_DEFUN([gl_ABSOLUTE_HEADER], [AC_REQUIRE([AC_CANONICAL_HOST]) AC_LANG_PREPROC_REQUIRE()dnl dnl FIXME: gl_absolute_header and ac_header_exists must be used unquoted dnl until we can assume autoconf 2.64 or newer. m4_foreach_w([gl_HEADER_NAME], [$1], [AS_VAR_PUSHDEF([gl_absolute_header], [gl_cv_absolute_]m4_defn([gl_HEADER_NAME]))dnl AC_CACHE_CHECK([absolute name of <]m4_defn([gl_HEADER_NAME])[>], m4_defn([gl_absolute_header]), [AS_VAR_PUSHDEF([ac_header_exists], [ac_cv_header_]m4_defn([gl_HEADER_NAME]))dnl AC_CHECK_HEADERS_ONCE(m4_defn([gl_HEADER_NAME]))dnl if test AS_VAR_GET(ac_header_exists) = yes; then gl_ABSOLUTE_HEADER_ONE(m4_defn([gl_HEADER_NAME])) fi AS_VAR_POPDEF([ac_header_exists])dnl ])dnl AC_DEFINE_UNQUOTED(AS_TR_CPP([ABSOLUTE_]m4_defn([gl_HEADER_NAME])), ["AS_VAR_GET(gl_absolute_header)"], [Define this to an absolute name of <]m4_defn([gl_HEADER_NAME])[>.]) AS_VAR_POPDEF([gl_absolute_header])dnl ])dnl ])# gl_ABSOLUTE_HEADER # gl_ABSOLUTE_HEADER_ONE(HEADER) # ------------------------------ # Like gl_ABSOLUTE_HEADER, except that: # - it assumes that the header exists, # - it uses the current CPPFLAGS, # - it does not cache the result, # - it is silent. AC_DEFUN([gl_ABSOLUTE_HEADER_ONE], [ AC_REQUIRE([AC_CANONICAL_HOST]) AC_LANG_CONFTEST([AC_LANG_SOURCE([[#include <]]m4_dquote([$1])[[>]])]) dnl AIX "xlc -E" and "cc -E" omit #line directives for header files dnl that contain only a #include of other header files and no dnl non-comment tokens of their own. This leads to a failure to dnl detect the absolute name of , , dnl and others. The workaround is to force preservation of comments dnl through option -C. This ensures all necessary #line directives dnl are present. GCC supports option -C as well. case "$host_os" in aix*) gl_absname_cpp="$ac_cpp -C" ;; *) gl_absname_cpp="$ac_cpp" ;; esac changequote(,) case "$host_os" in mingw*) dnl For the sake of native Windows compilers (excluding gcc), dnl treat backslash as a directory separator, like /. dnl Actually, these compilers use a double-backslash as dnl directory separator, inside the dnl # line "filename" dnl directives. gl_dirsep_regex='[/\\]' ;; *) gl_dirsep_regex='\/' ;; esac dnl A sed expression that turns a string into a basic regular dnl expression, for use within "/.../". gl_make_literal_regex_sed='s,[]$^\\.*/[],\\&,g' gl_header_literal_regex=`echo '$1' \ | sed -e "$gl_make_literal_regex_sed"` gl_absolute_header_sed="/${gl_dirsep_regex}${gl_header_literal_regex}/"'{ s/.*"\(.*'"${gl_dirsep_regex}${gl_header_literal_regex}"'\)".*/\1/ s|^/[^/]|//&| p q }' changequote([,]) dnl eval is necessary to expand gl_absname_cpp. dnl Ultrix and Pyramid sh refuse to redirect output of eval, dnl so use subshell. AS_VAR_SET([gl_cv_absolute_]AS_TR_SH([[$1]]), [`(eval "$gl_absname_cpp conftest.$ac_ext") 2>&AS_MESSAGE_LOG_FD | sed -n "$gl_absolute_header_sed"`]) ]) libffcall-2.2/gnulib-m4/extensions.m40000664000000000000000000001572713416710527014445 00000000000000# serial 18 -*- Autoconf -*- # Enable extensions on systems that normally disable them. # Copyright (C) 2003, 2006-2019 Free Software Foundation, Inc. # This file is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # This definition of AC_USE_SYSTEM_EXTENSIONS is stolen from git # Autoconf. Perhaps we can remove this once we can assume Autoconf # 2.70 or later everywhere, but since Autoconf mutates rapidly # enough in this area it's likely we'll need to redefine # AC_USE_SYSTEM_EXTENSIONS for quite some time. # If autoconf reports a warning # warning: AC_COMPILE_IFELSE was called before AC_USE_SYSTEM_EXTENSIONS # or warning: AC_RUN_IFELSE was called before AC_USE_SYSTEM_EXTENSIONS # the fix is # 1) to ensure that AC_USE_SYSTEM_EXTENSIONS is never directly invoked # but always AC_REQUIREd, # 2) to ensure that for each occurrence of # AC_REQUIRE([AC_USE_SYSTEM_EXTENSIONS]) # or # AC_REQUIRE([gl_USE_SYSTEM_EXTENSIONS]) # the corresponding gnulib module description has 'extensions' among # its dependencies. This will ensure that the gl_USE_SYSTEM_EXTENSIONS # invocation occurs in gl_EARLY, not in gl_INIT. # AC_USE_SYSTEM_EXTENSIONS # ------------------------ # Enable extensions on systems that normally disable them, # typically due to standards-conformance issues. # # Remember that #undef in AH_VERBATIM gets replaced with #define by # AC_DEFINE. The goal here is to define all known feature-enabling # macros, then, if reports of conflicts are made, disable macros that # cause problems on some platforms (such as __EXTENSIONS__). AC_DEFUN_ONCE([AC_USE_SYSTEM_EXTENSIONS], [AC_BEFORE([$0], [AC_COMPILE_IFELSE])dnl AC_BEFORE([$0], [AC_RUN_IFELSE])dnl AC_CHECK_HEADER([minix/config.h], [MINIX=yes], [MINIX=]) if test "$MINIX" = yes; then AC_DEFINE([_POSIX_SOURCE], [1], [Define to 1 if you need to in order for 'stat' and other things to work.]) AC_DEFINE([_POSIX_1_SOURCE], [2], [Define to 2 if the system does not provide POSIX.1 features except with this defined.]) AC_DEFINE([_MINIX], [1], [Define to 1 if on MINIX.]) AC_DEFINE([_NETBSD_SOURCE], [1], [Define to 1 to make NetBSD features available. MINIX 3 needs this.]) fi dnl Use a different key than __EXTENSIONS__, as that name broke existing dnl configure.ac when using autoheader 2.62. AH_VERBATIM([USE_SYSTEM_EXTENSIONS], [/* Enable extensions on AIX 3, Interix. */ #ifndef _ALL_SOURCE # undef _ALL_SOURCE #endif /* Enable general extensions on macOS. */ #ifndef _DARWIN_C_SOURCE # undef _DARWIN_C_SOURCE #endif /* Enable GNU extensions on systems that have them. */ #ifndef _GNU_SOURCE # undef _GNU_SOURCE #endif /* Enable NetBSD extensions on NetBSD. */ #ifndef _NETBSD_SOURCE # undef _NETBSD_SOURCE #endif /* Enable OpenBSD extensions on NetBSD. */ #ifndef _OPENBSD_SOURCE # undef _OPENBSD_SOURCE #endif /* Enable threading extensions on Solaris. */ #ifndef _POSIX_PTHREAD_SEMANTICS # undef _POSIX_PTHREAD_SEMANTICS #endif /* Enable extensions specified by ISO/IEC TS 18661-5:2014. */ #ifndef __STDC_WANT_IEC_60559_ATTRIBS_EXT__ # undef __STDC_WANT_IEC_60559_ATTRIBS_EXT__ #endif /* Enable extensions specified by ISO/IEC TS 18661-1:2014. */ #ifndef __STDC_WANT_IEC_60559_BFP_EXT__ # undef __STDC_WANT_IEC_60559_BFP_EXT__ #endif /* Enable extensions specified by ISO/IEC TS 18661-2:2015. */ #ifndef __STDC_WANT_IEC_60559_DFP_EXT__ # undef __STDC_WANT_IEC_60559_DFP_EXT__ #endif /* Enable extensions specified by ISO/IEC TS 18661-4:2015. */ #ifndef __STDC_WANT_IEC_60559_FUNCS_EXT__ # undef __STDC_WANT_IEC_60559_FUNCS_EXT__ #endif /* Enable extensions specified by ISO/IEC TS 18661-3:2015. */ #ifndef __STDC_WANT_IEC_60559_TYPES_EXT__ # undef __STDC_WANT_IEC_60559_TYPES_EXT__ #endif /* Enable extensions specified by ISO/IEC TR 24731-2:2010. */ #ifndef __STDC_WANT_LIB_EXT2__ # undef __STDC_WANT_LIB_EXT2__ #endif /* Enable extensions specified by ISO/IEC 24747:2009. */ #ifndef __STDC_WANT_MATH_SPEC_FUNCS__ # undef __STDC_WANT_MATH_SPEC_FUNCS__ #endif /* Enable extensions on HP NonStop. */ #ifndef _TANDEM_SOURCE # undef _TANDEM_SOURCE #endif /* Enable X/Open extensions if necessary. HP-UX 11.11 defines mbstate_t only if _XOPEN_SOURCE is defined to 500, regardless of whether compiling with -Ae or -D_HPUX_SOURCE=1. */ #ifndef _XOPEN_SOURCE # undef _XOPEN_SOURCE #endif /* Enable X/Open compliant socket functions that do not require linking with -lxnet on HP-UX 11.11. */ #ifndef _HPUX_ALT_XOPEN_SOCKET_API # undef _HPUX_ALT_XOPEN_SOCKET_API #endif /* Enable general extensions on Solaris. */ #ifndef __EXTENSIONS__ # undef __EXTENSIONS__ #endif ]) AC_CACHE_CHECK([whether it is safe to define __EXTENSIONS__], [ac_cv_safe_to_define___extensions__], [AC_COMPILE_IFELSE( [AC_LANG_PROGRAM([[ # define __EXTENSIONS__ 1 ]AC_INCLUDES_DEFAULT])], [ac_cv_safe_to_define___extensions__=yes], [ac_cv_safe_to_define___extensions__=no])]) test $ac_cv_safe_to_define___extensions__ = yes && AC_DEFINE([__EXTENSIONS__]) AC_DEFINE([_ALL_SOURCE]) AC_DEFINE([_DARWIN_C_SOURCE]) AC_DEFINE([_GNU_SOURCE]) AC_DEFINE([_NETBSD_SOURCE]) AC_DEFINE([_OPENBSD_SOURCE]) AC_DEFINE([_POSIX_PTHREAD_SEMANTICS]) AC_DEFINE([__STDC_WANT_IEC_60559_ATTRIBS_EXT__]) AC_DEFINE([__STDC_WANT_IEC_60559_BFP_EXT__]) AC_DEFINE([__STDC_WANT_IEC_60559_DFP_EXT__]) AC_DEFINE([__STDC_WANT_IEC_60559_FUNCS_EXT__]) AC_DEFINE([__STDC_WANT_IEC_60559_TYPES_EXT__]) AC_DEFINE([__STDC_WANT_LIB_EXT2__]) AC_DEFINE([__STDC_WANT_MATH_SPEC_FUNCS__]) AC_DEFINE([_TANDEM_SOURCE]) AC_CACHE_CHECK([whether _XOPEN_SOURCE should be defined], [ac_cv_should_define__xopen_source], [ac_cv_should_define__xopen_source=no AC_COMPILE_IFELSE( [AC_LANG_PROGRAM([[ #include mbstate_t x;]])], [], [AC_COMPILE_IFELSE( [AC_LANG_PROGRAM([[ #define _XOPEN_SOURCE 500 #include mbstate_t x;]])], [ac_cv_should_define__xopen_source=yes])])]) test $ac_cv_should_define__xopen_source = yes && AC_DEFINE([_XOPEN_SOURCE], [500]) AC_DEFINE([_HPUX_ALT_XOPEN_SOCKET_API]) ])# AC_USE_SYSTEM_EXTENSIONS # gl_USE_SYSTEM_EXTENSIONS # ------------------------ # Enable extensions on systems that normally disable them, # typically due to standards-conformance issues. AC_DEFUN_ONCE([gl_USE_SYSTEM_EXTENSIONS], [ dnl Require this macro before AC_USE_SYSTEM_EXTENSIONS. dnl gnulib does not need it. But if it gets required by third-party macros dnl after AC_USE_SYSTEM_EXTENSIONS is required, autoconf 2.62..2.63 emit a dnl warning: "AC_COMPILE_IFELSE was called before AC_USE_SYSTEM_EXTENSIONS". dnl Note: We can do this only for one of the macros AC_AIX, AC_GNU_SOURCE, dnl AC_MINIX. If people still use AC_AIX or AC_MINIX, they are out of luck. AC_REQUIRE([AC_GNU_SOURCE]) AC_REQUIRE([AC_USE_SYSTEM_EXTENSIONS]) ]) libffcall-2.2/gnulib-m4/nocrash.m40000664000000000000000000001055313416710530013665 00000000000000# nocrash.m4 serial 5 dnl Copyright (C) 2005, 2009-2019 Free Software Foundation, Inc. dnl This file is free software; the Free Software Foundation dnl gives unlimited permission to copy and/or distribute it, dnl with or without modifications, as long as this notice is preserved. dnl Based on libsigsegv, from Bruno Haible and Paolo Bonzini. AC_PREREQ([2.13]) dnl Expands to some code for use in .c programs that will cause the configure dnl test to exit instead of crashing. This is useful to avoid triggering dnl action from a background debugger and to avoid core dumps. dnl Usage: ... dnl ]GL_NOCRASH[ dnl ... dnl int main() { nocrash_init(); ... } AC_DEFUN([GL_NOCRASH],[[ #include #if defined __MACH__ && defined __APPLE__ /* Avoid a crash on Mac OS X. */ #include #include #include #include #include #include /* The exception port on which our thread listens. */ static mach_port_t our_exception_port; /* The main function of the thread listening for exceptions of type EXC_BAD_ACCESS. */ static void * mach_exception_thread (void *arg) { /* Buffer for a message to be received. */ struct { mach_msg_header_t head; mach_msg_body_t msgh_body; char data[1024]; } msg; mach_msg_return_t retval; /* Wait for a message on the exception port. */ retval = mach_msg (&msg.head, MACH_RCV_MSG | MACH_RCV_LARGE, 0, sizeof (msg), our_exception_port, MACH_MSG_TIMEOUT_NONE, MACH_PORT_NULL); if (retval != MACH_MSG_SUCCESS) abort (); exit (1); } static void nocrash_init (void) { mach_port_t self = mach_task_self (); /* Allocate a port on which the thread shall listen for exceptions. */ if (mach_port_allocate (self, MACH_PORT_RIGHT_RECEIVE, &our_exception_port) == KERN_SUCCESS) { /* See http://web.mit.edu/darwin/src/modules/xnu/osfmk/man/mach_port_insert_right.html. */ if (mach_port_insert_right (self, our_exception_port, our_exception_port, MACH_MSG_TYPE_MAKE_SEND) == KERN_SUCCESS) { /* The exceptions we want to catch. Only EXC_BAD_ACCESS is interesting for us. */ exception_mask_t mask = EXC_MASK_BAD_ACCESS; /* Create the thread listening on the exception port. */ pthread_attr_t attr; pthread_t thread; if (pthread_attr_init (&attr) == 0 && pthread_attr_setdetachstate (&attr, PTHREAD_CREATE_DETACHED) == 0 && pthread_create (&thread, &attr, mach_exception_thread, NULL) == 0) { pthread_attr_destroy (&attr); /* Replace the exception port info for these exceptions with our own. Note that we replace the exception port for the entire task, not only for a particular thread. This has the effect that when our exception port gets the message, the thread specific exception port has already been asked, and we don't need to bother about it. See http://web.mit.edu/darwin/src/modules/xnu/osfmk/man/task_set_exception_ports.html. */ task_set_exception_ports (self, mask, our_exception_port, EXCEPTION_DEFAULT, MACHINE_THREAD_STATE); } } } } #elif defined _WIN32 && ! defined __CYGWIN__ /* Avoid a crash on native Windows. */ #define WIN32_LEAN_AND_MEAN #include #include static LONG WINAPI exception_filter (EXCEPTION_POINTERS *ExceptionInfo) { switch (ExceptionInfo->ExceptionRecord->ExceptionCode) { case EXCEPTION_ACCESS_VIOLATION: case EXCEPTION_IN_PAGE_ERROR: case EXCEPTION_STACK_OVERFLOW: case EXCEPTION_GUARD_PAGE: case EXCEPTION_PRIV_INSTRUCTION: case EXCEPTION_ILLEGAL_INSTRUCTION: case EXCEPTION_DATATYPE_MISALIGNMENT: case EXCEPTION_ARRAY_BOUNDS_EXCEEDED: case EXCEPTION_NONCONTINUABLE_EXCEPTION: exit (1); } return EXCEPTION_CONTINUE_SEARCH; } static void nocrash_init (void) { SetUnhandledExceptionFilter ((LPTOP_LEVEL_EXCEPTION_FILTER) exception_filter); } #else /* Avoid a crash on POSIX systems. */ #include #include /* A POSIX signal handler. */ static void exception_handler (int sig) { _exit (1); } static void nocrash_init (void) { #ifdef SIGSEGV signal (SIGSEGV, exception_handler); #endif #ifdef SIGBUS signal (SIGBUS, exception_handler); #endif } #endif ]]) libffcall-2.2/gnulib-m4/asm-underscore.m40000664000000000000000000000443713416710527015171 00000000000000# asm-underscore.m4 serial 4 dnl Copyright (C) 2010-2019 Free Software Foundation, Inc. dnl This file is free software; the Free Software Foundation dnl gives unlimited permission to copy and/or distribute it, dnl with or without modifications, as long as this notice is preserved. dnl From Bruno Haible. Based on as-underscore.m4 in GNU clisp. # gl_ASM_SYMBOL_PREFIX # Tests for the prefix of C symbols at the assembly language level and the # linker level. This prefix is either an underscore or empty. Defines the # C macro USER_LABEL_PREFIX to this prefix, and sets ASM_SYMBOL_PREFIX to # a stringified variant of this prefix. AC_DEFUN([gl_ASM_SYMBOL_PREFIX], [ AC_REQUIRE([AC_PROG_EGREP]) dnl We don't use GCC's __USER_LABEL_PREFIX__ here, because dnl 1. It works only for GCC. dnl 2. It is incorrectly defined on some platforms, in some GCC versions. AC_REQUIRE([gl_C_ASM]) AC_CACHE_CHECK( [whether C symbols are prefixed with underscore at the linker level], [gl_cv_prog_as_underscore], [cat > conftest.c </dev/null 2>&1 if LC_ALL=C $EGREP '(^|[[^a-zA-Z0-9_]])_foo([[^a-zA-Z0-9_]]|$)' conftest.$gl_asmext >/dev/null; then gl_cv_prog_as_underscore=yes else gl_cv_prog_as_underscore=no fi rm -f conftest* ]) if test $gl_cv_prog_as_underscore = yes; then USER_LABEL_PREFIX=_ else USER_LABEL_PREFIX= fi AC_DEFINE_UNQUOTED([USER_LABEL_PREFIX], [$USER_LABEL_PREFIX], [Define to the prefix of C symbols at the assembler and linker level, either an underscore or empty.]) ASM_SYMBOL_PREFIX='"'${USER_LABEL_PREFIX}'"' AC_SUBST([ASM_SYMBOL_PREFIX]) ]) # gl_C_ASM # Determines how to produce an assembly language file from C source code. # Sets the variables: # gl_asmext - the extension of assembly language output, # gl_c_asm_opt - the C compiler option that produces assembly language output. AC_DEFUN([gl_C_ASM], [ AC_EGREP_CPP([MicrosoftCompiler], [ #ifdef _MSC_VER MicrosoftCompiler #endif ], [gl_asmext='asm' gl_c_asm_opt='-c -Fa' ], [gl_asmext='s' gl_c_asm_opt='-S' ]) ]) libffcall-2.2/gnulib-m4/longlong.m40000664000000000000000000001111613416710530014043 00000000000000# longlong.m4 serial 18 dnl Copyright (C) 1999-2007, 2009-2019 Free Software Foundation, Inc. dnl This file is free software; the Free Software Foundation dnl gives unlimited permission to copy and/or distribute it, dnl with or without modifications, as long as this notice is preserved. dnl From Paul Eggert. AC_PREREQ([2.62]) # Define HAVE_LONG_LONG_INT if 'long long int' works. # This can be faster than what's in Autoconf 2.62 through 2.68. # Note: If the type 'long long int' exists but is only 32 bits large # (as on some very old compilers), HAVE_LONG_LONG_INT will not be # defined. In this case you can treat 'long long int' like 'long int'. AC_DEFUN([AC_TYPE_LONG_LONG_INT], [ AC_REQUIRE([AC_TYPE_UNSIGNED_LONG_LONG_INT]) AC_CACHE_CHECK([for long long int], [ac_cv_type_long_long_int], [ac_cv_type_long_long_int=yes if test "x${ac_cv_prog_cc_c99-no}" = xno; then ac_cv_type_long_long_int=$ac_cv_type_unsigned_long_long_int if test $ac_cv_type_long_long_int = yes; then dnl Catch a bug in Tandem NonStop Kernel (OSS) cc -O circa 2004. dnl If cross compiling, assume the bug is not important, since dnl nobody cross compiles for this platform as far as we know. AC_RUN_IFELSE( [AC_LANG_PROGRAM( [[@%:@include @%:@ifndef LLONG_MAX @%:@ define HALF \ (1LL << (sizeof (long long int) * CHAR_BIT - 2)) @%:@ define LLONG_MAX (HALF - 1 + HALF) @%:@endif]], [[long long int n = 1; int i; for (i = 0; ; i++) { long long int m = n << i; if (m >> i != n) return 1; if (LLONG_MAX / 2 < m) break; } return 0;]])], [], [ac_cv_type_long_long_int=no], [:]) fi fi]) if test $ac_cv_type_long_long_int = yes; then AC_DEFINE([HAVE_LONG_LONG_INT], [1], [Define to 1 if the system has the type 'long long int'.]) fi ]) # Define HAVE_UNSIGNED_LONG_LONG_INT if 'unsigned long long int' works. # This can be faster than what's in Autoconf 2.62 through 2.68. # Note: If the type 'unsigned long long int' exists but is only 32 bits # large (as on some very old compilers), AC_TYPE_UNSIGNED_LONG_LONG_INT # will not be defined. In this case you can treat 'unsigned long long int' # like 'unsigned long int'. AC_DEFUN([AC_TYPE_UNSIGNED_LONG_LONG_INT], [ AC_CACHE_CHECK([for unsigned long long int], [ac_cv_type_unsigned_long_long_int], [ac_cv_type_unsigned_long_long_int=yes if test "x${ac_cv_prog_cc_c99-no}" = xno; then AC_LINK_IFELSE( [_AC_TYPE_LONG_LONG_SNIPPET], [], [ac_cv_type_unsigned_long_long_int=no]) fi]) if test $ac_cv_type_unsigned_long_long_int = yes; then AC_DEFINE([HAVE_UNSIGNED_LONG_LONG_INT], [1], [Define to 1 if the system has the type 'unsigned long long int'.]) fi ]) # Expands to a C program that can be used to test for simultaneous support # of 'long long' and 'unsigned long long'. We don't want to say that # 'long long' is available if 'unsigned long long' is not, or vice versa, # because too many programs rely on the symmetry between signed and unsigned # integer types (excluding 'bool'). AC_DEFUN([_AC_TYPE_LONG_LONG_SNIPPET], [ AC_LANG_PROGRAM( [[/* For now, do not test the preprocessor; as of 2007 there are too many implementations with broken preprocessors. Perhaps this can be revisited in 2012. In the meantime, code should not expect #if to work with literals wider than 32 bits. */ /* Test literals. */ long long int ll = 9223372036854775807ll; long long int nll = -9223372036854775807LL; unsigned long long int ull = 18446744073709551615ULL; /* Test constant expressions. */ typedef int a[((-9223372036854775807LL < 0 && 0 < 9223372036854775807ll) ? 1 : -1)]; typedef int b[(18446744073709551615ULL <= (unsigned long long int) -1 ? 1 : -1)]; int i = 63;]], [[/* Test availability of runtime routines for shift and division. */ long long int llmax = 9223372036854775807ll; unsigned long long int ullmax = 18446744073709551615ull; return ((ll << 63) | (ll >> 63) | (ll < i) | (ll > i) | (llmax / ll) | (llmax % ll) | (ull << 63) | (ull >> 63) | (ull << i) | (ull >> i) | (ullmax / ull) | (ullmax % ull));]]) ]) libffcall-2.2/gnulib-m4/stdint.m40000664000000000000000000004334113416710530013536 00000000000000# stdint.m4 serial 53 dnl Copyright (C) 2001-2019 Free Software Foundation, Inc. dnl This file is free software; the Free Software Foundation dnl gives unlimited permission to copy and/or distribute it, dnl with or without modifications, as long as this notice is preserved. dnl From Paul Eggert and Bruno Haible. dnl Test whether is supported or must be substituted. AC_PREREQ([2.61]) AC_DEFUN_ONCE([gl_STDINT_H], [ AC_PREREQ([2.59])dnl AC_REQUIRE([AC_CANONICAL_HOST]) dnl for cross-compiles AC_REQUIRE([gl_LIMITS_H]) AC_REQUIRE([gt_TYPE_WINT_T]) dnl Check for long long int and unsigned long long int. AC_REQUIRE([AC_TYPE_LONG_LONG_INT]) if test $ac_cv_type_long_long_int = yes; then HAVE_LONG_LONG_INT=1 else HAVE_LONG_LONG_INT=0 fi AC_SUBST([HAVE_LONG_LONG_INT]) AC_REQUIRE([AC_TYPE_UNSIGNED_LONG_LONG_INT]) if test $ac_cv_type_unsigned_long_long_int = yes; then HAVE_UNSIGNED_LONG_LONG_INT=1 else HAVE_UNSIGNED_LONG_LONG_INT=0 fi AC_SUBST([HAVE_UNSIGNED_LONG_LONG_INT]) dnl Check for , in the same way as gl_WCHAR_H does. AC_CHECK_HEADERS_ONCE([wchar.h]) if test $ac_cv_header_wchar_h = yes; then HAVE_WCHAR_H=1 else HAVE_WCHAR_H=0 fi AC_SUBST([HAVE_WCHAR_H]) dnl Check for . dnl AC_INCLUDES_DEFAULT defines $ac_cv_header_inttypes_h. if test $ac_cv_header_inttypes_h = yes; then HAVE_INTTYPES_H=1 else HAVE_INTTYPES_H=0 fi AC_SUBST([HAVE_INTTYPES_H]) dnl Check for . dnl AC_INCLUDES_DEFAULT defines $ac_cv_header_sys_types_h. if test $ac_cv_header_sys_types_h = yes; then HAVE_SYS_TYPES_H=1 else HAVE_SYS_TYPES_H=0 fi AC_SUBST([HAVE_SYS_TYPES_H]) gl_CHECK_NEXT_HEADERS([stdint.h]) if test $ac_cv_header_stdint_h = yes; then HAVE_STDINT_H=1 else HAVE_STDINT_H=0 fi AC_SUBST([HAVE_STDINT_H]) dnl Now see whether we need a substitute . if test $ac_cv_header_stdint_h = yes; then AC_CACHE_CHECK([whether stdint.h conforms to C99], [gl_cv_header_working_stdint_h], [gl_cv_header_working_stdint_h=no AC_COMPILE_IFELSE([ AC_LANG_PROGRAM([[ #define _GL_JUST_INCLUDE_SYSTEM_STDINT_H 1 /* work if build isn't clean */ #define __STDC_CONSTANT_MACROS 1 #define __STDC_LIMIT_MACROS 1 #include /* Dragonfly defines WCHAR_MIN, WCHAR_MAX only in . */ #if !(defined WCHAR_MIN && defined WCHAR_MAX) #error "WCHAR_MIN, WCHAR_MAX not defined in " #endif ] gl_STDINT_INCLUDES [ #ifdef INT8_MAX int8_t a1 = INT8_MAX; int8_t a1min = INT8_MIN; #endif #ifdef INT16_MAX int16_t a2 = INT16_MAX; int16_t a2min = INT16_MIN; #endif #ifdef INT32_MAX int32_t a3 = INT32_MAX; int32_t a3min = INT32_MIN; #endif #ifdef INT64_MAX int64_t a4 = INT64_MAX; int64_t a4min = INT64_MIN; #endif #ifdef UINT8_MAX uint8_t b1 = UINT8_MAX; #else typedef int b1[(unsigned char) -1 != 255 ? 1 : -1]; #endif #ifdef UINT16_MAX uint16_t b2 = UINT16_MAX; #endif #ifdef UINT32_MAX uint32_t b3 = UINT32_MAX; #endif #ifdef UINT64_MAX uint64_t b4 = UINT64_MAX; #endif int_least8_t c1 = INT8_C (0x7f); int_least8_t c1max = INT_LEAST8_MAX; int_least8_t c1min = INT_LEAST8_MIN; int_least16_t c2 = INT16_C (0x7fff); int_least16_t c2max = INT_LEAST16_MAX; int_least16_t c2min = INT_LEAST16_MIN; int_least32_t c3 = INT32_C (0x7fffffff); int_least32_t c3max = INT_LEAST32_MAX; int_least32_t c3min = INT_LEAST32_MIN; int_least64_t c4 = INT64_C (0x7fffffffffffffff); int_least64_t c4max = INT_LEAST64_MAX; int_least64_t c4min = INT_LEAST64_MIN; uint_least8_t d1 = UINT8_C (0xff); uint_least8_t d1max = UINT_LEAST8_MAX; uint_least16_t d2 = UINT16_C (0xffff); uint_least16_t d2max = UINT_LEAST16_MAX; uint_least32_t d3 = UINT32_C (0xffffffff); uint_least32_t d3max = UINT_LEAST32_MAX; uint_least64_t d4 = UINT64_C (0xffffffffffffffff); uint_least64_t d4max = UINT_LEAST64_MAX; int_fast8_t e1 = INT_FAST8_MAX; int_fast8_t e1min = INT_FAST8_MIN; int_fast16_t e2 = INT_FAST16_MAX; int_fast16_t e2min = INT_FAST16_MIN; int_fast32_t e3 = INT_FAST32_MAX; int_fast32_t e3min = INT_FAST32_MIN; int_fast64_t e4 = INT_FAST64_MAX; int_fast64_t e4min = INT_FAST64_MIN; uint_fast8_t f1 = UINT_FAST8_MAX; uint_fast16_t f2 = UINT_FAST16_MAX; uint_fast32_t f3 = UINT_FAST32_MAX; uint_fast64_t f4 = UINT_FAST64_MAX; #ifdef INTPTR_MAX intptr_t g = INTPTR_MAX; intptr_t gmin = INTPTR_MIN; #endif #ifdef UINTPTR_MAX uintptr_t h = UINTPTR_MAX; #endif intmax_t i = INTMAX_MAX; uintmax_t j = UINTMAX_MAX; /* Check that SIZE_MAX has the correct type, if possible. */ #if 201112 <= __STDC_VERSION__ int k = _Generic (SIZE_MAX, size_t: 0); #elif (2 <= __GNUC__ || defined __IBM__TYPEOF__ \ || (0x5110 <= __SUNPRO_C && !__STDC__)) extern size_t k; extern __typeof__ (SIZE_MAX) k; #endif #include /* for CHAR_BIT */ #define TYPE_MINIMUM(t) \ ((t) ((t) 0 < (t) -1 ? (t) 0 : ~ TYPE_MAXIMUM (t))) #define TYPE_MAXIMUM(t) \ ((t) ((t) 0 < (t) -1 \ ? (t) -1 \ : ((((t) 1 << (sizeof (t) * CHAR_BIT - 2)) - 1) * 2 + 1))) struct s { int check_PTRDIFF: PTRDIFF_MIN == TYPE_MINIMUM (ptrdiff_t) && PTRDIFF_MAX == TYPE_MAXIMUM (ptrdiff_t) ? 1 : -1; /* Detect bug in FreeBSD 6.0 / ia64. */ int check_SIG_ATOMIC: SIG_ATOMIC_MIN == TYPE_MINIMUM (sig_atomic_t) && SIG_ATOMIC_MAX == TYPE_MAXIMUM (sig_atomic_t) ? 1 : -1; int check_SIZE: SIZE_MAX == TYPE_MAXIMUM (size_t) ? 1 : -1; int check_WCHAR: WCHAR_MIN == TYPE_MINIMUM (wchar_t) && WCHAR_MAX == TYPE_MAXIMUM (wchar_t) ? 1 : -1; /* Detect bug in mingw. */ int check_WINT: WINT_MIN == TYPE_MINIMUM (wint_t) && WINT_MAX == TYPE_MAXIMUM (wint_t) ? 1 : -1; /* Detect bugs in glibc 2.4 and Solaris 10 stdint.h, among others. */ int check_UINT8_C: (-1 < UINT8_C (0)) == (-1 < (uint_least8_t) 0) ? 1 : -1; int check_UINT16_C: (-1 < UINT16_C (0)) == (-1 < (uint_least16_t) 0) ? 1 : -1; /* Detect bugs in OpenBSD 3.9 stdint.h. */ #ifdef UINT8_MAX int check_uint8: (uint8_t) -1 == UINT8_MAX ? 1 : -1; #endif #ifdef UINT16_MAX int check_uint16: (uint16_t) -1 == UINT16_MAX ? 1 : -1; #endif #ifdef UINT32_MAX int check_uint32: (uint32_t) -1 == UINT32_MAX ? 1 : -1; #endif #ifdef UINT64_MAX int check_uint64: (uint64_t) -1 == UINT64_MAX ? 1 : -1; #endif int check_uint_least8: (uint_least8_t) -1 == UINT_LEAST8_MAX ? 1 : -1; int check_uint_least16: (uint_least16_t) -1 == UINT_LEAST16_MAX ? 1 : -1; int check_uint_least32: (uint_least32_t) -1 == UINT_LEAST32_MAX ? 1 : -1; int check_uint_least64: (uint_least64_t) -1 == UINT_LEAST64_MAX ? 1 : -1; int check_uint_fast8: (uint_fast8_t) -1 == UINT_FAST8_MAX ? 1 : -1; int check_uint_fast16: (uint_fast16_t) -1 == UINT_FAST16_MAX ? 1 : -1; int check_uint_fast32: (uint_fast32_t) -1 == UINT_FAST32_MAX ? 1 : -1; int check_uint_fast64: (uint_fast64_t) -1 == UINT_FAST64_MAX ? 1 : -1; int check_uintptr: (uintptr_t) -1 == UINTPTR_MAX ? 1 : -1; int check_uintmax: (uintmax_t) -1 == UINTMAX_MAX ? 1 : -1; int check_size: (size_t) -1 == SIZE_MAX ? 1 : -1; }; ]])], [dnl Determine whether the various *_MIN, *_MAX macros are usable dnl in preprocessor expression. We could do it by compiling a test dnl program for each of these macros. It is faster to run a program dnl that inspects the macro expansion. dnl This detects a bug on HP-UX 11.23/ia64. AC_RUN_IFELSE([ AC_LANG_PROGRAM([[ #define _GL_JUST_INCLUDE_SYSTEM_STDINT_H 1 /* work if build isn't clean */ #define __STDC_CONSTANT_MACROS 1 #define __STDC_LIMIT_MACROS 1 #include ] gl_STDINT_INCLUDES [ #include #include #define MVAL(macro) MVAL1(macro) #define MVAL1(expression) #expression static const char *macro_values[] = { #ifdef INT8_MAX MVAL (INT8_MAX), #endif #ifdef INT16_MAX MVAL (INT16_MAX), #endif #ifdef INT32_MAX MVAL (INT32_MAX), #endif #ifdef INT64_MAX MVAL (INT64_MAX), #endif #ifdef UINT8_MAX MVAL (UINT8_MAX), #endif #ifdef UINT16_MAX MVAL (UINT16_MAX), #endif #ifdef UINT32_MAX MVAL (UINT32_MAX), #endif #ifdef UINT64_MAX MVAL (UINT64_MAX), #endif NULL }; ]], [[ const char **mv; for (mv = macro_values; *mv != NULL; mv++) { const char *value = *mv; /* Test whether it looks like a cast expression. */ if (strncmp (value, "((unsigned int)"/*)*/, 15) == 0 || strncmp (value, "((unsigned short)"/*)*/, 17) == 0 || strncmp (value, "((unsigned char)"/*)*/, 16) == 0 || strncmp (value, "((int)"/*)*/, 6) == 0 || strncmp (value, "((signed short)"/*)*/, 15) == 0 || strncmp (value, "((signed char)"/*)*/, 14) == 0) return mv - macro_values + 1; } return 0; ]])], [gl_cv_header_working_stdint_h=yes], [], [case "$host_os" in # Guess yes on native Windows. mingw*) gl_cv_header_working_stdint_h="guessing yes" ;; # In general, assume it works. *) gl_cv_header_working_stdint_h="guessing yes" ;; esac ]) ]) ]) fi HAVE_C99_STDINT_H=0 HAVE_SYS_BITYPES_H=0 HAVE_SYS_INTTYPES_H=0 STDINT_H=stdint.h case "$gl_cv_header_working_stdint_h" in *yes) HAVE_C99_STDINT_H=1 dnl Now see whether the system works without dnl __STDC_CONSTANT_MACROS/__STDC_LIMIT_MACROS defined. AC_CACHE_CHECK([whether stdint.h predates C++11], [gl_cv_header_stdint_predates_cxx11_h], [gl_cv_header_stdint_predates_cxx11_h=yes AC_COMPILE_IFELSE([ AC_LANG_PROGRAM([[ #define _GL_JUST_INCLUDE_SYSTEM_STDINT_H 1 /* work if build isn't clean */ #include ] gl_STDINT_INCLUDES [ intmax_t im = INTMAX_MAX; int32_t i32 = INT32_C (0x7fffffff); ]])], [gl_cv_header_stdint_predates_cxx11_h=no])]) if test "$gl_cv_header_stdint_predates_cxx11_h" = yes; then AC_DEFINE([__STDC_CONSTANT_MACROS], [1], [Define to 1 if the system predates C++11.]) AC_DEFINE([__STDC_LIMIT_MACROS], [1], [Define to 1 if the system predates C++11.]) fi AC_CACHE_CHECK([whether stdint.h has UINTMAX_WIDTH etc.], [gl_cv_header_stdint_width], [gl_cv_header_stdint_width=no AC_COMPILE_IFELSE( [AC_LANG_PROGRAM([[ /* Work if build is not clean. */ #define _GL_JUST_INCLUDE_SYSTEM_STDINT_H 1 #ifndef __STDC_WANT_IEC_60559_BFP_EXT__ #define __STDC_WANT_IEC_60559_BFP_EXT__ 1 #endif #include ]gl_STDINT_INCLUDES[ int iw = UINTMAX_WIDTH; ]])], [gl_cv_header_stdint_width=yes])]) if test "$gl_cv_header_stdint_width" = yes; then STDINT_H= fi ;; *) dnl Check for , and for dnl (used in Linux libc4 >= 4.6.7 and libc5). AC_CHECK_HEADERS([sys/inttypes.h sys/bitypes.h]) if test $ac_cv_header_sys_inttypes_h = yes; then HAVE_SYS_INTTYPES_H=1 fi if test $ac_cv_header_sys_bitypes_h = yes; then HAVE_SYS_BITYPES_H=1 fi gl_STDINT_TYPE_PROPERTIES ;; esac dnl The substitute stdint.h needs the substitute limit.h's _GL_INTEGER_WIDTH. gl_REPLACE_LIMITS_H AC_SUBST([HAVE_C99_STDINT_H]) AC_SUBST([HAVE_SYS_BITYPES_H]) AC_SUBST([HAVE_SYS_INTTYPES_H]) AC_SUBST([STDINT_H]) AM_CONDITIONAL([GL_GENERATE_STDINT_H], [test -n "$STDINT_H"]) ]) dnl gl_STDINT_BITSIZEOF(TYPES, INCLUDES) dnl Determine the size of each of the given types in bits. AC_DEFUN([gl_STDINT_BITSIZEOF], [ dnl Use a shell loop, to avoid bloating configure, and dnl - extra AH_TEMPLATE calls, so that autoheader knows what to put into dnl config.h.in, dnl - extra AC_SUBST calls, so that the right substitutions are made. m4_foreach_w([gltype], [$1], [AH_TEMPLATE([BITSIZEOF_]m4_translit(gltype,[abcdefghijklmnopqrstuvwxyz ],[ABCDEFGHIJKLMNOPQRSTUVWXYZ_]), [Define to the number of bits in type ']gltype['.])]) for gltype in $1 ; do AC_CACHE_CHECK([for bit size of $gltype], [gl_cv_bitsizeof_${gltype}], [AC_COMPUTE_INT([result], [sizeof ($gltype) * CHAR_BIT], [$2 #include ], [result=unknown]) eval gl_cv_bitsizeof_${gltype}=\$result ]) eval result=\$gl_cv_bitsizeof_${gltype} if test $result = unknown; then dnl Use a nonempty default, because some compilers, such as IRIX 5 cc, dnl do a syntax check even on unused #if conditions and give an error dnl on valid C code like this: dnl #if 0 dnl # if > 32 dnl # endif dnl #endif result=0 fi GLTYPE=`echo "$gltype" | tr 'abcdefghijklmnopqrstuvwxyz ' 'ABCDEFGHIJKLMNOPQRSTUVWXYZ_'` AC_DEFINE_UNQUOTED([BITSIZEOF_${GLTYPE}], [$result]) eval BITSIZEOF_${GLTYPE}=\$result done m4_foreach_w([gltype], [$1], [AC_SUBST([BITSIZEOF_]m4_translit(gltype,[abcdefghijklmnopqrstuvwxyz ],[ABCDEFGHIJKLMNOPQRSTUVWXYZ_]))]) ]) dnl gl_CHECK_TYPES_SIGNED(TYPES, INCLUDES) dnl Determine the signedness of each of the given types. dnl Define HAVE_SIGNED_TYPE if type is signed. AC_DEFUN([gl_CHECK_TYPES_SIGNED], [ dnl Use a shell loop, to avoid bloating configure, and dnl - extra AH_TEMPLATE calls, so that autoheader knows what to put into dnl config.h.in, dnl - extra AC_SUBST calls, so that the right substitutions are made. m4_foreach_w([gltype], [$1], [AH_TEMPLATE([HAVE_SIGNED_]m4_translit(gltype,[abcdefghijklmnopqrstuvwxyz ],[ABCDEFGHIJKLMNOPQRSTUVWXYZ_]), [Define to 1 if ']gltype[' is a signed integer type.])]) for gltype in $1 ; do AC_CACHE_CHECK([whether $gltype is signed], [gl_cv_type_${gltype}_signed], [AC_COMPILE_IFELSE( [AC_LANG_PROGRAM([$2[ int verify[2 * (($gltype) -1 < ($gltype) 0) - 1];]])], result=yes, result=no) eval gl_cv_type_${gltype}_signed=\$result ]) eval result=\$gl_cv_type_${gltype}_signed GLTYPE=`echo $gltype | tr 'abcdefghijklmnopqrstuvwxyz ' 'ABCDEFGHIJKLMNOPQRSTUVWXYZ_'` if test "$result" = yes; then AC_DEFINE_UNQUOTED([HAVE_SIGNED_${GLTYPE}], [1]) eval HAVE_SIGNED_${GLTYPE}=1 else eval HAVE_SIGNED_${GLTYPE}=0 fi done m4_foreach_w([gltype], [$1], [AC_SUBST([HAVE_SIGNED_]m4_translit(gltype,[abcdefghijklmnopqrstuvwxyz ],[ABCDEFGHIJKLMNOPQRSTUVWXYZ_]))]) ]) dnl gl_INTEGER_TYPE_SUFFIX(TYPES, INCLUDES) dnl Determine the suffix to use for integer constants of the given types. dnl Define t_SUFFIX for each such type. AC_DEFUN([gl_INTEGER_TYPE_SUFFIX], [ dnl Use a shell loop, to avoid bloating configure, and dnl - extra AH_TEMPLATE calls, so that autoheader knows what to put into dnl config.h.in, dnl - extra AC_SUBST calls, so that the right substitutions are made. m4_foreach_w([gltype], [$1], [AH_TEMPLATE(m4_translit(gltype,[abcdefghijklmnopqrstuvwxyz ],[ABCDEFGHIJKLMNOPQRSTUVWXYZ_])[_SUFFIX], [Define to l, ll, u, ul, ull, etc., as suitable for constants of type ']gltype['.])]) for gltype in $1 ; do AC_CACHE_CHECK([for $gltype integer literal suffix], [gl_cv_type_${gltype}_suffix], [eval gl_cv_type_${gltype}_suffix=no eval result=\$gl_cv_type_${gltype}_signed if test "$result" = yes; then glsufu= else glsufu=u fi for glsuf in "$glsufu" ${glsufu}l ${glsufu}ll ${glsufu}i64; do case $glsuf in '') gltype1='int';; l) gltype1='long int';; ll) gltype1='long long int';; i64) gltype1='__int64';; u) gltype1='unsigned int';; ul) gltype1='unsigned long int';; ull) gltype1='unsigned long long int';; ui64)gltype1='unsigned __int64';; esac AC_COMPILE_IFELSE( [AC_LANG_PROGRAM([$2[ extern $gltype foo; extern $gltype1 foo;]])], [eval gl_cv_type_${gltype}_suffix=\$glsuf]) eval result=\$gl_cv_type_${gltype}_suffix test "$result" != no && break done]) GLTYPE=`echo $gltype | tr 'abcdefghijklmnopqrstuvwxyz ' 'ABCDEFGHIJKLMNOPQRSTUVWXYZ_'` eval result=\$gl_cv_type_${gltype}_suffix test "$result" = no && result= eval ${GLTYPE}_SUFFIX=\$result AC_DEFINE_UNQUOTED([${GLTYPE}_SUFFIX], [$result]) done m4_foreach_w([gltype], [$1], [AC_SUBST(m4_translit(gltype,[abcdefghijklmnopqrstuvwxyz ],[ABCDEFGHIJKLMNOPQRSTUVWXYZ_])[_SUFFIX])]) ]) dnl gl_STDINT_INCLUDES AC_DEFUN([gl_STDINT_INCLUDES], [[ /* BSD/OS 4.0.1 has a bug: , and must be included before . */ #include #include #if HAVE_WCHAR_H # include # include # include #endif ]]) dnl gl_STDINT_TYPE_PROPERTIES dnl Compute HAVE_SIGNED_t, BITSIZEOF_t and t_SUFFIX, for all the types t dnl of interest to stdint.in.h. AC_DEFUN([gl_STDINT_TYPE_PROPERTIES], [ AC_REQUIRE([gl_MULTIARCH]) if test $APPLE_UNIVERSAL_BUILD = 0; then gl_STDINT_BITSIZEOF([ptrdiff_t size_t], [gl_STDINT_INCLUDES]) fi gl_STDINT_BITSIZEOF([sig_atomic_t wchar_t wint_t], [gl_STDINT_INCLUDES]) gl_CHECK_TYPES_SIGNED([sig_atomic_t wchar_t wint_t], [gl_STDINT_INCLUDES]) gl_cv_type_ptrdiff_t_signed=yes gl_cv_type_size_t_signed=no if test $APPLE_UNIVERSAL_BUILD = 0; then gl_INTEGER_TYPE_SUFFIX([ptrdiff_t size_t], [gl_STDINT_INCLUDES]) fi gl_INTEGER_TYPE_SUFFIX([sig_atomic_t wchar_t wint_t], [gl_STDINT_INCLUDES]) dnl If wint_t is smaller than 'int', it cannot satisfy the ISO C 99 dnl requirement that wint_t is "unchanged by default argument promotions". dnl In this case gnulib's and override wint_t. dnl Set the variable BITSIZEOF_WINT_T accordingly. if test $GNULIB_OVERRIDES_WINT_T = 1; then BITSIZEOF_WINT_T=32 fi ]) libffcall-2.2/gnulib-m4/00gnulib.m40000664000000000000000000000415213416710527013654 00000000000000# 00gnulib.m4 serial 3 dnl Copyright (C) 2009-2019 Free Software Foundation, Inc. dnl This file is free software; the Free Software Foundation dnl gives unlimited permission to copy and/or distribute it, dnl with or without modifications, as long as this notice is preserved. dnl This file must be named something that sorts before all other dnl gnulib-provided .m4 files. It is needed until such time as we can dnl assume Autoconf 2.64, with its improved AC_DEFUN_ONCE and dnl m4_divert semantics. # Until autoconf 2.63, handling of the diversion stack required m4_init # to be called first; but this does not happen with aclocal. Wrapping # the entire execution in another layer of the diversion stack fixes this. # Worse, prior to autoconf 2.62, m4_wrap depended on the underlying m4 # for whether it was FIFO or LIFO; in order to properly balance with # m4_init, we need to undo our push just before anything wrapped within # the m4_init body. The way to ensure this is to wrap both sides of # m4_init with a one-shot macro that does the pop at the right time. m4_ifndef([_m4_divert_diversion], [m4_divert_push([KILL]) m4_define([gl_divert_fixup], [m4_divert_pop()m4_define([$0])]) m4_define([m4_init], [gl_divert_fixup()]m4_defn([m4_init])[gl_divert_fixup()])]) # AC_DEFUN_ONCE([NAME], VALUE) # ---------------------------- # Define NAME to expand to VALUE on the first use (whether by direct # expansion, or by AC_REQUIRE), and to nothing on all subsequent uses. # Avoid bugs in AC_REQUIRE in Autoconf 2.63 and earlier. This # definition is slower than the version in Autoconf 2.64, because it # can only use interfaces that existed since 2.59; but it achieves the # same effect. Quoting is necessary to avoid confusing Automake. m4_version_prereq([2.63.263], [], [m4_define([AC][_DEFUN_ONCE], [AC][_DEFUN([$1], [AC_REQUIRE([_gl_DEFUN_ONCE([$1])], [m4_indir([_gl_DEFUN_ONCE([$1])])])])]dnl [AC][_DEFUN([_gl_DEFUN_ONCE([$1])], [$2])])]) # gl_00GNULIB # ----------- # Witness macro that this file has been included. Needed to force # Automake to include this file prior to all other gnulib .m4 files. AC_DEFUN([gl_00GNULIB]) libffcall-2.2/gnulib-m4/stdnoreturn.m40000664000000000000000000000355613416710530014624 00000000000000# Check for stdnoreturn.h that conforms to C11. dnl Copyright 2012-2019 Free Software Foundation, Inc. dnl This file is free software; the Free Software Foundation dnl gives unlimited permission to copy and/or distribute it, dnl with or without modifications, as long as this notice is preserved. # Prepare for substituting if it is not supported. AC_DEFUN([gl_STDNORETURN_H], [ AC_REQUIRE([AC_CANONICAL_HOST]) case "$host_os" in cygwin*) dnl Regardless whether a working exists or not, dnl we need our own , because of the definition dnl of _Noreturn done by gnulib-common.m4. STDNORETURN_H='stdnoreturn.h' ;; *) AC_CACHE_CHECK([for working stdnoreturn.h], [gl_cv_header_working_stdnoreturn_h], [AC_COMPILE_IFELSE( [AC_LANG_PROGRAM( [[#include #include /* Do not check for 'noreturn' after the return type. C11 allows it, but it's rarely done that way and circa-2012 bleeding-edge GCC rejects it when given -Werror=old-style-declaration. */ noreturn void foo1 (void) { exit (0); } _Noreturn void foo2 (void) { exit (0); } int testit (int argc, char **argv) { if (argc & 1) return 0; (argv[0][0] ? foo1 : foo2) (); } ]])], [gl_cv_header_working_stdnoreturn_h=yes], [gl_cv_header_working_stdnoreturn_h=no])]) if test $gl_cv_header_working_stdnoreturn_h = yes; then STDNORETURN_H='' else STDNORETURN_H='stdnoreturn.h' fi ;; esac AC_SUBST([STDNORETURN_H]) AM_CONDITIONAL([GL_GENERATE_STDNORETURN_H], [test -n "$STDNORETURN_H"]) ]) libffcall-2.2/gnulib-m4/onceonly.m40000664000000000000000000001063013240772556014065 00000000000000# onceonly.m4 serial 9 dnl Copyright (C) 2002-2003, 2005-2006, 2008-2018 Free Software Foundation, dnl Inc. dnl dnl This file is free software; you can redistribute it and/or modify dnl it under the terms of the GNU General Public License as published by dnl the Free Software Foundation; either version 3 of the License, or dnl (at your option) any later version. dnl dnl This file is distributed in the hope that it will be useful, dnl but WITHOUT ANY WARRANTY; without even the implied warranty of dnl MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the dnl GNU General Public License for more details. dnl dnl You should have received a copy of the GNU General Public License dnl along with this file. If not, see . dnl dnl As a special exception to the GNU General Public License, dnl this file may be distributed as part of a program dnl that contains a configuration script generated by Autoconf, under dnl the same distribution terms as the rest of that program. dnl This file defines some "once only" variants of standard autoconf macros. dnl AC_CHECK_HEADERS_ONCE like AC_CHECK_HEADERS dnl AC_CHECK_FUNCS_ONCE like AC_CHECK_FUNCS dnl AC_CHECK_DECLS_ONCE like AC_CHECK_DECLS dnl AC_REQUIRE([AC_FUNC_STRCOLL]) like AC_FUNC_STRCOLL dnl The advantage is that the check for each of the headers/functions/decls dnl will be put only once into the 'configure' file. It keeps the size of dnl the 'configure' file down, and avoids redundant output when 'configure' dnl is run. dnl The drawback is that the checks cannot be conditionalized. If you write dnl if some_condition; then gl_CHECK_HEADERS(stdlib.h); fi dnl inside an AC_DEFUNed function, the gl_CHECK_HEADERS macro call expands to dnl empty, and the check will be inserted before the body of the AC_DEFUNed dnl function. dnl The original code implemented AC_CHECK_HEADERS_ONCE and AC_CHECK_FUNCS_ONCE dnl in terms of AC_DEFUN and AC_REQUIRE. This implementation uses diversions to dnl named sections DEFAULTS and INIT_PREPARE in order to check all requested dnl headers at once, thus reducing the size of 'configure'. It is known to work dnl with autoconf 2.57..2.62 at least . The size reduction is ca. 9%. dnl Autoconf version 2.59 plus gnulib is required; this file is not needed dnl with Autoconf 2.60 or greater. But note that autoconf's implementation of dnl AC_CHECK_DECLS_ONCE expects a comma-separated list of symbols as first dnl argument! AC_PREREQ([2.59]) # AC_CHECK_HEADERS_ONCE(HEADER1 HEADER2 ...) is a once-only variant of # AC_CHECK_HEADERS(HEADER1 HEADER2 ...). AC_DEFUN([AC_CHECK_HEADERS_ONCE], [ : m4_foreach_w([gl_HEADER_NAME], [$1], [ AC_DEFUN([gl_CHECK_HEADER_]m4_quote(m4_translit(gl_HEADER_NAME, [./-], [___])), [ m4_divert_text([INIT_PREPARE], [gl_header_list="$gl_header_list gl_HEADER_NAME"]) gl_HEADERS_EXPANSION AH_TEMPLATE(AS_TR_CPP([HAVE_]m4_defn([gl_HEADER_NAME])), [Define to 1 if you have the <]m4_defn([gl_HEADER_NAME])[> header file.]) ]) AC_REQUIRE([gl_CHECK_HEADER_]m4_quote(m4_translit(gl_HEADER_NAME, [./-], [___]))) ]) ]) m4_define([gl_HEADERS_EXPANSION], [ m4_divert_text([DEFAULTS], [gl_header_list=]) AC_CHECK_HEADERS([$gl_header_list]) m4_define([gl_HEADERS_EXPANSION], []) ]) # AC_CHECK_FUNCS_ONCE(FUNC1 FUNC2 ...) is a once-only variant of # AC_CHECK_FUNCS(FUNC1 FUNC2 ...). AC_DEFUN([AC_CHECK_FUNCS_ONCE], [ : m4_foreach_w([gl_FUNC_NAME], [$1], [ AC_DEFUN([gl_CHECK_FUNC_]m4_defn([gl_FUNC_NAME]), [ m4_divert_text([INIT_PREPARE], [gl_func_list="$gl_func_list gl_FUNC_NAME"]) gl_FUNCS_EXPANSION AH_TEMPLATE(AS_TR_CPP([HAVE_]m4_defn([gl_FUNC_NAME])), [Define to 1 if you have the ']m4_defn([gl_FUNC_NAME])[' function.]) ]) AC_REQUIRE([gl_CHECK_FUNC_]m4_defn([gl_FUNC_NAME])) ]) ]) m4_define([gl_FUNCS_EXPANSION], [ m4_divert_text([DEFAULTS], [gl_func_list=]) AC_CHECK_FUNCS([$gl_func_list]) m4_define([gl_FUNCS_EXPANSION], []) ]) # AC_CHECK_DECLS_ONCE(DECL1 DECL2 ...) is a once-only variant of # AC_CHECK_DECLS(DECL1, DECL2, ...). AC_DEFUN([AC_CHECK_DECLS_ONCE], [ : m4_foreach_w([gl_DECL_NAME], [$1], [ AC_DEFUN([gl_CHECK_DECL_]m4_defn([gl_DECL_NAME]), [ AC_CHECK_DECLS(m4_defn([gl_DECL_NAME])) ]) AC_REQUIRE([gl_CHECK_DECL_]m4_defn([gl_DECL_NAME])) ]) ]) libffcall-2.2/gnulib-m4/gnulib-cache.m40000664000000000000000000000401313530357240014545 00000000000000# Copyright (C) 2002-2019 Free Software Foundation, Inc. # # This file is free software; you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by # the Free Software Foundation; either version 3 of the License, or # (at your option) any later version. # # This file is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # # You should have received a copy of the GNU General Public License # along with this file. If not, see . # # As a special exception to the GNU General Public License, # this file may be distributed as part of a program that # contains a configuration script generated by Autoconf, under # the same distribution terms as the rest of that program. # # Generated by gnulib-tool. # # This file represents the specification of how gnulib-tool is used. # It acts as a cache: It is written and read by gnulib-tool. # In projects that use version control, this file is meant to be put under # version control, like the configure.ac and various Makefile.am files. # Specification in the form of a command-line invocation: # gnulib-tool --import \ # --lib=libgnu \ # --source-base=gnulib-lib \ # --m4-base=gnulib-m4 \ # --doc-base=doc \ # --tests-base=tests \ # --aux-dir=build-aux \ # --no-conditional-dependencies \ # --libtool \ # --macro-prefix=gl \ # ansi-c++-opt \ # host-cpu-c-abi \ # lock \ # longlong \ # nocrash \ # stdint \ # stdnoreturn # Specification in the form of a few gnulib-tool.m4 macro invocations: gl_LOCAL_DIR([]) gl_MODULES([ ansi-c++-opt host-cpu-c-abi lock longlong nocrash stdint stdnoreturn ]) gl_AVOID([]) gl_SOURCE_BASE([gnulib-lib]) gl_M4_BASE([gnulib-m4]) gl_PO_BASE([]) gl_DOC_BASE([doc]) gl_TESTS_BASE([tests]) gl_LIB([libgnu]) gl_MAKEFILE_NAME([]) gl_LIBTOOL gl_MACRO_PREFIX([gl]) gl_PO_DOMAIN([]) gl_WITNESS_C_MACRO([]) libffcall-2.2/gnulib-m4/lib-ld.m40000664000000000000000000001237213416710527013402 00000000000000# lib-ld.m4 serial 9 dnl Copyright (C) 1996-2003, 2009-2019 Free Software Foundation, Inc. dnl This file is free software; the Free Software Foundation dnl gives unlimited permission to copy and/or distribute it, dnl with or without modifications, as long as this notice is preserved. dnl Subroutines of libtool.m4, dnl with replacements s/_*LT_PATH/AC_LIB_PROG/ and s/lt_/acl_/ to avoid dnl collision with libtool.m4. dnl From libtool-2.4. Sets the variable with_gnu_ld to yes or no. AC_DEFUN([AC_LIB_PROG_LD_GNU], [AC_CACHE_CHECK([if the linker ($LD) is GNU ld], [acl_cv_prog_gnu_ld], [# I'd rather use --version here, but apparently some GNU lds only accept -v. case `$LD -v 2>&1 /dev/null 2>&1 \ && { (PATH='/bin:/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 \ || PATH_SEPARATOR=';' } fi if test -n "$LD"; then AC_MSG_CHECKING([for ld]) elif test "$GCC" = yes; then AC_MSG_CHECKING([for ld used by $CC]) elif test "$with_gnu_ld" = yes; then AC_MSG_CHECKING([for GNU ld]) else AC_MSG_CHECKING([for non-GNU ld]) fi if test -n "$LD"; then # Let the user override the test with a path. : else AC_CACHE_VAL([acl_cv_path_LD], [ acl_cv_path_LD= # Final result of this test ac_prog=ld # Program to search in $PATH if test "$GCC" = yes; then # Check if gcc -print-prog-name=ld gives a path. case $host in *-*-mingw*) # gcc leaves a trailing carriage return which upsets mingw acl_output=`($CC -print-prog-name=ld) 2>&5 | tr -d '\015'` ;; *) acl_output=`($CC -print-prog-name=ld) 2>&5` ;; esac case $acl_output in # Accept absolute paths. [[\\/]]* | ?:[[\\/]]*) re_direlt='/[[^/]][[^/]]*/\.\./' # Canonicalize the pathname of ld acl_output=`echo "$acl_output" | sed 's%\\\\%/%g'` while echo "$acl_output" | grep "$re_direlt" > /dev/null 2>&1; do acl_output=`echo $acl_output | sed "s%$re_direlt%/%"` done # Got the pathname. No search in PATH is needed. acl_cv_path_LD="$acl_output" ac_prog= ;; "") # If it fails, then pretend we aren't using GCC. ;; *) # If it is relative, then search for the first ld in PATH. with_gnu_ld=unknown ;; esac fi if test -n "$ac_prog"; then # Search for $ac_prog in $PATH. acl_save_ifs="$IFS"; IFS=$PATH_SEPARATOR for ac_dir in $PATH; do IFS="$acl_save_ifs" test -z "$ac_dir" && ac_dir=. if test -f "$ac_dir/$ac_prog" || test -f "$ac_dir/$ac_prog$ac_exeext"; then acl_cv_path_LD="$ac_dir/$ac_prog" # Check to see if the program is GNU ld. I'd rather use --version, # but apparently some variants of GNU ld only accept -v. # Break only if it was the GNU/non-GNU ld that we prefer. case `"$acl_cv_path_LD" -v 2>&1 = 5465 && !defined __cplusplus && __STDC_VERSION__ >= 199901L && !defined __GNUC_STDC_INLINE__ # define __GNUC_STDC_INLINE__ 1 #endif]) AH_VERBATIM([unused_parameter], [/* Define as a marker that can be attached to declarations that might not be used. This helps to reduce warnings, such as from GCC -Wunused-parameter. */ #if __GNUC__ >= 3 || (__GNUC__ == 2 && __GNUC_MINOR__ >= 7) # define _GL_UNUSED __attribute__ ((__unused__)) #else # define _GL_UNUSED #endif /* The name _UNUSED_PARAMETER_ is an earlier spelling, although the name is a misnomer outside of parameter lists. */ #define _UNUSED_PARAMETER_ _GL_UNUSED /* gcc supports the "unused" attribute on possibly unused labels, and g++ has since version 4.5. Note to support C++ as well as C, _GL_UNUSED_LABEL should be used with a trailing ; */ #if !defined __cplusplus || __GNUC__ > 4 \ || (__GNUC__ == 4 && __GNUC_MINOR__ >= 5) # define _GL_UNUSED_LABEL _GL_UNUSED #else # define _GL_UNUSED_LABEL #endif /* The __pure__ attribute was added in gcc 2.96. */ #if __GNUC__ > 2 || (__GNUC__ == 2 && __GNUC_MINOR__ >= 96) # define _GL_ATTRIBUTE_PURE __attribute__ ((__pure__)) #else # define _GL_ATTRIBUTE_PURE /* empty */ #endif /* The __const__ attribute was added in gcc 2.95. */ #if __GNUC__ > 2 || (__GNUC__ == 2 && __GNUC_MINOR__ >= 95) # define _GL_ATTRIBUTE_CONST __attribute__ ((__const__)) #else # define _GL_ATTRIBUTE_CONST /* empty */ #endif /* The __malloc__ attribute was added in gcc 3. */ #if 3 <= __GNUC__ # define _GL_ATTRIBUTE_MALLOC __attribute__ ((__malloc__)) #else # define _GL_ATTRIBUTE_MALLOC /* empty */ #endif ]) AH_VERBATIM([async_safe], [/* The _GL_ASYNC_SAFE marker should be attached to functions that are signal handlers (for signals other than SIGABRT, SIGPIPE) or can be invoked from such signal handlers. Such functions have some restrictions: * All functions that it calls should be marked _GL_ASYNC_SAFE as well, or should be listed as async-signal-safe in POSIX section 2.4.3. Note that malloc(), sprintf(), and fwrite(), in particular, are NOT async-signal-safe. * All memory locations (variables and struct fields) that these functions access must be marked 'volatile'. This holds for both read and write accesses. Otherwise the compiler might optimize away stores to and reads from such locations that occur in the program, depending on its data flow analysis. For example, when the program contains a loop that is intended to inspect a variable set from within a signal handler while (!signal_occurred) ; the compiler is allowed to transform this into an endless loop if the variable 'signal_occurred' is not declared 'volatile'. Additionally, recall that: * A signal handler should not modify errno (except if it is a handler for a fatal signal and ends by raising the same signal again, thus provoking the termination of the process). If it invokes a function that may clobber errno, it needs to save and restore the value of errno. */ #define _GL_ASYNC_SAFE ]) dnl Preparation for running test programs: dnl Tell glibc to write diagnostics from -D_FORTIFY_SOURCE=2 to stderr, not dnl to /dev/tty, so they can be redirected to log files. Such diagnostics dnl arise e.g., in the macros gl_PRINTF_DIRECTIVE_N, gl_SNPRINTF_DIRECTIVE_N. LIBC_FATAL_STDERR_=1 export LIBC_FATAL_STDERR_ ]) # gl_MODULE_INDICATOR_CONDITION # expands to a C preprocessor expression that evaluates to 1 or 0, depending # whether a gnulib module that has been requested shall be considered present # or not. m4_define([gl_MODULE_INDICATOR_CONDITION], [1]) # gl_MODULE_INDICATOR_SET_VARIABLE([modulename]) # sets the shell variable that indicates the presence of the given module to # a C preprocessor expression that will evaluate to 1. AC_DEFUN([gl_MODULE_INDICATOR_SET_VARIABLE], [ gl_MODULE_INDICATOR_SET_VARIABLE_AUX( [GNULIB_[]m4_translit([[$1]], [abcdefghijklmnopqrstuvwxyz./-], [ABCDEFGHIJKLMNOPQRSTUVWXYZ___])], [gl_MODULE_INDICATOR_CONDITION]) ]) # gl_MODULE_INDICATOR_SET_VARIABLE_AUX([variable]) # modifies the shell variable to include the gl_MODULE_INDICATOR_CONDITION. # The shell variable's value is a C preprocessor expression that evaluates # to 0 or 1. AC_DEFUN([gl_MODULE_INDICATOR_SET_VARIABLE_AUX], [ m4_if(m4_defn([gl_MODULE_INDICATOR_CONDITION]), [1], [ dnl Simplify the expression VALUE || 1 to 1. $1=1 ], [gl_MODULE_INDICATOR_SET_VARIABLE_AUX_OR([$1], [gl_MODULE_INDICATOR_CONDITION])]) ]) # gl_MODULE_INDICATOR_SET_VARIABLE_AUX_OR([variable], [condition]) # modifies the shell variable to include the given condition. The shell # variable's value is a C preprocessor expression that evaluates to 0 or 1. AC_DEFUN([gl_MODULE_INDICATOR_SET_VARIABLE_AUX_OR], [ dnl Simplify the expression 1 || CONDITION to 1. if test "$[]$1" != 1; then dnl Simplify the expression 0 || CONDITION to CONDITION. if test "$[]$1" = 0; then $1=$2 else $1="($[]$1 || $2)" fi fi ]) # gl_MODULE_INDICATOR([modulename]) # defines a C macro indicating the presence of the given module # in a location where it can be used. # | Value | Value | # | in lib/ | in tests/ | # --------------------------------------------+---------+-----------+ # Module present among main modules: | 1 | 1 | # --------------------------------------------+---------+-----------+ # Module present among tests-related modules: | 0 | 1 | # --------------------------------------------+---------+-----------+ # Module not present at all: | 0 | 0 | # --------------------------------------------+---------+-----------+ AC_DEFUN([gl_MODULE_INDICATOR], [ AC_DEFINE_UNQUOTED([GNULIB_]m4_translit([[$1]], [abcdefghijklmnopqrstuvwxyz./-], [ABCDEFGHIJKLMNOPQRSTUVWXYZ___]), [gl_MODULE_INDICATOR_CONDITION], [Define to a C preprocessor expression that evaluates to 1 or 0, depending whether the gnulib module $1 shall be considered present.]) ]) # gl_MODULE_INDICATOR_FOR_TESTS([modulename]) # defines a C macro indicating the presence of the given module # in lib or tests. This is useful to determine whether the module # should be tested. # | Value | Value | # | in lib/ | in tests/ | # --------------------------------------------+---------+-----------+ # Module present among main modules: | 1 | 1 | # --------------------------------------------+---------+-----------+ # Module present among tests-related modules: | 1 | 1 | # --------------------------------------------+---------+-----------+ # Module not present at all: | 0 | 0 | # --------------------------------------------+---------+-----------+ AC_DEFUN([gl_MODULE_INDICATOR_FOR_TESTS], [ AC_DEFINE([GNULIB_TEST_]m4_translit([[$1]], [abcdefghijklmnopqrstuvwxyz./-], [ABCDEFGHIJKLMNOPQRSTUVWXYZ___]), [1], [Define to 1 when the gnulib module $1 should be tested.]) ]) # gl_ASSERT_NO_GNULIB_POSIXCHECK # asserts that there will never be a need to #define GNULIB_POSIXCHECK. # and thereby enables an optimization of configure and config.h. # Used by Emacs. AC_DEFUN([gl_ASSERT_NO_GNULIB_POSIXCHECK], [ dnl Override gl_WARN_ON_USE_PREPARE. dnl But hide this definition from 'aclocal'. AC_DEFUN([gl_W][ARN_ON_USE_PREPARE], []) ]) # gl_ASSERT_NO_GNULIB_TESTS # asserts that there will be no gnulib tests in the scope of the configure.ac # and thereby enables an optimization of config.h. # Used by Emacs. AC_DEFUN([gl_ASSERT_NO_GNULIB_TESTS], [ dnl Override gl_MODULE_INDICATOR_FOR_TESTS. AC_DEFUN([gl_MODULE_INDICATOR_FOR_TESTS], []) ]) # Test whether exists. # Set HAVE_FEATURES_H. AC_DEFUN([gl_FEATURES_H], [ AC_CHECK_HEADERS_ONCE([features.h]) if test $ac_cv_header_features_h = yes; then HAVE_FEATURES_H=1 else HAVE_FEATURES_H=0 fi AC_SUBST([HAVE_FEATURES_H]) ]) # AS_VAR_IF(VAR, VALUE, [IF-MATCH], [IF-NOT-MATCH]) # ---------------------------------------------------- # Backport of autoconf-2.63b's macro. # Remove this macro when we can assume autoconf >= 2.64. m4_ifndef([AS_VAR_IF], [m4_define([AS_VAR_IF], [AS_IF([test x"AS_VAR_GET([$1])" = x""$2], [$3], [$4])])]) # gl_PROG_CC_C99 # Modifies the value of the shell variable CC in an attempt to make $CC # understand ISO C99 source code. # This is like AC_PROG_CC_C99, except that # - AC_PROG_CC_C99 does not mix well with AC_PROG_CC_STDC # , # but many more packages use AC_PROG_CC_STDC than AC_PROG_CC_C99 # . # Remaining problems: # - When AC_PROG_CC_STDC is invoked twice, it adds the C99 enabling options # to CC twice # . # - AC_PROG_CC_STDC is likely to change now that C11 is an ISO standard. AC_DEFUN([gl_PROG_CC_C99], [ dnl Change that version number to the minimum Autoconf version that supports dnl mixing AC_PROG_CC_C99 calls with AC_PROG_CC_STDC calls. m4_version_prereq([9.0], [AC_REQUIRE([AC_PROG_CC_C99])], [AC_REQUIRE([AC_PROG_CC_STDC])]) ]) # gl_PROG_AR_RANLIB # Determines the values for AR, ARFLAGS, RANLIB that fit with the compiler. # The user can set the variables AR, ARFLAGS, RANLIB if he wants to override # the values. AC_DEFUN([gl_PROG_AR_RANLIB], [ dnl Minix 3 comes with two toolchains: The Amsterdam Compiler Kit compiler dnl as "cc", and GCC as "gcc". They have different object file formats and dnl library formats. In particular, the GNU binutils programs ar and ranlib dnl produce libraries that work only with gcc, not with cc. AC_REQUIRE([AC_PROG_CC]) dnl The '][' hides this use from 'aclocal'. AC_BEFORE([$0], [A][M_PROG_AR]) AC_CACHE_CHECK([for Minix Amsterdam compiler], [gl_cv_c_amsterdam_compiler], [ AC_EGREP_CPP([Amsterdam], [ #ifdef __ACK__ Amsterdam #endif ], [gl_cv_c_amsterdam_compiler=yes], [gl_cv_c_amsterdam_compiler=no]) ]) dnl Don't compete with AM_PROG_AR's decision about AR/ARFLAGS if we are not dnl building with __ACK__. if test $gl_cv_c_amsterdam_compiler = yes; then if test -z "$AR"; then AR='cc -c.a' fi if test -z "$ARFLAGS"; then ARFLAGS='-o' fi else dnl AM_PROG_AR was added in automake v1.11.2. AM_PROG_AR does not AC_SUBST dnl ARFLAGS variable (it is filed into Makefile.in directly by automake dnl script on-demand, if not specified by ./configure of course). dnl Don't AC_REQUIRE the AM_PROG_AR otherwise the code for __ACK__ above dnl will be ignored. Also, pay attention to call AM_PROG_AR in else block dnl because AM_PROG_AR is written so it could re-set AR variable even for dnl __ACK__. It may seem like its easier to avoid calling the macro here, dnl but we need to AC_SUBST both AR/ARFLAGS (thus those must have some good dnl default value and automake should usually know them). dnl dnl The '][' hides this use from 'aclocal'. m4_ifdef([A][M_PROG_AR], [A][M_PROG_AR], [:]) fi dnl In case the code above has not helped with setting AR/ARFLAGS, use dnl Automake-documented default values for AR and ARFLAGS, but prefer dnl ${host}-ar over ar (useful for cross-compiling). AC_CHECK_TOOL([AR], [ar], [ar]) if test -z "$ARFLAGS"; then ARFLAGS='cr' fi AC_SUBST([AR]) AC_SUBST([ARFLAGS]) if test -z "$RANLIB"; then if test $gl_cv_c_amsterdam_compiler = yes; then RANLIB=':' else dnl Use the ranlib program if it is available. AC_PROG_RANLIB fi fi AC_SUBST([RANLIB]) ]) # AC_C_RESTRICT # This definition is copied from post-2.69 Autoconf and overrides the # AC_C_RESTRICT macro from autoconf 2.60..2.69. It can be removed # once autoconf >= 2.70 can be assumed. It's painful to check version # numbers, and in practice this macro is more up-to-date than Autoconf # is, so override Autoconf unconditionally. AC_DEFUN([AC_C_RESTRICT], [AC_CACHE_CHECK([for C/C++ restrict keyword], [ac_cv_c_restrict], [ac_cv_c_restrict=no # The order here caters to the fact that C++ does not require restrict. for ac_kw in __restrict __restrict__ _Restrict restrict; do AC_COMPILE_IFELSE( [AC_LANG_PROGRAM( [[typedef int *int_ptr; int foo (int_ptr $ac_kw ip) { return ip[0]; } int bar (int [$ac_kw]); /* Catch GCC bug 14050. */ int bar (int ip[$ac_kw]) { return ip[0]; } ]], [[int s[1]; int *$ac_kw t = s; t[0] = 0; return foo (t) + bar (t); ]])], [ac_cv_c_restrict=$ac_kw]) test "$ac_cv_c_restrict" != no && break done ]) AH_VERBATIM([restrict], [/* Define to the equivalent of the C99 'restrict' keyword, or to nothing if this is not supported. Do not define if restrict is supported directly. */ #undef restrict /* Work around a bug in Sun C++: it does not support _Restrict or __restrict__, even though the corresponding Sun C compiler ends up with "#define restrict _Restrict" or "#define restrict __restrict__" in the previous line. Perhaps some future version of Sun C++ will work with restrict; if so, hopefully it defines __RESTRICT like Sun C does. */ #if defined __SUNPRO_CC && !defined __RESTRICT # define _Restrict # define __restrict__ #endif]) case $ac_cv_c_restrict in restrict) ;; no) AC_DEFINE([restrict], []) ;; *) AC_DEFINE_UNQUOTED([restrict], [$ac_cv_c_restrict]) ;; esac ])# AC_C_RESTRICT # gl_BIGENDIAN # is like AC_C_BIGENDIAN, except that it can be AC_REQUIREd. # Note that AC_REQUIRE([AC_C_BIGENDIAN]) does not work reliably because some # macros invoke AC_C_BIGENDIAN with arguments. AC_DEFUN([gl_BIGENDIAN], [ AC_C_BIGENDIAN ]) # gl_CACHE_VAL_SILENT(cache-id, command-to-set-it) # is like AC_CACHE_VAL(cache-id, command-to-set-it), except that it does not # output a spurious "(cached)" mark in the midst of other configure output. # This macro should be used instead of AC_CACHE_VAL when it is not surrounded # by an AC_MSG_CHECKING/AC_MSG_RESULT pair. AC_DEFUN([gl_CACHE_VAL_SILENT], [ saved_as_echo_n="$as_echo_n" as_echo_n=':' AC_CACHE_VAL([$1], [$2]) as_echo_n="$saved_as_echo_n" ]) # AS_VAR_COPY was added in autoconf 2.63b m4_define_default([AS_VAR_COPY], [AS_LITERAL_IF([$1[]$2], [$1=$$2], [eval $1=\$$2])]) libffcall-2.2/gnulib-m4/pthread_rwlock_rdlock.m40000664000000000000000000001314013416710530016571 00000000000000# pthread_rwlock_rdlock.m4 serial 2 dnl Copyright (C) 2017-2019 Free Software Foundation, Inc. dnl This file is free software; the Free Software Foundation dnl gives unlimited permission to copy and/or distribute it, dnl with or without modifications, as long as this notice is preserved. dnl From Bruno Haible. dnl Inspired by dnl https://github.com/linux-test-project/ltp/blob/master/testcases/open_posix_testsuite/conformance/interfaces/pthread_rwlock_rdlock/2-2.c dnl by Intel Corporation. dnl Test whether in a situation where dnl - an rwlock is taken by a reader and has a writer waiting, dnl - an additional reader requests the lock, dnl - the waiting writer and the requesting reader threads have the same dnl priority, dnl the requesting reader thread gets blocked, so that at some point the dnl waiting writer can acquire the lock. dnl Without such a guarantee, when there a N readers and each of the readers dnl spends more than 1/Nth of the time with the lock held, there is a high dnl probability that the waiting writer will not get the lock in a given finite dnl time, a phenomenon called "writer starvation". dnl Without such a guarantee, applications have a hard time avoiding writer dnl starvation. dnl dnl POSIX:2017 makes this requirement only for implementations that support TPS dnl (Thread Priority Scheduling) and only for the scheduling policies SCHED_FIFO dnl and SCHED_RR, see dnl http://pubs.opengroup.org/onlinepubs/9699919799/functions/pthread_rwlock_rdlock.html dnl but this test verifies the guarantee regardless of TPS and regardless of dnl scheduling policy. dnl Glibc currently does not provide this guarantee, see dnl https://sourceware.org/bugzilla/show_bug.cgi?id=13701 AC_DEFUN([gl_PTHREAD_RWLOCK_RDLOCK_PREFER_WRITER], [ AC_REQUIRE([gl_THREADLIB_EARLY]) AC_CACHE_CHECK([whether pthread_rwlock_rdlock prefers a writer to a reader], [gl_cv_pthread_rwlock_rdlock_prefer_writer], [save_LIBS="$LIBS" LIBS="$LIBS $LIBMULTITHREAD" AC_RUN_IFELSE( [AC_LANG_SOURCE([[ #include #include #include #include #define SUCCEED() exit (0) #define FAILURE() exit (1) #define UNEXPECTED(n) (exit (10 + (n))) /* The main thread creates the waiting writer and the requesting reader threads in the default way; this guarantees that they have the same priority. We can reuse the main thread as first reader thread. */ static pthread_rwlock_t lock; static pthread_t reader1; static pthread_t writer; static pthread_t reader2; static pthread_t timer; /* Used to pass control from writer to reader2 and from reader2 to timer, as in a relay race. Passing control from one running thread to another running thread is most likely faster than to create the second thread. */ static pthread_mutex_t baton; static void * timer_func (void *ignored) { /* Step 13 (can be before or after step 12): The timer thread takes the baton, then waits a moment to make sure it can tell whether the second reader thread is blocked at step 12. */ if (pthread_mutex_lock (&baton)) UNEXPECTED (13); usleep (100000); /* By the time we get here, it's clear that the second reader thread is blocked at step 12. This is the desired behaviour. */ SUCCEED (); } static void * reader2_func (void *ignored) { int err; /* Step 8 (can be before or after step 7): The second reader thread takes the baton, then waits a moment to make sure the writer thread has reached step 7. */ if (pthread_mutex_lock (&baton)) UNEXPECTED (8); usleep (100000); /* Step 9: The second reader thread requests the lock. */ err = pthread_rwlock_tryrdlock (&lock); if (err == 0) FAILURE (); else if (err != EBUSY) UNEXPECTED (9); /* Step 10: Launch a timer, to test whether the next call blocks. */ if (pthread_create (&timer, NULL, timer_func, NULL)) UNEXPECTED (10); /* Step 11: Release the baton. */ if (pthread_mutex_unlock (&baton)) UNEXPECTED (11); /* Step 12: The second reader thread requests the lock. */ err = pthread_rwlock_rdlock (&lock); if (err == 0) FAILURE (); else UNEXPECTED (12); } static void * writer_func (void *ignored) { /* Step 4: Take the baton, so that the second reader thread does not go ahead too early. */ if (pthread_mutex_lock (&baton)) UNEXPECTED (4); /* Step 5: Create the second reader thread. */ if (pthread_create (&reader2, NULL, reader2_func, NULL)) UNEXPECTED (5); /* Step 6: Release the baton. */ if (pthread_mutex_unlock (&baton)) UNEXPECTED (6); /* Step 7: The writer thread requests the lock. */ if (pthread_rwlock_wrlock (&lock)) UNEXPECTED (7); return NULL; } int main () { reader1 = pthread_self (); /* Step 1: The main thread initializes the lock and the baton. */ if (pthread_rwlock_init (&lock, NULL)) UNEXPECTED (1); if (pthread_mutex_init (&baton, NULL)) UNEXPECTED (1); /* Step 2: The main thread acquires the lock as a reader. */ if (pthread_rwlock_rdlock (&lock)) UNEXPECTED (2); /* Step 3: Create the writer thread. */ if (pthread_create (&writer, NULL, writer_func, NULL)) UNEXPECTED (3); /* Job done. Go to sleep. */ for (;;) { sleep (1); } } ]])], [gl_cv_pthread_rwlock_rdlock_prefer_writer=yes], [gl_cv_pthread_rwlock_rdlock_prefer_writer=no], [gl_cv_pthread_rwlock_rdlock_prefer_writer="guessing yes"]) LIBS="$save_LIBS" ]) case "$gl_cv_pthread_rwlock_rdlock_prefer_writer" in *yes) AC_DEFINE([HAVE_PTHREAD_RWLOCK_RDLOCK_PREFER_WRITER], [1], [Define if the 'pthread_rwlock_rdlock' function prefers a writer to a reader.]) ;; esac ]) libffcall-2.2/gnulib-m4/host-cpu-c-abi.m40000664000000000000000000005176113416710527014757 00000000000000# host-cpu-c-abi.m4 serial 11 dnl Copyright (C) 2002-2019 Free Software Foundation, Inc. dnl This file is free software; the Free Software Foundation dnl gives unlimited permission to copy and/or distribute it, dnl with or without modifications, as long as this notice is preserved. dnl From Bruno Haible and Sam Steingold. dnl Sets the HOST_CPU variable to the canonical name of the CPU. dnl Sets the HOST_CPU_C_ABI variable to the canonical name of the CPU with its dnl C language ABI (application binary interface). dnl Also defines __${HOST_CPU}__ and __${HOST_CPU_C_ABI}__ as C macros in dnl config.h. dnl dnl This canonical name can be used to select a particular assembly language dnl source file that will interoperate with C code on the given host. dnl dnl For example: dnl * 'i386' and 'sparc' are different canonical names, because code for i386 dnl will not run on SPARC CPUs and vice versa. They have different dnl instruction sets. dnl * 'sparc' and 'sparc64' are different canonical names, because code for dnl 'sparc' and code for 'sparc64' cannot be linked together: 'sparc' code dnl contains 32-bit instructions, whereas 'sparc64' code contains 64-bit dnl instructions. A process on a SPARC CPU can be in 32-bit mode or in 64-bit dnl mode, but not both. dnl * 'mips' and 'mipsn32' are different canonical names, because they use dnl different argument passing and return conventions for C functions, and dnl although the instruction set of 'mips' is a large subset of the dnl instruction set of 'mipsn32'. dnl * 'mipsn32' and 'mips64' are different canonical names, because they use dnl different sizes for the C types like 'int' and 'void *', and although dnl the instruction sets of 'mipsn32' and 'mips64' are the same. dnl * The same canonical name is used for different endiannesses. You can dnl determine the endianness through preprocessor symbols: dnl - 'arm': test __ARMEL__. dnl - 'mips', 'mipsn32', 'mips64': test _MIPSEB vs. _MIPSEL. dnl - 'powerpc64': test _BIG_ENDIAN vs. _LITTLE_ENDIAN. dnl * The same name 'i386' is used for CPUs of type i386, i486, i586 dnl (Pentium), AMD K7, Pentium II, Pentium IV, etc., because dnl - Instructions that do not exist on all of these CPUs (cmpxchg, dnl MMX, SSE, SSE2, 3DNow! etc.) are not frequently used. If your dnl assembly language source files use such instructions, you will dnl need to make the distinction. dnl - Speed of execution of the common instruction set is reasonable across dnl the entire family of CPUs. If you have assembly language source files dnl that are optimized for particular CPU types (like GNU gmp has), you dnl will need to make the distinction. dnl See . AC_DEFUN([gl_HOST_CPU_C_ABI], [ AC_REQUIRE([AC_CANONICAL_HOST]) AC_REQUIRE([gl_C_ASM]) AC_CACHE_CHECK([host CPU and C ABI], [gl_cv_host_cpu_c_abi], [case "$host_cpu" in changequote(,)dnl i[4567]86 ) changequote([,])dnl gl_cv_host_cpu_c_abi=i386 ;; x86_64 ) # On x86_64 systems, the C compiler may be generating code in one of # these ABIs: # - 64-bit instruction set, 64-bit pointers, 64-bit 'long': x86_64. # - 64-bit instruction set, 64-bit pointers, 32-bit 'long': x86_64 # with native Windows (mingw, MSVC). # - 64-bit instruction set, 32-bit pointers, 32-bit 'long': x86_64-x32. # - 32-bit instruction set, 32-bit pointers, 32-bit 'long': i386. AC_COMPILE_IFELSE( [AC_LANG_SOURCE( [[#if (defined __x86_64__ || defined __amd64__ \ || defined _M_X64 || defined _M_AMD64) int ok; #else error fail #endif ]])], [AC_COMPILE_IFELSE( [AC_LANG_SOURCE( [[#if defined __ILP32__ || defined _ILP32 int ok; #else error fail #endif ]])], [gl_cv_host_cpu_c_abi=x86_64-x32], [gl_cv_host_cpu_c_abi=x86_64])], [gl_cv_host_cpu_c_abi=i386]) ;; changequote(,)dnl alphaev[4-8] | alphaev56 | alphapca5[67] | alphaev6[78] ) changequote([,])dnl gl_cv_host_cpu_c_abi=alpha ;; arm* | aarch64 ) # Assume arm with EABI. # On arm64 systems, the C compiler may be generating code in one of # these ABIs: # - aarch64 instruction set, 64-bit pointers, 64-bit 'long': arm64. # - aarch64 instruction set, 32-bit pointers, 32-bit 'long': arm64-ilp32. # - 32-bit instruction set, 32-bit pointers, 32-bit 'long': arm or armhf. AC_COMPILE_IFELSE( [AC_LANG_SOURCE( [[#ifdef __aarch64__ int ok; #else error fail #endif ]])], [AC_COMPILE_IFELSE( [AC_LANG_SOURCE( [[#if defined __ILP32__ || defined _ILP32 int ok; #else error fail #endif ]])], [gl_cv_host_cpu_c_abi=arm64-ilp32], [gl_cv_host_cpu_c_abi=arm64])], [# Don't distinguish little-endian and big-endian arm, since they # don't require different machine code for simple operations and # since the user can distinguish them through the preprocessor # defines __ARMEL__ vs. __ARMEB__. # But distinguish arm which passes floating-point arguments and # return values in integer registers (r0, r1, ...) - this is # gcc -mfloat-abi=soft or gcc -mfloat-abi=softfp - from arm which # passes them in float registers (s0, s1, ...) and double registers # (d0, d1, ...) - this is gcc -mfloat-abi=hard. GCC 4.6 or newer # sets the preprocessor defines __ARM_PCS (for the first case) and # __ARM_PCS_VFP (for the second case), but older GCC does not. echo 'double ddd; void func (double dd) { ddd = dd; }' > conftest.c # Look for a reference to the register d0 in the .s file. AC_TRY_COMMAND(${CC-cc} $CFLAGS $CPPFLAGS $gl_c_asm_opt conftest.c) >/dev/null 2>&1 if LC_ALL=C grep 'd0,' conftest.$gl_asmext >/dev/null; then gl_cv_host_cpu_c_abi=armhf else gl_cv_host_cpu_c_abi=arm fi rm -f conftest* ]) ;; hppa1.0 | hppa1.1 | hppa2.0* | hppa64 ) # On hppa, the C compiler may be generating 32-bit code or 64-bit # code. In the latter case, it defines _LP64 and __LP64__. AC_COMPILE_IFELSE( [AC_LANG_SOURCE( [[#ifdef __LP64__ int ok; #else error fail #endif ]])], [gl_cv_host_cpu_c_abi=hppa64], [gl_cv_host_cpu_c_abi=hppa]) ;; ia64* ) # On ia64 on HP-UX, the C compiler may be generating 64-bit code or # 32-bit code. In the latter case, it defines _ILP32. AC_COMPILE_IFELSE( [AC_LANG_SOURCE( [[#ifdef _ILP32 int ok; #else error fail #endif ]])], [gl_cv_host_cpu_c_abi=ia64-ilp32], [gl_cv_host_cpu_c_abi=ia64]) ;; mips* ) # We should also check for (_MIPS_SZPTR == 64), but gcc keeps this # at 32. AC_COMPILE_IFELSE( [AC_LANG_SOURCE( [[#if defined _MIPS_SZLONG && (_MIPS_SZLONG == 64) int ok; #else error fail #endif ]])], [gl_cv_host_cpu_c_abi=mips64], [# In the n32 ABI, _ABIN32 is defined, _ABIO32 is not defined (but # may later get defined by ), and _MIPS_SIM == _ABIN32. # In the 32 ABI, _ABIO32 is defined, _ABIN32 is not defined (but # may later get defined by ), and _MIPS_SIM == _ABIO32. AC_COMPILE_IFELSE( [AC_LANG_SOURCE( [[#if (_MIPS_SIM == _ABIN32) int ok; #else error fail #endif ]])], [gl_cv_host_cpu_c_abi=mipsn32], [gl_cv_host_cpu_c_abi=mips])]) ;; powerpc* ) # Different ABIs are in use on AIX vs. Mac OS X vs. Linux,*BSD. # No need to distinguish them here; the caller may distinguish # them based on the OS. # On powerpc64 systems, the C compiler may still be generating # 32-bit code. And on powerpc-ibm-aix systems, the C compiler may # be generating 64-bit code. AC_COMPILE_IFELSE( [AC_LANG_SOURCE( [[#if defined __powerpc64__ || defined _ARCH_PPC64 int ok; #else error fail #endif ]])], [# On powerpc64, there are two ABIs on Linux: The AIX compatible # one and the ELFv2 one. The latter defines _CALL_ELF=2. AC_COMPILE_IFELSE( [AC_LANG_SOURCE( [[#if defined _CALL_ELF && _CALL_ELF == 2 int ok; #else error fail #endif ]])], [gl_cv_host_cpu_c_abi=powerpc64-elfv2], [gl_cv_host_cpu_c_abi=powerpc64]) ], [gl_cv_host_cpu_c_abi=powerpc]) ;; rs6000 ) gl_cv_host_cpu_c_abi=powerpc ;; riscv32 | riscv64 ) # There are 2 architectures (with variants): rv32* and rv64*. AC_COMPILE_IFELSE( [AC_LANG_SOURCE( [[#if __riscv_xlen == 64 int ok; #else error fail #endif ]])], [cpu=riscv64], [cpu=riscv32]) # There are 6 ABIs: ilp32, ilp32f, ilp32d, lp64, lp64f, lp64d. # Size of 'long' and 'void *': AC_COMPILE_IFELSE( [AC_LANG_SOURCE( [[#if defined __LP64__ int ok; #else error fail #endif ]])], [main_abi=lp64], [main_abi=ilp32]) # Float ABIs: # __riscv_float_abi_double: # 'float' and 'double' are passed in floating-point registers. # __riscv_float_abi_single: # 'float' are passed in floating-point registers. # __riscv_float_abi_soft: # No values are passed in floating-point registers. AC_COMPILE_IFELSE( [AC_LANG_SOURCE( [[#if defined __riscv_float_abi_double int ok; #else error fail #endif ]])], [float_abi=d], [AC_COMPILE_IFELSE( [AC_LANG_SOURCE( [[#if defined __riscv_float_abi_single int ok; #else error fail #endif ]])], [float_abi=f], [float_abi='']) ]) gl_cv_host_cpu_c_abi="${cpu}-${main_abi}${float_abi}" ;; s390* ) # On s390x, the C compiler may be generating 64-bit (= s390x) code # or 31-bit (= s390) code. AC_COMPILE_IFELSE( [AC_LANG_SOURCE( [[#if defined __LP64__ || defined __s390x__ int ok; #else error fail #endif ]])], [gl_cv_host_cpu_c_abi=s390x], [gl_cv_host_cpu_c_abi=s390]) ;; sparc | sparc64 ) # UltraSPARCs running Linux have `uname -m` = "sparc64", but the # C compiler still generates 32-bit code. AC_COMPILE_IFELSE( [AC_LANG_SOURCE( [[#if defined __sparcv9 || defined __arch64__ int ok; #else error fail #endif ]])], [gl_cv_host_cpu_c_abi=sparc64], [gl_cv_host_cpu_c_abi=sparc]) ;; *) gl_cv_host_cpu_c_abi="$host_cpu" ;; esac ]) dnl In most cases, $HOST_CPU and $HOST_CPU_C_ABI are the same. HOST_CPU=`echo "$gl_cv_host_cpu_c_abi" | sed -e 's/-.*//'` HOST_CPU_C_ABI="$gl_cv_host_cpu_c_abi" AC_SUBST([HOST_CPU]) AC_SUBST([HOST_CPU_C_ABI]) # This was # AC_DEFINE_UNQUOTED([__${HOST_CPU}__]) # AC_DEFINE_UNQUOTED([__${HOST_CPU_C_ABI}__]) # earlier, but KAI C++ 3.2d doesn't like this. sed -e 's/-/_/g' >> confdefs.h <. cygwin*) case `uname -r` in 1.[0-5].*) gl_use_threads=no ;; *) gl_use_threads=yes ;; esac ;; dnl Obey gl_AVOID_WINPTHREAD on mingw. mingw*) case "$gl_use_winpthreads_default" in yes) gl_use_threads=posix ;; no) gl_use_threads=windows ;; *) gl_use_threads=yes ;; esac ;; *) gl_use_threads=yes ;; esac changequote([,])dnl fi ]) if test "$gl_use_threads" = yes || test "$gl_use_threads" = posix; then # For using : case "$host_os" in osf*) # On OSF/1, the compiler needs the flag -D_REENTRANT so that it # groks . cc also understands the flag -pthread, but # we don't use it because 1. gcc-2.95 doesn't understand -pthread, # 2. putting a flag into CPPFLAGS that has an effect on the linker # causes the AC_LINK_IFELSE test below to succeed unexpectedly, # leading to wrong values of LIBTHREAD and LTLIBTHREAD. CPPFLAGS="$CPPFLAGS -D_REENTRANT" ;; esac # Some systems optimize for single-threaded programs by default, and # need special flags to disable these optimizations. For example, the # definition of 'errno' in . case "$host_os" in aix* | freebsd*) CPPFLAGS="$CPPFLAGS -D_THREAD_SAFE" ;; solaris*) CPPFLAGS="$CPPFLAGS -D_REENTRANT" ;; esac fi ]) dnl The guts of gl_THREADLIB. Needs to be expanded only once. AC_DEFUN([gl_THREADLIB_BODY], [ AC_REQUIRE([gl_THREADLIB_EARLY_BODY]) gl_threads_api=none LIBTHREAD= LTLIBTHREAD= LIBMULTITHREAD= LTLIBMULTITHREAD= if test "$gl_use_threads" != no; then dnl Check whether the compiler and linker support weak declarations. AC_CACHE_CHECK([whether imported symbols can be declared weak], [gl_cv_have_weak], [gl_cv_have_weak=no dnl First, test whether the compiler accepts it syntactically. AC_LINK_IFELSE( [AC_LANG_PROGRAM( [[extern void xyzzy (); #pragma weak xyzzy]], [[xyzzy();]])], [gl_cv_have_weak=maybe]) if test $gl_cv_have_weak = maybe; then dnl Second, test whether it actually works. On Cygwin 1.7.2, with dnl gcc 4.3, symbols declared weak always evaluate to the address 0. AC_RUN_IFELSE( [AC_LANG_SOURCE([[ #include #pragma weak fputs int main () { return (fputs == NULL); }]])], [gl_cv_have_weak=yes], [gl_cv_have_weak=no], [dnl When cross-compiling, assume that only ELF platforms support dnl weak symbols. AC_EGREP_CPP([Extensible Linking Format], [#ifdef __ELF__ Extensible Linking Format #endif ], [gl_cv_have_weak="guessing yes"], [gl_cv_have_weak="guessing no"]) ]) fi dnl But when linking statically, weak symbols don't work. case " $LDFLAGS " in *" -static "*) gl_cv_have_weak=no ;; esac ]) if case "$gl_cv_have_weak" in *yes) true;; *) false;; esac; then dnl If we use weak symbols to implement pthread_in_use / pth_in_use / dnl thread_in_use, we also need to test whether the ISO C 11 thrd_create dnl facility is in use. AC_CHECK_HEADERS_ONCE([threads.h]) : fi if test "$gl_use_threads" = yes || test "$gl_use_threads" = posix; then # On OSF/1, the compiler needs the flag -pthread or -D_REENTRANT so that # it groks . It's added above, in gl_THREADLIB_EARLY_BODY. AC_CHECK_HEADER([pthread.h], [gl_have_pthread_h=yes], [gl_have_pthread_h=no]) if test "$gl_have_pthread_h" = yes; then # Other possible tests: # -lpthreads (FSU threads, PCthreads) # -lgthreads gl_have_pthread= # Test whether both pthread_mutex_lock and pthread_mutexattr_init exist # in libc. IRIX 6.5 has the first one in both libc and libpthread, but # the second one only in libpthread, and lock.c needs it. # # If -pthread works, prefer it to -lpthread, since Ubuntu 14.04 # needs -pthread for some reason. See: # https://lists.gnu.org/r/bug-gnulib/2014-09/msg00023.html save_LIBS=$LIBS for gl_pthread in '' '-pthread'; do LIBS="$LIBS $gl_pthread" AC_LINK_IFELSE( [AC_LANG_PROGRAM( [[#include pthread_mutex_t m; pthread_mutexattr_t ma; ]], [[pthread_mutex_lock (&m); pthread_mutexattr_init (&ma);]])], [gl_have_pthread=yes LIBTHREAD=$gl_pthread LTLIBTHREAD=$gl_pthread LIBMULTITHREAD=$gl_pthread LTLIBMULTITHREAD=$gl_pthread]) LIBS=$save_LIBS test -n "$gl_have_pthread" && break done # Test for libpthread by looking for pthread_kill. (Not pthread_self, # since it is defined as a macro on OSF/1.) if test -n "$gl_have_pthread" && test -z "$LIBTHREAD"; then # The program links fine without libpthread. But it may actually # need to link with libpthread in order to create multiple threads. AC_CHECK_LIB([pthread], [pthread_kill], [LIBMULTITHREAD=-lpthread LTLIBMULTITHREAD=-lpthread # On Solaris and HP-UX, most pthread functions exist also in libc. # Therefore pthread_in_use() needs to actually try to create a # thread: pthread_create from libc will fail, whereas # pthread_create will actually create a thread. # On Solaris 10 or newer, this test is no longer needed, because # libc contains the fully functional pthread functions. case "$host_os" in solaris | solaris2.[1-9] | solaris2.[1-9].* | hpux*) AC_DEFINE([PTHREAD_IN_USE_DETECTION_HARD], [1], [Define if the pthread_in_use() detection is hard.]) esac ]) elif test -z "$gl_have_pthread"; then # Some library is needed. Try libpthread and libc_r. AC_CHECK_LIB([pthread], [pthread_kill], [gl_have_pthread=yes LIBTHREAD=-lpthread LTLIBTHREAD=-lpthread LIBMULTITHREAD=-lpthread LTLIBMULTITHREAD=-lpthread]) if test -z "$gl_have_pthread"; then # For FreeBSD 4. AC_CHECK_LIB([c_r], [pthread_kill], [gl_have_pthread=yes LIBTHREAD=-lc_r LTLIBTHREAD=-lc_r LIBMULTITHREAD=-lc_r LTLIBMULTITHREAD=-lc_r]) fi fi if test -n "$gl_have_pthread"; then gl_threads_api=posix AC_DEFINE([USE_POSIX_THREADS], [1], [Define if the POSIX multithreading library can be used.]) if test -n "$LIBMULTITHREAD" || test -n "$LTLIBMULTITHREAD"; then if case "$gl_cv_have_weak" in *yes) true;; *) false;; esac; then AC_DEFINE([USE_POSIX_THREADS_WEAK], [1], [Define if references to the POSIX multithreading library should be made weak.]) LIBTHREAD= LTLIBTHREAD= fi fi fi fi fi if test -z "$gl_have_pthread"; then case "$gl_use_threads" in yes | windows | win32) # The 'win32' is for backward compatibility. if { case "$host_os" in mingw*) true;; *) false;; esac }; then gl_threads_api=windows AC_DEFINE([USE_WINDOWS_THREADS], [1], [Define if the native Windows multithreading API can be used.]) fi ;; esac fi fi AC_MSG_CHECKING([for multithread API to use]) AC_MSG_RESULT([$gl_threads_api]) AC_SUBST([LIBTHREAD]) AC_SUBST([LTLIBTHREAD]) AC_SUBST([LIBMULTITHREAD]) AC_SUBST([LTLIBMULTITHREAD]) ]) AC_DEFUN([gl_THREADLIB], [ AC_REQUIRE([gl_THREADLIB_EARLY]) AC_REQUIRE([gl_THREADLIB_BODY]) ]) dnl gl_DISABLE_THREADS dnl ------------------ dnl Sets the gl_THREADLIB default so that threads are not used by default. dnl The user can still override it at installation time, by using the dnl configure option '--enable-threads'. AC_DEFUN([gl_DISABLE_THREADS], [ m4_divert_text([INIT_PREPARE], [gl_use_threads_default=no]) ]) dnl gl_AVOID_WINPTHREAD dnl ------------------- dnl Sets the gl_THREADLIB default so that on mingw, a dependency to the dnl libwinpthread DLL (mingw-w64 winpthreads library) is avoided. dnl The user can still override it at installation time, by using the dnl configure option '--enable-threads'. AC_DEFUN([gl_AVOID_WINPTHREAD], [ m4_divert_text([INIT_PREPARE], [gl_use_winpthreads_default=no]) ]) dnl Survey of platforms: dnl dnl Platform Available Compiler Supports test-lock dnl flavours option weak result dnl --------------- --------- --------- -------- --------- dnl Linux 2.4/glibc posix -lpthread Y OK dnl dnl GNU Hurd/glibc posix dnl dnl Ubuntu 14.04 posix -pthread Y OK dnl dnl FreeBSD 5.3 posix -lc_r Y dnl posix -lkse ? Y dnl posix -lpthread ? Y dnl posix -lthr Y dnl dnl FreeBSD 5.2 posix -lc_r Y dnl posix -lkse Y dnl posix -lthr Y dnl dnl FreeBSD 4.0,4.10 posix -lc_r Y OK dnl dnl NetBSD 1.6 -- dnl dnl OpenBSD 3.4 posix -lpthread Y OK dnl dnl Mac OS X 10.[123] posix -lpthread Y OK dnl dnl Solaris 7,8,9 posix -lpthread Y Sol 7,8: 0.0; Sol 9: OK dnl dnl HP-UX 11 posix -lpthread N (cc) OK dnl Y (gcc) dnl dnl IRIX 6.5 posix -lpthread Y 0.5 dnl dnl AIX 4.3,5.1 posix -lpthread N AIX 4: 0.5; AIX 5: OK dnl dnl OSF/1 4.0,5.1 posix -pthread (cc) N OK dnl -lpthread (gcc) Y dnl dnl Cygwin posix -lpthread Y OK dnl dnl Mingw windows N OK dnl dnl BeOS 5 -- dnl dnl The test-lock result shows what happens if in test-lock.c EXPLICIT_YIELD is dnl turned off: dnl OK if all three tests terminate OK, dnl 0.5 if the first test terminates OK but the second one loops endlessly, dnl 0.0 if the first test already loops endlessly. libffcall-2.2/config.h.in0000664000000000000000000003634313530357245012227 00000000000000/* config.h.in. Generated from configure.ac by autoheader. */ /* CPU and C ABI indicator */ #ifndef __i386__ #undef __i386__ #endif #ifndef __x86_64_x32__ #undef __x86_64_x32__ #endif #ifndef __x86_64__ #undef __x86_64__ #endif #ifndef __alpha__ #undef __alpha__ #endif #ifndef __arm__ #undef __arm__ #endif #ifndef __armhf__ #undef __armhf__ #endif #ifndef __arm64_ilp32__ #undef __arm64_ilp32__ #endif #ifndef __arm64__ #undef __arm64__ #endif #ifndef __hppa__ #undef __hppa__ #endif #ifndef __hppa64__ #undef __hppa64__ #endif #ifndef __ia64_ilp32__ #undef __ia64_ilp32__ #endif #ifndef __ia64__ #undef __ia64__ #endif #ifndef __m68k__ #undef __m68k__ #endif #ifndef __mips__ #undef __mips__ #endif #ifndef __mipsn32__ #undef __mipsn32__ #endif #ifndef __mips64__ #undef __mips64__ #endif #ifndef __powerpc__ #undef __powerpc__ #endif #ifndef __powerpc64__ #undef __powerpc64__ #endif #ifndef __powerpc64_elfv2__ #undef __powerpc64_elfv2__ #endif #ifndef __riscv32__ #undef __riscv32__ #endif #ifndef __riscv64__ #undef __riscv64__ #endif #ifndef __riscv32_ilp32__ #undef __riscv32_ilp32__ #endif #ifndef __riscv32_ilp32f__ #undef __riscv32_ilp32f__ #endif #ifndef __riscv32_ilp32d__ #undef __riscv32_ilp32d__ #endif #ifndef __riscv64_ilp32__ #undef __riscv64_ilp32__ #endif #ifndef __riscv64_ilp32f__ #undef __riscv64_ilp32f__ #endif #ifndef __riscv64_ilp32d__ #undef __riscv64_ilp32d__ #endif #ifndef __riscv64_lp64__ #undef __riscv64_lp64__ #endif #ifndef __riscv64_lp64f__ #undef __riscv64_lp64f__ #endif #ifndef __riscv64_lp64d__ #undef __riscv64_lp64d__ #endif #ifndef __s390__ #undef __s390__ #endif #ifndef __s390x__ #undef __s390x__ #endif #ifndef __sh__ #undef __sh__ #endif #ifndef __sparc__ #undef __sparc__ #endif #ifndef __sparc64__ #undef __sparc64__ #endif /* Define to the number of bits in type 'ptrdiff_t'. */ #undef BITSIZEOF_PTRDIFF_T /* Define to the number of bits in type 'sig_atomic_t'. */ #undef BITSIZEOF_SIG_ATOMIC_T /* Define to the number of bits in type 'size_t'. */ #undef BITSIZEOF_SIZE_T /* Define to the number of bits in type 'wchar_t'. */ #undef BITSIZEOF_WCHAR_T /* Define to the number of bits in type 'wint_t'. */ #undef BITSIZEOF_WINT_T /* whether code in malloc()ed memory is executable */ #undef CODE_EXECUTABLE /* Define to a C preprocessor expression that evaluates to 1 or 0, depending whether the gnulib module lock shall be considered present. */ #undef GNULIB_LOCK /* Define to 1 if you have the header file. */ #undef HAVE_DLFCN_H /* have getpagesize() */ #undef HAVE_GETPAGESIZE /* Define to 1 if you have the header file. */ #undef HAVE_INTTYPES_H /* Define to 1 if you have the header file. */ #undef HAVE_LIMITS_H /* Define to 1 if the system has the type 'long long int'. */ #undef HAVE_LONG_LONG_INT /* have vm_allocate() and task_self() functions */ #undef HAVE_MACH_VM /* Define to 1 if you have the header file. */ #undef HAVE_MEMORY_H /* have and the mmap() function */ #undef HAVE_MMAP /* defines MAP_ANON and mmaping with MAP_ANON works */ #undef HAVE_MMAP_ANON /* defines MAP_ANONYMOUS and mmaping with MAP_ANONYMOUS works */ #undef HAVE_MMAP_ANONYMOUS /* mmaping of the special device /dev/zero works */ #undef HAVE_MMAP_DEVZERO /* have an mmap() function that, with MAP_SHARED, can make memory pages executable */ #undef HAVE_MMAP_SHARED_CAN_EXEC /* Define to 1 if you have the `mprotect' function. */ #undef HAVE_MPROTECT /* have an mprotect() function that can make malloc()ed memory pages executable */ #undef HAVE_MPROTECT_AFTER_MALLOC_CAN_EXEC /* have an mprotect() function that can make mmap()ed memory pages executable */ #undef HAVE_MPROTECT_AFTER_MMAP_CAN_EXEC /* Define if the defines PTHREAD_MUTEX_RECURSIVE. */ #undef HAVE_PTHREAD_MUTEX_RECURSIVE /* Define if the POSIX multithreading library has read/write locks. */ #undef HAVE_PTHREAD_RWLOCK /* Define if the 'pthread_rwlock_rdlock' function prefers a writer to a reader. */ #undef HAVE_PTHREAD_RWLOCK_RDLOCK_PREFER_WRITER /* have and and shared memory works */ #undef HAVE_SHM /* Define to 1 if 'sig_atomic_t' is a signed integer type. */ #undef HAVE_SIGNED_SIG_ATOMIC_T /* Define to 1 if 'wchar_t' is a signed integer type. */ #undef HAVE_SIGNED_WCHAR_T /* Define to 1 if 'wint_t' is a signed integer type. */ #undef HAVE_SIGNED_WINT_T /* Define to 1 if you have the header file. */ #undef HAVE_STDINT_H /* Define to 1 if you have the header file. */ #undef HAVE_STDLIB_H /* Define to 1 if you have the header file. */ #undef HAVE_STRINGS_H /* Define to 1 if you have the header file. */ #undef HAVE_STRING_H /* Define to 1 if you have the header file. */ #undef HAVE_SYS_BITYPES_H /* Define to 1 if you have the header file. */ #undef HAVE_SYS_CACHECTL_H /* Define to 1 if you have the header file. */ #undef HAVE_SYS_INTTYPES_H /* Define to 1 if you have the header file. */ #undef HAVE_SYS_IPC_H /* Define to 1 if you have the header file. */ #undef HAVE_SYS_PARAM_H /* Define to 1 if you have the header file. */ #undef HAVE_SYS_SHM_H /* Define to 1 if you have the header file. */ #undef HAVE_SYS_STAT_H /* Define to 1 if you have the header file. */ #undef HAVE_SYS_SYSMACROS_H /* Define to 1 if you have the header file. */ #undef HAVE_SYS_TYPES_H /* Define to 1 if you have the header file. */ #undef HAVE_THREADS_H /* Define to 1 if you have the header file. */ #undef HAVE_UNISTD_H /* Define to 1 if the system has the type 'unsigned long long int'. */ #undef HAVE_UNSIGNED_LONG_LONG_INT /* Define to 1 if you have the header file. */ #undef HAVE_WCHAR_H /* Define if you have the 'wint_t' type. */ #undef HAVE_WINT_T /* have a working mprotect() function */ #undef HAVE_WORKING_MPROTECT /* Version number: (major<<8) + minor */ #undef LIBFFCALL_VERSION /* Define to the sub-directory where libtool stores uninstalled libraries. */ #undef LT_OBJDIR /* Name of package */ #undef PACKAGE /* Define to the address where bug reports for this package should be sent. */ #undef PACKAGE_BUGREPORT /* Define to the full name of this package. */ #undef PACKAGE_NAME /* Define to the full name and version of this package. */ #undef PACKAGE_STRING /* Define to the one symbol short name of this package. */ #undef PACKAGE_TARNAME /* Define to the home page for this package. */ #undef PACKAGE_URL /* Define to the version of this package. */ #undef PACKAGE_VERSION /* Define if the pthread_in_use() detection is hard. */ #undef PTHREAD_IN_USE_DETECTION_HARD /* Define to l, ll, u, ul, ull, etc., as suitable for constants of type 'ptrdiff_t'. */ #undef PTRDIFF_T_SUFFIX /* return type of getpagesize() */ #undef RETGETPAGESIZETYPE /* Define to l, ll, u, ul, ull, etc., as suitable for constants of type 'sig_atomic_t'. */ #undef SIG_ATOMIC_T_SUFFIX /* Define to l, ll, u, ul, ull, etc., as suitable for constants of type 'size_t'. */ #undef SIZE_T_SUFFIX /* Define to 1 if you have the ANSI C header files. */ #undef STDC_HEADERS /* Define to the prefix of C symbols at the assembler and linker level, either an underscore or empty. */ #undef USER_LABEL_PREFIX /* Define if the POSIX multithreading library can be used. */ #undef USE_POSIX_THREADS /* Define if references to the POSIX multithreading library should be made weak. */ #undef USE_POSIX_THREADS_WEAK /* Enable extensions on AIX 3, Interix. */ #ifndef _ALL_SOURCE # undef _ALL_SOURCE #endif /* Enable general extensions on macOS. */ #ifndef _DARWIN_C_SOURCE # undef _DARWIN_C_SOURCE #endif /* Enable GNU extensions on systems that have them. */ #ifndef _GNU_SOURCE # undef _GNU_SOURCE #endif /* Enable NetBSD extensions on NetBSD. */ #ifndef _NETBSD_SOURCE # undef _NETBSD_SOURCE #endif /* Enable OpenBSD extensions on NetBSD. */ #ifndef _OPENBSD_SOURCE # undef _OPENBSD_SOURCE #endif /* Enable threading extensions on Solaris. */ #ifndef _POSIX_PTHREAD_SEMANTICS # undef _POSIX_PTHREAD_SEMANTICS #endif /* Enable extensions specified by ISO/IEC TS 18661-5:2014. */ #ifndef __STDC_WANT_IEC_60559_ATTRIBS_EXT__ # undef __STDC_WANT_IEC_60559_ATTRIBS_EXT__ #endif /* Enable extensions specified by ISO/IEC TS 18661-1:2014. */ #ifndef __STDC_WANT_IEC_60559_BFP_EXT__ # undef __STDC_WANT_IEC_60559_BFP_EXT__ #endif /* Enable extensions specified by ISO/IEC TS 18661-2:2015. */ #ifndef __STDC_WANT_IEC_60559_DFP_EXT__ # undef __STDC_WANT_IEC_60559_DFP_EXT__ #endif /* Enable extensions specified by ISO/IEC TS 18661-4:2015. */ #ifndef __STDC_WANT_IEC_60559_FUNCS_EXT__ # undef __STDC_WANT_IEC_60559_FUNCS_EXT__ #endif /* Enable extensions specified by ISO/IEC TS 18661-3:2015. */ #ifndef __STDC_WANT_IEC_60559_TYPES_EXT__ # undef __STDC_WANT_IEC_60559_TYPES_EXT__ #endif /* Enable extensions specified by ISO/IEC TR 24731-2:2010. */ #ifndef __STDC_WANT_LIB_EXT2__ # undef __STDC_WANT_LIB_EXT2__ #endif /* Enable extensions specified by ISO/IEC 24747:2009. */ #ifndef __STDC_WANT_MATH_SPEC_FUNCS__ # undef __STDC_WANT_MATH_SPEC_FUNCS__ #endif /* Enable extensions on HP NonStop. */ #ifndef _TANDEM_SOURCE # undef _TANDEM_SOURCE #endif /* Enable X/Open extensions if necessary. HP-UX 11.11 defines mbstate_t only if _XOPEN_SOURCE is defined to 500, regardless of whether compiling with -Ae or -D_HPUX_SOURCE=1. */ #ifndef _XOPEN_SOURCE # undef _XOPEN_SOURCE #endif /* Enable X/Open compliant socket functions that do not require linking with -lxnet on HP-UX 11.11. */ #ifndef _HPUX_ALT_XOPEN_SOCKET_API # undef _HPUX_ALT_XOPEN_SOCKET_API #endif /* Enable general extensions on Solaris. */ #ifndef __EXTENSIONS__ # undef __EXTENSIONS__ #endif /* Define if the native Windows multithreading API can be used. */ #undef USE_WINDOWS_THREADS /* Version number of package */ #undef VERSION /* Define to l, ll, u, ul, ull, etc., as suitable for constants of type 'wchar_t'. */ #undef WCHAR_T_SUFFIX /* Define to l, ll, u, ul, ull, etc., as suitable for constants of type 'wint_t'. */ #undef WINT_T_SUFFIX /* Define to 1 if on MINIX. */ #undef _MINIX /* Define to 1 to make NetBSD features available. MINIX 3 needs this. */ #undef _NETBSD_SOURCE /* The _Noreturn keyword of C11. */ #ifndef _Noreturn # if (defined __cplusplus \ && ((201103 <= __cplusplus && !(__GNUC__ == 4 && __GNUC_MINOR__ == 7)) \ || (defined _MSC_VER && 1900 <= _MSC_VER))) # define _Noreturn [[noreturn]] # elif ((!defined __cplusplus || defined __clang__) \ && (201112 <= (defined __STDC_VERSION__ ? __STDC_VERSION__ : 0) \ || 4 < __GNUC__ + (7 <= __GNUC_MINOR__))) /* _Noreturn works as-is. */ # elif 2 < __GNUC__ + (8 <= __GNUC_MINOR__) || 0x5110 <= __SUNPRO_C # define _Noreturn __attribute__ ((__noreturn__)) # elif 1200 <= (defined _MSC_VER ? _MSC_VER : 0) # define _Noreturn __declspec (noreturn) # else # define _Noreturn # endif #endif /* Define to 2 if the system does not provide POSIX.1 features except with this defined. */ #undef _POSIX_1_SOURCE /* Define to 1 if you need to in order for 'stat' and other things to work. */ #undef _POSIX_SOURCE /* For standard stat data types on VMS. */ #undef _USE_STD_STAT /* whether floats are returned in integer registers */ #undef __IREG_FLOAT_RETURN__ /* whether small structs are returned in registers */ #undef __SMALL_STRUCT_RETURN__ /* Define to 1 if the system predates C++11. */ #undef __STDC_CONSTANT_MACROS /* Define to 1 if the system predates C++11. */ #undef __STDC_LIMIT_MACROS /* The _GL_ASYNC_SAFE marker should be attached to functions that are signal handlers (for signals other than SIGABRT, SIGPIPE) or can be invoked from such signal handlers. Such functions have some restrictions: * All functions that it calls should be marked _GL_ASYNC_SAFE as well, or should be listed as async-signal-safe in POSIX section 2.4.3. Note that malloc(), sprintf(), and fwrite(), in particular, are NOT async-signal-safe. * All memory locations (variables and struct fields) that these functions access must be marked 'volatile'. This holds for both read and write accesses. Otherwise the compiler might optimize away stores to and reads from such locations that occur in the program, depending on its data flow analysis. For example, when the program contains a loop that is intended to inspect a variable set from within a signal handler while (!signal_occurred) ; the compiler is allowed to transform this into an endless loop if the variable 'signal_occurred' is not declared 'volatile'. Additionally, recall that: * A signal handler should not modify errno (except if it is a handler for a fatal signal and ends by raising the same signal again, thus provoking the termination of the process). If it invokes a function that may clobber errno, it needs to save and restore the value of errno. */ #define _GL_ASYNC_SAFE /* Work around a bug in Apple GCC 4.0.1 build 5465: In C99 mode, it supports the ISO C 99 semantics of 'extern inline' (unlike the GNU C semantics of earlier versions), but does not display it by setting __GNUC_STDC_INLINE__. __APPLE__ && __MACH__ test for Mac OS X. __APPLE_CC__ tests for the Apple compiler and its version. __STDC_VERSION__ tests for the C99 mode. */ #if defined __APPLE__ && defined __MACH__ && __APPLE_CC__ >= 5465 && !defined __cplusplus && __STDC_VERSION__ >= 199901L && !defined __GNUC_STDC_INLINE__ # define __GNUC_STDC_INLINE__ 1 #endif /* Define to `int' if does not define. */ #undef mode_t /* Define to `int' if does not define. */ #undef pid_t /* Define as a signed type of the same size as size_t. */ #undef ssize_t /* Define as a marker that can be attached to declarations that might not be used. This helps to reduce warnings, such as from GCC -Wunused-parameter. */ #if __GNUC__ >= 3 || (__GNUC__ == 2 && __GNUC_MINOR__ >= 7) # define _GL_UNUSED __attribute__ ((__unused__)) #else # define _GL_UNUSED #endif /* The name _UNUSED_PARAMETER_ is an earlier spelling, although the name is a misnomer outside of parameter lists. */ #define _UNUSED_PARAMETER_ _GL_UNUSED /* gcc supports the "unused" attribute on possibly unused labels, and g++ has since version 4.5. Note to support C++ as well as C, _GL_UNUSED_LABEL should be used with a trailing ; */ #if !defined __cplusplus || __GNUC__ > 4 \ || (__GNUC__ == 4 && __GNUC_MINOR__ >= 5) # define _GL_UNUSED_LABEL _GL_UNUSED #else # define _GL_UNUSED_LABEL #endif /* The __pure__ attribute was added in gcc 2.96. */ #if __GNUC__ > 2 || (__GNUC__ == 2 && __GNUC_MINOR__ >= 96) # define _GL_ATTRIBUTE_PURE __attribute__ ((__pure__)) #else # define _GL_ATTRIBUTE_PURE /* empty */ #endif /* The __const__ attribute was added in gcc 2.95. */ #if __GNUC__ > 2 || (__GNUC__ == 2 && __GNUC_MINOR__ >= 95) # define _GL_ATTRIBUTE_CONST __attribute__ ((__const__)) #else # define _GL_ATTRIBUTE_CONST /* empty */ #endif /* The __malloc__ attribute was added in gcc 3. */ #if 3 <= __GNUC__ # define _GL_ATTRIBUTE_MALLOC __attribute__ ((__malloc__)) #else # define _GL_ATTRIBUTE_MALLOC /* empty */ #endif libffcall-2.2/m4/0000775000000000000000000000000013530357260010570 500000000000000libffcall-2.2/m4/endianness.m40000644000000000000000000000446013047617304013104 00000000000000# endianness.m4 serial 1 dnl Copyright (C) 2017 Free Software Foundation, Inc. dnl This file is free software; the Free Software Foundation dnl gives unlimited permission to copy and/or distribute it, dnl with or without modifications, as long as this notice is preserved. dnl From Bruno Haible. dnl For specific bi-endian CPUs, sets the ENDIANNESS variable to either dnl 'eb' (means big endian) or 'el' (means little endian). dnl dnl This variable can be used to select a particular assembly language dnl source file that will interoperate with C code on the given host. AC_DEFUN([FFCALL_ENDIANNESS], [ AC_REQUIRE([AC_CANONICAL_HOST]) case "$host_cpu" in arm* ) AC_CACHE_CHECK([endianness], [ffcall_cv_endianness], [AC_EGREP_CPP([yes], [#if defined __ARMEL__ yes #endif], [ffcall_cv_endianness=little], [ffcall_cv_endianness=big])]) ;; mips* ) AC_CACHE_CHECK([endianness], [ffcall_cv_endianness], [# Compilers on IRIX define only _MIPSEB as indicator. # Compilers on Linux define _MIPSEB, __MIPSEB__, __MIPSEB or - in # the opposite case - _MIPSEL, __MIPSEL__, __MIPSEL. AC_EGREP_CPP([yes], [#if defined _MIPSEB yes #endif], [ffcall_cv_endianness=big], [AC_EGREP_CPP([yes], [#if defined _MIPSEL yes #endif], [ffcall_cv_endianness=little], [ffcall_cv_endianness=unknown])]) ]) ;; powerpc*) AC_CACHE_CHECK([endianness], [ffcall_cv_endianness], [# Compilers on AIX and Linux define _BIG_ENDIAN, __BIG_ENDIAN__ or # - in the opposite case - _LITTLE_ENDIAN, __LITTLE_ENDIAN__. AC_EGREP_CPP([yes], [#if defined _BIG_ENDIAN yes #endif], [ffcall_cv_endianness=big], [AC_EGREP_CPP([yes], [#if defined _LITTLE_ENDIAN yes #endif], [ffcall_cv_endianness=little], [ffcall_cv_endianness=unknown])]) ]) ;; *) ffcall_cv_endianness=known ;; esac case "$ffcall_cv_endianness" in big) ENDIANNESS='eb' ;; little) ENDIANNESS='el' ;; *) ENDIANNESS='' ;; esac AC_SUBST([ENDIANNESS]) ]) libffcall-2.2/m4/shm.m40000664000000000000000000000546013137502335011544 00000000000000dnl -*- Autoconf -*- dnl Copyright (C) 1993-2017 Free Software Foundation, Inc. dnl This file is free software, distributed under the terms of the GNU dnl General Public License as published by the Free Software Foundation; dnl either version 2 of the License, or (at your option) any later version. dnl As a special exception to the GNU General Public License, this file dnl may be distributed as part of a program that contains a configuration dnl script generated by Autoconf, under the same distribution terms as dnl the rest of that program. dnl From Bruno Haible, Marcus Daniels, Sam Steingold. AC_PREREQ([2.57]) AC_DEFUN([CL_SHM_H], [ AC_BEFORE([$0], [CL_SHM_RMID]) AC_CHECK_HEADERS([sys/shm.h]) if test $ac_cv_header_sys_shm_h = yes; then AC_CHECK_HEADERS([sys/ipc.h]) fi ]) AC_DEFUN([CL_SHM], [ AC_BEFORE([$0], [CL_SHM_RMID]) AC_REQUIRE([CL_SHM_H]) AC_REQUIRE([AC_CANONICAL_HOST]) if test $ac_cv_header_sys_shm_h = yes -a "$ac_cv_header_sys_ipc_h" = yes; then # This test is from Marcus Daniels AC_CACHE_CHECK([for working shared memory], [cl_cv_sys_shm_works], [AC_TRY_RUN( [#include #include #include #include /* try attaching a single segment to multiple addresses */ #define segsize 0x10000 #define attaches 128 #define base_addr 0x01000000 int main () { int shmid; int i; char* addr; char* result; if ((shmid = shmget(IPC_PRIVATE,segsize,0400)) < 0) exit(1); for (i=0, addr = (char*)0x01000000; i and and shared memory works]) AC_CHECK_HEADERS([sys/sysmacros.h]) ;; *) ;; esac ]) libffcall-2.2/m4/libtool.m40000664000000000000000000112507413530357235012432 00000000000000# libtool.m4 - Configure libtool for the host system. -*-Autoconf-*- # # Copyright (C) 1996-2001, 2003-2015 Free Software Foundation, Inc. # Written by Gordon Matzigkeit, 1996 # # This file is free software; the Free Software Foundation gives # unlimited permission to copy and/or distribute it, with or without # modifications, as long as this notice is preserved. m4_define([_LT_COPYING], [dnl # Copyright (C) 2014 Free Software Foundation, Inc. # This is free software; see the source for copying conditions. There is NO # warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. # GNU Libtool is free software; you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by # the Free Software Foundation; either version 2 of of the License, or # (at your option) any later version. # # As a special exception to the GNU General Public License, if you # distribute this file as part of a program or library that is built # using GNU Libtool, you may include this file under the same # distribution terms that you use for the rest of that program. # # GNU Libtool is distributed in the hope that it will be useful, but # WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # # You should have received a copy of the GNU General Public License # along with this program. If not, see . ]) # serial 58 LT_INIT # LT_PREREQ(VERSION) # ------------------ # Complain and exit if this libtool version is less that VERSION. m4_defun([LT_PREREQ], [m4_if(m4_version_compare(m4_defn([LT_PACKAGE_VERSION]), [$1]), -1, [m4_default([$3], [m4_fatal([Libtool version $1 or higher is required], 63)])], [$2])]) # _LT_CHECK_BUILDDIR # ------------------ # Complain if the absolute build directory name contains unusual characters m4_defun([_LT_CHECK_BUILDDIR], [case `pwd` in *\ * | *\ *) AC_MSG_WARN([Libtool does not cope well with whitespace in `pwd`]) ;; esac ]) # LT_INIT([OPTIONS]) # ------------------ AC_DEFUN([LT_INIT], [AC_PREREQ([2.62])dnl We use AC_PATH_PROGS_FEATURE_CHECK AC_REQUIRE([AC_CONFIG_AUX_DIR_DEFAULT])dnl AC_BEFORE([$0], [LT_LANG])dnl AC_BEFORE([$0], [LT_OUTPUT])dnl AC_BEFORE([$0], [LTDL_INIT])dnl m4_require([_LT_CHECK_BUILDDIR])dnl dnl Autoconf doesn't catch unexpanded LT_ macros by default: m4_pattern_forbid([^_?LT_[A-Z_]+$])dnl m4_pattern_allow([^(_LT_EOF|LT_DLGLOBAL|LT_DLLAZY_OR_NOW|LT_MULTI_MODULE)$])dnl dnl aclocal doesn't pull ltoptions.m4, ltsugar.m4, or ltversion.m4 dnl unless we require an AC_DEFUNed macro: AC_REQUIRE([LTOPTIONS_VERSION])dnl AC_REQUIRE([LTSUGAR_VERSION])dnl AC_REQUIRE([LTVERSION_VERSION])dnl AC_REQUIRE([LTOBSOLETE_VERSION])dnl m4_require([_LT_PROG_LTMAIN])dnl _LT_SHELL_INIT([SHELL=${CONFIG_SHELL-/bin/sh}]) dnl Parse OPTIONS _LT_SET_OPTIONS([$0], [$1]) # This can be used to rebuild libtool when needed LIBTOOL_DEPS=$ltmain # Always use our own libtool. LIBTOOL='$(SHELL) $(top_builddir)/libtool' AC_SUBST(LIBTOOL)dnl _LT_SETUP # Only expand once: m4_define([LT_INIT]) ])# LT_INIT # Old names: AU_ALIAS([AC_PROG_LIBTOOL], [LT_INIT]) AU_ALIAS([AM_PROG_LIBTOOL], [LT_INIT]) dnl aclocal-1.4 backwards compatibility: dnl AC_DEFUN([AC_PROG_LIBTOOL], []) dnl AC_DEFUN([AM_PROG_LIBTOOL], []) # _LT_PREPARE_CC_BASENAME # ----------------------- m4_defun([_LT_PREPARE_CC_BASENAME], [ # Calculate cc_basename. Skip known compiler wrappers and cross-prefix. func_cc_basename () { for cc_temp in @S|@*""; do case $cc_temp in compile | *[[\\/]]compile | ccache | *[[\\/]]ccache ) ;; distcc | *[[\\/]]distcc | purify | *[[\\/]]purify ) ;; \-*) ;; *) break;; esac done func_cc_basename_result=`$ECHO "$cc_temp" | $SED "s%.*/%%; s%^$host_alias-%%"` } ])# _LT_PREPARE_CC_BASENAME # _LT_CC_BASENAME(CC) # ------------------- # It would be clearer to call AC_REQUIREs from _LT_PREPARE_CC_BASENAME, # but that macro is also expanded into generated libtool script, which # arranges for $SED and $ECHO to be set by different means. m4_defun([_LT_CC_BASENAME], [m4_require([_LT_PREPARE_CC_BASENAME])dnl AC_REQUIRE([_LT_DECL_SED])dnl AC_REQUIRE([_LT_PROG_ECHO_BACKSLASH])dnl func_cc_basename $1 cc_basename=$func_cc_basename_result ]) # _LT_FILEUTILS_DEFAULTS # ---------------------- # It is okay to use these file commands and assume they have been set # sensibly after 'm4_require([_LT_FILEUTILS_DEFAULTS])'. m4_defun([_LT_FILEUTILS_DEFAULTS], [: ${CP="cp -f"} : ${MV="mv -f"} : ${RM="rm -f"} ])# _LT_FILEUTILS_DEFAULTS # _LT_SETUP # --------- m4_defun([_LT_SETUP], [AC_REQUIRE([AC_CANONICAL_HOST])dnl AC_REQUIRE([AC_CANONICAL_BUILD])dnl AC_REQUIRE([_LT_PREPARE_SED_QUOTE_VARS])dnl AC_REQUIRE([_LT_PROG_ECHO_BACKSLASH])dnl _LT_DECL([], [PATH_SEPARATOR], [1], [The PATH separator for the build system])dnl dnl _LT_DECL([], [host_alias], [0], [The host system])dnl _LT_DECL([], [host], [0])dnl _LT_DECL([], [host_os], [0])dnl dnl _LT_DECL([], [build_alias], [0], [The build system])dnl _LT_DECL([], [build], [0])dnl _LT_DECL([], [build_os], [0])dnl dnl AC_REQUIRE([AC_PROG_CC])dnl AC_REQUIRE([LT_PATH_LD])dnl AC_REQUIRE([LT_PATH_NM])dnl dnl AC_REQUIRE([AC_PROG_LN_S])dnl test -z "$LN_S" && LN_S="ln -s" _LT_DECL([], [LN_S], [1], [Whether we need soft or hard links])dnl dnl AC_REQUIRE([LT_CMD_MAX_LEN])dnl _LT_DECL([objext], [ac_objext], [0], [Object file suffix (normally "o")])dnl _LT_DECL([], [exeext], [0], [Executable file suffix (normally "")])dnl dnl m4_require([_LT_FILEUTILS_DEFAULTS])dnl m4_require([_LT_CHECK_SHELL_FEATURES])dnl m4_require([_LT_PATH_CONVERSION_FUNCTIONS])dnl m4_require([_LT_CMD_RELOAD])dnl m4_require([_LT_CHECK_MAGIC_METHOD])dnl m4_require([_LT_CHECK_SHAREDLIB_FROM_LINKLIB])dnl m4_require([_LT_CMD_OLD_ARCHIVE])dnl m4_require([_LT_CMD_GLOBAL_SYMBOLS])dnl m4_require([_LT_WITH_SYSROOT])dnl m4_require([_LT_CMD_TRUNCATE])dnl _LT_CONFIG_LIBTOOL_INIT([ # See if we are running on zsh, and set the options that allow our # commands through without removal of \ escapes INIT. if test -n "\${ZSH_VERSION+set}"; then setopt NO_GLOB_SUBST fi ]) if test -n "${ZSH_VERSION+set}"; then setopt NO_GLOB_SUBST fi _LT_CHECK_OBJDIR m4_require([_LT_TAG_COMPILER])dnl case $host_os in aix3*) # AIX sometimes has problems with the GCC collect2 program. For some # reason, if we set the COLLECT_NAMES environment variable, the problems # vanish in a puff of smoke. if test set != "${COLLECT_NAMES+set}"; then COLLECT_NAMES= export COLLECT_NAMES fi ;; esac # Global variables: ofile=libtool can_build_shared=yes # All known linkers require a '.a' archive for static linking (except MSVC, # which needs '.lib'). libext=a with_gnu_ld=$lt_cv_prog_gnu_ld old_CC=$CC old_CFLAGS=$CFLAGS # Set sane defaults for various variables test -z "$CC" && CC=cc test -z "$LTCC" && LTCC=$CC test -z "$LTCFLAGS" && LTCFLAGS=$CFLAGS test -z "$LD" && LD=ld test -z "$ac_objext" && ac_objext=o _LT_CC_BASENAME([$compiler]) # Only perform the check for file, if the check method requires it test -z "$MAGIC_CMD" && MAGIC_CMD=file case $deplibs_check_method in file_magic*) if test "$file_magic_cmd" = '$MAGIC_CMD'; then _LT_PATH_MAGIC fi ;; esac # Use C for the default configuration in the libtool script LT_SUPPORTED_TAG([CC]) _LT_LANG_C_CONFIG _LT_LANG_DEFAULT_CONFIG _LT_CONFIG_COMMANDS ])# _LT_SETUP # _LT_PREPARE_SED_QUOTE_VARS # -------------------------- # Define a few sed substitution that help us do robust quoting. m4_defun([_LT_PREPARE_SED_QUOTE_VARS], [# Backslashify metacharacters that are still active within # double-quoted strings. sed_quote_subst='s/\([["`$\\]]\)/\\\1/g' # Same as above, but do not quote variable references. double_quote_subst='s/\([["`\\]]\)/\\\1/g' # Sed substitution to delay expansion of an escaped shell variable in a # double_quote_subst'ed string. delay_variable_subst='s/\\\\\\\\\\\$/\\\\\\$/g' # Sed substitution to delay expansion of an escaped single quote. delay_single_quote_subst='s/'\''/'\'\\\\\\\'\''/g' # Sed substitution to avoid accidental globbing in evaled expressions no_glob_subst='s/\*/\\\*/g' ]) # _LT_PROG_LTMAIN # --------------- # Note that this code is called both from 'configure', and 'config.status' # now that we use AC_CONFIG_COMMANDS to generate libtool. Notably, # 'config.status' has no value for ac_aux_dir unless we are using Automake, # so we pass a copy along to make sure it has a sensible value anyway. m4_defun([_LT_PROG_LTMAIN], [m4_ifdef([AC_REQUIRE_AUX_FILE], [AC_REQUIRE_AUX_FILE([ltmain.sh])])dnl _LT_CONFIG_LIBTOOL_INIT([ac_aux_dir='$ac_aux_dir']) ltmain=$ac_aux_dir/ltmain.sh ])# _LT_PROG_LTMAIN ## ------------------------------------- ## ## Accumulate code for creating libtool. ## ## ------------------------------------- ## # So that we can recreate a full libtool script including additional # tags, we accumulate the chunks of code to send to AC_CONFIG_COMMANDS # in macros and then make a single call at the end using the 'libtool' # label. # _LT_CONFIG_LIBTOOL_INIT([INIT-COMMANDS]) # ---------------------------------------- # Register INIT-COMMANDS to be passed to AC_CONFIG_COMMANDS later. m4_define([_LT_CONFIG_LIBTOOL_INIT], [m4_ifval([$1], [m4_append([_LT_OUTPUT_LIBTOOL_INIT], [$1 ])])]) # Initialize. m4_define([_LT_OUTPUT_LIBTOOL_INIT]) # _LT_CONFIG_LIBTOOL([COMMANDS]) # ------------------------------ # Register COMMANDS to be passed to AC_CONFIG_COMMANDS later. m4_define([_LT_CONFIG_LIBTOOL], [m4_ifval([$1], [m4_append([_LT_OUTPUT_LIBTOOL_COMMANDS], [$1 ])])]) # Initialize. m4_define([_LT_OUTPUT_LIBTOOL_COMMANDS]) # _LT_CONFIG_SAVE_COMMANDS([COMMANDS], [INIT_COMMANDS]) # ----------------------------------------------------- m4_defun([_LT_CONFIG_SAVE_COMMANDS], [_LT_CONFIG_LIBTOOL([$1]) _LT_CONFIG_LIBTOOL_INIT([$2]) ]) # _LT_FORMAT_COMMENT([COMMENT]) # ----------------------------- # Add leading comment marks to the start of each line, and a trailing # full-stop to the whole comment if one is not present already. m4_define([_LT_FORMAT_COMMENT], [m4_ifval([$1], [ m4_bpatsubst([m4_bpatsubst([$1], [^ *], [# ])], [['`$\]], [\\\&])]m4_bmatch([$1], [[!?.]$], [], [.]) )]) ## ------------------------ ## ## FIXME: Eliminate VARNAME ## ## ------------------------ ## # _LT_DECL([CONFIGNAME], VARNAME, VALUE, [DESCRIPTION], [IS-TAGGED?]) # ------------------------------------------------------------------- # CONFIGNAME is the name given to the value in the libtool script. # VARNAME is the (base) name used in the configure script. # VALUE may be 0, 1 or 2 for a computed quote escaped value based on # VARNAME. Any other value will be used directly. m4_define([_LT_DECL], [lt_if_append_uniq([lt_decl_varnames], [$2], [, ], [lt_dict_add_subkey([lt_decl_dict], [$2], [libtool_name], [m4_ifval([$1], [$1], [$2])]) lt_dict_add_subkey([lt_decl_dict], [$2], [value], [$3]) m4_ifval([$4], [lt_dict_add_subkey([lt_decl_dict], [$2], [description], [$4])]) lt_dict_add_subkey([lt_decl_dict], [$2], [tagged?], [m4_ifval([$5], [yes], [no])])]) ]) # _LT_TAGDECL([CONFIGNAME], VARNAME, VALUE, [DESCRIPTION]) # -------------------------------------------------------- m4_define([_LT_TAGDECL], [_LT_DECL([$1], [$2], [$3], [$4], [yes])]) # lt_decl_tag_varnames([SEPARATOR], [VARNAME1...]) # ------------------------------------------------ m4_define([lt_decl_tag_varnames], [_lt_decl_filter([tagged?], [yes], $@)]) # _lt_decl_filter(SUBKEY, VALUE, [SEPARATOR], [VARNAME1..]) # --------------------------------------------------------- m4_define([_lt_decl_filter], [m4_case([$#], [0], [m4_fatal([$0: too few arguments: $#])], [1], [m4_fatal([$0: too few arguments: $#: $1])], [2], [lt_dict_filter([lt_decl_dict], [$1], [$2], [], lt_decl_varnames)], [3], [lt_dict_filter([lt_decl_dict], [$1], [$2], [$3], lt_decl_varnames)], [lt_dict_filter([lt_decl_dict], $@)])[]dnl ]) # lt_decl_quote_varnames([SEPARATOR], [VARNAME1...]) # -------------------------------------------------- m4_define([lt_decl_quote_varnames], [_lt_decl_filter([value], [1], $@)]) # lt_decl_dquote_varnames([SEPARATOR], [VARNAME1...]) # --------------------------------------------------- m4_define([lt_decl_dquote_varnames], [_lt_decl_filter([value], [2], $@)]) # lt_decl_varnames_tagged([SEPARATOR], [VARNAME1...]) # --------------------------------------------------- m4_define([lt_decl_varnames_tagged], [m4_assert([$# <= 2])dnl _$0(m4_quote(m4_default([$1], [[, ]])), m4_ifval([$2], [[$2]], [m4_dquote(lt_decl_tag_varnames)]), m4_split(m4_normalize(m4_quote(_LT_TAGS)), [ ]))]) m4_define([_lt_decl_varnames_tagged], [m4_ifval([$3], [lt_combine([$1], [$2], [_], $3)])]) # lt_decl_all_varnames([SEPARATOR], [VARNAME1...]) # ------------------------------------------------ m4_define([lt_decl_all_varnames], [_$0(m4_quote(m4_default([$1], [[, ]])), m4_if([$2], [], m4_quote(lt_decl_varnames), m4_quote(m4_shift($@))))[]dnl ]) m4_define([_lt_decl_all_varnames], [lt_join($@, lt_decl_varnames_tagged([$1], lt_decl_tag_varnames([[, ]], m4_shift($@))))dnl ]) # _LT_CONFIG_STATUS_DECLARE([VARNAME]) # ------------------------------------ # Quote a variable value, and forward it to 'config.status' so that its # declaration there will have the same value as in 'configure'. VARNAME # must have a single quote delimited value for this to work. m4_define([_LT_CONFIG_STATUS_DECLARE], [$1='`$ECHO "$][$1" | $SED "$delay_single_quote_subst"`']) # _LT_CONFIG_STATUS_DECLARATIONS # ------------------------------ # We delimit libtool config variables with single quotes, so when # we write them to config.status, we have to be sure to quote all # embedded single quotes properly. In configure, this macro expands # each variable declared with _LT_DECL (and _LT_TAGDECL) into: # # ='`$ECHO "$" | $SED "$delay_single_quote_subst"`' m4_defun([_LT_CONFIG_STATUS_DECLARATIONS], [m4_foreach([_lt_var], m4_quote(lt_decl_all_varnames), [m4_n([_LT_CONFIG_STATUS_DECLARE(_lt_var)])])]) # _LT_LIBTOOL_TAGS # ---------------- # Output comment and list of tags supported by the script m4_defun([_LT_LIBTOOL_TAGS], [_LT_FORMAT_COMMENT([The names of the tagged configurations supported by this script])dnl available_tags='_LT_TAGS'dnl ]) # _LT_LIBTOOL_DECLARE(VARNAME, [TAG]) # ----------------------------------- # Extract the dictionary values for VARNAME (optionally with TAG) and # expand to a commented shell variable setting: # # # Some comment about what VAR is for. # visible_name=$lt_internal_name m4_define([_LT_LIBTOOL_DECLARE], [_LT_FORMAT_COMMENT(m4_quote(lt_dict_fetch([lt_decl_dict], [$1], [description])))[]dnl m4_pushdef([_libtool_name], m4_quote(lt_dict_fetch([lt_decl_dict], [$1], [libtool_name])))[]dnl m4_case(m4_quote(lt_dict_fetch([lt_decl_dict], [$1], [value])), [0], [_libtool_name=[$]$1], [1], [_libtool_name=$lt_[]$1], [2], [_libtool_name=$lt_[]$1], [_libtool_name=lt_dict_fetch([lt_decl_dict], [$1], [value])])[]dnl m4_ifval([$2], [_$2])[]m4_popdef([_libtool_name])[]dnl ]) # _LT_LIBTOOL_CONFIG_VARS # ----------------------- # Produce commented declarations of non-tagged libtool config variables # suitable for insertion in the LIBTOOL CONFIG section of the 'libtool' # script. Tagged libtool config variables (even for the LIBTOOL CONFIG # section) are produced by _LT_LIBTOOL_TAG_VARS. m4_defun([_LT_LIBTOOL_CONFIG_VARS], [m4_foreach([_lt_var], m4_quote(_lt_decl_filter([tagged?], [no], [], lt_decl_varnames)), [m4_n([_LT_LIBTOOL_DECLARE(_lt_var)])])]) # _LT_LIBTOOL_TAG_VARS(TAG) # ------------------------- m4_define([_LT_LIBTOOL_TAG_VARS], [m4_foreach([_lt_var], m4_quote(lt_decl_tag_varnames), [m4_n([_LT_LIBTOOL_DECLARE(_lt_var, [$1])])])]) # _LT_TAGVAR(VARNAME, [TAGNAME]) # ------------------------------ m4_define([_LT_TAGVAR], [m4_ifval([$2], [$1_$2], [$1])]) # _LT_CONFIG_COMMANDS # ------------------- # Send accumulated output to $CONFIG_STATUS. Thanks to the lists of # variables for single and double quote escaping we saved from calls # to _LT_DECL, we can put quote escaped variables declarations # into 'config.status', and then the shell code to quote escape them in # for loops in 'config.status'. Finally, any additional code accumulated # from calls to _LT_CONFIG_LIBTOOL_INIT is expanded. m4_defun([_LT_CONFIG_COMMANDS], [AC_PROVIDE_IFELSE([LT_OUTPUT], dnl If the libtool generation code has been placed in $CONFIG_LT, dnl instead of duplicating it all over again into config.status, dnl then we will have config.status run $CONFIG_LT later, so it dnl needs to know what name is stored there: [AC_CONFIG_COMMANDS([libtool], [$SHELL $CONFIG_LT || AS_EXIT(1)], [CONFIG_LT='$CONFIG_LT'])], dnl If the libtool generation code is destined for config.status, dnl expand the accumulated commands and init code now: [AC_CONFIG_COMMANDS([libtool], [_LT_OUTPUT_LIBTOOL_COMMANDS], [_LT_OUTPUT_LIBTOOL_COMMANDS_INIT])]) ])#_LT_CONFIG_COMMANDS # Initialize. m4_define([_LT_OUTPUT_LIBTOOL_COMMANDS_INIT], [ # The HP-UX ksh and POSIX shell print the target directory to stdout # if CDPATH is set. (unset CDPATH) >/dev/null 2>&1 && unset CDPATH sed_quote_subst='$sed_quote_subst' double_quote_subst='$double_quote_subst' delay_variable_subst='$delay_variable_subst' _LT_CONFIG_STATUS_DECLARATIONS LTCC='$LTCC' LTCFLAGS='$LTCFLAGS' compiler='$compiler_DEFAULT' # A function that is used when there is no print builtin or printf. func_fallback_echo () { eval 'cat <<_LTECHO_EOF \$[]1 _LTECHO_EOF' } # Quote evaled strings. for var in lt_decl_all_varnames([[ \ ]], lt_decl_quote_varnames); do case \`eval \\\\\$ECHO \\\\""\\\\\$\$var"\\\\"\` in *[[\\\\\\\`\\"\\\$]]*) eval "lt_\$var=\\\\\\"\\\`\\\$ECHO \\"\\\$\$var\\" | \\\$SED \\"\\\$sed_quote_subst\\"\\\`\\\\\\"" ## exclude from sc_prohibit_nested_quotes ;; *) eval "lt_\$var=\\\\\\"\\\$\$var\\\\\\"" ;; esac done # Double-quote double-evaled strings. for var in lt_decl_all_varnames([[ \ ]], lt_decl_dquote_varnames); do case \`eval \\\\\$ECHO \\\\""\\\\\$\$var"\\\\"\` in *[[\\\\\\\`\\"\\\$]]*) eval "lt_\$var=\\\\\\"\\\`\\\$ECHO \\"\\\$\$var\\" | \\\$SED -e \\"\\\$double_quote_subst\\" -e \\"\\\$sed_quote_subst\\" -e \\"\\\$delay_variable_subst\\"\\\`\\\\\\"" ## exclude from sc_prohibit_nested_quotes ;; *) eval "lt_\$var=\\\\\\"\\\$\$var\\\\\\"" ;; esac done _LT_OUTPUT_LIBTOOL_INIT ]) # _LT_GENERATED_FILE_INIT(FILE, [COMMENT]) # ------------------------------------ # Generate a child script FILE with all initialization necessary to # reuse the environment learned by the parent script, and make the # file executable. If COMMENT is supplied, it is inserted after the # '#!' sequence but before initialization text begins. After this # macro, additional text can be appended to FILE to form the body of # the child script. The macro ends with non-zero status if the # file could not be fully written (such as if the disk is full). m4_ifdef([AS_INIT_GENERATED], [m4_defun([_LT_GENERATED_FILE_INIT],[AS_INIT_GENERATED($@)])], [m4_defun([_LT_GENERATED_FILE_INIT], [m4_require([AS_PREPARE])]dnl [m4_pushdef([AS_MESSAGE_LOG_FD])]dnl [lt_write_fail=0 cat >$1 <<_ASEOF || lt_write_fail=1 #! $SHELL # Generated by $as_me. $2 SHELL=\${CONFIG_SHELL-$SHELL} export SHELL _ASEOF cat >>$1 <<\_ASEOF || lt_write_fail=1 AS_SHELL_SANITIZE _AS_PREPARE exec AS_MESSAGE_FD>&1 _ASEOF test 0 = "$lt_write_fail" && chmod +x $1[]dnl m4_popdef([AS_MESSAGE_LOG_FD])])])# _LT_GENERATED_FILE_INIT # LT_OUTPUT # --------- # This macro allows early generation of the libtool script (before # AC_OUTPUT is called), incase it is used in configure for compilation # tests. AC_DEFUN([LT_OUTPUT], [: ${CONFIG_LT=./config.lt} AC_MSG_NOTICE([creating $CONFIG_LT]) _LT_GENERATED_FILE_INIT(["$CONFIG_LT"], [# Run this file to recreate a libtool stub with the current configuration.]) cat >>"$CONFIG_LT" <<\_LTEOF lt_cl_silent=false exec AS_MESSAGE_LOG_FD>>config.log { echo AS_BOX([Running $as_me.]) } >&AS_MESSAGE_LOG_FD lt_cl_help="\ '$as_me' creates a local libtool stub from the current configuration, for use in further configure time tests before the real libtool is generated. Usage: $[0] [[OPTIONS]] -h, --help print this help, then exit -V, --version print version number, then exit -q, --quiet do not print progress messages -d, --debug don't remove temporary files Report bugs to ." lt_cl_version="\ m4_ifset([AC_PACKAGE_NAME], [AC_PACKAGE_NAME ])config.lt[]dnl m4_ifset([AC_PACKAGE_VERSION], [ AC_PACKAGE_VERSION]) configured by $[0], generated by m4_PACKAGE_STRING. Copyright (C) 2011 Free Software Foundation, Inc. This config.lt script is free software; the Free Software Foundation gives unlimited permision to copy, distribute and modify it." while test 0 != $[#] do case $[1] in --version | --v* | -V ) echo "$lt_cl_version"; exit 0 ;; --help | --h* | -h ) echo "$lt_cl_help"; exit 0 ;; --debug | --d* | -d ) debug=: ;; --quiet | --q* | --silent | --s* | -q ) lt_cl_silent=: ;; -*) AC_MSG_ERROR([unrecognized option: $[1] Try '$[0] --help' for more information.]) ;; *) AC_MSG_ERROR([unrecognized argument: $[1] Try '$[0] --help' for more information.]) ;; esac shift done if $lt_cl_silent; then exec AS_MESSAGE_FD>/dev/null fi _LTEOF cat >>"$CONFIG_LT" <<_LTEOF _LT_OUTPUT_LIBTOOL_COMMANDS_INIT _LTEOF cat >>"$CONFIG_LT" <<\_LTEOF AC_MSG_NOTICE([creating $ofile]) _LT_OUTPUT_LIBTOOL_COMMANDS AS_EXIT(0) _LTEOF chmod +x "$CONFIG_LT" # configure is writing to config.log, but config.lt does its own redirection, # appending to config.log, which fails on DOS, as config.log is still kept # open by configure. Here we exec the FD to /dev/null, effectively closing # config.log, so it can be properly (re)opened and appended to by config.lt. lt_cl_success=: test yes = "$silent" && lt_config_lt_args="$lt_config_lt_args --quiet" exec AS_MESSAGE_LOG_FD>/dev/null $SHELL "$CONFIG_LT" $lt_config_lt_args || lt_cl_success=false exec AS_MESSAGE_LOG_FD>>config.log $lt_cl_success || AS_EXIT(1) ])# LT_OUTPUT # _LT_CONFIG(TAG) # --------------- # If TAG is the built-in tag, create an initial libtool script with a # default configuration from the untagged config vars. Otherwise add code # to config.status for appending the configuration named by TAG from the # matching tagged config vars. m4_defun([_LT_CONFIG], [m4_require([_LT_FILEUTILS_DEFAULTS])dnl _LT_CONFIG_SAVE_COMMANDS([ m4_define([_LT_TAG], m4_if([$1], [], [C], [$1]))dnl m4_if(_LT_TAG, [C], [ # See if we are running on zsh, and set the options that allow our # commands through without removal of \ escapes. if test -n "${ZSH_VERSION+set}"; then setopt NO_GLOB_SUBST fi cfgfile=${ofile}T trap "$RM \"$cfgfile\"; exit 1" 1 2 15 $RM "$cfgfile" cat <<_LT_EOF >> "$cfgfile" #! $SHELL # Generated automatically by $as_me ($PACKAGE) $VERSION # Libtool was configured on host `(hostname || uname -n) 2>/dev/null | sed 1q`: # NOTE: Changes made to this file will be lost: look at ltmain.sh. # Provide generalized library-building support services. # Written by Gordon Matzigkeit, 1996 _LT_COPYING _LT_LIBTOOL_TAGS # Configured defaults for sys_lib_dlsearch_path munging. : \${LT_SYS_LIBRARY_PATH="$configure_time_lt_sys_library_path"} # ### BEGIN LIBTOOL CONFIG _LT_LIBTOOL_CONFIG_VARS _LT_LIBTOOL_TAG_VARS # ### END LIBTOOL CONFIG _LT_EOF cat <<'_LT_EOF' >> "$cfgfile" # ### BEGIN FUNCTIONS SHARED WITH CONFIGURE _LT_PREPARE_MUNGE_PATH_LIST _LT_PREPARE_CC_BASENAME # ### END FUNCTIONS SHARED WITH CONFIGURE _LT_EOF case $host_os in aix3*) cat <<\_LT_EOF >> "$cfgfile" # AIX sometimes has problems with the GCC collect2 program. For some # reason, if we set the COLLECT_NAMES environment variable, the problems # vanish in a puff of smoke. if test set != "${COLLECT_NAMES+set}"; then COLLECT_NAMES= export COLLECT_NAMES fi _LT_EOF ;; esac _LT_PROG_LTMAIN # We use sed instead of cat because bash on DJGPP gets confused if # if finds mixed CR/LF and LF-only lines. Since sed operates in # text mode, it properly converts lines to CR/LF. This bash problem # is reportedly fixed, but why not run on old versions too? sed '$q' "$ltmain" >> "$cfgfile" \ || (rm -f "$cfgfile"; exit 1) mv -f "$cfgfile" "$ofile" || (rm -f "$ofile" && cp "$cfgfile" "$ofile" && rm -f "$cfgfile") chmod +x "$ofile" ], [cat <<_LT_EOF >> "$ofile" dnl Unfortunately we have to use $1 here, since _LT_TAG is not expanded dnl in a comment (ie after a #). # ### BEGIN LIBTOOL TAG CONFIG: $1 _LT_LIBTOOL_TAG_VARS(_LT_TAG) # ### END LIBTOOL TAG CONFIG: $1 _LT_EOF ])dnl /m4_if ], [m4_if([$1], [], [ PACKAGE='$PACKAGE' VERSION='$VERSION' RM='$RM' ofile='$ofile'], []) ])dnl /_LT_CONFIG_SAVE_COMMANDS ])# _LT_CONFIG # LT_SUPPORTED_TAG(TAG) # --------------------- # Trace this macro to discover what tags are supported by the libtool # --tag option, using: # autoconf --trace 'LT_SUPPORTED_TAG:$1' AC_DEFUN([LT_SUPPORTED_TAG], []) # C support is built-in for now m4_define([_LT_LANG_C_enabled], []) m4_define([_LT_TAGS], []) # LT_LANG(LANG) # ------------- # Enable libtool support for the given language if not already enabled. AC_DEFUN([LT_LANG], [AC_BEFORE([$0], [LT_OUTPUT])dnl m4_case([$1], [C], [_LT_LANG(C)], [C++], [_LT_LANG(CXX)], [Go], [_LT_LANG(GO)], [Java], [_LT_LANG(GCJ)], [Fortran 77], [_LT_LANG(F77)], [Fortran], [_LT_LANG(FC)], [Windows Resource], [_LT_LANG(RC)], [m4_ifdef([_LT_LANG_]$1[_CONFIG], [_LT_LANG($1)], [m4_fatal([$0: unsupported language: "$1"])])])dnl ])# LT_LANG # _LT_LANG(LANGNAME) # ------------------ m4_defun([_LT_LANG], [m4_ifdef([_LT_LANG_]$1[_enabled], [], [LT_SUPPORTED_TAG([$1])dnl m4_append([_LT_TAGS], [$1 ])dnl m4_define([_LT_LANG_]$1[_enabled], [])dnl _LT_LANG_$1_CONFIG($1)])dnl ])# _LT_LANG m4_ifndef([AC_PROG_GO], [ ############################################################ # NOTE: This macro has been submitted for inclusion into # # GNU Autoconf as AC_PROG_GO. When it is available in # # a released version of Autoconf we should remove this # # macro and use it instead. # ############################################################ m4_defun([AC_PROG_GO], [AC_LANG_PUSH(Go)dnl AC_ARG_VAR([GOC], [Go compiler command])dnl AC_ARG_VAR([GOFLAGS], [Go compiler flags])dnl _AC_ARG_VAR_LDFLAGS()dnl AC_CHECK_TOOL(GOC, gccgo) if test -z "$GOC"; then if test -n "$ac_tool_prefix"; then AC_CHECK_PROG(GOC, [${ac_tool_prefix}gccgo], [${ac_tool_prefix}gccgo]) fi fi if test -z "$GOC"; then AC_CHECK_PROG(GOC, gccgo, gccgo, false) fi ])#m4_defun ])#m4_ifndef # _LT_LANG_DEFAULT_CONFIG # ----------------------- m4_defun([_LT_LANG_DEFAULT_CONFIG], [AC_PROVIDE_IFELSE([AC_PROG_CXX], [LT_LANG(CXX)], [m4_define([AC_PROG_CXX], defn([AC_PROG_CXX])[LT_LANG(CXX)])]) AC_PROVIDE_IFELSE([AC_PROG_F77], [LT_LANG(F77)], [m4_define([AC_PROG_F77], defn([AC_PROG_F77])[LT_LANG(F77)])]) AC_PROVIDE_IFELSE([AC_PROG_FC], [LT_LANG(FC)], [m4_define([AC_PROG_FC], defn([AC_PROG_FC])[LT_LANG(FC)])]) dnl The call to [A][M_PROG_GCJ] is quoted like that to stop aclocal dnl pulling things in needlessly. AC_PROVIDE_IFELSE([AC_PROG_GCJ], [LT_LANG(GCJ)], [AC_PROVIDE_IFELSE([A][M_PROG_GCJ], [LT_LANG(GCJ)], [AC_PROVIDE_IFELSE([LT_PROG_GCJ], [LT_LANG(GCJ)], [m4_ifdef([AC_PROG_GCJ], [m4_define([AC_PROG_GCJ], defn([AC_PROG_GCJ])[LT_LANG(GCJ)])]) m4_ifdef([A][M_PROG_GCJ], [m4_define([A][M_PROG_GCJ], defn([A][M_PROG_GCJ])[LT_LANG(GCJ)])]) m4_ifdef([LT_PROG_GCJ], [m4_define([LT_PROG_GCJ], defn([LT_PROG_GCJ])[LT_LANG(GCJ)])])])])]) AC_PROVIDE_IFELSE([AC_PROG_GO], [LT_LANG(GO)], [m4_define([AC_PROG_GO], defn([AC_PROG_GO])[LT_LANG(GO)])]) AC_PROVIDE_IFELSE([LT_PROG_RC], [LT_LANG(RC)], [m4_define([LT_PROG_RC], defn([LT_PROG_RC])[LT_LANG(RC)])]) ])# _LT_LANG_DEFAULT_CONFIG # Obsolete macros: AU_DEFUN([AC_LIBTOOL_CXX], [LT_LANG(C++)]) AU_DEFUN([AC_LIBTOOL_F77], [LT_LANG(Fortran 77)]) AU_DEFUN([AC_LIBTOOL_FC], [LT_LANG(Fortran)]) AU_DEFUN([AC_LIBTOOL_GCJ], [LT_LANG(Java)]) AU_DEFUN([AC_LIBTOOL_RC], [LT_LANG(Windows Resource)]) dnl aclocal-1.4 backwards compatibility: dnl AC_DEFUN([AC_LIBTOOL_CXX], []) dnl AC_DEFUN([AC_LIBTOOL_F77], []) dnl AC_DEFUN([AC_LIBTOOL_FC], []) dnl AC_DEFUN([AC_LIBTOOL_GCJ], []) dnl AC_DEFUN([AC_LIBTOOL_RC], []) # _LT_TAG_COMPILER # ---------------- m4_defun([_LT_TAG_COMPILER], [AC_REQUIRE([AC_PROG_CC])dnl _LT_DECL([LTCC], [CC], [1], [A C compiler])dnl _LT_DECL([LTCFLAGS], [CFLAGS], [1], [LTCC compiler flags])dnl _LT_TAGDECL([CC], [compiler], [1], [A language specific compiler])dnl _LT_TAGDECL([with_gcc], [GCC], [0], [Is the compiler the GNU compiler?])dnl # If no C compiler was specified, use CC. LTCC=${LTCC-"$CC"} # If no C compiler flags were specified, use CFLAGS. LTCFLAGS=${LTCFLAGS-"$CFLAGS"} # Allow CC to be a program name with arguments. compiler=$CC ])# _LT_TAG_COMPILER # _LT_COMPILER_BOILERPLATE # ------------------------ # Check for compiler boilerplate output or warnings with # the simple compiler test code. m4_defun([_LT_COMPILER_BOILERPLATE], [m4_require([_LT_DECL_SED])dnl ac_outfile=conftest.$ac_objext echo "$lt_simple_compile_test_code" >conftest.$ac_ext eval "$ac_compile" 2>&1 >/dev/null | $SED '/^$/d; /^ *+/d' >conftest.err _lt_compiler_boilerplate=`cat conftest.err` $RM conftest* ])# _LT_COMPILER_BOILERPLATE # _LT_LINKER_BOILERPLATE # ---------------------- # Check for linker boilerplate output or warnings with # the simple link test code. m4_defun([_LT_LINKER_BOILERPLATE], [m4_require([_LT_DECL_SED])dnl ac_outfile=conftest.$ac_objext echo "$lt_simple_link_test_code" >conftest.$ac_ext eval "$ac_link" 2>&1 >/dev/null | $SED '/^$/d; /^ *+/d' >conftest.err _lt_linker_boilerplate=`cat conftest.err` $RM -r conftest* ])# _LT_LINKER_BOILERPLATE # _LT_REQUIRED_DARWIN_CHECKS # ------------------------- m4_defun_once([_LT_REQUIRED_DARWIN_CHECKS],[ case $host_os in rhapsody* | darwin*) AC_CHECK_TOOL([DSYMUTIL], [dsymutil], [:]) AC_CHECK_TOOL([NMEDIT], [nmedit], [:]) AC_CHECK_TOOL([LIPO], [lipo], [:]) AC_CHECK_TOOL([OTOOL], [otool], [:]) AC_CHECK_TOOL([OTOOL64], [otool64], [:]) _LT_DECL([], [DSYMUTIL], [1], [Tool to manipulate archived DWARF debug symbol files on Mac OS X]) _LT_DECL([], [NMEDIT], [1], [Tool to change global to local symbols on Mac OS X]) _LT_DECL([], [LIPO], [1], [Tool to manipulate fat objects and archives on Mac OS X]) _LT_DECL([], [OTOOL], [1], [ldd/readelf like tool for Mach-O binaries on Mac OS X]) _LT_DECL([], [OTOOL64], [1], [ldd/readelf like tool for 64 bit Mach-O binaries on Mac OS X 10.4]) AC_CACHE_CHECK([for -single_module linker flag],[lt_cv_apple_cc_single_mod], [lt_cv_apple_cc_single_mod=no if test -z "$LT_MULTI_MODULE"; then # By default we will add the -single_module flag. You can override # by either setting the environment variable LT_MULTI_MODULE # non-empty at configure time, or by adding -multi_module to the # link flags. rm -rf libconftest.dylib* echo "int foo(void){return 1;}" > conftest.c echo "$LTCC $LTCFLAGS $LDFLAGS -o libconftest.dylib \ -dynamiclib -Wl,-single_module conftest.c" >&AS_MESSAGE_LOG_FD $LTCC $LTCFLAGS $LDFLAGS -o libconftest.dylib \ -dynamiclib -Wl,-single_module conftest.c 2>conftest.err _lt_result=$? # If there is a non-empty error log, and "single_module" # appears in it, assume the flag caused a linker warning if test -s conftest.err && $GREP single_module conftest.err; then cat conftest.err >&AS_MESSAGE_LOG_FD # Otherwise, if the output was created with a 0 exit code from # the compiler, it worked. elif test -f libconftest.dylib && test 0 = "$_lt_result"; then lt_cv_apple_cc_single_mod=yes else cat conftest.err >&AS_MESSAGE_LOG_FD fi rm -rf libconftest.dylib* rm -f conftest.* fi]) AC_CACHE_CHECK([for -exported_symbols_list linker flag], [lt_cv_ld_exported_symbols_list], [lt_cv_ld_exported_symbols_list=no save_LDFLAGS=$LDFLAGS echo "_main" > conftest.sym LDFLAGS="$LDFLAGS -Wl,-exported_symbols_list,conftest.sym" AC_LINK_IFELSE([AC_LANG_PROGRAM([],[])], [lt_cv_ld_exported_symbols_list=yes], [lt_cv_ld_exported_symbols_list=no]) LDFLAGS=$save_LDFLAGS ]) AC_CACHE_CHECK([for -force_load linker flag],[lt_cv_ld_force_load], [lt_cv_ld_force_load=no cat > conftest.c << _LT_EOF int forced_loaded() { return 2;} _LT_EOF echo "$LTCC $LTCFLAGS -c -o conftest.o conftest.c" >&AS_MESSAGE_LOG_FD $LTCC $LTCFLAGS -c -o conftest.o conftest.c 2>&AS_MESSAGE_LOG_FD echo "$AR cru libconftest.a conftest.o" >&AS_MESSAGE_LOG_FD $AR cru libconftest.a conftest.o 2>&AS_MESSAGE_LOG_FD echo "$RANLIB libconftest.a" >&AS_MESSAGE_LOG_FD $RANLIB libconftest.a 2>&AS_MESSAGE_LOG_FD cat > conftest.c << _LT_EOF int main() { return 0;} _LT_EOF echo "$LTCC $LTCFLAGS $LDFLAGS -o conftest conftest.c -Wl,-force_load,./libconftest.a" >&AS_MESSAGE_LOG_FD $LTCC $LTCFLAGS $LDFLAGS -o conftest conftest.c -Wl,-force_load,./libconftest.a 2>conftest.err _lt_result=$? if test -s conftest.err && $GREP force_load conftest.err; then cat conftest.err >&AS_MESSAGE_LOG_FD elif test -f conftest && test 0 = "$_lt_result" && $GREP forced_load conftest >/dev/null 2>&1; then lt_cv_ld_force_load=yes else cat conftest.err >&AS_MESSAGE_LOG_FD fi rm -f conftest.err libconftest.a conftest conftest.c rm -rf conftest.dSYM ]) case $host_os in rhapsody* | darwin1.[[012]]) _lt_dar_allow_undefined='$wl-undefined ${wl}suppress' ;; darwin1.*) _lt_dar_allow_undefined='$wl-flat_namespace $wl-undefined ${wl}suppress' ;; darwin*) # darwin 5.x on # if running on 10.5 or later, the deployment target defaults # to the OS version, if on x86, and 10.4, the deployment # target defaults to 10.4. Don't you love it? case ${MACOSX_DEPLOYMENT_TARGET-10.0},$host in 10.0,*86*-darwin8*|10.0,*-darwin[[91]]*) _lt_dar_allow_undefined='$wl-undefined ${wl}dynamic_lookup' ;; 10.[[012]][[,.]]*) _lt_dar_allow_undefined='$wl-flat_namespace $wl-undefined ${wl}suppress' ;; 10.*) _lt_dar_allow_undefined='$wl-undefined ${wl}dynamic_lookup' ;; esac ;; esac if test yes = "$lt_cv_apple_cc_single_mod"; then _lt_dar_single_mod='$single_module' fi if test yes = "$lt_cv_ld_exported_symbols_list"; then _lt_dar_export_syms=' $wl-exported_symbols_list,$output_objdir/$libname-symbols.expsym' else _lt_dar_export_syms='~$NMEDIT -s $output_objdir/$libname-symbols.expsym $lib' fi if test : != "$DSYMUTIL" && test no = "$lt_cv_ld_force_load"; then _lt_dsymutil='~$DSYMUTIL $lib || :' else _lt_dsymutil= fi ;; esac ]) # _LT_DARWIN_LINKER_FEATURES([TAG]) # --------------------------------- # Checks for linker and compiler features on darwin m4_defun([_LT_DARWIN_LINKER_FEATURES], [ m4_require([_LT_REQUIRED_DARWIN_CHECKS]) _LT_TAGVAR(archive_cmds_need_lc, $1)=no _LT_TAGVAR(hardcode_direct, $1)=no _LT_TAGVAR(hardcode_automatic, $1)=yes _LT_TAGVAR(hardcode_shlibpath_var, $1)=unsupported if test yes = "$lt_cv_ld_force_load"; then _LT_TAGVAR(whole_archive_flag_spec, $1)='`for conv in $convenience\"\"; do test -n \"$conv\" && new_convenience=\"$new_convenience $wl-force_load,$conv\"; done; func_echo_all \"$new_convenience\"`' m4_case([$1], [F77], [_LT_TAGVAR(compiler_needs_object, $1)=yes], [FC], [_LT_TAGVAR(compiler_needs_object, $1)=yes]) else _LT_TAGVAR(whole_archive_flag_spec, $1)='' fi _LT_TAGVAR(link_all_deplibs, $1)=yes _LT_TAGVAR(allow_undefined_flag, $1)=$_lt_dar_allow_undefined case $cc_basename in ifort*|nagfor*) _lt_dar_can_shared=yes ;; *) _lt_dar_can_shared=$GCC ;; esac if test yes = "$_lt_dar_can_shared"; then output_verbose_link_cmd=func_echo_all _LT_TAGVAR(archive_cmds, $1)="\$CC -dynamiclib \$allow_undefined_flag -o \$lib \$libobjs \$deplibs \$compiler_flags -install_name \$rpath/\$soname \$verstring $_lt_dar_single_mod$_lt_dsymutil" _LT_TAGVAR(module_cmds, $1)="\$CC \$allow_undefined_flag -o \$lib -bundle \$libobjs \$deplibs \$compiler_flags$_lt_dsymutil" _LT_TAGVAR(archive_expsym_cmds, $1)="sed 's|^|_|' < \$export_symbols > \$output_objdir/\$libname-symbols.expsym~\$CC -dynamiclib \$allow_undefined_flag -o \$lib \$libobjs \$deplibs \$compiler_flags -install_name \$rpath/\$soname \$verstring $_lt_dar_single_mod$_lt_dar_export_syms$_lt_dsymutil" _LT_TAGVAR(module_expsym_cmds, $1)="sed -e 's|^|_|' < \$export_symbols > \$output_objdir/\$libname-symbols.expsym~\$CC \$allow_undefined_flag -o \$lib -bundle \$libobjs \$deplibs \$compiler_flags$_lt_dar_export_syms$_lt_dsymutil" m4_if([$1], [CXX], [ if test yes != "$lt_cv_apple_cc_single_mod"; then _LT_TAGVAR(archive_cmds, $1)="\$CC -r -keep_private_externs -nostdlib -o \$lib-master.o \$libobjs~\$CC -dynamiclib \$allow_undefined_flag -o \$lib \$lib-master.o \$deplibs \$compiler_flags -install_name \$rpath/\$soname \$verstring$_lt_dsymutil" _LT_TAGVAR(archive_expsym_cmds, $1)="sed 's|^|_|' < \$export_symbols > \$output_objdir/\$libname-symbols.expsym~\$CC -r -keep_private_externs -nostdlib -o \$lib-master.o \$libobjs~\$CC -dynamiclib \$allow_undefined_flag -o \$lib \$lib-master.o \$deplibs \$compiler_flags -install_name \$rpath/\$soname \$verstring$_lt_dar_export_syms$_lt_dsymutil" fi ],[]) else _LT_TAGVAR(ld_shlibs, $1)=no fi ]) # _LT_SYS_MODULE_PATH_AIX([TAGNAME]) # ---------------------------------- # Links a minimal program and checks the executable # for the system default hardcoded library path. In most cases, # this is /usr/lib:/lib, but when the MPI compilers are used # the location of the communication and MPI libs are included too. # If we don't find anything, use the default library path according # to the aix ld manual. # Store the results from the different compilers for each TAGNAME. # Allow to override them for all tags through lt_cv_aix_libpath. m4_defun([_LT_SYS_MODULE_PATH_AIX], [m4_require([_LT_DECL_SED])dnl if test set = "${lt_cv_aix_libpath+set}"; then aix_libpath=$lt_cv_aix_libpath else AC_CACHE_VAL([_LT_TAGVAR([lt_cv_aix_libpath_], [$1])], [AC_LINK_IFELSE([AC_LANG_PROGRAM],[ lt_aix_libpath_sed='[ /Import File Strings/,/^$/ { /^0/ { s/^0 *\([^ ]*\) *$/\1/ p } }]' _LT_TAGVAR([lt_cv_aix_libpath_], [$1])=`dump -H conftest$ac_exeext 2>/dev/null | $SED -n -e "$lt_aix_libpath_sed"` # Check for a 64-bit object if we didn't find anything. if test -z "$_LT_TAGVAR([lt_cv_aix_libpath_], [$1])"; then _LT_TAGVAR([lt_cv_aix_libpath_], [$1])=`dump -HX64 conftest$ac_exeext 2>/dev/null | $SED -n -e "$lt_aix_libpath_sed"` fi],[]) if test -z "$_LT_TAGVAR([lt_cv_aix_libpath_], [$1])"; then _LT_TAGVAR([lt_cv_aix_libpath_], [$1])=/usr/lib:/lib fi ]) aix_libpath=$_LT_TAGVAR([lt_cv_aix_libpath_], [$1]) fi ])# _LT_SYS_MODULE_PATH_AIX # _LT_SHELL_INIT(ARG) # ------------------- m4_define([_LT_SHELL_INIT], [m4_divert_text([M4SH-INIT], [$1 ])])# _LT_SHELL_INIT # _LT_PROG_ECHO_BACKSLASH # ----------------------- # Find how we can fake an echo command that does not interpret backslash. # In particular, with Autoconf 2.60 or later we add some code to the start # of the generated configure script that will find a shell with a builtin # printf (that we can use as an echo command). m4_defun([_LT_PROG_ECHO_BACKSLASH], [ECHO='\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\' ECHO=$ECHO$ECHO$ECHO$ECHO$ECHO ECHO=$ECHO$ECHO$ECHO$ECHO$ECHO$ECHO AC_MSG_CHECKING([how to print strings]) # Test print first, because it will be a builtin if present. if test "X`( print -r -- -n ) 2>/dev/null`" = X-n && \ test "X`print -r -- $ECHO 2>/dev/null`" = "X$ECHO"; then ECHO='print -r --' elif test "X`printf %s $ECHO 2>/dev/null`" = "X$ECHO"; then ECHO='printf %s\n' else # Use this function as a fallback that always works. func_fallback_echo () { eval 'cat <<_LTECHO_EOF $[]1 _LTECHO_EOF' } ECHO='func_fallback_echo' fi # func_echo_all arg... # Invoke $ECHO with all args, space-separated. func_echo_all () { $ECHO "$*" } case $ECHO in printf*) AC_MSG_RESULT([printf]) ;; print*) AC_MSG_RESULT([print -r]) ;; *) AC_MSG_RESULT([cat]) ;; esac m4_ifdef([_AS_DETECT_SUGGESTED], [_AS_DETECT_SUGGESTED([ test -n "${ZSH_VERSION+set}${BASH_VERSION+set}" || ( ECHO='\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\' ECHO=$ECHO$ECHO$ECHO$ECHO$ECHO ECHO=$ECHO$ECHO$ECHO$ECHO$ECHO$ECHO PATH=/empty FPATH=/empty; export PATH FPATH test "X`printf %s $ECHO`" = "X$ECHO" \ || test "X`print -r -- $ECHO`" = "X$ECHO" )])]) _LT_DECL([], [SHELL], [1], [Shell to use when invoking shell scripts]) _LT_DECL([], [ECHO], [1], [An echo program that protects backslashes]) ])# _LT_PROG_ECHO_BACKSLASH # _LT_WITH_SYSROOT # ---------------- AC_DEFUN([_LT_WITH_SYSROOT], [AC_MSG_CHECKING([for sysroot]) AC_ARG_WITH([sysroot], [AS_HELP_STRING([--with-sysroot@<:@=DIR@:>@], [Search for dependent libraries within DIR (or the compiler's sysroot if not specified).])], [], [with_sysroot=no]) dnl lt_sysroot will always be passed unquoted. We quote it here dnl in case the user passed a directory name. lt_sysroot= case $with_sysroot in #( yes) if test yes = "$GCC"; then lt_sysroot=`$CC --print-sysroot 2>/dev/null` fi ;; #( /*) lt_sysroot=`echo "$with_sysroot" | sed -e "$sed_quote_subst"` ;; #( no|'') ;; #( *) AC_MSG_RESULT([$with_sysroot]) AC_MSG_ERROR([The sysroot must be an absolute path.]) ;; esac AC_MSG_RESULT([${lt_sysroot:-no}]) _LT_DECL([], [lt_sysroot], [0], [The root where to search for ]dnl [dependent libraries, and where our libraries should be installed.])]) # _LT_ENABLE_LOCK # --------------- m4_defun([_LT_ENABLE_LOCK], [AC_ARG_ENABLE([libtool-lock], [AS_HELP_STRING([--disable-libtool-lock], [avoid locking (might break parallel builds)])]) test no = "$enable_libtool_lock" || enable_libtool_lock=yes # Some flags need to be propagated to the compiler or linker for good # libtool support. case $host in ia64-*-hpux*) # Find out what ABI is being produced by ac_compile, and set mode # options accordingly. echo 'int i;' > conftest.$ac_ext if AC_TRY_EVAL(ac_compile); then case `/usr/bin/file conftest.$ac_objext` in *ELF-32*) HPUX_IA64_MODE=32 ;; *ELF-64*) HPUX_IA64_MODE=64 ;; esac fi rm -rf conftest* ;; *-*-irix6*) # Find out what ABI is being produced by ac_compile, and set linker # options accordingly. echo '[#]line '$LINENO' "configure"' > conftest.$ac_ext if AC_TRY_EVAL(ac_compile); then if test yes = "$lt_cv_prog_gnu_ld"; then case `/usr/bin/file conftest.$ac_objext` in *32-bit*) LD="${LD-ld} -melf32bsmip" ;; *N32*) LD="${LD-ld} -melf32bmipn32" ;; *64-bit*) LD="${LD-ld} -melf64bmip" ;; esac else case `/usr/bin/file conftest.$ac_objext` in *32-bit*) LD="${LD-ld} -32" ;; *N32*) LD="${LD-ld} -n32" ;; *64-bit*) LD="${LD-ld} -64" ;; esac fi fi rm -rf conftest* ;; mips64*-*linux*) # Find out what ABI is being produced by ac_compile, and set linker # options accordingly. echo '[#]line '$LINENO' "configure"' > conftest.$ac_ext if AC_TRY_EVAL(ac_compile); then emul=elf case `/usr/bin/file conftest.$ac_objext` in *32-bit*) emul="${emul}32" ;; *64-bit*) emul="${emul}64" ;; esac case `/usr/bin/file conftest.$ac_objext` in *MSB*) emul="${emul}btsmip" ;; *LSB*) emul="${emul}ltsmip" ;; esac case `/usr/bin/file conftest.$ac_objext` in *N32*) emul="${emul}n32" ;; esac LD="${LD-ld} -m $emul" fi rm -rf conftest* ;; x86_64-*kfreebsd*-gnu|x86_64-*linux*|powerpc*-*linux*| \ s390*-*linux*|s390*-*tpf*|sparc*-*linux*) # Find out what ABI is being produced by ac_compile, and set linker # options accordingly. Note that the listed cases only cover the # situations where additional linker options are needed (such as when # doing 32-bit compilation for a host where ld defaults to 64-bit, or # vice versa); the common cases where no linker options are needed do # not appear in the list. echo 'int i;' > conftest.$ac_ext if AC_TRY_EVAL(ac_compile); then case `/usr/bin/file conftest.o` in *32-bit*) case $host in x86_64-*kfreebsd*-gnu) LD="${LD-ld} -m elf_i386_fbsd" ;; x86_64-*linux*) case `/usr/bin/file conftest.o` in *x86-64*) LD="${LD-ld} -m elf32_x86_64" ;; *) LD="${LD-ld} -m elf_i386" ;; esac ;; powerpc64le-*linux*) LD="${LD-ld} -m elf32lppclinux" ;; powerpc64-*linux*) LD="${LD-ld} -m elf32ppclinux" ;; s390x-*linux*) LD="${LD-ld} -m elf_s390" ;; sparc64-*linux*) LD="${LD-ld} -m elf32_sparc" ;; esac ;; *64-bit*) case $host in x86_64-*kfreebsd*-gnu) LD="${LD-ld} -m elf_x86_64_fbsd" ;; x86_64-*linux*) LD="${LD-ld} -m elf_x86_64" ;; powerpcle-*linux*) LD="${LD-ld} -m elf64lppc" ;; powerpc-*linux*) LD="${LD-ld} -m elf64ppc" ;; s390*-*linux*|s390*-*tpf*) LD="${LD-ld} -m elf64_s390" ;; sparc*-*linux*) LD="${LD-ld} -m elf64_sparc" ;; esac ;; esac fi rm -rf conftest* ;; *-*-sco3.2v5*) # On SCO OpenServer 5, we need -belf to get full-featured binaries. SAVE_CFLAGS=$CFLAGS CFLAGS="$CFLAGS -belf" AC_CACHE_CHECK([whether the C compiler needs -belf], lt_cv_cc_needs_belf, [AC_LANG_PUSH(C) AC_LINK_IFELSE([AC_LANG_PROGRAM([[]],[[]])],[lt_cv_cc_needs_belf=yes],[lt_cv_cc_needs_belf=no]) AC_LANG_POP]) if test yes != "$lt_cv_cc_needs_belf"; then # this is probably gcc 2.8.0, egcs 1.0 or newer; no need for -belf CFLAGS=$SAVE_CFLAGS fi ;; *-*solaris*) # Find out what ABI is being produced by ac_compile, and set linker # options accordingly. echo 'int i;' > conftest.$ac_ext if AC_TRY_EVAL(ac_compile); then case `/usr/bin/file conftest.o` in *64-bit*) case $lt_cv_prog_gnu_ld in yes*) case $host in i?86-*-solaris*|x86_64-*-solaris*) LD="${LD-ld} -m elf_x86_64" ;; sparc*-*-solaris*) LD="${LD-ld} -m elf64_sparc" ;; esac # GNU ld 2.21 introduced _sol2 emulations. Use them if available. if ${LD-ld} -V | grep _sol2 >/dev/null 2>&1; then LD=${LD-ld}_sol2 fi ;; *) if ${LD-ld} -64 -r -o conftest2.o conftest.o >/dev/null 2>&1; then LD="${LD-ld} -64" fi ;; esac ;; esac fi rm -rf conftest* ;; esac need_locks=$enable_libtool_lock ])# _LT_ENABLE_LOCK # _LT_PROG_AR # ----------- m4_defun([_LT_PROG_AR], [AC_CHECK_TOOLS(AR, [ar], false) : ${AR=ar} : ${AR_FLAGS=cru} _LT_DECL([], [AR], [1], [The archiver]) _LT_DECL([], [AR_FLAGS], [1], [Flags to create an archive]) AC_CACHE_CHECK([for archiver @FILE support], [lt_cv_ar_at_file], [lt_cv_ar_at_file=no AC_COMPILE_IFELSE([AC_LANG_PROGRAM], [echo conftest.$ac_objext > conftest.lst lt_ar_try='$AR $AR_FLAGS libconftest.a @conftest.lst >&AS_MESSAGE_LOG_FD' AC_TRY_EVAL([lt_ar_try]) if test 0 -eq "$ac_status"; then # Ensure the archiver fails upon bogus file names. rm -f conftest.$ac_objext libconftest.a AC_TRY_EVAL([lt_ar_try]) if test 0 -ne "$ac_status"; then lt_cv_ar_at_file=@ fi fi rm -f conftest.* libconftest.a ]) ]) if test no = "$lt_cv_ar_at_file"; then archiver_list_spec= else archiver_list_spec=$lt_cv_ar_at_file fi _LT_DECL([], [archiver_list_spec], [1], [How to feed a file listing to the archiver]) ])# _LT_PROG_AR # _LT_CMD_OLD_ARCHIVE # ------------------- m4_defun([_LT_CMD_OLD_ARCHIVE], [_LT_PROG_AR AC_CHECK_TOOL(STRIP, strip, :) test -z "$STRIP" && STRIP=: _LT_DECL([], [STRIP], [1], [A symbol stripping program]) AC_CHECK_TOOL(RANLIB, ranlib, :) test -z "$RANLIB" && RANLIB=: _LT_DECL([], [RANLIB], [1], [Commands used to install an old-style archive]) # Determine commands to create old-style static archives. old_archive_cmds='$AR $AR_FLAGS $oldlib$oldobjs' old_postinstall_cmds='chmod 644 $oldlib' old_postuninstall_cmds= if test -n "$RANLIB"; then case $host_os in bitrig* | openbsd*) old_postinstall_cmds="$old_postinstall_cmds~\$RANLIB -t \$tool_oldlib" ;; *) old_postinstall_cmds="$old_postinstall_cmds~\$RANLIB \$tool_oldlib" ;; esac old_archive_cmds="$old_archive_cmds~\$RANLIB \$tool_oldlib" fi case $host_os in darwin*) lock_old_archive_extraction=yes ;; *) lock_old_archive_extraction=no ;; esac _LT_DECL([], [old_postinstall_cmds], [2]) _LT_DECL([], [old_postuninstall_cmds], [2]) _LT_TAGDECL([], [old_archive_cmds], [2], [Commands used to build an old-style archive]) _LT_DECL([], [lock_old_archive_extraction], [0], [Whether to use a lock for old archive extraction]) ])# _LT_CMD_OLD_ARCHIVE # _LT_COMPILER_OPTION(MESSAGE, VARIABLE-NAME, FLAGS, # [OUTPUT-FILE], [ACTION-SUCCESS], [ACTION-FAILURE]) # ---------------------------------------------------------------- # Check whether the given compiler option works AC_DEFUN([_LT_COMPILER_OPTION], [m4_require([_LT_FILEUTILS_DEFAULTS])dnl m4_require([_LT_DECL_SED])dnl AC_CACHE_CHECK([$1], [$2], [$2=no m4_if([$4], , [ac_outfile=conftest.$ac_objext], [ac_outfile=$4]) echo "$lt_simple_compile_test_code" > conftest.$ac_ext lt_compiler_flag="$3" ## exclude from sc_useless_quotes_in_assignment # Insert the option either (1) after the last *FLAGS variable, or # (2) before a word containing "conftest.", or (3) at the end. # Note that $ac_compile itself does not contain backslashes and begins # with a dollar sign (not a hyphen), so the echo should work correctly. # The option is referenced via a variable to avoid confusing sed. lt_compile=`echo "$ac_compile" | $SED \ -e 's:.*FLAGS}\{0,1\} :&$lt_compiler_flag :; t' \ -e 's: [[^ ]]*conftest\.: $lt_compiler_flag&:; t' \ -e 's:$: $lt_compiler_flag:'` (eval echo "\"\$as_me:$LINENO: $lt_compile\"" >&AS_MESSAGE_LOG_FD) (eval "$lt_compile" 2>conftest.err) ac_status=$? cat conftest.err >&AS_MESSAGE_LOG_FD echo "$as_me:$LINENO: \$? = $ac_status" >&AS_MESSAGE_LOG_FD if (exit $ac_status) && test -s "$ac_outfile"; then # The compiler can only warn and ignore the option if not recognized # So say no if there are warnings other than the usual output. $ECHO "$_lt_compiler_boilerplate" | $SED '/^$/d' >conftest.exp $SED '/^$/d; /^ *+/d' conftest.err >conftest.er2 if test ! -s conftest.er2 || diff conftest.exp conftest.er2 >/dev/null; then $2=yes fi fi $RM conftest* ]) if test yes = "[$]$2"; then m4_if([$5], , :, [$5]) else m4_if([$6], , :, [$6]) fi ])# _LT_COMPILER_OPTION # Old name: AU_ALIAS([AC_LIBTOOL_COMPILER_OPTION], [_LT_COMPILER_OPTION]) dnl aclocal-1.4 backwards compatibility: dnl AC_DEFUN([AC_LIBTOOL_COMPILER_OPTION], []) # _LT_LINKER_OPTION(MESSAGE, VARIABLE-NAME, FLAGS, # [ACTION-SUCCESS], [ACTION-FAILURE]) # ---------------------------------------------------- # Check whether the given linker option works AC_DEFUN([_LT_LINKER_OPTION], [m4_require([_LT_FILEUTILS_DEFAULTS])dnl m4_require([_LT_DECL_SED])dnl AC_CACHE_CHECK([$1], [$2], [$2=no save_LDFLAGS=$LDFLAGS LDFLAGS="$LDFLAGS $3" echo "$lt_simple_link_test_code" > conftest.$ac_ext if (eval $ac_link 2>conftest.err) && test -s conftest$ac_exeext; then # The linker can only warn and ignore the option if not recognized # So say no if there are warnings if test -s conftest.err; then # Append any errors to the config.log. cat conftest.err 1>&AS_MESSAGE_LOG_FD $ECHO "$_lt_linker_boilerplate" | $SED '/^$/d' > conftest.exp $SED '/^$/d; /^ *+/d' conftest.err >conftest.er2 if diff conftest.exp conftest.er2 >/dev/null; then $2=yes fi else $2=yes fi fi $RM -r conftest* LDFLAGS=$save_LDFLAGS ]) if test yes = "[$]$2"; then m4_if([$4], , :, [$4]) else m4_if([$5], , :, [$5]) fi ])# _LT_LINKER_OPTION # Old name: AU_ALIAS([AC_LIBTOOL_LINKER_OPTION], [_LT_LINKER_OPTION]) dnl aclocal-1.4 backwards compatibility: dnl AC_DEFUN([AC_LIBTOOL_LINKER_OPTION], []) # LT_CMD_MAX_LEN #--------------- AC_DEFUN([LT_CMD_MAX_LEN], [AC_REQUIRE([AC_CANONICAL_HOST])dnl # find the maximum length of command line arguments AC_MSG_CHECKING([the maximum length of command line arguments]) AC_CACHE_VAL([lt_cv_sys_max_cmd_len], [dnl i=0 teststring=ABCD case $build_os in msdosdjgpp*) # On DJGPP, this test can blow up pretty badly due to problems in libc # (any single argument exceeding 2000 bytes causes a buffer overrun # during glob expansion). Even if it were fixed, the result of this # check would be larger than it should be. lt_cv_sys_max_cmd_len=12288; # 12K is about right ;; gnu*) # Under GNU Hurd, this test is not required because there is # no limit to the length of command line arguments. # Libtool will interpret -1 as no limit whatsoever lt_cv_sys_max_cmd_len=-1; ;; cygwin* | mingw* | cegcc*) # On Win9x/ME, this test blows up -- it succeeds, but takes # about 5 minutes as the teststring grows exponentially. # Worse, since 9x/ME are not pre-emptively multitasking, # you end up with a "frozen" computer, even though with patience # the test eventually succeeds (with a max line length of 256k). # Instead, let's just punt: use the minimum linelength reported by # all of the supported platforms: 8192 (on NT/2K/XP). lt_cv_sys_max_cmd_len=8192; ;; mint*) # On MiNT this can take a long time and run out of memory. lt_cv_sys_max_cmd_len=8192; ;; amigaos*) # On AmigaOS with pdksh, this test takes hours, literally. # So we just punt and use a minimum line length of 8192. lt_cv_sys_max_cmd_len=8192; ;; bitrig* | darwin* | dragonfly* | freebsd* | netbsd* | openbsd*) # This has been around since 386BSD, at least. Likely further. if test -x /sbin/sysctl; then lt_cv_sys_max_cmd_len=`/sbin/sysctl -n kern.argmax` elif test -x /usr/sbin/sysctl; then lt_cv_sys_max_cmd_len=`/usr/sbin/sysctl -n kern.argmax` else lt_cv_sys_max_cmd_len=65536 # usable default for all BSDs fi # And add a safety zone lt_cv_sys_max_cmd_len=`expr $lt_cv_sys_max_cmd_len \/ 4` lt_cv_sys_max_cmd_len=`expr $lt_cv_sys_max_cmd_len \* 3` ;; interix*) # We know the value 262144 and hardcode it with a safety zone (like BSD) lt_cv_sys_max_cmd_len=196608 ;; os2*) # The test takes a long time on OS/2. lt_cv_sys_max_cmd_len=8192 ;; osf*) # Dr. Hans Ekkehard Plesser reports seeing a kernel panic running configure # due to this test when exec_disable_arg_limit is 1 on Tru64. It is not # nice to cause kernel panics so lets avoid the loop below. # First set a reasonable default. lt_cv_sys_max_cmd_len=16384 # if test -x /sbin/sysconfig; then case `/sbin/sysconfig -q proc exec_disable_arg_limit` in *1*) lt_cv_sys_max_cmd_len=-1 ;; esac fi ;; sco3.2v5*) lt_cv_sys_max_cmd_len=102400 ;; sysv5* | sco5v6* | sysv4.2uw2*) kargmax=`grep ARG_MAX /etc/conf/cf.d/stune 2>/dev/null` if test -n "$kargmax"; then lt_cv_sys_max_cmd_len=`echo $kargmax | sed 's/.*[[ ]]//'` else lt_cv_sys_max_cmd_len=32768 fi ;; *) lt_cv_sys_max_cmd_len=`(getconf ARG_MAX) 2> /dev/null` if test -n "$lt_cv_sys_max_cmd_len" && \ test undefined != "$lt_cv_sys_max_cmd_len"; then lt_cv_sys_max_cmd_len=`expr $lt_cv_sys_max_cmd_len \/ 4` lt_cv_sys_max_cmd_len=`expr $lt_cv_sys_max_cmd_len \* 3` else # Make teststring a little bigger before we do anything with it. # a 1K string should be a reasonable start. for i in 1 2 3 4 5 6 7 8; do teststring=$teststring$teststring done SHELL=${SHELL-${CONFIG_SHELL-/bin/sh}} # If test is not a shell built-in, we'll probably end up computing a # maximum length that is only half of the actual maximum length, but # we can't tell. while { test X`env echo "$teststring$teststring" 2>/dev/null` \ = "X$teststring$teststring"; } >/dev/null 2>&1 && test 17 != "$i" # 1/2 MB should be enough do i=`expr $i + 1` teststring=$teststring$teststring done # Only check the string length outside the loop. lt_cv_sys_max_cmd_len=`expr "X$teststring" : ".*" 2>&1` teststring= # Add a significant safety factor because C++ compilers can tack on # massive amounts of additional arguments before passing them to the # linker. It appears as though 1/2 is a usable value. lt_cv_sys_max_cmd_len=`expr $lt_cv_sys_max_cmd_len \/ 2` fi ;; esac ]) if test -n "$lt_cv_sys_max_cmd_len"; then AC_MSG_RESULT($lt_cv_sys_max_cmd_len) else AC_MSG_RESULT(none) fi max_cmd_len=$lt_cv_sys_max_cmd_len _LT_DECL([], [max_cmd_len], [0], [What is the maximum length of a command?]) ])# LT_CMD_MAX_LEN # Old name: AU_ALIAS([AC_LIBTOOL_SYS_MAX_CMD_LEN], [LT_CMD_MAX_LEN]) dnl aclocal-1.4 backwards compatibility: dnl AC_DEFUN([AC_LIBTOOL_SYS_MAX_CMD_LEN], []) # _LT_HEADER_DLFCN # ---------------- m4_defun([_LT_HEADER_DLFCN], [AC_CHECK_HEADERS([dlfcn.h], [], [], [AC_INCLUDES_DEFAULT])dnl ])# _LT_HEADER_DLFCN # _LT_TRY_DLOPEN_SELF (ACTION-IF-TRUE, ACTION-IF-TRUE-W-USCORE, # ACTION-IF-FALSE, ACTION-IF-CROSS-COMPILING) # ---------------------------------------------------------------- m4_defun([_LT_TRY_DLOPEN_SELF], [m4_require([_LT_HEADER_DLFCN])dnl if test yes = "$cross_compiling"; then : [$4] else lt_dlunknown=0; lt_dlno_uscore=1; lt_dlneed_uscore=2 lt_status=$lt_dlunknown cat > conftest.$ac_ext <<_LT_EOF [#line $LINENO "configure" #include "confdefs.h" #if HAVE_DLFCN_H #include #endif #include #ifdef RTLD_GLOBAL # define LT_DLGLOBAL RTLD_GLOBAL #else # ifdef DL_GLOBAL # define LT_DLGLOBAL DL_GLOBAL # else # define LT_DLGLOBAL 0 # endif #endif /* We may have to define LT_DLLAZY_OR_NOW in the command line if we find out it does not work in some platform. */ #ifndef LT_DLLAZY_OR_NOW # ifdef RTLD_LAZY # define LT_DLLAZY_OR_NOW RTLD_LAZY # else # ifdef DL_LAZY # define LT_DLLAZY_OR_NOW DL_LAZY # else # ifdef RTLD_NOW # define LT_DLLAZY_OR_NOW RTLD_NOW # else # ifdef DL_NOW # define LT_DLLAZY_OR_NOW DL_NOW # else # define LT_DLLAZY_OR_NOW 0 # endif # endif # endif # endif #endif /* When -fvisibility=hidden is used, assume the code has been annotated correspondingly for the symbols needed. */ #if defined __GNUC__ && (((__GNUC__ == 3) && (__GNUC_MINOR__ >= 3)) || (__GNUC__ > 3)) int fnord () __attribute__((visibility("default"))); #endif int fnord () { return 42; } int main () { void *self = dlopen (0, LT_DLGLOBAL|LT_DLLAZY_OR_NOW); int status = $lt_dlunknown; if (self) { if (dlsym (self,"fnord")) status = $lt_dlno_uscore; else { if (dlsym( self,"_fnord")) status = $lt_dlneed_uscore; else puts (dlerror ()); } /* dlclose (self); */ } else puts (dlerror ()); return status; }] _LT_EOF if AC_TRY_EVAL(ac_link) && test -s "conftest$ac_exeext" 2>/dev/null; then (./conftest; exit; ) >&AS_MESSAGE_LOG_FD 2>/dev/null lt_status=$? case x$lt_status in x$lt_dlno_uscore) $1 ;; x$lt_dlneed_uscore) $2 ;; x$lt_dlunknown|x*) $3 ;; esac else : # compilation failed $3 fi fi rm -fr conftest* ])# _LT_TRY_DLOPEN_SELF # LT_SYS_DLOPEN_SELF # ------------------ AC_DEFUN([LT_SYS_DLOPEN_SELF], [m4_require([_LT_HEADER_DLFCN])dnl if test yes != "$enable_dlopen"; then enable_dlopen=unknown enable_dlopen_self=unknown enable_dlopen_self_static=unknown else lt_cv_dlopen=no lt_cv_dlopen_libs= case $host_os in beos*) lt_cv_dlopen=load_add_on lt_cv_dlopen_libs= lt_cv_dlopen_self=yes ;; mingw* | pw32* | cegcc*) lt_cv_dlopen=LoadLibrary lt_cv_dlopen_libs= ;; cygwin*) lt_cv_dlopen=dlopen lt_cv_dlopen_libs= ;; darwin*) # if libdl is installed we need to link against it AC_CHECK_LIB([dl], [dlopen], [lt_cv_dlopen=dlopen lt_cv_dlopen_libs=-ldl],[ lt_cv_dlopen=dyld lt_cv_dlopen_libs= lt_cv_dlopen_self=yes ]) ;; tpf*) # Don't try to run any link tests for TPF. We know it's impossible # because TPF is a cross-compiler, and we know how we open DSOs. lt_cv_dlopen=dlopen lt_cv_dlopen_libs= lt_cv_dlopen_self=no ;; *) AC_CHECK_FUNC([shl_load], [lt_cv_dlopen=shl_load], [AC_CHECK_LIB([dld], [shl_load], [lt_cv_dlopen=shl_load lt_cv_dlopen_libs=-ldld], [AC_CHECK_FUNC([dlopen], [lt_cv_dlopen=dlopen], [AC_CHECK_LIB([dl], [dlopen], [lt_cv_dlopen=dlopen lt_cv_dlopen_libs=-ldl], [AC_CHECK_LIB([svld], [dlopen], [lt_cv_dlopen=dlopen lt_cv_dlopen_libs=-lsvld], [AC_CHECK_LIB([dld], [dld_link], [lt_cv_dlopen=dld_link lt_cv_dlopen_libs=-ldld]) ]) ]) ]) ]) ]) ;; esac if test no = "$lt_cv_dlopen"; then enable_dlopen=no else enable_dlopen=yes fi case $lt_cv_dlopen in dlopen) save_CPPFLAGS=$CPPFLAGS test yes = "$ac_cv_header_dlfcn_h" && CPPFLAGS="$CPPFLAGS -DHAVE_DLFCN_H" save_LDFLAGS=$LDFLAGS wl=$lt_prog_compiler_wl eval LDFLAGS=\"\$LDFLAGS $export_dynamic_flag_spec\" save_LIBS=$LIBS LIBS="$lt_cv_dlopen_libs $LIBS" AC_CACHE_CHECK([whether a program can dlopen itself], lt_cv_dlopen_self, [dnl _LT_TRY_DLOPEN_SELF( lt_cv_dlopen_self=yes, lt_cv_dlopen_self=yes, lt_cv_dlopen_self=no, lt_cv_dlopen_self=cross) ]) if test yes = "$lt_cv_dlopen_self"; then wl=$lt_prog_compiler_wl eval LDFLAGS=\"\$LDFLAGS $lt_prog_compiler_static\" AC_CACHE_CHECK([whether a statically linked program can dlopen itself], lt_cv_dlopen_self_static, [dnl _LT_TRY_DLOPEN_SELF( lt_cv_dlopen_self_static=yes, lt_cv_dlopen_self_static=yes, lt_cv_dlopen_self_static=no, lt_cv_dlopen_self_static=cross) ]) fi CPPFLAGS=$save_CPPFLAGS LDFLAGS=$save_LDFLAGS LIBS=$save_LIBS ;; esac case $lt_cv_dlopen_self in yes|no) enable_dlopen_self=$lt_cv_dlopen_self ;; *) enable_dlopen_self=unknown ;; esac case $lt_cv_dlopen_self_static in yes|no) enable_dlopen_self_static=$lt_cv_dlopen_self_static ;; *) enable_dlopen_self_static=unknown ;; esac fi _LT_DECL([dlopen_support], [enable_dlopen], [0], [Whether dlopen is supported]) _LT_DECL([dlopen_self], [enable_dlopen_self], [0], [Whether dlopen of programs is supported]) _LT_DECL([dlopen_self_static], [enable_dlopen_self_static], [0], [Whether dlopen of statically linked programs is supported]) ])# LT_SYS_DLOPEN_SELF # Old name: AU_ALIAS([AC_LIBTOOL_DLOPEN_SELF], [LT_SYS_DLOPEN_SELF]) dnl aclocal-1.4 backwards compatibility: dnl AC_DEFUN([AC_LIBTOOL_DLOPEN_SELF], []) # _LT_COMPILER_C_O([TAGNAME]) # --------------------------- # Check to see if options -c and -o are simultaneously supported by compiler. # This macro does not hard code the compiler like AC_PROG_CC_C_O. m4_defun([_LT_COMPILER_C_O], [m4_require([_LT_DECL_SED])dnl m4_require([_LT_FILEUTILS_DEFAULTS])dnl m4_require([_LT_TAG_COMPILER])dnl AC_CACHE_CHECK([if $compiler supports -c -o file.$ac_objext], [_LT_TAGVAR(lt_cv_prog_compiler_c_o, $1)], [_LT_TAGVAR(lt_cv_prog_compiler_c_o, $1)=no $RM -r conftest 2>/dev/null mkdir conftest cd conftest mkdir out echo "$lt_simple_compile_test_code" > conftest.$ac_ext lt_compiler_flag="-o out/conftest2.$ac_objext" # Insert the option either (1) after the last *FLAGS variable, or # (2) before a word containing "conftest.", or (3) at the end. # Note that $ac_compile itself does not contain backslashes and begins # with a dollar sign (not a hyphen), so the echo should work correctly. lt_compile=`echo "$ac_compile" | $SED \ -e 's:.*FLAGS}\{0,1\} :&$lt_compiler_flag :; t' \ -e 's: [[^ ]]*conftest\.: $lt_compiler_flag&:; t' \ -e 's:$: $lt_compiler_flag:'` (eval echo "\"\$as_me:$LINENO: $lt_compile\"" >&AS_MESSAGE_LOG_FD) (eval "$lt_compile" 2>out/conftest.err) ac_status=$? cat out/conftest.err >&AS_MESSAGE_LOG_FD echo "$as_me:$LINENO: \$? = $ac_status" >&AS_MESSAGE_LOG_FD if (exit $ac_status) && test -s out/conftest2.$ac_objext then # The compiler can only warn and ignore the option if not recognized # So say no if there are warnings $ECHO "$_lt_compiler_boilerplate" | $SED '/^$/d' > out/conftest.exp $SED '/^$/d; /^ *+/d' out/conftest.err >out/conftest.er2 if test ! -s out/conftest.er2 || diff out/conftest.exp out/conftest.er2 >/dev/null; then _LT_TAGVAR(lt_cv_prog_compiler_c_o, $1)=yes fi fi chmod u+w . 2>&AS_MESSAGE_LOG_FD $RM conftest* # SGI C++ compiler will create directory out/ii_files/ for # template instantiation test -d out/ii_files && $RM out/ii_files/* && rmdir out/ii_files $RM out/* && rmdir out cd .. $RM -r conftest $RM conftest* ]) _LT_TAGDECL([compiler_c_o], [lt_cv_prog_compiler_c_o], [1], [Does compiler simultaneously support -c and -o options?]) ])# _LT_COMPILER_C_O # _LT_COMPILER_FILE_LOCKS([TAGNAME]) # ---------------------------------- # Check to see if we can do hard links to lock some files if needed m4_defun([_LT_COMPILER_FILE_LOCKS], [m4_require([_LT_ENABLE_LOCK])dnl m4_require([_LT_FILEUTILS_DEFAULTS])dnl _LT_COMPILER_C_O([$1]) hard_links=nottested if test no = "$_LT_TAGVAR(lt_cv_prog_compiler_c_o, $1)" && test no != "$need_locks"; then # do not overwrite the value of need_locks provided by the user AC_MSG_CHECKING([if we can lock with hard links]) hard_links=yes $RM conftest* ln conftest.a conftest.b 2>/dev/null && hard_links=no touch conftest.a ln conftest.a conftest.b 2>&5 || hard_links=no ln conftest.a conftest.b 2>/dev/null && hard_links=no AC_MSG_RESULT([$hard_links]) if test no = "$hard_links"; then AC_MSG_WARN(['$CC' does not support '-c -o', so 'make -j' may be unsafe]) need_locks=warn fi else need_locks=no fi _LT_DECL([], [need_locks], [1], [Must we lock files when doing compilation?]) ])# _LT_COMPILER_FILE_LOCKS # _LT_CHECK_OBJDIR # ---------------- m4_defun([_LT_CHECK_OBJDIR], [AC_CACHE_CHECK([for objdir], [lt_cv_objdir], [rm -f .libs 2>/dev/null mkdir .libs 2>/dev/null if test -d .libs; then lt_cv_objdir=.libs else # MS-DOS does not allow filenames that begin with a dot. lt_cv_objdir=_libs fi rmdir .libs 2>/dev/null]) objdir=$lt_cv_objdir _LT_DECL([], [objdir], [0], [The name of the directory that contains temporary libtool files])dnl m4_pattern_allow([LT_OBJDIR])dnl AC_DEFINE_UNQUOTED([LT_OBJDIR], "$lt_cv_objdir/", [Define to the sub-directory where libtool stores uninstalled libraries.]) ])# _LT_CHECK_OBJDIR # _LT_LINKER_HARDCODE_LIBPATH([TAGNAME]) # -------------------------------------- # Check hardcoding attributes. m4_defun([_LT_LINKER_HARDCODE_LIBPATH], [AC_MSG_CHECKING([how to hardcode library paths into programs]) _LT_TAGVAR(hardcode_action, $1)= if test -n "$_LT_TAGVAR(hardcode_libdir_flag_spec, $1)" || test -n "$_LT_TAGVAR(runpath_var, $1)" || test yes = "$_LT_TAGVAR(hardcode_automatic, $1)"; then # We can hardcode non-existent directories. if test no != "$_LT_TAGVAR(hardcode_direct, $1)" && # If the only mechanism to avoid hardcoding is shlibpath_var, we # have to relink, otherwise we might link with an installed library # when we should be linking with a yet-to-be-installed one ## test no != "$_LT_TAGVAR(hardcode_shlibpath_var, $1)" && test no != "$_LT_TAGVAR(hardcode_minus_L, $1)"; then # Linking always hardcodes the temporary library directory. _LT_TAGVAR(hardcode_action, $1)=relink else # We can link without hardcoding, and we can hardcode nonexisting dirs. _LT_TAGVAR(hardcode_action, $1)=immediate fi else # We cannot hardcode anything, or else we can only hardcode existing # directories. _LT_TAGVAR(hardcode_action, $1)=unsupported fi AC_MSG_RESULT([$_LT_TAGVAR(hardcode_action, $1)]) if test relink = "$_LT_TAGVAR(hardcode_action, $1)" || test yes = "$_LT_TAGVAR(inherit_rpath, $1)"; then # Fast installation is not supported enable_fast_install=no elif test yes = "$shlibpath_overrides_runpath" || test no = "$enable_shared"; then # Fast installation is not necessary enable_fast_install=needless fi _LT_TAGDECL([], [hardcode_action], [0], [How to hardcode a shared library path into an executable]) ])# _LT_LINKER_HARDCODE_LIBPATH # _LT_CMD_STRIPLIB # ---------------- m4_defun([_LT_CMD_STRIPLIB], [m4_require([_LT_DECL_EGREP]) striplib= old_striplib= AC_MSG_CHECKING([whether stripping libraries is possible]) if test -n "$STRIP" && $STRIP -V 2>&1 | $GREP "GNU strip" >/dev/null; then test -z "$old_striplib" && old_striplib="$STRIP --strip-debug" test -z "$striplib" && striplib="$STRIP --strip-unneeded" AC_MSG_RESULT([yes]) else # FIXME - insert some real tests, host_os isn't really good enough case $host_os in darwin*) if test -n "$STRIP"; then striplib="$STRIP -x" old_striplib="$STRIP -S" AC_MSG_RESULT([yes]) else AC_MSG_RESULT([no]) fi ;; *) AC_MSG_RESULT([no]) ;; esac fi _LT_DECL([], [old_striplib], [1], [Commands to strip libraries]) _LT_DECL([], [striplib], [1]) ])# _LT_CMD_STRIPLIB # _LT_PREPARE_MUNGE_PATH_LIST # --------------------------- # Make sure func_munge_path_list() is defined correctly. m4_defun([_LT_PREPARE_MUNGE_PATH_LIST], [[# func_munge_path_list VARIABLE PATH # ----------------------------------- # VARIABLE is name of variable containing _space_ separated list of # directories to be munged by the contents of PATH, which is string # having a format: # "DIR[:DIR]:" # string "DIR[ DIR]" will be prepended to VARIABLE # ":DIR[:DIR]" # string "DIR[ DIR]" will be appended to VARIABLE # "DIRP[:DIRP]::[DIRA:]DIRA" # string "DIRP[ DIRP]" will be prepended to VARIABLE and string # "DIRA[ DIRA]" will be appended to VARIABLE # "DIR[:DIR]" # VARIABLE will be replaced by "DIR[ DIR]" func_munge_path_list () { case x@S|@2 in x) ;; *:) eval @S|@1=\"`$ECHO @S|@2 | $SED 's/:/ /g'` \@S|@@S|@1\" ;; x:*) eval @S|@1=\"\@S|@@S|@1 `$ECHO @S|@2 | $SED 's/:/ /g'`\" ;; *::*) eval @S|@1=\"\@S|@@S|@1\ `$ECHO @S|@2 | $SED -e 's/.*:://' -e 's/:/ /g'`\" eval @S|@1=\"`$ECHO @S|@2 | $SED -e 's/::.*//' -e 's/:/ /g'`\ \@S|@@S|@1\" ;; *) eval @S|@1=\"`$ECHO @S|@2 | $SED 's/:/ /g'`\" ;; esac } ]])# _LT_PREPARE_PATH_LIST # _LT_SYS_DYNAMIC_LINKER([TAG]) # ----------------------------- # PORTME Fill in your ld.so characteristics m4_defun([_LT_SYS_DYNAMIC_LINKER], [AC_REQUIRE([AC_CANONICAL_HOST])dnl m4_require([_LT_DECL_EGREP])dnl m4_require([_LT_FILEUTILS_DEFAULTS])dnl m4_require([_LT_DECL_OBJDUMP])dnl m4_require([_LT_DECL_SED])dnl m4_require([_LT_CHECK_SHELL_FEATURES])dnl m4_require([_LT_PREPARE_MUNGE_PATH_LIST])dnl AC_MSG_CHECKING([dynamic linker characteristics]) m4_if([$1], [], [ if test yes = "$GCC"; then case $host_os in darwin*) lt_awk_arg='/^libraries:/,/LR/' ;; *) lt_awk_arg='/^libraries:/' ;; esac case $host_os in mingw* | cegcc*) lt_sed_strip_eq='s|=\([[A-Za-z]]:\)|\1|g' ;; *) lt_sed_strip_eq='s|=/|/|g' ;; esac lt_search_path_spec=`$CC -print-search-dirs | awk $lt_awk_arg | $SED -e "s/^libraries://" -e $lt_sed_strip_eq` case $lt_search_path_spec in *\;*) # if the path contains ";" then we assume it to be the separator # otherwise default to the standard path separator (i.e. ":") - it is # assumed that no part of a normal pathname contains ";" but that should # okay in the real world where ";" in dirpaths is itself problematic. lt_search_path_spec=`$ECHO "$lt_search_path_spec" | $SED 's/;/ /g'` ;; *) lt_search_path_spec=`$ECHO "$lt_search_path_spec" | $SED "s/$PATH_SEPARATOR/ /g"` ;; esac # Ok, now we have the path, separated by spaces, we can step through it # and add multilib dir if necessary... lt_tmp_lt_search_path_spec= lt_multi_os_dir=/`$CC $CPPFLAGS $CFLAGS $LDFLAGS -print-multi-os-directory 2>/dev/null` # ...but if some path component already ends with the multilib dir we assume # that all is fine and trust -print-search-dirs as is (GCC 4.2? or newer). case "$lt_multi_os_dir; $lt_search_path_spec " in "/; "* | "/.; "* | "/./; "* | *"$lt_multi_os_dir "* | *"$lt_multi_os_dir/ "*) lt_multi_os_dir= ;; esac for lt_sys_path in $lt_search_path_spec; do if test -d "$lt_sys_path$lt_multi_os_dir"; then lt_tmp_lt_search_path_spec="$lt_tmp_lt_search_path_spec $lt_sys_path$lt_multi_os_dir" elif test -n "$lt_multi_os_dir"; then test -d "$lt_sys_path" && \ lt_tmp_lt_search_path_spec="$lt_tmp_lt_search_path_spec $lt_sys_path" fi done lt_search_path_spec=`$ECHO "$lt_tmp_lt_search_path_spec" | awk ' BEGIN {RS = " "; FS = "/|\n";} { lt_foo = ""; lt_count = 0; for (lt_i = NF; lt_i > 0; lt_i--) { if ($lt_i != "" && $lt_i != ".") { if ($lt_i == "..") { lt_count++; } else { if (lt_count == 0) { lt_foo = "/" $lt_i lt_foo; } else { lt_count--; } } } } if (lt_foo != "") { lt_freq[[lt_foo]]++; } if (lt_freq[[lt_foo]] == 1) { print lt_foo; } }'` # AWK program above erroneously prepends '/' to C:/dos/paths # for these hosts. case $host_os in mingw* | cegcc*) lt_search_path_spec=`$ECHO "$lt_search_path_spec" |\ $SED 's|/\([[A-Za-z]]:\)|\1|g'` ;; esac sys_lib_search_path_spec=`$ECHO "$lt_search_path_spec" | $lt_NL2SP` else sys_lib_search_path_spec="/lib /usr/lib /usr/local/lib" fi]) library_names_spec= libname_spec='lib$name' soname_spec= shrext_cmds=.so postinstall_cmds= postuninstall_cmds= finish_cmds= finish_eval= shlibpath_var= shlibpath_overrides_runpath=unknown version_type=none dynamic_linker="$host_os ld.so" sys_lib_dlsearch_path_spec="/lib /usr/lib" need_lib_prefix=unknown hardcode_into_libs=no # when you set need_version to no, make sure it does not cause -set_version # flags to be left without arguments need_version=unknown AC_ARG_VAR([LT_SYS_LIBRARY_PATH], [User-defined run-time library search path.]) case $host_os in aix3*) version_type=linux # correct to gnu/linux during the next big refactor library_names_spec='$libname$release$shared_ext$versuffix $libname.a' shlibpath_var=LIBPATH # AIX 3 has no versioning support, so we append a major version to the name. soname_spec='$libname$release$shared_ext$major' ;; aix[[4-9]]*) version_type=linux # correct to gnu/linux during the next big refactor need_lib_prefix=no need_version=no hardcode_into_libs=yes if test ia64 = "$host_cpu"; then # AIX 5 supports IA64 library_names_spec='$libname$release$shared_ext$major $libname$release$shared_ext$versuffix $libname$shared_ext' shlibpath_var=LD_LIBRARY_PATH else # With GCC up to 2.95.x, collect2 would create an import file # for dependence libraries. The import file would start with # the line '#! .'. This would cause the generated library to # depend on '.', always an invalid library. This was fixed in # development snapshots of GCC prior to 3.0. case $host_os in aix4 | aix4.[[01]] | aix4.[[01]].*) if { echo '#if __GNUC__ > 2 || (__GNUC__ == 2 && __GNUC_MINOR__ >= 97)' echo ' yes ' echo '#endif'; } | $CC -E - | $GREP yes > /dev/null; then : else can_build_shared=no fi ;; esac # Using Import Files as archive members, it is possible to support # filename-based versioning of shared library archives on AIX. While # this would work for both with and without runtime linking, it will # prevent static linking of such archives. So we do filename-based # shared library versioning with .so extension only, which is used # when both runtime linking and shared linking is enabled. # Unfortunately, runtime linking may impact performance, so we do # not want this to be the default eventually. Also, we use the # versioned .so libs for executables only if there is the -brtl # linker flag in LDFLAGS as well, or --with-aix-soname=svr4 only. # To allow for filename-based versioning support, we need to create # libNAME.so.V as an archive file, containing: # *) an Import File, referring to the versioned filename of the # archive as well as the shared archive member, telling the # bitwidth (32 or 64) of that shared object, and providing the # list of exported symbols of that shared object, eventually # decorated with the 'weak' keyword # *) the shared object with the F_LOADONLY flag set, to really avoid # it being seen by the linker. # At run time we better use the real file rather than another symlink, # but for link time we create the symlink libNAME.so -> libNAME.so.V case $with_aix_soname,$aix_use_runtimelinking in # AIX (on Power*) has no versioning support, so currently we cannot hardcode correct # soname into executable. Probably we can add versioning support to # collect2, so additional links can be useful in future. aix,yes) # traditional libtool dynamic_linker='AIX unversionable lib.so' # If using run time linking (on AIX 4.2 or later) use lib.so # instead of lib.a to let people know that these are not # typical AIX shared libraries. library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext' ;; aix,no) # traditional AIX only dynamic_linker='AIX lib.a[(]lib.so.V[)]' # We preserve .a as extension for shared libraries through AIX4.2 # and later when we are not doing run time linking. library_names_spec='$libname$release.a $libname.a' soname_spec='$libname$release$shared_ext$major' ;; svr4,*) # full svr4 only dynamic_linker="AIX lib.so.V[(]$shared_archive_member_spec.o[)]" library_names_spec='$libname$release$shared_ext$major $libname$shared_ext' # We do not specify a path in Import Files, so LIBPATH fires. shlibpath_overrides_runpath=yes ;; *,yes) # both, prefer svr4 dynamic_linker="AIX lib.so.V[(]$shared_archive_member_spec.o[)], lib.a[(]lib.so.V[)]" library_names_spec='$libname$release$shared_ext$major $libname$shared_ext' # unpreferred sharedlib libNAME.a needs extra handling postinstall_cmds='test -n "$linkname" || linkname="$realname"~func_stripname "" ".so" "$linkname"~$install_shared_prog "$dir/$func_stripname_result.$libext" "$destdir/$func_stripname_result.$libext"~test -z "$tstripme" || test -z "$striplib" || $striplib "$destdir/$func_stripname_result.$libext"' postuninstall_cmds='for n in $library_names $old_library; do :; done~func_stripname "" ".so" "$n"~test "$func_stripname_result" = "$n" || func_append rmfiles " $odir/$func_stripname_result.$libext"' # We do not specify a path in Import Files, so LIBPATH fires. shlibpath_overrides_runpath=yes ;; *,no) # both, prefer aix dynamic_linker="AIX lib.a[(]lib.so.V[)], lib.so.V[(]$shared_archive_member_spec.o[)]" library_names_spec='$libname$release.a $libname.a' soname_spec='$libname$release$shared_ext$major' # unpreferred sharedlib libNAME.so.V and symlink libNAME.so need extra handling postinstall_cmds='test -z "$dlname" || $install_shared_prog $dir/$dlname $destdir/$dlname~test -z "$tstripme" || test -z "$striplib" || $striplib $destdir/$dlname~test -n "$linkname" || linkname=$realname~func_stripname "" ".a" "$linkname"~(cd "$destdir" && $LN_S -f $dlname $func_stripname_result.so)' postuninstall_cmds='test -z "$dlname" || func_append rmfiles " $odir/$dlname"~for n in $old_library $library_names; do :; done~func_stripname "" ".a" "$n"~func_append rmfiles " $odir/$func_stripname_result.so"' ;; esac shlibpath_var=LIBPATH fi ;; amigaos*) case $host_cpu in powerpc) # Since July 2007 AmigaOS4 officially supports .so libraries. # When compiling the executable, add -use-dynld -Lsobjs: to the compileline. library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext' ;; m68k) library_names_spec='$libname.ixlibrary $libname.a' # Create ${libname}_ixlibrary.a entries in /sys/libs. finish_eval='for lib in `ls $libdir/*.ixlibrary 2>/dev/null`; do libname=`func_echo_all "$lib" | $SED '\''s%^.*/\([[^/]]*\)\.ixlibrary$%\1%'\''`; $RM /sys/libs/${libname}_ixlibrary.a; $show "cd /sys/libs && $LN_S $lib ${libname}_ixlibrary.a"; cd /sys/libs && $LN_S $lib ${libname}_ixlibrary.a || exit 1; done' ;; esac ;; beos*) library_names_spec='$libname$shared_ext' dynamic_linker="$host_os ld.so" shlibpath_var=LIBRARY_PATH ;; bsdi[[45]]*) version_type=linux # correct to gnu/linux during the next big refactor need_version=no library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext' soname_spec='$libname$release$shared_ext$major' finish_cmds='PATH="\$PATH:/sbin" ldconfig $libdir' shlibpath_var=LD_LIBRARY_PATH sys_lib_search_path_spec="/shlib /usr/lib /usr/X11/lib /usr/contrib/lib /lib /usr/local/lib" sys_lib_dlsearch_path_spec="/shlib /usr/lib /usr/local/lib" # the default ld.so.conf also contains /usr/contrib/lib and # /usr/X11R6/lib (/usr/X11 is a link to /usr/X11R6), but let us allow # libtool to hard-code these into programs ;; cygwin* | mingw* | pw32* | cegcc*) version_type=windows shrext_cmds=.dll need_version=no need_lib_prefix=no case $GCC,$cc_basename in yes,*) # gcc library_names_spec='$libname.dll.a' # DLL is installed to $(libdir)/../bin by postinstall_cmds postinstall_cmds='base_file=`basename \$file`~ dlpath=`$SHELL 2>&1 -c '\''. $dir/'\''\$base_file'\''i; echo \$dlname'\''`~ dldir=$destdir/`dirname \$dlpath`~ test -d \$dldir || mkdir -p \$dldir~ $install_prog $dir/$dlname \$dldir/$dlname~ chmod a+x \$dldir/$dlname~ if test -n '\''$stripme'\'' && test -n '\''$striplib'\''; then eval '\''$striplib \$dldir/$dlname'\'' || exit \$?; fi' postuninstall_cmds='dldll=`$SHELL 2>&1 -c '\''. $file; echo \$dlname'\''`~ dlpath=$dir/\$dldll~ $RM \$dlpath' shlibpath_overrides_runpath=yes case $host_os in cygwin*) # Cygwin DLLs use 'cyg' prefix rather than 'lib' soname_spec='`echo $libname | sed -e 's/^lib/cyg/'``echo $release | $SED -e 's/[[.]]/-/g'`$versuffix$shared_ext' m4_if([$1], [],[ sys_lib_search_path_spec="$sys_lib_search_path_spec /usr/lib/w32api"]) ;; mingw* | cegcc*) # MinGW DLLs use traditional 'lib' prefix soname_spec='$libname`echo $release | $SED -e 's/[[.]]/-/g'`$versuffix$shared_ext' ;; pw32*) # pw32 DLLs use 'pw' prefix rather than 'lib' library_names_spec='`echo $libname | sed -e 's/^lib/pw/'``echo $release | $SED -e 's/[[.]]/-/g'`$versuffix$shared_ext' ;; esac dynamic_linker='Win32 ld.exe' ;; *,cl*) # Native MSVC libname_spec='$name' soname_spec='$libname`echo $release | $SED -e 's/[[.]]/-/g'`$versuffix$shared_ext' library_names_spec='$libname.dll.lib' case $build_os in mingw*) sys_lib_search_path_spec= lt_save_ifs=$IFS IFS=';' for lt_path in $LIB do IFS=$lt_save_ifs # Let DOS variable expansion print the short 8.3 style file name. lt_path=`cd "$lt_path" 2>/dev/null && cmd //C "for %i in (".") do @echo %~si"` sys_lib_search_path_spec="$sys_lib_search_path_spec $lt_path" done IFS=$lt_save_ifs # Convert to MSYS style. sys_lib_search_path_spec=`$ECHO "$sys_lib_search_path_spec" | sed -e 's|\\\\|/|g' -e 's| \\([[a-zA-Z]]\\):| /\\1|g' -e 's|^ ||'` ;; cygwin*) # Convert to unix form, then to dos form, then back to unix form # but this time dos style (no spaces!) so that the unix form looks # like /cygdrive/c/PROGRA~1:/cygdr... sys_lib_search_path_spec=`cygpath --path --unix "$LIB"` sys_lib_search_path_spec=`cygpath --path --dos "$sys_lib_search_path_spec" 2>/dev/null` sys_lib_search_path_spec=`cygpath --path --unix "$sys_lib_search_path_spec" | $SED -e "s/$PATH_SEPARATOR/ /g"` ;; *) sys_lib_search_path_spec=$LIB if $ECHO "$sys_lib_search_path_spec" | [$GREP ';[c-zC-Z]:/' >/dev/null]; then # It is most probably a Windows format PATH. sys_lib_search_path_spec=`$ECHO "$sys_lib_search_path_spec" | $SED -e 's/;/ /g'` else sys_lib_search_path_spec=`$ECHO "$sys_lib_search_path_spec" | $SED -e "s/$PATH_SEPARATOR/ /g"` fi # FIXME: find the short name or the path components, as spaces are # common. (e.g. "Program Files" -> "PROGRA~1") ;; esac # DLL is installed to $(libdir)/../bin by postinstall_cmds postinstall_cmds='base_file=`basename \$file`~ dlpath=`$SHELL 2>&1 -c '\''. $dir/'\''\$base_file'\''i; echo \$dlname'\''`~ dldir=$destdir/`dirname \$dlpath`~ test -d \$dldir || mkdir -p \$dldir~ $install_prog $dir/$dlname \$dldir/$dlname' postuninstall_cmds='dldll=`$SHELL 2>&1 -c '\''. $file; echo \$dlname'\''`~ dlpath=$dir/\$dldll~ $RM \$dlpath' shlibpath_overrides_runpath=yes dynamic_linker='Win32 link.exe' ;; *) # Assume MSVC wrapper library_names_spec='$libname`echo $release | $SED -e 's/[[.]]/-/g'`$versuffix$shared_ext $libname.lib' dynamic_linker='Win32 ld.exe' ;; esac # FIXME: first we should search . and the directory the executable is in shlibpath_var=PATH ;; darwin* | rhapsody*) dynamic_linker="$host_os dyld" version_type=darwin need_lib_prefix=no need_version=no library_names_spec='$libname$release$major$shared_ext $libname$shared_ext' soname_spec='$libname$release$major$shared_ext' shlibpath_overrides_runpath=yes shlibpath_var=DYLD_LIBRARY_PATH shrext_cmds='`test .$module = .yes && echo .so || echo .dylib`' m4_if([$1], [],[ sys_lib_search_path_spec="$sys_lib_search_path_spec /usr/local/lib"]) sys_lib_dlsearch_path_spec='/usr/local/lib /lib /usr/lib' ;; dgux*) version_type=linux # correct to gnu/linux during the next big refactor need_lib_prefix=no need_version=no library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext' soname_spec='$libname$release$shared_ext$major' shlibpath_var=LD_LIBRARY_PATH ;; freebsd* | dragonfly*) # DragonFly does not have aout. When/if they implement a new # versioning mechanism, adjust this. if test -x /usr/bin/objformat; then objformat=`/usr/bin/objformat` else case $host_os in freebsd[[23]].*) objformat=aout ;; *) objformat=elf ;; esac fi version_type=freebsd-$objformat case $version_type in freebsd-elf*) library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext' soname_spec='$libname$release$shared_ext$major' need_version=no need_lib_prefix=no ;; freebsd-*) library_names_spec='$libname$release$shared_ext$versuffix $libname$shared_ext$versuffix' need_version=yes ;; esac shlibpath_var=LD_LIBRARY_PATH case $host_os in freebsd2.*) shlibpath_overrides_runpath=yes ;; freebsd3.[[01]]* | freebsdelf3.[[01]]*) shlibpath_overrides_runpath=yes hardcode_into_libs=yes ;; freebsd3.[[2-9]]* | freebsdelf3.[[2-9]]* | \ freebsd4.[[0-5]] | freebsdelf4.[[0-5]] | freebsd4.1.1 | freebsdelf4.1.1) shlibpath_overrides_runpath=no hardcode_into_libs=yes ;; *) # from 4.6 on, and DragonFly shlibpath_overrides_runpath=yes hardcode_into_libs=yes ;; esac ;; haiku*) version_type=linux # correct to gnu/linux during the next big refactor need_lib_prefix=no need_version=no dynamic_linker="$host_os runtime_loader" library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext' soname_spec='$libname$release$shared_ext$major' shlibpath_var=LIBRARY_PATH shlibpath_overrides_runpath=no sys_lib_dlsearch_path_spec='/boot/home/config/lib /boot/common/lib /boot/system/lib' hardcode_into_libs=yes ;; hpux9* | hpux10* | hpux11*) # Give a soname corresponding to the major version so that dld.sl refuses to # link against other versions. version_type=sunos need_lib_prefix=no need_version=no case $host_cpu in ia64*) shrext_cmds='.so' hardcode_into_libs=yes dynamic_linker="$host_os dld.so" shlibpath_var=LD_LIBRARY_PATH shlibpath_overrides_runpath=yes # Unless +noenvvar is specified. library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext' soname_spec='$libname$release$shared_ext$major' if test 32 = "$HPUX_IA64_MODE"; then sys_lib_search_path_spec="/usr/lib/hpux32 /usr/local/lib/hpux32 /usr/local/lib" sys_lib_dlsearch_path_spec=/usr/lib/hpux32 else sys_lib_search_path_spec="/usr/lib/hpux64 /usr/local/lib/hpux64" sys_lib_dlsearch_path_spec=/usr/lib/hpux64 fi ;; hppa*64*) shrext_cmds='.sl' hardcode_into_libs=yes dynamic_linker="$host_os dld.sl" shlibpath_var=LD_LIBRARY_PATH # How should we handle SHLIB_PATH shlibpath_overrides_runpath=yes # Unless +noenvvar is specified. library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext' soname_spec='$libname$release$shared_ext$major' sys_lib_search_path_spec="/usr/lib/pa20_64 /usr/ccs/lib/pa20_64" sys_lib_dlsearch_path_spec=$sys_lib_search_path_spec ;; *) shrext_cmds='.sl' dynamic_linker="$host_os dld.sl" shlibpath_var=SHLIB_PATH shlibpath_overrides_runpath=no # +s is required to enable SHLIB_PATH library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext' soname_spec='$libname$release$shared_ext$major' ;; esac # HP-UX runs *really* slowly unless shared libraries are mode 555, ... postinstall_cmds='chmod 555 $lib' # or fails outright, so override atomically: install_override_mode=555 ;; interix[[3-9]]*) version_type=linux # correct to gnu/linux during the next big refactor need_lib_prefix=no need_version=no library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext' soname_spec='$libname$release$shared_ext$major' dynamic_linker='Interix 3.x ld.so.1 (PE, like ELF)' shlibpath_var=LD_LIBRARY_PATH shlibpath_overrides_runpath=no hardcode_into_libs=yes ;; irix5* | irix6* | nonstopux*) case $host_os in nonstopux*) version_type=nonstopux ;; *) if test yes = "$lt_cv_prog_gnu_ld"; then version_type=linux # correct to gnu/linux during the next big refactor else version_type=irix fi ;; esac need_lib_prefix=no need_version=no soname_spec='$libname$release$shared_ext$major' library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$release$shared_ext $libname$shared_ext' case $host_os in irix5* | nonstopux*) libsuff= shlibsuff= ;; *) case $LD in # libtool.m4 will add one of these switches to LD *-32|*"-32 "|*-melf32bsmip|*"-melf32bsmip ") libsuff= shlibsuff= libmagic=32-bit;; *-n32|*"-n32 "|*-melf32bmipn32|*"-melf32bmipn32 ") libsuff=32 shlibsuff=N32 libmagic=N32;; *-64|*"-64 "|*-melf64bmip|*"-melf64bmip ") libsuff=64 shlibsuff=64 libmagic=64-bit;; *) libsuff= shlibsuff= libmagic=never-match;; esac ;; esac shlibpath_var=LD_LIBRARY${shlibsuff}_PATH shlibpath_overrides_runpath=no sys_lib_search_path_spec="/usr/lib$libsuff /lib$libsuff /usr/local/lib$libsuff" sys_lib_dlsearch_path_spec="/usr/lib$libsuff /lib$libsuff" hardcode_into_libs=yes ;; # No shared lib support for Linux oldld, aout, or coff. linux*oldld* | linux*aout* | linux*coff*) dynamic_linker=no ;; linux*android*) version_type=none # Android doesn't support versioned libraries. need_lib_prefix=no need_version=no library_names_spec='$libname$release$shared_ext' soname_spec='$libname$release$shared_ext' finish_cmds= shlibpath_var=LD_LIBRARY_PATH shlibpath_overrides_runpath=yes # This implies no fast_install, which is unacceptable. # Some rework will be needed to allow for fast_install # before this can be enabled. hardcode_into_libs=yes dynamic_linker='Android linker' # Don't embed -rpath directories since the linker doesn't support them. _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='-L$libdir' ;; # This must be glibc/ELF. linux* | k*bsd*-gnu | kopensolaris*-gnu | gnu*) version_type=linux # correct to gnu/linux during the next big refactor need_lib_prefix=no need_version=no library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext' soname_spec='$libname$release$shared_ext$major' finish_cmds='PATH="\$PATH:/sbin" ldconfig -n $libdir' shlibpath_var=LD_LIBRARY_PATH shlibpath_overrides_runpath=no # Some binutils ld are patched to set DT_RUNPATH AC_CACHE_VAL([lt_cv_shlibpath_overrides_runpath], [lt_cv_shlibpath_overrides_runpath=no save_LDFLAGS=$LDFLAGS save_libdir=$libdir eval "libdir=/foo; wl=\"$_LT_TAGVAR(lt_prog_compiler_wl, $1)\"; \ LDFLAGS=\"\$LDFLAGS $_LT_TAGVAR(hardcode_libdir_flag_spec, $1)\"" AC_LINK_IFELSE([AC_LANG_PROGRAM([],[])], [AS_IF([ ($OBJDUMP -p conftest$ac_exeext) 2>/dev/null | grep "RUNPATH.*$libdir" >/dev/null], [lt_cv_shlibpath_overrides_runpath=yes])]) LDFLAGS=$save_LDFLAGS libdir=$save_libdir ]) shlibpath_overrides_runpath=$lt_cv_shlibpath_overrides_runpath # This implies no fast_install, which is unacceptable. # Some rework will be needed to allow for fast_install # before this can be enabled. hardcode_into_libs=yes # Ideally, we could use ldconfig to report *all* directores which are # searched for libraries, however this is still not possible. Aside from not # being certain /sbin/ldconfig is available, command # 'ldconfig -N -X -v | grep ^/' on 64bit Fedora does not report /usr/lib64, # even though it is searched at run-time. Try to do the best guess by # appending ld.so.conf contents (and includes) to the search path. if test -f /etc/ld.so.conf; then lt_ld_extra=`awk '/^include / { system(sprintf("cd /etc; cat %s 2>/dev/null", \[$]2)); skip = 1; } { if (!skip) print \[$]0; skip = 0; }' < /etc/ld.so.conf | $SED -e 's/#.*//;/^[ ]*hwcap[ ]/d;s/[:, ]/ /g;s/=[^=]*$//;s/=[^= ]* / /g;s/"//g;/^$/d' | tr '\n' ' '` sys_lib_dlsearch_path_spec="/lib /usr/lib $lt_ld_extra" fi # We used to test for /lib/ld.so.1 and disable shared libraries on # powerpc, because MkLinux only supported shared libraries with the # GNU dynamic linker. Since this was broken with cross compilers, # most powerpc-linux boxes support dynamic linking these days and # people can always --disable-shared, the test was removed, and we # assume the GNU/Linux dynamic linker is in use. dynamic_linker='GNU/Linux ld.so' ;; netbsd*) version_type=sunos need_lib_prefix=no need_version=no if echo __ELF__ | $CC -E - | $GREP __ELF__ >/dev/null; then library_names_spec='$libname$release$shared_ext$versuffix $libname$shared_ext$versuffix' finish_cmds='PATH="\$PATH:/sbin" ldconfig -m $libdir' dynamic_linker='NetBSD (a.out) ld.so' else library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext' soname_spec='$libname$release$shared_ext$major' dynamic_linker='NetBSD ld.elf_so' fi shlibpath_var=LD_LIBRARY_PATH shlibpath_overrides_runpath=yes hardcode_into_libs=yes ;; newsos6) version_type=linux # correct to gnu/linux during the next big refactor library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext' shlibpath_var=LD_LIBRARY_PATH shlibpath_overrides_runpath=yes ;; *nto* | *qnx*) version_type=qnx need_lib_prefix=no need_version=no library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext' soname_spec='$libname$release$shared_ext$major' shlibpath_var=LD_LIBRARY_PATH shlibpath_overrides_runpath=no hardcode_into_libs=yes dynamic_linker='ldqnx.so' ;; openbsd* | bitrig*) version_type=sunos sys_lib_dlsearch_path_spec=/usr/lib need_lib_prefix=no if test -z "`echo __ELF__ | $CC -E - | $GREP __ELF__`"; then need_version=no else need_version=yes fi library_names_spec='$libname$release$shared_ext$versuffix $libname$shared_ext$versuffix' finish_cmds='PATH="\$PATH:/sbin" ldconfig -m $libdir' shlibpath_var=LD_LIBRARY_PATH shlibpath_overrides_runpath=yes ;; os2*) libname_spec='$name' version_type=windows shrext_cmds=.dll need_version=no need_lib_prefix=no # OS/2 can only load a DLL with a base name of 8 characters or less. soname_spec='`test -n "$os2dllname" && libname="$os2dllname"; v=$($ECHO $release$versuffix | tr -d .-); n=$($ECHO $libname | cut -b -$((8 - ${#v})) | tr . _); $ECHO $n$v`$shared_ext' library_names_spec='${libname}_dll.$libext' dynamic_linker='OS/2 ld.exe' shlibpath_var=BEGINLIBPATH sys_lib_search_path_spec="/lib /usr/lib /usr/local/lib" sys_lib_dlsearch_path_spec=$sys_lib_search_path_spec postinstall_cmds='base_file=`basename \$file`~ dlpath=`$SHELL 2>&1 -c '\''. $dir/'\''\$base_file'\''i; $ECHO \$dlname'\''`~ dldir=$destdir/`dirname \$dlpath`~ test -d \$dldir || mkdir -p \$dldir~ $install_prog $dir/$dlname \$dldir/$dlname~ chmod a+x \$dldir/$dlname~ if test -n '\''$stripme'\'' && test -n '\''$striplib'\''; then eval '\''$striplib \$dldir/$dlname'\'' || exit \$?; fi' postuninstall_cmds='dldll=`$SHELL 2>&1 -c '\''. $file; $ECHO \$dlname'\''`~ dlpath=$dir/\$dldll~ $RM \$dlpath' ;; osf3* | osf4* | osf5*) version_type=osf need_lib_prefix=no need_version=no soname_spec='$libname$release$shared_ext$major' library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext' shlibpath_var=LD_LIBRARY_PATH sys_lib_search_path_spec="/usr/shlib /usr/ccs/lib /usr/lib/cmplrs/cc /usr/lib /usr/local/lib /var/shlib" sys_lib_dlsearch_path_spec=$sys_lib_search_path_spec ;; rdos*) dynamic_linker=no ;; solaris*) version_type=linux # correct to gnu/linux during the next big refactor need_lib_prefix=no need_version=no library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext' soname_spec='$libname$release$shared_ext$major' shlibpath_var=LD_LIBRARY_PATH shlibpath_overrides_runpath=yes hardcode_into_libs=yes # ldd complains unless libraries are executable postinstall_cmds='chmod +x $lib' ;; sunos4*) version_type=sunos library_names_spec='$libname$release$shared_ext$versuffix $libname$shared_ext$versuffix' finish_cmds='PATH="\$PATH:/usr/etc" ldconfig $libdir' shlibpath_var=LD_LIBRARY_PATH shlibpath_overrides_runpath=yes if test yes = "$with_gnu_ld"; then need_lib_prefix=no fi need_version=yes ;; sysv4 | sysv4.3*) version_type=linux # correct to gnu/linux during the next big refactor library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext' soname_spec='$libname$release$shared_ext$major' shlibpath_var=LD_LIBRARY_PATH case $host_vendor in sni) shlibpath_overrides_runpath=no need_lib_prefix=no runpath_var=LD_RUN_PATH ;; siemens) need_lib_prefix=no ;; motorola) need_lib_prefix=no need_version=no shlibpath_overrides_runpath=no sys_lib_search_path_spec='/lib /usr/lib /usr/ccs/lib' ;; esac ;; sysv4*MP*) if test -d /usr/nec; then version_type=linux # correct to gnu/linux during the next big refactor library_names_spec='$libname$shared_ext.$versuffix $libname$shared_ext.$major $libname$shared_ext' soname_spec='$libname$shared_ext.$major' shlibpath_var=LD_LIBRARY_PATH fi ;; sysv5* | sco3.2v5* | sco5v6* | unixware* | OpenUNIX* | sysv4*uw2*) version_type=sco need_lib_prefix=no need_version=no library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext $libname$shared_ext' soname_spec='$libname$release$shared_ext$major' shlibpath_var=LD_LIBRARY_PATH shlibpath_overrides_runpath=yes hardcode_into_libs=yes if test yes = "$with_gnu_ld"; then sys_lib_search_path_spec='/usr/local/lib /usr/gnu/lib /usr/ccs/lib /usr/lib /lib' else sys_lib_search_path_spec='/usr/ccs/lib /usr/lib' case $host_os in sco3.2v5*) sys_lib_search_path_spec="$sys_lib_search_path_spec /lib" ;; esac fi sys_lib_dlsearch_path_spec='/usr/lib' ;; tpf*) # TPF is a cross-target only. Preferred cross-host = GNU/Linux. version_type=linux # correct to gnu/linux during the next big refactor need_lib_prefix=no need_version=no library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext' shlibpath_var=LD_LIBRARY_PATH shlibpath_overrides_runpath=no hardcode_into_libs=yes ;; uts4*) version_type=linux # correct to gnu/linux during the next big refactor library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext' soname_spec='$libname$release$shared_ext$major' shlibpath_var=LD_LIBRARY_PATH ;; *) dynamic_linker=no ;; esac AC_MSG_RESULT([$dynamic_linker]) test no = "$dynamic_linker" && can_build_shared=no variables_saved_for_relink="PATH $shlibpath_var $runpath_var" if test yes = "$GCC"; then variables_saved_for_relink="$variables_saved_for_relink GCC_EXEC_PREFIX COMPILER_PATH LIBRARY_PATH" fi if test set = "${lt_cv_sys_lib_search_path_spec+set}"; then sys_lib_search_path_spec=$lt_cv_sys_lib_search_path_spec fi if test set = "${lt_cv_sys_lib_dlsearch_path_spec+set}"; then sys_lib_dlsearch_path_spec=$lt_cv_sys_lib_dlsearch_path_spec fi # remember unaugmented sys_lib_dlsearch_path content for libtool script decls... configure_time_dlsearch_path=$sys_lib_dlsearch_path_spec # ... but it needs LT_SYS_LIBRARY_PATH munging for other configure-time code func_munge_path_list sys_lib_dlsearch_path_spec "$LT_SYS_LIBRARY_PATH" # to be used as default LT_SYS_LIBRARY_PATH value in generated libtool configure_time_lt_sys_library_path=$LT_SYS_LIBRARY_PATH _LT_DECL([], [variables_saved_for_relink], [1], [Variables whose values should be saved in libtool wrapper scripts and restored at link time]) _LT_DECL([], [need_lib_prefix], [0], [Do we need the "lib" prefix for modules?]) _LT_DECL([], [need_version], [0], [Do we need a version for libraries?]) _LT_DECL([], [version_type], [0], [Library versioning type]) _LT_DECL([], [runpath_var], [0], [Shared library runtime path variable]) _LT_DECL([], [shlibpath_var], [0],[Shared library path variable]) _LT_DECL([], [shlibpath_overrides_runpath], [0], [Is shlibpath searched before the hard-coded library search path?]) _LT_DECL([], [libname_spec], [1], [Format of library name prefix]) _LT_DECL([], [library_names_spec], [1], [[List of archive names. First name is the real one, the rest are links. The last name is the one that the linker finds with -lNAME]]) _LT_DECL([], [soname_spec], [1], [[The coded name of the library, if different from the real name]]) _LT_DECL([], [install_override_mode], [1], [Permission mode override for installation of shared libraries]) _LT_DECL([], [postinstall_cmds], [2], [Command to use after installation of a shared archive]) _LT_DECL([], [postuninstall_cmds], [2], [Command to use after uninstallation of a shared archive]) _LT_DECL([], [finish_cmds], [2], [Commands used to finish a libtool library installation in a directory]) _LT_DECL([], [finish_eval], [1], [[As "finish_cmds", except a single script fragment to be evaled but not shown]]) _LT_DECL([], [hardcode_into_libs], [0], [Whether we should hardcode library paths into libraries]) _LT_DECL([], [sys_lib_search_path_spec], [2], [Compile-time system search path for libraries]) _LT_DECL([sys_lib_dlsearch_path_spec], [configure_time_dlsearch_path], [2], [Detected run-time system search path for libraries]) _LT_DECL([], [configure_time_lt_sys_library_path], [2], [Explicit LT_SYS_LIBRARY_PATH set during ./configure time]) ])# _LT_SYS_DYNAMIC_LINKER # _LT_PATH_TOOL_PREFIX(TOOL) # -------------------------- # find a file program that can recognize shared library AC_DEFUN([_LT_PATH_TOOL_PREFIX], [m4_require([_LT_DECL_EGREP])dnl AC_MSG_CHECKING([for $1]) AC_CACHE_VAL(lt_cv_path_MAGIC_CMD, [case $MAGIC_CMD in [[\\/*] | ?:[\\/]*]) lt_cv_path_MAGIC_CMD=$MAGIC_CMD # Let the user override the test with a path. ;; *) lt_save_MAGIC_CMD=$MAGIC_CMD lt_save_ifs=$IFS; IFS=$PATH_SEPARATOR dnl $ac_dummy forces splitting on constant user-supplied paths. dnl POSIX.2 word splitting is done only on the output of word expansions, dnl not every word. This closes a longstanding sh security hole. ac_dummy="m4_if([$2], , $PATH, [$2])" for ac_dir in $ac_dummy; do IFS=$lt_save_ifs test -z "$ac_dir" && ac_dir=. if test -f "$ac_dir/$1"; then lt_cv_path_MAGIC_CMD=$ac_dir/"$1" if test -n "$file_magic_test_file"; then case $deplibs_check_method in "file_magic "*) file_magic_regex=`expr "$deplibs_check_method" : "file_magic \(.*\)"` MAGIC_CMD=$lt_cv_path_MAGIC_CMD if eval $file_magic_cmd \$file_magic_test_file 2> /dev/null | $EGREP "$file_magic_regex" > /dev/null; then : else cat <<_LT_EOF 1>&2 *** Warning: the command libtool uses to detect shared libraries, *** $file_magic_cmd, produces output that libtool cannot recognize. *** The result is that libtool may fail to recognize shared libraries *** as such. This will affect the creation of libtool libraries that *** depend on shared libraries, but programs linked with such libtool *** libraries will work regardless of this problem. Nevertheless, you *** may want to report the problem to your system manager and/or to *** bug-libtool@gnu.org _LT_EOF fi ;; esac fi break fi done IFS=$lt_save_ifs MAGIC_CMD=$lt_save_MAGIC_CMD ;; esac]) MAGIC_CMD=$lt_cv_path_MAGIC_CMD if test -n "$MAGIC_CMD"; then AC_MSG_RESULT($MAGIC_CMD) else AC_MSG_RESULT(no) fi _LT_DECL([], [MAGIC_CMD], [0], [Used to examine libraries when file_magic_cmd begins with "file"])dnl ])# _LT_PATH_TOOL_PREFIX # Old name: AU_ALIAS([AC_PATH_TOOL_PREFIX], [_LT_PATH_TOOL_PREFIX]) dnl aclocal-1.4 backwards compatibility: dnl AC_DEFUN([AC_PATH_TOOL_PREFIX], []) # _LT_PATH_MAGIC # -------------- # find a file program that can recognize a shared library m4_defun([_LT_PATH_MAGIC], [_LT_PATH_TOOL_PREFIX(${ac_tool_prefix}file, /usr/bin$PATH_SEPARATOR$PATH) if test -z "$lt_cv_path_MAGIC_CMD"; then if test -n "$ac_tool_prefix"; then _LT_PATH_TOOL_PREFIX(file, /usr/bin$PATH_SEPARATOR$PATH) else MAGIC_CMD=: fi fi ])# _LT_PATH_MAGIC # LT_PATH_LD # ---------- # find the pathname to the GNU or non-GNU linker AC_DEFUN([LT_PATH_LD], [AC_REQUIRE([AC_PROG_CC])dnl AC_REQUIRE([AC_CANONICAL_HOST])dnl AC_REQUIRE([AC_CANONICAL_BUILD])dnl m4_require([_LT_DECL_SED])dnl m4_require([_LT_DECL_EGREP])dnl m4_require([_LT_PROG_ECHO_BACKSLASH])dnl AC_ARG_WITH([gnu-ld], [AS_HELP_STRING([--with-gnu-ld], [assume the C compiler uses GNU ld @<:@default=no@:>@])], [test no = "$withval" || with_gnu_ld=yes], [with_gnu_ld=no])dnl ac_prog=ld if test yes = "$GCC"; then # Check if gcc -print-prog-name=ld gives a path. AC_MSG_CHECKING([for ld used by $CC]) case $host in *-*-mingw*) # gcc leaves a trailing carriage return, which upsets mingw ac_prog=`($CC -print-prog-name=ld) 2>&5 | tr -d '\015'` ;; *) ac_prog=`($CC -print-prog-name=ld) 2>&5` ;; esac case $ac_prog in # Accept absolute paths. [[\\/]]* | ?:[[\\/]]*) re_direlt='/[[^/]][[^/]]*/\.\./' # Canonicalize the pathname of ld ac_prog=`$ECHO "$ac_prog"| $SED 's%\\\\%/%g'` while $ECHO "$ac_prog" | $GREP "$re_direlt" > /dev/null 2>&1; do ac_prog=`$ECHO $ac_prog| $SED "s%$re_direlt%/%"` done test -z "$LD" && LD=$ac_prog ;; "") # If it fails, then pretend we aren't using GCC. ac_prog=ld ;; *) # If it is relative, then search for the first ld in PATH. with_gnu_ld=unknown ;; esac elif test yes = "$with_gnu_ld"; then AC_MSG_CHECKING([for GNU ld]) else AC_MSG_CHECKING([for non-GNU ld]) fi AC_CACHE_VAL(lt_cv_path_LD, [if test -z "$LD"; then lt_save_ifs=$IFS; IFS=$PATH_SEPARATOR for ac_dir in $PATH; do IFS=$lt_save_ifs test -z "$ac_dir" && ac_dir=. if test -f "$ac_dir/$ac_prog" || test -f "$ac_dir/$ac_prog$ac_exeext"; then lt_cv_path_LD=$ac_dir/$ac_prog # Check to see if the program is GNU ld. I'd rather use --version, # but apparently some variants of GNU ld only accept -v. # Break only if it was the GNU/non-GNU ld that we prefer. case `"$lt_cv_path_LD" -v 2>&1 &1 conftest.i cat conftest.i conftest.i >conftest2.i : ${lt_DD:=$DD} AC_PATH_PROGS_FEATURE_CHECK([lt_DD], [dd], [if "$ac_path_lt_DD" bs=32 count=1 conftest.out 2>/dev/null; then cmp -s conftest.i conftest.out \ && ac_cv_path_lt_DD="$ac_path_lt_DD" ac_path_lt_DD_found=: fi]) rm -f conftest.i conftest2.i conftest.out]) ])# _LT_PATH_DD # _LT_CMD_TRUNCATE # ---------------- # find command to truncate a binary pipe m4_defun([_LT_CMD_TRUNCATE], [m4_require([_LT_PATH_DD]) AC_CACHE_CHECK([how to truncate binary pipes], [lt_cv_truncate_bin], [printf 0123456789abcdef0123456789abcdef >conftest.i cat conftest.i conftest.i >conftest2.i lt_cv_truncate_bin= if "$ac_cv_path_lt_DD" bs=32 count=1 conftest.out 2>/dev/null; then cmp -s conftest.i conftest.out \ && lt_cv_truncate_bin="$ac_cv_path_lt_DD bs=4096 count=1" fi rm -f conftest.i conftest2.i conftest.out test -z "$lt_cv_truncate_bin" && lt_cv_truncate_bin="$SED -e 4q"]) _LT_DECL([lt_truncate_bin], [lt_cv_truncate_bin], [1], [Command to truncate a binary pipe]) ])# _LT_CMD_TRUNCATE # _LT_CHECK_MAGIC_METHOD # ---------------------- # how to check for library dependencies # -- PORTME fill in with the dynamic library characteristics m4_defun([_LT_CHECK_MAGIC_METHOD], [m4_require([_LT_DECL_EGREP]) m4_require([_LT_DECL_OBJDUMP]) AC_CACHE_CHECK([how to recognize dependent libraries], lt_cv_deplibs_check_method, [lt_cv_file_magic_cmd='$MAGIC_CMD' lt_cv_file_magic_test_file= lt_cv_deplibs_check_method='unknown' # Need to set the preceding variable on all platforms that support # interlibrary dependencies. # 'none' -- dependencies not supported. # 'unknown' -- same as none, but documents that we really don't know. # 'pass_all' -- all dependencies passed with no checks. # 'test_compile' -- check by making test program. # 'file_magic [[regex]]' -- check by looking for files in library path # that responds to the $file_magic_cmd with a given extended regex. # If you have 'file' or equivalent on your system and you're not sure # whether 'pass_all' will *always* work, you probably want this one. case $host_os in aix[[4-9]]*) lt_cv_deplibs_check_method=pass_all ;; beos*) lt_cv_deplibs_check_method=pass_all ;; bsdi[[45]]*) lt_cv_deplibs_check_method='file_magic ELF [[0-9]][[0-9]]*-bit [[ML]]SB (shared object|dynamic lib)' lt_cv_file_magic_cmd='/usr/bin/file -L' lt_cv_file_magic_test_file=/shlib/libc.so ;; cygwin*) # func_win32_libid is a shell function defined in ltmain.sh lt_cv_deplibs_check_method='file_magic ^x86 archive import|^x86 DLL' lt_cv_file_magic_cmd='func_win32_libid' ;; mingw* | pw32*) # Base MSYS/MinGW do not provide the 'file' command needed by # func_win32_libid shell function, so use a weaker test based on 'objdump', # unless we find 'file', for example because we are cross-compiling. if ( file / ) >/dev/null 2>&1; then lt_cv_deplibs_check_method='file_magic ^x86 archive import|^x86 DLL' lt_cv_file_magic_cmd='func_win32_libid' else # Keep this pattern in sync with the one in func_win32_libid. lt_cv_deplibs_check_method='file_magic file format (pei*-i386(.*architecture: i386)?|pe-arm-wince|pe-x86-64)' lt_cv_file_magic_cmd='$OBJDUMP -f' fi ;; cegcc*) # use the weaker test based on 'objdump'. See mingw*. lt_cv_deplibs_check_method='file_magic file format pe-arm-.*little(.*architecture: arm)?' lt_cv_file_magic_cmd='$OBJDUMP -f' ;; darwin* | rhapsody*) lt_cv_deplibs_check_method=pass_all ;; freebsd* | dragonfly*) if echo __ELF__ | $CC -E - | $GREP __ELF__ > /dev/null; then case $host_cpu in i*86 ) # Not sure whether the presence of OpenBSD here was a mistake. # Let's accept both of them until this is cleared up. lt_cv_deplibs_check_method='file_magic (FreeBSD|OpenBSD|DragonFly)/i[[3-9]]86 (compact )?demand paged shared library' lt_cv_file_magic_cmd=/usr/bin/file lt_cv_file_magic_test_file=`echo /usr/lib/libc.so.*` ;; esac else lt_cv_deplibs_check_method=pass_all fi ;; haiku*) lt_cv_deplibs_check_method=pass_all ;; hpux10.20* | hpux11*) lt_cv_file_magic_cmd=/usr/bin/file case $host_cpu in ia64*) lt_cv_deplibs_check_method='file_magic (s[[0-9]][[0-9]][[0-9]]|ELF-[[0-9]][[0-9]]) shared object file - IA64' lt_cv_file_magic_test_file=/usr/lib/hpux32/libc.so ;; hppa*64*) [lt_cv_deplibs_check_method='file_magic (s[0-9][0-9][0-9]|ELF[ -][0-9][0-9])(-bit)?( [LM]SB)? shared object( file)?[, -]* PA-RISC [0-9]\.[0-9]'] lt_cv_file_magic_test_file=/usr/lib/pa20_64/libc.sl ;; *) lt_cv_deplibs_check_method='file_magic (s[[0-9]][[0-9]][[0-9]]|PA-RISC[[0-9]]\.[[0-9]]) shared library' lt_cv_file_magic_test_file=/usr/lib/libc.sl ;; esac ;; interix[[3-9]]*) # PIC code is broken on Interix 3.x, that's why |\.a not |_pic\.a here lt_cv_deplibs_check_method='match_pattern /lib[[^/]]+(\.so|\.a)$' ;; irix5* | irix6* | nonstopux*) case $LD in *-32|*"-32 ") libmagic=32-bit;; *-n32|*"-n32 ") libmagic=N32;; *-64|*"-64 ") libmagic=64-bit;; *) libmagic=never-match;; esac lt_cv_deplibs_check_method=pass_all ;; # This must be glibc/ELF. linux* | k*bsd*-gnu | kopensolaris*-gnu | gnu*) lt_cv_deplibs_check_method=pass_all ;; netbsd*) if echo __ELF__ | $CC -E - | $GREP __ELF__ > /dev/null; then lt_cv_deplibs_check_method='match_pattern /lib[[^/]]+(\.so\.[[0-9]]+\.[[0-9]]+|_pic\.a)$' else lt_cv_deplibs_check_method='match_pattern /lib[[^/]]+(\.so|_pic\.a)$' fi ;; newos6*) lt_cv_deplibs_check_method='file_magic ELF [[0-9]][[0-9]]*-bit [[ML]]SB (executable|dynamic lib)' lt_cv_file_magic_cmd=/usr/bin/file lt_cv_file_magic_test_file=/usr/lib/libnls.so ;; *nto* | *qnx*) lt_cv_deplibs_check_method=pass_all ;; openbsd* | bitrig*) if test -z "`echo __ELF__ | $CC -E - | $GREP __ELF__`"; then lt_cv_deplibs_check_method='match_pattern /lib[[^/]]+(\.so\.[[0-9]]+\.[[0-9]]+|\.so|_pic\.a)$' else lt_cv_deplibs_check_method='match_pattern /lib[[^/]]+(\.so\.[[0-9]]+\.[[0-9]]+|_pic\.a)$' fi ;; osf3* | osf4* | osf5*) lt_cv_deplibs_check_method=pass_all ;; rdos*) lt_cv_deplibs_check_method=pass_all ;; solaris*) lt_cv_deplibs_check_method=pass_all ;; sysv5* | sco3.2v5* | sco5v6* | unixware* | OpenUNIX* | sysv4*uw2*) lt_cv_deplibs_check_method=pass_all ;; sysv4 | sysv4.3*) case $host_vendor in motorola) lt_cv_deplibs_check_method='file_magic ELF [[0-9]][[0-9]]*-bit [[ML]]SB (shared object|dynamic lib) M[[0-9]][[0-9]]* Version [[0-9]]' lt_cv_file_magic_test_file=`echo /usr/lib/libc.so*` ;; ncr) lt_cv_deplibs_check_method=pass_all ;; sequent) lt_cv_file_magic_cmd='/bin/file' lt_cv_deplibs_check_method='file_magic ELF [[0-9]][[0-9]]*-bit [[LM]]SB (shared object|dynamic lib )' ;; sni) lt_cv_file_magic_cmd='/bin/file' lt_cv_deplibs_check_method="file_magic ELF [[0-9]][[0-9]]*-bit [[LM]]SB dynamic lib" lt_cv_file_magic_test_file=/lib/libc.so ;; siemens) lt_cv_deplibs_check_method=pass_all ;; pc) lt_cv_deplibs_check_method=pass_all ;; esac ;; tpf*) lt_cv_deplibs_check_method=pass_all ;; os2*) lt_cv_deplibs_check_method=pass_all ;; esac ]) file_magic_glob= want_nocaseglob=no if test "$build" = "$host"; then case $host_os in mingw* | pw32*) if ( shopt | grep nocaseglob ) >/dev/null 2>&1; then want_nocaseglob=yes else file_magic_glob=`echo aAbBcCdDeEfFgGhHiIjJkKlLmMnNoOpPqQrRsStTuUvVwWxXyYzZ | $SED -e "s/\(..\)/s\/[[\1]]\/[[\1]]\/g;/g"` fi ;; esac fi file_magic_cmd=$lt_cv_file_magic_cmd deplibs_check_method=$lt_cv_deplibs_check_method test -z "$deplibs_check_method" && deplibs_check_method=unknown _LT_DECL([], [deplibs_check_method], [1], [Method to check whether dependent libraries are shared objects]) _LT_DECL([], [file_magic_cmd], [1], [Command to use when deplibs_check_method = "file_magic"]) _LT_DECL([], [file_magic_glob], [1], [How to find potential files when deplibs_check_method = "file_magic"]) _LT_DECL([], [want_nocaseglob], [1], [Find potential files using nocaseglob when deplibs_check_method = "file_magic"]) ])# _LT_CHECK_MAGIC_METHOD # LT_PATH_NM # ---------- # find the pathname to a BSD- or MS-compatible name lister AC_DEFUN([LT_PATH_NM], [AC_REQUIRE([AC_PROG_CC])dnl AC_CACHE_CHECK([for BSD- or MS-compatible name lister (nm)], lt_cv_path_NM, [if test -n "$NM"; then # Let the user override the test. lt_cv_path_NM=$NM else lt_nm_to_check=${ac_tool_prefix}nm if test -n "$ac_tool_prefix" && test "$build" = "$host"; then lt_nm_to_check="$lt_nm_to_check nm" fi for lt_tmp_nm in $lt_nm_to_check; do lt_save_ifs=$IFS; IFS=$PATH_SEPARATOR for ac_dir in $PATH /usr/ccs/bin/elf /usr/ccs/bin /usr/ucb /bin; do IFS=$lt_save_ifs test -z "$ac_dir" && ac_dir=. tmp_nm=$ac_dir/$lt_tmp_nm if test -f "$tmp_nm" || test -f "$tmp_nm$ac_exeext"; then # Check to see if the nm accepts a BSD-compat flag. # Adding the 'sed 1q' prevents false positives on HP-UX, which says: # nm: unknown option "B" ignored # Tru64's nm complains that /dev/null is an invalid object file # MSYS converts /dev/null to NUL, MinGW nm treats NUL as empty case $build_os in mingw*) lt_bad_file=conftest.nm/nofile ;; *) lt_bad_file=/dev/null ;; esac case `"$tmp_nm" -B $lt_bad_file 2>&1 | sed '1q'` in *$lt_bad_file* | *'Invalid file or object type'*) lt_cv_path_NM="$tmp_nm -B" break 2 ;; *) case `"$tmp_nm" -p /dev/null 2>&1 | sed '1q'` in */dev/null*) lt_cv_path_NM="$tmp_nm -p" break 2 ;; *) lt_cv_path_NM=${lt_cv_path_NM="$tmp_nm"} # keep the first match, but continue # so that we can try to find one that supports BSD flags ;; esac ;; esac fi done IFS=$lt_save_ifs done : ${lt_cv_path_NM=no} fi]) if test no != "$lt_cv_path_NM"; then NM=$lt_cv_path_NM else # Didn't find any BSD compatible name lister, look for dumpbin. if test -n "$DUMPBIN"; then : # Let the user override the test. else AC_CHECK_TOOLS(DUMPBIN, [dumpbin "link -dump"], :) case `$DUMPBIN -symbols -headers /dev/null 2>&1 | sed '1q'` in *COFF*) DUMPBIN="$DUMPBIN -symbols -headers" ;; *) DUMPBIN=: ;; esac fi AC_SUBST([DUMPBIN]) if test : != "$DUMPBIN"; then NM=$DUMPBIN fi fi test -z "$NM" && NM=nm AC_SUBST([NM]) _LT_DECL([], [NM], [1], [A BSD- or MS-compatible name lister])dnl AC_CACHE_CHECK([the name lister ($NM) interface], [lt_cv_nm_interface], [lt_cv_nm_interface="BSD nm" echo "int some_variable = 0;" > conftest.$ac_ext (eval echo "\"\$as_me:$LINENO: $ac_compile\"" >&AS_MESSAGE_LOG_FD) (eval "$ac_compile" 2>conftest.err) cat conftest.err >&AS_MESSAGE_LOG_FD (eval echo "\"\$as_me:$LINENO: $NM \\\"conftest.$ac_objext\\\"\"" >&AS_MESSAGE_LOG_FD) (eval "$NM \"conftest.$ac_objext\"" 2>conftest.err > conftest.out) cat conftest.err >&AS_MESSAGE_LOG_FD (eval echo "\"\$as_me:$LINENO: output\"" >&AS_MESSAGE_LOG_FD) cat conftest.out >&AS_MESSAGE_LOG_FD if $GREP 'External.*some_variable' conftest.out > /dev/null; then lt_cv_nm_interface="MS dumpbin" fi rm -f conftest*]) ])# LT_PATH_NM # Old names: AU_ALIAS([AM_PROG_NM], [LT_PATH_NM]) AU_ALIAS([AC_PROG_NM], [LT_PATH_NM]) dnl aclocal-1.4 backwards compatibility: dnl AC_DEFUN([AM_PROG_NM], []) dnl AC_DEFUN([AC_PROG_NM], []) # _LT_CHECK_SHAREDLIB_FROM_LINKLIB # -------------------------------- # how to determine the name of the shared library # associated with a specific link library. # -- PORTME fill in with the dynamic library characteristics m4_defun([_LT_CHECK_SHAREDLIB_FROM_LINKLIB], [m4_require([_LT_DECL_EGREP]) m4_require([_LT_DECL_OBJDUMP]) m4_require([_LT_DECL_DLLTOOL]) AC_CACHE_CHECK([how to associate runtime and link libraries], lt_cv_sharedlib_from_linklib_cmd, [lt_cv_sharedlib_from_linklib_cmd='unknown' case $host_os in cygwin* | mingw* | pw32* | cegcc*) # two different shell functions defined in ltmain.sh; # decide which one to use based on capabilities of $DLLTOOL case `$DLLTOOL --help 2>&1` in *--identify-strict*) lt_cv_sharedlib_from_linklib_cmd=func_cygming_dll_for_implib ;; *) lt_cv_sharedlib_from_linklib_cmd=func_cygming_dll_for_implib_fallback ;; esac ;; *) # fallback: assume linklib IS sharedlib lt_cv_sharedlib_from_linklib_cmd=$ECHO ;; esac ]) sharedlib_from_linklib_cmd=$lt_cv_sharedlib_from_linklib_cmd test -z "$sharedlib_from_linklib_cmd" && sharedlib_from_linklib_cmd=$ECHO _LT_DECL([], [sharedlib_from_linklib_cmd], [1], [Command to associate shared and link libraries]) ])# _LT_CHECK_SHAREDLIB_FROM_LINKLIB # _LT_PATH_MANIFEST_TOOL # ---------------------- # locate the manifest tool m4_defun([_LT_PATH_MANIFEST_TOOL], [AC_CHECK_TOOL(MANIFEST_TOOL, mt, :) test -z "$MANIFEST_TOOL" && MANIFEST_TOOL=mt AC_CACHE_CHECK([if $MANIFEST_TOOL is a manifest tool], [lt_cv_path_mainfest_tool], [lt_cv_path_mainfest_tool=no echo "$as_me:$LINENO: $MANIFEST_TOOL '-?'" >&AS_MESSAGE_LOG_FD $MANIFEST_TOOL '-?' 2>conftest.err > conftest.out cat conftest.err >&AS_MESSAGE_LOG_FD if $GREP 'Manifest Tool' conftest.out > /dev/null; then lt_cv_path_mainfest_tool=yes fi rm -f conftest*]) if test yes != "$lt_cv_path_mainfest_tool"; then MANIFEST_TOOL=: fi _LT_DECL([], [MANIFEST_TOOL], [1], [Manifest tool])dnl ])# _LT_PATH_MANIFEST_TOOL # _LT_DLL_DEF_P([FILE]) # --------------------- # True iff FILE is a Windows DLL '.def' file. # Keep in sync with func_dll_def_p in the libtool script AC_DEFUN([_LT_DLL_DEF_P], [dnl test DEF = "`$SED -n dnl -e '\''s/^[[ ]]*//'\'' dnl Strip leading whitespace -e '\''/^\(;.*\)*$/d'\'' dnl Delete empty lines and comments -e '\''s/^\(EXPORTS\|LIBRARY\)\([[ ]].*\)*$/DEF/p'\'' dnl -e q dnl Only consider the first "real" line $1`" dnl ])# _LT_DLL_DEF_P # LT_LIB_M # -------- # check for math library AC_DEFUN([LT_LIB_M], [AC_REQUIRE([AC_CANONICAL_HOST])dnl LIBM= case $host in *-*-beos* | *-*-cegcc* | *-*-cygwin* | *-*-haiku* | *-*-pw32* | *-*-darwin*) # These system don't have libm, or don't need it ;; *-ncr-sysv4.3*) AC_CHECK_LIB(mw, _mwvalidcheckl, LIBM=-lmw) AC_CHECK_LIB(m, cos, LIBM="$LIBM -lm") ;; *) AC_CHECK_LIB(m, cos, LIBM=-lm) ;; esac AC_SUBST([LIBM]) ])# LT_LIB_M # Old name: AU_ALIAS([AC_CHECK_LIBM], [LT_LIB_M]) dnl aclocal-1.4 backwards compatibility: dnl AC_DEFUN([AC_CHECK_LIBM], []) # _LT_COMPILER_NO_RTTI([TAGNAME]) # ------------------------------- m4_defun([_LT_COMPILER_NO_RTTI], [m4_require([_LT_TAG_COMPILER])dnl _LT_TAGVAR(lt_prog_compiler_no_builtin_flag, $1)= if test yes = "$GCC"; then case $cc_basename in nvcc*) _LT_TAGVAR(lt_prog_compiler_no_builtin_flag, $1)=' -Xcompiler -fno-builtin' ;; *) _LT_TAGVAR(lt_prog_compiler_no_builtin_flag, $1)=' -fno-builtin' ;; esac _LT_COMPILER_OPTION([if $compiler supports -fno-rtti -fno-exceptions], lt_cv_prog_compiler_rtti_exceptions, [-fno-rtti -fno-exceptions], [], [_LT_TAGVAR(lt_prog_compiler_no_builtin_flag, $1)="$_LT_TAGVAR(lt_prog_compiler_no_builtin_flag, $1) -fno-rtti -fno-exceptions"]) fi _LT_TAGDECL([no_builtin_flag], [lt_prog_compiler_no_builtin_flag], [1], [Compiler flag to turn off builtin functions]) ])# _LT_COMPILER_NO_RTTI # _LT_CMD_GLOBAL_SYMBOLS # ---------------------- m4_defun([_LT_CMD_GLOBAL_SYMBOLS], [AC_REQUIRE([AC_CANONICAL_HOST])dnl AC_REQUIRE([AC_PROG_CC])dnl AC_REQUIRE([AC_PROG_AWK])dnl AC_REQUIRE([LT_PATH_NM])dnl AC_REQUIRE([LT_PATH_LD])dnl m4_require([_LT_DECL_SED])dnl m4_require([_LT_DECL_EGREP])dnl m4_require([_LT_TAG_COMPILER])dnl # Check for command to grab the raw symbol name followed by C symbol from nm. AC_MSG_CHECKING([command to parse $NM output from $compiler object]) AC_CACHE_VAL([lt_cv_sys_global_symbol_pipe], [ # These are sane defaults that work on at least a few old systems. # [They come from Ultrix. What could be older than Ultrix?!! ;)] # Character class describing NM global symbol codes. symcode='[[BCDEGRST]]' # Regexp to match symbols that can be accessed directly from C. sympat='\([[_A-Za-z]][[_A-Za-z0-9]]*\)' # Define system-specific variables. case $host_os in aix*) symcode='[[BCDT]]' ;; cygwin* | mingw* | pw32* | cegcc*) symcode='[[ABCDGISTW]]' ;; hpux*) if test ia64 = "$host_cpu"; then symcode='[[ABCDEGRST]]' fi ;; irix* | nonstopux*) symcode='[[BCDEGRST]]' ;; osf*) symcode='[[BCDEGQRST]]' ;; solaris*) symcode='[[BCDRT]]' ;; sco3.2v5*) symcode='[[DT]]' ;; sysv4.2uw2*) symcode='[[DT]]' ;; sysv5* | sco5v6* | unixware* | OpenUNIX*) symcode='[[ABDT]]' ;; sysv4) symcode='[[DFNSTU]]' ;; esac # If we're using GNU nm, then use its standard symbol codes. case `$NM -V 2>&1` in *GNU* | *'with BFD'*) symcode='[[ABCDGIRSTW]]' ;; esac if test "$lt_cv_nm_interface" = "MS dumpbin"; then # Gets list of data symbols to import. lt_cv_sys_global_symbol_to_import="sed -n -e 's/^I .* \(.*\)$/\1/p'" # Adjust the below global symbol transforms to fixup imported variables. lt_cdecl_hook=" -e 's/^I .* \(.*\)$/extern __declspec(dllimport) char \1;/p'" lt_c_name_hook=" -e 's/^I .* \(.*\)$/ {\"\1\", (void *) 0},/p'" lt_c_name_lib_hook="\ -e 's/^I .* \(lib.*\)$/ {\"\1\", (void *) 0},/p'\ -e 's/^I .* \(.*\)$/ {\"lib\1\", (void *) 0},/p'" else # Disable hooks by default. lt_cv_sys_global_symbol_to_import= lt_cdecl_hook= lt_c_name_hook= lt_c_name_lib_hook= fi # Transform an extracted symbol line into a proper C declaration. # Some systems (esp. on ia64) link data and code symbols differently, # so use this general approach. lt_cv_sys_global_symbol_to_cdecl="sed -n"\ $lt_cdecl_hook\ " -e 's/^T .* \(.*\)$/extern int \1();/p'"\ " -e 's/^$symcode$symcode* .* \(.*\)$/extern char \1;/p'" # Transform an extracted symbol line into symbol name and symbol address lt_cv_sys_global_symbol_to_c_name_address="sed -n"\ $lt_c_name_hook\ " -e 's/^: \(.*\) .*$/ {\"\1\", (void *) 0},/p'"\ " -e 's/^$symcode$symcode* .* \(.*\)$/ {\"\1\", (void *) \&\1},/p'" # Transform an extracted symbol line into symbol name with lib prefix and # symbol address. lt_cv_sys_global_symbol_to_c_name_address_lib_prefix="sed -n"\ $lt_c_name_lib_hook\ " -e 's/^: \(.*\) .*$/ {\"\1\", (void *) 0},/p'"\ " -e 's/^$symcode$symcode* .* \(lib.*\)$/ {\"\1\", (void *) \&\1},/p'"\ " -e 's/^$symcode$symcode* .* \(.*\)$/ {\"lib\1\", (void *) \&\1},/p'" # Handle CRLF in mingw tool chain opt_cr= case $build_os in mingw*) opt_cr=`$ECHO 'x\{0,1\}' | tr x '\015'` # option cr in regexp ;; esac # Try without a prefix underscore, then with it. for ac_symprfx in "" "_"; do # Transform symcode, sympat, and symprfx into a raw symbol and a C symbol. symxfrm="\\1 $ac_symprfx\\2 \\2" # Write the raw and C identifiers. if test "$lt_cv_nm_interface" = "MS dumpbin"; then # Fake it for dumpbin and say T for any non-static function, # D for any global variable and I for any imported variable. # Also find C++ and __fastcall symbols from MSVC++, # which start with @ or ?. lt_cv_sys_global_symbol_pipe="$AWK ['"\ " {last_section=section; section=\$ 3};"\ " /^COFF SYMBOL TABLE/{for(i in hide) delete hide[i]};"\ " /Section length .*#relocs.*(pick any)/{hide[last_section]=1};"\ " /^ *Symbol name *: /{split(\$ 0,sn,\":\"); si=substr(sn[2],2)};"\ " /^ *Type *: code/{print \"T\",si,substr(si,length(prfx))};"\ " /^ *Type *: data/{print \"I\",si,substr(si,length(prfx))};"\ " \$ 0!~/External *\|/{next};"\ " / 0+ UNDEF /{next}; / UNDEF \([^|]\)*()/{next};"\ " {if(hide[section]) next};"\ " {f=\"D\"}; \$ 0~/\(\).*\|/{f=\"T\"};"\ " {split(\$ 0,a,/\||\r/); split(a[2],s)};"\ " s[1]~/^[@?]/{print f,s[1],s[1]; next};"\ " s[1]~prfx {split(s[1],t,\"@\"); print f,t[1],substr(t[1],length(prfx))}"\ " ' prfx=^$ac_symprfx]" else lt_cv_sys_global_symbol_pipe="sed -n -e 's/^.*[[ ]]\($symcode$symcode*\)[[ ]][[ ]]*$ac_symprfx$sympat$opt_cr$/$symxfrm/p'" fi lt_cv_sys_global_symbol_pipe="$lt_cv_sys_global_symbol_pipe | sed '/ __gnu_lto/d'" # Check to see that the pipe works correctly. pipe_works=no rm -f conftest* cat > conftest.$ac_ext <<_LT_EOF #ifdef __cplusplus extern "C" { #endif char nm_test_var; void nm_test_func(void); void nm_test_func(void){} #ifdef __cplusplus } #endif int main(){nm_test_var='a';nm_test_func();return(0);} _LT_EOF if AC_TRY_EVAL(ac_compile); then # Now try to grab the symbols. nlist=conftest.nm if AC_TRY_EVAL(NM conftest.$ac_objext \| "$lt_cv_sys_global_symbol_pipe" \> $nlist) && test -s "$nlist"; then # Try sorting and uniquifying the output. if sort "$nlist" | uniq > "$nlist"T; then mv -f "$nlist"T "$nlist" else rm -f "$nlist"T fi # Make sure that we snagged all the symbols we need. if $GREP ' nm_test_var$' "$nlist" >/dev/null; then if $GREP ' nm_test_func$' "$nlist" >/dev/null; then cat <<_LT_EOF > conftest.$ac_ext /* Keep this code in sync between libtool.m4, ltmain, lt_system.h, and tests. */ #if defined _WIN32 || defined __CYGWIN__ || defined _WIN32_WCE /* DATA imports from DLLs on WIN32 can't be const, because runtime relocations are performed -- see ld's documentation on pseudo-relocs. */ # define LT@&t@_DLSYM_CONST #elif defined __osf__ /* This system does not cope well with relocations in const data. */ # define LT@&t@_DLSYM_CONST #else # define LT@&t@_DLSYM_CONST const #endif #ifdef __cplusplus extern "C" { #endif _LT_EOF # Now generate the symbol file. eval "$lt_cv_sys_global_symbol_to_cdecl"' < "$nlist" | $GREP -v main >> conftest.$ac_ext' cat <<_LT_EOF >> conftest.$ac_ext /* The mapping between symbol names and symbols. */ LT@&t@_DLSYM_CONST struct { const char *name; void *address; } lt__PROGRAM__LTX_preloaded_symbols[[]] = { { "@PROGRAM@", (void *) 0 }, _LT_EOF $SED "s/^$symcode$symcode* .* \(.*\)$/ {\"\1\", (void *) \&\1},/" < "$nlist" | $GREP -v main >> conftest.$ac_ext cat <<\_LT_EOF >> conftest.$ac_ext {0, (void *) 0} }; /* This works around a problem in FreeBSD linker */ #ifdef FREEBSD_WORKAROUND static const void *lt_preloaded_setup() { return lt__PROGRAM__LTX_preloaded_symbols; } #endif #ifdef __cplusplus } #endif _LT_EOF # Now try linking the two files. mv conftest.$ac_objext conftstm.$ac_objext lt_globsym_save_LIBS=$LIBS lt_globsym_save_CFLAGS=$CFLAGS LIBS=conftstm.$ac_objext CFLAGS="$CFLAGS$_LT_TAGVAR(lt_prog_compiler_no_builtin_flag, $1)" if AC_TRY_EVAL(ac_link) && test -s conftest$ac_exeext; then pipe_works=yes fi LIBS=$lt_globsym_save_LIBS CFLAGS=$lt_globsym_save_CFLAGS else echo "cannot find nm_test_func in $nlist" >&AS_MESSAGE_LOG_FD fi else echo "cannot find nm_test_var in $nlist" >&AS_MESSAGE_LOG_FD fi else echo "cannot run $lt_cv_sys_global_symbol_pipe" >&AS_MESSAGE_LOG_FD fi else echo "$progname: failed program was:" >&AS_MESSAGE_LOG_FD cat conftest.$ac_ext >&5 fi rm -rf conftest* conftst* # Do not use the global_symbol_pipe unless it works. if test yes = "$pipe_works"; then break else lt_cv_sys_global_symbol_pipe= fi done ]) if test -z "$lt_cv_sys_global_symbol_pipe"; then lt_cv_sys_global_symbol_to_cdecl= fi if test -z "$lt_cv_sys_global_symbol_pipe$lt_cv_sys_global_symbol_to_cdecl"; then AC_MSG_RESULT(failed) else AC_MSG_RESULT(ok) fi # Response file support. if test "$lt_cv_nm_interface" = "MS dumpbin"; then nm_file_list_spec='@' elif $NM --help 2>/dev/null | grep '[[@]]FILE' >/dev/null; then nm_file_list_spec='@' fi _LT_DECL([global_symbol_pipe], [lt_cv_sys_global_symbol_pipe], [1], [Take the output of nm and produce a listing of raw symbols and C names]) _LT_DECL([global_symbol_to_cdecl], [lt_cv_sys_global_symbol_to_cdecl], [1], [Transform the output of nm in a proper C declaration]) _LT_DECL([global_symbol_to_import], [lt_cv_sys_global_symbol_to_import], [1], [Transform the output of nm into a list of symbols to manually relocate]) _LT_DECL([global_symbol_to_c_name_address], [lt_cv_sys_global_symbol_to_c_name_address], [1], [Transform the output of nm in a C name address pair]) _LT_DECL([global_symbol_to_c_name_address_lib_prefix], [lt_cv_sys_global_symbol_to_c_name_address_lib_prefix], [1], [Transform the output of nm in a C name address pair when lib prefix is needed]) _LT_DECL([nm_interface], [lt_cv_nm_interface], [1], [The name lister interface]) _LT_DECL([], [nm_file_list_spec], [1], [Specify filename containing input files for $NM]) ]) # _LT_CMD_GLOBAL_SYMBOLS # _LT_COMPILER_PIC([TAGNAME]) # --------------------------- m4_defun([_LT_COMPILER_PIC], [m4_require([_LT_TAG_COMPILER])dnl _LT_TAGVAR(lt_prog_compiler_wl, $1)= _LT_TAGVAR(lt_prog_compiler_pic, $1)= _LT_TAGVAR(lt_prog_compiler_static, $1)= m4_if([$1], [CXX], [ # C++ specific cases for pic, static, wl, etc. if test yes = "$GXX"; then _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' _LT_TAGVAR(lt_prog_compiler_static, $1)='-static' case $host_os in aix*) # All AIX code is PIC. if test ia64 = "$host_cpu"; then # AIX 5 now supports IA64 processor _LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic' fi _LT_TAGVAR(lt_prog_compiler_pic, $1)='-fPIC' ;; amigaos*) case $host_cpu in powerpc) # see comment about AmigaOS4 .so support _LT_TAGVAR(lt_prog_compiler_pic, $1)='-fPIC' ;; m68k) # FIXME: we need at least 68020 code to build shared libraries, but # adding the '-m68020' flag to GCC prevents building anything better, # like '-m68040'. _LT_TAGVAR(lt_prog_compiler_pic, $1)='-m68020 -resident32 -malways-restore-a4' ;; esac ;; beos* | irix5* | irix6* | nonstopux* | osf3* | osf4* | osf5*) # PIC is the default for these OSes. ;; mingw* | cygwin* | os2* | pw32* | cegcc*) # This hack is so that the source file can tell whether it is being # built for inclusion in a dll (and should export symbols for example). # Although the cygwin gcc ignores -fPIC, still need this for old-style # (--disable-auto-import) libraries m4_if([$1], [GCJ], [], [_LT_TAGVAR(lt_prog_compiler_pic, $1)='-DDLL_EXPORT']) case $host_os in os2*) _LT_TAGVAR(lt_prog_compiler_static, $1)='$wl-static' ;; esac ;; darwin* | rhapsody*) # PIC is the default on this platform # Common symbols not allowed in MH_DYLIB files _LT_TAGVAR(lt_prog_compiler_pic, $1)='-fno-common' ;; *djgpp*) # DJGPP does not support shared libraries at all _LT_TAGVAR(lt_prog_compiler_pic, $1)= ;; haiku*) # PIC is the default for Haiku. # The "-static" flag exists, but is broken. _LT_TAGVAR(lt_prog_compiler_static, $1)= ;; interix[[3-9]]*) # Interix 3.x gcc -fpic/-fPIC options generate broken code. # Instead, we relocate shared libraries at runtime. ;; sysv4*MP*) if test -d /usr/nec; then _LT_TAGVAR(lt_prog_compiler_pic, $1)=-Kconform_pic fi ;; hpux*) # PIC is the default for 64-bit PA HP-UX, but not for 32-bit # PA HP-UX. On IA64 HP-UX, PIC is the default but the pic flag # sets the default TLS model and affects inlining. case $host_cpu in hppa*64*) ;; *) _LT_TAGVAR(lt_prog_compiler_pic, $1)='-fPIC' ;; esac ;; *qnx* | *nto*) # QNX uses GNU C++, but need to define -shared option too, otherwise # it will coredump. _LT_TAGVAR(lt_prog_compiler_pic, $1)='-fPIC -shared' ;; *) _LT_TAGVAR(lt_prog_compiler_pic, $1)='-fPIC' ;; esac else case $host_os in aix[[4-9]]*) # All AIX code is PIC. if test ia64 = "$host_cpu"; then # AIX 5 now supports IA64 processor _LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic' else _LT_TAGVAR(lt_prog_compiler_static, $1)='-bnso -bI:/lib/syscalls.exp' fi ;; chorus*) case $cc_basename in cxch68*) # Green Hills C++ Compiler # _LT_TAGVAR(lt_prog_compiler_static, $1)="--no_auto_instantiation -u __main -u __premain -u _abort -r $COOL_DIR/lib/libOrb.a $MVME_DIR/lib/CC/libC.a $MVME_DIR/lib/classix/libcx.s.a" ;; esac ;; mingw* | cygwin* | os2* | pw32* | cegcc*) # This hack is so that the source file can tell whether it is being # built for inclusion in a dll (and should export symbols for example). m4_if([$1], [GCJ], [], [_LT_TAGVAR(lt_prog_compiler_pic, $1)='-DDLL_EXPORT']) ;; dgux*) case $cc_basename in ec++*) _LT_TAGVAR(lt_prog_compiler_pic, $1)='-KPIC' ;; ghcx*) # Green Hills C++ Compiler _LT_TAGVAR(lt_prog_compiler_pic, $1)='-pic' ;; *) ;; esac ;; freebsd* | dragonfly*) # FreeBSD uses GNU C++ ;; hpux9* | hpux10* | hpux11*) case $cc_basename in CC*) _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' _LT_TAGVAR(lt_prog_compiler_static, $1)='$wl-a ${wl}archive' if test ia64 != "$host_cpu"; then _LT_TAGVAR(lt_prog_compiler_pic, $1)='+Z' fi ;; aCC*) _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' _LT_TAGVAR(lt_prog_compiler_static, $1)='$wl-a ${wl}archive' case $host_cpu in hppa*64*|ia64*) # +Z the default ;; *) _LT_TAGVAR(lt_prog_compiler_pic, $1)='+Z' ;; esac ;; *) ;; esac ;; interix*) # This is c89, which is MS Visual C++ (no shared libs) # Anyone wants to do a port? ;; irix5* | irix6* | nonstopux*) case $cc_basename in CC*) _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' _LT_TAGVAR(lt_prog_compiler_static, $1)='-non_shared' # CC pic flag -KPIC is the default. ;; *) ;; esac ;; linux* | k*bsd*-gnu | kopensolaris*-gnu | gnu*) case $cc_basename in KCC*) # KAI C++ Compiler _LT_TAGVAR(lt_prog_compiler_wl, $1)='--backend -Wl,' _LT_TAGVAR(lt_prog_compiler_pic, $1)='-fPIC' ;; ecpc* ) # old Intel C++ for x86_64, which still supported -KPIC. _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' _LT_TAGVAR(lt_prog_compiler_pic, $1)='-KPIC' _LT_TAGVAR(lt_prog_compiler_static, $1)='-static' ;; icpc* ) # Intel C++, used to be incompatible with GCC. # ICC 10 doesn't accept -KPIC any more. _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' _LT_TAGVAR(lt_prog_compiler_pic, $1)='-fPIC' _LT_TAGVAR(lt_prog_compiler_static, $1)='-static' ;; pgCC* | pgcpp*) # Portland Group C++ compiler _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' _LT_TAGVAR(lt_prog_compiler_pic, $1)='-fpic' _LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic' ;; cxx*) # Compaq C++ # Make sure the PIC flag is empty. It appears that all Alpha # Linux and Compaq Tru64 Unix objects are PIC. _LT_TAGVAR(lt_prog_compiler_pic, $1)= _LT_TAGVAR(lt_prog_compiler_static, $1)='-non_shared' ;; xlc* | xlC* | bgxl[[cC]]* | mpixl[[cC]]*) # IBM XL 8.0, 9.0 on PPC and BlueGene _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' _LT_TAGVAR(lt_prog_compiler_pic, $1)='-qpic' _LT_TAGVAR(lt_prog_compiler_static, $1)='-qstaticlink' ;; *) case `$CC -V 2>&1 | sed 5q` in *Sun\ C*) # Sun C++ 5.9 _LT_TAGVAR(lt_prog_compiler_pic, $1)='-KPIC' _LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic' _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Qoption ld ' ;; esac ;; esac ;; lynxos*) ;; m88k*) ;; mvs*) case $cc_basename in cxx*) _LT_TAGVAR(lt_prog_compiler_pic, $1)='-W c,exportall' ;; *) ;; esac ;; netbsd*) ;; *qnx* | *nto*) # QNX uses GNU C++, but need to define -shared option too, otherwise # it will coredump. _LT_TAGVAR(lt_prog_compiler_pic, $1)='-fPIC -shared' ;; osf3* | osf4* | osf5*) case $cc_basename in KCC*) _LT_TAGVAR(lt_prog_compiler_wl, $1)='--backend -Wl,' ;; RCC*) # Rational C++ 2.4.1 _LT_TAGVAR(lt_prog_compiler_pic, $1)='-pic' ;; cxx*) # Digital/Compaq C++ _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' # Make sure the PIC flag is empty. It appears that all Alpha # Linux and Compaq Tru64 Unix objects are PIC. _LT_TAGVAR(lt_prog_compiler_pic, $1)= _LT_TAGVAR(lt_prog_compiler_static, $1)='-non_shared' ;; *) ;; esac ;; psos*) ;; solaris*) case $cc_basename in CC* | sunCC*) # Sun C++ 4.2, 5.x and Centerline C++ _LT_TAGVAR(lt_prog_compiler_pic, $1)='-KPIC' _LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic' _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Qoption ld ' ;; gcx*) # Green Hills C++ Compiler _LT_TAGVAR(lt_prog_compiler_pic, $1)='-PIC' ;; *) ;; esac ;; sunos4*) case $cc_basename in CC*) # Sun C++ 4.x _LT_TAGVAR(lt_prog_compiler_pic, $1)='-pic' _LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic' ;; lcc*) # Lucid _LT_TAGVAR(lt_prog_compiler_pic, $1)='-pic' ;; *) ;; esac ;; sysv5* | unixware* | sco3.2v5* | sco5v6* | OpenUNIX*) case $cc_basename in CC*) _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' _LT_TAGVAR(lt_prog_compiler_pic, $1)='-KPIC' _LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic' ;; esac ;; tandem*) case $cc_basename in NCC*) # NonStop-UX NCC 3.20 _LT_TAGVAR(lt_prog_compiler_pic, $1)='-KPIC' ;; *) ;; esac ;; vxworks*) ;; *) _LT_TAGVAR(lt_prog_compiler_can_build_shared, $1)=no ;; esac fi ], [ if test yes = "$GCC"; then _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' _LT_TAGVAR(lt_prog_compiler_static, $1)='-static' case $host_os in aix*) # All AIX code is PIC. if test ia64 = "$host_cpu"; then # AIX 5 now supports IA64 processor _LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic' fi _LT_TAGVAR(lt_prog_compiler_pic, $1)='-fPIC' ;; amigaos*) case $host_cpu in powerpc) # see comment about AmigaOS4 .so support _LT_TAGVAR(lt_prog_compiler_pic, $1)='-fPIC' ;; m68k) # FIXME: we need at least 68020 code to build shared libraries, but # adding the '-m68020' flag to GCC prevents building anything better, # like '-m68040'. _LT_TAGVAR(lt_prog_compiler_pic, $1)='-m68020 -resident32 -malways-restore-a4' ;; esac ;; beos* | irix5* | irix6* | nonstopux* | osf3* | osf4* | osf5*) # PIC is the default for these OSes. ;; mingw* | cygwin* | pw32* | os2* | cegcc*) # This hack is so that the source file can tell whether it is being # built for inclusion in a dll (and should export symbols for example). # Although the cygwin gcc ignores -fPIC, still need this for old-style # (--disable-auto-import) libraries m4_if([$1], [GCJ], [], [_LT_TAGVAR(lt_prog_compiler_pic, $1)='-DDLL_EXPORT']) case $host_os in os2*) _LT_TAGVAR(lt_prog_compiler_static, $1)='$wl-static' ;; esac ;; darwin* | rhapsody*) # PIC is the default on this platform # Common symbols not allowed in MH_DYLIB files _LT_TAGVAR(lt_prog_compiler_pic, $1)='-fno-common' ;; haiku*) # PIC is the default for Haiku. # The "-static" flag exists, but is broken. _LT_TAGVAR(lt_prog_compiler_static, $1)= ;; hpux*) # PIC is the default for 64-bit PA HP-UX, but not for 32-bit # PA HP-UX. On IA64 HP-UX, PIC is the default but the pic flag # sets the default TLS model and affects inlining. case $host_cpu in hppa*64*) # +Z the default ;; *) _LT_TAGVAR(lt_prog_compiler_pic, $1)='-fPIC' ;; esac ;; interix[[3-9]]*) # Interix 3.x gcc -fpic/-fPIC options generate broken code. # Instead, we relocate shared libraries at runtime. ;; msdosdjgpp*) # Just because we use GCC doesn't mean we suddenly get shared libraries # on systems that don't support them. _LT_TAGVAR(lt_prog_compiler_can_build_shared, $1)=no enable_shared=no ;; *nto* | *qnx*) # QNX uses GNU C++, but need to define -shared option too, otherwise # it will coredump. _LT_TAGVAR(lt_prog_compiler_pic, $1)='-fPIC -shared' ;; sysv4*MP*) if test -d /usr/nec; then _LT_TAGVAR(lt_prog_compiler_pic, $1)=-Kconform_pic fi ;; *) _LT_TAGVAR(lt_prog_compiler_pic, $1)='-fPIC' ;; esac case $cc_basename in nvcc*) # Cuda Compiler Driver 2.2 _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Xlinker ' if test -n "$_LT_TAGVAR(lt_prog_compiler_pic, $1)"; then _LT_TAGVAR(lt_prog_compiler_pic, $1)="-Xcompiler $_LT_TAGVAR(lt_prog_compiler_pic, $1)" fi ;; esac else # PORTME Check for flag to pass linker flags through the system compiler. case $host_os in aix*) _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' if test ia64 = "$host_cpu"; then # AIX 5 now supports IA64 processor _LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic' else _LT_TAGVAR(lt_prog_compiler_static, $1)='-bnso -bI:/lib/syscalls.exp' fi ;; darwin* | rhapsody*) # PIC is the default on this platform # Common symbols not allowed in MH_DYLIB files _LT_TAGVAR(lt_prog_compiler_pic, $1)='-fno-common' case $cc_basename in nagfor*) # NAG Fortran compiler _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,-Wl,,' _LT_TAGVAR(lt_prog_compiler_pic, $1)='-PIC' _LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic' ;; esac ;; mingw* | cygwin* | pw32* | os2* | cegcc*) # This hack is so that the source file can tell whether it is being # built for inclusion in a dll (and should export symbols for example). m4_if([$1], [GCJ], [], [_LT_TAGVAR(lt_prog_compiler_pic, $1)='-DDLL_EXPORT']) case $host_os in os2*) _LT_TAGVAR(lt_prog_compiler_static, $1)='$wl-static' ;; esac ;; hpux9* | hpux10* | hpux11*) _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' # PIC is the default for IA64 HP-UX and 64-bit HP-UX, but # not for PA HP-UX. case $host_cpu in hppa*64*|ia64*) # +Z the default ;; *) _LT_TAGVAR(lt_prog_compiler_pic, $1)='+Z' ;; esac # Is there a better lt_prog_compiler_static that works with the bundled CC? _LT_TAGVAR(lt_prog_compiler_static, $1)='$wl-a ${wl}archive' ;; irix5* | irix6* | nonstopux*) _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' # PIC (with -KPIC) is the default. _LT_TAGVAR(lt_prog_compiler_static, $1)='-non_shared' ;; linux* | k*bsd*-gnu | kopensolaris*-gnu | gnu*) case $cc_basename in # old Intel for x86_64, which still supported -KPIC. ecc*) _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' _LT_TAGVAR(lt_prog_compiler_pic, $1)='-KPIC' _LT_TAGVAR(lt_prog_compiler_static, $1)='-static' ;; # icc used to be incompatible with GCC. # ICC 10 doesn't accept -KPIC any more. icc* | ifort*) _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' _LT_TAGVAR(lt_prog_compiler_pic, $1)='-fPIC' _LT_TAGVAR(lt_prog_compiler_static, $1)='-static' ;; # Lahey Fortran 8.1. lf95*) _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' _LT_TAGVAR(lt_prog_compiler_pic, $1)='--shared' _LT_TAGVAR(lt_prog_compiler_static, $1)='--static' ;; nagfor*) # NAG Fortran compiler _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,-Wl,,' _LT_TAGVAR(lt_prog_compiler_pic, $1)='-PIC' _LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic' ;; tcc*) # Fabrice Bellard et al's Tiny C Compiler _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' _LT_TAGVAR(lt_prog_compiler_pic, $1)='-fPIC' _LT_TAGVAR(lt_prog_compiler_static, $1)='-static' ;; pgcc* | pgf77* | pgf90* | pgf95* | pgfortran*) # Portland Group compilers (*not* the Pentium gcc compiler, # which looks to be a dead project) _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' _LT_TAGVAR(lt_prog_compiler_pic, $1)='-fpic' _LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic' ;; ccc*) _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' # All Alpha code is PIC. _LT_TAGVAR(lt_prog_compiler_static, $1)='-non_shared' ;; xl* | bgxl* | bgf* | mpixl*) # IBM XL C 8.0/Fortran 10.1, 11.1 on PPC and BlueGene _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' _LT_TAGVAR(lt_prog_compiler_pic, $1)='-qpic' _LT_TAGVAR(lt_prog_compiler_static, $1)='-qstaticlink' ;; *) case `$CC -V 2>&1 | sed 5q` in *Sun\ Ceres\ Fortran* | *Sun*Fortran*\ [[1-7]].* | *Sun*Fortran*\ 8.[[0-3]]*) # Sun Fortran 8.3 passes all unrecognized flags to the linker _LT_TAGVAR(lt_prog_compiler_pic, $1)='-KPIC' _LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic' _LT_TAGVAR(lt_prog_compiler_wl, $1)='' ;; *Sun\ F* | *Sun*Fortran*) _LT_TAGVAR(lt_prog_compiler_pic, $1)='-KPIC' _LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic' _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Qoption ld ' ;; *Sun\ C*) # Sun C 5.9 _LT_TAGVAR(lt_prog_compiler_pic, $1)='-KPIC' _LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic' _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' ;; *Intel*\ [[CF]]*Compiler*) _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' _LT_TAGVAR(lt_prog_compiler_pic, $1)='-fPIC' _LT_TAGVAR(lt_prog_compiler_static, $1)='-static' ;; *Portland\ Group*) _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' _LT_TAGVAR(lt_prog_compiler_pic, $1)='-fpic' _LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic' ;; esac ;; esac ;; newsos6) _LT_TAGVAR(lt_prog_compiler_pic, $1)='-KPIC' _LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic' ;; *nto* | *qnx*) # QNX uses GNU C++, but need to define -shared option too, otherwise # it will coredump. _LT_TAGVAR(lt_prog_compiler_pic, $1)='-fPIC -shared' ;; osf3* | osf4* | osf5*) _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' # All OSF/1 code is PIC. _LT_TAGVAR(lt_prog_compiler_static, $1)='-non_shared' ;; rdos*) _LT_TAGVAR(lt_prog_compiler_static, $1)='-non_shared' ;; solaris*) _LT_TAGVAR(lt_prog_compiler_pic, $1)='-KPIC' _LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic' case $cc_basename in f77* | f90* | f95* | sunf77* | sunf90* | sunf95*) _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Qoption ld ';; *) _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,';; esac ;; sunos4*) _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Qoption ld ' _LT_TAGVAR(lt_prog_compiler_pic, $1)='-PIC' _LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic' ;; sysv4 | sysv4.2uw2* | sysv4.3*) _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' _LT_TAGVAR(lt_prog_compiler_pic, $1)='-KPIC' _LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic' ;; sysv4*MP*) if test -d /usr/nec; then _LT_TAGVAR(lt_prog_compiler_pic, $1)='-Kconform_pic' _LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic' fi ;; sysv5* | unixware* | sco3.2v5* | sco5v6* | OpenUNIX*) _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' _LT_TAGVAR(lt_prog_compiler_pic, $1)='-KPIC' _LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic' ;; unicos*) _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' _LT_TAGVAR(lt_prog_compiler_can_build_shared, $1)=no ;; uts4*) _LT_TAGVAR(lt_prog_compiler_pic, $1)='-pic' _LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic' ;; *) _LT_TAGVAR(lt_prog_compiler_can_build_shared, $1)=no ;; esac fi ]) case $host_os in # For platforms that do not support PIC, -DPIC is meaningless: *djgpp*) _LT_TAGVAR(lt_prog_compiler_pic, $1)= ;; *) _LT_TAGVAR(lt_prog_compiler_pic, $1)="$_LT_TAGVAR(lt_prog_compiler_pic, $1)@&t@m4_if([$1],[],[ -DPIC],[m4_if([$1],[CXX],[ -DPIC],[])])" ;; esac AC_CACHE_CHECK([for $compiler option to produce PIC], [_LT_TAGVAR(lt_cv_prog_compiler_pic, $1)], [_LT_TAGVAR(lt_cv_prog_compiler_pic, $1)=$_LT_TAGVAR(lt_prog_compiler_pic, $1)]) _LT_TAGVAR(lt_prog_compiler_pic, $1)=$_LT_TAGVAR(lt_cv_prog_compiler_pic, $1) # # Check to make sure the PIC flag actually works. # if test -n "$_LT_TAGVAR(lt_prog_compiler_pic, $1)"; then _LT_COMPILER_OPTION([if $compiler PIC flag $_LT_TAGVAR(lt_prog_compiler_pic, $1) works], [_LT_TAGVAR(lt_cv_prog_compiler_pic_works, $1)], [$_LT_TAGVAR(lt_prog_compiler_pic, $1)@&t@m4_if([$1],[],[ -DPIC],[m4_if([$1],[CXX],[ -DPIC],[])])], [], [case $_LT_TAGVAR(lt_prog_compiler_pic, $1) in "" | " "*) ;; *) _LT_TAGVAR(lt_prog_compiler_pic, $1)=" $_LT_TAGVAR(lt_prog_compiler_pic, $1)" ;; esac], [_LT_TAGVAR(lt_prog_compiler_pic, $1)= _LT_TAGVAR(lt_prog_compiler_can_build_shared, $1)=no]) fi _LT_TAGDECL([pic_flag], [lt_prog_compiler_pic], [1], [Additional compiler flags for building library objects]) _LT_TAGDECL([wl], [lt_prog_compiler_wl], [1], [How to pass a linker flag through the compiler]) # # Check to make sure the static flag actually works. # wl=$_LT_TAGVAR(lt_prog_compiler_wl, $1) eval lt_tmp_static_flag=\"$_LT_TAGVAR(lt_prog_compiler_static, $1)\" _LT_LINKER_OPTION([if $compiler static flag $lt_tmp_static_flag works], _LT_TAGVAR(lt_cv_prog_compiler_static_works, $1), $lt_tmp_static_flag, [], [_LT_TAGVAR(lt_prog_compiler_static, $1)=]) _LT_TAGDECL([link_static_flag], [lt_prog_compiler_static], [1], [Compiler flag to prevent dynamic linking]) ])# _LT_COMPILER_PIC # _LT_LINKER_SHLIBS([TAGNAME]) # ---------------------------- # See if the linker supports building shared libraries. m4_defun([_LT_LINKER_SHLIBS], [AC_REQUIRE([LT_PATH_LD])dnl AC_REQUIRE([LT_PATH_NM])dnl m4_require([_LT_PATH_MANIFEST_TOOL])dnl m4_require([_LT_FILEUTILS_DEFAULTS])dnl m4_require([_LT_DECL_EGREP])dnl m4_require([_LT_DECL_SED])dnl m4_require([_LT_CMD_GLOBAL_SYMBOLS])dnl m4_require([_LT_TAG_COMPILER])dnl AC_MSG_CHECKING([whether the $compiler linker ($LD) supports shared libraries]) m4_if([$1], [CXX], [ _LT_TAGVAR(export_symbols_cmds, $1)='$NM $libobjs $convenience | $global_symbol_pipe | $SED '\''s/.* //'\'' | sort | uniq > $export_symbols' _LT_TAGVAR(exclude_expsyms, $1)=['_GLOBAL_OFFSET_TABLE_|_GLOBAL__F[ID]_.*'] case $host_os in aix[[4-9]]*) # If we're using GNU nm, then we don't want the "-C" option. # -C means demangle to GNU nm, but means don't demangle to AIX nm. # Without the "-l" option, or with the "-B" option, AIX nm treats # weak defined symbols like other global defined symbols, whereas # GNU nm marks them as "W". # While the 'weak' keyword is ignored in the Export File, we need # it in the Import File for the 'aix-soname' feature, so we have # to replace the "-B" option with "-P" for AIX nm. if $NM -V 2>&1 | $GREP 'GNU' > /dev/null; then _LT_TAGVAR(export_symbols_cmds, $1)='$NM -Bpg $libobjs $convenience | awk '\''{ if (((\$ 2 == "T") || (\$ 2 == "D") || (\$ 2 == "B") || (\$ 2 == "W")) && ([substr](\$ 3,1,1) != ".")) { if (\$ 2 == "W") { print \$ 3 " weak" } else { print \$ 3 } } }'\'' | sort -u > $export_symbols' else _LT_TAGVAR(export_symbols_cmds, $1)='`func_echo_all $NM | $SED -e '\''s/B\([[^B]]*\)$/P\1/'\''` -PCpgl $libobjs $convenience | awk '\''{ if (((\$ 2 == "T") || (\$ 2 == "D") || (\$ 2 == "B") || (\$ 2 == "W") || (\$ 2 == "V") || (\$ 2 == "Z")) && ([substr](\$ 1,1,1) != ".")) { if ((\$ 2 == "W") || (\$ 2 == "V") || (\$ 2 == "Z")) { print \$ 1 " weak" } else { print \$ 1 } } }'\'' | sort -u > $export_symbols' fi ;; pw32*) _LT_TAGVAR(export_symbols_cmds, $1)=$ltdll_cmds ;; cygwin* | mingw* | cegcc*) case $cc_basename in cl*) _LT_TAGVAR(exclude_expsyms, $1)='_NULL_IMPORT_DESCRIPTOR|_IMPORT_DESCRIPTOR_.*' ;; *) _LT_TAGVAR(export_symbols_cmds, $1)='$NM $libobjs $convenience | $global_symbol_pipe | $SED -e '\''/^[[BCDGRS]][[ ]]/s/.*[[ ]]\([[^ ]]*\)/\1 DATA/;s/^.*[[ ]]__nm__\([[^ ]]*\)[[ ]][[^ ]]*/\1 DATA/;/^I[[ ]]/d;/^[[AITW]][[ ]]/s/.* //'\'' | sort | uniq > $export_symbols' _LT_TAGVAR(exclude_expsyms, $1)=['[_]+GLOBAL_OFFSET_TABLE_|[_]+GLOBAL__[FID]_.*|[_]+head_[A-Za-z0-9_]+_dll|[A-Za-z0-9_]+_dll_iname'] ;; esac ;; *) _LT_TAGVAR(export_symbols_cmds, $1)='$NM $libobjs $convenience | $global_symbol_pipe | $SED '\''s/.* //'\'' | sort | uniq > $export_symbols' ;; esac ], [ runpath_var= _LT_TAGVAR(allow_undefined_flag, $1)= _LT_TAGVAR(always_export_symbols, $1)=no _LT_TAGVAR(archive_cmds, $1)= _LT_TAGVAR(archive_expsym_cmds, $1)= _LT_TAGVAR(compiler_needs_object, $1)=no _LT_TAGVAR(enable_shared_with_static_runtimes, $1)=no _LT_TAGVAR(export_dynamic_flag_spec, $1)= _LT_TAGVAR(export_symbols_cmds, $1)='$NM $libobjs $convenience | $global_symbol_pipe | $SED '\''s/.* //'\'' | sort | uniq > $export_symbols' _LT_TAGVAR(hardcode_automatic, $1)=no _LT_TAGVAR(hardcode_direct, $1)=no _LT_TAGVAR(hardcode_direct_absolute, $1)=no _LT_TAGVAR(hardcode_libdir_flag_spec, $1)= _LT_TAGVAR(hardcode_libdir_separator, $1)= _LT_TAGVAR(hardcode_minus_L, $1)=no _LT_TAGVAR(hardcode_shlibpath_var, $1)=unsupported _LT_TAGVAR(inherit_rpath, $1)=no _LT_TAGVAR(link_all_deplibs, $1)=unknown _LT_TAGVAR(module_cmds, $1)= _LT_TAGVAR(module_expsym_cmds, $1)= _LT_TAGVAR(old_archive_from_new_cmds, $1)= _LT_TAGVAR(old_archive_from_expsyms_cmds, $1)= _LT_TAGVAR(thread_safe_flag_spec, $1)= _LT_TAGVAR(whole_archive_flag_spec, $1)= # include_expsyms should be a list of space-separated symbols to be *always* # included in the symbol list _LT_TAGVAR(include_expsyms, $1)= # exclude_expsyms can be an extended regexp of symbols to exclude # it will be wrapped by ' (' and ')$', so one must not match beginning or # end of line. Example: 'a|bc|.*d.*' will exclude the symbols 'a' and 'bc', # as well as any symbol that contains 'd'. _LT_TAGVAR(exclude_expsyms, $1)=['_GLOBAL_OFFSET_TABLE_|_GLOBAL__F[ID]_.*'] # Although _GLOBAL_OFFSET_TABLE_ is a valid symbol C name, most a.out # platforms (ab)use it in PIC code, but their linkers get confused if # the symbol is explicitly referenced. Since portable code cannot # rely on this symbol name, it's probably fine to never include it in # preloaded symbol tables. # Exclude shared library initialization/finalization symbols. dnl Note also adjust exclude_expsyms for C++ above. extract_expsyms_cmds= case $host_os in cygwin* | mingw* | pw32* | cegcc*) # FIXME: the MSVC++ port hasn't been tested in a loooong time # When not using gcc, we currently assume that we are using # Microsoft Visual C++. if test yes != "$GCC"; then with_gnu_ld=no fi ;; interix*) # we just hope/assume this is gcc and not c89 (= MSVC++) with_gnu_ld=yes ;; openbsd* | bitrig*) with_gnu_ld=no ;; esac _LT_TAGVAR(ld_shlibs, $1)=yes # On some targets, GNU ld is compatible enough with the native linker # that we're better off using the native interface for both. lt_use_gnu_ld_interface=no if test yes = "$with_gnu_ld"; then case $host_os in aix*) # The AIX port of GNU ld has always aspired to compatibility # with the native linker. However, as the warning in the GNU ld # block says, versions before 2.19.5* couldn't really create working # shared libraries, regardless of the interface used. case `$LD -v 2>&1` in *\ \(GNU\ Binutils\)\ 2.19.5*) ;; *\ \(GNU\ Binutils\)\ 2.[[2-9]]*) ;; *\ \(GNU\ Binutils\)\ [[3-9]]*) ;; *) lt_use_gnu_ld_interface=yes ;; esac ;; *) lt_use_gnu_ld_interface=yes ;; esac fi if test yes = "$lt_use_gnu_ld_interface"; then # If archive_cmds runs LD, not CC, wlarc should be empty wlarc='$wl' # Set some defaults for GNU ld with shared library support. These # are reset later if shared libraries are not supported. Putting them # here allows them to be overridden if necessary. runpath_var=LD_RUN_PATH _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='$wl-rpath $wl$libdir' _LT_TAGVAR(export_dynamic_flag_spec, $1)='$wl--export-dynamic' # ancient GNU ld didn't support --whole-archive et. al. if $LD --help 2>&1 | $GREP 'no-whole-archive' > /dev/null; then _LT_TAGVAR(whole_archive_flag_spec, $1)=$wlarc'--whole-archive$convenience '$wlarc'--no-whole-archive' else _LT_TAGVAR(whole_archive_flag_spec, $1)= fi supports_anon_versioning=no case `$LD -v | $SED -e 's/([^)]\+)\s\+//' 2>&1` in *GNU\ gold*) supports_anon_versioning=yes ;; *\ [[01]].* | *\ 2.[[0-9]].* | *\ 2.10.*) ;; # catch versions < 2.11 *\ 2.11.93.0.2\ *) supports_anon_versioning=yes ;; # RH7.3 ... *\ 2.11.92.0.12\ *) supports_anon_versioning=yes ;; # Mandrake 8.2 ... *\ 2.11.*) ;; # other 2.11 versions *) supports_anon_versioning=yes ;; esac # See if GNU ld supports shared libraries. case $host_os in aix[[3-9]]*) # On AIX/PPC, the GNU linker is very broken if test ia64 != "$host_cpu"; then _LT_TAGVAR(ld_shlibs, $1)=no cat <<_LT_EOF 1>&2 *** Warning: the GNU linker, at least up to release 2.19, is reported *** to be unable to reliably create shared libraries on AIX. *** Therefore, libtool is disabling shared libraries support. If you *** really care for shared libraries, you may want to install binutils *** 2.20 or above, or modify your PATH so that a non-GNU linker is found. *** You will then need to restart the configuration process. _LT_EOF fi ;; amigaos*) case $host_cpu in powerpc) # see comment about AmigaOS4 .so support _LT_TAGVAR(archive_cmds, $1)='$CC -shared $libobjs $deplibs $compiler_flags $wl-soname $wl$soname -o $lib' _LT_TAGVAR(archive_expsym_cmds, $1)='' ;; m68k) _LT_TAGVAR(archive_cmds, $1)='$RM $output_objdir/a2ixlibrary.data~$ECHO "#define NAME $libname" > $output_objdir/a2ixlibrary.data~$ECHO "#define LIBRARY_ID 1" >> $output_objdir/a2ixlibrary.data~$ECHO "#define VERSION $major" >> $output_objdir/a2ixlibrary.data~$ECHO "#define REVISION $revision" >> $output_objdir/a2ixlibrary.data~$AR $AR_FLAGS $lib $libobjs~$RANLIB $lib~(cd $output_objdir && a2ixlibrary -32)' _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='-L$libdir' _LT_TAGVAR(hardcode_minus_L, $1)=yes ;; esac ;; beos*) if $LD --help 2>&1 | $GREP ': supported targets:.* elf' > /dev/null; then _LT_TAGVAR(allow_undefined_flag, $1)=unsupported # Joseph Beckenbach says some releases of gcc # support --undefined. This deserves some investigation. FIXME _LT_TAGVAR(archive_cmds, $1)='$CC -nostart $libobjs $deplibs $compiler_flags $wl-soname $wl$soname -o $lib' else _LT_TAGVAR(ld_shlibs, $1)=no fi ;; cygwin* | mingw* | pw32* | cegcc*) # _LT_TAGVAR(hardcode_libdir_flag_spec, $1) is actually meaningless, # as there is no search path for DLLs. _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='-L$libdir' _LT_TAGVAR(export_dynamic_flag_spec, $1)='$wl--export-all-symbols' _LT_TAGVAR(allow_undefined_flag, $1)=unsupported _LT_TAGVAR(always_export_symbols, $1)=no _LT_TAGVAR(enable_shared_with_static_runtimes, $1)=yes _LT_TAGVAR(export_symbols_cmds, $1)='$NM $libobjs $convenience | $global_symbol_pipe | $SED -e '\''/^[[BCDGRS]][[ ]]/s/.*[[ ]]\([[^ ]]*\)/\1 DATA/;s/^.*[[ ]]__nm__\([[^ ]]*\)[[ ]][[^ ]]*/\1 DATA/;/^I[[ ]]/d;/^[[AITW]][[ ]]/s/.* //'\'' | sort | uniq > $export_symbols' _LT_TAGVAR(exclude_expsyms, $1)=['[_]+GLOBAL_OFFSET_TABLE_|[_]+GLOBAL__[FID]_.*|[_]+head_[A-Za-z0-9_]+_dll|[A-Za-z0-9_]+_dll_iname'] if $LD --help 2>&1 | $GREP 'auto-import' > /dev/null; then _LT_TAGVAR(archive_cmds, $1)='$CC -shared $libobjs $deplibs $compiler_flags -o $output_objdir/$soname $wl--enable-auto-image-base -Xlinker --out-implib -Xlinker $lib' # If the export-symbols file already is a .def file, use it as # is; otherwise, prepend EXPORTS... _LT_TAGVAR(archive_expsym_cmds, $1)='if _LT_DLL_DEF_P([$export_symbols]); then cp $export_symbols $output_objdir/$soname.def; else echo EXPORTS > $output_objdir/$soname.def; cat $export_symbols >> $output_objdir/$soname.def; fi~ $CC -shared $output_objdir/$soname.def $libobjs $deplibs $compiler_flags -o $output_objdir/$soname $wl--enable-auto-image-base -Xlinker --out-implib -Xlinker $lib' else _LT_TAGVAR(ld_shlibs, $1)=no fi ;; haiku*) _LT_TAGVAR(archive_cmds, $1)='$CC -shared $libobjs $deplibs $compiler_flags $wl-soname $wl$soname -o $lib' _LT_TAGVAR(link_all_deplibs, $1)=yes ;; os2*) _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='-L$libdir' _LT_TAGVAR(hardcode_minus_L, $1)=yes _LT_TAGVAR(allow_undefined_flag, $1)=unsupported shrext_cmds=.dll _LT_TAGVAR(archive_cmds, $1)='$ECHO "LIBRARY ${soname%$shared_ext} INITINSTANCE TERMINSTANCE" > $output_objdir/$libname.def~ $ECHO "DESCRIPTION \"$libname\"" >> $output_objdir/$libname.def~ $ECHO "DATA MULTIPLE NONSHARED" >> $output_objdir/$libname.def~ $ECHO EXPORTS >> $output_objdir/$libname.def~ emxexp $libobjs | $SED /"_DLL_InitTerm"/d >> $output_objdir/$libname.def~ $CC -Zdll -Zcrtdll -o $output_objdir/$soname $libobjs $deplibs $compiler_flags $output_objdir/$libname.def~ emximp -o $lib $output_objdir/$libname.def' _LT_TAGVAR(archive_expsym_cmds, $1)='$ECHO "LIBRARY ${soname%$shared_ext} INITINSTANCE TERMINSTANCE" > $output_objdir/$libname.def~ $ECHO "DESCRIPTION \"$libname\"" >> $output_objdir/$libname.def~ $ECHO "DATA MULTIPLE NONSHARED" >> $output_objdir/$libname.def~ $ECHO EXPORTS >> $output_objdir/$libname.def~ prefix_cmds="$SED"~ if test EXPORTS = "`$SED 1q $export_symbols`"; then prefix_cmds="$prefix_cmds -e 1d"; fi~ prefix_cmds="$prefix_cmds -e \"s/^\(.*\)$/_\1/g\""~ cat $export_symbols | $prefix_cmds >> $output_objdir/$libname.def~ $CC -Zdll -Zcrtdll -o $output_objdir/$soname $libobjs $deplibs $compiler_flags $output_objdir/$libname.def~ emximp -o $lib $output_objdir/$libname.def' _LT_TAGVAR(old_archive_From_new_cmds, $1)='emximp -o $output_objdir/${libname}_dll.a $output_objdir/$libname.def' _LT_TAGVAR(enable_shared_with_static_runtimes, $1)=yes ;; interix[[3-9]]*) _LT_TAGVAR(hardcode_direct, $1)=no _LT_TAGVAR(hardcode_shlibpath_var, $1)=no _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='$wl-rpath,$libdir' _LT_TAGVAR(export_dynamic_flag_spec, $1)='$wl-E' # Hack: On Interix 3.x, we cannot compile PIC because of a broken gcc. # Instead, shared libraries are loaded at an image base (0x10000000 by # default) and relocated if they conflict, which is a slow very memory # consuming and fragmenting process. To avoid this, we pick a random, # 256 KiB-aligned image base between 0x50000000 and 0x6FFC0000 at link # time. Moving up from 0x10000000 also allows more sbrk(2) space. _LT_TAGVAR(archive_cmds, $1)='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags $wl-h,$soname $wl--image-base,`expr ${RANDOM-$$} % 4096 / 2 \* 262144 + 1342177280` -o $lib' _LT_TAGVAR(archive_expsym_cmds, $1)='sed "s|^|_|" $export_symbols >$output_objdir/$soname.expsym~$CC -shared $pic_flag $libobjs $deplibs $compiler_flags $wl-h,$soname $wl--retain-symbols-file,$output_objdir/$soname.expsym $wl--image-base,`expr ${RANDOM-$$} % 4096 / 2 \* 262144 + 1342177280` -o $lib' ;; gnu* | linux* | tpf* | k*bsd*-gnu | kopensolaris*-gnu) tmp_diet=no if test linux-dietlibc = "$host_os"; then case $cc_basename in diet\ *) tmp_diet=yes;; # linux-dietlibc with static linking (!diet-dyn) esac fi if $LD --help 2>&1 | $EGREP ': supported targets:.* elf' > /dev/null \ && test no = "$tmp_diet" then tmp_addflag=' $pic_flag' tmp_sharedflag='-shared' case $cc_basename,$host_cpu in pgcc*) # Portland Group C compiler _LT_TAGVAR(whole_archive_flag_spec, $1)='$wl--whole-archive`for conv in $convenience\"\"; do test -n \"$conv\" && new_convenience=\"$new_convenience,$conv\"; done; func_echo_all \"$new_convenience\"` $wl--no-whole-archive' tmp_addflag=' $pic_flag' ;; pgf77* | pgf90* | pgf95* | pgfortran*) # Portland Group f77 and f90 compilers _LT_TAGVAR(whole_archive_flag_spec, $1)='$wl--whole-archive`for conv in $convenience\"\"; do test -n \"$conv\" && new_convenience=\"$new_convenience,$conv\"; done; func_echo_all \"$new_convenience\"` $wl--no-whole-archive' tmp_addflag=' $pic_flag -Mnomain' ;; ecc*,ia64* | icc*,ia64*) # Intel C compiler on ia64 tmp_addflag=' -i_dynamic' ;; efc*,ia64* | ifort*,ia64*) # Intel Fortran compiler on ia64 tmp_addflag=' -i_dynamic -nofor_main' ;; ifc* | ifort*) # Intel Fortran compiler tmp_addflag=' -nofor_main' ;; lf95*) # Lahey Fortran 8.1 _LT_TAGVAR(whole_archive_flag_spec, $1)= tmp_sharedflag='--shared' ;; nagfor*) # NAGFOR 5.3 tmp_sharedflag='-Wl,-shared' ;; xl[[cC]]* | bgxl[[cC]]* | mpixl[[cC]]*) # IBM XL C 8.0 on PPC (deal with xlf below) tmp_sharedflag='-qmkshrobj' tmp_addflag= ;; nvcc*) # Cuda Compiler Driver 2.2 _LT_TAGVAR(whole_archive_flag_spec, $1)='$wl--whole-archive`for conv in $convenience\"\"; do test -n \"$conv\" && new_convenience=\"$new_convenience,$conv\"; done; func_echo_all \"$new_convenience\"` $wl--no-whole-archive' _LT_TAGVAR(compiler_needs_object, $1)=yes ;; esac case `$CC -V 2>&1 | sed 5q` in *Sun\ C*) # Sun C 5.9 _LT_TAGVAR(whole_archive_flag_spec, $1)='$wl--whole-archive`new_convenience=; for conv in $convenience\"\"; do test -z \"$conv\" || new_convenience=\"$new_convenience,$conv\"; done; func_echo_all \"$new_convenience\"` $wl--no-whole-archive' _LT_TAGVAR(compiler_needs_object, $1)=yes tmp_sharedflag='-G' ;; *Sun\ F*) # Sun Fortran 8.3 tmp_sharedflag='-G' ;; esac _LT_TAGVAR(archive_cmds, $1)='$CC '"$tmp_sharedflag""$tmp_addflag"' $libobjs $deplibs $compiler_flags $wl-soname $wl$soname -o $lib' if test yes = "$supports_anon_versioning"; then _LT_TAGVAR(archive_expsym_cmds, $1)='echo "{ global:" > $output_objdir/$libname.ver~ cat $export_symbols | sed -e "s/\(.*\)/\1;/" >> $output_objdir/$libname.ver~ echo "local: *; };" >> $output_objdir/$libname.ver~ $CC '"$tmp_sharedflag""$tmp_addflag"' $libobjs $deplibs $compiler_flags $wl-soname $wl$soname $wl-version-script $wl$output_objdir/$libname.ver -o $lib' fi case $cc_basename in tcc*) _LT_TAGVAR(export_dynamic_flag_spec, $1)='-rdynamic' ;; xlf* | bgf* | bgxlf* | mpixlf*) # IBM XL Fortran 10.1 on PPC cannot create shared libs itself _LT_TAGVAR(whole_archive_flag_spec, $1)='--whole-archive$convenience --no-whole-archive' _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='$wl-rpath $wl$libdir' _LT_TAGVAR(archive_cmds, $1)='$LD -shared $libobjs $deplibs $linker_flags -soname $soname -o $lib' if test yes = "$supports_anon_versioning"; then _LT_TAGVAR(archive_expsym_cmds, $1)='echo "{ global:" > $output_objdir/$libname.ver~ cat $export_symbols | sed -e "s/\(.*\)/\1;/" >> $output_objdir/$libname.ver~ echo "local: *; };" >> $output_objdir/$libname.ver~ $LD -shared $libobjs $deplibs $linker_flags -soname $soname -version-script $output_objdir/$libname.ver -o $lib' fi ;; esac else _LT_TAGVAR(ld_shlibs, $1)=no fi ;; netbsd*) if echo __ELF__ | $CC -E - | $GREP __ELF__ >/dev/null; then _LT_TAGVAR(archive_cmds, $1)='$LD -Bshareable $libobjs $deplibs $linker_flags -o $lib' wlarc= else _LT_TAGVAR(archive_cmds, $1)='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags $wl-soname $wl$soname -o $lib' _LT_TAGVAR(archive_expsym_cmds, $1)='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags $wl-soname $wl$soname $wl-retain-symbols-file $wl$export_symbols -o $lib' fi ;; solaris*) if $LD -v 2>&1 | $GREP 'BFD 2\.8' > /dev/null; then _LT_TAGVAR(ld_shlibs, $1)=no cat <<_LT_EOF 1>&2 *** Warning: The releases 2.8.* of the GNU linker cannot reliably *** create shared libraries on Solaris systems. Therefore, libtool *** is disabling shared libraries support. We urge you to upgrade GNU *** binutils to release 2.9.1 or newer. Another option is to modify *** your PATH or compiler configuration so that the native linker is *** used, and then restart. _LT_EOF elif $LD --help 2>&1 | $GREP ': supported targets:.* elf' > /dev/null; then _LT_TAGVAR(archive_cmds, $1)='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags $wl-soname $wl$soname -o $lib' _LT_TAGVAR(archive_expsym_cmds, $1)='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags $wl-soname $wl$soname $wl-retain-symbols-file $wl$export_symbols -o $lib' else _LT_TAGVAR(ld_shlibs, $1)=no fi ;; sysv5* | sco3.2v5* | sco5v6* | unixware* | OpenUNIX*) case `$LD -v 2>&1` in *\ [[01]].* | *\ 2.[[0-9]].* | *\ 2.1[[0-5]].*) _LT_TAGVAR(ld_shlibs, $1)=no cat <<_LT_EOF 1>&2 *** Warning: Releases of the GNU linker prior to 2.16.91.0.3 cannot *** reliably create shared libraries on SCO systems. Therefore, libtool *** is disabling shared libraries support. We urge you to upgrade GNU *** binutils to release 2.16.91.0.3 or newer. Another option is to modify *** your PATH or compiler configuration so that the native linker is *** used, and then restart. _LT_EOF ;; *) # For security reasons, it is highly recommended that you always # use absolute paths for naming shared libraries, and exclude the # DT_RUNPATH tag from executables and libraries. But doing so # requires that you compile everything twice, which is a pain. if $LD --help 2>&1 | $GREP ': supported targets:.* elf' > /dev/null; then _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='$wl-rpath $wl$libdir' _LT_TAGVAR(archive_cmds, $1)='$CC -shared $libobjs $deplibs $compiler_flags $wl-soname $wl$soname -o $lib' _LT_TAGVAR(archive_expsym_cmds, $1)='$CC -shared $libobjs $deplibs $compiler_flags $wl-soname $wl$soname $wl-retain-symbols-file $wl$export_symbols -o $lib' else _LT_TAGVAR(ld_shlibs, $1)=no fi ;; esac ;; sunos4*) _LT_TAGVAR(archive_cmds, $1)='$LD -assert pure-text -Bshareable -o $lib $libobjs $deplibs $linker_flags' wlarc= _LT_TAGVAR(hardcode_direct, $1)=yes _LT_TAGVAR(hardcode_shlibpath_var, $1)=no ;; *) if $LD --help 2>&1 | $GREP ': supported targets:.* elf' > /dev/null; then _LT_TAGVAR(archive_cmds, $1)='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags $wl-soname $wl$soname -o $lib' _LT_TAGVAR(archive_expsym_cmds, $1)='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags $wl-soname $wl$soname $wl-retain-symbols-file $wl$export_symbols -o $lib' else _LT_TAGVAR(ld_shlibs, $1)=no fi ;; esac if test no = "$_LT_TAGVAR(ld_shlibs, $1)"; then runpath_var= _LT_TAGVAR(hardcode_libdir_flag_spec, $1)= _LT_TAGVAR(export_dynamic_flag_spec, $1)= _LT_TAGVAR(whole_archive_flag_spec, $1)= fi else # PORTME fill in a description of your system's linker (not GNU ld) case $host_os in aix3*) _LT_TAGVAR(allow_undefined_flag, $1)=unsupported _LT_TAGVAR(always_export_symbols, $1)=yes _LT_TAGVAR(archive_expsym_cmds, $1)='$LD -o $output_objdir/$soname $libobjs $deplibs $linker_flags -bE:$export_symbols -T512 -H512 -bM:SRE~$AR $AR_FLAGS $lib $output_objdir/$soname' # Note: this linker hardcodes the directories in LIBPATH if there # are no directories specified by -L. _LT_TAGVAR(hardcode_minus_L, $1)=yes if test yes = "$GCC" && test -z "$lt_prog_compiler_static"; then # Neither direct hardcoding nor static linking is supported with a # broken collect2. _LT_TAGVAR(hardcode_direct, $1)=unsupported fi ;; aix[[4-9]]*) if test ia64 = "$host_cpu"; then # On IA64, the linker does run time linking by default, so we don't # have to do anything special. aix_use_runtimelinking=no exp_sym_flag='-Bexport' no_entry_flag= else # If we're using GNU nm, then we don't want the "-C" option. # -C means demangle to GNU nm, but means don't demangle to AIX nm. # Without the "-l" option, or with the "-B" option, AIX nm treats # weak defined symbols like other global defined symbols, whereas # GNU nm marks them as "W". # While the 'weak' keyword is ignored in the Export File, we need # it in the Import File for the 'aix-soname' feature, so we have # to replace the "-B" option with "-P" for AIX nm. if $NM -V 2>&1 | $GREP 'GNU' > /dev/null; then _LT_TAGVAR(export_symbols_cmds, $1)='$NM -Bpg $libobjs $convenience | awk '\''{ if (((\$ 2 == "T") || (\$ 2 == "D") || (\$ 2 == "B") || (\$ 2 == "W")) && ([substr](\$ 3,1,1) != ".")) { if (\$ 2 == "W") { print \$ 3 " weak" } else { print \$ 3 } } }'\'' | sort -u > $export_symbols' else _LT_TAGVAR(export_symbols_cmds, $1)='`func_echo_all $NM | $SED -e '\''s/B\([[^B]]*\)$/P\1/'\''` -PCpgl $libobjs $convenience | awk '\''{ if (((\$ 2 == "T") || (\$ 2 == "D") || (\$ 2 == "B") || (\$ 2 == "W") || (\$ 2 == "V") || (\$ 2 == "Z")) && ([substr](\$ 1,1,1) != ".")) { if ((\$ 2 == "W") || (\$ 2 == "V") || (\$ 2 == "Z")) { print \$ 1 " weak" } else { print \$ 1 } } }'\'' | sort -u > $export_symbols' fi aix_use_runtimelinking=no # Test if we are trying to use run time linking or normal # AIX style linking. If -brtl is somewhere in LDFLAGS, we # have runtime linking enabled, and use it for executables. # For shared libraries, we enable/disable runtime linking # depending on the kind of the shared library created - # when "with_aix_soname,aix_use_runtimelinking" is: # "aix,no" lib.a(lib.so.V) shared, rtl:no, for executables # "aix,yes" lib.so shared, rtl:yes, for executables # lib.a static archive # "both,no" lib.so.V(shr.o) shared, rtl:yes # lib.a(lib.so.V) shared, rtl:no, for executables # "both,yes" lib.so.V(shr.o) shared, rtl:yes, for executables # lib.a(lib.so.V) shared, rtl:no # "svr4,*" lib.so.V(shr.o) shared, rtl:yes, for executables # lib.a static archive case $host_os in aix4.[[23]]|aix4.[[23]].*|aix[[5-9]]*) for ld_flag in $LDFLAGS; do if (test x-brtl = "x$ld_flag" || test x-Wl,-brtl = "x$ld_flag"); then aix_use_runtimelinking=yes break fi done if test svr4,no = "$with_aix_soname,$aix_use_runtimelinking"; then # With aix-soname=svr4, we create the lib.so.V shared archives only, # so we don't have lib.a shared libs to link our executables. # We have to force runtime linking in this case. aix_use_runtimelinking=yes LDFLAGS="$LDFLAGS -Wl,-brtl" fi ;; esac exp_sym_flag='-bexport' no_entry_flag='-bnoentry' fi # When large executables or shared objects are built, AIX ld can # have problems creating the table of contents. If linking a library # or program results in "error TOC overflow" add -mminimal-toc to # CXXFLAGS/CFLAGS for g++/gcc. In the cases where that is not # enough to fix the problem, add -Wl,-bbigtoc to LDFLAGS. _LT_TAGVAR(archive_cmds, $1)='' _LT_TAGVAR(hardcode_direct, $1)=yes _LT_TAGVAR(hardcode_direct_absolute, $1)=yes _LT_TAGVAR(hardcode_libdir_separator, $1)=':' _LT_TAGVAR(link_all_deplibs, $1)=yes _LT_TAGVAR(file_list_spec, $1)='$wl-f,' case $with_aix_soname,$aix_use_runtimelinking in aix,*) ;; # traditional, no import file svr4,* | *,yes) # use import file # The Import File defines what to hardcode. _LT_TAGVAR(hardcode_direct, $1)=no _LT_TAGVAR(hardcode_direct_absolute, $1)=no ;; esac if test yes = "$GCC"; then case $host_os in aix4.[[012]]|aix4.[[012]].*) # We only want to do this on AIX 4.2 and lower, the check # below for broken collect2 doesn't work under 4.3+ collect2name=`$CC -print-prog-name=collect2` if test -f "$collect2name" && strings "$collect2name" | $GREP resolve_lib_name >/dev/null then # We have reworked collect2 : else # We have old collect2 _LT_TAGVAR(hardcode_direct, $1)=unsupported # It fails to find uninstalled libraries when the uninstalled # path is not listed in the libpath. Setting hardcode_minus_L # to unsupported forces relinking _LT_TAGVAR(hardcode_minus_L, $1)=yes _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='-L$libdir' _LT_TAGVAR(hardcode_libdir_separator, $1)= fi ;; esac shared_flag='-shared' if test yes = "$aix_use_runtimelinking"; then shared_flag="$shared_flag "'$wl-G' fi # Need to ensure runtime linking is disabled for the traditional # shared library, or the linker may eventually find shared libraries # /with/ Import File - we do not want to mix them. shared_flag_aix='-shared' shared_flag_svr4='-shared $wl-G' else # not using gcc if test ia64 = "$host_cpu"; then # VisualAge C++, Version 5.5 for AIX 5L for IA-64, Beta 3 Release # chokes on -Wl,-G. The following line is correct: shared_flag='-G' else if test yes = "$aix_use_runtimelinking"; then shared_flag='$wl-G' else shared_flag='$wl-bM:SRE' fi shared_flag_aix='$wl-bM:SRE' shared_flag_svr4='$wl-G' fi fi _LT_TAGVAR(export_dynamic_flag_spec, $1)='$wl-bexpall' # It seems that -bexpall does not export symbols beginning with # underscore (_), so it is better to generate a list of symbols to export. _LT_TAGVAR(always_export_symbols, $1)=yes if test aix,yes = "$with_aix_soname,$aix_use_runtimelinking"; then # Warning - without using the other runtime loading flags (-brtl), # -berok will link without error, but may produce a broken library. _LT_TAGVAR(allow_undefined_flag, $1)='-berok' # Determine the default libpath from the value encoded in an # empty executable. _LT_SYS_MODULE_PATH_AIX([$1]) _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='$wl-blibpath:$libdir:'"$aix_libpath" _LT_TAGVAR(archive_expsym_cmds, $1)='$CC -o $output_objdir/$soname $libobjs $deplibs $wl'$no_entry_flag' $compiler_flags `if test -n "$allow_undefined_flag"; then func_echo_all "$wl$allow_undefined_flag"; else :; fi` $wl'$exp_sym_flag:\$export_symbols' '$shared_flag else if test ia64 = "$host_cpu"; then _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='$wl-R $libdir:/usr/lib:/lib' _LT_TAGVAR(allow_undefined_flag, $1)="-z nodefs" _LT_TAGVAR(archive_expsym_cmds, $1)="\$CC $shared_flag"' -o $output_objdir/$soname $libobjs $deplibs '"\$wl$no_entry_flag"' $compiler_flags $wl$allow_undefined_flag '"\$wl$exp_sym_flag:\$export_symbols" else # Determine the default libpath from the value encoded in an # empty executable. _LT_SYS_MODULE_PATH_AIX([$1]) _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='$wl-blibpath:$libdir:'"$aix_libpath" # Warning - without using the other run time loading flags, # -berok will link without error, but may produce a broken library. _LT_TAGVAR(no_undefined_flag, $1)=' $wl-bernotok' _LT_TAGVAR(allow_undefined_flag, $1)=' $wl-berok' if test yes = "$with_gnu_ld"; then # We only use this code for GNU lds that support --whole-archive. _LT_TAGVAR(whole_archive_flag_spec, $1)='$wl--whole-archive$convenience $wl--no-whole-archive' else # Exported symbols can be pulled into shared objects from archives _LT_TAGVAR(whole_archive_flag_spec, $1)='$convenience' fi _LT_TAGVAR(archive_cmds_need_lc, $1)=yes _LT_TAGVAR(archive_expsym_cmds, $1)='$RM -r $output_objdir/$realname.d~$MKDIR $output_objdir/$realname.d' # -brtl affects multiple linker settings, -berok does not and is overridden later compiler_flags_filtered='`func_echo_all "$compiler_flags " | $SED -e "s%-brtl\\([[, ]]\\)%-berok\\1%g"`' if test svr4 != "$with_aix_soname"; then # This is similar to how AIX traditionally builds its shared libraries. _LT_TAGVAR(archive_expsym_cmds, $1)="$_LT_TAGVAR(archive_expsym_cmds, $1)"'~$CC '$shared_flag_aix' -o $output_objdir/$realname.d/$soname $libobjs $deplibs $wl-bnoentry '$compiler_flags_filtered'$wl-bE:$export_symbols$allow_undefined_flag~$AR $AR_FLAGS $output_objdir/$libname$release.a $output_objdir/$realname.d/$soname' fi if test aix != "$with_aix_soname"; then _LT_TAGVAR(archive_expsym_cmds, $1)="$_LT_TAGVAR(archive_expsym_cmds, $1)"'~$CC '$shared_flag_svr4' -o $output_objdir/$realname.d/$shared_archive_member_spec.o $libobjs $deplibs $wl-bnoentry '$compiler_flags_filtered'$wl-bE:$export_symbols$allow_undefined_flag~$STRIP -e $output_objdir/$realname.d/$shared_archive_member_spec.o~( func_echo_all "#! $soname($shared_archive_member_spec.o)"; if test shr_64 = "$shared_archive_member_spec"; then func_echo_all "# 64"; else func_echo_all "# 32"; fi; cat $export_symbols ) > $output_objdir/$realname.d/$shared_archive_member_spec.imp~$AR $AR_FLAGS $output_objdir/$soname $output_objdir/$realname.d/$shared_archive_member_spec.o $output_objdir/$realname.d/$shared_archive_member_spec.imp' else # used by -dlpreopen to get the symbols _LT_TAGVAR(archive_expsym_cmds, $1)="$_LT_TAGVAR(archive_expsym_cmds, $1)"'~$MV $output_objdir/$realname.d/$soname $output_objdir' fi _LT_TAGVAR(archive_expsym_cmds, $1)="$_LT_TAGVAR(archive_expsym_cmds, $1)"'~$RM -r $output_objdir/$realname.d' fi fi ;; amigaos*) case $host_cpu in powerpc) # see comment about AmigaOS4 .so support _LT_TAGVAR(archive_cmds, $1)='$CC -shared $libobjs $deplibs $compiler_flags $wl-soname $wl$soname -o $lib' _LT_TAGVAR(archive_expsym_cmds, $1)='' ;; m68k) _LT_TAGVAR(archive_cmds, $1)='$RM $output_objdir/a2ixlibrary.data~$ECHO "#define NAME $libname" > $output_objdir/a2ixlibrary.data~$ECHO "#define LIBRARY_ID 1" >> $output_objdir/a2ixlibrary.data~$ECHO "#define VERSION $major" >> $output_objdir/a2ixlibrary.data~$ECHO "#define REVISION $revision" >> $output_objdir/a2ixlibrary.data~$AR $AR_FLAGS $lib $libobjs~$RANLIB $lib~(cd $output_objdir && a2ixlibrary -32)' _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='-L$libdir' _LT_TAGVAR(hardcode_minus_L, $1)=yes ;; esac ;; bsdi[[45]]*) _LT_TAGVAR(export_dynamic_flag_spec, $1)=-rdynamic ;; cygwin* | mingw* | pw32* | cegcc*) # When not using gcc, we currently assume that we are using # Microsoft Visual C++. # hardcode_libdir_flag_spec is actually meaningless, as there is # no search path for DLLs. case $cc_basename in cl*) # Native MSVC _LT_TAGVAR(hardcode_libdir_flag_spec, $1)=' ' _LT_TAGVAR(allow_undefined_flag, $1)=unsupported _LT_TAGVAR(always_export_symbols, $1)=yes _LT_TAGVAR(file_list_spec, $1)='@' # Tell ltmain to make .lib files, not .a files. libext=lib # Tell ltmain to make .dll files, not .so files. shrext_cmds=.dll # FIXME: Setting linknames here is a bad hack. _LT_TAGVAR(archive_cmds, $1)='$CC -o $output_objdir/$soname $libobjs $compiler_flags $deplibs -Wl,-DLL,-IMPLIB:"$tool_output_objdir$libname.dll.lib"~linknames=' _LT_TAGVAR(archive_expsym_cmds, $1)='if _LT_DLL_DEF_P([$export_symbols]); then cp "$export_symbols" "$output_objdir/$soname.def"; echo "$tool_output_objdir$soname.def" > "$output_objdir/$soname.exp"; else $SED -e '\''s/^/-link -EXPORT:/'\'' < $export_symbols > $output_objdir/$soname.exp; fi~ $CC -o $tool_output_objdir$soname $libobjs $compiler_flags $deplibs "@$tool_output_objdir$soname.exp" -Wl,-DLL,-IMPLIB:"$tool_output_objdir$libname.dll.lib"~ linknames=' # The linker will not automatically build a static lib if we build a DLL. # _LT_TAGVAR(old_archive_from_new_cmds, $1)='true' _LT_TAGVAR(enable_shared_with_static_runtimes, $1)=yes _LT_TAGVAR(exclude_expsyms, $1)='_NULL_IMPORT_DESCRIPTOR|_IMPORT_DESCRIPTOR_.*' _LT_TAGVAR(export_symbols_cmds, $1)='$NM $libobjs $convenience | $global_symbol_pipe | $SED -e '\''/^[[BCDGRS]][[ ]]/s/.*[[ ]]\([[^ ]]*\)/\1,DATA/'\'' | $SED -e '\''/^[[AITW]][[ ]]/s/.*[[ ]]//'\'' | sort | uniq > $export_symbols' # Don't use ranlib _LT_TAGVAR(old_postinstall_cmds, $1)='chmod 644 $oldlib' _LT_TAGVAR(postlink_cmds, $1)='lt_outputfile="@OUTPUT@"~ lt_tool_outputfile="@TOOL_OUTPUT@"~ case $lt_outputfile in *.exe|*.EXE) ;; *) lt_outputfile=$lt_outputfile.exe lt_tool_outputfile=$lt_tool_outputfile.exe ;; esac~ if test : != "$MANIFEST_TOOL" && test -f "$lt_outputfile.manifest"; then $MANIFEST_TOOL -manifest "$lt_tool_outputfile.manifest" -outputresource:"$lt_tool_outputfile" || exit 1; $RM "$lt_outputfile.manifest"; fi' ;; *) # Assume MSVC wrapper _LT_TAGVAR(hardcode_libdir_flag_spec, $1)=' ' _LT_TAGVAR(allow_undefined_flag, $1)=unsupported # Tell ltmain to make .lib files, not .a files. libext=lib # Tell ltmain to make .dll files, not .so files. shrext_cmds=.dll # FIXME: Setting linknames here is a bad hack. _LT_TAGVAR(archive_cmds, $1)='$CC -o $lib $libobjs $compiler_flags `func_echo_all "$deplibs" | $SED '\''s/ -lc$//'\''` -link -dll~linknames=' # The linker will automatically build a .lib file if we build a DLL. _LT_TAGVAR(old_archive_from_new_cmds, $1)='true' # FIXME: Should let the user specify the lib program. _LT_TAGVAR(old_archive_cmds, $1)='lib -OUT:$oldlib$oldobjs$old_deplibs' _LT_TAGVAR(enable_shared_with_static_runtimes, $1)=yes ;; esac ;; darwin* | rhapsody*) _LT_DARWIN_LINKER_FEATURES($1) ;; dgux*) _LT_TAGVAR(archive_cmds, $1)='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags' _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='-L$libdir' _LT_TAGVAR(hardcode_shlibpath_var, $1)=no ;; # FreeBSD 2.2.[012] allows us to include c++rt0.o to get C++ constructor # support. Future versions do this automatically, but an explicit c++rt0.o # does not break anything, and helps significantly (at the cost of a little # extra space). freebsd2.2*) _LT_TAGVAR(archive_cmds, $1)='$LD -Bshareable -o $lib $libobjs $deplibs $linker_flags /usr/lib/c++rt0.o' _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='-R$libdir' _LT_TAGVAR(hardcode_direct, $1)=yes _LT_TAGVAR(hardcode_shlibpath_var, $1)=no ;; # Unfortunately, older versions of FreeBSD 2 do not have this feature. freebsd2.*) _LT_TAGVAR(archive_cmds, $1)='$LD -Bshareable -o $lib $libobjs $deplibs $linker_flags' _LT_TAGVAR(hardcode_direct, $1)=yes _LT_TAGVAR(hardcode_minus_L, $1)=yes _LT_TAGVAR(hardcode_shlibpath_var, $1)=no ;; # FreeBSD 3 and greater uses gcc -shared to do shared libraries. freebsd* | dragonfly*) _LT_TAGVAR(archive_cmds, $1)='$CC -shared $pic_flag -o $lib $libobjs $deplibs $compiler_flags' _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='-R$libdir' _LT_TAGVAR(hardcode_direct, $1)=yes _LT_TAGVAR(hardcode_shlibpath_var, $1)=no ;; hpux9*) if test yes = "$GCC"; then _LT_TAGVAR(archive_cmds, $1)='$RM $output_objdir/$soname~$CC -shared $pic_flag $wl+b $wl$install_libdir -o $output_objdir/$soname $libobjs $deplibs $compiler_flags~test "x$output_objdir/$soname" = "x$lib" || mv $output_objdir/$soname $lib' else _LT_TAGVAR(archive_cmds, $1)='$RM $output_objdir/$soname~$LD -b +b $install_libdir -o $output_objdir/$soname $libobjs $deplibs $linker_flags~test "x$output_objdir/$soname" = "x$lib" || mv $output_objdir/$soname $lib' fi _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='$wl+b $wl$libdir' _LT_TAGVAR(hardcode_libdir_separator, $1)=: _LT_TAGVAR(hardcode_direct, $1)=yes # hardcode_minus_L: Not really in the search PATH, # but as the default location of the library. _LT_TAGVAR(hardcode_minus_L, $1)=yes _LT_TAGVAR(export_dynamic_flag_spec, $1)='$wl-E' ;; hpux10*) if test yes,no = "$GCC,$with_gnu_ld"; then _LT_TAGVAR(archive_cmds, $1)='$CC -shared $pic_flag $wl+h $wl$soname $wl+b $wl$install_libdir -o $lib $libobjs $deplibs $compiler_flags' else _LT_TAGVAR(archive_cmds, $1)='$LD -b +h $soname +b $install_libdir -o $lib $libobjs $deplibs $linker_flags' fi if test no = "$with_gnu_ld"; then _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='$wl+b $wl$libdir' _LT_TAGVAR(hardcode_libdir_separator, $1)=: _LT_TAGVAR(hardcode_direct, $1)=yes _LT_TAGVAR(hardcode_direct_absolute, $1)=yes _LT_TAGVAR(export_dynamic_flag_spec, $1)='$wl-E' # hardcode_minus_L: Not really in the search PATH, # but as the default location of the library. _LT_TAGVAR(hardcode_minus_L, $1)=yes fi ;; hpux11*) if test yes,no = "$GCC,$with_gnu_ld"; then case $host_cpu in hppa*64*) _LT_TAGVAR(archive_cmds, $1)='$CC -shared $wl+h $wl$soname -o $lib $libobjs $deplibs $compiler_flags' ;; ia64*) _LT_TAGVAR(archive_cmds, $1)='$CC -shared $pic_flag $wl+h $wl$soname $wl+nodefaultrpath -o $lib $libobjs $deplibs $compiler_flags' ;; *) _LT_TAGVAR(archive_cmds, $1)='$CC -shared $pic_flag $wl+h $wl$soname $wl+b $wl$install_libdir -o $lib $libobjs $deplibs $compiler_flags' ;; esac else case $host_cpu in hppa*64*) _LT_TAGVAR(archive_cmds, $1)='$CC -b $wl+h $wl$soname -o $lib $libobjs $deplibs $compiler_flags' ;; ia64*) _LT_TAGVAR(archive_cmds, $1)='$CC -b $wl+h $wl$soname $wl+nodefaultrpath -o $lib $libobjs $deplibs $compiler_flags' ;; *) m4_if($1, [], [ # Older versions of the 11.00 compiler do not understand -b yet # (HP92453-01 A.11.01.20 doesn't, HP92453-01 B.11.X.35175-35176.GP does) _LT_LINKER_OPTION([if $CC understands -b], _LT_TAGVAR(lt_cv_prog_compiler__b, $1), [-b], [_LT_TAGVAR(archive_cmds, $1)='$CC -b $wl+h $wl$soname $wl+b $wl$install_libdir -o $lib $libobjs $deplibs $compiler_flags'], [_LT_TAGVAR(archive_cmds, $1)='$LD -b +h $soname +b $install_libdir -o $lib $libobjs $deplibs $linker_flags'])], [_LT_TAGVAR(archive_cmds, $1)='$CC -b $wl+h $wl$soname $wl+b $wl$install_libdir -o $lib $libobjs $deplibs $compiler_flags']) ;; esac fi if test no = "$with_gnu_ld"; then _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='$wl+b $wl$libdir' _LT_TAGVAR(hardcode_libdir_separator, $1)=: case $host_cpu in hppa*64*|ia64*) _LT_TAGVAR(hardcode_direct, $1)=no _LT_TAGVAR(hardcode_shlibpath_var, $1)=no ;; *) _LT_TAGVAR(hardcode_direct, $1)=yes _LT_TAGVAR(hardcode_direct_absolute, $1)=yes _LT_TAGVAR(export_dynamic_flag_spec, $1)='$wl-E' # hardcode_minus_L: Not really in the search PATH, # but as the default location of the library. _LT_TAGVAR(hardcode_minus_L, $1)=yes ;; esac fi ;; irix5* | irix6* | nonstopux*) if test yes = "$GCC"; then _LT_TAGVAR(archive_cmds, $1)='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags $wl-soname $wl$soname `test -n "$verstring" && func_echo_all "$wl-set_version $wl$verstring"` $wl-update_registry $wl$output_objdir/so_locations -o $lib' # Try to use the -exported_symbol ld option, if it does not # work, assume that -exports_file does not work either and # implicitly export all symbols. # This should be the same for all languages, so no per-tag cache variable. AC_CACHE_CHECK([whether the $host_os linker accepts -exported_symbol], [lt_cv_irix_exported_symbol], [save_LDFLAGS=$LDFLAGS LDFLAGS="$LDFLAGS -shared $wl-exported_symbol ${wl}foo $wl-update_registry $wl/dev/null" AC_LINK_IFELSE( [AC_LANG_SOURCE( [AC_LANG_CASE([C], [[int foo (void) { return 0; }]], [C++], [[int foo (void) { return 0; }]], [Fortran 77], [[ subroutine foo end]], [Fortran], [[ subroutine foo end]])])], [lt_cv_irix_exported_symbol=yes], [lt_cv_irix_exported_symbol=no]) LDFLAGS=$save_LDFLAGS]) if test yes = "$lt_cv_irix_exported_symbol"; then _LT_TAGVAR(archive_expsym_cmds, $1)='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags $wl-soname $wl$soname `test -n "$verstring" && func_echo_all "$wl-set_version $wl$verstring"` $wl-update_registry $wl$output_objdir/so_locations $wl-exports_file $wl$export_symbols -o $lib' fi else _LT_TAGVAR(archive_cmds, $1)='$CC -shared $libobjs $deplibs $compiler_flags -soname $soname `test -n "$verstring" && func_echo_all "-set_version $verstring"` -update_registry $output_objdir/so_locations -o $lib' _LT_TAGVAR(archive_expsym_cmds, $1)='$CC -shared $libobjs $deplibs $compiler_flags -soname $soname `test -n "$verstring" && func_echo_all "-set_version $verstring"` -update_registry $output_objdir/so_locations -exports_file $export_symbols -o $lib' fi _LT_TAGVAR(archive_cmds_need_lc, $1)='no' _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='$wl-rpath $wl$libdir' _LT_TAGVAR(hardcode_libdir_separator, $1)=: _LT_TAGVAR(inherit_rpath, $1)=yes _LT_TAGVAR(link_all_deplibs, $1)=yes ;; linux*) case $cc_basename in tcc*) # Fabrice Bellard et al's Tiny C Compiler _LT_TAGVAR(ld_shlibs, $1)=yes _LT_TAGVAR(archive_cmds, $1)='$CC -shared $pic_flag -o $lib $libobjs $deplibs $compiler_flags' ;; esac ;; netbsd*) if echo __ELF__ | $CC -E - | $GREP __ELF__ >/dev/null; then _LT_TAGVAR(archive_cmds, $1)='$LD -Bshareable -o $lib $libobjs $deplibs $linker_flags' # a.out else _LT_TAGVAR(archive_cmds, $1)='$LD -shared -o $lib $libobjs $deplibs $linker_flags' # ELF fi _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='-R$libdir' _LT_TAGVAR(hardcode_direct, $1)=yes _LT_TAGVAR(hardcode_shlibpath_var, $1)=no ;; newsos6) _LT_TAGVAR(archive_cmds, $1)='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags' _LT_TAGVAR(hardcode_direct, $1)=yes _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='$wl-rpath $wl$libdir' _LT_TAGVAR(hardcode_libdir_separator, $1)=: _LT_TAGVAR(hardcode_shlibpath_var, $1)=no ;; *nto* | *qnx*) ;; openbsd* | bitrig*) if test -f /usr/libexec/ld.so; then _LT_TAGVAR(hardcode_direct, $1)=yes _LT_TAGVAR(hardcode_shlibpath_var, $1)=no _LT_TAGVAR(hardcode_direct_absolute, $1)=yes if test -z "`echo __ELF__ | $CC -E - | $GREP __ELF__`"; then _LT_TAGVAR(archive_cmds, $1)='$CC -shared $pic_flag -o $lib $libobjs $deplibs $compiler_flags' _LT_TAGVAR(archive_expsym_cmds, $1)='$CC -shared $pic_flag -o $lib $libobjs $deplibs $compiler_flags $wl-retain-symbols-file,$export_symbols' _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='$wl-rpath,$libdir' _LT_TAGVAR(export_dynamic_flag_spec, $1)='$wl-E' else _LT_TAGVAR(archive_cmds, $1)='$CC -shared $pic_flag -o $lib $libobjs $deplibs $compiler_flags' _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='$wl-rpath,$libdir' fi else _LT_TAGVAR(ld_shlibs, $1)=no fi ;; os2*) _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='-L$libdir' _LT_TAGVAR(hardcode_minus_L, $1)=yes _LT_TAGVAR(allow_undefined_flag, $1)=unsupported shrext_cmds=.dll _LT_TAGVAR(archive_cmds, $1)='$ECHO "LIBRARY ${soname%$shared_ext} INITINSTANCE TERMINSTANCE" > $output_objdir/$libname.def~ $ECHO "DESCRIPTION \"$libname\"" >> $output_objdir/$libname.def~ $ECHO "DATA MULTIPLE NONSHARED" >> $output_objdir/$libname.def~ $ECHO EXPORTS >> $output_objdir/$libname.def~ emxexp $libobjs | $SED /"_DLL_InitTerm"/d >> $output_objdir/$libname.def~ $CC -Zdll -Zcrtdll -o $output_objdir/$soname $libobjs $deplibs $compiler_flags $output_objdir/$libname.def~ emximp -o $lib $output_objdir/$libname.def' _LT_TAGVAR(archive_expsym_cmds, $1)='$ECHO "LIBRARY ${soname%$shared_ext} INITINSTANCE TERMINSTANCE" > $output_objdir/$libname.def~ $ECHO "DESCRIPTION \"$libname\"" >> $output_objdir/$libname.def~ $ECHO "DATA MULTIPLE NONSHARED" >> $output_objdir/$libname.def~ $ECHO EXPORTS >> $output_objdir/$libname.def~ prefix_cmds="$SED"~ if test EXPORTS = "`$SED 1q $export_symbols`"; then prefix_cmds="$prefix_cmds -e 1d"; fi~ prefix_cmds="$prefix_cmds -e \"s/^\(.*\)$/_\1/g\""~ cat $export_symbols | $prefix_cmds >> $output_objdir/$libname.def~ $CC -Zdll -Zcrtdll -o $output_objdir/$soname $libobjs $deplibs $compiler_flags $output_objdir/$libname.def~ emximp -o $lib $output_objdir/$libname.def' _LT_TAGVAR(old_archive_From_new_cmds, $1)='emximp -o $output_objdir/${libname}_dll.a $output_objdir/$libname.def' _LT_TAGVAR(enable_shared_with_static_runtimes, $1)=yes ;; osf3*) if test yes = "$GCC"; then _LT_TAGVAR(allow_undefined_flag, $1)=' $wl-expect_unresolved $wl\*' _LT_TAGVAR(archive_cmds, $1)='$CC -shared$allow_undefined_flag $libobjs $deplibs $compiler_flags $wl-soname $wl$soname `test -n "$verstring" && func_echo_all "$wl-set_version $wl$verstring"` $wl-update_registry $wl$output_objdir/so_locations -o $lib' else _LT_TAGVAR(allow_undefined_flag, $1)=' -expect_unresolved \*' _LT_TAGVAR(archive_cmds, $1)='$CC -shared$allow_undefined_flag $libobjs $deplibs $compiler_flags -soname $soname `test -n "$verstring" && func_echo_all "-set_version $verstring"` -update_registry $output_objdir/so_locations -o $lib' fi _LT_TAGVAR(archive_cmds_need_lc, $1)='no' _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='$wl-rpath $wl$libdir' _LT_TAGVAR(hardcode_libdir_separator, $1)=: ;; osf4* | osf5*) # as osf3* with the addition of -msym flag if test yes = "$GCC"; then _LT_TAGVAR(allow_undefined_flag, $1)=' $wl-expect_unresolved $wl\*' _LT_TAGVAR(archive_cmds, $1)='$CC -shared$allow_undefined_flag $pic_flag $libobjs $deplibs $compiler_flags $wl-msym $wl-soname $wl$soname `test -n "$verstring" && func_echo_all "$wl-set_version $wl$verstring"` $wl-update_registry $wl$output_objdir/so_locations -o $lib' _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='$wl-rpath $wl$libdir' else _LT_TAGVAR(allow_undefined_flag, $1)=' -expect_unresolved \*' _LT_TAGVAR(archive_cmds, $1)='$CC -shared$allow_undefined_flag $libobjs $deplibs $compiler_flags -msym -soname $soname `test -n "$verstring" && func_echo_all "-set_version $verstring"` -update_registry $output_objdir/so_locations -o $lib' _LT_TAGVAR(archive_expsym_cmds, $1)='for i in `cat $export_symbols`; do printf "%s %s\\n" -exported_symbol "\$i" >> $lib.exp; done; printf "%s\\n" "-hidden">> $lib.exp~ $CC -shared$allow_undefined_flag $wl-input $wl$lib.exp $compiler_flags $libobjs $deplibs -soname $soname `test -n "$verstring" && $ECHO "-set_version $verstring"` -update_registry $output_objdir/so_locations -o $lib~$RM $lib.exp' # Both c and cxx compiler support -rpath directly _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='-rpath $libdir' fi _LT_TAGVAR(archive_cmds_need_lc, $1)='no' _LT_TAGVAR(hardcode_libdir_separator, $1)=: ;; solaris*) _LT_TAGVAR(no_undefined_flag, $1)=' -z defs' if test yes = "$GCC"; then wlarc='$wl' _LT_TAGVAR(archive_cmds, $1)='$CC -shared $pic_flag $wl-z ${wl}text $wl-h $wl$soname -o $lib $libobjs $deplibs $compiler_flags' _LT_TAGVAR(archive_expsym_cmds, $1)='echo "{ global:" > $lib.exp~cat $export_symbols | $SED -e "s/\(.*\)/\1;/" >> $lib.exp~echo "local: *; };" >> $lib.exp~ $CC -shared $pic_flag $wl-z ${wl}text $wl-M $wl$lib.exp $wl-h $wl$soname -o $lib $libobjs $deplibs $compiler_flags~$RM $lib.exp' else case `$CC -V 2>&1` in *"Compilers 5.0"*) wlarc='' _LT_TAGVAR(archive_cmds, $1)='$LD -G$allow_undefined_flag -h $soname -o $lib $libobjs $deplibs $linker_flags' _LT_TAGVAR(archive_expsym_cmds, $1)='echo "{ global:" > $lib.exp~cat $export_symbols | $SED -e "s/\(.*\)/\1;/" >> $lib.exp~echo "local: *; };" >> $lib.exp~ $LD -G$allow_undefined_flag -M $lib.exp -h $soname -o $lib $libobjs $deplibs $linker_flags~$RM $lib.exp' ;; *) wlarc='$wl' _LT_TAGVAR(archive_cmds, $1)='$CC -G$allow_undefined_flag -h $soname -o $lib $libobjs $deplibs $compiler_flags' _LT_TAGVAR(archive_expsym_cmds, $1)='echo "{ global:" > $lib.exp~cat $export_symbols | $SED -e "s/\(.*\)/\1;/" >> $lib.exp~echo "local: *; };" >> $lib.exp~ $CC -G$allow_undefined_flag -M $lib.exp -h $soname -o $lib $libobjs $deplibs $compiler_flags~$RM $lib.exp' ;; esac fi _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='-R$libdir' _LT_TAGVAR(hardcode_shlibpath_var, $1)=no case $host_os in solaris2.[[0-5]] | solaris2.[[0-5]].*) ;; *) # The compiler driver will combine and reorder linker options, # but understands '-z linker_flag'. GCC discards it without '$wl', # but is careful enough not to reorder. # Supported since Solaris 2.6 (maybe 2.5.1?) if test yes = "$GCC"; then _LT_TAGVAR(whole_archive_flag_spec, $1)='$wl-z ${wl}allextract$convenience $wl-z ${wl}defaultextract' else _LT_TAGVAR(whole_archive_flag_spec, $1)='-z allextract$convenience -z defaultextract' fi ;; esac _LT_TAGVAR(link_all_deplibs, $1)=yes ;; sunos4*) if test sequent = "$host_vendor"; then # Use $CC to link under sequent, because it throws in some extra .o # files that make .init and .fini sections work. _LT_TAGVAR(archive_cmds, $1)='$CC -G $wl-h $soname -o $lib $libobjs $deplibs $compiler_flags' else _LT_TAGVAR(archive_cmds, $1)='$LD -assert pure-text -Bstatic -o $lib $libobjs $deplibs $linker_flags' fi _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='-L$libdir' _LT_TAGVAR(hardcode_direct, $1)=yes _LT_TAGVAR(hardcode_minus_L, $1)=yes _LT_TAGVAR(hardcode_shlibpath_var, $1)=no ;; sysv4) case $host_vendor in sni) _LT_TAGVAR(archive_cmds, $1)='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags' _LT_TAGVAR(hardcode_direct, $1)=yes # is this really true??? ;; siemens) ## LD is ld it makes a PLAMLIB ## CC just makes a GrossModule. _LT_TAGVAR(archive_cmds, $1)='$LD -G -o $lib $libobjs $deplibs $linker_flags' _LT_TAGVAR(reload_cmds, $1)='$CC -r -o $output$reload_objs' _LT_TAGVAR(hardcode_direct, $1)=no ;; motorola) _LT_TAGVAR(archive_cmds, $1)='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags' _LT_TAGVAR(hardcode_direct, $1)=no #Motorola manual says yes, but my tests say they lie ;; esac runpath_var='LD_RUN_PATH' _LT_TAGVAR(hardcode_shlibpath_var, $1)=no ;; sysv4.3*) _LT_TAGVAR(archive_cmds, $1)='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags' _LT_TAGVAR(hardcode_shlibpath_var, $1)=no _LT_TAGVAR(export_dynamic_flag_spec, $1)='-Bexport' ;; sysv4*MP*) if test -d /usr/nec; then _LT_TAGVAR(archive_cmds, $1)='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags' _LT_TAGVAR(hardcode_shlibpath_var, $1)=no runpath_var=LD_RUN_PATH hardcode_runpath_var=yes _LT_TAGVAR(ld_shlibs, $1)=yes fi ;; sysv4*uw2* | sysv5OpenUNIX* | sysv5UnixWare7.[[01]].[[10]]* | unixware7* | sco3.2v5.0.[[024]]*) _LT_TAGVAR(no_undefined_flag, $1)='$wl-z,text' _LT_TAGVAR(archive_cmds_need_lc, $1)=no _LT_TAGVAR(hardcode_shlibpath_var, $1)=no runpath_var='LD_RUN_PATH' if test yes = "$GCC"; then _LT_TAGVAR(archive_cmds, $1)='$CC -shared $wl-h,$soname -o $lib $libobjs $deplibs $compiler_flags' _LT_TAGVAR(archive_expsym_cmds, $1)='$CC -shared $wl-Bexport:$export_symbols $wl-h,$soname -o $lib $libobjs $deplibs $compiler_flags' else _LT_TAGVAR(archive_cmds, $1)='$CC -G $wl-h,$soname -o $lib $libobjs $deplibs $compiler_flags' _LT_TAGVAR(archive_expsym_cmds, $1)='$CC -G $wl-Bexport:$export_symbols $wl-h,$soname -o $lib $libobjs $deplibs $compiler_flags' fi ;; sysv5* | sco3.2v5* | sco5v6*) # Note: We CANNOT use -z defs as we might desire, because we do not # link with -lc, and that would cause any symbols used from libc to # always be unresolved, which means just about no library would # ever link correctly. If we're not using GNU ld we use -z text # though, which does catch some bad symbols but isn't as heavy-handed # as -z defs. _LT_TAGVAR(no_undefined_flag, $1)='$wl-z,text' _LT_TAGVAR(allow_undefined_flag, $1)='$wl-z,nodefs' _LT_TAGVAR(archive_cmds_need_lc, $1)=no _LT_TAGVAR(hardcode_shlibpath_var, $1)=no _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='$wl-R,$libdir' _LT_TAGVAR(hardcode_libdir_separator, $1)=':' _LT_TAGVAR(link_all_deplibs, $1)=yes _LT_TAGVAR(export_dynamic_flag_spec, $1)='$wl-Bexport' runpath_var='LD_RUN_PATH' if test yes = "$GCC"; then _LT_TAGVAR(archive_cmds, $1)='$CC -shared $wl-h,$soname -o $lib $libobjs $deplibs $compiler_flags' _LT_TAGVAR(archive_expsym_cmds, $1)='$CC -shared $wl-Bexport:$export_symbols $wl-h,$soname -o $lib $libobjs $deplibs $compiler_flags' else _LT_TAGVAR(archive_cmds, $1)='$CC -G $wl-h,$soname -o $lib $libobjs $deplibs $compiler_flags' _LT_TAGVAR(archive_expsym_cmds, $1)='$CC -G $wl-Bexport:$export_symbols $wl-h,$soname -o $lib $libobjs $deplibs $compiler_flags' fi ;; uts4*) _LT_TAGVAR(archive_cmds, $1)='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags' _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='-L$libdir' _LT_TAGVAR(hardcode_shlibpath_var, $1)=no ;; *) _LT_TAGVAR(ld_shlibs, $1)=no ;; esac if test sni = "$host_vendor"; then case $host in sysv4 | sysv4.2uw2* | sysv4.3* | sysv5*) _LT_TAGVAR(export_dynamic_flag_spec, $1)='$wl-Blargedynsym' ;; esac fi fi ]) AC_MSG_RESULT([$_LT_TAGVAR(ld_shlibs, $1)]) test no = "$_LT_TAGVAR(ld_shlibs, $1)" && can_build_shared=no _LT_TAGVAR(with_gnu_ld, $1)=$with_gnu_ld _LT_DECL([], [libext], [0], [Old archive suffix (normally "a")])dnl _LT_DECL([], [shrext_cmds], [1], [Shared library suffix (normally ".so")])dnl _LT_DECL([], [extract_expsyms_cmds], [2], [The commands to extract the exported symbol list from a shared archive]) # # Do we need to explicitly link libc? # case "x$_LT_TAGVAR(archive_cmds_need_lc, $1)" in x|xyes) # Assume -lc should be added _LT_TAGVAR(archive_cmds_need_lc, $1)=yes if test yes,yes = "$GCC,$enable_shared"; then case $_LT_TAGVAR(archive_cmds, $1) in *'~'*) # FIXME: we may have to deal with multi-command sequences. ;; '$CC '*) # Test whether the compiler implicitly links with -lc since on some # systems, -lgcc has to come before -lc. If gcc already passes -lc # to ld, don't add -lc before -lgcc. AC_CACHE_CHECK([whether -lc should be explicitly linked in], [lt_cv_]_LT_TAGVAR(archive_cmds_need_lc, $1), [$RM conftest* echo "$lt_simple_compile_test_code" > conftest.$ac_ext if AC_TRY_EVAL(ac_compile) 2>conftest.err; then soname=conftest lib=conftest libobjs=conftest.$ac_objext deplibs= wl=$_LT_TAGVAR(lt_prog_compiler_wl, $1) pic_flag=$_LT_TAGVAR(lt_prog_compiler_pic, $1) compiler_flags=-v linker_flags=-v verstring= output_objdir=. libname=conftest lt_save_allow_undefined_flag=$_LT_TAGVAR(allow_undefined_flag, $1) _LT_TAGVAR(allow_undefined_flag, $1)= if AC_TRY_EVAL(_LT_TAGVAR(archive_cmds, $1) 2\>\&1 \| $GREP \" -lc \" \>/dev/null 2\>\&1) then lt_cv_[]_LT_TAGVAR(archive_cmds_need_lc, $1)=no else lt_cv_[]_LT_TAGVAR(archive_cmds_need_lc, $1)=yes fi _LT_TAGVAR(allow_undefined_flag, $1)=$lt_save_allow_undefined_flag else cat conftest.err 1>&5 fi $RM conftest* ]) _LT_TAGVAR(archive_cmds_need_lc, $1)=$lt_cv_[]_LT_TAGVAR(archive_cmds_need_lc, $1) ;; esac fi ;; esac _LT_TAGDECL([build_libtool_need_lc], [archive_cmds_need_lc], [0], [Whether or not to add -lc for building shared libraries]) _LT_TAGDECL([allow_libtool_libs_with_static_runtimes], [enable_shared_with_static_runtimes], [0], [Whether or not to disallow shared libs when runtime libs are static]) _LT_TAGDECL([], [export_dynamic_flag_spec], [1], [Compiler flag to allow reflexive dlopens]) _LT_TAGDECL([], [whole_archive_flag_spec], [1], [Compiler flag to generate shared objects directly from archives]) _LT_TAGDECL([], [compiler_needs_object], [1], [Whether the compiler copes with passing no objects directly]) _LT_TAGDECL([], [old_archive_from_new_cmds], [2], [Create an old-style archive from a shared archive]) _LT_TAGDECL([], [old_archive_from_expsyms_cmds], [2], [Create a temporary old-style archive to link instead of a shared archive]) _LT_TAGDECL([], [archive_cmds], [2], [Commands used to build a shared archive]) _LT_TAGDECL([], [archive_expsym_cmds], [2]) _LT_TAGDECL([], [module_cmds], [2], [Commands used to build a loadable module if different from building a shared archive.]) _LT_TAGDECL([], [module_expsym_cmds], [2]) _LT_TAGDECL([], [with_gnu_ld], [1], [Whether we are building with GNU ld or not]) _LT_TAGDECL([], [allow_undefined_flag], [1], [Flag that allows shared libraries with undefined symbols to be built]) _LT_TAGDECL([], [no_undefined_flag], [1], [Flag that enforces no undefined symbols]) _LT_TAGDECL([], [hardcode_libdir_flag_spec], [1], [Flag to hardcode $libdir into a binary during linking. This must work even if $libdir does not exist]) _LT_TAGDECL([], [hardcode_libdir_separator], [1], [Whether we need a single "-rpath" flag with a separated argument]) _LT_TAGDECL([], [hardcode_direct], [0], [Set to "yes" if using DIR/libNAME$shared_ext during linking hardcodes DIR into the resulting binary]) _LT_TAGDECL([], [hardcode_direct_absolute], [0], [Set to "yes" if using DIR/libNAME$shared_ext during linking hardcodes DIR into the resulting binary and the resulting library dependency is "absolute", i.e impossible to change by setting $shlibpath_var if the library is relocated]) _LT_TAGDECL([], [hardcode_minus_L], [0], [Set to "yes" if using the -LDIR flag during linking hardcodes DIR into the resulting binary]) _LT_TAGDECL([], [hardcode_shlibpath_var], [0], [Set to "yes" if using SHLIBPATH_VAR=DIR during linking hardcodes DIR into the resulting binary]) _LT_TAGDECL([], [hardcode_automatic], [0], [Set to "yes" if building a shared library automatically hardcodes DIR into the library and all subsequent libraries and executables linked against it]) _LT_TAGDECL([], [inherit_rpath], [0], [Set to yes if linker adds runtime paths of dependent libraries to runtime path list]) _LT_TAGDECL([], [link_all_deplibs], [0], [Whether libtool must link a program against all its dependency libraries]) _LT_TAGDECL([], [always_export_symbols], [0], [Set to "yes" if exported symbols are required]) _LT_TAGDECL([], [export_symbols_cmds], [2], [The commands to list exported symbols]) _LT_TAGDECL([], [exclude_expsyms], [1], [Symbols that should not be listed in the preloaded symbols]) _LT_TAGDECL([], [include_expsyms], [1], [Symbols that must always be exported]) _LT_TAGDECL([], [prelink_cmds], [2], [Commands necessary for linking programs (against libraries) with templates]) _LT_TAGDECL([], [postlink_cmds], [2], [Commands necessary for finishing linking programs]) _LT_TAGDECL([], [file_list_spec], [1], [Specify filename containing input files]) dnl FIXME: Not yet implemented dnl _LT_TAGDECL([], [thread_safe_flag_spec], [1], dnl [Compiler flag to generate thread safe objects]) ])# _LT_LINKER_SHLIBS # _LT_LANG_C_CONFIG([TAG]) # ------------------------ # Ensure that the configuration variables for a C compiler are suitably # defined. These variables are subsequently used by _LT_CONFIG to write # the compiler configuration to 'libtool'. m4_defun([_LT_LANG_C_CONFIG], [m4_require([_LT_DECL_EGREP])dnl lt_save_CC=$CC AC_LANG_PUSH(C) # Source file extension for C test sources. ac_ext=c # Object file extension for compiled C test sources. objext=o _LT_TAGVAR(objext, $1)=$objext # Code to be used in simple compile tests lt_simple_compile_test_code="int some_variable = 0;" # Code to be used in simple link tests lt_simple_link_test_code='int main(){return(0);}' _LT_TAG_COMPILER # Save the default compiler, since it gets overwritten when the other # tags are being tested, and _LT_TAGVAR(compiler, []) is a NOP. compiler_DEFAULT=$CC # save warnings/boilerplate of simple test code _LT_COMPILER_BOILERPLATE _LT_LINKER_BOILERPLATE ## CAVEAT EMPTOR: ## There is no encapsulation within the following macros, do not change ## the running order or otherwise move them around unless you know exactly ## what you are doing... if test -n "$compiler"; then _LT_COMPILER_NO_RTTI($1) _LT_COMPILER_PIC($1) _LT_COMPILER_C_O($1) _LT_COMPILER_FILE_LOCKS($1) _LT_LINKER_SHLIBS($1) _LT_SYS_DYNAMIC_LINKER($1) _LT_LINKER_HARDCODE_LIBPATH($1) LT_SYS_DLOPEN_SELF _LT_CMD_STRIPLIB # Report what library types will actually be built AC_MSG_CHECKING([if libtool supports shared libraries]) AC_MSG_RESULT([$can_build_shared]) AC_MSG_CHECKING([whether to build shared libraries]) test no = "$can_build_shared" && enable_shared=no # On AIX, shared libraries and static libraries use the same namespace, and # are all built from PIC. case $host_os in aix3*) test yes = "$enable_shared" && enable_static=no if test -n "$RANLIB"; then archive_cmds="$archive_cmds~\$RANLIB \$lib" postinstall_cmds='$RANLIB $lib' fi ;; aix[[4-9]]*) if test ia64 != "$host_cpu"; then case $enable_shared,$with_aix_soname,$aix_use_runtimelinking in yes,aix,yes) ;; # shared object as lib.so file only yes,svr4,*) ;; # shared object as lib.so archive member only yes,*) enable_static=no ;; # shared object in lib.a archive as well esac fi ;; esac AC_MSG_RESULT([$enable_shared]) AC_MSG_CHECKING([whether to build static libraries]) # Make sure either enable_shared or enable_static is yes. test yes = "$enable_shared" || enable_static=yes AC_MSG_RESULT([$enable_static]) _LT_CONFIG($1) fi AC_LANG_POP CC=$lt_save_CC ])# _LT_LANG_C_CONFIG # _LT_LANG_CXX_CONFIG([TAG]) # -------------------------- # Ensure that the configuration variables for a C++ compiler are suitably # defined. These variables are subsequently used by _LT_CONFIG to write # the compiler configuration to 'libtool'. m4_defun([_LT_LANG_CXX_CONFIG], [m4_require([_LT_FILEUTILS_DEFAULTS])dnl m4_require([_LT_DECL_EGREP])dnl m4_require([_LT_PATH_MANIFEST_TOOL])dnl if test -n "$CXX" && ( test no != "$CXX" && ( (test g++ = "$CXX" && `g++ -v >/dev/null 2>&1` ) || (test g++ != "$CXX"))); then AC_PROG_CXXCPP else _lt_caught_CXX_error=yes fi AC_LANG_PUSH(C++) _LT_TAGVAR(archive_cmds_need_lc, $1)=no _LT_TAGVAR(allow_undefined_flag, $1)= _LT_TAGVAR(always_export_symbols, $1)=no _LT_TAGVAR(archive_expsym_cmds, $1)= _LT_TAGVAR(compiler_needs_object, $1)=no _LT_TAGVAR(export_dynamic_flag_spec, $1)= _LT_TAGVAR(hardcode_direct, $1)=no _LT_TAGVAR(hardcode_direct_absolute, $1)=no _LT_TAGVAR(hardcode_libdir_flag_spec, $1)= _LT_TAGVAR(hardcode_libdir_separator, $1)= _LT_TAGVAR(hardcode_minus_L, $1)=no _LT_TAGVAR(hardcode_shlibpath_var, $1)=unsupported _LT_TAGVAR(hardcode_automatic, $1)=no _LT_TAGVAR(inherit_rpath, $1)=no _LT_TAGVAR(module_cmds, $1)= _LT_TAGVAR(module_expsym_cmds, $1)= _LT_TAGVAR(link_all_deplibs, $1)=unknown _LT_TAGVAR(old_archive_cmds, $1)=$old_archive_cmds _LT_TAGVAR(reload_flag, $1)=$reload_flag _LT_TAGVAR(reload_cmds, $1)=$reload_cmds _LT_TAGVAR(no_undefined_flag, $1)= _LT_TAGVAR(whole_archive_flag_spec, $1)= _LT_TAGVAR(enable_shared_with_static_runtimes, $1)=no # Source file extension for C++ test sources. ac_ext=cpp # Object file extension for compiled C++ test sources. objext=o _LT_TAGVAR(objext, $1)=$objext # No sense in running all these tests if we already determined that # the CXX compiler isn't working. Some variables (like enable_shared) # are currently assumed to apply to all compilers on this platform, # and will be corrupted by setting them based on a non-working compiler. if test yes != "$_lt_caught_CXX_error"; then # Code to be used in simple compile tests lt_simple_compile_test_code="int some_variable = 0;" # Code to be used in simple link tests lt_simple_link_test_code='int main(int, char *[[]]) { return(0); }' # ltmain only uses $CC for tagged configurations so make sure $CC is set. _LT_TAG_COMPILER # save warnings/boilerplate of simple test code _LT_COMPILER_BOILERPLATE _LT_LINKER_BOILERPLATE # Allow CC to be a program name with arguments. lt_save_CC=$CC lt_save_CFLAGS=$CFLAGS lt_save_LD=$LD lt_save_GCC=$GCC GCC=$GXX lt_save_with_gnu_ld=$with_gnu_ld lt_save_path_LD=$lt_cv_path_LD if test -n "${lt_cv_prog_gnu_ldcxx+set}"; then lt_cv_prog_gnu_ld=$lt_cv_prog_gnu_ldcxx else $as_unset lt_cv_prog_gnu_ld fi if test -n "${lt_cv_path_LDCXX+set}"; then lt_cv_path_LD=$lt_cv_path_LDCXX else $as_unset lt_cv_path_LD fi test -z "${LDCXX+set}" || LD=$LDCXX CC=${CXX-"c++"} CFLAGS=$CXXFLAGS compiler=$CC _LT_TAGVAR(compiler, $1)=$CC _LT_CC_BASENAME([$compiler]) if test -n "$compiler"; then # We don't want -fno-exception when compiling C++ code, so set the # no_builtin_flag separately if test yes = "$GXX"; then _LT_TAGVAR(lt_prog_compiler_no_builtin_flag, $1)=' -fno-builtin' else _LT_TAGVAR(lt_prog_compiler_no_builtin_flag, $1)= fi if test yes = "$GXX"; then # Set up default GNU C++ configuration LT_PATH_LD # Check if GNU C++ uses GNU ld as the underlying linker, since the # archiving commands below assume that GNU ld is being used. if test yes = "$with_gnu_ld"; then _LT_TAGVAR(archive_cmds, $1)='$CC $pic_flag -shared -nostdlib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags $wl-soname $wl$soname -o $lib' _LT_TAGVAR(archive_expsym_cmds, $1)='$CC $pic_flag -shared -nostdlib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags $wl-soname $wl$soname $wl-retain-symbols-file $wl$export_symbols -o $lib' _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='$wl-rpath $wl$libdir' _LT_TAGVAR(export_dynamic_flag_spec, $1)='$wl--export-dynamic' # If archive_cmds runs LD, not CC, wlarc should be empty # XXX I think wlarc can be eliminated in ltcf-cxx, but I need to # investigate it a little bit more. (MM) wlarc='$wl' # ancient GNU ld didn't support --whole-archive et. al. if eval "`$CC -print-prog-name=ld` --help 2>&1" | $GREP 'no-whole-archive' > /dev/null; then _LT_TAGVAR(whole_archive_flag_spec, $1)=$wlarc'--whole-archive$convenience '$wlarc'--no-whole-archive' else _LT_TAGVAR(whole_archive_flag_spec, $1)= fi else with_gnu_ld=no wlarc= # A generic and very simple default shared library creation # command for GNU C++ for the case where it uses the native # linker, instead of GNU ld. If possible, this setting should # overridden to take advantage of the native linker features on # the platform it is being used on. _LT_TAGVAR(archive_cmds, $1)='$CC -shared -nostdlib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags -o $lib' fi # Commands to make compiler produce verbose output that lists # what "hidden" libraries, object files and flags are used when # linking a shared library. output_verbose_link_cmd='$CC -shared $CFLAGS -v conftest.$objext 2>&1 | $GREP -v "^Configured with:" | $GREP "\-L"' else GXX=no with_gnu_ld=no wlarc= fi # PORTME: fill in a description of your system's C++ link characteristics AC_MSG_CHECKING([whether the $compiler linker ($LD) supports shared libraries]) _LT_TAGVAR(ld_shlibs, $1)=yes case $host_os in aix3*) # FIXME: insert proper C++ library support _LT_TAGVAR(ld_shlibs, $1)=no ;; aix[[4-9]]*) if test ia64 = "$host_cpu"; then # On IA64, the linker does run time linking by default, so we don't # have to do anything special. aix_use_runtimelinking=no exp_sym_flag='-Bexport' no_entry_flag= else aix_use_runtimelinking=no # Test if we are trying to use run time linking or normal # AIX style linking. If -brtl is somewhere in LDFLAGS, we # have runtime linking enabled, and use it for executables. # For shared libraries, we enable/disable runtime linking # depending on the kind of the shared library created - # when "with_aix_soname,aix_use_runtimelinking" is: # "aix,no" lib.a(lib.so.V) shared, rtl:no, for executables # "aix,yes" lib.so shared, rtl:yes, for executables # lib.a static archive # "both,no" lib.so.V(shr.o) shared, rtl:yes # lib.a(lib.so.V) shared, rtl:no, for executables # "both,yes" lib.so.V(shr.o) shared, rtl:yes, for executables # lib.a(lib.so.V) shared, rtl:no # "svr4,*" lib.so.V(shr.o) shared, rtl:yes, for executables # lib.a static archive case $host_os in aix4.[[23]]|aix4.[[23]].*|aix[[5-9]]*) for ld_flag in $LDFLAGS; do case $ld_flag in *-brtl*) aix_use_runtimelinking=yes break ;; esac done if test svr4,no = "$with_aix_soname,$aix_use_runtimelinking"; then # With aix-soname=svr4, we create the lib.so.V shared archives only, # so we don't have lib.a shared libs to link our executables. # We have to force runtime linking in this case. aix_use_runtimelinking=yes LDFLAGS="$LDFLAGS -Wl,-brtl" fi ;; esac exp_sym_flag='-bexport' no_entry_flag='-bnoentry' fi # When large executables or shared objects are built, AIX ld can # have problems creating the table of contents. If linking a library # or program results in "error TOC overflow" add -mminimal-toc to # CXXFLAGS/CFLAGS for g++/gcc. In the cases where that is not # enough to fix the problem, add -Wl,-bbigtoc to LDFLAGS. _LT_TAGVAR(archive_cmds, $1)='' _LT_TAGVAR(hardcode_direct, $1)=yes _LT_TAGVAR(hardcode_direct_absolute, $1)=yes _LT_TAGVAR(hardcode_libdir_separator, $1)=':' _LT_TAGVAR(link_all_deplibs, $1)=yes _LT_TAGVAR(file_list_spec, $1)='$wl-f,' case $with_aix_soname,$aix_use_runtimelinking in aix,*) ;; # no import file svr4,* | *,yes) # use import file # The Import File defines what to hardcode. _LT_TAGVAR(hardcode_direct, $1)=no _LT_TAGVAR(hardcode_direct_absolute, $1)=no ;; esac if test yes = "$GXX"; then case $host_os in aix4.[[012]]|aix4.[[012]].*) # We only want to do this on AIX 4.2 and lower, the check # below for broken collect2 doesn't work under 4.3+ collect2name=`$CC -print-prog-name=collect2` if test -f "$collect2name" && strings "$collect2name" | $GREP resolve_lib_name >/dev/null then # We have reworked collect2 : else # We have old collect2 _LT_TAGVAR(hardcode_direct, $1)=unsupported # It fails to find uninstalled libraries when the uninstalled # path is not listed in the libpath. Setting hardcode_minus_L # to unsupported forces relinking _LT_TAGVAR(hardcode_minus_L, $1)=yes _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='-L$libdir' _LT_TAGVAR(hardcode_libdir_separator, $1)= fi esac shared_flag='-shared' if test yes = "$aix_use_runtimelinking"; then shared_flag=$shared_flag' $wl-G' fi # Need to ensure runtime linking is disabled for the traditional # shared library, or the linker may eventually find shared libraries # /with/ Import File - we do not want to mix them. shared_flag_aix='-shared' shared_flag_svr4='-shared $wl-G' else # not using gcc if test ia64 = "$host_cpu"; then # VisualAge C++, Version 5.5 for AIX 5L for IA-64, Beta 3 Release # chokes on -Wl,-G. The following line is correct: shared_flag='-G' else if test yes = "$aix_use_runtimelinking"; then shared_flag='$wl-G' else shared_flag='$wl-bM:SRE' fi shared_flag_aix='$wl-bM:SRE' shared_flag_svr4='$wl-G' fi fi _LT_TAGVAR(export_dynamic_flag_spec, $1)='$wl-bexpall' # It seems that -bexpall does not export symbols beginning with # underscore (_), so it is better to generate a list of symbols to # export. _LT_TAGVAR(always_export_symbols, $1)=yes if test aix,yes = "$with_aix_soname,$aix_use_runtimelinking"; then # Warning - without using the other runtime loading flags (-brtl), # -berok will link without error, but may produce a broken library. # The "-G" linker flag allows undefined symbols. _LT_TAGVAR(no_undefined_flag, $1)='-bernotok' # Determine the default libpath from the value encoded in an empty # executable. _LT_SYS_MODULE_PATH_AIX([$1]) _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='$wl-blibpath:$libdir:'"$aix_libpath" _LT_TAGVAR(archive_expsym_cmds, $1)='$CC -o $output_objdir/$soname $libobjs $deplibs $wl'$no_entry_flag' $compiler_flags `if test -n "$allow_undefined_flag"; then func_echo_all "$wl$allow_undefined_flag"; else :; fi` $wl'$exp_sym_flag:\$export_symbols' '$shared_flag else if test ia64 = "$host_cpu"; then _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='$wl-R $libdir:/usr/lib:/lib' _LT_TAGVAR(allow_undefined_flag, $1)="-z nodefs" _LT_TAGVAR(archive_expsym_cmds, $1)="\$CC $shared_flag"' -o $output_objdir/$soname $libobjs $deplibs '"\$wl$no_entry_flag"' $compiler_flags $wl$allow_undefined_flag '"\$wl$exp_sym_flag:\$export_symbols" else # Determine the default libpath from the value encoded in an # empty executable. _LT_SYS_MODULE_PATH_AIX([$1]) _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='$wl-blibpath:$libdir:'"$aix_libpath" # Warning - without using the other run time loading flags, # -berok will link without error, but may produce a broken library. _LT_TAGVAR(no_undefined_flag, $1)=' $wl-bernotok' _LT_TAGVAR(allow_undefined_flag, $1)=' $wl-berok' if test yes = "$with_gnu_ld"; then # We only use this code for GNU lds that support --whole-archive. _LT_TAGVAR(whole_archive_flag_spec, $1)='$wl--whole-archive$convenience $wl--no-whole-archive' else # Exported symbols can be pulled into shared objects from archives _LT_TAGVAR(whole_archive_flag_spec, $1)='$convenience' fi _LT_TAGVAR(archive_cmds_need_lc, $1)=yes _LT_TAGVAR(archive_expsym_cmds, $1)='$RM -r $output_objdir/$realname.d~$MKDIR $output_objdir/$realname.d' # -brtl affects multiple linker settings, -berok does not and is overridden later compiler_flags_filtered='`func_echo_all "$compiler_flags " | $SED -e "s%-brtl\\([[, ]]\\)%-berok\\1%g"`' if test svr4 != "$with_aix_soname"; then # This is similar to how AIX traditionally builds its shared # libraries. Need -bnortl late, we may have -brtl in LDFLAGS. _LT_TAGVAR(archive_expsym_cmds, $1)="$_LT_TAGVAR(archive_expsym_cmds, $1)"'~$CC '$shared_flag_aix' -o $output_objdir/$realname.d/$soname $libobjs $deplibs $wl-bnoentry '$compiler_flags_filtered'$wl-bE:$export_symbols$allow_undefined_flag~$AR $AR_FLAGS $output_objdir/$libname$release.a $output_objdir/$realname.d/$soname' fi if test aix != "$with_aix_soname"; then _LT_TAGVAR(archive_expsym_cmds, $1)="$_LT_TAGVAR(archive_expsym_cmds, $1)"'~$CC '$shared_flag_svr4' -o $output_objdir/$realname.d/$shared_archive_member_spec.o $libobjs $deplibs $wl-bnoentry '$compiler_flags_filtered'$wl-bE:$export_symbols$allow_undefined_flag~$STRIP -e $output_objdir/$realname.d/$shared_archive_member_spec.o~( func_echo_all "#! $soname($shared_archive_member_spec.o)"; if test shr_64 = "$shared_archive_member_spec"; then func_echo_all "# 64"; else func_echo_all "# 32"; fi; cat $export_symbols ) > $output_objdir/$realname.d/$shared_archive_member_spec.imp~$AR $AR_FLAGS $output_objdir/$soname $output_objdir/$realname.d/$shared_archive_member_spec.o $output_objdir/$realname.d/$shared_archive_member_spec.imp' else # used by -dlpreopen to get the symbols _LT_TAGVAR(archive_expsym_cmds, $1)="$_LT_TAGVAR(archive_expsym_cmds, $1)"'~$MV $output_objdir/$realname.d/$soname $output_objdir' fi _LT_TAGVAR(archive_expsym_cmds, $1)="$_LT_TAGVAR(archive_expsym_cmds, $1)"'~$RM -r $output_objdir/$realname.d' fi fi ;; beos*) if $LD --help 2>&1 | $GREP ': supported targets:.* elf' > /dev/null; then _LT_TAGVAR(allow_undefined_flag, $1)=unsupported # Joseph Beckenbach says some releases of gcc # support --undefined. This deserves some investigation. FIXME _LT_TAGVAR(archive_cmds, $1)='$CC -nostart $libobjs $deplibs $compiler_flags $wl-soname $wl$soname -o $lib' else _LT_TAGVAR(ld_shlibs, $1)=no fi ;; chorus*) case $cc_basename in *) # FIXME: insert proper C++ library support _LT_TAGVAR(ld_shlibs, $1)=no ;; esac ;; cygwin* | mingw* | pw32* | cegcc*) case $GXX,$cc_basename in ,cl* | no,cl*) # Native MSVC # hardcode_libdir_flag_spec is actually meaningless, as there is # no search path for DLLs. _LT_TAGVAR(hardcode_libdir_flag_spec, $1)=' ' _LT_TAGVAR(allow_undefined_flag, $1)=unsupported _LT_TAGVAR(always_export_symbols, $1)=yes _LT_TAGVAR(file_list_spec, $1)='@' # Tell ltmain to make .lib files, not .a files. libext=lib # Tell ltmain to make .dll files, not .so files. shrext_cmds=.dll # FIXME: Setting linknames here is a bad hack. _LT_TAGVAR(archive_cmds, $1)='$CC -o $output_objdir/$soname $libobjs $compiler_flags $deplibs -Wl,-DLL,-IMPLIB:"$tool_output_objdir$libname.dll.lib"~linknames=' _LT_TAGVAR(archive_expsym_cmds, $1)='if _LT_DLL_DEF_P([$export_symbols]); then cp "$export_symbols" "$output_objdir/$soname.def"; echo "$tool_output_objdir$soname.def" > "$output_objdir/$soname.exp"; else $SED -e '\''s/^/-link -EXPORT:/'\'' < $export_symbols > $output_objdir/$soname.exp; fi~ $CC -o $tool_output_objdir$soname $libobjs $compiler_flags $deplibs "@$tool_output_objdir$soname.exp" -Wl,-DLL,-IMPLIB:"$tool_output_objdir$libname.dll.lib"~ linknames=' # The linker will not automatically build a static lib if we build a DLL. # _LT_TAGVAR(old_archive_from_new_cmds, $1)='true' _LT_TAGVAR(enable_shared_with_static_runtimes, $1)=yes # Don't use ranlib _LT_TAGVAR(old_postinstall_cmds, $1)='chmod 644 $oldlib' _LT_TAGVAR(postlink_cmds, $1)='lt_outputfile="@OUTPUT@"~ lt_tool_outputfile="@TOOL_OUTPUT@"~ case $lt_outputfile in *.exe|*.EXE) ;; *) lt_outputfile=$lt_outputfile.exe lt_tool_outputfile=$lt_tool_outputfile.exe ;; esac~ func_to_tool_file "$lt_outputfile"~ if test : != "$MANIFEST_TOOL" && test -f "$lt_outputfile.manifest"; then $MANIFEST_TOOL -manifest "$lt_tool_outputfile.manifest" -outputresource:"$lt_tool_outputfile" || exit 1; $RM "$lt_outputfile.manifest"; fi' ;; *) # g++ # _LT_TAGVAR(hardcode_libdir_flag_spec, $1) is actually meaningless, # as there is no search path for DLLs. _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='-L$libdir' _LT_TAGVAR(export_dynamic_flag_spec, $1)='$wl--export-all-symbols' _LT_TAGVAR(allow_undefined_flag, $1)=unsupported _LT_TAGVAR(always_export_symbols, $1)=no _LT_TAGVAR(enable_shared_with_static_runtimes, $1)=yes if $LD --help 2>&1 | $GREP 'auto-import' > /dev/null; then _LT_TAGVAR(archive_cmds, $1)='$CC -shared -nostdlib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags -o $output_objdir/$soname $wl--enable-auto-image-base -Xlinker --out-implib -Xlinker $lib' # If the export-symbols file already is a .def file, use it as # is; otherwise, prepend EXPORTS... _LT_TAGVAR(archive_expsym_cmds, $1)='if _LT_DLL_DEF_P([$export_symbols]); then cp $export_symbols $output_objdir/$soname.def; else echo EXPORTS > $output_objdir/$soname.def; cat $export_symbols >> $output_objdir/$soname.def; fi~ $CC -shared -nostdlib $output_objdir/$soname.def $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags -o $output_objdir/$soname $wl--enable-auto-image-base -Xlinker --out-implib -Xlinker $lib' else _LT_TAGVAR(ld_shlibs, $1)=no fi ;; esac ;; darwin* | rhapsody*) _LT_DARWIN_LINKER_FEATURES($1) ;; os2*) _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='-L$libdir' _LT_TAGVAR(hardcode_minus_L, $1)=yes _LT_TAGVAR(allow_undefined_flag, $1)=unsupported shrext_cmds=.dll _LT_TAGVAR(archive_cmds, $1)='$ECHO "LIBRARY ${soname%$shared_ext} INITINSTANCE TERMINSTANCE" > $output_objdir/$libname.def~ $ECHO "DESCRIPTION \"$libname\"" >> $output_objdir/$libname.def~ $ECHO "DATA MULTIPLE NONSHARED" >> $output_objdir/$libname.def~ $ECHO EXPORTS >> $output_objdir/$libname.def~ emxexp $libobjs | $SED /"_DLL_InitTerm"/d >> $output_objdir/$libname.def~ $CC -Zdll -Zcrtdll -o $output_objdir/$soname $libobjs $deplibs $compiler_flags $output_objdir/$libname.def~ emximp -o $lib $output_objdir/$libname.def' _LT_TAGVAR(archive_expsym_cmds, $1)='$ECHO "LIBRARY ${soname%$shared_ext} INITINSTANCE TERMINSTANCE" > $output_objdir/$libname.def~ $ECHO "DESCRIPTION \"$libname\"" >> $output_objdir/$libname.def~ $ECHO "DATA MULTIPLE NONSHARED" >> $output_objdir/$libname.def~ $ECHO EXPORTS >> $output_objdir/$libname.def~ prefix_cmds="$SED"~ if test EXPORTS = "`$SED 1q $export_symbols`"; then prefix_cmds="$prefix_cmds -e 1d"; fi~ prefix_cmds="$prefix_cmds -e \"s/^\(.*\)$/_\1/g\""~ cat $export_symbols | $prefix_cmds >> $output_objdir/$libname.def~ $CC -Zdll -Zcrtdll -o $output_objdir/$soname $libobjs $deplibs $compiler_flags $output_objdir/$libname.def~ emximp -o $lib $output_objdir/$libname.def' _LT_TAGVAR(old_archive_From_new_cmds, $1)='emximp -o $output_objdir/${libname}_dll.a $output_objdir/$libname.def' _LT_TAGVAR(enable_shared_with_static_runtimes, $1)=yes ;; dgux*) case $cc_basename in ec++*) # FIXME: insert proper C++ library support _LT_TAGVAR(ld_shlibs, $1)=no ;; ghcx*) # Green Hills C++ Compiler # FIXME: insert proper C++ library support _LT_TAGVAR(ld_shlibs, $1)=no ;; *) # FIXME: insert proper C++ library support _LT_TAGVAR(ld_shlibs, $1)=no ;; esac ;; freebsd2.*) # C++ shared libraries reported to be fairly broken before # switch to ELF _LT_TAGVAR(ld_shlibs, $1)=no ;; freebsd-elf*) _LT_TAGVAR(archive_cmds_need_lc, $1)=no ;; freebsd* | dragonfly*) # FreeBSD 3 and later use GNU C++ and GNU ld with standard ELF # conventions _LT_TAGVAR(ld_shlibs, $1)=yes ;; haiku*) _LT_TAGVAR(archive_cmds, $1)='$CC -shared $libobjs $deplibs $compiler_flags $wl-soname $wl$soname -o $lib' _LT_TAGVAR(link_all_deplibs, $1)=yes ;; hpux9*) _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='$wl+b $wl$libdir' _LT_TAGVAR(hardcode_libdir_separator, $1)=: _LT_TAGVAR(export_dynamic_flag_spec, $1)='$wl-E' _LT_TAGVAR(hardcode_direct, $1)=yes _LT_TAGVAR(hardcode_minus_L, $1)=yes # Not in the search PATH, # but as the default # location of the library. case $cc_basename in CC*) # FIXME: insert proper C++ library support _LT_TAGVAR(ld_shlibs, $1)=no ;; aCC*) _LT_TAGVAR(archive_cmds, $1)='$RM $output_objdir/$soname~$CC -b $wl+b $wl$install_libdir -o $output_objdir/$soname $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags~test "x$output_objdir/$soname" = "x$lib" || mv $output_objdir/$soname $lib' # Commands to make compiler produce verbose output that lists # what "hidden" libraries, object files and flags are used when # linking a shared library. # # There doesn't appear to be a way to prevent this compiler from # explicitly linking system object files so we need to strip them # from the output so that they don't get included in the library # dependencies. output_verbose_link_cmd='templist=`($CC -b $CFLAGS -v conftest.$objext 2>&1) | $EGREP "\-L"`; list= ; for z in $templist; do case $z in conftest.$objext) list="$list $z";; *.$objext);; *) list="$list $z";;esac; done; func_echo_all "$list"' ;; *) if test yes = "$GXX"; then _LT_TAGVAR(archive_cmds, $1)='$RM $output_objdir/$soname~$CC -shared -nostdlib $pic_flag $wl+b $wl$install_libdir -o $output_objdir/$soname $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags~test "x$output_objdir/$soname" = "x$lib" || mv $output_objdir/$soname $lib' else # FIXME: insert proper C++ library support _LT_TAGVAR(ld_shlibs, $1)=no fi ;; esac ;; hpux10*|hpux11*) if test no = "$with_gnu_ld"; then _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='$wl+b $wl$libdir' _LT_TAGVAR(hardcode_libdir_separator, $1)=: case $host_cpu in hppa*64*|ia64*) ;; *) _LT_TAGVAR(export_dynamic_flag_spec, $1)='$wl-E' ;; esac fi case $host_cpu in hppa*64*|ia64*) _LT_TAGVAR(hardcode_direct, $1)=no _LT_TAGVAR(hardcode_shlibpath_var, $1)=no ;; *) _LT_TAGVAR(hardcode_direct, $1)=yes _LT_TAGVAR(hardcode_direct_absolute, $1)=yes _LT_TAGVAR(hardcode_minus_L, $1)=yes # Not in the search PATH, # but as the default # location of the library. ;; esac case $cc_basename in CC*) # FIXME: insert proper C++ library support _LT_TAGVAR(ld_shlibs, $1)=no ;; aCC*) case $host_cpu in hppa*64*) _LT_TAGVAR(archive_cmds, $1)='$CC -b $wl+h $wl$soname -o $lib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags' ;; ia64*) _LT_TAGVAR(archive_cmds, $1)='$CC -b $wl+h $wl$soname $wl+nodefaultrpath -o $lib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags' ;; *) _LT_TAGVAR(archive_cmds, $1)='$CC -b $wl+h $wl$soname $wl+b $wl$install_libdir -o $lib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags' ;; esac # Commands to make compiler produce verbose output that lists # what "hidden" libraries, object files and flags are used when # linking a shared library. # # There doesn't appear to be a way to prevent this compiler from # explicitly linking system object files so we need to strip them # from the output so that they don't get included in the library # dependencies. output_verbose_link_cmd='templist=`($CC -b $CFLAGS -v conftest.$objext 2>&1) | $GREP "\-L"`; list= ; for z in $templist; do case $z in conftest.$objext) list="$list $z";; *.$objext);; *) list="$list $z";;esac; done; func_echo_all "$list"' ;; *) if test yes = "$GXX"; then if test no = "$with_gnu_ld"; then case $host_cpu in hppa*64*) _LT_TAGVAR(archive_cmds, $1)='$CC -shared -nostdlib -fPIC $wl+h $wl$soname -o $lib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags' ;; ia64*) _LT_TAGVAR(archive_cmds, $1)='$CC -shared -nostdlib $pic_flag $wl+h $wl$soname $wl+nodefaultrpath -o $lib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags' ;; *) _LT_TAGVAR(archive_cmds, $1)='$CC -shared -nostdlib $pic_flag $wl+h $wl$soname $wl+b $wl$install_libdir -o $lib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags' ;; esac fi else # FIXME: insert proper C++ library support _LT_TAGVAR(ld_shlibs, $1)=no fi ;; esac ;; interix[[3-9]]*) _LT_TAGVAR(hardcode_direct, $1)=no _LT_TAGVAR(hardcode_shlibpath_var, $1)=no _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='$wl-rpath,$libdir' _LT_TAGVAR(export_dynamic_flag_spec, $1)='$wl-E' # Hack: On Interix 3.x, we cannot compile PIC because of a broken gcc. # Instead, shared libraries are loaded at an image base (0x10000000 by # default) and relocated if they conflict, which is a slow very memory # consuming and fragmenting process. To avoid this, we pick a random, # 256 KiB-aligned image base between 0x50000000 and 0x6FFC0000 at link # time. Moving up from 0x10000000 also allows more sbrk(2) space. _LT_TAGVAR(archive_cmds, $1)='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags $wl-h,$soname $wl--image-base,`expr ${RANDOM-$$} % 4096 / 2 \* 262144 + 1342177280` -o $lib' _LT_TAGVAR(archive_expsym_cmds, $1)='sed "s|^|_|" $export_symbols >$output_objdir/$soname.expsym~$CC -shared $pic_flag $libobjs $deplibs $compiler_flags $wl-h,$soname $wl--retain-symbols-file,$output_objdir/$soname.expsym $wl--image-base,`expr ${RANDOM-$$} % 4096 / 2 \* 262144 + 1342177280` -o $lib' ;; irix5* | irix6*) case $cc_basename in CC*) # SGI C++ _LT_TAGVAR(archive_cmds, $1)='$CC -shared -all -multigot $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags -soname $soname `test -n "$verstring" && func_echo_all "-set_version $verstring"` -update_registry $output_objdir/so_locations -o $lib' # Archives containing C++ object files must be created using # "CC -ar", where "CC" is the IRIX C++ compiler. This is # necessary to make sure instantiated templates are included # in the archive. _LT_TAGVAR(old_archive_cmds, $1)='$CC -ar -WR,-u -o $oldlib $oldobjs' ;; *) if test yes = "$GXX"; then if test no = "$with_gnu_ld"; then _LT_TAGVAR(archive_cmds, $1)='$CC -shared $pic_flag -nostdlib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags $wl-soname $wl$soname `test -n "$verstring" && func_echo_all "$wl-set_version $wl$verstring"` $wl-update_registry $wl$output_objdir/so_locations -o $lib' else _LT_TAGVAR(archive_cmds, $1)='$CC -shared $pic_flag -nostdlib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags $wl-soname $wl$soname `test -n "$verstring" && func_echo_all "$wl-set_version $wl$verstring"` -o $lib' fi fi _LT_TAGVAR(link_all_deplibs, $1)=yes ;; esac _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='$wl-rpath $wl$libdir' _LT_TAGVAR(hardcode_libdir_separator, $1)=: _LT_TAGVAR(inherit_rpath, $1)=yes ;; linux* | k*bsd*-gnu | kopensolaris*-gnu | gnu*) case $cc_basename in KCC*) # Kuck and Associates, Inc. (KAI) C++ Compiler # KCC will only create a shared library if the output file # ends with ".so" (or ".sl" for HP-UX), so rename the library # to its proper name (with version) after linking. _LT_TAGVAR(archive_cmds, $1)='tempext=`echo $shared_ext | $SED -e '\''s/\([[^()0-9A-Za-z{}]]\)/\\\\\1/g'\''`; templib=`echo $lib | $SED -e "s/\$tempext\..*/.so/"`; $CC $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags --soname $soname -o \$templib; mv \$templib $lib' _LT_TAGVAR(archive_expsym_cmds, $1)='tempext=`echo $shared_ext | $SED -e '\''s/\([[^()0-9A-Za-z{}]]\)/\\\\\1/g'\''`; templib=`echo $lib | $SED -e "s/\$tempext\..*/.so/"`; $CC $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags --soname $soname -o \$templib $wl-retain-symbols-file,$export_symbols; mv \$templib $lib' # Commands to make compiler produce verbose output that lists # what "hidden" libraries, object files and flags are used when # linking a shared library. # # There doesn't appear to be a way to prevent this compiler from # explicitly linking system object files so we need to strip them # from the output so that they don't get included in the library # dependencies. output_verbose_link_cmd='templist=`$CC $CFLAGS -v conftest.$objext -o libconftest$shared_ext 2>&1 | $GREP "ld"`; rm -f libconftest$shared_ext; list= ; for z in $templist; do case $z in conftest.$objext) list="$list $z";; *.$objext);; *) list="$list $z";;esac; done; func_echo_all "$list"' _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='$wl-rpath,$libdir' _LT_TAGVAR(export_dynamic_flag_spec, $1)='$wl--export-dynamic' # Archives containing C++ object files must be created using # "CC -Bstatic", where "CC" is the KAI C++ compiler. _LT_TAGVAR(old_archive_cmds, $1)='$CC -Bstatic -o $oldlib $oldobjs' ;; icpc* | ecpc* ) # Intel C++ with_gnu_ld=yes # version 8.0 and above of icpc choke on multiply defined symbols # if we add $predep_objects and $postdep_objects, however 7.1 and # earlier do not add the objects themselves. case `$CC -V 2>&1` in *"Version 7."*) _LT_TAGVAR(archive_cmds, $1)='$CC -shared $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags $wl-soname $wl$soname -o $lib' _LT_TAGVAR(archive_expsym_cmds, $1)='$CC -shared $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags $wl-soname $wl$soname $wl-retain-symbols-file $wl$export_symbols -o $lib' ;; *) # Version 8.0 or newer tmp_idyn= case $host_cpu in ia64*) tmp_idyn=' -i_dynamic';; esac _LT_TAGVAR(archive_cmds, $1)='$CC -shared'"$tmp_idyn"' $libobjs $deplibs $compiler_flags $wl-soname $wl$soname -o $lib' _LT_TAGVAR(archive_expsym_cmds, $1)='$CC -shared'"$tmp_idyn"' $libobjs $deplibs $compiler_flags $wl-soname $wl$soname $wl-retain-symbols-file $wl$export_symbols -o $lib' ;; esac _LT_TAGVAR(archive_cmds_need_lc, $1)=no _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='$wl-rpath,$libdir' _LT_TAGVAR(export_dynamic_flag_spec, $1)='$wl--export-dynamic' _LT_TAGVAR(whole_archive_flag_spec, $1)='$wl--whole-archive$convenience $wl--no-whole-archive' ;; pgCC* | pgcpp*) # Portland Group C++ compiler case `$CC -V` in *pgCC\ [[1-5]].* | *pgcpp\ [[1-5]].*) _LT_TAGVAR(prelink_cmds, $1)='tpldir=Template.dir~ rm -rf $tpldir~ $CC --prelink_objects --instantiation_dir $tpldir $objs $libobjs $compile_deplibs~ compile_command="$compile_command `find $tpldir -name \*.o | sort | $NL2SP`"' _LT_TAGVAR(old_archive_cmds, $1)='tpldir=Template.dir~ rm -rf $tpldir~ $CC --prelink_objects --instantiation_dir $tpldir $oldobjs$old_deplibs~ $AR $AR_FLAGS $oldlib$oldobjs$old_deplibs `find $tpldir -name \*.o | sort | $NL2SP`~ $RANLIB $oldlib' _LT_TAGVAR(archive_cmds, $1)='tpldir=Template.dir~ rm -rf $tpldir~ $CC --prelink_objects --instantiation_dir $tpldir $predep_objects $libobjs $deplibs $convenience $postdep_objects~ $CC -shared $pic_flag $predep_objects $libobjs $deplibs `find $tpldir -name \*.o | sort | $NL2SP` $postdep_objects $compiler_flags $wl-soname $wl$soname -o $lib' _LT_TAGVAR(archive_expsym_cmds, $1)='tpldir=Template.dir~ rm -rf $tpldir~ $CC --prelink_objects --instantiation_dir $tpldir $predep_objects $libobjs $deplibs $convenience $postdep_objects~ $CC -shared $pic_flag $predep_objects $libobjs $deplibs `find $tpldir -name \*.o | sort | $NL2SP` $postdep_objects $compiler_flags $wl-soname $wl$soname $wl-retain-symbols-file $wl$export_symbols -o $lib' ;; *) # Version 6 and above use weak symbols _LT_TAGVAR(archive_cmds, $1)='$CC -shared $pic_flag $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags $wl-soname $wl$soname -o $lib' _LT_TAGVAR(archive_expsym_cmds, $1)='$CC -shared $pic_flag $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags $wl-soname $wl$soname $wl-retain-symbols-file $wl$export_symbols -o $lib' ;; esac _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='$wl--rpath $wl$libdir' _LT_TAGVAR(export_dynamic_flag_spec, $1)='$wl--export-dynamic' _LT_TAGVAR(whole_archive_flag_spec, $1)='$wl--whole-archive`for conv in $convenience\"\"; do test -n \"$conv\" && new_convenience=\"$new_convenience,$conv\"; done; func_echo_all \"$new_convenience\"` $wl--no-whole-archive' ;; cxx*) # Compaq C++ _LT_TAGVAR(archive_cmds, $1)='$CC -shared $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags $wl-soname $wl$soname -o $lib' _LT_TAGVAR(archive_expsym_cmds, $1)='$CC -shared $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags $wl-soname $wl$soname -o $lib $wl-retain-symbols-file $wl$export_symbols' runpath_var=LD_RUN_PATH _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='-rpath $libdir' _LT_TAGVAR(hardcode_libdir_separator, $1)=: # Commands to make compiler produce verbose output that lists # what "hidden" libraries, object files and flags are used when # linking a shared library. # # There doesn't appear to be a way to prevent this compiler from # explicitly linking system object files so we need to strip them # from the output so that they don't get included in the library # dependencies. output_verbose_link_cmd='templist=`$CC -shared $CFLAGS -v conftest.$objext 2>&1 | $GREP "ld"`; templist=`func_echo_all "$templist" | $SED "s/\(^.*ld.*\)\( .*ld .*$\)/\1/"`; list= ; for z in $templist; do case $z in conftest.$objext) list="$list $z";; *.$objext);; *) list="$list $z";;esac; done; func_echo_all "X$list" | $Xsed' ;; xl* | mpixl* | bgxl*) # IBM XL 8.0 on PPC, with GNU ld _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='$wl-rpath $wl$libdir' _LT_TAGVAR(export_dynamic_flag_spec, $1)='$wl--export-dynamic' _LT_TAGVAR(archive_cmds, $1)='$CC -qmkshrobj $libobjs $deplibs $compiler_flags $wl-soname $wl$soname -o $lib' if test yes = "$supports_anon_versioning"; then _LT_TAGVAR(archive_expsym_cmds, $1)='echo "{ global:" > $output_objdir/$libname.ver~ cat $export_symbols | sed -e "s/\(.*\)/\1;/" >> $output_objdir/$libname.ver~ echo "local: *; };" >> $output_objdir/$libname.ver~ $CC -qmkshrobj $libobjs $deplibs $compiler_flags $wl-soname $wl$soname $wl-version-script $wl$output_objdir/$libname.ver -o $lib' fi ;; *) case `$CC -V 2>&1 | sed 5q` in *Sun\ C*) # Sun C++ 5.9 _LT_TAGVAR(no_undefined_flag, $1)=' -zdefs' _LT_TAGVAR(archive_cmds, $1)='$CC -G$allow_undefined_flag -h$soname -o $lib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags' _LT_TAGVAR(archive_expsym_cmds, $1)='$CC -G$allow_undefined_flag -h$soname -o $lib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags $wl-retain-symbols-file $wl$export_symbols' _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='-R$libdir' _LT_TAGVAR(whole_archive_flag_spec, $1)='$wl--whole-archive`new_convenience=; for conv in $convenience\"\"; do test -z \"$conv\" || new_convenience=\"$new_convenience,$conv\"; done; func_echo_all \"$new_convenience\"` $wl--no-whole-archive' _LT_TAGVAR(compiler_needs_object, $1)=yes # Not sure whether something based on # $CC $CFLAGS -v conftest.$objext -o libconftest$shared_ext 2>&1 # would be better. output_verbose_link_cmd='func_echo_all' # Archives containing C++ object files must be created using # "CC -xar", where "CC" is the Sun C++ compiler. This is # necessary to make sure instantiated templates are included # in the archive. _LT_TAGVAR(old_archive_cmds, $1)='$CC -xar -o $oldlib $oldobjs' ;; esac ;; esac ;; lynxos*) # FIXME: insert proper C++ library support _LT_TAGVAR(ld_shlibs, $1)=no ;; m88k*) # FIXME: insert proper C++ library support _LT_TAGVAR(ld_shlibs, $1)=no ;; mvs*) case $cc_basename in cxx*) # FIXME: insert proper C++ library support _LT_TAGVAR(ld_shlibs, $1)=no ;; *) # FIXME: insert proper C++ library support _LT_TAGVAR(ld_shlibs, $1)=no ;; esac ;; netbsd*) if echo __ELF__ | $CC -E - | $GREP __ELF__ >/dev/null; then _LT_TAGVAR(archive_cmds, $1)='$LD -Bshareable -o $lib $predep_objects $libobjs $deplibs $postdep_objects $linker_flags' wlarc= _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='-R$libdir' _LT_TAGVAR(hardcode_direct, $1)=yes _LT_TAGVAR(hardcode_shlibpath_var, $1)=no fi # Workaround some broken pre-1.5 toolchains output_verbose_link_cmd='$CC -shared $CFLAGS -v conftest.$objext 2>&1 | $GREP conftest.$objext | $SED -e "s:-lgcc -lc -lgcc::"' ;; *nto* | *qnx*) _LT_TAGVAR(ld_shlibs, $1)=yes ;; openbsd* | bitrig*) if test -f /usr/libexec/ld.so; then _LT_TAGVAR(hardcode_direct, $1)=yes _LT_TAGVAR(hardcode_shlibpath_var, $1)=no _LT_TAGVAR(hardcode_direct_absolute, $1)=yes _LT_TAGVAR(archive_cmds, $1)='$CC -shared $pic_flag $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags -o $lib' _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='$wl-rpath,$libdir' if test -z "`echo __ELF__ | $CC -E - | grep __ELF__`"; then _LT_TAGVAR(archive_expsym_cmds, $1)='$CC -shared $pic_flag $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags $wl-retain-symbols-file,$export_symbols -o $lib' _LT_TAGVAR(export_dynamic_flag_spec, $1)='$wl-E' _LT_TAGVAR(whole_archive_flag_spec, $1)=$wlarc'--whole-archive$convenience '$wlarc'--no-whole-archive' fi output_verbose_link_cmd=func_echo_all else _LT_TAGVAR(ld_shlibs, $1)=no fi ;; osf3* | osf4* | osf5*) case $cc_basename in KCC*) # Kuck and Associates, Inc. (KAI) C++ Compiler # KCC will only create a shared library if the output file # ends with ".so" (or ".sl" for HP-UX), so rename the library # to its proper name (with version) after linking. _LT_TAGVAR(archive_cmds, $1)='tempext=`echo $shared_ext | $SED -e '\''s/\([[^()0-9A-Za-z{}]]\)/\\\\\1/g'\''`; templib=`echo "$lib" | $SED -e "s/\$tempext\..*/.so/"`; $CC $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags --soname $soname -o \$templib; mv \$templib $lib' _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='$wl-rpath,$libdir' _LT_TAGVAR(hardcode_libdir_separator, $1)=: # Archives containing C++ object files must be created using # the KAI C++ compiler. case $host in osf3*) _LT_TAGVAR(old_archive_cmds, $1)='$CC -Bstatic -o $oldlib $oldobjs' ;; *) _LT_TAGVAR(old_archive_cmds, $1)='$CC -o $oldlib $oldobjs' ;; esac ;; RCC*) # Rational C++ 2.4.1 # FIXME: insert proper C++ library support _LT_TAGVAR(ld_shlibs, $1)=no ;; cxx*) case $host in osf3*) _LT_TAGVAR(allow_undefined_flag, $1)=' $wl-expect_unresolved $wl\*' _LT_TAGVAR(archive_cmds, $1)='$CC -shared$allow_undefined_flag $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags $wl-soname $soname `test -n "$verstring" && func_echo_all "$wl-set_version $verstring"` -update_registry $output_objdir/so_locations -o $lib' _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='$wl-rpath $wl$libdir' ;; *) _LT_TAGVAR(allow_undefined_flag, $1)=' -expect_unresolved \*' _LT_TAGVAR(archive_cmds, $1)='$CC -shared$allow_undefined_flag $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags -msym -soname $soname `test -n "$verstring" && func_echo_all "-set_version $verstring"` -update_registry $output_objdir/so_locations -o $lib' _LT_TAGVAR(archive_expsym_cmds, $1)='for i in `cat $export_symbols`; do printf "%s %s\\n" -exported_symbol "\$i" >> $lib.exp; done~ echo "-hidden">> $lib.exp~ $CC -shared$allow_undefined_flag $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags -msym -soname $soname $wl-input $wl$lib.exp `test -n "$verstring" && $ECHO "-set_version $verstring"` -update_registry $output_objdir/so_locations -o $lib~ $RM $lib.exp' _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='-rpath $libdir' ;; esac _LT_TAGVAR(hardcode_libdir_separator, $1)=: # Commands to make compiler produce verbose output that lists # what "hidden" libraries, object files and flags are used when # linking a shared library. # # There doesn't appear to be a way to prevent this compiler from # explicitly linking system object files so we need to strip them # from the output so that they don't get included in the library # dependencies. output_verbose_link_cmd='templist=`$CC -shared $CFLAGS -v conftest.$objext 2>&1 | $GREP "ld" | $GREP -v "ld:"`; templist=`func_echo_all "$templist" | $SED "s/\(^.*ld.*\)\( .*ld.*$\)/\1/"`; list= ; for z in $templist; do case $z in conftest.$objext) list="$list $z";; *.$objext);; *) list="$list $z";;esac; done; func_echo_all "$list"' ;; *) if test yes,no = "$GXX,$with_gnu_ld"; then _LT_TAGVAR(allow_undefined_flag, $1)=' $wl-expect_unresolved $wl\*' case $host in osf3*) _LT_TAGVAR(archive_cmds, $1)='$CC -shared -nostdlib $allow_undefined_flag $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags $wl-soname $wl$soname `test -n "$verstring" && func_echo_all "$wl-set_version $wl$verstring"` $wl-update_registry $wl$output_objdir/so_locations -o $lib' ;; *) _LT_TAGVAR(archive_cmds, $1)='$CC -shared $pic_flag -nostdlib $allow_undefined_flag $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags $wl-msym $wl-soname $wl$soname `test -n "$verstring" && func_echo_all "$wl-set_version $wl$verstring"` $wl-update_registry $wl$output_objdir/so_locations -o $lib' ;; esac _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='$wl-rpath $wl$libdir' _LT_TAGVAR(hardcode_libdir_separator, $1)=: # Commands to make compiler produce verbose output that lists # what "hidden" libraries, object files and flags are used when # linking a shared library. output_verbose_link_cmd='$CC -shared $CFLAGS -v conftest.$objext 2>&1 | $GREP -v "^Configured with:" | $GREP "\-L"' else # FIXME: insert proper C++ library support _LT_TAGVAR(ld_shlibs, $1)=no fi ;; esac ;; psos*) # FIXME: insert proper C++ library support _LT_TAGVAR(ld_shlibs, $1)=no ;; sunos4*) case $cc_basename in CC*) # Sun C++ 4.x # FIXME: insert proper C++ library support _LT_TAGVAR(ld_shlibs, $1)=no ;; lcc*) # Lucid # FIXME: insert proper C++ library support _LT_TAGVAR(ld_shlibs, $1)=no ;; *) # FIXME: insert proper C++ library support _LT_TAGVAR(ld_shlibs, $1)=no ;; esac ;; solaris*) case $cc_basename in CC* | sunCC*) # Sun C++ 4.2, 5.x and Centerline C++ _LT_TAGVAR(archive_cmds_need_lc,$1)=yes _LT_TAGVAR(no_undefined_flag, $1)=' -zdefs' _LT_TAGVAR(archive_cmds, $1)='$CC -G$allow_undefined_flag -h$soname -o $lib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags' _LT_TAGVAR(archive_expsym_cmds, $1)='echo "{ global:" > $lib.exp~cat $export_symbols | $SED -e "s/\(.*\)/\1;/" >> $lib.exp~echo "local: *; };" >> $lib.exp~ $CC -G$allow_undefined_flag $wl-M $wl$lib.exp -h$soname -o $lib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags~$RM $lib.exp' _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='-R$libdir' _LT_TAGVAR(hardcode_shlibpath_var, $1)=no case $host_os in solaris2.[[0-5]] | solaris2.[[0-5]].*) ;; *) # The compiler driver will combine and reorder linker options, # but understands '-z linker_flag'. # Supported since Solaris 2.6 (maybe 2.5.1?) _LT_TAGVAR(whole_archive_flag_spec, $1)='-z allextract$convenience -z defaultextract' ;; esac _LT_TAGVAR(link_all_deplibs, $1)=yes output_verbose_link_cmd='func_echo_all' # Archives containing C++ object files must be created using # "CC -xar", where "CC" is the Sun C++ compiler. This is # necessary to make sure instantiated templates are included # in the archive. _LT_TAGVAR(old_archive_cmds, $1)='$CC -xar -o $oldlib $oldobjs' ;; gcx*) # Green Hills C++ Compiler _LT_TAGVAR(archive_cmds, $1)='$CC -shared $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags $wl-h $wl$soname -o $lib' # The C++ compiler must be used to create the archive. _LT_TAGVAR(old_archive_cmds, $1)='$CC $LDFLAGS -archive -o $oldlib $oldobjs' ;; *) # GNU C++ compiler with Solaris linker if test yes,no = "$GXX,$with_gnu_ld"; then _LT_TAGVAR(no_undefined_flag, $1)=' $wl-z ${wl}defs' if $CC --version | $GREP -v '^2\.7' > /dev/null; then _LT_TAGVAR(archive_cmds, $1)='$CC -shared $pic_flag -nostdlib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags $wl-h $wl$soname -o $lib' _LT_TAGVAR(archive_expsym_cmds, $1)='echo "{ global:" > $lib.exp~cat $export_symbols | $SED -e "s/\(.*\)/\1;/" >> $lib.exp~echo "local: *; };" >> $lib.exp~ $CC -shared $pic_flag -nostdlib $wl-M $wl$lib.exp $wl-h $wl$soname -o $lib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags~$RM $lib.exp' # Commands to make compiler produce verbose output that lists # what "hidden" libraries, object files and flags are used when # linking a shared library. output_verbose_link_cmd='$CC -shared $CFLAGS -v conftest.$objext 2>&1 | $GREP -v "^Configured with:" | $GREP "\-L"' else # g++ 2.7 appears to require '-G' NOT '-shared' on this # platform. _LT_TAGVAR(archive_cmds, $1)='$CC -G -nostdlib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags $wl-h $wl$soname -o $lib' _LT_TAGVAR(archive_expsym_cmds, $1)='echo "{ global:" > $lib.exp~cat $export_symbols | $SED -e "s/\(.*\)/\1;/" >> $lib.exp~echo "local: *; };" >> $lib.exp~ $CC -G -nostdlib $wl-M $wl$lib.exp $wl-h $wl$soname -o $lib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags~$RM $lib.exp' # Commands to make compiler produce verbose output that lists # what "hidden" libraries, object files and flags are used when # linking a shared library. output_verbose_link_cmd='$CC -G $CFLAGS -v conftest.$objext 2>&1 | $GREP -v "^Configured with:" | $GREP "\-L"' fi _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='$wl-R $wl$libdir' case $host_os in solaris2.[[0-5]] | solaris2.[[0-5]].*) ;; *) _LT_TAGVAR(whole_archive_flag_spec, $1)='$wl-z ${wl}allextract$convenience $wl-z ${wl}defaultextract' ;; esac fi ;; esac ;; sysv4*uw2* | sysv5OpenUNIX* | sysv5UnixWare7.[[01]].[[10]]* | unixware7* | sco3.2v5.0.[[024]]*) _LT_TAGVAR(no_undefined_flag, $1)='$wl-z,text' _LT_TAGVAR(archive_cmds_need_lc, $1)=no _LT_TAGVAR(hardcode_shlibpath_var, $1)=no runpath_var='LD_RUN_PATH' case $cc_basename in CC*) _LT_TAGVAR(archive_cmds, $1)='$CC -G $wl-h,$soname -o $lib $libobjs $deplibs $compiler_flags' _LT_TAGVAR(archive_expsym_cmds, $1)='$CC -G $wl-Bexport:$export_symbols $wl-h,$soname -o $lib $libobjs $deplibs $compiler_flags' ;; *) _LT_TAGVAR(archive_cmds, $1)='$CC -shared $wl-h,$soname -o $lib $libobjs $deplibs $compiler_flags' _LT_TAGVAR(archive_expsym_cmds, $1)='$CC -shared $wl-Bexport:$export_symbols $wl-h,$soname -o $lib $libobjs $deplibs $compiler_flags' ;; esac ;; sysv5* | sco3.2v5* | sco5v6*) # Note: We CANNOT use -z defs as we might desire, because we do not # link with -lc, and that would cause any symbols used from libc to # always be unresolved, which means just about no library would # ever link correctly. If we're not using GNU ld we use -z text # though, which does catch some bad symbols but isn't as heavy-handed # as -z defs. _LT_TAGVAR(no_undefined_flag, $1)='$wl-z,text' _LT_TAGVAR(allow_undefined_flag, $1)='$wl-z,nodefs' _LT_TAGVAR(archive_cmds_need_lc, $1)=no _LT_TAGVAR(hardcode_shlibpath_var, $1)=no _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='$wl-R,$libdir' _LT_TAGVAR(hardcode_libdir_separator, $1)=':' _LT_TAGVAR(link_all_deplibs, $1)=yes _LT_TAGVAR(export_dynamic_flag_spec, $1)='$wl-Bexport' runpath_var='LD_RUN_PATH' case $cc_basename in CC*) _LT_TAGVAR(archive_cmds, $1)='$CC -G $wl-h,$soname -o $lib $libobjs $deplibs $compiler_flags' _LT_TAGVAR(archive_expsym_cmds, $1)='$CC -G $wl-Bexport:$export_symbols $wl-h,$soname -o $lib $libobjs $deplibs $compiler_flags' _LT_TAGVAR(old_archive_cmds, $1)='$CC -Tprelink_objects $oldobjs~ '"$_LT_TAGVAR(old_archive_cmds, $1)" _LT_TAGVAR(reload_cmds, $1)='$CC -Tprelink_objects $reload_objs~ '"$_LT_TAGVAR(reload_cmds, $1)" ;; *) _LT_TAGVAR(archive_cmds, $1)='$CC -shared $wl-h,$soname -o $lib $libobjs $deplibs $compiler_flags' _LT_TAGVAR(archive_expsym_cmds, $1)='$CC -shared $wl-Bexport:$export_symbols $wl-h,$soname -o $lib $libobjs $deplibs $compiler_flags' ;; esac ;; tandem*) case $cc_basename in NCC*) # NonStop-UX NCC 3.20 # FIXME: insert proper C++ library support _LT_TAGVAR(ld_shlibs, $1)=no ;; *) # FIXME: insert proper C++ library support _LT_TAGVAR(ld_shlibs, $1)=no ;; esac ;; vxworks*) # FIXME: insert proper C++ library support _LT_TAGVAR(ld_shlibs, $1)=no ;; *) # FIXME: insert proper C++ library support _LT_TAGVAR(ld_shlibs, $1)=no ;; esac AC_MSG_RESULT([$_LT_TAGVAR(ld_shlibs, $1)]) test no = "$_LT_TAGVAR(ld_shlibs, $1)" && can_build_shared=no _LT_TAGVAR(GCC, $1)=$GXX _LT_TAGVAR(LD, $1)=$LD ## CAVEAT EMPTOR: ## There is no encapsulation within the following macros, do not change ## the running order or otherwise move them around unless you know exactly ## what you are doing... _LT_SYS_HIDDEN_LIBDEPS($1) _LT_COMPILER_PIC($1) _LT_COMPILER_C_O($1) _LT_COMPILER_FILE_LOCKS($1) _LT_LINKER_SHLIBS($1) _LT_SYS_DYNAMIC_LINKER($1) _LT_LINKER_HARDCODE_LIBPATH($1) _LT_CONFIG($1) fi # test -n "$compiler" CC=$lt_save_CC CFLAGS=$lt_save_CFLAGS LDCXX=$LD LD=$lt_save_LD GCC=$lt_save_GCC with_gnu_ld=$lt_save_with_gnu_ld lt_cv_path_LDCXX=$lt_cv_path_LD lt_cv_path_LD=$lt_save_path_LD lt_cv_prog_gnu_ldcxx=$lt_cv_prog_gnu_ld lt_cv_prog_gnu_ld=$lt_save_with_gnu_ld fi # test yes != "$_lt_caught_CXX_error" AC_LANG_POP ])# _LT_LANG_CXX_CONFIG # _LT_FUNC_STRIPNAME_CNF # ---------------------- # func_stripname_cnf prefix suffix name # strip PREFIX and SUFFIX off of NAME. # PREFIX and SUFFIX must not contain globbing or regex special # characters, hashes, percent signs, but SUFFIX may contain a leading # dot (in which case that matches only a dot). # # This function is identical to the (non-XSI) version of func_stripname, # except this one can be used by m4 code that may be executed by configure, # rather than the libtool script. m4_defun([_LT_FUNC_STRIPNAME_CNF],[dnl AC_REQUIRE([_LT_DECL_SED]) AC_REQUIRE([_LT_PROG_ECHO_BACKSLASH]) func_stripname_cnf () { case @S|@2 in .*) func_stripname_result=`$ECHO "@S|@3" | $SED "s%^@S|@1%%; s%\\\\@S|@2\$%%"`;; *) func_stripname_result=`$ECHO "@S|@3" | $SED "s%^@S|@1%%; s%@S|@2\$%%"`;; esac } # func_stripname_cnf ])# _LT_FUNC_STRIPNAME_CNF # _LT_SYS_HIDDEN_LIBDEPS([TAGNAME]) # --------------------------------- # Figure out "hidden" library dependencies from verbose # compiler output when linking a shared library. # Parse the compiler output and extract the necessary # objects, libraries and library flags. m4_defun([_LT_SYS_HIDDEN_LIBDEPS], [m4_require([_LT_FILEUTILS_DEFAULTS])dnl AC_REQUIRE([_LT_FUNC_STRIPNAME_CNF])dnl # Dependencies to place before and after the object being linked: _LT_TAGVAR(predep_objects, $1)= _LT_TAGVAR(postdep_objects, $1)= _LT_TAGVAR(predeps, $1)= _LT_TAGVAR(postdeps, $1)= _LT_TAGVAR(compiler_lib_search_path, $1)= dnl we can't use the lt_simple_compile_test_code here, dnl because it contains code intended for an executable, dnl not a library. It's possible we should let each dnl tag define a new lt_????_link_test_code variable, dnl but it's only used here... m4_if([$1], [], [cat > conftest.$ac_ext <<_LT_EOF int a; void foo (void) { a = 0; } _LT_EOF ], [$1], [CXX], [cat > conftest.$ac_ext <<_LT_EOF class Foo { public: Foo (void) { a = 0; } private: int a; }; _LT_EOF ], [$1], [F77], [cat > conftest.$ac_ext <<_LT_EOF subroutine foo implicit none integer*4 a a=0 return end _LT_EOF ], [$1], [FC], [cat > conftest.$ac_ext <<_LT_EOF subroutine foo implicit none integer a a=0 return end _LT_EOF ], [$1], [GCJ], [cat > conftest.$ac_ext <<_LT_EOF public class foo { private int a; public void bar (void) { a = 0; } }; _LT_EOF ], [$1], [GO], [cat > conftest.$ac_ext <<_LT_EOF package foo func foo() { } _LT_EOF ]) _lt_libdeps_save_CFLAGS=$CFLAGS case "$CC $CFLAGS " in #( *\ -flto*\ *) CFLAGS="$CFLAGS -fno-lto" ;; *\ -fwhopr*\ *) CFLAGS="$CFLAGS -fno-whopr" ;; *\ -fuse-linker-plugin*\ *) CFLAGS="$CFLAGS -fno-use-linker-plugin" ;; esac dnl Parse the compiler output and extract the necessary dnl objects, libraries and library flags. if AC_TRY_EVAL(ac_compile); then # Parse the compiler output and extract the necessary # objects, libraries and library flags. # Sentinel used to keep track of whether or not we are before # the conftest object file. pre_test_object_deps_done=no for p in `eval "$output_verbose_link_cmd"`; do case $prev$p in -L* | -R* | -l*) # Some compilers place space between "-{L,R}" and the path. # Remove the space. if test x-L = "$p" || test x-R = "$p"; then prev=$p continue fi # Expand the sysroot to ease extracting the directories later. if test -z "$prev"; then case $p in -L*) func_stripname_cnf '-L' '' "$p"; prev=-L; p=$func_stripname_result ;; -R*) func_stripname_cnf '-R' '' "$p"; prev=-R; p=$func_stripname_result ;; -l*) func_stripname_cnf '-l' '' "$p"; prev=-l; p=$func_stripname_result ;; esac fi case $p in =*) func_stripname_cnf '=' '' "$p"; p=$lt_sysroot$func_stripname_result ;; esac if test no = "$pre_test_object_deps_done"; then case $prev in -L | -R) # Internal compiler library paths should come after those # provided the user. The postdeps already come after the # user supplied libs so there is no need to process them. if test -z "$_LT_TAGVAR(compiler_lib_search_path, $1)"; then _LT_TAGVAR(compiler_lib_search_path, $1)=$prev$p else _LT_TAGVAR(compiler_lib_search_path, $1)="${_LT_TAGVAR(compiler_lib_search_path, $1)} $prev$p" fi ;; # The "-l" case would never come before the object being # linked, so don't bother handling this case. esac else if test -z "$_LT_TAGVAR(postdeps, $1)"; then _LT_TAGVAR(postdeps, $1)=$prev$p else _LT_TAGVAR(postdeps, $1)="${_LT_TAGVAR(postdeps, $1)} $prev$p" fi fi prev= ;; *.lto.$objext) ;; # Ignore GCC LTO objects *.$objext) # This assumes that the test object file only shows up # once in the compiler output. if test "$p" = "conftest.$objext"; then pre_test_object_deps_done=yes continue fi if test no = "$pre_test_object_deps_done"; then if test -z "$_LT_TAGVAR(predep_objects, $1)"; then _LT_TAGVAR(predep_objects, $1)=$p else _LT_TAGVAR(predep_objects, $1)="$_LT_TAGVAR(predep_objects, $1) $p" fi else if test -z "$_LT_TAGVAR(postdep_objects, $1)"; then _LT_TAGVAR(postdep_objects, $1)=$p else _LT_TAGVAR(postdep_objects, $1)="$_LT_TAGVAR(postdep_objects, $1) $p" fi fi ;; *) ;; # Ignore the rest. esac done # Clean up. rm -f a.out a.exe else echo "libtool.m4: error: problem compiling $1 test program" fi $RM -f confest.$objext CFLAGS=$_lt_libdeps_save_CFLAGS # PORTME: override above test on systems where it is broken m4_if([$1], [CXX], [case $host_os in interix[[3-9]]*) # Interix 3.5 installs completely hosed .la files for C++, so rather than # hack all around it, let's just trust "g++" to DTRT. _LT_TAGVAR(predep_objects,$1)= _LT_TAGVAR(postdep_objects,$1)= _LT_TAGVAR(postdeps,$1)= ;; esac ]) case " $_LT_TAGVAR(postdeps, $1) " in *" -lc "*) _LT_TAGVAR(archive_cmds_need_lc, $1)=no ;; esac _LT_TAGVAR(compiler_lib_search_dirs, $1)= if test -n "${_LT_TAGVAR(compiler_lib_search_path, $1)}"; then _LT_TAGVAR(compiler_lib_search_dirs, $1)=`echo " ${_LT_TAGVAR(compiler_lib_search_path, $1)}" | $SED -e 's! -L! !g' -e 's!^ !!'` fi _LT_TAGDECL([], [compiler_lib_search_dirs], [1], [The directories searched by this compiler when creating a shared library]) _LT_TAGDECL([], [predep_objects], [1], [Dependencies to place before and after the objects being linked to create a shared library]) _LT_TAGDECL([], [postdep_objects], [1]) _LT_TAGDECL([], [predeps], [1]) _LT_TAGDECL([], [postdeps], [1]) _LT_TAGDECL([], [compiler_lib_search_path], [1], [The library search path used internally by the compiler when linking a shared library]) ])# _LT_SYS_HIDDEN_LIBDEPS # _LT_LANG_F77_CONFIG([TAG]) # -------------------------- # Ensure that the configuration variables for a Fortran 77 compiler are # suitably defined. These variables are subsequently used by _LT_CONFIG # to write the compiler configuration to 'libtool'. m4_defun([_LT_LANG_F77_CONFIG], [AC_LANG_PUSH(Fortran 77) if test -z "$F77" || test no = "$F77"; then _lt_disable_F77=yes fi _LT_TAGVAR(archive_cmds_need_lc, $1)=no _LT_TAGVAR(allow_undefined_flag, $1)= _LT_TAGVAR(always_export_symbols, $1)=no _LT_TAGVAR(archive_expsym_cmds, $1)= _LT_TAGVAR(export_dynamic_flag_spec, $1)= _LT_TAGVAR(hardcode_direct, $1)=no _LT_TAGVAR(hardcode_direct_absolute, $1)=no _LT_TAGVAR(hardcode_libdir_flag_spec, $1)= _LT_TAGVAR(hardcode_libdir_separator, $1)= _LT_TAGVAR(hardcode_minus_L, $1)=no _LT_TAGVAR(hardcode_automatic, $1)=no _LT_TAGVAR(inherit_rpath, $1)=no _LT_TAGVAR(module_cmds, $1)= _LT_TAGVAR(module_expsym_cmds, $1)= _LT_TAGVAR(link_all_deplibs, $1)=unknown _LT_TAGVAR(old_archive_cmds, $1)=$old_archive_cmds _LT_TAGVAR(reload_flag, $1)=$reload_flag _LT_TAGVAR(reload_cmds, $1)=$reload_cmds _LT_TAGVAR(no_undefined_flag, $1)= _LT_TAGVAR(whole_archive_flag_spec, $1)= _LT_TAGVAR(enable_shared_with_static_runtimes, $1)=no # Source file extension for f77 test sources. ac_ext=f # Object file extension for compiled f77 test sources. objext=o _LT_TAGVAR(objext, $1)=$objext # No sense in running all these tests if we already determined that # the F77 compiler isn't working. Some variables (like enable_shared) # are currently assumed to apply to all compilers on this platform, # and will be corrupted by setting them based on a non-working compiler. if test yes != "$_lt_disable_F77"; then # Code to be used in simple compile tests lt_simple_compile_test_code="\ subroutine t return end " # Code to be used in simple link tests lt_simple_link_test_code="\ program t end " # ltmain only uses $CC for tagged configurations so make sure $CC is set. _LT_TAG_COMPILER # save warnings/boilerplate of simple test code _LT_COMPILER_BOILERPLATE _LT_LINKER_BOILERPLATE # Allow CC to be a program name with arguments. lt_save_CC=$CC lt_save_GCC=$GCC lt_save_CFLAGS=$CFLAGS CC=${F77-"f77"} CFLAGS=$FFLAGS compiler=$CC _LT_TAGVAR(compiler, $1)=$CC _LT_CC_BASENAME([$compiler]) GCC=$G77 if test -n "$compiler"; then AC_MSG_CHECKING([if libtool supports shared libraries]) AC_MSG_RESULT([$can_build_shared]) AC_MSG_CHECKING([whether to build shared libraries]) test no = "$can_build_shared" && enable_shared=no # On AIX, shared libraries and static libraries use the same namespace, and # are all built from PIC. case $host_os in aix3*) test yes = "$enable_shared" && enable_static=no if test -n "$RANLIB"; then archive_cmds="$archive_cmds~\$RANLIB \$lib" postinstall_cmds='$RANLIB $lib' fi ;; aix[[4-9]]*) if test ia64 != "$host_cpu"; then case $enable_shared,$with_aix_soname,$aix_use_runtimelinking in yes,aix,yes) ;; # shared object as lib.so file only yes,svr4,*) ;; # shared object as lib.so archive member only yes,*) enable_static=no ;; # shared object in lib.a archive as well esac fi ;; esac AC_MSG_RESULT([$enable_shared]) AC_MSG_CHECKING([whether to build static libraries]) # Make sure either enable_shared or enable_static is yes. test yes = "$enable_shared" || enable_static=yes AC_MSG_RESULT([$enable_static]) _LT_TAGVAR(GCC, $1)=$G77 _LT_TAGVAR(LD, $1)=$LD ## CAVEAT EMPTOR: ## There is no encapsulation within the following macros, do not change ## the running order or otherwise move them around unless you know exactly ## what you are doing... _LT_COMPILER_PIC($1) _LT_COMPILER_C_O($1) _LT_COMPILER_FILE_LOCKS($1) _LT_LINKER_SHLIBS($1) _LT_SYS_DYNAMIC_LINKER($1) _LT_LINKER_HARDCODE_LIBPATH($1) _LT_CONFIG($1) fi # test -n "$compiler" GCC=$lt_save_GCC CC=$lt_save_CC CFLAGS=$lt_save_CFLAGS fi # test yes != "$_lt_disable_F77" AC_LANG_POP ])# _LT_LANG_F77_CONFIG # _LT_LANG_FC_CONFIG([TAG]) # ------------------------- # Ensure that the configuration variables for a Fortran compiler are # suitably defined. These variables are subsequently used by _LT_CONFIG # to write the compiler configuration to 'libtool'. m4_defun([_LT_LANG_FC_CONFIG], [AC_LANG_PUSH(Fortran) if test -z "$FC" || test no = "$FC"; then _lt_disable_FC=yes fi _LT_TAGVAR(archive_cmds_need_lc, $1)=no _LT_TAGVAR(allow_undefined_flag, $1)= _LT_TAGVAR(always_export_symbols, $1)=no _LT_TAGVAR(archive_expsym_cmds, $1)= _LT_TAGVAR(export_dynamic_flag_spec, $1)= _LT_TAGVAR(hardcode_direct, $1)=no _LT_TAGVAR(hardcode_direct_absolute, $1)=no _LT_TAGVAR(hardcode_libdir_flag_spec, $1)= _LT_TAGVAR(hardcode_libdir_separator, $1)= _LT_TAGVAR(hardcode_minus_L, $1)=no _LT_TAGVAR(hardcode_automatic, $1)=no _LT_TAGVAR(inherit_rpath, $1)=no _LT_TAGVAR(module_cmds, $1)= _LT_TAGVAR(module_expsym_cmds, $1)= _LT_TAGVAR(link_all_deplibs, $1)=unknown _LT_TAGVAR(old_archive_cmds, $1)=$old_archive_cmds _LT_TAGVAR(reload_flag, $1)=$reload_flag _LT_TAGVAR(reload_cmds, $1)=$reload_cmds _LT_TAGVAR(no_undefined_flag, $1)= _LT_TAGVAR(whole_archive_flag_spec, $1)= _LT_TAGVAR(enable_shared_with_static_runtimes, $1)=no # Source file extension for fc test sources. ac_ext=${ac_fc_srcext-f} # Object file extension for compiled fc test sources. objext=o _LT_TAGVAR(objext, $1)=$objext # No sense in running all these tests if we already determined that # the FC compiler isn't working. Some variables (like enable_shared) # are currently assumed to apply to all compilers on this platform, # and will be corrupted by setting them based on a non-working compiler. if test yes != "$_lt_disable_FC"; then # Code to be used in simple compile tests lt_simple_compile_test_code="\ subroutine t return end " # Code to be used in simple link tests lt_simple_link_test_code="\ program t end " # ltmain only uses $CC for tagged configurations so make sure $CC is set. _LT_TAG_COMPILER # save warnings/boilerplate of simple test code _LT_COMPILER_BOILERPLATE _LT_LINKER_BOILERPLATE # Allow CC to be a program name with arguments. lt_save_CC=$CC lt_save_GCC=$GCC lt_save_CFLAGS=$CFLAGS CC=${FC-"f95"} CFLAGS=$FCFLAGS compiler=$CC GCC=$ac_cv_fc_compiler_gnu _LT_TAGVAR(compiler, $1)=$CC _LT_CC_BASENAME([$compiler]) if test -n "$compiler"; then AC_MSG_CHECKING([if libtool supports shared libraries]) AC_MSG_RESULT([$can_build_shared]) AC_MSG_CHECKING([whether to build shared libraries]) test no = "$can_build_shared" && enable_shared=no # On AIX, shared libraries and static libraries use the same namespace, and # are all built from PIC. case $host_os in aix3*) test yes = "$enable_shared" && enable_static=no if test -n "$RANLIB"; then archive_cmds="$archive_cmds~\$RANLIB \$lib" postinstall_cmds='$RANLIB $lib' fi ;; aix[[4-9]]*) if test ia64 != "$host_cpu"; then case $enable_shared,$with_aix_soname,$aix_use_runtimelinking in yes,aix,yes) ;; # shared object as lib.so file only yes,svr4,*) ;; # shared object as lib.so archive member only yes,*) enable_static=no ;; # shared object in lib.a archive as well esac fi ;; esac AC_MSG_RESULT([$enable_shared]) AC_MSG_CHECKING([whether to build static libraries]) # Make sure either enable_shared or enable_static is yes. test yes = "$enable_shared" || enable_static=yes AC_MSG_RESULT([$enable_static]) _LT_TAGVAR(GCC, $1)=$ac_cv_fc_compiler_gnu _LT_TAGVAR(LD, $1)=$LD ## CAVEAT EMPTOR: ## There is no encapsulation within the following macros, do not change ## the running order or otherwise move them around unless you know exactly ## what you are doing... _LT_SYS_HIDDEN_LIBDEPS($1) _LT_COMPILER_PIC($1) _LT_COMPILER_C_O($1) _LT_COMPILER_FILE_LOCKS($1) _LT_LINKER_SHLIBS($1) _LT_SYS_DYNAMIC_LINKER($1) _LT_LINKER_HARDCODE_LIBPATH($1) _LT_CONFIG($1) fi # test -n "$compiler" GCC=$lt_save_GCC CC=$lt_save_CC CFLAGS=$lt_save_CFLAGS fi # test yes != "$_lt_disable_FC" AC_LANG_POP ])# _LT_LANG_FC_CONFIG # _LT_LANG_GCJ_CONFIG([TAG]) # -------------------------- # Ensure that the configuration variables for the GNU Java Compiler compiler # are suitably defined. These variables are subsequently used by _LT_CONFIG # to write the compiler configuration to 'libtool'. m4_defun([_LT_LANG_GCJ_CONFIG], [AC_REQUIRE([LT_PROG_GCJ])dnl AC_LANG_SAVE # Source file extension for Java test sources. ac_ext=java # Object file extension for compiled Java test sources. objext=o _LT_TAGVAR(objext, $1)=$objext # Code to be used in simple compile tests lt_simple_compile_test_code="class foo {}" # Code to be used in simple link tests lt_simple_link_test_code='public class conftest { public static void main(String[[]] argv) {}; }' # ltmain only uses $CC for tagged configurations so make sure $CC is set. _LT_TAG_COMPILER # save warnings/boilerplate of simple test code _LT_COMPILER_BOILERPLATE _LT_LINKER_BOILERPLATE # Allow CC to be a program name with arguments. lt_save_CC=$CC lt_save_CFLAGS=$CFLAGS lt_save_GCC=$GCC GCC=yes CC=${GCJ-"gcj"} CFLAGS=$GCJFLAGS compiler=$CC _LT_TAGVAR(compiler, $1)=$CC _LT_TAGVAR(LD, $1)=$LD _LT_CC_BASENAME([$compiler]) # GCJ did not exist at the time GCC didn't implicitly link libc in. _LT_TAGVAR(archive_cmds_need_lc, $1)=no _LT_TAGVAR(old_archive_cmds, $1)=$old_archive_cmds _LT_TAGVAR(reload_flag, $1)=$reload_flag _LT_TAGVAR(reload_cmds, $1)=$reload_cmds ## CAVEAT EMPTOR: ## There is no encapsulation within the following macros, do not change ## the running order or otherwise move them around unless you know exactly ## what you are doing... if test -n "$compiler"; then _LT_COMPILER_NO_RTTI($1) _LT_COMPILER_PIC($1) _LT_COMPILER_C_O($1) _LT_COMPILER_FILE_LOCKS($1) _LT_LINKER_SHLIBS($1) _LT_LINKER_HARDCODE_LIBPATH($1) _LT_CONFIG($1) fi AC_LANG_RESTORE GCC=$lt_save_GCC CC=$lt_save_CC CFLAGS=$lt_save_CFLAGS ])# _LT_LANG_GCJ_CONFIG # _LT_LANG_GO_CONFIG([TAG]) # -------------------------- # Ensure that the configuration variables for the GNU Go compiler # are suitably defined. These variables are subsequently used by _LT_CONFIG # to write the compiler configuration to 'libtool'. m4_defun([_LT_LANG_GO_CONFIG], [AC_REQUIRE([LT_PROG_GO])dnl AC_LANG_SAVE # Source file extension for Go test sources. ac_ext=go # Object file extension for compiled Go test sources. objext=o _LT_TAGVAR(objext, $1)=$objext # Code to be used in simple compile tests lt_simple_compile_test_code="package main; func main() { }" # Code to be used in simple link tests lt_simple_link_test_code='package main; func main() { }' # ltmain only uses $CC for tagged configurations so make sure $CC is set. _LT_TAG_COMPILER # save warnings/boilerplate of simple test code _LT_COMPILER_BOILERPLATE _LT_LINKER_BOILERPLATE # Allow CC to be a program name with arguments. lt_save_CC=$CC lt_save_CFLAGS=$CFLAGS lt_save_GCC=$GCC GCC=yes CC=${GOC-"gccgo"} CFLAGS=$GOFLAGS compiler=$CC _LT_TAGVAR(compiler, $1)=$CC _LT_TAGVAR(LD, $1)=$LD _LT_CC_BASENAME([$compiler]) # Go did not exist at the time GCC didn't implicitly link libc in. _LT_TAGVAR(archive_cmds_need_lc, $1)=no _LT_TAGVAR(old_archive_cmds, $1)=$old_archive_cmds _LT_TAGVAR(reload_flag, $1)=$reload_flag _LT_TAGVAR(reload_cmds, $1)=$reload_cmds ## CAVEAT EMPTOR: ## There is no encapsulation within the following macros, do not change ## the running order or otherwise move them around unless you know exactly ## what you are doing... if test -n "$compiler"; then _LT_COMPILER_NO_RTTI($1) _LT_COMPILER_PIC($1) _LT_COMPILER_C_O($1) _LT_COMPILER_FILE_LOCKS($1) _LT_LINKER_SHLIBS($1) _LT_LINKER_HARDCODE_LIBPATH($1) _LT_CONFIG($1) fi AC_LANG_RESTORE GCC=$lt_save_GCC CC=$lt_save_CC CFLAGS=$lt_save_CFLAGS ])# _LT_LANG_GO_CONFIG # _LT_LANG_RC_CONFIG([TAG]) # ------------------------- # Ensure that the configuration variables for the Windows resource compiler # are suitably defined. These variables are subsequently used by _LT_CONFIG # to write the compiler configuration to 'libtool'. m4_defun([_LT_LANG_RC_CONFIG], [AC_REQUIRE([LT_PROG_RC])dnl AC_LANG_SAVE # Source file extension for RC test sources. ac_ext=rc # Object file extension for compiled RC test sources. objext=o _LT_TAGVAR(objext, $1)=$objext # Code to be used in simple compile tests lt_simple_compile_test_code='sample MENU { MENUITEM "&Soup", 100, CHECKED }' # Code to be used in simple link tests lt_simple_link_test_code=$lt_simple_compile_test_code # ltmain only uses $CC for tagged configurations so make sure $CC is set. _LT_TAG_COMPILER # save warnings/boilerplate of simple test code _LT_COMPILER_BOILERPLATE _LT_LINKER_BOILERPLATE # Allow CC to be a program name with arguments. lt_save_CC=$CC lt_save_CFLAGS=$CFLAGS lt_save_GCC=$GCC GCC= CC=${RC-"windres"} CFLAGS= compiler=$CC _LT_TAGVAR(compiler, $1)=$CC _LT_CC_BASENAME([$compiler]) _LT_TAGVAR(lt_cv_prog_compiler_c_o, $1)=yes if test -n "$compiler"; then : _LT_CONFIG($1) fi GCC=$lt_save_GCC AC_LANG_RESTORE CC=$lt_save_CC CFLAGS=$lt_save_CFLAGS ])# _LT_LANG_RC_CONFIG # LT_PROG_GCJ # ----------- AC_DEFUN([LT_PROG_GCJ], [m4_ifdef([AC_PROG_GCJ], [AC_PROG_GCJ], [m4_ifdef([A][M_PROG_GCJ], [A][M_PROG_GCJ], [AC_CHECK_TOOL(GCJ, gcj,) test set = "${GCJFLAGS+set}" || GCJFLAGS="-g -O2" AC_SUBST(GCJFLAGS)])])[]dnl ]) # Old name: AU_ALIAS([LT_AC_PROG_GCJ], [LT_PROG_GCJ]) dnl aclocal-1.4 backwards compatibility: dnl AC_DEFUN([LT_AC_PROG_GCJ], []) # LT_PROG_GO # ---------- AC_DEFUN([LT_PROG_GO], [AC_CHECK_TOOL(GOC, gccgo,) ]) # LT_PROG_RC # ---------- AC_DEFUN([LT_PROG_RC], [AC_CHECK_TOOL(RC, windres,) ]) # Old name: AU_ALIAS([LT_AC_PROG_RC], [LT_PROG_RC]) dnl aclocal-1.4 backwards compatibility: dnl AC_DEFUN([LT_AC_PROG_RC], []) # _LT_DECL_EGREP # -------------- # If we don't have a new enough Autoconf to choose the best grep # available, choose the one first in the user's PATH. m4_defun([_LT_DECL_EGREP], [AC_REQUIRE([AC_PROG_EGREP])dnl AC_REQUIRE([AC_PROG_FGREP])dnl test -z "$GREP" && GREP=grep _LT_DECL([], [GREP], [1], [A grep program that handles long lines]) _LT_DECL([], [EGREP], [1], [An ERE matcher]) _LT_DECL([], [FGREP], [1], [A literal string matcher]) dnl Non-bleeding-edge autoconf doesn't subst GREP, so do it here too AC_SUBST([GREP]) ]) # _LT_DECL_OBJDUMP # -------------- # If we don't have a new enough Autoconf to choose the best objdump # available, choose the one first in the user's PATH. m4_defun([_LT_DECL_OBJDUMP], [AC_CHECK_TOOL(OBJDUMP, objdump, false) test -z "$OBJDUMP" && OBJDUMP=objdump _LT_DECL([], [OBJDUMP], [1], [An object symbol dumper]) AC_SUBST([OBJDUMP]) ]) # _LT_DECL_DLLTOOL # ---------------- # Ensure DLLTOOL variable is set. m4_defun([_LT_DECL_DLLTOOL], [AC_CHECK_TOOL(DLLTOOL, dlltool, false) test -z "$DLLTOOL" && DLLTOOL=dlltool _LT_DECL([], [DLLTOOL], [1], [DLL creation program]) AC_SUBST([DLLTOOL]) ]) # _LT_DECL_SED # ------------ # Check for a fully-functional sed program, that truncates # as few characters as possible. Prefer GNU sed if found. m4_defun([_LT_DECL_SED], [AC_PROG_SED test -z "$SED" && SED=sed Xsed="$SED -e 1s/^X//" _LT_DECL([], [SED], [1], [A sed program that does not truncate output]) _LT_DECL([], [Xsed], ["\$SED -e 1s/^X//"], [Sed that helps us avoid accidentally triggering echo(1) options like -n]) ])# _LT_DECL_SED m4_ifndef([AC_PROG_SED], [ ############################################################ # NOTE: This macro has been submitted for inclusion into # # GNU Autoconf as AC_PROG_SED. When it is available in # # a released version of Autoconf we should remove this # # macro and use it instead. # ############################################################ m4_defun([AC_PROG_SED], [AC_MSG_CHECKING([for a sed that does not truncate output]) AC_CACHE_VAL(lt_cv_path_SED, [# Loop through the user's path and test for sed and gsed. # Then use that list of sed's as ones to test for truncation. as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for lt_ac_prog in sed gsed; do for ac_exec_ext in '' $ac_executable_extensions; do if $as_executable_p "$as_dir/$lt_ac_prog$ac_exec_ext"; then lt_ac_sed_list="$lt_ac_sed_list $as_dir/$lt_ac_prog$ac_exec_ext" fi done done done IFS=$as_save_IFS lt_ac_max=0 lt_ac_count=0 # Add /usr/xpg4/bin/sed as it is typically found on Solaris # along with /bin/sed that truncates output. for lt_ac_sed in $lt_ac_sed_list /usr/xpg4/bin/sed; do test ! -f "$lt_ac_sed" && continue cat /dev/null > conftest.in lt_ac_count=0 echo $ECHO_N "0123456789$ECHO_C" >conftest.in # Check for GNU sed and select it if it is found. if "$lt_ac_sed" --version 2>&1 < /dev/null | grep 'GNU' > /dev/null; then lt_cv_path_SED=$lt_ac_sed break fi while true; do cat conftest.in conftest.in >conftest.tmp mv conftest.tmp conftest.in cp conftest.in conftest.nl echo >>conftest.nl $lt_ac_sed -e 's/a$//' < conftest.nl >conftest.out || break cmp -s conftest.out conftest.nl || break # 10000 chars as input seems more than enough test 10 -lt "$lt_ac_count" && break lt_ac_count=`expr $lt_ac_count + 1` if test "$lt_ac_count" -gt "$lt_ac_max"; then lt_ac_max=$lt_ac_count lt_cv_path_SED=$lt_ac_sed fi done done ]) SED=$lt_cv_path_SED AC_SUBST([SED]) AC_MSG_RESULT([$SED]) ])#AC_PROG_SED ])#m4_ifndef # Old name: AU_ALIAS([LT_AC_PROG_SED], [AC_PROG_SED]) dnl aclocal-1.4 backwards compatibility: dnl AC_DEFUN([LT_AC_PROG_SED], []) # _LT_CHECK_SHELL_FEATURES # ------------------------ # Find out whether the shell is Bourne or XSI compatible, # or has some other useful features. m4_defun([_LT_CHECK_SHELL_FEATURES], [if ( (MAIL=60; unset MAIL) || exit) >/dev/null 2>&1; then lt_unset=unset else lt_unset=false fi _LT_DECL([], [lt_unset], [0], [whether the shell understands "unset"])dnl # test EBCDIC or ASCII case `echo X|tr X '\101'` in A) # ASCII based system # \n is not interpreted correctly by Solaris 8 /usr/ucb/tr lt_SP2NL='tr \040 \012' lt_NL2SP='tr \015\012 \040\040' ;; *) # EBCDIC based system lt_SP2NL='tr \100 \n' lt_NL2SP='tr \r\n \100\100' ;; esac _LT_DECL([SP2NL], [lt_SP2NL], [1], [turn spaces into newlines])dnl _LT_DECL([NL2SP], [lt_NL2SP], [1], [turn newlines into spaces])dnl ])# _LT_CHECK_SHELL_FEATURES # _LT_PATH_CONVERSION_FUNCTIONS # ----------------------------- # Determine what file name conversion functions should be used by # func_to_host_file (and, implicitly, by func_to_host_path). These are needed # for certain cross-compile configurations and native mingw. m4_defun([_LT_PATH_CONVERSION_FUNCTIONS], [AC_REQUIRE([AC_CANONICAL_HOST])dnl AC_REQUIRE([AC_CANONICAL_BUILD])dnl AC_MSG_CHECKING([how to convert $build file names to $host format]) AC_CACHE_VAL(lt_cv_to_host_file_cmd, [case $host in *-*-mingw* ) case $build in *-*-mingw* ) # actually msys lt_cv_to_host_file_cmd=func_convert_file_msys_to_w32 ;; *-*-cygwin* ) lt_cv_to_host_file_cmd=func_convert_file_cygwin_to_w32 ;; * ) # otherwise, assume *nix lt_cv_to_host_file_cmd=func_convert_file_nix_to_w32 ;; esac ;; *-*-cygwin* ) case $build in *-*-mingw* ) # actually msys lt_cv_to_host_file_cmd=func_convert_file_msys_to_cygwin ;; *-*-cygwin* ) lt_cv_to_host_file_cmd=func_convert_file_noop ;; * ) # otherwise, assume *nix lt_cv_to_host_file_cmd=func_convert_file_nix_to_cygwin ;; esac ;; * ) # unhandled hosts (and "normal" native builds) lt_cv_to_host_file_cmd=func_convert_file_noop ;; esac ]) to_host_file_cmd=$lt_cv_to_host_file_cmd AC_MSG_RESULT([$lt_cv_to_host_file_cmd]) _LT_DECL([to_host_file_cmd], [lt_cv_to_host_file_cmd], [0], [convert $build file names to $host format])dnl AC_MSG_CHECKING([how to convert $build file names to toolchain format]) AC_CACHE_VAL(lt_cv_to_tool_file_cmd, [#assume ordinary cross tools, or native build. lt_cv_to_tool_file_cmd=func_convert_file_noop case $host in *-*-mingw* ) case $build in *-*-mingw* ) # actually msys lt_cv_to_tool_file_cmd=func_convert_file_msys_to_w32 ;; esac ;; esac ]) to_tool_file_cmd=$lt_cv_to_tool_file_cmd AC_MSG_RESULT([$lt_cv_to_tool_file_cmd]) _LT_DECL([to_tool_file_cmd], [lt_cv_to_tool_file_cmd], [0], [convert $build files to toolchain format])dnl ])# _LT_PATH_CONVERSION_FUNCTIONS libffcall-2.2/m4/mprotect.m40000664000000000000000000001207113137502335012606 00000000000000dnl -*- Autoconf -*- dnl Copyright (C) 1993-2017 Free Software Foundation, Inc. dnl This file is free software, distributed under the terms of the GNU dnl General Public License as published by the Free Software Foundation; dnl either version 2 of the License, or (at your option) any later version. dnl As a special exception to the GNU General Public License, this file dnl may be distributed as part of a program that contains a configuration dnl script generated by Autoconf, under the same distribution terms as dnl the rest of that program. dnl From Bruno Haible, Marcus Daniels, Sam Steingold. AC_PREREQ([2.57]) AC_DEFUN([FFCALL_MPROTECT], [ AC_REQUIRE([CL_GETPAGESIZE]) AC_REQUIRE([FFCALL_MMAP]) AC_REQUIRE([AC_CANONICAL_HOST]) AC_CHECK_FUNCS([mprotect]) if test $ac_cv_func_mprotect = yes; then AC_CACHE_CHECK([for working mprotect], [cl_cv_func_mprotect_works], [if test $cross_compiling = no; then mprotect_prog=' #include /* declare malloc() */ #include #ifdef HAVE_UNISTD_H #include #endif /* declare getpagesize() and mprotect() */ #include #ifndef HAVE_GETPAGESIZE #include #define getpagesize() PAGESIZE #else ]AC_LANG_EXTERN[ RETGETPAGESIZETYPE getpagesize (void); #endif char foo; int main () { unsigned long pagesize = getpagesize(); #define page_align(address) (char*)((unsigned long)(address) & -pagesize) ' AC_TRY_RUN( [$mprotect_prog if ((pagesize-1) & pagesize) exit(1); exit(0); } ], [], [no_mprotect=1], [dnl When cross-compiling, don't assume anything. no_mprotect=1 ]) mprotect_prog="$mprotect_prog"' char* area = (char*) malloc(6*pagesize); char* fault_address = area + pagesize*7/2; ' if test -z "$no_mprotect"; then AC_TRY_RUN(GL_NOCRASH [$mprotect_prog nocrash_init(); if (mprotect(page_align(fault_address),pagesize,PROT_NONE) < 0) exit(0); foo = *fault_address; /* this should cause an exception or signal */ exit(0); } ], [no_mprotect=1], [], [dnl When cross-compiling, don't assume anything. : ]) fi if test -z "$no_mprotect"; then AC_TRY_RUN(GL_NOCRASH [$mprotect_prog nocrash_init(); if (mprotect(page_align(fault_address),pagesize,PROT_NONE) < 0) exit(0); *fault_address = 'z'; /* this should cause an exception or signal */ exit(0); } ], [no_mprotect=1], [], [dnl When cross-compiling, don't assume anything. : ]) fi if test -z "$no_mprotect"; then AC_TRY_RUN(GL_NOCRASH [$mprotect_prog nocrash_init(); if (mprotect(page_align(fault_address),pagesize,PROT_READ) < 0) exit(0); *fault_address = 'z'; /* this should cause an exception or signal */ exit(0); } ], [no_mprotect=1], [], [dnl When cross-compiling, don't assume anything. : ]) fi if test -z "$no_mprotect"; then AC_TRY_RUN(GL_NOCRASH [$mprotect_prog nocrash_init(); if (mprotect(page_align(fault_address),pagesize,PROT_READ) < 0) exit(1); if (mprotect(page_align(fault_address),pagesize,PROT_READ|PROT_WRITE) < 0) exit(1); *fault_address = 'z'; /* this should not cause an exception or signal */ exit(0); } ], [], [no_mprotect=1], [dnl When cross-compiling, don't assume anything. : ]) fi if test -z "$no_mprotect"; then cl_cv_func_mprotect_works=yes else cl_cv_func_mprotect_works=no fi else dnl When cross-compiling, assume the known behaviour. dnl If we don't know, don't assume anything. case "$host_os" in aix* | cygwin* | darwin* | hpux* | irix* | linux* | solaris*) cl_cv_func_mprotect_works="guessing yes" ;; mingw*) cl_cv_func_mprotect_works="guessing no" ;; *) cl_cv_func_mprotect_works="guessing no" ;; esac fi ]) case "$cl_cv_func_mprotect_works" in *yes) AC_DEFINE([HAVE_WORKING_MPROTECT], [], [have a working mprotect() function]) ;; esac fi ]) libffcall-2.2/m4/ln.m40000664000000000000000000000302613150750056011362 00000000000000dnl -*- Autoconf -*- dnl Copyright (C) 1993-2017 Free Software Foundation, Inc. dnl This file is free software, distributed under the terms of the GNU dnl General Public License as published by the Free Software Foundation; dnl either version 2 of the License, or (at your option) any later version. dnl As a special exception to the GNU General Public License, this file dnl may be distributed as part of a program that contains a configuration dnl script generated by Autoconf, under the same distribution terms as dnl the rest of that program. dnl From Bruno Haible, Marcus Daniels, Sam Steingold. AC_PREREQ([2.13]) AC_DEFUN([CL_PROG_LN], [ AC_CACHE_CHECK([how to make hard links], [cl_cv_prog_LN], [rm -f conftestdata conftestfile echo data > conftestfile if ln conftestfile conftestdata 2>/dev/null; then cl_cv_prog_LN=ln else cl_cv_prog_LN="cp -p" fi rm -f conftestdata conftestfile ]) LN="$cl_cv_prog_LN" AC_SUBST([LN]) ]) AC_DEFUN([CL_PROG_LN_S], [ AC_REQUIRE([CL_PROG_LN]) dnl Make a symlink if possible; otherwise try a hard link. On filesystems dnl which support neither symlink nor hard link, use a plain copy. AC_CACHE_CHECK([whether ln -s works], [cl_cv_prog_LN_S_works], [rm -f conftestdata if ln -s X conftestdata 2>/dev/null; then cl_cv_prog_LN_S_works=yes else cl_cv_prog_LN_S_works=no fi rm -f conftestdata ]) if test $cl_cv_prog_LN_S_works = yes; then LN_S="ln -s" else LN_S="$cl_cv_prog_LN" fi AC_SUBST([LN_S]) ]) libffcall-2.2/m4/getpagesize.m40000664000000000000000000000304713136760230013262 00000000000000dnl -*- Autoconf -*- dnl Copyright (C) 1993-2017 Free Software Foundation, Inc. dnl This file is free software, distributed under the terms of the GNU dnl General Public License as published by the Free Software Foundation; dnl either version 2 of the License, or (at your option) any later version. dnl As a special exception to the GNU General Public License, this file dnl may be distributed as part of a program that contains a configuration dnl script generated by Autoconf, under the same distribution terms as dnl the rest of that program. dnl From Bruno Haible, Marcus Daniels, Sam Steingold. AC_PREREQ([2.57]) AC_DEFUN([CL_GETPAGESIZE], [ CL_LINK_CHECK([getpagesize], [cl_cv_func_getpagesize], [#ifdef HAVE_UNISTD_H #include #include #endif ], [getpagesize();], [ AC_DEFINE([HAVE_GETPAGESIZE], [], [have getpagesize()]) have_getpagesize=1 ]) if test -n "$have_getpagesize"; then CL_PROTO([getpagesize], [CL_PROTO_RET( [#include #ifdef HAVE_UNISTD_H #include #endif ], [int getpagesize();], [cl_cv_proto_getpagesize_ret], [int], [size_t]) ], [extern $cl_cv_proto_getpagesize_ret getpagesize (void);]) AC_DEFINE_UNQUOTED([RETGETPAGESIZETYPE], [$cl_cv_proto_getpagesize_ret], [return type of getpagesize()]) else dnl Otherwise we use PAGESIZE defined in . dnl But mingw32 doesn't have . AC_CHECK_HEADERS([sys/param.h]) fi ]) libffcall-2.2/m4/lt~obsolete.m40000644000000000000000000001377412456256724013347 00000000000000# lt~obsolete.m4 -- aclocal satisfying obsolete definitions. -*-Autoconf-*- # # Copyright (C) 2004-2005, 2007, 2009, 2011-2015 Free Software # Foundation, Inc. # Written by Scott James Remnant, 2004. # # This file is free software; the Free Software Foundation gives # unlimited permission to copy and/or distribute it, with or without # modifications, as long as this notice is preserved. # serial 5 lt~obsolete.m4 # These exist entirely to fool aclocal when bootstrapping libtool. # # In the past libtool.m4 has provided macros via AC_DEFUN (or AU_DEFUN), # which have later been changed to m4_define as they aren't part of the # exported API, or moved to Autoconf or Automake where they belong. # # The trouble is, aclocal is a bit thick. It'll see the old AC_DEFUN # in /usr/share/aclocal/libtool.m4 and remember it, then when it sees us # using a macro with the same name in our local m4/libtool.m4 it'll # pull the old libtool.m4 in (it doesn't see our shiny new m4_define # and doesn't know about Autoconf macros at all.) # # So we provide this file, which has a silly filename so it's always # included after everything else. This provides aclocal with the # AC_DEFUNs it wants, but when m4 processes it, it doesn't do anything # because those macros already exist, or will be overwritten later. # We use AC_DEFUN over AU_DEFUN for compatibility with aclocal-1.6. # # Anytime we withdraw an AC_DEFUN or AU_DEFUN, remember to add it here. # Yes, that means every name once taken will need to remain here until # we give up compatibility with versions before 1.7, at which point # we need to keep only those names which we still refer to. # This is to help aclocal find these macros, as it can't see m4_define. AC_DEFUN([LTOBSOLETE_VERSION], [m4_if([1])]) m4_ifndef([AC_LIBTOOL_LINKER_OPTION], [AC_DEFUN([AC_LIBTOOL_LINKER_OPTION])]) m4_ifndef([AC_PROG_EGREP], [AC_DEFUN([AC_PROG_EGREP])]) m4_ifndef([_LT_AC_PROG_ECHO_BACKSLASH], [AC_DEFUN([_LT_AC_PROG_ECHO_BACKSLASH])]) m4_ifndef([_LT_AC_SHELL_INIT], [AC_DEFUN([_LT_AC_SHELL_INIT])]) m4_ifndef([_LT_AC_SYS_LIBPATH_AIX], [AC_DEFUN([_LT_AC_SYS_LIBPATH_AIX])]) m4_ifndef([_LT_PROG_LTMAIN], [AC_DEFUN([_LT_PROG_LTMAIN])]) m4_ifndef([_LT_AC_TAGVAR], [AC_DEFUN([_LT_AC_TAGVAR])]) m4_ifndef([AC_LTDL_ENABLE_INSTALL], [AC_DEFUN([AC_LTDL_ENABLE_INSTALL])]) m4_ifndef([AC_LTDL_PREOPEN], [AC_DEFUN([AC_LTDL_PREOPEN])]) m4_ifndef([_LT_AC_SYS_COMPILER], [AC_DEFUN([_LT_AC_SYS_COMPILER])]) m4_ifndef([_LT_AC_LOCK], [AC_DEFUN([_LT_AC_LOCK])]) m4_ifndef([AC_LIBTOOL_SYS_OLD_ARCHIVE], [AC_DEFUN([AC_LIBTOOL_SYS_OLD_ARCHIVE])]) m4_ifndef([_LT_AC_TRY_DLOPEN_SELF], [AC_DEFUN([_LT_AC_TRY_DLOPEN_SELF])]) m4_ifndef([AC_LIBTOOL_PROG_CC_C_O], [AC_DEFUN([AC_LIBTOOL_PROG_CC_C_O])]) m4_ifndef([AC_LIBTOOL_SYS_HARD_LINK_LOCKS], [AC_DEFUN([AC_LIBTOOL_SYS_HARD_LINK_LOCKS])]) m4_ifndef([AC_LIBTOOL_OBJDIR], [AC_DEFUN([AC_LIBTOOL_OBJDIR])]) m4_ifndef([AC_LTDL_OBJDIR], [AC_DEFUN([AC_LTDL_OBJDIR])]) m4_ifndef([AC_LIBTOOL_PROG_LD_HARDCODE_LIBPATH], [AC_DEFUN([AC_LIBTOOL_PROG_LD_HARDCODE_LIBPATH])]) m4_ifndef([AC_LIBTOOL_SYS_LIB_STRIP], [AC_DEFUN([AC_LIBTOOL_SYS_LIB_STRIP])]) m4_ifndef([AC_PATH_MAGIC], [AC_DEFUN([AC_PATH_MAGIC])]) m4_ifndef([AC_PROG_LD_GNU], [AC_DEFUN([AC_PROG_LD_GNU])]) m4_ifndef([AC_PROG_LD_RELOAD_FLAG], [AC_DEFUN([AC_PROG_LD_RELOAD_FLAG])]) m4_ifndef([AC_DEPLIBS_CHECK_METHOD], [AC_DEFUN([AC_DEPLIBS_CHECK_METHOD])]) m4_ifndef([AC_LIBTOOL_PROG_COMPILER_NO_RTTI], [AC_DEFUN([AC_LIBTOOL_PROG_COMPILER_NO_RTTI])]) m4_ifndef([AC_LIBTOOL_SYS_GLOBAL_SYMBOL_PIPE], [AC_DEFUN([AC_LIBTOOL_SYS_GLOBAL_SYMBOL_PIPE])]) m4_ifndef([AC_LIBTOOL_PROG_COMPILER_PIC], [AC_DEFUN([AC_LIBTOOL_PROG_COMPILER_PIC])]) m4_ifndef([AC_LIBTOOL_PROG_LD_SHLIBS], [AC_DEFUN([AC_LIBTOOL_PROG_LD_SHLIBS])]) m4_ifndef([AC_LIBTOOL_POSTDEP_PREDEP], [AC_DEFUN([AC_LIBTOOL_POSTDEP_PREDEP])]) m4_ifndef([LT_AC_PROG_EGREP], [AC_DEFUN([LT_AC_PROG_EGREP])]) m4_ifndef([LT_AC_PROG_SED], [AC_DEFUN([LT_AC_PROG_SED])]) m4_ifndef([_LT_CC_BASENAME], [AC_DEFUN([_LT_CC_BASENAME])]) m4_ifndef([_LT_COMPILER_BOILERPLATE], [AC_DEFUN([_LT_COMPILER_BOILERPLATE])]) m4_ifndef([_LT_LINKER_BOILERPLATE], [AC_DEFUN([_LT_LINKER_BOILERPLATE])]) m4_ifndef([_AC_PROG_LIBTOOL], [AC_DEFUN([_AC_PROG_LIBTOOL])]) m4_ifndef([AC_LIBTOOL_SETUP], [AC_DEFUN([AC_LIBTOOL_SETUP])]) m4_ifndef([_LT_AC_CHECK_DLFCN], [AC_DEFUN([_LT_AC_CHECK_DLFCN])]) m4_ifndef([AC_LIBTOOL_SYS_DYNAMIC_LINKER], [AC_DEFUN([AC_LIBTOOL_SYS_DYNAMIC_LINKER])]) m4_ifndef([_LT_AC_TAGCONFIG], [AC_DEFUN([_LT_AC_TAGCONFIG])]) m4_ifndef([AC_DISABLE_FAST_INSTALL], [AC_DEFUN([AC_DISABLE_FAST_INSTALL])]) m4_ifndef([_LT_AC_LANG_CXX], [AC_DEFUN([_LT_AC_LANG_CXX])]) m4_ifndef([_LT_AC_LANG_F77], [AC_DEFUN([_LT_AC_LANG_F77])]) m4_ifndef([_LT_AC_LANG_GCJ], [AC_DEFUN([_LT_AC_LANG_GCJ])]) m4_ifndef([AC_LIBTOOL_LANG_C_CONFIG], [AC_DEFUN([AC_LIBTOOL_LANG_C_CONFIG])]) m4_ifndef([_LT_AC_LANG_C_CONFIG], [AC_DEFUN([_LT_AC_LANG_C_CONFIG])]) m4_ifndef([AC_LIBTOOL_LANG_CXX_CONFIG], [AC_DEFUN([AC_LIBTOOL_LANG_CXX_CONFIG])]) m4_ifndef([_LT_AC_LANG_CXX_CONFIG], [AC_DEFUN([_LT_AC_LANG_CXX_CONFIG])]) m4_ifndef([AC_LIBTOOL_LANG_F77_CONFIG], [AC_DEFUN([AC_LIBTOOL_LANG_F77_CONFIG])]) m4_ifndef([_LT_AC_LANG_F77_CONFIG], [AC_DEFUN([_LT_AC_LANG_F77_CONFIG])]) m4_ifndef([AC_LIBTOOL_LANG_GCJ_CONFIG], [AC_DEFUN([AC_LIBTOOL_LANG_GCJ_CONFIG])]) m4_ifndef([_LT_AC_LANG_GCJ_CONFIG], [AC_DEFUN([_LT_AC_LANG_GCJ_CONFIG])]) m4_ifndef([AC_LIBTOOL_LANG_RC_CONFIG], [AC_DEFUN([AC_LIBTOOL_LANG_RC_CONFIG])]) m4_ifndef([_LT_AC_LANG_RC_CONFIG], [AC_DEFUN([_LT_AC_LANG_RC_CONFIG])]) m4_ifndef([AC_LIBTOOL_CONFIG], [AC_DEFUN([AC_LIBTOOL_CONFIG])]) m4_ifndef([_LT_AC_FILE_LTDLL_C], [AC_DEFUN([_LT_AC_FILE_LTDLL_C])]) m4_ifndef([_LT_REQUIRED_DARWIN_CHECKS], [AC_DEFUN([_LT_REQUIRED_DARWIN_CHECKS])]) m4_ifndef([_LT_AC_PROG_CXXCPP], [AC_DEFUN([_LT_AC_PROG_CXXCPP])]) m4_ifndef([_LT_PREPARE_SED_QUOTE_VARS], [AC_DEFUN([_LT_PREPARE_SED_QUOTE_VARS])]) m4_ifndef([_LT_PROG_ECHO_BACKSLASH], [AC_DEFUN([_LT_PROG_ECHO_BACKSLASH])]) m4_ifndef([_LT_PROG_F77], [AC_DEFUN([_LT_PROG_F77])]) m4_ifndef([_LT_PROG_FC], [AC_DEFUN([_LT_PROG_FC])]) m4_ifndef([_LT_PROG_CXX], [AC_DEFUN([_LT_PROG_CXX])]) libffcall-2.2/m4/cc-gcc.m40000664000000000000000000000203613136760230012067 00000000000000dnl -*- Autoconf -*- dnl Copyright (C) 1993-2017 Free Software Foundation, Inc. dnl This file is free software, distributed under the terms of the GNU dnl General Public License as published by the Free Software Foundation; dnl either version 2 of the License, or (at your option) any later version. dnl As a special exception to the GNU General Public License, this file dnl may be distributed as part of a program that contains a configuration dnl script generated by Autoconf, under the same distribution terms as dnl the rest of that program. dnl From Bruno Haible, Marcus Daniels. AC_PREREQ([2.13]) AC_DEFUN([CL_CC_GCC], [ AC_REQUIRE([AC_PROG_CPP]) AC_CACHE_CHECK([whether using GNU C], [cl_cv_prog_cc_gcc], [AC_EGREP_CPP([yes], [#ifdef __GNUC__ yes #endif ], [cl_cv_prog_cc_gcc=yes], [cl_cv_prog_cc_gcc=no]) ]) if test $cl_cv_prog_cc_gcc = yes; then CC_GCC=true GCC_X_NONE='-x none' else CC_GCC=false GCC_X_NONE='' fi AC_SUBST([CC_GCC]) AC_SUBST([GCC_X_NONE]) ]) libffcall-2.2/m4/codeexec.m40000664000000000000000000003760313242002377012536 00000000000000dnl -*- Autoconf -*- dnl Copyright (C) 1993-2017 Free Software Foundation, Inc. dnl This file is free software, distributed under the terms of the GNU dnl General Public License as published by the Free Software Foundation; dnl either version 2 of the License, or (at your option) any later version. dnl As a special exception to the GNU General Public License, this file dnl may be distributed as part of a program that contains a configuration dnl script generated by Autoconf, under the same distribution terms as dnl the rest of that program. dnl From Bruno Haible, Marcus Daniels, Sam Steingold. AC_PREREQ([2.13]) AC_DEFUN([CE_DOC],[whether code in malloc()ed memory is executable]) AC_DEFUN([FFCALL_CODEEXEC], [ AC_REQUIRE([AC_CANONICAL_HOST]) AC_REQUIRE([gl_HOST_CPU_C_ABI]) AC_CACHE_CHECK([CE_DOC], [ffcall_cv_codeexec], [dnl The test below does not work on platforms with the following ABIs: dnl - hppa, because function pointers are actually pointers into(!) dnl a two-pointer struct. dnl - hppa64, because function pointers are actually pointers to a dnl four-pointer struct. dnl - powerpc on AIX, powerpc64, because function pointers are actually dnl pointers to a three-pointer struct. dnl - ia64, because function pointers are actually pointers to a dnl two-pointer struct. case "$HOST_CPU_C_ABI--$host_os" in hppa--* | hppa64--* | powerpc--aix* | powerpc64--* | ia64--*) dnl On these platforms, it's irrelevant whether malloc'ed memory is dnl executable, because the trampolines are built without executable dnl code. ffcall_cv_codeexec="irrelevant" ;; arm64--freebsd*) dnl On this platform, malloc()ed memory is not executable, and the dnl test program loops endlessly. ffcall_cv_codeexec=no ;; *) AC_TRY_RUN(GL_NOCRASH [#include /* declare malloc() */ #include int fun () { return 31415926; } int main () { nocrash_init(); {long size = (char*)&main - (char*)&fun; char* funcopy = (char*) malloc(size); int i; for (i = 0; i < size; i++) { funcopy[i] = ((char*)&fun)[i]; } return !((*(int(*)())funcopy)() == 31415926); }} ], [ffcall_cv_codeexec=yes], [ffcall_cv_codeexec=no], [dnl When cross-compiling, assume the known behaviour. dnl If we don't know, assume the worst. case "$host_os" in cygwin*) case "$HOST_CPU_C_ABI" in i386) ffcall_cv_codeexec="guessing yes" ;; x86_64) ffcall_cv_codeexec="guessing no" ;; *) ffcall_cv_codeexec="guessing no" ;; esac ;; darwin*) case "$HOST_CPU_C_ABI" in i386 | powerpc) ffcall_cv_codeexec="guessing yes" ;; x86_64) ffcall_cv_codeexec="guessing no" ;; *) ffcall_cv_codeexec="guessing no" ;; esac ;; irix*) ffcall_cv_codeexec="guessing no" ;; linux*) case "$HOST_CPU_C_ABI" in alpha | ia64) ffcall_cv_codeexec="guessing yes" ;; arm | armhf | arm64 | i386 | mips* | s390 | s390x | sparc | sparc64 | x86_64*) ffcall_cv_codeexec="guessing no" ;; *) ffcall_cv_codeexec="guessing no" ;; esac ;; solaris*) case "$HOST_CPU_C_ABI" in i386 | sparc | sparc64) ffcall_cv_codeexec="guessing yes" ;; x86_64) ffcall_cv_codeexec="guessing no" ;; *) ffcall_cv_codeexec="guessing no" ;; esac ;; *) ffcall_cv_codeexec="guessing no" ;; esac ]) ;; esac ]) case "$ffcall_cv_codeexec" in *yes | irrelevant) AC_DEFINE([CODE_EXECUTABLE], [], CE_DOC) ;; *no) ;; esac ]) dnl Test how to use the mprotect function to make memory executable. dnl Test against the mprotect limitations found in PaX enabled Linux kernels dnl and HardenedBSD. AC_DEFUN([FFCALL_CODEEXEC_PAX], [ AC_REQUIRE([FFCALL_MMAP]) AC_REQUIRE([FFCALL_MPROTECT]) AC_REQUIRE([FFCALL_CODEEXEC]) AC_REQUIRE([AC_CANONICAL_HOST]) case "$ffcall_cv_codeexec" in *yes | irrelevant) ;; *) case "$ac_cv_func_mprotect--$cl_cv_func_mprotect_works" in yes--*yes) AC_CACHE_CHECK([whether mprotect can make malloc()ed memory executable], [ffcall_cv_malloc_mprotect_can_exec], [dnl On RHEL 6 / CentOS 6 with SELinux enabled, the result of dnl this test depends on SELinux flags that can be changed at dnl runtime: By default, the result is 'no'. However, when the flag dnl allow_execheap is turned on, the result is 'yes'. But the flag dnl can be turned off again at any moment. if test "$cross_compiling" != yes -a -d /etc/selinux; then ffcall_cv_malloc_mprotect_can_exec='determined by SELinux at runtime' else AC_TRY_RUN( [#include #include #ifdef HAVE_UNISTD_H #include #endif #include /* declare getpagesize() and mprotect() */ #include #ifndef HAVE_GETPAGESIZE #include #define getpagesize() PAGESIZE #else ]AC_LANG_EXTERN[ RETGETPAGESIZETYPE getpagesize (void); #endif int main () { unsigned int pagesize = getpagesize (); char *p = (char *) malloc (50); int ret; if (p == (char*) -1) /* malloc is not working as expected. */ return 1; p[5] = 0x77; ret = mprotect (p - ((unsigned int) p & (pagesize - 1)), pagesize, PROT_READ | PROT_WRITE | PROT_EXEC); if (ret < 0 && (errno == EACCES || errno == ENOMEM #ifdef ENOTSUP || errno == ENOTSUP #endif ) ) /* mprotect is forbidden to make malloc()ed pages executable that were writable earlier. */ return 2; return 0; } ], [ffcall_cv_malloc_mprotect_can_exec=yes], [dnl When cross-compiling, assume SELinux on Linux. dnl If we don't know, assume the worst. case "$host_os" in linux*) ffcall_cv_malloc_mprotect_can_exec='determined by SELinux at runtime' ;; aix* | cygwin* | darwin* | irix* | solaris*) ffcall_cv_malloc_mprotect_can_exec="guessing yes" ;; *) ffcall_cv_malloc_mprotect_can_exec="guessing no" ;; esac ]) fi ]) case "$ffcall_cv_malloc_mprotect_can_exec" in *yes) MPROTECT_AFTER_MALLOC_CAN_EXEC=1 ;; *no) MPROTECT_AFTER_MALLOC_CAN_EXEC=0 ;; *runtime*) MPROTECT_AFTER_MALLOC_CAN_EXEC='-1' ;; esac AC_DEFINE_UNQUOTED([HAVE_MPROTECT_AFTER_MALLOC_CAN_EXEC], [$MPROTECT_AFTER_MALLOC_CAN_EXEC], [have an mprotect() function that can make malloc()ed memory pages executable]) case "$ffcall_cv_malloc_mprotect_can_exec" in *yes) ;; *) AC_CACHE_CHECK([whether mprotect can make mmap()ed memory executable], [ffcall_cv_mmap_mprotect_can_exec], [dnl On RHEL 6 / CentOS 6 with SELinux enabled, the result of dnl this test depends on SELinux flags that can be changed at dnl runtime: By default, the result is 'yes'. However, when the flags dnl allow_execmem and allow_execstack are turned off, the result is dnl 'no'. if test "$cross_compiling" != yes -a -d /etc/selinux; then ffcall_cv_mmap_mprotect_can_exec='determined by SELinux at runtime' else AC_TRY_RUN( [#include #include #ifdef HAVE_UNISTD_H #include #endif #include /* declare getpagesize() and mprotect() */ #include #ifndef HAVE_GETPAGESIZE #include #define getpagesize() PAGESIZE #else ]AC_LANG_EXTERN[ RETGETPAGESIZETYPE getpagesize (void); #endif #ifndef MAP_FILE #define MAP_FILE 0 #endif #ifndef MAP_VARIABLE #define MAP_VARIABLE 0 #endif int main () { unsigned int pagesize = getpagesize (); char *p; int ret; #if defined HAVE_MMAP_ANON p = (char *) mmap (NULL, pagesize, PROT_READ | PROT_WRITE, MAP_PRIVATE | MAP_ANON | MAP_VARIABLE, -1, 0); #elif defined HAVE_MMAP_ANONYMOUS p = (char *) mmap (NULL, pagesize, PROT_READ | PROT_WRITE, MAP_PRIVATE | MAP_ANONYMOUS | MAP_VARIABLE, -1, 0); #elif defined HAVE_MMAP_DEVZERO int zero_fd = open("/dev/zero", O_RDONLY, 0666); if (zero_fd < 0) return 1; p = (char *) mmap (NULL, pagesize, PROT_READ | PROT_WRITE, MAP_PRIVATE | MAP_FILE | MAP_VARIABLE, zero_fd, 0); #else ?? #endif if (p == (char*) -1) /* mmap is not working as expected. */ return 1; p[5] = 0x77; ret = mprotect (p, pagesize, PROT_READ | PROT_WRITE | PROT_EXEC); if (ret < 0 && (errno == EACCES || errno == ENOMEM #ifdef ENOTSUP || errno == ENOTSUP #endif ) ) /* mprotect is forbidden to make mmap()ed pages executable that were writable earlier. */ return 2; return 0; } ], [ffcall_cv_mmap_mprotect_can_exec=yes], [dnl When cross-compiling, assume SELinux on Linux. dnl If we don't know, assume the worst. case "$host_os" in linux*) ffcall_cv_mmap_mprotect_can_exec='determined by SELinux at runtime' ;; *) ffcall_cv_mmap_mprotect_can_exec="guessing no" ;; esac ]) fi ]) case "$ffcall_cv_mmap_mprotect_can_exec" in *yes) MPROTECT_AFTER_MMAP_CAN_EXEC=1 ;; *no) MPROTECT_AFTER_MMAP_CAN_EXEC=0 ;; *runtime*) MPROTECT_AFTER_MMAP_CAN_EXEC='-1' ;; esac AC_DEFINE_UNQUOTED([HAVE_MPROTECT_AFTER_MMAP_CAN_EXEC], [$MPROTECT_AFTER_MMAP_CAN_EXEC], [have an mprotect() function that can make mmap()ed memory pages executable]) case "$ffcall_cv_mmap_mprotect_can_exec" in *yes) ;; *) AC_CACHE_CHECK([whether a shared mmap can make memory pages executable], [ffcall_cv_mmap_shared_can_exec], [filename="/tmp/trampdata$$.data" AC_TRY_RUN( [#include #include #ifdef HAVE_UNISTD_H #include #endif /* declare getpagesize() and mmap() */ #include #ifndef HAVE_GETPAGESIZE #include #define getpagesize() PAGESIZE #else ]AC_LANG_EXTERN[ RETGETPAGESIZETYPE getpagesize (void); #endif #ifndef MAP_FILE #define MAP_FILE 0 #endif #ifndef MAP_VARIABLE #define MAP_VARIABLE 0 #endif int main () { unsigned int pagesize = getpagesize (); int fd; char *pw; char *px; fd = open ("$filename", O_CREAT | O_RDWR | O_TRUNC, 0700); if (fd < 0) return 1; if (ftruncate (fd, pagesize) < 0) return 2; pw = (char *) mmap (NULL, pagesize, PROT_READ | PROT_WRITE, MAP_SHARED | MAP_FILE | MAP_VARIABLE, fd, 0); if (pw == (char*) -1) return 3; pw[5] = 0xc3; px = (char *) mmap (NULL, pagesize, PROT_READ | PROT_EXEC, MAP_SHARED | MAP_FILE | MAP_VARIABLE, fd, 0); if (px == (char*) -1) return 4; if ((char)px[5] != (char)0xc3) return 5; /* On i386 and x86_64 this is a 'ret' instruction that we can invoke. */ #if (defined __i386 || defined __i386__ || defined _I386 || defined _M_IX86 || defined _X86_) || (defined __x86_64__ || defined __amd64__) ((void (*) (void)) (px + 5)) (); #endif return 0; } ], [ffcall_cv_mmap_shared_can_exec=yes], [dnl When cross-compiling, assume yes, since this is the result dnl on all the platforms where we have tested it. ffcall_cv_mmap_shared_can_exec="guessing yes" ]) rm -f "$filename" ]) case "$ffcall_cv_mmap_shared_can_exec" in *yes) AC_DEFINE([HAVE_MMAP_SHARED_CAN_EXEC], [], [have an mmap() function that, with MAP_SHARED, can make memory pages executable]) ;; esac ;; esac ;; esac ;; esac ;; esac ]) libffcall-2.2/m4/ltversion.m40000644000000000000000000000127312470142720012773 00000000000000# ltversion.m4 -- version numbers -*- Autoconf -*- # # Copyright (C) 2004, 2011-2015 Free Software Foundation, Inc. # Written by Scott James Remnant, 2004 # # This file is free software; the Free Software Foundation gives # unlimited permission to copy and/or distribute it, with or without # modifications, as long as this notice is preserved. # @configure_input@ # serial 4179 ltversion.m4 # This file is part of GNU Libtool m4_define([LT_PACKAGE_VERSION], [2.4.6]) m4_define([LT_PACKAGE_REVISION], [2.4.6]) AC_DEFUN([LTVERSION_VERSION], [macro_version='2.4.6' macro_revision='2.4.6' _LT_DECL(, macro_version, 0, [Which release of libtool.m4 was used?]) _LT_DECL(, macro_revision, 0) ]) libffcall-2.2/m4/mach-vm.m40000664000000000000000000000147413136760230012305 00000000000000dnl -*- Autoconf -*- dnl Copyright (C) 1993-2017 Free Software Foundation, Inc. dnl This file is free software, distributed under the terms of the GNU dnl General Public License as published by the Free Software Foundation; dnl either version 2 of the License, or (at your option) any later version. dnl As a special exception to the GNU General Public License, this file dnl may be distributed as part of a program that contains a configuration dnl script generated by Autoconf, under the same distribution terms as dnl the rest of that program. dnl From Bruno Haible, Marcus Daniels, Sam Steingold. AC_PREREQ([2.57]) AC_DEFUN([CL_MACH_VM], [ CL_LINK_CHECK([vm_allocate], [cl_cv_func_vm], [], [vm_allocate(); task_self();], [AC_DEFINE([HAVE_MACH_VM],[],[have vm_allocate() and task_self() functions])]) ]) libffcall-2.2/m4/ltsugar.m40000644000000000000000000001044012456256724012441 00000000000000# ltsugar.m4 -- libtool m4 base layer. -*-Autoconf-*- # # Copyright (C) 2004-2005, 2007-2008, 2011-2015 Free Software # Foundation, Inc. # Written by Gary V. Vaughan, 2004 # # This file is free software; the Free Software Foundation gives # unlimited permission to copy and/or distribute it, with or without # modifications, as long as this notice is preserved. # serial 6 ltsugar.m4 # This is to help aclocal find these macros, as it can't see m4_define. AC_DEFUN([LTSUGAR_VERSION], [m4_if([0.1])]) # lt_join(SEP, ARG1, [ARG2...]) # ----------------------------- # Produce ARG1SEPARG2...SEPARGn, omitting [] arguments and their # associated separator. # Needed until we can rely on m4_join from Autoconf 2.62, since all earlier # versions in m4sugar had bugs. m4_define([lt_join], [m4_if([$#], [1], [], [$#], [2], [[$2]], [m4_if([$2], [], [], [[$2]_])$0([$1], m4_shift(m4_shift($@)))])]) m4_define([_lt_join], [m4_if([$#$2], [2], [], [m4_if([$2], [], [], [[$1$2]])$0([$1], m4_shift(m4_shift($@)))])]) # lt_car(LIST) # lt_cdr(LIST) # ------------ # Manipulate m4 lists. # These macros are necessary as long as will still need to support # Autoconf-2.59, which quotes differently. m4_define([lt_car], [[$1]]) m4_define([lt_cdr], [m4_if([$#], 0, [m4_fatal([$0: cannot be called without arguments])], [$#], 1, [], [m4_dquote(m4_shift($@))])]) m4_define([lt_unquote], $1) # lt_append(MACRO-NAME, STRING, [SEPARATOR]) # ------------------------------------------ # Redefine MACRO-NAME to hold its former content plus 'SEPARATOR''STRING'. # Note that neither SEPARATOR nor STRING are expanded; they are appended # to MACRO-NAME as is (leaving the expansion for when MACRO-NAME is invoked). # No SEPARATOR is output if MACRO-NAME was previously undefined (different # than defined and empty). # # This macro is needed until we can rely on Autoconf 2.62, since earlier # versions of m4sugar mistakenly expanded SEPARATOR but not STRING. m4_define([lt_append], [m4_define([$1], m4_ifdef([$1], [m4_defn([$1])[$3]])[$2])]) # lt_combine(SEP, PREFIX-LIST, INFIX, SUFFIX1, [SUFFIX2...]) # ---------------------------------------------------------- # Produce a SEP delimited list of all paired combinations of elements of # PREFIX-LIST with SUFFIX1 through SUFFIXn. Each element of the list # has the form PREFIXmINFIXSUFFIXn. # Needed until we can rely on m4_combine added in Autoconf 2.62. m4_define([lt_combine], [m4_if(m4_eval([$# > 3]), [1], [m4_pushdef([_Lt_sep], [m4_define([_Lt_sep], m4_defn([lt_car]))])]]dnl [[m4_foreach([_Lt_prefix], [$2], [m4_foreach([_Lt_suffix], ]m4_dquote(m4_dquote(m4_shift(m4_shift(m4_shift($@)))))[, [_Lt_sep([$1])[]m4_defn([_Lt_prefix])[$3]m4_defn([_Lt_suffix])])])])]) # lt_if_append_uniq(MACRO-NAME, VARNAME, [SEPARATOR], [UNIQ], [NOT-UNIQ]) # ----------------------------------------------------------------------- # Iff MACRO-NAME does not yet contain VARNAME, then append it (delimited # by SEPARATOR if supplied) and expand UNIQ, else NOT-UNIQ. m4_define([lt_if_append_uniq], [m4_ifdef([$1], [m4_if(m4_index([$3]m4_defn([$1])[$3], [$3$2$3]), [-1], [lt_append([$1], [$2], [$3])$4], [$5])], [lt_append([$1], [$2], [$3])$4])]) # lt_dict_add(DICT, KEY, VALUE) # ----------------------------- m4_define([lt_dict_add], [m4_define([$1($2)], [$3])]) # lt_dict_add_subkey(DICT, KEY, SUBKEY, VALUE) # -------------------------------------------- m4_define([lt_dict_add_subkey], [m4_define([$1($2:$3)], [$4])]) # lt_dict_fetch(DICT, KEY, [SUBKEY]) # ---------------------------------- m4_define([lt_dict_fetch], [m4_ifval([$3], m4_ifdef([$1($2:$3)], [m4_defn([$1($2:$3)])]), m4_ifdef([$1($2)], [m4_defn([$1($2)])]))]) # lt_if_dict_fetch(DICT, KEY, [SUBKEY], VALUE, IF-TRUE, [IF-FALSE]) # ----------------------------------------------------------------- m4_define([lt_if_dict_fetch], [m4_if(lt_dict_fetch([$1], [$2], [$3]), [$4], [$5], [$6])]) # lt_dict_filter(DICT, [SUBKEY], VALUE, [SEPARATOR], KEY, [...]) # -------------------------------------------------------------- m4_define([lt_dict_filter], [m4_if([$5], [], [], [lt_join(m4_quote(m4_default([$4], [[, ]])), lt_unquote(m4_split(m4_normalize(m4_foreach(_Lt_key, lt_car([m4_shiftn(4, $@)]), [lt_if_dict_fetch([$1], _Lt_key, [$2], [$3], [_Lt_key ])])))))])[]dnl ]) libffcall-2.2/m4/mmap.m40000664000000000000000000001135313137502335011705 00000000000000dnl -*- Autoconf -*- dnl Copyright (C) 1993-2017 Free Software Foundation, Inc. dnl This file is free software, distributed under the terms of the GNU dnl General Public License as published by the Free Software Foundation; dnl either version 2 of the License, or (at your option) any later version. dnl As a special exception to the GNU General Public License, this file dnl may be distributed as part of a program that contains a configuration dnl script generated by Autoconf, under the same distribution terms as dnl the rest of that program. dnl From Bruno Haible, Marcus Daniels, Sam Steingold. AC_PREREQ([2.57]) AC_DEFUN([FFCALL_MMAP], [ AC_REQUIRE([AC_CANONICAL_HOST]) AC_CHECK_HEADER([sys/mman.h], [], [no_mmap=1]) if test -z "$no_mmap"; then AC_CHECK_FUNC([mmap], [], [no_mmap=1]) if test -z "$no_mmap"; then AC_DEFINE([HAVE_MMAP], [], [have and the mmap() function]) AC_CACHE_CHECK([for working mmap], [ffcall_cv_func_mmap_works], [if test $cross_compiling = no; then mmap_prog_1=' #include #ifdef HAVE_UNISTD_H #include #endif #include #include #include int main () { ' mmap_prog_2=' if (mmap(NULL,0x100000,PROT_READ|PROT_WRITE,flags,fd,0) == (void*)-1) exit(1); exit(0); } ' AC_TRY_RUN(GL_NOCRASH [$mmap_prog_1 int flags = MAP_ANON | MAP_PRIVATE; int fd = -1; nocrash_init(); $mmap_prog_2 ], [have_mmap_anon=1 ffcall_cv_func_mmap_anon=yes], [], [dnl When cross-compiling, don't assume anything. : ]) AC_TRY_RUN(GL_NOCRASH [$mmap_prog_1 int flags = MAP_ANONYMOUS | MAP_PRIVATE; int fd = -1; nocrash_init(); $mmap_prog_2 ], [have_mmap_anon=1 ffcall_cv_func_mmap_anonymous=yes], [], [dnl When cross-compiling, don't assume anything. : ]) AC_TRY_RUN(GL_NOCRASH [$mmap_prog_1 #ifndef MAP_FILE #define MAP_FILE 0 #endif int flags = MAP_FILE | MAP_PRIVATE; int fd = open("/dev/zero",O_RDONLY,0666); if (fd<0) exit(1); nocrash_init(); $mmap_prog_2 ], [have_mmap_devzero=1 ffcall_cv_func_mmap_devzero=yes], [], [dnl When cross-compiling, don't assume anything. : ]) if test -n "$have_mmap_anon" -o -n "$have_mmap_devzero"; then ffcall_cv_func_mmap_works=yes else ffcall_cv_func_mmap_works=no fi else dnl When cross-compiling, assume the known behaviour. dnl If we don't know, don't assume anything. case "$host_os" in aix* | cygwin* | darwin* | hpux* | irix* | linux* | solaris*) ffcall_cv_func_mmap_works="guessing yes" ;; *) ffcall_cv_func_mmap_works="guessing no" ;; esac case "$host_os" in aix* | cygwin* | darwin* | linux* | solaris*) ffcall_cv_func_mmap_anon="guessing yes" ;; *) ffcall_cv_func_mmap_anon="guessing no" ;; esac case "$host_os" in aix* | cygwin* | hpux* | linux* | solaris*) ffcall_cv_func_mmap_anonymous="guessing yes" ;; *) ffcall_cv_func_mmap_anonymous="guessing no" ;; esac case "$host_os" in aix* | cygwin* | hpux* | irix* | linux* | solaris*) ffcall_cv_func_mmap_devzero="guessing yes" ;; *) ffcall_cv_func_mmap_devzero="guessing no" ;; esac fi ]) case "$ffcall_cv_func_mmap_anon" in *yes) AC_DEFINE([HAVE_MMAP_ANON], [], [ defines MAP_ANON and mmaping with MAP_ANON works]) ;; esac case "$ffcall_cv_func_mmap_anonymous" in *yes) AC_DEFINE([HAVE_MMAP_ANONYMOUS], [], [ defines MAP_ANONYMOUS and mmaping with MAP_ANONYMOUS works]) ;; esac case "$ffcall_cv_func_mmap_devzero" in *yes) AC_DEFINE([HAVE_MMAP_DEVZERO], [], [mmaping of the special device /dev/zero works]) ;; esac fi fi ]) libffcall-2.2/m4/ltoptions.m40000644000000000000000000003426212456256724013023 00000000000000# Helper functions for option handling. -*- Autoconf -*- # # Copyright (C) 2004-2005, 2007-2009, 2011-2015 Free Software # Foundation, Inc. # Written by Gary V. Vaughan, 2004 # # This file is free software; the Free Software Foundation gives # unlimited permission to copy and/or distribute it, with or without # modifications, as long as this notice is preserved. # serial 8 ltoptions.m4 # This is to help aclocal find these macros, as it can't see m4_define. AC_DEFUN([LTOPTIONS_VERSION], [m4_if([1])]) # _LT_MANGLE_OPTION(MACRO-NAME, OPTION-NAME) # ------------------------------------------ m4_define([_LT_MANGLE_OPTION], [[_LT_OPTION_]m4_bpatsubst($1__$2, [[^a-zA-Z0-9_]], [_])]) # _LT_SET_OPTION(MACRO-NAME, OPTION-NAME) # --------------------------------------- # Set option OPTION-NAME for macro MACRO-NAME, and if there is a # matching handler defined, dispatch to it. Other OPTION-NAMEs are # saved as a flag. m4_define([_LT_SET_OPTION], [m4_define(_LT_MANGLE_OPTION([$1], [$2]))dnl m4_ifdef(_LT_MANGLE_DEFUN([$1], [$2]), _LT_MANGLE_DEFUN([$1], [$2]), [m4_warning([Unknown $1 option '$2'])])[]dnl ]) # _LT_IF_OPTION(MACRO-NAME, OPTION-NAME, IF-SET, [IF-NOT-SET]) # ------------------------------------------------------------ # Execute IF-SET if OPTION is set, IF-NOT-SET otherwise. m4_define([_LT_IF_OPTION], [m4_ifdef(_LT_MANGLE_OPTION([$1], [$2]), [$3], [$4])]) # _LT_UNLESS_OPTIONS(MACRO-NAME, OPTION-LIST, IF-NOT-SET) # ------------------------------------------------------- # Execute IF-NOT-SET unless all options in OPTION-LIST for MACRO-NAME # are set. m4_define([_LT_UNLESS_OPTIONS], [m4_foreach([_LT_Option], m4_split(m4_normalize([$2])), [m4_ifdef(_LT_MANGLE_OPTION([$1], _LT_Option), [m4_define([$0_found])])])[]dnl m4_ifdef([$0_found], [m4_undefine([$0_found])], [$3 ])[]dnl ]) # _LT_SET_OPTIONS(MACRO-NAME, OPTION-LIST) # ---------------------------------------- # OPTION-LIST is a space-separated list of Libtool options associated # with MACRO-NAME. If any OPTION has a matching handler declared with # LT_OPTION_DEFINE, dispatch to that macro; otherwise complain about # the unknown option and exit. m4_defun([_LT_SET_OPTIONS], [# Set options m4_foreach([_LT_Option], m4_split(m4_normalize([$2])), [_LT_SET_OPTION([$1], _LT_Option)]) m4_if([$1],[LT_INIT],[ dnl dnl Simply set some default values (i.e off) if boolean options were not dnl specified: _LT_UNLESS_OPTIONS([LT_INIT], [dlopen], [enable_dlopen=no ]) _LT_UNLESS_OPTIONS([LT_INIT], [win32-dll], [enable_win32_dll=no ]) dnl dnl If no reference was made to various pairs of opposing options, then dnl we run the default mode handler for the pair. For example, if neither dnl 'shared' nor 'disable-shared' was passed, we enable building of shared dnl archives by default: _LT_UNLESS_OPTIONS([LT_INIT], [shared disable-shared], [_LT_ENABLE_SHARED]) _LT_UNLESS_OPTIONS([LT_INIT], [static disable-static], [_LT_ENABLE_STATIC]) _LT_UNLESS_OPTIONS([LT_INIT], [pic-only no-pic], [_LT_WITH_PIC]) _LT_UNLESS_OPTIONS([LT_INIT], [fast-install disable-fast-install], [_LT_ENABLE_FAST_INSTALL]) _LT_UNLESS_OPTIONS([LT_INIT], [aix-soname=aix aix-soname=both aix-soname=svr4], [_LT_WITH_AIX_SONAME([aix])]) ]) ])# _LT_SET_OPTIONS ## --------------------------------- ## ## Macros to handle LT_INIT options. ## ## --------------------------------- ## # _LT_MANGLE_DEFUN(MACRO-NAME, OPTION-NAME) # ----------------------------------------- m4_define([_LT_MANGLE_DEFUN], [[_LT_OPTION_DEFUN_]m4_bpatsubst(m4_toupper([$1__$2]), [[^A-Z0-9_]], [_])]) # LT_OPTION_DEFINE(MACRO-NAME, OPTION-NAME, CODE) # ----------------------------------------------- m4_define([LT_OPTION_DEFINE], [m4_define(_LT_MANGLE_DEFUN([$1], [$2]), [$3])[]dnl ])# LT_OPTION_DEFINE # dlopen # ------ LT_OPTION_DEFINE([LT_INIT], [dlopen], [enable_dlopen=yes ]) AU_DEFUN([AC_LIBTOOL_DLOPEN], [_LT_SET_OPTION([LT_INIT], [dlopen]) AC_DIAGNOSE([obsolete], [$0: Remove this warning and the call to _LT_SET_OPTION when you put the 'dlopen' option into LT_INIT's first parameter.]) ]) dnl aclocal-1.4 backwards compatibility: dnl AC_DEFUN([AC_LIBTOOL_DLOPEN], []) # win32-dll # --------- # Declare package support for building win32 dll's. LT_OPTION_DEFINE([LT_INIT], [win32-dll], [enable_win32_dll=yes case $host in *-*-cygwin* | *-*-mingw* | *-*-pw32* | *-*-cegcc*) AC_CHECK_TOOL(AS, as, false) AC_CHECK_TOOL(DLLTOOL, dlltool, false) AC_CHECK_TOOL(OBJDUMP, objdump, false) ;; esac test -z "$AS" && AS=as _LT_DECL([], [AS], [1], [Assembler program])dnl test -z "$DLLTOOL" && DLLTOOL=dlltool _LT_DECL([], [DLLTOOL], [1], [DLL creation program])dnl test -z "$OBJDUMP" && OBJDUMP=objdump _LT_DECL([], [OBJDUMP], [1], [Object dumper program])dnl ])# win32-dll AU_DEFUN([AC_LIBTOOL_WIN32_DLL], [AC_REQUIRE([AC_CANONICAL_HOST])dnl _LT_SET_OPTION([LT_INIT], [win32-dll]) AC_DIAGNOSE([obsolete], [$0: Remove this warning and the call to _LT_SET_OPTION when you put the 'win32-dll' option into LT_INIT's first parameter.]) ]) dnl aclocal-1.4 backwards compatibility: dnl AC_DEFUN([AC_LIBTOOL_WIN32_DLL], []) # _LT_ENABLE_SHARED([DEFAULT]) # ---------------------------- # implement the --enable-shared flag, and supports the 'shared' and # 'disable-shared' LT_INIT options. # DEFAULT is either 'yes' or 'no'. If omitted, it defaults to 'yes'. m4_define([_LT_ENABLE_SHARED], [m4_define([_LT_ENABLE_SHARED_DEFAULT], [m4_if($1, no, no, yes)])dnl AC_ARG_ENABLE([shared], [AS_HELP_STRING([--enable-shared@<:@=PKGS@:>@], [build shared libraries @<:@default=]_LT_ENABLE_SHARED_DEFAULT[@:>@])], [p=${PACKAGE-default} case $enableval in yes) enable_shared=yes ;; no) enable_shared=no ;; *) enable_shared=no # Look at the argument we got. We use all the common list separators. lt_save_ifs=$IFS; IFS=$IFS$PATH_SEPARATOR, for pkg in $enableval; do IFS=$lt_save_ifs if test "X$pkg" = "X$p"; then enable_shared=yes fi done IFS=$lt_save_ifs ;; esac], [enable_shared=]_LT_ENABLE_SHARED_DEFAULT) _LT_DECL([build_libtool_libs], [enable_shared], [0], [Whether or not to build shared libraries]) ])# _LT_ENABLE_SHARED LT_OPTION_DEFINE([LT_INIT], [shared], [_LT_ENABLE_SHARED([yes])]) LT_OPTION_DEFINE([LT_INIT], [disable-shared], [_LT_ENABLE_SHARED([no])]) # Old names: AC_DEFUN([AC_ENABLE_SHARED], [_LT_SET_OPTION([LT_INIT], m4_if([$1], [no], [disable-])[shared]) ]) AC_DEFUN([AC_DISABLE_SHARED], [_LT_SET_OPTION([LT_INIT], [disable-shared]) ]) AU_DEFUN([AM_ENABLE_SHARED], [AC_ENABLE_SHARED($@)]) AU_DEFUN([AM_DISABLE_SHARED], [AC_DISABLE_SHARED($@)]) dnl aclocal-1.4 backwards compatibility: dnl AC_DEFUN([AM_ENABLE_SHARED], []) dnl AC_DEFUN([AM_DISABLE_SHARED], []) # _LT_ENABLE_STATIC([DEFAULT]) # ---------------------------- # implement the --enable-static flag, and support the 'static' and # 'disable-static' LT_INIT options. # DEFAULT is either 'yes' or 'no'. If omitted, it defaults to 'yes'. m4_define([_LT_ENABLE_STATIC], [m4_define([_LT_ENABLE_STATIC_DEFAULT], [m4_if($1, no, no, yes)])dnl AC_ARG_ENABLE([static], [AS_HELP_STRING([--enable-static@<:@=PKGS@:>@], [build static libraries @<:@default=]_LT_ENABLE_STATIC_DEFAULT[@:>@])], [p=${PACKAGE-default} case $enableval in yes) enable_static=yes ;; no) enable_static=no ;; *) enable_static=no # Look at the argument we got. We use all the common list separators. lt_save_ifs=$IFS; IFS=$IFS$PATH_SEPARATOR, for pkg in $enableval; do IFS=$lt_save_ifs if test "X$pkg" = "X$p"; then enable_static=yes fi done IFS=$lt_save_ifs ;; esac], [enable_static=]_LT_ENABLE_STATIC_DEFAULT) _LT_DECL([build_old_libs], [enable_static], [0], [Whether or not to build static libraries]) ])# _LT_ENABLE_STATIC LT_OPTION_DEFINE([LT_INIT], [static], [_LT_ENABLE_STATIC([yes])]) LT_OPTION_DEFINE([LT_INIT], [disable-static], [_LT_ENABLE_STATIC([no])]) # Old names: AC_DEFUN([AC_ENABLE_STATIC], [_LT_SET_OPTION([LT_INIT], m4_if([$1], [no], [disable-])[static]) ]) AC_DEFUN([AC_DISABLE_STATIC], [_LT_SET_OPTION([LT_INIT], [disable-static]) ]) AU_DEFUN([AM_ENABLE_STATIC], [AC_ENABLE_STATIC($@)]) AU_DEFUN([AM_DISABLE_STATIC], [AC_DISABLE_STATIC($@)]) dnl aclocal-1.4 backwards compatibility: dnl AC_DEFUN([AM_ENABLE_STATIC], []) dnl AC_DEFUN([AM_DISABLE_STATIC], []) # _LT_ENABLE_FAST_INSTALL([DEFAULT]) # ---------------------------------- # implement the --enable-fast-install flag, and support the 'fast-install' # and 'disable-fast-install' LT_INIT options. # DEFAULT is either 'yes' or 'no'. If omitted, it defaults to 'yes'. m4_define([_LT_ENABLE_FAST_INSTALL], [m4_define([_LT_ENABLE_FAST_INSTALL_DEFAULT], [m4_if($1, no, no, yes)])dnl AC_ARG_ENABLE([fast-install], [AS_HELP_STRING([--enable-fast-install@<:@=PKGS@:>@], [optimize for fast installation @<:@default=]_LT_ENABLE_FAST_INSTALL_DEFAULT[@:>@])], [p=${PACKAGE-default} case $enableval in yes) enable_fast_install=yes ;; no) enable_fast_install=no ;; *) enable_fast_install=no # Look at the argument we got. We use all the common list separators. lt_save_ifs=$IFS; IFS=$IFS$PATH_SEPARATOR, for pkg in $enableval; do IFS=$lt_save_ifs if test "X$pkg" = "X$p"; then enable_fast_install=yes fi done IFS=$lt_save_ifs ;; esac], [enable_fast_install=]_LT_ENABLE_FAST_INSTALL_DEFAULT) _LT_DECL([fast_install], [enable_fast_install], [0], [Whether or not to optimize for fast installation])dnl ])# _LT_ENABLE_FAST_INSTALL LT_OPTION_DEFINE([LT_INIT], [fast-install], [_LT_ENABLE_FAST_INSTALL([yes])]) LT_OPTION_DEFINE([LT_INIT], [disable-fast-install], [_LT_ENABLE_FAST_INSTALL([no])]) # Old names: AU_DEFUN([AC_ENABLE_FAST_INSTALL], [_LT_SET_OPTION([LT_INIT], m4_if([$1], [no], [disable-])[fast-install]) AC_DIAGNOSE([obsolete], [$0: Remove this warning and the call to _LT_SET_OPTION when you put the 'fast-install' option into LT_INIT's first parameter.]) ]) AU_DEFUN([AC_DISABLE_FAST_INSTALL], [_LT_SET_OPTION([LT_INIT], [disable-fast-install]) AC_DIAGNOSE([obsolete], [$0: Remove this warning and the call to _LT_SET_OPTION when you put the 'disable-fast-install' option into LT_INIT's first parameter.]) ]) dnl aclocal-1.4 backwards compatibility: dnl AC_DEFUN([AC_ENABLE_FAST_INSTALL], []) dnl AC_DEFUN([AM_DISABLE_FAST_INSTALL], []) # _LT_WITH_AIX_SONAME([DEFAULT]) # ---------------------------------- # implement the --with-aix-soname flag, and support the `aix-soname=aix' # and `aix-soname=both' and `aix-soname=svr4' LT_INIT options. DEFAULT # is either `aix', `both' or `svr4'. If omitted, it defaults to `aix'. m4_define([_LT_WITH_AIX_SONAME], [m4_define([_LT_WITH_AIX_SONAME_DEFAULT], [m4_if($1, svr4, svr4, m4_if($1, both, both, aix))])dnl shared_archive_member_spec= case $host,$enable_shared in power*-*-aix[[5-9]]*,yes) AC_MSG_CHECKING([which variant of shared library versioning to provide]) AC_ARG_WITH([aix-soname], [AS_HELP_STRING([--with-aix-soname=aix|svr4|both], [shared library versioning (aka "SONAME") variant to provide on AIX, @<:@default=]_LT_WITH_AIX_SONAME_DEFAULT[@:>@.])], [case $withval in aix|svr4|both) ;; *) AC_MSG_ERROR([Unknown argument to --with-aix-soname]) ;; esac lt_cv_with_aix_soname=$with_aix_soname], [AC_CACHE_VAL([lt_cv_with_aix_soname], [lt_cv_with_aix_soname=]_LT_WITH_AIX_SONAME_DEFAULT) with_aix_soname=$lt_cv_with_aix_soname]) AC_MSG_RESULT([$with_aix_soname]) if test aix != "$with_aix_soname"; then # For the AIX way of multilib, we name the shared archive member # based on the bitwidth used, traditionally 'shr.o' or 'shr_64.o', # and 'shr.imp' or 'shr_64.imp', respectively, for the Import File. # Even when GNU compilers ignore OBJECT_MODE but need '-maix64' flag, # the AIX toolchain works better with OBJECT_MODE set (default 32). if test 64 = "${OBJECT_MODE-32}"; then shared_archive_member_spec=shr_64 else shared_archive_member_spec=shr fi fi ;; *) with_aix_soname=aix ;; esac _LT_DECL([], [shared_archive_member_spec], [0], [Shared archive member basename, for filename based shared library versioning on AIX])dnl ])# _LT_WITH_AIX_SONAME LT_OPTION_DEFINE([LT_INIT], [aix-soname=aix], [_LT_WITH_AIX_SONAME([aix])]) LT_OPTION_DEFINE([LT_INIT], [aix-soname=both], [_LT_WITH_AIX_SONAME([both])]) LT_OPTION_DEFINE([LT_INIT], [aix-soname=svr4], [_LT_WITH_AIX_SONAME([svr4])]) # _LT_WITH_PIC([MODE]) # -------------------- # implement the --with-pic flag, and support the 'pic-only' and 'no-pic' # LT_INIT options. # MODE is either 'yes' or 'no'. If omitted, it defaults to 'both'. m4_define([_LT_WITH_PIC], [AC_ARG_WITH([pic], [AS_HELP_STRING([--with-pic@<:@=PKGS@:>@], [try to use only PIC/non-PIC objects @<:@default=use both@:>@])], [lt_p=${PACKAGE-default} case $withval in yes|no) pic_mode=$withval ;; *) pic_mode=default # Look at the argument we got. We use all the common list separators. lt_save_ifs=$IFS; IFS=$IFS$PATH_SEPARATOR, for lt_pkg in $withval; do IFS=$lt_save_ifs if test "X$lt_pkg" = "X$lt_p"; then pic_mode=yes fi done IFS=$lt_save_ifs ;; esac], [pic_mode=m4_default([$1], [default])]) _LT_DECL([], [pic_mode], [0], [What type of objects to build])dnl ])# _LT_WITH_PIC LT_OPTION_DEFINE([LT_INIT], [pic-only], [_LT_WITH_PIC([yes])]) LT_OPTION_DEFINE([LT_INIT], [no-pic], [_LT_WITH_PIC([no])]) # Old name: AU_DEFUN([AC_LIBTOOL_PICMODE], [_LT_SET_OPTION([LT_INIT], [pic-only]) AC_DIAGNOSE([obsolete], [$0: Remove this warning and the call to _LT_SET_OPTION when you put the 'pic-only' option into LT_INIT's first parameter.]) ]) dnl aclocal-1.4 backwards compatibility: dnl AC_DEFUN([AC_LIBTOOL_PICMODE], []) ## ----------------- ## ## LTDL_INIT Options ## ## ----------------- ## m4_define([_LTDL_MODE], []) LT_OPTION_DEFINE([LTDL_INIT], [nonrecursive], [m4_define([_LTDL_MODE], [nonrecursive])]) LT_OPTION_DEFINE([LTDL_INIT], [recursive], [m4_define([_LTDL_MODE], [recursive])]) LT_OPTION_DEFINE([LTDL_INIT], [subproject], [m4_define([_LTDL_MODE], [subproject])]) m4_define([_LTDL_TYPE], []) LT_OPTION_DEFINE([LTDL_INIT], [installable], [m4_define([_LTDL_TYPE], [installable])]) LT_OPTION_DEFINE([LTDL_INIT], [convenience], [m4_define([_LTDL_TYPE], [convenience])]) libffcall-2.2/m4/as-underscore.m40000664000000000000000000000146713153072350013527 00000000000000dnl -*- Autoconf -*- dnl Copyright (C) 1993-2017 Free Software Foundation, Inc. dnl This file is free software, distributed under the terms of the GNU dnl General Public License as published by the Free Software Foundation; dnl either version 2 of the License, or (at your option) any later version. dnl As a special exception to the GNU General Public License, this file dnl may be distributed as part of a program that contains a configuration dnl script generated by Autoconf, under the same distribution terms as dnl the rest of that program. dnl From Bruno Haible, Marcus Daniels, Sam Steingold. AC_PREREQ([2.57]) AC_DEFUN([CL_AS_UNDERSCORE], [ AC_REQUIRE([gl_ASM_SYMBOL_PREFIX]) if test "$USER_LABEL_PREFIX" = '_'; then AS_UNDERSCORE=true else AS_UNDERSCORE=false fi AC_SUBST([AS_UNDERSCORE]) ]) libffcall-2.2/m4/proto.m40000664000000000000000000000213613136760230012114 00000000000000dnl -*- Autoconf -*- dnl Copyright (C) 1993-2017 Free Software Foundation, Inc. dnl This file is free software, distributed under the terms of the GNU dnl General Public License as published by the Free Software Foundation; dnl either version 2 of the License, or (at your option) any later version. dnl As a special exception to the GNU General Public License, this file dnl may be distributed as part of a program that contains a configuration dnl script generated by Autoconf, under the same distribution terms as dnl the rest of that program. dnl From Bruno Haible, Marcus Daniels, Sam Steingold. AC_PREREQ([2.13]) dnl CL_PROTO(IDENTIFIER, ACTION-IF-NOT-FOUND, FINAL-PROTOTYPE) AC_DEFUN([CL_PROTO], [ AC_MSG_CHECKING([for $1 declaration]) AC_CACHE_VAL([cl_cv_proto_$1], [$2 cl_cv_proto_$1="$3"]) cl_cv_proto_$1=`echo "[$]cl_cv_proto_$1" | tr -s ' ' | sed -e 's/( /(/'` AC_MSG_RESULT([$]{ac_t:- }[$][cl_cv_proto_$1]) ]) dnl CL_PROTO_RET(INCLUDES, DECL, CACHE-ID, TYPE-IF-OK, TYPE-IF-FAILS) AC_DEFUN([CL_PROTO_RET], [ AC_TRY_COMPILE([$1] AC_LANG_EXTERN [$2 ], [], [$3="$4"], [$3="$5"]) ]) libffcall-2.2/m4/smallstruct.m40000664000000000000000000000604113137502335013326 00000000000000dnl -*- Autoconf -*- dnl Copyright (C) 1993-2017 Free Software Foundation, Inc. dnl This file is free software, distributed under the terms of the GNU dnl General Public License as published by the Free Software Foundation; dnl either version 2 of the License, or (at your option) any later version. dnl As a special exception to the GNU General Public License, this file dnl may be distributed as part of a program that contains a configuration dnl script generated by Autoconf, under the same distribution terms as dnl the rest of that program. dnl From Bruno Haible, Marcus Daniels, Sam Steingold. AC_PREREQ([2.13]) AC_DEFUN([SSR_DOC],[whether small structs are returned in registers]) AC_DEFUN([FFCALL_SMALL_STRUCT_RETURN], [ AC_REQUIRE([AC_CANONICAL_HOST]) AC_REQUIRE([gl_HOST_CPU_C_ABI]) AC_CACHE_CHECK([SSR_DOC], [ffcall_cv_c_struct_return_small], [AC_TRY_RUN(GL_NOCRASH [typedef struct { long x; } foo; long y; foo foofun () { foo f; f.x = y; return f; } long (*fun) () = (long (*) ()) foofun; int main() { nocrash_init(); y = 37; if ((*fun)() != 37) return 1; y = 55; if ((*fun)() != 55) return 1; return 0; } ], [ffcall_cv_c_struct_return_small=yes], [ffcall_cv_c_struct_return_small=no], [dnl When cross-compiling, guess depending on the ABI. dnl If we don't know, don't assume anything. There are even weirder dnl return value passing conventions than pcc. case "$HOST_CPU_C_ABI" in alpha) ffcall_cv_c_struct_return_small="guessing no" ;; arm | armhf | arm64) ffcall_cv_c_struct_return_small="guessing yes" ;; hppa | hppa64) ffcall_cv_c_struct_return_small="guessing yes" ;; i386) case "$host_os" in cygwin* | darwin* | mingw*) ffcall_cv_c_struct_return_small="guessing yes" ;; linux* | solaris*) ffcall_cv_c_struct_return_small="guessing no" ;; *) ffcall_cv_c_struct_return_small="guessing no" ;; esac ;; ia64) ffcall_cv_c_struct_return_small="guessing yes" ;; mips | mipsn32) ffcall_cv_c_struct_return_small="guessing no" ;; mips64) ffcall_cv_c_struct_return_small="guessing yes" ;; powerpc | powerpc64) ffcall_cv_c_struct_return_small="guessing no" ;; powerpc64-elfv2) ffcall_cv_c_struct_return_small="guessing yes" ;; s390 | s390x) ffcall_cv_c_struct_return_small="guessing no" ;; sparc) ffcall_cv_c_struct_return_small="guessing no" ;; sparc64) ffcall_cv_c_struct_return_small="guessing yes" ;; x86_64) ffcall_cv_c_struct_return_small="guessing yes" ;; *) ffcall_cv_c_struct_return_small="guessing no" ;; esac ]) ]) case "$ffcall_cv_c_struct_return_small" in *yes) AC_DEFINE([__SMALL_STRUCT_RETURN__], [], SSR_DOC) ;; *no) ;; esac ]) libffcall-2.2/m4/general.m40000664000000000000000000000174413136760230012372 00000000000000dnl -*- Autoconf -*- dnl Copyright (C) 1993-2017 Free Software Foundation, Inc. dnl This file is free software, distributed under the terms of the GNU dnl General Public License as published by the Free Software Foundation; dnl either version 2 of the License, or (at your option) any later version. dnl As a special exception to the GNU General Public License, this file dnl may be distributed as part of a program that contains a configuration dnl script generated by Autoconf, under the same distribution terms as dnl the rest of that program. dnl From Bruno Haible, Marcus Daniels, Sam Steingold. AC_PREREQ([2.61]) AC_DEFUN([CL_CHECK], [ AC_CACHE_CHECK([for $2],[$3], [$1([AC_LANG_PROGRAM([$4],[$5])],[$3=yes],[$3=no])]) AS_IF([test $$3 = yes], [$6], [$7]) ]) AC_DEFUN([CL_LINK_CHECK], [ CL_CHECK([AC_LINK_IFELSE],$@) ]) dnl Expands to the "extern ..." prefix used for system declarations. dnl AC_LANG_EXTERN AC_DEFUN([AC_LANG_EXTERN], [extern #ifdef __cplusplus "C" #endif ]) libffcall-2.2/m4/ireg.m40000664000000000000000000000277013136760230011703 00000000000000dnl -*- Autoconf -*- dnl Copyright (C) 1993-2017 Free Software Foundation, Inc. dnl This file is free software, distributed under the terms of the GNU dnl General Public License as published by the Free Software Foundation; dnl either version 2 of the License, or (at your option) any later version. dnl As a special exception to the GNU General Public License, this file dnl may be distributed as part of a program that contains a configuration dnl script generated by Autoconf, under the same distribution terms as dnl the rest of that program. dnl From Bruno Haible, Marcus Daniels, Sam Steingold. AC_PREREQ([2.13]) AC_DEFUN([IREG_DOC],[whether floats are returned in integer registers]) AC_DEFUN([FFCALL_IREG_FLOAT_RETURN], [ AC_CACHE_CHECK([IREG_DOC], [ffcall_cv_c_float_return_ireg], [AC_TRY_RUN(GL_NOCRASH [float x = (float)1.2; float y = (float)1.3; float fun () { return x*y; } int main() { nocrash_init(); {int val = (* (int (*) ()) fun) (); return !(val == 0x3FC7AE15 || val == 0x15AEC73F); }} ], [ffcall_cv_c_float_return_ireg=yes], [ffcall_cv_c_float_return_ireg=no], [dnl When cross-compiling, assume no, because that's how it comes out on dnl most platforms with floating-point unit, including m68k-linux. ffcall_cv_c_float_return_ireg="guessing no" ]) ]) case "$ffcall_cv_c_float_return_ireg" in *yes) AC_DEFINE([__IREG_FLOAT_RETURN__], [], IREG_DOC) ;; *no) ;; esac ]) libffcall-2.2/Makefile.maint0000664000000000000000000001365613347756016012762 00000000000000# maintainer -*-Makefile-*- SHELL = /bin/sh MAKE = make # You need to use this precise version of GNU Automake. # If you want to use a different version of GNU Automake, you are on your own! ACLOCAL = aclocal-1.15 AUTOMAKE = automake-1.15 # You need to use this precise version of GNU Autoconf and create # symbolic links # $ ln -s `which autoconf` autoconf-`autoconf --version | sed -e '2,$d' -e 's/^[^0-9]*//'` # $ ln -s `which autoheader` autoheader-`autoheader --version | sed -e '2,$d' -e 's/^[^0-9]*//'` # If you want to use a different version of GNU Autoconf, you are on your own! AUTOCONF = autoconf-2.69 AUTOHEADER = autoheader-2.69 CP = cp RM = rm -f # ==================== Easily regeneratable files ==================== .PHONY : all all : aclocal.m4 configures check-configures config-h-in Makefile-ins force cd avcall && $(MAKE) -f Makefile.maint all cd vacall && $(MAKE) -f Makefile.maint all cd trampoline && $(MAKE) -f Makefile.maint all cd callback && $(MAKE) -f Makefile.maint all # Files originating from GNU libtool. # It is important to get ltmain.sh and libtool.m4 from the same version of # libtool. Don't rely on what's installed in /usr/share or similar. .PHONY : libtool-imported-files libtool-imported-files : force test -n "$(LIBTOOL_RELEASE)" || { echo "Variable LIBTOOL_RELEASE not set." 1>&2; exit 1; } test -f "$(LIBTOOL_RELEASE)" || { echo "File $(LIBTOOL_RELEASE) does not exist." 1>&2; exit 1; } rm -rf libtool.tmp mkdir libtool.tmp gzip -d -c < "$(LIBTOOL_RELEASE)" | (cd libtool.tmp && tar -xf -) test -d build-aux || mkdir build-aux for destfile in m4/libtool.m4 m4/ltoptions.m4 m4/ltsugar.m4 m4/ltversion.m4 m4/lt~obsolete.m4 build-aux/ltmain.sh; do \ name=`echo $$destfile | sed -e 's|^.*/||'`; \ srcfile=`find libtool.tmp -name $$name -print | sed 1q`; \ if test -n "$$srcfile"; then \ if test -f $$destfile && cmp "$$srcfile" $$destfile > /dev/null; then \ : ; \ else \ mv "$$srcfile" $$destfile; \ fi; \ else \ echo "File $(LIBTOOL_RELEASE) does not contain the expected files of a libtool release." 1>&2; \ exit 1; \ fi; \ done rm -rf libtool.tmp : "Allow building statically linked binaries, through LDFLAGS=-static ." wget --execute netrc=off --no-verbose --retry-connrefused --timeout=60 -O libtool-allow-static.diff https://lists.gnu.org/archive/html/bug-libtool/2017-07/txt7Q9LRXv6HS.txt chmod u+w build-aux/ltmain.sh patch build-aux/ltmain.sh < libtool-allow-static.diff rm -f libtool-allow-static.diff : "Fix -export-symbols and -export-symbols-regex support on Solaris 11.3" wget --execute netrc=off --no-verbose --retry-connrefused --timeout=60 -O libtool-solaris11-fix.diff 'https://savannah.gnu.org/patch/download.php?file_id=42205' chmod u+w m4/libtool.m4 patch -p1 < libtool-solaris11-fix.diff rm -f libtool-solaris11-fix.diff .PHONY : libtool-clean libtool-clean : force $(RM) m4/libtool.m4 build-aux/ltmain.sh # Files brought in by gnulib-tool. GNULIB_MODULES = \ ansi-c++-opt \ host-cpu-c-abi \ lock \ longlong \ nocrash \ stdint \ stdnoreturn gnulib-m4/gnulib-cache.m4 : if test -n "$$GNULIB_TOOL"; then \ $$GNULIB_TOOL --source-base=gnulib-lib --m4-base=gnulib-m4 --aux-dir=build-aux --libtool --no-changelog \ --import $(GNULIB_MODULES); \ fi .PHONY : gnulib-imported-files gnulib-imported-files : force # Get up-to-date versions of files imported from https://git.savannah.gnu.org/gitweb/?p=automake.git;a=tree;f=lib via gnulib. if test -n "$$GNULIB_TOOL"; then \ for file in ar-lib compile install-sh; do \ $$GNULIB_TOOL --copy-file build-aux/$$file || exit $$?; \ chmod a+x build-aux/$$file || exit $$?; \ done; \ fi # Get up-to-date versions of files imported from https://git.savannah.gnu.org/gitweb/?p=config.git;a=tree via gnulib. if test -n "$$GNULIB_TOOL"; then \ for file in config.guess config.sub; do \ $$GNULIB_TOOL --copy-file build-aux/$$file || exit $$?; \ chmod a+x build-aux/$$file || exit $$?; \ done; \ fi .PHONY : gnulib-clean gnulib-clean : force # Move gnulib-m4/gnulib-cache.m4 away, so that the target 'gnulib-m4/gnulib-cache.m4' will actually do something. if test -f gnulib-m4/gnulib-cache.m4; then \ mv gnulib-m4/gnulib-cache.m4 gnulib-m4/gnulib-cache.m4~; \ fi # No need to remove the stale files. gnulib-tool does this itself, thanks to gnulib-m4/gnulib-comp.m4. # rm -rf gnulib-m4 # Files generated by GNU Autoconf and GNU Automake. AUTOCONF_CACHE = autom4te.cache ALL_CONFIGURE = configure ALL_CONFIGURE_AC = configure.ac aclocal.m4 : $(ALL_CONFIGURE_AC) $(wildcard m4/*.m4) $(wildcard gnulib-m4/*.m4) $(ACLOCAL) --output=aclocal.m4 -I m4 -I gnulib-m4 .PHONY : configures configures : $(ALL_CONFIGURE) AUTOCONF_FILES = aclocal.m4 $(wildcard m4/*.m4) $(wildcard gnulib-m4/*.m4) configure : configure.ac $(AUTOCONF_FILES) $(AUTOCONF) && rm -rf autom4te.cache .PHONY : check-configures check-configures : $(ALL_CONFIGURE) set -e; for f in $(ALL_CONFIGURE); do bash -x -n $$f; done ALL_CONFIG_H_IN = config.h.in .PHONY : config-h-in config-h-in : $(ALL_CONFIG_H_IN) config.h.in : configure.ac $(AUTOCONF_FILES) srcdir=`pwd`; $(AUTOHEADER) --include="$$srcdir" && rm -rf autom4te.cache ALL_MAKEFILE_IN_FROM_AM = gnulib-lib/Makefile.in .PHONY: Makefile-ins Makefile-ins : $(ALL_MAKEFILE_IN_FROM_AM) gnulib-lib/Makefile.in : gnulib-lib/Makefile.am configure.ac $(AUTOCONF_FILES) : "Make sure we get new versions of files brought in by automake." (cd build-aux && rm -f depcomp missing) $(AUTOMAKE) --add-missing --copy && rm -rf autom4te.cache # ==================== Cleanup ==================== .PHONY : totally-clean totally-clean : force cd avcall && $(MAKE) -f Makefile.maint totally-clean cd vacall && $(MAKE) -f Makefile.maint totally-clean cd trampoline && $(MAKE) -f Makefile.maint totally-clean cd callback && $(MAKE) -f Makefile.maint totally-clean rm -f $(ALL_CONFIGURE) $(ALL_CONFIG_H_IN) rm -f aclocal.m4 rm -rf `find . -name $(AUTOCONF_CACHE) -print` force : libffcall-2.2/trampoline/0000775000000000000000000000000013530357260012422 500000000000000libffcall-2.2/trampoline/trampoline.c0000664000000000000000000016767113527104765014710 00000000000000/* Trampoline construction */ /* * Copyright 1995-2019 Bruno Haible * * This program is free software: you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by * the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program. If not, see . */ #include "config.h" #include "trampoline.h" #if defined(__hppa__) && !defined(__hppa64__) #if 0 #define __hppaold__ /* Old trampoline, real machine code. */ #else #define __hppanew__ /* New trampoline, just a closure. */ #endif #endif #if defined(__hppa64__) #if 0 #define __hppa64old__ /* Old trampoline, real machine code. */ #else #define __hppa64new__ /* New trampoline, just a closure. */ #endif #endif #if defined(__powerpc__) && !defined(__powerpc64__) #if !defined(_AIX) #define __powerpcsysv4__ /* SysV.4 ABI, real machine code. */ #else #define __powerpcaix__ /* AIX ABI, just a closure. */ #endif #endif #if defined(__powerpc64__) && !defined(__powerpc64_elfv2__) #define __powerpc64aix__ /* AIX ABI, just a closure. */ #endif #if defined(__hppanew__) || defined(__hppa64new__) /* * A function pointer is a biased pointer to a data area whose first word * (hppa) or third word (hppa64) contains the actual address of the function. */ extern void tramp (); /* trampoline prototype */ /* We don't need to take any special measures to make the code executable * since the actual instructions are in the text segment. */ #ifndef CODE_EXECUTABLE #define CODE_EXECUTABLE #endif #endif #if defined(__powerpcaix__) || defined(__powerpc64aix__) || defined(__ia64__) /* * A function pointer is a pointer to a data area whose first word contains * the actual address of the function. */ extern void (*tramp) (); /* trampoline prototype */ /* We don't need to take any special measures to make the code executable * since the actual instructions are in the text segment. */ #ifndef CODE_EXECUTABLE #define CODE_EXECUTABLE #endif #endif #ifndef CODE_EXECUTABLE /* How do we make the trampoline's code executable? */ #if defined(HAVE_MACH_VM) || defined(HAVE_WORKING_MPROTECT) #if HAVE_MPROTECT_AFTER_MALLOC_CAN_EXEC > 0 /* mprotect() [or equivalent] the malloc'ed area. */ #define EXECUTABLE_VIA_MALLOC_THEN_MPROTECT #elif HAVE_MPROTECT_AFTER_MMAP_CAN_EXEC > 0 /* mprotect() [or equivalent] the mmap'ed area. */ #define EXECUTABLE_VIA_MMAP_THEN_MPROTECT #elif defined(HAVE_MMAP_SHARED_CAN_EXEC) #define EXECUTABLE_VIA_MMAP_FILE_SHARED #else #error "Don't know how to make memory pages executable." #endif #else #ifdef HAVE_MMAP /* Use an mmap'ed page. */ #define EXECUTABLE_VIA_MMAP #else #ifdef HAVE_SHM /* Use an shmat'ed page. */ #define EXECUTABLE_VIA_SHM #else #if defined(_WIN32) && ! defined(__CYGWIN__) /* native Windows */ #define EXECUTABLE_VIA_VIRTUALALLOC #else ?? #endif #endif #endif #endif #endif #include /* declares fprintf() */ #include #include /* declares abort(), malloc(), free() */ #ifdef HAVE_UNISTD_H #include #endif /* Define intptr_t, uintptr_t. */ #include /* Declare getpagesize(). */ #ifdef HAVE_GETPAGESIZE #ifdef __cplusplus extern "C" RETGETPAGESIZETYPE getpagesize (void); #else extern RETGETPAGESIZETYPE getpagesize (void); #endif #else #ifdef HAVE_SYS_PARAM_H #include #else /* Not Unix, e.g. mingw32 */ #define PAGESIZE 4096 #endif #define getpagesize() PAGESIZE #endif /* Declare mprotect() or equivalent. */ #if defined(EXECUTABLE_VIA_MALLOC_THEN_MPROTECT) || defined(EXECUTABLE_VIA_MMAP_THEN_MPROTECT) #ifdef HAVE_MACH_VM #include #include #ifdef __osf__ #include #endif #include #else #include #include #endif #endif /* Declare mmap(). */ #if defined(EXECUTABLE_VIA_MMAP) || defined(EXECUTABLE_VIA_MMAP_FILE_SHARED) #include #include #if !defined(PROT_EXEC) && defined(PROT_EXECUTE) /* Irix 4.0.5 needs this */ #define PROT_EXEC PROT_EXECUTE #endif #endif /* Declare open(). */ #if defined(EXECUTABLE_VIA_MMAP_DEVZERO) || defined(EXECUTABLE_VIA_MMAP_FILE_SHARED) #include #include #include #endif /* Declare shmget(), shmat(), shmctl(). */ #ifdef EXECUTABLE_VIA_SHM #include #include #include #ifdef HAVE_SYS_SYSMACROS_H #include #endif #endif /* Declare VirtualAlloc(), GetSystemInfo. */ #ifdef EXECUTABLE_VIA_VIRTUALALLOC #define WIN32_LEAN_AND_MEAN #define WIN32_EXTRA_LEAN #include #endif /* Some old mmap() implementations require the flag MAP_FILE whenever you pass an fd >= 0. */ #ifndef MAP_FILE #define MAP_FILE 0 #endif /* Some old mmap() implementations require the flag MAP_VARIABLE whenever you pass an addr == NULL. */ #ifndef MAP_VARIABLE #define MAP_VARIABLE 0 #endif /* Support for instruction cache flush. */ #ifdef __i386__ #if defined(_WIN32) && ! defined(__CYGWIN__) /* native Windows */ #define WIN32_LEAN_AND_MEAN #define WIN32_EXTRA_LEAN #include #endif #endif #if defined(__mips__) || defined(__mipsn32__) || defined(__mips64__) || defined(__riscv32__) || defined(__riscv64__) #ifdef HAVE_SYS_CACHECTL_H /* IRIX, Linux */ #include #else #ifdef __OpenBSD__ #include #endif #endif #endif /* Inline assembly function for instruction cache flush. */ #if defined(__sparc__) || defined(__sparc64__) || defined(__alpha__) || defined(__hppaold__) || defined(__hppa64old__) || defined(__powerpcsysv4__) || defined(__powerpc64_elfv2__) #if defined(__sparc__) || defined(__sparc64__) extern void __TR_clear_cache_4(); #else extern void __TR_clear_cache(); #endif #endif /* Support for multithread-safe coding. */ #include "glthread/lock.h" #if !defined(CODE_EXECUTABLE) && defined(EXECUTABLE_VIA_MMAP_FILE_SHARED) /* Opens a file descriptor and attempts to make it non-inheritable. */ static int open_noinherit (const char *filename, int flags, int mode) { # if O_CLOEXEC return open (filename, flags | O_CLOEXEC, mode); # else int fd = open (filename, flags, mode); # ifdef F_SETFD if (fd >= 0) { int flags = fcntl (fd, F_GETFD, 0); if (flags >= 0) fcntl (fd, F_SETFD, flags | FD_CLOEXEC); } # endif return fd; # endif } #endif /* Length and alignment of trampoline */ #ifdef __i386__ #define TRAMP_LENGTH 15 #define TRAMP_ALIGN 16 /* 4 for a i386, 16 for a i486 */ #endif #ifdef __m68k__ #define TRAMP_LENGTH 18 #define TRAMP_ALIGN 16 #endif #if defined(__mipsold__) && !defined(__mipsn32__) #define TRAMP_LENGTH 32 #define TRAMP_ALIGN 4 #endif #if (defined(__mips__) || defined(__mipsn32__)) && !defined(__mips64__) #define TRAMP_LENGTH 36 #define TRAMP_ALIGN 4 #endif #ifdef __mips64old__ #define TRAMP_LENGTH 84 #define TRAMP_ALIGN 4 #endif #ifdef __mips64__ #define TRAMP_LENGTH 48 #define TRAMP_ALIGN 8 #endif #if defined(__sparc__) && !defined(__sparc64__) #define TRAMP_LENGTH 28 #define TRAMP_ALIGN 16 #endif #ifdef __sparc64__ #define TRAMP_LENGTH 48 #define TRAMP_ALIGN 16 #endif #ifdef __alpha__ #define TRAMP_LENGTH 48 #define TRAMP_ALIGN 8 #endif #ifdef __hppaold__ #define TRAMP_LENGTH 56 #define TRAMP_ALIGN 16 #endif #ifdef __hppanew__ #define TRAMP_LENGTH 20 #define TRAMP_ALIGN 16 #define TRAMP_BIAS 2 #endif #ifdef __hppa64old__ #define TRAMP_LENGTH 96 #define TRAMP_ALIGN 8 #define TRAMP_BIAS 64 #endif #ifdef __hppa64new__ #define TRAMP_LENGTH 56 #define TRAMP_ALIGN 8 #endif #if defined(__arm__) || defined(__armhf__) #define TRAMP_LENGTH 36 #define TRAMP_ALIGN 4 #endif #ifdef __arm64__ #define TRAMP_LENGTH 48 #define TRAMP_ALIGN 8 #endif #ifdef __powerpcsysv4__ #define TRAMP_LENGTH 36 #define TRAMP_ALIGN 4 #endif #ifdef __powerpcaix__ #define TRAMP_LENGTH 24 #define TRAMP_ALIGN 4 #endif #ifdef __powerpc64_elfv2__ #define TRAMP_LENGTH 48 #define TRAMP_ALIGN 8 #endif #ifdef __powerpc64aix__ #define TRAMP_LENGTH 48 #define TRAMP_ALIGN 8 #endif #ifdef __ia64__ #define TRAMP_LENGTH 40 #define TRAMP_ALIGN 16 #endif #ifdef __x86_64__ #ifdef __x86_64_x32__ #define TRAMP_LENGTH 18 #define TRAMP_ALIGN 4 #else #define TRAMP_LENGTH 32 #define TRAMP_ALIGN 16 #endif #endif #if defined(__s390__) && !defined(__s390x__) #define TRAMP_LENGTH 40 #define TRAMP_ALIGN 4 #endif #if defined(__s390x__) #define TRAMP_LENGTH 64 #define TRAMP_ALIGN 8 #endif #if defined(__riscv32__) #define TRAMP_LENGTH 36 #define TRAMP_ALIGN 4 #endif #if defined(__riscv64__) #define TRAMP_LENGTH 48 #define TRAMP_ALIGN 8 #endif #ifndef TRAMP_BIAS #define TRAMP_BIAS 0 #endif #if !defined(CODE_EXECUTABLE) static long pagesize = 0; #endif #if !defined(CODE_EXECUTABLE) && (defined(EXECUTABLE_VIA_MMAP_DEVZERO) || defined(EXECUTABLE_VIA_MMAP_FILE_SHARED)) /* Variables needed for obtaining memory pages via mmap(). */ #if defined(EXECUTABLE_VIA_MMAP_DEVZERO) static int zero_fd; #endif #if defined(EXECUTABLE_VIA_MMAP_FILE_SHARED) static int file_fd; static long file_length; #endif /* Initialization of these variables. */ static void for_mmap_init (void) { #if defined(EXECUTABLE_VIA_MMAP_DEVZERO) zero_fd = open("/dev/zero",O_RDONLY,0644); if (zero_fd < 0) { fprintf(stderr,"trampoline: Cannot open /dev/zero!\n"); abort(); } #endif #if defined(EXECUTABLE_VIA_MMAP_FILE_SHARED) { char filename[100]; sprintf(filename, "%s/trampdata-%d-%ld", "/tmp", getpid (), random ()); file_fd = open_noinherit (filename, O_CREAT | O_RDWR | O_TRUNC, 0700); if (file_fd < 0) { fprintf(stderr,"trampoline: Cannot open %s!\n",filename); abort(); } /* Remove the file from the file system as soon as possible, to make sure there is no leftover after this process terminates or crashes. */ unlink(filename); } file_length = 0; #endif } /* Once-only initializer for these variables. */ gl_once_define(static, for_mmap_once) #endif #if !defined(CODE_EXECUTABLE) && !defined(EXECUTABLE_VIA_MALLOC_THEN_MPROTECT) /* AIX doesn't support mprotect() in malloc'ed memory. Must get pages of * memory with execute permission via mmap(). Then keep a free list of * free trampolines. */ static char* freelist = NULL; /* Lock that protects the freelist from simultaneous access from multiple threads. */ gl_lock_define_initialized(static, freelist_lock) #endif trampoline_function_t alloc_trampoline (trampoline_function_t address, void** variable, void* data) { char* function; char* function_x; #if !defined(CODE_EXECUTABLE) /* First, get the page size once and for all. */ if (!pagesize) { /* Simultaneous execution of this initialization in multiple threads is OK. */ #if defined(EXECUTABLE_VIA_VIRTUALALLOC) /* GetSystemInfo */ SYSTEM_INFO info; GetSystemInfo(&info); pagesize = info.dwPageSize; #elif defined(HAVE_MACH_VM) pagesize = vm_page_size; #else pagesize = getpagesize(); #endif #if defined(EXECUTABLE_VIA_MMAP_DEVZERO) || defined(EXECUTABLE_VIA_MMAP_FILE_SHARED) /* Use a once-only initializer here, since simultaneous execution of for_mmap_init() in multiple threads must be avoided. */ gl_once (for_mmap_once, for_mmap_init); #endif } #endif /* 1. Allocate room */ #if !defined(CODE_EXECUTABLE) && !defined(EXECUTABLE_VIA_MALLOC_THEN_MPROTECT) gl_lock_lock(freelist_lock); if (freelist == NULL) { /* Get a new page. */ char* page; char* page_end; #ifdef EXECUTABLE_VIA_VIRTUALALLOC /* VirtualAlloc */ page = VirtualAlloc(NULL,pagesize,MEM_COMMIT,PAGE_EXECUTE_READWRITE); if (page == NULL) { fprintf(stderr,"trampoline: Out of virtual memory!\n"); abort(); } page_end = page + pagesize; #else #ifdef EXECUTABLE_VIA_MMAP_FILE_SHARED char* page_x; /* Extend the file by one page. */ long new_file_length = file_length + pagesize; if (ftruncate(file_fd,new_file_length) < 0) { fprintf(stderr,"trampoline: Cannot extend backing file!\n"); abort(); } /* Create separate mappings for writing and for executing. */ page = (char*)mmap(NULL,pagesize,PROT_READ|PROT_WRITE,MAP_SHARED,file_fd,file_length); page_x = (char*)mmap(NULL,pagesize,PROT_READ|PROT_EXEC,MAP_SHARED,file_fd,file_length); if (page == (char*)(-1) || page_x == (char*)(-1)) { fprintf(stderr,"trampoline: Out of virtual memory!\n"); abort(); } file_length = new_file_length; page_end = page + pagesize; /* Link the two pages together. */ ((intptr_t*)page)[0] = page_x - page; page = (char*)(((uintptr_t)page + sizeof(intptr_t) + TRAMP_ALIGN-1) & -TRAMP_ALIGN); #else #ifdef EXECUTABLE_VIA_MMAP_THEN_MPROTECT #ifdef HAVE_MMAP_ANONYMOUS /* Use mmap with the MAP_ANONYMOUS or MAP_ANON flag. */ page = mmap(NULL, pagesize, PROT_READ | PROT_WRITE, MAP_PRIVATE | MAP_ANONYMOUS | MAP_VARIABLE, -1, 0); #else /* Use mmap on /dev/zero. */ page = mmap(NULL, pagesize, PROT_READ | PROT_WRITE, MAP_PRIVATE | MAP_FILE | MAP_VARIABLE, zero_fd, 0); #endif #endif #ifdef EXECUTABLE_VIA_MMAP #ifdef HAVE_MMAP_ANONYMOUS /* Use mmap with the MAP_ANONYMOUS or MAP_ANON flag. */ page = mmap(NULL, pagesize, PROT_READ | PROT_WRITE | PROT_EXEC, MAP_PRIVATE | MAP_ANONYMOUS | MAP_VARIABLE, -1, 0); #else /* Use mmap on /dev/zero. */ page = mmap(NULL, pagesize, PROT_READ | PROT_WRITE | PROT_EXEC, MAP_PRIVATE | MAP_FILE | MAP_VARIABLE, zero_fd, 0); #endif #endif #ifdef EXECUTABLE_VIA_SHM int shmid = shmget(IPC_PRIVATE, pagesize, 0700|IPC_CREAT); if (shmid<0) { page = (char*)(-1); } else { page = shmat(shmid, 0, 0); shmctl(shmid, IPC_RMID, 0); } #endif if (page == (char*)(-1)) { fprintf(stderr,"trampoline: Out of virtual memory!\n"); abort(); } page_end = page + pagesize; #endif #endif /* Fill it with free trampolines. */ { char** last = &freelist; while (page+TRAMP_LENGTH <= page_end) { *last = page; last = (char**)page; page = (char*)(((uintptr_t)page + TRAMP_LENGTH + TRAMP_ALIGN-1) & -TRAMP_ALIGN); } *last = NULL; } } function = freelist; freelist = *(char**)freelist; gl_lock_unlock(freelist_lock); #else { char* room = (char*) malloc(sizeof(void*) + TRAMP_LENGTH + TRAMP_ALIGN-1); if (!room) { fprintf(stderr,"trampoline: Out of virtual memory!\n"); abort(); } function = (char*)(((uintptr_t)room + sizeof(void*) + TRAMP_ALIGN-1) & -TRAMP_ALIGN); ((char**)function)[-1] = room; /* backpointer for free_trampoline() */ } #endif #if !defined(CODE_EXECUTABLE) && defined(EXECUTABLE_VIA_MMAP_FILE_SHARED) /* Find the executable address corresponding to the writable address. */ { uintptr_t page = (uintptr_t) function & -(intptr_t)pagesize; function_x = function + ((intptr_t*)page)[0]; } #else function_x = function; #endif /* 2. Fill out the trampoline */ #ifdef __i386__ /* function: * movl $, C7 05 * jmp

E9
- * here: */ *(short *) (function + 0) = 0x05C7; *(long *) (function + 2) = (long) variable; *(long *) (function + 6) = (long) data; *(char *) (function +10) = 0xE9; *(long *) (function +11) = (long) address - (long) (function_x + 15); #define is_tramp(function) \ *(unsigned short *) (function + 0) == 0x05C7 && \ *(unsigned char *) (function +10) == 0xE9 #define tramp_address(function) \ *(long *) (function +11) + (long) (function + 15) #define tramp_variable(function) \ *(long *) (function + 2) #define tramp_data(function) \ *(long *) (function + 6) #endif #ifdef __m68k__ /* function: * movel #, 23 FC * jmp
4E F9
* nop 4E 71 */ *(short *) (function + 0) = 0x23FC; *(long *) (function + 2) = (long) data; *(long *) (function + 6) = (long) variable; *(short *) (function +10) = 0x4EF9; *(long *) (function +12) = (long) address; *(short *) (function +16) = 0x4E71; #define is_tramp(function) \ *(unsigned short *) (function + 0) == 0x23FC && \ *(unsigned short *) (function +10) == 0x4EF9 && \ *(unsigned short *) (function +16) == 0x4E71 #define tramp_address(function) \ *(long *) (function +12) #define tramp_variable(function) \ *(long *) (function + 6) #define tramp_data(function) \ *(long *) (function + 2) #endif #if defined(__mipsold__) && !defined(__mipsn32__) /* function: * li $2,&0xffff0000 3C 02 hi16() * ori $2,$2,&0xffff 34 42 lo16() * sw $2, 3C 01 hi16() * AC 22 lo16() * li $25,
&0xffff0000 3C 19 hi16(
) * ori $25,$25,
&0xffff 37 39 lo16(
) * j $25 03 20 00 08 * nop 00 00 00 00 */ /* What about big endian / little endian ?? */ *(short *) (function + 0) = 0x3C02; *(short *) (function + 2) = (unsigned long) data >> 16; *(short *) (function + 4) = 0x3442; *(short *) (function + 6) = (unsigned long) data & 0xffff; *(short *) (function + 8) = 0x3C01; *(short *) (function +10) = (unsigned long) variable >> 16; *(short *) (function +12) = 0xAC22; *(short *) (function +14) = (unsigned long) variable & 0xffff; *(short *) (function +16) = 0x3C19; *(short *) (function +18) = (unsigned long) address >> 16; *(short *) (function +20) = 0x3739; *(short *) (function +22) = (unsigned long) address & 0xffff; *(long *) (function +24) = 0x03200008; *(long *) (function +28) = 0x00000000; #define is_tramp(function) \ *(unsigned short *) (function + 0) == 0x3C02 && \ *(unsigned short *) (function + 4) == 0x3442 && \ *(unsigned short *) (function + 8) == 0x3C01 && \ *(unsigned short *) (function +12) == 0xAC22 && \ *(unsigned short *) (function +16) == 0x3C19 && \ *(unsigned short *) (function +20) == 0x3739 && \ *(unsigned long *) (function +24) == 0x03200008 && \ *(unsigned long *) (function +28) == 0x00000000 #define hilo(hiword,loword) \ (((unsigned long) (hiword) << 16) | (unsigned long) (loword)) #define tramp_address(function) \ hilo(*(unsigned short *) (function +18), *(unsigned short *) (function +22)) #define tramp_variable(function) \ hilo(*(unsigned short *) (function +10), *(unsigned short *) (function +14)) #define tramp_data(function) \ hilo(*(unsigned short *) (function + 2), *(unsigned short *) (function + 6)) #endif #if (defined(__mips__) || defined(__mipsn32__)) && !defined(__mips64__) /* function: * lw $2,24($25) 8F 22 00 18 * lw $3,28($25) 8F 23 00 1C * sw $3,0($2) AC 43 00 00 * lw $25,32($25) 8F 39 00 20 * j $25 03 20 00 08 * nop 00 00 00 00 * .word * .word * .word
*/ *(unsigned int *) (function + 0) = 0x8F220018; *(unsigned int *) (function + 4) = 0x8F23001C; *(unsigned int *) (function + 8) = 0xAC430000; *(unsigned int *) (function +12) = 0x8F390020; *(unsigned int *) (function +16) = 0x03200008; *(unsigned int *) (function +20) = 0x00000000; *(unsigned int *) (function +24) = (unsigned int) variable; *(unsigned int *) (function +28) = (unsigned int) data; *(unsigned int *) (function +32) = (unsigned int) address; #define TRAMP_CODE_LENGTH 24 #define is_tramp(function) \ *(int *) (function + 0) == 0x8F220018 && \ *(int *) (function + 4) == 0x8F23001C && \ *(int *) (function + 8) == 0xAC430000 && \ *(int *) (function +12) == 0x8F390020 && \ *(int *) (function +16) == 0x03200008 && \ *(int *) (function +20) == 0x00000000 #define tramp_address(function) \ *(unsigned int *) (function +32) #define tramp_variable(function) \ *(unsigned int *) (function +24) #define tramp_data(function) \ *(unsigned int *) (function +28) #endif #ifdef __mips64old__ /* function: * dli $2, 3C 02 hi16(hi32()) * 34 42 lo16(hi32()) * 00 02 14 38 * 34 42 hi16(lo32()) * 00 02 14 38 * 34 42 lo16(lo32()) * dli $3, 3C 03 hi16(hi32()) * 34 63 lo16(hi32()) * 00 03 1C 38 * 34 63 hi16(lo32()) * 00 03 1C 38 * 34 63 lo16(lo32()) * sd $3,0($2) FC 43 00 00 * dli $25,
3C 19 hi16(hi32(
)) * 37 39 lo16(hi32(
)) * 00 19 CC 38 * 37 39 hi16(lo32(
)) * 00 19 CC 38 * 37 39 lo16(lo32(
)) * j $25 03 20 00 08 * nop 00 00 00 00 */ /* What about big endian / little endian ?? */ *(short *) (function + 0) = 0x3C02; *(short *) (function + 2) = (unsigned long) variable >> 48; *(short *) (function + 4) = 0x3442; *(short *) (function + 6) = ((unsigned long) variable >> 32) & 0xffff; *(int *) (function + 8) = 0x00021438; *(short *) (function +12) = 0x3442; *(short *) (function +14) = ((unsigned long) variable >> 16) & 0xffff; *(int *) (function +16) = 0x00021438; *(short *) (function +20) = 0x3442; *(short *) (function +22) = (unsigned long) variable & 0xffff; *(short *) (function +24) = 0x3C03; *(short *) (function +26) = (unsigned long) data >> 48; *(short *) (function +28) = 0x3463; *(short *) (function +30) = ((unsigned long) data >> 32) & 0xffff; *(int *) (function +32) = 0x00031C38; *(short *) (function +36) = 0x3463; *(short *) (function +38) = ((unsigned long) data >> 16) & 0xffff; *(int *) (function +40) = 0x00031C38; *(short *) (function +44) = 0x3463; *(short *) (function +46) = (unsigned long) data & 0xffff; *(int *) (function +48) = 0xFC430000; *(short *) (function +52) = 0x3C19; *(short *) (function +54) = (unsigned long) address >> 48; *(short *) (function +56) = 0x3739; *(short *) (function +58) = ((unsigned long) address >> 32) & 0xffff; *(int *) (function +60) = 0x0019CC38; *(short *) (function +64) = 0x3739; *(short *) (function +66) = ((unsigned long) address >> 16) & 0xffff; *(int *) (function +68) = 0x0019CC38; *(short *) (function +72) = 0x3739; *(short *) (function +74) = (unsigned long) address & 0xffff; *(int *) (function +76) = 0x03200008; *(int *) (function +80) = 0x00000000; #define is_tramp(function) \ *(unsigned short *) (function + 0) == 0x3C02 && \ *(unsigned short *) (function + 4) == 0x3442 && \ *(unsigned int *) (function + 8) == 0x00021438 && \ *(unsigned short *) (function +12) == 0x3442 && \ *(unsigned int *) (function +16) == 0x00021438 && \ *(unsigned short *) (function +20) == 0x3442 && \ *(unsigned short *) (function +24) == 0x3C03 && \ *(unsigned short *) (function +28) == 0x3463 && \ *(unsigned int *) (function +32) == 0x00031C38 && \ *(unsigned short *) (function +36) == 0x3463 && \ *(unsigned int *) (function +40) == 0x00031C38 && \ *(unsigned short *) (function +44) == 0x3463 && \ *(unsigned int *) (function +48) == 0xFC430000 && \ *(unsigned short *) (function +52) == 0x3C19 && \ *(unsigned short *) (function +56) == 0x3739 && \ *(unsigned int *) (function +60) == 0x0019CC38 && \ *(unsigned short *) (function +64) == 0x3739 && \ *(unsigned int *) (function +68) == 0x0019CC38 && \ *(unsigned short *) (function +72) == 0x3739 && \ *(unsigned int *) (function +76) == 0x03200008 && \ *(unsigned int *) (function +80) == 0x00000000 #define hilo(word3,word2,word1,word0) \ (((unsigned long) (word3) << 48) | ((unsigned long) (word2) << 32) | \ ((unsigned long) (word1) << 16) | (unsigned long) (word0)) #define tramp_address(function) \ hilo(*(unsigned short *) (function +54), \ *(unsigned short *) (function +58), \ *(unsigned short *) (function +66), \ *(unsigned short *) (function +74)) #define tramp_variable(function) \ hilo(*(unsigned short *) (function + 2), \ *(unsigned short *) (function + 6), \ *(unsigned short *) (function +14), \ *(unsigned short *) (function +22)) #define tramp_data(function) \ hilo(*(unsigned short *) (function +26), \ *(unsigned short *) (function +30), \ *(unsigned short *) (function +38), \ *(unsigned short *) (function +46)) #endif #ifdef __mips64__ /* function: * ld $2,24($25) DF 22 00 18 * ld $3,32($25) DF 23 00 20 * sd $3,0($2) FC 43 00 00 * ld $25,40($25) DF 39 00 28 * j $25 03 20 00 08 * nop 00 00 00 00 * .dword * .dword * .dword
*/ *(unsigned int *) (function + 0) = 0xDF220018; *(unsigned int *) (function + 4) = 0xDF230020; *(unsigned int *) (function + 8) = 0xFC430000; *(unsigned int *) (function +12) = 0xDF390028; *(unsigned int *) (function +16) = 0x03200008; *(unsigned int *) (function +20) = 0x00000000; *(unsigned long *) (function +24) = (unsigned long) variable; *(unsigned long *) (function +32) = (unsigned long) data; *(unsigned long *) (function +40) = (unsigned long) address; #define TRAMP_CODE_LENGTH 24 #define is_tramp(function) \ *(unsigned int *) (function + 0) == 0xDF220018 && \ *(unsigned int *) (function + 4) == 0xDF230020 && \ *(unsigned int *) (function + 8) == 0xFC430000 && \ *(unsigned int *) (function +12) == 0xDF390028 && \ *(unsigned int *) (function +16) == 0x03200008 && \ *(unsigned int *) (function +20) == 0x00000000 #define tramp_address(function) \ *(unsigned long *) (function +40) #define tramp_variable(function) \ *(unsigned long *) (function +24) #define tramp_data(function) \ *(unsigned long *) (function +32) #endif #if defined(__sparc__) && !defined(__sparc64__) /* function: * sethi %hi(),%g1 03000000 | ( >> 10) * sethi %hi(),%g2 05000000 | ( >> 10) * or %g2,%lo(),%g2 8410A000 | ( & 0x3ff) * st %g2,[%g1+%lo()] C4206000 | ( & 0x3ff) * sethi %hi(
),%g1 03000000 | (
>> 10) * jmp %g1+%lo(
) 81C06000 | (
& 0x3ff) * nop 01000000 */ #define hi(word) ((unsigned long) (word) >> 10) #define lo(word) ((unsigned long) (word) & 0x3ff) *(long *) (function + 0) = 0x03000000 | hi(variable); *(long *) (function + 4) = 0x05000000 | hi(data); *(long *) (function + 8) = 0x8410A000 | lo(data); *(long *) (function +12) = 0xC4206000 | lo(variable); *(long *) (function +16) = 0x03000000 | hi(address); *(long *) (function +20) = 0x81C06000 | lo(address); *(long *) (function +24) = 0x01000000; #define is_tramp(function) \ (*(long *) (function + 0) & 0xffc00000) == 0x03000000 && \ (*(long *) (function + 4) & 0xffc00000) == 0x05000000 && \ (*(long *) (function + 8) & 0xfffffc00) == 0x8410A000 && \ (*(long *) (function +12) & 0xfffffc00) == 0xC4206000 && \ (*(long *) (function +16) & 0xffc00000) == 0x03000000 && \ (*(long *) (function +20) & 0xfffffc00) == 0x81C06000 && \ *(long *) (function +24) == 0x01000000 #define hilo(hiword,loword) (((hiword) << 10) | ((loword) & 0x3ff)) #define tramp_address(function) \ hilo(*(long *) (function +16), *(long *) (function +20)) #define tramp_variable(function) \ hilo(*(long *) (function + 0), *(long *) (function +12)) #define tramp_data(function) \ hilo(*(long *) (function + 4), *(long *) (function + 8)) #endif #ifdef __sparc64__ /* function: * rd %pc,%g1 83414000 * ldx [%g1+24],%g2 C4586018 * ldx [%g1+32],%g3 C6586020 * ldx [%g1+40],%g1 C2586028 * jmp %g1 81C04000 * stx %g3,[%g2] C6708000 * .long high32() >> 32 * .long low32() & 0xffffffff * .long high32() >> 32 * .long low32() & 0xffffffff * .long high32(
)
>> 32 * .long low32(
)
& 0xffffffff */ *(int *) (function + 0) = 0x83414000; *(int *) (function + 4) = 0xC4586018; *(int *) (function + 8) = 0xC6586020; *(int *) (function +12) = 0xC2586028; *(int *) (function +16) = 0x81C04000; *(int *) (function +20) = 0xC6708000; *(long *) (function +24) = (long) variable; *(long *) (function +32) = (long) data; *(long *) (function +40) = (long) address; #define TRAMP_CODE_LENGTH 24 #define is_tramp(function) \ *(int *) (function + 0) == 0x83414000 && \ *(int *) (function + 4) == 0xC4586018 && \ *(int *) (function + 8) == 0xC6586020 && \ *(int *) (function +12) == 0xC2586028 && \ *(int *) (function +16) == 0x81C04000 && \ *(int *) (function +20) == 0xC6708000 #define tramp_address(function) \ *(long *) (function +40) #define tramp_variable(function) \ *(long *) (function +24) #define tramp_data(function) \ *(long *) (function +32) #endif #ifdef __alpha__ /* function: * br $1,function..ng 00 00 20 C0 * function..ng: * ldq $2,20($1) 14 00 41 A4 * ldq $3,28($1) 1C 00 61 A4 * ldq $27,36($1) 24 00 61 A7 * stq $2,0($3) 00 00 43 B4 * jmp $31,($27),0 00 00 FB 6B * .quad * .quad * .quad
*/ { static int code [6] = { 0xC0200000, 0xA4410014, 0xA461001C, 0xA7610024, 0xB4430000, 0x6BFB0000 }; int i; for (i=0; i<6; i++) { ((int *) function)[i] = code[i]; } ((long *) function)[3] = (long) data; ((long *) function)[4] = (long) variable; ((long *) function)[5] = (long) address; } #define TRAMP_CODE_LENGTH 24 #define is_tramp(function) \ ((int *) function)[0] == 0xC0200000 && \ ((int *) function)[1] == 0xA4410014 && \ ((int *) function)[2] == 0xA461001C && \ ((int *) function)[3] == 0xA7610024 && \ ((int *) function)[4] == 0xB4430000 && \ ((int *) function)[5] == 0x6BFB0000 #define tramp_address(function) \ ((long *) function)[5] #define tramp_variable(function) \ ((long *) function)[4] #define tramp_data(function) \ ((long *) function)[3] #endif #ifdef __hppaold__ /* function: * ldil L',%r20 22800000 | hi() * ldil L',%r19 22600000 | hi() * ldo R'(%r20),%r20 36940000 | lo() * stw %r20,R'(%r19) 6A740000 | lo() * ldil L'
,%r21 22A00000 | hi(
) * ldo R'
(%r21),%r21 36B50000 | lo(
) * bb,>=,n %r21,30,function2 C7D5C012 * depi 0,31,2,%r21 D6A01C1E * ldw 4(0,%r21),%r19 4AB30008 * ldw 0(0,%r21),%r21 4AB50000 * function2: * ldsid (0,%r21),%r1 02A010A1 * mtsp %r1,%sr0 00011820 * be,n 0(%sr0,%r21) E2A00002 * nop 08000240 */ /* When decoding a 21-bit argument in an instruction, the hppa performs * the following bit manipulation: * assemble21: x[20]...x[0] * --> x[0] x[11]...x[1] x[15]..x[14] x[20]...x[16] x[13]..x[12] * When encoding a 21-bit argument into an instruction, we need the * to perform the reverse permutation: * permute21: y[20]...y[0] * --> y[6]...y[2] y[8]..y[7] y[1]..y[0] y[19]...y[9] y[20] */ #define assemble21(x) \ ((((x) & 0x1) << 20) | (((x) & 0xFFE) << 8) | \ (((x) & 0xC000) >> 7) | (((x) & 0x1F0000) >> 14) | (((x) & 0x3000) >> 12)) #define permute21(y) \ ((((y) & 0x7C) << 14) | (((y) & 0x180) << 7) | (((y) & 0x3) << 12) | \ (((y) & 0xFFE00) >> 8) | (((y) & 0x100000) >> 20)) #define hi(word) permute21((unsigned long) (word) >> 11) #define lo(word) (((unsigned long) (word) & 0x7FF) << 1) *(long *) (function + 0) = 0x22800000 | hi(data); *(long *) (function + 4) = 0x22600000 | hi(variable); *(long *) (function + 8) = 0x36940000 | lo(data); *(long *) (function +12) = 0x6A740000 | lo(variable); *(long *) (function +16) = 0x22A00000 | hi(address); *(long *) (function +20) = 0x36B50000 | lo(address); *(long *) (function +24) = 0xC7D5C012; *(long *) (function +28) = 0xD6A01C1E; *(long *) (function +32) = 0x4AB30008; *(long *) (function +36) = 0x4AB50000; *(long *) (function +40) = 0x02A010A1; *(long *) (function +44) = 0x00011820; *(long *) (function +48) = 0xE2A00002; *(long *) (function +52) = 0x08000240; #define is_tramp(function) \ ((long) function & 3) == 0 && \ (*(long *) (function + 0) & 0xffe00000) == 0x22800000 && \ (*(long *) (function + 4) & 0xffe00000) == 0x22600000 && \ (*(long *) (function + 8) & 0xfffff000) == 0x36940000 && \ (*(long *) (function +12) & 0xfffff000) == 0x6A740000 && \ (*(long *) (function +16) & 0xffe00000) == 0x22A00000 && \ (*(long *) (function +20) & 0xfffff000) == 0x36B50000 && \ *(long *) (function +24) == 0xC7D5C012 && \ *(long *) (function +28) == 0xD6A01C1E && \ *(long *) (function +32) == 0x4AB30008 && \ *(long *) (function +36) == 0x4AB50000 && \ *(long *) (function +40) == 0x02A010A1 && \ *(long *) (function +44) == 0x00011820 && \ *(long *) (function +48) == 0xE2A00002 && \ *(long *) (function +52) == 0x08000240 #define hilo(hiword,loword) \ ((assemble21((unsigned long) (hiword)) << 11) | \ (((unsigned long) (loword) & 0xFFE) >> 1) \ ) #define tramp_address(function) \ hilo(*(long *) (function +16), *(long *) (function +20)) #define tramp_variable(function) \ hilo(*(long *) (function + 4), *(long *) (function +12)) #define tramp_data(function) \ hilo(*(long *) (function + 0), *(long *) (function + 8)) #endif #ifdef __hppanew__ /* function: * .long tramp * .long closure * closure: * .long * .long * .long
*/ { /* work around a bug in gcc 3.* */ void* tramp_address = &tramp; *(long *) (function + 0) = ((long *) ((char*)tramp_address-2))[0]; *(long *) (function + 4) = (long) (function + 8); *(long *) (function + 8) = (long) variable; *(long *) (function +12) = (long) data; *(long *) (function +16) = (long) address; } #define TRAMP_CODE_LENGTH 0 #define is_tramp(function) \ ((long *) function)[0] == ((long *) ((char*)tramp_address-2))[0] #define tramp_address(function) \ ((long *) function)[4] #define tramp_variable(function) \ ((long *) function)[2] #define tramp_data(function) \ ((long *) function)[3] #endif #ifdef __hppa64old__ /* function: * mfia %r27 000014BB * ldd 40(%r27),%r31 537F0050 * ldd 48(%r27),%r1 53610060 * std %r1,0(%r31) 0FE112C0 * ldd 56(%r27),%r27 537B0070 * ldd 16(%r27),%r1 53610020 * ldd 24(%r27),%r27 537B0030 * bve (%r1) E820D000 * nop 08000240 * .align 8 * .dword * .dword * .dword
* function_pointer: * .dword 0 * .dword 0 * .dword function * .dword 0 */ *(int *) (function + 0) = 0x000014BB; *(int *) (function + 4) = 0x537F0050; *(int *) (function + 8) = 0x53610060; *(int *) (function +12) = 0x0FE112C0; *(int *) (function +16) = 0x537B0070; *(int *) (function +20) = 0x53610020; *(int *) (function +24) = 0x537B0030; *(int *) (function +28) = 0xE820D000; *(int *) (function +32) = 0x08000240; *(long *) (function +40) = (long)variable; *(long *) (function +48) = (long)data; *(long *) (function +56) = (long)address; *(long *) (function +64) = (long)0; *(long *) (function +72) = (long)0; *(long *) (function +80) = (long)function; *(long *) (function +88) = (long)0; #define TRAMP_CODE_LENGTH 36 #define is_tramp(function) \ *(int *) (function + 0) == 0x000014BB && \ *(int *) (function + 4) == 0x537F0050 && \ *(int *) (function + 8) == 0x53610060 && \ *(int *) (function +12) == 0x0FE112C0 && \ *(int *) (function +16) == 0x537B0070 && \ *(int *) (function +20) == 0x53610020 && \ *(int *) (function +24) == 0x537B0030 && \ *(int *) (function +28) == 0xE820D000 && \ *(int *) (function +32) == 0x08000240 #define tramp_address(function) \ (*(unsigned long *) (function +56)) #define tramp_variable(function) \ (*(unsigned long *) (function +40)) #define tramp_data(function) \ (*(unsigned long *) (function +48)) #endif #ifdef __hppa64new__ /* function: * .dword 0 * .dword 0 * .dword tramp * .dword closure * closure: * .dword * .dword * .dword
*/ *(long *) (function + 0) = 0; *(long *) (function + 8) = 0; *(long *) (function +16) = ((long *) (void*) &tramp)[2]; *(long *) (function +24) = (long) (function + 32); *(long *) (function +32) = (long) variable; *(long *) (function +40) = (long) data; *(long *) (function +48) = (long) address; #define TRAMP_CODE_LENGTH 0 #define is_tramp(function) \ ((long *) function)[2] == ((long *) (void*) &tramp)[2] && \ ((long *) function)[3] == (long) (function + 32) #define tramp_address(function) \ ((long *) function)[6] #define tramp_variable(function) \ ((long *) function)[4] #define tramp_data(function) \ ((long *) function)[5] #endif #if defined(__arm__) || defined(__armhf__) /* function: * stmfd sp!,{r0} E92D0001 * ldr r0,[pc,#16] E59F000C * ldr ip,[pc,#16] E59FC00C * str r0,[ip] E58C0000 * ldmfd sp!,{r0} E8BD0001 * ldr pc,[pc,#4] E59FF004 * _data: * .word * _variable: * .word * _address: * .word
*/ { ((long *) function)[0] = 0xE92D0001; ((long *) function)[1] = 0xE59F000C; ((long *) function)[2] = 0xE59FC00C; ((long *) function)[3] = 0xE58C0000; ((long *) function)[4] = 0xE8BD0001; ((long *) function)[5] = 0xE59FF004; ((long *) function)[6] = (long)data; ((long *) function)[7] = (long)variable; ((long *) function)[8] = (long)address; } #define TRAMP_CODE_LENGTH 24 #define is_tramp(function) \ ((long *) function)[0] == 0xE92D0001 && \ ((long *) function)[1] == 0xE59F000C && \ ((long *) function)[2] == 0xE59FC00C && \ ((long *) function)[3] == 0xE58C0000 && \ ((long *) function)[4] == 0xE8BD0001 && \ ((long *) function)[5] == 0xE59FF004 #define tramp_address(function) \ ((long *) function)[8] #define tramp_variable(function) \ ((long *) function)[7] #define tramp_data(function) \ ((long *) function)[6] #endif #ifdef __arm64__ /* function: * ldr x9,.+24 580000C9 * ldr x10,.+28 580000EA * ldr x11,.+32 5800010B * str x9,[x10] F9000149 * br x11 D61F0160 * nop D503201F * .xword * .xword * .xword
*/ *(int *) (function + 0) = 0x580000C9; *(int *) (function + 4) = 0x580000EA; *(int *) (function + 8) = 0x5800010B; *(int *) (function +12) = 0xF9000149; *(int *) (function +16) = 0xD61F0160; *(int *) (function +20) = 0xD503201F; *(long *) (function +24) = (unsigned long) data; *(long *) (function +32) = (unsigned long) variable; *(long *) (function +40) = (unsigned long) address; #define TRAMP_CODE_LENGTH 24 #define is_tramp(function) \ *(unsigned int *) (function + 0) == 0x580000C9 && \ *(unsigned int *) (function + 4) == 0x580000EA && \ *(unsigned int *) (function + 8) == 0x5800010B && \ *(unsigned int *) (function +12) == 0xF9000149 && \ *(unsigned int *) (function +16) == 0xD61F0160 && \ *(unsigned int *) (function +20) == 0xD503201F #define tramp_address(function) \ (*(unsigned long *) (function +40)) #define tramp_variable(function) \ (*(unsigned long *) (function +32)) #define tramp_data(function) \ (*(unsigned long *) (function +24)) #endif #ifdef __powerpcsysv4__ /* function: * {liu|lis} 11,hi16() 3D 60 hi16() * {oril|ori} 11,11,lo16() 61 6B lo16() * {liu|lis} 12,hi16() 3D 80 hi16() * {oril|ori} 12,12,lo16() 61 8C lo16() * {st|stw} 12,0(11) 91 8B 00 00 * {liu|lis} 0,hi16(
) 3C 00 hi16(
) * {oril|ori} 0,0,lo16(
) 60 00 lo16(
) * mtctr 0 7C 09 03 A6 * bctr 4E 80 04 20 */ *(short *) (function + 0) = 0x3D60; *(short *) (function + 2) = (unsigned long) variable >> 16; *(short *) (function + 4) = 0x616B; *(short *) (function + 6) = (unsigned long) variable & 0xffff; *(short *) (function + 8) = 0x3D80; *(short *) (function +10) = (unsigned long) data >> 16; *(short *) (function +12) = 0x618C; *(short *) (function +14) = (unsigned long) data & 0xffff; *(long *) (function +16) = 0x918B0000; *(short *) (function +20) = 0x3C00; *(short *) (function +22) = (unsigned long) address >> 16; *(short *) (function +24) = 0x6000; *(short *) (function +26) = (unsigned long) address & 0xffff; *(long *) (function +28) = 0x7C0903A6; *(long *) (function +32) = 0x4E800420; #define is_tramp(function) \ *(unsigned short *) (function + 0) == 0x3D60 && \ *(unsigned short *) (function + 4) == 0x616B && \ *(unsigned short *) (function + 8) == 0x3D80 && \ *(unsigned short *) (function +12) == 0x618C && \ *(unsigned long *) (function +16) == 0x918B0000 && \ *(unsigned short *) (function +20) == 0x3C00 && \ *(unsigned short *) (function +24) == 0x6000 && \ *(unsigned long *) (function +28) == 0x7C0903A6 && \ *(unsigned long *) (function +32) == 0x4E800420 #define hilo(hiword,loword) \ (((unsigned long) (hiword) << 16) | (unsigned long) (loword)) #define tramp_address(function) \ hilo(*(unsigned short *) (function +22), *(unsigned short *) (function +26)) #define tramp_variable(function) \ hilo(*(unsigned short *) (function + 2), *(unsigned short *) (function + 6)) #define tramp_data(function) \ hilo(*(unsigned short *) (function +10), *(unsigned short *) (function +14)) #endif #ifdef __powerpcaix__ /* function: * .long .tramp * .long .mytoc * .long 0 * .mytoc: * .long * .long * .long
*/ *(long *) (function + 0) = ((long *) &tramp)[0]; *(long *) (function + 4) = (long) (function + 12); *(long *) (function + 8) = 0; *(long *) (function +12) = (long) variable; *(long *) (function +16) = (long) data; *(long *) (function +20) = (long) address; #define TRAMP_CODE_LENGTH 0 #define is_tramp(function) \ ((long *) function)[0] == ((long *) &tramp)[0] #define tramp_address(function) \ ((long *) function)[5] #define tramp_variable(function) \ ((long *) function)[3] #define tramp_data(function) \ ((long *) function)[4] #endif #ifdef __powerpc64_elfv2__ /* function: * ld 11,24(12) 18 00 6C E9 * ld 0,32(12) 20 00 0C E8 * std 0,0(11) 00 00 0B F8 * ld 12,40(12) 28 00 8C E9 * mtctr 12 A6 03 89 7D * bctr 20 04 80 4E * .quad * .quad * .quad
*/ *(int *) (function + 0) = 0xE96C0018; *(int *) (function + 4) = 0xE80C0020; *(int *) (function + 8) = 0xF80B0000; *(int *) (function +12) = 0xE98C0028; *(int *) (function +16) = 0x7D8903A6; *(int *) (function +20) = 0x4E800420; *(long *) (function +24) = (unsigned long) variable; *(long *) (function +32) = (unsigned long) data; *(long *) (function +40) = (unsigned long) address; #define TRAMP_CODE_LENGTH 24 #define is_tramp(function) \ *(unsigned int *) (function + 0) == 0xE96C0018 && \ *(unsigned int *) (function + 4) == 0xE80C0020 && \ *(unsigned int *) (function + 8) == 0xF80B0000 && \ *(unsigned int *) (function +12) == 0xE98C0028 && \ *(unsigned int *) (function +16) == 0x7D8903A6 && \ *(unsigned int *) (function +20) == 0x4E800420 #define tramp_address(function) \ (*(unsigned long *) (function +40)) #define tramp_variable(function) \ (*(unsigned long *) (function +24)) #define tramp_data(function) \ (*(unsigned long *) (function +32)) #endif #ifdef __powerpc64aix__ /* function: * .quad .tramp * .quad .mytoc * .quad 0 * .mytoc: * .quad * .quad * .quad
*/ *(long *) (function + 0) = ((long *) &tramp)[0]; *(long *) (function + 8) = (long) (function + 24); *(long *) (function +16) = 0; *(long *) (function +24) = (long) variable; *(long *) (function +32) = (long) data; *(long *) (function +40) = (long) address; #define TRAMP_CODE_LENGTH 0 #define is_tramp(function) \ ((long *) function)[0] == ((long *) &tramp)[0] #define tramp_address(function) \ ((long *) function)[5] #define tramp_variable(function) \ ((long *) function)[3] #define tramp_data(function) \ ((long *) function)[4] #endif #ifdef __ia64__ /* function: * data8 tramp * data8 closure * closure: * data8
* data8 * data8 */ *(long *) (function + 0) = (long) &tramp; *(long *) (function + 8) = (long) (function + 16); *(long *) (function +16) = (long) address; *(long *) (function +24) = (long) variable; *(long *) (function +32) = (long) data; #define TRAMP_CODE_LENGTH 0 #define is_tramp(function) \ ((long *) function)[0] == (long) &tramp #define tramp_address(function) \ ((long *) function)[2] #define tramp_variable(function) \ ((long *) function)[3] #define tramp_data(function) \ ((long *) function)[4] #endif #ifdef __x86_64__ #ifdef __x86_64_x32__ /* function: * movl $, C7 04 25 * movl $
,%eax B8
* jmp *%rax FF E0 */ *(int *) (function + 0) = ((unsigned long) variable << 24) | 0x2504C7; *(int *) (function + 4) = ((unsigned long) data << 24) | ((unsigned long) variable >> 8); *(int *) (function + 8) = 0xB8000000 | ((unsigned long) data >> 8); *(int *) (function +12) = (unsigned long) address; *(short *) (function +16) = 0xE0FF; #define is_tramp(function) \ (*(unsigned long *) (function + 0) & 0x00FFFFFF) == 0x2504C7 && \ (*(unsigned long *) (function + 8) & 0xFF000000) == 0xB8000000 && \ *(unsigned short *) (function +16) == 0xE0FF #define tramp_address(function) \ (*(unsigned int *) (function +12)) #define tramp_variable(function) \ ((*(unsigned long *) (function + 0) >> 24) | \ (*(unsigned long *) (function + 4) << 8)) #define tramp_data(function) \ ((*(unsigned long *) (function + 4) >> 24) | \ (*(unsigned long *) (function + 8) << 8)) #else /* function: * movabsq $,%rax 48 B8 * movabsq %rax, 48 A3 * movabsq $
,%rax 48 B8
* jmp *%rax FF E0 */ *(short *) (function + 0) = 0xB848; *(short *) (function + 2) = (unsigned long long) data & 0xffff; *(int *) (function + 4) = ((unsigned long long) data >> 16) & 0xffffffff; *(short *) (function + 8) = ((unsigned long long) data >> 48) & 0xffff; *(short *) (function +10) = 0xA348; *(int *) (function +12) = (unsigned long long) variable & 0xffffffff; *(int *) (function +16) = ((unsigned long long) variable >> 32) & 0xffffffff; *(short *) (function +20) = 0xB848; *(short *) (function +22) = (unsigned long long) address & 0xffff; *(int *) (function +24) = ((unsigned long long) address >> 16) & 0xffffffff; *(short *) (function +28) = ((unsigned long long) address >> 48) & 0xffff; *(short *) (function +30) = 0xE0FF; #define is_tramp(function) \ *(unsigned short *) (function + 0) == 0xB848 && \ *(unsigned short *) (function +10) == 0xA348 && \ *(unsigned short *) (function +20) == 0xB848 && \ *(unsigned short *) (function +30) == 0xE0FF #define hilo(hiword,loword) \ (((unsigned long long) (hiword) << 32) | (unsigned long long) (loword)) #define himidlo(hishort,midword,loshort) \ (((unsigned long long) (hishort) << 48) | (unsigned long long) (midword) << 16 \ | (unsigned long long) (loshort)) #define tramp_address(function) \ himidlo(*(unsigned short *) (function +28), \ *(unsigned int *) (function +24), \ *(unsigned short *) (function +22)) #define tramp_variable(function) \ hilo(*(unsigned int *) (function +16), *(unsigned int *) (function +12)) #define tramp_data(function) \ himidlo(*(unsigned short *) (function + 8), \ *(unsigned int *) (function + 4), \ *(unsigned short *) (function + 2)) #endif #endif #if defined(__s390__) && !defined(__s390x__) /* function: * bras %r1,.L1 A7150002 * .L1: * l %r0,data-.L1(%r1) 58001018 * l %r1,variable-.L1(%r1) 5810101C * st %r0,0(%r1) 50001000 * bras %r1,.L2 A7150002 * .L2: * l %r1,function-.L2(%r1) 58101010 * br %r1 07F1 * nop 0707 * data: .long * variable: .long * address: .long
*/ *(int *) (function + 0) = 0xA7150002; *(int *) (function + 4) = 0x58001018; *(int *) (function + 8) = 0x5810101C; *(int *) (function +12) = 0x50001000; *(int *) (function +16) = 0xA7150002; *(int *) (function +20) = 0x58101010; *(int *) (function +24) = 0x07F10707; *(int *) (function +28) = (unsigned int) data; *(int *) (function +32) = (unsigned int) variable; *(int *) (function +36) = (unsigned int) address; #define TRAMP_CODE_LENGTH 28 #define is_tramp(function) \ *(unsigned int *) (function + 0) == 0xA7150002 && \ *(unsigned int *) (function + 4) == 0x58001018 && \ *(unsigned int *) (function + 8) == 0x5810101C && \ *(unsigned int *) (function +12) == 0x50001000 && \ *(unsigned int *) (function +16) == 0xA7150002 && \ *(unsigned int *) (function +20) == 0x58101010 && \ *(unsigned int *) (function +24) == 0x07F10707 #define tramp_address(function) \ *(unsigned int *) (function +36) #define tramp_variable(function) \ *(unsigned int *) (function +32) #define tramp_data(function) \ *(unsigned int *) (function +28) #endif #ifdef __s390x__ /* function: * larl %r1,.L1 C01000000003 * .L1: * lg %r0,data-.L1(%r1) E30010220004 * lg %r1,variable-.L1(%r1) E310102A0004 * stg %r0,0(%r1) E30010000024 * larl %r1,.L2 C01000000003 * .L2: * lg %r1,function-.L2(%r1) E310101A0004 * br %r1 07F1 * nop 0707 * data: .quad * variable: .quad * address: .quad
*/ *(int *) (function + 0) = 0xC0100000; *(int *) (function + 4) = 0x0003E300; *(int *) (function + 8) = 0x10220004; *(int *) (function +12) = 0xE310102A; *(int *) (function +16) = 0x0004E300; *(int *) (function +20) = 0x10000024; *(int *) (function +24) = 0xC0100000; *(int *) (function +28) = 0x0003E310; *(int *) (function +32) = 0x101A0004; *(int *) (function +36) = 0x07F10707; *(long *) (function +40) = (unsigned long) data; *(long *) (function +48) = (unsigned long) variable; *(long *) (function +56) = (unsigned long) address; #define TRAMP_CODE_LENGTH 40 #define is_tramp(function) \ *(unsigned int *) (function + 0) == 0xC0100000 && \ *(unsigned int *) (function + 4) == 0x0003E300 && \ *(unsigned int *) (function + 8) == 0x10220004 && \ *(unsigned int *) (function +12) == 0xE310102A && \ *(unsigned int *) (function +16) == 0x0004E300 && \ *(unsigned int *) (function +20) == 0x10000024 && \ *(unsigned int *) (function +24) == 0xC0100000 && \ *(unsigned int *) (function +28) == 0x0003E310 && \ *(unsigned int *) (function +32) == 0x101A0004 && \ *(unsigned int *) (function +36) == 0x07F10707 #define tramp_address(function) \ (*(unsigned long *) (function +56)) #define tramp_variable(function) \ (*(unsigned long *) (function +48)) #define tramp_data(function) \ (*(unsigned long *) (function +40)) #endif #ifdef __riscv32__ /* function: * auipc t3,0 00000E17 * lw t0,24(t3) 018E2283 * lw t1,28(t3) 01CE2303 * lw t2,32(t3) 020E2383 * sw t0,(t1) 00532023 * jr t2 00038067 * data: .word * variable: .word * address: .word
*/ *(int *) (function + 0) = 0x00000E17; *(int *) (function + 4) = 0x018E2283; *(int *) (function + 8) = 0x01CE2303; *(int *) (function +12) = 0x020E2383; *(int *) (function +16) = 0x00532023; *(int *) (function +20) = 0x00038067; *(int *) (function +24) = (unsigned int) data; *(int *) (function +28) = (unsigned int) variable; *(int *) (function +32) = (unsigned int) address; #define TRAMP_CODE_LENGTH 24 #define is_tramp(function) \ *(unsigned int *) (function + 0) == 0x00000E17 && \ *(unsigned int *) (function + 4) == 0x018E2283 && \ *(unsigned int *) (function + 8) == 0x01CE2303 && \ *(unsigned int *) (function +12) == 0x020E2383 && \ *(unsigned int *) (function +16) == 0x00532023 && \ *(unsigned int *) (function +20) == 0x00038067 #define tramp_address(function) \ (*(unsigned int *) (function +32)) #define tramp_variable(function) \ (*(unsigned int *) (function +28)) #define tramp_data(function) \ (*(unsigned int *) (function +24)) #endif #ifdef __riscv64__ /* function: * auipc t3,0 00000E17 * ld t0,24(t3) 018E3283 * ld t1,32(t3) 020E3303 * ld t2,40(t3) 028E3383 * sd t0,(t1) 00533023 * jr t2 00038067 * data: .quad * variable: .quad * address: .quad
*/ *(int *) (function + 0) = 0x00000E17; *(int *) (function + 4) = 0x018E3283; *(int *) (function + 8) = 0x020E3303; *(int *) (function +12) = 0x028E3383; *(int *) (function +16) = 0x00533023; *(int *) (function +20) = 0x00038067; *(long *) (function +24) = (unsigned long) data; *(long *) (function +32) = (unsigned long) variable; *(long *) (function +40) = (unsigned long) address; #define TRAMP_CODE_LENGTH 24 #define is_tramp(function) \ *(unsigned int *) (function + 0) == 0x00000E17 && \ *(unsigned int *) (function + 4) == 0x018E3283 && \ *(unsigned int *) (function + 8) == 0x020E3303 && \ *(unsigned int *) (function +12) == 0x028E3383 && \ *(unsigned int *) (function +16) == 0x00533023 && \ *(unsigned int *) (function +20) == 0x00038067 #define tramp_address(function) \ (*(unsigned long *) (function +40)) #define tramp_variable(function) \ (*(unsigned long *) (function +32)) #define tramp_data(function) \ (*(unsigned long *) (function +24)) #endif /* 3. Set memory protection to "executable" */ #if !defined(CODE_EXECUTABLE) #if defined(EXECUTABLE_VIA_MALLOC_THEN_MPROTECT) || defined(EXECUTABLE_VIA_MMAP_THEN_MPROTECT) /* Call mprotect on the pages that contain the range. */ { uintptr_t start_addr = (uintptr_t) function; uintptr_t end_addr = (uintptr_t) (function + TRAMP_LENGTH); start_addr = start_addr & -pagesize; end_addr = (end_addr + pagesize-1) & -pagesize; {uintptr_t len = end_addr - start_addr; #if defined(HAVE_MACH_VM) if (vm_protect(task_self(),start_addr,len,0,VM_PROT_READ|VM_PROT_WRITE|VM_PROT_EXECUTE) != KERN_SUCCESS) #else if (mprotect((void*)start_addr, len, PROT_READ|PROT_WRITE|PROT_EXEC) < 0) #endif { fprintf(stderr,"trampoline: cannot make memory executable\n"); abort(); } }} #endif #endif /* 4. Flush instruction cache */ /* We need this because some CPUs have separate data cache and instruction * cache. The freshly built trampoline is visible to the data cache, but not * maybe not to the instruction cache. This is hairy. */ /* TRAMP_CODE_LENGTH = length of the machine instructions. */ #ifndef TRAMP_CODE_LENGTH #define TRAMP_CODE_LENGTH TRAMP_LENGTH #endif #if !(defined(__hppanew__) || defined(__hppa64new__) || defined(__powerpcaix__) || defined(__powerpc64aix__) || defined(__ia64__)) /* Only needed if we really set up machine instructions. */ #ifdef __i386__ #if defined(_WIN32) while (!FlushInstructionCache(GetCurrentProcess(),function_x,TRAMP_CODE_LENGTH)) continue; #endif #endif #ifdef __m68k__ #if defined(__NetBSD__) && defined(__GNUC__) { register uintptr_t _beg __asm__ ("%a1") = (uintptr_t) function_x; register uintptr_t _len __asm__ ("%d1") = TRAMP_CODE_LENGTH; __asm__ __volatile__ ( "move%.l %#0x80000004,%/d0\n\t" /* CC_EXTPURGE | C_IPURGE */ "trap #12" /* kernel call ‘cachectl’ */ : : "a" (_beg), "d" (_len) : "%a0", "%a1", "%d0", "%d1" /* call-used registers */ ); } #endif #if defined(__linux__) && defined(__GNUC__) { register uintptr_t _beg __asm__ ("%d1") = (uintptr_t) function_x; register uintptr_t _len __asm__ ("%d4") = TRAMP_CODE_LENGTH + 32; __asm__ __volatile__ ( "move%.l %#123,%/d0\n\t" "move%.l %#1,%/d2\n\t" "move%.l %#3,%/d3\n\t" "trap %#0" : : "d" (_beg), "d" (_len) : "%d0", "%d2", "%d3" ); } #endif #if defined(AUX) && defined(__GNUC__) /* sysm68k(105, addr, scope, cache, len) */ __asm__ __volatile__ ( "move%.l %1,%/sp@-\n\t" "move%.l %#3,%/sp@-\n\t" "move%.l %#1,%/sp@-\n\t" "move%.l %0,%/sp@-\n\t" "move%.l %#105,%/sp@-\n\t" "move%.l %#0,%/sp@-\n\t" "move%.l %#38,%/sp@-\n\t" "trap %#0\n\t" "add%.l %#24,%/sp" : : "r" (function_x), "g" ((int)TRAMP_CODE_LENGTH) : "%d0" ); #endif #endif #if defined(__mips__) || defined(__mipsn32__) || defined(__mips64__) cacheflush(function_x,TRAMP_CODE_LENGTH,ICACHE); /* gforth-0.3.0 uses BCACHE instead of ICACHE. Why?? */ #endif #if defined(__sparc__) || defined(__sparc64__) /* This assumes that the trampoline fits in at most four cache lines. */ __TR_clear_cache_4(function_x,function_x+TRAMP_CODE_LENGTH-1); #endif #ifdef __alpha__ __TR_clear_cache(); #endif #if defined(__hppa__) || defined(__hppa64__) /* This assumes that the trampoline fits in at most two cache lines. */ __TR_clear_cache(function_x,function_x+TRAMP_CODE_LENGTH-1); #endif #if defined(__arm__) || defined(__armhf__) || defined(__arm64__) /* On ARM, cache flushing can only be done through a system call. GCC implements it for Linux with EABI, through an "swi 0" with code 0xf0002. For other systems, it may be an "swi 0x9f0002", an "swi 0xf00000", or similar. */ /* On ARM64, cache flushing is done through special instructions, and the length of the cache lines must be determined at runtime. See gcc/libgcc/config/aarch64/sync-cache.c. */ #if defined(__GNUC__) /* Use the GCC built-in. */ __clear_cache((void*)function_x,(void*)(function_x+TRAMP_CODE_LENGTH)); #else #error "Don't know how to implement clear_cache on this platform." #endif #endif #if defined(__powerpc__) || defined(__powerpc64__) __TR_clear_cache(function_x); #endif #if defined(__riscv32__) || defined(__riscv64__) #if defined(__linux__) /* Use the libc function. */ __riscv_flush_icache((void*)function_x,(void*)(function_x+TRAMP_CODE_LENGTH),0); #elif defined(__GNUC__) __asm__ __volatile__ ("fence.i"); #endif #endif #endif /* 5. Return. */ return (trampoline_function_t) (function_x + TRAMP_BIAS); } void free_trampoline (trampoline_function_t function) { #if TRAMP_BIAS function = (trampoline_function_t)((char*)function - TRAMP_BIAS); #endif #if !defined(CODE_EXECUTABLE) && !defined(EXECUTABLE_VIA_MALLOC_THEN_MPROTECT) #ifdef EXECUTABLE_VIA_MMAP_FILE_SHARED /* Find the writable address corresponding to the executable address. */ { uintptr_t page_x = (uintptr_t) function & -(intptr_t)pagesize; function -= ((intptr_t*)page_x)[0]; } #endif *(char**)function = freelist; freelist = (char*)function; /* It is probably not worth calling munmap() for entirely freed pages. */ #else free(((char**)function)[-1]); #endif } int is_trampoline (void* function) { #ifdef is_tramp #ifdef __hppanew__ void* tramp_address = &tramp; if (!(((uintptr_t)function & 3) == (TRAMP_BIAS & 3))) return 0; #endif return ((is_tramp(((char*)function - TRAMP_BIAS))) ? 1 : 0); #else abort(); #endif } trampoline_function_t trampoline_address (trampoline_function_t function) { #ifdef tramp_address return (trampoline_function_t)(tramp_address(((char*)function - TRAMP_BIAS))); #else abort(); #endif } void** trampoline_variable (trampoline_function_t function) { #ifdef tramp_variable return (void**)(tramp_variable(((char*)function - TRAMP_BIAS))); #else abort(); #endif } void* trampoline_data (trampoline_function_t function) { #ifdef tramp_data return (void*)(tramp_data(((char*)function - TRAMP_BIAS))); #else abort(); #endif } libffcall-2.2/trampoline/cache-alpha-macro.S0000664000000000000000000000066013527105032015707 00000000000000 .set noreorder .set volatile .set noat .set nomacro .text .align 2 .align 4 .globl __TR_clear_cache .ent __TR_clear_cache $__TR_clear_cache..ng: __TR_clear_cache: .frame $30,0,$26,0 .prologue 0 .set macro call_pal 0x86 .set nomacro ret $31,($26),1 .end __TR_clear_cache #if defined __linux__ || defined __FreeBSD__ || defined __FreeBSD_kernel__ || defined __DragonFly__ .section .note.GNU-stack,"",@progbits #endif libffcall-2.2/trampoline/cache-powerpc64.c0000664000000000000000000000260313347755321015407 00000000000000/* Instruction cache flushing for powerpc64, not the AIX ABI */ /* * Copyright 1997-2017 Bruno Haible * * This program is free software: you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by * the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program. If not, see . */ void __TR_clear_cache (char* first_addr) { /* Taken from egcs-1.1.2/gcc/config/rs6000/tramp.asm. */ /* The number of asm statements here depends on the value of TRAMP_LENGTH-3*8 for __powerpc64_elfv2__. */ asm volatile ("icbi 0,%0; dcbf 0,%0" : : "r" (first_addr)); asm volatile ("icbi 0,%0; dcbf 0,%0" : : "r" (first_addr+4)); asm volatile ("icbi 0,%0; dcbf 0,%0" : : "r" (first_addr+8)); asm volatile ("icbi 0,%0; dcbf 0,%0" : : "r" (first_addr+12)); asm volatile ("icbi 0,%0; dcbf 0,%0" : : "r" (first_addr+16)); asm volatile ("icbi 0,%0; dcbf 0,%0" : : "r" (first_addr+20)); asm volatile ("sync; isync"); } libffcall-2.2/trampoline/cache-sparc64-macro.S0000664000000000000000000000062613527105032016106 00000000000000#include "asm-sparc.h" .section ".text" .align 4 .global C(__TR_clear_cache_4) DECLARE_FUNCTION(__TR_clear_cache_4) .proc 020 FUNBEGIN(__TR_clear_cache_4) iflush %o0+0;iflush %o0+8;iflush %o0+16;iflush %o0+24 jmp %o7+8 nop FUNEND(__TR_clear_cache_4) #if defined __linux__ || defined __FreeBSD__ || defined __FreeBSD_kernel__ || defined __DragonFly__ .section .note.GNU-stack,"",@progbits #endif libffcall-2.2/trampoline/tramp-hppa-macro.S0000664000000000000000000000265713347755324015661 00000000000000; Trampoline for hppa CPU ; Copyright 1997-2017 Bruno Haible ; ; This program is free software: you can redistribute it and/or modify ; it under the terms of the GNU General Public License as published by ; the Free Software Foundation; either version 2 of the License, or ; (at your option) any later version. ; ; This program is distributed in the hope that it will be useful, ; but WITHOUT ANY WARRANTY; without even the implied warranty of ; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ; GNU General Public License for more details. ; ; You should have received a copy of the GNU General Public License ; along with this program. If not, see . ; Available registers: %r1, %r19, %r20, %r21, %r22, %r29, %r31. .code .IMPORT $global$,DATA .IMPORT $$dyncall,MILLICODE .code .align 4 .EXPORT tramp,ENTRY,PRIV_LEV=3,ARGW0=GR,ARGW1=GR .label tramp .PROC .CALLINFO FRAME=0,NO_CALLS .ENTRY ; The closure pointer is already in register %r19. ; Move into register %r20. ldw 0(0,%r19),%r20 ; Move into register %r22 ldw 4(0,%r19),%r22 ; Move
into register %r21. ldw 8(0,%r19),%r21 ; Store into . stw %r22,0(0,%r20) ; Jump to %r21. bb,>=,n %r21,30,tramp_2 depi 0,31,2,%r21 ldw 4(0,%r21),%r19 ldw 0(0,%r21),%r21 .label tramp_2 ldsid (0,%r21),%r1 mtsp %r1,%sr0 be,n 0(%sr0,%r21) nop .EXIT .PROCEND #include "noexecstack.h" libffcall-2.2/trampoline/tramp-hppa64-macro.S0000664000000000000000000000265713347755323016032 00000000000000; Trampoline for hppa64 CPU ; Copyright 2017 Bruno Haible ; ; This program is free software: you can redistribute it and/or modify ; it under the terms of the GNU General Public License as published by ; the Free Software Foundation; either version 2 of the License, or ; (at your option) any later version. ; ; This program is distributed in the hope that it will be useful, ; but WITHOUT ANY WARRANTY; without even the implied warranty of ; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ; GNU General Public License for more details. ; ; You should have received a copy of the GNU General Public License ; along with this program. If not, see . ; Available registers: %r1, %r27, %r31. ; %r27 has a fixed meaning at function calls: pic_base (a.k.a. gp or dp). ; %r31 has a fixed meaning as millicode return pointer (mrp). #include "asm-hppa64.h" .LEVEL 2.0w TEXT1() TEXT2() .align 8 GLOBL(tramp) DECLARE_FUNCTION(tramp) DEF(tramp) .PROC .CALLINFO FRAME=0,NO_CALLS .ENTRY ; The closure pointer is already in register %r27. ; Move into . ldd 0(%r27),%r31 ; get ldd 8(%r27),%r1 ; get std %r1,0(%r31) ; store in ; Jump to . ldd 16(%r27),%r27 ; get ldd 16(%r27),%r1 ldd 24(%r27),%r27 bve (%r1) ; jump to nop .EXIT .PROCEND DEF(L(fe1)) FUNEND(tramp) #include "noexecstack.h" libffcall-2.2/trampoline/cache-powerpc64-elfv2-linux.s0000664000000000000000000000157113527105032017567 00000000000000 .file "cache-powerpc64.c" .machine power4 .abiversion 2 .section ".toc","aw" .section ".text" .align 2 .p2align 4,,15 .globl __TR_clear_cache .type __TR_clear_cache, @function __TR_clear_cache: #APP # 25 "cache-powerpc64.c" 1 icbi 0,3; dcbf 0,3 # 0 "" 2 #NO_APP addi 9,3,4 #APP # 26 "cache-powerpc64.c" 1 icbi 0,9; dcbf 0,9 # 0 "" 2 #NO_APP addi 9,3,8 #APP # 27 "cache-powerpc64.c" 1 icbi 0,9; dcbf 0,9 # 0 "" 2 #NO_APP addi 9,3,12 #APP # 28 "cache-powerpc64.c" 1 icbi 0,9; dcbf 0,9 # 0 "" 2 #NO_APP addi 9,3,16 #APP # 29 "cache-powerpc64.c" 1 icbi 0,9; dcbf 0,9 # 0 "" 2 #NO_APP addi 3,3,20 #APP # 30 "cache-powerpc64.c" 1 icbi 0,3; dcbf 0,3 # 0 "" 2 # 31 "cache-powerpc64.c" 1 sync; isync # 0 "" 2 #NO_APP blr .long 0 .byte 0,0,0,0,0,0,0,0 .size __TR_clear_cache,.-__TR_clear_cache .ident "GCC: (GNU) 5.4.0" .section .note.GNU-stack,"",@progbits libffcall-2.2/trampoline/tramp-powerpc64-aix.S0000664000000000000000000000322413347755327016234 00000000000000/* Trampoline for powerpc64 CPU with AIX calling convention */ /* * Copyright 1995-2017 Bruno Haible * * This program is free software: you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by * the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program. If not, see . */ /* Available registers: r0, r11, r12. */ /* However, r0 is special in that it cannot be used as a base register. */ .machine "ppc64" #ifdef _AIX .rename H.4.NO_SYMBOL{PR},"" .lglobl H.4.NO_SYMBOL{PR} .globl .tramp .csect H.4.NO_SYMBOL{PR},7 #else .globl tramp .globl .tramp tramp: .quad .tramp #endif .tramp: /* Move into */ ld 11,0(2) /* get */ ld 12,8(2) /* get */ std 12,0(11) /* Get */ ld 12,16(2) /* * gcc-2.6.3 source says: * A function pointer is a pointer to a data area whose first word contains * the actual address of the function, whose second word contains a pointer * to its TOC, and whose third word contains a value to place in the static * chain register (r11). */ ld 11,16(12) /* pass static chain in r11 */ ld 2,8(12) /* pass TOC in r2 */ ld 0,0(12) /* actual code address */ mtctr 0 bctr #include "noexecstack.h" libffcall-2.2/trampoline/cache-hppa-macro.S0000664000000000000000000000114213527105032015546 00000000000000#include "asm-hppa.h" .LEVEL 1.1 IMPORT_MILLICODE($$dyncall) TEXT1() TEXT2() .align 4 GLOBL(__TR_clear_cache) DECLARE_FUNCTION(__TR_clear_cache) DEF(__TR_clear_cache) .PROC .CALLINFO FRAME=0,NO_CALLS .ENTRY fdc 0(0,%r26) fdc 0(0,%r25) sync mfsp %sr0,%r20 ldsid (0,%r26),%r26 mtsp %r26,%sr0 fic 0(%sr0,%r26) fic 0(%sr0,%r25) sync mtsp %r20,%sr0 nop nop nop nop nop nop bv,n %r0(%r2) .EXIT .PROCEND DEF(L(fe1)) FUNEND(__TR_clear_cache) #if defined __linux__ || defined __FreeBSD__ || defined __FreeBSD_kernel__ || defined __DragonFly__ .section .note.GNU-stack,"",@progbits #endif libffcall-2.2/trampoline/cache-powerpc-macos.s0000664000000000000000000000061313527105032016340 00000000000000.text .align 2 .globl ___TR_clear_cache ___TR_clear_cache: icbi 0,r3; dcbf 0,r3 addi r0,r3,4 icbi 0,r0; dcbf 0,r0 addi r9,r3,8 icbi 0,r9; dcbf 0,r9 addi r0,r3,12 icbi 0,r0; dcbf 0,r0 addi r9,r3,16 icbi 0,r9; dcbf 0,r9 addi r0,r3,20 icbi 0,r0; dcbf 0,r0 addi r9,r3,24 icbi 0,r9; dcbf 0,r9 addi r0,r3,28 icbi 0,r0; dcbf 0,r0 addi r3,r3,32 icbi 0,r3; dcbf 0,r3 sync; isync blr libffcall-2.2/trampoline/Makefile.devel0000664000000000000000000002156513527104765015117 00000000000000# This is the developer's -*-Makefile-*-, not the user's makefile. # Do not use it unless you know exactly what you do! THISFILE = Makefile.devel RM = rm -f # ============ Rules that require cross-compilation tools ============ GCC = gcc GCCFLAGS = -O2 -fomit-frame-pointer -fPIC CPP = $(GCC) -E CROSS_TOOL = cross precompiled : \ cache-sparc-macro.S cache-sparc64-macro.S \ cache-alpha-macro.S \ cache-hppa-macro.S cache-hppa64-macro.S \ cache-powerpc-linux-macro.S cache-powerpc-macos.s \ cache-powerpc64-elfv2-macro.S cache-sparc-linux.s : cache-sparc.c $(THISFILE) $(CROSS_TOOL) sparc-linux gcc -V 3.1 $(GCCFLAGS) -D__sparc__ -S cache-sparc.c -o cache-sparc-linux.s cache-sparc-macro.S : cache-sparc-linux.s ../common/asm-sparc.sh ../common/noexecstack.h $(THISFILE) (echo '#include "asm-sparc.h"' ; ../common/asm-sparc.sh < cache-sparc-linux.s ; cat ../common/noexecstack.h) > cache-sparc-macro.S cache-sparc64-linux.s : cache-sparc.c $(THISFILE) $(CROSS_TOOL) sparc64-linux gcc -V 4.0.2 $(GCCFLAGS) -D__sparc64__ -S cache-sparc.c -o cache-sparc64-linux.s cache-sparc64-macro.S : cache-sparc64-linux.s ../common/asm-sparc.sh ../common/noexecstack.h $(THISFILE) (echo '#include "asm-sparc.h"' ; ../common/asm-sparc.sh < cache-sparc64-linux.s ; cat ../common/noexecstack.h) > cache-sparc64-macro.S cache-alpha-linux.s : cache-alpha.c $(THISFILE) $(CROSS_TOOL) alpha-linux gcc -V 4.0.2 $(GCCFLAGS) -D__alpha__ -S cache-alpha.c -o cache-alpha-linux.s cache-alpha-macro.S : cache-alpha-linux.s ../common/asm-alpha.sh ../common/noexecstack.h $(THISFILE) (../common/asm-alpha.sh < cache-alpha-linux.s ; cat ../common/noexecstack.h) > cache-alpha-macro.S cache-hppa-linux.s : cache-hppa.c $(THISFILE) $(CROSS_TOOL) hppa-linux gcc -V 3.1 $(GCCFLAGS) -D__hppa__ -S cache-hppa.c -o cache-hppa-linux.s cache-hppa-macro.S : cache-hppa-linux.s ../common/asm-hppa.sh ../common/noexecstack.h $(THISFILE) (echo '#include "asm-hppa.h"' ; ../common/asm-hppa.sh < cache-hppa-linux.s ; cat ../common/noexecstack.h) > cache-hppa-macro.S cache-hppa64-linux.s : cache-hppa.c $(THISFILE) $(CROSS_TOOL) hppa64-linux gcc -V 3.1 $(GCCFLAGS) -D__hppa64__ -S cache-hppa.c -o cache-hppa64-linux.s cache-hppa64-macro.S : cache-hppa64-linux.s ../common/asm-hppa64.sh ../common/noexecstack.h $(THISFILE) (echo '#include "asm-hppa64.h"' ; ../common/asm-hppa64.sh < cache-hppa64-linux.s ; cat ../common/noexecstack.h) > cache-hppa64-macro.S cache-powerpc-linux.s : cache-powerpc.c $(THISFILE) $(CROSS_TOOL) powerpc-linux gcc -V 3.3.6 -mno-power -mno-power2 -mno-powerpc $(GCCFLAGS) -D__powerpc__ -S cache-powerpc.c -o cache-powerpc-linux.s cache-powerpc-linux-macro.S : cache-powerpc-linux.s ../common/asm-powerpc.sh ../common/noexecstack.h $(THISFILE) (../common/asm-powerpc.sh < cache-powerpc-linux.s ; cat ../common/noexecstack.h) > cache-powerpc-linux-macro.S cache-powerpc-macos.s : cache-powerpc.c $(THISFILE) $(CROSS_TOOL) powerpc-darwin gcc -V 3.3.6 $(GCCFLAGS) -D__powerpc__ -S cache-powerpc.c -o cache-powerpc-macos.s cache-powerpc64-elfv2-linux.s : cache-powerpc64.c $(THISFILE) $(CROSS_TOOL) powerpc64le-linux gcc-5.4.0 -mabi=elfv2 -mcpu=power4 -mlittle-endian $(GCCFLAGS) -D__powerpc64__ -S cache-powerpc64.c -o cache-powerpc64-elfv2-linux-le.s $(CROSS_TOOL) powerpc64le-linux gcc-5.4.0 -mabi=elfv2 -mcpu=power4 -mbig-endian $(GCCFLAGS) -D__powerpc64__ -S cache-powerpc64.c -o cache-powerpc64-elfv2-linux-be.s cmp cache-powerpc64-elfv2-linux-le.s cache-powerpc64-elfv2-linux-be.s > /dev/null mv cache-powerpc64-elfv2-linux-le.s cache-powerpc64-elfv2-linux.s $(RM) cache-powerpc64-elfv2-linux-be.s cache-powerpc64-elfv2-macro.S : cache-powerpc64-elfv2-linux.s ../common/asm-powerpc.sh ../common/noexecstack.h $(THISFILE) (../common/asm-powerpc.sh < cache-powerpc64-elfv2-linux.s ; cat ../common/noexecstack.h) > cache-powerpc64-elfv2-macro.S # --------------- Older rules --------------- OLDGCCFLAGS = -O2 -fomit-frame-pointer ASPREFIX = /usr1/gnu/lib proto-precompiled : proto-i386.s proto-m68k.s proto-mips.s proto-mipsn32.s proto-mips64.s proto-sparc.s proto-sparc64.s proto-alpha.s proto-hppa.s proto-hppa64.s proto-arm.s proto-arm64.s proto-powerpc-aix.s proto-powerpc-sysv4.s proto-powerpc-macos.s proto-powerpc64-aix.s proto-powerpc64-elfv2.s proto-ia64.s proto-x86_64.s proto-x86_64-x32.s proto-s390.s proto-s390x.s proto-riscv32.s proto-riscv64.s proto-i386.s : proto.c $(GCC) -V 2.7.2 -b i486-linuxaout $(OLDGCCFLAGS) -D__i386__ -S proto.c -o $@ proto-m68k.s : proto.c $(GCC) -V egcs-2.91.57 -b m68k-sun $(OLDGCCFLAGS) -D__m68k__ -S proto.c -o $@ proto-mips.s : proto.c $(GCC) -V 2.95.2 -b mips-sgi $(OLDGCCFLAGS) -D__mips__ -S proto.c -o $@ -mabicalls proto-mipsn32.s : proto.c $(GCC) -V 2.95.2 -b mips-sgi-irix6 $(OLDGCCFLAGS) -D__mipsn32__ -S proto.c -o $@ -mabicalls proto-mips64.s : proto64.c $(GCC) -V 2.95.2 -b mips-sgi -mips3 -mlong64 $(OLDGCCFLAGS) -D__mips64__ -S proto64.c -o $@ -mabicalls proto-sparc.s : proto.c $(GCC) -V 2.95.2 -b sparc-sun $(OLDGCCFLAGS) -D__sparc__ -S proto.c -o $@ proto-sparc64.s : proto64.c sparc64-linux-gcc -V 2.95.2 -b sparc64-linux $(OLDGCCFLAGS) -D__sparc64__ -S proto64.c -o $@ proto-alpha.s : proto64.c $(GCC) -V 2.7.2 -b alpha-dec-osf $(OLDGCCFLAGS) -D__alpha__ -S proto64.c -o $@ proto-hppa.s : proto.c $(GCC) -V 2.6.3 -b hppa1.0-hpux $(OLDGCCFLAGS) -D__hppa__ -S proto.c -o $@ proto-hppa64.s : proto64.c $(CROSS_TOOL) hppa64-linux gcc -V 3.1 $(OLDGCCFLAGS) -D__hppa64__ -S proto64.c -o $@ proto-arm.s : proto.c $(GCC) -V 2.6.3 -b arm-acorn-riscix $(OLDGCCFLAGS) -D__arm__ -S proto.c -o $@ proto-arm64.s : proto64.c $(CROSS_TOOL) aarch64-linux gcc-5.4.0 $(OLDGCCFLAGS) -D__arm64__ -S proto64.c -o $@ proto-powerpc-aix.s : proto.c $(GCC) -V 2.95.2 -b rs6000 -mno-power -mno-power2 -mno-powerpc -mnew-mnemonics $(OLDGCCFLAGS) -D__powerpc__ -S proto.c -o $@ proto-powerpc-sysv4.s : proto.c $(GCC) -V 2.95.2 -b ppc-linux -mno-power -mno-power2 -mno-powerpc $(OLDGCCFLAGS) -D__powerpc__ -S proto.c -o $@ proto-powerpc-macos.s : proto.c $(GCC) -V 3.3.2 -b powerpc-darwin $(OLDGCCFLAGS) -D__powerpc__ -S proto.c -o $@ proto-powerpc64-aix.s : proto64.c $(CROSS_TOOL) powerpc64-linux gcc $(OLDGCCFLAGS) -D__powerpc64__ -S proto64.c -o $@ proto-powerpc64-elfv2.s : proto64.c $(CROSS_TOOL) powerpc64le-linux gcc -mabi=elfv2 $(OLDGCCFLAGS) -D__powerpc64__ -S proto64.c -o $@ proto-ia64.s : proto64.c $(GCC) -V 2.9-ia64-000216 -b ia64-hp-linux $(OLDGCCFLAGS) -D__ia64__ -S proto64.c -o $@ proto-x86_64.s : proto64.c $(GCC) -V 3.2.2 -b x86_64-suse-linux $(OLDGCCFLAGS) -D__x86_64__ -S proto64.c -o $@ proto-x86_64-x32.s : proto.c $(CROSS_TOOL) x86_64-linux gcc-5.4.0 -mx32 $(OLDGCCFLAGS) -fno-asynchronous-unwind-tables -D__x86_64__ -D__x86_64_x32__ -S proto.c -o $@ proto-s390.s : proto.c $(CROSS_TOOL) s390-linux gcc -V 3.1 $(OLDGCCFLAGS) -D__s390__ -S proto.c -o $@ proto-s390x.s : proto64.c $(CROSS_TOOL) s390x-linux gcc-5.4.0 $(OLDGCCFLAGS) -D__s390x__ -S proto64.c -o $@ proto-riscv32.s : proto.c $(CROSS_TOOL) riscv32-linux gcc-7.3.0 $(OLDGCCFLAGS) -D__riscv32__ -S proto.c -o $@ proto-riscv64.s : proto64.c $(CROSS_TOOL) riscv64-linux gcc-7.3.0 $(OLDGCCFLAGS) -D__riscv64__ -S proto64.c -o $@ tramp-i386.o : tramp-i386.s $(ASPREFIX)/i486-linux/bin/as tramp-i386.s -o $@ tramp-m68k.o : tramp-m68k.s $(ASPREFIX)/m68k-sun/bin/as tramp-m68k.s -o $@ tramp-mips.o : tramp-mips.s $(ASPREFIX)/mips-sgi/bin/as tramp-mips.s -o $@ tramp-mips64.o : tramp-mips64.s $(ASPREFIX)/mips-sgi/bin/as -mips3 -membedded-pic tramp-mips64.s -o $@ tramp-sparc.o : tramp-sparc.s $(ASPREFIX)/sparc-sun/bin/as tramp-sparc.s -o $@ tramp-sparc64.o : tramp-sparc64.s $(ASPREFIX)/sparc64-linux/bin/as tramp-sparc64.s -o $@ tramp-alpha.o : tramp-alpha.s $(ASPREFIX)/alpha-dec-osf/bin/as tramp-alpha.s -o $@ tramp-hppa.o : tramp-hppa.s $(ASPREFIX)/hppa1.0-hpux/bin/as tramp-hppa.s -o $@ tramp-hppa64.o : tramp-hppa64.s $(CROSS_TOOL) hppa64-linux as tramp-hppa64.s -o $@ tramp-arm.o : tramp-arm.s $(ASPREFIX)/arm-acorn-riscix/bin/as tramp-arm.s -o $@ tramp-arm64.o : tramp-arm64.s $(CROSS_TOOL) aarch64-linux as tramp-arm64.s -o $@ tramp-powerpc-old.o : tramp-powerpc-old.s $(ASPREFIX)/rs6000/bin/as tramp-powerpc-old.s -o $@ tramp-powerpc-sysv4.o : tramp-powerpc-sysv4.s $(ASPREFIX)/ppc-linux/bin/as tramp-powerpc-sysv4.s -o $@ tramp-powerpc64-elfv2.o : tramp-powerpc64-elfv2.s $(CROSS_TOOL) powerpc64le-linux as tramp-powerpc64-elfv2.s -o $@ tramp-ia64.o : tramp-ia64.s /nue/usr/ia64-hp-linux/bin/as tramp-ia64.s -o $@ tramp-x86_64.o : tramp-x86_64.s $(ASPREFIX)/x86_64-suse-linux/bin/as tramp-x86_64.s -o $@ tramp-x86_64-x32.o : tramp-x86_64-x32.s $(CROSS_TOOL) x86_64-linux as tramp-x86_64-x32.s -o $@ tramp-s390.o : tramp-s390.s $(CROSS_TOOL) s390-linux as tramp-s390.s -o $@ tramp-s390x.o : tramp-s390x.s $(CROSS_TOOL) s390x-linux as tramp-s390x.s -o $@ tramp-riscv32.o : tramp-riscv32.s $(CROSS_TOOL) riscv32-linux as tramp-riscv32.s -o $@ tramp-riscv64.o : tramp-riscv64.s $(CROSS_TOOL) riscv64-linux as tramp-riscv64.s -o $@ libffcall-2.2/trampoline/Makefile.in0000664000000000000000000002354513530356663014426 00000000000000# Makefile for trampoline #### Start of system configuration section. #### HOST = @host@ CPU = @HOST_CPU_C_ABI@ OS = @host_os@ # Directories used by "make": srcdir = @srcdir@ # Directories used by "make install": prefix = @prefix@ local_prefix = /usr/local exec_prefix = @exec_prefix@ libdir = @libdir@ includedir = @includedir@ mandir = @mandir@ datadir = @datadir@ datarootdir = @datarootdir@ htmldir = $(datadir)/html # Programs used by "make": # C compiler CC = @CC@ CFLAGS = @CFLAGS@ CPP = @CPP@ # C++ compiler CXX = @CXX@ CXXFLAGS = @CXXFLAGS@ # Both C and C++ compiler CPPFLAGS = @CPPFLAGS@ INCLUDES = -I. -I$(srcdir) -I.. INCLUDES_WITH_GNULIB = $(INCLUDES) -I../gnulib-lib -I$(srcdir)/../gnulib-lib ASPFLAGS = `if test @AS_UNDERSCORE@ = true; then echo '-DASM_UNDERSCORE'; fi` LDFLAGS = @LDFLAGS@ LIBTOOL = @LIBTOOL@ LIBTOOL_COMPILE = $(LIBTOOL) --mode=compile LIBTOOL_LINK = $(LIBTOOL) --mode=link LIBTOOL_INSTALL = $(LIBTOOL) --mode=install LIBTOOL_UNINSTALL = $(LIBTOOL) --mode=uninstall AR = @AR@ AR_FLAGS = rc RANLIB = @RANLIB@ RM = rm -f @SET_MAKE@ # Programs used by "make install": INSTALL = @INSTALL@ INSTALL_PROGRAM = @INSTALL_PROGRAM@ INSTALL_DATA = @INSTALL_DATA@ # Libtool options for linking with the thread library. LTLIBTHREAD = @LTLIBTHREAD@ #### End of system configuration section. #### SHELL = /bin/sh # Needed by $(LIBTOOL). top_builddir = .. OBJECTS = trampoline.lo @CPU_OBJECTS@ # Limit the set of exported symbols, on those platforms where libtool supports it. # Currently this excludes the symbols from gnulib modules. LIBTRAMPOLINE_EXPORTED_SYMBOLS_REGEX = 'trampoline' # Before making a release, change this according to the libtool documentation, # section "Library interface versions". LIBTRAMPOLINE_VERSION_INFO = 1:2:0 all : $(OBJECTS) libtrampoline.la $(srcdir)/trampoline.3 $(srcdir)/trampoline.html trampoline.lo : $(srcdir)/trampoline.c $(srcdir)/trampoline.h $(LIBTOOL_COMPILE) $(CC) $(INCLUDES_WITH_GNULIB) $(CPPFLAGS) $(CFLAGS) -c $(srcdir)/trampoline.c tramp-hppa.lo : tramp-hppa.s $(LIBTOOL_COMPILE) $(CC) @GCC_X_NONE@ -c tramp-hppa.s tramp-hppa.s : $(srcdir)/tramp-hppa-macro.S $(srcdir)/../common/noexecstack.h $(CPP) $(ASPFLAGS) -I$(srcdir)/../common $(srcdir)/tramp-hppa-macro.S | grep -v '^ *#line' | grep -v '^#' | sed -e "s,!,',g" > tramp-hppa.s tramp-hppa64.lo : tramp-hppa64.s $(LIBTOOL_COMPILE) $(CC) @GCC_X_NONE@ -c tramp-hppa64.s tramp-hppa64.s : $(srcdir)/tramp-hppa64-macro.S $(srcdir)/../common/noexecstack.h $(CPP) $(ASPFLAGS) -I$(srcdir)/../common $(srcdir)/tramp-hppa64-macro.S | grep -v '^ *#line' | grep -v '^#' | sed -e "s,!,',g" > tramp-hppa64.s tramp-powerpc.lo : tramp-powerpc.s $(LIBTOOL_COMPILE) $(CC) @GCC_X_NONE@ -c tramp-powerpc.s tramp-powerpc.s : $(srcdir)/tramp-powerpc-aix.S $(CPP) $(srcdir)/tramp-powerpc-aix.S > tramp-powerpc.s tramp-powerpc64.lo : tramp-powerpc64.s $(LIBTOOL_COMPILE) $(CC) @GCC_X_NONE@ -c tramp-powerpc64.s tramp-powerpc64.s : $(srcdir)/tramp-powerpc64-aix.S $(srcdir)/../common/noexecstack.h $(CPP) -I$(srcdir)/../common $(srcdir)/tramp-powerpc64-aix.S > tramp-powerpc64.s tramp-ia64.lo : tramp-ia64.s $(LIBTOOL_COMPILE) $(CC) @GCC_X_NONE@ -c tramp-ia64.s tramp-ia64.s : $(srcdir)/tramp-ia64-macro.S $(srcdir)/../common/noexecstack.h $(CPP) $(ASPFLAGS) -I$(srcdir)/../common $(srcdir)/tramp-ia64-macro.S | grep -v '^ *#line' | grep -v '^#' | sed -e 's,% ,%,g' -e 's,//.*$$,,' > tramp-ia64.s cache-sparc.lo : cache-sparc.s $(LIBTOOL_COMPILE) $(CC) @GCC_X_NONE@ -c cache-sparc.s cache-sparc.s : $(srcdir)/cache-sparc-macro.S $(CPP) $(ASPFLAGS) -I$(srcdir)/../common - < $(srcdir)/cache-sparc-macro.S | grep -v '^ *#line' | grep -v '^#' | sed -e 's,% ,%,g' -e 's,\. ,.,g' -e 's,//.*$$,,' -e 's,\$$,#,g' -e 's,# ,#,g' > cache-sparc.s cache-sparc64.lo : cache-sparc64.s $(LIBTOOL_COMPILE) $(CC) @GCC_X_NONE@ -c cache-sparc64.s cache-sparc64.s : $(srcdir)/cache-sparc64-macro.S $(CPP) $(ASPFLAGS) -I$(srcdir)/../common - < $(srcdir)/cache-sparc64-macro.S | grep -v '^ *#line' | grep -v '^#' | sed -e 's,% ,%,g' -e 's,\. ,.,g' -e 's,//.*$$,,' -e 's,\$$,#,g' -e 's,# ,#,g' > cache-sparc64.s cache-alpha.lo : cache-alpha.s $(LIBTOOL_COMPILE) $(CC) @GCC_X_NONE@ -c cache-alpha.s cache-alpha.s : $(srcdir)/cache-alpha-macro.S $(CPP) $(ASPFLAGS) $(srcdir)/cache-alpha-macro.S | grep -v '^ *#line' | grep -v '^#' | sed -e 's,% ,%,g' -e 's,//.*$$,,' > cache-alpha.s cache-hppa.lo : cache-hppa.s $(LIBTOOL_COMPILE) $(CC) @GCC_X_NONE@ -c cache-hppa.s cache-hppa.s : $(srcdir)/cache-hppa-macro.S $(CPP) $(ASPFLAGS) -I$(srcdir)/../common $(srcdir)/cache-hppa-macro.S | grep -v '^ *#line' | grep -v '^#' | sed -e "s,!,',g" > cache-hppa.s cache-hppa64.lo : cache-hppa64.s $(LIBTOOL_COMPILE) $(CC) @GCC_X_NONE@ -c cache-hppa64.s cache-hppa64.s : $(srcdir)/cache-hppa64-macro.S $(CPP) $(ASPFLAGS) -I$(srcdir)/../common $(srcdir)/cache-hppa64-macro.S | grep -v '^ *#line' | grep -v '^#' | sed -e "s,!,',g" > cache-hppa64.s cache-powerpc.lo : cache-powerpc.s $(LIBTOOL_COMPILE) $(CC) @GCC_X_NONE@ -c cache-powerpc.s cache-powerpc.s : $(srcdir)/cache-powerpc-linux-macro.S $(srcdir)/cache-powerpc-macos.s case "$(OS)" in \ macos* | darwin*) syntax=macos;; \ *) syntax=linux;; \ esac; \ case $${syntax} in \ macos) \ grep -v '\.machine' $(srcdir)/cache-powerpc-$${syntax}.s > cache-powerpc.s || exit 1 ;; \ linux) \ $(CPP) $(ASPFLAGS) $(srcdir)/cache-powerpc-$${syntax}-macro.S | grep -v '^ *#line' | grep -v '^#' | sed -e 's,% ,%,g' -e 's,//.*$$,,' > cache-powerpc.s || exit 1 ;; \ *) \ cp $(srcdir)/cache-powerpc-$${syntax}.s cache-powerpc.s || exit 1 ;; \ esac cache-powerpc64-elfv2.lo : cache-powerpc64-elfv2.s $(LIBTOOL_COMPILE) $(CC) @GCC_X_NONE@ -c cache-powerpc64-elfv2.s cache-powerpc64-elfv2.s : $(srcdir)/cache-powerpc64-elfv2-macro.S $(CPP) $(ASPFLAGS) $(srcdir)/cache-powerpc64-elfv2-macro.S | grep -v '^ *#line' | grep -v '^#' | sed -e 's,% ,%,g' -e 's,//.*$$,,' > cache-powerpc64-elfv2.s libtrampoline.la : $(OBJECTS) ../gnulib-lib/libgnu.la $(LIBTOOL_LINK) $(CC) -o libtrampoline.la -rpath $(libdir) -no-undefined -export-symbols-regex $(LIBTRAMPOLINE_EXPORTED_SYMBOLS_REGEX) -version-info $(LIBTRAMPOLINE_VERSION_INFO) $(OBJECTS) ../gnulib-lib/libgnu.la $(LDFLAGS) $(LTLIBTHREAD) install : all force mkdir -p $(DESTDIR)$(prefix) mkdir -p $(DESTDIR)$(exec_prefix) mkdir -p $(DESTDIR)$(libdir) $(LIBTOOL_INSTALL) $(INSTALL_DATA) libtrampoline.la $(DESTDIR)$(libdir)/libtrampoline.la mkdir -p $(DESTDIR)$(includedir) $(INSTALL_DATA) $(srcdir)/trampoline.h $(DESTDIR)$(includedir)/trampoline.h mkdir -p $(DESTDIR)$(mandir) mkdir -p $(DESTDIR)$(mandir)/man3 $(INSTALL_DATA) $(srcdir)/trampoline.3 $(DESTDIR)$(mandir)/man3/trampoline.3 mkdir -p $(DESTDIR)$(datadir) mkdir -p $(DESTDIR)$(htmldir) $(INSTALL_DATA) $(srcdir)/trampoline.html $(DESTDIR)$(htmldir)/trampoline.html installdirs : force mkdir -p $(DESTDIR)$(prefix) mkdir -p $(DESTDIR)$(exec_prefix) mkdir -p $(DESTDIR)$(libdir) mkdir -p $(DESTDIR)$(includedir) mkdir -p $(DESTDIR)$(mandir) mkdir -p $(DESTDIR)$(mandir)/man3 mkdir -p $(DESTDIR)$(datadir) mkdir -p $(DESTDIR)$(htmldir) uninstall : force $(LIBTOOL_UNINSTALL) $(RM) $(DESTDIR)$(libdir)/libtrampoline.la $(RM) $(DESTDIR)$(includedir)/trampoline.h $(RM) $(DESTDIR)$(mandir)/man3/trampoline.3 $(RM) $(DESTDIR)$(htmldir)/trampoline.html test1.@OBJEXT@ : $(srcdir)/test1.c $(srcdir)/trampoline.h $(CC) $(INCLUDES) $(CPPFLAGS) $(CFLAGS) -c $(srcdir)/test1.c test1 : test1.@OBJEXT@ libtrampoline.la $(LIBTOOL_LINK) $(CC) $(CFLAGS) @GCC_X_NONE@ test1.@OBJEXT@ libtrampoline.la $(LDFLAGS) -o test1 test2.@OBJEXT@ : $(srcdir)/test2.c $(srcdir)/trampoline.h $(CC) $(INCLUDES) $(CPPFLAGS) $(CFLAGS) -c $(srcdir)/test2.c test2 : test2.@OBJEXT@ libtrampoline.la $(LIBTOOL_LINK) $(CC) $(CFLAGS) @GCC_X_NONE@ test2.@OBJEXT@ libtrampoline.la $(LDFLAGS) -o test2 test2-c++.@OBJEXT@ : $(srcdir)/test2-c++.cc $(srcdir)/test2.c $(srcdir)/trampoline.h $(CXX) $(INCLUDES) $(CPPFLAGS) $(CXXFLAGS) -c $(srcdir)/test2-c++.cc test2-c++ : test2-c++.@OBJEXT@ libtrampoline.la $(LIBTOOL_LINK) $(CXX) $(CXXFLAGS) @GCC_X_NONE@ test2-c++.@OBJEXT@ libtrampoline.la $(LDFLAGS) -o test2-c++ check1 : all test1 ./test1 check : all test1 test2 ./test1 ./test2 @IF_CXX@ ./test2-c++ touch tests.passed.$(HOST) @IF_CXX@check : test2-c++ extracheck : check mostlyclean : clean clean : force $(RM) $(OBJECTS) `echo $(OBJECTS) | sed -e 's/\.lo/.@OBJEXT@/g'` tramp-hppa.s tramp-hppa64.s tramp-powerpc.s tramp-powerpc64.s tramp-ia64.s cache-sparc.s cache-sparc64.s cache-alpha.s cache-hppa.s cache-hppa64.s cache-powerpc.s cache-powerpc64-elfv2.s libtrampoline.* core $(RM) -r .libs _libs $(RM) test1.@OBJEXT@ test1 test2.@OBJEXT@ test2 test2-c++.@OBJEXT@ test2-c++ distclean : clean $(RM) Makefile tests.passed.* maintainer-clean : distclean # List of source files (committed in version control or generated by Makefile.devel). SOURCE_FILES = \ COPYING \ PLATFORMS PORTING README trampoline.3 trampoline.html \ Makefile.devel \ Makefile.maint \ Makefile.in \ trampoline.h \ trampoline.c \ tramp-hppa-macro.S \ tramp-hppa64-macro.S \ tramp-powerpc-aix.S \ tramp-powerpc64-aix.S \ tramp-ia64-macro.S \ cache.c \ cache-alpha.c cache-alpha-linux.s cache-alpha-macro.S \ cache-hppa.c cache-hppa-linux.s cache-hppa-macro.S cache-hppa64-linux.s cache-hppa64-macro.S \ cache-powerpc.c cache-powerpc-linux.s cache-powerpc-linux-macro.S cache-powerpc-macos.s \ cache-powerpc64.c cache-powerpc64-elfv2-linux.s cache-powerpc64-elfv2-macro.S \ cache-sparc.c cache-sparc-linux.s cache-sparc-macro.S cache-sparc64-linux.s cache-sparc64-macro.S \ test1.c \ test2.c test2-c++.cc # List of distributed files generated by Makefile.maint. GENERATED_FILES = \ trampoline.man # List of distributed files. DISTFILES = $(SOURCE_FILES) $(GENERATED_FILES) distdir : $(DISTFILES) for file in $(DISTFILES); do \ if test -f $$file; then dir='.'; else dir='$(srcdir)'; fi; \ cp -p "$$dir/$$file" '$(distdir)'/$$file || exit 1; \ done force : libffcall-2.2/trampoline/cache-sparc64-linux.s0000664000000000000000000000050213527105032016175 00000000000000 .file "cache-sparc.c" .section ".text" .align 4 .global __TR_clear_cache_4 .type __TR_clear_cache_4, #function .proc 020 __TR_clear_cache_4: iflush %o0+0;iflush %o0+8;iflush %o0+16;iflush %o0+24 jmp %o7+8 nop .size __TR_clear_cache_4, .-__TR_clear_cache_4 .ident "GCC: (GNU) 4.0.2" .section ".note.GNU-stack" libffcall-2.2/trampoline/tramp-powerpc-aix.S0000664000000000000000000000311213347755327016056 00000000000000/* Trampoline for powerpc CPU with AIX calling convention */ /* * Copyright 1995-2017 Bruno Haible * * This program is free software: you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by * the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program. If not, see . */ /* Available registers: r0, r11, r12. */ /* However, r0 is special in that it cannot be used as a base register. */ .globl tramp .globl .tramp .csect tramp[DS] tramp: .long .tramp, 0, 0 .csect .text[PR] .tramp: /* Move into */ lwz 11,0(2) /* get */ lwz 12,4(2) /* get */ stw 12,0(11) /* Get */ lwz 12,8(2) /* * gcc-2.6.3 source says: * A function pointer is a pointer to a data area whose first word contains * the actual address of the function, whose second word contains a pointer * to its TOC, and whose third word contains a value to place in the static * chain register (r11). */ lwz 11,8(12) /* pass static chain in r11 */ lwz 2,4(12) /* pass TOC in r2 */ lwz 0,0(12) /* actual code address */ mtctr 0 bctr _section_.text: .csect .data[RW] .long _section_.text libffcall-2.2/trampoline/cache-powerpc.c0000664000000000000000000000307013347755321015234 00000000000000/* Instruction cache flushing for powerpc, not on AIX */ /* * Copyright 1997-2017 Bruno Haible * * This program is free software: you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by * the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program. If not, see . */ void __TR_clear_cache (char* first_addr) { /* Taken from egcs-1.1.2/gcc/config/rs6000/tramp.asm. */ /* The number of asm statements here depends on the value of TRAMP_LENGTH for __powerpcsysv4__. */ asm volatile ("icbi 0,%0; dcbf 0,%0" : : "r" (first_addr)); asm volatile ("icbi 0,%0; dcbf 0,%0" : : "r" (first_addr+4)); asm volatile ("icbi 0,%0; dcbf 0,%0" : : "r" (first_addr+8)); asm volatile ("icbi 0,%0; dcbf 0,%0" : : "r" (first_addr+12)); asm volatile ("icbi 0,%0; dcbf 0,%0" : : "r" (first_addr+16)); asm volatile ("icbi 0,%0; dcbf 0,%0" : : "r" (first_addr+20)); asm volatile ("icbi 0,%0; dcbf 0,%0" : : "r" (first_addr+24)); asm volatile ("icbi 0,%0; dcbf 0,%0" : : "r" (first_addr+28)); asm volatile ("icbi 0,%0; dcbf 0,%0" : : "r" (first_addr+32)); asm volatile ("sync; isync"); } libffcall-2.2/trampoline/trampoline.man0000664000000000000000000000570513530357247015225 00000000000000TRAMPOLINE(3) Library Functions Manual TRAMPOLINE(3) NAME trampoline - closures as first-class C functions SYNOPSIS #include  function = alloc_trampoline(address, variable, data); free_trampoline(function); is_trampoline(function) trampoline_address(function) trampoline_variable(function) trampoline_data(function) DESCRIPTION These functions implement closures as first-class C functions. A clo‐ sure consists of a regular C function and a piece of data which gets passed to the C function when the closure is called. Closures as first-class C functions means that they fit into a function pointer and can be called exactly like any other C function. function = alloc_trampoline(address, variable, data) allocates a closure. When function gets called, it stores data in the variable variable and calls the C function at address. The function at address is responsible for fetching data out of variable immediately, before execution of any other function call. This is much like gcc's local functions, except that the GNU C local functions have dynamic extent (i.e. are deallocated when the creating function returns), while trampoline provides functions with indefinite extent: function is only deallocated when free_trampoline(function) is called. is_trampoline(function) checks whether the C function function was pro‐ duced by a call to alloc_trampoline. If this returns true, the argu‐ ments given to alloc_trampoline can be retrieved: trampoline_address(function) returns address, trampoline_variable(function) returns variable, trampoline_data(function) returns data. SEE ALSO gcc(1), stdarg(3), callback(3) BUGS Passing the data through a global variable is not reentrant. Don't call trampoline functions from within signal handlers. This is fixed in the callback(3) package. PORTING The way gcc builds local functions is described in the gcc source, file gcc-2.6.3/config/cpu/cpu.h. AUTHOR Bruno Haible ACKNOWLEDGEMENTS Many ideas were cribbed from the gcc source. 1 January 2017 TRAMPOLINE(3) libffcall-2.2/trampoline/test1.c0000664000000000000000000000253413347755322013561 00000000000000/* Trampoline test */ /* * Copyright 1995-2017 Bruno Haible * * This program is free software: you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by * the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program. If not, see . */ #include #include #include "trampoline.h" #define MAGIC1 0x9db9af42 #define MAGIC2 0x614a13c9 static int magic = MAGIC1; void* function_data; int f (int x) { return *(int*)function_data + x; } int main () { trampoline_function_t cf = alloc_trampoline((trampoline_function_t)&f, &function_data, &magic); /* calling cf shall set function_data = &magic and then call f(x), * thus returning magic + x. */ if (((*cf)(MAGIC2) == MAGIC1+MAGIC2) && (function_data == &magic)) { free_trampoline(cf); printf("Works, test1 passed.\n"); exit(0); } else { printf("Doesn't work!\n"); exit(1); } } libffcall-2.2/trampoline/cache-sparc-macro.S0000664000000000000000000000065513527105032015736 00000000000000#include "asm-sparc.h" .section ".text" .align 4 .global C(__TR_clear_cache_4) DECLARE_FUNCTION(__TR_clear_cache_4) .proc 020 FUNBEGIN(__TR_clear_cache_4) !$PROLOGUE$ 0 iflush %o0+0;iflush %o0+8;iflush %o0+16;iflush %o0+24 nop retl nop L(Lfe1): FUNEND(__TR_clear_cache_4) #if defined __linux__ || defined __FreeBSD__ || defined __FreeBSD_kernel__ || defined __DragonFly__ .section .note.GNU-stack,"",@progbits #endif libffcall-2.2/trampoline/README0000664000000000000000000000441113347755322013231 00000000000000trampoline - closures as first-class C functions. This library implements closures as first-class C functions. A closure consists of a regular C function and a piece of data which gets passed to the C function when the closure is called. Typical uses of closures are nested functions in programming languages, and call-back functions passed to other libraries. Installation instructions: Configure the parent directory. Then: cd trampoline make make check make install Files in this package: Documentation: README this text COPYING free software license PLATFORMS list of supported platforms trampoline.3 manual page in Unix man format trampoline.html manual page in HTML format Source: trampoline.h include file trampoline.c implementation of the library functions tramp-hppa.s the trampoline for hppa, in assembly language tramp-powerpc.S the trampoline for powerpc, in assembly language cache.c how to flush the instruction cache, now unused test1.c test program test2.c test program Building: Makefile.in Makefile master Porting: PORTING porting instructions Makefile.devel developer's Makefile proto.c sample source containing assignment and jumping proto-*.s its translation to assembly language tramp-*.s the trampoline, in assembly language tramp-*.o the trampoline, in binary form Copyright notice: Copyright 1995-2017 Bruno Haible This program is free software: you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program. If not, see . libffcall-2.2/trampoline/test2.c0000664000000000000000000000321213347755322013554 00000000000000/* Trampoline accessor test */ /* * Copyright 1995-2017 Bruno Haible * * This program is free software: you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by * the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program. If not, see . */ #include #include #include "trampoline.h" int f (int x) { return x; } void* variable; static int data; int main () { trampoline_function_t cf = alloc_trampoline((trampoline_function_t)&f, &variable, &data); if (is_trampoline((void*)&f)) { printf("is_trampoline(&f) returns true!\n"); exit(1); } #if !defined(__cplusplus) if (is_trampoline((void*)&main)) { printf("is_trampoline(&main) returns true!\n"); exit(1); } #endif if (!is_trampoline((void*)cf)) { printf("is_trampoline() returns false!\n"); exit(1); } if (trampoline_address(cf) != (trampoline_function_t)&f) { printf("trampoline_address() doesn't work!\n"); exit(1); } if (trampoline_variable(cf) != &variable) { printf("trampoline_variable() doesn't work!\n"); exit(1); } if (trampoline_data(cf) != &data) { printf("trampoline_data() doesn't work!\n"); exit(1); } printf("test2 passed.\n"); exit(0); } libffcall-2.2/trampoline/cache-hppa64-linux.s0000664000000000000000000000075413527105032016026 00000000000000 .LEVEL 2.0w .text .align 8 .globl __TR_clear_cache .type __TR_clear_cache,@function __TR_clear_cache: .PROC .CALLINFO FRAME=128,NO_CALLS .ENTRY ldo 128(%r30),%r30 #APP fdc 0(0,%r26) fdc 0(0,%r25) sync mfsp %sr0,%r31 ldsid (0,%r26),%r28 mtsp %r28,%sr0 fic 0(%sr0,%r26) fic 0(%sr0,%r25) sync mtsp %r31,%sr0 nop nop nop nop nop nop #NO_APP bve (%r2) ldo -128(%r30),%r30 .EXIT .PROCEND .Lfe1: .size __TR_clear_cache,.Lfe1-__TR_clear_cache .ident "GCC: (GNU) 3.1" libffcall-2.2/trampoline/cache-powerpc-linux.s0000664000000000000000000000142213527105032016374 00000000000000 .file "cache-powerpc.c" .section ".text" .align 2 .globl __TR_clear_cache .type __TR_clear_cache, @function __TR_clear_cache: .extern __mulh .extern __mull .extern __divss .extern __divus .extern __quoss .extern __quous stwu 1,-32(1) #APP icbi 0,3; dcbf 0,3 #NO_APP addi 0,3,4 #APP icbi 0,0; dcbf 0,0 #NO_APP addi 9,3,8 #APP icbi 0,9; dcbf 0,9 #NO_APP addi 0,3,12 #APP icbi 0,0; dcbf 0,0 #NO_APP addi 9,3,16 #APP icbi 0,9; dcbf 0,9 #NO_APP addi 0,3,20 #APP icbi 0,0; dcbf 0,0 #NO_APP addi 9,3,24 #APP icbi 0,9; dcbf 0,9 #NO_APP addi 0,3,28 #APP icbi 0,0; dcbf 0,0 #NO_APP addi 3,3,32 #APP icbi 0,3; dcbf 0,3 sync; isync #NO_APP addi 1,1,32 blr .size __TR_clear_cache, .-__TR_clear_cache .section .note.GNU-stack,"",@progbits .ident "GCC: (GNU) 3.3.6" libffcall-2.2/trampoline/cache-hppa-linux.s0000664000000000000000000000070413527105032015647 00000000000000 .LEVEL 1.1 .text .align 4 .globl __TR_clear_cache .type __TR_clear_cache,@function __TR_clear_cache: .PROC .CALLINFO FRAME=0,NO_CALLS .ENTRY #APP fdc 0(0,%r26) fdc 0(0,%r25) sync mfsp %sr0,%r20 ldsid (0,%r26),%r26 mtsp %r26,%sr0 fic 0(%sr0,%r26) fic 0(%sr0,%r25) sync mtsp %r20,%sr0 nop nop nop nop nop nop #NO_APP bv,n %r0(%r2) .EXIT .PROCEND .Lfe1: .size __TR_clear_cache,.Lfe1-__TR_clear_cache .ident "GCC: (GNU) 3.1" libffcall-2.2/trampoline/cache-sparc.c0000664000000000000000000000215413347755321014667 00000000000000/* Instruction cache flushing for sparc */ /* * Copyright 1996-1999 Bruno Haible * * This program is free software: you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by * the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program. If not, see . */ /* * This assumes that the range [first_addr..last_addr] lies in at most four * cache lines. */ void __TR_clear_cache_4 (char* first_addr, char* last_addr) { asm volatile ("iflush %0+0;" /* the +0 is needed by gas, says gforth-0.3.0 */ "iflush %0+8;" "iflush %0+16;" "iflush %0+24" : : "r" (first_addr)); } libffcall-2.2/trampoline/cache-alpha.c0000664000000000000000000000157213347755320014646 00000000000000/* Instruction cache flushing for alpha */ /* * Copyright 1997 Bruno Haible * * This program is free software: you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by * the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program. If not, see . */ void __TR_clear_cache (void) { /* Taken from gforth-0.3.0. */ asm volatile ("call_pal 0x86"); /* imb (instruction-memory barrier) */ } libffcall-2.2/trampoline/trampoline.h0000664000000000000000000000555313347755327014711 00000000000000/* * Copyright 1995-2017 Bruno Haible * * This program is free software: you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by * the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program. If not, see . */ #ifndef _TRAMPOLINE_H #define _TRAMPOLINE_H #include "ffcall-version.h" #ifdef __cplusplus extern "C" { #endif /* This type denotes an opaque function pointer. You need to cast it to an actual function pointer type (with correct return type) before you can actually invoke it. */ #ifdef __cplusplus typedef int (*trampoline_function_t) (...); #else typedef int (*trampoline_function_t) (); #endif /* Allocates a trampoline. It returns a function pointer that takes the same parameters and returns the same type as ADDRESS. When invoked, it first stores DATA at the location pointed to by VARIABLE, then invokes ADDRESS with the same arguments. It returns the value returned by ADDRESS. The trampoline has indefinite extent. It can be accessed until a call to free_trampoline(). */ extern trampoline_function_t alloc_trampoline (trampoline_function_t /* ADDRESS */, void** /* VARIABLE */, void* /* DATA */); /* Frees the memory used by a trampoline. FUNCTION must be the result of an alloc_trampoline() invocation. After this call, FUNCTION must not be used any more - neither invoked, not used as an argument to other functions. */ extern void free_trampoline (trampoline_function_t /* FUNCTION */); /* Tests whether a given pointer is a function pointer returned by alloc_trampoline(). Returns 1 for yes, 0 for no. If yes, it can be cast to trampoline_function_t. */ extern int is_trampoline (void* /* FUNCTION */); /* Returns the ADDRESS argument passed to the alloc_trampoline() invocation. FUNCTION must be the result of an alloc_trampoline() invocation. */ extern trampoline_function_t trampoline_address (trampoline_function_t /* FUNCTION */); /* Returns the VARIABLE argument passed to the alloc_trampoline() invocation. FUNCTION must be the result of an alloc_trampoline() invocation. */ extern void** trampoline_variable (trampoline_function_t /* FUNCTION */); /* Returns the DATA argument passed to the alloc_trampoline() invocation. FUNCTION must be the result of an alloc_trampoline() invocation. */ extern void* trampoline_data (trampoline_function_t /* FUNCTION */); #ifdef __cplusplus } #endif #endif /* _TRAMPOLINE_H */ libffcall-2.2/trampoline/cache-hppa64-macro.S0000664000000000000000000000115713527105032015726 00000000000000#include "asm-hppa64.h" .LEVEL 2.0w TEXT1() TEXT2() .align 8 GLOBL(__TR_clear_cache) DECLARE_FUNCTION(__TR_clear_cache) DEF(__TR_clear_cache) .PROC .CALLINFO FRAME=128,NO_CALLS .ENTRY ldo 128(%r30),%r30 fdc 0(0,%r26) fdc 0(0,%r25) sync mfsp %sr0,%r31 ldsid (0,%r26),%r28 mtsp %r28,%sr0 fic 0(%sr0,%r26) fic 0(%sr0,%r25) sync mtsp %r31,%sr0 nop nop nop nop nop nop bve (%r2) ldo -128(%r30),%r30 .EXIT .PROCEND DEF(L(fe1)) FUNEND(__TR_clear_cache) #if defined __linux__ || defined __FreeBSD__ || defined __FreeBSD_kernel__ || defined __DragonFly__ .section .note.GNU-stack,"",@progbits #endif libffcall-2.2/trampoline/PLATFORMS0000664000000000000000000000430213530336773013641 00000000000000Supported CPUs: (Put the GNU config.guess values here.) i386 i486-unknown-linux, i686-unknown-gnu0.9, i386-unknown-sysv4.0, i386-pc-solaris2.6, i386-pc-solaris2.10, i486-unknown-sco3.2v4.2, i386-pc-cygwin32, i386-w64-mingw32, i586-unknown-freebsd11.0, i386-unknown-dragonfly3.8, i386-unknown-netbsdelf7.0, i386-unknown-openbsd6.0, i586-pc-haiku, i386-pc-minix m68k m68k-next-bsd, m68k-next-nextstep3, m68k-sun-sunos4.0, m68k-unknown-linux mips mips-sgi-irix4.0.5, mips-sgi-irix5.2, mips-sgi-irix5.3, mips-sgi-irix6.2, mips-sgi-irix6.4, mips-sgi-irix6.5, mips-unknown-linux, mips64-unknown-linux sparc sparc-sun-sunos4.1.1, sparc-sun-solaris2.3, sparc-sun-solaris2.4, sparc-sun-solaris2.10, sparc64-sun-solaris2.10, sparc-unknown-linux, sparc64-unknown-linux, sparc-unknown-netbsdelf7.1, sparc64-unknown-netbsd8.0 alpha alpha-dec-osf3.0, alpha-dec-osf4.0, alphaev67-unknown-linux hppa hppa1.0-hp-hpux8.00, hppa1.1-hp-hpux9.05, hppa1.1-hp-hpux10.01, hppa2.0-hp-hpux10.20, hppa2.0w-hp-hpux11.31, hppa-unknown-linux hppa64 hppa64-hp-hpux11.31 arm armv5tejl-unknown-linux, armv6l-unknown-linux, armv7l-unknown-linux arm64 aarch64-unknown-linux powerpc powerpc-ibm-aix4.1.4.0, powerpc-ibm-aix7.1.3.0, powerpc-unknown-linux, powerpc-apple-darwin6.8, powerpc-apple-darwin9.8.0 powerpc64 powerpc-ibm-aix7.1.3.0 (gcc -maix64, xlc -q64; AR="ar -X 64"), powerpc64-unknown-linux (gcc -m64), powerpc64le-unknown-linux (gcc) ia64 ia64-unknown-linux x86_64 x86_64-suse-linux, x86_64-unknown-linux (gcc -mx32), x86_64-pc-solaris2.10, x86_64-pc-cygwin, x86_64-w64-mingw32, x86_64-unknown-freebsd11.0, x86_64-unknown-netbsd7.0, x86_64-unknown-openbsd6.0 s390 s390x-ibm-linux s390x s390x-ibm-linux riscv32 riscv32-unknown-linux riscv64 riscv64-unknown-linux libffcall-2.2/trampoline/test2-c++.cc0000664000000000000000000000132613347755322014271 00000000000000/* * Copyright 2017 Bruno Haible * * This program is free software: you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by * the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program. If not, see . */ #include "test2.c" libffcall-2.2/trampoline/tramp-ia64-macro.S0000664000000000000000000000245713347755324015472 00000000000000/* Trampoline for ia64 CPU */ /* * Copyright 2001-2017 Bruno Haible * * This program is free software: you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by * the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program. If not, see . */ /* Available registers: r14 ... r31, r9 ... r11, r2 ... r3. */ .text .align 16 .global tramp# .proc tramp# tramp: /* The closure pointer is already in register r1. */ ld8 r14 = [r1] /* Move
into register r14. */ adds r15 = 8, r1 adds r16 = 16, r1 ;; /* Jump to r14. */ ld8 r18 = [r14] ld8 r15 = [r15] /* Move into register r15. */ adds r17 = 8, r14 ;; ld8 r16 = [r16] /* Move into register r16. */ ld8 r1 = [r17] mov b6 = r18 ;; st8 [r15] = r16 /* Store into . */ br b6 ;; .endp tramp# #include "noexecstack.h" libffcall-2.2/trampoline/cache-alpha-linux.s0000664000000000000000000000054013527105032016002 00000000000000 .set noreorder .set volatile .set noat .set nomacro .text .align 2 .align 4 .globl __TR_clear_cache .ent __TR_clear_cache $__TR_clear_cache..ng: __TR_clear_cache: .frame $30,0,$26,0 .prologue 0 .set macro call_pal 0x86 .set nomacro ret $31,($26),1 .end __TR_clear_cache .ident "GCC: (GNU) 4.0.2" .section .note.GNU-stack,"",@progbits libffcall-2.2/trampoline/PORTING0000644000000000000000000000701013031471342013375 00000000000000The list of CPUs and platforms TRAMPOLINE has been ported to can be found at the top of file trampoline.c. To port TRAMPOLINE to a new platform, three issues may have to be resolved: A. a new CPU - how to build the trampoline? B. a new OS - how to make code in malloc'ed memory executable? C. a new CPU or OS - how to flush the instruction cache? A. a new CPU - how to build the trampoline? The trampoline is a short sequence of machine instructions which puts the constant into , then jumps to
. The only registers that are allowed to be modified are call-used registers. No stack manipulations are allowed since the trampoline has to pass its arguments along to the function at
. 1. To find out which instructions are available for "move"/"store" and "jump", compile proto.c for your CPU: make -f Makefile.devel proto-${CPU}.s or gcc -O2 -fomit-frame-pointer -S proto.c -o proto-${CPU}.s 2. Write down the instructions for the trampoline in a file tramp-${CPU}.s, using constants for , ,
. Assemble it: gcc -c tramp-${CPU}.s Verify that the jump actually goes to
. (Beware: Some CPUs have program-counter relative jumps.) gdb tramp-${CPU}.o disassemble tramp 3. Take a hex dump of tramp-${CPU}.o hexdump -e '"%06.6_ax " 16/1 " %02X" "\n"' < tramp-${CPU}.o or od -tx1 -Ax < tramp-${CPU}.o or od -x +x < tramp-${CPU}.o Look out for the magic numbers you used for , and
. 4. Write the code which builds up a trampoline in memory, in trampoline.c. 5. Try it: make make check1 6. Write the is_tramp() macro and the tramp_xxx() accessor macros in trampoline.c. 7. Try it: make make check B. a new OS - how to make code in malloc'ed memory executable? ‘configure’ will find out whether code stored in malloc'ed memory is executable, or whether virtual memory protections have to be set in order to allow this. (The test is pretty simple: it copies a small function to malloc'ed memory and tries to executed it. The test could also fail because the compiler produced non-position-independent code or because of alignment issues.) To set virtual memory protections on a page of memory, your system should provide the mprotect() and getpagesize() functions. If it does not, find a substitute. C. a new CPU or OS - how to flush the instruction cache? CPUs which have separate data and instruction caches need to flush (part of) the instruction cache when alloc_trampoline() is called. (There may have been an old trampoline at the same location, and the instruction cache is not updated when the new trampoline is built. The effect can be that when the new trampoline is called, the old one will still be executed.) To flush the instruction cache, some CPUs have special instruction which can be put into gcc "asm" statements. On some CPUs these instructions are privileged, you therefore need to call some system or library function. On other CPUs, the only way to flush the instruction cache is to execute a long sequence of "nop" or "jump" instructions. This is hairy. When you are done with porting to a new platform, or even if TRAMPOLINE passes the "make check" out of the box without modifications, please report your results to the author of TRAMPOLINE, for inclusion in the next release. libffcall-2.2/trampoline/cache-powerpc64-elfv2-macro.S0000664000000000000000000000157313527105032017473 00000000000000 .file "cache-powerpc64.c" .machine power4 .abiversion 2 .section ".toc","aw" .section ".text" .align 2 .p2align 4,,15 .globl __TR_clear_cache .type __TR_clear_cache, @function __TR_clear_cache: # 25 "cache-powerpc64.c" 1 icbi 0,3; dcbf 0,3 # 0 "" 2 addi 9,3,4 # 26 "cache-powerpc64.c" 1 icbi 0,9; dcbf 0,9 # 0 "" 2 addi 9,3,8 # 27 "cache-powerpc64.c" 1 icbi 0,9; dcbf 0,9 # 0 "" 2 addi 9,3,12 # 28 "cache-powerpc64.c" 1 icbi 0,9; dcbf 0,9 # 0 "" 2 addi 9,3,16 # 29 "cache-powerpc64.c" 1 icbi 0,9; dcbf 0,9 # 0 "" 2 addi 3,3,20 # 30 "cache-powerpc64.c" 1 icbi 0,3; dcbf 0,3 # 0 "" 2 # 31 "cache-powerpc64.c" 1 sync; isync # 0 "" 2 blr .long 0 .byte 0,0,0,0,0,0,0,0 .size __TR_clear_cache,.-__TR_clear_cache #if defined __linux__ || defined __FreeBSD__ || defined __FreeBSD_kernel__ || defined __DragonFly__ .section .note.GNU-stack,"",@progbits #endif libffcall-2.2/trampoline/cache-sparc-linux.s0000664000000000000000000000047513527105032016034 00000000000000 .file "cache-sparc.c" .section ".text" .align 4 .global __TR_clear_cache_4 .type __TR_clear_cache_4,#function .proc 020 __TR_clear_cache_4: !#PROLOGUE# 0 iflush %o0+0;iflush %o0+8;iflush %o0+16;iflush %o0+24 nop retl nop .LLfe1: .size __TR_clear_cache_4,.LLfe1-__TR_clear_cache_4 .ident "GCC: (GNU) 3.1" libffcall-2.2/trampoline/trampoline.30000664000000000000000000000644613136760230014607 00000000000000.\" Copyright (C) 1995-2017 Bruno Haible .\" .\" This manual is free documentation. It is dually licensed under the .\" GNU FDL and the GNU GPL. This means that you can redistribute this .\" manual under either of these two licenses, at your choice. .\" .\" This manual is covered by the GNU FDL. Permission is granted to copy, .\" distribute and/or modify this document under the terms of the .\" GNU Free Documentation License (FDL), either version 1.2 of the .\" License, or (at your option) any later version published by the .\" Free Software Foundation (FSF); with no Invariant Sections, with no .\" Front-Cover Text, and with no Back-Cover Texts. .\" A copy of the license is at . .\" .\" This manual is covered by the GNU GPL. You can redistribute it and/or .\" modify it under the terms of the GNU General Public License (GPL), either .\" version 2 of the License, or (at your option) any later version published .\" by the Free Software Foundation (FSF). .\" A copy of the license is at . .\" .TH TRAMPOLINE 3 "1 January 2017" .SH NAME trampoline \- closures as first-class C functions .SH SYNOPSIS .B #include .LP .B function = alloc_trampoline(address, variable, data); .LP .B free_trampoline(function); .LP .nf .B is_trampoline(function) .B trampoline_address(function) .B trampoline_variable(function) .B trampoline_data(function) .fi .SH DESCRIPTION .LP These functions implement .I closures as first-class C functions. A closure consists of a regular C function and a piece of data which gets passed to the C function when the closure is called. Closures as .I first-class C functions means that they fit into a function pointer and can be called exactly like any other C function. .IB function " = alloc_trampoline(" address ", " variable ", " data ")" allocates a closure. When .I function gets called, it stores .I data in the variable .I variable and calls the C function at .IR address . The function at .I address is responsible for fetching .I data out of .I variable immediately, before execution of any other function call. This is much like .BR gcc "'s" local functions, except that the GNU C local functions have dynamic extent (i.e. are deallocated when the creating function returns), while .I trampoline provides functions with indefinite extent: .I function is only deallocated when .BI free_trampoline( function ) is called. .BI "is_trampoline(" function ")" checks whether the C function .I function was produced by a call to .IR alloc_trampoline . If this returns true, the arguments given to .I alloc_trampoline can be retrieved: .RS 4 .LP .BI "trampoline_address(" function ")" returns .IR address , .LP .BI "trampoline_variable(" function ")" returns .IR variable , .LP .BI "trampoline_data(" function ")" returns .IR data . .RE .SH SEE ALSO .BR gcc (1), .BR stdarg (3), .BR callback (3) .SH BUGS Passing the data through a global variable is not reentrant. Don't call trampoline functions from within signal handlers. This is fixed in the .BR callback (3) package. .SH PORTING The way .B gcc builds local functions is described in the gcc source, file .RI gcc-2.6.3/config/ cpu / cpu .h. .SH AUTHOR Bruno Haible .SH ACKNOWLEDGEMENTS Many ideas were cribbed from the gcc source. libffcall-2.2/trampoline/trampoline.html0000664000000000000000000001122013136760230015373 00000000000000 TRAMPOLINE manual page

TRAMPOLINE manual page

Name

 trampoline - closures as first-class C functions

Synopsis

 
#include <trampoline.h>
function = alloc_trampoline(address, variable, data);
free_trampoline(function);
is_trampoline(function)
trampoline_address(function)
trampoline_variable(function)
trampoline_data(function)

Description

 These functions implement closures as first-class C functions. A closure consists of a regular C function and a piece of data which gets passed to the C function when the closure is called.

Closures as first-class C functions means that they fit into a function pointer and can be called exactly like any other C function. function = alloc_trampoline(address, variable, data) allocates a closure. When function gets called, it stores data in the variable variable and calls the C function at address. The function at address is responsible for fetching data out of variable immediately, before execution of any other function call.

This is much like gcc's local functions, except that the GNU C local functions have dynamic extent (i.e. are deallocated when the creating function returns), while trampoline provides functions with indefinite extent: function is only deallocated when free_trampoline(function) is called.

is_trampoline(function) checks whether the C function function was produced by a call to alloc_trampoline. If this returns true, the arguments given to alloc_trampoline can be retrieved:

  • trampoline_address(function) returns address,
  • trampoline_variable(function) returns variable,
  • trampoline_data(function) returns data.

See also

 gcc(1), stdarg(3), callback(3)

Bugs

 Passing the data through a global variable is not reentrant. Don't call trampoline functions from within signal handlers. This is fixed in the callback(3) package.

Porting

 The way gcc builds local functions is described in the gcc source, file gcc-2.6.3/config/cpu/cpu.h.

Author

 Bruno Haible <bruno@clisp.org>

Acknowledgements

 Many ideas were cribbed from the gcc source.

TRAMPOLINE manual page
Bruno Haible <bruno@clisp.org>

Last modified: 1 January 2017. libffcall-2.2/trampoline/Makefile.maint0000664000000000000000000000045013153072372015107 00000000000000# maintainer -*-Makefile-*- RM = rm -f # ==================== Easily regeneratable files ==================== ROFF_MAN = groff -Tutf8 -mandoc all : trampoline.man trampoline.man : trampoline.3 $(ROFF_MAN) trampoline.3 > trampoline.man totally-clean : force $(RM) trampoline.man force : libffcall-2.2/trampoline/cache.c0000664000000000000000000001031613347755320013557 00000000000000/* This file is derived from gcc-2.6.3/libgcc2.c, section L_clear_cache */ /* Copyright (C) 1989-2017 Free Software Foundation, Inc. This program is free software: you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program. If not, see . */ /* Clear part of an instruction cache. */ /* Our emphasis here is _not_ to clear as few cache lines as possible * or with as few machine instructions as possible, but to do it _right_. */ /* This code is apparently untested!! */ /* This is from Andreas Stolcke . */ #if defined(__mips__) || defined(__mips64__) #include #define CLEAR_INSN_CACHE(BEG, END) \ cacheflush (BEG, END - BEG, BCACHE) #endif void __TR_clear_cache (beg, end) char *beg, *end; { #ifdef CLEAR_INSN_CACHE CLEAR_INSN_CACHE (beg, end); #else #ifdef INSN_CACHE_SIZE /* This is actually dead code!! */ #define INSN_CACHE_PLANE_SIZE (INSN_CACHE_SIZE / INSN_CACHE_DEPTH) static char array[INSN_CACHE_SIZE + INSN_CACHE_PLANE_SIZE + INSN_CACHE_LINE_WIDTH]; static int initialized = 0; int offset; void *start_addr; void *end_addr; typedef (*function_ptr) (); #if (INSN_CACHE_SIZE / INSN_CACHE_LINE_WIDTH) < 16 /* It's cheaper to clear the whole cache. Put in a series of jump instructions so that calling the beginning of the cache will clear the whole thing. */ if (! initialized) { int ptr = (((int) array + INSN_CACHE_LINE_WIDTH - 1) & -INSN_CACHE_LINE_WIDTH); int end_ptr = ptr + INSN_CACHE_SIZE; while (ptr < end_ptr) { *(INSTRUCTION_TYPE *)ptr = JUMP_AHEAD_INSTRUCTION + INSN_CACHE_LINE_WIDTH; ptr += INSN_CACHE_LINE_WIDTH; } *(INSTRUCTION_TYPE *)(ptr - INSN_CACHE_LINE_WIDTH) = RETURN_INSTRUCTION; initialized = 1; } /* Call the beginning of the sequence. */ (((function_ptr) (((int) array + INSN_CACHE_LINE_WIDTH - 1) & -INSN_CACHE_LINE_WIDTH)) ()); #else /* Cache is large. */ if (! initialized) { int ptr = (((int) array + INSN_CACHE_LINE_WIDTH - 1) & -INSN_CACHE_LINE_WIDTH); while (ptr < (int) array + sizeof array) { *(INSTRUCTION_TYPE *)ptr = RETURN_INSTRUCTION; ptr += INSN_CACHE_LINE_WIDTH; } initialized = 1; } /* Find the location in array that occupies the same cache line as BEG. */ offset = ((int) beg & -INSN_CACHE_LINE_WIDTH) & (INSN_CACHE_PLANE_SIZE - 1); start_addr = (((int) (array + INSN_CACHE_PLANE_SIZE - 1) & -INSN_CACHE_PLANE_SIZE) + offset); /* Compute the cache alignment of the place to stop clearing. */ #if 0 /* This is not needed for gcc's purposes. */ /* If the block to clear is bigger than a cache plane, we clear the entire cache, and OFFSET is already correct. */ if (end < beg + INSN_CACHE_PLANE_SIZE) #endif offset = (((int) (end + INSN_CACHE_LINE_WIDTH - 1) & -INSN_CACHE_LINE_WIDTH) & (INSN_CACHE_PLANE_SIZE - 1)); #if INSN_CACHE_DEPTH > 1 end_addr = (start_addr & -INSN_CACHE_PLANE_SIZE) + offset; if (end_addr <= start_addr) end_addr += INSN_CACHE_PLANE_SIZE; for (plane = 0; plane < INSN_CACHE_DEPTH; plane++) { int addr = start_addr + plane * INSN_CACHE_PLANE_SIZE; int stop = end_addr + plane * INSN_CACHE_PLANE_SIZE; while (addr != stop) { /* Call the return instruction at ADDR. */ ((function_ptr) addr) (); addr += INSN_CACHE_LINE_WIDTH; } } #else /* just one plane */ do { /* Call the return instruction at START_ADDR. */ ((function_ptr) start_addr) (); start_addr += INSN_CACHE_LINE_WIDTH; } while ((start_addr % INSN_CACHE_SIZE) != offset); #endif /* just one plane */ #endif /* Cache is large */ #endif /* Cache exists */ #endif /* CLEAR_INSN_CACHE */ } libffcall-2.2/trampoline/cache-powerpc-linux-macro.S0000664000000000000000000000135513527105032017440 00000000000000 .file "cache-powerpc.c" .section ".text" .align 2 .globl __TR_clear_cache .type __TR_clear_cache, @function __TR_clear_cache: .extern __mulh .extern __mull .extern __divss .extern __divus .extern __quoss .extern __quous stwu 1,-32(1) icbi 0,3; dcbf 0,3 addi 0,3,4 icbi 0,0; dcbf 0,0 addi 9,3,8 icbi 0,9; dcbf 0,9 addi 0,3,12 icbi 0,0; dcbf 0,0 addi 9,3,16 icbi 0,9; dcbf 0,9 addi 0,3,20 icbi 0,0; dcbf 0,0 addi 9,3,24 icbi 0,9; dcbf 0,9 addi 0,3,28 icbi 0,0; dcbf 0,0 addi 3,3,32 icbi 0,3; dcbf 0,3 sync; isync addi 1,1,32 blr .size __TR_clear_cache, .-__TR_clear_cache #if defined __linux__ || defined __FreeBSD__ || defined __FreeBSD_kernel__ || defined __DragonFly__ .section .note.GNU-stack,"",@progbits #endif libffcall-2.2/trampoline/COPYING0000644000000000000000000004335713026317520013402 00000000000000 GNU GENERAL PUBLIC LICENSE Version 2, June 1991 Copyright (C) 1989, 1991 Free Software Foundation, Inc. 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. Everyone is permitted to copy and distribute verbatim copies of this license document, but changing it is not allowed. Preamble The licenses for most software are designed to take away your freedom to share and change it. By contrast, the GNU General Public License is intended to guarantee your freedom to share and change free software--to make sure the software is free for all its users. This General Public License applies to most of the Free Software Foundation's software and to any other program whose authors commit to using it. (Some other Free Software Foundation software is covered by the GNU Library General Public License instead.) You can apply it to your programs, too. When we speak of free software, we are referring to freedom, not price. Our General Public Licenses are designed to make sure that you have the freedom to distribute copies of free software (and charge for this service if you wish), that you receive source code or can get it if you want it, that you can change the software or use pieces of it in new free programs; and that you know you can do these things. To protect your rights, we need to make restrictions that forbid anyone to deny you these rights or to ask you to surrender the rights. These restrictions translate to certain responsibilities for you if you distribute copies of the software, or if you modify it. For example, if you distribute copies of such a program, whether gratis or for a fee, you must give the recipients all the rights that you have. You must make sure that they, too, receive or can get the source code. And you must show them these terms so they know their rights. We protect your rights with two steps: (1) copyright the software, and (2) offer you this license which gives you legal permission to copy, distribute and/or modify the software. Also, for each author's protection and ours, we want to make certain that everyone understands that there is no warranty for this free software. If the software is modified by someone else and passed on, we want its recipients to know that what they have is not the original, so that any problems introduced by others will not reflect on the original authors' reputations. Finally, any free program is threatened constantly by software patents. We wish to avoid the danger that redistributors of a free program will individually obtain patent licenses, in effect making the program proprietary. To prevent this, we have made it clear that any patent must be licensed for everyone's free use or not licensed at all. The precise terms and conditions for copying, distribution and modification follow. GNU GENERAL PUBLIC LICENSE TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION 0. This License applies to any program or other work which contains a notice placed by the copyright holder saying it may be distributed under the terms of this General Public License. The "Program", below, refers to any such program or work, and a "work based on the Program" means either the Program or any derivative work under copyright law: that is to say, a work containing the Program or a portion of it, either verbatim or with modifications and/or translated into another language. (Hereinafter, translation is included without limitation in the term "modification".) Each licensee is addressed as "you". Activities other than copying, distribution and modification are not covered by this License; they are outside its scope. The act of running the Program is not restricted, and the output from the Program is covered only if its contents constitute a work based on the Program (independent of having been made by running the Program). Whether that is true depends on what the Program does. 1. You may copy and distribute verbatim copies of the Program's source code as you receive it, in any medium, provided that you conspicuously and appropriately publish on each copy an appropriate copyright notice and disclaimer of warranty; keep intact all the notices that refer to this License and to the absence of any warranty; and give any other recipients of the Program a copy of this License along with the Program. You may charge a fee for the physical act of transferring a copy, and you may at your option offer warranty protection in exchange for a fee. 2. You may modify your copy or copies of the Program or any portion of it, thus forming a work based on the Program, and copy and distribute such modifications or work under the terms of Section 1 above, provided that you also meet all of these conditions: a) You must cause the modified files to carry prominent notices stating that you changed the files and the date of any change. b) You must cause any work that you distribute or publish, that in whole or in part contains or is derived from the Program or any part thereof, to be licensed as a whole at no charge to all third parties under the terms of this License. c) If the modified program normally reads commands interactively when run, you must cause it, when started running for such interactive use in the most ordinary way, to print or display an announcement including an appropriate copyright notice and a notice that there is no warranty (or else, saying that you provide a warranty) and that users may redistribute the program under these conditions, and telling the user how to view a copy of this License. (Exception: if the Program itself is interactive but does not normally print such an announcement, your work based on the Program is not required to print an announcement.) These requirements apply to the modified work as a whole. If identifiable sections of that work are not derived from the Program, and can be reasonably considered independent and separate works in themselves, then this License, and its terms, do not apply to those sections when you distribute them as separate works. But when you distribute the same sections as part of a whole which is a work based on the Program, the distribution of the whole must be on the terms of this License, whose permissions for other licensees extend to the entire whole, and thus to each and every part regardless of who wrote it. Thus, it is not the intent of this section to claim rights or contest your rights to work written entirely by you; rather, the intent is to exercise the right to control the distribution of derivative or collective works based on the Program. In addition, mere aggregation of another work not based on the Program with the Program (or with a work based on the Program) on a volume of a storage or distribution medium does not bring the other work under the scope of this License. 3. You may copy and distribute the Program (or a work based on it, under Section 2) in object code or executable form under the terms of Sections 1 and 2 above provided that you also do one of the following: a) Accompany it with the complete corresponding machine-readable source code, which must be distributed under the terms of Sections 1 and 2 above on a medium customarily used for software interchange; or, b) Accompany it with a written offer, valid for at least three years, to give any third party, for a charge no more than your cost of physically performing source distribution, a complete machine-readable copy of the corresponding source code, to be distributed under the terms of Sections 1 and 2 above on a medium customarily used for software interchange; or, c) Accompany it with the information you received as to the offer to distribute corresponding source code. (This alternative is allowed only for noncommercial distribution and only if you received the program in object code or executable form with such an offer, in accord with Subsection b above.) The source code for a work means the preferred form of the work for making modifications to it. For an executable work, complete source code means all the source code for all modules it contains, plus any associated interface definition files, plus the scripts used to control compilation and installation of the executable. However, as a special exception, the source code distributed need not include anything that is normally distributed (in either source or binary form) with the major components (compiler, kernel, and so on) of the operating system on which the executable runs, unless that component itself accompanies the executable. If distribution of executable or object code is made by offering access to copy from a designated place, then offering equivalent access to copy the source code from the same place counts as distribution of the source code, even though third parties are not compelled to copy the source along with the object code. 4. You may not copy, modify, sublicense, or distribute the Program except as expressly provided under this License. Any attempt otherwise to copy, modify, sublicense or distribute the Program is void, and will automatically terminate your rights under this License. However, parties who have received copies, or rights, from you under this License will not have their licenses terminated so long as such parties remain in full compliance. 5. You are not required to accept this License, since you have not signed it. However, nothing else grants you permission to modify or distribute the Program or its derivative works. These actions are prohibited by law if you do not accept this License. Therefore, by modifying or distributing the Program (or any work based on the Program), you indicate your acceptance of this License to do so, and all its terms and conditions for copying, distributing or modifying the Program or works based on it. 6. Each time you redistribute the Program (or any work based on the Program), the recipient automatically receives a license from the original licensor to copy, distribute or modify the Program subject to these terms and conditions. You may not impose any further restrictions on the recipients' exercise of the rights granted herein. You are not responsible for enforcing compliance by third parties to this License. 7. If, as a consequence of a court judgment or allegation of patent infringement or for any other reason (not limited to patent issues), conditions are imposed on you (whether by court order, agreement or otherwise) that contradict the conditions of this License, they do not excuse you from the conditions of this License. If you cannot distribute so as to satisfy simultaneously your obligations under this License and any other pertinent obligations, then as a consequence you may not distribute the Program at all. For example, if a patent license would not permit royalty-free redistribution of the Program by all those who receive copies directly or indirectly through you, then the only way you could satisfy both it and this License would be to refrain entirely from distribution of the Program. If any portion of this section is held invalid or unenforceable under any particular circumstance, the balance of the section is intended to apply and the section as a whole is intended to apply in other circumstances. It is not the purpose of this section to induce you to infringe any patents or other property right claims or to contest validity of any such claims; this section has the sole purpose of protecting the integrity of the free software distribution system, which is implemented by public license practices. Many people have made generous contributions to the wide range of software distributed through that system in reliance on consistent application of that system; it is up to the author/donor to decide if he or she is willing to distribute software through any other system and a licensee cannot impose that choice. This section is intended to make thoroughly clear what is believed to be a consequence of the rest of this License. 8. If the distribution and/or use of the Program is restricted in certain countries either by patents or by copyrighted interfaces, the original copyright holder who places the Program under this License may add an explicit geographical distribution limitation excluding those countries, so that distribution is permitted only in or among countries not thus excluded. In such case, this License incorporates the limitation as if written in the body of this License. 9. The Free Software Foundation may publish revised and/or new versions of the General Public License from time to time. Such new versions will be similar in spirit to the present version, but may differ in detail to address new problems or concerns. Each version is given a distinguishing version number. If the Program specifies a version number of this License which applies to it and "any later version", you have the option of following the terms and conditions either of that version or of any later version published by the Free Software Foundation. If the Program does not specify a version number of this License, you may choose any version ever published by the Free Software Foundation. 10. If you wish to incorporate parts of the Program into other free programs whose distribution conditions are different, write to the author to ask for permission. For software which is copyrighted by the Free Software Foundation, write to the Free Software Foundation; we sometimes make exceptions for this. Our decision will be guided by the two goals of preserving the free status of all derivatives of our free software and of promoting the sharing and reuse of software generally. NO WARRANTY 11. BECAUSE THE PROGRAM IS LICENSED FREE OF CHARGE, THERE IS NO WARRANTY FOR THE PROGRAM, TO THE EXTENT PERMITTED BY APPLICABLE LAW. EXCEPT WHEN OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR OTHER PARTIES PROVIDE THE PROGRAM "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. THE ENTIRE RISK AS TO THE QUALITY AND PERFORMANCE OF THE PROGRAM IS WITH YOU. SHOULD THE PROGRAM PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL NECESSARY SERVICING, REPAIR OR CORRECTION. 12. IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY AND/OR REDISTRIBUTE THE PROGRAM AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES, INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING OUT OF THE USE OR INABILITY TO USE THE PROGRAM (INCLUDING BUT NOT LIMITED TO LOSS OF DATA OR DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY YOU OR THIRD PARTIES OR A FAILURE OF THE PROGRAM TO OPERATE WITH ANY OTHER PROGRAMS), EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGES. END OF TERMS AND CONDITIONS Appendix: How to Apply These Terms to Your New Programs If you develop a new program, and you want it to be of the greatest possible use to the public, the best way to achieve this is to make it free software which everyone can redistribute and change under these terms. To do so, attach the following notices to the program. It is safest to attach them to the start of each source file to most effectively convey the exclusion of warranty; and each file should have at least the "copyright" line and a pointer to where the full notice is found. Copyright (C) This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program; if not, write to the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. Also add information on how to contact you by electronic and paper mail. If the program is interactive, make it output a short notice like this when it starts in an interactive mode: Gnomovision version 69, Copyright (C) year name of author Gnomovision comes with ABSOLUTELY NO WARRANTY; for details type `show w'. This is free software, and you are welcome to redistribute it under certain conditions; type `show c' for details. The hypothetical commands `show w' and `show c' should show the appropriate parts of the General Public License. Of course, the commands you use may be called something other than `show w' and `show c'; they could even be mouse-clicks or menu items--whatever suits your program. You should also get your employer (if you work as a programmer) or your school, if any, to sign a "copyright disclaimer" for the program, if necessary. Here is a sample; alter the names: Yoyodyne, Inc., hereby disclaims all copyright interest in the program `Gnomovision' (which makes passes at compilers) written by James Hacker. , 1 April 1989 Ty Coon, President of Vice This General Public License does not permit incorporating your program into proprietary programs. If your program is a subroutine library, you may consider it more useful to permit linking proprietary applications with the library. If this is what you want to do, use the GNU Library General Public License instead of this License. libffcall-2.2/trampoline/cache-hppa.c0000664000000000000000000000414513347755320014510 00000000000000/* Instruction cache flushing for hppa */ /* * Copyright 1995-2017 Bruno Haible * * This program is free software: you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by * the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program. If not, see . */ #ifdef __hppa64__ /* Tell GCC not to clobber the registers that are call-saved in the HP C calling convention. */ register long arg0 __asm__("r26"); register long arg1 __asm__("r25"); register long arg2 __asm__("r24"); register long arg3 __asm__("r23"); register long arg4 __asm__("r22"); register long arg5 __asm__("r21"); register long arg6 __asm__("r20"); register long arg7 __asm__("r19"); #endif /* * This assumes that the range [first_addr..last_addr] lies in at most two * cache lines. */ void __TR_clear_cache (char* first_addr, char* last_addr) { register int tmp1; register int tmp2; /* Flush the relevant data cache lines. (Yes, this is needed. I tried it.) */ asm volatile ("fdc 0(0,%0)" "\n\t" "fdc 0(0,%1)" "\n\t" "sync" : : "r" (first_addr), "r" (last_addr) ); /* Flush the relevant instruction cache lines. */ asm volatile ("mfsp %%sr0,%1" "\n\t" "ldsid (0,%4),%0" "\n\t" "mtsp %0,%%sr0" "\n\t" "fic 0(%%sr0,%2)" "\n\t" "fic 0(%%sr0,%3)" "\n\t" "sync" "\n\t" "mtsp %1,%%sr0" "\n\t" "nop" "\n\t" "nop" "\n\t" "nop" "\n\t" "nop" "\n\t" "nop" "\n\t" "nop" : "=r" (tmp1), "=r" (tmp2) : "r" (first_addr), "r" (last_addr), "r" (first_addr) ); } libffcall-2.2/COPYING0000644000000000000000000004335713026317516011235 00000000000000 GNU GENERAL PUBLIC LICENSE Version 2, June 1991 Copyright (C) 1989, 1991 Free Software Foundation, Inc. 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. Everyone is permitted to copy and distribute verbatim copies of this license document, but changing it is not allowed. Preamble The licenses for most software are designed to take away your freedom to share and change it. By contrast, the GNU General Public License is intended to guarantee your freedom to share and change free software--to make sure the software is free for all its users. This General Public License applies to most of the Free Software Foundation's software and to any other program whose authors commit to using it. (Some other Free Software Foundation software is covered by the GNU Library General Public License instead.) You can apply it to your programs, too. When we speak of free software, we are referring to freedom, not price. Our General Public Licenses are designed to make sure that you have the freedom to distribute copies of free software (and charge for this service if you wish), that you receive source code or can get it if you want it, that you can change the software or use pieces of it in new free programs; and that you know you can do these things. To protect your rights, we need to make restrictions that forbid anyone to deny you these rights or to ask you to surrender the rights. These restrictions translate to certain responsibilities for you if you distribute copies of the software, or if you modify it. For example, if you distribute copies of such a program, whether gratis or for a fee, you must give the recipients all the rights that you have. You must make sure that they, too, receive or can get the source code. And you must show them these terms so they know their rights. We protect your rights with two steps: (1) copyright the software, and (2) offer you this license which gives you legal permission to copy, distribute and/or modify the software. Also, for each author's protection and ours, we want to make certain that everyone understands that there is no warranty for this free software. If the software is modified by someone else and passed on, we want its recipients to know that what they have is not the original, so that any problems introduced by others will not reflect on the original authors' reputations. Finally, any free program is threatened constantly by software patents. We wish to avoid the danger that redistributors of a free program will individually obtain patent licenses, in effect making the program proprietary. To prevent this, we have made it clear that any patent must be licensed for everyone's free use or not licensed at all. The precise terms and conditions for copying, distribution and modification follow. GNU GENERAL PUBLIC LICENSE TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION 0. This License applies to any program or other work which contains a notice placed by the copyright holder saying it may be distributed under the terms of this General Public License. The "Program", below, refers to any such program or work, and a "work based on the Program" means either the Program or any derivative work under copyright law: that is to say, a work containing the Program or a portion of it, either verbatim or with modifications and/or translated into another language. (Hereinafter, translation is included without limitation in the term "modification".) Each licensee is addressed as "you". Activities other than copying, distribution and modification are not covered by this License; they are outside its scope. The act of running the Program is not restricted, and the output from the Program is covered only if its contents constitute a work based on the Program (independent of having been made by running the Program). Whether that is true depends on what the Program does. 1. You may copy and distribute verbatim copies of the Program's source code as you receive it, in any medium, provided that you conspicuously and appropriately publish on each copy an appropriate copyright notice and disclaimer of warranty; keep intact all the notices that refer to this License and to the absence of any warranty; and give any other recipients of the Program a copy of this License along with the Program. You may charge a fee for the physical act of transferring a copy, and you may at your option offer warranty protection in exchange for a fee. 2. You may modify your copy or copies of the Program or any portion of it, thus forming a work based on the Program, and copy and distribute such modifications or work under the terms of Section 1 above, provided that you also meet all of these conditions: a) You must cause the modified files to carry prominent notices stating that you changed the files and the date of any change. b) You must cause any work that you distribute or publish, that in whole or in part contains or is derived from the Program or any part thereof, to be licensed as a whole at no charge to all third parties under the terms of this License. c) If the modified program normally reads commands interactively when run, you must cause it, when started running for such interactive use in the most ordinary way, to print or display an announcement including an appropriate copyright notice and a notice that there is no warranty (or else, saying that you provide a warranty) and that users may redistribute the program under these conditions, and telling the user how to view a copy of this License. (Exception: if the Program itself is interactive but does not normally print such an announcement, your work based on the Program is not required to print an announcement.) These requirements apply to the modified work as a whole. If identifiable sections of that work are not derived from the Program, and can be reasonably considered independent and separate works in themselves, then this License, and its terms, do not apply to those sections when you distribute them as separate works. But when you distribute the same sections as part of a whole which is a work based on the Program, the distribution of the whole must be on the terms of this License, whose permissions for other licensees extend to the entire whole, and thus to each and every part regardless of who wrote it. Thus, it is not the intent of this section to claim rights or contest your rights to work written entirely by you; rather, the intent is to exercise the right to control the distribution of derivative or collective works based on the Program. In addition, mere aggregation of another work not based on the Program with the Program (or with a work based on the Program) on a volume of a storage or distribution medium does not bring the other work under the scope of this License. 3. You may copy and distribute the Program (or a work based on it, under Section 2) in object code or executable form under the terms of Sections 1 and 2 above provided that you also do one of the following: a) Accompany it with the complete corresponding machine-readable source code, which must be distributed under the terms of Sections 1 and 2 above on a medium customarily used for software interchange; or, b) Accompany it with a written offer, valid for at least three years, to give any third party, for a charge no more than your cost of physically performing source distribution, a complete machine-readable copy of the corresponding source code, to be distributed under the terms of Sections 1 and 2 above on a medium customarily used for software interchange; or, c) Accompany it with the information you received as to the offer to distribute corresponding source code. (This alternative is allowed only for noncommercial distribution and only if you received the program in object code or executable form with such an offer, in accord with Subsection b above.) The source code for a work means the preferred form of the work for making modifications to it. For an executable work, complete source code means all the source code for all modules it contains, plus any associated interface definition files, plus the scripts used to control compilation and installation of the executable. However, as a special exception, the source code distributed need not include anything that is normally distributed (in either source or binary form) with the major components (compiler, kernel, and so on) of the operating system on which the executable runs, unless that component itself accompanies the executable. If distribution of executable or object code is made by offering access to copy from a designated place, then offering equivalent access to copy the source code from the same place counts as distribution of the source code, even though third parties are not compelled to copy the source along with the object code. 4. You may not copy, modify, sublicense, or distribute the Program except as expressly provided under this License. Any attempt otherwise to copy, modify, sublicense or distribute the Program is void, and will automatically terminate your rights under this License. However, parties who have received copies, or rights, from you under this License will not have their licenses terminated so long as such parties remain in full compliance. 5. You are not required to accept this License, since you have not signed it. However, nothing else grants you permission to modify or distribute the Program or its derivative works. These actions are prohibited by law if you do not accept this License. Therefore, by modifying or distributing the Program (or any work based on the Program), you indicate your acceptance of this License to do so, and all its terms and conditions for copying, distributing or modifying the Program or works based on it. 6. Each time you redistribute the Program (or any work based on the Program), the recipient automatically receives a license from the original licensor to copy, distribute or modify the Program subject to these terms and conditions. You may not impose any further restrictions on the recipients' exercise of the rights granted herein. You are not responsible for enforcing compliance by third parties to this License. 7. If, as a consequence of a court judgment or allegation of patent infringement or for any other reason (not limited to patent issues), conditions are imposed on you (whether by court order, agreement or otherwise) that contradict the conditions of this License, they do not excuse you from the conditions of this License. If you cannot distribute so as to satisfy simultaneously your obligations under this License and any other pertinent obligations, then as a consequence you may not distribute the Program at all. For example, if a patent license would not permit royalty-free redistribution of the Program by all those who receive copies directly or indirectly through you, then the only way you could satisfy both it and this License would be to refrain entirely from distribution of the Program. If any portion of this section is held invalid or unenforceable under any particular circumstance, the balance of the section is intended to apply and the section as a whole is intended to apply in other circumstances. It is not the purpose of this section to induce you to infringe any patents or other property right claims or to contest validity of any such claims; this section has the sole purpose of protecting the integrity of the free software distribution system, which is implemented by public license practices. Many people have made generous contributions to the wide range of software distributed through that system in reliance on consistent application of that system; it is up to the author/donor to decide if he or she is willing to distribute software through any other system and a licensee cannot impose that choice. This section is intended to make thoroughly clear what is believed to be a consequence of the rest of this License. 8. If the distribution and/or use of the Program is restricted in certain countries either by patents or by copyrighted interfaces, the original copyright holder who places the Program under this License may add an explicit geographical distribution limitation excluding those countries, so that distribution is permitted only in or among countries not thus excluded. In such case, this License incorporates the limitation as if written in the body of this License. 9. The Free Software Foundation may publish revised and/or new versions of the General Public License from time to time. Such new versions will be similar in spirit to the present version, but may differ in detail to address new problems or concerns. Each version is given a distinguishing version number. If the Program specifies a version number of this License which applies to it and "any later version", you have the option of following the terms and conditions either of that version or of any later version published by the Free Software Foundation. If the Program does not specify a version number of this License, you may choose any version ever published by the Free Software Foundation. 10. If you wish to incorporate parts of the Program into other free programs whose distribution conditions are different, write to the author to ask for permission. For software which is copyrighted by the Free Software Foundation, write to the Free Software Foundation; we sometimes make exceptions for this. Our decision will be guided by the two goals of preserving the free status of all derivatives of our free software and of promoting the sharing and reuse of software generally. NO WARRANTY 11. BECAUSE THE PROGRAM IS LICENSED FREE OF CHARGE, THERE IS NO WARRANTY FOR THE PROGRAM, TO THE EXTENT PERMITTED BY APPLICABLE LAW. EXCEPT WHEN OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR OTHER PARTIES PROVIDE THE PROGRAM "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. THE ENTIRE RISK AS TO THE QUALITY AND PERFORMANCE OF THE PROGRAM IS WITH YOU. SHOULD THE PROGRAM PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL NECESSARY SERVICING, REPAIR OR CORRECTION. 12. IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY AND/OR REDISTRIBUTE THE PROGRAM AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES, INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING OUT OF THE USE OR INABILITY TO USE THE PROGRAM (INCLUDING BUT NOT LIMITED TO LOSS OF DATA OR DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY YOU OR THIRD PARTIES OR A FAILURE OF THE PROGRAM TO OPERATE WITH ANY OTHER PROGRAMS), EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGES. END OF TERMS AND CONDITIONS Appendix: How to Apply These Terms to Your New Programs If you develop a new program, and you want it to be of the greatest possible use to the public, the best way to achieve this is to make it free software which everyone can redistribute and change under these terms. To do so, attach the following notices to the program. It is safest to attach them to the start of each source file to most effectively convey the exclusion of warranty; and each file should have at least the "copyright" line and a pointer to where the full notice is found. Copyright (C) This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program; if not, write to the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. Also add information on how to contact you by electronic and paper mail. If the program is interactive, make it output a short notice like this when it starts in an interactive mode: Gnomovision version 69, Copyright (C) year name of author Gnomovision comes with ABSOLUTELY NO WARRANTY; for details type `show w'. This is free software, and you are welcome to redistribute it under certain conditions; type `show c' for details. The hypothetical commands `show w' and `show c' should show the appropriate parts of the General Public License. Of course, the commands you use may be called something other than `show w' and `show c'; they could even be mouse-clicks or menu items--whatever suits your program. You should also get your employer (if you work as a programmer) or your school, if any, to sign a "copyright disclaimer" for the program, if necessary. Here is a sample; alter the names: Yoyodyne, Inc., hereby disclaims all copyright interest in the program `Gnomovision' (which makes passes at compilers) written by James Hacker. , 1 April 1989 Ty Coon, President of Vice This General Public License does not permit incorporating your program into proprietary programs. If your program is a subroutine library, you may consider it more useful to permit linking proprietary applications with the library. If this is what you want to do, use the GNU Library General Public License instead of this License. libffcall-2.2/DEPENDENCIES0000644000000000000000000000377313347755754011771 00000000000000The following packages should be installed before GNU libffcall is installed (runtime dependencies that are also build dependencies): None. The following packages should be installed when GNU libffcall is installed (runtime dependencies, but not build dependencies): None. The following should be installed when GNU libffcall is built, but are not needed later, once it is installed (build dependencies, but not runtime dependencies): * A C runtime, compiler, linker, etc. + Mandatory. Either the platform's native 'cc', or GCC 2.95 or newer. + GCC Homepage: https://gcc.gnu.org/ + Download: https://ftp.gnu.org/gnu/gcc/ * A 'make' utility. + Mandatory. Either the platform's native 'make' (for in-tree builds only), or GNU Make 3.79.1 or newer. + GNU Make Homepage: https://www.gnu.org/software/make/ + Download: https://ftp.gnu.org/gnu/make/ * A shell + Mandatory. Either the platform's native 'sh', or Bash. + Homepage: https://www.gnu.org/software/bash/ + Download: https://ftp.gnu.org/gnu/bash/ * Core POSIX utilities, including: [ basename cat chgrp chmod chown cp dd echo expand expr false hostname install kill ln ls md5sum mkdir mkfifo mknod mv printenv pwd rm rmdir sleep sort tee test touch true uname + Mandatory. Either the platform's native utilities, or GNU coreutils. + Homepage: https://www.gnu.org/software/coreutils/ + Download: https://ftp.gnu.org/gnu/coreutils/ * The comparison utilities 'cmp' and 'diff'. + Mandatory. Either the platform's native utilities, or GNU diffutils. + Homepage: https://www.gnu.org/software/diffutils/ + Download: https://ftp.gnu.org/gnu/diffutils/ * Grep. + Mandatory. Either the platform's native grep, or GNU grep. + Homepage: https://www.gnu.org/software/grep/ + Download: https://ftp.gnu.org/gnu/grep/ * Awk. + Mandatory. Either the platform's native awk, or GNU awk. + Homepages: https://www.gnu.org/software/gawk/ + Download: https://ftp.gnu.org/gnu/gawk/